Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/twirl.arc/TWIRL.ASM

Assembly Source File | 2000-06-03 | 5KB | 2 lines

û⌠≈Θ≥∮Õã°ŒØá≤≡Σ´Øé¢ûףβ≥≤ץβΘΣ·§áÀõõ¨¨é¢¢     opt %100101¢¢new1 equ $4000¢new2 equ $5400¢new3 equ $6800¢tabl equ $4000¢¢_std equ $ff-1¢prm  equ $ff-1¢_alf equ $eb-1 :tabz¢_k1  equ $e7-1 :code¢_k2  equ $e3-1 :code¢¢lo   equ $2000¢hi   equ $2040¢ttex equ $4000¢sin  equ $2300¢dl   equ $2500¢scr  equ $f000¢¢     org $80¢p0   org *+2¢p1   org *+2¢p2   org *+2¢¢bb   org *+1¢bb2  org *+1¢bb2_ org *+1¢iley org *+1¢lft  org *+1¢nr   org *+1¢¢prm2 equ $a0 ($30)¢prmm equ $d0 ($30)¢conb equ $90 ($10)¢¢     org $3000¢rn   sei¢     inc $d40e¢     lda #_std¢     sta $d301¢¢     jsr mkdl¢     jsr init¢     jsr calc¢¢     lda <tabl¢     sta p0¢     lda >tabl¢     sta p0+1¢     ldy #0¢lcz  lda p0¢     sta lo,y¢     lda p0+1¢     sta hi,y¢     lda p0¢     clc¢     adc #180¢     sta p0¢     bcc *+4¢     inc p0+1¢     iny¢     cpy #49¢     bne lcz¢¢     lda <scr¢     sta p2¢     lda >scr¢     sta p2+1¢     lda #0¢     sta nr¢mkcd lda #25¢     sta _py¢kka  lda #_k1¢     sta kk1¢     jsr makk¢     lda #52-25¢     sta _py¢     lda #_k2¢     sta kk1¢     jsr makk¢¢pp   lda #_k1¢     sta $d301¢     jsr $4000¢     lda #_k2¢     sta $d301¢     jsr $4000¢¢     lda #_alf¢     sta $d301¢¢     ldx #0¢wps  lda sin,x¢     clc¢wps2 adc sin+20,x¢     lsr @¢     pha¢     lda lo,x¢     sta p0¢     lda hi,x¢     sta p0+1¢     pla¢     tay¢     lda (p0),y¢     clc¢     sta prmm,x¢     inx¢     cpx #48¢     bne wps¢¢     inc wps+1¢     inc wps2+1¢     jmp pp¢¢kk1  brk¢ûϕβδσáπ∩Σσé¢makk lda <ttex¢     sta p0¢     lda >ttex¢     sta p0+1¢mcd2 lda #40¢     sta _px¢mcd1 ldy #0¢     ldx #prm¢     stx $d301¢adr1 lda new1¢     ldx kk1¢     stx $d301¢     cmp nr¢     beq sikp¢     sta nr¢     lda #$a4¢     sta (p0),y¢     lda nr¢     clc¢     adc #prmm¢     iny¢     sta (p0),y¢     iny¢     jmp noc¢sikp sta nr¢noc  lda #$be¢     sta (p0),y¢     iny¢     ldx nr¢     lda lo1,x¢     sta p1¢     lda hi1,x¢     sta p1+1¢     ldx #prm¢     stx $d301¢adr2 lda new2¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢adr5 lda new3¢     clc¢     adc p1+1¢     sta p1+1¢     ldx kk1¢     stx $d301¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #$b5¢     sta (p0),y¢     iny¢     lda #conb¢     sta (p0),y¢     iny¢     ldx #prm¢     stx $d301¢adr3 lda new1+1¢     ldx kk1¢     stx $d301¢     cmp nr¢     beq okje¢     sta nr¢     lda #$a4¢     sta (p0),y¢     lda nr¢     clc¢     adc #prmm¢     iny¢     sta (p0),y¢     iny¢     jmp noc2¢okje sta nr¢noc2 ldx nr¢     lda lo1,x¢     sta p1¢     lda hi1,x¢     sta p1+1¢     ldx #prm¢     stx $d301¢adr4 lda new2+1¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢adr6 lda new3+1¢     clc¢     adc p1+1¢     sta p1+1¢     ldx kk1¢     stx $d301¢     lda #$19¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #$8d¢     sta (p0),y¢     iny¢     lda p2¢     sta (p0),y¢     iny¢     lda p2+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     inc p2¢     bne *+4¢     inc p2+1¢     lda #2¢     clc¢     adc adr1+1¢     sta adr1+1¢     bcc *+5¢     inc adr1+2¢     lda #2¢     clc¢     adc adr2+1¢     sta adr2+1¢     bcc *+5¢     inc adr2+2¢     lda #2¢     clc¢     adc adr3+1¢     sta adr3+1¢     bcc *+5¢     inc adr3+2¢     lda #2¢     clc¢     adc adr4+1¢     sta adr4+1¢     bcc *+5¢     inc adr4+2¢     lda #2¢     clc¢     adc adr5+1¢     sta adr5+1¢     bcc *+5¢     inc adr5+2¢     lda #2¢     clc¢     adc adr6+1¢     sta adr6+1¢     bcc *+5¢     inc adr6+2¢     dec _px¢     beq *+5¢     jmp mcd1¢     dec _py¢     beq *+5¢     jmp mcd2¢     ldy #0¢     lda #$60¢     sta (p0),y¢     rts¢_py  brk¢_px  brk¢¢init lda $d40b¢     bne *-3¢     lda #$22¢     sta $d400¢     lda #$40¢     sta $d01b¢     lda <dl¢     ldy >dl¢     sta $d402¢     sty $d403¢     rts¢¢mkdl lda #$70¢     sta dl¢     lda #$70¢     sta dl+1¢     lda <dl+2¢     sta p0¢     lda >dl+2¢     sta p0+1¢     lda <scr¢     sta p1¢     lda >scr¢     sta p1+1¢     ldx #51¢rb1  ldy #0¢     lda #$4f¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #0¢     sta (p0),y¢     iny¢     lda #$4f¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #0¢     sta (p0),y¢     clc¢     lda #8¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     clc¢     lda #40¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     dex¢     bpl rb1¢     ldy #0¢     lda #$41¢     sta (p0),y¢     iny¢     lda <dl¢     sta (p0),y¢     iny¢     lda >dl¢     sta (p0),y¢     rts¢¢calc ldy #0¢kkj  tya¢     asl @¢     asl @¢     asl @¢     asl @¢     sta conb,y¢     iny¢     cpy #$10¢     bne kkj¢     ldy #0¢     tya¢clr  sta prmm,y¢     iny¢     cpy #$30¢     bne clr¢     ldy #0¢k    lda hi1,y¢     clc¢     adc #$80¢     sta hi1,y¢     iny¢     cpy #48¢     bne k¢     rts¢lo1  dta c'
$Nêאåè④®x2µαם⌠HÆ∮Vס:גn(ΓóîvÇèñ∧⑧R¼⑥Éəñ^⑧ΓÜ'¢hi1  dta c'⇧⇧⇩⇩⇨⇨⇦❎╱╱◆✓    ♪⓪①③④⑥⑧⑨!#%''*,.1368;>@C'¢¢     org $2e0¢     dta a(rn)¢¢     end¢