Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/algddt.c12
There are 13 other files named algddt.c12 in the archive. Click here to see a list.
REP 1/7 ;12C1
SUBTTL Common routines - DDT,KA10,KI10,ONTRACE,OFFTRACE action routines.
WIT
SUBTTL Common routines - DDT,KA10,KI10,ONTRACE,OFFTRACE routines
DEL 57/20 ;12C2
SKIPE %DDTBE(DB) ; [E127] If FNDADR established context
HRLM DL,%DDTPC(DB) ; [E127] Save correct DL
REP 25/39 ;12C3
DDTERR 1,^D12 ; LOOKUP FAILED, TELL USER
HLRE A4,A5 ; GET WORD-COUNT
SKIPL A4
DDTERR 1,^D13
WIT
DDTERR 1,^D12 ; LOOKUP FAILED, TELL USER
HLRE A4,A5 ; GET WORD-COUNT
SKIPL A4
DDTERR 1,^D13
REP 36/39 ;12C4
ADD A3,[
IN A1] ; MORE UUO'S
XCT A3 ; DUMP MODE READ WHOLE THING.
SKIPA ; WORKED
DDTERR 1,^D14 ; DIDN'T
ADD A6,[
RELEASE ]
WIT
ADD A3,[IN A1] ; MORE UUO'S
XCT A3 ; DUMP MODE READ WHOLE THING.
TRNA ; WORKED
DDTERR 1,^D14 ; DIDN'T
ADD A6,[RELEASE]
REP 52/132 ;12C5
LDB A7,[
POINT 3,FL,20] ; YES - GET ERROR ACTION-CODE.
WIT
LDB A7,[POINT 3,FL,20] ; YES - GET ERROR ACTION-CODE.
SUM 107027