Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/oldtnl.arc/TUNEL.ASM

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¢