***************************** STATUS TABLE ********************** 00400016 * ROUTINE TABLE NUMBER 00800016 * DISPLACEMENT ASSIGNED 01200016 * INDEV 0 1 01600016 * TMDEV 12 2 02000016 * INGDS 24 3 02400016 * TMGDS 36 4 02800016 * CRATL 48 5 03200016 * ENATL 60 6 03600016 * ENATN 72 7 04000016 * DSATN 84 8 04400016 * MPATL 96 9 04800016 * MLPEO 108 10 05200016 * SLPAT 120 11 05600016 * MLITS 132 12 06000016 * RQATN 144 13 06400016 * EURATL 156 14 06800016 * SETATN 168 15 07200016 * SALRM 180 16 07600016 * GSPRD 192 17 08000016 * RCURS 204 18 08400016 * ICURS 216 19 08800016 * SDATM 228 20 09200016 * SGRAM 240 21 09600016 * SDATL 252 22 10000016 * SGDSL 264 23 10400016 * SSCIS 276 24 10800016 * SCHAM 288 25 11200016 * PLINE 300 26 11600016 * PPNT 312 27 12000016 * PSGMT 324 28 12400016 * PTEXT 336 29 12800016 * STPOS 348 30 13200016 * MVPOS 360 31 13600016 * BGSEQ 372 32 14000016 * BGSUB 384 33 14400016 * ENSEQ 396 34 14800016 * ENSUB 408 35 15200016 * LKSUB 420 36 15600016 * INCL 432 37 16000016 * OMIT 444 38 16400016 * EXEC 456 39 16800016 * RESET 468 40 17200016 * IDPOS 480 41 17600016 * FSMOD 492 42 18000016 * STEOS 504 43 18400016 * ORGDS 516 44 18800016 * LOCPN 528 45 19200016 * BGTRK 540 46 19600016 * RDTRK 552 47 20000016 * ENTRK 564 48 20400016 * DFSTR 576 49 20800016 * PLSTR 588 50 21200016 * ORGEN 600 51 21600016 * CNVRT 612 52 22000016 * ITRC 624 53 22400016 * ITBP 636 54 22800016 * RTBP 648 55 23200016 * ITST 660 56 23600016 * SPEC 672 57 24000016 * 24400016 * 24800016 * 0 ADDRESS IF ALREADY LOADED 25200016 * 25600016 * 4 LAST 4 BYTES OF NAME 26000016 * 26400016 * 8 X'01'-LINK X'02'-LOAD 26800016 * 27200016 * 9-11 RSVD 27600016 * 28000016 * 28400016 R0 EQU 0 PARAM REG 0 28800016 R1 EQU 1 PARAM REG 1 29200016 RLIST EQU 2 WORK AREA ADR REG 29600016 RPARM EQU 3 PARAM LIST ADR REG 30000016 RGSPCB EQU 4 GSPCB ADR REG 30400016 RSTAT EQU 5 STATUS TABLE ADR REG 30800016 RPREV EQU 6 PREVIOUS ARG REG 31200016 RINDX EQU 6 INDEX REG 31600016 RPRES EQU 7 PRES ARG REG 32000016 RTAB EQU 7 TABLE ADR REG 32400016 RNO EQU 8 ROUTINE NUMBER REG 32800016 RMUL EQU 8 MULTIPLY REG 33200016 RBASE EQU 9 BASE REG 33600016 RCODE EQU 10 CODE REG 34000016 RB EQU 11 WORK REG 34400016 RC EQU 12 WORK REG 34800016 RSAVE EQU 13 SAVE AREA REG 35200016 RD EQU 14 WORK REG 35600016 RA EQU 15 WORK REG 36000016 LINKIT EQU X'01' LINK FLAG 36400016 LOADIT EQU X'02' LOAD FLAG 36800016 ADDR EQU 0 ROUTINE ADR 37200016 NAME EQU 4 ROUTINE NAME 37600016 FLAG EQU 8 ROUTINE FLAG 38000016 NEXT EQU 4 NEXT ENTRY 38400016 ZERO EQU 0 ZERO 38800016 LAST EQU X'80' LAST ARGUMENT 39200016 RCC4 EQU X'08' RTN CODE 4 39600016 RC4 EQU 16 OFFSET TO RC4 ADD INFO 40000016 ADD1 EQU 1 ADD INFO 1 40400016 ADD2 EQU 2 ADD INFO 2 40800016 ADD3 EQU 3 ADD INFO 3 41200016 BACK EQU 8 BACK CHAIN 41600016 GID EQU X'01' GSPCB ID 42000016 ONEA EQU X'01' FLAG 42400016 NEG EQU X'80' SIGN BIT 42800016 IFFACA50 CSECT 43200016 *0831,816000-820000,832000-856000,868000-908000 000A 43400018 SAVE (14,12) SAVE REGS 43600016 BALR RBASE,0 SET UP BASE REG 44000016 USING *,RBASE DEFINE BASE REG 44400016 LR RLIST,R1 LOAD WORKAREA ADR 44800016 USING WORKAREA,RLIST 45200016 L RPARM,PLIST LOAD ADR OF USER PARM LIST 45600016 USING PARM,RPARM 46000016 ST RSAVE,SAVE+4 SAVE-SAVE AREA PTR 46400016 LA R1,SAVE LOAD ADR OF MY SAVE AREA 46800016 ST R1,BACK(RSAVE) BACK CHAIN SAVE AREAS 47200016 LR RSAVE,R1 ESTABLISH NEW SAVE AREA 47600016 L RA,RCA LOAD RTN CODE ARRAY ADR 48000016 XC ZERO(20,RA),ZERO(RA) ZERO ARRAY 48400016 XC RTNS(56),RTNS INITIALIZE 48800016 B AROUND BRANCH 49200016 ERROR L RA,RCA LOAD RTN CODE ARRAY ADR 49600016 STC RB,ZERO(RA) STORE TRN CODE 50000016 ST RC,ZERO(RD,RA) STORE ADD INFO 50400016 OUTRTN L RSAVE,SAVE+4 RESTORE OLD SAVE AREA 50800016 RETURN (14,12),T RETURN TO CALLER 51200016 AROUND TM GSPN,LAST LAST PARM 51600016 BC 14,SET03 BRANCH NO 52000016 SET01 SR RC,RC ZERO RC4 ADD INFO 52400016 SET02 LA RB,RCC4 LOAD RTN CODE 52800016 LA RD,RC4 LOAD OFFSET TO ADD INFO 53200016 B ERROR BRANCH 53600016 SET03 L RGSPCB,GSPN LOAD INDIRECT PTR TO GSPCB 54000016 L RGSPCB,ZERO(RGSPCB) LOAD GSPCB ADR 54400016 USING GSPCB,RGSPCB 54800016 CLI GSPCBID,GID IS THIS A GSPCB 55200016 BE SET04 BRANCH-YES 55600016 LA RC,ADD1 LOAD ADD INFO 56000016 B SET02 BRANCH 56400016 SET04 L RSTAT,GSPASTAT LOAD STATUS TABLE ADDR 56800016 TM CODE,LAST LAST PARAM 57200016 BO SET01 BRANCH-YES 57600016 L RCODE,CODE LOAD INDIRECT PTR TO CODE 58000016 L RCODE,ZERO(RCODE) LOAD VALUE OF CODE 58400016 C RCODE,ONE CODE=ONE 58800016 BE SET05 BRANCH-YES 59200016 C RCODE,TWO CODE=TWO 59600016 BE SET05 BRANCH-YES 60000016 LA RC,ADD2 LOAD ADD INFO 60400016 B SET02 BRANCH 60800016 SET05 LA RC,ADD3 INITIALIZE ADD INFO 61200016 LA RB,ONE INDICATE FIRST ARG 61600016 LA RNO,RTNO INITIALIZE REG 62000016 LA RA,RTNS INITIALIZE 62400016 SET06 L RPRES,ZERO(RNO) LOAD INDIRECT PTR 62800016 L RPRES,ZERO(RPRES) LOAD ARG 63200016 LTR RPRES,RPRES ARG ZERO OR NEGATIVE 63600016 BZ SET02 BRANCH-ZERO 64000016 BM SETNEG BRANCH-MINUS 64400016 SET11 C RPRES,MAX NUMBER GREATER THAN 56 64800016 BH SET02 BRANCH-YES 65200016 S RPRES,ONE DECREMENT BY ONE 65600016 SET09 LA RD,ONEA LOAD FLAG 66000016 STC RD,ZERO(RPRES,RA) SET APPROPRIATE ROUTINE FLAG 66400016 L RD,ZERO(RNO) LOAD PTR TO NUMBER 66800016 TM ZERO(RD),NEG NUMBER NEGATIVE 67200016 BO SETNEGA BRANCH ON NEGATIVE NUMBER 67600016 SET08 TM ZERO(RNO),LAST ANY MORE ARGS 68000016 BO SET07 BRANCH-NO MORE ARGS 68400016 L RPREV,ZERO(RD) SAVE VALUE 68800016 SR RB,RB INDICATE WDT 1ST PASS 69200016 LA RC,ADD1(RC) SETP ADD INFO 69600016 LA RNO,NEXT(RNO) SETP TO NEXT ARG 70000016 B SET06 BRANCH TO NEXT LOOP 70400016 SETNEGA S RPRES,ONE DECREMENT NUMBER 70800016 CR RPREV,RPRES VALUE=PREVIOUS ARG 71200016 BH SET08 BRANCH-YES 71600016 B SET09 BRANCH 72000016 SETNEG LTR RB,RB 1ST ARG 72400016 BZ SET10 BRANCH-NO 72800016 B SET02 BRANCH 73200016 SET10 LTR RPREV,RPREV PREVIOUS ARG NEGATIVE 73600016 BM SET02 BRANCH-YES 74000016 LPR RPRES,RPRES MAKE ARG POSITIVE 74400016 CR RPRES,RPREV VALUE GREATER THAN PREVIOUS ARG 74800016 BH SET11 BRANCH-YES 75200016 B SET02 BRANCH 75600016 SET07 SR RINDX,RINDX INITIALIZE REG 76000016 LA RTAB,RTNS INITIALIZE TABLE REG 76400016 SET13 SR RB,RB ZERO REG 76800016 IC RB,ZERO(RTAB,RINDX) LOAD FLAG 77200016 LTR RB,RB FALG=0 77600016 BC 7,SET12 BRANCH-FLAG NOT ZERO 78000016 SET14 LA RINDX,ADD1(RINDX) INCREMENT INDEX 78400016 C RINDX,MAX END OF TABLE 78800016 BE OUTRTN BRANCH-END 79200016 B SET13 CONTINUE LOOP 79600016 SET12 LR RMUL,RINDX PRIME MULTIPLY REG 80000016 MH RMUL,TWELVE+2 DETERMINE STAT TABLE OFFSET 80400016 C RCODE,TWO CODE=TWO 80800016 BE SET15 BRANCH=TWO 81200016 AR RMUL,RSTAT ADDR OF ENTRY 000A 81500018 OI FLAG(RMUL),ADD2 SET LOAD FLAG 000A 81800018 NI FLAG(RMUL),X'FF'-ADD1 TURN OFF LINK FLAG 000A 82100018 B SET14 BRANCH TO TEST END OF LOOP 82400016 SET15 SR RB,RB CLEAR REG 82800016 AR RMUL,RSTAT ADDR OF ENTRY 000A 83200018 TM FLAG(RMUL),ADD2 LOAD FLAG 000A 83600018 BO SET16 BRANCH LOAD FLAG 000A 84000018 SET18 OI FLAG(RMUL),ADD1 SET LINK FLAG 000A 84400018 NI FLAG(RMUL),X'FF'-ADD2 TURN OFF LOAD FLAG 000A 84800018 B SET14 000A 85200018 SET16 L RB,ADDR(RMUL) LOAD ADDR FIELD OF STATUS TABLE 000A 85600018 LTR RB,RB ADR FLD 0 86000016 BZ SET18 BRANCH-ZERO 86400016 TM FLAG(RMUL),X'04' MULTIPLE ENTRY 000A 86600018 BZ SET165 NO 000A 86800018 SR RB,RB ZERO REG 000A 87000018 IC RB,FLAG+1(RMUL) PICK UP ENTRY NO OF OTHER ENTRY PT 000A 87200018 MH RB,TWELVE+2 COMPUTE DISPLACEMENT 000A 87400018 AR RB,RSTAT 000A 87600018 TM FLAG(RB),ADD2 LOAD 000A 87800018 BO SET18 YES-DO NOT DELETE MODULE 000A 88000018 XC ADDR(4,RB),ADDR(RB) ZERO ADDR 000A 88200018 TM FLAG(RB),X'08' THIS ONE LOADED 000A 88400018 BZ SET165 NO 000A 88600018 XI FLAG(RB),X'08' TURN OFF FLAG 000A 88800018 L R0,NAME(RB) PICK UP NAME 000A 89000018 B SET166 000A 89200018 SET165 XI FLAG(RMUL),X'08' TURN OFF FLAG 000A 89400018 L R0,NAME(RMUL) PICK UP NAME 000A 89600018 SET166 XC ADDR(4,RMUL),ADDR(RMUL) ZERO ADDR FIELD 000A 89800018 ST R0,DEL+4 STORE NAME 000A 90000018 MVC DEL(4),PRIME MOVE IN PREFIX 000A 90200018 LA R0,DEL 000A 90400018 DELETE EPLOC=(0) DELETE 000A 90600018 B SET18 000A 90800018 DS 0F 91200016 ONE DC A(1) 91600016 TWO DC A(2) 92000016 MAX DC A(56) 92400016 TWELVE DC A(12) 92800016 BYPASS DC A(156) 93200016 PRIME DC CL4'IFFA' 93600016 CNOP 0,8 94000016 PARM DSECT 94400016 GSPN DS 1F 94800016 CODE DS 1F 95200016 RTNO DS 1F 95600016 COPY GSPCB 96000016 WORKAREA DSECT 96400016 PLIST DS 1F 96800016 RCA DS 1F 97200016 SAVE DS 18F 97600016 RTNS DS 56X 98000016 DEL DS 2F 98400016 END 98800016