Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - algddt.c05
There are 15 other files named algddt.c05 in the archive. Click here to see a list.
 REP 3/1	;05C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 INS 39/19	;05C2
		MOVE	AX,SAVAX(DB)		; [332] GET AX BACK
		ADDI	AX,(DB)			; [332] RELOCATE
 REP 55/69	;05C3
	DDSETB:	MOVE	A1,[
		XWD	-2,[
		SIXBIT/TRUE/
		SIXBIT/FALSE/]]			; TABLE FOR UNIQUE TEST
		MOVEI	A2,A7
		PUSHJ	SP,UNIQUE
		  DDTERR ^D40			; NOT TRUE/FALSE
		  DDTERR ^D35			; NOT UNIQUE - V SILLY.
 WIT
	DDSETB:	MOVE	A1,[-2,,[SIXBIT/TRUE/
				SIXBIT/FALSE/]]	; TABLE FOR UNIQUE TEST
		MOVEI	A2,A7
		PUSHJ	SP,UNIQUE
		 DDTERR ^D40			; NOT TRUE/FALSE
		 DDTERR ^D35			; NOT UNIQUE - V SILLY.
 DEL 1/70	;05C4
 REP 27/73	;05C5
		SKIPA	A1,.+1
		  XWD	-PSMANY,PSWTAB
 WIT
		MOVE	A1,[-PSMANY,,PSWTAB]	; [333]
 REP 10/78	;05C6
		DPB	A1,[
		POINT	3,A12,17]		; NO - SAVE OFFSET AS CODE.
 WIT
		DPB	A1,[POINT 3,A12,17] 	; NO - SAVE OFFSET AS CODE.
 REP 7/101	;05C7
		TLOE	DB,INDDT		; [E116] Already in ALGDDT (DUMP/TYPE) ?
		JRST	BREAKY			; [E116] Yes - ignore breakpoint
 WIT
		TLOE	DB,INDDT		; [E116] Already in ALGDDT (DUMP/TYPE)?
		JRST	BREAKY			; [E116] Yes - ignore breakpoint
		SUBI	AX,(DB)			; [332] DELOCATE AX
		MOVEM	AX,SAVAX(DB)		; [332] AND SAVE IT
 REP 12/101	;05C8
		; LRLOAD	A0,%SYS16(DB)
		SETZM	%SYS17(DB)		; So continue works !
		;MOVEM	A0,%ACCS+A0(DB)		; Save
 WIT
		SETZM	%SYS17(DB)		; So continue works !
 DEL 21/101	;05C9
		;MOVEI	A0,%ACCS+A1(DB)
		;BLT	A0,%ACCS+SP-1(DB)
 SUM 129580