Trailing-Edge
-
PDP-10 Archives
-
bb-jr93j-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