Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

v1.0.5 

hex addresses can be in lower case characters now. A request of Kelvin S.
This commit is contained in:
Antoine Vignau 2021-03-20 23:58:32 +01:00
parent 3713b4bfdd
commit b0f41ef13f
7 changed files with 58 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
tfbd/.DS_Store vendored
View File

Binary file not shown.

50
tfbd/DISASM.S
View File

@ -429,7 +429,8 @@ L02018D DB $00
L02018F STRL '9:Expand:' L02018F STRL '9:Expand:'
L02019A STRL '9:Configs:' L02019A STRL '9:Configs:'
L0201A6 STR "The Flaming Bird Disassembler Written by Ferox - (c) 1994 Phoenix corporation" *L0201A6 STR "The Flaming Bird Disassembler Written by Ferox - (c) 1994 Phoenix corporation"
L0201A6 STR "The Flaming Bird Disassembler Written by Ferox - (c) 1994-2021 Phoenix Corp"
L0201F7 STR 87">ERR: " L0201F7 STR 87">ERR: "
L0201FF DA L020239 ; 0 Not enough memory L0201FF DA L020239 ; 0 Not enough memory
@ -2157,11 +2158,11 @@ L021367 PHP
REP #$30 REP #$30
LDA [$F8] LDA [$F8]
AND #$00FF AND #$00FF
CMP #$00A4 CMP #$00A4 ; $
BEQ L0213A6 BEQ L0213A6
CMP #$00B0 CMP #$00B0 ; 0
BCC L0213BB BCC L0213BB
CMP #$00BA CMP #$00BA ; 9+1
BCC L0213A8 BCC L0213A8
LDA #L0213D1 LDA #L0213D1
JSR L021F2A JSR L021F2A
@ -2188,7 +2189,7 @@ L0213A8 PEI $FA
PLX PLX
STX $FA STX $FA
BCC L0213CD BCC L0213CD
L0213BB LDA #$0001 L0213BB LDA #$0001 ; Err: Syntax
L0213BE JSR L020AB8 L0213BE JSR L020AB8
L0213C1 PLP L0213C1 PLP
SEC SEC
@ -2630,7 +2631,7 @@ L021656 DW $0100
L021658 DS $0002 L021658 DS $0002
L02165A DS $00FE L02165A DS $00FE
L021758 ADRL L0217D6 ; 0 L021758 ADRL L0217D6 ; 0 DB
ADRL L0217D5 ; 1 ADRL L0217D5 ; 1
ADRL L0217D4 ; 2 ADRL L0217D4 ; 2
ADRL L0217D3 ; 3 ADRL L0217D3 ; 3
@ -2698,6 +2699,7 @@ L0217D2 INY
L0217D3 INY L0217D3 INY
L0217D4 INY L0217D4 INY
L0217D5 INY L0217D5 INY
L0217D6 LDA L021847,Y L0217D6 LDA L021847,Y
AND #$00FF AND #$00FF
STA L021843 STA L021843
@ -3638,31 +3640,38 @@ L021F2A PHP
LDY #$00 LDY #$00
L021F36 LDA [$F8],Y L021F36 LDA [$F8],Y
BEQ L021F85 BEQ L021F85
cmp #'a'
bcc nochange
cmp #'z'+1
bcs nochange
sec
sbc #$20
nochange
CMP #$A0 CMP #$A0
BEQ L021F85 BEQ L021F85
CMP #$AC CMP #$AC ; ,
BEQ L021F85 BEQ L021F85
CMP #$AE CMP #$AE ; .
BEQ L021F85 BEQ L021F85
CMP #$BA CMP #$BA ; 9+1
BEQ L021F7C BEQ L021F7C
CMP #$B0 CMP #$B0 ; 0
BCC L021F6E BCC L021F6E
CMP #$BA CMP #$BA ; 9+1
BCC L021F76 BCC L021F76
CMP #$FE CMP #$FE ; {
BEQ L021F80 BEQ L021F80
CMP #$C1 CMP #$C1 ; A
BCC L021F6E BCC L021F6E
CMP #$FB CMP #$FB ; z+1
BCS L021F6E BCS L021F6E
CMP #$DD CMP #$DD ; ]
BEQ L021F7C BEQ L021F7C
CMP #$DF CMP #$DF ; _
BEQ L021F80 BEQ L021F80
CMP #$DB CMP #$DB ; [
BCC L021F80 BCC L021F80
CMP #$E1 CMP #$E1 ; a
BCS L021F80 BCS L021F80
L021F6E LDA #$04 L021F6E LDA #$04
JSR L020AB8 JSR L020AB8
@ -11168,12 +11177,13 @@ L0272CA LDA L027318,X
RTS RTS
L02730B STR "TFB-Disasm v" L02730B STR "TFB-Disasm v"
L027318 STR "1.0.4" ; was "1.0.2" L027318 STR "1.0.5" ; was "1.0.4" was "1.0.2"
DB $00 DB $00
DB $00 DB $00
DB $00 DB $00
DB $00 DB $00
L027322 STR " 19-SEP-2020"8D ; was "10-MAY-94" *L027322 STR " 19-SEP-2020"8D ; was "10-MAY-94"
L027322 STR " 21-MAR-2021"8D ; was "10-MAY-94"
L027330 JSR L021586 L027330 JSR L021586
LDA L0215CD LDA L0215CD

