2 JA #ST / JUMP TO FPP ROUTINE'S START
5 EXTERN #RETRN / NEEDED FOR TRAP3 RETURN
6 EXTERN ONQI / FIDDLE SOMETHING INTO SKIP CHAIN
7 EXTERN #DISMS / DISMISS JUMP LIST
8 EXTERN #HANG / HANG ROUTINE
10 TOCHR=4 / LOCATION OF TTY STATUS WORD
11 / POSITIVE=CHARACTER IN QUEUE
15 TCF=6042 / CLEAR TELEPRINTER FLAG
16 TSF=6041 / TEST TELEPRINTER FLAG
18 / **************************************************************
24 SWAIT, CLA CLL / WAIT FOR SYSTEM TO BE DONE WITH TTY
25 TAD% PTOCHR / TELEPRINTER STATUS
27 JMP SWAIT / KEEP ON WAITING
28 CDF 10 / BACK TO DATA FIELD 1
30 TAD FIRST / FIRST CALL?
36 JMS% PONQI+1 / REGISTER OUR ROUTINE TO SKIP CHAIN
38 ADDR HANDLE / POINTER TO OUR HANDLER
40 TAD DISMIS+1 / SET UP TO CALL HANG
44 NOTFST, IOF / THIS SHOULD BE DONE WITHOUT INTERRUPT!
46 TAD CHAR / LOAD CHARACTER TO PRINT
49 ISZ ACTIVE / ENABLE OUR INT HANDLER
51 CIF 0 / #HANG IS IN FIELD 0
53 HLOC, 0 / LOCATION WHERE #HANG COUPLES INTO
55 ION / INTERRUPT BACK ON
58 JMP% RET+1 / GO HOME TO FPP LAND
62 HANDLE, 0 / OUR INTERRUPT HANDLER, CALLED FROM FIELD 1
66 JMP% HANDLE / NOT ACTIVE, LEAVE INTERRUPT UNPROCESSED
68 DCA ACTIVE / NOW INACTIVE
71 JMP% DISMIS+1 / INT PROCESSED
77 PONQI, ADDR ONQI / PUT SOMETHING ONTO SKIP CHAIN
82 FIRST, 0 / FLAG FOR INITAL SETUP
83 ACTIVE, 0 / FLAG TO INACTIVATE INT HANDLER
84 #CHAR, 0;0 / HERE GOES THE 3-WORD FROM FPP
85 CHAR, 0 / THAT'S WHAT WE PRINT
89 / **************************************************************
92 BASE 0 / STAY ON THE CALLER'S BASE
93 #PCBAS, ORG .+3 / OUR BASE PAGE
94 #PTR, ORG .+3 / POINTER
96 #XR, ORG .+10 / INDEX REGISTERS
98 #ST, / START OF FPP ROUTINE
99 STARTD / 24 BIT DATA ONLY
101 0210 /FLDA 30 / GET RETURN JA
102 FSTA# #GOBAK / PUT TO RETURN LOCATION
104 0200 /FLDA 0 / JA AROUND ARGUMENTS
107 SETX #XR / USE OWN INDEX REGISTERS
108 SETB #PCBAS / OUR BASE
110 FSTA #PTR / TO POINTER
112 LDX 0,1 / 0 TO INDEX REG 1
114 FLDA% #PTR,1+ / LOAD FROM (#PTR)+INDEX1
115 FSTA #ARGP1 / FIRST ARGUMENT POINTER
117 STARTF / BACK TO FLOATING POINT MODE
118 FLDA% #ARGP1 / LOAD THE ACTUAL ARGUMENT TO FAC.
119 ALN 0 / MAKE INTEGER OF IT
120 FSTA CHAR / STORE INTO PDP-8 ROUTINE'S BUFFER
122 TRAP3 PC8 / FIRE UP PDP-8
124 STARTF / BACK TO 3-WORD MODE (STILL NEEDED?)
125 #GOBAK, 0;0 / RETURN JUMP (FILLED IN ABOVE)