diff --git a/desk.acc/show.text.file/stf.list b/desk.acc/show.text.file/stf.list index c8a8878..89259af 100644 --- a/desk.acc/show.text.file/stf.list +++ b/desk.acc/show.text.file/stf.list @@ -342,9 +342,13 @@ Current file: stf.s 00098D 1 00 00 L098D: .byte $00,$00 00098F 1 00 L098F: .byte $00 000990 1 00 L0990: .byte $00 -000991 1 00 L0991: .byte $00 -000992 1 00 L0992: .byte $00 -000993 1 00 L0993: .byte $00 +000991 1 +000991 1 text_string: +000991 1 text_string_addr: +000991 1 00 00 .addr 0 ; address +000993 1 text_string_len: +000993 1 00 .byte 0 ; length +000994 1 000994 1 64 02 L0994: .byte $64,$02 000996 1 00 L0996: .byte $00 000997 1 10 L0997: .byte $10 @@ -920,7 +924,7 @@ Current file: stf.s 000E95 1 20 F3 0E jsr L0EF3 000E98 1 B0 3D bcs L0ED7 000E9A 1 18 clc -000E9B 1 AD 93 09 lda L0993 +000E9B 1 AD 93 09 lda text_string_len 000E9E 1 65 06 adc $06 000EA0 1 85 06 sta $06 000EA2 1 90 02 bcc L0EA6 @@ -965,11 +969,11 @@ Current file: stf.s 000EFA 1 8D 9C 0F sta L0F9C 000EFD 1 8D 9D 0F sta L0F9D 000F00 1 8D 5A 09 sta L095A -000F03 1 8D 93 09 sta L0993 +000F03 1 8D 93 09 sta text_string_len 000F06 1 A5 06 lda $06 -000F08 1 8D 91 09 sta L0991 +000F08 1 8D 91 09 sta text_string_addr 000F0B 1 A5 07 lda $07 -000F0D 1 8D 92 09 sta L0992 +000F0D 1 8D 92 09 sta text_string_addr+1 000F10 1 AD 45 09 L0F10: lda L0945 000F13 1 D0 0D bne L0F22 000F15 1 AD 47 09 lda L0947 @@ -979,7 +983,7 @@ Current file: stf.s 000F1E 1 60 rts 000F1F 1 000F1F 1 20 0C 10 L0F1F: jsr L100C -000F22 1 AC 93 09 L0F22: ldy L0993 +000F22 1 AC 93 09 L0F22: ldy text_string_len 000F25 1 B1 06 lda ($06),y 000F27 1 29 7F and #$7F 000F29 1 91 06 sta ($06),y @@ -1010,7 +1014,7 @@ Current file: stf.s 000F60 1 AD 5B 09 lda L095B 000F63 1 CD 9C 0F cmp L0F9C 000F66 1 90 06 L0F66: bcc L0F6E -000F68 1 EE 93 09 inc L0993 +000F68 1 EE 93 09 inc text_string_len 000F6B 1 4C 10 0F jmp L0F10 000F6E 1 000F6E 1 A9 00 L0F6E: lda #$00 @@ -1018,18 +1022,18 @@ Current file: stf.s 000F73 1 AD 9B 0F lda L0F9B 000F76 1 C9 FF cmp #$FF 000F78 1 F0 09 beq L0F83 -000F7A 1 8D 93 09 sta L0993 +000F7A 1 8D 93 09 sta text_string_len 000F7D 1 AD 46 09 lda L0946 000F80 1 8D 45 09 sta L0945 -000F83 1 EE 93 09 L0F83: inc L0993 +000F83 1 EE 93 09 L0F83: inc text_string_len 000F86 1 20 F6 0F L0F86: jsr L0FF6 -000F89 1 AC 93 09 ldy L0993 +000F89 1 AC 93 09 ldy text_string_len 000F8C 1 B1 06 lda ($06),y 000F8E 1 C9 09 cmp #$09 000F90 1 F0 04 beq L0F96 000F92 1 C9 0D cmp #$0D 000F94 1 D0 03 bne L0F99 -000F96 1 EE 93 09 L0F96: inc L0993 +000F96 1 EE 93 09 L0F96: inc text_string_len 000F99 1 18 L0F99: clc 000F9A 1 60 rts 000F9B 1 @@ -1075,15 +1079,15 @@ Current file: stf.s 000FF5 1 01 000FF6 1 AD 48 09 L0FF6: lda L0948 000FF9 1 F0 10 beq L100B -000FFB 1 AD 93 09 lda L0993 +000FFB 1 AD 93 09 lda text_string_len 000FFE 1 F0 0B beq L100B -001000 1 20 00 40 19 L1000: A2D_CALL $19, L0991 +001000 1 20 00 40 19 L1000: A2D_CALL A2D_TEXT, text_string 001004 1 91 09 001006 1 A9 01 lda #$01 001008 1 8D 49 09 sta L0949 00100B 1 60 L100B: rts 00100C 1 -00100C 1 AD 92 09 L100C: lda L0992 +00100C 1 AD 92 09 L100C: lda text_string_addr+1 00100F 1 C9 12 cmp #$12 001011 1 F0 18 beq L102B 001013 1 A0 00 ldy #$00 @@ -1091,10 +1095,10 @@ Current file: stf.s 001018 1 99 00 12 sta $1200,y 00101B 1 C8 iny 00101C 1 D0 F7 bne L1015 -00101E 1 CE 92 09 dec L0992 -001021 1 AD 91 09 lda L0991 +00101E 1 CE 92 09 dec text_string_addr+1 +001021 1 AD 91 09 lda text_string_addr 001024 1 85 06 sta $06 -001026 1 AD 92 09 lda L0992 +001026 1 AD 92 09 lda text_string_addr+1 001029 1 85 07 sta $07 00102B 1 A9 00 L102B: lda #$00 00102D 1 8D 45 09 sta L0945 diff --git a/desk.acc/show.text.file/stf.o b/desk.acc/show.text.file/stf.o index 9fafd2d..9e90d4d 100644 Binary files a/desk.acc/show.text.file/stf.o and b/desk.acc/show.text.file/stf.o differ diff --git a/desk.acc/show.text.file/stf.s b/desk.acc/show.text.file/stf.s index f7eb2d2..224554b 100644 --- a/desk.acc/show.text.file/stf.s +++ b/desk.acc/show.text.file/stf.s @@ -240,9 +240,13 @@ L098C: .byte $00 L098D: .byte $00,$00 L098F: .byte $00 L0990: .byte $00 -L0991: .byte $00 -L0992: .byte $00 -L0993: .byte $00 + +text_string: +text_string_addr: + .addr 0 ; address +text_string_len: + .byte 0 ; length + L0994: .byte $64,$02 L0996: .byte $00 L0997: .byte $10 @@ -792,7 +796,7 @@ L0E7E: A2D_CALL $0E, L095D jsr L0EF3 bcs L0ED7 clc - lda L0993 + lda text_string_len adc $06 sta $06 bcc L0EA6 @@ -837,11 +841,11 @@ L0EF3: lda #$FF sta L0F9C sta L0F9D sta L095A - sta L0993 + sta text_string_len lda $06 - sta L0991 + sta text_string_addr lda $07 - sta L0992 + sta text_string_addr+1 L0F10: lda L0945 bne L0F22 lda L0947 @@ -851,7 +855,7 @@ L0F10: lda L0945 rts L0F1F: jsr L100C -L0F22: ldy L0993 +L0F22: ldy text_string_len lda ($06),y and #$7F sta ($06),y @@ -882,7 +886,7 @@ L0F58: lda L095C lda L095B cmp L0F9C L0F66: bcc L0F6E - inc L0993 + inc text_string_len jmp L0F10 L0F6E: lda #$00 @@ -890,18 +894,18 @@ L0F6E: lda #$00 lda L0F9B cmp #$FF beq L0F83 - sta L0993 + sta text_string_len lda L0946 sta L0945 -L0F83: inc L0993 +L0F83: inc text_string_len L0F86: jsr L0FF6 - ldy L0993 + ldy text_string_len lda ($06),y cmp #$09 beq L0F96 cmp #$0D bne L0F99 -L0F96: inc L0993 +L0F96: inc text_string_len L0F99: clc rts @@ -945,14 +949,14 @@ L0FE9: .byte $00,$8C,$00,$D2,$00,$18,$01,$5E .byte $01,$A4,$01,$EA,$01 L0FF6: lda L0948 beq L100B - lda L0993 + lda text_string_len beq L100B -L1000: A2D_CALL $19, L0991 +L1000: A2D_CALL A2D_TEXT, text_string lda #$01 sta L0949 L100B: rts -L100C: lda L0992 +L100C: lda text_string_addr+1 cmp #$12 beq L102B ldy #$00 @@ -960,10 +964,10 @@ L1015: lda $1300,y sta $1200,y iny bne L1015 - dec L0992 - lda L0991 + dec text_string_addr+1 + lda text_string_addr sta $06 - lda L0992 + lda text_string_addr+1 sta $07 L102B: lda #$00 sta L0945