home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serious Magazine 3
/
Serious_Magazine_03_1998_Dial_pl_Side_B.atr
/
sstuff03.arc
/
BYTES256.ARC
/
TINY01.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-09-01
|
2KB
|
1 lines
*--------------------------*¢| "TINY 01" |¢| 250 bytes |¢| , |¢| autor: Kroger/Quasimodos |¢| VII-VIII 1998 |¢| |¢| RUN : 9309 |¢| MEMHI: 9000 |¢| |¢| This source is freeware! |¢| |¢| SERIOUS MAGAZINE #3 |¢| |¢| Powrot do QA-SHIFT+BREAK |¢*--------------------------*¢¢ opt %10101¢¢plot equ $80¢ma equ $82¢mk equ $83¢y equ $84¢ek equ $85¢¢rand equ $d20a¢¢ekr equ $a000¢tab1 equ $9800¢tab2 equ $9900¢tab3 equ $9a00¢tab4 equ $9b00¢tab5 equ $9c00¢bit equ $9d00¢bajt equ $9e00¢¢ org $9309¢¢ ldy #127¢ lda #15¢l0 equ *¢ sta dl2-1,y¢ dey¢ bne l0¢ sty 710¢ sty ek¢ sty $230¢ lda >dl1¢ sta $231¢ lda #65¢ sta dl2+127¢ lda #33¢ sta 559¢¢l1 lda #$80¢l2 sta bit,y¢ iny¢ beq k00¢ lsr @¢ bcc l2¢ bcs l1¢¢k00 equ *¢ tya¢k0 ldx #8¢k1 sta bajt,y¢ pha¢ iny¢ beq jj0¢ dex¢ bne k1¢ adc #1¢ bne k0¢¢jj0 equ *¢ pla¢ lsr @¢ adc #2¢ sta tab5,y¢ iny¢ bne jj0¢¢l3 equ *¢ lda rand¢ and #$7f¢ sta tab1,y¢ lda #63¢ sta tab2,y¢ jsr bll¢ dey¢ lda rand¢ and #$3f¢ sta tab2,y¢ lda #127¢ sta tab1,y¢ jsr bll¢ dey¢ bne l3¢¢h0 equ *¢ lda #0¢ sta plot¢ ldx h1+1¢ lda tab3,x¢ sta ma¢ adc tab5,x¢ sta tab3,x¢¢ lda tab2,x¢ jsr mnoz¢ sta y¢ lda tab1,x¢ jsr mnoz¢¢h1 bit tab4¢ bmi h3¢ eor #$80¢ tax¢ bvs h4¢ bne hi0¢¢h3 equ *¢ eor #%1111111¢ tax¢ bvs h4¢hi0 equ *¢ lda y¢ adc #64¢ bne h5¢h4 equ *¢ lda #64¢ sbc y¢h5 equ *¢ lsr @¢ ror plot¢ lsr @¢ ror plot¢ lsr @¢ ror plot¢ adc >ekr¢ sta plot+1¢ ldy bajt,x¢ lda (plot),y¢ ora bit,x¢ sta (plot),y¢ inc h1+1¢ bne h0¢ lda >ekr-$100¢ sta ek+1¢ ldx #$10¢ lda #0¢h6 sta (ek),y¢ dey¢ bne h6¢ inc ek+1¢ dex¢ bpl h6¢ jmp h0¢¢bll equ *¢ lda rand¢ sta tab3,y¢ lda rand¢ and #$c0¢ sta tab4,y¢ rts¢¢mnoz equ *¢ sta mk¢ ldy #8¢mn0 lsr mk¢ bcc mn1¢ adc ma¢mn1 ror @¢ dey¢ bne mn0¢ rts¢¢dl1 dta b(79),a(ekr)¢dl2 equ *¢¢ End of file¢
