home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
twirl.arc
/
TWIRL.ASM
< prev
next >
Wrap
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¢