Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

Text string

Browse Source
This commit is contained in:
Joshua Bell 2017-08-29 18:52:56 -07:00
parent 61bdb626bd
commit 3144a127c0
3 changed files with 46 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
desk.acc/show.text.file/stf.list
View File

@ -342,9 +342,13 @@ Current file: stf.s
00098D 1 00 00 L098D: .byte $00,$00 00098D 1 00 00 L098D: .byte $00,$00
00098F 1 00 L098F: .byte $00 00098F 1 00 L098F: .byte $00
000990 1 00 L0990: .byte $00 000990 1 00 L0990: .byte $00
000991 1 00 L0991: .byte $00 000991 1
000992 1 00 L0992: .byte $00 000991 1 text_string:
000993 1 00 L0993: .byte $00 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 000994 1 64 02 L0994: .byte $64,$02
000996 1 00 L0996: .byte $00 000996 1 00 L0996: .byte $00
000997 1 10 L0997: .byte $10 000997 1 10 L0997: .byte $10
@ -920,7 +924,7 @@ Current file: stf.s
000E95 1 20 F3 0E jsr L0EF3 000E95 1 20 F3 0E jsr L0EF3
000E98 1 B0 3D bcs L0ED7 000E98 1 B0 3D bcs L0ED7
000E9A 1 18 clc 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 000E9E 1 65 06 adc $06
000EA0 1 85 06 sta $06 000EA0 1 85 06 sta $06
000EA2 1 90 02 bcc L0EA6 000EA2 1 90 02 bcc L0EA6
@ -965,11 +969,11 @@ Current file: stf.s
000EFA 1 8D 9C 0F sta L0F9C 000EFA 1 8D 9C 0F sta L0F9C
000EFD 1 8D 9D 0F sta L0F9D 000EFD 1 8D 9D 0F sta L0F9D
000F00 1 8D 5A 09 sta L095A 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 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 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 000F10 1 AD 45 09 L0F10: lda L0945
000F13 1 D0 0D bne L0F22 000F13 1 D0 0D bne L0F22
000F15 1 AD 47 09 lda L0947 000F15 1 AD 47 09 lda L0947
@ -979,7 +983,7 @@ Current file: stf.s
000F1E 1 60 rts 000F1E 1 60 rts
000F1F 1 000F1F 1
000F1F 1 20 0C 10 L0F1F: jsr L100C 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 000F25 1 B1 06 lda ($06),y
000F27 1 29 7F and #$7F 000F27 1 29 7F and #$7F
000F29 1 91 06 sta ($06),y 000F29 1 91 06 sta ($06),y
@ -1010,7 +1014,7 @@ Current file: stf.s
000F60 1 AD 5B 09 lda L095B 000F60 1 AD 5B 09 lda L095B
000F63 1 CD 9C 0F cmp L0F9C 000F63 1 CD 9C 0F cmp L0F9C
000F66 1 90 06 L0F66: bcc L0F6E 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 000F6B 1 4C 10 0F jmp L0F10
000F6E 1 000F6E 1
000F6E 1 A9 00 L0F6E: lda #$00 000F6E 1 A9 00 L0F6E: lda #$00
@ -1018,18 +1022,18 @@ Current file: stf.s
000F73 1 AD 9B 0F lda L0F9B 000F73 1 AD 9B 0F lda L0F9B
000F76 1 C9 FF cmp #$FF 000F76 1 C9 FF cmp #$FF
000F78 1 F0 09 beq L0F83 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 000F7D 1 AD 46 09 lda L0946
000F80 1 8D 45 09 sta L0945 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 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 000F8C 1 B1 06 lda ($06),y
000F8E 1 C9 09 cmp #$09 000F8E 1 C9 09 cmp #$09
000F90 1 F0 04 beq L0F96 000F90 1 F0 04 beq L0F96
000F92 1 C9 0D cmp #$0D 000F92 1 C9 0D cmp #$0D
000F94 1 D0 03 bne L0F99 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 000F99 1 18 L0F99: clc
000F9A 1 60 rts 000F9A 1 60 rts
000F9B 1 000F9B 1
@ -1075,15 +1079,15 @@ Current file: stf.s
000FF5 1 01 000FF5 1 01
000FF6 1 AD 48 09 L0FF6: lda L0948 000FF6 1 AD 48 09 L0FF6: lda L0948
000FF9 1 F0 10 beq L100B 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 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 001004 1 91 09
001006 1 A9 01 lda #$01 001006 1 A9 01 lda #$01
001008 1 8D 49 09 sta L0949 001008 1 8D 49 09 sta L0949
00100B 1 60 L100B: rts 00100B 1 60 L100B: rts
00100C 1 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 00100F 1 C9 12 cmp #$12
001011 1 F0 18 beq L102B 001011 1 F0 18 beq L102B
001013 1 A0 00 ldy #$00 001013 1 A0 00 ldy #$00
@ -1091,10 +1095,10 @@ Current file: stf.s
001018 1 99 00 12 sta $1200,y 001018 1 99 00 12 sta $1200,y
00101B 1 C8 iny 00101B 1 C8 iny
00101C 1 D0 F7 bne L1015 00101C 1 D0 F7 bne L1015
00101E 1 CE 92 09 dec L0992 00101E 1 CE 92 09 dec text_string_addr+1
001021 1 AD 91 09 lda L0991 001021 1 AD 91 09 lda text_string_addr
001024 1 85 06 sta $06 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 001029 1 85 07 sta $07
00102B 1 A9 00 L102B: lda #$00 00102B 1 A9 00 L102B: lda #$00
00102D 1 8D 45 09 sta L0945 00102D 1 8D 45 09 sta L0945

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

