Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/rotat.arc/ROTAT.ASM

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¢