Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/algots.c07
There are 14 other files named algots.c07 in the archive. Click here to see a list.
REP 3/111 ;07C1
READ35: LDB A3,[
POINT 3,A2,17]
WIT
READ35: CAIN A13,15 ; [345] WAS TERMINATOR <CR>?
JSP AX,INCHAR ; [345] YES, LOSE <LF>
LDB A3,[POINT 3,A2,17]
REP 8/123 ;07C2
SOJE A0,PRIN52 ; CALCULATE EXPONENT - ESCAPE IF ZERO
WIT
SOS A0 ;[344] CORRECT EXPONENT AND FALL THROUGH
REP 12/148 ;07C3
BLT A0,%ACCS+SP(DB) ; SAVE ACCUMULATORS
WIT
SUBI DL,(DB) ;[343] DELOCATE DL BEFORE SAVING
SUBI SP,(DB) ;[343] AND SP
BLT A0,%ACCS+SP(DB) ; SAVE ACCUMULATORS
ADDI DL,(DB) ;[343] RELOCATE DL
ADDI SP,(DB) ;[343] AND SP
REP 26/149 ;07C4
ERRM8: LDB A5,[
POINT 4,.JBUUO,12] ; NO DIRECTORY-ENTRY - GET ERROR #
WIT
ERRM8: LDB A5,[POINT 4,.JBUUO,12] ; NO DIRECTORY-ENTRY - GET ERROR #
REP 33/149 ;07C5
MOVEI A1,[
ASCIZ/:/]
WIT
MOVEI A1,[ASCIZ/:/]
REP 7/150 ;07C6
MOVEI A1,[
ASCIZ/./]
WIT
MOVEI A1,[ASCIZ/./]
REP 11/163 ;07C7
M416: ASCIZ /Invalid file specification/ ; [324]
WIT
M416: ASCIZ /Invalid file specification on/ ; [346]
SUM 42489