home *** CD-ROM | disk | FTP | other *** search
/ Serious Magazine 10 / Serious_Magazine_10_2001_Dial_pl_Disk_2_of_2_Side_B_a.atr / henryk.lzh / RURY2.ASM < prev    next >
Assembly Source File  |  2002-01-09  |  2KB  |  1 lines
  1. ¢*②②②②②②②②②②②②②②②②②②②②②②②*¢| RURY2 by H.Karpowicz  |¢|z pominieta proc. DRAW.|¢| o 36% szybsze.        |¢|                       |¢|RUN   $9E00            |¢|MEMHI $9E00            |¢|  ESC - powrot do QA   |¢*②②②②②②②②②②②②②②②②②②②②②②②*¢¢     opt %10101¢¢pocz equ $9E00¢¢clock  equ $12¢rowcrs equ $54¢colcrs equ $55 (+1)¢¢x    equ $CB¢y    equ $CC¢flx  equ $CD¢fly  equ $CE¢¢gprior equ $26F¢color  equ $2FB¢kbcods equ $2FC¢iocb   equ $340¢¢rand   equ $D20A¢ciov   equ $E456¢reset  equ $E474¢plot   equ $F1CA¢clear  equ $F420¢drawto equ $F9AF¢*--------------¢     org pocz¢¢bgn  jsr init¢     jsr clear¢¢loop equ *¢¢*     lda #0¢*     sta clock+2¢¢     lda rand¢     and #$3F¢     sta x¢l0   lda rand¢     cmp #$A0¢     bcs l0¢     sta y¢¢     ldx #0¢l1   stx color¢     ldx #0¢l1a  ldy y¢     stx flx¢     jsr mplot¢     ldx flx¢     inx¢     cpx #80¢     bne l1a¢     inc y¢     ldx color¢     inx¢     cpx #15¢     bne l1¢¢l2   stx color¢     ldx #0¢l2a  ldy y¢     stx flx¢     jsr mplot¢     ldx flx¢     inx¢     cpx #80¢     bne l2a¢     inc y¢     ldx color¢     dex¢     bpl l2¢¢     ldx #0¢l3   txa¢     pha¢     asl @¢     sta color¢     ldy #0¢l3a  ldx x¢     sty fly¢     jsr mplot¢     ldy fly¢     iny¢     cpy #192¢     bne l3a¢     inc x¢     pla¢     tax¢     inx¢     cpx #7¢     bne l3¢¢l4   txa¢     pha¢     asl @¢     sta color¢     ldy #0¢l4a  ldx x¢     sty fly¢     jsr mplot¢     ldy fly¢     iny¢     cpy #192¢     bne l4a¢     inc x¢     pla¢     tax¢     dex¢     bpl l4¢¢*     lda clock+2¢*     brk¢¢*-End loop¢¢     jsr spk¢     cmp #$1C¢     beq jret¢     jmp loop¢¢jret jsr close¢     rts¢¢mplot sty rowcrs¢      stx colcrs¢      jmp plot¢¢spk  lda kbcods¢     cmp #$FF¢     beq spe¢     ldy #$FF¢     sty kbcods¢spe  rts¢¢Init Equ *¢¢*-Open Gr.9¢¢     ldx #$60¢     lda #3¢     sta iocb+2,x¢     lda <s¢     sta iocb+4,x¢     lda >s¢     sta iocb+5,x¢     lda #12       | +16 gdy okno¢     sta iocb+10,x¢     lda #9        |Nr. trybu Gr.¢     sta iocb+11,x¢     jsr ciov¢     lda #$11¢     sta iocb+2,x¢     jmp ciov¢¢close equ *¢¢     ldx #$60¢     lda #12¢     sta iocb+2¢     jmp ciov¢¢s    dta c'S:',b($9B)¢¢kprg equ *¢¢*     org $2E0¢*     dta a(bgn)¢*------------------¢     opt %110¢long equ kprg-bgn¢¢*------------------¢     end of file¢