ibm:vm370-lib:cp:dmkvsp.assemble_src
Table of Contents
DMKVSP Source
References
- Fixes Applied : 20
- This Source Date : Friday, February 2, 1979
- Last Fix ID : [HRC106DK]
Source Listing
- DMKVSP.ASSEMBLE.txt
- VSP TITLE 'DMKVSP (CP) VM/370 - RELEASE 6' 00001000
- ISEQ 73,80 VALIDATE SEQUENCING OF INPUT 00002000
- MACRO 00003000
- &NAME RELOC 00004000
- ENTRY &NAME 00005000
- &NAME DS 0H 00006000
- DROP R10 00007000
- USING *,R12 00008000
- ENTER 00009000
- SL R12,=A(&NAME-&SYSECT) 00010000
- USING &SYSECT,R12 00011000
- USING &SYSECT+4096,R10 00012000
- MEND 00013000
- *. 00014000
- * MODULE NAME - 00015000
- * 00016000
- * DMKVSP 00017000
- * 00018000
- * FUNCTION - 00019000
- * 00020000
- * TO HANDLE THE SIMULATION OF ALL USER SIO'S TO A VIRTUAL UNIT 00021000
- * RECORD DEVICE (CARD READER, PUNCH, PRINTER, OR PSEUDO 00022000
- * TIMER) THAT IS SPOOLED RATHER THAN DEDICATED. ALSO, TO 00023000
- * HANDLE CONTROL PROGRAM REQUESTS THAT WISH TO PRINT ON THE 00024000
- * USERS VIRTUAL PRINTER 00025000
- * 00026000
- * ATTRIBUTES - 00027000
- * 00028000
- * REENTRANT, RESIDENT, ENTERED VIA GOTO FROM DMKVIOEX 00029000
- * 00030000
- * ENTRY POINTS - 00031000
- * 00032000
- * DMKVSPEX - TO SIMULATE A SIO TO A SPOOLED UNIT RECORD DEVICE 00033000
- * DMKVSPRT - TO PLACE A LINE GENERATED BY THE CONTROL PRO- 00034000
- * GRAM ON THE USER'S SPOOLED PRINTER 00035000
- * DMKVSPCR - TO STOP PROCESSING THE FILE CURRENTLY IN THE SPOOL- 00036000
- * ED CARD READER, AND TO CLEAR ALL PENDING STATUS 00037000
- * FROM THE DEVICE 00038000
- * DMKVSPCO - TO PERFORM SIMILAR CLOSE FUNCTIONS FOR 00039000
- * THE SPOOLED PRINTERS AND PUNCHES 00040000
- * 00041000
- * DMKVSPCP - CALLED FROM WITHIN DMKVSP TO WRITE CONSOLE 00042000
- * HARDCOPY PRINT LINE 00043000
- * DMKVSPTO - CALLED FROM DMKVIO AS A SUBROUTINE TO CHECK IF 00044000
- * THE VIRL READER IS EMPTY 00045000
- * NON-EXECUTABLE ENTRY POINTS - 00046000
- * 00047000
- * DMKVSPWA - INDEX WORK AREA FOR 3211 00048000
- * 00049000
- * ENTRY CONDITIONS - 00050000
- * 00051000
- * GPR2 = CONTENTS OF THE USER'S CAW (VIRTUAL ADDRESS) 00052000
- * GPR8 = ADDRESS OF THE VDEVBLOK FOR ADDRESSED VIRTUAL DEVICE 00053000
- * GPR9 = DEVICE ADDRESS (CCU IN BINARY) 00054000
- * GPR11 = ADDRESS OF USER'S VMBLOK 00055000
- * GPR12 = ADDRESS OF DMKVSP 00056000
- * 00057000
- * NOTE THAT WHEN DMKVSPEX IS ENTERED FROM DMKVIO, GPR13 DOES 00058000
- * NOT POINT TO A SAVEAREA, AND THE ENTER AND EXIT MACROS MAY NOT 00059000
- * BE USED. INSTEAD EXIT IS MADE DIRECTLY TO DMKDSPCH VIA A 00060000
- * GOTO. HOWEVER, IF ANY OF THE OTHER ENTRY POINTS ARE CALLED, 00061000
- * THE RETURN MUST BE MADE IN THE NORMAL MANNER 00062000
- * 00063000
- * EXIT CONDITIONS - 00064000
- * 00065000
- * NORMAL - 00066000
- * EXIT IS MADE DIRECTLY TO DMKDSPCH, WITH THE CORRECT PENDING 00067000
- * STATUS PLACED IN ALL VIRTUAL IO BLOKS AND THE USER'S 00068000
- * CHANNEL PROGRAM COMPLETELY INTERPRETED. NOTE THAT THE 00069000
- * USER HAS REMAINED IN EXWAIT DURING THE ENTIRE PROCESS, IN CON- 00070000
- * TRAST TO SELECTOR CHANNEL IO 00071000
- * 00072000
- EJECT 00073000
- * 00074000
- * CALLS TO OTHER ROUTINES - 00075000
- * 00076000
- * DMKPGTSG - TO OBTAIN DASD PAGE BUFFER SPACE 00077000
- * DMKRPAGT - TO READ A PAGE BUFFER INTO VIRTUAL MEMORY 00078000
- * DMKRPAPT - WRITE A BUFFER FROM VIRTUAL MEMORY TO DASD 00079000
- * DMKSCNVD - TO GET FULL VIRTUAL DEVICE ADDRESS 00080000
- * DMKSCNVU - TO LOCATE THE VCUBLOK AND VCHBLOK IN ORDER TO POST 00081000
- * ANY PENDING INTERRUPT AFTER INTERPRETATION IS COM- 00082000
- * PLETED 00083000
- * DMKSPLOV - TO OPEN A NEW DASD OUTPUT SPOOL FILE 00084000
- * DMKSPLCV - TO CLOSE A NEW DASD OUTPUT SPOOL FILE 00085000
- * DMKSPLDL - TO PURGE A PARTIALLY COMPLETE FILE 00086000
- * DMKSTKCP - TO QUEUE A CP EXEC BLOK 00087000
- * DMKCVTBH - CONVERT DEVICE ADDRESS FOR ERROR MESSAGES 00090000
- * DMKTMRPT - TO GET USER'S TOTAL PROBLEM TIME USED 00091000
- * DMKERMSG - TO WRITE ERROR MESSAGES 00092000
- * DMKPGTVR - TO RELEASE VIRTUAL BUFFER 00093000
- * DMKPGTVG - TO GET A VIRTUAL BUFFER 00094000
- * DMKPSASC - CHECK IF CCW'S ARE WRITTING INTO A SHARED PAGE 00096000
- * DMKPSACC - TO TEST IF A SHARED PAGE WAS CHANGED BY RUNUSER 00097000
- * DMKVMAPS - TO UNSHARE A NAMED SYSTEM FROM RUNUSER 00098000
- * DMKFREE, DMKFRET, DMKQCNWT, AND DMKCVTDT FOR THE USUAL REASONS 00099000
- * DMKCKSPL - CHECKPOINT THE SFBLOK 00100000
- * 00101000
- * EXTERNAL REFERENCES - 00102000
- * 00103000
- * DMKVIOMK - A TABLE OF BIT FLAGS INDEXABLE BY DEVICE ADDRESS, 00104000
- * USED TO SET AND CLEAR PENDING FLAGS IN VIRTUAL 00105000
- * DEVICE, CONTROL UNIT AND CHANNEL BLOKS 00106000
- * 00108000
- * TABLES / WORKAREAS - 00109000
- * 00110000
- * 00111000
- * REGISTER USAGE - 00112000
- * 00113000
- * GPR2 = REAL ADDRESS OF THE PAGED SPOOL BUFFER 00114000
- * GPR3 = REAL ADDRESS OF THE USER'S DATA AREA 00115000
- * GPR4,5 - WORK REGISTERS 00116000
- * GPR5 = BASE REG FOR VFCBBLOK (PARTIME) 00117000
- * GPR6 = INTERNAL SUBROUTINE LINKAGE 00118000
- * GPR7 = ADDRESS OF SFBLOK FOR ACTIVE FILE 00119000
- * GPR8 = ADDRESS OF VDEVBLOK FOR ACTIVE VIRTUAL DEVICE 00120000
- * GPR9 = ADDRESS OF VSPLCTL WORKAREA 00121000
- * GPR10 = DMKVSP BASE ADDRESS NUMBER TWO 00122000
- * GPR11 = ADDRESS OF THE USER'S VMBLOK 00123000
- * GPR12 = DMKVSP BASE ADDRESS 00124000
- * GPR13 = INDEX TO DATA IN SPOOLING BUFFER 00125000
- * GPR13 = DEVICE ADDRESS, OR SAVEAREA IF ONE OF THE VIRTUAL 00126000
- * CLOSE ROUTINES WAS CALLED 00127000
- * GPR14,15 - BALR LINKAGE FOR DMKFREE/DMKFRET 00128000
- * 00129000
- EJECT 00130000
- * NOTES - 00131000
- * 00132000
- * OPERATION - 00133000
- * 00134000
- * 1. IF THE DEVICE IS CP BUSY (VDEVSVC=1): BAL TO 00135000
- * STKCPBLK ROUTINE TO BUILD AND STACK A CPEXBLOK 00136000
- * ON VSPSTK ANCHOR CHAIN TO DELAY THE REQUEST. 00137000
- * WHEN THE CPEXBLOK IS UNSTACKED CONTROL WILL BE 00138000
- * GIVEN TO ROUTINE AT LABEL RETCPEX. 00139000
- * MARK THE VIRTUAL DEVICE AND SUBCHANNEL BUSY, CLEAR THE 00140000
- * CSW AND SAVE THE STORAGE KEY; THEN, IF THE SIO IS TO 00141000
- * PSEUDO TIMER DEVICE, GO HANDLE THAT CASE; OTHERWISE, 00142000
- * CONTINUE 00143000
- * 00144000
- * 2. FOR SIO'S TO VIRTUAL READERS, PRINTERS AND PUNCHES, TEST 00145000
- * TO SEE IF A FILE IS ALREADY OPEN ON THE DEVICE; IF ONE IS 00146000
- * OPEN, BRANCH TO HANDLE THE PARTICULAR DEVICE TYPE, 00147000
- * OTHERWISE, GO OPEN THE FILE. 00148000
- * 00149000
- * 3. IF A FILE IS SUCCESFULLY OPENED, CONTINUE PROCESSING FOR 00150000
- * THE GIVEN DEVICE TYPE; OTHERWISE RETURN AN ERROR CON- 00151000
- * DITION TO THE USER 00152000
- * 00153000
- * ERROR MESSAGES - 00154000
- * 00155000
- * DMKVSP427I (TYPE) (VADDR) SYSTEM SPOOL SPACE FULL; FILE CLOSED 00156000
- * DMKVSP429I (TYPE) (VADDR) SPOOL ERROR; FILE HELD 00157000
- * DMKVSP429I (TYPE) (VADDR) SPOOL ERROR; FILE PURGED 00158000
- * 00159000
- * ABEND VSP001 00160000
- * A CALL TO DMKSCNVU TO LOCATE THE VDEVBLOK, VCHBLOK AND 00161000
- * VCUBLOK. ONE OR MORE OF THE BLOK COULD NOT BE LOCATED 00162000
- * 00163000
- *. 00164000
- EJECT 00165000
- COPY OPTIONS 00166000
- COPY LOCAL OPTIONS 00167000
- EJECT 00168000
- DMKVSP CSECT LOADER CONTROL ONLY 00169000
- SPACE 00170000
- ENTRY DMKVSPEX 00171000
- SPACE 3 00172000
- EXTRN DMKCVTDT,DMKPGTVR,DMKPGTSG 00173000
- EXTRN DMKSCNVU,DMKPGTVG,DMKCVTBH 00174000
- EXTRN DMKSPLOV,DMKSPLCV 00175000
- EXTRN DMKSCNVD @VA12421 00176000
- EXTRN DMKTMRPT 00177000
- EXTRN DMKRPAGT,DMKRPAPT,DMKVIOMK 00178000
- EXTRN DMKPGTSD @VA11232 00178100
- EXTRN DMKERMSG,DMKPTRUL,DMKSPLDL 00179000
- EXTRN DMKPSASC,DMKPSACC @V60BC11 00180000
- EXTRN DMKSTKCP 00181000
- EXTRN DMKCKSPL @V304298 00182000
- EXTRN DMKVMASH @VA07351 00182100
- EXTRN DMKVSQPD @V60BCAA 00182150
- SPACE 3 00183000
- USING PSA,R0 00184000
- USING SPLINK,R2 00185000
- USING SFBLOK,R7 00186000
- USING VDEVBLOK,R8 00187000
- USING VSPLCTL,R9 00188000
- USING VMBLOK,R11 00189000
- SPACE 2 00190000
- DMKVSPEX EQU * 00191000
- SPACE 00192000
- USING *,R12 00193000
- USING *+4096,R10 00194000
- SPACE 2 00195000
- B VSP0001 00196000
- ID DC CL8'DMKVSP' MODULE NAME 00197000
- VSP0001 EQU * 00198000
- LR R10,R12 SET UP SECOND BASE REGISTER 00199000
- A R10,F4096 .. 00200000
- STH R13,VDEVUNIT SAVE FULL ADDRESS OF UNIT 00201000
- L R1,VDEVIOCT GET IOCOUNT FOR DEVICE 00202000
- AL R1,F1 BUMP IO COUNT 00203000
- ST R1,VDEVIOCT AND STORE 00204000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ?? @VM01021 00205000
- BZ SETBUSY NO - @VM01021 00206000
- LA R6,RETCPEX ADDRESS OF CPEX RETURN @VM01021 00207000
- B STKCPBLK WAIT FOR DEVICE TO FREE UP @VM01021 00208000
- RETCPEX AL R8,VMDVSTRT GET VDEVBLOK ADDRESS @VM01021 00209000
- NI VDEVSFLG,X'FF'-VDEVSVC RESET CP BUSY @VM01021 00210000
- SETBUSY OI VDEVSTAT,VDEVBUSY+VDEVCHBS INDICATE CP BUSY @VM01021 00211000
- XC VDEVCSW,VDEVCSW CLEAR VIRTUAL CSW 00212000
- LA R1,0(,R2) CLEAR STORAGE KEY FROM CAW 00213000
- OI VDEVFLAG,VDEVCCW1 INDICATE 1ST CCW 00214000
- STCM R2,8,VDEVKEY SAVE STORAGE KEY IN VDEVBLOK 00215000
- CLI VDEVTYPE,TYPTIMER SIO TO A VIRTUAL PSEUDO-TIMER? 00216000
- BE SIOTIMER YES -- 00217000
- L R9,VDEVSPL GET ADDRESS OF SPOOLING WORKAREA 00218000
- LTR R9,R9 IS FILE OPEN YET? 00219000
- BNZ INPROCES YES 00220000
- BAL R6,OPEN GO OPEN THE FILE 00221000
- ST R7,VSPSFBLK SAVE ADDRESS OF SPOOL FILE BLOK 00222000
- ST R1,VSPCAW SAVE CAW ADDRESS 00223000
- SPACE 00224000
- WKBUF EQU * ABTAIN A WORK BUFFER FOR CCW'S AND DATA 00225000
- L R5,VSPBUFBK ADDRESS OF WORK BUFFER 00226000
- LTR R5,R5 BUFFER PRESENT ?? 00227000
- BNZ INPRO1 YES - 00228000
- SPACE 00229000
- LA R0,VSPBUFSZ LENGTH OF WORK BUFFER 00230000
- CALL DMKFREE OBTAIN STORAGE FOR WORK BUFFER 00231000
- ST R1,VSPBUFBK SAVE ADDRESS OF WORK BUFFER 00232000
- B INPRO1 AND PROCESS 00233000
- SPACE 2 00234000
- INPROCES ST R1,VSPCAW SAVE VIRTUAL ADDRESS OF CCW 00235000
- INPRO1 L R7,VSPSFBLK GET ADDRESS OF SPOOL FILE BLOCK 00236000
- L R6,VSPBUFBK WORK BUFFER AVAILABLE ? 00237000
- LTR R6,R6 .. 00238000
- BZ WKBUF NO WORK BUFFER - GO GET ONE 00239000
- XC VSPCCW,VSPCCW CLEAR CCW SAVEAREA 00240000
- MVI VSPIDASW,0 RESET IDA SWITCH 00241000
- BAL R6,GETCCW GO PICK UP FIRST CCW 00242000
- NOP *+4 CORRECT ALLIGNMENT FOR RETURN @VA04572 00242350
- * FROM LABEL 'NONIDA' @VA04572 00242700
- CLI VDEVTYPC,CLASURI IS IT UNIT RECORD READER ?? 00243000
- BE READER YES -- READER TYPE 00244000
- B PRINTER FOR PRINTER AND PUNCH TYPE 00245000
- EJECT 00246000
- *. 00247000
- * 00248000
- * PSEUDO-TIMER DEVICE PROCESSING 00249000
- * 00250000
- * 1. VERIFY THAT THE CCW ADDRESS IS ALIGNED AND WITHIN THE 00251000
- * USER'S VIRTUAL ADDRESS SPACE 00252000
- * 00253000
- * 2. TRANS FOR THE CCW AND VERIFY THAT THE DATA ADDRESS IS 00254000
- * WITHIN THE USER'S ADDRESS SPACE, AND THAT THE 24 BYTE 00255000
- * DATA AREA WILL NOT CROSS A PAGE BOUNDARY 00256000
- * 00257000
- * 3. TRANS FOR THE DATA PAGE, VERIFY THAT STORAGE PROTECTION IS 00258000
- * NOT VIOLATED, AND MOVE THE DATE, TIME, VIRTUAL CPU TIME 00259000
- * AND TOTAL CPU TIME TO THE USER 00260000
- * 00261000
- * 4. EXIT TO DMKDSPCH WITHOUT POSTING ANY INTERRUPTS AS 00262000
- * PENDING 00263000
- * 00264000
- *. 00265000
- SPACE 2 00266000
- SIOTIMER EQU * HERE TO SIMULATE A SIO TO A PSEUDO TIMER 00267000
- EX R1,CAWTEST TEST FOR DOUBLE WORD ALIGNMENT 00268000
- BNZ PROGCHK INVALID ALIGNMENT 00269000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 00270000
- TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 00271100
- * USER CCW 00272000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 00273000
- L R1,0(,R2) GET DATA ADDRESS 00274000
- LA R1,0(,R1) CLEAR CCW OP-CODE 00275000
- LR R2,R1 DATA MUST NOT CROSS PAGE BOUNDARY 00276000
- A R2,=F'23' FINE LAST DATA BYTE ADDRESS 00277000
- N R2,NFFS ROUND DOWN TO PAGE NUMBER 00278000
- * NFFS = X'FFFFF000' 00279000
- CR R1,R2 CROSS PAGE BOUNDARY? 00280000
- BL PROGCHK YES -- 00281000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 00282000
- TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 00283100
- * USER DATA 00284000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 00285000
- IC R0,VDEVKEY INSPECT VIRTUAL CAW KEY @V304735 00286000
- CALL DMKPSASC CHECK FOR PROTECTION VIOLATION @V304735 00287000
- BNE PROTCHK PROTECTION VIOLATION 00288000
- LR R3,R2 SAVE REAL ADDRESS 00289000
- A R2,=F'23' PROTECTION TEST FOR 2K BOUNDARY 00290000
- IC R0,VDEVKEY INSPECT VIRTUAL CAW KEY @V304735 00291000
- CALL DMKPSASC CHECK FOR PROTECTION VIOLATION @V304735 00292000
- BNE PROTCHK PROTECTION VIOLATION 00293000
- LA R1,0(,R3) FIELD FOR DATE 00294000
- LA R2,8(,R3) FIELD FOR TIME 00295000
- CALL DMKCVTDT FILL THEM IN.. 00296000
- CALL DMKTMRPT OBTAIN UP-TO-DATE VTIME @V2B2638 00297000
- STM R0,R1,TEMPR0 SAVE IT FOR TOTAL CPU TIME CALCULATION 00298000
- BAL R14,CVTIME AND CONVERT IT 00299000
- ST R1,16(,R3) STORE FOR USER 00300000
- LM R4,R5,VMTTIME GET SUPERVISOR OVERHEAD TIME 00301000
- SL R5,TEMPR1 SUBTRACT OUT PROBLEM TIME 00302000
- BC 8+2+1,*+8 BR. IF NO-CARRY 00303000
- SL R4,F1 ADJUST FOR CARRY 00304000
- SL R4,TEMPR0 TOTAL CPU TIME NOW IN R4-5 00305000
- BAL R14,CTTIME AND CONVERT IT 00306000
- ST R1,20(,R3) AND STORE IT 00307000
- NI VDEVSTAT,X'FF'-(VDEVBUSY+VDEVCHBS) MARK DEVICE NOT BUSY 00308000
- B EXIT EXIT 00309000
- SPACE 00310000
- CTTIME LM R0,R1,=X'7FFFFFFFFFFFF000' 00311000
- SLR R1,R5 COMPUTE SUPERVISOR TIME USED 00312000
- BC 8+2+1,*+8 BR. ON NO-CARRY 00313000
- SL R0,F1 RE-ADJUST FOR CARRY 00314000
- SLR R0,R4 00315000
- SPACE 00316000
- CVTIME SRDL R0,12 CONVERT TO MICRO-SECONDS 00317000
- SLR R0,R0 REFLECT ONLY THE VALUE AFTER @VW01580 00318000
- * WRAPAROUND 00319000
- * IF VALUE MORE THAN X'FFFFFFFF' 00320000
- LTR R1,R1 BYPASS DIVISION IF ZERO VALUE @VW01580 00321000
- BZ *+8 @VW01580 00322000
- D R0,=F'13' COMVERT TO TIMER UNITS 00323000
- BR R14 RETURN TO CALLER 00324000
- SPACE 2 00325000
- CAWTEST TM ALIGNMNT,0 EXECUTED TO TEST CAW ALIGNMENT 00326000
- SPACE 00327000
- ALIGNMNT DC X'07' 00328000
- DS 0F 00329000
- NFFS DC X'FFFFF000' 00330000
- SPACE 00331000
- DS 0H 00332000
- EJECT 00333000
- *. 00334000
- * 00335000
- * SPOOLED CARD READER PROCESSING - 00336000
- * 00337000
- * 1. VERIFY THAT THE CCW OP-CODE IS LEGAL, AND SET UP INITIAL 00338000
- * STATUS CONDITIONS IN THE CSW 00339000
- * 00340000
- * 2. VERIFY THAT THE COMMAND SEQUENCE IS LEGAL; THEN, IF THE 00341000
- * COMMAND IS A FEED ONLY, GO TO STEP 5; OTHERWISE, CONTINUE 00342000
- * 00343000
- * 3. FOR A DATA MOVING READ, INDEX TO THE NEXT DATA RECORD IN 00344000
- * THE BUFFER, LOCATE AND PAGE IN THE USERS DATA AREA, AND 00345000
- * MOVE THE RECORD TO THE USER'S VIRTUAL MEMORY SPACE. THE 00346000
- * DATA MOVING SUBROUTINES MUST ALSO TEST FOR ADDRESSING AND 00347000
- * PROTECTION VIOLATIONS 00348000
- * 00349000
- * 4. TEST TO SEE IF A FEED HAS BEEN REQUESTED; IF IT HAS, 00350000
- * CONTINUE; OTHERWISE, SKIP TO STEP 6. 00351000
- * 00352000
- * 5. LOCATE THE NEXT CARD IMAGE TO BE PASSED; IF NECESSARY, PAGE 00353000
- * IN THE NEXT SPOOL BUFFER, AND TEST FOR A POSSIBLE END OF 00354000
- * FILE CONDITION 00355000
- * 00356000
- * 6. CURRENT OPERATION IS NOW COMPLETE. TEST FOR ANY ERROR 00357000
- * CONDITIONS, AND IF FOUND EXIT AFTER POSTING PROPER ENDING 00358000
- * STATUS; OTHERWISE, CONTINUE 00359000
- * 00360000
- * 7. TEST FOR POSSIBLE COMMAND OR DATA CHAINING OR IDA: IF YES, 00361000
- * LOCATE AND VERIFY NEXT CCW AND RESTART INTERPRETATION 00362000
- * PROCESS; OTHERWISE, EXIT AFTER POSTING PROPER ENDING 00363000
- * STATUS 00364000
- * 00365000
- *. 00366000
- SPACE 2 00367000
- READER EQU * HERE TO PROCESS SIO TO SPOOLED READER 00368000
- LTR R7,R7 ANY FILE FOUND? @VA03503 00369000
- BZ READER1 NO--BYPASS OPEN PROCESS @VA03503 00370000
- L R1,VSPVPAGE GET VIRT. ADDR @VA03503 00371000
- LTR R1,R1 ALREADY OPENED BY TIO OR SIO? @VA03503 00372000
- BNZ READER1 ALREADY OPENED BY SIO @VA03503 00373000
- BAL R6,OPENTIO HALF OPEN--FINISH THE OPEN @VA03503 00374000
- READER1 EQU * @VA03503 00375000
- MVI VDEVCSW+4,X'00' CLEAR STSTUS FOR NEW COMMAND @VA09566 00376100
- NI VDEVCSW+5,PCI LEAVING PCI INTACT @VA09566 00376200
- CLI VSPCCW,4 IS IT A SENSE COMMAND ?? 00377000
- BE SENSE YES -- 00378000
- XC VDEVSNSE(4),VDEVSNSE CLEAR SENSE INFORMATION 00379000
- TM VSPCCW,X'0F' PROGRAM CHECK CONDITION ?? 00380000
- BNZ TESTRDY NO -- TEST FOR DEVICE READY 00381000
- OI VDEVCSW+5,PRGC SET PROGRAM CHECK ON 00382000
- B RDREOFU USER IS FORCING EOF 00383000
- TESTRDY TM VDEVSTAT,VDEVNRDY DEVICE READY ?? 00384000
- BO NOTREADY NO -- DEVICE NOT READY 00385000
- TM VSPCCW,2 IS THE READ BIT ON? 00386000
- BZ RDREOFU NO -- USER IS FORCING EOF 00387000
- SPACE 00388000
- LTR R7,R7 SPOOL FILE AVAILBLE FOR THIS RDR ?? 00389000
- BNZ TSTNOP YES - CONT 00390000
- MVI VDEVSNSE,INTREQ SET SENSE TO INTERVENTION REQ 00391000
- B NOFILE .. 00392000
- SPACE 00393000
- SPACE 00394000
- TSTNOP CLI VSPCCW,3 IS IT A NOP 00395000
- BNE TESTBAD NO -- GO TEST FOR ILLEGAL CCW 00396000
- OI VDEVCSW+4,DE NOP WILL PRESENT DE IMMEDIATELY 00397000
- B NOFEED GO TEST FOR MORE CCWS 00398000
- SPACE 00399000
- TESTBAD TM VSPCCW,X'1C' ANY ILLEGAL BITS ON? 00400000
- BNZ RDREOFU YES -- 00401000
- CLI VSPCCW,X'C3' INVALID OP CODE ? 00402000
- BE RDREOFU YES - 00403000
- CLI VSPCCW,X'E3' INVALID OP CODE ? 00404000
- BE RDREOFU YES - 00405000
- SPACE 00406000
- TM SFBFLAG,SFBEOF HAS EOF BEEN REACHED? 00407000
- BO RDREOF YES -- NORMAL END OF FILE 00408000
- FEEDTEST TM VSPCCW,X'23' FEED ONLY? 00409000
- BNO READ NO -- GO DO READ 00410000
- NI VSPCCW,3 FORCE TREATMENT AS IMMEDIATE COMMAND 00411000
- CLI VDEVTYPE,TYP3505 3505 READER ? 00412000
- BE RDRFEED YES -- NO ERROR CHECK ON OP 23 00413000
- TM VDEVSFLG,VDEVFEED TWO FEEDS IN A ROW ?? 00414000
- BZ RDRFEED NO -- COMMAND SEQUENCE OK 00415000
- MVI VDEVSNSE,CMDREJ INVALID SEQUENCE 00416000
- B UNITCHK GO GIVE UNIT CHECK 00417000
- SPACE 3 00418000
- READ EQU * HERE TO SIMULATE READ 00419000
- L R3,VSPBUFBK ADDRESS OF WORK BUFFER 00420000
- LH R5,SFBRECSZ DEVICE LOGICAL RECORD SIZE 00421000
- RDRCD LA R0,MOVERDR POINT TO PROPER MOVE INSTRUCTION 00422000
- * FOR READER 00423000
- TM VSPCCW,3 NOP-CODE TYPE 00424000
- BO NOFEED YES -- NO DATA MOVE 00425000
- BAL R6,MOVEDATA AND GO MOVE DATA FROM WORK BUFFER 00426000
- * TO USER 00427000
- SPACE 2 00428000
- * 00429000
- * READ HAS BEEN SIMULATED 00430000
- * 00431000
- SPACE 2 00432000
- TM VSPCCW+4,CD+IDA IS USER DATA CHAINING OR IDA ?? 00433000
- BNZ NOFEED YES -- DO NOT FEED 00434000
- SPACE 2 00435000
- TM VSPCCW,X'C0' IS IT A READ WITHOUT A FEED? 00436000
- BNO RDRFEED NO -- GO SIMULATE A FEED 00437000
- OI VDEVCSW+4,DE DE WITH CE FOR READ WITHOUT FEED 00438000
- TM VDEVSFLG,VDEVFEED HAS FEED BEEN DONE ?? 00439000
- BZ SETUS NEITHER -- THIS IS AN UNUSUAL 00440000
- * SEQUENCE 00441000
- RESETFD NI VDEVSFLG,X'FF'-VDEVFEED FEED NOT DONE FOR THIS COMMAND 00442000
- B NOFEED CONTINUE PROCESSING 00443000
- SPACE 00444000
- SETUS EQU * 00445000
- MVI VDEVSNSE,2 INDICATE UNUSUAL SEQUENCE 00446000
- B NOFEED AND CONTINUE 00447000
- SPACE 2 00448000
- RDRFEED EQU * HERE TO SIMULATE FEED 00449000
- OI VDEVSFLG,VDEVFEED FEED DONE FOR THIS COMMAND 00450000
- L R1,VSPVPAGE ADDRESS OF VIRTUAL BUFFER 00451000
- * PAGE THE BUFFER IN 00452000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 00453000
- TRANS 2,1,OPT=(BRING,DEFER,SYSTEM),IOER=ERR2 @VA00716 00454000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 00455000
- LH R13,VSPNEXT INDEX TO NEXT RECORD IN BUFFER 00456000
- BAL R6,RDRDATA GO LOCATE NEXT RECORD IN READER 00457000
- * BUFFER 00458000
- EJECT 00459000
- * 00460000
- * UPON RETURN FROM RDRDATA, THE FIELD 'VSPNEXT' 00461000
- * WILL BE UPDATED TO INDICATE THE DISPLACEMENT 00462000
- * OF THE NEXT DATA RECORD. IF THE RECORD 00463000
- * JUST READ WAS THE LAST ONE IN THE FILE, 00464000
- * THE EOF LATCH WILL BE SET, AND THE 'FEED' WILL BE BYPASSED 00465000
- * 00466000
- SPACE 2 00467000
- NOFEED EQU * IO OPERATION IS COMPLETE 00468000
- BAL R6,PCITEST GO TEST FOR PCI INTERRUPT 00469000
- OI VDEVCSW+4,CE SET CHANNEL END FOR ALL COMMANDS 00470000
- TM VDEVSNSE,2 UNUSUAL SEQUENCE? 00471000
- BO UNITCHK YES -- GO SET UNIT CHECK 00472000
- OI SFBFLAG,SFBOPEN INDICATE FILE OPENED 00473000
- TM VDEVCSW+5,IL WAS INCORRECT LENGTH POSTED? 00474000
- BO LASTCCW YES -- TERMINATE CHANNEL PROGRAM @VA01095 00475000
- SPACE 2 00476000
- CKCHAIN TM VSPCCW+4,CD+CC+IDA ANY CHAINING GOING ON ?? 00477000
- BZ LASTCCW NO -- 00478000
- L R1,VDEVCSW YES -- GET ADDRESS OF NEXT CCW 00479000
- ST R1,VSPCAW AND SAVE IN WORKAREA 00480000
- NI VDEVFLAG,X'FF'-VDEVCCW1 NO LONGER PROCESSING 1ST CCW 00481000
- BAL R6,GETCCW GO LOCATE AND VALIDATE NEXT 00482000
- * NON-TIC CCW 00483000
- B READER RETURN IS HERE IF USER WAS COMMAND 00484000
- * CHAINING 00485000
- B RDRCD AND HERE IF HE WAS DATA CHAINING 00486000
- SPACE 2 00487000
- MOVERDR MVC 0(*-*,R2),12(R3) EXECUTED TO MOVE DATA TO USER 00488000
- SPACE 2 00489000
- ERR2 EQU * HERE IF IOERROR ON SPOOLING @VA00716 00490000
- * BUFFER (TRANS) 00491000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 00492000
- SPACE 00493000
- ERR1 EQU * HERE IF IOERROR ON SPOOLING BUFFER 00494000
- OI SFBFLAG2,SFBHOLD DO NOT PURGE FILE 00495000
- OI SFBFLAG,SFBRECER SET ALLOCATION RECORDS INCOMPLETE 00496000
- BAL R6,FILECLR CLEAR FILE 00497000
- BAL R6,DVICECLR CLEAR DEVICE 00498000
- B MSG429I GO GIVE ERROR MESSAGE 00499000
- EJECT 00500000
- RDRDATA EQU * HERE TO LOCATE THE NEXT VALID DATA RECORD IN THE 00501000
- * READER BUFFER. IF THE FILE WAS ORIGINALLY THE OUTPUT OF 00502000
- * A PRINTER, IMMEDIATE RECORDS ARE BYPASSED. AFTER 00503000
- * THE LAST RECORD IS FED, THE EOF LATCH IS SET. 00504000
- * 00505000
- L R0,VSPRECNO GET NUMBER OF RECS REMAINING IN 00506000
- * BUFFER 00507000
- AR R13,R2 POINT TO REAL ADDRESS OF NEXT RECORD 00508000
- RDRCOUNT BCT R0,NEXTCARD AND COUNT DOWN BY ONE 00509000
- SPACE 2 00510000
- CLC VSPDPAGE,SFBLAST BUFFER IS EMPTY--WAS THAT LAST PAGE? 00511000
- BNE NEXTPAGE NO -- GO GET NEXT PAGE 00512000
- ZEROCNT OI SFBFLAG,SFBEOF LAST PAGE SET EOF 00513000
- B RDREND END OF FILE 00514000
- SPACE 2 00515000
- NEXTPAGE L R0,SPNXTPAG GET CHAIN POINTER IN BUFFER 00516000
- L R1,VSPVPAGE VIRTUAL BUFFER ADDRESS 00517000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 00518000
- CALL DMKRPAGT,PARM=BRING+SYSTEM GET NEXT BUFFER,AND 00519000
- BNZ ERR2 SPOOL READ ERROR @VA01460 00520000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 00521000
- ST R0,VSPDPAGE SAVE DASD PAGE ADDRESS 00522000
- SPACE 2 00523000
- SR R1,R1 CLEAR 00524000
- STH R1,VSPNEXT BUFFER DISPLACEMENT 00525000
- * 00526000
- * HERE TO BUILD DUMMY ALLOCATION RECORD TO BE USED FOR 00527000
- * FAST DELETE LATER 00528000
- * 00529000
- TM SFBFLAG,SFBRECER ALLOCATION COMPLETE SO FAR ?? 00530000
- BO SKIPREC NO -- SKIP DURING DUMMY RECORD 00531000
- LA R1,SFBRECS POINT TO ALLOCATION STRING 00532000
- USING RECBLOK,R1 00533000
- SRL R0,16 GET CYLINDER NUMBER @VA00808 00534000
- SPACE 00535000
- FINDBLOK LR R4,R1 SAVE BACKCHAIN POINTER 00536000
- L R1,RECPNT POINT TO NEXT RECBLOK ON CHAIN 00537000
- LTR R1,R1 IS THERE ONE ?? 00538000
- BNZ TESTCYL YES -- SEE IF ITS FOR THIS CYLINDER 00539000
- SPACE 00540000
- LA R0,RECSIZE BUILD A NEW BLOK 00541000
- CALL DMKFREE 00542000
- ST R1,RECPNT-RECBLOK(,R4) CHAIN NEW BLOK 00543000
- XC RECBLOK(RECSIZE*8),RECBLOK CLEAR TO ZEROES 00544000
- L R0,VSPDPAGE GET CYLINDER NUMBER 00545000
- ST R0,RECCYL AND STORE IN BLOK 00546000
- MVI RECUSED,X'00' ZERO OUT PAGE NUMBER 00547000
- B SETREC AND GO MARK RECORD 00548000
- SPACE 00549000
- TESTCYL CH R0,RECCYL IS RECBLOK FOR THIS CYLINDER 00550000
- BNE FINDBLOK NO -- KEEP LOOKING 00551000
- CLC RECCYL+3(1),VSPDPAGE+3 CORRECT DEVICE ?? 00552000
- BNE FINDBLOK NO -- KEEP LOOKING 00553000
- SETREC EQU * FOUND THE BLOK -- 00554000
- SR R14,R14 .. @VA00808 00555000
- ICM R14,B'0001',VSPDPAGE+2 GET PAGE NUMBER @VA00808 00556000
- BCTR R14,0 -1 FOR DIVIDE 00557000
- SRDL R14,3 DIVIDE BY 8 00558000
- SRL R15,29 AND SAVE THE REMAINDER 00559000
- LA R14,RECMAP(R14) POINT TO BYTE TO UPDATE 00560000
- IC R15,ALOCTABL(R15) AND GET BIT MASK 00561000
- EX R15,TSTALLOC PAGE ALL-READY MARKED ? @VW01580 00562000
- BO SKIPREC YES - SKIP ALLOCATE AND UPDATE @VW01580 00563000
- EX R15,ALOCATE MARK THE PAGE 00564000
- IC R15,RECUSED GET NUMBER OF RECORDS FOUND 00565000
- LA R15,1(,R15) INCREMENT 00566000
- STC R15,RECUSED AND SAVE 00567000
- SPACE 00568000
- SKIPREC L R0,SPRECNUM GET NUMBER OF RECORDS IN BUFFER 00569000
- LA R13,SPSIZE(,R2) ADDRESS OF 1ST RECORD CCW 00570000
- C R0,F0 BUFFER RECORD COUNT ZERO ?? 00571000
- BE ZEROCNT YES -- EMPTY BUFFER 00572000
- SPACE 2 00573000
- NEXTCARD ST R0,VSPRECNO SAVE NUMBER OF RECORDS IN BUFFER 00574000
- LR R15,R2 ADDRESS OF BUFFER @VA01460 00575000
- A R15,F4095 POINT END OF BUFFER @VA01460 00576000
- CLR R13,R15 DATA ADDRESS WITH IN PAGE ? @VA01460 00577000
- BH UNITCHK NO - BAD DATA IN BUFFER @VA01460 00578000
- TM 0(R13),3 IS IT AN IMMEDIATE OP-CODE 00579000
- BNO SETNEXT NO -- 00580000
- * ASSUME ALL IMMEDIATE RECORDS MUST BE CONTROL TYPE 00581000
- TM 4(R13),SKIP IS THIS AN IMMED RECORD ?? @V293598 00582000
- BNO SKIP63 SKIP PAST ITS DATA IF NOT @V293598 00583000
- LA R13,8(,R13) POINT TO NEXT CCW 00584000
- B RDRCOUNT AND CONTINUE THE COUNT-DOWN 00585000
- SPACE 2 00586000
- SKIP63 AH R13,10(R13) UPDATE TO NEXT CCW 00587000
- B RDRCOUNT CONTINUE THE COUNT-DOWN 00588000
- SPACE 2 00589000
- SETNEXT LR R14,R13 SAVE RECORD ADDRESS 00590000
- CLI 0(R13),X'02' READER FILE CCW ?? 00591000
- BE *+12 YES -- 00592000
- CLI 0(R13),X'42' READER FILE CCW ?? 00593000
- BNE SETCONT NO - CONTINUE 00594000
- LH R13,10(R14) PICK UP ADDRESS IN TIC CCW 00595000
- N R13,F4095 GET DISPLACEMENT INTO PAGE 00596000
- B SAVEDISP .. 00597000
- SPACE 00598000
- SETCONT EQU * 00599000
- SR R13,R2 GET DISPLACEMENT INTO BUFFER 00600000
- LR R5,R13 SAVE DISPLACEMENT 00601000
- AH R13,10(R14) GET DISPLACEMENT TO NEXT CCW 00602000
- SAVEDISP STH R13,VSPNEXT SAVE DISPLACEMENT TO NEXT CCW 00603000
- L R5,VSPBUFBK WORK BUFFER ADDRESS 00604000
- LA R4,VSPBUFSZ LENGTH OF BUFFER AREA 00605000
- SLL R4,3 TIMES 8 00606000
- LR R13,R4 .. @VW01580 00607000
- SH R4,=H'2' -2 FOR CLEAR 00608000
- MVI 0(R5),X'40' BLANK 00609000
- EX R4,CLRWK CLEAR WORK BUFFER TO BLANKS 00610000
- LH R4,6(R14) CCW DATA COUNT 00611000
- LA R4,11(R4) ADD 12 BYTES FOR CCWS AND -1 FOR 00612000
- * MOVE 00613000
- CLR R4,R13 COUNT LARGER THAN BUFFER ??? @VW01580 00614000
- BNL NOTREADY YES--UNIT CHECK @VA03503 00615000
- EX R4,RDRBUF MOVE CCWS AND DATA TO WORK BUFFER 00616000
- RDREND BR R6 RETURN TO CALLER 00617000
- SPACE 2 00618000
- CLRWK MVC 1(0,R5),0(R5) EXECUTED CLEAR WORK BUFFER TO 00619000
- * BLANKS 00620000
- SPACE 2 00621000
- RDRBUF MVC 0(0,R5),0(R14) EXECUTED MOVE DATA TO WORK BUFFER 00622000
- SPACE 2 00623000
- ALOCATE OI 0(R14),0 EXECUTED TO MARK PAGE AS ALLOCATED 00624000
- TSTALLOC TM 0(R14),0 EXECUTED TO TEST FOR MARK PAGE @VW01580 00625000
- SPACE 00626000
- ALOCTABL DC X'8040201008040201' BIT MASKS FOR ALLOCATION 00627000
- DS 0H 00628000
- EJECT 00629000
- *. 00630000
- * 00631000
- * END OF FILE PROCESSING FOR SPOOLED CARD READER 00632000
- * 00633000
- * 1. CLOSE REQUEST ISSUED VIA CLOSE OR SPOOL COMMANDS: 00634000
- * (A) IF THE DEVICE IS CP BUSY (VDEVSVC=1); BRANCH TO 00635000
- * STKCPBLK ROUTINE TO BUILD AND STACK CPEXBLOK 00636000
- * ON VSPSTK ANCHOR TO DELAY THE REQUEST, AND GO 00637000
- * TO DISPATCHER.(DMKDSPCH) 00638000
- * ENTRY POINT FOR CPEXBLOK IS LABEL RDRCLRET 00639000
- * (B) IF THE DEVICE IS BUSY (SIO-VDEVBUSY=1); 00640000
- * SET DEFFERED CLOSE REQUEST FLAG AND EXIT TO 00641000
- * THE CALLER. 00642000
- * (C) IF THE DEVICE IS NOT BUSY OR CP BUSY OR 00643000
- * ENTRY VIA THE STACKED CPEXBLOK; CONTINUE 00644000
- * 00645000
- * 2. IF USER HAS FORCED END OF FILE VIA CONSOLE FUNCTION 00646000
- * OR ILLEGAL CCW COMMAND CODE, CLEAR FILE FROM SYSTEM (UNLESS 00647000
- * USER HAS REQUESTED SAVING), CLEAR STATUS FROM DEVICE 00648000
- * AND EXIT, POSTING COMMAND REJECT IF APPROPRIATE 00649000
- * 00650000
- * 3. IF END OF FILE IS REACHED NORMALLY, PROCEED AS IN STEP 2 00651000
- * ABOVE, UNLESS USER HAS REQUESTED CONTINUOUS READING. 00652000
- * 00653000
- * 4. FOR CONTINUOUS READING, DO NOT POST END OF FILE UNLESS 00654000
- * NO MORE FILES REMAIN IN THE SYSTEM 00655000
- * 00656000
- * 5. IF NO MORE FILES REMAIN AND CONTINUOUS READING WITH END 00657050
- * OF FILE IS IN EFFECT,POST UNIT EXCEPTION OTHERWISE POST 00657150
- * INTERVENTION REQUIRED - READER EMPTY 00657250
- * 00657350
- * 6. IF NOT CONTINUOUS READING AND END OF FILE IS NOT SET THEN 00657450
- * POST INTERVENTION REQUIRED - READER NOT READY 00657550
- * 00657650
- * 7. BEFORE THE EXIT IS MADE TO THE CALLER,BAL TO 00657750
- * UNSTKBLK ROUTINE TO UNSTACK THE NEXT CPEXBLOK,IF ANY 00657850
- * FOR THIS DEVICE. 00657950
- SPACE 2 00666000
- USING SAVEAREA,R13 00667000
- DMKVSPCR RELOC 00668000
- LR R10,R12 SET UP SECOND BASE REGISTER 00669000
- A R10,F4096 .. 00670000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 00671000
- LA R6,RDRCLRET RETURN ADDRESS FOR DELAY @VM01028 00672000
- B SPLADD - @VM01028 00673000
- RDRCLRET AL R8,VMDVSTRT VDEVBLOK ADDRESS @VM01028 00674000
- NI VDEVSFLG,X'FF'-VDEVSVC RESET CP BUSY @VM01028 00675000
- SPLADD ICM R9,B'1111',VDEVSPL GET ACTIVE FILE POINTER @VM01028 00676000
- BZ RDRESET BRANCH IF NO ACTIVE FILE @VM01028 00677000
- L R7,VSPSFBLK GET POINTER TO SFBLOK 00678000
- LTR R7,R7 SPOOL FILE BLOK PRESENT ?? 00679000
- BZ *+8 NO -- 00680000
- OI SFBFLAG,SFBRECER ALLOCATION CHAIN INCOMPLETE 00681000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ?? @VM01028 00682000
- BO DELAYCL YES - SET UP DELAY @VM01028 00683000
- TM VDEVSTAT,VDEVBUSY IS THE DEVICE CURRENTLY BUSY ?? 00684000
- BZ RDRCLOSE NO -- CONTINUE WITH CLOSE 00685000
- TM VDEVSFLG,VDEVDIAG BUSY WITH DIAGNOSE ?? 00686000
- BZ DELAYCL NO - SET UP FOR POSSIBLE DELAY CLOSE 00687000
- NI VDEVSTAT,X'FF'-VDEVBUSY RESET BUSY FOR DIAGNOSE 00688000
- SPACE 00689000
- RDRCLOSE OI VDEVSFLG,VDEVSVC INDICATE DEVICE CP BUSY @VM01028 00690000
- BAL R6,FILECLR GO CLEAR FILE @VM01028 00691000
- BAL R6,DVICECLR AND DEVICE 00692000
- RDRESET MVI VDEVINTS,0 CLEAR STATUS 00693000
- NI VDEVSFLG,X'FF'-(VDEVFEED+VDEVSVC) RESET FLAGS @VM01016 00694000
- NI VDEVFLAG,X'FF'-VDEVCCW1 RESET 1ST CCW FLAG 00695000
- BAL R6,UNSTKBLK GO UNSTACK CPEX BLOK @VM01028 00696000
- EXIT - EXIT TO CALLER @VM01028 00697000
- SPACE 00698000
- DROP R13 00699000
- SPACE 2 00700000
- EJECT 00701000
- RDREOFU EQU * HERE IF USER FORCED THE EOF VIA AN ILLEGAL COMMAND 00702000
- SPACE 00703000
- TM VDEVFLAG,VDEVCCW1 STILL ON FIRST CCW ?? 00704000
- BO TSTFILE YES -- 00705000
- BAL R6,PCITEST TEST FOR PCI INTERRUPT 00706000
- OI VDEVCSW+4,CE+DE SET CHANNEL AND DEVICE END 00707000
- MVC VDEVCSW+6(2),VSPCCW+6 MOVE IN RESIDUAL COUNT 00708000
- TSTFILE LTR R7,R7 SPOOL FILE BLOK PRESENT ?? 00709000
- BZ NOFILE NO -- 00710000
- OI SFBFLAG,SFBRECER ALLOCATION CHAIN INCOMPLETE 00711000
- BAL R6,FILECLR GO CLEAR READER FILE 00712000
- NOFILE EQU * HERE IF NO FILE FOUND 00713000
- BAL R6,DVICECLR GO CLEAR DEVICE BLOCK 00714000
- NI VDEVSFLG,X'FF'-VDEVCFCL RESET DEFERED CLOSED 00715000
- SPACE 00716000
- SETSENSE TM VDEVSNSE,INTREQ INTERVENTION REQUIRED ?? 00717000
- BO UNITCHK YES -- SET UNIT CHECK 00718000
- TM VDEVCSW+5,PRGC PROGRAM CHECK SET ?? 00719000
- BO PROGCHK YES -- GO 00720000
- MVI VDEVSNSE,CMDREJ SET COMMAND REJECT 00721000
- B UNITCHK AND GO GIVE UNIT CHECK 00722000
- SPACE 2 00723000
- RDREOF EQU * HERE ON NORMAL CARD READER END -OF-FILE 00724000
- TM VDEVSFLG,VDEVCONT DOES USER WANT CONTINOUS READING ? 00725000
- BZ LASTFILE NO -- 00726000
- BAL R6,FILECLR GO CLEAR CURRENT FILE 00727000
- BAL R6,OPENCONT YES -- GO FIND ANOTHER CARD FILE 00728000
- BZ LASTFILE NO MORE FILES TO DO 00729000
- ST R7,VSPSFBLK HOLD ADDRESS OF NEW SPOOL FILE BLOK 00730000
- B FEEDTEST AND START PROCESSING THE NEW FILE 00731000
- SPACE 2 00732000
- LASTFILE EQU * HERE TO INDICATE EOF 00733000
- TM VDEVSFLG,VDEVEOF END OF FILE BUTTON PUSHED ? 00734000
- BO SETUE YES -- GO SET UNIT EXCEPTION 00735000
- TM VDEVSFLG,VDEVCONT IS THIS A CONTINUOUS READ ? @VA09064 00735100
- BO CONTREAD YES,KEEP READER READY @VA09064 00735200
- OI VDEVSTAT,VDEVNRDY INDICATE VIRTUAL DEVICE NOT @VA09064 00735300
- * READY 00735400
- CONTREAD EQU * @VA09064 00735500
- MVI VDEVSNSE,INTREQ OTHERWISE, SET INT.REQ. 00736000
- OI VDEVCSW+4,UC AND UNIT CHECK 00737000
- B SETRID AND SET RESIDUAL COUNT 00738000
- SPACE 00739000
- SETUE OI VDEVCSW+4,UE PUT UNIT EXCEPTION IN CSW 00740000
- SETRID MVC VDEVCSW+6(2),VSPCCW+6 SET RESIDUAL COUNT 00741000
- BAL R6,FILECLR GO CLEAR CURRENT FILE 00742000
- BAL R6,DVICECLR AND DEVICE BLOCK 00743000
- TM VDEVFLAG,VDEVCCW1 FIRST CCW ?? 00744000
- BO VSPEXIT YES -TAKE GENERAL EXIT 00745000
- B ENDCCW BREAK CHAIN AND EXIT 00746000
- SPACE 2 00747000
- FILECLR EQU * HERE TO START CLEARING THE OLD READER FILE 00748000
- * UNLESS THE USER WANTS IT SAVED 00749000
- LTR R9,R9 SPOOL CONTROL BLOK ?? 00750000
- BCR 8,R6 NO -- LEAVE 00751000
- L R7,VSPSFBLK LOAD ADDRESS OF SFBLOK 00752000
- LTR R7,R7 SPOOL FILE PRESENT ?? 00753000
- BCR 8,R6 NO - 00754000
- NI SFBFLAG,X'FF'-SFBEOF RESET EOF @VA12597 00755000
- TM SFBFLAG2,SFBHOLD FILE TO BE HELD ?? 00756000
- BO TSTCONT TEST FOR CONT WITH HOLD @V200930 00757000
- TM SFBFLAG2,SFBNOHLD FILE TO BE DELETED ?? 00758000
- BO FILECLR1 YES - 00759000
- TM VDEVSFLG,VDEVHOLD SHOULD FILE BE SAVED ?? 00760000
- BZ FILECLR1 NO - CLEAR IT 00761000
- TSTCONT TM VDEVSFLG,VDEVCONT CONT READING ON DEVICE ?? @V200930 00762000
- BZ HOLDFILE NO, SAVE FILE @V200930 00763000
- OI SFBFLAG,SFBUHOLD FORCE FILE TO USER HOLD @V200930 00764000
- HOLDFILE NI SFBFLAG2,X'FF'-SFBHOLD RESET HOLD FLAG 00765000
- OI SFBFLAG,SFBRECER ALLOCATION CHAIN INCOMPLETE 00766000
- NI SFBFLAG,X'FF'-SFBOPEN RESET OPEN FLAG @VA03105 00767000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @V304298 00768000
- CALL DMKCKSPL,PARM=CHGSFB CHECKPOINT @V304298 00769000
- AL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @V304298 00770000
- NI SFBFLAG,X'FF'-SFBINUSE RESET INUSE @VA12597 00770500
- BR R6 SAVE IS ON - DON'T CLEAR IT 00771000
- FILECLR1 EQU * 00772000
- NI SFBFLAG,X'FF'-SFBINUSE RESET INUSE @VA12597 00772050
- NI SFBFLAG2,X'FF'-SFBNOHLD RESET NOHOLD FLAG 00773000
- TM SFBFLAG,SFBOPEN WAS THE FILE SUCCESSFULLY OPENED ?? 00774000
- BCR 8,R6 NO -- EXIT NOW 00775000
- L R1,VSPSFBLK GET ADDRESS OF SPOOL FILE BLOCK 00776000
- L R2,ARSPRD AND ADDRESS OF READER FILE CHAIN 00777000
- FILECLR2 L R3,0(,R2) POINTER TO NEXT FILE BLOCK 00778000
- CR R1,R3 HAVE WE FOUND THE BLOCK? 00779000
- BE UNCHAIN YES -- UNCHAIN IT 00780000
- LR R2,R3 SAVE ADDRESS OF PREVIOUS BLOCK 00781000
- B FILECLR2 AND KEEP LOOKING 00782000
- UNCHAIN MVC 0(4,R2),0(R3) UNCHAIN THE BLOCK 00783000
- XC VSPSFBLK(4),VSPSFBLK CLEAR SFBLOK ADDRESS 00784000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 00785000
- CALL DMKSPLDL AND CALL THE FILE DELETER 00786000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 00787000
- SR R7,R7 CLEAR SFBLOK ADDRESS 00788000
- BR R6 RETURN TO CALLER 00789000
- SPACE 2 00790000
- DVICECLR EQU * HERE TO CLEAR THE DEVICE BLOCK 00791000
- L R9,VDEVSPL ADDRESS VSPLCTL 00792000
- LTR R9,R9 ACTIVE BLOK ?? 00793000
- BCR 8,R6 NO - 00794000
- L R1,VSPVPAGE GET VIRTUAL BUFFER ADDRESS 00795000
- LTR R1,R1 VIRTUAL BUFFER ADDRESS PRESENT ?? 00796000
- BZ CLRBUFBK NO - 00797000
- SR R0,R0 DUMMY DASD ADDRESS 00798000
- SPACE 00799000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 00800000
- CALL DMKRPAGT,PARM=SYSTEM TO RELEASE STORAGE PAGE 00801000
- CALL DMKPGTVR RELEASE THE VIRTUAL BUFFER ADDRESS 00802000
- XC VSPVPAGE(4),VSPVPAGE CLEAR VIRTUAL PAGE POINTER 00803000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 00804000
- SPACE 00805000
- CLRBUFBK L R1,VSPBUFBK ADDRESS OF WORK BUFFER 00806000
- LTR R1,R1 BUFFER BLOCK PRESENT ?? 00807000
- BZ CLRCTL NO - 00808000
- LA R0,VSPBUFSZ NUMBER OF DOUBLE WORDS 00809000
- CALL DMKFRET RELEASE THE WORK BUFFER 00810000
- SPACE 00811000
- CLRCTL EQU * 00812000
- SPACE 00813000
- L R1,VDEVSPL ADDRESS OF VSPLCTL 00814000
- SR R9,R9 00815000
- LTR R1,R1 ADDRESS VALID ?? 00816000
- BCR 8,R6 NO - RETURN 00817000
- LA R0,VSPSIZE SIZE IN DOUBLE WORDS 00818000
- CALL DMKFRET FRET THE BLOCK 00819000
- XC VDEVSPL,VDEVSPL CLEAR THE POINTER 00820000
- NI VDEVSFLG,X'FF'-VDEVDIAG RESET DIAG FLAG FOR DUMP 00821000
- BR R6 AND RETURN TO CALLER 00822000
- EJECT 00823000
- *. 00824000
- * 00825000
- * SPOOLED PRINTER AND PUNCH PROCESSING - 00826000
- * 00827000
- * 1. VERIFY VALIDITY OF CCW OP-CODE, AND SET UP INITIAL CSW 00828000
- * STATUS 00829000
- * 00830000
- * 2. DETERMINE WHETHER CCW WILL TRANSFER DATA OR IS AN IMMEDIATE 00831000
- * CONTROL COMMAND; FOR CONTROL COMMANDS, GO TO STEP4; OTHER- 00832000
- * WISE, CONTINUE 00833000
- * 00834000
- * 3. FOR DATA MOVING CCW, MOVE DATA AND CCW TO WORK BUFFER, 00835000
- * TRUNCATE ALL RIGHT JUSTIFIED BLANKS AND LOCATE 00836000
- * SPACE IN A PAGED SPOOL BUFFER AND MOVE THE CCW AND 00837000
- * DATA FROM THE WORK BUFFER TO THE SPOOL BUFFER, THEN GO 00838000
- * STEP 5. 00839000
- * 00840000
- * 4. FOR CONTROL COMMANDS, INSERT ONLY THE CONTROL CCW INTO THE 00841000
- * BUFFER, UNLESS IT IS A UCS COMMAND; IN THIS CASE, IGNORE 00842000
- * THE COMMAND AND CONTINUE 00843000
- * 00844000
- * 5. AFTER PROCESSING THE CCW, TEST FOR ANY ERROR CONDITIONS; 00845000
- * IF THERE ARE ANY, TERMINATE THE CHANNEL PROGRAM AND EXIT 00846000
- * AFTER POSTING THE APPROPRIATE ERROR STATUS; OTHERWISE 00847000
- * CONTINUE WITH THE NEXT CCW IN THE CHANNEL PROGRAM (IF THERE 00848000
- * IS ONE) 00849000
- * 00850000
- * 6. AFTER THE LAST CCW IS PROCESSED, EXIT AFTER POSTING THE 00851000
- * PROPER ENDING STATUS 00852000
- * 00853000
- *. 00854000
- SPACE 2 00855000
- PRINTER EQU * HERE TO PROCESS A SIO TO A SPOOLED PRINTER 00856000
- PUNCH EQU * OR PUNCH -- 00857000
- SPACE 00858000
- MVI VDEVCSW+4,X'00' CLEAR STSTUS FOR NEW COMMAND @VA09566 00859100
- NI VDEVCSW+5,PCI LEAVING PCI INTACT @VA09566 00859200
- CLI VSPCCW,4 IS IT A SENSE COMMAND ?? 00860000
- BE SENSE YES -- 00861000
- XC VDEVSNSE(4),VDEVSNSE CLEAR SENSE INFORMATION 00862000
- TM VSPCCW,X'0F' PROGRAM CHECK CONDITION ?? 00863000
- BZ PRTEOFU2 YES -- SET PROGRAM CHECK 00864000
- TM VDEVSTAT,VDEVNRDY DEVICE READY ?? 00865000
- BO NOTREADY NO - 00866000
- CLC SFBSTART(4),ZEROES DASD ADDRESS AVAILABLE ?? 00867000
- BNE DASDOK YES -- GO 00868000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 00869000
- CALL DMKPGTSG GET A DASD ADDRESS 00870000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 00871000
- LTR R1,R1 ANY DASD SPACE LEFT ?? 00872000
- BNZ SETDASD YES -- SET UP ADDRESSES 00873000
- BAL R6,PRTPUR NO -- CLEAR DEVICE 00874000
- B MSG427I GIVE ERROR MSG DMKVSP427I 00875000
- SETDASD ST R1,SFBSTART SAVE DASD ADDRESS 00876000
- ST R1,SFBLAST IN SFBLOK AND 00877000
- ST R1,VSPDPAGE CONTROL BLOK 00878000
- DASDOK CLI VSPCCW,3 IS IT A NO - OP ?? 00879000
- BNE TSTCMD NO -- TEST FOR VALID COMMAND 00880000
- SPACE 00881100
- * THE FOLLOWING CHECK WILL ALLOW A NOP CCW TO BE TREATED AS 00881200
- * A DATA MOVER. THIS UPDATE WILL CAUSE NOP COMMANDS WITH 00881300
- * COUNTS GREATER THAN ONE WHICH ARE EXECUTED ON (SPOOL) 00881400
- * SIMULATED UNIT RECORD OUTPUT DEVICES TO BE ENTERED INTO THE 00881500
- * SPOOL OUTPUT FILE WITH THEIR DATA BUFFERS, BUT WILL NOT 00881600
- * AFFECT THE I/0 INTERFACE PRESENTED TO THE VIRTUAL MACHINE 00881700
- * PROGRAM (E.I. NOP COMMANDS WILL CONTINUE TO APPEAR AS 00881800
- * IMMEDIATE NON-DATA MOVER COMMANDS). THE CODE WITHIN THIS 00881900
- * MODULE RELATING TO THIS UPDATE CAN BE RECOGNIZED BY THE 00882000
- * FOLLOWING SNDCODE @V63A4B5. THE NOP DATA MOVERS CAN ONLY 00883100
- * BE READ WHEN USING THE DIAGNOSE 14 INTERFACE TO MANIPULATE 00883200
- * THE INPUT SPOOL FILES. 00883300
- CLC VSPCCW+6(2),F1+2 IS COUNT GREATER THAN 1? @V60A4B5 00883400
- BH CCWOK YES -> TREAT AS A DATA MVR @V60A4B5 00883500
- B FLAGTEST OTHERWISE, DO NEXT CCW OR END @V60A4B5 00883600
- SPACE 00884000
- TSTCMD TM VDEVTYPE,TYPPUN IS IT A PUNCH ?? 00885000
- BO CKPUNCCW YES -- VALIDATE PUNCH COMMANDS 00886000
- LA R15,CCWCNT NUMBER OF VALID PRINTER CCW OP-CODES 00887000
- LA R14,CCWEND POINT TO END OF VALID CODE LIST 00888000
- IC R1,VSPCCW GET CCW OP CODE 00889000
- CLILP EX R1,CLICCW VALID OP-CODE ?? 00890000
- BNE OPNEXT NO -- CHECK NEXT 00891000
- TM VSPCCW,X'03' CONTROL TYPE OP CODE ?? 00892000
- BO PRTCNTRL YES -- 00893000
- B CCWOK DATA TYPE CCW OP-CODE COMMAND 00894000
- CLICCW CLI 0(R14),0 EXECUTED COMPARE 00895000
- OPNEXT BCTR R14,0 -1 CCW OP CODE LIST 00896000
- BCT R15,CLILP BRANCH IF NOT END OF LIST 00897000
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER?? @V386298 00898000
- BNO REGPRT NO--1403 @V386298 00899000
- USING VFCBBLOK,R13 @VA00716 00900000
- L R13,VDEVFCBK ADDRESS OF FORMS CONTROL BLOK @VA00716 00901000
- CLI VSPCCW,X'63' FORMS CONTROL OP-CODE ? @VA00716 00902000
- BE CCWOK YES -- PROCESS @VA00716 00903000
- CLI VSPCCW,X'07' DIAG GATE COMMAND ? @VA00716 00904000
- BE CMD07 YES -- @VA00716 00905000
- CLI VSPCCW,X'12' READ FCB COMMAND ? @VA00716 00906000
- BE CCWOK YES -- @VA00716 00907000
- TM VFCBFLAG,VFCBDIAG DIAG GATE ACTIVE ? @VA00716 00908000
- BZ PRT3211 NO -- CONT @VA00716 00909000
- CLI VSPCCW,X'06' CHECK READ BUFFER COMMAND ? @VA00716 00910000
- BE CCWOK YES - SET WORK BUFFER ADDRESS @VA00716 00911000
- VFCBDIAG EQU X'01' DIAG OP-CODE X'07' PROCESSED @VA00716 00912000
- PRT3211 NI VFCBFLAG,X'FF'-VFCBDIAG RESET CMD 07 PROCESSING @VA00716 00913000
- LA R15,LEN3211 COUNT OF NOP TYPE CCW OP-CODES 00914000
- CLI VDEVTYPE,TYP3203 IS IT A 3203 PRINTER ?? @V386298 00914100
- BNE CLILP2 NO--MAKE 3211 OPCODE @V386298 00914200
- * COMPARE 00914300
- BCTR 15,0 DECREMENT CMD CODE TABLE @V386298 00914400
- * BY 1 FOR 3203 CMD CODE 00914500
- * TABLE 00914600
- CLILP2 EX R1,CLICCW OP-CODE COMPARE ? 00915000
- BE FORCE3 YES -- TREAT AS NOP 00916000
- BCTR R14,0 CCW LIST ADDRESS -1 00917000
- BCT R15,CLILP2 BRANCH IF NOT END OF LIST 00918000
- B PRTEOFU INVALID OP-CODE - FORCE EOF 00919000
- REGPRT LA R14,REGEND END OF FORCE3 TYPE OP-CODES 00920000
- LA R15,REGCNT LENGTH OF LIST 00921000
- CLILP3 EX R1,CLICCW OP-CODE COMPARE ? 00922000
- BE FORCE3 YES -- TREAT AS NOP 00923000
- BCTR R14,0 LIST ADDRESS -1 00924000
- BCT R15,CLILP3 BRANCH IF NOT END OF LIST 00925000
- B PRTEOFU INVALID OP-CODE - FORCE EOF 00926000
- SPACE 00927000
- CMD07 EQU * HERE IF PROCESSING DIAG CMD FOR @VA00716 00928000
- * 3211 OR 3203 00929000
- OI VFCBFLAG,VFCBDIAG INDICATE CMD07 PROCESSING @VA00716 00930000
- B FORCE3 AND TREAT AS NOP @VA00716 00931000
- SPACE 00932000
- CMD06 EQU * HERE TO CONVERT FCB BUFFER @VA00716 00933000
- * COUNTER TO HARDWARE 00934000
- * FCB ADDRESS REGISTER VALUE 00935000
- MVI 0(R3),X'00' CLEAR BYTE FOR NEW HARDWARE VALUE @VA00716 00936000
- LH R0,VFCBCNT GET CURRENT LINE COUNT @VA00716 00937000
- AL R0,F1 ADJUST COUNTER TO HARDWARE VALUE @VA00716 00938000
- STC R0,1(R3) SAVE IN WORK BYTE @VA00716 00939000
- LA R14,1 TM MASK (BINARY COUNTER) @VA00716 00940000
- LA R15,128 OI MASK (HARDWARE COUNTER) @VA00716 00941000
- * BIT 0=1, 1=2, 2=4, 3=8, 4=16, 5=32, 6=64, 7=128 00942000
- LA R6,8 LOOP COUNT @VA00716 00943000
- CMD06LP EX R14,TMCNT BIT PRESENT ?? @VA00716 00944000
- BZ *+8 NO -- @VA00716 00945000
- EX R15,OICNT CONVERT TO HARDWARE VALUE @VA00716 00946000
- SLL R14,1 SHIFT BINARY MASK @VA00716 00947000
- SRL R15,1 SHIFT HARDWARE MASK @VA00716 00948000
- BCT R6,CMD06LP AND TEST NEXT BIT @VA00716 00949000
- MVC 1(179,R3),0(R3) FILL BUFFER WITH HARDWARE VALUE @VA00716 00950000
- LA R5,150 SET MAX BUFFER SIZE @VA00716 00951000
- B CMD0612 NOW MOVE DATA @VA00716 00952000
- TMCNT TM 1(R3),0 EXECUTED TM INSTRUCTION @VA00716 00953000
- OICNT OI 0(R3),0 EXECUTED OI INSTRUCTION @VA00716 00954000
- MOVEFCB MVC 0(*-*,R2),0(R3) MOVE DATA FROM BUFFER TO USER @VA00716 00955000
- * AREA 00956000
- SPACE 00957000
- CMD12 EQU * HERE ON FCB READ COMMAND @VA00716 00958000
- MVC 0(180,R3),VFCBLOAD MOVE FCB DATA TO BUFFER @VA00716 00959000
- LA R5,180 SET MAX BUFFER SIZE @VA00716 00960000
- CMD0612 EQU * HERE TO MOVE BUFFER DATA TO @VA00716 00961000
- * USER AREA 00962000
- LA R0,MOVEFCB ADDRESS OF MOVE INSTRUCTION @VA00716 00963000
- BAL R6,MOVEDATA MOVE DATA TO USER @VA00716 00964000
- B SETDE SET DEVICE END AND CHECK FOR @VA00716 00965000
- * CC,IDA 00966000
- SPACE 00967000
- FORCE3 TM VSPCCW+4,CD IS CCW DATA CHAINING? @VA12613 00968000
- BZ FORCE3A NO - NO FLAG NECESSARY @VA12613 00968200
- OI VSPFLAG1,VSPDCFOP FLAG CD CCW FORCED TO '03' @VA12613 00968400
- FORCE3A MVI VSPCCW,X'03' FORCE '03'OP CODE @VA00716 00968600
- B SETDE GO SET UP DEVICE END STATUS @VA00716 00969000
- SPACE 00970000
- REGBEG DC X'EBFBF3737B' 00971000
- REGEND EQU *-1 00972000
- REGCNT EQU *-REGBEG 00973000
- BEG3211 DC X'83FB4323737B020A066B0E' @VA00716 00974000
- END3211 EQU *-1 00975000
- LEN3211 EQU *-BEG3211 00976000
- CCWBEG DC X'E3E1DBD9D3D1CBC9C3C1BBB9B3B1ABA9A3A19B9993' 00977000
- DC X'918B8919111B130B0901' 00978000
- CCWEND EQU *-1 00979000
- CCWCNT EQU *-CCWBEG 00980000
- DS 0H 00981000
- EJECT 00982000
- SPACE 00983000
- CKPUNCCW EQU * HERE TO VALIDATE PUNCH CCW 00984000
- TM VSPCCW,1 WRITE CCW ? 00985000
- BZ PRTEOFU NO -- ILLEGAL COMMAND 00986000
- TM VSPCCW,4 ALWAYS ILLEGAL 00987000
- BO PRTEOFU ASSUME USER IS FORCING EOF 00988000
- TM VSPCCW,X'18' THESE BITS INVALID FOR PUNCH 00989000
- BNZ PRTEOFU FORCE END OF FILE 00990000
- TM VSPCCW,X'C0' BOTH BITS MAY NOT BE ON -- 00991000
- BO PRTEOFU IF BOTH ON, ILLEGAL COMMAND 00992000
- TM VSPCCW,X'03' PUNCH BLANK CARD ? 00993000
- BO PRTEOFU ILLEGAL PUNCH COMMAND @VA05105 00994100
- SPACE 3 00998000
- * 00999000
- * CCW IS WRITE -- START TO TRANSFER DATA 01000000
- * 01001000
- SPACE 01002000
- CCWOK EQU * HERE TO MOVE USER'S DATA 01003000
- L R3,VSPBUFBK ADDRESS OF WORK BUFFER 01004000
- LA R3,12(R3) ADJUST PASS CCW AND TIC 01005000
- LH R5,SFBRECSZ DEVICE LOGICAL RECORD SIZE 01006000
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER?? @V386298 01007000
- BNO PRTCD NO-- @V386298 01008000
- L R13,VDEVFCBK LOAD ADDRESS OF FCB BLOK @VA00716 01009000
- NI VFCBFLAG,X'FF'-VFCBDIAG RESET DIAG FLAG @VA00716 01010000
- CLI VSPCCW,X'06' CHECK READ CMD (3211/3203) @V386298 01011000
- BE CMD06 YES -- @VA00716 01012000
- CLI VSPCCW,X'12' READ FCB CMD (3211/3203) @V386298 01013000
- BE CMD12 YES -- @VA00716 01014000
- DROP R13 @VA00716 01015000
- CLI VSPCCW,X'63' FORMS CONTROL COMMAND ?? 01016000
- BNE PRTCD NO - 01017000
- *********************************************************************** 01017100
- *** THE NEXT THREE COMMANDS WILL ENSURE THAT THE SILI BIT IS ON IF *** 01017200
- *** THE PRINTER IS A 3203. THIS WILL PREVENT INCORRECT LENGTH FROM *** 01017300
- *** BEING REFLECTED. *** 01017400
- *********************************************************************** 01017500
- TM VDEVTYPE,TYP3203 @V60A6B6 01017600
- BNO MOD3211 @V60A6B6 01017700
- OI VSPCCW+4,SILI @V60A6B6 01017800
- MOD3211 EQU * @V60A6B6 01017900
- LA R5,181 MAX RECORD LENGTH FOR FCB 01018000
- SPACE 01019000
- PRTCD TM VSPFLAG1,VSPDCFOP WAS CD CCW FORCED TO '03'? @VA12613 01020000
- BZ PRTCD1 NO - REG3 & REG5 INITIALIZED @VA12613 01020100
- L R3,VSPBUFBK WE DIDN'T COME THRU CCWOK, SO @VA12613 01020200
- LA R3,12(R3) ..INITIALIZE REG 3 AND REG5 @VA12613 01020300
- LH R5,SFBRECSZ ...NOW @VA12613 01020400
- NI VSPFLAG1,255-VSPDCFOP RESET FLAG @VA12613 01020500
- PRTCD1 CLI VSPCCW,X'06' CK RD CMD ( 3211-TYPE PRNTR ) @V6CD1F1 01020600
- BE CMD0612 YES - @VA00716 01021000
- CLI VSPCCW,X'12' FCB READ CMD (3211/3203) ? @V386298 01022000
- BE CMD0612 YES -- @VA00716 01023000
- LA R0,MOVEPRT ADDRESS OF MOVE INSTRUCTION TO @VA00716 01024000
- * MOVE 01025000
- * USER DATA TO WORK BUFFER 01026000
- TEST63 CLI VSPCCW,X'63' FORMS CONTROL CMD (3211/3203) ? @V386298 01035000
- BE DATAMOVE YES -- @V60A4B5 01036000
- CLI VSPCCW,X'03' IS IT A NO-OP? @V60A4B5 01036100
- BE DATAMOVE YES -> MUST HAVE DATA @V60A4B5 01036200
- TM VSPCCW,3 NOP-CODE OR COMMAND IMMEDIATE ?? 01037000
- BO FLAGTEST YES -- NO DATA MOVE 01038000
- DATAMOVE EQU * @V60A4B5 01038100
- BAL R6,MOVEDATA GET USER'S DATA 01039000
- TM VSPCCW+4,CD+IDA ANY CD CHAINING OR IDA ?? 01040000
- BNZ FLAGTEST YES - 01041000
- OP23 LR R13,R3 SAVE ADDRESS OF DATA END PLUS ONE 01042000
- L R3,VSPBUFBK ADDRESS OF WORK BUFFER 01043000
- MVC 0(12,R3),MODELCCW MOVE CCW AND TIC 01044000
- CLI VSPCCW,X'03' IT IS A NO-OP? @V60A4B5 01044100
- BE NOPGO YES -> USE NOP OPCODE IN CCW@V60A4B5 01044200
- TM VDEVTYPE,TYPPUN PUNCH ?? 01045000
- BO COMPRESS YES - 01046000
- NOPGO EQU * @V60A4B5 01046100
- MVC 0(1,R3),VSPCCW USE OP-CODE FROM VSPCCW 01047000
- SPACE 01048000
- CLI VDEVTYPE,TYP3211 3211 PRINTER ?? 01049000
- BNE COMPRESS NO -- 01050000
- CLI VSPCCW,X'63' FORM CONTROL OP-CODE ?? 01051000
- BE COMPRESS YES -- NO NEED TO INDEX 01052000
- USING VFCBBLOK,R14 01053000
- L R14,VDEVFCBK ADDRESS OF VFCBBLOK 01054000
- SR R5,R5 .. 01055000
- NI VFCBNDEX,X'1F' TURN OFF INDEX FLAG 01056000
- ICM R5,B'0001',VFCBNDEX GET INDEX COUNT, IF ANY 01057000
- BZ COMPRESS NO INDEXING -- 01058000
- LR R15,R13 ADDRESS OF DATA END +1 01059000
- LA R13,12(R3) START OF DATA 01060000
- SR R15,R13 LENGTH OF DATA 01061000
- BCTR R15,0 .. 01062000
- L R6,WRKADD ADDRESS OF INDEX WORK AREA 01063000
- MVI 0(R6),X'40' CLEAR IT 01064000
- MVC 1(183,R6),0(R6) .. 01065000
- BCTR R5,0 INDEX -1 01066000
- AR R6,R5 ADJUST ADDRESS TO OFFSET OF INDEX 01067000
- EX R15,MINDEX MOVE DATA TO WORK AREA OFFSET 01068000
- SR R6,R5 RESET WORK AREA ADDRESS TO START 01069000
- LH R5,SFBRECSZ GET DEVICE LOGICAL RECORD SIZE 01070000
- AR R13,R5 SET DATA END ADDRESS PLUS ONE 01071000
- BCTR R5,0 -1 FOR MOVE OF NEW RECORD 01072000
- EX R5,RINDEX MOVE OFFSETTED DATA BACK TO BUFFER 01073000
- DROP R14 01074000
- SPACE 01075000
- * TRUNCATE ALL RIGHT JUSTIFIED BLANKS 01076000
- SPACE 01077000
- SPACE 01078000
- COMPRESS LA R5,12(R3) ADDRESS OF FIRST DATA BYTE 01079000
- NEXTCOL BCTR R13,R0 MINUS ONE COL 01080000
- CR R5,R13 ZERO LENGTH RECORD OR BLANK RECORD 01081000
- BE CNT1 YES SET UP FOR 8 BYTE DATA 01082000
- CLI 0(R13),X'40' BLANK ?? 01083000
- BE NEXTCOL YES KEEP CHECKING 01084000
- CNT1 SR R13,R5 NEW DATA BYTE COUNT FOR CCW 01085000
- LA R13,1(R13) CORRECT COUNT BY ADDING ONE 01086000
- FILLCCW STH R13,6(R3) STORE NEW DATA COUNT IN CCW 01087000
- LA R13,19(R13) ADD CCW LENGTH PLUS 7 FOR ROUND 01088000
- TM VDEVTYPE,TYPPUN DEVICE PUNCH ?? 01089000
- BZ *+8 NO - 01090000
- LA R13,4(R13) ADD 4 BYTES FOR BACKCHAIN ADDRESS 01091000
- N R13,=A(X'FFFFF8') ROUNDING TO DOUBLE WORD 01092000
- STH R13,10(R3) FILL IN TIC CCW RELATIVE ADDRESS 01093000
- * TO NEXT CCW 01094000
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER ??@V386298 01095000
- BNO PUTDATA NO--1403 @V386298 01096000
- CLI VSPCCW,X'63' FORMS CONTROL COMMAND 01097000
- BNE PUTDATA NO --CONTINUAL 01098000
- L R15,VSPBUFBK ADDRESS OF WORK BUFFER 01099000
- USING VFCBBLOK,R6 @VA01095 01100000
- L R6,VDEVFCBK ADDRESS OF VFCB BLOK @VA01095 01101000
- LR R14,R6 SET UP MOVE REGISTER @VA01095 01102000
- XC 0(VFCBSIZE*8,R14),0(R14) CLEAR TO BINARY ZEROES 01103000
- LH R13,6(R3) GET DATA COUNT 01104000
- BCTR R13,0 -1 FOR MOVE 01105000
- TM 12(R15),X'80' FIRST BYTE INDEX ?? 01106000
- BZ *+6 NO -- 01107000
- BCTR R14,0 SET MOVE TO ADDRESS TO VFCBNDEX 01108000
- EX R13,FCBMOVE MOVE DATA TO VFCBLOK 01109000
- B VALIDATE VALIDATE FCB DATA @VA01095 01110000
- SPACE 01111000
- PUTDATA LR R3,R13 R3 CONTAINS LENGTH OF BUFFER 01112000
- CALL DMKVSQPD GO OBTAIN NEEDED BUFFER SPACE @V60BCAA 01113000
- B ERROMSG IF RETURN TO THIS POINT, GO WRITE@V60BCAA 01113100
- * ERROR MESSAGE 01113200
- * IF NO ERROR OCCURRED, WILL FALL THRU 01113300
- SPACE 2 01114000
- * 01115000
- * WRITE HAS BEEN SIMULATED 01116000
- * 01117000
- B CMD3211 PROCESS 3211/3203 CMDS @V386298 01118000
- SPACE 2 01119000
- PRTCNTRL EQU * HERE FOR CONTROL COMMANDS 01120000
- L R3,VSPBUFBK ADDRESS OF WORK BUFFER 01121000
- MVC 1(7,R3),MODELCCW+1 GET MODEL CCW (CC+SILI) 01122000
- MVC 0(1,R3),VSPCCW GET CONTROL OP-CODE 01123000
- OI 4(R3),SKIP INDICATE NO DATA @V293598 01124000
- LA R3,8 NEED ONLY 8 BYTES FOR CCW 01125000
- CALL DMKVSQPD GO OBTAIN BUFFER SPACE @V60BCAA 01126000
- B ERROMSG IF RETURN TO THIS POINT, GO WRITE@V60BCAA 01126100
- * ERROR MESSAGE. 01126200
- * IF NO ERROR OCCURRED, WILL FALL THROUGH 01126300
- SPACE 01127000
- TM VSPCCW+4,IDA IDA ???? 01128000
- BZ CMD3211 NO -- 01129000
- MVC VSPCCW+6(2),VSPIDACT RESTORE CCW COUNT 01130000
- NI VSPCCW+4,X'FF'-(CD+IDA) RESET CD AND IDA FLAGS 01131000
- OI VSPIDASW,X'C0' INDICATE IDA COMPLETE 01132000
- SPACE 2 01133000
- CMD3211 EQU * PROCESS 3211/3203 CMDS @V386298 01134000
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER ??@V386298 01135000
- BNO FLAGTEST NO--1403 @V386298 01136000
- L R6,VDEVFCBK RELOAD BASE 01137000
- NI VFCBFLAG,X'FF'-VFCBDIAG RESET CMD 07 FLAG @VA00716 01138000
- NI VFCBFLAG,X'FF'-VFCBEOF TURN OFF EOF FLAG FORM CONTROL 01139000
- SPACE 01140000
- SR R4,R4 CLEAR REG 01141000
- IC R4,VSPCCW CCW COMMAND 01142000
- SRL R4,3 SHIFT RIGHT 3 POSITIONS 01143000
- N R4,=X'0000000F' ONLY COUNT OR CHANNEL NUMBER 01144000
- LTR R4,R4 ZERO SPACE REQUIRED ?? 01145000
- BZ FLAGTEST YES -- 01146000
- STC R4,VFCBCHL STORE SPACE CNT OR CHANNEL NUMBER 01147000
- TESTLOOP LH R15,VFCBCNT GET LINE COUNT 01148000
- LA R14,VFCBLOAD(R15) POINT TO CURRENT BUFFER COL 01149000
- A R15,F1 UPDATE TO NEXT LINE 01150000
- STH R15,VFCBCNT AND SAVE 01151000
- BCTR R15,0 RESTORE CURRENT LINE COUNT 01152000
- TM VSPCCW,X'80' SKIP COMMAND ?? 01153000
- BO SKIP3211 YES -- 01154000
- * 01155000
- * PROCESSING SPACE COMMAND 01156000
- * 01157000
- LTR R15,R15 FIRST POSITION ?? 01158000
- BZ SPACE1 BYPASS EOF TEST 01159000
- TM 0(R14),X'10' END OF FORMS FLAG ON ?? 01160000
- BZ SPACE1 NO -- 01161000
- MVI VFCBCNT+1,X'00' RESET LINE POINTER TO ONE 01162000
- CLI 0(R14),X'19' CHANNEL 9 WITH END OF FORMS ? 01163000
- BE CHL9 YES -- 01164000
- CLI 0(R14),X'1C' CHANNEL 12 WITH END OF FORMS ?? 01165000
- BE CHL12 YES -- 01166000
- B ZEROTEST TEST FOR ANY MORE SPACES 01167000
- SPACE 01168000
- SPACE1 CLI 0(R14),X'09' CHANNEL 9 ?? 01169000
- BE CHL9 YES - 01170000
- CLI 0(R14),X'0C' CHANNEL 12 ?? 01171000
- BE CHL12 YES -- 01172000
- ZEROTEST BCT R4,TESTLOOP -1 SPACE AND COUNTING 01173000
- B FLAGTEST TEST FOR CHAINING 01174000
- SPACE 01175000
- CHL9 OI VDEVINTS,UC SET UNIT CHECK FOR DEVICE END TIME 01176000
- OI VDEVSNSE,X'01' SET CHANNEL 9 SENSE BIT 01177000
- TM VSPCCW+4,CC COMMAND CHAINING ? 01178000
- BZ ENDCCW1 NO -- 01179000
- B ENDCCW2 BREAK CHAINING AND LEAVE 01180000
- SPACE 01181000
- CHL12 OI VDEVINTS,UE SET UNIT EXCEPTION FOR DEVICE END 01182000
- * TIME 01183000
- TM VSPCCW+4,CC COMMAND CHAINING ? 01184000
- BZ ENDCCW1 NO -- 01185000
- TM VDEVFLAG,VDEVCCW1 STILL ON FIRST CCW @VA11708 01185300
- BO ENDCCW1 YES- LEAVE UE FOR INTERRUPT @VA11708 01185600
- * AFTER INITIAL STATUS (CE) @VA11708 01185900
- OI VDEVCSW+4,UE SET UNIT EXCEPTION 01186000
- B ENDCCW AND LEAVE NOW 01187000
- SPACE 01188000
- SKIP3211 EQU * PROCESS SKIP COMMANDS 01189000
- SPACE 01190000
- LTR R15,R15 FIRST POSITION ?? 01191000
- BZ COMP YES - DO NOT TEST BIT 3 01192000
- TM 0(R14),X'10' END OF FORMS FLAG ?? 01193000
- BZ COMP NO DO COMPARE 01194000
- MVI VFCBCNT+1,X'00' RESET COUNTER TO LINE ONE 01195000
- TM VFCBFLAG,VFCBEOF END OF FORMS PASSED ONCE ?? 01196000
- BO EOFERR YES ??? (CARRIAGE RUNAWAY) 01197000
- OI VFCBFLAG,VFCBEOF TURN ON EOF BIT FLAG 01198000
- SPACE 01199000
- COMP EQU * R14 CONTAINS ADDRESS OF CURRENT LINE 01200000
- CLC VFCBCHL(1),0(R14) CHANNEL EQUAL ?? 01201000
- BE FLAGTEST YES SKIP COMPLETE 01202000
- OI VFCBCHL,X'10' SET 3 BIT FOR COMPARE 01203000
- CLC VFCBCHL(1),0(R14) COMPARE FOR CHANNEL WITH BIT 3 ON 01204000
- BE FLAGTEST EQUAL COMPARE 01205000
- NI VFCBCHL,X'0F' RESET UNWANTED BITS 01206000
- B TESTLOOP NO CHECK NEXT COL 01207000
- SPACE 01208000
- EOFERR OI VDEVINTS,UC SET UNIT CHECK 01209000
- OI VDEVSNSE,DATACHK SET DATA CHECK 01210000
- OI VDEVSNSE+1,X'10' SET CARRIAGE COMPARE ERROR 01211000
- TM VSPCCW+4,CC COMMAND CHAINING ? 01212000
- BZ ENDCCW1 NO -- 01213000
- B ENDCCW2 BREAK CHAINING AND LEAVE 01214000
- SPACE 01215000
- VALIDATE EQU * VALIDATE BUFFER INFORMATION 01216000
- SR R1,R1 GET INDEX VALUE 01217000
- ICM R1,B'0001',VFCBNDEX INDEX PRESENT ? 01218000
- BZ VALID1 NO -- CONT 01219000
- SL R1,=F'128' REMOVE INDEX FLAG 01220000
- BC 6,LOADCK COUNT NOT POSITIVE 01221000
- C R1,=F'31' GREATER THAN 31 ? 01222000
- BH LOADCK YES -- 01223000
- BCTR R13,0 COUNT -1 DUE INDEX BYTE 01224000
- VALID1 MVI VFCBLOAD+180,X'00' CLEAR BYTE 181 @VA01095 01225000
- LA R1,VFCBLOAD ADDRESS OF FIRST DATA BYTE @VA01095 01226000
- AR R13,R1 ADDRESS OF LAST DATA BYTE @VA01095 01227000
- TM 0(R1),X'10' COL1. 6 OR 8 LINES PER INCH ? @VA01095 01228000
- BO CHECK1C YES -- VALIDATE CHANNEL @VA01095 01229000
- CLI 0(R1),X'0C' CHANNEL VALUE LARGER THAN 12 ? @VA01095 01230000
- BH LOADCK YES -- LOAD CHECK @VA01095 01231000
- CHECK1C CLI 0(R1),X'1C' LARGER THAN CHANNEL 12 WITH BIT 3@VA01095 01232000
- BNH CKLOOP NO -- CHECK NEXT @VA01095 01233000
- LOADCK OI VDEVSNSE,X'02' SET LOAD CHECK @VA01095 01234000
- MVI VFCBNDEX,X'00' CLEAR OUT INDEX BYTE @VA01095 01235000
- MVI VFCBCNT+1,X'00' RESET LINE COUNTER @VA01095 01236000
- B ENDCCW2 BREAK CHAINING AND LEAVE @VA01095 01237000
- SPACE 01238000
- CKLOOP LA R1,1(,R1) UPDATE VFCBLOAD ADDRESS @VA01095 01239000
- CLR R1,R13 IS THIS THE LAST BYTE OF BUFFER ?@VA01095 01240000
- BH LOADCK YES - EOF MISSING LOAD CHECK @VA01095 01241000
- TM 0(R1),X'10' END OF FORMS BIT ? @VA01095 01242000
- BO CHECKEOF YES -- @VA01095 01243000
- CLI 0(R1),X'0C' GREATER THAN CHANNEL 12 ? @VA01095 01244000
- BH LOADCK YES - LOAD CHECK @VA01095 01245000
- B CKLOOP CHECK NEXT BYTE IN BUFFER @VA01095 01246000
- SPACE 01247000
- CHECKEOF CLI 0(R1),X'1C' VALID CHANNEL VALUE ? @VA01095 01248000
- BH LOADCK NO - LOAD CHECK @VA01095 01249000
- SLR R13,R1 CALULATE RESIDUAL COUNT @VA01095 01250000
- AH R13,VDEVCSW+6 ADD PRESENT RESIDUAL COUNT @VA01095 01251000
- STH R13,VDEVCSW+6 AND STORE IN CSW @VA01095 01252000
- MVI VFCBCNT+1,X'01' SET COUNTER TO ONE @VA01095 01253000
- SETDE OI VDEVCSW+4,DE SET DEVICE END FOR THIS COMMAND 01254000
- SPACE 01255000
- FLAGTEST EQU * HERE TO FINISH UP WITH CCW 01256000
- OI VDEVCSW+4,CE SET CHANNEL END FOR EVERYONE 01257000
- CLI VSPCCW,X'03' IS IT A NOP COMMAND? @V60A4B5 01257100
- BNE NOTIMMED NOPE - DON'T FORCE IMMED END@V60A4B5 01257200
- MVI VDEVCSW+5,X'00' CLEAR POSSIBLE IL @V60A4B5 01257300
- TM VSPCCW+4,CC+CD ANY CHAINING SPECIFIED? @V60A4B5 01257400
- BNZ NOTIMMED NO IMMED END IF SO @V60A4B5 01257500
- OI VDEVCSW+4,DE SET DE TO CAUSE IMMED END @V60A4B5 01257600
- NOTIMMED EQU * @V60A4B5 01257700
- BAL R6,PCITEST GO TEST FOR PCI INTERRUPT 01258000
- TM VDEVCSW+5,IL INCORRECT LENGTH ?? 01259000
- BO LASTCCW YES - FINISHED CHANNEL PROGRAM 01260000
- TM VSPCCW+4,CD+CC+IDA IS ANY CHAINING OR IDA ?? 01261000
- BZ LASTCCW NO -- FINISHED WITH CHANNEL PROGRAM 01262000
- NI VDEVFLAG,X'FF'-VDEVCCW1 RESET FIRST CCW INDICATOR 01263000
- BAL R6,GETCCW GO LOCATE AND VERIFY NEXT NON-TIC 01264000
- * CCW 01265000
- B PRINTER RETURN HERE IF USER IS COMMAND 01266000
- * CHAINING 01267000
- B PRTCD OR HERE IF HE IS DATA CHAINING 01268000
- SPACE 2 01269000
- MOVEPRT MVC 0(*-*,R3),0(R2) EXECUTED TO MOVE DATA 01270000
- * FROM USER TO BUFFER 01271000
- MINDEX MVC 0(0,R6),12(R3) MOVE DATA TO WORK AREA OFFSET 01272000
- RINDEX MVC 12(0,R3),0(R6) MOVE OFFSET DATA TO BUFFER 01273000
- SPACE 01274000
- SPACE 01275000
- EJECT 01276000
- *. 01277000
- * 01278000
- * SPOOLED PRINTER AND PUNCH END OF FILE PROCESSING - 01279000
- * 01280000
- * 1. CLOSE REQUEST ISSUED VIA CLOSE OR SPOOL COMMANDS: 01281000
- * (A) IF THE DEVICE IS CP BUSY (VDEVSVC=1); BRANCH TO 01282000
- * STKCPBLK ROUTINE TO BUILD AND STACK CPEXBLOK 01283000
- * ON VSPSTK ANCHOR TO DELAY THE REQUEST, AND GO TO 01284000
- * DISPATCHER (DMKDSPCH). 01285000
- * ENTRY POINT FOR CPEXBLOK IS LABEL RDRCLRET 01286000
- * (B) IF THE DEVICE IS BUSY (SIO-VDEVBUSY=1); 01287000
- * SET DEFFERED CLOSE REQUEST FLAG AND EXIT TO 01288000
- * THE CALLER. 01289000
- * (C) IF THE DEVICE IS NOT BUSY OR CP BUSY OR 01290000
- * ENTRY VIA THE STACKED CPEXBLOK; CONTINUE 01291000
- * 01292000
- * 2. VERIFY THAT THE FILE TO BE CLOSED IS NOT EMPTY AND WRITE 01293000
- * THE FINAL PAGE BUFFER TO DASD. THEN CALL DMKSPLCV TO 01294000
- * COMPLETE HOUSEKEEPING AND QUEUE THE FILE FOR FURTHER PRO- 01295000
- * CESSING EITHER ON THE REAL SPOOLING HARDWARE OF, IF XFERED, 01296000
- * QUEUE IT AS A VIRTUAL INPUT READER FILE 01297000
- * 01298000
- * 3. IF THE END OF FILE HAS BEEN FORCED VIA AN ILLEGAL CCW OP- 01299000
- * CODE, POST COMMAND REJECCT AND EXIT. 01300000
- * 01301000
- * 4. BEFORE THE EXIT IS MADE TO THE CALLER, A BAL TO 01302000
- * UNSTKBLK ROUTINE TO UNSTACK THE NEXT CPEXBLOK,IF ANY 01303000
- * FOR THIS DEVICE. 01304000
- * 01305000
- *. 01306000
- SPACE 2 01307000
- USING SAVEAREA,R13 01308000
- DMKVSPCO RELOC FOR CONSOLE FUNCTIONS 01309000
- LR R10,R12 SET UP SECOND BASE REGISTER 01310000
- A R10,F4096 .. 01311000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VM01028 01312000
- LA R6,OUTRET DELAY CPEX RETURN ADDRESS @VM01028 01313000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ? @VM01028 01314000
- BO DELAYCL YES - DELAY CLOSE @VM01028 01315000
- CLI VDEVTYPE,TYP3210 CONSOLE DEVICE ? @VM01028 01316000
- BE CLPRTPUN YES - SKIP BUSY TEST @VM01028 01317000
- TM VDEVSTAT,VDEVBUSY DEVICE BUSY ?? @VM01028 01318000
- BO DELAYCL YES - DELAY CLOSE @VM01028 01319000
- B CLPRTPUN CLOSE OUTPUT DEVICE @VM01028 01320000
- OUTRET AL R8,VMDVSTRT FULL VDEVBLOK ADDRESS @VM01028 01321000
- NI VDEVSFLG,X'FF'-VDEVSVC RESET DEVICE CP BUSY @VM01028 01322000
- CLPRTPUN ICM R9,B'1111',VDEVSPL ADDRESS OF CONTROL BLOK @VM01028 01323000
- BZ VSPCFXIT BRANCH IF NO FILE @VM01028 01324000
- NI SAVER2+3,VDEVPURG KEEP ONLY PURGE OPTION @VM01028 01325000
- OC VDEVSFLG,SAVER2+3 SET FLAG OPTION @VM01028 01326000
- L R7,VSPSFBLK ADDRESS OF SPOOL FILE BLOK @VM01028 01327000
- OI VDEVSFLG,VDEVSVC INDICATE DEVICE CP BUSY @VM01028 01328000
- LA R6,CLOSERET RETURN ADDRESS @VM01028 01329000
- ST R6,SAVEWRK6 SAVE RETURN ADDRESS 01330000
- BAL R6,PRTEOF GO CLOSE SPOOL FILE @VM01028 01331000
- CLOSERET NI VDEVSFLG,X'FF'-VDEVSVC RESET DEVICE CP BUSY @VM01028 01332000
- VSPCFXIT BAL R6,UNSTKBLK GO UNSTACK CPEX BLOK @VM01028 01333000
- EXIT - EXIT TO CALLER @VM01028 01334000
- SPACE 01335000
- DROP R13 01336000
- SPACE 3 01337000
- PRTEOFU2 EQU * HERE FOR CHANNEL PROGRAM CHECK CONDITION 01338000
- LA R6,PROGCHK SET RETURN ADDRESS 01339000
- B PRTEOFU1 FORCE CLOSING OF FILE 01340000
- SPACE 01341000
- PRTEOFU EQU * HERE TO CLOSE COMPLETED SPOOL FILE 01342000
- BAL R6,PCITEST CHECK FOR PCI 01343000
- MVI VDEVSNSE,CMDREJ MOVE IN COMMAND REJECT 01344000
- LA R6,UNITCHK UNITCHECK AND COMMAND REJECT 01345000
- PRTEOFU1 TM VDEVSFLG,VDEVCONT CONT OUTPUT ?? @V200930 01346000
- BCR 1,R6 YES - DO NOT CLOSE FILE 01347000
- MVC VDEVCSW+6(2),VSPCCW+6 MOVE IN RESIDUAL COUNT 01348000
- SPACE 01349000
- PRTEOF L R1,VSPVPAGE GET VIRTUAL BUFFER ADDRESS 01350000
- * PAGE IN LAST BUFFER PAGE 01351000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 01352000
- TRANS 2,1,OPT=(BRING,DEFER,SYSTEM),IOER=EMSG429 @VA00716 01353000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 01354000
- L R0,SFBRECNO GET TOTAL NUMBER OF RECORDS 01355000
- TM SFBFLAG2,SFBFLNMT IS FILE EMPTY ?? @VA04920 01356000
- BNO PRTPUR YES THEN PURGE IT. @VA04920 01357000
- LA R5,10 RETRY COUNT 01358000
- TM VDEVTYPE,TYPPUN PUNCH ?? 01359000
- BZ PRTCNT NO - 01360000
- AL R0,VMPNCH UPDATE PUNCH CARD COUNT 01361000
- ST R0,VMPNCH .. 01362000
- B CHAINBUF .. 01363000
- PRTCNT AL R0,VMLINS UPDATE LINE COUNT 01364000
- ST R0,VMLINS .. 01365000
- CHAINBUF L R1,SFBSTART GET START CCPD @VA11232 01366000
- L R0,SPPREPAG DETERMINE WHETHER RE-WRITING @VA11232 01366100
- LTR R0,R0 FIRST PAGE BECAUSE OF ERROR @VA11232 01366200
- BNZ USESTRT NOT FIRST PAGE @VA11232 01366300
- C R1,VSPDPAGE ARE WE WRITING IT IN SAME SLOT? @VA11232 01366400
- BE USESTRT YES, SFBSTART IS OK @VA11232 01366500
- L R1,VSPDPAGE USE CURRENT BUFFER AS START CCPD @VA11232 01366600
- ST R1,SFBSTART UPDATE SFBSTART AND SFBLAST @VA11232 01366700
- ST R1,SFBLAST BEFORE WRITE @VA11232 01366800
- USESTRT ST R1,SPRMISC SAVE NEW START CCPD @VA11232 01366900
- ST R0,SFBPNT SFBPNT PTS TO PREV. WHILE WRITE @VA11232 01367000
- ST R1,SPNXTPAG CHAIN TAIL OF FILE TO HEAD @VA11232 01367100
- LM R0,R1,VSPDPAGE GET BUFFER AND VIRTUAL ADDRESSES 01368000
- MVC SPFILID,SFBFILID FILE ID FOR VALIDATING PAGE @V60B9BA 01369000
- MVC SPTIME,SFBTIME MORE VALIDATION DATA @V60B9BA 01370000
- LR R4,R2 SAVE BUFFER ADDRESS 01371000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01372000
- CALL DMKRPAPT,PARM=SYSTEM AND WRITE PAGE TO DASD 01373000
- LR R2,R4 RESTORE BUFFER ADDRESS 01374000
- LR R3,R0 LAST BUFFER CCPD WRITTEN @VA11232 01375000
- BZ TSTPUR NO ERRORS -- 01376000
- BCT R5,*+8 RETRY 10 TIMES 01377000
- B EMSG429 RETRYED 10 CONSECUTIVE TIMES @VA01460 01378000
- OI VSPFLAG1,VSPERR INDICATE BUFFER WRITE ERROR @VA11232 01379000
- CALL DMKPGTSG GET NEW DASD BUFFER (CCPD) 01380000
- LTR R1,R1 VALID DASD ADDRESS 01381000
- BZ EMSG429 NO MORE DASD SPACE -- @VA01460 01382000
- * WHILE IN ERROR RECOVERY - 01383000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 01384000
- ST R1,VSPDPAGE SAVE NEW CCPD 01385000
- B CHAINBUF RE-WRITE USING NEW CCPD 01389000
- SPACE 01390000
- TSTPUR AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 01391000
- TM VSPFLAG1,VSPERR BUFFER WRITE ERROR ? @VA11232 01392000
- BO TSTERR YES -- 01393000
- ST R3,SFBLAST UPD. SFBLAST IF SUCCESSFUL WRITE @VA11232 01393100
- TM VDEVSFLG,VDEVPURG WAS PURGE REQUESTED ?? 01394000
- BO PRTPUR YES -- 01395000
- B SETOPTS NO -- CLOSE FILE 01396000
- TSTERR NI VSPFLAG1,X'FF'-VSPERR RESET ERROR INDICATOR @VA11232 01397000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01398000
- ICM R0,B'1111',SPPREPAG GET PREVIOUS BUFFER DASD ADDRESS 01399000
- BNZ UPDPREV UPDATE PREVIOUS BUFFER @VA11232 01400000
- MVC SFBSTART,VSPDPAGE UPDATE NEW START CCPD @VA11232 01400100
- B TSTPUR GO UPDATE SFBLAST @VA11232 01400200
- UPDPREV L R1,VSPVPAGE GET VIRTUAL PAGE ADDRESS @VA11232 01400300
- CALL DMKRPAGT,PARM=(SYSTEM+BRING+LOCK) GET BUFFER 01402000
- LR R2,R4 RE-ESTABLISH BUFFER ADDRESS @VA11232 01403000
- BNZ EMSG429B SPOOL READ ERROR @VA11232 01403100
- ST R3,SPNXTPAG UPDATE FORWARD BUFFER POINTER @VA11232 01404000
- CALL DMKRPAPT,PARM=(SYSTEM) WRITE OUT BUFFER 01405000
- LR R2,R4 RE-ESTABLISH BUFFER ADDRESS @VA11232 01406000
- BZ TSTPUR NO ERRORS, UPDATE SFBLAST @VA11232 01406100
- L R6,SPPREPAG SFBPNT SHOULD POINT TO PREVIOUS @VA11232 01406200
- ST R6,SFBPNT GOOD BUFFER WRITE @VA11232 01406300
- B EMSG429B GO PURGE FILE @VA11232 01406400
- PRTPUR XC VSPSFBLK(4),VSPSFBLK CLEAR SFBLOK POINTER 01408000
- CLI VDEVTYPE,TYP3210 IS THIS A SPOOLED CONSOLE @VA14162 01408100
- BE NOPURFLG YES,THEN FILE HAS BEEN CKPT @VA14162 01408200
- OI SFBFLAG2,SFBPURGE PURGING AN OPEN SPOOL FILE @VA11439 01408500
- NOPURFLG DS 0H @VA14162 01408600
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01409000
- CALL DMKSPLDL AND PURGE THE FILE 01410000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 01411000
- SR R7,R7 CLEAR SFBLOK GPR 01412000
- B PRTDONE AND EXIT NOW 01413000
- SPACE 01414000
- SETOPTS MVC SFBCLAS,VDEVCLAS MOVE IN FILE CLASS 01415000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01416000
- CALL DMKSPLCV CALL VIRTUAL OUTPUT FILE CLOSE 01417000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 01418000
- * ROUTINE 01419000
- SPACE 2 01420000
- PRTDONE EQU * HERE WHEN FINISHED CLOSING THE FILE 01421000
- L R9,VDEVSPL RESTORE ADDRESS OF WORKAREA 01422000
- L R1,VSPVPAGE GET VIRTUAL BUFFER ADDRESS 01423000
- SR R0,R0 DUMMY DASD ADDRESS 01424000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01425000
- CALL DMKRPAGT,PARM=SYSTEM TO RELEASE CORE PAGE, AND 01426000
- CALL DMKPGTVR TO RELEASE VIRTUAL BUFFER ADDRESS 01427000
- L R1,VSPVPG2 SECOND VIRTUAL BUFFER ADDRESS @VA11232 01427200
- LTR R1,R1 IS THERE ONE ? @VA11232 01427400
- BZ NOBUFF2 NO, NOTHING TO RELEASE @VA11232 01427600
- CALL DMKRPAGT,PARM=SYSTEM RELEASE CORE PAGE @VA11232 01427800
- CALL DMKPGTVR AND RELEASE VIRTUAL BUFFER @VA11232 01428000
- NOBUFF2 AL R8,VMDVSTRT RE-ESTABLISH VDEVBLOK ADDRESS @VA11232 01428200
- L R1,VSPBUFBK GET ADDRESS OF WORK BUFFER 01429000
- LTR R1,R1 BLOK TO BE FRETED ?? 01430000
- BZ FRETSPL NO - FRET VSPLCTL BLOK 01431000
- LA R0,VSPBUFSZ SIZE OF BLOK 01432000
- CALL DMKFRET FRET IT 01433000
- SPACE 01434000
- FRETSPL LR R1,R9 GET ADDRESS OF VSPLCTL WORKAREA 01435000
- LA R0,VSPSIZE AND ITS SIZE 01436000
- CALL DMKFRET AND FREE IT 01437000
- SR R9,R9 01438000
- ST R9,VDEVSPL CLEAR ADDRESS OF VSPLCTL 01439000
- NI VDEVSFLG,X'FF'-(VDEVPURG+VDEVCFCL) RESET PURGE AND 01440000
- * CONSOLE FUNCTION FLAG 01441000
- BR R6 AND LEAVE 01442000
- SPACE 3 01443000
- DELAYCL EQU * HERE TO SET UP FOR POSSIBLE DELAYED CLOSE 01444000
- OI VDEVSFLG,VDEVCFCL FLAG CONSOLE CLOSE PENDING 01445000
- USING SAVEAREA,R13 01446000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ? @VM01028 01447000
- BO STKCPBLK YES - SET DELAY @VM01028 01448000
- CLC SAVER1,=C'CLOS' PROCESSING CLOSE COMMAND ? 01449000
- DROP R13 01450000
- BE VSPCFXIT YES - RETURN TO CALLER 01451000
- OI VDEVKEY,X'0F' FORCE CHANNEL PROGRAM CHECK 01452000
- USING CPEXBLOK,R1 01453000
- STKCPBLK LA R0,CPEXSIZE SIZE OF CPEXBLOK @VM01021 01454000
- CALL DMKFREE GET STORAGE 01455000
- XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEAR IT 01456000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 01457000
- LR R15,R6 SET UP ENTRY ADDRESS 01458000
- STM R15,R14,CPEXADD SET ENTRY POINT AND SAVE REGS 01459000
- LA R2,VSPSTK GET LOCAL STACK CP BLOKS 01460000
- LR R3,R2 SAVE PREVIOUS ADDRESS @VA01460 01461000
- ICM R2,B'1111',0(R2) GET ADDRESS OF NEXT CPEXBLOK @VA01460 01462000
- BNZ *-6 BRANCH IF NOT LAST @VA01460 01463000
- ST R1,0(,R3) CHAIN THIS ONE TO END @VA01460 01464000
- GOTO DMKDSPCH RETURN CONTROL BACK TO SYSTEM 01465000
- DROP R1 01466000
- SPACE 3 01467000
- SPACE 01468000
- SPACE 3 01469000
- EJECT 01470000
- *. 01471000
- * 01472000
- * HANDLING CONTROL PROGRAM REQUESTS TO USE THE VIRTUAL PRINTER - 01473000
- * 01474000
- * 1. UPON ENTRY TO DMKVSPRT, THE FOLLOWING REGISTERS MUST BE 01475000
- * LOADED - 01476000
- * GPR0 = BYTE COUNT OF LINE TO PRINTED 01477000
- * GPR1 = ADDRESS OF FIRST BYTE OF OUTPUT LINE 01478000
- * GPR11 = ADDRESS OF VMBLOK FOR OWNER OF VIRTUAL PRINTER 01479000
- * GPR12 = ADDRESS OF DMKVSPRT 01480000
- * GPR13 = ADDRESS OF SAVEAREA 01481000
- * 01482000
- * 2. VERIFY THAT THE LINE BYTE COUNT IS 0 TO 132, IF NOT SET 01483000
- * RETURN CODE 4 AND EXIT TO THE CALLER. 01484000
- * 01485000
- * 3. LOCATE AN AVAILABLE VIRTUAL PRINTER; IF NONE, SET RETURN 01486000
- * CODE 4 AND EXIT TO THE CALLER 01487000
- * 01488000
- * 4. IF THE DEVICE IS CP BUSY(VDEVSVC=1) OR BUSY(SIO-VDEVBUSY=1) 01489000
- * BRANCH TO STKCPBLK ROUTINE TO BUILD AND STACK A 01490000
- * CPEXBLOK ON VSPSTK ANCHOR CHAIN, AND GO TO DISPATCHER. 01491000
- * 01492000
- * 5. IF THE DEVICE IS NOT CP BUSY OR BUSY OR ENTRY FROM A 01493000
- * PREVIOUS STACK CPEXBLOK; OPEN A FILE FOR THIS DEVICE IF 01494000
- * NECESSARY AND PLACE THE LINE INTO THE FILE. IF LINE COUNT 01495000
- * WAS ZERO, INSERT A SKIP TO CHANNEL ONE CCW. 01496000
- * 01497000
- * 6. BAL TO THE UNSTKBLK ROUTINE TO UNSTACK THE NEXT 01498000
- * CPEXBLOK FOR THIS DEVICE, IF ANY. 01499000
- * 01500000
- * 7. SET THE CORRECT RETURN CODE IN GPR2 AND EXIT TO THE CALLER 01501000
- * 01502000
- * 01503000
- * EXIT CONDITIONS 01504000
- * 01505000
- * GPR2 = ZERO SUCCESSFULL COMPLETION 01506000
- * GPR2 = 4 VIRTUAL PRINTER DEVICE NOT FOUND OR 01507000
- * DEDICATED TO REAL DEVICE OR NOT-READY. 01508000
- * GPR2 = 8 SPOOLING SPACE FULL OR SPOOL IO ERROR 01509000
- * 01510000
- * HANDLING CONTROL PROGRAM REQUESTS FOR HARD COPY OF CONSOLE 01511000
- * REAL OR VIRTUAL - 01512000
- * 01513000
- * 1. UPON ENTRY TO DMKVSPVP, THE FOLLOWING REGISTERS MUST BE 01514000
- * LOADED - 01515000
- * GPR0 = BYTE COUNT OF DATA TO BE SPOOLED 01516000
- * GPR1 = ADDRESS OF FIRST BYTE OF OUTPUT LINE 01517000
- * GPR8 = ADDRESS OF CONSOLE VDEVBLOK 01518000
- * GPR11 = ADDRESS OF VMBLOK FOR OWNER OF VIRUAL CONSOLE 01519000
- * GPR12 = ADDRESS OF DMKVSPVP 01520000
- * GPR13 = ADDRESS OF SAVEAREA 01521000
- * 01522000
- * 2. VERIFY THAT THE LINE BYTE COUNT IS 1 TO 132, IF NOT, 01523000
- * EXIT TO THE CALLER. 01524000
- * 01525000
- * 3. IF THE VIRTUAL CONSOLE IS CP BUSY(VDEVSVC=1), DO THE 01526000
- * FOLLOWING TO PREVENT USER LOCK OUT: (NOT BUSY GO TO STEP 6) 01527000
- * (A) GET FREE STORAGE TO HOLD THE PRINT LINE DATA. 01528000
- * (B) GET STORAGE FOR CPEXBLOK AND STACK BY CALLING 01529000
- * DMKSTKCP FOR ENTRY POINT VSPCON. 01530000
- * (C) EXIT TO CALLER TO PREVENT USER LOCKOUT. 01531000
- * 4. ENTRY POINT - VSPCON - 01532000
- * (A) CALL DMKVSPCP TO WRITE DATA LINE TO SPOOL FILE 01533000
- * (B) ON RETURN FROM DMKVSPCP, RETURN BUFFER STORAGE. 01534000
- * (C) GO TO DISPATCHER (DMKDSPCH) 01535000
- * 01536000
- * 5. ENTRY POINT - DMKVSPCP - IF THE CONSOLE DEVICE IS CP BUSY, 01537000
- * BRANCH TO STKCPBLK ROUTINE TO BUILD AND STACK A CPEXBLOK 01538000
- * ON VSPSTK ANCHOR CHAIN AND GO TO DISPATCHER. 01539000
- * WHEN THE CPEXBLOK IS UNSTACKED BY CP RETURN IS TO 01540000
- * STEP 6. 01541000
- * 01542000
- * 6. OPEN A FILE FOR THIS DEVICE IF NECESSARY AND PLACE THE 01543000
- * LINE INTO THE FILE. INSERT A SKIP TO CHANNEL ONE, 01544000
- * EVERY 60 LINES OF DATA. 01545000
- * 01546000
- * 7. BAL TO UNSTKBLK ROUTINE TO UNSTACK THE NEXT CPEXBLOK 01547000
- * IF ANY, FOR THIS DEVICE AND EXIT TO CALLER.. 01548000
- * 01549000
- * EXIT CONDITIONS - 01550000
- * 01551000
- * VDEVBLOK - VDEVCSPL WILL BE RESET IF SPOOL 01552000
- * SPACE FULL OR SPOOL BUFFER ERROR 01553000
- * CONDITION. THE USER WILL RECEIVE ERROR 01554000
- * MESSAGE DMKVSP427I OR DMKVSP429I. 01555000
- * 01556000
- * NO RETURN CODE IS RETURN TO THE CALLER 01557000
- * 01558000
- *. 01559000
- SPACE 2 01560000
- USING SAVEAREA,R13 01561000
- DMKVSPRT RELOC 01562000
- LR R10,R12 SET UP SECOND BASE REGISTER 01563000
- A R10,F4096 .. 01564000
- SR R2,R2 CLEAR RETURN CODE REG 01565000
- ST R2,SAVEWRK2 .. 01566000
- SR R1,R1 ZERO CHANNEL INDEX 01567000
- LA R4,2 INCREMENT VALUE 01568000
- LA R5,30 TABLE LENGTH 01569000
- VCH LH R6,VMCHTBL(R1) LOAD INDEX TO NEXT VIRT CHANNEL 01570000
- LTR R6,R6 CHANNEL EXIST ?? 01571000
- BM VCHI NO, TRY NEXT 01572000
- A R6,VMCHSTRT POINT TO VCHBLOK 01573000
- USING VCHBLOK,R6 01574000
- SR R2,R2 ZERO CU TABLE INDEX 01575000
- VCU LH R7,VCHCUTBL(R2) LOAD INDEX TO NEXT VIRT CONTROL UNIT 01576000
- LTR R7,R7 DOES IT EXIST ?? 01577000
- BM VCUI NO, TRY NEXT 01578000
- A R7,VMCUSTRT POINT TO VCUBLOK 01579000
- USING VCUBLOK,R7 01580000
- SR R3,R3 CLEAR DEVICE INDEX 01581000
- VDV LH R8,VCUDVTBL(R3) LOAD INDEX TO DEVICE BLOK 01582000
- LTR R8,R8 DOES IT EXIST ?? 01583000
- BM NEXTDEV NO TRY NEXT 01584000
- A R8,VMDVSTRT POINT TO VDEVBLOK 01585000
- CLI VDEVTYPC,CLASURO OUTPUT DEVICE ?? 01586000
- BNE NEXTDEV NO - 01587000
- TM VDEVSTAT,VDEVDED DEDICATED TO REAL DEVBLOK ? 01588000
- BO NEXTDEV YES - 01589000
- TM VDEVTYPE,TYPPRT PRINTER DEVICE ?? 01590000
- BO PRTFND YES -- GO 01591000
- NEXTDEV BXLE R3,R4,VDV INCREMENT THRU DEVICES 01592000
- VCUI BXLE R2,R4,VCU INCREMENT THRU CONTROL UNIT 01593000
- VCHI BXLE R1,R4,VCH INCREMENT THRU CHANNEL 01594000
- L R8,FFS INDICATE NO VDEVBLOK 01595000
- SPACE 01596000
- USING SFBLOK,R7 01597000
- VSPRT4 MVI SAVEWRK2+3,4 SET RETURN CODE 01598000
- B VSPRINTX USER HAS NO PRINTER 01599000
- SPACE 01600000
- DMKVSPVP RELOC ENTRY FOR CONSOLE SUPPORT HARD COPY 01601000
- LR R10,R12 SET UP SECOND BASE REGISTER 01602000
- A R10,F4096 .. 01603000
- SR R2,R2 CLEAR RETURN CODE 01604000
- ST R2,SAVEWRK2 .. 01605000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 01606000
- CL R0,F1 LENGTH 1 OR GREATER ? 01607000
- BL VSPRT4 NO -- EXIT 01608000
- TM VDEVSTAT,VDEVNRDY+VDEVDED DEDICATED OR NOT READY ?? 01609000
- BNZ VSPRT4 YES --RESET SPOOL ACTIVE AND EXIT 01610000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ? @VM01021 01611000
- BZ PRTNBUSY NO - CONTINUE @VM01021 01612000
- LR R2,R1 SAVE DATA ADDRESS @VM01021 01613000
- LR R4,R0 SAVE DATA COUNT @VM01021 01614000
- TM VDEVFLAG,VDEVDLY WAIT AND SPOOL IT LATER? @VA04213 01614250
- BNO NODELAY NO...DO IT NOW @VA04213 01614500
- NI VDEVFLAG,255-VDEVDLY RESET DELAY FLAG @VA04213 01614750
- LA R0,7(,R4) GET NUMBER OF DOUBLE WORDS @VM01021 01615000
- SRL R0,3 .. @VM01021 01616000
- LR R5,R0 SAVE FOR BUFFER FRET @VM01021 01617000
- CALL DMKFREE GET STORAGE FOR BUFFER @VM01021 01618000
- LR R3,R1 SAVE ADDRESS OF BUFFER @VM01021 01619000
- BCTR R4,0 DATA BYTE COUNT -1 @VM01021 01620000
- EX R4,MOVEPRT MOVE DATA TO NEW TEMP BUFFER @VM01021 01621000
- LA R0,CPEXSIZE BUILD CPEXBLOK @VM01021 01622000
- CALL DMKFREE .. @VM01021 01623000
- USING CPEXBLOK,R1 @VM01021 01624000
- XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEAR IT @VM01021 01625000
- LA R0,1(,R4) BYTE COUNT OF DATA @VM01021 01626000
- L R8,SAVER8 RESTORE VDEVBLOK DISPLACEMENT @VM01021 01627000
- LA R15,VSPCON CPEX ENTRY ADDRESS @VM01021 01628000
- STM R15,R14,CPEXADD SET ENTRY POINT AND SAVE REGS @VM01021 01629000
- ST R3,CPEXR1 SET BUFFER ADDRESS IN REG 1 @VM01021 01630000
- CALL DMKSTKCP HAVE CP STACK IT @VM01021 01631000
- EXIT - EXIT TO CALLER @VM01021 01632000
- NODELAY LA R6,VSPCON1 RETURN ADDRESS @VA04213 01632350
- B STKCPBLK STACK IT @VA04213 01632700
- SPACE 01633000
- VSPCON EQU * ENTER HERE FROM CPEX BLOK @VM01021 01634000
- CALL DMKVSPCP WRITE CONSOLE HARDCOPY OF @VM01021 01635000
- * DATA PASSED BY CPEX BLOK 01636000
- LR R0,R5 SIZE OF TEMP BUFFER @VM01021 01637000
- LR R1,R3 ADDRESS OF TEMP BUFFER @VM01021 01638000
- CALL DMKFRET RETURN TEMP BUFFER STORAGE @VM01021 01639000
- GOTO DMKDSPCH GO TO DISPATCHER @VM01021 01640000
- SPACE 01641000
- DMKVSPCP RELOC - ENTRY FOR STACKED HARD COPY DATA @VM01021 01642000
- AL R8,VMDVSTRT FULL VDEVBLOK ADDRESS @VM01021 01643000
- B CONFND TRY AND PRINT A LINE @VM01021 01644000
- SPACE 01645000
- DROP R1 @VM01021 01646000
- VSPCON1 LR R0,R4 GET THE COUNT @VA04213 01646140
- LR R1,R2 AND THE DATA ADDRESS @VA04213 01646280
- AL R8,VMDVSTRT AND THE VDEVBLOK ADDRESS @VA04213 01646420
- B PRTNBUSY PICK UP THIS TASK @VA04213 01646560
- SPACE 2 01646700
- PRTFND TM VDEVSTAT,VDEVNRDY DEVICE NOT READY ? 01647000
- BO NEXTDEV BRANCH NOT READY 01648000
- TM VDEVSTAT,VDEVBUSY DEVICE BUSY WITH SIO ? @VM01021 01649000
- BO PRTDLY YES - SET UP DELAY @VM01021 01650000
- CONFND TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ?? @VM01021 01651000
- BZ PRTNBUSY NO - START PROCESSING @VM01021 01652000
- PRTDLY LA R6,PRTCPEX CPEX ENTRY ADDRESS @VM01021 01653000
- B STKCPBLK GO STACK CPEX BLOK @VM01021 01654000
- PRTCPEX AL R8,VMDVSTRT GET VDEVBLOK ADDRESS @VM01021 01655000
- PRTNBUSY L R9,VDEVSPL ADDRESS OF SPOOL CONTROL BLOK @VM01021 01656000
- OI VDEVSFLG,VDEVSVC INDICATE CALL BY SVC 01657000
- LTR R9,R9 IS ANY FILE OPEN? 01658000
- BNZ FILEOPEN 01659000
- CALL DMKSCNVD GET FULL DEVICE ADDRESS 01660000
- BNZ VSPRT4 VCUBLOK OR VCHBLOK MISSING 01661000
- STH R1,VDEVUNIT SAVE FULL DEVICE ADDRESS 01662000
- BAL R6,OPEN OPEN FILE - SFBLOK VSPLCTL 01663000
- ST R7,VSPSFBLK STORE ADDRESS OF SFBLOK 01664000
- CLC SFBSTART(4),ZEROES DASD SPACE AVAILABLE ?? 01665000
- BNE OPENCKPT YES - CHECKPOINT IT .. @VM02132 01666000
- LA R6,VSPRINTX RETURN ADDRESS FOR EXIT 01667000
- ST R6,SAVEWRK6 SAVE IT 01668000
- BAL R6,PRTPUR PURGE FILE - CLEAR DEVICE 01669000
- B MSG427I GIVE ERROR MSG DMKVSP427I 01670000
- * CONTROL WILL RETURN TO VSPRINTX 01671000
- OPENCKPT CLI VDEVTYPE,TYP1052 @VA05480 01672100
- BNE FILEOPEN @VA05480 01672200
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA07487 01672250
- CALL DMKCKSPL,PARM=OPNSFB+ADDSFB+PRTCHN @VA05480 01672300
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA07487 01672400
- FILEOPEN L R7,VSPSFBLK GET ADDRESS OF SPOOL FILE BLOK 01673000
- L R5,VSPBUFBK ADDRESS OF WORK BUFFER 01674000
- LTR R5,R5 VALID WORK ADDRESS 01675000
- BP SETCCW YES 01676000
- LA R0,VSPBUFSZ NUMBER OF DOUBLE WORDS FOR PRINTER 01677000
- SPACE 01678000
- CALL DMKFREE GET STORAGE FOR WORK BUFFER 01679000
- ST R1,VSPBUFBK SAVE ADDRESS OF WORK BUFFER 01680000
- LR R5,R1 ADDRESS OF WORK BUFFER 01681000
- SETCCW MVC 1(11,R5),MODELCCW+1 GET MODEL CCW AND TIC 01682000
- MVI 0(R5),X'09' SET UP FOR PRINT AND SPACE 01683000
- CLI VDEVTYPE,TYP3210 CONSOLE DEVICE ?? 01684000
- BNE SPACE01 NO -- CHECK FOR SPACE NO PRINT 01685000
- ICM R3,B'1111',SFBRECNO RECORD COUNT OF ZERO @VA01330 01686000
- BZ CONSKIP YES -- DO SKIP 01687000
- SR R2,R2 SET UP FOR DIVIDE 01688000
- D R2,=F'60' 60 LINES PER PAGE 01689000
- LTR R2,R2 TIME FOR SKIP 01690000
- BNZ TESTCNT NO --CONTINUE 01691000
- CONSKIP MVI 0(R5),X'8B' INSERT SKIP TO CHANNEL ONE @VW01580 01692000
- OI 4(R5),SKIP SET CCW TO INDICATE NO DATA @V293598 01693000
- LA R3,8 LENGTH OF SKIP CCW @VW01580 01694000
- LA R6,CONSRET SET UP RETURN ADDRESS @VW01580 01695000
- ST R6,SAVEWRK6 .. @VW01580 01696000
- CALL DMKVSQPD GET BUFFER SPACE AND MOVE DATA @V60BCAA 01697000
- B ERROMSG IF RETURN TO THIS POINT, GO WRITE@V60BCAA 01697100
- * ERROR MESSAGE. 01697200
- * IF NO ERROR OCCURRED, WILL FALL THROUGH 01697300
- CONSRET L R5,VSPBUFBK RESTORE ADDRESS OF BUFFER @VW01580 01698000
- NI 4(R5),X'FF'-SKIP AND RESET THE CCW @V293598 01699000
- MVI 0(R5),X'09' PRINT AND SPACE CCW OP-CODE @VW01580 01700000
- B TESTCNT NOW PROCESS INPUT LINE 01701000
- SPACE 01702000
- SPACE01 CLI VSPCCW,X'01' LAST CCW WRITE NOSPACE 01703000
- MVI VSPCCW,X'09' SET UP FOR PRINT AND SPACE 01704000
- BNE TESTCNT NO -- 01705000
- MVI VSPCCW,X'0B' SET UP TO SPACE IMMEDIATE 01706000
- MVI 0(R5),X'0B' .. 01707000
- OI 4(R5),SKIP INDICATE NO DATA @V293598 01708000
- LA R3,8 LENGTH OF CCW 01709000
- LA R6,SPACERET RETURN ADDRESS 01710000
- ST R6,SAVEWRK6 .. 01711000
- CALL DMKVSQPD GO OBTAIN BUFFER SPACE @V60BCAA 01712000
- B ERROMSG IF RETURN TO THIS POINT, GO WRITE@V60BCAA 01712100
- * ERROR MESSAGE. 01712200
- * IF NO ERROR OCCURRED, WILL FALL THROUGH 01712300
- NI 4(R5),X'FF'-SKIP AND RESET THE CCW @V293598 01713000
- SPACERET MVI VSPCCW,X'01' PRINT AND NOSPACE 01714000
- MVI 0(R5),X'01' .. 01715000
- TESTCNT L R4,SAVER0 RESTORE BYTE COUNT 01716000
- LTR R4,R4 COUNT ZERO ?? 01717000
- BNZ NOSKIP NO - NO SKIP 01718000
- MVI 0(R5),X'8B' MOVE IN SKIP TO ONE 01719000
- OI 4(R5),SKIP INDICATE NO DATA @V293598 01720000
- LA R3,8 SET LENGTH TO 8 01721000
- B SKLINE 01722000
- NOSKIP CL R4,=F'132' WILL IT FIT ON ONE LINE? @VA05182 01723500
- BNH LOWLIMIT YES @VM03186 01724000
- LA R4,132 SET MAXIMUM LINE LENGTH @VA05182 01725500
- LOWLIMIT L R1,SAVER1 RESTORE ADDRESS OF INPUT DATA @VM03186 01726000
- * LINE 01727000
- LA R15,12(R5) POINT TO START OF DATA IN BUFFER 01728000
- LR R6,R15 SAVE FOR DATA MOVE INSTRUCTION 01729000
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER?? @V386298 01730000
- BNO SETCNT NO--1403 @V386298 01731000
- USING VFCBBLOK,R14 01732000
- L R14,VDEVFCBK ADDRESS OF FORMS BLOK 01733000
- SR R3,R3 SET UP TO TEST FOR INDEXING 01734000
- NI VFCBNDEX,X'1F' RESET ALL EXCEPT COUNT 01735000
- ICM R3,B'0001',VFCBNDEX GET INDEX BYTE COUNT 01736000
- BZ SETCNT NO INDEXING AVAILABLE 01737000
- MVI 12(R5),X'40' CLEAR FIRST 31 BYTES 01738000
- MVC 13(31,R5),12(R5) OF DATA AREA 01739000
- BCTR R3,0 INDEX COUNT -1 01740000
- AR R4,R3 ADD INDEX COUNT TO INPUT LINE CNT 01741000
- C R4,=F'150' GREATER THAN MAX LINE ?? 01742000
- BNH *+8 NO -- 01743000
- LA R4,150 RESET TO MAX OF 150 01744000
- SR R4,R3 GET NEW INPUT DATA COUNT 01745000
- AR R6,R3 SET UP NEW BUFFER DATA ADDRESS 01746000
- SETCNT LR R3,R4 SAVE COUNT OF DATA 01747000
- BCTR R4,0 -1 FOR MOVE 01748000
- EX R4,VSPMOVE MOVE DATA TO BUFFER 01749000
- AR R3,R15 POINT TO END OF DATA 01750000
- TRUNC BCTR R3,R0 -1 TO TRUNCATE BLANKS 01751000
- CR R3,R15 START OF BUFFER ?? 01752000
- BNH NONBLANK YES - 01753000
- CLI 0(R3),C' ' IS THIS COL BLANK ?? 01754000
- BE TRUNC YES - CHECK NEXT 01755000
- SPACE 01756000
- NONBLANK SR R3,R15 FIND LENGTH 01757000
- LA R3,1(R3) ADD ONE TO LENGTH 01758000
- STH R3,6(R5) STORE LENGTH IN CCW 01759000
- LA R3,19(R3) CCW LENGTH PLUS 7 FOR ROUNDING 01760000
- N R3,=A(X'FFFFF8') ROUND TO DOUBLE WORD 01761000
- STH R3,10(R5) SET TIC ADDRESS OF NEXT CCW 01762000
- * R3 LENGTH OF WORK BUFFER 01763000
- SKLINE LA R6,VSPRINTX GET RETURN ADDRESS 01764000
- ST R6,SAVEWRK6 AND SAVE 01765000
- CALL DMKVSQPD GO OBTAIN BUFFER SPACE @V60BCAA 01766000
- B ERROMSG IF RETURN TO THIS POINT, GO WRITE@V60BCAA 01766100
- * ERROR MESSAGE. 01766200
- * IF NO ERROR OCCURRED, WILL FALL THROUGH 01766300
- VSPRINTX EQU * EXIT TO CALLER 01767000
- LTR R8,R8 VALID VDEVBLOK ADDRESS 01768000
- BNP RETCODE NO -- SET RETURN CODE AND EXIT @VA00808 01769000
- NI VDEVSFLG,X'FF'-VDEVSVC RESET ENTRY INDICATOR 01770000
- BAL R6,UNSTKBLK GO UNSTACK CPEX BLOCK @VM01021 01771000
- CLI VDEVTYPE,TYP3210 CONSOLE DEVICE? @VA11114 01771200
- BNE RETCODE IF NOT, GO SET RETURN CODE @VA11114 01771400
- TM VDEVSFLG,VDEVSVC WAS A CPEXBLOK UNSTACKED? @VA11114 01771600
- BO PRTEXIT IF SO, BEAT IT QUIETLY @VA11114 01771800
- TM VMRSTAT,VMCPWAIT WAITIING FOR CP RESOURCE? @VA11114 01772000
- BNZ PRTEXIT IF SO, OUT QUIETLY @VA11114 01772200
- TM VMPEND,255 ANY PENDING INTERRUPTS AT ALL? @VA11114 01772400
- BZ PRTEXIT NOPE, ALL IS WELL @VA11114 01772600
- * AT THIS POINT, CONSOLE SPOOLING MAY HAVE BLOCKED A USER, 01772800
- * SO GIVE HIM A SHOT AT DISPATCH: 01773000
- LA R0,CPEXSIZE @VA11114 01773200
- CALL DMKFREE NEED A CPEXBLOK NOW @VA11114 01773400
- USING CPEXBLOK,R1 TELL SAM @VA11114 01773600
- XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEARED, PLEASE @VA11114 01773800
- LA R15,VSPCDISP WHERE TO COME BACK @VA11114 01774000
- STM R15,R14,CPEXADD STOW THE REGISTERS @VA11114 01774200
- CALL DMKSTKCP AND STACK RETURN @VA11114 01774400
- B PRTEXIT NO RETURN CODE FOR CONSOLE @VA11114 01774600
- DROP R1 NO MORE CPEXBLOK @VA11114 01774800
- * 01775000
- RETCODE DS 0H HERE TO SET RETURN CODE @VA11114 01775200
- L R2,SAVEWRK2 GET RETURN CODE @VA11114 01775400
- ST R2,SAVER2 AND STORE IN CALLER'S REG2 @VA11114 01775600
- PRTEXIT DS 0H RETURN TO CALLER @VA11114 01775800
- EXIT , -------------------------------->@VA11114 01776000
- * 01776200
- VSPCDISP DS 0H HERE ON CPEXBLOK UNSTACK @VA11114 01776400
- GOTO DMKDSPCH WAKE UP, YOU ------------------->@VA11114 01776600
- * 01776800
- SPACE 01777000
- SPACE 2 01778000
- VSPMOVE MVC 0(*-*,R6),0(R1) MOVE DATA TO BUFFER 01779000
- SPACE 01780000
- DROP R14 01781000
- SPACE 01782000
- DROP R13 01783000
- EJECT 01784000
- LTORG * 01785000
- EJECT 01786000
- SPACE 3 01980000
- EJECT 01981000
- SPACE 2 01983000
- MODELCCW EQU * MODEL CCW AND TIC 01984000
- DC X'41' PUNCH OP-CODE 01985000
- DC AL3(12) RELATIVE DATA ADDRESS 01986000
- DC AL1(CC+SILI,0) FLAGS 01987000
- DC AL2(80) DATA LENGTH 01988000
- DC X'08' TIC OP-CODE 01989000
- DC AL3(96) RELATIVE ADDRESS OF NEXT RECORD 01990000
- SPACE 01991000
- DS 0H 01992000
- EJECT 01993000
- SENSE EQU * HERE TO DO A SENSE TO READER 01994000
- * PRINTER, OR PUNCH 01995000
- SPACE 3 01996000
- L R1,VSPCCW GET DATA ADDRESS 01997000
- LA R1,0(,R1) CLEAR COMMAND CODE 01998000
- BAL R6,PCITEST GO TEST FOR PCI INTERRUPT 01999000
- OI VDEVCSW+4,CE+DE SENSE RETURNS CE+DE TOGETHER 02000000
- LA R3,VDEVSNSE ADDRESS OF VDEVICE SENSE BYTES 02001000
- SR R4,R4 GET CCW COUNT @VA00808 02002000
- ICM R4,B'0011',VSPCCW+6 .. @VA00808 02003000
- TM VDEVSTAT,VDEVNRDY DEVICE NOTREADY 02004000
- BO SETNR YES - 02005000
- SPACE 02006000
- SPACE 02007000
- LTR R7,R7 ACTIVE FILE ?? 02008000
- BNZ *+8 YES -- INDICATE PRESENT SENSE 02009000
- SETNR MVI VDEVSNSE,INTREQ INDICATE INTERVENTION REQUIRED 02010000
- LA R5,1 SENSE COUNT OF ONE 02011000
- CLI VDEVTYPE,TYP3505 3505 RDR ? 3525 PUN ? 02012000
- BNE CNT3211 NO--CHECK 3211/3203 @V386298 02013000
- LA R5,4 SENSE COUNT FOR 3505 AND 3525 02014000
- TM VDEVSNSE,INTREQ INTERVENTION REQUIRED ? 02015000
- BZ *+8 NO -- CHECK FOR COMMAND REJECT 02016000
- MVI VDEVSNSE+1,X'10' SENSE BYTE 1 FOR 3505 OR 3525 02017000
- TM VDEVSNSE,CMDREJ COMMAND REJECT ?? 02018000
- BZ SENTST NO -- SENSE INFORMATION OK 02019000
- MVI VDEVSNSE+1,X'80' INDICATE PERMANENT ERROR 02020000
- B SENTST CONTINUE 02021000
- CNT3211 EQU * 02021500
- TM VDEVTYPE,TYP3211 IS IT A 3203/3211 PRINTER?? @V386298 02022000
- BNO SENTST NO--1403 @V386298 02023000
- ICM R5,B'1111',VDEVFCBK ADDRESS OF FORM CONTROL BLOK@VA00716 02024000
- BZ *+8 NONE PRESENT - BRANCH @VA00716 02025000
- NI VFCBFLAG-VFCBBLOK(R5),X'FF'-VFCBDIAG @VA14403 02026010
- * RESET CMD 07 PROCESSING 02027010
- CLI VDEVTYPE,TYP3203 IS IT A 3203 PRINTER ?? @V386298 02027100
- BNE SENS3211 NO--LOAD 3211 SESE COUNT @V386298 02027200
- LA R5,24 LOAD 3203 SENSE BYTE COUNT @V386298 02027300
- B SENTST GO CHECK CCW SENSE COUNT @V386298 02027400
- SENS3211 EQU * @V386298 02027500
- LA R5,6 SENSE COUNT FOR 3211 02028000
- SPACE 02029000
- SENTST CR R4,R5 CCW SENSE COUNT VALID 02030000
- BH COUNTHI CCW COUNT HIGH 02031000
- BL CNTLOW CCW COUNT LOWER THAN DEVICE COUNT 02032000
- B SENSEQ SENSE COUNT EQUAL 02033000
- SPACE 02034000
- COUNTHI EQU * HERE IF COUNT IS TOO BIG 02035000
- SR R4,R5 RESIDUAL COUNT 02036000
- STH R4,VDEVCSW+6 STORE RESIDUAL COUNT 02037000
- LR R4,R5 GET DEVICE SENSE COUNT 02038000
- TM VSPCCW+4,CD+IDA DATA CHAINING OR IDA ?? 02039000
- BZ TSTWLR NO -- TEST SILI FLAG 02040000
- TM VSPCCW+4,IDA IDA ?? 02041000
- BZ SNSIL NO --SET INCORRECT LENGTH 02042000
- LH R14,VSPIDACT GET ORIGNAL CCW DATA COUNT 02043000
- SR R14,R5 GET TRUE RESIDUAL COUNT 02044000
- STH R14,VDEVCSW+6 AND STORE IN CSW 02045000
- OI VSPIDASW,X'C0' INDICATE IDA COMPLETE 02046000
- NI VSPCCW+4,X'FF'-IDA REMOVE IDA FROM CCW 02047000
- B SNSIL SET INCORRECT LENGTH 02048000
- SPACE 02049000
- CNTLOW TM VSPCCW+4,IDA IDA ?? 02050000
- BO IDALOW YES -- 02051000
- TM VSPCCW+4,CD DATA CHAINING ?? 02052000
- BO NORMSNS YES -- TAKE NORMAL PATH 02053000
- B TSTWLR NO -- CHECK SILI FLAG 02054000
- IDALOW CH R4,VSPIDACT MOVE COUNT EQUAL TOTAL COUNT ? 02055000
- BNE NORMSNS NO -- 02056000
- BAL R6,SENSMOVE MOVE SENSE INFORMATION 02057000
- SPACE 02058000
- IDAEND1 TM VSPCCW+4,SILI SUPPRESS INCORRECT LENGTH ?? 02059000
- BZ *+8 NO -- 02060000
- OI VDEVCSW+5,IL YES - SET INCORRECT LENGTH 02061000
- OI VSPIDASW,X'C0' INDICATE IDA COMPLETE 02062000
- NI VSPCCW+4,X'FF'-IDA REMOVE IDA FROM CCW 02063000
- B CKCC CHECK FOR CHAINING 02064000
- TSTWLR TM VSPCCW+4,SILI SUPPRESS INCORRECT LENGTH ?? 02065000
- BO NORMSNS YES -- 02066000
- SNSIL OI VDEVCSW+5,IL NO -- SET INCORRECT LENGTH 02067000
- NORMSNS SR R5,R4 SAVE REMAINING COUNT 02068000
- LTR R4,R4 MOVE COUNT ZERO ?? 02069000
- BZ *+8 YES -- 02070000
- BAL R6,SENSMOVE GO MOVE SENSE TO USER AREA 02071000
- TM VDEVCSW+5,IL INCORRECT LENGTH ?? 02072000
- BO LASTCCW YES -- END CHAIN 02073000
- TM VSPCCW+4,CD+CC+IDA ANY CHAINING OR IDA ?? 02074000
- BZ LASTCCW NO -- LEAVE 02075000
- NI VDEVFLAG,X'FF'-VDEVCCW1 RESET FIRST CCW INDICATOR 02076000
- BAL R6,GETCCW GET NEXT CCW 02077000
- B CHKDEVIC COMMAND CHAINING 02078000
- SR R4,R4 GET NEXT CCW COUNT @VA00808 02079000
- ICM R4,B'0011',VSPCCW+6 .. @VA00808 02080000
- L R1,VSPCCW GET DATA ADDRESS 02081000
- LA R1,0(R1) 02082000
- CR R4,R5 COUNT EQUAL REMAINING COUNT ?? 02083000
- BH COUNTHI NO - COUNT HIGH 02084000
- BL CNTLOW COUNT LOW 02085000
- SPACE 02086000
- * HERE DIRECTLY IF COUNT OK 02087000
- SENSEQ EQU * 02088000
- BAL R6,SENSMOVE GO MOVE SENSE BYTES TO USER'S AREA 02089000
- SR R5,R5 INDICATE ZERO DEVICE COUNT LEFT 02090000
- CKCC TM VSPCCW+4,CD+CC+IDA ANY CHAINING OR IDA ?? 02091000
- BZ LASTCCW NO -- 02092000
- NI VDEVFLAG,X'FF'-VDEVCCW1 RESET FIRST CCW INDICATOR 02093000
- SNSNXT BAL R6,GETCCW GO LOCATE AND VALIDATE NEXT CCW 02094000
- B CHKDEVIC BRANCH IF COMMAND CHAINING 02095000
- SR R4,R4 HERE IF DATA CHAINING @VA00808 02096000
- ICM R4,B'0011',VSPCCW+6 GET CCW COUNT @VA00808 02097000
- B SENTST AND CONTINUAL 02098000
- SPACE 02099000
- SENSMOVE TM VSPCCW+4,SKIP SKIP FLAG ON ?? 02100000
- BO CKCC YES - 02101000
- ALTER1 SL R8,VMDVSTRT VDEVBLOK DISP @VA05901 02102700
- TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 02103400
- * USER AREA 02104000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 02105000
- IC R0,VDEVKEY INSPECT VIRTUAL CAW KEY @V304735 02106000
- CALL DMKPSASC CHECK FOR PROTECTION VIOLATION @V304735 02107000
- BNZ PROTCHK REFLECT PROTECTION EXCEPTION @V304735 02108000
- CALL DMKPSACC CHECK IF PAGE WAS CHANGED. @V304735 02109000
- BZ NOTCHG1 IF NOT CONTINUE @V304735 02110000
- CALL DMKVMASH FLAG ALL CHANGED SHARED PAGES @VA07351 02110100
- B ALTER1 RE-ISSUE THE TRANS @V304735 02112000
- NOTCHG1 LA R14,VDEVFCBK ADDR. POINTER TO FCB BLOK @V304735 02113000
- CR R3,R14 MUST ZERO LAST 2 BYTES OF 02114000
- BL MOVEINST 6 COUNT SENSE 02115000
- BE SENBYTE4 CHECK DEVICE FOR SENSE BYTE 4 @VA11722 02115200
- SENRET EQU * @VA11722 02115400
- MVI 0(R2),X'00' ZERO SENSE BYTE 02116000
- B UPDATSEN CONTINUE WITH SENSE BYTES @VA11722 02117100
- SENBYTE4 EQU * @VA11722 02117150
- CLI VDEVTYPE,TYP3203 IS THIS A 3203 PRINTER ? @VA11722 02117200
- BNE SENRET NO,CONTINUE @VA11722 02117250
- MVI 0(R2),DEVID84 MOVE IN DEVICE IDENTIFIER @VA11722 02117300
- B UPDATSEN CONTINUE WITH SENSE BYTES @VA11722 02117350
- MOVEINST MVC 0(1,R2),0(R3) MOVE SENSE BYTE TO USER'S AREA 02118000
- UPDATSEN EQU * @VA11722 02118500
- LA R1,1(R1) UPDATE OUTPUT ADDRESS 02119000
- LA R3,1(R3) UPDATE SENSE ADDRESS 02120000
- BCT R4,SENSMOVE GO MOVE NEXT BYTE 02121000
- BR R6 02122000
- SPACE 02123000
- SPACE 2 02124000
- CHKDEVIC CLI VDEVTYPC,CLASURI INPUT DEVICE ?? 02125000
- BE READER CONTINUE WITH READER 02126000
- B PRINTER CONTINUE WITH PRINTER/PUNCH 02127000
- EJECT 02128000
- * CALLED FROM DMKVSI, FOR PROCESSING VIRTUAL TIO,AS A 02129000
- * SUBROUTINE TO TEST IF THE RDR IS EMPTY. 02130000
- SPACE 02131000
- USING SAVEAREA,R13 @VA03503 02132000
- DMKVSPTO RELOC ENTRY FOR TIO TO A SPOOL READER @VA03503 02133000
- LR R10,R12 SET UP SECOND BASE REGISTER @VA03503 02134000
- A R10,F4096 ... @VA03503 02135000
- BAL R6,CHEKRDR GO SEARCH THE RDR FILE CHAIN @VA13708 02136000
- LTR R7,R7 SET CC @VA03503 02142000
- EXITVIO EXIT @VA03503 02143000
- EJECT 02144000
- OPEN EQU * HERE TO OPEN 1ST FILE 02145000
- CLI VDEVTYPC,CLASURI IS IT A READER FILE ?? 02146000
- BE OPENRDR YES -- 02147000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 02148000
- CALL DMKSPLOV CALL VIRTUAL SPOOL FILE OPEN ROUTINE 02149000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 02150000
- LR R4,R1 SAVE CAW ADDRESS @V386298 02150100
- CLI VDEVTYPE,TYP3203 IS IT A 3203 PRINTER ?? @V386298 02150200
- BE CKFCBBK YES--GO GET VFCBBLOK ADDRESS@V386298 02150300
- CLI VDEVTYPE,TYP3211 3211 PRINTER ?? 02151000
- BNE OPENRET NO 02153000
- ICM R5,B'1111',WRKADD INDEX WORK AREA PRESENT ?? 02154000
- BNZ CKFCBBK YES -- 02155000
- LA R0,184/8 LENGTH OF INDEX WORK AREA 02156000
- CALL DMKFREE GET STORAGE 02157000
- ST R1,WRKADD AND SAVE ADDRESS 02158000
- CKFCBBK L R5,VDEVFCBK GET VFCBBLOK ADDRESS 02159000
- DROP R6 02160000
- USING VFCBBLOK,R5 SET BASE FOR BLOK 02161000
- LTR R5,R5 VFCBBLOK PRESENT ?? 02162000
- BP OPENRET YES 02163000
- LA R0,VFCBSIZE SIZE OF BLOCK 02164000
- CALL DMKFREE GET STORAGE 02165000
- LR R5,R1 LOAD BASE REG 02166000
- ST R5,VDEVFCBK STORE ADDRESS IN VDEVBLOK 02167000
- XC VFCBBLOK(VFCBSIZE*8),VFCBBLOK CLEAR VFCBBLOK 02168000
- * 02169000
- * SET DEFAULT CHANNELS 02170000
- * 02171000
- MVI VFCBCNT+1,X'01' SET COUNT TO LINE 2 @VA00716 02172000
- MVC VFCBLOAD(11),=X'0102030405060708090A0B' 02173000
- MVI VFCBLOAD+59,X'0C' PUT IN CHANNEL 12 02174000
- OI VFCBLOAD+65,X'10' END OF FORMS BIT 02175000
- OPENRET LR R1,R4 RESTORE CAW ADDRESS 02176000
- BR R6 RETURN TO CALLER 02177000
- SPACE 2 02178000
- OPENRDR EQU * HERE TO OPEN A READER FILE 02179000
- LR R5,R1 SAVE CAW 02180000
- LA R0,VSPSIZE GET CORE FOR 02181000
- CALL DMKFREE A VSPLCTL WORK AREA 02182000
- LR R9,R1 SAVE ITS ADDRESS 02183000
- ST R9,VDEVSPL IN THE VDEVBLOK 02184000
- XC VSPLCTL(VSPSIZE*8),VSPLCTL CLEAR OUT THE BLOK 02185000
- ST R5,VSPCAW SAVE CAW ADDRESS 02186000
- LA R0,VSPBUFSZ LENGTH OF WORK BUFFER 02187000
- CALL DMKFREE GET STORAGE 02188000
- ST R1,VSPBUFBK 02189000
- SPACE 02190000
- OPENCONT EQU * 02191000
- L R1,VSPCAW RESTORE CAW ADDRESS @VA02259 02192000
- CHEKRDR DS 0H @VA13708 02192500
- SLR R7,R7 CLEAR READER FILE POINTER @VA02259 02193000
- TM VDEVSTAT,VDEVNRDY IS READER READY? @VA02259 02194000
- BO OPNTST NO, RETURN TO CALLER @VA02259 02195000
- L R7,ARSPRD POINT TO READER FILE CHAIN @VA02259 02196000
- SPACE 02197000
- FILESRCH L R7,SFBPNT POINTER TO NEXT FILE 02198000
- OPNTST LTR R7,R7 ANY MORE FILES? @VA02259 02199000
- BCR 8,R6 NO, RETURN COND ZERO TO CALLER @V200930 02200000
- CLC VMUSER,SFBUSER IS THIS A FILE FOR THIS USER? 02201000
- BNE FILESRCH NO -- KEEP LOOKING 02202000
- TM SFBFLAG,SFBINUSE+SFBDUMP+SFBUHOLD INUSE, DUMP @V200930 02203000
- * OR HOLD ? 02204000
- BNZ FILESRCH YES -- 02205000
- TM SFBFLAG2,SFBMON IS THIS A MONITOR FILE @V50A2B5 02205100
- BO FILESRCH YES, SO SKIP THIS @V50A2B5 02205200
- CLI VDEVCLAS,C'*' READ ANY CLASS ?? @V200930 02206000
- BE SETFLAG YES, FOUND A FILE @V200930 02207000
- CLC VDEVCLAS,SFBCLAS RIGHT CLASS?? 02208000
- BNE FILESRCH NO -- 02209000
- * 02210000
- * FINALLY FOUND A FILE 02211000
- * 02212000
- SETFLAG DS 0H @VA12125 02213500
- CLI VMINST,X'9D' TIO? @VA12125 02214000
- BER R6 YES - EXIT @VA12125 02214500
- OI SFBFLAG,SFBINUSE MARK SPOOL FILE IN USE @VA12125 02215000
- OPENTIO LR R3,R6 SAVE FIRST LEVEL RTN ADDR @VA03503 02216000
- L R1,VSPVPAGE GET VIRTUAL PAGE ADDRESS 02217000
- LTR R1,R1 ADDRESS PRESENT ?? 02218000
- BNZ VPAGE YES -- 02219000
- SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 02220000
- CALL DMKPGTVG GET VIRTUAL BUFFER 02221000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 02222000
- ST R1,VSPVPAGE SAVE ADDRESS 02223000
- VPAGE LA R2,SFBSTART POINT TO DASD ADDRESS 02224000
- BAL R6,NEXTPAGE FETCH FIRST PAGE BUFFER 02225000
- L R6,SFBRECNO GET NUMBER OF RECORDS IN FILE @VA02075 02226000
- AL R6,VMCRDS UPDATE CARD COUNT @VA02075 02227000
- ST R6,VMCRDS AND STORE @VA02075 02228000
- TM SFBFLAG,SFBEOF END OF FILE OR DATA ? @VW01580 02229000
- BZ *+8 BRANCH IF DATA PRESENT @VW01580 02230000
- OI SFBFLAG,SFBOPEN ZERO RECORD FILE 02231000
- L R1,VSPCAW RESTORE CONTENTS OF CALLER'S R1 02232000
- OI VDEVSFLG,VDEVFEED INDICATE FEED DONE FOR 1ST CARD 02233000
- CR R6,R12 SET CONDITION CODE NON-ZERO 02234000
- BR R3 FILE FOUND - GO PROCESS 02235000
- EJECT 02236000
- GETCCW EQU * HERE TO FIND AND VALIDATE THE NEXT 02237000
- * NON-TIC CCW IN THE CHANNEL PROGRAM 02238000
- L R1,VSPCAW POINT TO NEXT CCW TO PROCESS 02239000
- TM VSPIDASW,X'C0' PROCESSING IDA CCW ?? 02240000
- BM VSPIDA2 YES -- PART TWO PROCESSING 02241000
- ADDRTEST TM VSPCAW+3,7 CHECK DOUBLE-WORD ALIGNMENT 02242000
- BNZ PROGCHK ALIGNMENT ERROR 02243000
- TM VDEVKEY,X'0F' CAW BITS 4-7 ZERO ?? 02244000
- BNZ PROGCHK NO -- CHANNEL PROGRAM CHECK 02245000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 02246000
- ALTER2 TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 02247100
- CALL DMKPSACC CHECK IF SHARED PAGE CHANGED @V304735 02248000
- BZ NOTCHG2 IF NOT CONTINUE @V304735 02249000
- CALL DMKVMASH FLAG ALL CHANGED SHARED PAGES @VA07351 02249100
- B ALTER2 RE-ISSUE TRANS @V304735 02251000
- NOTCHG2 AL R8,VMDVSTRT VDEVBLOK ADDRESS @V304735 02252000
- LA R15,8(,R1) GET CCW ADDRESS+8 02253000
- ST R15,VDEVCSW AND SAVE IN CSW 02254000
- ST R15,VSPCAW AND IN CAW FOR NEXT TIME 02255000
- TM 0(R2),7 COULD IT BE A TIC? 02256000
- BNZ NOTTIC NO -- 02257000
- TM 0(R2),8 IS IT A TIC 02258000
- BO TIC YES -- 02259000
- SPACE 2 02260000
- NOTTIC LH R1,6(,R2) IS THE 02261000
- LTR R1,R1 COUNT ZERO? 02262000
- BZ PROGCHK YES -- BAD NEWS 02263000
- TM 4(R2),3 BITS 38-39 OF THE CCW MUST BE 0 02264000
- BNZ PROGCHK IF NOT -- 02265000
- TM 4(R2),IDA IS THIS A IDA CCW ?? @VA00808 02266000
- BZ NONIDA NO -- BRANCH @VA00808 02267000
- L R1,0(R2) GET DATA ADDRESS 02268000
- LA R1,0(R1) CLEAR HIGH BYTE 02269000
- TM 3(R2),3 IDAL ADDRESS ON FULL WORD BOUNDS ?? 02270000
- BNZ PROGCHK NO -- 02271000
- TM VSPCCW+4,CD IS USER DATA CHAINING ?? 02272000
- MVC VSPCCW+1(7),1(R2) MOVE IN MOST OF CCW 02273000
- BZ VSPIDA NO -- COMMAND CHAINING 02274000
- AL R6,F4 SET UP FOR CHAIN DATA RETURN 02275000
- B VSPIDA1 ... @V304635 02276000
- VSPIDA MVC VSPCCW(1),0(R2) MOVE IN COMMAND CODE 02277000
- VSPIDA1 L R1,VSPCCW ADDRESS OF IDAL @V304635 02278000
- LA R1,0(R1) CLEAR COMMAND CODE 02279000
- STCM R1,B'0111',VSPIDAL SAVE ADDRESS OF IDAL 02280000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 02281000
- ALTER3 TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 02282100
- CALL DMKPSACC CHECK IF SHARED PAGE CHANGED @V304735 02283000
- BZ NOTCHG3 IF NOT CONTINUE @V304735 02284000
- CALL DMKVMASH FLAG ALL CHANGED SHARED PAGES @VA07351 02284100
- B ALTER3 RE-ISSUE TRANS CALL @V304735 02286000
- NOTCHG3 AL R8,VMDVSTRT VDEVBLOK ADDRESS @V304735 02287000
- CLI 0(R2),0 FIRST BYTE ZERO ?? 02288000
- BNE PROGCHK NO -- 02289000
- SPACE 02290000
- L R14,0(R2) LOAD FIRST IDAW 02291000
- STCM R14,B'0111',VSPCCW+1 STORE FIRST IDAW IN CCW 02292000
- N R14,F2047 FIND DISPLACEMENT INTO 2048 02293000
- L R15,F2048 02294000
- SR R15,R14 NUMBER OF BYTES TO NEXT 2048 02295000
- SR R14,R14 .. 02296000
- ICM R14,B'0011',VSPCCW+6 GET CCW DATA COUNT 02297000
- STH R14,VSPIDACT SAVE DATA COUNT 02298000
- CR R14,R15 IS THERE AN OTHER IDAW ?? 02299000
- BNH ONEIDAW NO -- ONLY ONE 02300000
- SPACE 02301000
- STH R15,VSPCCW+6 STORE THE DATA COUNT FOR THE FIRST 02302000
- LA R1,4(R1) IDAW AND READ THE NEXT IDAW 02303000
- ST R1,VSPIDAW2 SAVE ADDRESS OF IDAW2 02304000
- MVI VSPIDASW,X'80' INDICATE 1ST CCW ALL SET UP 02305000
- BR R6 AND RETURN 02306000
- SPACE 02307000
- VSPIDA2 EQU * HERE TO SET UP CCW WITH IDAW2 02308000
- L R1,VSPIDAW2 GET ADDRESS OF IDAW2 02309000
- * 02310000
- * VALIDATE IDAW2 WORD 02311000
- * 02312000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 02313000
- ALTER4 TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 02314100
- CALL DMKPSACC CHECK IF SHARED PAGE WAS CHANGED @V304735 02315000
- BZ NOTCHG4 IF NOT CONTINUE @V304735 02316000
- CALL DMKVMASH FLAG ALL CHANGED SHARED PAGES @VA07351 02316100
- B ALTER4 RE-ISSUE THE TRANS CALL @V304735 02318000
- NOTCHG4 AL R8,VMDVSTRT VDEVBLOK ADDRESS @V304735 02319000
- CLI 0(R2),0 HIGH ORDER BYTE MUST BE ZERO 02320000
- BNE PROGCHK NO -- 02321000
- TM 3(R2),X'FF' CHECK FOR 2048 BOUNDARY ALINED 02322000
- BNZ PROGCHK NOT ON 2048 BOUNDS 02323000
- TM 2(R2),X'07' STILL CHECKING 2048 02324000
- BNZ PROGCHK NOT ON 2048 BOUNDS 02325000
- SPACE 02326000
- MVC VSPCCW+1(3),1(R2) STORE IDAW2 DATA ADDRESS IN CCW 02327000
- AL R6,F4 SET RETURN FOR DATA CHAINING 02328000
- SR R14,R14 CLEAR COUNT REGS @VA00808 02329000
- SR R15,R15 .. @VA00808 02330000
- ICM R14,B'0011',VSPIDACT GET ORIGINAL COUNT @VA00808 02331000
- ICM R15,B'0011',VSPCCW+6 GET DATA COUNT FOR 1ST IDAW@VA00808 02332000
- SR R14,R15 COUNT FOR REMAINING DATA 02333000
- STH R14,VSPCCW+6 AND STORE IN CCW 02334000
- SPACE 02335000
- ONEIDAW OI VSPIDASW,X'C0' INDICATE ALL DONE 02336000
- NI VSPCCW+4,X'FF'-IDA RESET IDA FLAG 02337000
- BR R6 02338000
- SPACE 02339000
- NONIDA EQU * 02340000
- TM VSPCCW+4,CD IS USER DATA CHAINING? 02341000
- MVC VSPCCW+1(7),1(R2) IN ANY CASE, MOVE IN MOST OF CCW 02342000
- BO 4(,R6) IF DATA CHAINING EXIT NOW 02343000
- MVC VSPCCW(1),0(R2) IF COMMAND CHAINING, MOVE IN COMMAND 02344000
- BR R6 AND EXIT TO HANDLE COMMAND CHAINING 02345000
- SPACE 2 02346000
- TIC EQU * HERE TO FOLLOW THE TIC 02347000
- TM VDEVFLAG,VDEVCCW1 IS IT THE FIRST CCW? 02348000
- BO PROGCHK YES -- GO SET PROGRAM CHECK 02349000
- TM VSPCCW+5,X'01' TIC TO TIC?? 02350000
- BO PROGCHK YES -- PROGRAM CHECK 02351000
- OI VSPCCW+5,X'01' INDICATE LAST CCW WAS A TIC 02352000
- L R1,0(,R2) GET ADDRESS OF NEXT CCW 02353000
- LA R1,0(,R1) STRIP OP-CODE 02354000
- ST R1,VSPCAW SAVE ADDRESS 02355000
- B ADDRTEST GO VALIDATE NEW CCW 02356000
- EJECT 02357000
- MOVEDATA EQU * HERE TO LOCATE USER'S DATA AREA 02358000
- * AND MOVE DATA BETWEEN USER AND WORK BUFFER. 02359000
- * R3 ADDRESS OF THE SOURCE DATA OR WORK BUFFER 02360000
- * R0 POINTS THE MOVE INSTRUCTION TO BE EXECUTED TO MOVE 02361000
- * THE DATA IN THE PROPER DIRECTION 02362000
- * GPR5 CONTAINS LOGICAL RECORD SIZE OR RESIDUAL COUNT FOR 02363000
- * DATA CHAINING 02364000
- * 02365000
- L R1,VSPCCW GET VIRTUAL DATA ADDRESS 02366000
- LA R1,0(,R1) CLEAR OUT COMMAND CODE 02367000
- SR R4,R4 CLEAR COUNT REG @VA00808 02368000
- ICM R4,B'0011',VSPCCW+6 GET COUNT FROM CCW @VA00808 02369000
- CR R4,R5 COUNT VALID FOR THIS DEVICE ?? 02370000
- BE COUNTOK YES COUNT OK 02371000
- BL COUNTLOW MORE CHECKING 02372000
- * 02373000
- * HERE IS COUNT IS TOO HIGH 02374000
- * 02375000
- SR R4,R5 GET RESIDUAL COUNT 02376000
- STH R4,VDEVCSW+6 PUT RESIDUAL COUNT IN CSW 02377000
- LR R4,R5 SET UP MOVE COUNT REG 02378000
- TM VSPCCW+4,CD+IDA CHAINING DATA OR IDA ?? 02379000
- BZ COUNTLOW NO --CHECK SILI 02380000
- NI VSPCCW+4,X'FF'-CD RESET CHAIN DATA 02381000
- TM VSPCCW+4,IDA DOING IDA ?? 02382000
- BZ SETWLR NO - MUST BE CHAIN DATA 02383000
- NI VSPCCW+4,X'FF'-IDA RESET IDA 02384000
- OI VSPIDASW,X'C0' INDICATE IDA COMPLETE 02385000
- LH R14,VSPIDACT GET TOTAL CCW COUNT 02386000
- SR R14,R4 SGET TRUE RESIDUAL COUNT 02387000
- STH R14,VDEVCSW+6 AND STORE IN CSW 02388000
- B SETWLR MUST SET INCORRECT LENGTH FLAG 02389000
- SPACE 02390000
- COUNTLOW EQU * @V60A6B6 02391000
- *********************************************************************** 02391010
- *** THE NEXT THREE LINES OF CODE WILL ENSURE THAT 3203 HAS THE SILI *** 02391020
- *** BIT TURNED ON IN ORDER TO SUPPRESS THE INCORRECT LENGTH FROM *** 02391030
- *** BEING REFLECTED. *** 02391040
- *********************************************************************** 02391050
- CLI VDEVTYPE,TYP3203 @V60A6B6 02391060
- BNO CNTCHECK @V60A6B6 02391070
- OI VSPCCW+4,SILI @V60A6B6 02391080
- CNTCHECK EQU * @V60A6B6 02391090
- TM VSPCCW+4,SILI+CD+IDA SUPRESS INCORRECT LENGTH OR@V60A6B6 02391100
- * CHAIN OR IDA 02392000
- BNZ COUNTOK YES - NO INCORRECT LENGTH 02393000
- * DATA 02394000
- CLI VDEVTYPE,TYP3211 3211 PRINTER ? @VA00716 02395000
- BNE SETWLR NO -- SET WLR FLAG (IL) @VA00716 02396000
- ICM R14,B'0011',VDEVCSW+6 RESIDUAL COUNT PRESENT ? @VA00716 02397000
- BNZ SETWLR YES -- TRUE WLR @VA00716 02398000
- LR R14,R5 CHECK FOR 132 BYTE 3211 DEVICE @VA00716 02399000
- SR R14,R4 150 MINUS CCW COUNT @VA00716 02400000
- C R14,=F'18' 132 BYTE -3211 ? @VA00716 02401000
- BE COUNTOK YES -- DO NOT SET IL FLAG @VA00716 02402000
- SPACE 02403000
- SETWLR CLI VSPCCW,X'63' FORMS CONTROL OP-CODE ? 02404000
- BE COUNTOK YES -- DO NOT SET INCORRECT LENGTH 02405000
- OI VDEVCSW+5,IL SET INCORRECT LENGTH 02406000
- SPACE 02407000
- COUNTOK EQU * HERE DIRECTLY IF COUNT IS OK 02408000
- SR R5,R4 GET RESIDUAL COUNT FOR THIS DEVICE 02409000
- CNTOK LTR R4,R4 MOVE COUNT OF ZERO ??? 02410000
- BZ RDRSKIP YES -- SKIP MOVE 02411000
- TM VSPCCW,1 IS IT A WRITE CCW ?? 02412000
- BO GETPAGE YES IGNORE POSSIBLE SKIP FLAG 02413000
- TM VSPCCW+4,SKIP READ WITH SKIP ?? 02414000
- BO RDRSKIP YES -- NO DATA MOVEMENT OR PROT 02415000
- * TEST. 02416000
- SPACE 02417000
- GETPAGE EQU * GET DATA PAGE 02418000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 02419000
- ALTER5 TRANS 2,1,OPT=(BRING,DEFER),ADEX=PROGCHK1,IOER=EXIT1 @VA05901 02420100
- CALL DMKPSACC CHECK IF SHARED PAGE WAS CHANGED @V304735 02421000
- BZ NOTCHG5 IF NOT CONTINUE @V304735 02422000
- CALL DMKVMASH FLAG ALL CHANGED SHARED PAGES @VA07351 02422100
- B ALTER5 RE-ISSUE THE TRANS CALL @V304735 02424000
- NOTCHG5 AL R8,VMDVSTRT VDEVBLOK ADDRESS @V304735 02425000
- TM VSPCCW,X'01' WILL CCW MODIFY STORAGE ? 02426000
- BO KEYOK NO -- NO PROTECTION TEST 02427000
- ST R0,TEMPR1 SAVE ADDRESS OF MOVE INSTRUCTION @V304735 02428000
- IC R0,VDEVKEY INSPECT VIRTUAL CAW KEY @V304735 02429000
- CALL DMKPSASC CHECK FOR PROTECTION VIOLATION @V304735 02430000
- L R0,TEMPR1 RESTORE REGISTER @V304735 02431000
- BE KEYOK NO VIOLATION 02432000
- B PROTCHK AND REFLECT INTERRUPT 02433000
- SPACE 02434000
- KEYOK EQU * HERE IF STORAGE KEYS MATCH 02435000
- N R1,F4095 GET DISPLACEMENT INTO PAGE 02436000
- L R15,F4096 SET SIZE OF PAGE 02437000
- SR R15,R1 SUBST PAGE SIZE FROM DISPLACEMNT 02438000
- CR R4,R15 R4 IS THE NUMBER OF BYTES TO BE 02439000
- * MOVED 02440000
- BNH ONEPAGE DATA AREA IS IN ONE PAGE 02441000
- SPACE 2 02442000
- * HERE IF USER'S DATA CROSSES PAGE BOUNDARY 02443000
- SR R4,R15 AMOUNT OF DATA IN SECOND PAGE IN R4 02444000
- BCTR R15,0 DECREMENT R15 FOR EXECUTE 02445000
- LR R14,R0 POINT TO MOVE INSTRUCTION 02446000
- EX R15,0(R14) EXCUTED MOVE INSTRUCTION 02447000
- LA R3,1(R15,R3) BUMP POINTER TO NEXT DATA SLOT 02448000
- L R1,VSPCCW GET ORIGINAL DATA ADDRESS 02449000
- LA R1,1(R15,R1) POINT TO FIRST BYTE IN NEXT PAGE 02450000
- B GETPAGE AND RE-EXECUTE THE SUBROUTINE 02451000
- SPACE 02452000
- ONEPAGE EQU * HERE WHEN REMAINING DATA IS ALL IN ONE PAGE 02453000
- BCTR R4,0 DECREMENT LENGTH FOR EXECUTE 02454000
- TM VSPCCW,X'01' WILL CCW MODIFY STORAGE ? 02455000
- BO EXMVC NO -- GO MOVE DATA 02456000
- AR R2,R4 POINT TO LAST BYTE OF DATA 02457000
- ST R0,TEMPR1 SAVE ADDRESS OF MOVE INSTRUCTION @V304735 02458000
- IC R0,VDEVKEY INSPECT VIRTUAL CAW KEY @V304735 02459000
- CALL DMKPSASC CHECK FOR PROTECTION VIOLATION @V304735 02460000
- L R0,TEMPR1 RESTORE REGISTER @V304735 02461000
- BNE PROTCHK PROTECTION VIOLATION 02462000
- SR R2,R4 RESTORE ADDRESS OF FIRST DATA BYTE 02463000
- EXMVC LR R14,R0 POINT TO MOVE INSTRUCTION 02464000
- EX R4,0(R14) EXECUTE MOVE INSTRUCTION PASSED BY 02465000
- * CALLER 02466000
- UPCNT LA R4,1(,R4) BUMP DATA COUNT 02467000
- RDRSKIP AR R3,R4 BUMP DATA ADDRESS TO NEXT BYTE IN 02468000
- * BUFFER 02469000
- BR R6 AND RETURN TO CALLER 02470000
- EJECT 02471000
- * 02472000
- * MISCELLANEOUS SUBROUTINES 02473000
- * 02474000
- SPACE 3 02475000
- PCITEST EQU * HERE TO TEST FOR A PCI INTERRUPTION 02476000
- TM VSPCCW+4,PCIF IS THEIR A PCI FLAG IN THE CCW? 02477000
- BCR 8,R6 NO -- LEAVE 02478000
- OI VDEVCSW+5,PCI YES SET PCI IN CSW 02479000
- BR R6 AND LEAVE 02480000
- SPACE 3 02481000
- MSG427I EQU * HERE IF SPOOL SPACE FULL 02482000
- LA R2,427 ERROR MSG DMKVSP427I 02483000
- USING SAVEAREA,R13 02484000
- ERROMSG LA R0,2 SET AREA FOR MESSAGE 02485000
- CALL DMKFREE .. 02486000
- XC 0(16,R1),0(R1) CLEAR AREA 02487000
- LR R3,R1 SAVE ADDRESS OF AREA 02488000
- LH R1,VDEVUNIT GET FULL ADDRESS OF VIRTUAL DEVICE 02489000
- CALL DMKCVTBH CONVERT ADDRESS 02490000
- STCM R1,B'0111',4(R3) STORE ADDRESS IN MESSAGE AREA 02491000
- MVC 8(6,R3),=C'HELD ' .. 02492000
- MVC 0(3,R3),=C'RDR' MOVE IN RDR, PRT OR PUN 02493000
- TM VDEVTYPC,CLASURI READER ?? 02494000
- BO EMSG YES -- 02495000
- LTR R7,R7 FILE BEING PURGED ?? 02496000
- BNZ *+10 NO -- 02497000
- MVC 8(6,R3),=C'PURGED' .. 02498000
- MVC 0(3,R3),=C'CON' SET CON TYPE IN MSG 02499000
- NI VDEVFLAG,X'FF'-VDEVCSPL RESET CONSOLE SPOOL ACTIVE 02500000
- CLI VDEVTYPE,TYP3210 CONSOLE DEVICE ? 02501000
- BE EMSG YES -- 02502000
- MVC 0(3,R3),=C'PRT' .. 02503000
- OI VDEVSTAT,VDEVNRDY INDICATE VIRTUAL DEVICE NOT READY 02504000
- TM VDEVTYPE,TYPPRT .. 02505000
- BO EMSG .. 02506000
- MVC 0(3,R3),=C'PUN' .. 02507000
- EMSG LA R0,16 SET UP FOR CALL TO DMKERMSG 02508000
- LR R1,R3 ADDRESS OF MESSAGE 02509000
- ICM R0,14,ID+3 RETURN - INSERT MODULE ID 02510000
- O R2,=X'80C90000' SET RETURN TO THIS MODULE 02511000
- * AND INDICATE 'I' MSG 02512000
- TM VDEVSFLG,VDEVSVC ENTERED VIA CALL ?? @VM01016 02513000
- BZ NOCFRUN NO, SET UP RETURN ADDRESS @VM01016 02514000
- PRTRET MVI SAVEWRK2+3,8 SET ERROR RETURN CODE 8 02515000
- L R6,SAVEWRK6 GET RETURN ADDRESS FOR DMKVSPRT 02516000
- B CALLERM GO WRITE ERROR MESSAGE 02517000
- NOCFRUN EQU * 02518000
- LA R6,NOTREADY RETURN ADDRESS FOR NO-CONSOL OR SVC 02519000
- SPACE 02520000
- CALLERM SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA01460 02521000
- CALL DMKERMSG WRITE ERROR MESSAGE @VA01460 02522000
- LA R0,2 LENGTH OF MESSAGE AREA 02523000
- CALL DMKFRET FRET MESSAGE AREA 02524000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 02525000
- BR R6 RETURN TO CALLER 02526000
- SPACE 02526100
- EMSG429B XC VSPCCW(8),VSPCCW CLEAR DUMMY SWAPTABLE @VA11232 02526200
- LR R2,R4 RESTORE BUFFER ADDRESS @VA11232 02526300
- LA R5,VSPCCW ADDRESS OF DUMMY SWAPTABLE @VA11232 02526400
- EMSG429C L R4,VSPDPAGE DEALLOCATE CURRENT SLOT @VA11232 02526500
- ST R4,VSPCCW+4 STORE IN DUMMY SWAPTABLE @VA11232 02526600
- CALL DMKPGTSD DEALLOCATE PAGE @VA11232 02526700
- EMSG429 EQU * HERE IF IO ERROR ON TRANS @VA01460 02527000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA01460 02528000
- MSG429F EQU * HERE IF SPOOLING DEVICE ERROR AND 02529000
- * SFBLOK TO BE FRETED 02530000
- MSG429 MVC SFBLAST(4),SFBPNT CCPD OF LAST BUFFER WRITTEN @VA01460 02531000
- BAL R6,PRTPUR PURGE FILE AND CLEAR BLOKS @VA00808 02532000
- SPACE 02533000
- MSG429I EQU * HERE IF SPOOLING I/O ERROR 02534000
- LA R2,429 ERROR MSG DMKVSP429I 02535000
- DROP R13 02536000
- B ERROMSG WRITE ERROR MSG 02537000
- EJECT 02538000
- * 02539000
- * HERE FOR SUBROUTINES TO HANDLE EXIT FROM DMKVSPEX TO DMKVIOEX 02540000
- * 02541000
- SPACE 3 02542000
- NOTREADY EQU * HERE IF VDEVICE NOT READY 02543000
- MVI VDEVSNSE,INTREQ SET INTERVENTION REQUIRED 02544000
- UNITCHK EQU * HERE TO INDICATE UNIT CHECK -- SENSE BYTE IS ALREADY 02545000
- * ESTABLISHED 02546000
- OI VDEVCSW+4,UC SET UNITCHECK 02547000
- TM VDEVSNSE,INTREQ DEVICE NOT READY ? @VA03803 02548000
- BNZ VSPCHK YES..SEE IF FIRST CCW @VA03803 02549000
- TM VDEVSNSE,CMDREJ INVALID COMMAND CODE ? @VA03803 02550000
- BZ LASTCCW NO..CONTINUE... @VA03803 02551000
- NI VDEVCSW+4,255-(CE+DE) UNIT CHECK ALONE @VA03803 02552000
- B VSPEXIT CONTINUE... @VA03803 02553000
- SPACE 3 02554000
- PROTCHK EQU * HERE ON A PROTECTION VIOLATION 02555000
- OI VDEVCSW+5,PRTC SET PROTECTION CHECK 02556000
- CLI VDEVTYPE,TYPTIMER PSEUDO TIMER ? @VA03182 02557000
- BE VSPEXIT EXIT..CC SET @VA03182 02558000
- OI VDEVCSW+4,CE+DE SET CORRECT ENDING STATUS @VA03182 02559000
- VSPCHK TM VDEVFLAG,VDEVCCW1 PROCESSING FIRST CCW ?? 02560000
- BO VSPEXIT YES -- GENERAL EXIT 02561000
- B ENDCCW AND TAKE EXIT 02562000
- SPACE 3 02563000
- PROGCHK1 EQU * HERE ON A PROGRAM CHECK (TRANS) @VA00716 02564000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 02565000
- SPACE 02566000
- PROGCHK EQU * HERE ON A PROGRAM CHECK 02567000
- OI VDEVCSW+5,PRGC SET CHANNEL PROGRAM CHECK 02568000
- B VSPCHK AND TAKE EXIT 02569000
- SPACE 02570000
- PROGCHK2 AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00808 02571000
- OI VDEVCSW+5,PRGC INDICATE PROGRAM CHECK @VA00808 02572000
- B ENDCCW POST ENDING STATUS AND EXIT @VA00808 02573000
- SPACE 3 02574000
- ENDCCW2 OI VDEVCSW+4,UC SET UNIT CHECK 02575000
- ENDCCW NI VDEVINTS,X'FF'-(UE+UC) RESET UNUSED FLAGS 02576000
- OI VDEVCSW+4,DE SET DEVICE END IN CSW 02577000
- SPACE 02578000
- ENDCCW1 OI VDEVCSW+4,CE SET CHANNEL END 02579000
- SPACE 02580000
- LASTCCW EQU * HERE TO FINISH PROCESSING THE LAST CCW 02581000
- CLI VDEVTYPC,CLASURO OUTPUT DEVICE ?? 02582000
- BE EXITDE YES -- 02583000
- LTR R7,R7 ACTIVE FILE ?? 02584000
- BNZ EXITDE YES - 02585000
- BAL R6,DVICECLR GO CLEAR BLOKS 02586000
- SPACE 02587000
- EXITDE TM VDEVCSW+4,DE IS DE IN CSW? 02588000
- BO VSPEXIT YES -- NO DE STATUS IN DEVICE 02589000
- OI VDEVSTAT,VDEVPEND DE MUST BE PENDING IN DEVICE 02590000
- OI VDEVINTS,DE 02591000
- SPACE 3 02592000
- VSPEXIT EQU * HERE FOR GENERAL EXIT 02593000
- OI VDEVSTAT,VDEVCHAN SET CHANNEL INTERRUPT PENDING 02594000
- USING VCHBLOK,R6 @VA00702 02595000
- USING VCUBLOK,R7 @VA00702 02596000
- LH R1,VDEVUNIT VIRTUAL DEVICE ADDRESS @VA00702 02597000
- CALL DMKSCNVU LOC VCH AND VCU BLOKS @VA00702 02598000
- BZ VSP006 ALL BLOCK FOUND - BRANCH @VA00702 02599000
- * 02600000
- * NO -- ONE OR MORE OF THE FOLLOWING BLOCKS ARE 02601000
- * MISSING - VDEVBLOK - VCUBLOK - VCHBLOK 02602000
- * 02603000
- ABEND 1 ABEND VSP001 @VA00702 02604000
- VSP006 DS 0H @VA10788 02605300
- TM VCHTYPE,VCHSEL IS IT SELECTOR CHANNEL @VA10788 02605700
- BZ VSP008 NO - BRANCH @VA00702 02606000
- STH R1,VCHCEDEV SAVE ADDRESS OF UNIT @VA00702 02607000
- OI VCHSTAT,VCHCEPND FLAG CHANNEL CLASS INTERRUPT @VA00702 02608000
- VSP008 TM VDEVFLAG,VDEVCCW1 STILL ON 1ST CCW ? @VA00702 02609000
- BZ VSPEXITX NO -- NO CHANCE FOR CC1 TO SIO 02610000
- SPACE 02611000
- TM VDEVCSW+4,CE+DE ANY CHANNEL OR DEVICE STATUS PENDING 02612000
- BZ VSPLCC1 NO MUST BE AN UNUSUAL CONDITION 02613000
- LTR R9,R9 ACTIVE FILE 02614000
- BZ VSPEXITX NO - 02615000
- TM VSPCCW,3 IS IT AN IMMEDIATE COMMAND? 02616000
- BNO VSPEXITX NO --LEAVE 02617000
- SPACE 02618000
- CLI VSPCCW,X'63' FORM CONTROL LOAD ?? 02619000
- BE VSPEXITX YES -- 02620000
- SPACE 02621000
- VSPLCC1 EQU * HERE FOR CC1 TO SIO 02622000
- TM VMESTAT,VMEXTCM IS V.M. IN EXTENDED CONTROL MODE? 02623000
- BZ VSP004 NO -- 02624000
- OI VMPSW+2,X'10' SET CC1 IN EXTENDED PSW 02625000
- B VSP005 02626000
- VSP004 OI VMPSW+4,X'10' SET CC = 1 02627000
- VSP005 LA R1,CSW ADDRESS OF CSW 02628000
- SL R6,VMCHSTRT CHAN. DISP. @VA01770 02629000
- SL R7,VMCUSTRT C.U. DISP. @VA01770 02630000
- SL R8,VMDVSTRT VDEVBLOK DISP @VA00716 02631000
- TRANS 2,1,OPT=(BRING,DEFER),IOER=EXIT1 GET USER PAGE 0@VA01770 02632000
- AL R6,VMCHSTRT RESTORE CHAN ADDRESS @VA01770 02633000
- AL R7,VMCUSTRT RESTORE C.U. ADDRESS @VA01770 02634000
- AL R8,VMDVSTRT VDEVBLOK ADDRESS @VA00716 02635000
- MVC 4(2,R2),VDEVCSW+4 STORE STATUS ONLY 02636000
- NI VDEVSTAT,X'FF'-VDEVCHAN NO CHANNEL CLASS INTERRUPT PEND 02637000
- TM VCHTYPE,VCHSEL IS IT SELECTOR CHANNEL @VA10788 02638500
- BZ *+8 NO -- @VA00702 02639000
- NI VCHSTAT,X'FF'-VCHCEPND RESET CE PENDING FLAG @VA00702 02640000
- SPACE 3 02641000
- VSPEXITX EQU * HERE TO TEST FOR AND POST PENDING INTERRUPTS 02642000
- MVC VDEVCSW(1),VDEVKEY MOVE CAW KEY TO CSW 02643000
- LTR R9,R9 ACTIVE FILE ?? 02644000
- BZ VSP007 NO -- 02645000
- TM VSPCCW,3 NO-OP-CODE ?? 02646000
- BNO VSP007 NO - 02647000
- CLI VSPCCW,X'63' FORM CONTROL ?? 02648000
- BE VSP007 YES -- COUNT PRESENT IF ANY 02649000
- MVC VDEVCSW+6(2),VSPCCW+6 MOVE IN RESIDUAL COUNT 02650000
- VSP007 TM VDEVSTAT,VDEVCHAN+VDEVPEND ANY INTERRUPTS PENDING? 02651000
- BZ VSPNOINT NO -- EXIT 02652000
- L R2,=A(DMKVIOMK) POINT TO INTERRUPT PENDING @VA00702 02653000
- * TABLE 02654000
- LH R3,VDEVADD GET DEVICE ADDRESS 02655000
- AR R3,R3 TIMES 2 02656000
- LA R3,0(R3,R2) POINT TO CORRECT PENDING MASK 02657000
- OC VCUDVINT,0(R3) SET PENDING FLAGS IN VCUBLOK 02658000
- LH R3,VCUADD GET ADDRESS OF CONTROL UNIT 02659000
- SRL R3,3 TIMES 2 02660000
- LA R3,0(R3,R2) POINT TO CORRECT PENDING MASK 02661000
- OC VCHCUINT,0(R3) AND SET PENDING FLAG 02662000
- LH R3,VCHADD GET CHANNEL ADDRESS 02663000
- SRL R3,7 TIMES 2 02664000
- ALR R3,R2 POINT TO MASK BYTES 02665000
- OC VMIOINT,0(R3) SET CHANNEL PENDING FLAG IN VMBLOK 02666000
- OI VMPEND,VMIOPND SET SUMMARY PENDING FLAG 02667000
- SPACE 3 02668000
- VSPNOINT EQU * HERE DIRECTLY IF NO INTERRUPTS ARE PENDING 02669000
- NI VDEVSTAT,X'FF'-(VDEVBUSY+VDEVCHBS) MARK DEVICE AND SUB- 02670000
- * CHANNEL AS NO LONGER BUSY 02671000
- TM VDEVSFLG,VDEVCFCL IS A CONSOLE CLOSE PENDING ?? 02672000
- BZ EXIT NO -- EXIT 02673000
- L R9,VDEVSPL ADDRESS OF SPL BLOK 02674000
- LTR R9,R9 BLOK PRESENT ?? 02675000
- BZ EXIT2 NO -- FILE CLOSED 02676000
- L R7,VSPSFBLK RELOAD SFBLOK ADDRESS 02677000
- LA R6,EXIT2 RETURN ADDRESS 02678000
- CLI VDEVTYPC,CLASURI IS THE CLOSE FOR READER ? 02679000
- BNE PRTEOF NO - GO CLOSE PRINTER OR PUNCH 02680000
- B RDREOF CLOSE READER 02681000
- SPACE 02682000
- EXIT2 NI VDEVSFLG,X'FF'-VDEVCFCL RESET PENDING FLAG 02683000
- B EXIT SKIP EXIT1 RESTORES @VA01770 02684000
- EXIT1 AL R6,VMCHSTRT RESTORE VCHBLOK @VA01770 02685000
- AL R7,VMCUSTRT RESTORE VCUBLOK @VA01770 02686000
- AL R8,VMDVSTRT RESTORE VDEVBLOK @VA01770 02687000
- EXIT NI VMRSTAT,X'FF'-VMEXWAIT TAKE USER OUT OF EXWAIT 02688000
- BAL R6,UNSTKBLK GO UNSTACK CPEXBLOK @VM01021 02689000
- GOTO DMKDSPCH EXIT - @VM01021 02690000
- SPACE 2 02691000
- UNSTKBLK EQU * HERE TO UNSTACK CPEXBLOK @VM01021 02692000
- * FOR THIS VIRTUAL DEVICE 02693000
- TM VDEVSFLG,VDEVSVC DEVICE CP BUSY ? @VM01021 02694000
- BOR R6 YES - RETURN TO CALLER @VM01021 02695000
- CLI VDEVTYPE,TYP3210 CONSOLE ? @VM01021 02696000
- BE GETDISP YES - FORGET BUSY TEST @VM01021 02697000
- TM VDEVSTAT,VDEVBUSY DEVICE BUSY WITH SIO ? @VM01021 02698000
- BOR R6 YES - RETURN TO CALLER @VM01021 02699000
- USING CPEXBLOK,R1 @VM01021 02700000
- GETDISP LR R3,R8 GET VDEVBLOK DISPLACEMENT @VM01021 02701000
- SL R3,VMDVSTRT .. @VM01021 02702000
- LA R1,VSPSTK ADDRESS OF STACK CPEXBLOKS @VM01021 02703000
- NXTCPEX LR R2,R1 SAVE PREVIOUS CPEXBLOK ADDRESS @VM01021 02704000
- ICM R1,B'1111',CPEXFPNT GET ADDRESS OF NEXT CPEXBLOK@VM01021 02705000
- BZR R6 BRANCH IF NONE LEFT @VM01021 02706000
- C R11,CPEXR11 CPEXBLOK FOR THIS USER ? @VM01021 02707000
- BNE NXTCPEX NO - CHECK NEXT @VM01021 02708000
- C R3,CPEXR8 CPEXBLOK FOR THIS DEVICE ? @VM01021 02709000
- BNE NXTCPEX NO - CHECK NEXT @VM01021 02710000
- OI VDEVSFLG,VDEVSVC INDICATE BUSY @VM01021 02711000
- MVC 0(4,R2),CPEXFPNT UNCHAIN THIS CPEXBLOK @VM01021 02712000
- CALL DMKSTKCP HAVE CP STACK THIS BLOK @VM01021 02713000
- BR R6 RETURN TO CALLER @VM01021 02714000
- SPACE 2 02715000
- FCBMOVE MVC VFCBLOAD-VFCBBLOK(0,R14),12(R15) 02716000
- SPACE 2 02716100
- DEVID84 EQU X'84' DEVICE IDENTIFICATION @VA11722 02716200
- SPACE 02717000
- SPACE 2 02720000
- * KEEP THE FOLLOWING THREE IN ORDER: 02721000
- ENTRY DMKVSPWA EXTERNAL NAME FOR ... @VA00881 02722000
- DMKVSPWA DS 0F 3211 INDEX WORK AREA ... @VA00881 02723000
- WRKADD DC F'0' ADDRESS OF INDEX WORK AREA 02724000
- HDRADD DC F'0' ADDRESS OF HEADER BUFFER 02725000
- VSPSTK DC F'0' ADDRESS OF LOCAL STACK CPEXBLOKS 02726000
- F2047 DC F'2047' 02727000
- F2048 DC F'2048' 02728000
- DS 0F 02729000
- EJECT 02730000
- LTORG 02731000
- EJECT 02732000
- COPY EQU 02733000
- COPY RBLOKS 02734000
- COPY VBLOKS 02735000
- COPY VMBLOK 02736000
- COPY SPOOL 02737000
- PSA 02738000
- COPY SAVE 02739000
- COPY DEVTYPES 02740000
- COPY IOBLOKS 02741000
- COPY ALLOC 02742000
- COPY IOER 02743000
- END 02744000
ibm/vm370-lib/cp/dmkvsp.assemble_src.txt · Last modified: 2023/08/06 13:37 by Site Administrator