Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/cobold.c04
There are no other files named cobold.c04 in the archive.
REP 3/2 ;04C1
WIT
;RJD 29-JAN-82 [1334] SUPERSEDES EDITS 1322 AND 1326
;WTK 18-DEC-81 [1326] FIX EDIT 1322 BREAKING CREF LISTING
;WTK 08-OCT-81 [1322] CHECK LAST PARA FOR ENDING IN UNCOND. GOTO
;JSM 30-Sep-81 [1313] CHECK FOR - IF cond <CRLF> PARA-NAME.
;WTK 24-JUN-81 [1311] BAD PLACEMENT OF DIAG 179 IN LISTING
INS 11/50 ;04C2
HRRZ TA,CURFLO ;[1311] FLOTAB ENTRY ADDRESS
INS 148/135 ;04C3
;[1313]
INTER. PCA7X. ;[1313]
PCA7X.: PUSH PP,TE ;[1313] GET AN AC TO WORK WITH
MOVE TE,IFLVL## ;[1313] GET THE CURRENT LEVEL OF "IF"
ADD TE,SPFLVL## ;[1313] PLUS OF "SPECIAL IF"
CAIN TE,0 ;[1313] IF ZERO, SKIP FOLLOWING TEST
JRST PCA7X1 ;[1313]
CAIN TYPE,USERN.+AMRGN. ;[1313] USER NAME IN A-MARGIN?
EWARNW E.148 ;[1313] YES - GIVE DIAG MSG
PCA7X1: POP PP,TE ;[1313] GIVE BACK AC
JRST PCA7. ;[1313] AND PROCEED WITH PCA7.
;[1313]
INS 152/135 ;04C4
INTER. PCA7C. ;[1334]
PCA7C.: PUSH PP,CREFSW## ;[1334] TURN OFF CREF SW. TO AVOID
SETZM CREFSW ;[1334] WIPING OUT THE CREF LISTING
PUSHJ PP,PA4. ;[1334] SAME AS PCA7., BUT CHECK LAST PARA
POP PP,CREFSW ;[1334]
JRST PCA7. ;[1334] IN PROG FOR ENDING IN UNCOND. GOTO
SUM 1506