Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/pflares.arc/PFLAR.ASM

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

ûµ∮β≥σ≤½µ∮β⌠∮β∈Σé¢ûβ≥≤»βΘΣ≤áãõõب¨é¢û≤π≥´Õã°Àãá≤≡Σ´™é¢¢     opt 37¢kod  equ $3500 $600¢fra2 equ $3b00 $500¢fraw equ fra2¢fdat equ $7000 $1000¢teks equ $8000 $1000¢flt1 equ $9000 $1400¢flt2 equ $a400 $1400¢¢texx equ $d800 $2000¢dl   equ $f800 $200¢lo   equ $fa00 $100¢hi   equ $fb00 $100¢tabl equ $fc00 $100¢scr2 equ $1000 $a00¢scr  equ $8000 $4f00¢¢std  equ $ff-1¢_l1  equ $8f-1¢_l2  equ $8b-1¢_c1  equ $87-1¢_c2  equ $83-1¢_f1  equ $eb-1¢flr3 equ $7000 _l2¢¢     org $80¢p0   org *+2¢p1   org *+2¢p2   org *+2¢p3   org *+2¢num  org *+1¢px   org *+1¢py   org *+1¢¢     org kod¢     sei¢     inc $d40e¢     lda #$fe¢     sta $d301¢¢     jsr mak1  flat land etc.¢     jsr mkf¢     jsr mkl¢     jsr in2¢     jsr mkdl¢     jsr init¢¢     lda #std¢     sta $d301¢¢krs  lda <fdat¢     sta p0¢     lda >fdat¢     sta p0+1¢¢     lda #60¢     sta uhu¢go   lda #20¢     sta bb¢¢eh   lda #_c1¢     sta $d301¢ixx  lda #0¢     and #$3f¢     tax¢     jsr $4000¢     lda #_c2¢     sta $d301¢     jsr $4000¢¢     inc ixx+1¢     inc ixx+1¢     inc ixx+1¢¢     lda #std¢     sta $d301¢¢enn  ldy #0¢     lda (p0),y¢     sta px¢     iny¢     lda (p0),y¢     clc¢     adc #4¢     sta py¢     iny¢     lda (p0),y¢     sta num¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     lda #_f1¢     sta $d301¢¢     lda py¢     cmp #60+14¢     bcs stp¢¢     lda px¢     cmp #80+28¢     bcs stp¢¢     lda num¢     beq _0¢     cmp #1¢     beq _1¢     cmp #2¢     beq _2¢     cmp #3¢     beq _3¢¢     lda #_l2¢     sta $d301¢¢     jsr flr3¢     jmp kn¢¢_0   jsr $4000¢     jmp kn¢_1   jsr $5000¢     jmp kn¢_2   jsr $6000¢     jmp kn¢_3   jsr $7000¢stp  jmp kn¢¢kn   equ *¢     lda #std¢     sta $d301¢     dec bb¢     bne enn¢¢     lda #_l1¢     sta $d301¢     jsr $4000¢     lda #_l2¢     sta $d301¢     jsr $4000¢¢     lda #std¢     sta $d301¢¢     dec uhu¢     beq *+5¢     jmp go¢     jmp krs¢¢uhu  brk¢numee brk¢bb   brk¢bb2  brk¢k    brk¢k2   brk¢¢û∞µ∮β⌠á∮β∈Σ∞é¢mak1 ldx #64   texture¢qp4  ldy #0¢qp1  lda teks,y¢     asl @¢     asl @¢     asl @¢     asl @¢qp2  sta texx,y¢qp3  sta texx+64,y¢     iny¢     cpy #64¢     bne qp1¢     clc¢     lda qp1+1¢     adc #64¢     sta qp1+1¢     bcc *+5¢     inc qp1+2¢     clc¢     lda qp2+1¢     adc #128¢     sta qp2+1¢     bcc *+5¢     inc qp2+2¢     clc¢     lda qp3+1¢     adc #128¢     sta qp3+1¢     bcc *+5¢     inc qp3+2¢     dex¢     bne qp4¢kj   lda <texx¢     sta p0¢     lda >texx¢     sta p0+1¢     ldy #0¢hmm  lda p0¢     sta lo,y¢     lda p0+1¢     sta hi,y¢     clc¢     lda p0¢     adc #128¢     sta p0¢     bcc *+4¢     inc p0+1¢     iny¢     bne hmm¢     jsr mkcd¢     rts¢¢ûϕβδσá∞Σ≥β≈áπ∩Σσ∞é¢mkcd lda <scr+14+$e00¢     sta p1¢     lda >scr+14+$e00¢     sta p1+1¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda #_c1¢     sta $d301¢     lda #34¢     sta bb2¢     jsr ade4¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda #_c2¢     sta $d301¢     lda #59-34¢     sta bb2¢     jsr ade4¢     rts¢ade4 lda #80¢     sta bb¢ade3 ldy #0¢ade1 lda flt1¢     tax¢     lda lo,x¢     sta p2¢     lda hi,x¢     sta p2+1¢ade2 lda flt2¢     clc¢     adc p2¢     sta p2¢     bcc *+4¢     inc p2+1¢     lda #$bd  lda $ffff,x¢     sta (p0),y¢     iny¢     lda p2¢     sta (p0),y¢     iny¢     lda p2+1¢     sta (p0),y¢     iny¢     lda #$8d  sta :)¢     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¢     inc ade1+1¢     bne *+5¢     inc ade1+2¢     inc ade2+1¢     bne *+5¢     inc ade2+2¢     inc p1¢     bne *+4¢     inc p1+1¢     dec bb¢     bne ade3¢hmk  lda >scr+$f00¢     sta p1+1¢     lda #14¢     sta p1¢     inc hmk+1¢     dec bb2¢     bne ade4¢     ldy #0¢     lda #$60¢     sta (p0),y¢     rts¢¢ûϕβδσá∞∮Θ∈δáπ∩Σσ∞é¢mkl  lda <scr+1+14+$e00¢     sta p1¢     lda >scr+1+14+$e00¢     sta p1+1¢     lda <scr+14+$e00¢     sta p2¢     lda >scr+14+$e00¢     sta p2+1¢     lda <scr2¢     sta p3¢     lda >scr2¢     sta p3+1¢     lda #_l1¢     sta $d301¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda #34¢     sta my¢     jsr mkl2¢     lda #_l2¢     sta $d301¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda #59-34¢     sta my¢     jsr mkl2¢     rts¢mkl2 lda #40¢     sta mx¢mkl1 ldy #0¢     lda #$ae¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #$bd¢     sta (p0),y¢     iny¢     lda <tabl¢     sta (p0),y¢     iny¢     lda >tabl¢     sta (p0),y¢     iny¢     lda #$d¢     sta (p0),y¢     iny¢     lda p2¢     sta (p0),y¢     iny¢     lda p2+1¢     sta (p0),y¢     iny¢     lda #$8d¢     sta (p0),y¢     iny¢     lda p3¢     sta (p0),y¢     iny¢     lda p3+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     inc p1¢     bne *+4¢     inc p1+1¢     inc p1¢     bne *+4¢     inc p1+1¢     inc p2¢     bne *+4¢     inc p2+1¢     inc p2¢     bne *+4¢     inc p2+1¢     inc p3¢     bne *+4¢     inc p3+1¢     dec mx¢     beq *+5¢     jmp mkl1¢     clc¢     lda #255-79¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     clc¢     lda #255-79¢     adc p2¢     sta p2¢     bcc *+4¢     inc p2+1¢     dec my¢     beq *+5¢     jmp mkl2¢     ldy #0¢     lda #$60¢     sta (p0),y¢     rts¢mx   brk¢my   brk¢lhi dta h(scr),h(scr+$100),h(scr+$200)¢ dta h(scr+$300),h(scr+$400),h(scr+$500)¢ dta h(scr+$600),h(scr+$700),h(scr+$800)¢ dta h(scr+$900),h(scr+$a00),h(scr+$b00)¢ dta h(scr+$c00),h(scr+$d00),h(scr+$e00)¢ dta h(scr+$f00)¢ dta h(scr+$1000),h(scr+$1100),h(scr+$1200)¢ dta h(scr+$1300),h(scr+$1400),h(scr+$1500)¢ dta h(scr+$1600),h(scr+$1700),h(scr+$1800)¢ dta h(scr+$1900),h(scr+$1a00),h(scr+$1b00)¢ dta h(scr+$1c00),h(scr+$1d00),h(scr+$1e00)¢ dta h(scr+$1f00)¢ dta h(scr+$2000),h(scr+$2100),h(scr+$2200)¢ dta h(scr+$2300),h(scr+$2400),h(scr+$2500)¢ dta h(scr+$2600),h(scr+$2700),h(scr+$2800)¢ dta h(scr+$2900),h(scr+$2a00),h(scr+$2b00)¢ dta h(scr+$2c00),h(scr+$2d00),h(scr+$2e00)¢ dta h(scr+$2f00)¢ dta h(scr+$3000),h(scr+$3100),h(scr+$3200)¢ dta h(scr+$3300),h(scr+$3400),h(scr+$3500)¢ dta h(scr+$3600),h(scr+$3700),h(scr+$3800)¢ dta h(scr+$3900),h(scr+$3a00),h(scr+$3b00)¢ dta h(scr+$3c00),h(scr+$3d00),h(scr+$3e00)¢ dta h(scr+$3f00)¢ dta h(scr+$4000),h(scr+$4100),h(scr+$4200)¢ dta h(scr+$4300),h(scr+$4400),h(scr+$4500)¢ dta h(scr+$4600),h(scr+$4700),h(scr+$4800)¢ dta h(scr+$4900),h(scr+$4a00),h(scr+$4b00)¢ dta h(scr+$4c00),h(scr+$4d00),h(scr+$4e00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢ dta h(scr+$4f00)¢¢_28  ldx #28¢ptt2 ldy #0¢     lda #$8d    sta $ffff¢     sta (p0),y¢     iny¢     lda #$ff¢     sta (p0),y¢     iny¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     dex¢     bne ptt2¢     rts¢¢ûϕβδσá∞µ∮≥∞áπ∩Σσé¢mkf  lda #_f1¢     sta $d301¢     lda <$4000¢     sta p0¢     lda >$4000¢     sta p0+1¢     lda <$4000+6¢     sta p2¢     lda >$4000+6¢     sta p2+1¢     lda >fraw¢     sta numee¢     jsr makf¢     lda <$5000¢     sta p0¢     lda >$5000¢     sta p0+1¢     lda <$5000+6¢     sta p2¢     lda >$5000+6¢     sta p2+1¢     lda >fraw+$100¢     sta numee¢     jsr makf¢     lda <$6000¢     sta p0¢     lda >$6000¢     sta p0+1¢     lda <$6000+6¢     sta p2¢     lda >$6000+6¢     sta p2+1¢     lda >fraw+$200¢     sta numee¢     jsr makf¢     lda <$7000¢     sta p0¢     lda >$7000¢     sta p0+1¢     lda <$7000+6¢     sta p2¢     lda >$7000+6¢     sta p2+1¢     lda >fraw+$300¢     sta numee¢     jsr makf¢     lda #_l2¢     sta $d301¢     lda <flr3¢     sta p0¢     lda >flr3¢     sta p0+1¢     lda <flr3+6¢     sta p2¢     lda >flr3+6¢     sta p2+1¢     lda >fraw+$400¢     sta numee¢     jsr makf¢     lda #std¢     sta $d301¢     rts¢¢makf ldy #0¢     lda #$a4    ldy py (pg0)¢     sta (p0),y¢     iny¢     lda #py¢     sta (p0),y¢     iny¢     lda #$b9    lda lhi,y¢     sta (p0),y¢     iny¢     lda <lhi¢     sta (p0),y¢     iny¢     lda >lhi¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     lda #14¢     sta bb¢_cre jsr _28¢     ldy #0¢     lda #$c8    iny¢     sta (p0),y¢     iny¢     lda #$b9    lda lhi,y¢     sta (p0),y¢     iny¢     lda <lhi¢     sta (p0),y¢     iny¢     lda >lhi¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     dec bb¢     bne _cre¢*-code¢     ldy #0¢     lda #$a4      ldy px (pg0)¢     sta (p0),y¢     iny¢     lda #px       px...¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     lda #14¢     sta bb2¢     lda #0¢     sta k¢pft2 lda #0¢     sta k2¢     lda #14¢     sta bb¢pft1 ldy #0¢     lda #$ad      lda $ff+k¢     sta (p0),y¢     iny¢     lda k¢     sta (p0),y¢     iny¢     lda numee¢     sta (p0),y¢     iny¢     lda #$18    clc¢     sta (p0),y¢     iny¢     lda #$79   79 adc $ff00,y¢     sta (p0),y¢     iny¢     lda k2¢     sta (p0),y¢     iny¢     jsr puta¢     lda #$ff¢     sta (p0),y¢     iny¢     lda #$90    bcc *+4¢     sta (p0),y¢     iny¢     lda #2¢     sta (p0),y¢     iny¢     lda #$a9    lda #$f0¢     sta (p0),y¢     iny¢     lda #$f0¢     sta (p0),y¢     iny¢     lda #$99     sta $ff00+k¢     sta (p0),y¢     iny¢     lda k2¢     sta (p0),y¢     iny¢     jsr puta¢     lda #$ff¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     inc k¢     inc k2¢     dec bb¢     beq *+5¢     jmp pft1¢     dec bb2¢     beq *+5¢     jmp pft2¢     ldy #0¢     lda #$60¢     sta (p0),y¢     rts¢puta sty _y¢     lda p0+1¢     sta p3+1¢     tya¢     clc¢     adc p0¢     sta p3¢     bcc *+4¢     inc p3+1¢     ldy #0¢     lda p3¢     sta (p2),y¢     iny¢     lda p3+1¢     sta (p2),y¢     iny¢     iny¢     tya¢     clc¢     adc p2¢     sta p2¢     bcc *+4¢     inc p2+1¢     dec _ppp¢     bne okje¢     clc¢     lda #4¢     adc p2¢     sta p2¢     bcc *+4¢     inc p2+1¢     lda #28¢     sta _ppp¢okje ldy _y¢     rts¢_ppp dta b(28)¢_y   brk¢¢in2  lda <scr¢     sta p0¢     lda >scr¢     sta p0+1¢     ldy #0¢cl1  lda p0¢     sta lo,y¢     lda p0+1¢     sta hi,y¢     lda p0¢     clc¢     adc #40¢     sta p0¢     bcc *+4¢     inc p0+1¢     iny¢     bne cl1¢calc lda #0¢     sta bb¢     ldx #0¢tb2  ldy #0¢     lda bb¢tb1  sta tabl,x¢     inx¢     iny¢     cpy #$10¢     bne tb1¢     inc bb¢     lda bb¢     cmp #$10¢     bne tb2¢     ldy #0¢     ldx #$5¢eor1 lda fra2,y¢     eor #$f¢okk  asl @¢     asl @¢     asl @¢     asl @¢eor2 sta fra2,y¢     iny¢     bne eor1¢     inc eor1+2¢     inc eor2+2¢     dex¢     bne eor1¢     rts¢     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 <scr2¢     sta p1¢     lda >scr2¢     sta p1+1¢     ldx #58¢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¢¢     end¢