Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-30 23:30:32 +00:00
Code Issues Projects Releases Wiki Activity

Puzzle/Date - A2D call sites

Browse Source
This commit is contained in:
Joshua Bell 2017-09-10 20:40:32 -07:00
parent 275255db02
commit 62b5695d35
3 changed files with 122 additions and 296 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
desk.acc/a2d.inc
View File

@ -80,6 +80,9 @@ A2D_SET_PATTERN := $08
;; (input length 8 bytes) ;; (input length 8 bytes)
;; .byte r0...r7 8x8 pixel pattern for A2D_FILL_RECT calls ;; .byte r0...r7 8x8 pixel pattern for A2D_FILL_RECT calls
;; $0A used in Date
;; (input length 2 bytes)
A2D_UNK_0C := $0C ; Unknown - used in calculator A2D_UNK_0C := $0C ; Unknown - used in calculator
;; (input length 1 byte) ;; (input length 1 byte)
@ -88,7 +91,10 @@ A2D_SET_POS := $0E
;; .word x ;; .word x
;; .word y ;; .word y
A2D_FILL_RECT := $11 ; With selected pattern ;; $0F used in puzzle
;; (input length 4 bytes)
A2D_FILL_RECT := $11 ; With selected simple pattern (SET_PATTERN)
;; (input length 8 bytes) ;; (input length 8 bytes)
;; .word left (includes scroll pos) ;; .word left (includes scroll pos)
;; .word top ;; .word top

257
desk.acc/date.s
View File

