* /* START OF SPECIFICATIONS **** 00050000 *02* PROCESSOR = ASSEMBLER 00100000 **** END OF SPECIFICATIONS ***/ 00150000 GBLA &SNUMBER GLOBAL VARIABLE 00600000 GBLC &COMPNM,&ASMID GLOBAL VARIABLES 01200000 JHEAD 'ASSEMBLER COMMON LOAD MODULE - PROLOG', X01800000 PHASEID=X0C, X02400000 LEVEL=10 03000000 * * 03600000 *FUNCTION/OPERATION- * 04200000 * THIS MODULE IS THE MASTER COMMON WORK AREA FOR THE ASSEMBLER. * 04800000 * THE MODULE IS MAPPED ACCORDING TO THE JCOMMON DSECT. THE MODULE * 05400000 * IS LOADED BY THE DRIVER AND REMAINS IN CORE UNTIL THE END OF JOB. * 06000000 * REGISTER R13 ALWAYS POINTS TO THIS MODULE. * 06600000 * * 07200000 *ENTRY POINT- * 07800000 * N/A * 08400000 * * 09000000 *INPUT- * 09600000 * SYSUT1, STSUT2, SYSUT3. * 10200000 * * 10800000 *OUTPUT- * 11400000 * N/A * 12000000 * N/A * 12600000 * * 13200000 *EXTERNALS ROUTINES- * 13800000 * N/A * 14400000 * * 15000000 *EXITS, NORMAL- * 15600000 * N/A * 16200000 * * 16800000 *EXITS, ERROR- * 17400000 * N/A * 18000000 * * 18600000 *TABLE/WORK AREAS- * 19200000 * THIS MODULE IS ONE ENTIRE WORK AREA. * 19800000 * * 20400000 *ATTRIBUTES- * 21000000 * NON-REFRESHABLE. * 21600000 * * 22200000 *NOTES- * 22800000 SPACE 2 23400000 PRINT OFF DON'T PRINT JCOMMON COPY CODE 23450000 COPY JCOMMON JCOMMON COPY CODE 24000000 PRINT OFF DON'T PRINT JFLEBLK COPY CODE 24600000 COPY JFLEBLK JFLEBLK COPY CODE 25200000 PRINT OFF DON'T PRINT JERMSGCD COPY CODE 25800000 COPY JERMSGCD JERMSGCD COPY CODE 26400000 PRINT ON THAT'S ALL THE COPY CODE 26450000 SPACE 2 26500000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE' 27000000 JCSECT (X0C00) SECTION START 27600000 * VS1 RELEASE 2.5 CHANGES 27650002 *C336000,378000,420000 OX00413 27700002 * VS1 RELEASE 3.1 CHANGES 27750002 *C336000,378000,420000 OX02955 27800002 *A432000 @AZ07378 27850006 JMODID EMBEDDED IDENTIFIER 28200000 USING START,R13 ESTABLISH BASE 28800000 START DS 0D R13 POINTS HERE 29400000 JENTRY (X0C01=START) SECTION ENTRY 30000000 ORG START+JFLEBLK1-JCOMMON+JDECB-JFLEBLK FILE 1 DECB 30600000 WRITE JDECB1,SF,IJSYS01,MF=L WRITE DECB FOR SYSUT1 31200000 ORG START+JFLEBLK1-JCOMMON+JTCLOSE-JFLEBLK TCLOSE PARM LIST 31800000 CLOSE (IJSYS01,REREAD),TYPE=T,MF=L TCLOSE FOR SYSUT1 32400000 JGEN JFLEBLK1+JFLE-JFLEBLK,A,IJSYS01 DCB POINTER 33000000 JGEN JFLEBLK1+JBUFNDX-JFLEBLK,H,2 BUFR DISPLACE OX02955 33600002 JGEN JFLEBLK1+JIOFLAG-JFLEBLK,X,00 FILE REQUEST FLAG 34200000 ORG START+JFLEBLK2-JCOMMON+JDECB-JFLEBLK FILE 2 DECB 34800000 WRITE JDECB2,SF,IJSYS02,MF=L WRITE DECB FOR SYSUT2 35400000 ORG START+JFLEBLK2-JCOMMON+JTCLOSE-JFLEBLK TCLOSE PARM LIST 36000000 CLOSE (IJSYS02,REREAD),TYPE=T,MF=L TCLOSE FOR SYSUT2 36600000 JGEN JFLEBLK2+JFLE-JFLEBLK,A,IJSYS02 DCB POINTER 37200000 JGEN JFLEBLK2+JBUFNDX-JFLEBLK,H,2 BUFR DISPLACE OX02955 37800002 JGEN JFLEBLK2+JIOFLAG-JFLEBLK,X,00 FILE REQUEST FLAG 38400000 ORG START+JFLEBLK3-JCOMMON+JDECB-JFLEBLK FILE 3 DECB 39000000 WRITE JDECB3,SF,IJSYS03,MF=L WRITE DECB FOR SYSUT3 39600000 ORG START+JFLEBLK3-JCOMMON+JTCLOSE-JFLEBLK TCLOSE PARM LIST 40200000 CLOSE (IJSYS03,REREAD),TYPE=T,MF=L TCLOSE FOR SYSUT3 40800000 JGEN JFLEBLK3+JFLE-JFLEBLK,A,IJSYS03 DCB POINTER 41400000 JGEN JFLEBLK3+JBUFNDX-JFLEBLK,H,2 BUFR DISPLACE OX02955 42000002 JGEN JFLEBLK3+JIOFLAG-JFLEBLK,X,00 FILE REQUEST FLAG 42600000 JGEN JMAXRL,H,16000 MAX RL FOR FILES @AZ07378 43200006 JGEN JADINCM,A,0 ZERO INPUT COMMON ADDRESS 43800000 JGEN JADOUTCM,A,0 ZERO OUTPUT COMMON ADDRESS 44400000 ORG START+JLVTMDT-JCOMMON BLANK LEVEL TIME DATE 45000000 JGENIN ' ASM 0000 00.00 00/00/00' LEVEL TIME AND DATE 45600000 ORG START+JIDR-JCOMMON 45650000 JGENIN '15741SC103 000000000 ' 45700000 JGEN JDECKIDL,X,00 ZERO DECK ID LENGTH 46200000 ORG START+JDECKID-JCOMMON BLANK DECK ID 46800000 JGENIN ' ',8 '' 47400000 JGEN JMSGL,X,00 ZERO MESSAGE LEVEL 48000000 JGEN JSYSPARM,A,0 ZERO SYSPARM POINTER 48600000 JGEN JPARMPTR,A,0 ZERO PARM ADDR 49200000 JGEN JPARM,A,0 ZERO PARM BYTES 49800000 ORG START+JPREFIX-JCOMMON INTERNAL COMPONENT NAME 51000000 JGENIN &COMPNM COMPONENT ID 51600000 JGEN JWARNFLG,X,00 ZERO WARNING FLAG 52200000 JGEN JRECCHK,X,00 ZERO POST PROCESSOR FLAG 52800000 JGEN JINDERRF,X,00 ZERO ERROR FLAGS 53400000 JGEN JINFLAG,X,00 ZERO INFLAG 54000000 JGEN JOUTFLAG,X,00 ZERO OUTFLAG 54600000 JGEN JMLCFLAG,X,00 ZERO MLCFLAG 55200000 JGEN JRECIN,F,0 ZERO RECORDS IN COUNT 55800000 JGEN JRECLIB,F,0 ZERO RECORDS IN FROM LIB CNT. 56400000 JGEN JRECPCH,F,0 ZERO RECORDS PUNCHED 57000000 JGEN JRECPRT,F,0 ZERO RECORDS PRINTED 57600000 JGEN JSLEN,F,0 ZERO STORAGE LENGTH 58200000 JGEN JCLVLPTR,A,(SAVETBL-JSAVESZ,0-JSAVESZ) INIT SAVE AREA PT 58800000 ORG START+JSAVETBL-JCOMMON ZERO SAVE TABLE 59400000 SAVETBL DC (JSAVESZ*JSAVELVL/4)A(0) PUSH-POP SAVE AREA 60000000 ORG START+JABORT-JCOMMON ABORT ERROR 60600000 B ABORT GO TO ABORT 61200000 AABORT JGEN JAABORT,A,0 ADDR OF ABORT ROUTINE IN DRIVER 61800000 JGEN JSYSOPEN,A,SYSOPEN ADDR OF OPEN PARM LIST 62400000 JGEN JSYSCLOS,A,SYSCLOS ADDR OF CLOSE PARM LIST 63000000 JGEN JSRCLN,F,70 DATA PORTION MOVE LENGTH (1-7) 63600000 JGEN JBEGCL,F,0 BEGIN COLUMN MINUS 1 (2-7) 64200000 JGEN JCTCHR,F,71 CONT CHR COLUMN MINUS 1 (3-7) 64800000 JGEN JSEQCL,F,72 SEQ FLD BEGIN COL MINUS 1 (4-7) 65400000 JGEN JSEQLN,F,7 SEQ FLD MOVE LENGTH (5-7) 66000000 JGEN JCTBGN,F,15 CONT COLUMN MINUS 1 (6-7) 66600000 JGEN JCTLN,F,55 CONT FLD MOVE LENGTH (7-7) 67200000 JGEN JINFILE,Y,FILE3 INPUT FILE FOR X3 67800000 JGEN JOUTFILE,Y,FILE1 OUTPUT FILE FOR X3 68400000 JGEN JPAGENO,H,0 ZERO PAGE NUMBER 69000000 JGEN JPRTONLY,X,0000000000 CLEAR JPRTONLY,JSYSGEN,JLTLNG 69600000 ORG START+JTRTABLE-JCOMMON TRANSLATE TABLE 70200000 DC X'F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6' CARD 01 OF 16 70800000 DC X'C7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5' CARD 02 OF 16 71400000 DC X'E6E7E8E95B7B7C7E4D4E605C615D6B40' CARD 03 OF 16 72000000 DC X'7D504B333435363738393A3B3C3D3E3F' CARD 04 OF 16 72600000 DC X'2F4142434445464748494A324C28294F' CARD 05 OF 16 73200000 DC X'315152535455565758595A242B2D5E5F' CARD 06 OF 16 73800000 DC X'2A2C62636465666768696A2E6C6D6E6F' CARD 07 OF 16 74400000 DC X'707172737475767778797A252630277F' CARD 08 OF 16 75000000 DC X'808182838485868788898A8B8C8D8E8F' CARD 09 OF 16 75600000 DC X'909192939495969798999A9B9C9D9E9F' CARD 10 OF 16 76200000 DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' CARD 11 OF 16 76800000 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' CARD 12 OF 16 77400000 DC X'C00A0B0C0D0E0F101112CACBCCCDCECF' CARD 13 OF 16 78000000 DC X'D0131415161718191A1BDADBDCDDDEDF' CARD 14 OF 16 78600000 DC X'E0E11C1D1E1F20212223EAEBECEDEEEF' CARD 15 OF 16 79200000 DC X'00010203040506070809FAFBFCFDFEFF' CARD 16 OF 16 79800000 ORG START+JCOMEND-JCOMMON END OF COMMON 80400000 SPACE 5 81000000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE - UTILITY X81050000 FILE OPEN AND CLOSE LISTS' 81100000 SYSOPEN OPEN (IJSYS01,(OUTIN,REREAD),IJSYS02,(OUTIN,REREAD),IJSYS03,(X81600000 OUTIN,REREAD)),MF=L OPEN PARM LIST 82200000 SPACE 3 82800000 SYSCLOS CLOSE (IJSYS01,,IJSYS02,,IJSYS03,),MF=L CLOSE PARM LIST 83400000 SPACE 3 84000000 ABORTSYN LA R10,ERR261 SYNAD EXIT (I/O ERROR) ABORT 84600000 LR R11,R0 SAVE R0 FOR ABORT ROUTINE 85200000 SPACE 1 85800000 ABORT L R12,AABORT GET ADDR OF ABORT ROUTINE 86400000 BR R12 GO TO IT 87000000 SPACE 3 87600000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE - SYSUT1 DCB' 88850000 IJSYS01 DCB DDNAME=SYSUT1,MACRF=(RP,WP),RECFM=U,DSORG=PS, X89400000 SYNAD=ABORTSYN,DEVD=DA,NCP=1 90000000 SPACE 5 90600000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE - SYSUT2 DCB' 90650000 IJSYS02 DCB DDNAME=SYSUT2,MACRF=(RP,WP),RECFM=U,DSORG=PS, X91200000 SYNAD=ABORTSYN,DEVD=DA,NCP=1 91800000 SPACE 5 92400000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE - SYSUT3 DCB' 92450000 IJSYS03 DCB DDNAME=SYSUT3,MACRF=(RP,WP),RECFM=U,DSORG=PS, X93000000 SYNAD=ABORTSYN,DEVD=DA,NCP=1 93600000 SPACE 5 93650000 TITLE '&COMPNM&ASMID - ASSEMBLER COMMON LOAD MODULE - PATCH AREA' 93700000 JPATCH X0C00,630 5% PATCH AREA 94200000 SPACE 3 94250000 END START 94800000