Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cleand.c07
There is 1 other file named cleand.c07 in the archive. Click here to see a list.
INS 20/1 ;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 365 in COBOLD under WRITE stmt,
; not by FD, and include standard ASCII in error
REP 43/2 ;07C2
CAIE TD,%RM.7B ; [407] IF IT IS ASCII
CAIN TD,%RM.SA ; [407] STANDARD ASCII
WIT
CAIN TD,%RM.7B ;[1466] [407] IF IT IS ASCII
;[1466] CAIN TD,%RM.SA ; [407] STANDARD ASCII
REP 50/2 ;07C3
LDB TB,FI.RM2## ;WAS IT SPECIFIED?
JUMPE TB,CC2. ;NO, OK
PUSHJ PP,CLE13. ;YES, GIVE ERROR
WIT
;[1503] LDB TB,FI.RM2## ;WAS IT SPECIFIED?
;[1503] JUMPE TB,CC2. ;NO, OK
;[1466] PUSHJ PP,CLE13. ;YES, GIVE ERROR
REP 82/5 ;07C4
LDB TB,FI.RM2
WIT
LDB TB,FI.RM2## ;[1503]
SUM 25899