home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
rotat.arc
/
ROTAT.ASM
< prev
next >
Wrap
Assembly Source File
|
2000-06-03
|
12KB
|
2 lines
û≥∩⌠β⌠Õã°ŒØá≤≡Σ´Øé¢ûףβ≥≤ץβΘΣ·§áÃõõ¨¨é¢¢ opt %100101¢¢new1 equ $4000¢new2 equ $5400¢new3 equ $6800¢new4 equ $4000¢tabl equ $5e80¢tabl2 equ $3d00¢¢_std equ $ff-1¢prm equ $ff-1¢_lst equ $ef-1¢_alf equ $eb-1¢_k1 equ $e7-1¢_k2 equ $e3-1¢¢ttex equ $4000¢* tex_twst --- $8000-$c3ff¢lo2 equ $c400 $30¢hi2 equ $c480 $30¢lo2_ equ $fa00 $30¢hi2_ equ $fb00 $30¢lo3_ equ $fc00¢hi3_ equ $fd00¢¢dl equ $c500 $1a2¢scr equ $c700 $7f8¢inc1 equ $d800¢dec1 equ $e800¢¢ org $80¢p3 org *+2¢p0 org *+2¢p1 org *+2¢p2 org *+2¢¢p_0 org *+2¢p_1 org *+2¢p_2 org *+2¢p_3 org *+2¢p_4 org *+2¢p_5 org *+2¢p_6 org *+2¢p_7 org *+2¢p_8 org *+2¢p_9 org *+2¢p_a org *+2¢p_b org *+2¢p_c org *+2¢p_d org *+2¢p_e org *+2¢p_f org *+2¢p_10 org *+2¢¢bb org *+1¢bb2 org *+1¢bb2_ org *+1¢iley org *+1¢lft org *+1¢nr org *+1¢¢prmm equ $d0 ($30)¢conb equ $c0 ($10)¢¢ org $2000¢rn sei¢ lda #0¢ sta $d40e¢ lda #$fe¢ sta $d301¢¢ jsr mkdl¢ jsr init¢ jsr calc¢¢ lda <tabl¢ sta p0¢ lda >tabl¢ sta p0+1¢ lda <tabl2¢ sta p1¢ lda >tabl2¢ sta p1+1¢¢ ldy #0¢kal lda p0¢ sta lo2,y¢ lda p0+1¢ sta hi2,y¢ clc¢ lda p0¢ adc #180¢ sta p0¢ bcc *+4¢ inc p0+1¢ lda p1¢ sta lo2_,y¢ lda p1+1¢ sta hi2_,y¢ clc¢ lda p1¢ adc #180¢ sta p1¢ bcc *+4¢ inc p1+1¢ iny¢ cpy #$32¢ bne kal¢¢ lda <inc1¢ sta p0¢ lda >inc1¢ sta p0+1¢ ldy #0¢k2 lda p0¢ sta lo3,y¢ lda p0+1¢ sta hi3,y¢ lda p0¢ clc¢ adc lo4,y¢ sta p0¢ bcc *+4¢ inc p0+1¢ lda p0+1¢ clc¢ adc hi4,y¢ sta p0+1¢ iny¢ cpy #$11¢ bne k2¢¢ ldy #0¢ ldx #0¢int lda lo3,x¢ sta p_0,y¢ iny¢ lda hi3,x¢ sta p_0,y¢ iny¢ inx¢ cpx #$11¢ bne int¢¢ 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¢ jsr putd¢¢ lda #27 27¢ sta _py¢ lda #_k2¢ sta kk1¢¢ jsr makk¢¢ lda #_k2¢ sta bank¢¢ lda <inc1¢ sta p0¢ lda >inc1¢ sta p0+1¢ lda <dec1¢ sta p1¢ lda >dec1¢ sta p1+1¢¢ ldy #0¢k2_ lda p0¢ sta lo3,y¢ lda p0+1¢ sta hi3,y¢¢ lda p0¢ clc¢ adc lo4,y¢ sta p0¢ bcc *+4¢ inc p0+1¢ lda p0+1¢ clc¢ adc hi4,y¢ sta p0+1¢¢ lda p1¢ sta lo3_,y¢ lda p1+1¢ sta hi3_,y¢¢ lda p1¢ clc¢ adc lo4,y¢ sta p1¢ bcc *+4¢ inc p1+1¢ lda p1+1¢ clc¢ adc hi4,y¢ sta p1+1¢¢ iny¢ cpy #$11¢ bne k2_¢¢ ldy #0¢ tya¢kas sta tabb,y¢ iny¢ cpy #49¢ bne kas¢¢ ldx #$f¢ ldy #0¢mv1 lda inc1,y¢mv2 sta dec1,y¢ iny¢ bne mv1¢ inc mv1+2¢ inc mv2+2¢ dex¢ bpl mv1¢¢ lda <dec1¢ sta p0¢ lda >dec1¢ sta p0+1¢ ldy #0¢ptl lda (p0),y¢ cmp #$ee¢ beq decc¢ cmp #$ad¢ beq ldaa¢ inc p0¢ bne *+4¢ inc p0+1¢ jmp rs¢ldaa clc¢ lda #6¢ adc p0¢ sta p0¢ bcc *+4¢ inc p0+1¢ jmp rs¢decc lda #$ce¢ sta (p0),y¢ lda #3¢ clc¢ adc p0¢ sta p0¢ bcc *+4¢ inc p0+1¢rs lda p0+1¢ cmp >dec1+$ff4¢ bne ptl¢ lda p0¢ cmp <dec1+$ff4¢ bne ptl¢¢jjj equ *¢¢pp lda #_alf¢ sta $d301¢¢ ldx #0¢wps lda #0¢ pha¢ lda #_alf¢ sta $d301¢ lda lo2,x¢ sta p0¢ lda hi2,x¢ sta p0+1¢ pla¢ tay¢ lda (p0),y¢ sta prmm,x¢¢ lda lo2_,x¢ sta p0¢ lda hi2_,x¢ sta p0+1¢ lda (p0),y¢ beq spx¢ txa¢ sec¢ sbc #31¢ tay¢ lda lo3,y¢ sta aad+1¢ lda hi3,y¢ sta aad+2¢¢ lda #_k1¢ sta $d301¢¢ lda tabb,x¢ bne spx¢aad jsr $ffff¢ lda #$ff¢ sta tabb,x¢¢spx inx¢ cpx #48¢ bne wps¢¢ inc wps+1¢ inc wps+1¢ lda wps+1¢ cmp #181¢ bcc zpp¢ lda #0¢ sta wps+1¢¢ ldy #0¢ tya¢kas2 sta tabb,y¢ iny¢ cpy #49¢ bne kas2¢¢ ldy #1¢kaz lda lo3_,y¢ sta aad_+1¢ lda hi3_,y¢ sta aad_+2¢¢ lda #_k1¢ sta $d301¢aad_ jsr $ffff¢ iny¢ cpy #$10¢ bne kaz¢¢ jmp pp¢¢zpp lda #_k1¢ sta $d301¢ jsr $4000¢ lda #_k2¢ sta $d301¢ jsr $4000¢¢ jmp pp¢tabb org *+50¢¢kk1 brk¢ûϕβδσáπ∩Σσé¢makk lda <ttex¢ sta p0¢ lda >ttex¢ sta p0+1¢mcd2 lda #40¢ sta _px¢mcd1 equ *¢ 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¢¢ jsr spec¢¢ 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¢ jsr spec¢¢ ldx kk1¢ stx $d301¢¢ 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¢ sta (p_0),y¢ sta (p_1),y¢ sta (p_2),y¢ sta (p_3),y¢ sta (p_4),y¢ sta (p_5),y¢ sta (p_6),y¢ sta (p_7),y¢ sta (p_8),y¢ sta (p_9),y¢ sta (p_a),y¢ sta (p_b),y¢ sta (p_c),y¢ sta (p_d),y¢ sta (p_e),y¢ sta (p_f),y¢ sta (p_10),y¢ rts¢_py brk¢_px brk¢_flg brk¢_fl2 brk¢bank brk¢¢putd ldy #0¢ lda #$ad¢ jsr pag0¢ iny¢ lda <bank¢ jsr pag0¢ iny¢ lda >bank¢ jsr pag0¢ iny¢ lda #$8d¢ jsr pag0¢ iny¢ lda <$d301¢ jsr pag0¢ iny¢ lda >$d301¢ jsr pag0¢ iny¢ tya¢ clc¢ adc p_0¢ sta p_0¢ bcc *+4¢ inc p_0+1¢ tya¢ clc¢ adc p_1¢ sta p_1¢ bcc *+4¢ inc p_1+1¢ tya¢ clc¢ adc p_2¢ sta p_2¢ bcc *+4¢ inc p_2+1¢ tya¢ clc¢ adc p_3¢ sta p_3¢ bcc *+4¢ inc p_3+1¢ tya¢ clc¢ adc p_4¢ sta p_4¢ bcc *+4¢ inc p_4+1¢ tya¢ clc¢ adc p_5¢ sta p_5¢ bcc *+4¢ inc p_5+1¢ tya¢ clc¢ adc p_6¢ sta p_6¢ bcc *+4¢ inc p_6+1¢ tya¢ clc¢ adc p_7¢ sta p_7¢ bcc *+4¢ inc p_7+1¢ tya¢ clc¢ adc p_8¢ sta p_8¢ bcc *+4¢ inc p_8+1¢ tya¢ clc¢ adc p_9¢ sta p_9¢ bcc *+4¢ inc p_9+1¢ tya¢ clc¢ adc p_a¢ sta p_a¢ bcc *+4¢ inc p_a+1¢ tya¢ clc¢ adc p_b¢ sta p_b¢ bcc *+4¢ inc p_b+1¢ tya¢ clc¢ adc p_c¢ sta p_c¢ bcc *+4¢ inc p_c+1¢ tya¢ clc¢ adc p_d¢ sta p_d¢ bcc *+4¢ inc p_d+1¢ tya¢ clc¢ adc p_e¢ sta p_e¢ bcc *+4¢ inc p_e+1¢ tya¢ clc¢ adc p_f¢ sta p_f¢ bcc *+4¢ inc p_f+1¢ tya¢ clc¢ adc p_10¢ sta p_10¢ bcc *+4¢ inc p_10+1¢ rts¢pag0 sta (p_0),y¢ sta (p_1),y¢ sta (p_2),y¢ sta (p_3),y¢ sta (p_4),y¢ sta (p_5),y¢ sta (p_6),y¢ sta (p_7),y¢ sta (p_8),y¢ sta (p_9),y¢ sta (p_a),y¢ sta (p_b),y¢ sta (p_c),y¢ sta (p_d),y¢ sta (p_e),y¢ sta (p_f),y¢ sta (p_10),y¢ rts¢¢spec ldx #_lst¢ stx $d301¢adr7 lda new4¢ bne *+5¢ jmp sk1¢¢ pha¢ lda p0¢ sta p3¢ lda p0+1¢ sta p3+1¢¢ sty _fl2¢¢ tya¢ clc¢ adc p3¢ sta p3¢ bcc *+4¢ inc p3+1¢ inc p3¢ bne *+4¢ inc p3+1¢¢ ldx #_std¢ stx $d301¢¢ pla¢ tax¢ dex¢ lda pg0,x¢ sta adra+1¢ sta adra2+1¢ sta adra3+1¢ sta adra4+1¢ sta adra5+1¢ clc¢ adc #1¢ sta adra6+1¢¢ ldy #0¢ lda #$ee¢adra sta (p2),y¢ iny¢ lda p3¢adra2 sta (p2),y¢ iny¢ lda p3+1¢adra3 sta (p2),y¢ iny¢ tya¢ clc¢adra4 adc p2¢adra5 sta p2¢ bcc *+4¢adra6 inc p2+1¢¢ ldy _fl2¢sk1 inc adr7+1¢ bne *+5¢ inc adr7+2¢ ldx #_std¢ stx $d301¢ rts¢¢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¢¢lo3 dta l(0),l(337),l(373),l(373),l(313)¢ dta l(373),l(349),l(349),l(349)¢ dta l(325),l(229),l(205),l(145)¢ dta l(109),l(73),l(61),l(25)¢ dta a(0)¢¢hi3 dta h(0),h(337),h(373),h(373),h(313)¢ dta h(373),h(349),h(349),h(349)¢ dta h(325),h(229),h(205),h(145)¢ dta h(109),h(73),h(61),h(25)¢ dta a(0)¢¢lo4 dta l(337+6),l(373+6),l(373+6),l(313+6)¢ dta l(373+6),l(349+6),l(349+6),l(349+6)¢ dta l(325+6),l(229+6),l(205+6),l(145+6)¢ dta l(109+6),l(73+6),l(61+6),l(25+6)¢ dta a(0)¢hi4 dta h(337+6),h(373+6),h(373+6),h(313+6)¢ dta h(373+6),h(349+6),h(349+6),h(349+6)¢ dta h(325+6),h(229+6),h(205+6),h(145+6)¢ dta h(109+6),h(73+6),h(61+6),h(25+6)¢ dta a(0)¢¢pg0 dta b(p_0),b(p_1),b(p_2),b(p_3)¢ dta b(p_4),b(p_5),b(p_6),b(p_7)¢ dta b(p_8),b(p_9),b(p_a),b(p_b)¢ dta b(p_c),b(p_d),b(p_e),b(p_f)¢ dta b(p_10)¢¢lo1 dta c'
$Nêאå è④®x2µαם⌠HÆ∮Vס:גn(ΓóîvÇèñ∧⑧R¼⑥Éəñ^⑧ΓÜ'¢hi1 dta c' ⇧⇧⇩⇩⇨⇨⇦❎╱╱◆✓ ♪⓪①③④⑥⑧⑨!#%''*,.1368;>@C'¢¢ org $2e0¢ dta a(rn)¢¢ end¢