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

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

+----------------+¢|GFX Print Proc 2|¢|  (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¢¢ 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 #$27¢ sta lic1¢pr1 equ *¢ lda lic1¢ eor #$ff¢ clc¢ adc #$28¢ tay¢ lda <graf+$1dd8¢ sta pom1¢ lda >graf+$1dd8¢ sta pom1+1¢ ldx #$00¢¢pr2 equ *¢ lda (pom1),y¢ cmp #$9b¢ bne *+4¢ lda #$9a¢ sta bfgr,x¢ lda pom1¢ sec¢ sbc #$28¢ bcs *+4¢ dec pom1+1¢ sta pom1¢ inx¢ cpx #$c0¢ bne 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($00c0)¢bfgr org *+$c0¢ dta b(13),b(27),c'J',b($18)¢blen equ *-buff¢¢ end of file¢¢