ibm:vm370-lib:cms:dmslio.assemble_src
Table of Contents
DMSLIO Source
References
- Fixes Applied : 3
- This Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC006DS]
Source Listing
- DMSLIO.ASSEMBLE.txt
- LIO TITLE 'DMSLIO (CMS) VM/370 - RELEASE 6' 00001000
- SPACE 2 00002000
- *. 00003000
- * 00004000
- * 00005000
- * 00006000
- * MODULE NAME: 00007000
- * 00008000
- * DMSLIO 00009000
- * 00010000
- * FUNCTION: 00011000
- * 00012000
- * CREATES THE LOAD MAP ON DISK AND TYPES IT AT THE 00013000
- * TERMINAL; PERFORMS DISK AND TYPEWRITER OUTPUT FOR 00014000
- * DMSLDR. 00015000
- * 00016000
- * ATTRIBUTES: 00017000
- * 00018000
- * REENTRANT, NUCLEUS RESIDENT 00019000
- * 00020000
- * ENTRY POINTS: 00021000
- * 00022000
- * DMSLIO 00023000
- * 00024000
- * ENTRY CONDITIONS: 00025000
- * 00026000
- * R5 - FUNCTION CODE 00027000
- * R11 - ADDRESS OF DMSLIO 00028000
- * R14 - RETURN 00029000
- * 00030000
- * EXIT CONDITIONS: 00031000
- * 00032000
- * NORMAL - RETURN VIA R14 00033000
- * 00034000
- * ERROR - MESSAGES RETURN CODE 00035000
- * 00036000
- * 001E NO FILENAME SPECIFIED (FROM DMSLOA) 24 00037000
- * 002E FILE 'FN FT' NOT FOUND 28 00038000
- * 003E INVALID OPTION 'OPTION' 24 00039000
- * 005E NO 'OPTION' SPECIFIED 24 00040000
- * 021E ENTRY POINT 'NAME' NOT FOUND 40 00041000
- * 029E INVALID PARAM IN OPTION FIELD 24 00042000
- * 055E NO ENTRY POINT DEFINED 40 00043000
- * 056E FILE CONTAINS INVALID RECORD FORMATS 32 00044000
- * 099E CMS/DOS ENVIRONMENT ACTIVE 40 00045000
- * 104S ERROR READING FILE ON DISK 100 00046000
- * 105S ERROR WRITING FILE ON DISK 100 00047000
- * 109S VIRTUAL STORAGE CAPACITY EXCEEDED 104 00048000
- * 116S LOADER TABLE OVERFLOW 104 00049000
- * 168S PSEUDO REGISTER TABLE OVERFLOW 104 00050000
- * 169S ESDID TABLE OVERFLOW 104 00051000
- * 201W THE FOLLOWING NAMES ARE UNDEFINED: 4 00052000
- * 202W DUPLICATE IDENTIFIER 'IDENTIFIER' 4 00053000
- * 203W 'SET LOCAT COUNTER ' NAME UNDEFINED 4 00054000
- * 206W PSEUDO REGISTER ALIGNMENT ERROR 4 00055000
- * 740I EXECUTION BEGINS.. (FROM DMSLDR) -- 00056000
- * 907T I/O ERROR ON FILE 'FN FT FM' 256 00057000
- * 00058000
- * CALLS TO OTHER ROUTINES: 00059000
- * 00060000
- * DMSERS - TO ERASE OLD LOAD MAP 00061000
- * DMSBTSA- TO WRITE NEW LOAD MAP 00062000
- * DMSCWRB- TO TYPE A LINE AT THE TERMINAL 00063000
- * DMSFNS - TO CLOSE WRITING 00064000
- * 00065000
- * EXTERNAL REFERENCES: 00066000
- * 00067000
- * NUCON, LDRST 00068000
- * 00069000
- * TABLES/WORKAREAS: 00070000
- * 00071000
- * NONE 00072000
- * 00073000
- * REGISTER USAGE: 00074000
- * 00075000
- * R11 - BASE 00076000
- * R14 - RETURN 00077000
- * R13 - LDRST 00078000
- * R0-10,15 - WORK 00079000
- * R12 - NOT USED 00080000
- * 00081000
- * OPERATION: 00082000
- * 00083000
- * THE DMSLIO ROUTINE IS ENTERED BY SEVERAL CMS ROUTINES. 00084000
- * AT EACH ENTRY, IT WRITES DATA FOR THE LOAD MAP ON DISK 00085000
- * (UNLESS THE NOMAP OPTION SPECIFIED BY THE USER). IF 00086000
- * THE USER HAS SPECIFIED THE TYPE OPTION, TYPES OUT THE 00087000
- * MAP AT THE USER'S TERMINAL. AT THE END OF LOADING 00088000
- * DMSLIO CLOSES THE MAP FILE AND RETURNS TO THE USER. 00089000
- *. 00090000
- EJECT 00091000
- SPACE 2 00092000
- DMSLIO START 00093000
- USING NUCON,R0 00094000
- USING *,BASE 00095000
- USING LDRST,R13 00096000
- SPACE 2 00097000
- STM 14,10,APSV SAVE REGISTERS 00098000
- LA R4,OUTBUF ADDRESS OF MESSAGE SUBSTITUTIONS 00099000
- TABLEAD LH AD,MESSTBL(INDEX) GET ROUTINE ADDRESS FROM TABLE 00100000
- BAL RET,0(AD,BASE) GO TO SPECIFIRD ROUTINE 00101000
- SPACE 2 00102000
- RETURN LM 14,10,APSV RESTORE REGISTERS 00103000
- LA 11,1 RESET 11 FOR LDR 00104000
- BR 14 BACK TO USER 00105000
- CODERET CH R15,LDRADDR+6 IS THIS ERROR CODE HIGHER 00106000
- BNH NOSTORE NO, LEAVE CODE ALONE 00107000
- STH R15,LDRADDR+6 SAVE NEW ERROR CODE 00108000
- NOSTORE LM R14,R10,APSV RESTORE REGS 00109000
- LA R11,1 00110000
- BR R14 RETURN 00111000
- EJECT 00112000
- DSKMESS LH AD,MESSTBL+2(INDEX) GET MESSAGE ADDRESS FROM TABLE 00113000
- LA AD,0(AD,BASE) FORM COMPLETE ADDRESS 00114000
- SR 7,7 GET MESSAGE LENGTH FOR MOVE 00115000
- IC 7,0(0,AD) ... 00116000
- EX 7,MESSMVC MOVE MESSAGE TO BUFFER 00117000
- BAL RET,DSKMAP PUT MESSAGE IN MAP 00118000
- B RETURN V0304 00119000
- SPACE 2 00120000
- CMSET EQU * PRINT HEADING FOR COMMON 00121000
- PRSET BAL RET,DSKMAP & PR'S. BLANK LINE 00122000
- LH ADX,MESSTBL+2(INDEX) GET MESS ADDR FROM TABLE 00123000
- LA ADX,0(ADX,BASE) FORM COMPLETE ADDRESS 00124000
- LM FIRST,LAST,0(ADX) MESSAGE INTO GPR'S 00125000
- STM FIRST,LINE1,OUTBUF FIRST LINE 00126000
- BAL RET,DSKMAP WRITE IT OUT 00127000
- STM LINE2,LAST,OUTBUF SECOND LINE 00128000
- BAL RET,DSKMAP WRITE IT OUT 00129000
- BAL RET,DSKMAP BLANK LINE 00130000
- B RETURN V0304 00131000
- SPACE 3 00132000
- PRVAL EQU * 00133000
- CMVAL EQU * LIST COMMON & PR ENTRIES 00134000
- CLI 0(PTR),X'FF' CHECK FOR CXD ENTRY (STARTS FF) 00135000
- BNE PRGO NOT CXD, PROCEED 00136000
- LA INDEX,CXD SET FOR CXD 00137000
- B TABLEAD BACK TO BEGINNING 00138000
- PRGO EQU * 00139000
- LH AD,MESSTBL+2(INDEX) GET MVC ADD FROM TABLE 00140000
- LA NUM,12(0,PTR) GET ADDRESS OF VALUE 00141000
- BAL RET,HEXSUB GO CONVERT FOR HEX PRINTOUT 00142000
- EX 0,0(AD,BASE) MOVE VALUE TO BUFFER 00143000
- LA NUM,8(0,PTR) GET ADDRESS OF LENGTH 00144000
- BAL RET,HEXSUB GO CONVERT FOR HEX PRINTOUT 00145000
- EX 0,6(AD,BASE) MOVE LENGTH TO BUFFER 00146000
- MVC OUTBUF(8),0(PTR) MOVE NAME TO BUFFER 00147000
- BAL RET,DSKMAP WRITE LINE OUT 00148000
- B RETURN V0304 00149000
- EJECT 00150000
- ENTPNT LM 0,1,0(PTR) GET NAME INTO GPR'S 00151000
- L 2,=C' ' BLANK AFTER NAME 00152000
- TM 16(PTR),X'02' IS THIS A SECTION DEFINITION 00153000
- BNO ENTPNT1 NO 00154000
- L R2,=C' SD ' YES, USE ' SD ' 00155000
- ENTPNT1 STM 0,2,OUTBUF PUT 'NAME AT' IN BUFFER 00156000
- LA NUM,12(0,PTR) ADDR. OF VALUE OF ENTRY 00157000
- BAL RET,HEXSUB CONVERT TO HEX GRAPHUCS 00158000
- MVC OUTBUF+12(6),UNPACK+2 MOVE TO OUT BUFFER V0143 00159000
- BAL RET,DSKMAP WRITE IT OUT 00160000
- TM OSSFLAGS,DYLD DYNAMIC LOAD @V1D1705 00161000
- BNO RETURN NO @V1D1705 00162000
- L R2,PARMLIST GET REQUESTED PHASE NAME @V1D1705 00163000
- SH R2,=H'8' @V1D1705 00164000
- CLC 0(8,PTR),0(R2) IS THIS REQ. NAME @V1D1705 00165000
- BNE RETURN NO @V1D1705 00166000
- MVC ALIASENT(4),12(PTR) SAVE ADDR FROM LDR TBL @V1D1705 00167000
- OI OSSFLAGS,X'04' INDICATE EP NAME FND IN TEXT @V1D1705 00168000
- B RETURN V0304 00169000
- SPACE 2 00170000
- CXDVAL BAL RET,DSKMAP BLANK LINE 00171000
- LA NUM,12(0,PTR) ADDRESS OF VALUE 00172000
- BAL RET,HEXSUB CONVERT TO HEX GRAPHICS 00173000
- MVC OUTBUF+24(4),UNPACK+4 VALUE TO BUFFER 00174000
- B DSKMESS GO PROCESS MESSAGE 00175000
- SPACE 2 00176000
- HEXSUB MVC PACK(4),0(NUM) MOVE NO TO TEMP LOCATION 00177000
- UNPK UNPACK(9),PACK(5) UNPACK IT 00178000
- TR UNPACK(8),CONHEX CONVERT TO GRAPHICS 00179000
- BR RET BACK TO CALLER 00180000
- EJECT 00181000
- LDRSET MVC TYPLIN(DSECTN-DSECTS),TYPSET PUT P LISTS INTO FREE STOR 00182000
- LA AD,OUTPUT GET ADDRESS OF OUT BUFFER 00183000
- ST AD,DSKAD PUT ADDRESS INTO DISK P LIST 00184000
- MVC TYPEAD+1(3),DSKAD+1 PUT ADDRESS INTO TYPE P LIST 00185000
- OUTMOV MVC OUTBUF(99),OUTPUT BLANK OUT BUFFER 00186000
- TM FLAG1,NOERASE DO WE ERASE LOAD MAP 00187000
- BC 1,RETURN V0304 00188000
- OI FLAG1,NOERASE DON'T ERASE UNLESS RESET 00189000
- LA 1,DSKLIN GO ERASE LOAD MAP 00190000
- L R15,AERASE V0304 00191000
- BALR R14,R15 V0304 00192000
- MVC DSKLIN(5),DSKSET RESET CALL TO WRBUF 00193000
- B RETURN BACK TO CALLER V0304 00194000
- SPACE 2 00195000
- LDRFIN L R15,AFINIS CLOSE LOAD MAP V0304 00196000
- LA R1,DSKLIN FINIS LOAD MAP V0304 00197000
- BALR R14,R15 V0304 00198000
- B RETURN V0304 00199000
- SPACE 3 00200000
- TYPMAP LA 1,TYPLIN ADDRESS OF P LIST 00201000
- SVC X'CA' GO TYPE 00202000
- DC AL4(*+4) NO ERRORS 00203000
- B DSKWRT 00204000
- SPACE 1 00205000
- DSKMAP TM OSSFLAGS,DYLD DYNAMIC LOAD @V1D1705 00206000
- BO CLRBUF YES, NOMAP NOTYPE @V1D1705 00207000
- TM FLAG2,TYPE TYPE MAP AT TERMINAL @V1D1705 00208000
- BO TYPMAP YES TYPE ONLINE 00209000
- DSKWRT EQU * V0304 00210000
- TM FLAG2,NOMAP WAS NOMAP SPECIFIED 00211000
- BO CLRBUF CLEAR OUTPUT BUFF, NO WRITE 00212000
- LA 1,DSKLIN GET P LIST ADD FOR LMAP WRITE 00213000
- L R15,AWRBUF WRITE TO MAP V0304 00214000
- BALR R14,R15 V0304 00215000
- BZ CLRBUF IF NO ERROR FROM WRBUF, BRANCH @VM03062 00216000
- LR R2,R15 SAVE RETURN CODE IN REG. 2 @VM03062 00217000
- LA R4,8(,R1) POINT TO FILEID FOR ERROR MSG. @VM03062 00218000
- OI FLAG2,NOMAP SUPPRESS MAP FILE (LET LDR END) @VM03062 00219000
- B ERR105S GIVE ERROR MESSAGE... @VM03062 00220000
- CLRBUF EX 0,OUTMOV BLANK OUT BUFF 00221000
- BR RET BACK TO CALLER 00222000
- SPACE 2 00223000
- *********************************************************************** 00224000
- * 00225000
- * TERMINAL MESSAGES 00226000
- * 00227000
- *********************************************************************** 00228000
- SPACE 00229000
- ERR056E LA R2,FNAME POINT TO FILE ID 00230000
- DMSERR TEXT=('FILE ''....................''', @V1D1705X00231000
- ' CONTAINS INVALID RECORD FORMATS'), P3009X00232000
- NUM=56,LET=E,SUB=(CHAR8A,(R2)),TYPCALL=BALR @V305614 00233000
- LA R15,32 RETURN CODE 00234000
- B CODERET 00235000
- SPACE 00236000
- ERR201W DMSERR TEXT='THE FOLLOWING NAMES ARE UNDEFINED:', X00237000
- DOT=NO, *00238000
- LET=W,NUM=201,TYPCALL=BALR @V305614 00239000
- MVC OUTBUF(34),=C'THE FOLLOWING NAMES ARE UNDEFINED:' 00240000
- BAL RET,DSKWRT PUT IN LOAD MAP 00241000
- B RETURN 00242000
- SPACE 2 00243000
- ERR202W DMSERR TEXT='DUPLICATE IDENTIFIER ''........''', P3009X00244000
- SUB=(CHARA,(R4)),NUM=202,LET=W,TYPCALL=BALR @V305614 00245000
- LA R15,4 RETURN CODE 00246000
- B CODERET 00247000
- SPACE 2 00248000
- ERR203W DMSERR TEXT='SET LOCATION COUNTER X00249000
- NAME ''........'' UNDEFINED', P3009X00250000
- SUB=(CHARA,(R4)),NUM=203,LET=W,TYPCALL=BALR @V305614 00251000
- LA R15,4 RETURN CODE 00252000
- B CODERET 00253000
- SPACE 2 00254000
- ERR002E DMSERR TEXT='FILE ''........ TXTLIB'' NOT FOUND', P3009X00255000
- SUB=(CHARA,(R4)),NUM=2,LET=E,TYPCALL=BALR @V305614 00256000
- LA R15,28 RETURN CODE 00257000
- B CODERET 00258000
- SPACE 2 00259000
- ERR005E DMSERR TEXT='NO ''................'' SPECIFIED', X00260000
- NUM=5,LET=E,SUB=(CHAR8A,(R4)),TYPCALL=BALR @V305614 00261000
- LA R15,24 00262000
- B CODERET 00263000
- SPACE 00264000
- ERR206W DMSERR TEXT='PSEUDO REGISTER ALIGNMENT ERROR',NUM=206,LET=W, X00265000
- TYPCALL=BALR @V305614 00266000
- LA R15,4 RETURN CODE 00267000
- B CODERET 00268000
- SPACE 2 00269000
- ERR004E DMSERR TEXT='ENTRY POINT ''........'' NOT FOUND', P3009X00270000
- SUB=(CHARA,(R4)),NUM=21,LET=E,TYPCALL=BALR @V305614 00271000
- LA R15,40 RETURN CODE 00272000
- B CODERET 00273000
- SPACE 2 00274000
- ERR003E DMSERR TEXT='INVALID OPTION ''........''', P3009X00275000
- SUB=(CHARA,(R4)),NUM=3,LET=E,TYPCALL=BALR @V305614 00276000
- LA R15,24 RETURN CODE 00277000
- B CODERET 00278000
- SPACE 2 00279000
- ERR029E DMSERR TEXT=('INVALID PARAMETER ''........''', P3009X00280000
- ' IN THE OPTION ''ORIGIN'' FIELD'), P3009X00281000
- NUM=29,LET=E,SUB=(CHARA,(R4)),TYPCALL=BALR @V305614 00282000
- LA R15,24 RETURN CODE 00283000
- B CODERET 00284000
- SPACE 2 00285000
- ERR055E DMSERR TEXT='NO ENTRY POINT DEFINED',NUM=055,LET=E, @V305614X00286000
- TYPCALL=BALR @V305614 00287000
- LA R15,40 RETURN CODE 00288000
- B CODERET 00289000
- SPACE 2 00290000
- ERR099E DMSERR TEXT='CMS/DOS ENVIRONMENT ACTIVE',LET=E,NUM=99, X00291000
- TYPCALL=BALR @V305614 00292000
- LA R15,RC40 RETURN CODE @V305066 00293000
- B CODERET RETURN @V305066 00294000
- SPACE 00295000
- ERR104S LR R3,R15 V0314 00296000
- DMSERR TEXT=('ERROR ''..'' READING FILE', X00297000
- ' ''....................'' FROM DISK'), X00298000
- NUM=104,LET=S,TYPCALL=BALR, X00299000
- SUB=(DEC,(R3),CHAR8A,(R4)),MF=(E,PLISTSAV) 00300000
- LA R15,100 RETURN CODE 00301000
- B CODERET 00302000
- SPACE 2 00303000
- ERR105S DMSERR TEXT=('ERROR ''..'' WRITING FILE ', P3009X00304000
- '''....................'' ON DISK'),NUM=105,LET=S, X00305000
- SUB=(DEC,(R2),CHAR8A,(R4)), X00306000
- MF=(E,PLISTSAV),TYPCALL=BALR @V305614 00307000
- EX R0,OUTMOV CLEAR THE OUTPUT BUFFER. @VM03062 00308000
- LA R15,100 RETURN CODE 00309000
- B CODERET 00310000
- SPACE 2 00311000
- ERR109S DMSERR TEXT='VIRTUAL STORAGE CAPACITY EXCEEDED',NUM=109,LET=S,X00312000
- TYPCALL=BALR @V305614 00313000
- LA R15,104 RETURN CODE 00314000
- B CODERET 00315000
- SPACE 2 00316000
- ERR116S DMSERR TEXT='LOADER TABLE OVERFLOW',NUM=116,LET=S, @V305614X00317000
- TYPCALL=BALR @V305614 00318000
- LA R15,104 RETURN CODE 00319000
- B CODERET 00320000
- ERR168S DMSERR TEXT='PSEUDO REGISTER TABLE OVERFLOW',NUM=168,LET=S, X00321000
- TYPCALL=BALR @V305614 00322000
- LA R15,104 00323000
- B CODERET 00324000
- SPACE 2 00325000
- ERR169S DMSERR TEXT='ESDID TABLE OVERFLOW',LET=S,NUM=169, @V305614X00326000
- TYPCALL=BALR @V305614 00327000
- LA R15,104 00328000
- B CODERET 00329000
- SPACE 2 00330000
- ERR907T DMSERR TEXT='I/O ERROR ON FILE ''....................''', X00331000
- SUB=(CHAR8A,(R4)),NUM=907,LET=T,TYPCALL=BALR 00332000
- LA R15,256 RETURN CODE 00333000
- B CODERET 00334000
- EJECT 00335000
- DS 0F 00336000
- DSECTS EQU * 00337000
- TYPSET DC CL8'TYPLIN' NAME OF SVC 00338000
- DC X'01' CONSOLE # 00339000
- DC AL3(0) BUFFER ADDRESS 00340000
- DC C'B' COLOR SHIFT 00341000
- DC AL3(100) BUFFER LENGTH 00342000
- DSKSET DC CL8'WRBUF' NAME OF SVC 00343000
- DC CL8'LOAD' FILE NAME 00344000
- DC CL8'MAP' FILE TYPE 00345000
- DC CL2'A5' MODE 00346000
- DC H'0' ITEM NO 00347000
- DC A(*) ADDRESS OF BUFFER 00348000
- DC F'100' LENGTH OF BUFFER 00349000
- DC CL2'F' FIXED VARIABLE FLAG 00350000
- DC H'1' NO. OF ITEMS 00351000
- DC X'00' SPACE FILLER 00352000
- HEXPSET DC XL4'00' FOR 'PACK' 00353000
- DC X'FF' ... 00354000
- HEXUSET DC XL8'00' FOR 'UNPACK' 00355000
- DC X'FF' ... 00356000
- BUFSET DC C' ' BLANK FOR BUFF CLEAR 00357000
- DSECTN EQU * 00358000
- SPACE 2 00359000
- MESSMVC MVC OUTBUF(1),1(AD) TO MOVE MESSAGE INTO BUFFER 00360000
- SPACE 2 00361000
- FIRST EQU 0 00362000
- LINE1 EQU 3 00363000
- LINE2 EQU 4 00364000
- INDEX EQU 5 00365000
- AD EQU 6 00366000
- NUM EQU 8 00367000
- ROUT EQU 9 00368000
- LAST EQU 9 00369000
- ADX EQU 9 00370000
- RET EQU 10 00371000
- BASE EQU 11 00372000
- PTR EQU 12 00373000
- CXD EQU 24 IO INDEX FOR FUDGE 00374000
- RC40 EQU 40 RETURN CODE @V305066 00375000
- EJECT 00376000
- DS 0F FOR LM 00377000
- PRMESS DC CL16'PSEUDO-REGISTERS' FIRST LINE 00378000
- DC CL24'NAME VALUE LENGTH' SECOND LINE 00379000
- CMMESS DC CL16'COMMON:' FIRST LINE 00380000
- DC CL24'NAME VALUE LENGTH' SECOND LINE @VA10393 00381000
- PRMVC MVC OUTBUF+11(3),UNPACK+5 FIRST MOVE 00382000
- MVC OUTBUF+17(4),UNPACK+4 SECOND MOVE 00383000
- CMMVC MVC OUTBUF+9(6),UNPACK+2 MOVE VALUE TO BUFFER @VA05526 00384000
- MVC OUTBUF+16(6),UNPACK+2 SECOND MOVE @VA10393 00385000
- CXDMESS DC AL1(L'CXDTXT-1) 00386000
- CXDTXT DC C'PR CUMULATIVE LENGTH -' 00387000
- INVCRD DC AL1(L'INVTXT-1) 00388000
- INVTXT DC C'INVALID CARD -' 00389000
- PTERR DC AL1(L'PTTXT-1) 00390000
- PTTXT DC C'POINT ERROR ON -' 00391000
- CTLCRD DC AL1(L'CTLTXT-1) 00392000
- CTLTXT DC C'CONTROL CARD -' 00393000
- SPACE 2 00394000
- DROP 11 00395000
- EJECT 00396000
- USING DMSLIO,R0 00397000
- DS 0H 00398000
- MESSTBL EQU * MESSAGE NO (INDEX IN 5) 00399000
- DC S(ENTPNT) 0 (ERRORL) 00400000
- DC S(TYPMAP) 2 (OUTR) 00401000
- DC S(LDRSET) 4 00402000
- DC S(LDRFIN) 6 00403000
- DC S(PRSET,PRMESS) 8 00404000
- DC S(CMSET,CMMESS) 12 00405000
- DC S(PRVAL,PRMVC) 16 00406000
- DC S(CMVAL,CMMVC) 20 00407000
- DC S(CXDVAL,CXDMESS) 24 00408000
- DC S(ERR203W) 28 00409000
- DC S(ERR004E) 30 00410000
- DC S(DSKMESS,INVCRD) 32 (ERRORA) 00411000
- DC S(ERR002E) 36 00412000
- DC S(ERR168S) 38 00413000
- DC S(ERR003E) 40 00414000
- DC S(ERR029E) 42 00415000
- DC S(ERR116S) 44 (ERRORR) 00416000
- DC S(ERR105S) 46 00417000
- DC S(ERR202W) 48 (ERRORM) 00418000
- DC S(ERR055E) 50 00419000
- DC S(ERR201W) 52 (ERRORS) 00420000
- DC S(ERR056E) 54 00421000
- DC S(ERR169S) 56 00422000
- DC S(ERR005E) 58 00423000
- DC S(DSKMAP) 60 (CRDIMJ) 00424000
- DC S(ERR104S) 62 00425000
- DC S(0) 64 00426000
- DC S(ERR907T) 66 00427000
- DC S(0) 68 00428000
- DC S(ERR206W) 70 00429000
- DC S(0) 72 00430000
- DC S(0) 74 00431000
- DC S(0) 76 00432000
- DC S(DSKMESS,CTLCRD) 78 00433000
- DC S(ERR109S) 82 00434000
- DC S(0) 84 00435000
- DC S(ERR099E) 86 (ERR0RD) @V305066 00436000
- SPACE 2 00437000
- DC C'0123456789ABCDEF' 00438000
- CONHEX EQU *-X'FF'-1 ORIGIN OF TRANSLATE TABLE 00439000
- SPACE 2 00440000
- LTORG 00441000
- EJECT 00442000
- LDRST 00443000
- EJECT 00444000
- NUCON 00445000
- EJECT 00446000
- REGEQU 00447000
- END 00448000
ibm/vm370-lib/cms/dmslio.assemble_src.txt · Last modified: 2023/08/06 13:35 by Site Administrator