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

Calc: more procs and comments

Browse Source
This commit is contained in:
Joshua Bell 2017-09-08 08:41:51 -07:00
parent 73ab8e6714
commit f91394cfbe
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
desk.acc/calculator.s
View File

@ -76,26 +76,29 @@ call_init:
zp_stash := $20 zp_stash := $20
;; Copy the following routine to ZP and call it
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
ldx #(routine_end - routine) ldx #(routine_end - routine)
L0854: lda routine,x : lda routine,x
sta zp_stash,x sta zp_stash,x
dex dex
bpl L0854 bpl :-
jsr zp_stash jsr zp_stash
lda ROMIN2 lda ROMIN2
lda #window_id lda #window_id
jsr L089E jsr L089E
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
bit L089D bit L089D
bmi L0878 bmi skip
jsr UNKNOWN_CALL jsr UNKNOWN_CALL
.byte $0C .byte $0C
.addr 0 .addr 0
L0878: lda #0 skip: lda #0
sta L089D sta L089D
lda ROMIN2 lda ROMIN2
A2D_CALL $3C, L08D1 A2D_CALL $3C, L08D1
@ -162,7 +165,7 @@ state: .byte 0
.endproc .endproc
L08D1: .byte $00 L08D1: .byte $00
.addr $0C6E .addr L0C6E
L08D4: .byte $80 L08D4: .byte $80