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

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

+----------------+¢|GFX Print Proc 3|¢|  (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¢pom2 equ $82¢lic1 equ $84¢lic2 equ $85¢lic3 equ $86¢¢ 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¢ bpl *+7¢errs equ *¢ pla¢ pla¢ jmp eror¢¢ lda <buff¢ sta bfad¢ lda >buff¢ sta bfad+1¢ lda <blen¢ sta bfln¢ lda >blen¢ sta bfln+1¢¢ lda <graf¢ sta pom2¢ lda >graf¢ sta pom2+1¢ lda #$07¢ sta lic1¢¢pr0 equ *¢ lda #$02¢ sta lic3¢¢pr1 equ *¢ ldx lic3¢ lda pom2¢ ldy pom2+1¢ clc¢ adc grad,x¢ bcc *+3¢ iny¢ sta pom1¢ sty pom1+1¢ lda odst,x¢ sta bfen+3¢¢ 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¢ lda pom1¢ clc¢ adc #$78¢ bcc *+4¢ inc pom1+1¢ sta pom1¢ dec lic2¢ bpl pr2¢¢ jsr putb¢ bmi errs¢ dec lic3¢ bpl pr1¢¢ lda pom2¢ clc¢ adc <$3c0¢ sta pom2¢ lda pom2+1¢ adc >$3c0¢ sta pom2+1¢ dec lic1¢ bpl pr0¢ rts¢¢odst equ *¢ dta b($16),b($01),b($01)¢grad equ *¢ dta b($50),b($28),b($00)¢¢qual equ *¢ dta c'U1'¢¢buff equ *¢ dta c'*',b($00),a($0140)¢bfgr org *+$140¢bfen equ *¢ dta b(13),b(27),c'J',b($18)¢blen equ *-buff¢¢ end of file¢¢