09 .OPT NO LIST¢10 ; SAVE #D1:PRINTER.M65¢20 ;¢30 ;¢40 ; LOAD #D1:ROMTEST.M65¢50 ;¢60 ; labels localized 14 Oct 94¢66 ;¢70 ; *= $FE99¢80 .PAGE "Printer Handler"¢81 LIST ¢90 .LOCAL ¢065177 PIN LDA #30 Printer init¢065179 STA PTIMOT Set time for¢065182 RTS status call¢065183 ?ADRSTT .WORD DVSTAT¢065185 ?ADRPRT .WORD PRNBUF¢065187 STATUS.P LDA #4 Buffer len and¢065189 STA PBUFSZ adr for status¢065192 LDX ?ADRSTT ; (ldx #<dvstat)¢065195 LDY ?ADRSTT+1 ;(ldy #>dvstat)¢065198 LDA #'S¢065200 STA DCOMND In DAux1 causes¢065203 STA DAUX1 sideways (at820)¢065206 JSR ?SETDCB¢065209 JSR SIOV Execute status¢065212 BMI NOFUNC.P Exit if bad¢065214 JSR ?SETTIM else set timeout¢065217 NOFUNC.P RTS ¢065218 OPEN.P JSR STATUS.P Open Prtr¢065221 LDA #0 Check status and¢065223 STA PBPNT reset buffer ptr¢065226 RTS ¢065227 PUT.P PHA Put Byte: Save¢065228 LDA ICDNO,X on stack and¢065231 STA ICDNOZ set device num¢065233 JSR ?BUFLEN Do buffer length¢065236 LDX PBPNT Set index¢065239 PLA Recover byte¢065240 STA PRNBUF,X Add to buffer¢065243 INX Bump index and,¢065244 CPX PBUFSZ if at maximum,¢065247 BEQ ?PRTBUF print it out.¢065249 STX PBPNT Else save index¢065252 CMP #155 Was byte a CR?¢065254 BEQ ?GOTCR If so pad buffer¢065256 LDY #1 Else just return¢065258 RTS for next byte. --- Exit, line incomplete¢065259 ?GOTCR LDA #32 Pad with spaces¢065261 ?PADLOOP STA PRNBUF,X Pad out¢065264 INX printer buffer¢065265 CPX PBUFSZ with character¢065268 BNE ?PADLOOP in accumulator.¢065270 ?PRTBUF LDA #0 Reset index for¢065272 STA PBPNT next call.¢065275 LDX ?ADRPRT ; (ldx #<prnbuf)¢065278 LDY ?ADRPRT+1 ;(ldy #>prnbuf)¢065281 JSR ?SETDCB Reset DCB, prt¢065284 JMP SIOV line and exit¢065287 CLOSE.P JSR ?BUFLEN Close P: -------- If buffer is not¢065290 LDA #155 empty, pad with¢065292 LDX PBPNT CR's, then print¢065295 BNE ?PADLOOP and exit via Sio¢065297 LDY #1 Else just exit¢065299 RTS ¢065300 ?SETDCB STX DBUFLO Set up DCB¢065303 STY DBUFHI Buffer address¢065306 LDA #$40 Sio device = P1:¢065308 STA DDEVIC (if P2: then $4F)¢065311 LDA ICDNOZ Cio device as¢065313 STA DUNIT set by caller.¢065316 LDA #$80 Flag Sio output¢065318 LDX DCOMND¢065321 CPX #'S except on Status¢065323 BNE ?SETDIR¢065325 LDA #$40 which is input.¢065327 ?SETDIR STA DSTATS¢065330 LDA PBUFSZ Finish up DCB¢065333 STA DBYTLO¢065336 LDA #0¢065338 STA DBYTHI¢065341 LDA PTIMOT¢065344 STA DTIMLO¢065347 RTS ¢065348 ?SETTIM LDA DVSTAT+2 Get time-¢065351 STA PTIMOT out from Status¢065354 RTS ¢065355 ?BUFLEN LDY #'W Command in Y¢065357 LDA ICAX2Z Check Icax2¢065359 ?NORM? CMP #'N Normal width?¢065361 BNE ?WIDE?¢065363 LDX #40 Yes, line len 40¢065365 BNE ?SETLEN Go always¢065367 ?WIDE? CMP #'D Double width?¢065369 BNE ?SIDE?¢065371 LDX #20 Yes, line len 20¢065373 BNE ?SETLEN¢065375 ?SIDE? CMP #'S at820 sideways?¢065377 BNE ?DEFLT¢065379 LDX #29 Yes, line len 29¢065381 ?SETLEN STX PBUFSZ¢065384 STY DCOMND¢065387 STA DAUX1 Icax2->Daux1¢065390 RTS ¢065391 ?DEFLT LDA #'N Make it normal¢065393 BNE ?NORM? Go always¢
