mirror of
https://github.com/mi57730/a2d.git
synced 2024-09-28 09:55:03 +00:00
Puzzle/Date - A2D call sites
This commit is contained in:
parent
275255db02
commit
62b5695d35
@ -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
|
||||||
|
259
desk.acc/date.s
259
desk.acc/date.s
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user