@ -1,36 +1,17 @@
.org $800 .org $800
; da65 V2.16 - Git f5e9b401
; Created: 2017-09-10 20:12:54
; Input file: date.bin
; Page: 1
.setcpu "65C02" .setcpu "65C02"
.include "apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "a2d.inc"
L0000 := $0000 L0000 := $0000
L0020 := $0020 L0020 := $0020
L1000 := $1000 L1000 := $1000
A2D := $4000
L4021 := $4021 L4021 := $4021
UNKNOWN_CALL := $8E00
MLI := $BF00
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
LCBANK1 := $C08B
AUXMOVE := $C311
XFER := $C314
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B
FLOAT := $EB93
FIN := $EC4A
FOUT := $ED34
jmp L0825 jmp L0825
L0803: .byte $00,$09,$4D,$44,$2E,$53,$59,$53 L0803: .byte $00,$09,$4D,$44,$2E,$53,$59,$53
@ -40,7 +21,8 @@ L0815: .byte $00,$03,$00,$00,$04
L081A: .byte $00,$23,$08,$02,$00,$00,$00,$01 L081A: .byte $00,$23,$08,$02,$00,$00,$00,$01
L0822: .byte $00 L0822: .byte $00
L0823: .byte $00 L0823: .byte $00
L0824: .byte $00
stash_stack: .byte $00
L0825: tsx L0825: tsx
stx L0803 stx L0803
sta ALTZPOFF sta ALTZPOFF
@ -50,17 +32,17 @@ L0825: tsx
lda $BF91 lda $BF91
sta L0910 sta L0910
lda #$B8 lda #$B8
sta $3C sta STARTLO
lda #$08 lda #$08
sta $3D sta STARTHI
lda #$2D lda #$2D
sta $3E sta ENDLO
lda #$0F lda #$0F
sta $3F sta ENDHI
lda #$B8 lda #$B8
sta $42 sta DESTINATIONLO
lda #$08 lda #$08
sta $43 sta DESTINATIONHI
sec sec
jsr AUXMOVE jsr AUXMOVE
lda #$B8 lda #$B8
@ -77,7 +59,7 @@ L0825: tsx
L086B: sta ALTZPON L086B: sta ALTZPON
sta L0823 sta L0823
stx L0824 stx stash_stack
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
lda L0823 lda L0823
@ -164,6 +146,7 @@ L0960: .byte $B4,$00,$32,$00,$00,$20,$80,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $FF,$00,$00,$00,$00,$00,$04,$02 .byte $FF,$00,$00,$00,$00,$00,$04,$02
.byte $00,$7F,$00,$88,$00,$00 .byte $00,$7F,$00,$88,$00,$00
L0986: jsr L0E00 L0986: jsr L0E00
lda L0910 lda L0910
lsr a lsr a
@ -180,18 +163,12 @@ L0986: jsr L0E00
lsr a lsr a
lsr a lsr a
sta L0912 sta L0912
jsr A2D A2D_CALL A2D_CREATE_WINDOW, L094C
.byte $38
.addr L094C
lda #$00 lda #$00
sta L090E sta L090E
jsr L0CF0 jsr L0CF0
jsr A2D A2D_CALL $2B
.byte $2B L09BB: A2D_CALL A2D_GET_INPUT, L0937
.addr L0000
L09BB: jsr A2D
.byte $2A
.addr L0937
lda L0937 lda L0937
cmp #$01 cmp #$01
bne L09CE bne L09CE
@ -219,26 +196,18 @@ L09E8: cmp #$08
beq L0A0F beq L0A0F
cmp #$0B cmp #$0B
bne L09BB bne L09BB
jsr A2D A2D_CALL A2D_FILL_RECT, L08D4
.byte $11
.addr L08D4
lda #$03 lda #$03
sta L0B50 sta L0B50
jsr L0B17 jsr L0B17
jsr A2D A2D_CALL A2D_FILL_RECT, L08D4
.byte $11
.addr L08D4
jmp L09BB jmp L09BB
L0A0F: jsr A2D L0A0F: A2D_CALL A2D_FILL_RECT, L08DC
.byte $11
.addr L08DC
lda #$04 lda #$04
sta L0B50 sta L0B50
jsr L0B17 jsr L0B17
jsr A2D A2D_CALL A2D_FILL_RECT, L08DC
.byte $11
.addr L08DC
jmp L09BB jmp L09BB
L0A26: sec L0A26: sec
@ -257,15 +226,9 @@ L0A33: clc
L0A3F: jsr L0DB4 L0A3F: jsr L0DB4
jmp L09BB jmp L09BB
L0A45: jsr A2D L0A45: A2D_CALL A2D_QUERY_TARGET, L0938
.byte $40 A2D_CALL A2D_SET_FILL_MODE, L094A
.addr L0938 A2D_CALL A2D_SET_PATTERN, L0905
jsr A2D
.byte $07
.addr L094A
jsr A2D
.byte $08
.addr L0905
lda L093D lda L093D
cmp #$64 cmp #$64
bne L0A63 bne L0A63
@ -294,9 +257,7 @@ L0A83 := * + 2
L0A84: .byte $92 L0A84: .byte $92
L0A85: .byte $0A,$BB,$0A,$C9,$0A,$D7,$0A,$E5 L0A85: .byte $0A,$BB,$0A,$C9,$0A,$D7,$0A,$E5
.byte $0A,$E5,$0A,$E5,$0A .byte $0A,$E5,$0A,$E5,$0A
L0A92: jsr A2D L0A92: A2D_CALL A2D_FILL_RECT, L08C4
.byte $11
.addr L08C4
sta RAMWRTOFF sta RAMWRTOFF
lda L0912 lda L0912
asl a asl a
@ -314,18 +275,14 @@ L0A92: jsr A2D
sta L0C1A sta L0C1A
jmp L0C1B jmp L0C1B
L0ABB: jsr A2D L0ABB: A2D_CALL A2D_FILL_RECT, L08CC
.byte $11
.addr L08CC
lda #$00 lda #$00
sta L0C1A sta L0C1A
jmp L0C1B jmp L0C1B
txa txa
pha pha
jsr A2D A2D_CALL A2D_FILL_RECT, L08D4
.byte $11
.addr L08D4
pla pla
tax tax
jsr L0AEC jsr L0AEC
@ -333,9 +290,7 @@ L0ABB: jsr A2D
txa txa
pha pha
jsr A2D A2D_CALL A2D_FILL_RECT, L08DC
.byte $11
.addr L08DC
pla pla
tax tax
jsr L0AEC jsr L0AEC
@ -347,9 +302,7 @@ L0ABB: jsr A2D
jmp L0DB4 jmp L0DB4
L0AEC: stx L0B50 L0AEC: stx L0B50
L0AEF: jsr A2D L0AEF: A2D_CALL A2D_GET_INPUT, L0937
.byte $2A
.addr L0937
lda L0937 lda L0937
cmp #$02 cmp #$02
beq L0B02 beq L0B02
@ -359,14 +312,10 @@ L0AEF: jsr A2D
L0B02: lda L0B50 L0B02: lda L0B50
cmp #$03 cmp #$03
beq L0B10 beq L0B10
jsr A2D A2D_CALL A2D_FILL_RECT, L08DC
.byte $11
.addr L08DC
rts rts
L0B10: jsr A2D L0B10: A2D_CALL A2D_FILL_RECT, L08D4
.byte $11
.addr L08D4
rts rts
L0B17: jsr L0DF2 L0B17: jsr L0DF2
@ -394,9 +343,7 @@ L0B34: lda L090E
L0B45 := * + 1 L0B45 := * + 1
L0B46 := * + 2 L0B46 := * + 2
jsr L1000 jsr L1000
jsr A2D A2D_CALL $0C, L08FC
.byte $0C
.addr L08FC
jmp L0D73 jmp L0D73
L0B50: .byte $00,$00,$00,$61,$0B,$73,$0B,$85 L0B50: .byte $00,$00,$00,$61,$0B,$73,$0B,$85
@ -483,9 +430,7 @@ L0C0D: lda L0913
rts rts
L0C1A: brk L0C1A: brk
L0C1B: jsr A2D L0C1B: A2D_CALL A2D_DESTROY_WINDOW, L0947
.byte $39
.addr L0947
jsr UNKNOWN_CALL jsr UNKNOWN_CALL
.byte $0C .byte $0C
.addr L0000 .addr L0000
@ -522,12 +467,8 @@ L0C54: lda L0938
sta L0941 sta L0941
lda L093B lda L093B
sta L0942 sta L0942
jsr A2D A2D_CALL A2D_MAP_COORDS, L093E
.byte $46 A2D_CALL A2D_SET_POS, L0943
.addr L093E
jsr A2D
.byte $0E
.addr L0943
ldx #$01 ldx #$01
lda #$C4 lda #$C4
sta L0C8A sta L0C8A
@ -535,9 +476,7 @@ L0C54: lda L0938
sta L0C8A+1 sta L0C8A+1
L0C84: txa L0C84: txa
pha pha
jsr A2D A2D_CALL A2D_TEST_BOX, $1000, L0C8A
.byte $13
L0C8A: .addr L1000
bne L0CA6 bne L0CA6
clc clc
lda L0C8A lda L0C8A
@ -570,66 +509,30 @@ L0CE2: .byte $6E,$00,$38,$00
L0CE6: .byte $AC,$00,$13,$00 L0CE6: .byte $AC,$00,$13,$00
L0CEA: .byte $AC,$00,$27,$00 L0CEA: .byte $AC,$00,$27,$00
L0CEE: .byte $01,$01 L0CEE: .byte $01,$01
L0CF0: jsr A2D L0CF0: A2D_CALL A2D_SET_BOX1, L0960
.byte $04 A2D_CALL A2D_DRAW_RECT, L0CA9
.addr L0960 A2D_CALL $0A, L0CEE
jsr A2D A2D_CALL A2D_DRAW_RECT, L0CB1
.byte $12 A2D_CALL A2D_DRAW_RECT, L08C4
.addr L0CA9 A2D_CALL A2D_DRAW_RECT, L08CC
jsr A2D A2D_CALL A2D_SET_POS, L0CE2
.byte $0A A2D_CALL A2D_DRAW_TEXT, L0CB9
.addr L0CEE A2D_CALL A2D_SET_POS, L0CDE
jsr A2D A2D_CALL A2D_DRAW_TEXT, L0CC8
.byte $12 A2D_CALL A2D_SET_POS, L0CE6
.addr L0CB1 A2D_CALL A2D_DRAW_TEXT, L0CD6
jsr A2D A2D_CALL A2D_DRAW_RECT, L08D4
.byte $12 A2D_CALL A2D_SET_POS, L0CEA
.addr L08C4 A2D_CALL A2D_DRAW_TEXT, L0CDA
jsr A2D A2D_CALL A2D_DRAW_RECT, L08DC
.byte $12
.addr L08CC
jsr A2D
.byte $0E
.addr L0CE2
jsr A2D
.byte $19
.addr L0CB9
jsr A2D
.byte $0E
.addr L0CDE
jsr A2D
.byte $19
.addr L0CC8
jsr A2D
.byte $0E
.addr L0CE6
jsr A2D
.byte $19
.addr L0CD6
jsr A2D
.byte $12
.addr L08D4
jsr A2D
.byte $0E
.addr L0CEA
jsr A2D
.byte $19
.addr L0CDA
jsr A2D
.byte $12
.addr L08DC
jsr L0BBE jsr L0BBE
jsr L0BCB jsr L0BCB
jsr L0C0D jsr L0C0D
jsr L0D81 jsr L0D81
jsr L0D8E jsr L0D8E
jsr L0DA7 jsr L0DA7
jsr A2D A2D_CALL A2D_SET_FILL_MODE, L094A
.byte $07 A2D_CALL A2D_SET_PATTERN, L0905
.addr L094A
jsr A2D
.byte $08
.addr L0905
lda #$01 lda #$01
jmp L0DB4 jmp L0DB4
@ -640,34 +543,18 @@ L0D73: lda L090E
beq L0D8E beq L0D8E
jmp L0DA7 jmp L0DA7
L0D81: jsr A2D L0D81: A2D_CALL A2D_SET_POS, L091B
.byte $0E A2D_CALL A2D_DRAW_TEXT, L091F
.addr L091B
jsr A2D
.byte $19
.addr L091F
rts rts
L0D8E: jsr A2D L0D8E: A2D_CALL A2D_SET_POS, L0924
.byte $0E A2D_CALL A2D_DRAW_TEXT, L0914
.addr L0924 A2D_CALL A2D_SET_POS, L0924
jsr A2D A2D_CALL A2D_DRAW_TEXT, L0928
.byte $19
.addr L0914
jsr A2D
.byte $0E
.addr L0924
jsr A2D
.byte $19
.addr L0928
rts rts
L0DA7: jsr A2D L0DA7: A2D_CALL A2D_SET_POS, L092E
.byte $0E A2D_CALL A2D_DRAW_TEXT, L0932
.addr L092E
jsr A2D
.byte $19
.addr L0932
rts rts
L0DB4: pha L0DB4: pha
@ -690,19 +577,13 @@ L0DD1: pla
beq L0DE4 beq L0DE4
cmp #$02 cmp #$02
beq L0DEB beq L0DEB
L0DDD: jsr A2D L0DDD: A2D_CALL A2D_FILL_RECT, L08F4
.byte $11
.addr L08F4
rts rts
L0DE4: jsr A2D L0DE4: A2D_CALL A2D_FILL_RECT, L08E4
.byte $11
.addr L08E4
rts rts
L0DEB: jsr A2D L0DEB: A2D_CALL A2D_FILL_RECT, L08EC
.byte $11
.addr L08EC
rts rts
L0DF2: lda #$FF L0DF2: lda #$FF
@ -761,6 +642,7 @@ L0E16: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
L0F16: ldy #$00 L0F16: ldy #$00
L0F18: cmp #$0A L0F18: cmp #$0A
bcc L0F23 bcc L0F23
@ -778,4 +660,3 @@ L0F23: clc
rts rts
rts rts

