* %GOTO MTABLBL ; /* 00050000 MACRO 00500000 TCOMTAB 01000000 TCOMTAB DSECT 01500000 SPACE 1 02000000 *********************************************************************** 02500000 * * 03000000 * THIS MACRO MAPS THE TEST COMMAND PROCESSOR COMMUNICATION * 03500000 * TABLE (TCOMTAB) USED BY ALL SUBCOMMAND PROCESSORS AND * 04000000 * SERVICE ROUTINES WHICH MAKE UP THE TSO/TEST COMMAND. * 04500000 * * 05000000 * STATUS -- VERSION NO. 01 - OS/VS2 RELEASE NO. 01 * 05500000 * * 06000000 * CHANGE LEVEL -- 04 - DATE 04/25/72 * 06500000 * * 07000000 *********************************************************************** 07500000 SPACE 1 08000000 ECBPP DS A - PP DISPATCHABILITY ECB. 08500000 SPACE 1 09000000 ECBLIST EQU * - BEGINNING OF ECBLIST FOR WAIT. 09500000 ECBTST DS A - PTR TO TEST DISPATCHABILITY ECB. 10000000 ECBTERM DS A - PTR TO PP TERMINATION ECB. 10500000 ECBTMPS DS A - PTR TO STAI ECB. 11000000 ECBTMPA DS A - PTR TO ATTENTION ECB. 11500000 SPACE 1 12000000 ECBLOG DS A - PTR TO STOP/MODIFY ECB. 12500000 SPACE 1 13000000 TSTTCB DS 0A - PTR TO THE TEST TCB. 13500000 TSTTCBR DS X - RESERVED. 14000000 TSTTCBP DS AL3 - PTR TO THE TEST TCB. 14500000 SPACE 1 15000000 PPTCB DS 0A - PTR TO THE PROBLEM PROGRAM TCB. 15500000 PPTCBR DS X - RESERVED. 16000000 PPTCBP DS AL3 - PTR TO THE PROBLEM PROGRAM TCB. 16500000 DS D - *** RESERVED SPACE *** 17000000 SPACE 1 17500000 OUTBUF DS A - PTR TO GENERAL OUTPUT BUFFER. 18000000 OUTBUFRL EQU 256 - LENGTH OF OUTPUT BUFFER. 18500000 BLDLAREA DS 0A - ADDRESS OF BLDL ENTRY USED BY 19000000 * IKJEGINT AND IKJEGLDR. 19500000 CONAREA DS A - PTR TO OUTPUT AREA USED BY CONVERT RTN. 20000000 CONAREAL EQU 72 - LENGTH OF CONVERT WORK AREA. 20500000 WORKAREA DS A - PTR TO GENERAL WORK AREA. 21000000 REGSAVEL EQU 72*6 - LENGTH OF 6 REGISTER SAVE AREAS. 21500000 REGSAVE1 DS A - PTR TO SAVE AREA FOR MAINLINE. 22000000 REGSAVE2 DS A - PTR TO SAVE AREA FOR COMMANDS. 22500000 REGSAVE3 DS A - PTR TO SAVE AREA FOR VALIDITY CHECKERS. 23000000 REGSAVE4 DS A - PTR TO SAVE AREA FOR IKJEGCVT. 23500000 REGSAVE5 DS A - PTR TO SAVE AREA FOR IKJEGIO. 24000000 REGSAVE6 DS A - PTR TO SAVE AREA FOR IKJEGSRH. 24500000 DS A - *** RESERVED SPACE *** 24550000 SPACE 1 25500000 TPLPTR DS A - PTR TO TPL 26000000 TMPLL DS H - LINE LENGTH 26500000 TSTMTASK DS X - BREAKPOINT SYNCHRONIZATION BYTE. 27000000 TSTESTRC DS X - ESATE ERROR RETURN CODE 27500000 TSTWHR DS A - PTR TO COMMAND LIB DCB. 28000000 SPACE 1 28500000 PARMLIST DS 0F - PARM LIST FOR CALLING SERVICE ROUTINES 29000000 TSTUPT DS A - PTR TO UPT 29500000 TSTECT DS A - PTR TO ECT 30000000 TSTCPECB DS A - PTR TO CP ECB 30500000 SPACE 1 31000000 TSTANSPL DS A - ANSWER PLACE FOR PARSE SERVICE ROUTINE. 31500000 SPACE 1 32000000 ABENTAB DS A - PTR TO ABEND VECTOR TABLE(RESIDENT). 32500000 ABENTAB1 DS A - PTR TO ABEND VECTOR TABLE(TRANSIENT). 33000000 TSTRETRY DS 0A - ENTRY POINT OF TRANSIENT RETRY ROUTINE. 33500000 TSTRTYCD DS X - SUBCOMMAND ID. 34000000 TSTRTYPT DS AL3 - PTR TO A STAE RETRY ROUTINE WITHIN ANY 34500000 * TEST MODULE THAT HAS ISSUED A STAE 35000000 SPACE 1 35500000 INBUF DS A - PTR TO BUFFER CONTAINING SUBCMD 36000000 TSTIODSN DS A - HEAD OF DSNAME CHAIN FOR IKJEGIO 'PRINT'. 36500000 TSTIO DS A - ENTRY POINT OF GET ROUTINE IKJEGIO. 37000000 DS A - RESERVED 37500000 DS A - RESERVED 38000000 TSTCONVT DS A - ENTRY POINT OF IKJEGCVT. 38500000 TSTADDR DS A - ENTRY POINT OF ADDRESS BUILD SUBROUTINE. 39000000 TSTSTAE DS A - ENTRY POINT OF STAE EXIT RTN. (IKJEGSTA). 39500000 SPACE 2 40000000 TSTFLGS1 DS X - TEST FLAGS, BYTE 1. 40500000 SPACE 1 41000000 PCHLSTVL EQU B'10000000' - PATCH LIST SWITCH. 41500000 S9GINTSW EQU B'01000000' - INTERNAL SW FOR SVC97 @ZA05687 41550000 TSTPRINT EQU B'00100000' - PRINT SWITCH. 42000000 TSTFIRST EQU B'00010000' - FIRST TIME SWITCH. 42500000 RANGESW EQU B'00001000' - INDICATES PDE IS FOR ADDRESS RANGE. 43000000 TSTBUILD EQU B'00000100' - 'AT' SWITCH FOR DEFER CHECK. 43500000 ENDSW EQU B'00000010' - INDICATES 'END' TO MAINLINE. 44000000 RUNSW EQU B'00000001' - INDICATES 'RUN' TO MAINLINE. 44500000 SPACE 2 45500000 TSTFLGS2 DS X - TEST FLAGS, BYTE 2. 46000000 SPACE 1 46500000 TSTLDF EQU B'10000000' - IKJEGLDF TASK-SWITCH INDICATOR. 47000000 TSTXCTL EQU B'01000000' - STAE XCTL INDICATOR. 47500000 TOFFDEF EQU B'00100000' - NO ACTIVE BREAKPOINTS. 48000000 TTESTTCB EQU B'00010000' - RUNNING UNDER TEST TASK. 48500000 TADDROUT EQU B'00001000' - LOAD MODULE FOUND UNDER TCB. 49000000 TWHRLOAD EQU B'00000100' - VALID LOAD MODULE CHECK. 49500000 TSTQUAL EQU B'00000010' - QUALIFICATION IS IN PROCESS 50000000 TMYIOMSG EQU B'00000001' - IKJEGIO MESSAGE SWITCH. 50500000 SPACE 2 51000000 TSTFLGS3 DS X - TEST FLAGS, BYTE 3. 51500000 SPACE 1 52000000 TSTGOSW EQU B'10000000' - SPECIAL BREAKPOINT TYPE SWITCH. 52500000 TSTSTAI EQU B'01000000' - PROBLEM PROGRAM ABEND INDICATOR. 53000000 SYMMESG EQU B'00100000' - SYM 'NO DIAGNOSTIC' SWITCH. 53500000 TCSECTCK EQU B'00010000' - CSECT ONLY DEFER QUEUE CLEAR. 54000000 TDUPNAME EQU B'00001000' - DEFER QUEUE DUPLICATE NAME BIT. 54500000 TSTLINK EQU B'00000100' - SUB-CMD 'LINK FAILED' INDICATOR. 55000000 TSTHELP EQU B'00000010' - INDICATES THAT 'HELP' IS ATTACHED. 55500000 NOPARMS EQU B'00000001' - INDICATES NO PARAMETERS WITH COMMAND. 56000000 SPACE 2 56500000 TSTFLGS4 DS X TEST FLAGS, BYTE 4. 57000000 SPACE 1 57500000 TSTA EQU B'10000000' - TEST'S INPUT IS NOT FROM A STACK. 58000000 TSTB EQU B'01000000' - A STACKED TERMINAL ELEM. IS PRESENT. 58500000 TSTFLUSH EQU B'00100000' - FORCE TCLEARQ AND POSSIBLE STACK FLUSH. 59000000 TSTRERTN EQU B'00010000' - A RETRY IS IN PROCESS 59500000 TSTESTAE EQU B'00001000' - ESTAE IS INVOKING I/O FOR MESSAGE 60000000 TSTSVCAB EQU B'00000100' - SVC ABEND IS IN PROCESS 60500000 TSTPERC EQU B'00000010' - THIS RETRY ROUTINE WAS PERCOLLATED TO 61000000 TSTVALCK EQU B'00000001' - INDICATES PARSE VALIDITY CHECK IN PROCESS 61500000 SPACE 2 62000000 BREAKTAB DS A - PTR TO FIRST BREAK ELEMENT. 62500000 DEFERTAB DS A - PTR TO DEFER'ED CMD LIST 63000000 PPLOAD DS A - PTR TO CURRENT BASE FOR RELATIVES. 63500000 PPTEMP DS A - TEMPORARY BASE FOR RELATIVES. 64000000 SUBCHAIN DS A - PTR TO BREAKPOINT SUBCOMMAND CHAIN. 64500000 SPACE 1 65000000 TSTGO DS 0X - RESUME ADDRESS AFTER BREAKPOINT. 65500000 TSTGOPSW DS F - SECOND WORD OF RBOPSW FIELD. 66000000 TSTGOWCF DS X - WAIT COUNT FROM RBWCF FIELD. 66500000 TSTRSVD2 DS X - RESERVED BYTE. 67000000 TSTSVC DS H - AN SVC 97 INSTRUCTION (0A61). 67500000 PPRB DS A - CURRENT PROBLEM PROGRAM RB ADDRESS. 68000000 SPACE 1 68500000 TSTIODCB DS A - PTR TO OPEN PRINT DCB. 69000000 CALLPARM DS A - HEAD OF CHAIN FOR PARMS BUILT BY 'CALL'. 69500000 DS A - *** RESERVED SPACE *** 70000000 INTSTDDN DS 0CL8 DDNAME FOR DATA SET SPECIFIED ON THE TEST 70500000 * COMMAND - USED BY IKJEGINT AND IKJEGLDR. 71000000 TSTCURLD DS CL8 - CURRENTLY QUALIFIED LOAD NAME. 71500000 TERMDD DS 0CL8 - DDNAME FOR TERMINAL USED BY OS LOADER. 72000000 TSTCURCT DS CL8 - CURRENTLY QUALIFIED CSECT NAME. 72500000 TSTSYMBA DS A - CURRENTLY QUALIFIED SYMBOLIC ADDR BASE. 73000000 TSTTRN DS A - HEAD OF SAVE INFORMATION CHAIN 73500000 SICHAIN DS A - HEAD OF SYMBOL INFORMATION CHAIN 74000000 TSTSYMWK DS A - PTR TO SYMBOL PROCESSING WORK AREA. 74500000 SYMTABLE DS A - PTR TO IN-CORE SYMBOL TABLE. 75000000 SPACE 1 75500000 PPEXIT DS 0A - BREAKPOINT & EXIT SVC'S FOR PP TERM. 76000000 PPEXIT1 DS H - AN SVC 97 INSTRUCTION (0A61). 76500000 PPEXIT2 DS H - AN SVC 3 INSTRUCTION (0A03). 77000000 TSTDCB DS A - HEAD OF OVLY DCB CHAIN. 77500000 OPCODTAB DS A - PTR TO TABLE OF VALID OPERATION CODES. 78000000 TSTOPCD2 DS F - PTR TO TABLE FOR TWO BYTE S/370 78500000 * OPERATION CODES. 79000000 DS A - RESERVED 79500000 DS A - RESERVED 80000000 TSTHTCB DS A - POINTER TO THE HELP TCB 80500000 TSTAQUAL DS 0X - AUTOMATIC QUALIFICATION CONTROL 81000000 TSTAQLDM DS CL8 - EBCDIC LOAD MODULE NAME. 81500000 TSTAQEP DS A - ENTRY POINT OF LOAD MODULE. 82000000 TSTRSTRT DS A - RESTART ADDRESS FOR STAE PROCESSING 82500000 TSTSRHRT DS A - ADDRESS OF RESIDENT ADDRESS VALIDITY 83000000 * CHECK ROUTINE. 83500000 SPACE 1 84000000 TSTSTAX DS 5F - STAX PARAMETER LIST. 84500000 TSTDSECB DS F - TEST DISPATCHABILITY ECB. 85000000 TSTMNLWK DS 10F - WORK AREA FOR EXCULSIVE USE OF MNL 85500000 TSTSTAEL DS 4F - STAE PARAMETER LIST FOR MNL ONLY. 86000000 TSTOIPRM DS 0CL84 IO PARAMETER BLOCK 86500000 TSTIOPRM DS CL84 IO PARAMETER BLOCK USE BY SIO 87000000 TSTSVCM1 DS F SVC FIRST LEVEL MESSAGE NO. 87500000 TSTSVCM2 DS F SVC SECOND LEVEL MESSAGE NO. 88000000 TSTSVCNQ DS CL6'ECBTST' CHARACTER CONSTANT FOR SVC ENQUE 88500000 R11SAVE DS F SAVE AREA FOR R11 FOR SVC97 @ZA00889 88550000 ABNDTCB DS F ABENDING TCB ADDR FOR SVC97 DQ @ZA07137 88600000 DS 8D *** RESERVED SPACE *** 89000000 TCOMLEN EQU ((*-TCOMTAB+7)/8)*8 - TCOMTAB LENGTH. 89500000 **/ 90000000 MEND 90050000 * %MTABLBL : ; 90100000 * DECLARE 90150000 * 1 TCOMTAB BASED, 90200000 * /* *************************************************************** */ 90250000 * /* * * */ 90300000 * /* * THIS MACRO MAPS THE TEST COMMAND PROCESSOR COMMUNICATION * */ 90350000 * /* * TABLE (TCOMTAB) USED BY ALL SUBCOMMAND PROCESSORS AND * */ 90400000 * /* * SERVICE ROUTINES WHICH MAKE UP THE TSO/TEST COMMAND. * */ 90450000 * /* * * */ 90500000 * /* * STATUS -- VERSION NO. 01 - OS/VS2 RELEASE NO. 01 * */ 90550000 * /* * * */ 90600000 * /* * CHANGE LEVEL -- 04 - DATE 04/25/72 * */ 90650000 * /* * * */ 90700000 * /* *************************************************************** */ 90750000 * 2 ECBLIST BDY(WORD), /* BEGINNING OF ECBLIST FOR WAIT. */ 90800000 * 3 ECBPP PTR(31), /* PP DISPATCHABILITY ECB. */ 90850000 * 3 ECBTST PTR(31), /* PTR TO TEST DISPATCHABILITY ECB. */ 90900000 * 3 ECBTERM PTR(31), /* PTR TO PP TERMINATION ECB. */ 90950000 * 3 ECBTMPS PTR(31), /* PTR TO STAE ECB. */ 91000000 * 3 ECBTMPA PTR(31), /* PTR TO ATTENTION ECB. */ 91050000 * 2 ECBLOG PTR(31), /* PTR TO STOP/MODIFY ECB. */ 91100000 * 2 TSTTCB PTR(31), /* PTR TO THE TEST TCB. */ 91150000 * 3 TSTTCBR FIXED(8), /* RESERVED. */ 91200000 * 3 TSTTCBP PTR(24), /* PTR TO THE TEST TCB. */ 91250000 * 2 PPTCB PTR(31), /* PTR TO THE PROBLEM PROGRAM TCB. */ 91300000 * 3 PPTCBR FIXED(8), /* RESERVED. */ 91350000 * 3 PPTCBP PTR(24), /* PTR TO THE PROBLEM PROGRAM TCB. */ 91400000 * 2 * CHAR(8), /* *** RESERVED SPACE *** */ 91450000 * 2 OUTBUF PTR(31), /* PTR TO GENERAL OUTPUT BUFFER. */ 91500000 * 2 BLDLAREA PTR(31), /* ADDRESS OF BLDL ENTRY USED BY 91550000 * IKJEGINT AND IKJEGLDR. */ 91600000 * 3 CONAREA PTR(31), /* PTR TO OUTPUT AREA USED BY 91650000 * CONVERT RTN. */ 91700000 * 2 WORKAREA PTR(31), /* PTR TO GENERAL WORK AREA. */ 91750000 * 2 REGSAVE1 PTR(31), /* PTR TO SAVE AREA FOR MAINLINE. */ 91800000 * 2 REGSAVE2 PTR(31), /* PTR TO SAVE AREA FOR COMMANDS. */ 91850000 * 2 REGSAVE3 PTR(31), /* PTR TO SAVE AREA FOR VALIDITY 91900000 * CHECKERS. */ 91950000 * 2 REGSAVE4 PTR(31), /* PTR TO SAVE AREA FOR IKJEGCVT. */ 92000000 * 2 REGSAVE5 PTR(31), /* PTR TO SAVE AREA FOR IKJEGIO. */ 92050000 * 2 REGSAVE6 PTR(31), /* PTR TO SAVE AREA FOR IKJEGSRH. */ 92100000 * 2 * PTR(31), /* *** RESERVED SPACE *** */ 92150000 * 2 TPLPTR PTR(31), /* PTR TO TPL */ 92200000 * 2 TMPLL FIXED(15), /* LINE LENGTH */ 92250000 * 2 TSTMTASK FIXED(8), /* BREAKPOINT SYNCHRONIZATION BYTE. */ 92300000 * 2 TSTESTRC FIXED(8), /* ESTAE ERROR RETURN CODE */ 92350000 * 2 TSTWHR PTR(31), /* PTR TO COMMAND LIB DCB. */ 92400000 * 2 PARMLIST CHAR(16), /* PARM LIST FOR CALLING SERVICE 92450000 * ROUTINES. */ 92500000 * 3 TSTUPT PTR(31), /* PTR TO UPT. */ 92550000 * 3 TSTECT PTR(31), /* PTR TO ECT. */ 92600000 * 3 TSTCPECB PTR(31), /* PTR TO CP ECB. */ 92650000 * 3 TSTANSPL PTR(31), /* ANSWER PLACE FOR PARSE SERVICE 92700000 * ROUTINE. */ 92750000 * 2 ABENTAB PTR(31), /* PTR TO ABEND VECTOR TABLE(RESIDENT)*/ 92800000 * 2 ABENTAB1 PTR(31), /* PTR TO ABEND VECTOR TABLE 92850000 * (TRANSIENT). */ 92900000 * 2 TSTRETRY PTR(31), /* ENTRY POINT OF TRANSIENT RETRY RTN.*/ 92950000 * 3 TSTRTYCD FIXED(8), /* SUBCOMMAND ID. */ 93000000 * 3 TSTRTYPT PTR(24), /* PTR TO A STAE RETRY ROUTINE WITHIN 93050000 * ANY TEST MODULE THAT HAS ISSUED 93100000 * A STAE. */ 93150000 * 2 INBUF PTR(31), /* PTR TO BUFFER CONTAINING SUBCMD. */ 93200000 * 2 TSTIODSN PTR(31), /* HEAD OF DSNAME CHAIN FOR IKJEGIO 93250000 * 'PRINT'. */ 93300000 * 2 TSTIO PTR(31), /* ENTRY POINT OF GET ROUTINE IKJEGIO.*/ 93350000 * 2 * PTR(31), /* RESERVED */ 93400000 * 2 * PTR(31), /* RESERVED */ 93450000 * 2 TSTCONVT PTR(31), /* ENTRY POINT OF IKJEGCVT. */ 93500000 * 2 TSTADDR PTR(31), /* ENTRY POINT OF ADDRESS BUILD 93550000 * SUBROUTINE. */ 93600000 * 2 TSTSTAE PTR(31), /* ENTRY POINT OF STAE EXIT RTN 93650000 * (IKJEGSTA). */ 93700000 * 2 TSTFLGS1 BIT(8), /* TEST FLAGS, BYTE 1. */ 93750000 * 3 PCHLSTVL BIT(1), /* PATCH LIST SWITCH. */ 93800000 * 3 TSTPRINT BIT(1), /* PRINT SWITCH. */ 93850000 * 3 TSTFIRST BIT(1), /* FIRST TIME SWITCH. */ 93900000 * 3 RANGESW BIT(1), /* INDICATES PDE IS FOR ADDRESS RANGE.*/ 93950000 * 3 TSTBUILD BIT(1), /* 'AT' SWITCH FOR DEFER CHECK. */ 94000000 * 3 ENDSW BIT(1), /* INDICATES 'END' TO MAINLINE. */ 94050000 * 3 RUNSW BIT(1), /* INDICATES 'RUN' TO MAINLINE. */ 94100000 * 3 * BIT(1), /* RESERVED BIT. */ 94150000 * 2 TSTFLGS2 BIT(8), /* TEST FLAGS, BYTE 2. */ 94200000 * 3 TSTLDF BIT(1), /* IKJEGLDF TASK-SWITCH INDICATOR. */ 94250000 * 3 TSTXCTL BIT(1), /* STAE XCTL INDICATOR. */ 94300000 * 3 TOFFDEF BIT(1), /* NO ACTIVE BREAKPOINTS. */ 94350000 * 3 TTESTTCB BIT(1), /* RUNNING UNDER TEST TASK. */ 94400000 * 3 TADDROUT BIT(1), /* LOAD MODULE FOUND UNDER TCB. */ 94450000 * 3 TWHRLOAD BIT(1), /* VALID LOAD MODULE CHECK. */ 94500000 * 3 TSTQUAL BIT(1), /* QUALIFICATION IS IN PROCESS */ 94550000 * 3 TMYIOMSG BIT(1), /* IKJEGIO MESSAGE SWITCH. */ 94600000 * 2 TSTFLGS3 BIT(8), /* TEST FLAGS, BYTE 3. */ 94650000 * 3 TSTGOSW BIT(1), /* SPECIAL BREAKPOINT TYPE SWITCH. */ 94700000 * 3 TSTSTAI BIT(1), /* PROBLEM PROGRAM ABEND INDICATOR. */ 94750000 * 3 SYMMESG BIT(1), /* SYM 'NO DIAGNOSTIC' SWITCH. */ 94800000 * 3 TCSECTCK BIT(1), /* CSECT ONLY DEFER QUEUE CLEAR. */ 94850000 * 3 TDUPNAME BIT(1), /* DEFER QUEUE DUPLICATE NAME BIT. */ 94900000 * 3 TSTLINK BIT(1), /* SUB-CMD 'LINK FAILED' INDICATOR. */ 94950000 * 3 TSTHELP BIT(1), /* INDICATES THAT 'HELP' IS ATTACHED */ 95000000 * 3 NOPARMS BIT(1), /* INDICATES NO PARAMETERS WITH CMD. */ 95050000 * 2 TSTFLGS4 BIT(8), /* TEST FLAGS, BYTE 4. */ 95100000 * 3 TSTA BIT(1), /* TEST'S INPUT IS NOT FROM A STACK. */ 95150000 * 3 TSTB BIT(1), /* A STACKED TERMINAL ELEM. IS PRESENT*/ 95200000 * 3 TSTFLUSH BIT(1), /* FORCE TCLEARQ AND POSSIBLE STACK 95250000 * FLUSH. */ 95300000 * 3 TSTRERTN BIT(1), /* A RETRY IS IN PROCESS. */ 95350000 * 3 TSTESTAE BIT(1), /* ESTAE IS INVOKING I/O FOR MESSAGE. */ 95400000 * 3 TSTSVCAB BIT(1), /* SVC ABEND IS IN PROCESS */ 95450000 * 3 TSTPERC BIT(1), /* THIS RETRY ROUTINE WAS PERCOLLATED */ 95500000 * 3 TSTVALCK BIT(1), /* INDICATES PARSE VALIDITY CHECK IN 95550000 * PROCESS. */ 95600000 * 2 BREAKTAB PTR(31), /* PTR TO FIRST BREAK ELEMENT. */ 95650000 * 2 DEFERTAB PTR(31), /* PTR TO DEFERRED CMD LIST. */ 95700000 * 2 PPLOAD PTR(31), /* PTR TO CURRENT BASE FOR RELATIVES. */ 95750000 * 2 PPTEMP PTR(31), /* TEMPORARY BASE FOR RELATIVES. */ 95800000 * 2 SUBCHAIN PTR(31), /* PTR TO BREAKPOINT SUBCOMMAND CHAIN.*/ 95850000 * 2 TSTGO FIXED(32), /* RESUME ADDRESS AFTER BREAKPOINT. */ 95900000 * 3 TSTGOPSW FIXED(32), /* SECOND WORD OF RBOPSW FIELD. */ 95950000 * 2 TSTGOWCF FIXED(8), /* WAIT COUNT FROM RBWCF FIELD. */ 96000000 * 2 TSTRSVD2 FIXED(8), /* RESERVED BYTE. */ 96050000 * 2 TSTSVC FIXED(15), /* AN SVC 97 INSTRUCTION (0A61). */ 96100000 * 2 PPRB PTR(31), /* CURRENT PROBLEM PROGRAM RB ADDRESS.*/ 96150000 * 2 TSTIODCB PTR(31), /* PTR TO OPEN PRINT DCB. */ 96200000 * 2 CALLPARM PTR(31), /* HEAD OF CHAIN FOR PARMS BUILT BY 96250000 * 'CALL'. */ 96300000 * 2 * PTR(31), /* *** RESERVED SPACE *** */ 96350000 * 2 INTSTDDN CHAR(8), /* DDNAME FOR DATA SET SPECIFIED ON 96400000 * THE TEST COMMAND - USED BY IKJEGINT 96450000 * AND IKJEGLDR. */ 96500000 * 3 TSTCURLD CHAR(8), /* CURRENTLY QUALIFIED LOAD NAME. */ 96550000 * 2 TERMDD CHAR(8), /* DDNAME FOR TERMINAL USED BY 96600000 * OS LOADER. */ 96650000 * 3 TSTCURCT CHAR(8), /* CURRENTLY QUALIFIED CSECT NAME. */ 96700000 * 2 TSTSYMBA PTR(31), /* CURRENTLY QUALIFIED SYMBOLIC 96750000 * ADDR BASE. */ 96800000 * 2 TSTTRN PTR(31), /* HEAD OF SAVE INFORMATION CHAIN. */ 96850000 * 2 SICHAIN PTR(31), /* HEAD OF SYMBOL INFORMATION CHAIN. */ 96900000 * 2 TSTSYMWK PTR(31), /* PTR TO SYMBOL PROCESSING WORK AREA.*/ 96950000 * 2 SYMTABLE PTR(31), /* PTR TO IN-CORE SYMBOL TABLE. */ 97000000 * 2 PPEXIT FIXED(32), /* BREAKPOINT & EXIT SVC'S FOR PP TERM*/ 97050000 * 3 PPEXIT1 FIXED(15), /* AN SVC 97 INSTRUCTION (0A61). */ 97100000 * 3 PPEXIT2 FIXED(15), /* AN SVC 3 INSTRUCTION (0A03). */ 97150000 * 2 TSTDCB PTR(31), /* HEAD OF OVLY DCB CHAIN. */ 97200000 * 2 OPCODTAB PTR(31), /* PTR TO TABLE OF VALID OPERATION 97250000 * CODES. */ 97300000 * 2 TSTOPCD2 PTR(31), /* PTR TO TABLE FOR TWO BYTE S/370 97350000 * OPERATION CODES. */ 97400000 * 2 * PTR(31), /* RESERVED */ 97450000 * 2 * PTR(31), /* RESERVED */ 97500000 * 2 TSTHTCB PTR(31), /* POINTER TO THE HELP TCB. */ 97550000 * 2 TSTAQUAL CHAR(8), /* AUTOMATIC QUALIFICATION CONTROL. */ 97600000 * 3 TSTAQLDM CHAR(8), /* EBCDIC LOAD MODULE NAME. */ 97650000 * 2 TSTAQEP PTR(31), /* ENTRY POINT OF LOAD MODULE. */ 97700000 * 2 TSTRSTRT PTR(31), /* RESTART ADDRESS FOR STAE PROCESSING*/ 97750000 * 2 TSTSRHRT PTR(31), /* ADDRESS OF RESIDENT ADDRESS 97800000 * VALIDITY CHECK ROUTINE. */ 97850000 * 2 TSTSTAX CHAR(20), /* STAX PARAMETER LIST */ 97900000 * 2 TSTDSECB FIXED(31), /* TEST DISPATCHABILITY ECB. */ 97950000 * 2 TSTMNLWK CHAR(40), /* WORK AREA FOR EXCLUSIVE USE OF MNL */ 98000000 * 2 TSTSTAEL CHAR(16), /* STAE PARAMETER LIST FOR MNL ONLY. */ 98050000 * 2 TSTOIPRM CHAR(84), /* IO PARAMETER BLOCK */ 98100000 * 3 TSTIOPRM CHAR(84), /* IO PARAMETER BLOCK USE BY SIO */ 98150000 * 2 TSTSVCM1 CHAR(4), /* SVC FIRST LEVEL MESSAGE NO. */ 98200000 * 2 TSTSVCM2 CHAR(4), /* SVC SECOND LEVEL MESSAGE NO. */ 98250000 * 2 * CHAR(72); /* *** RESERVED SPACE *** */ 98300000 * DCL OUTBUFRL FIXED(31) /* LENGTH OF */ 98350000 * CONSTANT(256); /* OUTPUT BUFFER. */ 98400000 * DCL CONAREAL FIXED(31) /* LENGTH OF */ 98450000 * CONSTANT(72); /* CONVERT WORK AREA */ 98500000 * DCL REGSAVEL FIXED(31) /* LENGTH OF */ 98550000 * CONSTANT(432); /* 6 REGISTER SAVE AREAS. */ 98600000 * DCL TSTSVCNQ CHAR(6) /* CHARACTER CONSTANT */ 98650000 * CONSTANT('ECBTST'); /* FOR SVC ENQUE. */ 98700000 * DCL TCOMLEN FIXED(31) /* TCOMTAB */ 98750000 * CONSTANT(800); /* LENGTH */ 98800000