OR3 TITLE 'DMSOR3 (CMS) VM/370 - RELEASE 6' 00001000
SPACE 2 00002000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00003000
*. * 00004000
* MODULE NAME: * 00005000
* DMSOR3 * 00006000
* * 00007000
* FUNCTION: * 00008000
* THE FUNCTION OF DMSOR3 IS TO RELOCATE ALL DTF TABLE * 00009000
* ADDRESS CONSTANTS FROM THE ASSEMBLED ADDRESSES TO * 00010000
* EXECUTABLE STORAGE ADDRESSES. THIS IS ACCOMPLISHED BY * 00011000
* SUBTRACTING FROM THE BAL ADDRESS PROVIDED BY THE * 00012000
* OPENR MACRO IN REGISTER 0 A FOUR BYTE ASSEMBLED * 00013000
* ADDRESS CONSTANT OF THE BAL ADDRESS. ANY DIFFERENCE * 00014000
* INDICATES THAT THE PROGRAM HAS BEEN RELOCATED. * 00015000
* RELOCATION IS PERFORMED FOR UNIT RECORD DTFS. * 00016000
* * 00017000
* ATTRIBUTES: * 00018000
* DISCONTIGUOUS SHARED SEGMENT * 00019000
* REENTRANT * 00020000
* * 00021000
* ENTRY POINTS: * 00022000
* DMSOR3 * 00023000
* * 00024000
* ENTRY CONDITIONS: * 00025000
* DMSOR3 IS INVOKED IN RESPONSE TO AN SVC 2 (FETCH) * 00026000
* FROM DMSOR1. AT ENTRY TO DMSOR3, R0 POINTS TO A * 00027000
* LIST OF DTF TABLE ADDRESSES. * 00028000
* * 00029000
* EXIT CONDITIONS: * 00030000
* * 00031000
* NORMAL EXITS: * 00032000
* SVC 2 TO $$BOPEN TO OPEN THE DTFS * 00033000
* AFTER THE ADCONS HAVE BEEN MODIFIED. * 00034000
* * 00035000
* SVC 2 TO $$BOPNR2 TO OPE DTFCP/DTFDI DTFS. * 00036000
* * 00037000
* ABNORMAL EXITS: * 00038000
* NONE * 00039000
* * 00040000
* ERROR MESSAGES ISSUED BY THIS PROGRAM: * 00041000
* NONE * 00042000
* * 00043000
* CALLS TO OTHER ROUTINES: * 00044000
* DMSBOP (SVC 2) * 00045000
* DMSOR2 (SVC 2) TO MODIFY DTFCP/DTFDI ADCONS * 00046000
* * 00047000
* EXTERNAL REFERENCES: * 00048000
* REGEQU * 00049000
* * 00050000
* CALLED BY: * 00051000
* INVOKED IN RESPONSE TO SVC 2 (FETCH FOR $$BOPNR3 FROM * 00052000
* DMSOR1) * 00053000
* * 00054000
* TABLES AND WORK AREAS: * 00055000
* ADCON TABLE - A TABLE CONSISTING OF INDIVIDUAL TABLES * 00056000
* USED TO MODIFY DIFFERENT DTF TYPES. EACH* 00057000
* HAS A UNIQUE NAME TO IDENTIFY IT. * 00058000
* EACH TABLE HAS THE FOLLOWING LAYOUT: * 00059000
* * 00060000
* BYTE 1 CONTAINS THE COUNT OF ADCONS * 00061000
* TO BE MODIFIED. * 00062000
* * 00063000
* BYTE 2 CONTAINS THE BYTE COUNT FROM * 00064000
* THE LOGIC MODULE ADDRESS TO * 00065000
* THE FIRST ADCON. * 00066000
* * 00067000
* SUBSEQUENT BYTES CONTAIN THE BYTE * 00068000
* COUNT NEEDED TO ADDRESS THE NEXT * 00069000
* ADCON. * 00070000
* * 00071000
* REGISTER USAGE: * 00072000
* * 00073000
* TABLEREG - 0 TABLE PARAMETER - INPUT * 00074000
* BASEREG - 3 DTF TABLE ADDRESS * 00075000
* MODREG - 4 DTF TABLE ADDRESS CONSTANT DISP. TABLE* 00076000
* ADDRREG - 5 ADDRESS CONSTANT RELOCATE REGISTER * 00077000
* COUNTREG - 6 COUNT OF DTF ADCONS TO BE CHANGED * 00078000
* LINKREG - 7 LINK REGISTER TO ADDRESS MOD. RTN. * 00079000
* TYPEREG - 8 USED TO DETERMINE DTF TYPE * 00080000
* DTFREG - 9 DTF TYPE TABLE * 00081000
* CCWREG - 10 POINTER TO START OF EACH DTF TABLE * 00082000
* WORKREG1 - 11 TABLE PARAMETER WORK REGISTER * 00083000
* R12 - BASE REGISTER * 00084000
* RELOCREG - 13 RELOCATION FACTOR * 00085000
* R14 - UNUSED * 00086000
* R15 - UNUSED * 00087000
* * 00088000
* OPERATION: * 00089000
* DMSOR3 PERFORMS THE FOLLOWING FUNCTIONS: * 00090000
* 1. DETERMINES IF RELOCATION IS RE- * 00091000
* QUIRED. IF NOT EXIT IS MADE TO * 00092000
* $$BOPEN TO OPEN THE FILE. * 00093000
* * 00094000
* 2. DETERMINES WHAT DTF TYPE IS THE * 00095000
* OBJECT OF THE OPENR MACRO. * 00096000
* * 00097000
* MODIFIES THE ADCONS IN THE * 00098000
* UNIT RECORD DTFS. * 00099000
* * 00100000
* 3. AN SVC 2 (FETCH) FOR DMSOR2 IS * 00101000
* ISSUED FOR DTFCP OR DTFDI DTFS. * 00102000
* * 00103000
* 3. A CHECK IS MADE TO SEE IF MORE * 00104000
* FILES REMAIN TO BE OPENED. IF * 00105000
* SO, ADDRESS MODIFICATION IS PER-* 00106000
* FORMED ON THOSE DTFS AND THEN AN* 00107000
* SVC 2 IS ISSUED TO FETCH $$BOPEN* 00108000
*. TO PERFORM THE ACTUAL OPEN. * 00109000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00110000
DMSOR3 CSECT @V305066 00111000
TABLEREG EQU 0 POINTER TO TABLE SUPPLIED BY OPENR MACRO @V305066 00112000
GR1 EQU 1 WORK REGISTER @V305066 00113000
GR2 EQU 2 WORK REGISTER @V305066 00114000
TYPEREG EQU 2 @V305066 00115000
BASEREG EQU 3 CONTAINS ADDRESS OF THE ACTIVE DTF TABLE @V305066 00116000
MODREG EQU 4 CONTAINS ADDR. OF DTF DISP. TABLE @V305066 00117000
ADDRREG EQU 5 REG. USED TO RELOC. ADDRESS CONSTANTS @V305066 00118000
COUNTREG EQU 6 CONTAINS COUNT OF ADDRESSES TO BE MODIFIED @V305066 00119000
LINKREG EQU 7 LINK REGISTER @V305066 00120000
LINKREG2 EQU 8 INTERNAL BRANCH REGISTER @V305066 00121000
DTFREG EQU 9 DTF TYPE TABLE @V305066 00122000
CCBREG EQU 10 POINT TO DTFDA BUILDING ROUTINE @V305066 00123000
WORKREG1 EQU 11 POINTER TO DTF TABLE LIST @V305066 00124000
RELOCREG EQU 13 REGISTER CONTAINS THE RELOCATION FACTOR @V305066 00125000
GRD EQU 15 WORK REG - VALIDATE DTF ADDRESS @V305066 00126000
RGE EQU 14 WORK REGISTER @V305066 00127000
CCWREG EQU CCBREG @V305066 00128000
DC CL8'$$BOPNR3' @V305066 00129000
BALR R12,0 ESTABLISH ADDRESSABILITY @V305066 00130000
USING *,R12 @V305066 00131000
EJECT 00132000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00133000
* THE ADDRESS OF THE DTF TABLE ADDRESSES IS PASSED IN REGISTER 0. * 00134000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00135000
SPACE 2 00136000
LR WORKREG1,TABLEREG PTR TO DTF TABLE ADDRESSES @V305066 00137000
NEXT L CCWREG,0(WORKREG1) PT CCWREG TO BEG. OF TABLE @V305066 00138000
LA BASEREG,16(CCWREG) INCREM INTO DTF @V305066 00139000
TM 0(BASEREG),OPEN IS OPEN BIT ON ? @V305066 00140000
BO RETURN YES,RETURN @V305066 00141000
OI 0(BASEREG),OPEN SET OPEN BIT ON @V305066 00142000
LA LINKREG2,MODEXIT LOAD BRANCH REGISTER @V305066 00143000
EJECT 00144000
*********************************************************************** 00145000
* D T F T A B L E D E C O D E * 00146000
* * 00147000
* EACH DTF TYPE HAS IN ITS TABLE A UNIQUE CODE LOCATED IN DE MAL * 00148000
* BYTE 20. THIS CODE IS USE TO DETERMINE WHICH DTF TYPE IS TO BE * 00149000
* RELOCATED. * 00150000
* SOME EXITS FROM THIS DECODE ARE TO ROUTINES THAT FURTHER DECODE THE * 00151000
* DTF TYPE. * 00152000
* AFTER THE DTF TYPE IS ESTABLISHED EXITS TO THE ADDRESS MODIFICATION * 00153000
* SUBROUTINE ARE IN ONE OF TWO FORMS. * 00154000
* THE FIRST FORM IS A BRANCH INSTRUCTION. THIS WILL CAUSE THE ADDRESS* 00155000
* MODIFICATION SUBROUTINE TO EXIT TO THE ENDING ROUTINE. THE ENDING * 00156000
* ROUTINE WILL DETERMINE IF ADDITIONAL DTF TABLES NEED MODIFICATION. * 00157000
* THE SECOND FORM IS A BRANCH AND LINK. THIS WILL CAUSE THE ADDRESS * 00158000
* MODIFICATION SUBROUTINE TO RETURN TO THE NEXT SEQUENTIAL INSTRUCTION* 00159000
* THIS IS NEEDED BECAUSE OF ADDITIONAL CHECKS WITHIN THE TABLE TO * 00160000
* DETERMINE IF FURTHER ADDRESS MODIFICATION IS NEEDED. FOLLOWING THE * 00161000
* LAST BAL WILL BE A BRANCH TO THE ENDING ROUTINE. * 00162000
*********************************************************************** 00163000
SPACE 2 00164000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00165000
* UNIT RECORD * 00166000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00167000
SPACE 2 00168000
UNITREC1 CLI 4(BASEREG),DTFCN DTFTYPE = DTFCN/DTFCD? @V305066 00169000
LA MODREG,READER ADDR. OF DTFCD - RDR TABLE @V305066 00170000
BNL CNDTF BRANCH IF NOT DTFCD-READER @V305066 00171000
BAL LINKREG,MODLOOP BR TO MAKE ADD MODIFICATION @V305066 00172000
TM 16(CCWREG),ERROPT TEST FOR ERROPT @V305066 00173000
BZ UPTOASF NO, BRANCH @V305066 00174000
CLI 52(CCWREG),BRINST TEST FOR BRANCH INST. @V305066 00175000
BE UPTOASF YES, BRANCH @V305066 00176000
LA MODREG,READOPT ADCON TABLE @V305066 00177000
BAL LINKREG,MODLOOP BR TO MAKE ADD MODIFICATION @V305066 00178000
B ASFRED @V305066 00179000
UPTOASF LA BASEREG,20(BASEREG) UPDATE POINTER @V305066 00180000
ASFRED TM 16(CCWREG),ASSOC ASSOCIATED FILES? @V305066 00181000
BZ RETURN NO, BRANCH TO RETURN @V305066 00182000
LA MODREG,READASF ADCON TABLE @V305066 00183000
BR LINKREG2 DTFCD-READER @V305066 00184000
CNDTF LA MODREG,CONSOLE LOAD ADDRESS OF DTFCN TABLE @V305066 00185000
* BCR 8,LINKREG2 BRANCH IF DTFCN 00186000
BC 7,NOTCON SKP NEXT INST IF NOT CON @V305066 00187000
CLI 5(BASEREG),PUTR DTFCN WITH PUTR @V305066 00188000
BCR 7,LINKREG2 NO, GO TO NORMAL CONSOL @V305066 00189000
LA MODREG,CONSOL1 CONSOL WITH PUTR @V305066 00190000
BCR 15,LINKREG2 @V305066 00191000
NOTCON EQU * @V305066 00192000
CLI 4(BASEREG),DTFCD DTF TYPE FOR DTFCD - PUNCH @V305066 00193000
LA MODREG,PUNCH ADDRESS OF DTFCD-PUNCH TAB @V305066 00194000
BNE PRINT NOT DTFCD PUNCH @V305066 00195000
TM 22(BASEREG),MFCM TEST MFCM/U @V305066 00196000
BNZ PUNCHM YES, HANDLE MFCM/U PCH FILE @V305066 00197000
BAL LINKREG,MODLOOP MODIFY DTFCD TABLE @V305066 00198000
TM 21(CCWREG),CCW2 TEST FOR SEC CCW @V305066 00199000
BCR 1,LINKREG2 YES, MODIFY SECOND CCW @V305066 00200000
TM 44(CCWREG),CHAIN CCW-CHAIN (PUNCH INT.) @V305066 00201000
BZ ASFPCH NO, BRANCH @V305066 00202000
LA MODREG,PCHINTRP ADR OF DTFCD PUNCH INTRP @V305066 00203000
BR LINKREG2 @V305066 00204000
ASFPCH TM 16(CCWREG),ASSOC ASSOCIATED FILES @V305066 00205000
BZ RETURN NO, BRANCH @V305066 00206000
LA MODREG,PCHASF ADCON TABLE @V305066 00207000
BR LINKREG2 @V305066 00208000
PRINT CLI 4(BASEREG),DTFPR TEST IF DTFPR - PRINTER @V305066 00209000
LA MODREG,PRINTER LOAD ADDRESS OF DTFPR TABLE @V305066 00210000
BNE NOTFOUND BR IF NOT PRINTER @V305066 00211000
TM 0(BASEREG),STLIST TEST IF STLIST SPECIFIED @V305066 00212000
BNZ AERROPT YES, RELOCATE ADDRESS @V305066 00213000
TM 28(BASEREG),X'40' TEST IF STLIST SPEC @V305066 00214000
BCR 8,LINKREG2 BRANCH IF NO @V305066 00215000
AERROPT LA MODREG,PRINTST YES, RELOC. CCW OR AERROPT @V305066 00216000
BR LINKREG2 @V305066 00217000
SPACE 2 00218000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00219000
* MFCM/U PUNCH FILE 00220000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00221000
SPACE 2 00222000
PUNCHM LA MODREG,PCHASOC LOAD ADCON PUNCH ASOC. FILE @V305066 00223000
TM 0(BASEREG),ASSOC2 TEST FOR ASSOCIATED FILES @V305066 00224000
BCR 1,LINKREG2 YES,PROCESS RELOCATION @V305066 00225000
LA MODREG,PCHMFC LOAD ADCON PUNCH FILE @V305066 00226000
TM 0(BASEREG),PCHINT TEST PUNCH/INTERPRET FILE @V305066 00227000
BCR 8,LINKREG2 NO, PROCESS RELOCATION @V305066 00228000
LA MODREG,PCHINTU ADCON PCH.INTRPRT MFCU FI @V305066 00229000
TM 22(BASEREG),MFCM2 TEST MFCM @V305066 00230000
BCR 8,LINKREG2 NO, PROCASS RELOCATION @V305066 00231000
LA MODREG,PCHINTM LOAD ADCON PCH.INTRPRT MFCM @V305066 00232000
BR LINKREG2 PROCESS RELOCATION @V305066 00233000
EJECT 00234000
*********************************************************************** 00235000
* E N D I N G R O U T I N E * 00236000
* * 00237000
* A CHECK IS MADE TO DETERMINE IF MORE DTF TABLES REQUIRE ADDRESS * 00238000
* MODIFICATION. IF SO, RETURN IS MADE TO THE START OF THIS TRANSIENT. * 00239000
* IF NOT, A SUPERVISOR CALL 2 IS MADE TO CALL IN THE OPEN TRANSIENT. * 00240000
*********************************************************************** 00241000
SPACE 2 00242000
NOTFOUND LA R14,ONE NEC. TO CALL $$BOPNR2 @V305066 00243000
NI 16(CCWREG),F7 TURN OFF RELOC. BIT @V305066 00244000
RETURN LA WORKREG1,4(WORKREG1) BUMP TO NEXT DTF TABLE @V305066 00245000
CLI 0(WORKREG1),ENDTAB END OF DTF TABLE? @V305066 00246000
BNE NEXT NO, PROCESS NEXT TABLE @V305066 00247000
EXIT LTR R14,R14 SEE IF CALL TO $$BOPNR2 @V305066 00248000
BNZ CALLPHZ2 YES @V305066 00249000
LA R1,BOPEN PREPARE TO FETCH $$BOPEN @V305066 00250000
SVC SVC2 CALL IN OPEN MONITOR @V305066 00251000
CALLPHZ2 LA R1,BOPNR2 PREPARE TO CALL $$BOPNR2 @V305066 00252000
SVC SVC2 FETCH $$BOPNR2 @V305066 00253000
*********************************************************************** 00254000
* * 00255000
* A D D R E S S M O D I F I C A T I O N S U B R O U T I N E * 00256000
* * 00257000
* BASEREG CONTAINS ADDRESS OF THE ADCON TO BE MODIFIED * 00258000
* COUNTREG CONTAINS NUMBER OF ADDRESSES TO BE MODIFIED * 00259000
* DTFREG CONTAINS THE DIFFERENCE FROM ONE ADDRESS TO NEXT ADDRESS * 00260000
* RELOCREG CONTAINS THE RELOCATION FACTOR * 00261000
* MODREG POINTS TO OR WITHIN DISPLACEMENT TABLE * 00262000
* ADDRREG IS THE WORK REGISTER * 00263000
* THE ORIGINAL CONTENTS OF MODREG POINTS TO THE START OF THE CURRENT * 00264000
* ADCON TABLE. THE FIRST BYTE OF EACH TABLE CONTAINS THE COUNT OF * 00265000
* ADDRESSES TO BE MODIFIED. THIS COUNT IS PLACED IN COUNTREG. THE * 00266000
* SECOND BYTE IS THE DISPLACEMENT BYTE COUNT OF THE FIRST ADCON FROM * 00267000
* THE LOGIC MODULE ADDRESS IN THE DTF TABLE. EACH TABLE BYTE THERE- * 00268000
* AFTER IS THE BYTE COUNT BETWEEN SUBSEQUENT ADCONS. EACH BYTE COUNT* 00269000
* IS ADDED TO BASEREG TO ADDRESS EACH ADCON. THE ADCON TO BE * 00270000
* MODIFIED IS LOADED INTO ADDRREG. THE RELOCATION FACTOR IN RELOCREG * 00271000
* IS ADDED TO THE ADCON WITH THE RESULTANT EXECUTABLE ADDRESS STORED * 00272000
* BACK INTO THE ASSEMBLED ADCON LOCATION. * 00273000
*********************************************************************** 00274000
SPACE 2 00275000
MODEXIT LA LINKREG,RETURN LAST MOD. TO TABLE ENTRY @V305066 00276000
MODLOOP SR DTFREG,DTFREG CLEAR DISPLACEMENT REG @V305066 00277000
SR COUNTREG,COUNTREG CLEAR BCT REG @V305066 00278000
IC COUNTREG,0(MODREG) INSERT COUNT @V305066 00279000
LR GR1,CCWREG PT TO BEG. OF DTF TABLE @V305066 00280000
LR GR2,GR1 LOAD MAX ADDRESS REGISTER @V305066 00281000
SR GRD,GRD @V305066 00282000
VALIDATE IC GRD,0(COUNTREG,MODREG) INSERT ADDR DISP. @V305066 00283000
AR GR2,GRD ADD TO START OF TABLE @V305066 00284000
BCT COUNTREG,VALIDATE @V305066 00285000
SVC SVC26 PERFORM ADDRESS VALIDATION @V305066 00286000
IC COUNTREG,0(MODREG) RESTORE COUNT @V305066 00287000
MODLOOP1 LA MODREG,1(MODREG) POINT TO DISPLACEMENT @V305066 00288000
IC DTFREG,0(MODREG) INSERT DISPLACEMENT FACTOR @V305066 00289000
AR BASEREG,DTFREG ADD DISPLACE TO BASE @V305066 00290000
CLC 1(3,BASEREG),ZERO COMPARE ADDRESS TO 0 @V305066 00291000
BE MODLOOP2 ZERO ADDRESS, BYPASS UPDATE @V305066 00292000
BYPASS L ADDRREG,0(BASEREG) ADCON TO BE MODIFIED @V305066 00293000
AR ADDRREG,RELOCREG ADD RELOCATION FACTOR @V305066 00294000
ST ADDRREG,0(BASEREG) STORE RELOCATED ADCON @V305066 00295000
MODLOOP2 BCT COUNTREG,MODLOOP1 RELOCATE NEXT ADDRESS @V305066 00296000
LA MODREG,1(MODREG) ADD ONE TO PT TO NEXT TAB @V305066 00297000
BR LINKREG RETURN TO ASKING ROUTINE @V305066 00298000
EJECT 00299000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00300000
* * 00301000
* CONSTANTS * 00302000
* * 00303000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00304000
SPACE 2 00305000
ZERO DC XL3'000000' @V305066 00306000
BOPEN DC CL8'$$BOPEN' OPEN MONITOR @V305066 00307000
BOPNR2 DC CL8'$$BOPNR2' CALL TO CONTINUE DTF RELOCATION @V305066 00308000
EJECT 00309000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00310000
* * 00311000
* EQUATES * 00312000
* * 00313000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00314000
SPACE 2 00315000
DTFCN EQU X'03' DTFCN - CONSOLE @V305066 00316000
OPEN EQU X'08' DTF OPEN INDICATOR @V305066 00317000
ERROPT EQU X'40' ERROPT PARAMTER IN DTF @V305066 00318000
BRINST EQU X'47' BRANCH INSTRUCTION @V305066 00319000
ASSOC EQU X'07' ASSOC/FUNC PARAMETERS ON DTF @V305066 00320000
PUTR EQU X'01' DTFCN WITH PUTR CAPABILITY @V305066 00321000
DTFCD EQU X'04' DTFCD - PUNCH @V305066 00322000
MFCM EQU X'18' MFCM/U @V305066 00323000
CCW2 EQU X'01' SECOND CCW @V305066 00324000
CHAIN EQU X'40' @V305066 00325000
DTFPR EQU X'08' DTFPR - PRINTER @V305066 00326000
STLIST EQU X'40' STLIST SPECIFIED ON DTF @V305066 00327000
ASSOC2 EQU X'01' ASSOCIATED FILES @V305066 00328000
PCHINT EQU X'04' PUNCH INTERPRET @V305066 00329000
MFCM2 EQU X'08' MFCM @V305066 00330000
ONE EQU 1 @V305066 00331000
F7 EQU X'F7' @V305066 00332000
ENDTAB EQU X'0A' END OF DTF TABLE @V305066 00333000
SVC2 EQU 2 @V305066 00334000
SVC26 EQU 26 @V305066 00335000
EJECT 00336000
*********************************************************************** 00337000
* A D C O N T A B L E * 00338000
* THE FOLLOWING TABLE CONSISTS OF INDIVIDUAL TABLES USED TO MODIFY * 00339000
* DIFFERENT DTF TYPES. EACH INDIVIDUAL TABLE HAS A UNIQUE NAME TO * 00340000
* IDENTIFY IT. * 00341000
* THE TABLE LAYOUT IS AS FOLLOWS- * 00342000
* BYTE 1 CONTAINS THE COUNT OF ADCONS TO BE MODIFIED. * 00343000
* BYTE 2 CONTAINS THE BYTE COUNT FROM THE LOGIC MODULE ADDRESS TO * 00344000
* THE FIRST ADCON * 00345000
* SUBSEQUENT BYTES CONTAIN THE BYTE COUNT NEEDED TO ADDRESS THE NEXT * 00346000
* ADCON. * 00347000
*********************************************************************** 00348000
SPACE 2 00349000
COMBINED DC X'050808041418' CCW,INPUT,OUTPUT,EOF @V305066 00350000
READER DC X'03080404' IO AREA2, EOF, CCW @V305066 00351000
READOPT DC X'0114' ERROPT=NAME @V305066 00352000
READASF DC X'0104' ASSOCIATED FN TO READ @V305066 00353000
CONSOLE DC X'0108' CCW @V305066 00354000
CONSOL1 DC X'03080804' CCW, IP AREA, OUT AREA @V305066 00355000
PUNCH DC X'020810' IOAREA1, CCW1 @V305066 00356000
PUNCH1 DC X'0108' CCW2 @V305066 00357000
PCHINTRP DC X'020808' @V305066 00358000
PCHASF DC X'0108' ASSOCIATED FN TO PUNCH @V305066 00359000
PRINTER DC X'020810' IO AREA, CCW @V305066 00360000
PRINTST DC X'03081008' @V305066 00361000
READERM DC X'0408040408' MFCM/U READ FILE @V305066 00362000
READASOC DC X'050804040820' MFCM/U READ ASOC FILE @V305066 00363000
READERR DC X'05080404081C' MFCM/U READ ERROPT FILE @V305066 00364000
READASER DC X'06080404081C04' MFCM/U ASSOC. READ FILE @V305066 00365000
* WITH ERROPT=NAME 00366000
PCHMFC DC X'03081010' MFCM/U PUNCH FILE @V305066 00367000
PCHASOC DC X'0408101008' MFCM/U PUNCH ASOC FILE @V305066 00368000
PCHINTU DC X'0408101008' MFCU PUNCH/INT FILE @V305066 00369000
PCHINTM DC X'06081010080808' MFCM PUNCH/INTRPRT FILE @V305066 00370000
PRMFCM DC X'050810080808' MFCM PRINT SIMPLE FILE @V305066 00371000
PRASOCM DC X'0408100808' MFCM PRINT ASOC FILE @V305066 00372000
PRMFCU DC X'020818' MFCU PRINT SIMPLE FILE @V305066 00373000
PRASOCU DC X'03081008' MFCU PRINT ASOC FILE @V305066 00374000
MICR DC X'14' @V305066 00375000
DC X'2820040404040C0C0C1408080808080808080808' @V305066 00376000
MICR1 DC X'02' @V305066 00377000
DC X'0808' @V305066 00378000
SIXTEEN DC H'16' @V305066 00379000
EJECT 00380000
REGEQU @V305066 00381000
DMSOR3 CSECT @V305066 00382000
LTORG @V305066 00383000
END 00385000