13
tfbd/KERNEL.S
View File

@ -1705,7 +1705,8 @@ L040EC1 LDA L040E86
PHA PHA
L040ED3 RTS L040ED3 RTS
L040ED4 BRK $00 L040ED4 DW $0000
L040ED6 PHP L040ED6 PHP
REP #$30 REP #$30
LDA $05,S LDA $05,S
@ -3956,7 +3957,8 @@ L041DD6 PLP
SEC SEC
RTL RTL
L041DDA BRK $00 L041DDA DW $0000
L041DDC ENT L041DDC ENT
PHP PHP
REP #$30 REP #$30
@ -5083,6 +5085,7 @@ L042642 PHY
L04264F BRK $00 L04264F BRK $00
L042651 BRK $00 L042651 BRK $00
L042653 PHP L042653 PHP
REP #$30 REP #$30
SEC SEC
@ -7621,7 +7624,7 @@ L0439CF BVS L0439D4
L0439D4 BRL L043A2F L0439D4 BRL L043A2F
L0439D7 JSR L044071 L0439D7 JSR L044071
BRL L043A4A BRL L043A4A
L0439DD BRK $00 L0439DD DW $0000
L0439DF LDX #$0002 L0439DF LDX #$0002
STX $C2 STX $C2
STA L043AFB STA L043AFB
@ -7729,8 +7732,8 @@ L043AA9 PHA
JSR L043A89 JSR L043A89
SEP #$10 SEP #$10
L043ABC PLY L043ABC PLY
LDA #$00 LDA #$0000
BRK $38 SEC
ROL ROL
L043AC2 ASL L043AC2 ASL
DEY DEY

23
tfbd/TEXT.S
View File

@ -1022,6 +1022,8 @@ L030670 ENT
JSL L03065A JSL L03065A
JMP L03064C JMP L03064C
*--- Eval hex expression
L030683 PHP L030683 PHP
REP #$30 REP #$30
PHD PHD
@ -1030,14 +1032,22 @@ L030683 PHP
ADC #$0007 ADC #$0007
TCD TCD
LDA [$00] LDA [$00]
and #$00ff
cmp #$e1
bcc nochange2
cmp #$e7
bcs nochange2
sec
sbc #$20
nochange2
AND #$007F AND #$007F
CMP #$0030 CMP #$0030 ; >0
BCC L0306A6 BCC L0306A6
CMP #$0047 CMP #$0047 ; >F
BCS L0306A6 BCS L0306A6
CMP #$003A CMP #$003A ; <9+1
BCC L0306AD BCC L0306AD
CMP #$0041 CMP #$0041 ; >A
BCS L0306B3 BCS L0306B3
L0306A6 LDA #$0000 L0306A6 LDA #$0000
PLD PLD
@ -1046,10 +1056,10 @@ L0306A6 LDA #$0000
RTL RTL
L0306AD SEC L0306AD SEC
SBC #$0030 SBC #$0030 ; 0
BRA L0306B7 BRA L0306B7
L0306B3 SEC L0306B3 SEC
SBC #$0037 SBC #$0037 ; 7
L0306B7 INC $00 L0306B7 INC $00
PLD PLD
PLP PLP
@ -1108,6 +1118,7 @@ L03070D LDA #$0000
L030715 DW $0000 L030715 DW $0000
L030717 DW $0000 L030717 DW $0000
L030719 ENT L030719 ENT
PHP PHP
REP #$30 REP #$30

BIN
tfbd/TFBD Normal file
View File

Binary file not shown.

3
tfbd/tfbd informations.txt
View File

@ -11,3 +11,6 @@ Changed the text buffer pointer because Sweet 16 does not refresh E0/0400 indire
v1.0.4 - AV 202009 v1.0.4 - AV 202009
Scripts: lowercase commands added, now oa-q works :-) Scripts: lowercase commands added, now oa-q works :-)
v1.0.5 - AV 202103
hex addresses can be in lower case characters now. A request of Kelvin S.

BIN
tfbd/tfbd_v105.2mg Normal file
View File

Binary file not shown.