//SY20ZR13 JOB 1,THAS801,MSGLEVEL=(1,1),
// CLASS=A,MSGCLASS=A,REGION=768K
//*
//*   PROBLEM DESCRIPTION(S):
//*     THAS801 -
//*       Add HASP pseudo-device support to IOS.
//*
//*   COMPONENT:  360S-CI505-EBB2218
//*
//*   APARS FIXED: THAS801
//*
//*   SPECIAL CONDITIONS:
//*     IOGEN:  An I/O generation is required for implementation
//*       of the functionality added by this usermod.
//*       GENTYPE = IO
//*
//*   COMMENTS:
//*     LAST CHANGE:  2006/10/18
//*
//*     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
//*
//*     MACROS
//*       IECXCP
//*       IECIOS
//*
//*     NOTE:  The comment line deletions in macro IECXCP from line
//*       35220021 through 35520021 are intended to remove lines added
//*       in the wrong place by an earlier non-SMP version of this
//*       usermod, and are not required if original incorrect lines
//*       are not present.
//*
//*     NOTE:  The support contained in this usermod is included in the
//*       HASP install JCL http://kleonard.home.att.net/hasp/haspjcl.zip
//*
//UPDTE   EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DISP=SHR,DSN=SYS1.MODGEN
//SYSUT2   DD  DISP=SHR,DSN=SYS1.MODGEN
//SYSIN    DD  DATA
./    CHANGE NAME=IECXCP
*    ATTN TABLE INDEX FOR HASP                                 @THAS801 10984019
UCBHASP  EQU   X'01' -                  HASP PSEUDO-DEVICE     @THAS801 10985019
         SPACE 1 -                                             @THAS801 10986019
INVHSP   EQU   X'10' -             ABEND CODE FOR INVALID HASP @THAS801 25612101
**  This line deleted by ------------------------------------- @THAS801 35220021
**  This line deleted by ------------------------------------- @THAS801 35280021
**  This line deleted by ------------------------------------- @THAS801 35340021
**  This line deleted by ------------------------------------- @THAS801 35400021
**  This line deleted by ------------------------------------- @THAS801 35460021
**  This line deleted by ------------------------------------- @THAS801 35520021
         TM    UCBATI(UCBREG),UCBHASP - PSEUDO DEVICE?         @THAS801 35580021
         BC    8,XCP061C1 -             NO                     @THAS801 35600021
         L     APBSRG,AHASPE -          GET HASP ROUTINE       @THAS801 35620021
         BALR  LNKRG2,APBSRG -          LINK TO HASP           @THAS801 35640021
*****     HASP RETURNS          *******************************@THAS801 35660021
         B     XCP021 -                 NORMAL: IGNORE REQUEST @THAS801 35680021
         B     XERX02F1 -               ERROR:  ABEND WITH 100 @THAS801 35700021
***************************************************************@THAS801 35720021
XCP061C1 DS    0H -                                            @THAS801 35740021
./  CHANGE NAME=IECIOS
XERX02F1 MVI   CODEDUMP,INVHSP -   INVALID HASP                @THAS801 09043201
         L     APBSRG,IECPL2 -     GET TEMPORARY BASE REGISTER @THAS801 09043301
         B     XERX02A -           HANDLE THE ERROR            @THAS801 09043401
AHASPE   DC    V(IECHASPE) -            HASP EXCP ROUTINE      @THAS801 74220001
./ ENDUP
/*
//