Debilizator 3/Debilizator_3_1998_AIDS_PL_Side_B.atr/wrm14496.arc/WRM14496.ASM

Assembly Source File | 2000-06-03 | 9KB | 1 lines

ûÑ≈∩≥ϕΦ∩∮σá⌠⌡∈∈σ∮Ñé¢ûףβ≥≤ץβΘΣ·§á∩π⌠º¨¨é¢û≤≡Σ´œáá≤π≥´õœœ°¨À颢     opt %100101¢std  equ $ff-1¢bn1  equ $e7-1¢bn2  equ $e3-1¢¢cbn1 equ $6f-1¢cbn2 equ $6b-1¢cbn3 equ $67-1¢cbn4 equ $63-1¢¢dbn1 equ $8f-1¢dbn2 equ $8b-1¢dbn3 equ $87-1¢dbn4 equ $83-1¢¢map_ equ $4000¢map1 equ $4000¢map2 equ $4000¢¢txl  equ $8000¢txl2 equ $d800¢¢scr  equ $2040¢scr2 equ $b040¢¢tex2 equ $e800¢tex  equ $d800¢¢lo3  equ $f800¢hi3  equ $f900¢lo4  equ $fa00¢hi4  equ $fb00¢dl   equ $fc00¢dl2  equ $fe00¢¢kod  equ $a000¢zin2 equ $ab00¢¢lo   equ $2000¢hi   equ $2100¢lo2  equ $2200¢hi2  equ $2300¢¢     org $80¢p0   org *+2¢p1   org *+2¢p2   org *+2¢p3   org *+2¢bb   org *+1¢bb2  org *+1¢_scr org *+2¢_sc2 org *+2¢iksy org *+1¢¢     org kod¢run  sei¢     inc $d40e¢     lda #std¢     sta $d301¢¢     jsr calc¢     jsr mkcode¢     jsr makedl¢     jsr init¢¢go2  lda $d40b¢     bne *-3¢     lda <dl¢     sta $d402¢     lda >dl¢     sta $d403¢¢go   lda #0¢     and #%00111111¢     sta iksy¢¢     jsr move¢     jsr mkdl2¢¢     lda #dbn1¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl2¢¢     lda #dbn2¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl2¢¢     lda #dbn3¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl2¢¢     lda #dbn4¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     inc go+1¢     inc go+1¢¢     lda $d40b¢     bne *-3¢     lda <dl2¢     sta $d402¢     lda >dl2¢     sta $d403¢¢     lda go+1¢     and #%00111111¢     sta iksy¢¢     jsr move¢     jsr mkdl3¢¢     lda #cbn1¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl3¢¢     lda #cbn2¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl3¢¢     lda #cbn3¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     jsr move¢     jsr mkdl3¢¢     lda #cbn4¢     sta $d301¢     ldx iksy¢     jsr map_¢¢     inc go+1¢     inc go+1¢     jmp go2¢¢move equ *¢zzg  lda zin2¢zzga adc zin2+20¢zzgd adc zin2+120¢     lsr @¢     sbc #5¢     tax¢     lda lo4,x¢     sta _scr¢     lda hi4,x¢     sta _scr+1¢     lda lo3,x¢     sta _sc2¢     lda hi3,x¢     sta _sc2+1¢zzg2 lda zin2¢zzgb adc zin2+20¢zzgc adc zin2+80¢     lsr @¢     sbc #6¢     pha¢     clc¢     adc _scr¢     sta _scr¢     bcc *+4¢     inc _scr+1¢     pla¢     clc¢     adc _sc2¢     sta _sc2¢     bcc *+4¢     inc _sc2+1¢*     inc zzg+1¢     inc zzg+1¢     inc zzg+1¢     inc zzg2+1¢     inc zzg2+1¢     inc zzga+1¢     inc zzga+1¢     inc zzga+1¢     inc zzgb+1¢     inc zzgb+1¢     inc zzgc+1¢     inc zzgc+1¢     inc zzgd+1¢     rts¢¢mkdC lda <dl¢     sta p0¢     lda >dl¢     sta p0+1¢     lda <scr¢     sta p1¢     lda >scr¢     sta p1+1¢mkdl_ 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 C0¢     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 #72¢     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¢_dda lda <dl¢     sta (p0),y¢     iny¢_ddb lda >dl¢     sta (p0),y¢     rts¢¢mkdl2 lda <dl+1¢     sta p0¢     lda >dl+1¢     sta p0+1¢     lda _sc2¢     sta p1¢     lda _sc2+1¢     sta p1+1¢¢     ldx #58¢rb1_ ldy #0¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     iny¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     clc¢     lda #8¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     clc¢     lda #72¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     dex¢     bpl rb1_¢     rts¢¢mkdl3 lda <dl2+1¢     sta p0¢     lda >dl2+1¢     sta p0+1¢     lda _scr¢     sta p1¢     lda _scr+1¢     sta p1+1¢¢     ldx #58¢rb1a ldy #0¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     iny¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     clc¢     lda #8¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     clc¢     lda #72¢     adc p1¢     sta p1¢     bcc *+4¢     inc p1+1¢     dex¢     bpl rb1a¢     rts¢¢makedl jsr mkdl¢     lda <dl2¢     sta p0¢     sta _dda+1¢     lda >dl2¢     sta p0+1¢     sta _ddb+1¢     lda <scr2¢     sta p1¢     lda >scr2¢     sta p1+1¢     jmp mkdl_¢¢mkcode lda #cbn1¢     sta akt¢     lda #dbn1¢     sta akt2¢     jsr mkcd¢     lda #cbn2¢     sta akt¢     lda #dbn2¢     sta akt2¢     jsr mkcd2¢     lda #cbn3¢     sta akt¢     lda #dbn3¢     sta akt2¢     jsr mkcd2¢     lda #48¢     sta _48+1¢     lda #cbn4¢     sta akt¢     lda #dbn4¢     sta akt2¢     jmp mkcd2¢mkcd lda <scr¢     sta p2¢     lda >scr¢     sta p2+1¢     lda <scr2¢     sta p3¢     lda >scr2¢     sta p3+1¢     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¢mkcd2 lda <map_¢     sta p0¢     lda >map_¢     sta p0+1¢_48  lda #56¢     sta bb2¢prl2 lda #32¢     sta bb¢prl1 lda #bn2¢     sta $d301¢     ldy #0¢pl1  lda map2¢     tax¢     lda lo2,x¢     sta p1¢     lda hi2,x¢     sta p1+1¢     lda #bn1¢     sta $d301¢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 akt¢     sta $d301¢     tya¢     pha¢     lda #$bd¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     lda akt2¢     sta $d301¢     pla¢     tay¢     lda #$bd¢     sta (p0),y¢     iny¢     lda p1¢     sta (p0),y¢     iny¢     lda p1+1¢     sta (p0),y¢     iny¢     lda #bn2¢     sta $d301¢pl3  lda map2+1¢     tax¢     lda lo,x¢     sta p1¢     lda hi,x¢     sta p1+1¢     lda #bn1¢     sta $d301¢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¢     tya¢     pha¢     lda akt¢     sta $d301¢     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¢     pla¢     tay¢     lda akt2¢     sta $d301¢     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 p3¢     sta (p0),y¢     iny¢     lda p3+1¢     sta (p0),y¢     iny¢     tya¢     clc¢     adc p0¢     sta p0¢     bcc *+4¢     inc p0+1¢     inc p2¢     bne *+4¢     inc p2+1¢     inc p3¢     bne *+4¢     inc p3+1¢     dec bb¢     bne prl1_¢     dec bb2¢     bne prl2_¢     lda akt¢     sta $d301¢     ldy #0¢     lda #$60¢     sta (p0),y¢     lda akt2¢     sta $d301¢     ldy #0¢     lda #$60¢     sta (p0),y¢     rts¢prl1_ jmp prl1¢prl2_ jmp prl2¢akt  brk¢akt2 brk¢¢calc lda <txl¢     sta p0¢     lda >txl¢     sta p0+1¢     lda <txl2¢     sta p1¢     lda >txl2C     sta p1+1¢     lda <scr¢     sta p2¢     lda >scr¢     sta p2+1¢     lda <scr2¢     sta p3¢     lda >scr2¢     sta p3+1¢     ldy #0¢tabl lda p0¢     sta lo,y¢     lda p0+1¢     sta hi,y¢     lda p1¢     sta lo2,y¢     lda p1+1¢     sta hi2,y¢     lda p2¢     sta lo3,y¢     lda p2+1¢     sta hi3,y¢     lda p3¢     sta lo4,y¢     lda p3+1¢     sta hi4,y¢     clc¢     lda p0¢     adc #128¢     sta p0¢     bcc *+5¢     inc p0+1¢     clc¢     lda p1¢     adc #128¢     sta p1¢     bcc *+5¢     inc p1+1¢     clc¢     lda p2¢     adc #72¢     sta p2¢     bcc *+5¢     inc p2+1¢     clc¢     lda p3¢     adc #72¢     sta p3¢     bcc *+4¢     inc p3+1¢     iny¢     bne tabl¢¢     ldx #64¢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¢     clc¢     lda #128¢     adc tr2+1¢     sta tr2+1¢     bcc *+5¢     inc tr2+2¢     clc¢     lda #128¢     adc tr3+1¢     sta tr3+1¢     bcc *+5¢     inc tr3+2¢     dex¢     bne tr0¢     ldx #64¢tr0_ ldy #0¢tr1_ lda txl,y¢     asl @¢     asl @¢     asl @¢     asl @¢tr2_ sta txl2,y¢     iny¢     cpy #128¢     bne tr1_¢     clc¢     lda #128¢     adc tr1_+1¢     sta tr1_+1¢     bcc *+5¢     inc tr1_+2¢     clc¢     lda #128¢     adc tr2_+1¢     sta tr2_+1¢     bcc *+5¢     inc tr2_+2¢     dex¢     bne tr0_¢     rts¢¢init lda #$22¢     sta $d400¢     lda #$40¢     sta $d01b¢     rts¢¢     org $2e0¢     dta a(run)¢     end¢