MACRO                                                          00001000
         CMSCVT &SECT                                                   00002000
         PUSH  PRINT                                                    00002100
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
         PRINT OFF,NOGEN                                                00002300
.ACC01   ANOP                                                           00002400
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
CVTSECT  DSECT                                                          00004000
         AGO   .CONT                                                    00005000
.CSECT   ANOP                                                           00006000
CVTSECT  DS    0D                                                       00007000
         ENTRY CMSCVT                                                   00008000
.CONT    ANOP                                                           00009000
*                                                                       00010000
***      COMMUNICATION VECTOR TABLE AS SUPPORTED BY CMS                 00011000
*                                                                       00012000
         SPACE                                                          00013000
         DC    H'0' -         RESERVED                                  00014000
CVTMDL   DC    H'0' -         CPU MODEL ID                              00015000
         DC    CL4'C5.0'          CMS RELEASE NUMBER           @VA08400 00016100
CMSCVT   DS    0D -           CVT START                                 00017000
         DC    14F'-1' -      NOT SUPPORTED                             00018000
CVTDATE  DC    PL4'0' -       CURRENT DATE IN PACKED DECIMAL            00019000
         DC    3F'-1' -       NOT SUPPORTED                             00020000
         DC    A(0) -         NOT SUPPORTED                             00021000
         DC    F'-1' -        NOT SUPPORTED                             00022000
CVTEXIT  DC    XL2'0A03' -    AN SVC 3 INSTRUCTION (EXIT)               00023000
CVTBRET  DC    XL2'07FE' -    A BCR 15,14 INSTRUCTION                   00024000
         DC    8F'-1' -       NOT SUPPORTED                             00025000
CVTDCB   DC    XL1'40' -      SYSTEM CONFIGURATION = PCP                00026000
         DC    FL3'-1' -      NOT SUPPPRTED                             00027000
CVTR13   DC    F'0' -         R13 SAVED DURING 'OPEN'                   00028000
         DC    F'-1' -        NOT SUPPORTED                             00029000
CVTNUCB  DC    A(0) -         LOWEST STORAGE ADDRESS NOT IN NUCLEUS     00030000
         DC    8F'-1' -       NOT SUPPORTED                             00031000
CVTMZ00  DC    A(0) -         HIGHEST STORAGE ADDRESS IN MACHINE        00032000
         DC    3F'-1' -       NOT SUPPORTED                             00033000
         DC    XL2'00' -      NOT SUPPORTED                             00034000
CVTOPTA  DC    XL2'00' -      BIT 7 -  EXT-PREC FP HRDWRE IN CPU        00035000
         DC    2F'-1' -       NOT SUPPORTED                             00036000
         DC    3A(0) -        NOT SUPPORTED                             00037000
CVTUSER  DC    F'0' -         FIELD AVAILABLE TO USER                   00038000
         DC    12F'-1' -      NOT SUPPORTED                             00039000
CVTAVIB  DC    V(DMSVIB)      ADDR OF VSAM INTFC BOOTSTRAP              00039100
         EJECT                                                          00040000
         POP   PRINT                                                    00040100
         MEND                                                           00041000