**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00024990 * MODULE NAME = APSUX08X * 00030000 * * 00040000 * $MOD(APSUX08X) COMP(APS) PROD(PSF) : VERSION 3.2.0 * 00050000 * * 00060000 * DESCRIPTIVE NAME = MIGRATION EXIT EXAMPLE * 00070000 * * 00080000 * STATUS = VERSION 3, RELEASE 2, LEVEL 0 * 00090000 * * 00100000 * FUNCTION = * 00110000 * Set the line mode migration flag. * 00124990 * * 00130000 * OPERATION = * 00150000 * OBTAIN ADDRESSABILITY TO THE EXIT INFORMATION * 00160000 * * 00170000 * NOTES = * 00180000 * DEPENDENCIES = NONE * 00190000 * RESTRICTIONS = NONE * 00200000 * * 00210000 * REGISTER CONVENTIONS = * 00220000 * SEE ASSEMBLER EQUATES * 00230000 * PATCH LABEL = PSPACE * 00240000 * * 00250000 * MODULE TYPE = PROCEDURE * 00260000 * PROCESSOR = ASSEMBLER * 00270000 * ATTRIBUTES = REENTRANT * 00280000 * * 00290000 * ENTRY POINT = APSUX08 * 00300000 * LINKAGE = * 00310000 * R1 = ADDRESS OF A 4 BYTE FIELD WHICH CONTAINS THE ADDRESS * 00320000 * OF APSGEXTP * 00330000 * R15 = ENTRY POINT ADDRESS * 00340000 * R14 = RETURN ADDRESS * 00350000 * R13 = SAVE AREA ADDRESS * 00360000 * * 00370000 * INPUT = * 00380000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00390000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00400000 * IAZJSPA - JOB SEPARATOR PAGE DATA AREA * 00410000 * * 00420000 * OUTPUT = * 00430000 * * 00440000 * EXIT NORMAL = RETURN TO CALLER * 00450000 * * 00460000 * EXIT ERROR = NONE * 00470000 * * 00480000 * EXTERNAL REFERENCES = * 00490000 * ROUTINES = NONE * 00500000 * DATA AREAS = * 00510000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00520000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00530000 * INCLUDES = NONE * 00540000 * * 00550000 * MACROS = NONE * 00560000 * * 00570000 * MESSAGES = NONE * 00580000 * * 00590000 * CHANGE ACTIVITY = * 00600000 * $B0=LAPS0008, HPRF320, 090600, BDKURLD: INITIAL VERSION @B0A* 00610000 * $01=OW44363, HPRF320, 090600, BDKURLD: Support line mode * 00621990 * migration @01A* 00623980 * $02=OW47659, HPRF320, 010104, BDKUMLC: Compile only @02A* 00624880 * * 00625970 **** END OF SPECIFICATIONS ******************************************* 00630000 APSUX08 START 0 00640000 TITLE 'DSECT - XTP' 00650000 APSGEXTP LIST=YES 00660000 TITLE 'DSECT - ECA' 00670000 APSUECA LIST=YES 00680000 TITLE 'APSUX08 - MIGRATION EXIT EXAMPLE' 00690000 APSUX08 CSECT , 00700000 APSUX08 AMODE 31 00710000 APSUX08 RMODE ANY 00720000 USING *,15 00730000 B START 00740000 DC AL1(16) LENGTH OF FOLLOWING FIELDS 00750000 DC CL7'APSUX08' NAME OF THIS ROUTINE 00760000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 00770000 DROP 15 00780000 START DS 0H 00790000 STM 14,12,12(13) SAVE CALLERS REGISTERS 00800000 LR BASEREG,15 SWITCH BASE REGISTER 00810000 USING APSUX08,BASEREG 00820000 USING APSGEXTP,XTPPTR 00830000 USING XTP8,XTP8PTR SET ADDRESSIBILITY TO XTP8 00840000 USING APSUECA,ECAPTR 00850000 L XTPPTR,0(,1) LOAD ADDRESS OF APSGEXTP 00860000 L ECAPTR,XTPECAP LOAD ADDRESS OF APSUECA 00870000 LR 2,13 LOAD ADDRESS OF CALLERS SAVE 00880000 LA 13,ECAUSAVE ADDR OF APSUX08 SAVE AREA 00890000 ST 2,4(,13) SAVE CALLERS SAVE AREA ADDRESS 00900000 ST 13,8(,2) SAVE APSUX08 SAVE AREA ADDRESS 00910000 L XTP8PTR,XTPRECP LOAD ADDRESS OF XTP8 00920000 ********************************************************************* 00930000 * SET THE MIGRATION FLAG 00944990 ********************************************************************* 00950000 * 00960000 OI XTP8FLAG,XTP8MIG SET THE MIGRATION FLAG 00963000 * 00966000 ********************************************************************* 00970000 * EPILOGUE 00980000 ********************************************************************* 00990000 GETOUT SLR 15,15 PSF EXPECTS ZERO RETURN CODE 01000000 L 13,4(,13) RESTORE CALLERS SAVE AREA ADDR. 01010000 L 14,12(,13) RESTORE CALLERS RETURN ADDRESS 01020000 LM 0,12,20(13) RESTORE CALLERS REGISTERS 01030000 BR 14 RETURN TO CALLER 01040000 SPACE 2 01050000 XTPPTR EQU 4 POINTER TO APSGEXTP 01060000 ECAPTR EQU 5 POINTER TO APSUECA 01070000 XTP8PTR EQU 6 POINTER TO XTP8 01080000 BASEREG EQU 12 BASE REGISTER 01090000 SPACE 2 01100000 END APSUX08 01110000