home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 5
/
Serious_Magazine_05_1999_Dial_pl_Side_B.atr
/
sstuff05.arc
/
BYTE256.ARC
/
ZOOM.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
2KB
|
1 lines
û¡ØŒŒΓ¡á·∩∩ϕσ≥é¢ûβפŒ»βחגŒáõŒ¨¨é¢û⌠Φ°Ø´כ·Σ»אאŒכé¢û¡¡¡¡¡¡¡¡¡¡¡¡¡é¢ûöצσ≥Θ∩⌡≤ááúŒö颢 opt %100101¢chs equ $8040¢chz equ $a000¢dl equ $9e00¢¢p0 equ $80 *2¢p1 equ $82 *2¢dx equ $84¢dxa equ $85¢bb equ $86¢msk equ $87¢msk2 equ $88¢mch equ $89¢¢ org $b000¢ ldy #0¢ sty dx¢mk1 lda #$4f¢ sta dl,y¢ sta dl+$100,y¢ iny¢ bne mk1¢ asl @¢ sta $231¢ sta dl+$1ca¢ lda #$41¢ sta dl+$1c8¢¢ ldy #0¢ sty $230¢ sty dl+$1c9¢mz3 ldx #8¢mz3_ lda #1¢mz1 sta chz,y¢ iny¢ dex¢ bne mz1¢ txa¢mz2 sta chz,y¢ iny¢ inx¢ cpx #8¢ bne mz2¢ tya¢ bne mz3_¢¢loop jsr lop2¢ lda <chs+$100¢ sta p1¢ lda >chs+$100¢ sta p1+1¢ lda #8¢ sta lop2_+1¢ jsr lop2_¢ stx lop2_+1¢¢ix ldy #0¢ bne oth2+4¢ inc dx¢ inc dx¢ bne oth2¢ inc ix+1¢oth2 lda dx¢ bne oth4¢ dec dx¢ dec dx¢ bne oth4¢ dec ix+1¢¢oth4 lda <dl+1¢ sta p1¢ lda >dl+1¢ sta p1+1¢ ldx #38¢kr2 lda #4¢ sta bb¢ lda chs,x¢ sta mch¢kr ldy #0¢ lda #$40¢ sta (p1),y¢ iny¢ rol mch¢ rol mch¢ bcs _1¢ asl @¢ sta (p1),y¢ bne zkip¢_1 lda >chs+$100¢ sta (p1),y¢zkip lda #3¢ clc¢ adc p1¢ sta p1¢ bcc *+4¢ inc p1+1¢ dec bb¢ bne kr¢ dex¢ bne kr2¢ beq loop¢¢lop2 lda >chs¢ sta p1+1¢ lsr @¢ sta p1¢lop2_ lda #0¢ sta p0¢ lda >chz¢ sta p0+1¢ stx dxa¢¢ lda #40¢ sta bb¢zom2 ldx #2¢ lda #$80¢ sta msk2¢ eor #$ff¢ sta msk¢zom1 ldy #0¢ lda (p0),y¢ beq skp1¢ lda (p1),y¢ ora msk¢ sta (p1),y¢ lda msk¢ ror @¢ ror msk¢ bne skp2¢skp1 lda (p1),y¢ and msk2¢ sta (p1),y¢ lda msk2¢ ror @¢ ror msk2¢skp2 lda dxa¢ adc dx¢ sta dxa¢ bcc *+4¢ inc p0¢ dex¢ bne zom1¢ inc p1¢ dec bb¢ bpl zom2¢ rts¢¢ end¢
