* 00100002 * %GOTO LABEL1; /* 00200002 MACRO 00300002 IFDPF1 &V,&X,&Z,&S X01906 00400002 AIF ('&V' EQ 'DS').SKP1 00500002 CHASCT &V F&Z . SECTION CONTROL TABLE 00600002 DC H'00' . ROUTINE MASKS 00700002 AIF ('&S' NE 'AOS12').SK0 X01906 00800002 .SK01 ANOP 00900002 DC X'8601' . OS DRIVER AND SCT LEVEL X01906 01000002 &V 7F&Z . SCT WORD 2 THRU 8 X01906 01100002 DC X'08000000' . SCT WORD 9 X02008 01200002 &V 10F&Z . SCT WORD 10 THRU 19 X01906 01300002 AGO .SK0A X01906 01400002 .SK0 ANOP X01906 01500002 AIF ('&S' EQ 'MVM22').SK01 01600002 DC X'8600' . OS DRIVER X01906 01700002 &V 18F&Z . SCT CONTINUED 01800002 .SK0A ANOP X01906 01900002 DC A(OLTTAB) . LINK TABLE ADDRESS 02000002 DC A(UTCOM) . UNIT TEST PASSON AREA POINTER 02100002 DC A(EXTBUF) . EXT BUFFER POINTER 02200002 AIF ('&S' NE 'AOS12').SKP2 02300002 .SK0B ANOP 02400002 DC V(IFDOLT00) . INITIALIZATION MODULE X02008 02500002 LGWRTCT DC 10F'00' . LAST SCT WORDS X02008 02600002 AGO .SK1 02700002 .SKP1 ANOP 02800002 CHASCT &V 23F&Z . SECTION CONTROL TABLE 02900002 .SKP2 ANOP 03000002 AIF ('&S' EQ 'MVM22').SK0B 03100002 &V F&Z . POINTER FOR FUTURE EXPANSION 03200002 AIF ('&S' NE 'AOS12').SK1 X01906 03300002 LGWRTCT &V 10F&Z . LAST SCT WORDS X02008 03400002 .SK1 ANOP X01906 03500002 INBUFPTR &V F&Z . ADDRESS OF ITEM IN BUFFER 03600002 INBUFR &V 72&X&Z . INPUT BUFFER 03700002 PRTBUFR &V 124&X&Z . PRINTING BUFFER 03800002 SECPTR &V F&Z . ACTIVE SECTION ENTRY POINT 03900002 UTENT &V F&Z . FIRST UTS INSTRUCTION 04000002 AIF ('&V' EQ 'DS').SKP6 04100002 DATPTR DC V(IFDOLT52) . PTR TO DP ROOT MODULE 04200002 DATIND DC X'A404' . OLTEP DATA INDICATOR 04300002 AGO .SKP7 04400002 .SKP6 ANOP 04500002 DATPTR DS F . PTR TO DP ROOT MODULE 04600002 DATIND DS 2C . OLTEP DATA INDICATOR 04700002 .SKP7 ANOP 04800002 PGMTAB &V 8&X&Z . ACTIVE PROGRAM ID 04900002 SECLST &V 138&X&Z . SECTION LIST 05000002 APPTRS DS 0CL12 . APPENDAGE POINTERS Y02008 05100002 PCIEXIT &V F&Z . PTR TO PCI EXIT Y02008 05200002 NORMEXIT &V F&Z . PTR TO NORMAL EXIT RTN Y02008 05300002 ABNMEXIT &V F&Z . PTR TO ABNORMAL EXIT RTN Y02008 05400002 DIEPTR &V F&Z . PTR TO DIS INT EXIT Y02008 05500002 IOSCB DS 0CL136 . IOS CONTROL BLOCK Y02008 05600002 MODIOSB DS 0CL108 . MODEL OF IOSB Y02008 05700002 &V 108&X&Z . Y02008 05800002 MODUSECB DS 0CL24 . MODEL OF USE CONTROL BLK Y02008 05900002 &V 24&X&Z . Y02008 06000002 OECBWRD1 DS 0F . OECB WORD 1 Y02008 06100002 OECBSNSC &V &X&Z . OECB SENSE COUNT Y02008 06200002 OECBINCT &V &X&Z . OECB INTERRUPT COUNT Y02008 06300002 OECBX &V 2&X&Z . Y02008 06400002 EFCTRCB DS 0CL20 . IO EFFECTOR CONTROL BLK Y02008 06500002 CCWPTR &V F&Z . CCW PTR Y02008 06600002 DVTPTR &V F&Z . DEVICE TABLE PTR Y02008 06700002 FLGA &V &X&Z . FLAG BYTE A Y02008 06800002 BYPASPFX EQU X'80' . BYPASS FUNCTION Y02008 06900002 CEDEPOST EQU X'40' . CE-DE SEPARATION Y02008 07000002 GDP EQU X'20' . GUARANTEED DEVICE PATH Y02008 07100002 SPEXPOS EQU X'10' . SPECIFIC EXPOSURE Y02008 07200002 FLGB &V &X&Z . FLAG BYTE B Y02008 07300002 INTERNAL EQU X'80' . INTERNAL CALL FOR IO Y02008 07400002 ATTNIN EQU X'40' . ATTENTION FUNCTION Y02008 07500002 VIRTCCWS EQU X'20' . VIRTUAL CCW CHAIN Y02008 07600002 OLDTECBX EQU X'10' . OLD TECB IS IN USE Y02008 07700002 FILEMSK &V &X&Z . FILE M ASK Y02008 07800002 SNSCNT &V &X&Z . SENSE COUNT Y02008 07900002 TECBPTRX &V F&Z . TECB POINTER Y02008 08000002 SEEKPTR &V F&Z . PTR TO OLD OLT SEEK ADDR Y02008 08100002 AIF ('&V' EQ 'DS').SKP7A 08200002 IORTNADR DC V(IOEFFCTR) . PTR TO IO EFFECTOR Y02008 08300002 AGO .SKP7B 08400002 .SKP7A ANOP 08500002 IORTNADR &V F&Z . PTR TO IO EFFECTOR Y02008 08600002 .SKP7B ANOP 08700002 IODEVTAB DS 0CL36 . IO DEVICE TABLE Y02008 08800002 IOENTRY1 DS 0CL12 . FIRST IO ENTRY Y02008 08900002 IODEV1 &V F&Z . PTR TO 1ST DEVICE Y02008 09000002 IOSBPTR1 &V F&Z . PTR TO IOSB FOR DEVICE 1 Y02008 09100002 IOECB1 &V F&Z . ECB FOR DEVICE 1 Y02008 09200002 IOENTRY2 DS 0CL12 . SECOND IO ENTRY Y02008 09300002 IODEV2 &V F&Z . PTR TO 2ND DEVICE Y02008 09400002 IOSBPTR2 &V F&Z . PTR TO IOSB FOR DEVICE 2 Y02008 09500002 IOECB2 &V F&Z . ECB FOR DEVICE 2 Y02008 09600002 IOENTRY3 DS 0CL12 . THIRD IO ENTRY Y02008 09700002 IODEV3 &V F&Z . PTR TO 3RD DEVICE Y02008 09800002 IOSBPTR3 &V F&Z . PTR TO IOSB FOR DEVICE 3 Y02008 09900002 IOECB3 &V F&Z . ECB FOR DEVICE 3 Y02008 10000002 SELAFFN &V 2&X&Z . SELECTED AFFN Y02008 10100002 CHARAFFN &V 2&X&Z . CHAR REP OF SEL AFFN Y02008 10130002 XXXXXXXX &V 36F&Z . NOT USED AT PRESENT Y02008 10160002 AIF ('&V' EQ 'DS').SKP3 10200002 DEVTBPTR DC A(DEVTAB) . POINTER TO DEVICE TABLES 21050 10300002 TABLNGTH DC AL2(56) . LENGTH OF EACH DEVTABLE 21050 10400002 CESWT9 DC X'00' . OLTEP SWITCHES 10500002 CESWT10 DC X'00' . OLTEP SWITCHES Y02008 10600002 AIF ('&S' NE 'AOS12').SK2 X01906 10700002 .SK1A ANOP 10800002 OPEN2 DC F'0' . WAS PTR TO IOS MOD 10900002 OPEN3 DC F'0' . WAS PTR TO APP. VECTOR TABLE 11000002 AGO .SK2A X01906 11100002 .SK2 ANOP X01906 11200002 AIF ('&S' EQ 'MVM22').SK1A 11300002 OPEN2 DC F'0' . WAS PTR TO IOS MOD 11400002 OPEN3 DC F'0' . WAS PTR TO APP. VECTOR TABLE 11500002 .SK2A ANOP X01906 11600002 PSCT DC A(CHASCT) . ADDRESS OF CHASCT 11700002 DEVDEPAD &V A(CHASCT+12) . ACTIVE CHASCT ENTRY POINTER 11800002 TABAD DC A(OLTTAB) . UNIT TEST LINK TABLE POINTER 11900002 #TABLE EQU TABAD . LABEL IN OLTEP MACROS 12000002 UTCOMAD DC A(UTCOM) . UNIT TEST PASSON AREA POINTER 12100002 MCT &V C'1MCT' . MODULE CONTROL TABLE 12200002 AIF ('&S' EQ 'MVM22').SK2A1 12300002 DC F'00' . PTR TO NEXT MCT 12400002 AGO .SK2A2 12500002 .SK2A1 ANOP 12600002 DC A(NEXTMCT) . PTR TO NEXT MCT X03008 12700002 .SK2A2 ANOP 12800002 DC X'8000' . ROOT MODULE INDICATOR 12900002 DC C'00' . OLTEP ROOT 13000002 DC XL2'00' . MODULE LENGTH 13100002 AIF ('&S' EQ 'AOS12').SK3A 13200002 AIF ('&S' EQ 'MVM22').SK3A 13300002 DC X'8000' . ROOT MODULE INDICATOR 13400002 DC C'01' . TRANSIENT MANAGER ID 13500002 DC XL2'00' . MODULE LENGTH 13600002 .SK3A ANOP 13700002 AIF ('&S' NE 'MVM22').SK3C 13800002 DC X'8000' . ROOT MODULE INDICATOR X03008 13900002 DC C'05' . OLD EXIO ID X03008 14000002 DC XL2'00' . MODULE LENGTH X03008 14100002 DC X'8000' . ROOT MODULE INDICATOR X03008 14200002 DC C'06' . OLD WAITIO ID X03008 14300002 DC XL2'00' . MODULE LENGTH X03008 14400002 DC X'8000' . ROOT MODULE INDICATOR X03008 14500002 DC C'08' . OLD DPRINT ID X03008 14600002 DC XL2'00' . MODULE LENGTH X03008 14700002 DC X'8000' . ROOT MODULE INDICATOR X03008 14800002 DC C'09' . COMPARE ID X03008 14900002 DC XL2'00' . MODULE LENGTH X03008 15000002 DC X'8000' . ROOT MODULE INDICATOR X03008 15100002 DC C'10' . OLD CONVERT ID X03008 15200002 DC XL2'00' . MODULE LENGTH X03008 15300002 DC X'8000' . ROOT MODULE INDICATOR X03008 15400002 DC C'11' . RANDOM DATA ID X03008 15500002 DC XL2'00' . MODULE LENGTH X03008 15600002 AGO .SK3E 15700002 .SK3C ANOP 15800002 DC X'0100' . OLD MODULE INDICATOR 15900002 DC C'05' . OLD EXIO ID 16000002 DC XL2'00' . MODULE LENGTH 16100002 DC X'0100' . OLD MODULE INDICATOR 16200002 DC C'06' . OLD WAITIO ID 16300002 DC XL2'00' . MODULE LENGTH 16400002 DC X'0100' . OLD MODULE INDICATOR 16500002 DC C'08' . OLD DPRINT ID 16600002 DC XL2'00' . MODULE LENGTH 16700002 DC X'0100' . OLD MODULE INDICATOR 16800002 DC C'09' . OLD COMPARE ID 16900002 DC XL2'00' . MODULE LENGTH 17000002 DC X'0100' . OLD MODULE INDICATOR 17100002 DC C'10' . OLD CONVERT ID 17200002 DC XL2'00' . MODULE LENGTH 17300002 DC X'0100' . OLD MODULE INDICATOR 17400002 DC C'11' . OLD RDATA ID 17500002 DC XL2'00' . MODULE LENGTH 17600002 AIF ('&S' NE 'AOS12').SK3G 17700002 .SK3E ANOP 17800002 DC X'8000' . ROOT MODULE INDICATOR X02008 17900002 DC C'12' . UTS LOADER ID X02008 18000002 DC XL2'00' . MODULE LENGTH X02008 18100002 AGO .SK3H 18200002 .SK3G ANOP 18300002 AIF ('&S' EQ 'MVM22').SK3E 18400002 .SK3H ANOP 18500002 AIF ('&S' NE 'MVM22').SK3J 18600002 DC X'8000' . ROOT MODULE INDICATOR X03008 18700002 DC C'13' . OLD CECOM ID X03008 18800002 DC XL2'00' . MODULE LENGTH X03008 18900002 DC X'8000' . ROOT MODULE INDICATOR X03008 19000002 DC C'39' . NEW DPRINT ID X03008 19100002 DC XL2'00' . MODULE LENGTH X03008 19200002 DC X'8000' . ROOT MODULE INDICATOR X03008 19300002 DC C'16' . GETCONFG ID X03008 19400002 DC XL2'00' . MODULE LENGTH X03008 19500002 DC X'8000' . ROOT MODULE INDICATOR X03008 19600002 DC C'21' . GRAB ID X03008 19700002 DC XL2'00' . MODULE LENGTH X03008 19800002 DC X'8000' . ROOT MODULE INDICATOR X03008 19900002 DC C'22' . ALLOCATE ID X03008 20000002 DC XL2'00' . MODULE LENGTH X03008 20100002 DC X'8000' . ROOT MODULE INDICATOR X03008 20200002 DC C'24' . READD ID X03008 20300002 DC XL2'00' . MODULE LENGTH X03008 20400002 DC X'8000' . ROOT MODULE INDICATOR X03008 20500002 DC C'26' . LOGSCAN ID X03008 20600002 DC XL2'00' . MODULE LENGTH X03008 20700002 DC X'8000' . ROOT MODULE INDICATOR X03008 20800002 DC C'28' . PLINK ID X03008 20900002 DC XL2'00' . MODULE LENGTH X03008 21000002 DC X'8000' . ROOT MODULE INDICATOR X03008 21100002 DC C'35' . NEW EXIO ID X03008 21200002 DC XL2'00' . MODULE LENGTH X03008 21300002 DC X'8000' . ROOT MODULE INDICATOR X03008 21400002 DC C'36' . NEW WAITIO ID X03008 21500002 DC XL2'00' . MODULE LENGTH X03008 21600002 DC X'8000' . ROOT MODULE INDICATOR X03008 21700002 DC C'37' . NEW CECOM ID X03008 21800002 DC XL2'00' . MODULE LENGTH X03008 21900002 AGO .SK3K 22000002 .SK3J ANOP 22100002 DC X'0100' . OLD MODULE INDICATOR 22200002 DC C'13' . OLD CECOM ID 22300002 DC XL2'00' . MODULE LENGTH 22400002 DC X'8000' . ROOT MODULE INDICATOR 22500002 DC C'39' . DPRINT MODULE ID 22600002 DC XL2'00' . MODULE LENGTH 22700002 .SK3K ANOP 22800002 AIF ('&S' NE 'MVM22').SK3M 22900002 DC X'8000' . ROOT MODULE INDICATOR X03008 23000002 DC C'41' . NEW CONVERT ID X03008 23100002 DC XL2'00' . MODULE LENGTH X03008 23200002 DC V(IFDOLT00) . OLTEP ADDRESS X03008 23300002 DC V(IFDOLT05) . OLD EXIO ADDRESS X03008 23400002 DC V(IFDOLT06) . OLD WAITIO ADDRESS X03008 23500002 DC V(IFDOLT08) . OLD DPRINT ADDRESS X03008 23600002 DC V(IFDOLT09) . COMPARE ADDRESS X03008 23700002 DC V(IFDOLT10) . OLD CONVERT ADDRESS X03008 23800002 DC V(IFDOLT11) . RANDOM DATA ADDRESS X03008 23900002 DC V(IFDOLT12) . LOADER ADDRESS X03008 24000002 DC V(IFDOLT13) . OLD CECOM ADDRESS X03008 24100002 PARPRADR DC V(IFDOLT39) . NEW DPRINT ADDRESS X03008 24200002 DC V(IFDOLT16) . GETCONFG ADDRESS X03008 24300002 DC V(IFDOLT21) . GRAB ADDRESS X03008 24400002 DC V(IFDOLT22) . ALLOCATE ADDRESS X03008 24500002 DC V(IFDOLT24) . READD ADDRESS X03008 24600002 DC V(IFDOLT26) . LOGSCAN ADDRESS X03008 24700002 DC V(IFDOLT28) . PLINK ADDRESS X03008 24800002 DC V(IFDOLT35) . NEW EXIO ADDRESS X03008 24900002 DC V(IFDOLT36) . NEW WAITIO ADDRESS X03008 25000002 DC V(IFDOLT37) . NEW CECOM ADDRESS X03008 25100002 DC V(IFDOLT41) . NEW CONVERT ADDRESS X03008 25200002 MCT1ADR DC A(MCT) . MCT ADDRESS X03008 25300002 AGO .SKP4 25400002 .SK3M ANOP 25500002 DC 10XL6'00' . REST OF MCT 25600002 DC V(IFDOLT00) . OLTEP ADDRESS 25700002 AIF ('&S' NE 'AOS12').SK4 X01906 25800002 DC 6F'00' . MODULE ADDRESSES X02008 25900002 DC V(IFDOLT12) . UTS LOADER X01906 26000002 DC F'00' . MODULE ADDRESS X02008 26100002 AGO .SK4A X01906 26200002 .SK4 ANOP X01906 26300002 DC 8F'00' . MODULE ADDRESSES 26400002 .SK4A ANOP X01906 26500002 PARPRADR DC V(IFDOLT39) . DPRINT MODULE ADDRESS 26600002 DC 10F'00' . MODULE ADDRESSES 26700002 MCT1ADR DC A(MCT) . MCT ADDRESS 26800002 AGO .SKP4 26900002 .SKP3 ANOP 27000002 DEVTBPTR DS F . POINTER TO DEVICE TABLES 21050 27100002 TABLNGTH DS 2C . LENGTH OF EACH DEVTABLE 21050 27200002 CESWT9 DS C . OLTEP SWITCHES 27300002 CESWT10 DS C . OLTEP SWITCHES Y02008 27400002 OPEN2 DS F . WAS PTR TO IOS MOD Y02008 27500002 OPEN3 DS F . WAS PTR TO APP. VECTOR TABLE 27600002 PSCT DS F . ADDRESS OF CHASCT 27700002 DEVDEPAD DS F . ACTIVE CHASCT ENTRY POINTER 27800002 TABAD DS F . UNIT TEST LINK TABLE POINTER 27900002 #TABLE EQU TABAD . LABEL IN OLTEP MACROS 28000002 UTCOMAD DS F . UNIT TEST PASSON AREA POINTER 28100002 MCT DS 208C . MODULE CONTROL TABLE 28200002 PARPRADR EQU MCT+164 . DPRINT MODULE ADDRESS 28300002 MCT1ADR DS F . MCT ADDRESS 28400002 .SKP4 ANOP 28500002 WKSVC &V 4F&Z . SVC WORK AREA 28600002 ROPT EQU MCT1ADR+8 . SVC PARAMETER LIST 28700002 OLTTAB &V 10F&Z . LINK TABLE 28800002 TAB28 EQU OLTTAB+28 . NEW MACRO ENTRY POINT 28900002 LOGADR &V F&Z . POINTER TO LOGSCAN MODULE 29000002 SCHEDSA &V F&Z . SAVE AREA IN SCHEDULER 29100002 SATAB &V 3F&Z . SYSTEM ASSIGNMENT TABLE 29200002 PLKMOR &V 4F&Z . PLINK AND MORECORE MANAGEMENT 29300002 REGX &V F&Z . ACTIVE UCB ADDRESS POINTER 29400002 TUCBAD1 &V F&Z . FIRST ACTIVE UCB ADDRESS 29500002 TUCBAD2 &V F&Z . SECOND ACTIVE UCB ADDRESS 29600002 TSTDEBAD &V F&Z . TEST DEB ADDRESS 29700002 ECB3 &V F&Z . ECB FOR DYN COMMUNICATIONS 29800002 UTCOM &V 16F&Z . UNIT TEST PASSON AREA 29900002 EXTBUF &V 14F&Z . EXT BUFFER 30000002 DPRDEBAD &V F&Z . DPRINT MODULE DEB ADDRESS 30100002 PRIDVPTR &V F&Z . ACTIVE PRIME DEVTAB 30200002 SECDVPTR &V F&Z . LAST GRAB DEVICE 30300002 AIF ('&V' EQ 'DS').SKP9 30400002 REDEFINE DC V(CECINP03) . CE COMM ENTRY IN IFDOLT30Y02906 30500002 COMMINT DC V(FISTERR) . DYN COMM ENTRY - IFDOLT30Y02906 30600002 NEXTREC DC V(CECINP02) . NEXT INPUT REC-IFDOLT30 Y02906 30700002 AGO .SK10 30800002 .SKP9 ANOP 30900002 REDEFINE &V F&Z . CE COMM ENTRY IN IFDOLT30Y02906 31000002 COMMINT &V F&Z . DYN COMM ENTRY - IFDOLT30Y02906 31100002 NEXTREC &V F&Z . NEXT INPUT REC-IFDOLT30 Y02906 31200002 .SK10 ANOP 31300002 ADSVAREA &V F&Z . IFDOLT30 1ST SAVE ADDRESS 31400002 ECB37 &V F&Z . CECOM ECB 31500002 REPLY37 &V 18F&Z . CECOM INPUT BUFFER 31600002 MSGAD37 &V F&Z . OLTS BUFFER ADDRESS 31700002 TPSAVE &V 4&X&Z . TEST ID 31800002 TLCOUNT &V H&Z . TEST LOOP COUNT 31900002 HRTSEL &V 2&X&Z . HIGHEST ROUTINE SELECTED 32000002 SAVECNT &V H&Z . COUNTER FOR DEVICE DECODERS 32100002 &V H&Z . TEST LOOP RUN X01906 32200002 SAVENT &V F&Z . LAST INCLUSIVE SERIES ENTRY 32300002 CESWT &V 9&X&Z . OLTEP SWITCHES GROUPED 32400002 CESWT1 EQU CESWT+1 . OLTEP SWITCHES 32500002 CESWT2 EQU CESWT+2 . OLTEP SWITCHES 32600002 CESWT3 EQU CESWT+3 . OLTEP SWITCHES 32700002 CESWT4 EQU CESWT+4 . OLTEP SWITCHES 32800002 CESWT5 EQU CESWT+5 . OLTEP SWITCHES 32900002 CESWT6 EQU CESWT+6 . OLTEP SWITCHES 33000002 CESWT7 EQU CESWT+7 . OLTEP SWITCHES 33100002 CESWT8 EQU CESWT+8 . OLTEP SWITCHES 33200002 DYNCOM &V &X&Z . RESPONSE BUFFER DYN MSG 33300002 SECTUSE &V &X&Z . NUMBER OF SECTIONS RUN 33400002 UNICTR &V &X&Z . NUMBER OF UNITS TO RUN 33500002 UNITUSE &V &X&Z . NUMBER OF UNITS RUN 33600002 DPLEVEL &V &X&Z . MESSAGE PRINTING LEVEL 33700002 CNT37 &V &X&Z . LENGTH OF CECOM REPLY 33800002 READDSV &V 6&X&Z . READD SAVE AREA 33900002 &V 3&X&Z . NA X01906 34000002 AIF ('&V' EQ 'DS').SKP5 34100002 READDMOD &V V(IFDOLT51) . READD MODULE ADDRESS 34200002 RDCBPTR &V V(READDCB) . READD DCB IN IFDOLT51 Y02906 34300002 MSGMOD &V V(IFDMSG00) . RESIDENT MESSAGE MODULE 34400002 ENDJOB &V F&Z . INITIALIZATION SAVE AREA 34500002 MHRPTR DC V(IFDOLT55) . POINTER TO MESSAGE HANDLER 34600002 RTALKBUF DC V(DEDBUF) . PTR TO DED BUFR-IFDOLT55 Y02906 34700002 RINBUF DC V(REMINBUF) . PTR REMOTE INBUFRIFDOLT55Y02906 34800002 REIDCBPT DC V(REIDCB) . PTR TO REI DCB-IFDOLT55 Y02906 34900002 REIOBPTR DC V(REIOB) . PTR TO REI IOB-IFDOLT55 Y02906 35000002 AGO .SKP8 35100002 .SKP5 ANOP 35200002 READDMOD &V F . READD MODULE ADDRESS 35300002 RDCBPTR &V F . READD DCB IN IFDOLT51 Y02906 35400002 MSGMOD &V F . RESIDENT MESSAGE MODULE 35500002 ENDJOB &V F&Z . INITIALIZATION SAVE AREA 35600002 MHRPTR &V F . 35700002 RTALKBUF &V F . PTR TO DED BUFR-IFDOLT55 Y02906 35800002 RINBUF &V F . PTR REMOTE INBUFRIFDOLT55Y02906 35900002 REIDCBPT &V F . PTR TO REI DCB-IFDOLT55 Y02906 36000002 REIOBPTR &V F . PTR TO REI IOB-IFDOLT55 Y02906 36100002 .SKP8 ANOP 36200002 REIECB &V F&Z . ECB FOR REMOTE COMMUNICATIONS 36300002 TALKECB &V F&Z . ECB FOR ONSITE COMMUNICATIONS 36400002 RESPBUF &V F&Z . POINTER TO REPLY BUFFER 36500002 REIUCB &V F&Z . UCB ADDRESS FOR 2955 36600002 CESWTR &V &X&Z . RETAIN 370 SWITCHES 36700002 CESWTR1 &V &X&Z . 36800002 CESWTR2 &V &X&Z . 36900002 CESWTR3 &V &X&Z . 37000002 ZUESUCB &V H&Z . ACTIVE SPECIFIC EXPOSURE BASE UCB ADDRESS 2 BYTE 37100002 &V H&Z . NA X01906 37200002 EXPAND1 &V F&Z . EXPANSION BYTES 21050 37300002 AIF ('&V' EQ 'DS').SK21 37400002 SYMPTR &V V(SYMLIB) . SYMBOLIC LIB DCB-IFDOLT30Y02906 37500002 AGO .SK22 37600002 .SK21 ANOP 37700002 SYMPTR &V F . SYMBOLIC LIB DCB-IFDOLT30Y02906 37800002 .SK22 ANOP 37900002 PGFXLIST &V 4F&Z . PAGE FIX LIST X01019 38000002 AIF ('&S' NE 'AOS12').SK5 X01906 38100002 .SK5A ANOP 38200002 PARTITEM &V 3F&Z . PARTITION ITEMS X01906 38300002 PGFXOLT &V 2F&Z . OLT PAGE FIX LIST X03008 38400002 CORERSLT &V 2F&Z . GETMAIN CORE RESULTS X03008 38500002 VRSIZE &V F&Z . REAL CORE AREA SIZE X03008 38600002 &V 2F&Z . NA X03008 38700002 AGO .SK5B 38800002 .SK5 ANOP X01906 38900002 AIF ('&S' EQ 'MVM22').SK5A 39000002 .SK5B ANOP 39100002 AIF ('&S' NE 'MVM22').SK5D 39200002 AIF ('&V' EQ 'DS').SK5C 39300002 NEXTMCT DC A(MCT) . PTR TO PREVIOUS MCT X03008 39400002 DC A(THIRDMCT) . PTR TO NEXT MCT 39500002 DC X'8000' . ROOT MODULE INDICATOR X03008 39600002 DC C'42' . MORECORE ID X03008 39700002 DC XL2'00' . MODULE LENGTH X03008 39800002 DC X'8000' . ROOT MODULE INDICATOR X03008 39900002 DC C'43' . FREECORE ID X03008 40000002 DC XL2'00' . MODULE LENGTH X03008 40100002 DC X'8000' . ROOT MODULE INDICATOR X03008 40200002 DC C'44' . DIO ID X03008 40300002 DC XL2'00' . MODULE LENGTH X03008 40400002 DC X'8000' . ROOT MODULE INDICATOR X03008 40500002 DC C'46' . EXTRACTOR ID X03008 40600002 DC XL2'00' . MODULE LENGTH X03008 40700002 DC X'8000' . ROOT MODULE INDICATOR X03008 40800002 DC C'AA' . DDATE ID X03008 40900002 DC XL2'00' . MODULE LENGTH X03008 41000002 DC X'8000' . ROOT MODULE INDICATOR X03008 41100002 DC C'AB' . DTIME ID X03008 41200002 DC XL2'00' . MODULE LENGTH X03008 41300002 DC X'8000' . ROOT MODULE INDICATOR X03008 41400002 DC C'AJ' . CUTEST ID X03008 41500002 DC XL2'00' . MODULE LENGTH X03008 41600002 DC X'0000' . TRANSIENT MODULE X03008 41700002 DC X'0000' . MODULE ID YM4982 41800002 DC XL2'00' . MODULE LENGTH X03008 41900002 DC X'0000' . TRANSIENT MODULE X03008 42000002 DC X'0000' . MODULE ID YM4982 42100002 DC XL2'00' . MODULE LENGTH X03008 42200002 DC X'0000' . TRANSIENT MODULE X03008 42300002 DC X'0000' . MODULE ID YM4982 42400002 DC XL2'00' . MODULE LENGTH X03008 42500002 DC X'0000' . TRANSIENT MODULE X03008 42600002 DC X'0000' . MODULE ID YM4982 42700002 DC XL2'00' . MODULE LENGTH X03008 42800002 DC X'0000' . TRANSIENT MODULE X03008 42900002 DC X'0000' . MODULE ID YM4982 43000002 DC XL2'00' . MODULE LENGTH X03008 43100002 DC X'0000' . TRANSIENT MODULE X03008 43200002 DC X'0000' . MODULE ID YM4982 43300002 DC XL2'00' . MODULE LENGTH X03008 43400002 DC X'0000' . TRANSIENT MODULE X03008 43500002 DC X'0000' . MODULE ID YM4982 43600002 DC XL2'00' . MODULE LENGTH X03008 43700002 DC X'0000' . TRANSIENT MODULE X03008 43800002 DC X'0000' . MODULE ID YM4982 43900002 DC XL2'00' . MODULE LENGTH X03008 44000002 DC X'0000' . TRANSIENT MODULE X03008 44100002 DC X'0000' . MODULE ID YM4982 44200002 DC XL2'00' . MODULE LENGTH X03008 44300002 DC X'0000' . TRANSIENT MODULE X03008 44400002 DC X'0000' . MODULE ID YM4982 44500002 DC XL2'00' . MODULE LENGTH X03008 44600002 DC X'0000' . TRANSIENT MODULE X03008 44700002 DC X'0000' . MODULE ID YM4982 44800002 DC XL2'00' . MODULE LENGTH X03008 44900002 DC X'0000' . TRANSIENT MODULE X03008 45000002 DC X'0000' . MODULE ID YM4982 45100002 DC XL2'00' . MODULE LENGTH X03008 45200002 DC X'0000' . TRANSIENT MODULE X03008 45300002 DC X'0000' . MODULE ID YM4982 45400002 DC XL2'00' . MODULE LENGTH X03008 45500002 DC V(IFDOLT42) . MORECORE ADDRESS X03008 45600002 DC V(IFDOLT43) . FREECORE ADDRESSC X03008 45700002 DC V(IFDOLT44) . DIO ADDRESS X03008 45800002 DC V(IFDOLT46) . EXTRACTOR ADDRESS X03008 45900002 DC V(IFDOLTAA) . DDATE ADDRESS X03008 46000002 DC V(IFDOLTAB) . DTIME ADDRESS X03008 46100002 DC V(IFDOLTAJ) . CUTEST ADDRESS X03008 46200002 DC A(0) . MODULE ADDRESS YM4982 46300002 DC A(0) . MODULE ADDRESS YM4982 46400002 DC A(0) . MODULE ADDRESS YM4982 46500002 DC A(0) . MODULE ADDRESS YM4982 46600002 DC A(0) . MODULE ADDRESS YM4982 46700002 DC A(0) . MODULE ADDRESS YM4982 46800002 DC A(0) . MODULE ADDRESS YM4982 46900002 DC A(0) . MODULE ADDRESS YM4982 47000002 DC A(0) . MODULE ADDRESS YM4982 47100002 DC A(0) . MODULE ADDRESS YM4982 47200002 DC A(0) . MODULE ADDRESS YM4982 47300002 DC A(0) . MODULE ADDRESS YM4982 47400002 DC A(0) . MODULE ADDRESS YM4982 47500002 THIRDMCT DC A(NEXTMCT) . PTR TO PREVIOUS MCT 47600002 DC F'0' . PTR TO NEXT MCT X03008 47700002 DC X'0000' . TRANSIENT MODULE X03008 47800002 DC X'0000' . MODULE ID YM4982 47900002 DC XL2'00' . MODULE LENGTH X03008 48000002 DC X'0000' . TRANSIENT MODULE X03008 48100002 DC X'0000' . MODULE ID YM4982 48200002 DC XL2'00' . MODULE LENGTH X03008 48300002 DC X'0000' . TRANSIENT MODULE X03008 48400002 DC X'0000' . MODULE ID YM4982 48500002 DC XL2'00' . MODULE LENGTH X03008 48600002 DC X'0000' . TRANSIENT MODULE X03008 48700002 DC X'0000' . MODULE ID YM4982 48800002 DC XL2'00' . MODULE LENGTH X03008 48900002 DC X'0000' . TRANSIENT MODULE X03008 49000002 DC X'0000' . MODULE ID YM4982 49100002 DC XL2'00' . MODULE LENGTH X03008 49200002 DC X'0000' . TRANSIENT MODULE X03008 49300002 DC X'0000' . MODULE ID YM4982 49400002 DC XL2'00' . MODULE LENGTH X03008 49500002 DC X'0000' . TRANSIENT MODULE X03008 49600002 DC X'0000' . MODULE ID YM4982 49700002 DC XL2'00' . MODULE LENGTH X03008 49800002 DC 13XL6'00' . REST OF MCT X03008 49900002 DC A(0) . MODULE ADDRESS YM4982 50000002 DC A(0) . MODULE ADDRESS YM4982 50100002 DC A(0) . MODULE ADDRESS YM4982 50200002 DC A(0) . MODULE ADDRESS YM4982 50300002 DC A(0) . MODULE ADDRESS YM4982 50400002 DC A(0) . MODULE ADDRESS YM4982 50500002 DC A(0) . MODULE ADDRESS YM4982 50600002 DC 13F'0' . MODULE ADDRESSES X03008 50700002 AGO .SK5D 50800002 .SK5C ANOP 50900002 NEXTMCT &V 208C . NEXT MCT X03008 51000002 THIRDMCT &V 208C . THIRD MCT 51100002 .SK5D ANOP 51200002 DEVTAB &V 224F&Z . START OF DEVICE TABLES 21050 51300002 ENDCOM EQU * . END OF COMMON AREA 51400002 MEND 51500002 */ 51600002 *%LABEL1: ; 51700002 */********************************************************************/ 51800002 */* COMMON AREA MAP */ 51900002 */********************************************************************/ 52000002 * DECLARE 52200002 * 1 COMMAP BASED(COMMAPT) BDY(WORD), 52300002 * 3 CHASCT CHAR(92), /* SECTION CONTROL TABLE */ 52400002 * 3 DOLT00PT PTR(31), /* INITIALIZATION MODULE */ 52500002 * 3 LGWRTCT CHAR(40), /* LAST SCT WORDS */ 52600002 * 3 INBUFPTR PTR(31), /* ADDR OF ITEM IN BUFFER */ 52700002 * 3 INBUFR CHAR(72), /* INPUT BUFFER */ 52800002 * 3 PRTBUFR CHAR(124), /* PRINTING BUFFER */ 52900002 * 3 SECPTR PTR(31), /* ACTIVE SECTION ENTRY POINT*/ 53000002 * 3 UTENT PTR(31), /* 1ST UT INSTRUCTION */ 53100002 * 3 DATPTR PTR(31), /* PTR TO DP ROOT MODULE */ 53200002 * 3 DATIND CHAR(2), /* OLTEP DATA INDICATOR */ 53300002 * 3 PGMTAB CHAR(8), /* ACTIVE PGM ID */ 53400002 * 3 SECLST CHAR(138), /* SECTION LIST */ 53500002 * 3 PCIEXIT PTR(31), /* PTR TO PCI EXIT */ 53600002 * 3 NORMEXIT PTR(31), /* PTR TO NORMAL EXIT */ 53700002 * 3 ABNMEXIT PTR(31), /* PTR TO ABNORMAL EXIT */ 53800002 * 3 DIEPTR PTR(31), /* PTR TO DISABLED INT HNDLR */ 53900002 * 3 IOSCB CHAR(136), /* CTRL BLK SET FOR IOS */ 54000002 * 5 MODIOSB CHAR(108), /* MODEL IOSB */ 54100002 * 5 MODUSECB CHAR(24), /* MODEL USE CONTROL BLOCK */ 54200002 * 5 OECBWRD1 CHAR(4), /* 1ST WORD OF OECB */ 54300002 * 7 OECBSNSC CHAR(1), /* SENSE COUNT FOR THIS REQ */ 54400002 * 7 OECBINCT CHAR(1), /* INTERRUPT COUNT FLD */ 54500002 * 7 OECBX CHAR(2), /* NOT USED */ 54600002 * 3 EFCTRCB CHAR(20) BDY(WORD), /* IOEFFECTOR CNTRL BLOCK */ 54700002 * 5 CCWPTR PTR(31), /* PTR TO CCW LIST */ 54800002 * 5 DVTPTR PTR(31), /* PTR TO DEVTBLE ENTRY */ 54900002 * 5 FLGA CHAR(1), /* FLAGS: */ 55000002 * 7 BYPASPFX BIT(1), /* BYPASS PREFIX */ 55100002 * 7 CEDEPOST BIT(1), /* CE DE SEPERATION */ 55200002 * 7 GDP BIT(1), /* GUARANTEED DEV PATH */ 55300002 * 7 SPEXPOS BIT(1), /* SPECIFIC EXPOSURE */ 55400002 * 7 * BIT(1), /* NOT USED */ 55500002 * 7 * BIT(1), /* NOT USED */ 55600002 * 7 * BIT(1), /* NOT USED */ 55700002 * 7 * BIT(1), /* NOT USED */ 55800002 * 5 FLGB CHAR(1), /* FLAGS: */ 55900002 * 7 INTIRNAL BIT(1), /* INTERNAL CALL BY DP ETC.*/ 56000002 * 7 ATTNIN BIT(1), /* ATTENTION FUNCTION */ 56100002 * 7 VIRTCCWS BIT(1), /* CCWS ARE VIRTUAL */ 56200002 * 7 OLDTECBX BIT(1), /* P3116 TECB */ 56300002 * 7 * BIT(1), /* NOT USED */ 56400002 * 7 * BIT(1), /* NOT USED */ 56500002 * 7 * BIT(1), /* NOT USED */ 56600002 * 7 * BIT(1), /* NOT USED */ 56700002 * 5 FILEMSK CHAR(1), /* FILEMASK OR MODE SET */ 56800002 * 5 SNSCNT CHAR(1), /* SENSE BYTE COUNT */ 56900002 * 5 TECBPTRX PTR(31), /* PTR TO TECB */ 57000002 * 5 SEEKPTR PTR(31), /* PTR TO SEEK ADDR */ 57100002 * 3 IOEFTRAD PTR(31), /* PTR TO IO EFFECTOR */ 57200002 * 3 IODEVTAB(3) CHAR(12) BDY(WORD), /* IO DEVICE TABLES */ 57300002 * 5 IODEV1 PTR(31), /* PTR TO DEV TBLE NTRY */ 57400002 * 5 IOSBPTR1 PTR(31), /* PTR TO IOSB */ 57500002 * 5 IOECB1 CHAR(4), /* ECB */ 57600002 * 7 CMPLT CHAR(1), /* */ 57700002 * 9 WAITBIT BIT(1), /* ECB WAITED ON */ 57800002 * 9 POSTBIT BIT(1), /* ECB POSTED */ 57900002 * 9 CMPLCODE BIT(6), /* SYSTEM COMPLETION CODE */ 58000002 * 7 * CHAR(1), /* NOT USED */ 58100002 * 7 * CHAR(2), /* */ 58200002 * 9 PSUDPOST BIT(1), /* SET BY NAPA */ 58300002 * 9 * BIT(3), /* NOT USED */ 58400002 * 9 WTCMPCD BIT(12), /* SET BY WAITIO ON TMOUT */ 58500002 * 3 SELAFFN CHAR(2), /* SELECTED AFFN */ 58600002 * 3 CHARAFFN CHAR(2), /* CHAR REP OF SEL AFFN */ 58630002 * 3 XXXXXXXX CHAR(144), /* NOT USED */ 58660002 * 3 DEVTBPTR PTR(31), /* PTR TO DEVICE TABLES */ 58700002 * 3 TABLNGTH FIXED(15), /* LENGTH OF EACH TABLE */ 58800002 * 3 CESWT9 CHAR(1), /* SWITCHES: */ 58900002 * 5 CDSEQU BIT(1), /* CDS EQUATE REQ */ 59000002 * 5 RESTBENT BIT(1), /* RESIDENT TBL ENTRY */ 59100002 * 5 VRCAP BIT(1), /* VIRTUAL OR REAL OLT */ 59200002 * 5 * BIT(4), /* NOT USED */ 59300002 * 3 CESWT10 CHAR(1), /* SWITCHES OR FLAGS */ 59400002 * 5 MPSYS BIT(1), /* MP SYSTEM */ 59420002 * 5 AFFNSET BIT(1), /* AFFN SET */ 59440002 * 5 VERBCALL BIT(1), /* VERB SELECTED */ 59460002 * 3 OPEN2 PTR(31), /* NOT USED */ 59500002 * 3 OPEN3 PTR(31), /* NOT USED */ 59600002 * 3 PSCT PTR(31), /* PTR TO SCT */ 59700002 * 3 DEVDEPAD PTR(31), /* ACTIVE SCT ENTRY PTR */ 59800002 * 3 TABAD PTR(31), /* UNIT TESTING TBLE PTR */ 59900002 * 3 UTCOMAD PTR(31), /* POINTER TO PASSON AREA */ 60100002 * 3 MCT CHAR(208) BDY(WORD), /* MODULE CONTROL TABLE */ 60200002 * 5 * CHAR(164), /* */ 60300002 * 5 PARPRADR PTR(31), /* DPRINT MODULE ADDR */ 60400002 * 5 * CHAR(40), /* */ 60500002 * 3 MCT1ADR PTR(31), /* PTR TO MCT */ 60600002 * 3 WKSVC CHAR(16) BDY(WORD), /* SVC WORK AREA */ 60700002 * 5 * CHAR(4), /* */ 60800002 * 5 ROPT PTR(31), /* SVC PARM LIST */ 60900002 * 5 * CHAR(8), /* */ 61000002 * 3 OLTTAB CHAR(40) BDY(WORD), /* LINK TABLE */ 61100002 * 5 * CHAR(28), /* */ 61200002 * 5 TAB28 PTR(31), /* NEW MACRO ENTRY POINT */ 61300002 * 5 * CHAR(8), /* */ 61400002 * 3 LOGADR PTR(31), /* PTR TO LOGSCAN MODULE */ 61500002 * 3 SCHEDSA PTR(31), /* PTR TO SCHEDULER SVAREA */ 61600002 * 3 SATAB CHAR(12), /* SYSTEM ASSIGNMENT TABLE */ 61700002 * 3 PLKMOR CHAR(16), /* PLINK AND MORECORE MNGMT */ 61800002 * 3 REGX PTR(31), /* ACTIVE UCB ADDR PTR */ 61900002 * 3 TUCBAD1 PTR(31), /* 1ST ACTIVE UCB ADDR */ 62000002 * 3 TUCBAD2 PTR(31), /* 2ND ACTIVE UCB ADDR */ 62100002 * 3 TSTDEBAD PTR(31), /* TEST DEB ADDR */ 62200002 * 3 ECB3 CHAR(4), /* DYNAMIC COMMUNICATION ECB */ 62300002 * 3 UTCOM CHAR(64), /* PASSON AREA */ 62400002 * 3 EXTBUF CHAR(56), /* EXTERNAL BUFFER */ 62500002 * 3 DPRDEBAD PTR(31), /* PTR TO DPRINT DEB */ 62600002 * 3 PRIDVPTR PTR(31), /* PTR TO ACTIVE PRIME DEVTAB*/ 62700002 * 3 SECDVPTR PTR(31), /* PTR TO LAST GRAB DEVICE */ 62800002 * 3 REDEFINE PTR(31), /* CE COMM ENTRY IN Y02906*/ 62900002 * /* IFDOLT30 Y02906*/ 62950002 * 3 COMMINT PTR(31), /* DYN COMM ENTRY IN Y02906*/ 63000002 * /* IFDOLT30 Y02906*/ 63050002 * 3 NEXTREC PTR(31), /* NEXT INPUT RECORD Y02906*/ 63100002 * /* ENTRY IN IFDOLT30 Y02906*/ 63150002 * 3 ADSVAREA PTR(31), /* IFDOLT30 1ST SVAREA ADDR */ 63200002 * 3 ECB37 CHAR(4), /* CECOM ECB */ 63300002 * 3 REPLY37 CHAR(72), /* CECOM INPUT BUFFER */ 63400002 * 3 MSGAD37 PTR(31), /* OLTS BUFFER ADDR */ 63500002 * 3 TPSAVE CHAR(4), /* TEST ID */ 63600002 * 3 TLCOUNT FIXED(15), /* TEST LOOP COUNT */ 63700002 * 3 HRTSEL FIXED(15), /* HIGHEST ROUTINE SELECTED */ 63800002 * 3 SAVECNT CHAR(2), /* COUNTER FOR DEVICE DELODE */ 63900002 * 3 * CHAR(2), /* TEST LOOP RUN */ 64000002 * 3 SAVENT CHAR(4), /* LAST INCLUSIVE SERIES */ 64100002 * 3 CESWITCH CHAR(9), /* OLTEP SWITCHES */ 64200002 * 5 CESWT CHAR(1), /* CE SWITCH */ 64210002 * 7 LEGALTST BIT(1), /* LEGAL TEST ENTRY */ 64220002 * 7 SECDEV BIT(1), /* DO DP FOR SEC DEV */ 64230002 * 7 OUTS BIT(1), /* OLD OLT LOADED */ 64240002 * 7 NUTS BIT(1), /* NEW OLT LOADED */ 64250002 * 7 LEGALDEV BIT(1), /* LEGAL DEVICE ENTRY */ 64260002 * 7 REINT BIT(1), /* NEW D/T/O/ ENTRY */ 64270002 * 7 FERINT BIT(1), /* COMMUNICATION INTERVAL */ 64280002 * 7 * BIT(1), /* */ 64290002 * 5 CESWT1 CHAR(1), /* SWITCH 1: */ 64300002 * 7 RTNFLD BIT(1), /* ROUTINES SELECTED */ 64400002 * 7 SKTST BIT(1), /* */ 64500002 * 7 * BIT(1), /* */ 64600002 * 7 WAITFG BIT(1), /* WAITIO NEEDED */ 64700002 * 7 FILMSK BIT(1), /* ALLOW MODESET CHANGE */ 64800002 * 7 * BIT(1), /* */ 64900002 * 7 ONLINEOK BIT(1), /* ONLINE TESTING OK */ 65000002 * 7 TPFLAG BIT(1), /* UNITS COUNTER GTR THEN 1 */ 65100002 * 5 CESWT2 CHAR(1), /* SWITCH 2: */ 65200002 * 7 NDCFO BIT(1), /* NO DYN COMM FOR OLTEP */ 65300002 * 7 * BIT(1), /* */ 65400002 * 7 FECOND BIT(1), /* FIRST ERROR CONDITION */ 65500002 * 7 * BIT(1), /* */ 65600002 * 7 INITENT BIT(1), /* OPTION ENTRY DECODED */ 65700002 * 7 NDR BIT(1), /* NDR ENTRY */ 65800002 * 7 TAPEHDR BIT(1), /* TAPE LABEL TO RESTORE */ 65900002 * 7 * BIT(1), /* */ 66000002 * 5 CESWT3 CHAR(1), /* SWITCH 3: */ 66100002 * 7 TALKVERB BIT(1), /* TALK REQUESTED */ 66200002 * 7 BYPALDEV BIT(1), /* STOP SCHEDULING DEVICES */ 66300002 * 7 BYPDEV BIT(1), /* STOP TESTING CURRENT DEV */ 66400002 * 7 GRBCNTL BIT(1), /* GRAB MACRO ISSUED */ 66500002 * 7 SUSDEL BIT(1), /* MODULE CAN BE DELETED */ 66600002 * 7 TP1419 BIT(1), /* TP DEVICES IN SYSTEM */ 66700002 * 7 CDEXIST BIT(1), /* CDS LIBRARY EXISTS */ 66800002 * 7 NODP BIT(1), /* CANT DO DATA PROJECT */ 66900002 * 5 CESWT4 CHAR(1), /* SWITCH 4: */ 67000002 * 7 RSTRFLG BIT(1), /* PAGE RESTORE -BYPASS WTO */ 67100002 * 7 DPRFLG BIT(1), /* USE DPRINT 2ND SVAREA */ 67200002 * 7 WAITFLG BIT(1), /* BYPASS DPRINT INTRNL WAIT */ 67300002 * 7 WRTFLG BIT(1), /* DPRINT WRITE REQUEST */ 67400002 * 7 * BIT(1), /* NOT USED */ 67500002 * 7 WTORFLG BIT(1), /* DPRINT WTOR REQUEST */ 67600002 * 7 RPLYFLG BIT(1), /* REPLY EXPECTED */ 67700002 * 7 WTOFLG BIT(1), /* DPRINT WTO REQUEST */ 67800002 * 5 CESWT5 CHAR(1), /* SWITCH 5: */ 67900002 * 7 HDRFLG BIT(1), /* PRINT HEADER LINE */ 68000002 * 7 RSLTFLG BIT(1), /* PRINT RESULTS */ 68100002 * 7 FFEFLG BIT(1), /* 1ST ERROR HAS OCCURRED */ 68200002 * 7 FCEFLG BIT(1), /* 1ST CAT ERROR HAS OCCURRED*/ 68300002 * 7 PFEMSG BIT(1), /* PRINT 1ST ERROR MSG */ 68400002 * 7 PCEMSG BIT(1), /* PRINT CAT ERROR MSG */ 68500002 * 7 SYMBFLG BIT(1), /* SYMBOLIC NAME IN HEADER */ 68600002 * 7 PRNTOPTN BIT(1), /* PRINT PRIOR OPTIONS MSG */ 68700002 * 5 CESWT6 CHAR(1), /* SWITCH 6: */ 68800002 * 7 UTSCAL BIT(1), /* UNIT TEST MACRO CALL */ 68900002 * 7 ATM BIT(1), /* PRINT * ON TERM MSG */ 69000002 * 7 EOFBIT BIT(1), /* RESET INTERNAL SWITCHES */ 69100002 * 7 PFPMSG BIT(1), /* PRINT FP MSG-CANCEL OLT */ 69200002 * 7 CODE5 BIT(1), /* REPEAT TESTS */ 69300002 * 7 NORUN BIT(1), /* DONT RUN SCHEDULED TEST */ 69400002 * 7 SECRUN BIT(1), /* SCHEDULED TEST DONE */ 69500002 * 7 RTSTAE BIT(1), /* ENTRY TO STAE */ 69600002 * 5 CESWT7 CHAR(1), /* SWITCH 7: */ 69700002 * 7 INCLST BIT(1), /* INCLUSIVE DEVICE ENTRY */ 69800002 * 7 RETTO31 BIT(1), /* NOT ALL DEVICES VALID */ 69900002 * 7 REMOTE BIT(1), /* REMOTE TERM IN DEV ENTRY */ 70000002 * 7 * BIT(1), /* NOT USED */ 70100002 * 7 * BIT(1), /* NOT USED */ 70200002 * 7 * BIT(1), /* NOT USED */ 70300002 * 7 VIRTUAL BIT(1), /* RUNNING IN VIRTUAL */ 70400002 * 7 GOTINPUT BIT(1), /* ENTRY TO D/T/O */ 70500002 * 5 CESWT8 CHAR(1), /* SWITCH 8: */ 70600002 * 7 LISTFIX BIT(1), /* PARMLIST FIXED */ 70700002 * 7 * BIT(1), /* NOT USED */ 70800002 * 7 * BIT(1), /* NOT USED */ 70900002 * 7 READDCHK BIT(1), /* READD ENTERED */ 71000002 * 7 OLTINVV BIT(1), /* OLT IN VIRTUAL */ 71100002 * 7 SUTMSG BIT(1), /* MSG 158I ISSUED */ 71200002 * 7 SNEWRUN BIT(1), /* NEW TEST RUN */ 71300002 * 7 TALKHERE BIT(1), /* TALK VERB ENTERED */ 71400002 * 3 DYNCOM CHAR(1), /* RESPONSE BUFFER DYN MSG */ 71500002 * 3 SECTUSE CHAR(1), /* NO. OF SECTIONS RUNYM03331*/ 71600002 * 3 UNICTR CHAR(1), /* NO. OF UNITS TO RUNYM03331*/ 71700002 * 3 UNITUSE CHAR(1), /* NO. OF UNITS RUN YM03331*/ 71800002 * 3 DPLEVEL CHAR(1), /* MSG PRINTING LEVEL */ 71900002 * 3 CNT37 CHAR(1), /* CECOM REPLY LENGTH YM03331*/ 72000002 * 3 READDSV CHAR(6), /* READD SVAREA */ 72100002 * 3 * CHAR(3), /* NOT USED */ 72200002 * 3 READDMOD PTR(31), /* PTR TO READD MODULE */ 72300002 * 3 RDCBPTR PTR(31), /* READD DCB PTRPTR - Y02906*/ 72400002 * /* DCB IN IFDOLT51 Y02906*/ 72450002 * 3 MSGMOD PTR(31), /* PTR TO RESIDENT MSG MODULE*/ 72500002 * 3 ENDJOB PTR(31), /* PTR TO INIT SVAREA */ 72600002 * 3 MHRPTR PTR(31), /* */ 72700002 * 3 RTALKBUF PTR(31), /* PTR TO TALK BUFFER- Y02906*/ 72800002 * /* BUFFER IN IFDOLT55 Y02906*/ 72850002 * 3 RINBUF PTR(31), /* PTR TO REMOTE INBUFRY02906*/ 72900002 * /* BUFR IN IFDOLT55 Y02906*/ 72950002 * 3 REIDCBPT PTR(31), /* PTR TO REI DCB- Y02906*/ 73000002 * /* DCB IN IFDOLT55 Y02906*/ 73050002 * 3 REIOBPTR PTR(31), /* PTR TO REI IOB- Y02906*/ 73100002 * /* IOB IN IFDOLT55 Y02906*/ 73150002 * 3 REIECB CHAR(4), /* REMOTE COMM ECB */ 73200002 * 3 TALKECB CHAR(4), /* ONSITE COMM ECB */ 73300002 * 3 RESPBUF PTR(31), /* PTR TO REPLY BUFR */ 73400002 * 3 REIUCB PTR(31), /* 2955 UCB ADDR */ 73500002 * 3 CESWTR CHAR(1), /* RETAIN SWITCHES: */ 73600002 * 5 RETAINAC BIT(1), /* RETAIN ACTIVE */ 73700002 * 5 REMERR BIT(1), /* REMOTE ERROR */ 73800002 * 5 REMONMSG BIT(1), /* DONT SEND TO REMOTE */ 73900002 * 5 CENOMSG BIT(1), /* DONT SEND TO CONSOLE */ 74000002 * 5 TRANSMSG BIT(1), /* TRANSLATE MSG */ 74100002 * 5 IMRESP BIT(1), /* ATTACH 04 REPLY CODE */ 74200002 * 5 EXECOUT BIT(1), /* SCCEPT 00 REPLY CODE */ 74300002 * 5 * BIT(1), /* NOT USED */ 74400002 * 3 CESWTR1 CHAR(1), /* REMOTE SWITCH1: */ 74500002 * 5 ILLRESP BIT(1), /* INVALID RESP BY REMOTE */ 74600002 * 5 EXECANS BIT(1), /* REMOTE REPLIED TO 104E */ 74700002 * 5 CECOMANS BIT(1), /* REMOTE REPLIED TO OUTSMSG*/ 74800002 * 5 INFOMSG BIT(1), /* 3 MSG RCVD FROM REMOTE */ 74900002 * 5 RETRIEVE BIT(1), /* REIECB POSTED */ 75000002 * 5 REMANS BIT(1), /* REMOTE CAN REPLY */ 75100002 * 5 EDOTMSG BIT(1), /* ATTACH 01 REPLY CODE */ 75200002 * 5 REIENTRY BIT(1), /* ENTRY FROM REI */ 75300002 * 3 CESWTR2 CHAR(1), /* REMOTE SWITCH2: */ 75400002 * 5 REPLY00 BIT(1), /* ATTACH 00 REPLY CODE */ 75500002 * 5 * BIT(1), /* NOT USED */ 75600002 * 5 ONCOMM BIT(1), /* ONSITE REPLIED */ 75700002 * 5 COMLOOP BIT(1), /* 105D ISSUED - TALK REPLY */ 75800002 * 5 WAIT BIT(1), /* ISSUE WTOR */ 75900002 * 5 OPTERR BIT(1), /* RE AND MI OPTIONS SELECT */ 76000002 * 5 * BIT(1), /* NOT USED */ 76100002 * 5 DPMSGREI BIT(1), /* REI REPLY NOT ALLOWED */ 76200002 * 3 CESWTR3 CHAR(1), /* REMOTE SWITCH3 */ 76300002 * 3 ZUESUCB FIXED(15), /* SPEC EXP BASE UCB ADDR */ 76400002 * 3 * CHAR(2), /* NOT USED */ 76500002 * 3 EXPAND1 CHAR(4), /* EXPANSION BYTES */ 76600002 * 3 SYMPTR PTR(31), /* SYMBOLIC LIB DCB PTRY02906*/ 76700002 * /* DCB IN IFDOLT30 Y02906*/ 76750002 * 3 PGFXLIST CHAR(16), /* PAGEFIX LIST */ 76800002 * 3 PARTITEM CHAR(12), /* PARTITION ITEMS */ 76900002 * 3 PGFXOLT CHAR(8), /* OLT PAGEFIX LIST */ 77000002 * 3 CORERSLT CHAR(8), /* GETMAIN CORE RESULTS */ 77100002 * 3 VRSIZE FIXED(31), /* REAL CORE AREA SIZE */ 77200002 * 3 * CHAR(8), /* NOT USED */ 77300002 * 3 NEXTMCT CHAR(208), /* NEXT MCT */ 77400002 * 3 THIRDMCT CHAR(208), /* THIRD MCT */ 77500002 * 3 DEVTAB CHAR(896); /* START OF DEVICE TABLES */ 77600002