         PROC  &P,0,&TRAN=NO,&MFCM=NO                                   REQ00010
E2$REQ   NAME  1                                                        REQ00020
E2$DTCB  NAME  2                                                        REQ00030
         LCL   &P1                                                      REQ00040
         LCL   &P2                                                      REQ00050
&P1      SET   0                                                        REQ00060
&P2      SET   0                                                        REQ00070
.*                                                                      REQ00080
.*                  &P1            &TRAN                                REQ00090
.*                                 0    &TRAN=NO                        REQ00100
.*                                 1    &TRAN=YES                       REQ00110
.*                                                                      REQ00120
.*                  &P2            &MFCM                                REQ00130
.*                                 0    &MFCM=NO                        REQ00140
.*                                 1    &MFCM=YES                       REQ00150
.*                                                                      REQ00160
         DO    '&TRAN'='YES'                                            REQ00170
&P1      SET   1                                                        REQ00180
         ENDO                                                           REQ00190
         DO    '&MFCM'='YES'                                            REQ00200
&P2      SET   1                                                        REQ00210
         ENDO                                                           REQ00220
         DO    &P(0)=2                                                  REQ00230
&P1      SET   1                                                        REQ00240
         ENDO                                                           REQ00250
*********************************************************************** REQ00260
*                                                                     * REQ00270
*                        EMULATOR EQUATES                             * REQ00280
*                                                                     * REQ00290
*********************************************************************** REQ00300
E2$RXIOL EQU   24 .                          XIO TABLE ENTRY LENGTH     REQ00310
         DO    &P1=1                                                    REQ00320
*                                                                       REQ00330
*                        TASK CONTROL BLOCK EQUATES                     REQ00340
*                                                                       REQ00350
E2$SCBPS EQU   JT$PSW-JT$DSECT .             PSW                        REQ00360
E2$SCBR0 EQU   E2$SCBPS+8 .                  REGISTER 0                 REQ00370
E2$SCBR1 EQU   E2$SCBPS+12 .                 REGISTER 1                 REQ00380
E2$SCBR2 EQU   E2$SCBPS+16 .                 REGISTER 2                 REQ00390
E2$SCBR3 EQU   E2$SCBPS+20 .                 REGISTER 3                 REQ00400
E2$SCBR4 EQU   E2$SCBPS+24 .                 REGISTER 4                 REQ00410
E2$SCBR5 EQU   E2$SCBPS+28 .                 REGISTER 5                 REQ00420
E2$SCBR6 EQU   E2$SCBPS+32 .                 REGISTER 6                 REQ00430
E2$SCBR7 EQU   E2$SCBPS+36 .                 REGISTER 7                 REQ00440
E2$SCBR8 EQU   E2$SCBPS+40 .                 REGISTER 8                 REQ00450
E2$SCBR9 EQU   E2$SCBPS+44 .                 REGISTER 9                 REQ00460
E2$SCBRA EQU   E2$SCBPS+48 .                 REGISTER 10                REQ00470
E2$SCBRB EQU   E2$SCBPS+52 .                 REGISTER 11                REQ00480
E2$SCBRC EQU   E2$SCBPS+56 .                 REGISTER 12                REQ00490
E2$SCBRD EQU   E2$SCBPS+60 .                 REGISTER 13                REQ00500
E2$SCBRE EQU   E2$SCBPS+64 .                 REGISTER 14                REQ00510
E2$SCBRF EQU   E2$SCBPS+68 .                 REGISTER 15                REQ00520
         ENDO                                                           REQ00530
         DO    &P2=1                                                    REQ00540
*                                                                       REQ00550
*                        MFCM EQUATES                                   REQ00560
*                                                                       REQ00570
E2$RSWST EQU   6 .                           SWITCH/STACKER             REQ00580
E2$ROREN EQU   5 .                           ORIGINAL ENTRY POINT       REQ00590
E2$RSSRG EQU   4 .                           STACKER SELECT REGISTER    REQ00600
E2$RPTAD EQU   0 .                           POINTER                    REQ00610
E2$RMSRE EQU   7 .                           STACKER RESET              REQ00620
E2$RMRRE EQU   17 .                          STACKER SELECT REG RESET   REQ00630
         ENDO                                                           REQ00640
*********************************************************************** REQ00650
*                                                                     * REQ00660
*                                                                     * REQ00670
*                                                                     * REQ00680
*********************************************************************** REQ00690
         END                                                            REQ00700
