**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00020000 * MODULE NAME = APSUX14X * 00030000 * * 00040000 * $MOD(APSUX14 ) COMP(APS) PROD(PSF) : VERSION 3.3.0 * 00050000 * * 00060000 * DESCRIPTIVE NAME = * 00070000 * DIRECT PRINTING LINE MODE CONVERSION EXAMPLE * 00080000 * * 00090000 * STATUS = VERSION 3, RELEASE 3, LEVEL 0 * 00100000 * * 00110000 * FUNCTION = * 00120000 * INVOKE 3800 LINE MODE CONVERSION * 00130000 * * 00140000 * OPERATION = * 00150000 * 1. OBTAIN ADDRESSIBILITY TO APSGEXTP. * 00160000 * 2. RETURN TO THE CALLER. * 00170000 * * 00180000 * NOTES = * 00190000 * DEPENDENCIES = * 00200000 * 1. R13 POINTS TO A REGISTER SAVE AREA. * 00210000 * RESTRICTIONS = * 00220000 * THIS EXIT IS ONLY CALLED IN THE DIRECT PRINTING * 00230000 * (NON-JES) MODE. * 00240000 * REGISTER CONVENTIONS = * 00250000 * SEE THE ASSEMBLER EQUATES * 00260000 * PATCH LABEL = PSPACE * 00270000 * * 00280000 * MODULE TYPE = PROCEDURE * 00290000 * PROCESSOR = ASSEMBLER * 00300000 * ATTRIBUTES = REENTRANT * 00310000 * AMODE 31 * 00320000 * RMODE ANY * 00330000 * * 00340000 * ENTRY POINT = APSUX14 * 00350000 * LINKAGE = * 00360000 * R1 = ADDRESS OF A 4 BYTE FIELD WHICH CONTAINS THE * 00370000 * ADDRESS OF APSGEXTP * 00380000 * R15 = ENTRY POINT ADDRESS * 00390000 * R13 = SAVE AREA ADDRESS * 00400000 * * 00410000 * INPUT = * 00420000 * * 00430000 * OUTPUT = * 00440000 * XTP4CONV - DO CONVERSION FLAG * 00450000 * XTP4WINA - WIDE OR NARROW PAPER FLAG * 00460000 * XTP4LMRG - LINE MERGE FLAG * 00470000 * XTP4DPLX - DUPLEX SETTING FIELD * 00480000 * XTP4XOFF - HORIZONTAL OFFSET VALUE * 00490000 * XTP4YOFF - VERTICAL OFFSET VALUE * 00500000 * * 00510000 * EXIT NORMAL = RETURN TO CALLER * 00520000 * * 00530000 * EXIT ERROR = NONE * 00540000 * * 00550000 * EXTERNAL REFERENCES = * 00560000 * ROUTINES = NONE * 00570000 * * 00580000 * DATA AREAS = * 00590000 * APSGEXTP - PSF INSTALLATION EXIT PARAMETER AREA * 00600000 * APSUECA - PSF EXIT COMMUNICATIONS AREA * 00610000 * * 00620000 * INCLUDES = NONE * 00630000 * * 00640000 * MACROS = NONE * 00650000 * * 00660000 * MESSAGES = NONE * 00670000 * * 00680000 * 01* CHANGE ACTIVITY = * 00690000 * $00=LAPS0006, HPRF220, 970116, BDKURLD: INITIAL VERSION * 00700000 * $01=OW22539, HPRF220, 970121, BDKURLD: SUPPORT 3800 LINE MODE @01A* 00710000 * CONVERSION @01A* 00720000 * $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0 @DUA* 00730000 * $DX=LAPS0008,HPRF320,991117,BUQ4RLB: Version 3.2.0 @DXA* 00740000 * $EV=LAPS0009,HPRF330,010530,BUQ4RLB: Version 3.3.0 @EVA* 00750000 * * 00760000 **** END OF SPECIFICATIONS ******************************************* 00770000 APSUX14 START 0 00780000 TITLE 'DSECT - XTP' 00790000 APSGEXTP LIST=YES 00800000 TITLE 'DSECT - ECA' 00810000 APSUECA LIST=YES 00820000 TITLE 'INSTALLATION EXIT DIRECT PRINTING LINE MODE CONVERSION X00830000 EXAMPLE)' 00840000 APSUX14 CSECT , 00850000 APSUX14 AMODE 31 @H5A 00860000 APSUX14 RMODE ANY @H5A 00870000 USING *,15 00880000 B START 00890000 DC AL1(16) LENGTH OF FOLLOWING FIELDS 00900000 DC CL8'APSUX14 ' NAME OF THIS ROUTINE 00910000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 00920000 DROP 15 00930000 START DS 0H 00940000 STM 14,12,12(13) SAVE CALLERS REGISTERS 00950000 LR BASEREG,15 SWITCH BASE REGISTER 00960000 USING APSUX14,BASEREG 00970000 USING APSGEXTP,XTPPTR 00980000 USING APSUECA,ECAPTR 00990000 L XTPPTR,0(,1) LOAD ADDRESS OF APSGEXTP 01000000 L ECAPTR,XTPECAP LOAD ADDRESS OF APSUECA 01010000 LR 2,13 LOAD ADDRESS OF CALLERS SAVE 01020000 LA 13,ECAUSAVE ADDRESS OF APSUX14 SAVE AREA 01030000 ST 2,4(,13) SAVE CALLERS SAVE AREA ADDRESS 01040000 ST 13,8(,2) SAVE APSUX14 SAVE AREA ADDRESS 01050000 ********************************************************************* 01060000 * INVOKE 3800 LINE MODE CONVERSION @01C 01070000 ********************************************************************* 01080000 * 01090000 OI XTP4FLAG,XTP4CONV SET 3800 LINE MODE CONV @01A 01100000 * 01110000 ********************************************************************* 01120000 * EPILOGUE 01130000 ********************************************************************* 01140000 SLR 15,15 PSF EXPECTS ZERO RETURN CODE 01150000 L 13,4(,13) RESTORE CALLERS SAVE AREA ADDR. 01160000 L 14,12(,13) RESTORE CALLERS RETURN ADDRESS 01170000 LM 0,12,20(13) RESTORE CALLERS REGISTERS 01180000 BR 14 RETURN TO CALLER 01190000 SPACE 2 01200000 XTPPTR EQU 3 POINTER TO APSGEXTP 01210000 ECAPTR EQU 4 POINTER TO APSUECA 01220000 BASEREG EQU 12 BASE REGISTER 01230000 END APSUX14 01240000