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,-(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,-(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 ,-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS 400004' 262 17 0 00 000000 REPEAT ,> 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 ,-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS 400004' 262 17 0 00 000001 REPEAT ,> 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 ,-1> 400000' 261 17 0 00 000001 PUSH P,T1+-1 400001' 261 17 0 00 000002 PUSH P,T1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400005' 262 17 0 00 000002 POP P,T1+ 400006' 262 17 0 00 000001 POP P,T1+ 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 ,-1> 400000' 261 17 0 00 000001 PUSH P,T1+-1 400001' 261 17 0 00 000002 PUSH P,T1+-1 400002' 261 17 0 00 000003 PUSH P,T1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400006' 262 17 0 00 000003 POP P,T1+ 400007' 262 17 0 00 000002 POP P,T1+ 400010' 262 17 0 00 000001 POP P,T1+ 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 ,-1> 400000' 261 17 0 00 000001 PUSH P,T1+-1 400001' 261 17 0 00 000002 PUSH P,T1+-1 400002' 261 17 0 00 000003 PUSH P,T1+-1 400003' 261 17 0 00 000004 PUSH P,T1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400007' 262 17 0 00 000004 POP P,T1+ 400010' 262 17 0 00 000003 POP P,T1+ 400011' 262 17 0 00 000002 POP P,T1+ 400012' 262 17 0 00 000001 POP P,T1+ 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 ,-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS 400004' 262 17 0 00 000005 REPEAT ,> 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400005' 262 17 0 00 000006 POP P,P1+ 400006' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400006' 262 17 0 00 000007 POP P,P1+ 400007' 262 17 0 00 000006 POP P,P1+ 400010' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-1 400003' 261 17 0 00 000010 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400007' 262 17 0 00 000010 POP P,P1+ 400010' 262 17 0 00 000007 POP P,P1+ 400011' 262 17 0 00 000006 POP P,P1+ 400012' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-1 400003' 261 17 0 00 000010 PUSH P,P1+-1 400004' 261 17 0 00 000011 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400010' 262 17 0 00 000011 POP P,P1+ 400011' 262 17 0 00 000010 POP P,P1+ 400012' 262 17 0 00 000007 POP P,P1+ 400013' 262 17 0 00 000006 POP P,P1+ 400014' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-1 400003' 261 17 0 00 000010 PUSH P,P1+-1 400004' 261 17 0 00 000011 PUSH P,P1+-1 400005' 261 17 0 00 000012 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400011' 262 17 0 00 000012 POP P,P1+ 400012' 262 17 0 00 000011 POP P,P1+ 400013' 262 17 0 00 000010 POP P,P1+ 400014' 262 17 0 00 000007 POP P,P1+ 400015' 262 17 0 00 000006 POP P,P1+ 400016' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-1 400003' 261 17 0 00 000010 PUSH P,P1+-1 400004' 261 17 0 00 000011 PUSH P,P1+-1 400005' 261 17 0 00 000012 PUSH P,P1+-1 400006' 261 17 0 00 000013 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400012' 262 17 0 00 000013 POP P,P1+ 400013' 262 17 0 00 000012 POP P,P1+ 400014' 262 17 0 00 000011 POP P,P1+ 400015' 262 17 0 00 000010 POP P,P1+ 400016' 262 17 0 00 000007 POP P,P1+ 400017' 262 17 0 00 000006 POP P,P1+ 400020' 262 17 0 00 000005 POP P,P1+ 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 ,-1> 400000' 261 17 0 00 000005 PUSH P,P1+-1 400001' 261 17 0 00 000006 PUSH P,P1+-1 400002' 261 17 0 00 000007 PUSH P,P1+-1 400003' 261 17 0 00 000010 PUSH P,P1+-1 400004' 261 17 0 00 000011 PUSH P,P1+-1 400005' 261 17 0 00 000012 PUSH P,P1+-1 400006' 261 17 0 00 000013 PUSH P,P1+-1 400007' 261 17 0 00 000014 PUSH P,P1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400013' 262 17 0 00 000014 POP P,P1+ 400014' 262 17 0 00 000013 POP P,P1+ 400015' 262 17 0 00 000012 POP P,P1+ 400016' 262 17 0 00 000011 POP P,P1+ 400017' 262 17 0 00 000010 POP P,P1+ 400020' 262 17 0 00 000007 POP P,P1+ 400021' 262 17 0 00 000006 POP P,P1+ 400022' 262 17 0 00 000005 POP P,P1+ 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 ,-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS 400004' 262 17 0 00 000011 REPEAT ,> 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 ,-1> 400000' 261 17 0 00 000011 PUSH P,R1+-1 400001' 261 17 0 00 000012 PUSH P,R1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400005' 262 17 0 00 000012 POP P,R1+ 400006' 262 17 0 00 000011 POP P,R1+ 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 ,-1> 400000' 261 17 0 00 000011 PUSH P,R1+-1 400001' 261 17 0 00 000012 PUSH P,R1+-1 400002' 261 17 0 00 000013 PUSH P,R1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400006' 262 17 0 00 000013 POP P,R1+ 400007' 262 17 0 00 000012 POP P,R1+ 400010' 262 17 0 00 000011 POP P,R1+ 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 ,-1> 400000' 261 17 0 00 000011 PUSH P,R1+-1 400001' 261 17 0 00 000012 PUSH P,R1+-1 400002' 261 17 0 00 000013 PUSH P,R1+-1 400003' 261 17 0 00 000014 PUSH P,R1+-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 -(P) ; SKIP RETURN, INCREMENT RETURN ADDRESS REPEAT ,> 400007' 262 17 0 00 000014 POP P,R1+ 400010' 262 17 0 00 000013 POP P,R1+ 400011' 262 17 0 00 000012 POP P,R1+ 400012' 262 17 0 00 000011 POP P,R1+ 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