Serious Magazine 7/Serious_Magazine_07_2000_Dial_pl_Side_B.atr/sstuff07.lzh/PRINTGFX.LZH/GFXPP1.ASM

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

+----------------+¢|GFX Print Proc 1|¢|  (horizontal)  |¢|----------------|¢| for Serious #7 |¢|  by Qcyk/Dial  |¢|----------------|¢|     Setup:     |¢|   Run:  9000   |¢|   Mem:  9000   |¢+----------------+¢¢|áמβáΣ∙≤δ⌡á≈á≤⌠βπΩΘá∈⌡ϕσ≥áõá¢|áϕ⌡≤Θá·∈βΩΣ∩≈βπá≤Θσá≡∮Θδ´áá¢|áחנספנב«IJצלáááááááááááááááᢢ  opt 21 |do pamieci¢¢graf equ $9800¢bfad equ $fc¢bfln equ $fe¢¢pom1 equ $80¢lic1 equ $82¢lic2 equ $83¢¢ org $9000¢¢main equ *¢ jsr pnfo¢ jsr gkey¢ bmi eror¢ cmp #$30¢ bcc exit¢ cmp #$38¢ bcs exit¢ and #$07¢ sta buff+2¢¢ jsr pwit¢ jsr open¢ bmi eror¢ jsr prnt¢ jsr clos¢ bpl main¢¢eror equ *¢ jsr $f556     bell¢ jsr perr¢ jsr gkey¢ bpl main¢¢exit equ *¢ jmp ($a)¢¢ ICL 'D1:IOPROC.ASM'¢¢*---------¢prnt equ *¢ lda #'1'    '0' - dwu-, '1' - jedno-¢ sta qual+2  kierunkowy druk¢ lda <qual¢ sta bfad¢ lda >qual¢ sta bfad+1¢ lda #$03¢ sta bfln¢ lda #$00¢ sta bfln+1¢ jsr putb¢ bmi errs¢¢ lda <buff¢ sta bfad¢ lda >buff¢ sta bfad+1¢ lda <blen¢ sta bfln¢ lda >blen¢ sta bfln+1¢¢ lda #$17¢ sta lic1¢ lda <graf¢ sta pom1¢ lda >graf¢ sta pom1+1¢¢pr1 equ *¢ lda #$07¢ sta lic2¢¢pr2 equ *¢ lda <bfgr¢ sta pr5+1¢ lda >bfgr¢ sta pr5+2¢ ldy #$00¢pr3 equ *¢ lda (pom1),y¢ ldx #$07¢pr4 equ *¢ asl @¢pr5 equ *¢ rol bfgr¢ inc pr5+1¢ bne *+5¢ inc pr5+2¢ dex¢ bpl pr4¢ iny¢ cpy #$28¢ bne pr3¢ tya¢ clc¢ adc pom1¢ bcc *+4¢ inc pom1+1¢ sta pom1¢ dec lic2¢ bpl pr2¢¢ jsr putb¢ bmi errs¢ dec lic1¢ bpl pr1¢ rts¢¢errs equ *¢ pla¢ pla¢ jmp eror¢¢qual equ *¢ dta c'U1'¢¢buff equ *¢ dta c'*',b($00),a($0140)¢bfgr org *+$140¢ dta b(13),b(27),c'J',b($18)¢blen equ *-buff¢¢ end of file¢¢