Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50455/strsub.lst
There are 2 other files named strsub.lst in the archive. Click here to see a list.
SKP.RT	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 1
STRSUB	MAC	23-FEB-77 14:15	

					TITLE		SKP.RT
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				SKP.RT:		ENTRY SKP.RT
	400000'	350 00 0 17 000000 	AOS		(P)		; INCREMENT RETURN ADDRESS FOR SKIP RETURN
	400001'	263 17 0 00 000000 	RETURN
					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400002
PROGRAM BREAK IS 000000
CPU TIME USED 00:02.743

5K CORE USED

RST.PC	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 2
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		RST.PC
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				RST.PC:		ENTRY RST.PC
	400000'	000000	400001'		.+1				; CALLED BY RETURN AFTER PUSH P,RST.PC
	400001'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400002'	350 00 0 17 777777 	AOS		-1(P)		; SKIP RETURN, INCREMENT RETURN ADDRESS
	400003'	262 17 0 00 000016 	POP		P,PC		; RESTORE SAVED PC
	400004'	544 16 0 00 000016 	HLR		PC,PC		; GET ADDRESS OF CALLER'S SAVED PC
	400005'	540 16 0 16 000000 	HRR		PC,(PC)		; RESTORE CALLER'S SAVED PC
	400006'	263 17 0 00 000000 	RETURN
					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400007
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.138

5K CORE USED

RST.LP	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 3
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		RST.LP
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				RST.LP:		ENTRY RST.LP
	400000'	000000	400001'		.+1				; CALLED BY RETURN AFTER PUSH P,RST.LP
	400001'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400002'	350 00 0 15 000000 	AOS		(LP)		; SKIP RETURN, INCREMENT RETURN ADDRESS
	400003'	200 17 0 00 000015 	MOVE		P,LP		; RESTORE PUSHDOWN POINTER
	400004'	200 15 0 17 000001 	MOVE		LP,1(P)		; RESTORE PREVIOUS LOCAL STORAGE POINTER
	400005'	263 17 0 00 000000 	RETURN
					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400006
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.124

5K CORE USED

CAL.FS	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 4
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		CAL.FS
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				CAL.FS:		ENTRY CAL.FS
			000005		F=		P1		; FIRST AC TO SAVE
			000012		N=		PC-F+1		; NUMBER OF AC'S TO SAVE
	400000'	270 17 0 00 400016'	ADD		P,[N,,N]	; ALLOCATE SPACE ON PDL TO SAVE AC'S
	400001'	327 17 0 00 400017'	JUMPG		P,[PUSHJ P,.]	; CAUSE PDL OVERFLOW IF OVERFLOWED
	400002'	202 16 0 17 000000 	MOVEM		PC,(P)		; SAVE PC ON PDL
	400003'	205 16 0 00 000005 	MOVSI		PC,F		; GET ADR OF FIRST AC FOR BLT POINTER
	400004'	541 16 0 17 777767 	HRRI		PC,-<N-1>(P)	; GET ADR OF SAVE AREA ON PDL FOR BLT POINTER
	400005'	251 16 0 17 777777 	BLT		PC,-1(P)	; SAVE AC'S F THRU PC-1 ON PDL
	400006'	200 16 1 17 777766 	MOVE		PC,@-N(P)	; GET ARG LIST ADDRESS FROM CALLING PROGRAM
	400007'	260 17 1 16 777777 	PUSHJ		P,@-1(PC)	; CALL FORTRAN SUBROUTINE
	400010'	205 16 0 17 777767 	MOVSI		PC,-<N-1>(P)	; GET ADR OF SAVE AREA ON PDL FOR BLT POINTER
	400011'	541 16 0 00 000005 	HRRI		PC,F		; GET ADR OF FIRST AC FOR BLT POINTER
	400012'	251 16 0 00 000016 	BLT		PC,PC		; RESTORE AC'S F THRU PC FROM PDL
	400013'	274 17 0 00 400016'	SUB		P,[N,,N]	; RESTORE PDL POINTER
	400014'	350 00 0 17 000000 	AOS		(P)		; SKIP ARG LIST POINTER
	400015'	263 17 0 00 000000 	RETURN
					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400020
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.279

5K CORE USED

S.R0R0	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 5
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.R0R0
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.R0R0:		ENTRY S.R0R0
			000001		N=R0-R0+1
			000000		K=0
	400000'	261 17 0 00 000000 	REPEAT <N>,<PUSH		P,R0+<K=K+1>-1>
	400001'	260 17 1 17 777777 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400002'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400003'	350 00 0 17 777776 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
	400004'	262 17 0 00 000000 	REPEAT <N>,<POP		P,R0+<K=K-1>>
	400005'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400006'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400007
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.167

