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

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

 opt 21¢¢wyn1 equ $80¢wyn2 equ $84¢wyn3 equ $88¢wyn4 equ $8c¢¢h1 equ $90¢h2 equ $91¢¢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¢¢mksn equ *¢* sin 360/64 - 1917A6.B8¢* cos 360/64 - FEC46D.24¢¢ lda #$c5 b8¢ sta wyn1¢ lda #$be a6¢ sta wyn1+1¢ lda #$6e 17¢ sta wyn1+2¢ lda #$24 19¢ sta wyn1+3¢¢ lda #$2a 24¢ sta wyn2¢ lda #$f0 6d¢ sta wyn2+1¢ lda #$64 c4¢ sta wyn2+2¢ lda #$fd fe¢ sta wyn2+3¢¢ ldx #7¢sn1 equ *¢ lsr wyn1+3¢ ror wyn1+2¢ ror wyn1+1¢ ror wyn1¢¢ lsr wyn2+3¢ ror wyn2+2¢ ror wyn2+1¢ ror wyn2¢¢ lda wyn1¢ sta ss1,x¢ lda wyn1+1¢ sta ss2,x¢ lda wyn1+2¢ sta ss3,x¢ lda wyn1+3¢ sta ss4,x¢¢ lda wyn2¢ sta cc1,x¢ lda wyn2+1¢ sta cc2,x¢ lda wyn2+2¢ sta cc3,x¢ lda wyn2+3¢ sta cc4,x¢¢ dex¢ bpl sn1¢¢* ---¢¢ ldx #0¢sn2 equ *¢ txa¢ eor #$ff¢ sta h1¢ sta h2¢¢ lda #0¢ sta wyn1¢ sta wyn1+1¢ sta wyn1+2¢ sta wyn1+3¢¢ ldy #0¢sn3 equ *¢ lda h1¢ lsr h1¢ bcs sn4¢¢ lda ss1,y¢ adc wyn1¢ sta wyn1¢ lda ss2,y¢ adc wyn1+1¢ sta wyn1+1¢ lda ss3,y¢ adc wyn1+2¢ sta wyn1+2¢ lda ss4,y¢ adc wyn1+3¢ sta wyn1+3¢¢sn4 equ *¢ iny¢ cpy #8¢ bne sn3¢¢ lda wyn1¢ sta sna1,x¢ lda wyn1+1¢ sta sna2,x¢ lda wyn1+2¢ sta sna3,x¢ lda wyn1+3¢ sta sna4,x¢¢* ---¢¢ lda #0¢ sta wyn1¢ sta wyn1+1¢ sta wyn1+2¢ sta wyn1+3¢¢ ldy #0¢sn5 equ *¢ lsr h2¢ bcs sn6¢¢ lda cc1,y¢ adc wyn1¢ sta wyn1¢ lda cc2,y¢ adc wyn1+1¢ sta wyn1+1¢ lda cc3,y¢ adc wyn1+2¢ sta wyn1+2¢ lda cc4,y¢ adc wyn1+3¢ sta wyn1+3¢¢sn6 equ *¢ iny¢ cpy #8¢ bne sn5¢¢ lda wyn1¢ sta csa1,x¢ lda wyn1+1¢ sta csa2,x¢ lda wyn1+2¢ sta csa3,x¢ lda wyn1+3¢ sta csa4,x¢¢ inx¢ beq sn7¢ jmp sn2¢¢sn7 equ *¢ rts¢¢¢ss1 dta d'        '¢ss2 dta d'        '¢ss3 dta d'        '¢ss4 dta d'        '¢¢cc1 dta d'        '¢cc2 dta d'        '¢cc3 dta d'        '¢cc4 dta d'        '¢