Google
 

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