5K CORE USED

S.T1T1	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 6
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.T1T1
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.T1T1:		ENTRY S.T1T1
			000001		N=T1-T1+1
			000000		K=0
	400000'	261 17 0 00 000001 	REPEAT <N>,<PUSH		P,T1+<K=K+1>-1>
	400001'	260 17 1 17 777777 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400002'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400003'	350 00 0 17 777776 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
	400004'	262 17 0 00 000001 	REPEAT <N>,<POP		P,T1+<K=K-1>>
	400005'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400006'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400007
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.150

5K CORE USED

S.T1T2	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 7
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.T1T2
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.T1T2:		ENTRY S.T1T2
			000002		N=T2-T1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,T1+<K=K+1>-1>
	400000'	261 17 0 00 000001 	PUSH		P,T1+<K=K+1>-1
	400001'	261 17 0 00 000002 	PUSH		P,T1+<K=K+1>-1
	400002'	260 17 1 17 777776 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400003'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400004'	350 00 0 17 777775 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,T1+<K=K-1>>
	400005'	262 17 0 00 000002 	POP		P,T1+<K=K-1>
	400006'	262 17 0 00 000001 	POP		P,T1+<K=K-1>
	400007'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400010'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400011
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.190

5K CORE USED

S.T1T3	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 8
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.T1T3
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.T1T3:		ENTRY S.T1T3
			000003		N=T3-T1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,T1+<K=K+1>-1>
	400000'	261 17 0 00 000001 	PUSH		P,T1+<K=K+1>-1
	400001'	261 17 0 00 000002 	PUSH		P,T1+<K=K+1>-1
	400002'	261 17 0 00 000003 	PUSH		P,T1+<K=K+1>-1
	400003'	260 17 1 17 777775 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400004'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400005'	350 00 0 17 777774 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,T1+<K=K-1>>
	400006'	262 17 0 00 000003 	POP		P,T1+<K=K-1>
	400007'	262 17 0 00 000002 	POP		P,T1+<K=K-1>
	400010'	262 17 0 00 000001 	POP		P,T1+<K=K-1>
	400011'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400012'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400013
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.215

5K CORE USED

S.T1T4	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 9
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.T1T4
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.T1T4:		ENTRY S.T1T4
			000004		N=T4-T1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,T1+<K=K+1>-1>
	400000'	261 17 0 00 000001 	PUSH		P,T1+<K=K+1>-1
	400001'	261 17 0 00 000002 	PUSH		P,T1+<K=K+1>-1
	400002'	261 17 0 00 000003 	PUSH		P,T1+<K=K+1>-1
	400003'	261 17 0 00 000004 	PUSH		P,T1+<K=K+1>-1
	400004'	260 17 1 17 777774 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400005'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400006'	350 00 0 17 777773 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,T1+<K=K-1>>
	400007'	262 17 0 00 000004 	POP		P,T1+<K=K-1>
	400010'	262 17 0 00 000003 	POP		P,T1+<K=K-1>
	400011'	262 17 0 00 000002 	POP		P,T1+<K=K-1>
	400012'	262 17 0 00 000001 	POP		P,T1+<K=K-1>
	400013'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400014'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400015
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.288

5K CORE USED

S.P1P1	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 10
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1P1
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1P1:		ENTRY S.P1P1
			000001		N=P1-P1+1
			000000		K=0
	400000'	261 17 0 00 000005 	REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400001'	260 17 1 17 777777 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400002'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400003'	350 00 0 17 777776 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
	400004'	262 17 0 00 000005 	REPEAT <N>,<POP		P,P1+<K=K-1>>
	400005'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400006'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400007
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.160

5K CORE USED

S.P1P2	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 11
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1P2
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1P2:		ENTRY S.P1P2
			000002		N=P2-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	260 17 1 17 777776 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400003'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400004'	350 00 0 17 777775 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400005'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400006'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400007'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400010'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400011
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.196

5K CORE USED

S.P1P3	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 12
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1P3
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1P3:		ENTRY S.P1P3
			000003		N=P3-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	260 17 1 17 777775 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400004'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400005'	350 00 0 17 777774 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400006'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400007'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400010'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400011'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400012'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400013
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.245

5K CORE USED

