Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/tnlgor.arc/TNLGOR.ASM

Assembly Source File | 2000-06-06 | 12KB | 1 lines

ûτ∩⌡≥β⌡Σ½⌠⌡∈∈σ∮½τµ°é¢û¡βפצ»βחגצáØø«Œ«¨¨¡é¢û≤π≥´áÕã°Àãá≤≡σσΣ´Õ颢     opt %100101¢¢poly equ $4000¢wide equ 40¢¢b1   equ $8f-1¢b2   equ $8b-1¢b3   equ $87-1¢k1   equ $10¢k2   equ $15¢k3   equ $8¢¢std  equ $ff-1¢bn1  equ $6f-1¢bn2  equ $6b-1¢bn3  equ $67-1¢bn4  equ $63-1¢¢¬á≥∩·≡βδ∩≈∙≈βπ´á¢¢kod  equ $3300 kod:     $3400-$3b00¢logo equ $3a00 logos:   $3b00-$4000¢map1 equ $8000 mapki:   $8000-$a800¢map2 equ $9400¢tex  equ $a800 textura: $a800-$b800¢¢¬áΓσ·á·∈βπ·σ∈Θβ´á¢map_ equ $4000 liczony kod¢txl  equ $8000 pelne textury:¢txl2 equ $a000 $8000-$c000¢¢scr  equ $e000 ekran#1: $e000-$ea00¢nak1 equ scr+560¢dl   equ $ea00 dl#1   : $ea00-$ec00¢dl2  equ $ec00 dl#2   : $ec00-$ee00¢scr2 equ $f000 ekran#2: $f000-$fa00¢nak2 equ scr2+560¢lo   equ $fa00 tablice:¢hi   equ $fb00 tablice: $fa00-$fc00¢lo2  equ lo¢hi2  equ $fc00¢¢     org $80¢p0   org *+2¢p1   org *+2¢p2   org *+2¢bb   org *+2¢bb2  org *+2¢px   org *+1¢py   org *+1¢xp1  org *+1¢xp2  org *+1¢c1   org *+3¢dc   org *+2¢dcs  org *+1¢klat org *+1¢banc org *+1¢k    org *+1¢stz1 org *+1¢stz2 org *+1¢¢     org kod¢run  sei¢     inc $d40e¢     lda #std¢     sta $d301¢¢     jsr mknak¢     jsr calc¢     jsr mkcd¢     jsr textur¢     jsr mkdl¢¢     jsr calln¢     lda #0¢     sta banc¢     sta stz1¢     sta stz2¢     jsr incc¢¢     lda cop+1¢     sta jm1+1¢     lda cop2+1¢     sta jm1+2¢¢     lda #bn1¢     sta $d301¢     lda #0¢     and #%00111111¢     tax¢     jsr map_¢     lda #bn3¢     sta $d301¢     jsr map_¢     inc ix+1¢¢     jsr init¢¢     lda #$20¢     sta bb2¢ptx1 jsr go¢     dec bb2¢     bne ptx1¢¢     inc stz1¢¢     lda #$20¢     sta bb2¢ptx2 jsr go¢     dec bb2¢     bne ptx2¢     inc stz2¢ptx3 jsr go¢     jmp *-3¢¢go   ldx #0¢     beq _2¢¢     lda #bn1¢     sta $d301¢ix   lda #0¢     and #%00111111¢     tax¢     jsr map_¢     lda #bn3¢     sta $d301¢     jsr map_¢     lda stz1¢     beq omn¢     jsr cube¢     inc ix+1¢     lda stz2¢     beq omn¢     lda #bn4¢     sta $d301¢     jsr map_¢omn  inc ix+1¢¢     lda $d40b¢     bne *-3¢     lda <dl¢     sta $d402¢     lda >dl¢     sta $d403¢     dec go+1¢     rts¢¢_2   lda #bn2¢     sta $d301¢     lda ix+1¢     and #%00111111¢     tax¢     jsr map_¢     lda #bn3¢     sta $d301¢jm1  jsr map_¢     lda stz1¢     beq omn2¢     jsr cube¢     inc ix+1¢     lda stz2¢     beq omn2¢     lda #bn4¢     sta $d301¢     jsr map_+$2000¢omn2 inc ix+1¢¢     lda $d40b¢     bne *-3¢     lda <dl2¢     sta $d402¢     lda >dl2¢     sta $d403¢     inc go+1¢     rts¢¢ûϕβδσá⌠⌡∈∈σ∮áπ∩Σσé¢mkcd lda <map_¢     sta p0¢     lda >map_¢     sta p0+1¢     lda <scr¢     sta p2¢     lda >scr¢     sta p2+1¢     lda #bn1¢     sta $d301¢     lda #45¢     sta bb2¢     jsr makk1¢     lda <map_¢     sta p0¢     lda >map_¢     sta p0+1¢     lda #bn3¢     sta $d301¢     lda #60-45¢     sta bb2¢     jsr makk2¢     lda p0¢     sta cop+1¢     lda p0+1¢     sta cop2+1¢     lda <map_¢     sta p0¢     lda >map_¢     sta p0+1¢     lda <scr2¢     sta p2¢     lda >scr2¢     sta p2+1¢     lda #bn2¢     sta $d301¢     lda #45¢     sta bb2¢     jsr makk1¢cop  lda #0¢     sta p0¢cop2 lda #0¢     sta p0+1¢     lda #bn3¢     sta $d301¢     lda #60-45¢     sta bb2¢     jsr makk2¢     rts¢makk1 lda <map2¢     sta pl1+1¢     lda >map2¢     sta pl1+2¢     lda <map1¢     sta pl2+1¢     lda >map1¢     sta pl2+2¢     lda <map2+1¢     sta pl3+1¢     lda >map2+1¢     sta pl3+2¢     lda <map1+1¢     sta pl4+1¢     lda >map1+1¢     sta pl4+2¢makk2 equ *¢prl2 lda #40¢     sta bb¢prl1 ldy #0¢pl1  lda map2¢     tax¢     lda lo2,x¢     sta p1¢     lda hi2,x¢     sta p1+1¢pl2  lda map1¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     inc pl1+1¢     bne *+5¢     inc pl1+2¢     inc pl2+1¢     bne *+5¢     inc pl2+2¢     inc pl1+1¢     bne *+5¢     inc pl1+2¢     inc pl2+1¢     bne *+5¢     inc pl2+2¢     lda #$bd¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢pl3  lda map2+1¢     tax¢     lda lo,x¢     sta p1¢     lda hi,x¢     sta p1+1¢pl4  lda map1+1¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     inc pl3+1¢     bne *+5¢     inc pl3+2¢     inc pl4+1¢     bne *+5¢     inc pl4+2¢     inc pl3+1¢     bne *+5¢     inc pl3+2¢     inc pl4+1¢     bne *+5¢     inc pl4+2¢     lda #$1d¢     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¢     dec bb¢     bne prl1_¢     dec bb2¢     bne prl2_¢     ldy #0¢     lda #$60¢     sta (p0),y¢     inc p0¢     bne *+4¢     inc p0+1¢     rts¢prl1_ jmp prl1¢prl2_ jmp prl2¢¢û⌠βΓ∮Θπσé¢calc lda #0¢     sta k¢     lda <txl¢     sta p0¢     lda >txl¢     sta p0+1¢     lda <txl2¢     sta p1¢     lda >txl2¢     sta p1+1¢     ldy #0¢ka2  lda p0¢     sta lo,y¢     lda p0+1¢     sta hi,y¢     lda p1¢     sta lo2,y¢     lda p1+1¢     sta hi2,y¢     clc¢     lda p0¢     adc #128¢     sta p0¢     bcc *+4¢     inc p0+1¢     clc¢     lda p1¢     adc #128¢     sta p1¢     bcc *+4¢     inc p1+1¢     iny¢     bne ka2¢     rts¢calln lda <scr¢     sta p0¢     lda >scr¢     sta p0+1¢     lda <scr2¢     sta p1¢     lda >scr2¢     sta p1+1¢     ldy #0¢inn  lda p0+1¢     sta hi,y¢     lda p0¢     sta lo,y¢     clc¢     adc #wide¢     sta p0¢     bcc *+4¢     inc p0+1¢     lda p1+1¢     sta hi2,y¢     lda p1¢     clc¢     adc #wide¢     sta p1¢     bcc *+4¢     inc p1+1¢     iny¢     bne inn¢     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 <dl¢     sta p0¢     lda >dl¢     sta p0+1¢     lda <scr¢     sta p1¢     lda >scr¢     sta p1+1¢     jsr makdl¢     ldy #0¢     lda #$41¢     sta (p0),y¢     iny¢     lda <dl¢     sta (p0),y¢     iny¢     lda >dl¢     sta (p0),y¢¢     lda <dl2¢     sta p0¢     lda >dl2¢     sta p0+1¢     lda <scr2¢     sta p1¢     lda >scr2¢     sta p1+1¢     jsr makdl¢     ldy #0¢     lda #$41¢     sta (p0),y¢     iny¢     lda <dl2¢     sta (p0),y¢     iny¢     lda >dl2¢     sta (p0),y¢     rts¢makdl ldx #59¢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¢     dec p0¢     bne *+4¢     dec p0+1¢     rts¢¢ûϕβδσá⌠σ°⌠⌡≥σ≤é¢textur ldx #64¢tr0  ldy #0¢tr1  lda tex,y¢tr2  sta txl,y¢tr3  sta txl+64,y¢     iny¢     cpy #64¢     bne tr1¢     clc¢     lda #64¢     adc tr1+1¢     sta tr1+1¢     bcc *+5¢     inc tr1+2¢     clc¢     lda #128¢     adc tr2+1¢     sta tr2+1¢     bcc *+5¢     inc tr2+2¢     clc¢     lda #128¢     adc tr3+1¢     sta tr3+1¢     bcc *+5¢     inc tr3+2¢     dex¢     bne tr0¢     ldx #64¢tr0_ ldy #0¢tr1_ lda txl,y¢     asl @¢     asl @¢     asl @¢     asl @¢tr2_ sta txl2,y¢     iny¢     cpy #128¢     bne tr1_¢     clc¢     lda #128¢     adc tr1_+1¢     sta tr1_+1¢     bcc *+5¢     inc tr1_+2¢     clc¢     lda #128¢     adc tr2_+1¢     sta tr2_+1¢     bcc *+5¢     inc tr2_+2¢     dex¢     bne tr0_¢     rts¢¢û≡≥∩π«á∈βδ∮βΣβ∈Θβé¢mknak lda #bn4¢     sta $d301¢     lda <map_¢     sta p0¢     lda >map_¢     sta p0+1¢     lda <nak1¢     sta p1¢     lda >nak1¢     sta p1+1¢     jsr makn¢     lda <map_+$2000¢     sta p0¢     lda >map_+$2000¢     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 #38¢     sta bb2¢pet2 lda #40¢     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 #$8d¢     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 #$8d¢     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 #$8d¢     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¢     dec bb2¢     beq *+5¢     jmp pet2¢     ldy #0¢     lda #$60¢     sta (p0),y¢     inc p0¢     bne *+4¢     inc p0+1¢     rts¢¢ûτ∩⌡≥β⌡Σáπ⌡Γσé¢incc ldx banc¢     lda bnk,x¢     sta $d301¢     lda ilk,x¢     sta klat¢¢     lda <poly¢     sta p1¢     lda >poly¢     sta p1+1¢     rts¢¢cube equ *¢     lda nam+2¢     cmp >hi2¢     beq hi1¢     inc nam+2¢     jmp skij¢hi1  dec nam+2¢¢skij ldx banc¢     lda bnk,x¢     sta $d301¢¢maka ldy #0¢okz  lda (p1),y¢     sta py¢     inc p1¢     bne *+4¢     inc p1+1¢¢     ldx #0¢mak  ldy #0¢     lda (p1),y¢     cmp #$ff¢     beq stox¢     clc¢     adc #8¢     sta xp1¢     iny¢     lda (p1),y¢     clc¢     adc #8¢     sta xp2¢     iny¢     lda (p1),y¢     sta c1¢     iny¢     lda (p1),y¢     sta c1+1¢     iny¢     lda (p1),y¢     sta dc¢     iny¢     lda (p1),y¢     sta dc+1¢     iny¢     lda (p1),y¢     sta dcs¢     iny¢     tya¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     jsr draw¢     inc py¢     inx¢ile  cpx #0¢     bne mak¢     jmp maka¢¢stox iny¢     lda (p1),y¢     cmp #$fe¢     beq end¢     inc p1¢     bne *+4¢     inc p1+1¢     jmp maka¢bnk  dta b(b1),b(b2),b(b3)¢ilk  dta b(k1),b(k2),b(k3)¢¢end  iny¢     tya¢     clc¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢ski  dec klat¢     beq ort¢     rts¢ort  inc banc¢     lda banc¢     cmp #3¢     beq ort2¢     jsr incc¢     rts¢ort2 lda #0¢     sta banc¢     jsr incc¢     rts¢¢û≡⌡⌠á≡Θ°σ∮é¢putp txa¢     pha¢     ldy py¢     lda lo2,y¢     sta p0¢nam  lda hi,y¢     sta p0+1¢¢     lda px¢     lsr @¢     tay¢     bcc rght¢     lda (p0),y¢     and #$f0¢     ora c1+1¢     sta (p0),y¢     pla¢     tax¢     rts¢rght ldx c1+1¢     lda (p0),y¢     and #$f¢     ora colk,x¢     sta (p0),y¢     pla¢     tax¢     rts¢¢colk dta b($00),b($10),b($20),b($30)¢     dta b($40),b($50),b($60),b($70)¢     dta b($80),b($90),b($a0),b($b0)¢     dta b($c0),b($d0),b($e0),b($f0)¢¢û≤ΦβΣ«á∮Θ∈σá≡≥∩π«é¢draw lda xp1¢     sta px¢     jsr putp¢¢     lda xp1¢     cmp xp2¢     beq rtzz¢¢     lda dcs¢     beq dodk¢¢     lda c1¢     sec¢     sbc dc¢     sta c1¢     bcs ni2¢     beq ni2¢     dec c1+1¢     lda c1+1¢     cmp #$ff¢     bne ni2¢     lda #0¢     sta c1+1¢ni2  lda c1+1¢     sec¢     sbc dc+1¢     sta c1+1¢     bcs nic¢     lda #0¢     sta c1+1¢nic  jmp skip¢¢dodk lda c1¢     clc¢     adc dc¢     sta c1¢     bcc *+4¢     inc c1+1¢     lda c1+1¢     clc¢     adc dc+1¢     sta c1+1¢¢skip inc xp1¢     jmp draw¢rtzz rts¢¢     org $2e0¢     dta a(run)¢     end¢¢