Transactor

home *** CD-ROM | disk | FTP | other *** search

/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / move & fill (.txt) < prev next >

Wrap

Commodore BASIC | 1988-01-01 | 2.8 KB | 211 lines

0 rem move & fill (june 18/85) : 1 : 2 rem 2 statements, 0 functions 3 : 4 rem keyword characters: 8 5 : 6 rem keyword routine line ser # 7 rem move mov 8174 118 8 rem fill stuf 8504 119 9 : 10 rem u/mvmem (8250/120) 11 rem u/memfil (8416/121) 12 : 13 rem ================================ 14 : 133 .asc "mov[197]fil[204]" 1133 .word mov-1,stuf-1 8174 mov jsr $ad8a 8176 jsr $b7f7 8178 sta mvstrt+1 8180 sty mvstrt 8182 jsr $79 8184 pha 8186 jsr $73 8188 jsr $ad8a 8190 jsr $b7f7 8192 pha 8194 tya 8196 pha 8198 jsr $aefd 8200 jsr $ad8a 8202 sta mvdest+1 8204 sty mvdest 8206 pla 8208 tay 8210 pla 8212 tax 8214 pla 8216 cmp #";" 8218 beq mvc1 8220 stx mvend+1 8222 sty mvend 8224 cmp #"," 8226 beq mvm2 8228 jmp $af08 8230 mvc1 clc 8232 tya 8234 adc mvstrt 8236 sta mvend 8238 txa 8240 adc mvstrt+1 8242 sta mvend+1 8244 bcc mvmem 8246 jmp $b248 8248 ; 8250 mvmem lda mvend 8252 bne mvm1 8254 dec mvend+1 8256 mvm1 dec mvend 8258 ; 8260 mvm2 lda mvstrt 8262 sta $22 8264 lda mvdest 8266 sta $24 8268 lda mvend+1 8270 cmp mvstrt+1 8272 bcc mvm5 8274 bne mvm3 8276 lda mvend 8278 cmp mvstrt 8280 bcc mvm5 8282 mvm3 lda mvdest+1 8284 cmp mvstrt+1 8286 bcc dmvmem 8288 bne umvmem 8290 lda $24 8292 cmp $22 8294 beq mvm5 8296 bcc dmvmem 8298 umvmem lda mvend 8300 sec 8302 sbc mvstrt 8304 tay 8306 lda mvend+1 8308 sbc mvstrt+1 8310 pha 8312 clc 8314 adc mvstrt+1 8316 sta $23 8318 pla 8320 clc 8322 adc mvdest+1 8324 sta $25 8326 mvm4 lda ($22),y 8328 sta ($24),y 8330 dey 8332 cpy #$ff 8334 bne mvm4 8336 lda $23 8338 cmp mvstrt+1 8340 beq mvm5 8342 dec $23 8344 dec $25 8346 jmp mvm4 8348 mvm5 rts 8350 dmvmem lda mvstrt+1 8352 sta $23 8354 lda mvdest+1 8356 sta $25 8358 lda mvend 8360 sec 8362 sbc mvstrt 8364 sta t2 8366 inc t2 8368 lda mvend+1 8370 sbc mvstrt+1 8372 ldy #0 8374 tax 8376 beq mvm7 8378 mvm6 lda ($22),y 8380 sta ($24),y 8382 iny 8384 bne mvm6 8386 inc $23 8388 inc $25 8390 dex 8392 bne mvm6 8394 mvm7 lda ($22),y 8396 sta ($24),y 8398 iny 8400 cpy t2 8402 bne mvm7 8404 rts 8406 ; 8408 mvstrt .word 0 8410 mvdest .word 0 8412 mvend .word 0 8414 ; 8416 memfil clc 8418 .byte $24 8420 memf1 sec 8422 sty t3 8424 sta t4 8426 bcc memf3 8428 memf2 lda $14 8430 sbc t3 8432 sta $14 8434 lda $15 8436 sbc t4 8438 sta $15 8440 bcc memf7 8442 inc $14 8444 bne memf3 8446 inc $15 8448 memf3 lda $14 8450 clc 8452 adc t3 8454 tay 8456 lda $15 8458 adc t4 8460 bcc memf4 8462 bne memf8 8464 tya 8466 bne memf8 8468 memf4 txa 8470 ldy #0 8472 ldx $15 8474 beq memf6 8476 memf5 sta (t3),y 8478 iny 8480 bne memf5 8482 inc t4 8484 dex 8486 bne memf5 8488 memf6 cpy $14 8490 beq memf7 8492 sta (t3),y 8494 iny 8496 bne memf6 8498 memf7 rts 8500 memf8 jmp $b248 8502 ; 8504 stuf jsr $ad8a 8506 jsr $b7f7 8508 pha 8510 tya 8512 pha 8514 jsr $79 8516 pha 8518 jsr $73 8520 jsr $ad8a 8522 jsr $b7f7 8524 jsr $79 8526 beq stuf1 8528 jsr $aefd 8530 jsr $b79e 8532 .byte $2c 8534 stuf1 ldx #0 8536 pla 8538 tay 8540 pla 8542 sta t3 8544 pla 8546 sta t4 8548 cpy #"," 8550 beq memf2 8552 cpy #";" 8554 beq memf3 8556 jmp $af08 8558 ;