Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/mappinkk.arc/ZOOMLND.ASM

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¢