ibm:vm370-lib:dumpscan:dmmedm.assemble_src
Table of Contents
DMMEDM Source
References
- Fixes Applied : 4
- This Source Date : Monday, December 11, 1978
- Last Fix ID : [R12233DM]
Source Listing
- DMMEDM.ASSEMBLE.txt
- EDM TITLE 'DMMEDM (IPCS) VM/370 - RELEASE 6' 00001000
- *. 00002000
- * MODULE NAME - DMMEDM 00003000
- * 00004000
- * FUNCTION - TO EDIT AND PRINT A CP DUMP. 00005000
- * 00006000
- * ATTRIBUTES - RUNS IN A VIRTUAL MACHINE UNDER CMS 00007000
- * CONTROL 00008000
- * 00009000
- * ENTRY POINTS - DMMEDMP 00010000
- * 00011000
- * ENTRY CONDITIONS - GPR 1=ADDRESS OF OPTION LIST 00012000
- * GPR 13=SVC SAVEAREA ADDRESS 00013000
- * GPR 14=RETURN ADDRESS 00014000
- * GPR 15=ENTRY POINT ADDRESS 00015000
- * 00016000
- * EXIT CONDITIONS - 1. IF ERROR IS ENCOUNTERED READING TH 00017000
- * CP DUMP FILE. GPR= NON ZERO. REFER TO 00018000
- * RDBUF FOR CODE MEANINGS. 00019000
- * 00020000
- * CALLS TO OTHER - RDBUF VIA SVC TO READ IN DUMP FILE. 00021000
- * ROUTINES ERASE VIA SVC TO DELETE THE CP DUMP 00022000
- * FILE FROM THE P-DISK. 00023000
- * CLOSIO VIA SVC TO CLOSE OUT PRINTER. 00024000
- * PRINTR VIA SVC TO PRINT A LINE ON 00025000
- * THE PRINTER. 00026000
- * TYPLIN VIA SVC TO WRITE MESSAGE TO 00027000
- * CONSOLE. 00028000
- * 00029000
- * 00030000
- * EXTERNAL REFERENCES - NONE 00031000
- * 00032000
- * 00033000
- * TABLES AND WORK AREAS - BUFF,BUFF2,HOLD,WORK,WORK2 00034000
- * 00035000
- * 00036000
- * REGISTER USAGE - GPR 0-7= SCRATCH 00037000
- * GPR 8= BUFF 00038000
- * GPR 9= BUFF2 00039000
- * GPR 10= PRTLINE 00040000
- * GPR 11= DMMEDMP+4096 00041000
- * GPR 12= DMMEDMP BASE 00042000
- * GPR 13= SAVEAREA ADDRESS 00043000
- * GPR 14= RETURN ADDRESS 00044000
- * GPR 15= RETURN CODE 00045000
- EJECT 00046000
- * 00047000
- * 00048000
- * NOTES - THE VDUMP EXEC PROCEDURE INVOKES 00049000
- * DMKFDM AND DMMEDM. 00050000
- * RE-ASSEMBLE BECAUSE SIZE OF 'VCONCTL' DSECT WAS CHANGED 00051000
- * 00052000
- * 00053000
- * OPERATION - 1. READS THE CP DUMP FROM THE CMS FILE. 00054000
- * 2. EDIT AND PRINT IN A READABLE FORMAT THE 00055000
- * FOLLOWING: 00056000
- * A. PSW'S 00057000
- * B. GPR'S, CREGS, AND FPREGS 00058000
- * C. TOD CLOCK, CLOCK COMPARATOR, CPU TIMER, 00059000
- * AND PREFIX REGISTER 00060000
- * D. CSW AND CAW 00061000
- * E. EXT, SVC, PGM, MCK, AND I/O PSWS 00062000
- * F. LOAD MAP 00063000
- * G. REAL DEVICE BLOCKS AND ASSOCIATED CONTROL 00064000
- * BLOCKS; 00065000
- * - RCHBLOK,RCUBLOK,RDEVBLOK,IOBLOK,RESPLCTL, 00066000
- * SFBLOK,IOERBLOK,ALOCBLOK,RECBLOK 00067000
- * H. SFBLOK CHAINS FOR READER,PRINTER,AND 00068000
- * PUNCH FILES. 00069000
- * I. CORE TABLE 00070000
- * J. EACH USERS VIRTUAL DEVICE BLOCKS AND 00071000
- * ASSOCIATED CONTROL BLOCKS 00072000
- * - VMBLOK,VCHBLOK,VCUBLOK,VDEVBLOK,VSPLCTL, 00073000
- * SFBLOK,VCONCTL 00074000
- * K. EACH USERS SEGMENT,PAGE,AND SWAP TABLES. 00075000
- * 3. PRINT A HEX DUMP OF CORE SUPPRESSING PRINT 00076000
- * LINES THAT ARE DUPLICATES OF THE PRECEDING 00077000
- * LINES. 00078000
- * 4. OPERATOR OPTIONS WILL ALLOW; 00079000
- * A. PREVENTION OF A FORMATTED DUMP TO PRINT 00080000
- * B. PREVENTION OF A HEX DUMP TO PRINT 00081000
- * C. THE CMS DUMP FILE TO BE ERASED. 00082000
- * D. A LOAD MAP TO BE PRINTED. 00083000
- * E. PRINTING OF DUMP AT THE USERS CONSOLE. 00084000
- * F. DEFAULT OF OPTIONS WILL CAUSE A FORMATTED 00085000
- * AND HEX DUMP TO BE PRINTED ON DEVICE 00E. 00086000
- *. 00087000
- * 5. IF A CHANNEL 12 CONDITION IS DETECTED 00088000
- * (FROM A VIRTUAL 3211) THEN THE LINE COUNT 00089000
- * IS SET TO 60 SO THAT AN EJECT WILL BE PERFORMED 00090000
- * ON THE NEXT REQUEST TO PRINT A LINE. 00091000
- * CHANNEL 9 RETURN CODES ARE IGNORED. 00092000
- EJECT 00093000
- DMMEDM CSECT @VA04250 00094000
- USING *,R15 @VA04250 00095000
- LM R11,R13,BASES LOAD BASE REGS @VA04250 00096000
- USING DMMEDM,R11,R12,R13 @VA04250 00097000
- DROP R15 @VA04250 00098000
- ENTRY DUMPLIST @VA04250 00099000
- ENTRY RETN @VA04250 00100000
- STM R14,R1,REGSAVE @V407510 00101000
- L R8,=A(ITEM2) SET BUFFER ADDRESS @VA04250 00102000
- USING ITEM2,R8 @VA04250 00103000
- MVC REGSAVE+K4(K4),=F'0' @V407510 00104000
- WRTERM VDUMSG,VDUMSGL WRITE HEADER @VA04250 00105000
- L R1,REGSAVE+K12 RESTORE R1 TO PARM LIST @V407510 00106000
- SPACE 1 00107000
- B CHKOP @VA04250 00108000
- BASES DC A(DMMEDM,DMMEDM+4096,DMMEDM+8192) @VA04250 00109000
- VDUMSG DC C'VM/370 ABEND DUMP EXTRACT, EDIT, AND PRINT' @VA04250 00110000
- VDUMSGL EQU *-VDUMSG @VA04250 00111000
- SPACE 3 00112000
- * ********************************************* 00113000
- * * DETERMINE OPTIONS SPECIFIED BY USER * 00114000
- * ********************************************* 00115000
- SPACE 3 00116000
- CHKOP LA R7,8(R1) POINT TO OPTIONS LIST @VA04250 00117000
- CLI 0(R7),XFF ANY OPTIONS ?? @VA04250 00118000
- BE READFILE NO, READ CP DUMP @VA04250 00119000
- LA R4,OPLIST PARM LIST @VA04250 00120000
- CLC 0(4,R7),=CL4'DUMP' FIRST PARM DUMP ?? @VA04250 00121000
- BE DOEDM YES, EDIT SPECIFIC FILE @VA04250 00122000
- CLC 0(3,R7),=C'PRB' FIRST PARM 'PRB'? @VA04250 00123000
- BE DOEDM YES, EDIT SPECIFIC FILE @VA04250 00124000
- OPLOOP CLC 0(8,R7),0(R4) COMP PARM @VA04250 00125000
- BE FNDOP FOUND @VA04250 00126000
- CLI 0(R4),XFF AT END @VA04250 00127000
- BE ERROP YES @VA04250 00128000
- LA R4,8(R4) NEXT PARM @VA04250 00129000
- B OPLOOP REPEAT @VA04250 00130000
- FNDOP MVI 7(R4),X01 FLAG AS FOUND @VA04250 00131000
- NXTOP LA R7,8(R7) NEXT PARM @VA04250 00132000
- LA R4,OPLIST RESET LIST @VA04250 00133000
- CLI 0(R7),XFF AT END OF OPTION LIST ?? @VA04250 00134000
- BNE OPLOOP NO, LOOK FOR MORE @VA04250 00135000
- B TSTFILE DONE @VA04250 00136000
- DOEDM MVC DUMP,0(R7) SAVE DUMP FILE NAME @VA04250 00137000
- B NXTOP GET MORE @VA04250 00138000
- ERROP MVC ERR1OP,0(R7) ERROR PARM @VA04250 00139000
- B ERROR1 EXIT @VA04250 00140000
- SPACE 2 00141000
- TSTFILE CLI DUMP,C'D' DUMP SPECIFIC FILE ?? @VA04250 00142000
- BE SETEDM YES, SET UP EDIT @VA04250 00143000
- READFILE DS 0H @VA04250 00144000
- CLI DUMP,C'P' DUMP SPECIFIC FILE ? @VA04250 00145000
- BNE RDUMP NO, READ CP DUMP @VA07214 00146000
- SPACE 2 00147000
- SETEDM MVC DUMPFILE+8(8),DUMP SET FSCB @VA04250 00148000
- FSSTATE FSCB=DUMPFILE,ERROR=ERROR3 LOOK FOR FILE @VM08728 00149000
- MVC PRBFN,DUMP MOVE REPORT FILENAME TO DUMP @VA04250 00150000
- LA R2,PRBFILE POINT TO PROBLEM REPORT FN FT @VA04250 00151000
- FSSTATE (R2),ERROR=NOREPORT @VA04250 00152000
- XC DATA,DATA CLEAR OUTPUT DATA @VA04250 00153000
- MVI CTL,SPACE1 SET FOR SINGLE SPACING @VA04250 00154000
- PNLOOP FSREAD (R2),ERROR=NOREPORT,BUFFER=DATA,BSIZE=80 @VA04250 00155000
- BAL R6,PRINTA GO PRINT THIS LINE OF REPORT @VA04250 00156000
- B PNLOOP PRINT UNTIL END OF FILE @VA04250 00157000
- NOREPORT MVI CTL,SPACE2 RESET TO DOUBLE SPACING @VA04250 00158000
- MVC DMPP,DUMP GET NAME @VA04250 00159000
- WRTERM DMSG,DMSGL @VA04250 00160000
- MVC BSIZE(4),=F'8192' SET BUFFER SIZE FOR 2 PAGES @VA04250 00161000
- B EDITDUMP DO EDIT DUMP @VA04250 00162000
- SPACE 2 00163000
- RDUMP BAL R2,READCPR READ CP RECORD @VA04250 00164000
- *********************************************************** 00165000
- ST R1,SAVEPRB SAVE R1 FOR LATER @VA05446 00166000
- L R1,REGSAVE+K12 RESTORE R1 TO PARM LIST @V407510 00167000
- L R15,=V(DMMINI) POINT TO DATA EXTRACTION RTN @VA05446 00168000
- BALR R14,R15 GO ASSIGN A DUMP NUMBER @VA05446 00169000
- L R1,SAVEPRB RESTORE R1 @VA05446 00170000
- LA R4,DUMPLIST GET NAME OF FILE @VA07214 00171000
- MVC DUMP,0(R4) SAVE FILE NAME @VA07214 00172000
- MVC DUMPFILE+8(8),0(R4) SET FSCB NAME @VA07214 00173000
- BAL R2,WTREC WRITE FIRST ITEM .. LOAD MAP @VA04250 00174000
- BAL R2,READCPR GET NEXT CP RECORD @VA04250 00175000
- BAL R2,WTREC WRITE INFO REC...REWRITE LATER @VA04250 00176000
- L R10,=A(BUFF) BASE @VA04250 00177000
- USING DMPINREC,R10 BASE @VA04250 00178000
- MVC I2GRS(4*16),DMPGPRS SAVE GREGS @VA04250 00179000
- MVC I2CRS(4*16),DMPCRS SAVE CREGS @VA04250 00180000
- MVC I2FPRS(4*8),DMPFPRS SAVE FPREGS @VA04250 00181000
- MVC I2TOD(8*4),DMPTODCK SAVE CLOCKS @VA04250 00182000
- MVC I2LCORE(256),DMPLCORE SAVE LOW CORE @VA04250 00183000
- MVC I2SYSRV,DMPSYSRV ***** DMPSYSRV ******* @VA04250 00184000
- MVC I2PRFRG,DMPPRFRG SAVE PREFIX REGISTER @V407510 00185000
- MVC I2AB,DMPABEND SAVE ABEND CODE @V407510 00186000
- MVC I2PROCA,DMPPROCA SAVE PROCESSOR ADDRESS @V407510 00187000
- * NOW BUILD ITEM TABLE FROM BIT MAP 00188000
- SR R2,R2 CLEAR @VA04250 00189000
- L R4,=A(ITEMTBL) BASE OF TABLE @VA04250 00190000
- LA R7,128 MAX WORDS @VA04250 00191000
- LA R3,DMPPGMAP BASE OF BIT MAP @VA04250 00192000
- NXTWD L R5,0(R3) GET FIRST WORD @VA04250 00193000
- LA R6,32 COUNT @VA04250 00194000
- TSTBIT LTR R5,R5 TEST FOR HI BIT @VA04250 00195000
- BNM NXTBIT NO @VA04250 00196000
- STH R2,0(R4) SAVE PAGE NUMBER IN ITEM TABLE @VA04250 00197000
- LA R4,2(R4) UP ITEM INDEX @VA04250 00198000
- NXTBIT LA R2,1(R2) UP PAGE NUMBER @VA04250 00199000
- SLL R5,1 SHIFT FOR NEXT TEST @VA04250 00200000
- BCT R6,TSTBIT REPEAT @VA04250 00201000
- LA R3,4(R3) NEXT WORD @VA04250 00202000
- BCT R7,NXTWD LOOP FOR ALL OF MAP @VA04250 00203000
- MVC 0(2,R4),=X'FFFF' MARK END OF TABLE @VA04250 00204000
- SPACE 2 00205000
- * ITEM TABLE CREATED 00206000
- BAL R2,READCPR READ KEY RECORD 1 @VA04250 00207000
- BAL R2,WTREC WRITE AS ITEM 3 @VA04250 00208000
- BAL R2,READCPR READ KEY RECORD 2 @VA04250 00209000
- BAL R2,WTREC WRITE AS ITEM 4 @VA04250 00210000
- BAL R2,READCPR READ PAGE 0 RECORD @VA04250 00211000
- MVC 0(256,R10),I2LCORE SET PAGE 0 LOW CORE @VA04250 00212000
- BAL R2,WTREC WRITE AS ITEM 5 @VA04250 00213000
- USING PSA,R10 BASE @VA04250 00214000
- MVC I2DATE,DATE @VA04250 00215000
- * CALCULATED TIME OF CRASH 00216000
- * THIS CODE FROM DMKCVTDT 00217000
- LM R0,R1,I2TOD GET TOD CLOCK AT CRASH @VA04250 00218000
- SL R1,TODATE+4 MINUS BASE AT MIDNITE @VA04250 00219000
- BC 11,*+8 OVERFLOW ?? @VA04250 00220000
- SL R0,=F'1' ADJUST @VA04250 00221000
- SL R0,TODATE .. @VA04250 00222000
- CL R0,=X'000141DD' IS THIS MAX. FOR ONE DAY ? @VA01199 00223000
- BH EDMMSG YES, BYPASS TIME @VA01199 00224000
- SRDL R0,12 MICROSECS SINCE MIDNITE @VA04250 00225000
- D R0,=F'1000000' CONVERT TO SECONDS @VA04250 00226000
- SR R0,R0 FORGET REMAINDER @VA04250 00227000
- D R0,=F'3600' GET HOURS @VA04250 00228000
- CVD R1,WORK3 .. @VA04250 00229000
- UNPK I2TIME(4),WORK3+6(3) .. @VA04250 00230000
- MVI I2TIME+2,C':' EDIT @VA04250 00231000
- LR R1,R0 REMAINING SECONDS @VA04250 00232000
- SR R0,R0 CLEAR @VA04250 00233000
- D R0,=F'60' GET MINUTES @VA04250 00234000
- CVD R1,WORK3 CONVERT @VA04250 00235000
- UNPK I2TIME+3(4),WORK3+6(3) .. @VA04250 00236000
- MVI I2TIME+5,C':' EDIT @VA04250 00237000
- CVD R0,WORK3 CONVERT SECONDS @VA04250 00238000
- UNPK I2TIME+6(2),WORK3+6(2) .. @VA04250 00239000
- OI I2TIME+7,XF0 SET ZONE @VA04250 00240000
- EDMMSG EQU * @VA01199 00241000
- MVC I2RCH(4*4),ARIOCT @VA04250 00242000
- MVC I2SPL(4*3),ARSPPR @VA04250 00243000
- MVC I2COR,ACORETBL @VA04250 00244000
- MVC I2VM,ASYSVM @VA04250 00245000
- MVC I2MPREF,PREFIXA SAVE MAIN PSA ADDR @V407510 00246000
- MVC I2APREF,PREFIXB SAVE ATTACHED PSA ADDR @V407510 00247000
- BAL R2,WTREC2 WRITE AS ITEM 2 @VA04250 00248000
- LA R2,5 RESET TO ITEM 5 @VA04250 00249000
- STH R2,ITEMNO .. @VA04250 00250000
- * TYPE CAUSE OF DUMP AND ASK TO CONTINUE 00251000
- MVC DATA(LABM),ABMSG ABEND MSG @VA04250 00252000
- MVC DATA+K25(K3),I2AB GET ABEND CODE @V407510 00253000
- L R1,I2AB GET NUMBER @V407510 00254000
- N R1,=X'000000FF' ISOLATE NUMBER @VA04250 00255000
- CVD R1,WORK3 CONVERT @VA04250 00256000
- OI WORK3+7,X0F SET ZONE @VA04250 00257000
- UNPK WORK3(3),WORK3+6(2) @VA04250 00258000
- MVC DATA+28(3),WORK3 GET ABEND CODE @VA00803 00259000
- MVC DATA+39(8),DATE MOVE MM/DD/YY @VA00803 00260000
- MVC DATA+57(8),I2TIME MOVE HH:MM:SS @VA00803 00261000
- MVC DATA+K66(K10),=C'PROCESSOR ' @V407510 00262000
- LH R1,I2PROCA GET PROCESSOR ADDRESS @V407510 00263000
- CVD R1,WORK3 CONVERT TO DECIMAL @V407510 00264000
- OI WORK3+K7,X0F SET ZONE @V407510 00265000
- UNPK WORK3(K2),WORK3+6(K2) PUT IN FINAL FORM @V407510 00266000
- MVC DATA+K76(K2),WORK3 MOVE PROCESSOR ADDRESS @V407510 00267000
- WRTERM DATA,K78 @V407510 00268000
- REREAD WRTERM ASKMSG,ASKMSGL @VA04250 00269000
- RDTERM DATA,EDIT=YES @VA04250 00270000
- CLC DATA(3),=CL3'NO ' @VA04250 00271000
- BE NOFDMP NO DUMP WANTED @VA04250 00272000
- CLC DATA(4),=CL4'YES ' IS IT YES REPLY ?? @VA04250 00273000
- BNE REREAD NO, ASK AGAIN @VA04250 00274000
- MVC CMP,DUMP FILE NAME @VA04250 00275000
- WRTERM CMSG,CMSGL CONFIRM DUMP @VA04250 00276000
- LOOP BAL R2,READCPR GET NEXT CP RECORD @VA04250 00277000
- BAL R2,WTREC WRITE IT OUT @VA04250 00278000
- B LOOP DO UNTIL READCPR GIVES EOF @VA04250 00279000
- SPACE 3 00280000
- READCPR L R6,=A(BUFF) WHERE TO READ @VA04250 00281000
- LA R7,X'00C' READER ADDRESS @VA04250 00282000
- DC X'83670034' DIAG...READ CP DUMP FILE SEQ'LY @VA04250 00283000
- BZR R2 RETURN - DATA IS IN THE BUFFER @VM08728 00284000
- * 00285000
- DIAGRTN BC 4,DMPEND1 EOF @VA04250 00286000
- BC 2,NODMP READER EMPTY @VA04250 00287000
- WRTERM DM0,DM0L DIAG FAILED @VA04250 00288000
- BAL R2,ERASE @VA04250 00289000
- LA R15,21 RETURN @VA04250 00290000
- RETN DS 0H @V407510 00291000
- ST R15,REGSAVE+K4 @V407510 00292000
- EXIT DS 0H @V407510 00293000
- LM R14,R15,REGSAVE RESTORE REGS @V407510 00294000
- BR R14 RETURN TO CMS @VA04250 00295000
- SPACE 3 00296000
- WTREC LH R1,ITEMNO GET ITEM NUMBER @VA04250 00297000
- LA R1,1(R1) BUMP @VA04250 00298000
- STH R1,ITEMNO SET FOR WRITE @VA04250 00299000
- FSWRT FSWRITE FSCB=DUMPFILE,BUFFER=BUFF,ERROR=ERRWRT @VA04250 00300000
- BR R2 @VA04250 00301000
- * 00302000
- WTREC2 FSWRITE FSCB=DUMPFILE,BUFFER=ITEM2,ERROR=ERRWRT,RECNO=2 00303000
- BR R2 @VA04250 00304000
- SPACE 2 00305000
- DMPEND1 MVC DM1P,DUMP SET FILE NAME @VA04250 00306000
- WRTERM DM1,DM1L @VA04250 00307000
- FSCLOSE FSCB=DUMPFILE SAVE DUMP FILE @VA04250 00308000
- *************************************************************** 00309000
- * CALL DMMEXT FOR EXTRACTION 00310000
- *************************************************************** 00311000
- L R15,=V(DMMEXT) POINT TO EXTRACTION PROGRAM @VA04250 00312000
- BALR R14,R15 GO DO DATA EXTRACTION @VA04250 00313000
- BAL R2,CLRDR CLOSE DUMP READER FILE @VA04250 00314000
- B SETEDM SET UP TO EDIT DUMP @VA04250 00315000
- EJECT 00316000
- * ******************************************************** 00317000
- * * THIS ROUTINE WILL PRINT OUT TIME,DATE,CAUSE * 00318000
- * * GPRS,CONTROL REGS,FPRS, AND THE PSWS. * 00319000
- * ************************************************** 00320000
- SPACE 3 00321000
- EDITDUMP DS 0H @VA04250 00322000
- DROP R10 @VA04250 00323000
- FSREAD FSCB=DUMPFILE,BUFFER=ITEM2,ERROR=QUIT,RECNO=2 @VA04250 00324000
- CLI NOFORMAT+7,X01 NO FORMAT WANTED ?? @VA04250 00325000
- BE HEXDUMP NO @VA04250 00326000
- PREREG L R8,=A(ITEM2) SET BASE @VA04250 00327000
- MVC RCHINDEX(4*K9),I2RCH GET POINTERS @V4M0004 00328000
- MVC RDATE(8*K2),I2DATE GET DATE & TIME @V4M0004 00329000
- MVC ABCODE(4),I2AB GET ABEND CODE @V4M0004 00330000
- MVC RSYSRV,I2SYSRV GET STORAGE SIZE @V4M0004 00331000
- MVC DATA(LABM),ABMSG ABEND MSG @VA04250 00332000
- MVC DATA+25(3),I2AB ABEND CODE @VA04250 00333000
- L R1,I2AB GET NUMBER @VA04250 00334000
- N R1,=X'000000FF' ISOLATE NUMBER @VA04250 00335000
- CVD R1,WORK3 CONVERT @VA04250 00336000
- OI WORK3+7,X0F SET ZONE @VA04250 00337000
- UNPK WORK3(3),WORK3+6(2) @VA04250 00338000
- MVC DATA+28(3),WORK3 SET NUMBER @VA02058 00339000
- MVC DATA+38(8),I2DATE @VA04250 00340000
- MVC DATA+56(8),I2TIME @VA04250 00341000
- MVC DATA+K65(K10),=C'PROCESSOR ' @V407510 00342000
- LH R1,I2PROCA GET PROCESSOR ADDRESS @V407510 00343000
- CVD R1,WORK3 CONVERT TO DECIMAL @V407510 00344000
- OI WORK3+K7,X0F SET ZONE @V407510 00345000
- UNPK WORK3(2),WORK3+K6(K2) PUT IN FINAL FORM @V4M0004 00346000
- MVC DATA+K75(K2),WORK3 MOVE PROCESSOR ADDRESS @V4M0004 00347000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 00348000
- MVI CTL,SPACE2 @VA04250 00349000
- PRELIM3A BAL R6,PRINTA @VA04250 00350000
- SPACE 2 00351000
- * FORMAT AND PRINT GPRS AND CONTROL REGS 00352000
- SPACE 2 00353000
- PRELIM4 DS 0H @VA04250 00354000
- LR R7,R8 SAVE BUFFER POINTER @VA04250 00355000
- MVC DATA(K9),=C'GREGS 0-7' @VA04250 00356000
- LA R9,I2GRS DATA @VA04250 00357000
- PRELIM5 EQU * @VA04250 00358000
- LA R10,K2 TWO LINES OF PRINT FOR GPRS @VA04250 00359000
- LA R3,K64 LENGTH @VA04250 00360000
- BAL R6,TRANINIT GO UNPACK @VA04250 00361000
- LA R5,WORK+8 FROM ADDRESS @VA04250 00362000
- PRELIM6 LA R4,DATA+12 TO ADDRESS @VA04250 00363000
- LA R2,K64 LENGTH @VA04250 00364000
- BAL R6,MVSBRTN GO MOVE 8 REGS @VA04250 00365000
- BAL R6,PRINTA @VA04250 00366000
- MVC DATA+5(K4),=C'8-15' @VA04250 00367000
- MVI CTL,SPACE1 SET TO SINGLE SPACE @VA04250 00368000
- BCT R10,PRELIM6 @VA04250 00369000
- PRELIM7 NOP PRELIM8 @VA04250 00370000
- MVI CTL,SPACE2 SPACE 2 @VA04250 00371000
- MVC DATA(K9),=C'CREGS 0-7' @VA04250 00372000
- MVI PRELIM7+1,XF0 SET TO UNCONDITIONAL BRANCH @VA04250 00373000
- LA R9,I2CRS DATA @VA04250 00374000
- B PRELIM5 GO BACK AND DO CONTROL REGS @VA04250 00375000
- SPACE 2 00376000
- * FORMAT AND PRINT FLOATING POINT REGS 00377000
- SPACE 2 00378000
- PRELIM8 MVI CTL,SPACE2 SET TO DOUBLE SPACE @VA04250 00379000
- MVI PRELIM7+1,X00 RESTORE NOP @VA04250 00380000
- LA R9,I2FPRS DATA @VA04250 00381000
- LA R3,K32 LENGTH @VA04250 00382000
- BAL R6,TRANINIT TRANSLATE @VA04250 00383000
- LA R5,WORK+8 FROM ADDR @VA04250 00384000
- LA R4,DATA+12 TO ADDR @VA04250 00385000
- LA R2,K64 LENGTH @VA04250 00386000
- BAL R6,MVSBRTN @VA04250 00387000
- MVC DATA(K9),=C'FPRGS 0-4' @VA04250 00388000
- BAL R6,PRINTA @VA04250 00389000
- SPACE 2 00390000
- * FORMAT TOD CLK ,COMPARATOR, AND CPU TIMER 00391000
- SPACE 2 00392000
- LA R9,I2TOD DATA @VA04250 00393000
- LA R3,K24 LENGTH @VA04250 00394000
- BAL R6,TRANINIT TRANSLATE @VA04250 00395000
- MVC DATA(K9),=C'TOD CLOCK' @VA04250 00396000
- MVC DATA+12(8),WORK+8 FIRST WORD OF CSW @VA04250 00397000
- MVC DATA+22(8),WORK+16 SECOND WORD @VA04250 00398000
- MVC DATA+36(K14),=C'TOD CLOCK COMP' @VA04250 00399000
- MVC DATA+52(K8),WORK+40 MOVE 1ST WD OF COMP TO BUFF @VA04250 00400000
- MVC DATA+62(K8),WORK+48 MOVE SECOND WORD @VA04250 00401000
- BAL R6,PRINTA @VA04250 00402000
- MVC DATA(K9),=C'CPU TIMER' @VA04250 00403000
- MVC DATA+12(K8),WORK+24 MOVE FIRST WORD OF TIMER @VA04250 00404000
- MVC DATA+22(K8),WORK+32 MOVE SECOND WORD OF TIMER @VA04250 00405000
- LA R3,K4 LENGTH FOR TRANSLATE @V407510 00406000
- LA R9,I2PRFRG ADDRESS OF PREFIX AREA ADDRESS @V407510 00407000
- BAL R6,TRANINIT TRANSLATE @V407510 00408000
- MVC DATA+K36(K11),=C'PREFIX REG ' @V407510 00409000
- MVC DATA+K52(K8),WORK+K8 MOVE PREFIX REGISTER @V407510 00410000
- BAL R6,PRINTA @VA04250 00411000
- SPACE 2 00412000
- * FORMAT AND PRINT PSWS 00413000
- SPACE 2 00414000
- PRELIM11 DS 0H @V407510 00415000
- L R5,I2PRFRG GET PREFIX REG OF ABENDING PROC @V407510 00416000
- LA R3,K256 PAGE LENGTH IN DOUBLEWORDS @V407510 00417000
- MVI ERRINDX,IX1C SET ERROR INDEX FOR GETPAGE @V407510 00418000
- BAL R2,GETPAGE GET PSA PAGE IN CORE @V407510 00419000
- USING PSA,R9 SET UP ADDRESSABILITY FOR PSA @V407510 00420000
- L R5,INTKFLIN GET I/O INT CODE @V407510 00421000
- ST R5,WORK2 SAVE @VA04250 00422000
- LA R9,EXOPSW ADDRESS OF DATA TO BE PRINTED @V407510 00423000
- LA R3,120 THIS MANY BYTES @VA04250 00424000
- BAL R6,TRANINIT TRANSLATE @VA04250 00425000
- MVC DATA(K3),=C'CSW' @VA04250 00426000
- MVC DATA+5(K8),WORK+88 MOVE LEF HALF OF CSW @VA04250 00427000
- MVC DATA+15(K8),WORK+96 MOVE RIGHT HALF OF CSW @VA04250 00428000
- MVC DATA+30(K3),=C'CAW' @VA04250 00429000
- MVC DATA+35(K8),WORK+104 MOVE IN CAW ADDR @VA04250 00430000
- MVC DATA+51(9),=CL9'INT TIMER' @VA04250 00431000
- MVC DATA+62(8),WORK+120 @VA04250 00432000
- BAL R6,PRINTA @VA04250 00433000
- MVC DATA(K11),=C'EXT OLD PSW' @VA04250 00434000
- MVC DATA+13(K4),WORK+228 GET INTERRUPT CODE @VA04250 00435000
- MVC DATA+19(K8),WORK+8 MOVE LEFT HALF OF PSW @VA04250 00436000
- MVC DATA+29(K8),WORK+16 MOVE RIGHT HALF @VA04250 00437000
- MVC DATA+60(K11),=C'EXT NEW PSW' @VA04250 00438000
- MVC DATA+73(K8),WORK+136 MOVE LSFT HALF @VA04250 00439000
- MVC DATA+83(K8),WORK+144 MOVE RIGHT HALF @VA04250 00440000
- BAL R6,PRINTA @VA04250 00441000
- MVC DATA(K11),=C'SVC OLD PSW' @VA04250 00442000
- MVC DATA+13(K4),WORK+236 MOVE INTERRUPT CODE @VA04250 00443000
- MVC DATA+19(K8),WORK+24 MOVE LEFT HALF OF PSW @VA04250 00444000
- MVC DATA+29(K8),WORK+32 MOVE RIGHT HALF @VA04250 00445000
- PRELIM12 MVC DATA+60(K11),=C'SVC NEW PSW' @VA04250 00446000
- MVC DATA+73(K8),WORK+152 MOVE LEFT HALF @VA04250 00447000
- MVC DATA+83(K8),WORK+160 MOVE RIGHT HALF @VA04250 00448000
- BAL R6,PRINTA @VA04250 00449000
- MVC DATA(K11),=C'PGM OLD PSW' @VA04250 00450000
- MVC DATA+13(K4),WORK+244 MOVE INTERRUP CODE @VA04250 00451000
- MVC DATA+19(K8),WORK+40 MOVE LEFT HALF @VA04250 00452000
- MVC DATA+29(K8),WORK+48 MOVE RIGHT HALF @VA04250 00453000
- PRELIM13 MVC DATA+60(K11),=C'PGM NEW PSW' @VA04250 00454000
- MVC DATA+73(K8),WORK+168 MOVE LEFT HALF @VA04250 00455000
- MVC DATA+83(K8),WORK+176 MOVE RIGHT HALF @VA04250 00456000
- BAL R6,PRINTA @VA04250 00457000
- MVC DATA(K11),=C'MCK OLD PSW' @VA04250 00458000
- MVC DATA+19(K8),WORK+56 MOVE LEFT HALF OF PSW @VA04250 00459000
- MVC DATA+29(K8),WORK+64 MOVE RIGHT HALF @VA04250 00460000
- MVC DATA+60(K11),=C'MCK NEW PSW' @VA04250 00461000
- MVC DATA+73(K8),WORK+184 MOVE LEFT HALF OF PSW @VA04250 00462000
- MVC DATA+83(K8),WORK+192 MOVE RIGHT HALF @VA04250 00463000
- BAL R6,PRINTA @VA04250 00464000
- MVC DATA(11),=C'I/O OLD PSW' @VA04250 00465000
- MVC DATA+13(4),WORK+4 @VA04250 00466000
- MVC DATA+19(8),WORK+72 @VA04250 00467000
- MVC DATA+29(8),WORK+80 @VA04250 00468000
- MVC DATA+60(11),=C'I/O NEW PSW' @VA04250 00469000
- MVC DATA+73(8),WORK+200 @VA04250 00470000
- MVC DATA+83(8),WORK+208 @VA04250 00471000
- BAL R6,PRINTA @VA04250 00472000
- DROP R9 @V407510 00473000
- EJECT 00474000
- * ************************************************** 00475000
- * * THE FOLLOWING ROUTINE WILL PRINT OUT THE LOAD 00476000
- * * MODULE MAP¬ THE MAP IS LOCATED IN ITEM = OF THE* 00477000
- * * CMS DUMP FILE¬ * 00478000
- * ************************************************** 00479000
- SPACE 3 00480000
- LOADMAP CLI MAP+7,X01 WAS A MAP REQUESTED @VA04250 00481000
- BE PREND NO MAP @VA04250 00482000
- MVC LINECT,=H'60' EJECT @VA04250 00483000
- MVI CTL,SPACE2 SET FOR SINGLE SPACE @VA04250 00484000
- MVI SPACENUM+1,X02 @VA04250 00485000
- FSREAD FSCB=DUMPFILE,BUFFER=BUFF,ERROR=QUIT,RECNO=1 @VA04250 00486000
- L R3,=A(BUFF) SET BASE @VA04250 00487000
- LOADMAP2 LA R4,DATA DATA START @VA04250 00488000
- LA R5,5 FIVE SYMBOLS PER LINE @VA04250 00489000
- LOADMAP1 UNPK WORK(K9),K8(K5,R3) UNPK THE ADDR @VA04250 00490000
- TR WORK(K8),TTAB-240 @VA04250 00491000
- MVC 0(8,R4),0(R3) MOVE SYMBOL @VA04250 00492000
- MVC 11(6,R4),WORK+2 MOVE ADDRESS @VA04250 00493000
- MVI 9(R4),C'-' @VA04250 00494000
- LA R4,24(R4) BUMP DATA AREA @VA04250 00495000
- CLC 12(4,R3),=F'0' END OF LOAD MAP ? @VM08728 00496000
- BE MAPEND YES @VA04250 00497000
- LA R3,12(R3) NEXT SYMBOL @VA04250 00498000
- BCT R5,LOADMAP1 LOOP TIMES @VA04250 00499000
- BAL R6,PRINTA PRINT LINE @VA04250 00500000
- B LOADMAP2 REPEAT @VA04250 00501000
- MAPEND BAL R6,PRINTA PRINT LAST LINE @VA04250 00502000
- PREND NOP RDKEY @VA01570 00503000
- EJECT 00504000
- * 00505000
- * THIS SECTION FORMATS REAL CHANNEL BLOCKS- RCHBLOK 00506000
- * 00507000
- RCHFORM MVC LINECT,=H'60' @VA04250 00508000
- USING BLOKFORM,R10 @VA04250 00509000
- LA R10,DATA ADDR O/P AREA @VA04250 00510000
- L R5,RCHINDEX ADDR REAL CHANNEL BLK INDEX TBL @VA04250 00511000
- MVI ERRINDX,IX00 SET ERROR INDEX FOR GETPAGE @VA01570 00512000
- LA R3,4 4 DBLWDS @VA04250 00513000
- BAL R2,GETPAGE GET PAGE WITH TABLE @VA04250 00514000
- MVC CHINDEX(K32),K0(R9) SAVE REAL CHAN BLK INDEX TBL@VA04250 00515000
- L R4,CHDEX INITIAL ENTRY IN CHAN INDEX TABLE@VA04250 00516000
- RCHINIT EQU * @VA04250 00517000
- CLC K0(K2,R4),FFFF VALID CHAN TBL. ENTRY? @VA04250 00518000
- BNE RCHPRC YES, PROCESS CHAN. BLOCK @VA11255 00519000
- CHLOOP EQU * @VA01570 00520000
- C R4,CHANLAST LAST CHAN. TBL. ENTRY? @VA04250 00521000
- BE SFFORM @VA04250 00522000
- LA R4,K2(,R4) GET NEXT TBL. ENTRY ADDR. @VA04250 00523000
- B RCHINIT CHECK NEXT ENTRY @VA04250 00524000
- SPACE 1 00525000
- * AT THIS POINT REG 4 CONTAINS ADDR OF INDEX TABLE ENTRY FOR RCHBLOK 00526000
- * TO BE PROCESSED 00527000
- SPACE 1 00528000
- RCHPRC EQU * @VA11255 00529000
- ST R4,CHDEX SAVE ADDR CURR CH INDEX TBL ENTRY@VA04250 00530000
- LH R5,K0(,R4) NDEX INTO RCHBLOK'S FOR THIS CHAN@VA04250 00531000
- A R5,RCHSTRT + START ADDR RCHBLOK'S=NEW BLK AD@VA04250 00532000
- ST R5,WORK2 SAVE RCHBLOK ADDR @VA04250 00533000
- ST R5,CHAINCK SAVE FOR IOBLOK CHECK @VA04250 00534000
- MVI ERRINDX,IX01 SET ERROR INDEX FOR GETPAGE @VA01570 00535000
- LA R3,RCHSIZE SIZE @VA04250 00536000
- BAL R2,GETPAGE GET PAGE WITH RCHBLOK TO PRINT @VA04250 00537000
- USING RCHBLOK,R9 REAL CHANNEL BLOCK DSECT @VA04250 00538000
- MVC CUINDEX(K64),RCHCUTBL SAVE REAL CU INDEX TABLE @VA04250 00539000
- MVC IOBCHAIN(K4),RCHFIOB SAVE ADDR 1ST IOBLOK QUEUED@VA04250 00540000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 00541000
- BAL R6,TRANINIT TRANSLATE BLOCK @VA04250 00542000
- * 00543000
- * RCHBLOK HEADINGS FORMATED HERE 00544000
- * 00545000
- MVC HCHBADDR(6),WORK+2 CHAN ADDRESS @VA04250 00546000
- SR R4,R4 CLEAR REG. @VA04250 00547000
- IC R4,RCHADD GET CHANNEL ADDR @VA04250 00548000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 00549000
- AR R4,R5 ADDR OF TRANSLATED CHAR. @VA04250 00550000
- MVC HCHNO(K1),K0(R4) MOVE CHN NO. IN CHAR TO HDNG@VA04250 00551000
- SPACE 1 00552000
- * SET UP FOR WRITING CHANNEL BLOCK 00553000
- SPACE 1 00554000
- LA R2,HCHBLK ADDR OF RCHBLOK HEADING @VA04250 00555000
- LA R3,3 HEADINGINGS @VA04250 00556000
- LA R5,RCHSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 00557000
- LA R7,FRCHBLK INITIAL START ADDR IN O/P AREA @VA04250 00558000
- BAL R6,BLKPRINT GO PRINT RCHBLOK @VA04250 00559000
- * 00560000
- * ANY IOBLOKS CHAINED OFF OF THE RCHBLOK JUST PRINTED ARE PRINTED NOW 00561000
- * 00562000
- MVC HIOBLKS(K13),HIOBLOK PUT 'IOBLOK' IN HEADING @VA04250 00563000
- BAL R6,IOBPRINT GO TO IOBLOK PRINT ROUTINE @VA04250 00564000
- * 00565000
- * THIS SECTION FORMATS REAL CONTROL UNIT BLOCKS- RCUBLOK 00566000
- * 00567000
- L R4,CUDEX GET ADDR OF INITIAL ENTRY @VA04250 00568000
- RCUINIT EQU * @VA04250 00569000
- CLC K0(K2,R4),FFFF VALID TABLE ENTRY? @VA04250 00570000
- BNE RCUPRC YES, PROCESS BLOCK @VA11255 00571000
- CULOOP EQU * @VA01570 00572000
- C R4,RCULAST LAST CONTROL UNIT ENTRY? @VA04250 00573000
- BE CKCHAN YES, CK IF ANOTHER CHAN EXISTS @VA04250 00574000
- LA R4,K2(,R4) GET NEXT TABLE ENTRY ADDR. @VA04250 00575000
- B RCUINIT CHECK NEXT TABLE ENTRY @VA04250 00576000
- * 00577000
- * AT THIS POINT REG 4 CONTAINS ADDR OF INDEX TABLE ENTRY FOR RCUBLOK 00578000
- * TO BE PROCESSED 00579000
- * 00580000
- RCUPRC EQU * @VA11255 00581000
- ST R4,CUDEX SAVE ADDR CURR CU INDEX TBL ENTRY@VA04250 00582000
- LH R5,K0(,R4) GET DISP INTO CU TBLS FOR THIS CU@VA04250 00583000
- A R5,RCUSTRT PLUS CU TBL'S BASE =RCUBLOK ADDR @VA04250 00584000
- ST R5,CHAINCK SAVE FOR IOBLOK CHECK @VA04250 00585000
- ST R5,WORK2 SAVE RCUBLOK ADDR FOR TRANSLATION@VA04250 00586000
- MVI ERRINDX,IX02 SET ERROR INDEX FOR GETPAGE @VA01570 00587000
- LA R3,RCUSIZE SIZE @VA04250 00588000
- BAL R2,GETPAGE GET PAGE WITH TABLE @VA04250 00589000
- USING RCUBLOK,R9 @VA04250 00590000
- MVC DEVINDEX(K32),RCUDVTBL SAVE DEV NDX TBL FOR THIS@VA04250 00591000
- * CONTROL UNIT 00592000
- MVC IOBCHAIN(K4),RCUFIOB SV ADD 1ST IOBLOK QD TO RCU@VA04250 00593000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 00594000
- BAL R6,TRANINIT TRANSLATE RCUBLOK & ITS ADDR @VA04250 00595000
- * 00596000
- * RCUBLOK HEADINGS FORMATED HERE 00597000
- * 00598000
- MVC HCUBADDR(6),WORK+2 CU ADDRESS @VA04250 00599000
- SR R4,R4 CLEAR REG. @VA04250 00600000
- IC R4,RCUADD+1 GET CONTROL UNIT ADDR @VA04250 00601000
- SRL R4,4 MOVE UNIT NO TO LOW-ORDER FOR NDX@VA04250 00602000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 00603000
- AR R4,R5 ADDR OF TRANSLATED CHAR. @VA04250 00604000
- MVC HCUNO+1(K1),K0(R4) MOVE CU NO. IN CHAR TO HEAD @VA04250 00605000
- MVC HCUNO(K1),HCHNO PUT CHAN NO. IN UNIT ADDR. @VA04250 00606000
- SPACE 1 00607000
- * SETUP FOR WRITING REAL CONTROL UNIT BLOCK 00608000
- SPACE 1 00609000
- LA R2,HCUBLK ADDR OF RCUBLOK HEADING @VA04250 00610000
- LA R3,K3 NO. OF HEADING LINES @VA04250 00611000
- LA R5,RCUSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 00612000
- LA R7,FRCUBLK INITIAL START ADDR IN O/P AREA @VA04250 00613000
- BAL R6,BLKPRINT GO PRINT RCUBLOK @VA04250 00614000
- * 00615000
- * IOBLOKS CHAINED OFF OF THE RCUBLOK JUST PRINTED ARE PRINTED NOW 00616000
- * 00617000
- MVC HIOBLKS(K13),HIOBLOK PUT 'IOBLOK IN HEADING @VA04250 00618000
- BAL R6,IOBPRINT GO TO IOBLOK PRINT ROUTINE @VA04250 00619000
- * 00620000
- * THIS SECTION FORMATS REAL DEVICE BLOCKS- RDEVBLOK 00621000
- * 00622000
- L R4,DEVDEX GET ADDR INITIAL ENTRY IN DEVICE @VA04250 00623000
- * INDEX TABLE 00624000
- RDEVINIT EQU * @VA04250 00625000
- CLC K0(K2,R4),FFFF VALID DEV. TBL. ENTRY? @VA04250 00626000
- BNE RDEVPRC YES, PROCESS BLOCK @VA11255 00627000
- CKDEV EQU * @VA01570 00628000
- C R4,DEVLAST LAST DEVICE ENTRY? @VA04250 00629000
- BE CKCU YES, CK FOR ANOTHER CONTROL UNIT @VA04250 00630000
- LA R4,K2(,R4) GET NEXT TABLE ENTRY ADDR. @VA04250 00631000
- B RDEVINIT CHECK NEXT TABLE ENTRY @VA04250 00632000
- SPACE 1 00633000
- * AT THIS POINT REG 4 CONTAINS ADDR OF INDEX TABLE ENTRY FOR RDEVBLOK 00634000
- * TO BE PROCESSED 00635000
- SPACE 1 00636000
- RDEVPRC EQU * @VA11255 00637000
- ST R4,DEVDEX SAVE ADR CURR DEV NDX TBL ENTRY @VA04250 00638000
- LH R5,K0(,R4) DISP INTO RDEVBLOKS FOR THIS DEV @VA04250 00639000
- SLL R5,3(0) CONVERT TO BYTE INDEX @VM08728 00640000
- A R5,RDEVSTRT PLUS DEV TBL'S BASE=RDEVBLOK ADDR@VA04250 00641000
- ST R5,LIOBDEV SAVE FOR IOBLOK CHAIN CHECK @VA04250 00642000
- ST R5,WORK2 SAVE RDEVBLOK ADDR FOR TRANS @VA04250 00643000
- MVI ERRINDX,IX03 SET ERROR INDEX FOR GETPAGE @VA01570 00644000
- LA R3,RDEVSIZE SIZE @VA04250 00645000
- BAL R2,GETPAGE GET PAGE WITH RDEVBLOK @VA04250 00646000
- USING RDEVBLOK,R9 @VA04250 00647000
- TM RDEVTYPC,CLASURI+CLASURO SPOOL DEV ?? @VA04250 00648000
- BZ TSTRCON NO, TEXT FOR CONSOLE @VA04250 00649000
- L R5,RDEVSPL GET POINTER @VA04250 00650000
- LTR R5,R5 TEST @VA04250 00651000
- BZ RIOB NONE @VA04250 00652000
- TM RDEVFLAG,RDEVACNT WAS IT DOING ACNTNG STUFF? @VA05034 00653000
- BO RIOB YES - DONT TRY TO FORMAT RSPLCTL @VA05034 00654000
- ST R5,SPOOLSAV SAVE @VA04250 00655000
- OI SPOOLSW,XFF SET SW @VA04250 00656000
- B RIOB @VA04250 00657000
- TSTRCON TM RDEVTYPC,CLASTERM+CLASGRAF CONTASK CHAIN ? @VM08728 00658000
- BZ ROWN NO @VA04250 00659000
- L R5,RDEVCON GET POINTER @VA04250 00660000
- LTR R5,R5 TEST @VA04250 00661000
- BZ RIOB NONE @VA04250 00662000
- ST R5,VCONAD SAVE @VA04250 00663000
- OI CONSW,XFF SET SW @VA04250 00664000
- B RIOB @VA04250 00665000
- ROWN TM RDEVTYPC,CLASDASD DASD ?? @VA04250 00666000
- BZ RIOB NO @VA04250 00667000
- TM RDEVFLAG,RDEVOWN CP VOL ?? @VA04250 00668000
- BZ RIOB NO @VA04250 00669000
- L R5,RDEVPAGE GET ALLOC @VA04250 00670000
- ST R5,PAGBLOK SAVE @VA04250 00671000
- L R5,RDEVRECS SPOOL ALLOC @VA04250 00672000
- ST R5,SPLBLOK SAVE @VA04250 00673000
- OI OWNSW,XFF SET SW @VA04250 00674000
- RIOB DS 0H @VA04250 00675000
- MVC IOBDEV(K4),RDEVFIOB SVE ADR 1ST IOBLOK QD TO DEV@VA04250 00676000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 00677000
- BAL R6,TRANINIT TRANSLATE RDEVBLOK & ITS ADDR. @VA04250 00678000
- L R5,RDEVIOER GET ADDR IOERBLOK-IF ANY @VA04250 00679000
- LTR R5,R5 IS THERE AN IOERBLOK FOR THIS DEV@VA04250 00680000
- BZ NOIOER NO @VA04250 00681000
- OI IOERSW,XFF SET ERROR BLOCK SWITCH @VA04250 00682000
- ST R5,ERRBLOCK SAVE ADDR IOERBLOK @VA04250 00683000
- NOIOER EQU * @VA04250 00684000
- L R5,RDEVAIOB GET ADDR ACTIVE IOBLOK @VA04250 00685000
- LTR R5,R5 IS THIS ONE ACTIVE @VA04250 00686000
- BZ SETDVHD NO @VA04250 00687000
- OI ACTIOBSW,XFF SET ACTIVE IOB SWITCH @VA04250 00688000
- ST R5,AIOB SAVE ACTIVE IOBLOK ADDR @VA04250 00689000
- * 00690000
- * RDEVBLOK HEADINGS FORMATED HERE 00691000
- * 00692000
- SETDVHD EQU * @VA04250 00693000
- MVC HDBADDR(6),WORK+2 DEV ADDRESS @VA04250 00694000
- MVC HDEVNO(K1),RDEVADD+1 GET CU & DEVICE ADDR. @VA04250 00695000
- NI HDEVNO,X0F CLEAR CU ADDR. @VA04250 00696000
- SR R4,R4 CLEAR REG. @VA04250 00697000
- IC R4,HDEVNO GET DEVICE ADDR @VA04250 00698000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 00699000
- AR R4,R5 ADDR OF TRANSLATED CHAR. @VA04250 00700000
- MVC HDEVNO+2(K1),K0(R4) PUT DEV ADDR IN CHAR IN HEAD@VA04250 00701000
- MVC HDEVNO(K2),HCUNO PUT CH & CU ADDR IN DEV ADDR @VA04250 00702000
- SPACE 1 00703000
- * SETUP FOR WRITING REAL DEVICE BLOCK 00704000
- SPACE 1 00705000
- LA R2,HDEVBLK ADDR DEVICE BLOCK HEADINGS @VA04250 00706000
- LA R3,3 HEADINGS @VA04250 00707000
- LA R5,RDEVSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 00708000
- LA R7,FRDEVBLK INITIAL START ADDR IN O/P AREA @VA04250 00709000
- BAL R6,BLKPRINT PRINT FORMATED RDEVBLOK @VA04250 00710000
- SPACE 1 00711000
- * ACTIVE IOBLOK FORMATED HERE 00712000
- SPACE 1 00713000
- TM ACTIOBSW,XFF ACTIVE IOBLOK ON THIS DEVICE? @VA04250 00714000
- BZ IOBPRC NO, PROC IOBLOKS CHAINED TO DEV @VA11255 00715000
- MVC HIOBLKS(K13),HACTIO PUT ACTIVE IOBLOCK IN HEADNG@VA04250 00716000
- MVC IOBCHAIN(K4),AIOB ACTIVE IOBLOK ADDR @VA04250 00717000
- BAL R6,IOBPRINT PRINT ACTIVE IOBLOK @VA04250 00718000
- NI ACTIOBSW,255-XFF CLEAR SWITCH @VA04250 00719000
- SPACE 1 00720000
- * REAL DEVICE IOBLOK PROCESSING 00721000
- SPACE 1 00722000
- IOBPRC EQU * @VA11255 00723000
- MVC CHAINCK(K4),LIOBDEV ADR OF RDEVBLOK FOR CHAIN CK@VA04250 00724000
- MVC HIOBLKS(K13),HIOBLOK PUT 'IOBLOK IN HEADING @VA04250 00725000
- MVC IOBCHAIN(K4),IOBDEV FIRST IOBLOK ADDR -IF ANY @VA04250 00726000
- BAL R6,IOBPRINT GO TO IOBLOK PRINT ROUTINE @VA04250 00727000
- SPACE 1 00728000
- * PRINT CONTASKS FOR TERMINAL 00729000
- SPACE 1 00730000
- TM CONSW,XFF TEST @VA04250 00731000
- BZ TSTRSPL TEST FOR SPOOL @VA04250 00732000
- MVI CONSW,X00 CLEAR @VA04250 00733000
- CONLOOP L R5,VCONAD GET CONTASK ADDRESS @VA04250 00734000
- LTR R5,R5 TEST FOR ANY @VA04250 00735000
- BZ IOERPRNT NONE @VA04250 00736000
- ST R5,WORK2 SAVE @VA04250 00737000
- LA R3,16(0,0) MAX SIZE (FOR PRINTING) @VM08728 00738000
- MVI ERRINDX,IX04 SET ERROR INDEX FOR GETPAGE @VA01570 00739000
- BAL R2,GETPAGE GET BUFFER @VA04250 00740000
- USING CONTASK,R9 @VA04250 00741000
- LH R3,CONTSKSZ GET SIZE @VM08728 00742000
- SLL R3,3 ... IN BYTES @VA04250 00743000
- BAL R6,TRANINIT TRANSLATE @VA04250 00744000
- MVC HIOBLKS(13),HCONTASK HEADING @VA04250 00745000
- MVC HIOBADDR(6),WORK+2 ADDRESS @VA04250 00746000
- LA R2,HIOBLKS HEADINGS @VA04250 00747000
- LA R3,2 TWO @VA04250 00748000
- LH R5,CONTSKSZ CONTASK SIZE (DBL-WDS) @VM08728 00749000
- LTR R5,R5 AVOID ENDLESS LOOPS @VA01570 00750000
- BNP ONLY16 ON ZERO AND MINUS @VA01570 00751000
- CH R5,=H'16' MORE THAN WAS TRANSLATED ? @VM08728 00752000
- BNH *+8 NO - O.K. @VM08728 00753000
- ONLY16 EQU * @VA01570 00754000
- LA R5,16(0,0) CAN ONLY PRINT 128 BYTES @VM08728 00755000
- LA R7,FSPOOL DISP @VA04250 00756000
- L R6,CONPNT GET NEXT ADDRESS @VA04250 00757000
- ST R6,VCONAD SAVE @VA04250 00758000
- BAL R6,BLKPRINT PRINT IT @VA04250 00759000
- B CONLOOP DO ALL OF THEM @VA04250 00760000
- SPACE 1 00761000
- * IF THIS DEVICE IS A UNIT RECORD TYPE, RSPLCTL & SFBLOK FORMATED HERE 00762000
- SPACE 1 00763000
- TSTRSPL TM SPOOLSW,XFF IS THIS SPOOLING DEVICE? @VA04250 00764000
- BZ IOERPRNT NO, CHECK FOR IOERBLOK @VA04250 00765000
- NI SPOOLSW,255-XFF CLEAR SWITCH @VA04250 00766000
- L R5,SPOOLSAV GET ADDR OF RSPLCTL BLOCK @VA04250 00767000
- ST R5,WORK2 ADDR OF BLOCK FOR TRANSLATION @VA04250 00768000
- MVI ERRINDX,IX05 SET ERROR INDEX FOR GETPAGE @VA01570 00769000
- LA R3,RSPSIZE SIZE @VA04250 00770000
- BAL R2,GETPAGE GET PAGE WITH RSPLCTL @VA04250 00771000
- USING RSPLCTL,R9 @VA04250 00772000
- MVC SPOOLSAV(K4),RSPSFBLK SAVE SFBLOK ADDR @VA04250 00773000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 00774000
- BAL R6,TRANINIT TRANSLATE BLOCK AND ITS ADDR. @VA04250 00775000
- MVC HIOBLKS(K13),HRSPLCTL SET TOP HEADING @VA04250 00776000
- MVC HIOBADDR(6),WORK+2 BLOK ADDRESS @VA04250 00777000
- SPACE 1 00778000
- * SETUP FOR WRITING RSPLCTL BLOCK 00779000
- SPACE 1 00780000
- LA R2,HIOBLKS ADDR HEADING LINES @VA04250 00781000
- LA R3,K2 NO. OF HEADING LINES @VA04250 00782000
- LA R5,RSPSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 00783000
- LA R7,FSPOOL INITIAL START ADDR IN O/P AREA @VA04250 00784000
- BAL R6,BLKPRINT GO PRINT RSPLCTL BLOCK @VA04250 00785000
- BAL R6,SFPRINT GO TO SFBLOCK PRINT RTN. @VA04250 00786000
- IOERPRNT TM IOERSW,XFF TEST FOR BLOCK @VA04250 00787000
- BZ OWNTST NO @VA04250 00788000
- BAL R6,IOERPRC PRINT IT @VA11255 00789000
- OWNTST TM OWNSW,XFF TEST @VA04250 00790000
- BZ ENDCK NO @VA04250 00791000
- MVI OWNSW,X00 CLEAR @VA04250 00792000
- PAGLOOP L R5,PAGBLOK GET BLOK ADDRESS @VA04250 00793000
- LTR R5,R5 TEST FOR BLOK @VA04250 00794000
- BZ SPLST TRY SPOOL LIST @VA04250 00795000
- ST R5,WORK2 SAVE @VA04250 00796000
- MVI ERRINDX,IX06 SET ERROR INDEX FOR GETPAGE @VA01570 00797000
- LA R3,RECSIZE SIZE @VA04250 00798000
- BAL R2,GETPAGE GET BUFFER @VA04250 00799000
- USING RECBLOK,R9 @VA04250 00800000
- SLL R3,3 @VA04250 00801000
- BAL R6,TRANINIT TRANSLATE @VA04250 00802000
- MVC HRECADDR(6),WORK+2 @VA04250 00803000
- MVC HRECID(6),=CL6'-PAGE' @VA04250 00804000
- LA R2,HRECBLK HEADING @VA04250 00805000
- LA R3,2 3 @VA04250 00806000
- LA R5,RECSIZE @VA04250 00807000
- LA R7,FSPOOL DISP @VA04250 00808000
- ST R9,REG9SAV SAVE REG 9 (RECBLOK ADDR) @VA02332 00809000
- BAL R6,BLKPRINT PRINT IT @VA01570 00810000
- L R9,REG9SAV RESTORE RECBLOK POINTER @VA02332 00811000
- L R6,RECPNT GET NEXT @VA04250 00812000
- ST R6,PAGBLOK SAVE @VA04250 00813000
- B PAGLOOP @VA04250 00814000
- SPLST L R5,SPLBLOK GET BLOK ADDRESS @VA04250 00815000
- LTR R5,R5 TEST @VA04250 00816000
- BZ ENDCK NONE @VA04250 00817000
- ST R5,WORK2 SAVE @VA04250 00818000
- MVI ERRINDX,IX07 SET ERROR INDEX FOR GETPAGE @VA01570 00819000
- LA R3,RECSIZE SIZE @VA04250 00820000
- BAL R2,GETPAGE GET BUFFER @VA04250 00821000
- SLL R3,3 @VA04250 00822000
- BAL R6,TRANINIT TRANSLATE @VA04250 00823000
- MVC HRECADDR(6),WORK+2 @VA04250 00824000
- MVC HRECID(6),=CL6'-SPOOL' @VA04250 00825000
- LA R2,HRECBLK HEADING @VA04250 00826000
- LA R3,2 3 @VA04250 00827000
- LA R5,RECSIZE SIZE @VA04250 00828000
- LA R7,FSPOOL DISP @VA04250 00829000
- ST R9,REG9SAV SAVE REG 9 (RECBLOK ADDR) @VA02332 00830000
- BAL R6,BLKPRINT PRINT IT @VA01570 00831000
- L R9,REG9SAV RESTORE RECBLOK POINTER @VA02332 00832000
- L R6,RECPNT GET NEXT @VA04250 00833000
- ST R6,SPLBLOK SAVE @VA04250 00834000
- B SPLST LOOP FOR ALL @VA04250 00835000
- SPACE 1 00836000
- * A CHECK IS MADE HERE FOR THE END OF THE DEVICE, CONTROL UNIT, AND 00837000
- * CHANNEL INDEX TABLES 00838000
- SPACE 1 00839000
- ENDCK EQU * @VA04250 00840000
- L R4,DEVDEX ADDR OF CURRENT DEV INDEX VALUE @VA04250 00841000
- B CKDEV CHECK FOR LAST TABLE ENTRY @VA04250 00842000
- CKCU EQU * @VA04250 00843000
- LA R4,DEVINDEX ADDR 1ST ENTRY IN DEV.INDEX TBL. @VA04250 00844000
- * FOR NEXT CONTROL UNIT 00845000
- ST R4,DEVDEX REINITIALIZE INDEX PTR FOR NEXT @VA04250 00846000
- * CONTROL UNIT 00847000
- L R4,CUDEX ADDR OF CURRENT CU INDEX VALUE @VA04250 00848000
- B CULOOP CHECK FOR LAST TABLE ENTRY @VA04250 00849000
- CKCHAN EQU * @VA04250 00850000
- LA R4,CUINDEX ADDR 1ST ENTRY IN CU INDEX TBL. @VA04250 00851000
- ST R4,CUDEX REINITIALIZE CU INDEX TBL. PTR. @VA04250 00852000
- L R4,CHDEX ADDR OF CURRENT CHAN INDEX VALUE @VA04250 00853000
- B CHLOOP CHECK FOR LAST TABLE ENTRY @VA04250 00854000
- EJECT 00855000
- * 00856000
- * PROCESSING OF THE VIRTUAL MACHINE VMBLOK'S AND I/O BLOCKS 00857000
- * COMMENCES HERE 00858000
- * 00859000
- SPACE 2 00860000
- VIRTUALM EQU * @VA04250 00861000
- TM NOVIRT+7,X01 WANT VIRTUAL FORMAT ?? @VA04250 00862000
- BO HEXDUMP NO @VA04250 00863000
- OI VMBSW,XF0 FIRST SYSVMBLK @VA04250 00864000
- LA R10,DATA SET DATA ADDRESS @VA04250 00865000
- MVI HCHBLK,V CHG CH BLOCK HEADING TO VIRTUAL @VA04250 00866000
- MVI HCUBLK,V CHG CU BLOCK HEADING TO VIRTUAL @VA04250 00867000
- MVI HDEVBLK,V CHG DEV BLOCK HEADING TO VIRTUAL @VA04250 00868000
- L R5,VMPTR GET 1ST VMBLOK ADDR(SYSVMBLK) @VA04250 00869000
- VMPRC EQU * @VA11255 00870000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 00871000
- ST R5,VMCURENT SAVE ADDR CURRENT VMBLOK @VA04250 00872000
- ST R5,WORK2 SAVE ADDR FOR TRANSLATION @VA04250 00873000
- SPACE 1 00874000
- * CH, CU, & DEV INDEX POINTERS ARE REINITIALIZED 00875000
- SPACE 1 00876000
- LA R4,CHINDEX ADDR START OF CH INDEX TBL SAVE @VA04250 00877000
- * AREA 00878000
- ST R4,CHDEX INIT PTR TO CURRENT TB. VALUE @VA04250 00879000
- LA R4,CUINDEX ADDR START OF CU NDX TBL SAVEAREA@VA04250 00880000
- ST R4,CUDEX INIT PTR TO CURRENT TBL SAVE @VA04250 00881000
- LA R4,DEVINDEX ADDR START OF DEV. INDEX TBL.SAVE@VA04250 00882000
- ST R4,DEVDEX INIT PTR TO CURRENT TBL VALUE @VA04250 00883000
- MVI ERRINDX,IX08 SET ERROR INDEX FOR GETPAGE @VA01570 00884000
- LA R3,VMBSIZE SIZE @VA04250 00885000
- BAL R2,GETPAGE GET PAGE WITH VMBLOK @VA04250 00886000
- USING VMBLOK,R9 @VA04250 00887000
- ST R9,REG9SAV SAVE VMBLOK POINTER @VA04250 00888000
- NOSYS EQU * @VA04250 00889000
- MVC VMCHAIN(K4),VMPNT SAVE ADR NXT VMBLOK IN CHAIN@VA04250 00890000
- MVC VCHSTRT(K4),VMCHSTRT SAVE START ADDR CH NDX TBLS@VA04250 00891000
- MVC VCUSTRT(K4),VMCUSTRT SAVE START ADDR CU NDX TBLS@VA04250 00892000
- MVC VDVSTRT(K4),VMDVSTRT SAVE START ADR DEV NDX TBLS@VA04250 00893000
- TM VMPEND,VMDEFSTK DEFERRED EXECUTION BLOCK @V407510 00894000
- * STACKED FOR THIS VMBLOK? @V407510 00895000
- BNO DEFZERO NO, ZERO POINTER @V407510 00896000
- MVC DEFEXPT,VMDFTPNT SAVE @ DEFERRED EXECUTION BLOK @V407510 00897000
- B NXT @V407510 00898000
- DEFZERO DS 0H @V407510 00899000
- XC DEFEXPT,DEFEXPT ZERO POINTER @V407510 00900000
- NXT DS 0H @V407510 00901000
- MVC PAGBLOK,VMECEXT SAVE EXT ADDRESS @VA04250 00902000
- TM VMESTAT,VMEXTCM IN EC MODE ?? @VA04250 00903000
- BZ *+8 NO @VA04250 00904000
- MVI CONSW,XFF SET SW @VA04250 00905000
- MVC SPLBLOK,VMTREXT TRACE EXT @VA04250 00906000
- TM VMTRCTL,XFF TRACING ?? @VA04250 00907000
- BZ *+8 NO @VA04250 00908000
- MVI SPOOLSW,XFF SET SW @VA04250 00909000
- MVC CHINDEX(K32),VMCHTBL SAVE CH BLOCK INDEX TABLE @VA04250 00910000
- LA R3,K96 NO. OF BYTES TO TRANSLATE IN @VA04250 00911000
- * 1ST 2 PRINTS 00912000
- BAL R6,TRANINIT TRANSLATE VMBLOK AND ITS ADDR. @VA04250 00913000
- SPACE 1 00914000
- * VMBLOK HEADINGS FORMATED HERE 00915000
- SPACE 1 00916000
- MVC HVMBADDR(6),WORK+2 BLOK ADDRESS @VA04250 00917000
- MVC HIDEN(K8),VMUSER USER ID @VA04250 00918000
- SPACE 1 00919000
- * SET UP FOR WRITING VMBLOK 00920000
- SPACE 1 00921000
- LA R5,VMBSIZE SIZE @VA04250 00922000
- STH R5,VMSAVE SAVE @VA04250 00923000
- OI VMBSW,X0F DOING VMBLOK @VA04250 00924000
- LA R2,HVMBLOK ADDR VMBLOK HEADINGS @VA04250 00925000
- LA R3,3 HEADINGS @VA04250 00926000
- VMNXT LH R5,VMSAVE GET COUNT @VA04250 00927000
- CH R5,=H'12' MORE THAN 3 LINE TO DO ?? @VA04250 00928000
- BH VM12 YES @VA04250 00929000
- NI VMBSW,XF0 LAST PART OF VMBLOK @VA04250 00930000
- B VMPRINT PRINT IT @VA04250 00931000
- VM12 SH R5,=H'12' DECREMENT @VA04250 00932000
- STH R5,VMSAVE SAVE @VA04250 00933000
- LA R5,12 SIZE @VA04250 00934000
- VMPRINT DS 0H @VA04250 00935000
- LA R7,FVMBLK INITIAL START ADDR IN O/P AREA @VA04250 00936000
- BAL R6,BLKPRINT PRINT 3 LINES @VA04250 00937000
- TM VMBSW,X0F MORE VMBLOK TO DO ?? @VA04250 00938000
- BZ VMETST NO @VA04250 00939000
- OI PRTENDSW,XF0 NO HEADING @VA04250 00940000
- L R9,REG9SAV GET START ADDR OF LAST TRANS. @VA04250 00941000
- LA R9,K96(,R9) ADDR NEXT TRANSLATION @VA04250 00942000
- ST R9,REG9SAV SAVE IT @VA04250 00943000
- LA R3,K96 NO. OF BYTES TO TRANSLATE @VA04250 00944000
- BAL R6,TRANINIT TRANSLATE NEXT SECTION OF VMBLOK @VA04250 00945000
- B VMNXT DO NEXT PART @VA04250 00946000
- VMETST DS 0H @V407510 00947000
- L R5,DEFEXPT ADDR OF DEFERRED EXECUTION BLK @V407510 00948000
- LTR R5,R5 DOES ONE EXIST? @V407510 00949000
- BZ VMETST1 NO, SKIP THIS PROCESSING @V407510 00950000
- ST R5,WORK2 SAVE ADDRESS @V407510 00951000
- MVI ERRINDX,IX1D SET ERROR INDICATOR @V407510 00952000
- LA R3,CPEXSIZE GET LENGTH OF BLOK @V407510 00953000
- BAL R2,GETPAGE BRING PAGE IN @V407510 00954000
- USING CPEXBLOK,R9 SET UP ADDRESSABILITY @V407510 00955000
- SLL R3,K3 GET LENGTH IN BYTES @V407510 00956000
- BAL R6,TRANINIT TRANSLATE @V407510 00957000
- MVC HIOBLKS(K13),HVMDE HEADING @V407510 00958000
- MVC HIOBADDR(K6),WORK+K2 @V407510 00959000
- LA R2,HIOBLKS ADDRESS OF HEADING @V407510 00960000
- LA R3,K2 @V407510 00961000
- LA R5,CPEXSIZE SIZE OF DEFERRED EXECECUTION BLK @V407510 00962000
- LA R7,FVMBLK DISPLACEMENT @V407510 00963000
- BAL R6,BLKPRINT PRINT IT @V407510 00964000
- VMETST1 DS 0H @V407510 00965000
- TM CONSW,XFF ANY ECBLOK? @VA08569 00966000
- BZ TSTTR NO @VA08569 00967000
- L R5,PAGBLOK GET ADDRSS @VA04250 00968000
- MVI CONSW,X00 @VA04250 00969000
- ST R5,WORK2 SAVE @VA04250 00970000
- MVI ERRINDX,IX09 SET ERROR INDEX FOR GETPAGE @VA01570 00971000
- LA R3,EXTSIZE SIZE @VA04250 00972000
- BAL R2,GETPAGE GET BUFFER @VA04250 00973000
- USING ECBLOK,R9 @VA04250 00974000
- SLL R3,3 @VA04250 00975000
- BAL R6,TRANINIT TRANSLATE @VA04250 00976000
- MVC HIOBLKS(13),HVMEC HEADING @VA04250 00977000
- MVC HIOBADDR(6),WORK+2 @VA04250 00978000
- LA R2,HIOBLKS HEADING @VA04250 00979000
- LA R3,2 2 @VA04250 00980000
- LA R5,EXTSIZE SIZE @VA04250 00981000
- LA R7,FVMBLK DISP @VA04250 00982000
- BAL R6,BLKPRINT PRINT IT @VA04250 00983000
- TSTTR TM SPOOLSW,XFF TEST FOR TR EXT @VA04250 00984000
- BZ VMEND NONE @VA04250 00985000
- MVI SPOOLSW,X00 @VA04250 00986000
- L R5,SPLBLOK GET ADDRSSS @VA04250 00987000
- ST R5,WORK2 SAVE @VA04250 00988000
- MVI ERRINDX,IX0A SET ERROR INDEX FOR GETPAGE @VA01570 00989000
- LA R3,TREXSIZE SIZE @VA04250 00990000
- BAL R2,GETPAGE @VA04250 00991000
- USING TREXT,R9 @VA04250 00992000
- SLL R3,3 @VA04250 00993000
- BAL R6,TRANINIT TRANSLATE @VA04250 00994000
- MVC HIOBLKS(13),HVMTR @VA04250 00995000
- MVC HIOBADDR(6),WORK+2 @VA04250 00996000
- LA R2,HIOBLKS HEADING @VA04250 00997000
- LA R3,2 @VA04250 00998000
- LA R5,TREXSIZE SIZE @VA04250 00999000
- LA R7,FVMBLK DISP @VA04250 01000000
- BAL R6,BLKPRINT PRINT IT @VA04250 01001000
- VMEND EQU * @VA04250 01002000
- * 01003000
- * VIRTUAL CHANNEL BLOCKS-VCHBLOK- PROCESSED HERE 01004000
- * 01005000
- L R4,CHDEX ADDR OF INIT ENTRY IN CH NDX TBL @VA04250 01006000
- VCHINIT EQU * @VA04250 01007000
- CLC K0(K2,R4),FFFF VALID CHANNEL TBL. ENTRY? @VA04250 01008000
- BNE VCHPRC YES, PROCESS CHANNEL BLOCK @VA11255 01009000
- LOOPCH EQU * @VA01570 01010000
- C R4,CHANLAST LAST CHANNEL ENTRY? @VA04250 01011000
- BE VMCK YES, PROCESS NEXT VIRTUAL MACHINE@VA04250 01012000
- LA R4,K2(,R4) GET NEXT ENTRY ADDR. @VA04250 01013000
- B VCHINIT CHECK FOR VALID ENTRY @VA04250 01014000
- SPACE 1 01015000
- VCHPRC EQU * @VA11255 01016000
- ST R4,CHDEX SAVE ADDR CURR CH INDEX TBL ENTRY@VA04250 01017000
- LH R5,K0(,R4) INDEX INTO VCHBLOK'S FOR THIS CH @VA04250 01018000
- A R5,VCHSTRT + START ADDR VCHBLOKS=NEW BLK ADD@VA04250 01019000
- ST R5,WORK2 SAVE ADDR FOR TRANSLATION @VA04250 01020000
- MVI ERRINDX,IX0B SET ERROR INDEX FOR GETPAGE @VA01570 01021000
- LA R3,VCHSIZE SIZE @VA04250 01022000
- BAL R2,GETPAGE GET PAGE WITH VCHBLOK @VA04250 01023000
- USING VCHBLOK,R9 @VA04250 01024000
- MVC CUINDEX(K32),VCHCUTBL SAVE VIRTUAL CU INDEX TBL.@VA04250 01025000
- SLL R3,3 8=NO. OF BYTES TO MOVE FOR TRANS.@VA04250 01026000
- BAL R6,TRANINIT TRANSLATE VCHBLOK AND ITS ADDR @VA04250 01027000
- SPACE 1 01028000
- * VCHBLOK HEADINGS FORMATED HERE 01029000
- SPACE 1 01030000
- MVC HCHBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01031000
- SR R4,R4 CLEAR REG @VA04250 01032000
- IC R4,VCHADD GET CHANNEL ADDR. @VA04250 01033000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 01034000
- AR R4,R5 ADDR. OF TRANSLATED CHAR. @VA04250 01035000
- MVC HCHNO(K1),K0(R4) PUT CHAR. IN HEADING @VA04250 01036000
- SPACE 1 01037000
- * SETUP FOR WRITING CHANNEL BLOCK 01038000
- SPACE 1 01039000
- LA R2,HCHBLK ADDR VCHBLOK HEADING @VA04250 01040000
- LA R3,3 HEADINGS @VA04250 01041000
- LA R5,VCHSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01042000
- LA R7,FVCHBLK INITIAL START ADDR IN O/P AREA @VA04250 01043000
- BAL R6,BLKPRINT PRINT BLOCK @VA04250 01044000
- SPACE 1 01045000
- * THIS SECTION FORMATS VIRTUAL CONTROL UNIT BLOCKS-VCUBLOK 01046000
- SPACE 1 01047000
- L R4,CUDEX ADDR INIT ENTRY IN CU INDEX TBL @VA04250 01048000
- VCUINIT EQU * @VA04250 01049000
- CLC K0(K2,R4),FFFF VALID CU TABLE ENTRY? @VA04250 01050000
- BNE VCUPRC YES, FORMAT CU BLOCK @VA11255 01051000
- VCULOOP EQU * @VA01570 01052000
- C R4,VCULAST LAST CONTROL UNIT ENTRY? @VA04250 01053000
- BE CHANCK YES, CHECK FOR ANOTHER CHANNEL @VA04250 01054000
- LA R4,K2(,R4) GET NEXT ENTRY ADDR. @VA04250 01055000
- B VCUINIT CHECK NEXT ENTRY @VA04250 01056000
- SPACE 1 01057000
- * AT THIS POINT REG 4 CONTAINS ADDR OF INDEX TABLE ENTRY FOR VCUBLOK 01058000
- * TO BE PROCESSED 01059000
- SPACE 01060000
- VCUPRC EQU * @VA11255 01061000
- ST R4,CUDEX SAVE ADDR CURR CU INDEX TBL ENTRY@VA04250 01062000
- LH R5,K0(,R4) GET DISP INTO CU TBLS FOR THIS CU@VA04250 01063000
- A R5,VCUSTRT PLUS CU TBL.BASE=RCUBLOK ADDR @VA04250 01064000
- ST R5,WORK2 SAVE VCUBLOK ADDR FOR TRANSLATION@VA04250 01065000
- MVI ERRINDX,IX0C SET ERROR INDEX FOR GETPAGE @VA01570 01066000
- LA R3,VCUSIZE SIZE @VA04250 01067000
- BAL R2,GETPAGE GET PAGE CONTAINING VCUBLOK @VA04250 01068000
- USING VCUBLOK,R9 @VA04250 01069000
- MVC DEVINDEX(K32),VCUDVTBL SAVE DEV NDX TBL FOR THIS@VA04250 01070000
- * CONTROL UNIT 01071000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01072000
- BAL R6,TRANINIT TRANSLATE VCUBLOK & ITS ADDR @VA04250 01073000
- SPACE 1 01074000
- * VCUBLOK HEADINGS FORMATED HERE 01075000
- SPACE 1 01076000
- MVC HCUBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01077000
- SR R4,R4 CLEAR REG. @VA04250 01078000
- IC R4,VCUADD+1 GET CONTROL UNIT ADDR. @VA04250 01079000
- SRL R4,4 ISOLATE UNIT ADDR. @VA04250 01080000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 01081000
- AR R4,R5 ADDR. OF TRANSLATED CHAR. @VA04250 01082000
- MVC HCUNO+1(K1),K0(R4) PUT CU ADDR IN HEADING @VA04250 01083000
- MVC HCUNO(K1),HCHNO PUT CHAN NO. IN UNIT ADDR. @VA04250 01084000
- SPACE 1 01085000
- * SET UP FOR WRITING VIRTUAL CONTROL UNIT BLOCK 01086000
- SPACE 1 01087000
- LA R2,HCUBLK ADDR OF VCUBLOK HEADING @VA04250 01088000
- LA R3,K3 NO. OF HEADING LINES @VA04250 01089000
- LA R5,VCUSIZE NO. OF DOUBLE WORDS IN VCUBLOK @VA04250 01090000
- LA R7,FVCUBLK INITIAL START ADDR IN O/P AREA @VA04250 01091000
- BAL R6,BLKPRINT GO PRINT VCUBLOK @VA04250 01092000
- * 01093000
- * THIS SECTION FORMATS VIRTUAL DEVICE BLOCKS 01094000
- * 01095000
- L R4,DEVDEX ADDR INIT ENTRY IN DEV INDEX TBL @VA04250 01096000
- VDVINIT EQU * @VA04250 01097000
- CLC K0(K2,R4),FFFF VALID DEVICE TABLE ENTRY? @VA04250 01098000
- BNE VDEVPRC YES, FORMAT DEVICE BLOCK @VA11255 01099000
- DEVCK EQU * @VA01570 01100000
- C R4,DEVLAST LAST DEVICE ENTRY IN TBL. @VA04250 01101000
- BE CUCK YES, CK FOR ANOTHER CONTROL UNIT @VA04250 01102000
- LA R4,K2(,R4) GET NEXT ENTRY ADDR. @VA04250 01103000
- B VDVINIT CHECK NEXT ENTRY @VA04250 01104000
- SPACE 1 01105000
- * AT THIS POINT REG 4 CONTAINS ADDR OF INDEX TABLE ENTRY FOR VDEVBLOK 01106000
- * TO BE PROCESSED 01107000
- SPACE 01108000
- VDEVPRC EQU * @VA11255 01109000
- ST R4,DEVDEX SAVE ADDR CURR DEV NDX TBL ENTRY @VA04250 01110000
- LH R5,K0(,R4) DISP INTO RDEVBLOKS FOR THIS DEV @VA04250 01111000
- NOCON EQU * @VA04250 01112000
- A R5,VDVSTRT PLUS DEV TBL'S BASE=VDEVBLOK ADDR@VA04250 01113000
- ST R5,WORK2 SAVE VDEVBLOK ADDR FOR TRANS @VA04250 01114000
- MVI ERRINDX,IX0D SET ERROR INDEX FOR GETPAGE @VA01570 01115000
- LA R3,VDEVSIZE @VA04250 01116000
- BAL R2,GETPAGE GET PAGE WITH VDEVBLOK @VA04250 01117000
- USING VDEVBLOK,R9 @VA04250 01118000
- TM VDEVTYPC,CLASURI+CLASURO SPOOL DEV ?? @VA04250 01119000
- BZ TSTCON NO @VA04250 01120000
- L R5,VDEVSPL GET BLOK @VA04250 01121000
- LTR R5,R5 TEST @VA04250 01122000
- BZ DODEV NONE @VA04250 01123000
- ST R5,ERRBLOCK SAVE @VA04250 01124000
- OI SPOOLSW,XFF SET SW @VA04250 01125000
- B DODEV CONT @VA04250 01126000
- TSTCON TM VDEVTYPC,CLASTERM TERMINAL ?? @VA04250 01127000
- BZ TSTIOB NO @VA04250 01128000
- CLI VDEVTYPE,TYP3215 VIRT CONSOLE ?? @VA04250 01129000
- BNE TSTIOB NO @VA04250 01130000
- L R5,VDEVCON GET BLOK @VA04250 01131000
- LTR R5,R5 TEST @VA04250 01132000
- BZ DODEV NONE @VA04250 01133000
- ST R5,ERRBLOCK SAVE @VA04250 01134000
- OI CONSW,XFF SET SW @VA04250 01135000
- B DODEV CONT @VA04250 01136000
- TSTIOB L R5,VDEVIOB ANY ACTIVE IOB ?? @VA04250 01137000
- LTR R5,R5 .. @VA04250 01138000
- BZ TSTIOER NO @VA04250 01139000
- ST R5,AIOB SAVE @VA04250 01140000
- MVI ACTIOBSW,XFF SET SW @VA04250 01141000
- TSTIOER L R5,VDEVIOER GET BLOK @VA04250 01142000
- LTR R5,R5 TEST @VA04250 01143000
- BZ DODEV NONE @VA04250 01144000
- OI IOERSW,XFF SET SW @VA04250 01145000
- ST R5,ERRBLOCK SAVE @VA04250 01146000
- DODEV LA R3,VDEVSIZE VDEVBLOK SIZE IN DWORDS TIMES @VA04250 01147000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01148000
- BAL R6,TRANINIT TRANSLATE VDEVBLOK & ITS ADDR @VA04250 01149000
- SPACE 1 01150000
- * VDEVBLOK HEADINGS FORMATED HERE 01151000
- SPACE 1 01152000
- MVC HDBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01153000
- MVC HDEVNO(K1),VDEVADD+1 GET CU & DEVICE ADDR. @VA04250 01154000
- NI HDEVNO,255-XF0 CLEAR CU ADDR. @VA04250 01155000
- SR R4,R4 CLEAR REG. @VA04250 01156000
- IC R4,HDEVNO GET DEVICE ADDR. @VA04250 01157000
- LA R5,TTAB ADDR TRANSLATE TABLE @VA04250 01158000
- AR R4,R5 ADDR. OF TRANSLATED CHAR. @VA04250 01159000
- MVC HDEVNO+K2(K1),K0(R4) PUT DEV ADR IN CHAR IN HEAD@VA04250 01160000
- MVC HDEVNO(K2),HCUNO PUT CH & CU ADDR IN DEV ADDR@VA04250 01161000
- SPACE 1 01162000
- * SETUP FOR WRITING VIRTUAL DEVICE BLOCK 01163000
- SPACE 1 01164000
- LA R2,HDEVBLK ADDR HEADING LINES @VA04250 01165000
- LA R3,3 HEADINGS @VA04250 01166000
- LA R5,VDEVSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01167000
- LA R7,FVDEVBLK INITIAL START ADDR OF O/P AREA @VA04250 01168000
- BAL R6,BLKPRINT PRINT VDEVBLOK @VA04250 01169000
- SPACE 1 01170000
- * IF THIS DEVICE IS THE CONSOLE, VCONCTL BLOCK IS PRINTED HERE 01171000
- SPACE 1 01172000
- TM CONSW,XFF IS THIS VIRTUAL CONSOLE? @VA04250 01173000
- BZ TSTSPOOL NO,TEST FOR SPOOLING DEVICE @VA04250 01174000
- NI CONSW,255-XFF CLEAR CONSOLE SWITCH @VA04250 01175000
- L R5,ERRBLOCK GET ADDRESS @VA04250 01176000
- ST R5,WORK2 ADDR OF BLOCK FOR TRANSLATION @VA04250 01177000
- MVI ERRINDX,IX0E SET ERROR INDEX FOR GETPAGE @VA01570 01178000
- LA R3,VCONSIZE SIZE @VA04250 01179000
- BAL R2,GETPAGE GET PAGE WITH VCONCTL BLOCK @VA04250 01180000
- SLL R3,3 TIMES 8=NO. OF BYTES TO TRANSLATE@VA04250 01181000
- BAL R6,TRANINIT TRANSLATE BLOCK @VA04250 01182000
- MVC HIOBLKS(K13),HVCONCTL SET TOP HEADING LINE @VA04250 01183000
- MVC HIOBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01184000
- LA R2,HIOBLKS ADDR HEADING LINES @VA04250 01185000
- LA R3,K2 NO. OF HEADING LINES @VA04250 01186000
- LA R4,K4 NO. OF BLOCKS/LINE @VA04250 01187000
- LA R5,VCONSIZE NO. OF BLOCKS TO PRINT @VA04250 01188000
- LA R7,FSPOOL START ADDR IN O/P AREA @VA04250 01189000
- BAL R6,BLKPRINT PRINT OUT VCONCTL BLOCK @VA04250 01190000
- B NXTVDEV DO NEXT @VA04250 01191000
- SPACE 1 01192000
- * IF THIS DEVICE IS A UNIT RECORD TYPE, VSPLCTL & SFBLOK FORMATED HERE 01193000
- SPACE 1 01194000
- TSTSPOOL EQU * @VA04250 01195000
- TM SPOOLSW,XFF IS THIS A SPOOLING DEVICE? @VA04250 01196000
- BZ VIOB NO, CHECK FOR IOERBLOK @VA04250 01197000
- NI SPOOLSW,255-XFF CLEAR SWITCH @VA04250 01198000
- L R5,ERRBLOCK GET ADDRESS @VA04250 01199000
- ST R5,WORK2 ADDR OF BLOCK FOR TRANSLATION @VA04250 01200000
- MVI ERRINDX,IX0F SET ERROR INDEX FOR GETPAGE @VA01570 01201000
- LA R3,VSPSIZE SIZE @VA04250 01202000
- BAL R2,GETPAGE GET PAGE WITH VSPLCTL @VA04250 01203000
- USING VSPLCTL,R9 @VA04250 01204000
- L R5,VSPSFBLK GET NEXT @VA04250 01205000
- ST R5,SPOOLSAV SAVE @VA04250 01206000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01207000
- BAL R6,TRANINIT TRANSLATE BLOCK & ITS ADDR @VA04250 01208000
- MVC HIOBLKS(K13),HVSPLCTL SET TOP HEADING LINE @VA04250 01209000
- MVC HIOBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01210000
- SPACE 1 01211000
- * SETUP FOR WRITING VSPLCTL BLOCK 01212000
- SPACE 1 01213000
- LA R2,HIOBLKS ADDR HEADING LINES @VA04250 01214000
- LA R3,K2 NO. OF HEADING LINES @VA04250 01215000
- LA R5,VSPSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01216000
- LA R7,FSPOOL INITIAL START ADDR IN O/P AREA @VA04250 01217000
- BAL R6,BLKPRINT GO PRINT VSPLCTL BLOCK @VA04250 01218000
- BAL R6,SFPRINT GO TO SFBLOK PRINT ROUTINE @VA04250 01219000
- B NXTVDEV DO NEXT @VA04250 01220000
- VIOB TM ACTIOBSW,XFF ANY IOB ?? @VA04250 01221000
- BZ VIOER NO @VA04250 01222000
- MVC HIOBLKS(13),HACTIO @VA04250 01223000
- MVC IOBCHAIN,AIOB SET ADDRESS @VA04250 01224000
- BAL R6,IOBPRINT PRINT IT @VA04250 01225000
- MVI ACTIOBSW,X00 @VA04250 01226000
- VIOER TM IOERSW,XFF TEST FOR IOER BLOK @VA04250 01227000
- BZ NXTVDEV DO NEXT @VA04250 01228000
- BAL R6,IOERPRC PRINT IT @VA11255 01229000
- SPACE 1 01230000
- * A CHECK IS MADE HERE FOR THE END OF THE DEVICE, CONTROL UNIT, 01231000
- * CHANNEL INDEX TABLES AND VMBLOKS 01232000
- SPACE 1 01233000
- NXTVDEV L R4,DEVDEX ADDR OF CURRENT DEV. INDEX VALUE @VA04250 01234000
- B DEVCK CHECK FOR LAST TABLE ENTRY @VA04250 01235000
- CUCK EQU * @VA04250 01236000
- LA R4,DEVINDEX ADDR 1ST ENTRY IN DEV INDEX TBL @VA04250 01237000
- ST R4,DEVDEX REINITIALIZE DEV INDEX PTR FOR @VA04250 01238000
- * NEXT CONTROL UNIT 01239000
- L R4,CUDEX ADDR OF CURRENT CU INDEX VALUE @VA04250 01240000
- B VCULOOP CHECK FOR LAST TABLE ENTRY @VA04250 01241000
- CHANCK EQU * @VA04250 01242000
- LA R4,CUINDEX ADDR 1ST ENTRY IN CU INDEX TBL. @VA04250 01243000
- ST R4,CUDEX REINITIALIZE CU INDEX TBL PTR @VA04250 01244000
- * FOR NEXT CHANNEL 01245000
- L R4,CHDEX ADDR CURRENT CHAN INDEX VALUE @VA04250 01246000
- B LOOPCH CHECK FOR LAST TABLE ENTRY @VA04250 01247000
- VMCK EQU * @VA04250 01248000
- LA R4,CHINDEX ADDR 1ST ENTRY IN CH INDEX TABLE @VA04250 01249000
- ST R4,CHDEX REINITIALIZE CH TBL PTR FOR NEXT @VA04250 01250000
- * VIRTUAL MACHINE 01251000
- L R5,VMCURENT ADDR CURRENT VMBLOK @VA04250 01252000
- BAL R6,SEGPGTB GO TO SEGMENT TABLE PROCESSING @VA04250 01253000
- LA R10,DATA RESTORE ADDR. FOR O/P AREA DSECT @VA04250 01254000
- CLC VMCHAIN(K4),VMPTR END OF VIRTUAL PROCESSING? @VA04250 01255000
- BE HEXDUMP GO DO HEX DUMP IF REQUIRED @VA04250 01256000
- L R5,VMCHAIN GET ADDR NEXT VMBLOK IN CHAIN @VA04250 01257000
- LTR R5,R5 TEST FOR ONE ONLY @VA04250 01258000
- BZ HEXDUMP DONE @VA04250 01259000
- TM VMBSW,XF0 DOINF SYSVMBLK ?? @VA04250 01260000
- BZ VMPRC NO @VA11255 01261000
- NI VMBSW,X0F SW OFF @VA04250 01262000
- ST R5,VMPTR SAVE 1ST VMBLOK ADDR FOR CHAIN CK@VA04250 01263000
- B VMPRC PROCESS NEXT VIRTUAL MACHINE @VA11255 01264000
- EJECT 01265000
- * 01266000
- * SUBROUTINE TO PRINT FORMATED I/O BLOCKS 01267000
- * INPUT- R2= ADDR OF BLOCK HEADING, R3-NO. OF LINES IN HEADING, R4-NO. 01268000
- * OF BLOCKS OF DATA(16 CHARS) TO PRINT/LINE, R5-TOTAL NO. OF DATA 01269000
- * BLOCKS, R7-ADDR FOR START OF DATA 01270000
- * 01271000
- BLKPRINT EQU * @VA04250 01272000
- ST R6,RTNSAVE SAVE RETURN ADDR @VA04250 01273000
- LR R9,R5 GET DBL WORD COUNT @VA04250 01274000
- SRL R9,2 GET NUMBER OF LINE FOR BLOCK @VA04250 01275000
- AH R9,LINECT ADD COURRENT LINE COUNTER @VA04250 01276000
- LA R9,2(R9) PLUS 2 FOR SPACING @VA04250 01277000
- CH R9,=H'59' ENOUGH ON ONE PAGE ?? @VA10490 01278001
- BNH SETUP YES, CONT @VA04250 01279000
- STH R9,LINECT FORCE EJECT @VA04250 01280000
- SETUP DS 0H @VA04250 01281000
- LR R1,R7 SAVE O/P POINTER @VA04250 01282000
- LA R9,WORK+8 START ADDR OF TRANSLATED BLOCK @VA04250 01283000
- MVI SPACENUM+K1,X01 1 FOR LINE COUNTER @VA04250 01284000
- MVI CTL,SPACE1 SET SINGLE SPACING @VA04250 01285000
- MVCLOOP EQU * @VA04250 01286000
- LA R8,4 FOUR DBL WORDS PER LINE @VA04250 01287000
- LR R7,R1 RESET O/P POINTER @VA04250 01288000
- HDTEST EQU * @VA04250 01289000
- TM PRTENDSW,XF0 LAST HEAD ALREADY PRINTED? @VA04250 01290000
- BO TSTDATA TEST FOR MORE DATA @VA04250 01291000
- BCT R3,NOHDEND LAST HEAD LINE TEST @VA04250 01292000
- OI PRTENDSW,XF0 SET LAST HEAD LINE SWITCH @VA04250 01293000
- NOHDEND EQU * @VA04250 01294000
- MVC K0(K14,R7),K0(R2) PUT HEAD IN O/P AREA @VA04250 01295000
- LA R2,14(R2) NEXT HEADING @VA04250 01296000
- TSTDATA TM PRTENDSW,X0F ANY MORE DATA @VA04250 01297000
- BO PRNTLINE NO, PRINT @VA04250 01298000
- CH R5,=H'4' MORE THAN 1 LINE LEFT ?? @VA04250 01299000
- BH FULLINE YES @VA04250 01300000
- LR R8,R5 SET COUNT @VA04250 01301000
- OI PRTENDSW,X0F SET SW @VA04250 01302000
- FULLINE SH R5,=H'4' REMAINING @VA04250 01303000
- POSMOVE LA R7,2(R7) SPACE OVER @VA04250 01304000
- UNPK WORK3(5),LINEHEX(3) GET HEX DISP @VA04250 01305000
- TR WORK3(4),TTAB-240 @VA04250 01306000
- MVC 14(3,R7),WORK3+1 SET DISP @VA04250 01307000
- LH R4,LINEHEX GET COUNT @VA04250 01308000
- LA R4,32(R4) BUMP COUNTER @VA04250 01309000
- STH R4,LINEHEX SAVE @VA04250 01310000
- DATAMOVE EQU * @VA04250 01311000
- LA R7,K18(,R7) INCREMENT O/P POINTER @VA04250 01312000
- MVC 0(8,R7),0(R9) MOVE FIRST WORD @VA04250 01313000
- MVC 9(8,R7),8(R9) MOVE SECOND WORD @VA04250 01314000
- LA R9,K16(,R9) INCREMENT TRANSLATED DATA POINTER@VA04250 01315000
- BCT R8,DATAMOVE MOVE NEXT BLK IF NOT END OF LINE @VA04250 01316000
- PRNTLINE EQU * @VA04250 01317000
- CLI PRTENDSW,XFF ALL DONE @VA04250 01318000
- BNE PRNTSP NO, PRINT AND CONT @VA04250 01319000
- TM VMBSW,X0F DOING VMBLOK ?? @VA04250 01320000
- BO SKIPSP YES @VA04250 01321000
- BAL R6,PRINTA PRINT IT @VA04250 01322000
- MVC LINEHEX,=H'0' CLEAR LINE DISP @VA04250 01323000
- MVI CTL,SPACE2 SET SPACING @VA04250 01324000
- MVI SPACENUM+1,2 @VA04250 01325000
- SKIPSP BAL R6,PRINTA PRINT LINE @VA04250 01326000
- MVI PRTENDSW,X00 CLEAR @VA04250 01327000
- L R6,RTNSAVE RETURN @VA04250 01328000
- BR R6 @VA04250 01329000
- PRNTSP BAL R6,PRINTA PRINT LINE @VA04250 01330000
- B MVCLOOP CONT @VA04250 01331000
- EJECT 01332000
- * 01333000
- * IOBLOK PRINT SUBROUTINE. THIS ROUTINE PRINTS ALL IOBLOKS CHAINED 01334000
- * OFF OF THE CHANNEL, CONTROL UNIT, OR DEVICE BLOCK THAT IS 01335000
- * CURRENTLY BEING PROCESSED. THE FIELD 'IOBCHAIN' CONTAINS THE 01336000
- * ADDR. OF THE FIRST IOBLOK CHAINED(IF ANY) TO THAT BLOCK. 01337000
- * 01338000
- IOBPRINT EQU * @VA04250 01339000
- USING IOBLOK,R9 @VA04250 01340000
- L R5,IOBCHAIN GET ADDR OF NEXT CHANNEL IOBLOK @VA04250 01341000
- C R5,CHAINCK IS THERE AN IOBLOK CHAINED TO BLK@VA04250 01342000
- BCR 8,R6 NO, RETURN @VA04250 01343000
- ST R6,IOBRTN SAVE RETURN ADDR. @VA04250 01344000
- IOBLOOP EQU * @VA04250 01345000
- ST R5,WORK2 PUT BLOCK ADDR IN TRANS. @VA04250 01346000
- MVI ERRINDX,IX10 SET ERROR INDEX FOR GETPAGE @VA01570 01347000
- LA R3,IOBSIZE SIZE @VA04250 01348000
- BAL R2,GETPAGE GET PAGE WITH THIS IOBLOK @VA04250 01349000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01350000
- MVC IOBSAVE(4),IOBCHAIN REMEMBER THIS IOBLOK @VA07496 01351000
- MVC IOBCHAIN(4),IOBFPNT SAVE ADDR NEXT IOBLOK CHAIND@VA04250 01352000
- BAL R6,TRANINIT TRANSLATE FIELD @VA04250 01353000
- MVC HIOBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01354000
- SPACE 1 01355000
- * SETUP FOR WRITING IOBLOK 01356000
- SPACE 1 01357000
- LA R2,HIOBLKS ADDR OF IOBLOK HEADING @VA04250 01358000
- LA R3,K2 NO. OF HEADING LINES @VA04250 01359000
- LA R5,IOBSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01360000
- LA R7,FIOBLK INITIAL START ADDR IN O/P AREA @VA04250 01361000
- BAL R6,BLKPRINT GO PRINT IOBLOK @VA04250 01362000
- TM ACTIOBSW,XFF IS THIS AN ACTIVE IOBLOK? @VA04250 01363000
- BO IOBACK YES, ONLY ONE TO PRINT @VA04250 01364000
- L R5,IOBCHAIN GET ADDR OF NEXT IOBLOK @VA04250 01365000
- CLC IOBSAVE(4),IOBCHAIN NEXT SAME AS LAST @VA07496 01366000
- BE IOBACK YES, DON'T LOOP PRINTING IT @VA07496 01367000
- CL R5,CHAINCK ANOTHER BLOCK ON CHAIN? @VA04250 01368000
- BNE IOBLOOP YES,PROCESS NEXT BLOCK @VA04250 01369000
- IOBACK EQU * @VA04250 01370000
- L R6,IOBRTN GET RETURN ADDR. @VA04250 01371000
- BR R6 RETURN @VA04250 01372000
- EJECT 01373000
- * THIS SUBROUTINE PRINTS A FORMATED SFBLOK. INPUT: THE FIELD 01374000
- * 'SPOOLSAV' CONTAINS THE ADDR. OF THE SFBLOK TO PRINT 01375000
- SPACE 1 01376000
- SFPRINT EQU * @VA04250 01377000
- ST R6,SFRTN SAVE RETURN ADDR. @VA04250 01378000
- L R5,SPOOLSAV GET ADDR OF SFBLOK @VA04250 01379000
- ST R5,WORK2 ADDR OF BLOCK FOR TRANSLATION @VA04250 01380000
- MVI ERRINDX,IX11 SET ERROR INDEX FOR GETPAGE @VA01570 01381000
- LA R3,SFBSIZE SIZE @VA04250 01382000
- BAL R2,GETPAGE GET PAGE CONTAING BLOCK @VA04250 01383000
- USING SFBLOK,R9 @VA04250 01384000
- L R4,SFBPNT GET NEXT SFBLOK POINTER @VA04250 01385000
- ST R4,NXTSFBK SAVE @VA04250 01386000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01387000
- BAL R6,TRANINIT TRANSLATE BLOCK AND ITS ADDR @VA04250 01388000
- MVC HSFID(8),SFBUSER USERID @VA04250 01389000
- MVC HSFADDR(6),WORK+2 @VA04250 01390000
- LA R2,HSFBLK @VA04250 01391000
- LA R3,K3 NO. OF HEADING LINES @VA04250 01392000
- LA R5,SFBSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01393000
- LA R7,FSPOOL INITIAL START ADDR IN O/P AREA @VA04250 01394000
- BAL R6,BLKPRINT GO PRINT SFBLOK @VA04250 01395000
- SFERR EQU * @VA02332 01396000
- L R6,SFRTN GET RETURN ADDR. @VA04250 01397000
- BR R6 RETURN @VA04250 01398000
- SPACE 1 01399000
- * THIS SUBROUTINE PRINTS THE IOERBLOK. INPUT: IF THERE IS A 01400000
- * BLOCK TO PRINT THE SWITCH 'IOERSW' WILL CONTAIN A X'FF' AND 01401000
- * THE FIELD 'ERRBLOCK' WILL CONTAIN THE ADDR. OF THE BLOCK TO 01402000
- * PRINT 01403000
- SPACE 1 01404000
- IOERPRC EQU * @VA11255 01405000
- ST R6,IOERSAV SAVE RETURN ADDR. @VA04250 01406000
- NI IOERSW,255-XFF CLEAR SWITCH @VA04250 01407000
- L R5,ERRBLOCK GET ADDR OF IOERBLOK @VA04250 01408000
- ST R5,WORK2 PUT IN TRANSLATION AREA @VA04250 01409000
- MVI ERRINDX,IX12 SET ERROR INDEX FOR GETPAGE @VA01570 01410000
- LA R3,IOERSIZE SIZE @VA04250 01411000
- BAL R2,GETPAGE GET PAGE WITH BLOCK @VA04250 01412000
- USING IOERBLOK,R9 @VA04250 01413000
- SLL R3,3 8=NO. OF BYTES TO TRANSLATE @VA04250 01414000
- BAL R6,TRANINIT TRANSLATE BLOCK AND ITS ADDR @VA04250 01415000
- MVC HIOBLKS(13),HIOERBLK PUT 'IOERBLOK' IN HEADING @VA04250 01416000
- MVC HIOBADDR(6),WORK+2 BLOK ADDRESS @VA04250 01417000
- LA R2,HIOBLKS ADDR HEADING LINES @VA04250 01418000
- LA R3,K2 NO. OF HEADING LINES @VA04250 01419000
- LA R5,IOERSIZE NO. OF DOUBLE WORDS TO PRINT @VA04250 01420000
- LA R7,FSPOOL @VA04250 01421000
- BAL R6,BLKPRINT GO PRINT IOERBLOK @VA04250 01422000
- IOERERR EQU * RETURN FROM ERROR @VA01570 01423000
- L R6,IOERSAV GET RETURN ADDR. @VA04250 01424000
- BR R6 RETURN @VA04250 01425000
- EJECT 01426000
- * ******************************************** 01427000
- * * THIS SUBROUTINE WILL PRINTOUT THE PTR, * 01428000
- * * PCH,AND RDR SFBLOK CHAINS. * 01429000
- * ******************************************** 01430000
- SPACE 3 01431000
- SFFORM EQU * @VA04250 01432000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01433000
- MVC DATA+2(K19),=C'PRINTER SPOOL CHAIN' @VA04250 01434000
- MVI ERRINDX,IX13 SET ERROR INDEX FOR GETPAGE @VA01570 01435000
- L R5,PRTSPL GET PTR SPOOL POINTER @VA04250 01436000
- SFFORM1 LA R3,1 ONE WORD @VA04250 01437000
- BAL R2,GETPAGE @VA04250 01438000
- L R5,K0(,R9) GET ADR OF SFBLOK @VA04250 01439000
- BAL R6,PRINTA GO PRINT HEADING @VA04250 01440000
- SFFORM2 LTR R5,R5 EQUAL TO ZERO @VA04250 01441000
- BZ SFFORM7 BRANCH IF YES @VA04250 01442000
- MVI SFFORM7+1,XF0 SET SWITCH @VA04250 01443000
- ST R5,SPOOLSAV ADDRESS OF SFBLOK @VA04250 01444000
- BAL R6,SFPRINT PRINT BLOCK @VA04250 01445000
- L R5,NXTSFBK GET NEXT BLOK ADDRESS @VA04250 01446000
- B SFFORM2 @VA04250 01447000
- SPACE 2 01448000
- SFFORM7 NOP SFFORM8 @VA04250 01449000
- MVI CTL,SPACE3 @VA04250 01450000
- MVI SPACENUM+1,X03 @VA04250 01451000
- MVC DATA+16(K24),=C'NO SFBLOKS ON THIS CHAIN' @VA04250 01452000
- SFFORM8 BAL R6,PRINTA PRINT EXTRA BLANK LINE @VA04250 01453000
- SFFORMC NOP SFFORM9 @VA04250 01454000
- MVC DATA+2(K17),=C'PUNCH SPOOL CHAIN' @VA04250 01455000
- MVI SFFORM7+1,X00 RESTORE NOP @VA04250 01456000
- MVI SFFORMC+1,XF0 @VA04250 01457000
- L R5,PNCHSPL GET PUNCH SPOOL POINTER @VA04250 01458000
- B SFFORM1 @VA04250 01459000
- SFFORM9 NOP CORTBL @VA04250 01460000
- MVC DATA+2(K18),=C'READER SPOOL CHAIN' @VA04250 01461000
- MVI SFFORM7+1,X00 RESTORE TO NOP @VA04250 01462000
- MVI SFFORM9+1,XF0 @VA04250 01463000
- L R5,RDRSPL GET RDR SPOOL POINTER @VA04250 01464000
- B SFFORM1 @VA04250 01465000
- EJECT 01466000
- * ************************************************** 01467000
- * * * THE FOLLOWING ROUTINE WILL FORMAT AND PRINT * 01468000
- * * OUT THE CORETABLE. * 01469000
- * ************************************************** 01470000
- SPACE 3 01471000
- USING CORTABLE,R10 @VA04250 01472000
- CORTBL MVC LINECT,=H'59' 01473100
- L R7,RSYSRV GET REAL STORAGE GENERATION SIZE @VA04250 01474000
- SRL R7,12 SIZE IN PAGES @VA04250 01475000
- L R5,CORPOINT GET START @VA04250 01476000
- CORTBLS LH R6,LINECT GET COUNT @VA04250 01477000
- CH R6,=H'59' ENOUGH ON ONE PAGE ?? @VA10490 01478001
- BNE CORTBL2 NO @VA04250 01479000
- MVI CTL,SPACE1 SETUP FOR SINGLE SPACE @VA04250 01480000
- MVI SPACENUM+1,X01 @VA04250 01481000
- MVC DATA+30(39),CORTBHD1 HEADING @VA04250 01482000
- MVC DATA+72(K21),CORTBHD2 MVE 2ND LINE OF HD TO BUF@VA04250 01483000
- MVC DATA+19(7),=C'ADDRESS' @VA04250 01484000
- BAL R6,PRINTA @VA04250 01485000
- BAL R6,PRINTA PRINT A BLANK LINE @VA01570 01486000
- CORTBL2 ST R5,THIS @VA04250 01487000
- MVI ERRINDX,IX14 SET ERROR INDEX FOR GETPAGE @VA01570 01488000
- LA R3,2 2 DBL WDS @VA04250 01489000
- BAL R2,GETPAGE @VA04250 01490000
- A R5,BLKSIZE ADD 16 TO GET NXT BLK ADR @VA04250 01491000
- ST R5,NXTSFBK @VA04250 01492000
- UNPK WORK3(7),THIS+1(4) @VA04250 01493000
- TR WORK3(6),TTAB-240 @VA04250 01494000
- MVC DATA+20(6),WORK3 @VA04250 01495000
- UNPK WORK3(5),PGCT(3) @VA04250 01496000
- TR WORK3(4),TTAB-240 @VA04250 01497000
- MVC DATA+74(3),WORK3+1 PAGE NUMBER @VA04250 01498000
- MVC WORK2(K16),K0(R9) SAVE THE BLOCK @VA04250 01499000
- SPACE 2 01500000
- * GO GET USERS NAME 01501000
- SPACE 2 01502000
- USING CORTABLE,R10 @VA04250 01503000
- CORTBL3 LR R10,R9 @VA04250 01504000
- L R8,=A(ITEM2) RESTORE R8 TO POINT TO ITEM2 @VA08574 01505000
- CLC I2VM,CORFPNT IS THIS THE VMBLOK? @VA08574 01506000
- BNE CORTBL4 NO @VA04250 01507000
- MVC DATA+82(18),=CL18'CP- RESIDENT' @VA04250 01508000
- B CORTBL9 @VA04250 01509000
- CORTBL4 CLC FREEID(K4),CORFPNT EQUAL TO FREE @VA04250 01510000
- BNE CORTBL5 NO @VA04250 01511000
- MVC DATA+82(18),=CL18'CP- FREE STORAGE' @VA04250 01512000
- B CORTBL9 @VA04250 01513000
- CORTBL5 TM CORFLAG,CORCP IS IT A CP PAGE ?? @VA04250 01514000
- BNO CORTBL6 NO @VA04250 01515000
- MVC DATA+82(18),=CL18'CP- PAGEABLE' @VA04250 01516000
- B CORTBL9 @VA04250 01517000
- SPACE 1 01518000
- CORTBL6 TM CORFLAG,CORFREE CHECK TO SEE IF ON FREE LIST@VA04250 01519000
- BO CORTBLA YES @VA04250 01520000
- TM CORFLAG,CORDISA DISABLED ?? @VA04250 01521000
- BO CORTBLE YES @VA04250 01522000
- CLC CORFPNT,=CL4'*OL*' OFFLINE ?? @VA04250 01523000
- BNE CORTBLB NO @VA04250 01524000
- CORTBLE MVC DATA+82(18),=CL18'CP- OFFLINE' @VA04250 01525000
- B CORTBL9 @VA04250 01526000
- CORTBLA MVC DATA+82(18),=CL18'USER FREE LIST' @VA04250 01527000
- B CORTBL9 @VA04250 01528000
- CORTBLB TM CORFLAG,CORFLUSH @VA04250 01529000
- BZ CORTBLC NO @VA04250 01530000
- MVC DATA+82(18),=CL18'USER FLUSH LIST' @VA04250 01531000
- B CORTBL9 @VA04250 01532000
- CORTBLC TM CORFLAG,CORSHARE @VA04250 01533000
- BZ CORTBLD NO @VA04250 01534000
- MVC DATA+82(18),=CL18'USER SHARED PAGE' @VA04250 01535000
- B CORTBL9 @VA04250 01536000
- CORTBLD MVC DATA+82(18),=CL18'USER' @VA04250 01537000
- CORTBL6A L R5,CORSWPNT GET SWPTABLE ADDRESS @VA04250 01538000
- LA R5,0(R5) CLEAR @VA04250 01539000
- MVI ERRINDX,IX15 SET ERROR INDEX FOR GETPAGE @VA01570 01540000
- LA R3,1 SIZE @VA04250 01541000
- BAL R2,GETPAGE GET SWPTABLE ENTRY @VA04250 01542000
- USING SWPTABLE,R10 @VA04250 01543000
- LR R10,R9 SAVE SWPTABLE ADDRESS @VA04250 01544000
- SR R9,R9 @VA04250 01545000
- IC R9,1(R10) GET VIRT PAGE ADDRESS @VA04250 01546000
- LA R9,1(R9) UP INDEX @VA04250 01547000
- SLL R9,3 TIMES 8 @VA04250 01548000
- SR R5,R9 POINT TO VMBLOK POINTER @VA04250 01549000
- MVI ERRINDX,IX16 SET ERROR INDEX FOR GETPAGE @VA01570 01550000
- LA R3,1 SIZE @VA04250 01551000
- BAL R2,GETPAGE @VA04250 01552000
- LR R10,R9 LOAD BASE REG @VA04250 01553000
- L R5,SWPVM GET VMBLOCK ADDRESS @VA04250 01554000
- USING VMBLOK,R10 @VA04250 01555000
- MVI ERRINDX,IX17 SET ERROR INDEX FOR GETPAGE @VA01570 01556000
- LA R3,VMBSIZE SIZE @VA04250 01557000
- BAL R2,GETPAGE GET VMBLOK @VA04250 01558000
- LR R10,R9 LOAD BASE REG @VA04250 01559000
- MVC DATA+87(K8),VMUSER MOVE USERID TO PRT BUF @VA04250 01560000
- CORTBL9 DS 0H @VA04250 01561000
- SPACE 2 01562000
- * FORMAT COREBLOCK DATA AND PRINT IT 01563000
- SPACE 1 01564000
- CORTBL7 EQU * @VA04250 01565000
- LA R3,K16 LENGTH @VA04250 01566000
- BAL R6,TRANINT1 @VA04250 01567000
- LA R4,DATA+30 TO FIELD @VA04250 01568000
- LA R5,WORK FROM FIELD @VA04250 01569000
- LA R2,K32 LENGTH @VA04250 01570000
- BAL R6,MVSBRTN @VA04250 01571000
- BAL R6,PRINTA @VA04250 01572000
- LH R5,PGCT GET PAGE COUNT @VA04250 01573000
- LA R5,1(R5) BUMP @VA04250 01574000
- STH R5,PGCT SAVE @VA04250 01575000
- L R5,NXTSFBK GET NEXT CORETABLE ENTRY @VA04250 01576000
- BCT R7,CORTBLS LOOP @VA04250 01577000
- B VIRTUALM DO VMBLOKS @VA04250 01578000
- SPACE 2 01579000
- EJECT 01580000
- * ************************************************** 01581000
- * * THE FOLLOWING ROUTINE WILL PRINT OUT THE * 01582000
- * * * SEGMENT, PAGE, AND SWAP TABLES FOR A USER. * 01583000
- * * UPON ENTRY TO THIS ROUTINE * 01584000
- * * R5= POINTER TO VMBLOK 01585000
- * * R6= RETURN ADDR * 01586000
- * ************************************************** 01587000
- SPACE 3 01588000
- USING VMBLOK,R10 @VA04250 01589000
- SEGPGTB ST R6,RETADR SAVE RETURN ADDRESS @VA04250 01590000
- MVC SEGNUMB,=H'0' CLEAR @VA04250 01591000
- MVI CTL,SPACE1 SETUP FOR TRIPLE SPACE @VA04250 01592000
- MVI SPACENUM+1,X01 @VA04250 01593000
- MVI ERRINDX,IX18 SET ERROR INDEX FOR GETPAGE @VA01570 01594000
- LA R3,VMBSIZE SIZE @VA04250 01595000
- BAL R2,GETPAGE GET VMBLOK @VA04250 01596000
- LR R10,R9 LOAD INCORE ADR OF VMBLOK IN BASE@VA04250 01597000
- L R5,VMSEG GET SEGMENT TABLE ADDR @VA04250 01598000
- LTR R5,R5 DOES SEGMENT TABLE PTR=0 @VA04250 01599000
- BNZ SEGPGTP1 BR IF NO @VA04250 01600000
- MVC DATA+10(50),SEGHD3 MOVE MSG TO PRT BUFFER @VA04250 01601000
- BAL R6,PRINTA @VA04250 01602000
- B SEGPGTBF GO BACK TO CALLER @VA04250 01603000
- SEGPGTP1 MVC DATA+10(40),SEGHD HEADING @VA04250 01604000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01605000
- BAL R6,PRINTA PRINT HEADING @VA04250 01606000
- SPACE 1 01607000
- SEGPGTBE ST R5,SEGSAVE SAVE IT @VA04250 01608000
- L R10,VMSIZE GET NUMBER OF SEGMENTS TO BE @VA01570 01609000
- * PRINTED 01610000
- A R10,K64M1 ADJUST FOR PARTIAL SEGMENTS @VA01570 01611000
- SRL R10,16 AND DROP REMAINDER @VA01570 01612000
- DROP R10 @VA04250 01613000
- L R5,SEGSAVE RESTORE SEGMENT TBL ADR @VA04250 01614000
- SEGPGTB1 LA R3,1 SIZE @VA04250 01615000
- MVI ERRINDX,IX19 SET ERROR INDEX FOR GETPAGE @VA01570 01616000
- BAL R2,GETPAGE @VA04250 01617000
- MVC PAGNUMB,=H'0' RESET PAGE COUNT @VA01570 01618000
- MVI SEGPGTBA+1,X00 INIT THE FIRST SWITCH @VA01570 01619000
- MVI SEGPGTBB+1,X00 AND THE SECOND TOO @VA01570 01620000
- BAL R6,PRINTA PRINT A BLANK LINE @VA01570 01621000
- MVC WORK2(K4),K0(R9) PLACE ENTRY INTO WORK2 @VA04250 01622000
- L R5,K0(,R9) LOAD PAGE TABLE ADDR INTO R5 @VA04250 01623000
- LA R5,0(R5) CLEAR HI BYTE @VA04250 01624000
- S R5,=F'4' R5 POINTS TO PG TBL -4 @VA04250 01625000
- SR R7,R7 CLEAR @VA04250 01626000
- TM 3(R9),X'01' IS SEGMENT VALID ?? @VA04250 01627000
- BO SEGPGTBD NO @VA04250 01628000
- L R7,0(,R9) LOAD PAGETABLE ADDRESS @VA01127 01629000
- SRL R7,28 GET NUMBER OF PAGE ENTRIES -1 @VA01127 01630000
- LA R7,1(,R7) ADD ONE @VA01127 01631000
- SEGPGTB2 ST R5,PGSAVE @VA04250 01632000
- MVI ERRINDX,IX1A SET ERROR INDEX FOR GETPAGE @VA01570 01633000
- LA R3,4 SIZE @VA04250 01634000
- BAL R2,GETPAGE GO GET PAGE TABLE @VA04250 01635000
- MVC WORK2+4(K2),K4(R9) SAVE PAGETABLE ENTRY @VA04250 01636000
- SPACE 1 01637000
- SEGPGTBA NOP SEGPGTB3 @VA04250 01638000
- * * THE FOLLOWING INSTRUCTION IS EXECUTED ONLY WHEN 01639000
- * A NEW SEGMENT TABLE ENTRY IS FETCHED. 01640000
- MVC SWAPSAVE+1(K3),K1(R9) SAVE ADDR OF SWAPTABLE @VA04250 01641000
- MVI SEGPGTBA+1,XF0 SET SWITCH @VA04250 01642000
- LH R5,LINECT GET LINE COUNT @VA04250 01643000
- CH R5,=H'43' ROOM ON PAGE FOR ALL ?? @VA04250 01644000
- BL SEGPGTB3 YES @VA04250 01645000
- MVC DATA+10(40),SEGHD HEADING @VA04250 01646000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01647000
- BAL R6,PRINTA PRINT IT @VA04250 01648000
- BAL R6,PRINTA PRINT A BLANK LINE @VA01570 01649000
- SPACE 3 01650000
- SEGPGTB3 L R5,SWAPSAVE GET POINTER TO SWPTABLE ENTRY @VA04250 01651000
- MVI ERRINDX,IX1B SET ERROR INDEX FOR GETPAGE @VA01570 01652000
- LA R3,1 @VA04250 01653000
- BAL R2,GETPAGE @VA04250 01654000
- MVC WORK2+6(K8),K0(R9) MOVE ENTRY TO WORK2 @VA04250 01655000
- SEGPGTBD LA R3,K16 LENGTH @VA04250 01656000
- BAL R6,TRANINT1 GO UNPACK DATA @VA04250 01657000
- SEGPGTBB NOP SEGPGTBC @VA04250 01658000
- MVC DATA+10(K8),WORK MOVE SEGTBL ENTRY TO PRT BUF@VA04250 01659000
- UNPK WORK3(3),SEGNUMB+1(2) @VA04250 01660000
- TR WORK3(2),TTAB-240 @VA04250 01661000
- MVC DATA+6(2),WORK3 SEG NUMBER @VA04250 01662000
- LTR R7,R7 R7=0 EQUALS NO PG TBL THIS ENTRY @VA04250 01663000
- BZ SEGPGTB7 @VA04250 01664000
- MVI SEGPGTBB+1,XF0 @VA04250 01665000
- SEGPGTBC MVC DATA+25(4),WORK+8 MOVE PAGTABLE @VA04250 01666000
- LA R5,WORK+12 FROM ADDR @VA04250 01667000
- LA R4,DATA+33 AREA @VA04250 01668000
- LA R2,K16 LENGTH @VA04250 01669000
- BAL R6,MVSBRTN MOVE SWAPTABLE ENTRY TO PRTBUF @VA04250 01670000
- UNPK WORK3(3),PAGNUMB+1(2) @VA04250 01671000
- TR WORK3(2),TTAB-240 @VA04250 01672000
- MVC DATA+22(1),WORK3+1 @VA04250 01673000
- BAL R6,PRINTA @VA04250 01674000
- SEGERR EQU * @VA01570 01675000
- BCT R7,SEGPGTB4 FALL THRU WHEN ALL PGTBLE PRTED @VA04250 01676000
- B SEGPGTB5 @VA04250 01677000
- SPACE 2 01678000
- * INCREMENT PGSAVE TO POINT TO NEXT PAGE TABLE ENTRY 01679000
- * AND INCREMENT THE PAGE NUMBER. 01680000
- SPACE 2 01681000
- SEGPGTB4 LH R5,PAGNUMB GET PAGE COUNT @VA04250 01682000
- LA R5,1(R5) BUMP @VA04250 01683000
- STH R5,PAGNUMB SAVE @VA04250 01684000
- LA R5,K8 LENGTH OF SWAP TABLE @VA04250 01685000
- A R5,SWAPSAVE UPDATE POINTER @VA04250 01686000
- ST R5,SWAPSAVE SAVE IT @VA04250 01687000
- LA R5,K2 ADD 2 TO @VA04250 01688000
- A R5,PGSAVE TO POINT TO NEXT ENTRY @VA04250 01689000
- MVC WORK(K8),BLANK1 CLEAR SEGMT ENTRY FROM WORK @VA04250 01690000
- B SEGPGTB2 GO BACK TO CONSTRUCT NXT LINE @VA04250 01691000
- SPACE 3 01692000
- * WHEN A COMPLETE PAGE TABLE HAS BEEN PRTED UP DATE 01693000
- * SEGMENT POINTERS, AND RETURN TO START CYCLE OVER. 01694000
- SPACE 2 01695000
- SEGPGTB5 BCT R10,SEGPGTB6 REDUCE BY 1 AMT OF SEG TAB ENTRY @VA04250 01696000
- SEGPGTBF L R6,RETADR GET RETURN ADDR @VA04250 01697000
- BR R6 GO BACK TO CALLER @VA04250 01698000
- SEGPGTB6 LH R5,SEGNUMB GET SEG COUNT @VA04250 01699000
- LA R5,1(R5) BUMP @VA04250 01700000
- STH R5,SEGNUMB SAVE @VA04250 01701000
- LA R5,K4 ADD 4 TO @VA04250 01702000
- A R5,SEGSAVE TO POINT TO NXT ENTRY @VA04250 01703000
- ST R5,SEGSAVE SAVE IT @VA04250 01704000
- B SEGPGTB1 @VA04250 01705000
- SPACE 2 01706000
- SEGPGTB7 DS 0H @VA04250 01707000
- MVC DATA+20(K39),SEGHD2 MOVE MESSAGE INTO BUF @VA04250 01708000
- BAL R6,PRINTA @VA04250 01709000
- B SEGPGTB5 GO GET NEXT SEGMENT ENTRY @VA04250 01710000
- EJECT 01711000
- * ************************************************** 01712000
- * * HEX CORE DUMP ROUTINE * 01713000
- * ************************************************** 01714000
- SPACE 3 01715000
- HEXDUMP CLI HEX+7,X01 SEE IF NO HEX DUMP WAS SPECIFIED @VA04250 01716000
- BE ERASE3 BR IF YES @VA04250 01717000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01718000
- MVI PREND+1,XF0 SET EXIT SWITCH @VA01570 01719000
- B PREREG PRINT LOW CORE INFO @VA04250 01720000
- SPACE 01721000
- RDKEY DS 0H RETURN AFTER PRINTING LOW CORE @VA04250 01722000
- MVI CTL,SPACE1 @VA04250 01723000
- MVI SPACENUM+1,1 @VA04250 01724000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01725000
- FSREAD FSCB=DUMPFILE,BUFFER=KEY,ERROR=QUIT,RECNO=3 @VA04250 01726000
- FSREAD FSCB=DUMPFILE,BUFFER=KEY1,ERROR=QUIT,RECNO=4 @VA04250 01727000
- L R9,=A(ITEMTBL) GET TABLE ADDRESS @VA04250 01728000
- PRTMAIN DS 0H @V407510 01729000
- L R8,=A(ITEM2) SET BUFFER ADDRESS @V407510 01730000
- L R5,I2MPREF GET MAIN PROCESSOR PSA ADDR @V407510 01731000
- LTR R5,R5 UNIPROCESSOR SYSTEM? @V407510 01732000
- BZ READPAGE YES, START TO DUMP CORE @V407510 01733000
- MVI PSASW,K0 CLEAR SWITCH FOR PSA @V407510 01734000
- MVI ERRINDX,IX1E ERROR INDICATOR FOR GETPAGE @V407510 01735000
- LA R7,HVMAIN SET UP FOR HEADING @V407510 01736000
- XC CURRPAGE,CURRPAGE CLEAR CURRPAGE PTR @V407510 01737000
- PSALOOP DS 0H @V407510 01738000
- MVC LINECT,=H'60' FORCE PAGE EJECT @V407510 01739000
- ST R5,WORK2 SAVE ADDRESS FOR HEADING @V407510 01740000
- LA R3,K256 PAGE SIZE IN DBL WORDS @V407510 01741000
- BAL R2,GETPAGE BRING PAGE IN CORE @V407510 01742000
- SLL R3,K3 PAGE SIZE IN BYTES -DBLWORDS*8 @V407510 01743000
- BAL R6,TRANINIT TRANSLATE @V407510 01744000
- MVC DATA(K14),0(R7) MOVE IN HEADING @V407510 01745000
- MVC DATA+K20(K6),WORK+K2 ADDRESS IN HEADING @V407510 01746000
- BAL R6,PRINTA PRINT HEADING @V407510 01747000
- LH R10,ITEMNO GET ITEM NUMBER @V407510 01748000
- LA R6,K5 CORE DUMP STARTS AT REC 5 @V407510 01749000
- SR R10,R6 GET ITEM # BASE LOC 0 @V407510 01750000
- SLL R10,K1 MULTIPLY BY 2 FOR HW ENTRIES @V407510 01751000
- A R10,=A(ITEMTBL) GET ITEMTBL ENTRY @V407510 01752000
- LH R10,0(R10) GET PAGE NUMBER @V407510 01753000
- BAL R6,GETKEY GET PROTECT KEY @V407510 01754000
- SLL R10,K12 GET PROPER DISPLACEMENT @V407510 01755000
- ST R10,LASTPAG INITIALIZE LASTPAG PTR @V407510 01756000
- MVC HOLD(K32),BLK BLANK OUT COMPARE FIELD @V407510 01757000
- LR R14,R9 SET UP BUFFER ADDRESS @V407510 01758000
- BAL R6,PNTPAGE PRINT PAGE @V407510 01759000
- PRTATT DS 0H @V407510 01760000
- CLI PSASW,K0 FINISHED PROCESSING PSA? @V407510 01761000
- BNZ DUMPCORE YES, DUMP CORE @V407510 01762000
- MVI PSASW,XFF INDICATE END OF PSA PROCESSING @V407510 01763000
- L R8,=A(ITEM2) SET BUFFER ADDRESS @V407510 01764000
- L R5,I2APREF GET ATTACHED PROCESSOR PSA ADDR @V407510 01765000
- MVI ERRINDX,IX1F SET ERROR INDICATOR FOR GETPAGE @V407510 01766000
- LA R7,HVATT SET UP HEADING @V407510 01767000
- B PSALOOP PROCESS ATTACHED PROCESSOR PSA @V407510 01768000
- DUMPCORE DS 0H @V407510 01769000
- XC LASTPAG,LASTPAG CLEAR LAST PAGE PTR @V407510 01770000
- L R9,=A(ITEMTBL) GET TABLE ADDRESS @V407510 01771000
- LA R1,K4 SET UP FOR LOOP CONTROL @V407510 01772000
- STH R1,ITEMNO START LOOP WITH REC 5 @V407510 01773000
- MVC DATA(K14),HVSTOR MOVE IN HEADING @V4M0004 01774000
- MVC LINECT,=H'60' FORCE PAGE EJECT @V4M0004 01775000
- BAL R6,PRINTA PRINT HEADING @V4M0004 01776000
- READPAGE DS 0H @V407510 01777000
- LH R1,ITEMNO GET ITEM @VA04250 01778000
- LA R1,1(R1) ADD ONE @VA04250 01779000
- STH R1,ITEMNO SET ITEM @VA04250 01780000
- FSREAD FSCB=DUMPFILE,BUFFER=BUFF,ERROR=ERRCK @VA04250 01781000
- LH R10,K0(,R9) GET PAGE NO @VA04250 01782000
- CH R10,FFFF END OF DUMP DATA? @VA04250 01783000
- BE ENDUMP YES, FINISH IT @VA08111 01784000
- BAL R6,GETKEY GET PROTECT KEY @VA08111 01785000
- SLL R10,K12 GET PROPER DISPLACEMENT @VA08111 01786000
- L R14,=A(BUFF) SET BASE @VA08111 01787000
- BAL R6,PNTPAGE @VA08111 01788000
- LA R9,K2(,R9) @VA08111 01789000
- B READPAGE @VA08111 01790000
- ENDUMP LH R15,=H'12' INDICATE EOF @VA08111 01791000
- B ERRCK GO DO FINAL PROCESSING @VA04250 01792000
- SPACE 2 01793000
- * GET STORAGE PROTECT KEYS FOR THIS PAGE OF REAL CORE 01794000
- SPACE 2 01795000
- GETKEY L R2,KEYADR GET STARTING ADDR OF KEYS @VA04250 01796000
- LR R4,R10 MOVE PAGE NUMBER INTO R4 @VA04250 01797000
- SLL R4,K1 MULTIPLY BY 2 - TWO KEYS PER PG @VA04250 01798000
- LA R3,K0(R2,R4) GET ADDR WHICH ->KEYS FOR THIS PG@VA04250 01799000
- UNPK KEYSAVE(K5),K0(K3,R3) @VA04250 01800000
- TR KEYSAVE(K4),TTAB-240 @VA04250 01801000
- MVC KEYPRT+2(K2),KEYSAVE PUT INTO PRTBUF - WILL BE @VA04250 01802000
- * PRTED IN THE 1ST LINE OF EACH PAGE 01803000
- BR R6 RETURN TO CALLER @V407510 01804000
- SPACE 2 01805000
- SPACE 2 01806000
- ERRCK CH R15,=H'12' EOF ?? @VA04250 01807000
- BNE QUIT @VA04250 01808000
- ERASE3 EQU * @VA01570 01809000
- MVC DATA(19),=C'*** END OF DUMP ***' @VA04250 01810000
- BAL R6,PRINTA @VA04250 01811000
- SR R15,R15 SET ZERO RETURN CODE @VA04250 01812000
- ST R15,REGSAVE+K4 @V407510 01813000
- CLI ERASEIT+7,X01 SEE IF FILE IS TO BE ERASED @VA04250 01814000
- BNE KPFIL BR IF NO @VA04250 01815000
- BAL R2,ERASE @VA04250 01816000
- MVC ERMP,DUMP SET NAME @VA04250 01817000
- WRTERM ERMSG,ERMSGL @VA04250 01818000
- CLOSE MVC DMR1P,DUMP SET NAME @VA04250 01819000
- LA R1,CLOSEPNT CLOSE PRINTER @VA04250 01820000
- SVC X'CA' @VA04250 01821000
- FSCLOSE FSCB=DUMPFILE CLOSE THE FILE @VA02628 01822000
- SR R15,R15 CLEAR @VA04250 01823000
- B RETN @VA04250 01824000
- SPACE 2 01825000
- SPACE 2 01826000
- KPFIL EQU * @VA04250 01827000
- MVC KMP,DUMP SET NAME @VA04250 01828000
- WRTERM KPMSG,KPMSGL @VA04250 01829000
- B CLOSE @VA04250 01830000
- SPACE 3 01831000
- * PRINT PAGE ROUTINE. R14=INPUT BUFFER, R10=LINE ADDRESS 01832000
- SPACE 3 01833000
- PNTPAGE ST R6,RETADR SAVE CALLERS ADDRESS @VA04250 01834000
- C R10,LASTPAG CONTIGUOUS PAGES ?? @VA04250 01835000
- BE NXTLINE YES, CONT @VA04250 01836000
- ST R10,WORK2 SAVE START ADDRESS @VA04250 01837000
- UNPK WORK(9),LASTPAG(5) SAVE NEXT PAGE ADDRSSS @VA04250 01838000
- UNPK WORK+8(9),WORK2(5) THIS PAGE ADDRESS @VA04250 01839000
- TR WORK(16),TTAB-240 TRANSLATE @VA04250 01840000
- MVC DATA(6),WORK+2 SET FROM ADDRESS @VA04250 01841000
- MVC DATA+8(2),=C'TO' EDIT @VA04250 01842000
- MVC DATA+12(6),WORK+10 SET TO ADDRESS @VA04250 01843000
- MVC DATA+20(44),=C'SUPPRESSED NON-CONTROL-PROGRAM PAGE(S) .....' 01844000
- MVC KEYPRT+2(2),BLANK1 BLANK KEY ENTRY @VW01525 01845000
- BAL R6,PRINTA PRINT LINE @VA04250 01846000
- MVC KEYPRT+2(2),KEYSAVE RESTORE KEY FOR FIRST LINE @VW01525 01847000
- MVC LINECT,=H'60' FORCE EJECT @VA04250 01848000
- NXTLINE CLC HOLD(K32),K0(R14) PREVIOUS LINE THE SAME @VA04250 01849000
- MVC HOLD(K32),K0(R14) SAVE THIS LINE @VA04250 01850000
- BE SUPPRESS @VA04250 01851000
- SUPSW BC K0,PRNSUPP @VA04250 01852000
- ST R10,THISLINE @VA04250 01853000
- UNPK WORK(K9),THISLINE(K5) @VA04250 01854000
- TR WORK(K8),TTAB-240 @VA04250 01855000
- MVC LINEADDR(K6),WORK+2 STORE LINE ADDR IN BUFFER @VA04250 01856000
- MVC EBCIDIC(32),K0(R14) MOVE IN LINE @VA04250 01857000
- LA R3,K32 @VA04250 01858000
- LA R4,EBCIDIC @VA04250 01859000
- LA R5,WORK @VA04250 01860000
- BAL R6,TRANS @VA04250 01861000
- LA R5,WORK FROM ADDR @VA04250 01862000
- LA R4,WORDS TO ADDR @VA04250 01863000
- LA R2,K32 LENGTH @VA04250 01864000
- BAL R6,MVSBRTN @VA04250 01865000
- LA R2,K32 @VA04250 01866000
- LA R4,K2(,R4) @VA04250 01867000
- BAL R6,MVSBRTN @VA04250 01868000
- TR EBCIDIC(K32),HEXTAB @VA04250 01869000
- MVI EBCIDIC-1,C'*' @VA04250 01870000
- MVI EBCIDIC+32,C'*' @VA04250 01871000
- BAL R6,PRINTA @VA04250 01872000
- RESUMP LA R14,K32(,R14) BUMP INPUT BY 32 @VA04250 01873000
- LA R10,K32(,R10) BUMP REAL LINE ADDR BY 32 @VA04250 01874000
- ST R10,ANDFLD @VA04250 01875000
- NC ANDFLD(K4),=F'4095' CHECK FOR THE END OF PAGE @VA04250 01876000
- BZ RESUMP2 @VA04250 01877000
- NC ANDFLD(K4),=F'2047' @VA04250 01878000
- BNZ NXTLINE BR IF NOT END OF HALF PAGE @VA04250 01879000
- MVC KEYPRT+2(K2),KEYSAVE+2 GET KEY FOR 2ND HALF PAG@VA04250 01880000
- B NXTLINE @VA04250 01881000
- RESUMP2 ST R10,LASTPAG SAVE LAST PAGE PRINTED @VA04250 01882000
- RESUMP1 TM SUPSW+1,XF0 @VA04250 01883000
- BC K7,CLEANUP @VA04250 01884000
- GONE DS 0H @VA04250 01885000
- L R6,RETADR @VA04250 01886000
- BR R6 GO TO PG CONTROL FOR NXT PAGE @VA04250 01887000
- SUPPRESS ST R10,SAME SAVE NEW ADDRESS @VA04250 01888000
- MVI SUPSW+1,XF0 @VA04250 01889000
- B RESUMP @VA04250 01890000
- PRNSUPP ST R10,SAME @VA04250 01891000
- LM R3,R4,THISLINE GET LAST PRTD LINE&LAST SAME LINE@VA04250 01892000
- LA R3,K32(,R3) @VA04250 01893000
- STM R3,R4,WORK2 @VA04250 01894000
- UNPK WORK(K9),WORK2(K5) @VA04250 01895000
- UNPK WORK+8(K9),WORK2+4(K5) @VA04250 01896000
- TR WORK(K16),TTAB-240 @VA04250 01897000
- MVC DATA(K6),WORK+2 @VA04250 01898000
- MVC DATA+8(K2),=C'TO' @VA04250 01899000
- MVC DATA+12(K6),WORK+10 @VA04250 01900000
- MVC DATA+20(38),=C'SUPPRESSED LINE(S) SAME AS ABOVE .....' 01901000
- BAL R6,PRINTA @VA04250 01902000
- MVI SUPSW+1,X00 @VA04250 01903000
- PAGEEND BC K0,PAGEFINI @VA04250 01904000
- B SUPSW @VA04250 01905000
- CLEANUP MVI PAGEEND+1,XF0 SET RETURN @VA04250 01906000
- B PRNSUPP PRINT SUPPRESSED LINE MSG @VA04250 01907000
- PAGEFINI MVI PAGEEND+1,X00 @VA04250 01908000
- MVC HOLD(K32),BLK BLANK OUT COMPARE FIELD @VA04250 01909000
- B GONE @VA04250 01910000
- EJECT 01911000
- * ******************************************** 01912000
- * * PRINTA IS A SERVICE ROUTINE WHICH WILL * 01913000
- * * * PRINT A 131 CHARACTER LINE FROM THE * 01914000
- * * BUFFER LABELED DATA. IN ADDITION A LINE * 01915000
- * * COUNT IS KEPT AND PAGE EJECT IS PERFORMED* 01916000
- * * WHEN NECESSARY. * 01917000
- * ******************************************** 01918000
- SPACE 3 01919000
- PRINTA STM R0,R2,PRTSAVE SAVE @VA04250 01920000
- LH R2,LINECT GET THE LINE COUNT @VA04250 01921000
- AH R2,SPACENUM UPDATE LINE COUNT @VA04250 01922000
- CH R2,=H'59' ENOUGH ON ONE PAGE ?? @VMI0055 01923000
- BNH PRINT BR IF LINE COUNT LESS THAN 60 @VA04250 01924000
- PRINTL EJECT,1 @VA04250 01925000
- NONFATAL EQU * @VA04250 01926000
- LH R2,SPACENUM RESET LINE COUNT @VA04250 01927000
- PRINT DS 0H @VA04250 01928000
- PRINTL LINE,133,ERROR=PRTERR @VA04250 01929000
- MVI DATA,C' ' @VA04250 01930000
- MVC DATA+1(131),DATA @VA04250 01931000
- STH R2,LINECT SAVE NEW COUNT @VA04250 01932000
- LM R0,R2,PRTSAVE RESTORE @VA04250 01933000
- BR R6 RETURN @VA04250 01934000
- SPACE 2 01935000
- PRTSAVE DS 3F'0' REG SAVE AREA @VA04250 01936000
- LINECT DC H'0' @VA04250 01937000
- SPACENUM DC H'1' @VA04250 01938000
- LINE DS 0CL133 @VA04250 01939000
- CTL DC C'0' SET FOR DOUBLE SPACING @VA04250 01940000
- DATA DC CL132' ' LINE BUFFER @VA04250 01941000
- LINEADDR EQU DATA @VA04250 01942000
- WORDS EQU DATA+10 @VA04250 01943000
- KEYPRT EQU DATA+90 @VA04250 01944000
- EBCIDIC EQU DATA+97 @VA04250 01945000
- DS 0F @VA04250 01946000
- EJECT DC C'1' NEW PAGE @VA04250 01947000
- SPACE 3 01948000
- * ************************************************** 01949000
- * * THE GETPAGE SERVICE ROUTINE WILL FETCH FROM THE* 01950000
- * * DUMP FILE THE PAGE (OR TWO) WHICH CONTAINS THE * 01951000
- * * ADDR IN R5. TWO PAGES WILL BE FETCHED AT A TIME* 01952000
- * * IF CONTIGUOUS,IF NOT ONLY ONE. THIS IS BECAUSE * 01953000
- * * A BLOK MAY OVERLAY A PAGE BOUNDRY. R9 UPON RE- * 01954000
- * * * TURN WILL CONTAIN THE INCORE ADR OF THE R5 ADR.* 01955000
- * ************************************************** 01956000
- SPACE 3 01957000
- GETPAGE DS 0H @VA04250 01958000
- LR R6,R5 SAVE ADDRESS @VA04250 01959000
- N R6,=X'00FFFFFF' @VA04250 01960000
- SRL R6,K12 GET PAGE NUMBER @VA04250 01961000
- CH R6,CURRPAGE IS PAGE IN BUFFER @VA04250 01962000
- BE GIVE BR IF YES @VA04250 01963000
- L R4,=A(ITEMTBL) GET TABLE BASE @VA04250 01964000
- LA R8,K5 R8 IS ITEM NUMBER ON DISK OF PG 0@VA04250 01965000
- SEARCH CH R6,0(,R4) IS THIS DESIRED PAGE @VA04250 01966000
- BE GET BR IF YES @VA04250 01967000
- LA R4,2(,R4) BUMP TO NEXT TABLE ENTRY @VA04250 01968000
- LA R8,1(,R8) BUMP ITEM NUMBER @VA04250 01969000
- CLC K0(K2,R4),FFFF CHECK FOR END OF ITEM TABLE @VA04250 01970000
- BNE SEARCH BRANCH IF NO @VA04250 01971000
- B ERRFND @VA04250 01972000
- GET STH R8,ITEMNO STORE DESIRED ITEM NO. @VA04250 01973000
- STH R6,CURRPAGE CURRENT PAGE IN BUFFER @VA04250 01974000
- LR R8,R5 GET PAGE ADDRESS @VA04250 01975000
- LR R4,R3 GET SIZE REQUIRED @VA04250 01976000
- SLL R4,3 IN BYTES @VA04250 01977000
- AR R8,R4 GET END PAGE ADDRESS @VA04250 01978000
- SRL R8,12 GET PAGE ADDRESS @VA04250 01979000
- CH R8,CURRPAGE IS IT THE SAME ?? @VA04250 01980000
- BE GETONE YES, GET ONE PAGE ONLY @VA04250 01981000
- GETWO MVI NUMBER+1,2 READ 2 RECORDS @VA04250 01982000
- B RETRVE READ @VA04250 01983000
- GETONE MVI NUMBER+1,1 @VA04250 01984000
- RETRVE DS 0H @VA04250 01985000
- FSREAD FSCB=DUMPFILE,BUFFER=BUFF,ERROR=QUIT @VA04250 01986000
- SET9 L R9,=A(BUFF) GET BASE OF AREA @VA04250 01987000
- LR R6,R5 GET ADDRESS @VA04250 01988000
- N R6,XFFF GET DISPALCEMENT @VA04250 01989000
- AR R9,R6 FORM ADDRESS OF DATA @VA04250 01990000
- MVI NUMBER+1,1 RESET TO 1 @VA04250 01991000
- BR R2 RETURN @VA04250 01992000
- GIVE LR R8,R5 GET ADDRESS @VA04250 01993000
- LR R4,R3 SIZE @VA04250 01994000
- SLL R4,3 IN BYTES OF DESIRED AREA @VA04250 01995000
- AR R8,R4 GET END PAGE ADDRESS @VA04250 01996000
- SRL R8,12 FORM PAGE ADDRESS @VA04250 01997000
- CH R8,CURRPAGE IN SAME PAGE ?? @VA04250 01998000
- BNE GETWO NO, READ 2 RECORDS @VA04250 01999000
- B SET9 OK, SET ADDRESS @VA04250 02000000
- SPACE 3 02001000
- * ************************************************** 02002000
- * * TRANSLATE SERVICE ROUTINE WILL UNPACK DATA * 02003000
- * * R4 - POINTS TO DATA TO BE UNPACKED * 02004000
- * * R5 - PTS TO FIELD RECIEVING UPKED DATA * 02005000
- * * R3 - LENGTH OF FIELD TO BE UNPACKED * 02006000
- * ************************************************** 02007000
- SPACE 3 02008000
- TRANINIT EQU * @VA04250 02009000
- CH R3,=H'128' DO NO MORE THAN 128 BYTES=16 DWDS@VA04250 02010000
- BL *+8 OK @VA04250 02011000
- LA R3,128 SET SIZE @VA04250 02012000
- EX R3,BLOCKMVC MOVE BLK TO TRANSLATE AREA @VA04250 02013000
- LA R3,K4(R3) LENGTH INCLUDING BLOCK ADDR @VA04250 02014000
- TRANINT1 EQU * @VA04250 02015000
- LA R4,WORK2 ADDR OF FIELD TO BE TRANSLATED @VA04250 02016000
- LA R5,WORK ADDR OF AREA TO PLACE TRANSLATION@VA04250 02017000
- TRANS SRL R3,K2 GET NO OF WORDS @VA04250 02018000
- CH R3,=H'33' CANT DO MORE THAN 33 WORDS @VA04250 02019000
- BL *+8 OK @VA04250 02020000
- LA R3,33 SET SIZE @VA04250 02021000
- UNP UNPK 0(K9,R5),0(K5,R4) UNPACK ONE WORD @VA04250 02022000
- TR 0(K8,R5),TTAB-240 @VA04250 02023000
- LA R5,K8(,R5) BUMP RECV. FIELD @VA04250 02024000
- LA R4,K4(,R4) BUMP FROM FIELD @VA04250 02025000
- BCT R3,UNP @VA04250 02026000
- BR R6 RETURN TO CALLER @VA04250 02027000
- SPACE 1 02028000
- BLOCKMVC MVC WORK2+4(0),0(R9) EXECUTED MOVE @VA04250 02029000
- SPACE 3 02030000
- * ************************************************** 02031000
- * * MOVE SERVICE ROUTINE WILL MOVE WILL TAKE A CON-* 02032000
- * * TIGUOUS DATA AREA AND MOVE IT INTO A SECOND * 02033000
- * * AREA IN THE FOLLOWING FORMAT - 8 BYTES, 2 SPACS* 02034000
- * * 8 BYTES,2 SPACES, ETC... * 02035000
- * * ON ENTRY ON EXIT * 02036000
- * * R2=LENGTH R2=DESTROYED * 02037000
- * * R3= R2=DESTROYED * 02038000
- * * R4= TO FIELD R4=NXT TO FIELD * 02039000
- * * R5= FRM FIELD R5=NXT FRM FIELD * 02040000
- * ************************************************** 02041000
- SPACE 3 02042000
- MVSBRTN LA R3,K0(R2,R5) GET END OF INPUT FIELD @VA04250 02043000
- S R3,=F'8' @VA04250 02044000
- LA R2,K8 GET INCREMENT @VA04250 02045000
- GO MVC K0(K8,R4),K0(R5) @VA04250 02046000
- LA R4,K10(,R4) BUMP OUT AREA AND SPACE 2 BLANKS @VA04250 02047000
- BXLE R5,R2,GO @VA04250 02048000
- BR R6 RETURN TO CALLER @VA04250 02049000
- EJECT 02050000
- * ************************************************** 02051000
- * * THE FOLLOWING CODE CONTAINS DMMEDM ERROR * 02052000
- * * ROUTINES. * 02053000
- * ************************************************** 02054000
- SPACE 3 02055000
- ERRWRT DS 0H @V407510 02056000
- ST R15,REGSAVE+K4 @V407510 02057000
- WRTERM DM2,DM2L @VA04250 02058000
- BAL R2,HLDRDR @VA04250 02059000
- ERS BAL R2,ERASE @VA04250 02060000
- B EXIT @VA04250 02061000
- ERROR1 WRTERM DM3,DM3L @VA04250 02062000
- LA R15,24 RETURN @VA04250 02063000
- B RETN @VA04250 02064000
- ERROR2 WRTERM DM4,DM4L @VA04250 02065000
- LA R15,22 @VA04250 02066000
- B RETN @VA04250 02067000
- ERROR3 MVC DM5P,DUMP @VA04250 02068000
- ST R15,REGSAVE+K4 @V407510 02069000
- WRTERM DM5,DM5L @VA04250 02070000
- B EXIT @VA04250 02071000
- NODMP WRTERM DM6,DM6L @VA04250 02072000
- LA R15,23 @VA04250 02073000
- ST R15,REGSAVE+K4 @V407510 02074000
- B ERS @VA04250 02075000
- NOFDMP WRTERM DM9,DM9L @VA04250 02076000
- BAL R2,CLRDR @VA04250 02077000
- LA R15,30 @VA04250 02078000
- ST R15,REGSAVE+K4 @V407510 02079000
- B ERS @VA04250 02080000
- PRTERR C R15,=F'3' POSSIBLY CH 9 FROM V3211 @VA04250 02081000
- BH FATAL BR. - NOPE, SOMEBODY GOOFED.@VA04250 02082000
- C R15,=F'2' OR MAYBE CH 12 FROM V3211? @VA04250 02083000
- BH NONFATAL BR - MUST HAVE BEEN CH 9, IGNORE @VA04250 02084000
- BL FATAL OOPS, MUST BE 1, BAD NEWS. @VA04250 02085000
- LA R2,60 SET LINE COUNT TO FORCE EJECT @VA04250 02086000
- B PRINT NEXT TIME A LINE IS PRINTED @VA01570 02087000
- FATAL DS 0H @V407510 02088000
- ST R15,REGSAVE+K4 END OF ROAD @V407510 02089000
- WRTERM DM10,DM10L @VA04250 02090000
- B EXIT @VA04250 02091000
- ERRFND WRTERM DM7,DM7L @VA04250 02092000
- SR R2,R2 PREPARE FOR IC @VA01570 02093000
- SR R6,R6 DOUBLE THE FUN @VA01570 02094000
- IC R2,ERRINDX GET THE INDEX TO THE ERROR TABLES@VA01570 02095000
- IC R6,ERMSGTAB(R2) GET THE LENGTH OF THE ERROR MSG @VA01570 02096000
- BCTR R6,0 ADJUST FOR EXECUTE @VA01570 02097000
- LR R9,R6 SAVE IT @VA01570 02098000
- LA R6,L'DM7+L'DM7A(R6) SETUP LENGTH FOR EXECUTE @VA01570 02099000
- MVI DATA,C'*' SOME KIND OF INDICATOR @VA01570 02100000
- EX R6,STARMOVE HERE WE GO @VA01570 02101000
- BAL R6,PRINTA @VA01570 02102000
- MVC DATA(L'DM7),DM7 MOVE MSG DMMEDM864 @VA01570 02103000
- MVC DATA+L'DM7(L'DM7A),DM7A AND SECOND PART @VA01570 02104000
- L R6,ERMSGTAB(R2) GET NAME OF FAILING CTL BLOCK @VA01570 02105000
- EX R9,ERRMOVE AND COMPLETE MESSAGE @VA01570 02106000
- BAL R6,PRINTA PRINT THE GOODIE @VA01570 02107000
- LA R6,L'DM7+L'DM7A(R9) GET LENGTH FOR EXEC AGAIN @VA01570 02108000
- MVI DATA,C'*' @VA01570 02109000
- EX R6,STARMOVE @VA01570 02110000
- BAL R6,PRINTA @VA01570 02111000
- L R6,ERRETAB(R2) GET ADDRESS OF RETURN POINT @VA01570 02112000
- BR R6 AND TRY (AT LEAST) @VA01570 02113000
- STARMOVE MVC DATA+1(0),DATA PROPAGATING @VA01570 02114000
- ERRMOVE MVC DATA+L'DM7+L'DM7A(0),0(R6) @VA01570 02115000
- QUIT DS 0H @V407510 02116000
- ST R15,REGSAVE+K4 @V407510 02117000
- WRTERM DM8,DM8L @VA04250 02118000
- B EXIT @VA04250 02119000
- ERASE FSERASE FSCB=DUMPFILE @VA04250 02120000
- BR R2 @VA04250 02121000
- SPACE 2 02122000
- CLRDR MVC CPHOLD,=CL8' ' NO HOLD @VA04250 02123000
- CLRDR1 LA R1,CPRDR @VA04250 02124000
- SVC X'CA' @VA04250 02125000
- BR R2 @VA04250 02126000
- HLDRDR MVC CPHOLD,=CL8'HOLD' @VA04250 02127000
- B CLRDR1 @VA04250 02128000
- SPACE 2 02129000
- CPRDR DC CL8'CP' @VA04250 02130000
- DC CL8'CLOSE' @VA04250 02131000
- DC CL8'00C' @VA04250 02132000
- CPHOLD DC CL8'NOHOLD' @VA04250 02133000
- DC 2F'-1' @VA04250 02134000
- SAVEPRB DC F'0' @VA05446 02135000
- EJECT 02136000
- * ********************C O N S T A N T S******************* 02137000
- SPACE 3 02138000
- K0 EQU 0 @VA04250 02139000
- K1 EQU 1 @VA04250 02140000
- K2 EQU 2 @VA04250 02141000
- K3 EQU 3 @VA04250 02142000
- K4 EQU 4 @VA04250 02143000
- K5 EQU 5 @VA04250 02144000
- K7 EQU 7 @VA04250 02145000
- K6 EQU 6 @VA04250 02146000
- K8 EQU 8 @VA04250 02147000
- K9 EQU 9 @VA04250 02148000
- K10 EQU 10 @VA04250 02149000
- K11 EQU 11 @VA04250 02150000
- K12 EQU 12 @VA04250 02151000
- K13 EQU 13 @VA04250 02152000
- K14 EQU 14 @VA04250 02153000
- K16 EQU 16 @VA04250 02154000
- K18 EQU 18 @VA04250 02155000
- K15 EQU 15 @VA04250 02156000
- K17 EQU 17 @VA04250 02157000
- K19 EQU 19 @VA04250 02158000
- K20 EQU 20 @VA04250 02159000
- K21 EQU 21 @VA04250 02160000
- K22 EQU 22 @VA04250 02161000
- K24 EQU 24 @VA04250 02162000
- K25 EQU 25 @V407510 02163000
- K28 EQU 28 @VA04250 02164000
- K30 EQU 30 @VA04250 02165000
- K32 EQU 32 @VA04250 02166000
- K33 EQU 33 @VA04250 02167000
- K36 EQU 36 @VA04250 02168000
- K37 EQU 37 @VA04250 02169000
- K39 EQU 39 @VA04250 02170000
- K52 EQU 52 @VA04250 02171000
- PRBFILE DS 0D PROBLEM REPORT FILE FN FT FM @VA04250 02172000
- PRBFN DS CL8 REPORT FILENAME @VA04250 02173000
- DC CL8'REPORT' FILETYPE OF REPORT @VA04250 02174000
- DC C'A1' FILEMODE OF REPORT @VA04250 02175000
- K45 EQU 45 @VA04250 02176000
- K46 EQU 46 @VA04250 02177000
- K48 EQU 48 @VA04250 02178000
- K55 EQU 55 @VA04250 02179000
- K56 EQU 56 @VA04250 02180000
- K59 EQU 59 @VA04250 02181000
- K60 EQU 60 @VA04250 02182000
- K64 EQU 64 @VA04250 02183000
- K65 EQU 65 @VA04250 02184000
- K66 EQU 66 @VA04250 02185000
- K75 EQU 75 @V407510 02186000
- K76 EQU 76 @V407510 02187000
- K77 EQU 77 @V407510 02188000
- K78 EQU 78 @V407510 02189000
- K80 EQU 80 @VA04250 02190000
- K90 EQU 90 @VA04250 02191000
- K92 EQU 92 @VA04250 02192000
- K96 EQU 96 @VA04250 02193000
- K120 EQU 120 @VA04250 02194000
- K131 EQU 131 @VA04250 02195000
- K144 EQU 144 @VA04250 02196000
- K256 EQU 256 @VA04250 02197000
- K512 EQU 512 @VA04250 02198000
- K520 EQU 520 @VA04250 02199000
- X00 EQU X'00' @VA04250 02200000
- X01 EQU X'01' @VA04250 02201000
- X02 EQU X'02' @VA04250 02202000
- X03 EQU X'03' @VA04250 02203000
- X08 EQU X'08' @VA04250 02204000
- X0F EQU X'0F' @VA04250 02205000
- X34 EQU X'34' @VA04250 02206000
- X40 EQU X'40' @VA04250 02207000
- XF0 EQU X'F0' @VA04250 02208000
- XFF EQU X'FF' @VA04250 02209000
- X0002 EQU X'000F' @VA04250 02210000
- AMPERSAN EQU X'50' @VA04250 02211000
- SPACE1 EQU X'40' @VA04250 02212000
- SPACE2 EQU X'F0' @VA04250 02213000
- SPACE3 EQU C'-' @VA04250 02214000
- V EQU C'V' @VA04250 02215000
- IX00 EQU X'00' @VA01570 02216000
- IX01 EQU X'04' @VA01570 02217000
- IX02 EQU X'08' @VA01570 02218000
- IX03 EQU X'0C' @VA01570 02219000
- IX04 EQU X'10' @VA01570 02220000
- IX05 EQU X'14' @VA01570 02221000
- IX06 EQU X'18' @VA01570 02222000
- IX07 EQU X'1C' @VA01570 02223000
- IX08 EQU X'20' @VA01570 02224000
- IX09 EQU X'24' @VA01570 02225000
- IX0A EQU X'28' @VA01570 02226000
- IX0B EQU X'2C' @VA01570 02227000
- IX0C EQU X'30' @VA01570 02228000
- IX0D EQU X'34' @VA01570 02229000
- IX0E EQU X'38' @VA01570 02230000
- IX0F EQU X'3C' @VA01570 02231000
- IX10 EQU X'40' @VA01570 02232000
- IX11 EQU X'44' @VA01570 02233000
- IX12 EQU X'48' @VA01570 02234000
- IX13 EQU X'4C' @VA01570 02235000
- IX14 EQU X'50' @VA01570 02236000
- IX15 EQU X'54' @VA01570 02237000
- IX16 EQU X'58' @VA01570 02238000
- IX17 EQU X'5C' @VA01570 02239000
- IX18 EQU X'60' @VA01570 02240000
- IX19 EQU X'64' @VA01570 02241000
- IX1A EQU X'68' @VA01570 02242000
- IX1B EQU X'6C' @VA01570 02243000
- IX1C EQU X'70' @V407510 02244000
- IX1D EQU X'74' @V407510 02245000
- IX1E EQU X'78' @V407510 02246000
- IX1F EQU X'7C' @V407510 02247000
- SPACE 3 02248000
- DUMPLIST DC CL8'DUMP00' @VA04250 02249000
- DC CL8'DUMP01' @VA04250 02250000
- DC CL8'DUMP02' @VA04250 02251000
- DC CL8'DUMP03' @VA04250 02252000
- DC CL8'DUMP04' @VA04250 02253000
- DC CL8'DUMP05' @VA04250 02254000
- DC CL8'DUMP06' @VA04250 02255000
- DC CL8'DUMP07' @VA04250 02256000
- DC CL8'DUMP08' @VA04250 02257000
- DC CL8'DUMP09' @VA04250 02258000
- * ******************************************************* 02259000
- DUMP DC CL8' ' DUMP FILE NAME @VA04250 02260000
- OPLIST DS 0F OPTION LIST @VA04250 02261000
- ERASEIT DC CL8'ERASE' @VA04250 02262000
- MAP DC CL8'NOMAP' @VA04250 02263000
- HEX DC CL8'NOHEX' @VA04250 02264000
- NOFORMAT DC CL8'NOFORM' @VA04250 02265000
- NOVIRT DC CL8'NOVIRT' @VA04250 02266000
- END DC X'FFFFFFFF' @VA04250 02267000
- SPACE 3 02268000
- * ******************************************************* 02269000
- DUMPFILE FSCB 'DUMPXX DUMP',BUFFER=BUFF,BSIZE=4096 @VA04250 02270000
- ITEMNO EQU DUMPFILE+26 @VA04250 02271000
- NUMBER EQU DUMPFILE+38 @VA04250 02272000
- BSIZE EQU DUMPFILE+32 @VA04250 02273000
- SPACE 3 02274000
- DUMPSRCH FSCB 'DUMPXX DUMP',BUFFER=BUFF @VA04250 02275000
- CLOSEPNT DS 0F @VA04250 02276000
- DC CL8'CP' @VA04250 02277000
- DC CL8'CLOSE' @VA04250 02278000
- DC CL8'PRT' @VA04250 02279000
- DC CL8'NAME' @VA04250 02280000
- DMR1P DC CL8'SYSDUMP' @VA04250 02281000
- DC CL8' DUMP' @VA04250 02282000
- DC 2F'-1' @VA04250 02283000
- SPACE 3 02284000
- WORK2 DC 33F'0' @VA04250 02285000
- WORK DC 66F'0' @VA04250 02286000
- WORK3 DC D'0' @VA04250 02287000
- BLANK1 DC 8C' ' @VA04250 02288000
- CORTBHD1 DC C'********** C O R E T A B L E ********* ' @VA04250 02289000
- CORTBHD2 DC C' PAG U S E R I D ' @VA04250 02290000
- FREEID DC C'FREE' @VA04250 02291000
- HEXTAB DC 64C'.' @VA04250 02292000
- DC C' ' @VA04250 02293000
- DC 10C'.' @VA04250 02294000
- DC C'.)(+ &&' @VA04250 02295000
- DC 10C'.' @VA04250 02296000
- DC C'$*) -/' @VA04250 02297000
- DC 9C'.' @VA04250 02298000
- DC X'6B6C' @VA04250 02299000
- DC C' ' @VA04250 02300000
- DC 10C'.' @VA04250 02301000
- DC C' ' @VA04250 02302000
- DC X'7B7C' @VA04250 02303000
- DC C'''= ' @VA04250 02304000
- DC 64C'.' @VA04250 02305000
- DC C'.ABCDEFGHI' @VA04250 02306000
- DC 7C'.' @VA04250 02307000
- DC C'JKLMNOPQR' @VA04250 02308000
- DC 8C'.' @VA04250 02309000
- DC C'STUVWXYZ' @VA04250 02310000
- DC 6C'.' @VA04250 02311000
- DC C'0123456789......' @VA04250 02312000
- BLK DC C' ' @VA04250 02313000
- HOLD DC 32C' ' @VA04250 02314000
- INCR DC X'1C' @VA04250 02315000
- KEYSAVE DC CL6' ' @VA04250 02316000
- LASTPAG DC F'0' START AT ZERO @VA04250 02317000
- LINEHEX DC H'0' @VA04250 02318000
- PGCT DC H'0' @VA04250 02319000
- PAGNUMB DC H'0' @VA04250 02320000
- SEGNUMB DC H'0' @VA04250 02321000
- SEGHD DC C'SEGTABLE PAGTABLE S W P T A B L E' @VA04250 02322000
- SEGHD2 DC CL39'NO PAGTABLE ENTRIES FOR THIS SEGMENT' @VA04250 02323000
- SEGHD3 DC CL50'NO SEGTABLE, PAGTABLE OR SWPTABLE FOR THIS USER' 02324000
- ABMSG DC C'VM/370 SYSTEM ABEND CODE ' @VA00803 02325000
- DC CL8'XXXXXX; ' @VA00803 02326000
- DC C'DATE ' @VA04250 02327000
- DC CL12' ' @VA04250 02328000
- DC C'TIME ' @VA04250 02329000
- LABM EQU *-ABMSG @VA04250 02330000
- ZERO DC C'00' @VA04250 02331000
- TTAB DC C'0123456789ABCDEF' @VA04250 02332000
- SYSVMBLK DC C'SYSTEM' @VA04250 02333000
- SPACESAV DC H'0' @VA04250 02334000
- CTLSAV DC X'00' @VA04250 02335000
- ANDFLD DC F'0' @VA04250 02336000
- BLKSIZE DC F'16' @VA04250 02337000
- KEYADR DC A(KEY) @VA04250 02338000
- CURRPAGE DC X'FFFFFFFF' CURRENT PAGE IN BUFFER @V4M0004 02339000
- NXTSFBK DC F'0' @VA04250 02340000
- ONE DC F'1' @VA04250 02341000
- PGSAVE DC F'0' @VA04250 02342000
- PTRCORTB DC F'0' @VA04250 02343000
- RETADR DC F'0' @VA04250 02344000
- RSAV DC F'0' @VA04250 02345000
- REGSAVE DC 4F'0' @V407510 02346000
- SEGSAVE DC F'0' @VA04250 02347000
- SWAPSAVE DC F'0' @VA04250 02348000
- THIS DC F'0' @VA04250 02349000
- THISLINE DC F'0' @VA04250 02350000
- SAME DC F'0' @VA04250 02351000
- CHAINCK DC F'0' IOBLOK CHAIN CHECK SAVE AREA @VA04250 02352000
- IOBSAVE DC F'0' REMEMBER IOBLOK HERE @VA07496 02353000
- LASTQUED DC F'0' LAST IOBLOK CHAINED TO A BLOCK @VA04250 02354000
- LIOBDEV DC F'0' LAST IOBLOK CHAINED TO RDEVBLOK @VA04250 02355000
- PLISTADR DC F'0' @VA04250 02356000
- XFFF DC X'00000FFF' @VA04250 02357000
- X000F DC X'0000000F' @VA04250 02358000
- MCORTAB DC C'CORETABLE' @VA01570 02359000
- MSWPTAB DC C'SWAPTABLE' @VA01570 02360000
- MVMBLOK DC C'VMBLOK' @VA01570 02361000
- MRCHIX DC C'REAL CHANNEL BLOCK INDEX' @VA01570 02362000
- DM7A DC C' WHILE EDITING ' @VA01570 02363000
- MABP DC C'ABENDING PROCESSOR PSA' @V407510 02364000
- MDEBLOK DC C'DEFERRED EXECUTION BLOK' @V407510 02365000
- MMAIN DC C'MAIN PROCESSOR PSA' @V407510 02366000
- MATT DC C'ATTACHED PROCESSOR PSA' @V407510 02367000
- EJECT 02368000
- RCHINDEX DC F'0' @VA04250 02369000
- RCHSTRT DC F'0' @VA04250 02370000
- RCUSTRT DC F'0' @VA04250 02371000
- RDEVSTRT DC F'0' @VA04250 02372000
- PRTSPL DC F'0' @VA04250 02373000
- PNCHSPL DC F'0' @VA04250 02374000
- RDRSPL DC F'0' @VA04250 02375000
- CORPOINT DC F'0' @VA04250 02376000
- VMPTR DC F'0' @VA04250 02377000
- ABCODE DC F'0' @VA04250 02378000
- RSYSRV DC F'0' @VA04250 02379000
- RDATE DC D'0' @VA04250 02380000
- RTIME DC D'0' @VA04250 02381000
- EJECT 02382000
- * WHEN THE GETPAGE SUBROUTINE DETERMINES, THAT A PAGE IS NOT ON THE 02383000
- * DUMPXX DATASET, RETURN IS MADE USING THE FOLLOWING TABLE. 02384000
- * ERRINDX IS SET TO AN INDEX VALUE PRIOR TO THE ENTRY TO GETPAGE. 02385000
- SPACE 2 02386000
- ERRETAB EQU * @VA01570 02387000
- DC A(SFFORM) @VA01570 02388000
- DC A(CKCHAN) @VA01570 02389000
- DC A(CKCU) @VA01570 02390000
- DC A(ENDCK) @VA01570 02391000
- DC A(IOERPRNT) @VA01570 02392000
- DC A(IOERPRNT) @VA01570 02393000
- DC A(SPLST) @VA02149 02394000
- DC A(ENDCK) @VA02149 02395000
- DC A(HEXDUMP) @VA01570 02396000
- DC A(TSTTR) @VA01570 02397000
- DC A(VMEND) @VA01570 02398000
- DC A(CHANCK) @VA01570 02399000
- DC A(CUCK) @VA01570 02400000
- DC A(NXTVDEV) @VA01570 02401000
- DC A(NXTVDEV) @VA01570 02402000
- DC A(NXTVDEV) @VA01570 02403000
- DC A(IOBACK) @VA01570 02404000
- DC A(SFERR) @VA01570 02405000
- DC A(IOERERR) @VA01570 02406000
- DC A(CORTBL) @VA01570 02407000
- DC A(VIRTUALM) @VA01570 02408000
- DC A(CORTBL7) @VA01570 02409000
- DC A(CORTBL7) @VA01570 02410000
- DC A(CORTBL7) @VA01570 02411000
- DC A(SEGPGTBF) @VA01570 02412000
- DC A(SEGPGTB6) @VA01570 02413000
- DC A(SEGERR) @VA01570 02414000
- DC A(SEGERR) @VA01570 02415000
- DC A(LOADMAP) @V407510 02416000
- DC A(VMETST1) @V407510 02417000
- DC A(PRTATT) @V407510 02418000
- DC A(DUMPCORE) @V407510 02419000
- SPACE 2 02420000
- ERMSGTAB DS 0F @VA01570 02421000
- DC AL1(L'MRCHIX),AL3(MRCHIX) @VA01570 02422000
- DC AL1(L'HCHBLK),AL3(HCHBLK) @VA01570 02423000
- DC AL1(L'HCUBLK),AL3(HCUBLK) @VA01570 02424000
- DC AL1(L'HDEVBLK),AL3(HDEVBLK) @VA01570 02425000
- DC AL1(L'HCONTASK),AL3(HCONTASK) @VA01570 02426000
- DC AL1(L'HRSPLCTL),AL3(HRSPLCTL) @VA01570 02427000
- DC AL1(L'HRECBLK),AL3(HRECBLK) @VA01570 02428000
- DC AL1(L'HRECBLK),AL3(HRECBLK) @VA01570 02429000
- DC AL1(L'HVMBLOK),AL3(HVMBLOK) @VA01570 02430000
- DC AL1(L'HVMEC),AL3(HVMEC) @VA01570 02431000
- DC AL1(L'HVMTR),AL3(HVMTR) @VA01570 02432000
- DC AL1(L'HCHBLK),AL3(HCHBLK) @VA01570 02433000
- DC AL1(L'HCUBLK),AL3(HCUBLK) @VA01570 02434000
- DC AL1(L'HDEVBLK),AL3(HDEVBLK) @VA01570 02435000
- DC AL1(L'HVCONCTL),AL3(HVCONCTL) @VA01570 02436000
- DC AL1(L'HVSPLCTL),AL3(HVSPLCTL) @VA01570 02437000
- DC AL1(14),AL3(HIOBLKS) @VA01570 02438000
- DC AL1(L'HSFBLK),AL3(HSFBLK) @VA01570 02439000
- DC AL1(L'HIOERBLK),AL3(HIOERBLK) @VA01570 02440000
- DC AL1(19),AL3(DATA+2) @VA01570 02441000
- DC AL1(L'MCORTAB),AL3(MCORTAB) @VA01570 02442000
- DC AL1(L'MSWPTAB),AL3(MSWPTAB) @VA01570 02443000
- DC AL1(L'MVMBLOK),AL3(MVMBLOK) @VA01570 02444000
- DC AL1(L'MVMBLOK),AL3(MVMBLOK) @VA01570 02445000
- DC AL1(L'MVMBLOK),AL3(MVMBLOK) @VA01570 02446000
- DC AL1(8),AL3(SEGHD) @VA01570 02447000
- DC AL1(8),AL3(SEGHD2+3) @VA01570 02448000
- DC AL1(L'MSWPTAB),AL3(MSWPTAB) @VA01570 02449000
- DC AL1(L'MABP),AL3(MABP) @V407510 02450000
- DC AL1(L'MDEBLOK),AL3(MDEBLOK) @V407510 02451000
- DC AL1(L'MMAIN),AL3(MMAIN) @V407510 02452000
- DC AL1(L'MATT),AL3(MATT) @V407510 02453000
- EJECT 02454000
- * 02455000
- * POINTERS INTO I/O BLOCK INDEX TABLES-ADDR SAVED HERE IS POINTER 02456000
- * TO INDEX VALUE OF BLOCK BEING PROCESSED-ONE CHANNEL, ONE CU & 1DEV 02457000
- * 02458000
- CHDEX DC A(CHINDEX) ADDR OF CURRENT CHAN INDEX VALUE @VA04250 02459000
- CUDEX DC A(CUINDEX) ADDR OF CURRENT CU INDEX VALUE @VA04250 02460000
- DEVDEX DC A(DEVINDEX) ADDR OF CURRENT DEV INDEX VALUE @VA04250 02461000
- SPACE 2 02462000
- * 02463000
- * SAVE AREAS FOR INDEX TABLES WITH DISPLACEMENTS INT I/O BLOCKS 02464000
- * 02465000
- CHINDEX DS 16H INDEX TBL FOR CHANNEL BLOCKS @VA04250 02466000
- CUINDEX DS 32H INDEX TBL FOR CONTROL UNIT BLOCKS@VA04250 02467000
- DEVINDEX DS 16H INDEX TBL FOR DEVICE BLOCKS @VA04250 02468000
- SPACE 1 02469000
- CHANLAST DC A(CHINDEX+30) ADDR LAST ENTRY IN CHAN TABLE @VA04250 02470000
- RCULAST DC A(CUINDEX+62) ADDR LAST ENTRY REAL CU TABLE @VA04250 02471000
- VCULAST DC A(CUINDEX+30) ADDR LAST ENTRY VIRTUAL CU TABLE @VA04250 02472000
- DEVLAST DC A(DEVINDEX+30) ADDR LAST ENTRY DEVICE INDEX TABL@VA04250 02473000
- SPACE 1 02474000
- * THE FOLLOWING ENTRIES ARE SAVED FROM VMBLOK-EXECEPT VMCHTBL 02475000
- * WHICH IS SAVED AT CHINDEX 02476000
- SPACE 1 02477000
- VCHSTRT DC F'0' START ADDR VIRTUAL CH INDEX TBL. @VA04250 02478000
- VCUSTRT DC F'0' START ADDR VIRTUAL CU INDEX TABLE@VA04250 02479000
- VDVSTRT DC F'0' START ADDR VIRT DEV INDEX TABLE @VA04250 02480000
- * 02481000
- VMCHAIN DC F'0' ADDR OF NEXT VMBLOK IN CHAIN @VA04250 02482000
- VMCURENT DC F'0' ADDR. CURRENT VMBLOK @VA04250 02483000
- DEFEXPT DC F'0' ADDR DEFERRED EXECUTION BLOK @V407510 02484000
- SPACE 3 02485000
- RTNSAVE DC A(0) RETURN ADDR SAVE AREA @VA04250 02486000
- IOBRTN DC A(0) RTN ADDR SAVE FROM IOBLOK PRINT @VA04250 02487000
- PRNTPTR DC F'0' VMBLOK PRINT POINTER SAVE AREA @VA04250 02488000
- IOBCHAIN DC F'0' IOBBLOK CHAIN ADDR SAVE AREA @VA04250 02489000
- IOBDEV DC F'0' ADDR 1ST IOBLOK CHAINED OFF DEV @VA04250 02490000
- SFRTN DC F'0' RTN ADDR FROM SFBLOK PRINT RTN. @VA04250 02491000
- IOERSAV DC F'0' RTN ADDR SAVE FROM IOERBLOK PRINT@VA04250 02492000
- SPOOLSAV DC F'0' ADDR OF SPOOL FILE CONTROL BLOCK @VA04250 02493000
- AIOB DC F'0' ACTIVE IOBLOK ADDR @VA04250 02494000
- ERRBLOCK DC F'0' IOERBLOK ADDR SAVE AREA @VA04250 02495000
- PAGBLOK DC F'0' @VA04250 02496000
- SPLBLOK DC F'0' @VA04250 02497000
- VCONAD DC F'0' @VA04250 02498000
- REG9SAV DC F'0' REG 9 SAVE AREA @VA04250 02499000
- K64M1 DC F'65535' 64K MINUS 1 @VA01570 02500000
- VMSAVE DC H'0' NO. OF BLKS OF VMBLOK YET TO PRNT@VA04250 02501000
- TWENTY4 DC H'24' @VA04250 02502000
- TWELVE DC H'12' @VA04250 02503000
- FOUR DC H'4' @VA04250 02504000
- TWO DC H'2' @VA04250 02505000
- FFFF DC X'FFFF' @VA04250 02506000
- PRTENDSW DC X'00' LAST PRINT LINE SWITCH-F0=END OF @VA04250 02507000
- * OF HEADINGS, 0F=END OF DATA 02508000
- DATENDSW DC X'00' LAST DATA LINE SWITCH @VA04250 02509000
- CONSW DC X'00' VIRTUAL CONSOLE DEVICE SWITCH @VA04250 02510000
- IOERSW DC X'00' IOERBLOK SWITCH @VA04250 02511000
- ACTIOBSW DC X'00' ACTIVE IOBLOK SWITCH @VA04250 02512000
- SPOOLSW DC X'00' SPOOLING DEVICE SWITCH @VA04250 02513000
- OWNSW DC X'00' @VA04250 02514000
- VMBSW DC X'00' @VA04250 02515000
- ERRINDX DC X'00' THIS IS THE UNFOOLING GUY @VA01570 02516000
- PSASW DC X'00' PSA PROCESSING SWITCH @V407510 02517000
- SPACE 3 02518000
- * 02519000
- * HEADINGS FOR ALL I/O AND VM BLOCKS 02520000
- * 02521000
- HCHBLK DC C'RCHBLOK ' CHANNEL BLOCK HEADING @VA04250 02522000
- HCHAN DC C'CHAN ' CHANNEL NO. HEADING @VA04250 02523000
- HCHNO DC C'XXX ' CHANNEL NUMBER @VA04250 02524000
- HCHADDR DC C'ADDR ' @VA04250 02525000
- HCHBADDR DC 9C' ' CHANNEL BLOCK ADDR @VA04250 02526000
- SPACE 1 02527000
- HCUBLK DC C'RCUBLOK ' CU BLOCK HEADING @VA04250 02528000
- HCUNIT DC C'UNIT ' @VA04250 02529000
- HCUNO DC C'XXX ' @VA04250 02530000
- HCUADDR DC C'ADDR ' @VA04250 02531000
- HCUBADDR DC 9C' ' CU BLOCK ADDR @VA04250 02532000
- SPACE 1 02533000
- HDEVBLK DC C'RDEVBLOK ' DEV BLOCK HEADING @VA04250 02534000
- HDEV DC C'DEV ' @VA04250 02535000
- HDEVNO DC C'XXX ' @VA04250 02536000
- HDADDR DC C'ADDR ' @VA04250 02537000
- HDBADDR DC 9C' ' BLOCK ADDR @VA04250 02538000
- SPACE 1 02539000
- HSFBLK DC CL14'SFBLOK' @VA04250 02540000
- HSFID DC CL14' ' @VA04250 02541000
- DC CL5'ADDR ' @VA04250 02542000
- HSFADDR DC CL9' ' @VA04250 02543000
- SPACE 1 02544000
- HRECBLK DC CL8'RECBLOK' @VA04250 02545000
- HRECID DC CL6' ' @VA04250 02546000
- DC CL5'ADDR ' @VA04250 02547000
- HRECADDR DC CL9' ' @VA04250 02548000
- SPACE 1 02549000
- HIOBLKS DC 14C' ' HEADING FOR IOBLOK,RSPLCTL, @VA04250 02550000
- * SFBLOK,IOERBLOK, AND ACTIVE IOBLOK 02551000
- HIOADDR DC C'ADDR ' @VA04250 02552000
- HIOBADDR DC 9C' ' BLOCK ADDR. @VA04250 02553000
- HACTIO DC C'ACTIVE IOBLOK' @VA04250 02554000
- HIOBLOK DC C'IOBLOK ' @VA04250 02555000
- HRSPLCTL DC C'RSPLCTL ' @VA04250 02556000
- HCONTASK DC CL14'CONTASK' @VA04250 02557000
- HIOERBLK DC C'IOERBLOK ' @VA04250 02558000
- HVMEC DC CL14'ECBLOK' @VA04250 02559000
- HVMTR DC CL14'TREXT' @VA04250 02560000
- HVMDE DC CL14'DEFERRED TASK ' @V407510 02561000
- HVMAIN DC CL14'MAIN PSA ' @V407510 02562000
- HVATT DC CL14'ATTACHED PSA ' @V407510 02563000
- HVSTOR DC CL14'MAIN STORAGE ' @V4M0004 02564000
- HVCONCTL DC C'VCONCTL ' @VA04250 02565000
- HVSPLCTL DC C'VSPLCTL ' @VA04250 02566000
- SPACE 1 02567000
- HVMBLOK DC C'VMBLOK ' VMBLOK HEADING @VA04250 02568000
- HUSERID DC CL5'USER ' @VA04250 02569000
- HIDEN DC 9C' ' USERID @VA04250 02570000
- HVMADDR DC C'ADDR ' @VA04250 02571000
- HVMBADDR DC 9C' ' BLOCK ADDR. @VA04250 02572000
- EJECT 02573000
- DM0 DC C'DMMEDM850I UNABLE TO READ DUMP FROM READER' @VA04250 02574000
- DM0L EQU *-DM0 @VA04250 02575000
- DM1 EQU * @VA04250 02576000
- DC C'''' @VA04250 02577000
- DM1P DC CL8' ' @VA04250 02578000
- DC C' DUMP'' FILE CREATED' @VA04250 02579000
- DM1L EQU *-DM1 @VA04250 02580000
- DM2 DC C'DMMEDM852I FATAL I/O ERROR WRITING DUMP' @VA04250 02581000
- DM2L EQU *-DM2 @VA04250 02582000
- DM3 DC C'DMMEDM863E INVALID PARAMETER - ' @V305435 02583000
- ERR1OP DC CL8' ' @VA04250 02584000
- DM3L EQU *-DM3 @VA04250 02585000
- DM4 DC C'DMMEDM851I TEN DUMP FILES ALREADY EXIST' @VA04250 02586000
- DM4L EQU *-DM4 @VA04250 02587000
- DM5 DC C'DMMEDM861E DUMP FILE ' @V305435 02588000
- DC C'''' @VA04250 02589000
- DM5P DC CL8' ' @VA04250 02590000
- DC C' DUMP'' NOT FOUND' @VA04250 02591000
- DM5L EQU *-DM5 @VA04250 02592000
- DM6 DC C'DMMEDM853I NO DUMP FILES EXIST' @VA04250 02593000
- DM6L EQU *-DM6 @VA04250 02594000
- DM7 DC C'DMMEDM864I PAGE REFERENCED NOT AVAILABLE' @VA04250 02595000
- DM7L EQU *-DM7 @VA04250 02596000
- DM8 DC C'DMMEDM860I FATAL I/O ERROR READING DUMP' @VA04250 02597000
- DM8L EQU *-DM8 @VA04250 02598000
- DM9 DC C'NO DUMP FILE CREATED' @VA04250 02599000
- DM9L EQU *-DM9 @VA04250 02600000
- DM10 DC C'PRINTER ERROR' @VA04250 02601000
- DM10L EQU *-DM10 @VA04250 02602000
- DMSG DC C'PRINTING FILE ' @VA04250 02603000
- DC C'''' @VA04250 02604000
- DMPP DC CL8' ' @VA04250 02605000
- DC C' DUMP''' @VA04250 02606000
- DMSGL EQU *-DMSG @VA04250 02607000
- CMSG DC C'CREATING FILE ' @VA04250 02608000
- DC C'''' @VA04250 02609000
- CMP DC CL8' ' @VA04250 02610000
- DC C' DUMP''' @VA04250 02611000
- CMSGL EQU *-CMSG @VA04250 02612000
- KPMSG DC C'DUMP FILE ' @VA04250 02613000
- DC C'''' @VA04250 02614000
- KMP DC CL8' ' @VA04250 02615000
- DC C' DUMP'' PRINTED AND KEPT' @VA04250 02616000
- KPMSGL EQU *-KPMSG @VA04250 02617000
- ERMSG DC C'DUMP FILE ' @VA04250 02618000
- DC C'''' @VA04250 02619000
- ERMP DC CL8' ' @VA04250 02620000
- DC C' DUMP'' PRINTED AND ERASED' @VA04250 02621000
- ERMSGL EQU *-ERMSG @VA04250 02622000
- ASKMSG DC C'DO YOU WANT THIS DUMP? REPLY YES OR NO' @VA04250 02623000
- ASKMSGL EQU *-ASKMSG @VA04250 02624000
- LTORG @VA04250 02625000
- ORG DMMEDM+(3*4096) ORG TO BUFFER AREA @VA04250 02626000
- BUFF DS 1024F @VA04250 02627000
- KEY EQU * @VA04250 02628000
- BUFF2 DS 1024F @VA04250 02629000
- KEY1 DS 1024F @VA04250 02630000
- ITEM2 DS 1024F @VA04250 02631000
- ORG ITEM2 @VA04250 02632000
- I2GRS DS 16F @VA04250 02633000
- I2CRS DS 16F @VA04250 02634000
- I2FPRS DS 4D @VA04250 02635000
- I2TOD DS 3D @VA04250 02636000
- DS 2X @V407510 02637000
- I2PROCA DS 1H PROCESSOR ADDRESS @V407510 02638000
- I2SYSRV DS 1F STORAGE SIZE @V407510 02639000
- I2LCORE DS XL256 @VA04250 02640000
- ***************************************************************@V407510 02641000
- ORG I2LCORE+248 SAVE PREFIX REGS IN LCORE AREA @V407510 02642000
- * AREA USED ONLY BY EDM***REC 5 @V407510 02643000
- * HAS BEEN REFRESHED WITH DMPLCORE @V407510 02644000
- I2MPREF DS 1F MAIN PREFIX RG @V407510 02645000
- I2APREF DS 1F ATTACHED PREFIX RG @V407510 02646000
- ***************************************************************@V407510 02647000
- I2PRFRG DS 1F PREFIX REGISTER @V407510 02648000
- I2AB DS 1F ABEND CODE @V407510 02649000
- I2RCH DS 4F @VA04250 02650000
- I2SPL DS 3F @VA04250 02651000
- I2COR DS 1F @VA04250 02652000
- I2VM DS 1F @VA04250 02653000
- I2DATE DS 1D @VA04250 02654000
- I2TIME DS 1D @VA04250 02655000
- ITEMTBL DS 0F @VA04250 02656000
- EJECT 02657000
- BLOKFORM DSECT @VA04250 02658000
- FRCHBLK DS 0C @VA04250 02659000
- DS CL9 @VA04250 02660000
- FRCUBLK DS 0C @VA04250 02661000
- DS CL9 @VA04250 02662000
- FRDEVBLK DS 0C @VA04250 02663000
- DS CL9 @VA04250 02664000
- FIOBLK DS 0C @VA04250 02665000
- DS CL9 @VA04250 02666000
- FSPOOL DS 0C @VA04250 02667000
- FVMBLK EQU FRCHBLK @VA04250 02668000
- FVCHBLK EQU FRCHBLK @VA04250 02669000
- FVCUBLK EQU FRCUBLK @VA04250 02670000
- FVDEVBLK EQU FRDEVBLK @VA04250 02671000
- EJECT 02672000
- PSA @VA04250 02673000
- COPY DMPBLOKS @VA04250 02674000
- COPY ALLOC @VA04250 02675000
- COPY CPEXBLOK @V4M0004 02676000
- COPY TREXT @VA04250 02677000
- COPY CORE @VA04250 02678000
- COPY RBLOKS @VA04250 02679000
- COPY VBLOKS @VA04250 02680000
- COPY VMBLOK @VA04250 02681000
- COPY IOBLOKS @VA04250 02682000
- COPY SPOOL @VA04250 02683000
- COPY DEVTYPES @VA04250 02684000
- COPY EQU @VA04250 02685000
- COPY IOER @VA04250 02686000
- END 02687000
ibm/vm370-lib/dumpscan/dmmedm.assemble_src.txt · Last modified: 2023/08/06 13:37 by Site Administrator