home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
mappinkk.arc
/
ZOOMLND.ASM
< prev
next >
Wrap
Assembly Source File
|
2000-06-06
|
7KB
|
1 lines
û¡∮∮β∈Σ½∮∮⌡≡∙¡é¢ûβפצ»βחגצáŒÀ¨¨é¢û≤π≥´Õã°ŒÀááááé¢û≤≡Σ´œá≥βϕ∙ááá颢 opt %100101¢¢std equ $ff-1¢bn1 equ $6f-1¢bn2 equ $6b-1¢bn3 equ $67-1¢¢¬á≥∩·≡βδ∩≈∙≈βπ´á¢kod equ $3c00 kod: 3c00-3fff¢map2 equ $5c00 mapki: 5c00-7fff¢map1 equ $6e00¢sin equ $cf00 y sinusy: cf00-cfff¢tex equ $e000 wzor textury:e000-efff¢¢¬á∮Θπ·∩∈σ´á¢cod2 equ $4000 liczony kod¢txl equ $4000 duze textury [dwie]:¢txl2 equ $6000 4000-7fff¢map_ equ $8000 liczony kod 8000-ceff¢tb1 equ $e000 help tabl: e000-f1ff¢scr equ $f200 ekran: f200-faff¢lo equ $fb00 chwilowe¢lo2 equ $fc00 tablice: fb00-fcff¢dl equ $fd00 dl: fd00+feff¢¢hi equ $00¢hi2 equ $40¢¢tad1 equ hi2¢tad2 equ hi¢¢ org $80¢p0 org *+2¢p1 org *+2¢p2 org *+2¢bb org *+2¢bb2 org *+2¢¢ org kod¢run sei¢ inc $d40e¢ lda #std¢ sta $d301¢¢ jsr mkc2¢ lda #std¢ sta $d301¢ jsr calc¢ jsr mkcd¢ jsr ctex¢ jsr dbuf¢ jsr mkdl¢ jsr init¢¢go lda #0¢ and #%00111111¢ tax¢ jsr map_¢ inc go+1¢ inc go+1¢¢ssin lda sin¢ tay¢ inc ssin+1¢ inc ssin+1¢ inc ssin+1¢ inc ssin+1¢ inc ssin+1¢ inc ssin+1¢ inc ssin+1¢ lda #bn1¢ sta $d301¢ jsr cod2¢ lda #bn2¢ sta $d301¢ jsr cod2¢ lda #bn3¢ sta $d301¢ jsr cod2¢ lda #std¢ sta $d301¢ jmp go¢¢mkc2 lda <map_+2¢ sta p1¢ lda >map_+2¢ sta p1+1¢ lda <tb1¢ sta p2¢ lda >tb1¢ sta p2+1¢ lda #20¢ sta bb¢ lda #bn1¢ sta $d301¢ jsr makk¢ lda #20¢ sta bb¢ lda #bn2¢ sta $d301¢ jsr makk¢ lda #16¢ sta bb¢ lda #bn3¢ sta $d301¢ jsr makk¢ rts¢¢makk lda <cod2¢ sta p0¢ lda >cod2¢ sta p0+1¢mk2d ldx #40¢mk2c ldy #0¢ lda #$98¢ sta (p0),y¢ iny¢ lda #$6d¢ sta (p0),y¢ iny¢ lda p2¢ sta (p0),y¢ iny¢ lda p2+1¢ sta (p0),y¢ iny¢ lda #$aa¢ sta (p0),y¢ iny¢ lda #$b5¢ sta (p0),y¢ iny¢ lda #tad1¢ 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¢ lda #3¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ inc p2¢ bne *+4¢ inc p2+1¢ ldy #0¢ lda #$98¢ sta (p0),y¢ iny¢ lda #$6d¢ sta (p0),y¢ iny¢ lda p2¢ sta (p0),y¢ iny¢ lda p2+1¢ sta (p0),y¢ iny¢ lda #$aa¢ sta (p0),y¢ iny¢ lda #$b5¢ sta (p0),y¢ iny¢ lda #tad2¢ 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¢ lda #6¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ inc p2¢ bne *+4¢ inc p2+1¢ dex¢ beq *+5¢ jmp mk2c¢ dec bb¢ beq *+5¢ jmp mk2d¢ ldy #0¢ lda #$60¢ sta (p0),y¢ rts¢¢dbuf lda <map_+2¢ sta p0¢ lda >map_+2¢ sta p0+1¢ lda <tb1¢ sta p1¢ lda >tb1¢ sta p1+1¢ lda #56¢ sta bb¢dbb2 ldx #40¢dbb1 ldy #0¢ lda (p0),y¢ sec¢ sbc >txl2¢ sta (p1),y¢ ldy #3¢ lda (p0),y¢ sec¢ sbc >txl¢ ldy #1¢ sta (p1),y¢ lda #2¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ lda #9¢ clc¢ adc p0¢ sta p0¢ bcc *+4¢ inc p0+1¢ dex¢ bne dbb1¢ dec bb¢ bne dbb2¢ rts¢¢mkcd lda <map_¢ sta p0¢ lda >map_¢ sta p0+1¢ lda <scr¢ sta p2¢ lda >scr¢ sta p2+1¢ lda #56¢ sta bb2¢ 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¢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¢¢ lda p0¢ sta $600¢ lda p0+1¢ sta $601¢¢ rts¢prl1_ jmp prl1¢prl2_ jmp prl2¢¢calc lda <txl¢ sta p0¢ lda >txl¢ sta p0+1¢ lda <txl2¢ sta p1¢ lda >txl2¢ sta p1+1¢ ldy #0¢k2 lda p0¢ sta lo,y¢ sta lo+$20,y¢ lda p0+1¢ sta hi,y¢ sta hi+$20,y¢ lda p1¢ sta lo2,y¢ sta lo2+$20,y¢ lda p1+1¢ sta hi2,y¢ sta hi2+$20,y¢ inc p0+1¢ inc p1+1¢ iny¢ cpy #$20¢ bne k2¢ 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+1¢ sta p0¢ lda >dl+1¢ sta p0+1¢ lda <scr¢ sta p1¢ lda >scr¢ sta p1+1¢ lda #$70¢ sta dl¢ ldx #55¢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¢ ldy #0¢ lda #$41¢ sta (p0),y¢ iny¢ lda <dl¢ sta (p0),y¢ iny¢ lda >dl¢ sta (p0),y¢ rts¢¢ctex ldx #$20¢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¢ inc tr2+2¢ inc tr3+2¢ dex¢ bne tr0¢ ldx #$20¢tr0_ ldy #0¢tr1_ lda txl,y¢ asl @¢ asl @¢ asl @¢ asl @¢tr2_ sta txl2,y¢ iny¢ cpy #128¢ bne tr1_¢ inc tr1_+2¢ inc tr2_+2¢ dex¢ bne tr0_¢ rts¢¢ org $2e0¢ dta a(run)¢ end¢