home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
pflares.arc
/
PFLAR.ASM
< prev
next >
Wrap
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¢