RCA 1800 Operator's Manual page 121

120 _ _ __ __ _ _ _ _ _ _ _ _ _ _ _ Operator Manual for the RCA CDS II CDP18S005
87AG ;
.BUT IF THE
87AO ;
• WILL
87AO ;
87AO
87AO ,
EE RESET
87AO 9FFBOA;
87A3 328C;
87As 9FFE13;
8rA8 32CO;
E7AA 9FFBFFs2;
87AE 34AE;
.. 8lEO 6622;
:I
8782 9FFBOO;
. 87es 3ABC;
87E7 F80ABF;
87BA 30AA;
87BC F801 F6;
87BF 05;
87CO F6;
87C1 05;
87C2 ;
0000
0396 •• NORMALLY, THIS ROUTINE RETURNS WITH THE OFLAG SET,
0397 •• CHARACTER IN RF.1 WAS A DC3(END OF FILE), THE DFLAG
0398
0399
0400
0401
0402
0403
0404
0405
0406
0407
0408
0409
0410
0411
0412
0413
0414
0415
0416
•• ON RETURN.
PRNTRF: GHI RF;XRI
el EXITDF
GHI RF;XRI
el EXITEF
PRINT1: GHI RFiXRI
P.1
*
OUT 6; DEC
<?HI RFiXRI
BNl EXITDF
LDI flOAiPHI
ER PRINT1
EXITDF: LDI fl01iSHR
SEP Rs
EXITEF: SHR
SEP Rs
END
flOA •• IF LINE FEED, EXIT
#13 •• IF OC3, EXIT
flFFiSTR R2 •• INVERT DATA
•• WAIT UNTIL READY
R2 •• OUTPUT CHARACTER
flOD •• CARRIAGE RETURN?
•• NO, EXIT
RF •• YES, PRINT A LINE FEED
•• SET DFLAG
•• AND RETURN
•• RESET DFLAG
•• AND RETURN