DRAZMOVER.S (1010B)
1 * drazmover 2 org = $6000 3 lst off 4 *------------------------------- 5 dum $00 6 7 dest ds 2 8 source ds 2 9 endsourc ds 2 10 11 dend 12 *------------------------------- 13 dum org 14 15 mover ds $100 16 17 rw18buf ds $500 18 endrwbuf 19 hiresbuf ds $1000 20 endhrbuf 21 drazbuf ds $1500 22 enddrbuf 23 endfile dend 24 *------------------------------- 25 hires = $8400 ;blast18 = $9200 26 draz = $800 27 rw18 = $d000 28 *------------------------------- 29 org org 30 *------------------------------- 31 * move rw18 to l.c. 32 33 sta $c081 ;read ROM--write RAM 34 35 lda #>rw18 36 ldx #>rw18buf 37 ldy #>endrwbuf 38 jsr movemem 39 40 * move draz and hires 41 * Draz first! 42 43 lda #>draz 44 ldx #>drazbuf 45 ldy #>enddrbuf 46 jsr movemem 47 48 lda #>hires 49 ldx #>hiresbuf 50 ldy #>endhrbuf 51 jsr movemem 52 53 * All done 54 55 jmp draz 56 *------------------------------- 57 movemem sta dest+1 58 stx source+1 59 sty endsourc+1 60 61 ldy #0 62 sty dest 63 sty source 64 sty endsourc 65 66 :loop lda (source),y 67 sta (dest),y 68 69 iny 70 bne :loop 71 72 inc source+1 73 inc dest+1 74 75 lda source+1 76 cmp endsourc+1 77 bne :loop 78 79 rts 80 *------------------------------- 81 eof