Atari 400 Technical Reference Manual page 327

ERR LINE AOOR B1 B2 B3 B4 PRINTER *****
PRINTP.SRC
*****
3/9/79
*****
4:00 PAGE 66
2985 EEAE
A5 1F LOA PTEMP
i
GET CHAR. SENT BY CIO
2986 EEBO 90 CO 03 STA PRNBUF,X
i
PUT CHAR. IN PRINT BUFFER
2987 EEB3 E8 INX
i
INCR. BUFFER POINTER
2988 EEB4 E4 1E CPX PBUFSZ iBUFFER POINTER=BUFFER SIZE?
2989 EEB6 FO 13 BEG BUFFUL
2990 EEB8 86 10 STX PBPNT iSAVE BUFFER POINTER
2991 EEBA C9 9B CMP #CR ; IS CHAR.
=
EOL ?
2992 EEBC FO 03 BEG BLFILL
i
IF YES, GO DO BLANK FILL.
2993 EEBE AO 01 LDY #SUCCES iPUT GOOD STATUS IN Y REG FOR CIO.
2994 EECO 60 RTS
2995 EECl A9 20 BLFILL: LDA #SPACE
iPUT BLANK IN ACCUM.
2996
EEC3
9D CO 03 FILLBF: STA PRNBUF,X iSTORE IT IN PRINT BUFFER.
2997 EEC6 E8 INX
2998 EEC7
E4 1E CPX PBUFSZ
2999
EEC9
DO Fe BNE FILLBF iBUFFER BLANK FILLED?
3000
EECB
A9 00 BUFFUL: LDA
#0
3001 EECD 85 10 STA PBPNT iCLEAR PRINT BUFFER POINTER
3002
EECF
AE 7F EE LDX PHCHLO
3003 EED2 AC 80 EE LDY PHCHLO+l iSET POINTER TO PRINT BUFFER
3004 EED5 20 E6 EE JSR SETDCB
i
GO SETUP DCB
3005 EED8 20 59 E4 JSR SIOV iSEND PRINT COMMAND
3006 EEDB 60 RTS
i
YES.
3007
3008
3009
3010
3011 PRINTER HANDLER CLOSE ROUTINE
3012
3013 EEOC 20 1A EF PHCLOS: JSR PRMODE iGO DETERMINE PRINT MODE
3014 EEDF A6 1D LDX PBPNT
3015 EEE1 DO DE BNE BLFILL
3016
EEE3
AO 01 LDY #SUCCES
3017 EEE5
60 RTS
3018
3019
3020
3021
3022
3023
3024
3025
3026 SUB R 0 UTI N E S
3027
3028
3029
3030
3031
3032 SET UP Dca TO CALL SIO
3033
3034 EEE6 8E 04 03 SETDCB: STX
DaUFLO
3035 EEE9 8C 05 03
STY DaUFHI iSET BUFFER POINTER
3036
EEEC
A9 40 LDA #PDEVN
3037 EEEE 8D 00 03 STA DDEVIC
i
SET PR INTER BUS
I.
D. FOR DCB
3038 EEF1 A9 01 LDA #1