149
desk.acc/puzzle.s
View File

@ -1,35 +1,17 @@
.org $800 .org $800
; da65 V2.16 - Git f5e9b401
; Created: 2017-09-10 19:55:15
; Input file: puzzle.bin
; Page: 1
.setcpu "65C02" .setcpu "65C02"
.include "apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "a2d.inc"
L0000 := $0000 L0000 := $0000
L0020 := $0020 L0020 := $0020
A2D := $4000
L4015 := $4015 L4015 := $4015
UNKNOWN_CALL := $8E00
MLI := $BF00
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
LCBANK1 := $C08B
AUXMOVE := $C311
XFER := $C314
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B
FLOAT := $EB93
FIN := $EC4A
FOUT := $ED34
jmp L0828 jmp L0828
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
@ -37,23 +19,24 @@ FOUT := $ED34
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00 .byte $00,$00,$00,$00
L0827: .byte $00
stash_stack: .byte $00
L0828: tsx L0828: tsx
stx L0827 stx stash_stack
sta ALTZPOFF sta ALTZPOFF
lda $C082 lda $C082
lda #$70 lda #$70
sta $3C sta STARTLO
lda #$08 lda #$08
sta $3D sta STARTHI
lda #$F6 lda #$F6
sta $3E sta ENDLO
lda #$12 lda #$12
sta $3F sta ENDHI
lda #$70 lda #$70
sta $42 sta DESTINATIONLO
lda #$08 lda #$08
sta $43 sta DESTINATIONHI
sec sec
jsr AUXMOVE jsr AUXMOVE
lda #$70 lda #$70
@ -71,7 +54,7 @@ L0828: tsx
L0862: sta ALTZPON L0862: sta ALTZPON
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
ldx L0827 ldx stash_stack
txs txs
rts rts
@ -115,12 +98,8 @@ L08B4: sta L08E7
sta L08B3 sta L08B3
rts rts
L08C4: jsr A2D L08C4: A2D_CALL A2D_QUERY_BOX, L08E7
.byte $3C A2D_CALL A2D_SET_BOX1, L0DB3
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
lda L08E7 lda L08E7
cmp #$33 cmp #$33
bne L08DA bne L08DA
@ -343,9 +322,7 @@ L0E02: .byte $50,$00,$00,$20,$80,$00,$00,$00
.byte $00,$00,$06,$50,$75,$7A,$7A,$6C .byte $00,$00,$06,$50,$75,$7A,$7A,$6C
.byte $65 .byte $65
L0E53: jsr L10A5 L0E53: jsr L10A5
jsr A2D A2D_CALL A2D_CREATE_WINDOW, L0DEC
.byte $38
.addr L0DEC
ldy #$0F ldy #$0F
L0E5E: tya L0E5E: tya
sta L094A,y sta L094A,y
@ -353,9 +330,7 @@ L0E5E: tya
bpl L0E5E bpl L0E5E
lda #$33 lda #$33
jsr L08B4 jsr L08B4
jsr A2D A2D_CALL $2B
.byte $2B
.addr L0000
L0E70: ldy #$03 L0E70: ldy #$03
L0E72: tya L0E72: tya
pha pha
@ -375,18 +350,14 @@ L0E79: lda L094B,y
lda L094B lda L094B
sta L094A sta L094A
stx L094B stx L094B
jsr A2D A2D_CALL A2D_GET_INPUT, L08DB
.byte $2A
.addr L08DB
lda L08DB lda L08DB
beq L0E70 beq L0E70
jsr L1262 jsr L1262
bcs L0E70 bcs L0E70
jsr L11BB jsr L11BB
jsr L12D2 jsr L12D2
L0EAE: jsr A2D L0EAE: A2D_CALL A2D_GET_INPUT, L08DB
.byte $2A
.addr L08DB
lda L08DB lda L08DB
cmp #$01 cmp #$01
bne L0EC1 bne L0EC1
@ -398,9 +369,7 @@ L0EC1: cmp #$03
jsr L0F30 jsr L0F30
jmp L0EAE jmp L0EAE
L0ECB: jsr A2D L0ECB: A2D_CALL A2D_QUERY_TARGET, L08DC
.byte $40
.addr L08DC
lda L08E1 lda L08E1
cmp #$33 cmp #$33
bne L0EDD bne L0EDD
@ -416,17 +385,15 @@ L0EDE: cmp #$02
L0EEA: cmp #$05 L0EEA: cmp #$05
bne L0F1B bne L0F1B
jsr A2D A2D_CALL A2D_CLOSE_CLICK, L08E6
.byte $43
.addr L08E6
lda L08E6 lda L08E6
beq L0EDD beq L0EDD
L0EF9: jsr A2D L0EF9: A2D_CALL A2D_DESTROY_WINDOW, L0D9C
.byte $39
.addr L0D9C
jsr UNKNOWN_CALL jsr UNKNOWN_CALL
.byte $0C .byte $0C
.addr L0000 .addr L0000
ldx #$09 ldx #$09
L0F07: lda L0F12,x L0F07: lda L0F12,x
sta L0020,x sta L0020,x
@ -442,9 +409,7 @@ L0F1B: cmp #$03
bne L0EDD bne L0EDD
lda #$33 lda #$33
sta L08DB sta L08DB
jsr A2D A2D_CALL A2D_DRAG_WINDOW, L08DB
.byte $44
.addr L08DB
ldx #$23 ldx #$23
jsr L0880 jsr L0880
rts rts
@ -458,9 +423,7 @@ L0F3C: rts
L0F3D: lda #$33 L0F3D: lda #$33
sta L08DB sta L08DB
jsr A2D A2D_CALL A2D_MAP_COORDS, L08DB
.byte $46
.addr L08DB
lda L08E1 lda L08E1
ora L08E3 ora L08E3
bne L0F91 bne L0F91
@ -616,30 +579,16 @@ L106E: jmp L12D2
rts rts
L1072: jsr A2D L1072: A2D_CALL A2D_SET_PATTERN, L0D72
.byte $08 A2D_CALL A2D_FILL_RECT, L0D6A
.addr L0D72 A2D_CALL A2D_SET_PATTERN, L0D7B
jsr A2D A2D_CALL A2D_SET_POS, L0D8D
.byte $11 A2D_CALL $0F, L0D91
.addr L0D6A
jsr A2D
.byte $08
.addr L0D7B
jsr A2D
.byte $0E
.addr L0D8D
jsr A2D
.byte $0F
.addr L0D91
jsr L11BB jsr L11BB
lda #$33 lda #$33
sta L08E7 sta L08E7
jsr A2D A2D_CALL A2D_QUERY_BOX, L08E7
.byte $3C A2D_CALL A2D_SET_BOX1, L0DB3
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
rts rts
L10A5: ldx #$00 L10A5: ldx #$00
@ -688,6 +637,7 @@ L10BB: .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
.byte $00,$00,$00,$00,$00,$00,$00,$00 .byte $00,$00,$00,$00,$00,$00,$00,$00
L11BB: ldy #$01 L11BB: ldy #$01
sty L0D9B sty L0D9B
dey dey
@ -709,17 +659,11 @@ L11D9: lda #$04
sta L0D9A sta L0D9A
L11E6: tya L11E6: tya
pha pha
jsr A2D A2D_CALL A2D_HIDE_CURSOR
.byte $26
.addr L0000
lda #$33 lda #$33
sta L08E7 sta L08E7
jsr A2D A2D_CALL A2D_QUERY_BOX, L08E7
.byte $3C A2D_CALL A2D_SET_BOX1, L0DB3
.addr L08E7
jsr A2D
.byte $04
.addr L0DB3
pla pla
tay tay
L1201: tya L1201: tya
@ -742,18 +686,14 @@ L1201: tya
sta L095E sta L095E
lda L092B,x lda L092B,x
sta L095F sta L095F
jsr A2D A2D_CALL A2D_DRAW_PATTERN, L095A
.byte $14
.addr L095A
pla pla
clc clc
adc L0D9B adc L0D9B
tay tay
cpy L0D9A cpy L0D9A
bcc L1201 bcc L1201
jsr A2D A2D_CALL A2D_SHOW_CURSOR
.byte $25
.addr L0000
rts rts
L1247: ldx #$80 L1247: ldx #$80
@ -845,4 +785,3 @@ L12E7: cmp #$04
bne L12E7 bne L12E7
L12F2: sta L0D95 L12F2: sta L0D95
rts rts