Serious Magazine 11/Serious_Magazine_11_2002_Dial_pl_Disk_2_of_2_Side_B.atr/arytm17.lzh/ARYTM17.ASM

Assembly Source File | 2023-02-26 | 2KB | 1 lines

 opt 21¢¢wyn1 equ $80¢wyn2 equ $84¢wyn3 equ $88¢wyn4 equ $8c¢¢x equ $a0¢y equ $a3¢z equ $a6¢alfa equ $a9¢¢sna1 equ $a000¢sna2 equ $a100¢sna3 equ $a200¢sna4 equ $a300¢csa1 equ $a400¢csa2 equ $a500¢csa3 equ $a600¢csa4 equ $a700¢¢ org $9000¢¢rotate equ *¢ lda alfa¢ bne rt0¢ jmp koniec¢rt0 equ *¢ cmp #1¢ bne rt1¢¢ lda z+2¢ sta wyn4+2¢ eor #$80¢ sta wyn2+2¢ lda y+2¢ sta wyn1+2¢ sta wyn3+2¢ jmp rt2¢¢rt1 equ *¢ lda z+2¢ sta wyn2+2¢ sta wyn4+2¢ lda y+2¢ sta wyn1+2¢ eor #$80¢ sta wyn3+2¢¢rt2 equ *¢ ldx y¢ ldy y+1¢ clc¢ lda csa2,x¢ adc csa1,y¢ lda csa3,x¢ adc csa2,y¢ lda csa4,x¢ adc csa3,y¢ sta wyn1¢ lda csa4,y¢ adc #0¢ sta wyn1+1¢¢ lda sna2,x¢ adc sna1,y¢ lda sna3,x¢ adc sna2,y¢ lda sna4,x¢ adc sna3,y¢ sta wyn3¢ lda sna4,y¢ adc #0¢ sta wyn3+1¢¢ ldx z¢ ldy z+1¢ lda sna2,x¢ adc sna1,y¢ lda sna3,x¢ adc sna2,y¢ lda sna4,x¢ adc sna3,y¢ sta wyn2¢ lda sna4,y¢ adc #0¢ sta wyn2+1¢¢ lda csa2,x¢ adc csa1,y¢ lda csa3,x¢ adc csa2,y¢ lda csa4,x¢ adc csa3,y¢ sta wyn4¢ lda csa4,y¢ adc #0¢ sta wyn4+1¢¢* -¢¢ lda wyn1+2¢ cmp wyn2+2¢ bne rt3¢¢ sta y+2¢ clc¢ lda wyn1¢ adc wyn2¢ sta y¢ lda wyn1+1¢ adc wyn2+1¢ sta y+1¢ jmp rt5¢¢rt3 equ *¢ sec¢ lda wyn1¢ sbc wyn2¢ sta y¢ lda wyn1+1¢ sbc wyn2+1¢ bcc rt4¢ sta y+1¢ lda wyn1+2¢ sta y+2¢ jmp rt5¢¢rt4 equ *¢ sec¢ lda wyn2¢ sbc wyn1¢ sta y¢ lda wyn2+1¢ sbc wyn1+1¢ sta y+1¢ lda wyn2+2¢ sta y+2¢¢rt5 equ *¢ lda wyn3+2¢ cmp wyn4+2¢ bne rt6¢¢ sta z+2¢ clc¢ lda wyn3¢ adc wyn4¢ sta z¢ lda wyn3+1¢ adc wyn4+1¢ sta z+1¢ jmp koniec¢¢rt6 equ *¢ sec¢ lda wyn3¢ sbc wyn4¢ sta z¢ lda wyn3+1¢ sbc wyn4+1¢ bcc rt7¢ sta z+1¢ lda wyn3+2¢ sta z+2¢ jmp koniec¢¢rt7 equ *¢ sec¢ lda wyn4¢ sbc wyn3¢ sta z¢ lda wyn4+1¢ sbc wyn3+1¢ sta z+1¢ lda wyn4+2¢ sta z+2¢¢koniec equ *¢ rts¢¢