Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/maprot.arc/MAPROT.ASM

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

û´ϕβ≡¡≥∩⌠β⌠Θ∈º´é¢ûףβ≥≤βΘΣ≤§¨õõ¨¨é¢¢     opt %100101¢new1 equ $4d40¢new2 equ $5d80¢new3 equ $3d00¢new4 equ $6dc0¢tabl equ $5e80¢tabl2 equ $3d00¢¢_std equ $ff-1¢prm  equ $ff-1¢_lst equ $ff-1¢_alf equ $eb-1¢_k1  equ $e7-1¢_k2  equ $e3-1¢¢_k3  equ $cf-1¢_k4  equ $cb-1¢_k5  equ $c7-1¢_c3  equ $c3-1¢_c4  equ $af-1¢_c5  equ $ab-1¢_m1  equ $a7-1¢¢ttex equ $4000¢¢* tex_twst --- $8000-$c3ff¢¢scr  equ $700 $1040¢scr2 equ $1750 $820¢map_ equ $4000¢map  equ scr¢texh equ $c400 $200¢scr3 equ $c600 $820¢¢nak1 equ scr2+1040+14¢nak2 equ scr3+1040+14¢¢logo equ $3000¢¢inc1 equ $d800¢dec1 equ $e800¢dl   equ $f800 $1a2¢dl2  equ $fa00 $1a2¢texl equ $fc00 $200¢lo2  equ $fe00 $32¢hi2  equ $fe32 $32¢lo2_ equ $fe64 $32¢hi2_ equ $fe96 $32¢lo3_ equ $fec8 $11¢hi3_ equ $fed9 $11¢¢     org $80¢p3   org *+2¢p0   org *+2¢p1   org *+2¢p2   org *+2¢¢h0   org *+2¢h1   org *+2¢h2   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¢off  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¢¢     jsr makc¢     jsr mkc2¢     jsr mknak¢¢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¢¢flag lda #0¢     bne __2¢¢     inc flag+1¢     lda $d40b¢     bne *-3¢     lda <dl2¢     sta $d402¢     lda >dl2¢     sta $d403¢     lda #_k3¢     sta $d301¢     jsr $4000¢     lda #_k4¢     sta $d301¢     jsr $4000¢     lda #_k5¢     sta $d301¢     jsr $4000¢¢     lda stat ;shft¢     beq enda¢¢     lda #_m1¢     sta $d301¢__x2 ldx #0¢     jsr $4000¢     jmp enda¢¢__2  dec flag+1¢     lda $d40b¢     bne *-3¢     lda <dl¢     sta $d402¢     lda >dl¢     sta $d403¢     lda #_c3¢     sta $d301¢     jsr $4000¢     lda #_c4¢     sta $d301¢     jsr $4000¢     lda #_c5¢     sta $d301¢     jsr $4000¢¢     lda stat ;shft¢     beq enda¢¢     lda #_m1¢     sta $d301¢_xx1 ldx #0¢     jsr $6000¢¢enda inc off¢     inc off¢¢     lda $d20f¢     and #8¢     bne git¢¢     lda #1¢     sta stat¢git  lda #41¢     sta _xx1+1¢     jmp pp¢tabb org *+50¢¢kk1  brk¢stat brk¢¢ûϕδπ∩Σσ½≥σ≤⌠é¢mkc2 lda <scr¢     sta p2¢     lda >scr¢     sta p2+1¢     lda #0¢     sta nr¢mkcd lda #26¢     sta _py¢kka  lda #_k1¢     sta kk1¢     jsr makk¢     jsr putd¢     lda #26¢     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¢     rts¢¢ûϕβδσáπ∩Σσé¢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 #$b9¢     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 #$8d¢     sta (p0),y¢     iny¢     lda p2¢     sta (p0),y¢     iny¢     lda p2+1¢     sta (p0),y¢     iny¢     inc p2¢     bne *+4¢     inc p2+1¢     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 #$b9¢     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 <scr2¢     sta p1¢     lda >scr2¢     sta p1+1¢     jsr makr¢     lda <dl¢     sta (p0),y¢     iny¢     lda >dl¢     sta (p0),y¢¢     lda #$70¢     sta dl2¢     lda #$70¢     sta dl2+1¢     lda <dl2+2¢     sta p0¢     lda >dl2+2¢     sta p0+1¢     lda <scr3¢     sta p1¢     lda >scr3¢     sta p1+1¢     jsr makr¢     lda <dl2¢     sta (p0),y¢     iny¢     lda >dl2¢     sta (p0),y¢     rts¢¢makr 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¢     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¢     ldy #0¢czs  lda wzr,y¢     pha¢     and #$f¢     sta texl,y¢     sta texl+$100,y¢     pla¢     and #$f0¢     sta texh,y¢     sta texh+$100,y¢     iny¢     bne czs¢     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¢     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'¢¢makc lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     lda <map¢     sta h1¢     lda >map¢     sta h1+1¢     lda <scr2¢     sta h2¢     lda >scr2¢     sta h2+1¢     lda #17¢     sta bb¢     ldx #_k3¢     stx $d301¢     jsr makz¢     jsr spe2¢     lda #17¢     sta bb¢     ldx #_k4¢     stx $d301¢     lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     jsr makz¢     jsr spe2¢     lda #17¢     sta bb¢     ldx #_k5¢     stx $d301¢     lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     jsr makz¢     jsr spe3¢¢     lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     lda <map¢     sta h1¢     lda >map¢     sta h1+1¢     lda <scr3¢     sta h2¢     lda >scr3¢     sta h2+1¢     lda #17¢     sta bb¢     ldx #_c3¢     stx $d301¢     jsr makz¢     jsr spe2¢     lda #17¢     sta bb¢     ldx #_c4¢     stx $d301¢     lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     jsr makz¢     jsr spe2¢     lda #17¢     sta bb¢     ldx #_c5¢     stx $d301¢     lda <map_¢     sta h0¢     lda >map_¢     sta h0+1¢     jsr makz¢     jsr spe3¢     rts¢spe2 lda #15¢     sta cn2+1¢     lda #1¢     sta bb¢     jsr makz¢     lda #40¢     sta cn2+1¢     rts¢spe3 lda #10¢     sta cn2+1¢     lda #1¢     sta bb¢     jsr makz¢     lda #40¢     sta cn2+1¢     rts¢makz equ *¢cn2  ldx #40¢cn1  ldy #0¢     lda #$ad¢     sta (h0),y¢     iny¢     lda h1¢     sta (h0),y¢     iny¢     lda h1+1¢     sta (h0),y¢     iny¢     inc h1¢     bne *+4¢     inc h1+1¢     lda #$18¢     sta (h0),y¢     iny¢     lda #$65¢     sta (h0),y¢     iny¢     lda #off¢     sta (h0),y¢     iny¢     lda #$aa¢     sta (h0),y¢     iny¢     lda #$ad¢     sta (h0),y¢     iny¢     lda h1¢     sta (h0),y¢     iny¢     lda h1+1¢     sta (h0),y¢     iny¢     inc h1¢     bne *+4¢     inc h1+1¢     lda #$18¢     sta (h0),y¢     iny¢     lda #$65¢     sta (h0),y¢     iny¢     lda #off¢     sta (h0),y¢     iny¢     lda #$a8¢     sta (h0),y¢     iny¢     lda #$bd¢     sta (h0),y¢     iny¢     lda <texh¢     sta (h0),y¢     iny¢     lda >texh¢     sta (h0),y¢     iny¢     lda #$19¢     sta (h0),y¢     iny¢     lda <texl¢     sta (h0),y¢     iny¢     lda >texl¢     sta (h0),y¢     iny¢     lda #$8d¢     sta (h0),y¢     iny¢     lda h2¢     sta (h0),y¢     iny¢     lda h2+1¢     sta (h0),y¢     iny¢     tya¢     clc¢     adc h0¢     sta h0¢     bcc *+4¢     inc h0+1¢     inc h2¢     bne *+4¢     inc h2+1¢     dex¢     beq *+5¢     jmp cn1¢     dec bb¢     beq *+5¢     jmp cn2¢     ldy #0¢     lda #$60¢     sta (h0),y¢     rts¢wzr  dta c'①"3DUfwwfUD3"①'¢     dta c'①"3DUfwêêwfUD3"①'¢     dta c'"3DUfwêÖÖêwfUD3"'¢     dta c'3DUfwêÖ¬¬ÖêwfUD3'¢     dta c'DUfwêÖ¬††¬ÖêwfUD'¢     dta c'UfwêÖ¬†ככ†¬ÖêwfU'¢     dta c'fwêÖ¬†כ§§כ†¬Öêwf'¢     dta c'wêÖ¬†כ§∈∈§כ†¬Öêw'¢     dta c'wêÖ¬†כ§∈∈§כ†¬Öêw'¢     dta c'fwêÖ¬†כ§§כ†¬Öêwf'¢     dta c'UfwêÖ¬†ככ†¬ÖêwfU'¢     dta c'DUfwêÖ¬††¬ÖêwfUD'¢     dta c'3DUfwêÖ¬¬ÖêwfUD3'¢     dta c'"3DUfwêÖÖêwfUD3"'¢     dta c'①"3DUfwêêwfUD3"①'¢     dta c'①"3DUfwwfUD3"①'¢¢mknak lda #_m1¢     sta $d301¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda <nak1¢     sta p1¢     lda >nak1¢     sta p1+1¢     jsr makn¢     lda <$6000¢     sta p0¢     lda >$6000¢     sta p0+1¢     lda <nak2¢     sta p1¢     lda >nak2¢     sta p1+1¢     jsr makn¢     rts¢¢makn lda <logo¢     sta log1+1¢     lda >logo¢     sta log1+2¢     lda #25¢     sta bb2¢pet2 lda #28¢     sta bb¢pet1 equ *¢log1 lda logo¢     pha¢     and #$f0¢     beq lewe0¢     pla¢     and #$0f¢     beq prfe0¢¢¬á∮σ≈σõá∩≥β·á≡≥β≈σõ¢     ldy #0¢     lda #$ad¢     sta (p0),y¢     iny¢     lda log1+1¢     sta (p0),y¢     iny¢     lda log1+2¢     sta (p0),y¢     iny¢     lda #$9d¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     jmp cont¢¢prfe0 equ *¢¬á∮σ≈σõá∩≥β·á≡≥β≈σ㢠    ldy #0¢     lda #$ad¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #$29¢     sta (p0),y¢     iny¢     lda #$f¢     sta (p0),y¢     iny¢     lda #$d¢     sta (p0),y¢     iny¢     lda log1+1¢     sta (p0),y¢     iny¢     lda log1+2¢     sta (p0),y¢     iny¢     lda #$9d¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     jmp cont¢¢lewe0 pla¢     and #$f0¢     beq prwe0¢¬á∮σ≈σãá∩≥β·á≡≥β≈σõᢠ    ldy #0¢     lda #$ad¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #$29¢     sta (p0),y¢     iny¢     lda #$f0¢     sta (p0),y¢     iny¢     lda #$d¢     sta (p0),y¢     iny¢     lda log1+1¢     sta (p0),y¢     iny¢     lda log1+2¢     sta (p0),y¢     iny¢     lda #$9d¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢¢¬á∮σ≈σãá∩≥β·á≡≥β≈σãá¢cont equ *¢prwe0 inc p1¢     bne *+4¢     inc p1+1¢     inc log1+1¢     bne *+5¢     inc log1+2¢     dec bb¢     beq *+5¢     jmp pet1¢     clc¢     lda #40-28¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     dec bb2¢     beq *+5¢     jmp pet2¢     ldy #0¢     lda #$60¢     sta (p0),y¢     inc p0¢     bne *+4¢     inc p0+1¢     rts¢¢     org $2e0¢     dta a(rn)¢     end¢