Google
 

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