Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93g-bb - 7,6/ap012/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 26/38	;12C3
		  DDTERR 1,^D12			; NOT THERE.
		HLRE	A4,A5			; GET WORD-COUNT
		SKIPL	A4
		DDTERR	1,^D13
 WIT
		 DDTERR 1,^D12			; NOT THERE.
		HLRE	A4,A5			; GET WORD-COUNT
		SKIPL	A4
		 DDTERR	1,^D13
 REP 37/38	;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/131	;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 166398