Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/srtgen.c22
There are no other files named srtgen.c22 in the archive.
 REP 1/1	;22C1
	; UPD ID= 1557 on 4/25/84 at 9:04 AM by JBLAU                           
 WIT
	; UPD ID= 1959 on 3/3/89 at 8:40 AM by KSTEVENS                        
 REP 20/1	;22C2
	;KWS	29-SEP-87	[1644] Expand edit 1603 to cover the case of misplaced 
 WIT
	;KWS	22-FEB-89	[1652] Change code generation for SORT when Sorting an
	;			       RMS file.
	;KWS	29-SEP-87	[1644] Expand edit 1603 to cover the case of misplaced
 REP 9/2	;22C3
	;JSM	28-APR-81	[1126] MAKE RELEASE VERB CLEAR ITS INPUT BUFFER 
 WIT
	;JSM	28-APR-81	[1126] MAKE RELEASE VERB CLEAR ITS INPUT BUFFER
 REP 31/2	;22C4
	;EHM	3-AUG-78	[541] FIX CATASTROPHIE IN PHASE O IF NULL 
 WIT
	;EHM	3-AUG-78	[541] FIX CATASTROPHIE IN PHASE O IF NULL
 INS 5/3	;22C5
		SETZM	EIOOP		;[1652]MAKE SURE OPERATOR CLEAR FOR NEXT ACTION
 REP 3/4	;22C6
	SORTGN:	TDZA	TE,TE		;SORT
 WIT
	SORTGN:	MOVEI	CH,SORT##	;[1652]SET SORT OP.
		MOVEM	CH,EIOOP##	;[1652]
		TDZA	TE,TE		;SORT
 REP 7/14	;22C7
		MOVE	TE,ESIZEA	;[1004] 
 WIT
		MOVE	TE,ESIZEA	;[1004]
 REP 20/18	;22C8
		
 WIT

 REP 32/28	;22C9
		
 WIT

 REP 4/32	;22C10
		
 WIT

 REP 3/53	;22C11
	DOUSE:	MOVSI	CH,OPEN.I
 WIT
	DOUSE:
		HRR	TA,ESUSE+1		;[1652] LINK TO FILE TABLE
		PUSHJ 	PP,LNKSET		;[1652]
		LDB	TE,FI.RMS##		;[1652]CHK IF RMS FILE
		JUMPE	TE,DOUOLD		;[1652] NO
		TLO	W1,1B27			;[1652]SET INPUT FILE FLAG
		PUSHJ	PP,OPNM##		;[1652]GENERATE OPEN FOR RMS FILE
		JRST	DOU0			;[1652]WHEN DONE, CONTINUE

	DOUOLD:	MOVSI	CH,OPEN.I		;[1652]
 REP 7/53	;22C12
		PUSHJ	PP,GETTAG
 WIT
	DOU0:	PUSHJ	PP,GETTAG		;[1652]
 REP 12/53	;22C13
		PUSHJ 	PP,LNKSET		;[1025] 
		LDB	TE,FI.ORG##		;[1025] GET FILE ORGANIZATION
		JUMPE	TE,DOUSE1		;[1025] OK IF SEQ FILE
 WIT
		PUSHJ 	PP,LNKSET		;[1025]
		LDB	TE,FI.ORG##		;[1025] GET FILE ORGANIZATION
		LDB	TD,FI.RMS##		;[1652] IS IT AN RMS FILE
		JUMPE	TD,DOUS1		;[1652] NO, NOT RMS FILE
		PUSHJ	PP,READM##		;[1652] RMS READ
		JRST 	DOUS3			;[1652]
	DOUS1:	JUMPE	TE,DOUSE1		;[1025][1652] OK IF SEQ FILE
 REP 20/53	;22C14
		MOVSI	CH,SKIPA.
 WIT
	DOUS3:	MOVSI	CH,SKIPA.		;[1652]
 REP 23/54	;22C15
		MOVSI	CH,CLOS
		HRR	CH,ESUSE+1
		PUSHJ	PP,RYTIO
		MOVEI	CH,MCLOS.##
 WIT
		HRR	TA,ESUSE+1	;[1652]GET TABLE LINK
		PUSHJ	PP,LNKSET	;[1652]
		LDB	TE,FI.RMS##	;[1652]RMS FILE?
		JUMPE	TE,DOUS4	;[1652]NO
		PUSHJ	PP,CLOM##	;[1652] RMS CLOSE
		JRST	DOUS5		;[1652]
	DOUS4:	MOVSI	CH,CLOS		;[1652]DO NORMAL CLOSE
		HRR	CH,ESUSE+1
		PUSHJ	PP,RYTIO
	DOUS5:	MOVEI	CH,MCLOS.##	;[1652]
 REP 51/59	;22C16
		SETZM	EBASEA			;[1126] CLEAR THE SENDING FIELD 
 WIT
		SETZM	EBASEA			;[1126] CLEAR THE SENDING FIELD
 REP 33/62	;22C17
		CAIN	TE,%AN.EB	;[1004] IF IT IS THEN USE 
 WIT
		CAIN	TE,%AN.EB	;[1004] IF IT IS THEN USE
 REP 49/62	;22C18
		CAIN	TE,%AN.AS	;[1004] IF IT IS THEN USE 
 WIT
		CAIN	TE,%AN.AS	;[1004] IF IT IS THEN USE
 SUM 218895