S.P1P4	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 13
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1P4
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1P4:		ENTRY S.P1P4
			000004		N=P4-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	261 17 0 00 000010 	PUSH		P,P1+<K=K+1>-1
	400004'	260 17 1 17 777774 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400005'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400006'	350 00 0 17 777773 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400007'	262 17 0 00 000010 	POP		P,P1+<K=K-1>
	400010'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400011'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400012'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400013'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400014'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400015
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.270

5K CORE USED

S.P1R1	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 14
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1R1
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1R1:		ENTRY S.P1R1
			000005		N=R1-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	261 17 0 00 000010 	PUSH		P,P1+<K=K+1>-1
	400004'	261 17 0 00 000011 	PUSH		P,P1+<K=K+1>-1
	400005'	260 17 1 17 777773 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400006'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400007'	350 00 0 17 777772 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400010'	262 17 0 00 000011 	POP		P,P1+<K=K-1>
	400011'	262 17 0 00 000010 	POP		P,P1+<K=K-1>
	400012'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400013'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400014'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400015'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400016'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400017
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.276

5K CORE USED

S.P1R2	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 15
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1R2
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1R2:		ENTRY S.P1R2
			000006		N=R2-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	261 17 0 00 000010 	PUSH		P,P1+<K=K+1>-1
	400004'	261 17 0 00 000011 	PUSH		P,P1+<K=K+1>-1
	400005'	261 17 0 00 000012 	PUSH		P,P1+<K=K+1>-1
	400006'	260 17 1 17 777772 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400007'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400010'	350 00 0 17 777771 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400011'	262 17 0 00 000012 	POP		P,P1+<K=K-1>
	400012'	262 17 0 00 000011 	POP		P,P1+<K=K-1>
	400013'	262 17 0 00 000010 	POP		P,P1+<K=K-1>
	400014'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400015'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400016'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400017'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400020'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400021
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.284

5K CORE USED

S.P1R3	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 16
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1R3
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1R3:		ENTRY S.P1R3
			000007		N=R3-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	261 17 0 00 000010 	PUSH		P,P1+<K=K+1>-1
	400004'	261 17 0 00 000011 	PUSH		P,P1+<K=K+1>-1
	400005'	261 17 0 00 000012 	PUSH		P,P1+<K=K+1>-1
	400006'	261 17 0 00 000013 	PUSH		P,P1+<K=K+1>-1
	400007'	260 17 1 17 777771 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400010'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400011'	350 00 0 17 777770 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400012'	262 17 0 00 000013 	POP		P,P1+<K=K-1>
	400013'	262 17 0 00 000012 	POP		P,P1+<K=K-1>
	400014'	262 17 0 00 000011 	POP		P,P1+<K=K-1>
	400015'	262 17 0 00 000010 	POP		P,P1+<K=K-1>
	400016'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400017'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400020'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400021'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400022'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400023
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.283

5K CORE USED

S.P1R4	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 17
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.P1R4
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.P1R4:		ENTRY S.P1R4
			000010		N=R4-P1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,P1+<K=K+1>-1>
	400000'	261 17 0 00 000005 	PUSH		P,P1+<K=K+1>-1
	400001'	261 17 0 00 000006 	PUSH		P,P1+<K=K+1>-1
	400002'	261 17 0 00 000007 	PUSH		P,P1+<K=K+1>-1
	400003'	261 17 0 00 000010 	PUSH		P,P1+<K=K+1>-1
	400004'	261 17 0 00 000011 	PUSH		P,P1+<K=K+1>-1
	400005'	261 17 0 00 000012 	PUSH		P,P1+<K=K+1>-1
	400006'	261 17 0 00 000013 	PUSH		P,P1+<K=K+1>-1
	400007'	261 17 0 00 000014 	PUSH		P,P1+<K=K+1>-1
	400010'	260 17 1 17 777770 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400011'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400012'	350 00 0 17 777767 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,P1+<K=K-1>>
	400013'	262 17 0 00 000014 	POP		P,P1+<K=K-1>
	400014'	262 17 0 00 000013 	POP		P,P1+<K=K-1>
	400015'	262 17 0 00 000012 	POP		P,P1+<K=K-1>
	400016'	262 17 0 00 000011 	POP		P,P1+<K=K-1>
	400017'	262 17 0 00 000010 	POP		P,P1+<K=K-1>
	400020'	262 17 0 00 000007 	POP		P,P1+<K=K-1>
	400021'	262 17 0 00 000006 	POP		P,P1+<K=K-1>
	400022'	262 17 0 00 000005 	POP		P,P1+<K=K-1>
	400023'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400024'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400025
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.318

