**** START OF SPECIFICATIONS ***************************************** 00010000 * * 00020000 * MODULE NAME = APSUX14X * 00030000 * * 00040000 * $MOD(APSUX14 ) COMP(APS) PROD(PSF) : VERSION 3.2.0 * 00050000 * * 00060000 * DESCRIPTIVE NAME = * 00070000 * DIRECT PRINTING LINE MODE CONVERSION EXAMPLE * 00080000 * * 00090000 * STATUS = VERSION 3, RELEASE 2, 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 * * 00750000 **** END OF SPECIFICATIONS ******************************************* 00760000 APSUX14 START 0 00770000 TITLE 'DSECT - XTP' 00780000 APSGEXTP LIST=YES 00790000 TITLE 'DSECT - ECA' 00800000 APSUECA LIST=YES 00810000 TITLE 'INSTALLATION EXIT DIRECT PRINTING LINE MODE CONVERSION X00820000 EXAMPLE)' 00830000 APSUX14 CSECT , 00840000 APSUX14 AMODE 31 @H5A 00850000 APSUX14 RMODE ANY @H5A 00860000 USING *,15 00870000 B START 00880000 DC AL1(16) LENGTH OF FOLLOWING FIELDS 00890000 DC CL8'APSUX14 ' NAME OF THIS ROUTINE 00900000 DC CL8'&SYSDATE' DATE OF THIS ASSEMBLY 00910000 DROP 15 00920000 START DS 0H 00930000 STM 14,12,12(13) SAVE CALLERS REGISTERS 00940000 LR BASEREG,15 SWITCH BASE REGISTER 00950000 USING APSUX14,BASEREG 00960000 USING APSGEXTP,XTPPTR 00970000 USING APSUECA,ECAPTR 00980000 L XTPPTR,0(,1) LOAD ADDRESS OF APSGEXTP 00990000 L ECAPTR,XTPECAP LOAD ADDRESS OF APSUECA 01000000 LR 2,13 LOAD ADDRESS OF CALLERS SAVE 01010000 LA 13,ECAUSAVE ADDRESS OF APSUX14 SAVE AREA 01020000 ST 2,4(,13) SAVE CALLERS SAVE AREA ADDRESS 01030000 ST 13,8(,2) SAVE APSUX14 SAVE AREA ADDRESS 01040000 ********************************************************************* 01050000 * INVOKE 3800 LINE MODE CONVERSION @01C 01060000 ********************************************************************* 01070000 * 01080000 OI XTP4FLAG,XTP4CONV SET 3800 LINE MODE CONV @01A 01090000 * 01100000 ********************************************************************* 01110000 * EPILOGUE 01120000 ********************************************************************* 01130000 SLR 15,15 PSF EXPECTS ZERO RETURN CODE 01140000 L 13,4(,13) RESTORE CALLERS SAVE AREA ADDR. 01150000 L 14,12(,13) RESTORE CALLERS RETURN ADDRESS 01160000 LM 0,12,20(13) RESTORE CALLERS REGISTERS 01170000 BR 14 RETURN TO CALLER 01180000 SPACE 2 01190000 XTPPTR EQU 3 POINTER TO APSGEXTP 01200000 ECAPTR EQU 4 POINTER TO APSUECA 01210000 BASEREG EQU 12 BASE REGISTER 01220000 END APSUX14 01230000