42
desk.acc/show.text.file/stf.s
View File

@ -240,9 +240,13 @@ L098C: .byte $00
L098D: .byte $00,$00 L098D: .byte $00,$00
L098F: .byte $00 L098F: .byte $00
L0990: .byte $00 L0990: .byte $00
L0991: .byte $00
L0992: .byte $00 text_string:
L0993: .byte $00 text_string_addr:
.addr 0 ; address
text_string_len:
.byte 0 ; length
L0994: .byte $64,$02 L0994: .byte $64,$02
L0996: .byte $00 L0996: .byte $00
L0997: .byte $10 L0997: .byte $10
@ -792,7 +796,7 @@ L0E7E: A2D_CALL $0E, L095D
jsr L0EF3 jsr L0EF3
bcs L0ED7 bcs L0ED7
clc clc
lda L0993 lda text_string_len
adc $06 adc $06
sta $06 sta $06
bcc L0EA6 bcc L0EA6
@ -837,11 +841,11 @@ L0EF3: lda #$FF
sta L0F9C sta L0F9C
sta L0F9D sta L0F9D
sta L095A sta L095A
sta L0993 sta text_string_len
lda $06 lda $06
sta L0991 sta text_string_addr
lda $07 lda $07
sta L0992 sta text_string_addr+1
L0F10: lda L0945 L0F10: lda L0945
bne L0F22 bne L0F22
lda L0947 lda L0947
@ -851,7 +855,7 @@ L0F10: lda L0945
rts rts
L0F1F: jsr L100C L0F1F: jsr L100C
L0F22: ldy L0993 L0F22: ldy text_string_len
lda ($06),y lda ($06),y
and #$7F and #$7F
sta ($06),y sta ($06),y
@ -882,7 +886,7 @@ L0F58: lda L095C
lda L095B lda L095B
cmp L0F9C cmp L0F9C
L0F66: bcc L0F6E L0F66: bcc L0F6E
inc L0993 inc text_string_len
jmp L0F10 jmp L0F10
L0F6E: lda #$00 L0F6E: lda #$00
@ -890,18 +894,18 @@ L0F6E: lda #$00
lda L0F9B lda L0F9B
cmp #$FF cmp #$FF
beq L0F83 beq L0F83
sta L0993 sta text_string_len
lda L0946 lda L0946
sta L0945 sta L0945
L0F83: inc L0993 L0F83: inc text_string_len
L0F86: jsr L0FF6 L0F86: jsr L0FF6
ldy L0993 ldy text_string_len
lda ($06),y lda ($06),y
cmp #$09 cmp #$09
beq L0F96 beq L0F96
cmp #$0D cmp #$0D
bne L0F99 bne L0F99
L0F96: inc L0993 L0F96: inc text_string_len
L0F99: clc L0F99: clc
rts rts
@ -945,14 +949,14 @@ L0FE9: .byte $00,$8C,$00,$D2,$00,$18,$01,$5E
.byte $01,$A4,$01,$EA,$01 .byte $01,$A4,$01,$EA,$01
L0FF6: lda L0948 L0FF6: lda L0948
beq L100B beq L100B
lda L0993 lda text_string_len
beq L100B beq L100B
L1000: A2D_CALL $19, L0991 L1000: A2D_CALL A2D_TEXT, text_string
lda #$01 lda #$01
sta L0949 sta L0949
L100B: rts L100B: rts
L100C: lda L0992 L100C: lda text_string_addr+1
cmp #$12 cmp #$12
beq L102B beq L102B
ldy #$00 ldy #$00
@ -960,10 +964,10 @@ L1015: lda $1300,y
sta $1200,y sta $1200,y
iny iny
bne L1015 bne L1015
dec L0992 dec text_string_addr+1
lda L0991 lda text_string_addr
sta $06 sta $06
lda L0992 lda text_string_addr+1
sta $07 sta $07
L102B: lda #$00 L102B: lda #$00
sta L0945 sta L0945