diff --git a/tfbd/.DS_Store b/tfbd/.DS_Store index 5008ddf..6c3157a 100644 Binary files a/tfbd/.DS_Store and b/tfbd/.DS_Store differ diff --git a/tfbd/DISASM.S b/tfbd/DISASM.S index e9a76c2..ac93298 100644 --- a/tfbd/DISASM.S +++ b/tfbd/DISASM.S @@ -429,7 +429,8 @@ L02018D DB $00 L02018F STRL '9:Expand:' 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: " L0201FF DA L020239 ; 0 Not enough memory @@ -2157,11 +2158,11 @@ L021367 PHP REP #$30 LDA [$F8] AND #$00FF - CMP #$00A4 + CMP #$00A4 ; $ BEQ L0213A6 - CMP #$00B0 + CMP #$00B0 ; 0 BCC L0213BB - CMP #$00BA + CMP #$00BA ; 9+1 BCC L0213A8 LDA #L0213D1 JSR L021F2A @@ -2188,7 +2189,7 @@ L0213A8 PEI $FA PLX STX $FA BCC L0213CD -L0213BB LDA #$0001 +L0213BB LDA #$0001 ; Err: Syntax L0213BE JSR L020AB8 L0213C1 PLP SEC @@ -2630,7 +2631,7 @@ L021656 DW $0100 L021658 DS $0002 L02165A DS $00FE -L021758 ADRL L0217D6 ; 0 +L021758 ADRL L0217D6 ; 0 DB ADRL L0217D5 ; 1 ADRL L0217D4 ; 2 ADRL L0217D3 ; 3 @@ -2698,6 +2699,7 @@ L0217D2 INY L0217D3 INY L0217D4 INY L0217D5 INY + L0217D6 LDA L021847,Y AND #$00FF STA L021843 @@ -3638,31 +3640,38 @@ L021F2A PHP LDY #$00 L021F36 LDA [$F8],Y BEQ L021F85 + cmp #'a' + bcc nochange + cmp #'z'+1 + bcs nochange + sec + sbc #$20 +nochange CMP #$A0 BEQ L021F85 - CMP #$AC + CMP #$AC ; , BEQ L021F85 - CMP #$AE + CMP #$AE ; . BEQ L021F85 - CMP #$BA + CMP #$BA ; 9+1 BEQ L021F7C - CMP #$B0 + CMP #$B0 ; 0 BCC L021F6E - CMP #$BA + CMP #$BA ; 9+1 BCC L021F76 - CMP #$FE + CMP #$FE ; { BEQ L021F80 - CMP #$C1 + CMP #$C1 ; A BCC L021F6E - CMP #$FB + CMP #$FB ; z+1 BCS L021F6E - CMP #$DD + CMP #$DD ; ] BEQ L021F7C - CMP #$DF + CMP #$DF ; _ BEQ L021F80 - CMP #$DB + CMP #$DB ; [ BCC L021F80 - CMP #$E1 + CMP #$E1 ; a BCS L021F80 L021F6E LDA #$04 JSR L020AB8 @@ -11168,12 +11177,13 @@ L0272CA LDA L027318,X RTS 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 -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 LDA L0215CD diff --git a/tfbd/KERNEL.S b/tfbd/KERNEL.S index 8f4d90c..d342aa6 100644 --- a/tfbd/KERNEL.S +++ b/tfbd/KERNEL.S @@ -1705,7 +1705,8 @@ L040EC1 LDA L040E86 PHA L040ED3 RTS -L040ED4 BRK $00 +L040ED4 DW $0000 + L040ED6 PHP REP #$30 LDA $05,S @@ -3956,7 +3957,8 @@ L041DD6 PLP SEC RTL -L041DDA BRK $00 +L041DDA DW $0000 + L041DDC ENT PHP REP #$30 @@ -5083,6 +5085,7 @@ L042642 PHY L04264F BRK $00 L042651 BRK $00 + L042653 PHP REP #$30 SEC @@ -7621,7 +7624,7 @@ L0439CF BVS L0439D4 L0439D4 BRL L043A2F L0439D7 JSR L044071 BRL L043A4A -L0439DD BRK $00 +L0439DD DW $0000 L0439DF LDX #$0002 STX $C2 STA L043AFB @@ -7729,8 +7732,8 @@ L043AA9 PHA JSR L043A89 SEP #$10 L043ABC PLY - LDA #$00 - BRK $38 + LDA #$0000 + SEC ROL L043AC2 ASL DEY diff --git a/tfbd/TEXT.S b/tfbd/TEXT.S index 3cdf1a0..72d83a9 100644 --- a/tfbd/TEXT.S +++ b/tfbd/TEXT.S @@ -1022,6 +1022,8 @@ L030670 ENT JSL L03065A JMP L03064C +*--- Eval hex expression + L030683 PHP REP #$30 PHD @@ -1030,14 +1032,22 @@ L030683 PHP ADC #$0007 TCD LDA [$00] + and #$00ff + cmp #$e1 + bcc nochange2 + cmp #$e7 + bcs nochange2 + sec + sbc #$20 +nochange2 AND #$007F - CMP #$0030 + CMP #$0030 ; >0 BCC L0306A6 - CMP #$0047 + CMP #$0047 ; >F BCS L0306A6 - CMP #$003A + CMP #$003A ; <9+1 BCC L0306AD - CMP #$0041 + CMP #$0041 ; >A BCS L0306B3 L0306A6 LDA #$0000 PLD @@ -1046,10 +1056,10 @@ L0306A6 LDA #$0000 RTL L0306AD SEC - SBC #$0030 + SBC #$0030 ; 0 BRA L0306B7 L0306B3 SEC - SBC #$0037 + SBC #$0037 ; 7 L0306B7 INC $00 PLD PLP @@ -1108,6 +1118,7 @@ L03070D LDA #$0000 L030715 DW $0000 L030717 DW $0000 + L030719 ENT PHP REP #$30 diff --git a/tfbd/TFBD b/tfbd/TFBD new file mode 100644 index 0000000..3139ff5 Binary files /dev/null and b/tfbd/TFBD differ diff --git a/tfbd/tfbd informations.txt b/tfbd/tfbd informations.txt index ac12329..4749492 100644 --- a/tfbd/tfbd informations.txt +++ b/tfbd/tfbd informations.txt @@ -11,3 +11,6 @@ Changed the text buffer pointer because Sweet 16 does not refresh E0/0400 indire v1.0.4 - AV 202009 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. \ No newline at end of file diff --git a/tfbd/tfbd_v105.2mg b/tfbd/tfbd_v105.2mg new file mode 100644 index 0000000..4d75711 Binary files /dev/null and b/tfbd/tfbd_v105.2mg differ