TITLE ' ISTINASD:                                             *00001000
                        '                                               00002000
ISTINASD CSECT ,                                                   0001 00003000
ISTINCSD DS    0H                                                  0001 00004000
         ENTRY ISTINCSD                                                 00005000
@MAINENT DS    0H                                                  0001 00006000
         USING *,@15                                               0001 00007000
         B     @PROLOG                                             0001 00008000
         DC    AL2(@EP00001-@MAINENT)                                   00009000
         DROP  @15                                                      00010000
@PROLOG  AH    @15,4(,@15)                                         0001 00011000
         BR    @15                                                 0001 00012000
@EP00001 DS    0H                                                  0002 00013000
       USING *,15                                                       00014000
       SR    15,15                                                      00015000
       BR    14                                                         00016000
*    END ISTINCSD;                                                 0003 00017000
@EL00001 DS    0H                                                  0003 00018000
@EF00001 DS    0H                                                  0003 00019000
@ER00001 BR    @14                                                 0003 00020000
@DATA    DS    0H                                                       00021000
         DS    0F                                                       00022000
         DS    0F                                                       00023000
         DS    0D                                                       00024000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00025000
@01      EQU   01                                                       00026000
@02      EQU   02                                                       00027000
@03      EQU   03                                                       00028000
@04      EQU   04                                                       00029000
@05      EQU   05                                                       00030000
@06      EQU   06                                                       00031000
@07      EQU   07                                                       00032000
@08      EQU   08                                                       00033000
@09      EQU   09                                                       00034000
@10      EQU   10                                                       00035000
@11      EQU   11                                                       00036000
@12      EQU   12                                                       00037000
@13      EQU   13                                                       00038000
@14      EQU   14                                                       00039000
@15      EQU   15                                                       00040000
@ENDDATA EQU   *                                                        00041000
         END   ISTINASD,(C'PLS1819',0603,75325)                         00042000