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
/
RURY3.ASM
< prev
next >
Wrap
Assembly Source File
|
2002-01-09
|
2KB
|
1 lines
¢*②②②②②②②②②②②②②②②②②②②②②②②*¢| RURY3 by H.Karpowicz |¢|z krotszym kodem wynik.|¢| |¢|RUN $9E00 |¢|MEMHI $9E00 |¢| ESC - powrot do QA |¢*②②②②②②②②②②②②②②②②②②②②②②②*¢¢ opt %10101¢¢pocz equ $9E00¢¢clock equ $12¢rowcrs equ $54¢colcrs equ $55 (+1)¢¢x1 equ $CB¢x2 equ $CC¢y1 equ $CD¢y2 equ $DE¢flx equ $CF¢fly equ $D0¢¢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¢ clc¢ adc #8¢ sta x1¢ sta x2¢l0 lda rand¢ cmp #160¢ bcs l0¢ adc #16¢ sta y1¢ sta y2¢¢ ldx #15¢l1 stx color¢ ldx #0¢l1a ldy y1¢ stx flx¢ jsr mplot¢ ldy y2¢ ldx flx¢ jsr mplot¢ ldx flx¢ inx¢ cpx #80¢ bne l1a¢ dec y1¢ inc y2¢ ldx color¢ dex¢ bpl l1¢¢ ldx #7¢l3 txa¢ pha¢ asl @¢ sta color¢ ldy #0¢l3a ldx x1¢ sty fly¢ jsr mplot¢ ldy fly¢ ldx x2¢ jsr mplot¢ ldy fly¢ iny¢ cpy #191¢ bne l3a¢ dec x1¢ inc x2¢ pla¢ tax¢ dex¢ bpl l3¢¢* 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¢
