Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobddt.c05
There are 2 other files named cobddt.c05 in the archive. Click here to see a list.
REP 7/1 ;05C1
;COPYRIGHT (C) 1974, 1981 BY
WIT
;COPYRIGHT (C) 1974, 1981, 1982 BY
REP 26/1 ;05C2
EDIT==33
WIT
EDIT==43
REP 2/2 ;05C3
WIT
;COBDDT EDIT HISTORY FOR AUTOPATCH
;
;.BEGINR
;.COMPONENT COBDDT
;.VERSION 12B
;.AUTOPATCH 4
;
;.EDIT 40 TOPS-20 BREAK CHARACTER SET WAS INCORRECT
; DMN,18-AUG-81,SPR:20-16565
; A:SRC COBDDT
;
;.EDIT 41 DATA-NAME QUALIFICATION SOMETIMES FAILS
; DMN,18-AUG-81,SPR:20-16561
; A:SRC COBDDT
;
;.EDIT 42 FIX SUBSCRIPT HANDLING TO PREVENT WRONG RESULTS WHEN USING COMP
; AST,02-OCT-81,SPR:20-16377
; A:SRC COBDDT
;
;.ENDA
;.AUTOPATCH 5
;
;.EDIT 43 FIX DISPLAY OF QUALIFIED FIELD IN REDEFINING TABLE
; JEH,13-SEP-82,SPR:20-18199
; A:SRC COBDDT
;
;.ENDA
;.ENDV
;.ENDR
;
;WHO DATE COMMENT
;
;***** V12B *****
INS 23/8 ;05C4
DTFAL: POINT 1,4(T4),8 ;[43] FATHER/BROTHER LINK
REP 35/13 ;05C5
WIT
REP 220/50 ;05C6
BRMKSS:
1B<.CHCRT>!1B<.CHLFD>
0
0
0
WIT
BRINI. ;[40] INITIALIZE BREAK MASK
BRKCH. (0,57) ;[40] SET TO BREAK ON EVERYTHING
BRKCH. (72,100) ;[40] EXCEPT DIGITS AND LETTERS
BRKCH. (133,140) ;[40]
BRKCH. (173,177) ;[40]
;[40] BUT ALLOW A FEW OTHER CHARACTERS IN SYMBOLS
UNBRK. "-" ;[40]
UNBRK. "." ;[40]
BRMKSS:
EXP W0.,W1.,W2.,W3. ;[40]
;[D40] 1B<.CHCRT>!1B<.CHLFD>
;[D40] 0
;[D40] 0
;[D40] 0
REP 41/52 ;05C7
WIT
REP 42/63 ;05C8
WIT
REP 32/64 ;05C9
WIT
REP 53/65 ;05C10
WIT
REP 100/69 ;05C11
WIT
REP 4/94 ;05C12
WIT
REP 50/115 ;05C13
WIT
REP 25/116 ;05C14
WIT
REP 59/117 ;05C15
WIT
REP 40/119 ;05C16
WIT
REP 45/120 ;05C17
WIT
REP 30/121 ;05C18
JRST SUBSC1 ;LOOP
WIT
;[D42] JRST SUBSC1 ;LOOP
JRST SUBSCA ;[M42] LOOP
REP 51/121 ;05C19
WIT
REP 26/122 ;05C20
WIT
REP 41/123 ;05C21
WIT
REP 41/124 ;05C22
WIT
REP 37/125 ;05C23
WIT
REP 40/126 ;05C24
WIT
REP 37/127 ;05C25
WIT
REP 30/128 ;05C26
WIT
REP 81/129 ;05C27
WIT
REP 56/130 ;05C28
WIT
REP 18/132 ;05C29
WIT
REP 69/133 ;05C30
WIT
REP 60/134 ;05C31
WIT
REP 60/135 ;05C32
WIT
REP 76/136 ;05C33
WIT
REP 42/137 ;05C34
WIT
REP 56/138 ;05C35
WIT
INS 44/149 ;05C36
LDB W1,DTFAL ;[43] SAVE FATHER/BROTHER LINK VALUE
REP 3/150 ;05C37
QUAL3A: HRL T3,T4 ;SAVE DATAB LINK OF FATHER
WIT
QUAL3A: JUMPE W1,QUAL30 ;[43]IF BROTHER LINK, CANT SERVE AS QUALIFIER
HRL T3,T4 ;SAVE DATAB LINK OF FATHER
INS 8/150 ;05C38
HRRZ T4,T4 ;[41] CLEAR JUNK FROM LEFT HALF BEFORE TEST
SUM 166325