Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cobddt.c21
There are no other files named cobddt.c21 in the archive.
 REP 1/1	;21C1
	; UPD ID= 1624 on 5/24/84 at 2:24 PM by HOFFMAN                         
	TITLE	COBDDT VERSION 13		
 WIT
	; UPD ID= 1950 on 1/23/89 at 1:02 PM by KSTEVENS
	TITLE	COBDDT VERSION 13
 REP 26/1	;21C2
	EDIT==50
 WIT
	EDIT==51
 INS 72/2	;21C3
	;.AUTOPATCH 16
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 17
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 18
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 19
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 20
	;.NOEDIT
	;.ENDA
	;.AUTOPATCH 21
	;.EDIT	51	Make COBDDT so that it can co-exist with SORT/RMS
	;		KWS,12-DEC-88,SPR:20-21892
	;		A:SRC	COBDDT
	;.ENDA
 INS 5/12	;21C4
	TMPSTK: BLOCK 5		;[51]TEMPORARY STACK
	XTDBLK: 3		;[51]THREE WORD BLOCK FOR EXTENDED STUFF
		z		;[51]
		z		;[51]
	SAVADR:	BLOCK	1	;[51]SAVE ADDRESS
 REP 41/13	;21C5
	.BPAUT==3		; AUTO LIST 
 WIT
	.BPAUT==3		; AUTO LIST
 INS 6/19	;21C6
		MOVE 	PP,[IOWD 5,TMPSTK]	;[51]CREATE TEMPORARY STACK
 REP 28/19	;21C7
		RSTACS			;RESTORE ACS
		JRST	@.JBOPC##	;AND CONTINUE AS PLANNED
 WIT
	IFN	TOPS20,<
		MOVEI	1,.FHSLF	;[51]SELF PROCESS HANDLE
		MOVEI	2,XTDBLK	;[51]ARG. BLOCK
		XRIR%			;[51]READ BLOCK
		  ERJMP [RSTACS		;[51]PROBABLY 4.1 MONITOR
			JRSTF @.JBOPC##];[51]4.1 MONITOR... OLD WAY
		MOVE	1,XTDBLK+1	;[51]GET TABLE ADDRESS
		MOVE	1,(1)		;[51]FIRST INDIRECTION...
		MOVEM	1,SAVADR	;[51]SAVE ADDRESS
		RSTACS			;[51]RESTORE ACS
		XJRSTF	@SAVADR		;[51]RETURN TO PROGRAM
		  ERJMP	.+1
		>			;[51]END OF IFN
		RSTACS			;RESTORE AC'S
		JRSTF	@.JBOPC##	;AND CONTINUE AS PLANNED
 REP 118/56	;21C8
		
 WIT

 REP 22/57	;21C9
		JRST	DECOD		;GO TRY AGAIN	
 WIT
		JRST	DECOD		;GO TRY AGAIN
 REP 6/70	;21C10
		MOVEM	T2,PNM		; [13] STORE INTO PROCEED 
		MOVE	T2,@%DT		; [13] ADDR OF %DT
		MOVEM	T2,PDT		; [13] STORE INTO PROCEED 
		MOVE	T2,@%PR		; [13] ADDR OF %PR
		MOVEM	T2,PPR		; [13] STORE INTO PROCEED 
 WIT
		MOVEM	T2,PNM		; [13] STORE INTO PROCEED
		MOVE	T2,@%DT		; [13] ADDR OF %DT
		MOVEM	T2,PDT		; [13] STORE INTO PROCEED
		MOVE	T2,@%PR		; [13] ADDR OF %PR
		MOVEM	T2,PPR		; [13] STORE INTO PROCEED
 REP 34/71	;21C11
		MOVEM	T1,BNM		; [13] STORE INTO BREAK 
		MOVE	T1,@%DT		; [13] ADDR OF %DT
		MOVEM	T1,BDT		; [13] STORE INTO BREAK 
		MOVE	T1,@%PR		; [13] ADDR OF %PR
		MOVEM	T1,BPR		; [13] STORE INTO BREAK 
 WIT
		MOVEM	T1,BNM		; [13] STORE INTO BREAK
		MOVE	T1,@%DT		; [13] ADDR OF %DT
		MOVEM	T1,BDT		; [13] STORE INTO BREAK
		MOVE	T1,@%PR		; [13] ADDR OF %PR
		MOVEM	T1,BPR		; [13] STORE INTO BREAK
 REP 32/118	;21C12
		JRST	XECUTC		;[26] 
 WIT
		JRST	XECUTC		;[26]
 REP 62/134	;21C13
		ADD	DT,@%DT		;[50] 
 WIT
		ADD	DT,@%DT		;[50]
 REP 16/167	;21C14
		JRST	MODX		;[26] 
 WIT
		JRST	MODX		;[26]
 REP 2/178	;21C15
	;ENTER WITH T1 = INPUT BYTE POINTER OR ZERO 
 WIT
	;ENTER WITH T1 = INPUT BYTE POINTER OR ZERO
 SUM 219455