Serious Magazine 5/Serious_Magazine_05_1999_Dial_pl_Side_B.atr/sstuff05.arc/BYTE256.ARC/TINY02.ASM

Assembly Source File | 1988-09-01 | 2KB | 1 lines

*      TINY02¢* Kr0ger/Quasimodos¢¢ opt 37¢¢rand equ $d20a¢¢tb1 equ $8000¢tbx equ $3800¢tby equ $3900¢tbz equ $3a00¢bit equ $3b00¢bajt equ $3c00¢ekr equ $1000¢¢pom1 equ $40¢¢mm equ $42¢mk equ $43¢¢ org $55¢¢d0 equ *¢ ldy #0¢ sty mk¢ tya¢ pha¢ ldx #$ff¢d1 equ *¢ lda mk¢d2 adc si+31¢ sta mk¢ pla¢ adc #0¢ pha¢¢d3 sta tb1+$1f00,y¢d4 sta tb1+$3f00,x¢ eor #$ff¢d5 sta tb1+$1f00,x¢d6 sta tb1+$3f00,y¢ dex¢ iny¢ bpl d1¢¢ pla¢ dec d2+1¢ dec d3+2¢ dec d4+2¢ dec d6+2¢ dec d5+2¢¢ bmi d0¢¢* -¢¢sin equ d3+1¢cos equ d4+1¢¢* -¢¢ lda #15¢l0 equ *¢ sta dl2-1,x¢ dex¢ bne l0¢¢ lda <dl1¢ sta $230¢ lda #33¢ sta 559¢¢* -¢¢c0 equ *¢ tya¢c1 equ *¢ sta bit,x¢ inx¢ beq c2¢ lsr @¢ bcc c1¢ bcs c0¢¢c2 equ *¢ txa¢ lsr @¢ lsr @¢ lsr @¢ sta bajt,x¢ inx¢ bne c2¢¢* -¢¢a0 equ *¢ jsr los¢ ldy #60¢ lda (sin),y¢ sta tbz,x¢ lda (cos),y¢ tay¢¢ jsr los¢ lda (cos),y¢ sta tbx,x¢ lda (sin),y¢ sta tby,x¢¢ inx¢ bne a0¢¢* -¢¢e0 equ *¢ lda 20¢ cmp 20¢ beq *-2¢¢ ldy >ekr¢ sty e1+2¢ txa¢e1 sta ekr,x¢ inx¢ bne e1¢ inc e1+2¢ dey¢ bpl e1¢¢ lda sin+1¢ jsr los+5¢¢e3 ldy bajt¢e4 lda bit¢ ora (pom1),y¢ sta (pom1),y¢¢ lda #1¢ sta pom1¢ sta $231¢¢ ldy tbz,x¢ lda (sin),y¢ ldy tby,x¢ sbc (cos),y¢ ora #$80¢ lsr @¢ ror pom1¢ lsr @¢ ror pom1¢ lsr @¢ ror pom1¢ sta pom1+1¢¢ lda (sin),y¢ ldy tbz,x¢ adc (cos),y¢ tay¢¢ lda (sin),y¢ ldy tbx,x¢ sbc (cos),y¢ sta e3+1¢ sta e4+1¢¢ inx¢ bne e3¢¢ inc sin+1¢ bne e0¢¢* -¢¢los equ *¢ lda rand¢ ora #$80¢ and #%10111111¢ sta sin+1¢ adc #16¢ and #%10111111¢ sta cos+1¢ rts¢¢si equ *¢ dta b(0),b(25),b(50),b(74),b(98),b(121),b(142),b(162)¢ dta b(181),b(198),b(213),b(226),b(237),b(245),b(251),b(254)¢ dta b(255),b(254),b(251),b(245),b(237),b(226),b(213),b(198)¢ dta b(181),b(162),b(142),b(121),b(98),b(74),b(50),b(25)¢¢dl1 equ *¢ dta b(79),a(ekr+$800+16)¢dl2 equ *¢¢ opt %111¢