cdc:nos2.source:opl.opl871:deck:pfhelpr
Deck PFHELPR
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.pfhelpr +++| IDENT PFHELPR,FWA 00002 M00S00002.pfhelpr +++| ABS 00003 M00S00003.pfhelpr +++| TITLE PFHELPR - *MAGNET* HELPER FOR TAPE ALTERNATE STORAGE. 00004 M00S00004.pfhelpr +++| SST 00005 M00S00005.pfhelpr +++| SYSCOM B1 00006 M00S00006.pfhelpr +++| ENTRY PFHELPR 00007 M00S00007.pfhelpr +++| ENTRY RFL= 00008 M00S00008.pfhelpr +++| ENTRY SSJ= 00009 M00S00009.pfhelpr +++| SPACE 4,10 00010 M00S00010.pfhelpr +++|*COMMENT PFHELPR - HELPER FOR TAPE ALTERNATE STORAGE.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00011.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1987.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M00S00012.pfhelpr +++| SPACE 4,10 00014 M00S00013.pfhelpr +++|*** PFHELPR - *MAGNET* HELPER FOR TAPE ALTERNATE STORAGE. 00015 M00S00014.pfhelpr +++|* 00016 M00S00015.pfhelpr +++|* W. C. WELLS. 86/01/27. 00017 M00S00016.pfhelpr +++|* P. C. SMITH. 87/03/27. 00018 M00S00017.pfhelpr +++| SPACE 4,10 00019 M00S00018.pfhelpr +++|*** *PFHELPR* IS CALLED BY *MAGNET* AS PART OF TAPE ALTERNATE 00020 M00S00019.pfhelpr +++|* STORAGE PROCESSING. IT COPIES STAGE REQUESTS FROM THE 00021 M00S00020.pfhelpr +++|* STAGE REQUEST TABLE (WITHIN *MAGNET*) TO THE STAGE REQUEST 00022 M00S00021.pfhelpr +++|* FILE. THIS FILE IS THEN READ BY *PFRES*. 00023 M00S00022.pfhelpr +++| SPACE 4,10 00024 M00S00023.pfhelpr +++|* SYMBOLIC COMMON DECKS. 00025 M00S00024.pfhelpr +++| 00026 M00S00025.pfhelpr +++| 00027 M00S00026.pfhelpr +++|*CALL COMCMAC 00028 M00S00027.pfhelpr +++|*CALL COMCCMD 00029 M00S00028.pfhelpr +++|*CALL COMSMTX 00030 M00S00029.pfhelpr +++|*CALL COMSSSD 00031 M00S00030.pfhelpr +++|*CALL COMSPFM 00032 M00S00031.pfhelpr +++| SPACE 4,10 00033 M00S00032.pfhelpr +++|* STORAGE ALLOCATION. 00034 M00S00033.pfhelpr +++| 00035 M00S00034.pfhelpr +++| 00036 M00S00035.pfhelpr +++| ORG 110B 00037 M00S00036.pfhelpr +++| FWA BSS 0 00038 M00S00037.pfhelpr +++| 00039 M00S00038.pfhelpr +++| FBUFL EQU 2001B 00040 M00S00039.pfhelpr +++| SSJ= EQU 0 00041 M00S00040.pfhelpr +++| 00042 M00S00041.pfhelpr +++| F BSS 0 STAGE REQUEST FILE 00043 M00S00042.pfhelpr +++| STRQ FILEB FBUF,FBUFL 00044 M00S00043.pfhelpr +++| 00045 M00S00044.pfhelpr +++| RPVB RPVBLK END REPRIEVE BLOCK 00046 M00S00045.pfhelpr +++| TITLE MAIN PROGRAM. 00047 M00S00046.pfhelpr +++| PFHELPR BSS 0 ENTRY 00048 M00S00047.pfhelpr +++| SB1 1 00049 M00S00048.pfhelpr +++| RJ PRS 00050 M00S00049.pfhelpr +++| EQ PFH2 SKIP ROLLOUT 00051 M00S00050.pfhelpr +++| 00052 M00S00051.pfhelpr +++|* CHECK FOR STAGE REQUESTS. 00053 M00S00052.pfhelpr +++| 00054 M00S00053.pfhelpr +++| PFH1 ROLLOUT PFHC 00055 M00S00054.pfhelpr +++| PFH2 RJ GSR CHECK FOR STAGE REQUESTS 00056 M00S00055.pfhelpr +++| NG B6,END IF CANNOT READ REQUESTS 00057 M00S00056.pfhelpr +++| NE B6,B1,PFH1 IF NOT ENOUGH REQUESTS TO ATTACH FILE 00058 M00S00057.pfhelpr +++| 00059 M00S00058.pfhelpr +++|* ATTACH FILE TO CLEAN UP *MAGNET*-S REQUEST TABLE. 00060 M00S00059.pfhelpr +++| 00061 M00S00060.pfhelpr +++| ATTACH F 00062 M00S00061.pfhelpr +++| SA1 X2 00063 M00S00062.pfhelpr +++| MX0 -8 00064 M00S00063.pfhelpr +++| AX1 10 00065 M00S00064.pfhelpr +++| BX1 -X0*X1 00066 M00S00065.pfhelpr +++| NZ X1,PFH1 IF ERROR IN ATTACH 00067 M00S00066.pfhelpr +++| SKIPEI F,R 00068 M00S00067.pfhelpr +++| WRITE X2,* 00069 M00S00068.pfhelpr +++| SB2 PFHB INFORM MAGNET THAT FILE IS ATTACHED 00070 M00S00069.pfhelpr +++| RJ SRM 00071 M00S00070.pfhelpr +++| 00072 M00S00071.pfhelpr +++|* GET STAGE REQUEST. 00073 M00S00072.pfhelpr +++| 00074 M00S00073.pfhelpr +++| PFH3 RJ GSR GET NEXT STAGE REQUEST 00075 M00S00074.pfhelpr +++| NG B6,PFH4 IF CANNOT READ REQUESTS 00076 M00S00075.pfhelpr +++| ZR B6,PFH4 IF NO REQUESTS 00077 M00S00076.pfhelpr +++| WRITEW F,B6,PFTBL 00078 M00S00077.pfhelpr +++| EQ PFH3 GET NEXT REQUEST 00079 M00S00078.pfhelpr +++| 00080 M00S00079.pfhelpr +++|* IF NO MORE REQUESTS, RELEASE FILE AND CLEAR BIT. 00081 M00S00080.pfhelpr +++| 00082 M00S00081.pfhelpr +++| PFH4 WRITER F,R 00083 M00S00082.pfhelpr +++| UNLOAD F 00084 M00S00083.pfhelpr +++| PFH5 SB2 PFHA INFORM *MAGNET* THAT FILE IS RELEASED 00085 M00S00084.pfhelpr +++| RJ SRM 00086 M00S00085.pfhelpr +++| ZR X1,PFH1 IF SUCCESSFUL 00087 M00S00086.pfhelpr +++| RECALL GIVE UP CPU 00088 M00S00087.pfhelpr +++| EQ PFH5 TRY AGAIN 00089 M00S00088.pfhelpr +++| 00090 M00S00089.pfhelpr +++| 00091 M00S00090.pfhelpr +++| PFHA VFD 12/AIB,24/,6/0,18/1 CLEAR *FILE ATTACHED* BIT 00092 M00S00091.pfhelpr +++| PFHB VFD 12/AIB,24/,6/1,18/1 SET *FILE ATTACHED* BIT 00093 M00S00092.pfhelpr +++| PFHC VFD 60/60 00094 M00S00093.pfhelpr +++| END SPACE 4,10 00095 M00S00094.pfhelpr +++|** END - END PROGRAM. 00096 M00S00095.pfhelpr +++|* 00097 M00S00096.pfhelpr +++| 00098 M00S00097.pfhelpr +++| 00099 M00S00098.pfhelpr +++| END MESSAGE (=C*PFHELPR ABORTED.*) 00100 M00S00099.pfhelpr +++| ENDRUN 00101 M00S00100.pfhelpr +++| SPACE 4,10 00102 M00S00101.pfhelpr +++|* COMMON DECKS. 00103 M00S00102.pfhelpr +++| 00104 M00S00103.pfhelpr +++| 00105 M00S00104.pfhelpr +++|*CALL COMCCIO 00106 M00S00105.pfhelpr +++|*CALL COMCCPM 00107 M00S00106.pfhelpr +++|*CALL COMCPFM 00108 M00S00107.pfhelpr +++|*CALL COMCSYS 00109 M00S00108.pfhelpr +++| LIST X 00110 M00S00109.pfhelpr +++|*CALL COMCSRI 00111 M00S00110.pfhelpr +++| LIST * 00112 M00S00111.pfhelpr +++|*CALL COMCWTW 00113 M00S00112.pfhelpr +++| TITLE PRESET. 00114 M00S00113.pfhelpr +++| USE BUFFERS 00115 M00S00114.pfhelpr +++| PRS SPACE 4,10 00116 M00S00115.pfhelpr +++|** PRS - PRESET. 00117 M00S00116.pfhelpr +++|* 00118 M00S00117.pfhelpr +++| 00119 M00S00118.pfhelpr +++| 00120 M00S00119.pfhelpr +++| FBUF BSS 0 OUTPUT BUFFER 00121 M00S00120.pfhelpr +++| PRS SUBR ENTRY/EXIT 00122 M00S00121.pfhelpr +++| REPRIEVE RPVB,SET,237B SET REPRIEVE PROCESSING 00123 M00S00122.pfhelpr +++| MACHID PRSA GET MACHINE ID 00124 M00S00123.pfhelpr +++| SA1 PRSA 00125 M00S00124.pfhelpr +++| SA2 F SET ID INTO STAGE REQUEST FILE NAME 00126 M00S00125.pfhelpr +++| LX1 24 00127 M00S00126.pfhelpr +++| BX6 X1+X2 00128 M00S00127.pfhelpr +++| SA6 A2 00129 M00S00128.pfhelpr +++| GETJN PRSB GET JOB NAME 00130 M00S00129.pfhelpr +++| SA1 PRSB 00131 M00S00130.pfhelpr +++| SA2 PFHA SET JOB NAME IN *MAGNET* REQUESTS 00132 M00S00131.pfhelpr +++| SA3 PFHB 00133 M00S00132.pfhelpr +++| LX1 24-36 00134 M00S00133.pfhelpr +++| BX7 X1+X2 00135 M00S00134.pfhelpr +++| BX6 X1+X3 00136 M00S00135.pfhelpr +++| SA7 A2 00137 M00S00136.pfhelpr +++| SA6 A3 00138 M00S00137.pfhelpr +++| SB2 PFHA SEND *CLEAR BIT* REQUEST TO MAGNET 00139 M00S00138.pfhelpr +++| RJ SRM 00140 M00S00139.pfhelpr +++| EQ PRSX RETURN 00141 M00S00140.pfhelpr +++| 00142 M00S00141.pfhelpr +++| 00143 M00S00142.pfhelpr +++| PRSA BSS 1 MACHINE ID BUFFER 00144 M00S00143.pfhelpr +++| PRSB BSS 1 JOB NAME BUFFER 00145 M00S00144.pfhelpr +++| 00146 M00S00145.pfhelpr +++| BSS FBUF+FBUFL+1-* ALLOCATE ENOUGH SPACE FOR BUFFER 00147 M00S00146.pfhelpr +++| BSS 8 PREVENT LOOKAHEAD REFERENCE BEYOND FL 00148 M00S00147.pfhelpr +++| RFL= END
cdc/nos2.source/opl.opl871/deck/pfhelpr.txt · Last modified: by 127.0.0.1