14 TCF=6042 / CLEAR TELEPRINTER FLAG
15 TOCHR, 4 / LOCATION OF TTY STATUS
16 / POSITIVE=CHARACTER IN QUEUE
23 DCA DFIELD / SAVE DATA FIELD
27 TAD% TOCHR / TELEPRINTER STATUS
33 TAD DFIELD / DATA FIELD RESTORATION
36 CDF 0 / WILL BE OVERWRITTEN
38 TAD CHAR2 / LOAD CHARACTER TO PRINT
43 / JMP .-1 / WAIT TO BE DONE WITH CHARACTER
50 CDFXX, CDF 0 / INSTRUCTION TEMPLATE
58 /FPP code here; using the rest of the SECT8 page.
62 / **************************************************************
99 #ST, / START OF FPP ROUTINE
100 STARTD / 24 BIT DATA ONLY
102 0210 /FLDA 30 / GET RETURN JA
103 FSTA #GOBAK / PUT TO RETURN LOCATION
105 0200 /FLDA 0 / JA AROUND ARGUMENTS
108 SETX XR / USE OWN INDEX REGISTERS
109 SETB #PCBAS / OUR BASE
111 FSTA #PCBAS / TO POINTER
113 LDX 0,1 / 0 TO INDEX REG 1
115 FLDA% #PCBAS,1+ / LOAD FROM #PCBAS+INDEX1
116 FSTA ARGP1 / ADDRESS OF ARGUMENT 1
119 FLDA% ARGP1 / NOW WE HAVE ARGUMENT 1
120 ALN 0 / MAKE INTEGER OF IT
125 STARTF / BACK TO 3-WORD MODE
126 JA #GOBAK / RETURN JUMP
127 #GOBAK, 0;0 / RETURN JUMP TARGET