Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
tapuuo.c12
There are no other files named tapuuo.c12 in the archive.
REP 8/19 ;12C1
PUSHJ P,WSYNC## ;WAIT FOR I/O TO STOP
WIT
PUSHJ P,WAIT1## ;WAIT FOR I/O TO STOP
REP 14/20 ;12C2
MOVEI P2,TPMISP ;YES - GO HERE INSTEAD
WIT
MOVEI P2,CLSDN1 ;YES - GO HERE INSTEAD
INS 21/20 ;12C3
;HERE AFTER BACKSPACE RECORD
CLSDN1: PUSHJ P,SETIOS ;SET UP S
JSP P2,SPERR ;HANDLE SPACING ERROR
PJRST TPMSTP ;AND WIND DOWN
REP 20/49 ;12C4
PJRST TPMSTP ;WIND IT DOWN
WIT
PUSHJ P,TPMRIO ;RETURN IORB
HLLZS TKBSTS##(W) ;CLEAR KON STATUS
PJRST STOIOS ;WIND IT DOWN
SUM 205947