5K CORE USED

S.R1R1	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 18
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.R1R1
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.R1R1:		ENTRY S.R1R1
			000001		N=R1-R1+1
			000000		K=0
	400000'	261 17 0 00 000011 	REPEAT <N>,<PUSH		P,R1+<K=K+1>-1>
	400001'	260 17 1 17 777777 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400002'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400003'	350 00 0 17 777776 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
	400004'	262 17 0 00 000011 	REPEAT <N>,<POP		P,R1+<K=K-1>>
	400005'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400006'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400007
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.166

5K CORE USED

S.R1R2	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 19
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.R1R2
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.R1R2:		ENTRY S.R1R2
			000002		N=R2-R1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,R1+<K=K+1>-1>
	400000'	261 17 0 00 000011 	PUSH		P,R1+<K=K+1>-1
	400001'	261 17 0 00 000012 	PUSH		P,R1+<K=K+1>-1
	400002'	260 17 1 17 777776 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400003'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400004'	350 00 0 17 777775 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,R1+<K=K-1>>
	400005'	262 17 0 00 000012 	POP		P,R1+<K=K-1>
	400006'	262 17 0 00 000011 	POP		P,R1+<K=K-1>
	400007'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400010'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400011
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.183

5K CORE USED

S.R1R3	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 20
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.R1R3
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.R1R3:		ENTRY S.R1R3
			000003		N=R3-R1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,R1+<K=K+1>-1>
	400000'	261 17 0 00 000011 	PUSH		P,R1+<K=K+1>-1
	400001'	261 17 0 00 000012 	PUSH		P,R1+<K=K+1>-1
	400002'	261 17 0 00 000013 	PUSH		P,R1+<K=K+1>-1
	400003'	260 17 1 17 777775 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400004'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400005'	350 00 0 17 777774 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,R1+<K=K-1>>
	400006'	262 17 0 00 000013 	POP		P,R1+<K=K-1>
	400007'	262 17 0 00 000012 	POP		P,R1+<K=K-1>
	400010'	262 17 0 00 000011 	POP		P,R1+<K=K-1>
	400011'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400012'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400013
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.200

5K CORE USED

S.R1R4	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 21
STRSUB	MAC	23-FEB-77 14:15	


					TITLE		S.R1R4
					SEARCH		STRMAC
					.DIRECT		.XTABM
	400000'				TWOSEG
	400000'				RELOC		400000

	400000'				S.R1R4:		ENTRY S.R1R4
			000004		N=R4-R1+1
			000000		K=0
					REPEAT <N>,<PUSH		P,R1+<K=K+1>-1>
	400000'	261 17 0 00 000011 	PUSH		P,R1+<K=K+1>-1
	400001'	261 17 0 00 000012 	PUSH		P,R1+<K=K+1>-1
	400002'	261 17 0 00 000013 	PUSH		P,R1+<K=K+1>-1
	400003'	261 17 0 00 000014 	PUSH		P,R1+<K=K+1>-1
	400004'	260 17 1 17 777774 	PUSHJ		P,@-N(P)	; CALL CALLER BACK
	400005'	304 00 0 00 000000 	CAIA				; NO SKIP RETURN, SKIP INCREMENT
	400006'	350 00 0 17 777773 	AOS		-<N+1>(P)	; SKIP RETURN, INCREMENT RETURN ADDRESS
					REPEAT <N>,<POP		P,R1+<K=K-1>>
	400007'	262 17 0 00 000014 	POP		P,R1+<K=K-1>
	400010'	262 17 0 00 000013 	POP		P,R1+<K=K-1>
	400011'	262 17 0 00 000012 	POP		P,R1+<K=K-1>
	400012'	262 17 0 00 000011 	POP		P,R1+<K=K-1>
	400013'	262 17 0 17 000000 	POP		P,(P)		; DISCARD ORIGINAL RETURN ADDRESS
	400014'	263 17 0 00 000000 	RETURN

					NOSYM
					PRGEND

NO ERRORS DETECTED

HI-SEG. BREAK IS 400015
PROGRAM BREAK IS 000000
CPU TIME USED 00:00.234

5K CORE USED

.MAIN	MACRO %50A(441)-2 14:15 23-FEB-77 PAGE 22
STRSUB	MAC	23-FEB-77 14:15	



					END

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
CPU TIME USED 00:00.017

5K CORE USED