home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Debilizator 3
/
Debilizator_3_1998_AIDS_PL_Side_B.atr
/
wrm14496.arc
/
WRM14496.ASM
< prev
next >
Wrap
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¢