INSTALL18.S (994B)
1 lst off 2 3 org = $1000 4 userbuf = org+$100 5 rw18buf = org+$200 6 7 rw18 = $6900 8 user = $300 9 10 usrads = $B6DA 11 12 devnum = $BF30 13 devcnt = $BF31 14 devlst = $BF32 15 16 *------------------------------- 17 org org 18 *------------------------------- 19 * 20 * 2/5/87 by Roland Gustafsson 21 * 22 * Initialize 18 sector user routines! 23 * 24 start ldx #$4C 25 ldy #<user 26 lda #>user 27 stx usrads 28 sty usrads+1 29 sta usrads+2 30 31 * Move user routine to both banks 32 33 ldy userbuf 34 :0 lda userbuf,y 35 sta $C004 ;main mem 36 sta user-1,y 37 sta $C005 ;aux mem 38 sta user-1,y 39 dey 40 bne :0 41 42 * Move RW18 to aux mem 43 44 ldx #5 45 :1 lda rw18buf,y 46 :2 sta rw18,y 47 dey 48 bne :1 49 sta $C004 50 inc :1+2 51 inc :2+2 52 sta $C005 53 dex 54 bne :1 55 56 sta $C004 57 * 58 * Disconnect /RAM 59 * 60 ldy #0 61 :3 lda devlst,Y 62 and #$F0 63 cmp #$B0 64 beq :4 65 iny 66 cpy devcnt 67 beq :3 68 blt :3 69 bge :9 70 * 71 :4 lda devlst+1,Y 72 sta devlst,Y 73 iny 74 cpy devcnt 75 beq :4 76 blt :4 77 dec devcnt 78 lda devnum 79 bne :9 80 ldy devcnt 81 lda devlst,Y 82 sta devnum 83 :9 rts 84 85 *------------------------------- end of this file 86 sav install18