Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cobddt.c15
There are 2 other files named cobddt.c15 in the archive. Click here to see a list.
 REP 26/1	;15C1
	EDIT==47
 WIT
	EDIT==50
 INS 58/2	;15C2
	;.AUTOPATCH 12
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 13
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 14
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 15
	;.EDIT	50	Fix some handling of subscripts.
	;		PAM,5-NOV-86,SPR:10-35348
	;		A:SRC	COBDDT
	;.ENDA
 INS 23/8	;15C3
	DTOCH:	POINT 15,7(DT),17	;[50] Higher level OCCURS
	DTPOP:				;[50]
	DTBRO:	POINT 15,2(DT),17	;[50] Father/Brother link
 REP 41/59	;15C4

 WIT
 REP 42/72	;15C5

 WIT
 REP 32/73	;15C6

 WIT
 REP 53/74	;15C7

 WIT
 REP 107/78	;15C8

 WIT
 REP 4/103	;15C9

 WIT

 REP 4/132	;15C10
		LDB	DT,[POINT 15,DTSUBW+1(DT),17]
 WIT
		LDB	DT,DTOCH	;[50] Get next higher OCCURS
 REP 8/132	;15C11
	SUBSCA:	LDB	T3,DTUSAG	;GET USAGE
		CAIN	T3,%US.IN	;INDEX?
		MOVEI	T3,D1MODE+1	;USE COMP
		HLRZ	T2,BYPTRS-1(T3)	;SKELETON BYTE POINTER
		TRZ	T2,770077	;JUST LEAVE BYTE SIZE
		TLO	W2,(T2)		;PUT BYTE SIZE IN
 WIT
	SUBSCA:	PUSHJ	PP,SUBSCK	;[50] Get usage mode in T1, check for COMP
		HLRZ	T2,BYPTRS-1(T1)	;[50] Get prototype byte pointer
		TRZ	T2,770077	;JUST LEAVE BYTE SIZE
		TLO	W2,(T2)		;PUT BYTE SIZE IN
		;Remember that top level usage is in T1 -- preserve it for SUBSIZ
 REP 25/132	;15C12
		LDB	T2,[POINT 15,DTSUBW+1(DT),17]
 WIT
		LDB	T2,DTOCH	;[50] Get next higher OCCURS
 REP 31/132	;15C13
		JRST	SUBSCA		; [34] LOOP
 WIT
		JRST	SUBSC1		;[50] Loop
 INS 2/134	;15C14
	; XCT table with current DATAB mode in T5, Grandfather's mode in T1
 REP 7/134	;15C15
		MOVEI	T2,6		;4 1-WORD COMP
		MOVEI	T2,^D12		;5 2-WORD COMP
		MOVEI	T2,6		;6 COMP-1
		MOVEI	T2,6		;7 INDEX
		PUSHJ	PP,SUBSZC	;10 COMP-3
		MOVEI	T2,^D12		;11 COMP-2
 WIT
		PUSHJ	PP,SUBSZ2	;[50] 4 1-WORD COMP
		PUSHJ 	PP,SUBSZ3	;[50] 5 2-WORD COMP
		PUSHJ	PP,SUBSZ2	;[50] 6 COMP-1
		PUSHJ	PP,SUBSZ2	;[50] 7 INDEX
		PUSHJ	PP,SUBSZC	;[50] 10 COMP-3
		PUSHJ	PP,SUBSZ3	;[50] 11 COMP-2
 REP 27/134	;15C16

 WIT

	SUBSZ2:	MOVEI	T2,6		;[50] Assume Grandfather is SIXBIT
		CAIN	T1,%US.D7	;[50] Grandfather ASCII?
		MOVEI	T2,5		;[50] Yes, 5 chrs per word
		CAIN	T1,%US.EB	;[50] EBCDIC?
		MOVEI	T2,4		;[50] Yes, 4 chars/word
		POPJ	PP,		;[50] Done

	SUBSZ3:	PUSHJ	PP,SUBSZ2	;[50] Get bytes per word
		LSH	T2,1		;[50] Double it
		POPJ	PP,		;[50] Return.

 INS 33/134	;15C17

	SUBSCK:	LDB	T1,DTUSAG	;[50] Get item's usage
		CAIN	T1,%US.C3	;[50] If it's COMP-3, his father
		SKIPA	T1,[EXP %US.EB]	;[50]  must be EBCDIC
		CAIG	T1,%US.DS	;[50] Is item display?
		POPJ	PP,		;[50]  Yes, we are done
		PUSH	PP,DT		;[50] Save DATAB pointer
		PUSHJ	PP,LNKGFA	;[50] Find the Grandfather
		LDB	T1,DTUSAG	;[50] Get his usage
		CAILE	T1,%US.DS	;[50] Display?
		MOVEI	T1,%US.D6	;[50] No, pretend it is SIXBIT
		POP	PP,DT		;[50] Restore DATAB pointer
		POPJ	PP,		;[50] Return with usage in T1

	LNKGFA:	LDB	T1,DTPOP	;[50] Get Father/Brother link
		JUMPE	T1,CPOPJ	;[50] No links, should be top level
		HRRZ	DT,T1		;[50] Create new DATAB pointer
		ADD	DT,@%DT		;[50] 
		JRST	LNKGFA		;[50] Follow Father/Brother chain

 REP 41/135	;15C18

 WIT
 REP 38/136	;15C19

 WIT
 REP 44/137	;15C20

 WIT
 REP 40/138	;15C21

 WIT
 REP 38/139	;15C22

 WIT
 REP 30/140	;15C23

 WIT
 REP 81/141	;15C24

 WIT

 REP 41/142	;15C25

 WIT
 REP 18/144	;15C26

 WIT

 REP 62/146	;15C27

 WIT
 REP 60/147	;15C28

 WIT
 REP 76/148	;15C29

 WIT
 REP 42/149	;15C30

 WIT
 REP 56/150	;15C31

 WIT

 SUM 123562