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
/
COLLIN.ASM
next >
Wrap
Assembly Source File
|
2002-01-09
|
2KB
|
1 lines
¢*②②②②②②②②②②②②②②②②②②②②②②②②*¢| COLLIN by H.Karpowicz |¢| |¢|RUN $9E00 |¢|MEMHI $9E00 |¢| ESC - powrot do QA |¢*②②②②②②②②②②②②②②②②②②②②②②②②*¢¢ opt %10101¢¢pocz equ $9E00¢¢clock equ $12¢ekrv equ $58 (+1)¢rowcrs equ $54¢colcrs equ $55 (+1)¢¢byte equ $CB¢addr equ $CC (+1)¢x equ $CE¢y equ $CF¢c 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 equ *¢¢ jsr init¢ jsr clear¢¢ lda #$10¢ sta $2C8¢¢ lda #55¢ sta byte¢¢loop equ *¢¢ ldy #0¢l1 sty y¢ clc¢ tya¢ adc byte¢ sta x¢¢ sec¢ lda #$0C¢ sbc y¢ bpl l2¢ eor #$0F¢l2 sta c¢ sta color¢¢ clc¢ lda byte¢ adc #7¢ sec¢ sbc dpr,y¢ tay¢ ldx x¢ jsr mplot¢¢ clc¢ lda byte¢ adc #7¢ adc dpr,y¢ tay¢ ldx x¢ jsr mdraw¢¢ sec¢ lda #15¢ sbc c¢ sta color¢¢ ldx y¢ sec¢ lda #177¢ sbc byte¢ tay¢ jsr mdraw¢ ldy y¢ iny¢ cpy #24¢ bne l1¢¢ sec¢ lda byte¢ sbc #10¢ sta byte¢ bpl loop¢¢spk lda kbcods¢ cmp #$FF¢ beq spk¢ ldy #$FF¢ sty kbcods¢¢ jsr close¢ rts¢¢mplot sty rowcrs¢ stx colcrs¢ jmp plot¢¢mdraw equ *¢¢ sty rowcrs¢ stx colcrs¢ jmp drawto¢¢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)¢dpr dta d' "##$$%%%%%%&%%%%%%$$##" '¢¢kprg equ *¢¢* org $2E0¢* dta a(bgn)¢*------------------¢ opt %110¢long equ kprg-bgn¢¢*------------------¢ end of file¢¢