mirror of
https://github.com/jmechner/Prince-of-Persia-Apple-II.git
synced 2025-01-14 10:30:39 +00:00
87 lines
994 B
ArmAsm
87 lines
994 B
ArmAsm
|
lst off
|
||
|
|
|
||
|
|
org = $1000
|
||
|
|
userbuf = org+$100
|
||
|
|
rw18buf = org+$200
|
||
|
|
|
||
|
|
rw18 = $6900
|
||
|
|
user = $300
|
||
|
|
|
||
|
|
usrads = $B6DA
|
||
|
|
|
||
|
|
devnum = $BF30
|
||
|
|
devcnt = $BF31
|
||
|
|
devlst = $BF32
|
||
|
|
|
||
|
|
*-------------------------------
|
||
|
|
org org
|
||
|
|
*-------------------------------
|
||
|
|
*
|
||
|
|
* 2/5/87 by Roland Gustafsson
|
||
|
|
*
|
||
|
|
* Initialize 18 sector user routines!
|
||
|
|
*
|
||
|
|
start ldx #$4C
|
||
|
|
ldy #<user
|
||
|
|
lda #>user
|
||
|
|
stx usrads
|
||
|
|
sty usrads+1
|
||
|
|
sta usrads+2
|
||
|
|
|
||
|
|
* Move user routine to both banks
|
||
|
|
|
||
|
|
ldy userbuf
|
||
|
|
:0 lda userbuf,y
|
||
|
|
sta $C004 ;main mem
|
||
|
|
sta user-1,y
|
||
|
|
sta $C005 ;aux mem
|
||
|
|
sta user-1,y
|
||
|
|
dey
|
||
|
|
bne :0
|
||
|
|
|
||
|
|
* Move RW18 to aux mem
|
||
|
|
|
||
|
|
ldx #5
|
||
|
|
:1 lda rw18buf,y
|
||
|
|
:2 sta rw18,y
|
||
|
|
dey
|
||
|
|
bne :1
|
||
|
|
sta $C004
|
||
|
|
inc :1+2
|
||
|
|
inc :2+2
|
||
|
|
sta $C005
|
||
|
|
dex
|
||
|
|
bne :1
|
||
|
|
|
||
|
|
sta $C004
|
||
|
|
*
|
||
|
|
* Disconnect /RAM
|
||
|
|
*
|
||
|
|
ldy #0
|
||
|
|
:3 lda devlst,Y
|
||
|
|
and #$F0
|
||
|
|
cmp #$B0
|
||
|
|
beq :4
|
||
|
|
iny
|
||
|
|
cpy devcnt
|
||
|
|
beq :3
|
||
|
|
blt :3
|
||
|
|
bge :9
|
||
|
|
*
|
||
|
|
:4 lda devlst+1,Y
|
||
|
|
sta devlst,Y
|
||
|
|
iny
|
||
|
|
cpy devcnt
|
||
|
|
beq :4
|
||
|
|
blt :4
|
||
|
|
dec devcnt
|
||
|
|
lda devnum
|
||
|
|
bne :9
|
||
|
|
ldy devcnt
|
||
|
|
lda devlst,Y
|
||
|
|
sta devnum
|
||
|
|
:9 rts
|
||
|
|
|
||
|
|
*------------------------------- end of this file
|
||
|
|
sav install18
|