Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobold.c07
There is 1 other file named cobold.c07 in the archive. Click here to see a list.
INS 3/2 ;07C1
;JBB 10-NOV-83 [1503] Fix edit 1466 so WRITE ADV will not get FATAL
; 365. Treat default recording mode as legit.
;JEH 02-MAY-83 [1466] Give error on WRITE ADV/POS if not ASCII file
;DMN 28-Apr-83 [1465] Fix edit 1354 to use DKEYSZ rather than KEYRLN.
;RLF 19-APR-83 [1460] Give error message when key is subcripted.
REP 67/18 ;07C2
CAIN TB,%RM.SA ;OR STANDARD-ASCII
TRNA
WIT
;[1466] CAIN TB,%RM.SA ;OR STANDARD-ASCII
;[1466] TRNA
REP 31/28 ;07C3
POPJ PP,
WIT
JRST PA87.1 ;[1466] CHECK RECORDING MODE
REP 37/28 ;07C4
POPJ PP,
WIT
PA87.1: SKIPN TA,CURFIL ;[1466]
POPJ PP,
LDB TB,FI.ERM## ;[1466] GET EXTERNAL REC. MODE
LDB TA,FI.RM2## ;[1503] WAS ONE REALLY DECLARED?
CAIE TB,%RM.7B ;[1466] IS IT ASCII?
SKIPN TA ;[1503] ZERO => NONE DECLARED
POPJ PP, ;[1503] [1466] OK - EXIT
EWARNJ E.365 ;[1503] [1466] NO, ERROR
INS 14/66 ;07C5
MOVE TA,TC ;[1460] CALL LINKSET
PUSHJ PP,LNKSET ;[1460] AND FIND OUT IF
LDB TB,DA.SUB ;[1460] THE KEY IS SUBSCRIPTED,
JUMPN TB,PCAKS5 ;[1460] IF SO, GIVE FATAL ERROR
INS 52/66 ;07C6
PCAKS5:
LDB CP,[POINT 7,ARG1+1,35] ;[1460] POINT AT THE
LDB LN,[POINT 13,ARG1+1,28] ;[1460] KEY WITH ERROR
MOVEI DW,E.750 ;[1460] AND GIVE THE
PUSHJ PP,FATAL ;[1460] MESSAGE THAT IT
JRST PAYECC ;[1460] CAN'T BE SUBSCRIPTED.
REP 156/109 ;07C7
JUMPE TE,PA306A ;[1434][1046] AND NO DECIMAL PLACES
WIT
JUMPE TE,PA306A ;[1443][1046] AND NO DECIMAL PLACES
REP 14/121 ;07C8
MOVEM TD,KEYRLN## ;[1354] save for later test
WIT
MOVEM TD,DKEYSZ## ;[1465] [1354] save for later test
REP 31/121 ;07C9
CAMGE TD,KEYRLN ;[1354] If key gtr or equal, match;
WIT
CAMGE TD,DKEYSZ ;[1465] [1354] If key greater or equal, match
REP 56/121 ;07C10
CAMGE TD,KEYRLN ;[1354] If gtr or equal, match;
WIT
CAMGE TD,DKEYSZ ;[1465] [1354] If key greater or equal, match
SUM 259572