home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
oldtnl.arc
/
TUNEL.ASM
< prev
next >
Wrap
Assembly Source File
|
2000-06-06
|
6KB
|
1 lines
û⌠⌡∈σ∮½∩ΣΓΘπΘσé¢û≈β≥≡½β≥≤ijβΘΣ≤é¢ûף∩∩∩∮Σπππ∩Σσ§é¢ opt %100101¢srcm equ $4000 ;$eb¢map_ equ $2000¢map equ $9000¢lo_p equ $a000¢hi_p equ $a100¢sine equ $a200¢scr equ $a400¢dl equ $b800¢maxy equ 56¢bank equ $eb¢¢ org $80¢h0 org *+2¢h1 org *+2¢x org *+1¢y org *+1¢xs org *+1¢prze org *+1¢h2 org *+2¢xpz org *+1¢ypz org *+1¢b org *+1¢ile org *+1¢bb org *+1¢¢ org $b000¢main jsr mkcd¢¢ lda #0¢ sta 559¢ sta xpz¢ sta ypz¢ sta b¢¢ jsr set¢¢ lda #8¢ sta xpz¢ lda #10¢ sta ypz¢ jsr rot¢fst jsr plsm¢ jsr map_¢ lda #$21¢ sta $22f¢ inc b¢ lda b¢ cmp #40¢ bne fst¢¢loop lda $d40b¢ cmp $d40b¢ bne *-5¢l3 lda sine+15¢ sta xpz¢l2 lda sine+19¢ sta ypz¢ jsr plsm¢ jsr map_¢ jsr rot¢ inc l3+1¢ inc l2+1¢ inc l2+1¢ lda $d20f¢ and #8¢ bne loop¢ jmp $e474¢ rts¢¢rot lda #bank¢ sta $d301¢ ldy ypz¢ lda lo_p,y¢ sta c1+1¢ lda hi_p,y¢ sta c1+2¢ lda xpz¢ clc¢ adc c1+1¢ sta c1+1¢ bcc *+5¢ inc c1+2¢ lda <map¢ sta c2+1¢ lda >map¢ sta c2+2¢ ldx #60¢c3 ldy #0¢c1 lda srcm,y¢c2 sta map,y¢ iny¢ cpy #64¢ bne c1¢ lda c1+1¢ clc¢ adc #80¢ sta c1+1¢ bcc *+5¢ inc c1+2¢ lda c2+1¢ clc¢ adc #64¢ sta c2+1¢ bcc *+5¢ inc c2+2¢ dex¢ bne c3¢ lda #$ff¢ sta $d301¢ rts¢¢plsm ldx #0¢pl0 ldy xps1¢ lda sin,y¢ ldy xps2¢ adc sin,y¢ sta plst,x¢ dex¢ beq pl0_¢ clc¢ lda xps1¢ adc xad1¢ sta xps1¢ clc¢ lda xps2¢ adc xad2¢ sta xps2¢ jmp pl0¢pl0_ ldx #0¢pl1 lda plst,x¢ tay¢ lda flbl,y¢ sta texl,x¢ lda flbh,y¢ sta texh,x¢ dex¢ bne pl1¢ rts¢xad1 dta b($01)¢xad2 dta b($11)¢xps1 dta b($40)¢xps2 dta b($01)¢¢mkcd lda <map_¢ sta h0¢ lda >map_¢ sta h0+1¢ lda <map¢ sta h1¢ lda >map¢ sta h1+1¢ lda <scr¢ sta h2¢ lda >scr¢ sta h2+1¢¢ lda #114¢ sta bb¢cn2 ldx #16¢cn1 ldy #0¢ lda #$ae¢ 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 #$ac¢ 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 #$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¢ lda #15¢ clc¢ adc h0¢ sta h0¢ bcc *+4¢ inc h0+1¢ inc h2¢ bne *+4¢ inc h2+1¢ dex¢ bne cn1¢ dec bb¢ bne cn2¢ ldy #0¢ lda #$60¢ sta (h0),y¢ rts¢¢set ldy #0¢ tya¢cl sta plst,y¢ dey¢ bne cl¢ lda <srcm¢ sta h0¢ lda >srcm¢ sta h0+1¢ ldy #0¢twrz lda h0¢ sta lo_p,y¢ lda h0+1¢ sta hi_p,y¢ lda #80¢ clc¢ adc h0¢ sta h0¢ bcc *+4¢ inc h0+1¢ iny¢ bne twrz¢¢ lda <dl2¢ sta h0¢ lda >dl2¢ sta h0+1¢ lda <scr¢ sta h1¢ lda >scr¢ sta h1+1¢ ldx #maxy¢i0 ldy #0¢ lda #$4f¢ sta (h0),y¢ iny¢ lda h1¢ sta (h0),y¢ lda h2¢ iny¢ lda h1+1¢ sta (h0),y¢ lda h2+1¢ iny¢ lda #0¢ sta (h0),y¢ iny¢ lda #$4f¢ sta (h0),y¢ iny¢ lda h1¢ sta (h0),y¢ iny¢ lda h1+1¢ sta (h0),y¢ iny¢ lda #0¢ sta (h0),y¢ clc¢ lda #8¢ adc h0¢ sta h0¢ bcc *+4¢ inc h0+1¢ clc¢ lda h1¢ adc #32¢ sta h1¢ bcc *+4¢ inc h1+1¢ dex¢ bpl i0¢ ldy #0¢ lda #$41¢ sta (h0),y¢ iny¢ lda <dl¢ sta (h0),y¢ iny¢ lda >dl¢ sta (h0),y¢ lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda #$40¢ sta $26f¢ rts¢¢texl 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"① '¢¢texh 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"① '¢¢sin dta c'⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦❎❎❎❎❎❎❎❎❎❎❎❎❎╱╱╱╱╱╱╱╱╱╱╱╱╱'¢ dta c'╱╱╱╱◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆'¢ dta c'◆◆◆◆◆◆◆◆◆◆◆╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱❎❎❎❎❎❎❎❎❎❎'¢ dta c'❎❎❎⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇦⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩'¢ dta c'⇩⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧ '¢ dta c' ⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧⇧'¢ dta c'⇧⇧⇧⇧⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇩⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨⇨'¢flbl dta b($01),b($01),b($02),b($02)¢ dta b($03),b($03),b($04),b($04)¢ dta b($05),b($05),b($06),b($06)¢ dta b($07),b($07),b($08),b($08)¢flbh dta b($10),b($10),b($20),b($20)¢ dta b($30),b($30),b($40),b($40)¢ dta b($50),b($50),b($60),b($60)¢ dta b($70),b($70),b($80),b($80)¢plst equ *¢¢ org dl¢ dta b($50)¢dl2 equ *¢¢ org $2e0¢ dta a(main)¢ end¢