         PROC                                                           DTC00010
E9$DTCB  NAME                                                           DTC00020
E9$XCBPS EQU   JT$PSW-JT$DSECT                                          DTC00030
E9$XCBR0 EQU   E9$XCBPS+8          REGISTER 0                           DTC00040
E9$XCBR1 EQU   E9$XCBPS+12         REGISTER 1                           DTC00050
E9$XCBR2 EQU   E9$XCBPS+16         REGISTER 2                           DTC00060
E9$XCBR3 EQU   E9$XCBPS+20         REGISTER 3                           DTC00070
E9$XCBR4 EQU   E9$XCBPS+24         REGISTER 4                           DTC00080
E9$XCBR5 EQU   E9$XCBPS+28         REGISTER 5                           DTC00090
E9$XCBR6 EQU   E9$XCBPS+32         REGISTER 6                           DTC00100
E9$XCBR7 EQU   E9$XCBPS+36         REGISTER 7                           DTC00110
E9$XCBR8 EQU   E9$XCBPS+40         REGISTER 8                           DTC00120
E9$XCBR9 EQU   E9$XCBPS+44         REGISTER 9                           DTC00130
E9$XCBRA EQU   E9$XCBPS+48         REGISTER 10                          DTC00140
E9$XCBRB EQU   E9$XCBPS+52         REGISTER 11                          DTC00150
E9$XCBRC EQU   E9$XCBPS+56         REGISTER 12                          DTC00160
E9$XCBRD EQU   E9$XCBPS+60         REGISTER 13                          DTC00170
E9$XCBRE EQU   E9$XCBPS+64         REGISTER 14                          DTC00180
E9$XCBRF EQU   E9$XCBPS+68         REGISTER 15                          DTC00190
         END                                                            DTC00200
