Syzygy Magazine 5/Syzygy_Magazine_5_Expanded_1998___pl_Disk_1_of_2_Side_A.atr/stuff.arc/FASTCOPY.ARC/FASTCOPY.ASM

Assembly Source File | 1988-09-01 | 1KB | 1 lines

* Fast copy maker /4 Syzygy #5/¢* idea: Jurgi/Fld, code: Charlie/NG¢¢* Const.¢¢pic equ $2000 (picture & screen)¢¢sx equ $20 (size x)|this means¢sy equ $40 (size y)|ZM4 picture¢¢ldx equ $a2¢stx equ $8e¢inx equ $e8¢rts equ $60¢¢* Code¢¢     stx putb+1¢     sty putb+2¢     lda #ldx¢     jsr putb¢     lda #0¢     sta byte¢     jsr putb¢     ldx #sx¢     ldy #sy¢_p1  jsr scan¢     bcc _p2¢     lda #stx¢     jsr putb¢     lda scan+1¢     jsr putb¢     lda scan+2¢     jsr putb¢     lda >_p1+2¢     pha¢     lda <_p1+2¢     pha¢     bne _inc (jmp)¢_p2  lda byte¢     beq _p3¢     lda #inx¢     jsr putb¢     bne _p1  (jmp)¢_p3  lda #rts¢     jsr putb¢     ldx putb+1¢     ldy putb+2¢     rts¢¢scan lda pic¢     cmp byte¢     bne _inc¢     rts¢_inc clc¢     inc scan+1¢     bne *+5¢     inc scan+2¢     dex¢     bne scan¢     ldx #sx¢     dey¢     bne scan¢     ldy #sy¢     lda <pic¢     sta scan+1¢     lda >pic¢     sta scan+2¢     inc byte¢     rts¢¢putb sta $ffff¢     inc putb+1¢     bne *+5¢     inc putb+2¢     rts¢¢byte brk¢¢ end of lib.¢