Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0130/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