ibm:vm370-lib:cms:dmsalu.assemble_hst
Table of Contents
DMSALU History
References
- Fixes Applied : 3
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC015DS]
Update History
CMS File Input : DMSALU ASSEMBLE
Date : 12/12/1978 8:20:00 AM
VM Context : MAINT(393)
File Name : DMSALU.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM
Update Order
- R14031DS 623 UV05198 FILEDEF CLEAR OS FILE (PERM) MAY FAIL MSDMSFRE161T RC=6
- HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
- HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets
R14031DS
Date Tuesday Sep 08, 1981 08:19:00 AM
Loaded from MAINT(193)
R14031DS: ./ R 00208100 00208340 $ 208100 7 XEDIT 08/13/81 15:21:16 R14031DS: * RELEASE ALL OSFST BLOCKS (R3 = RETURN-REGISTER) AND ZERO OUT @VA14031 00208060 R14031DS: * THE CORRESPONDING POINTERS IN THE FCB: @VA14031 00208068 R14031DS: * @VA14031 00208076 R14031DS: * @VA14031 00208084 R14031DS: RELOSFST EQU * @VA14031 00208092 R14031DS: L R9,OSADTFST GET 1ST. OSFST ADDRESS @VA14031 00208100 R14031DS: OSFSTLUP EQU * @VA14031 00208108 R14031DS: LA R9,0(,R9) CLEAR HIGH ORDER BYTE @VA14031 00208116 R14031DS: LTR R9,R9 ANYTHING THERE ? @VA14031 00208124 R14031DS: BZ TESTCNT NO..COMPUTE NEW DMSROS COUNT @VA14031 00208132 R14031DS: LR R1,R9 GET OSFST LOC @VA14031 00208140 R14031DS: USING OSFST,R1 OSFST ADDRESSABILITY @VA14031 00208148 R14031DS: SPACE 1 @VA14031 00208156 R14031DS: RELFCBPT EQU * @VA14031 00208164 R14031DS: L R9,FCBFIRST GET 1ST. OSFCB ADDRESS @VA14031 00208172 R14031DS: OSFCBLUP EQU * @VA14031 00208180 R14031DS: LA R9,0(,R9) CLEAR HIGH ORDER BYTE @VA14031 00208188 R14031DS: LTR R9,R9 ANYTHING THERE ? @VA14031 00208196 R14031DS: BZ FREEFST NONE FOUND, FREE OSFST BLOCK @VA14031 00208204 R14031DS: LR R6,R9 ... @VA14031 00208212 R14031DS: USING FCBSECT,R6 OSFCB ADDRESSABILITY @VA14031 00208220 R14031DS: L R9,FCBNEXT GET NEXT OSFCB ADDRESS @VA14031 00208228 R14031DS: CLM R1,B0111,FCBOSFST+1 DO THE OSFST'S MATCH ??? @VA14031 00208236 R14031DS: BNE OSFCBLUP NO..SEARCH NEXT OSFCB @VA14031 00208244 R14031DS: XC FCBOSFST(4),FCBOSFST CLEAR OSFST POINTER @VA14031 00208252 R14031DS: SPACE 1 @VA14031 00208260 R14031DS: FREEFST EQU * @VA14031 00208268 R14031DS: LA R0,OSFSTLTH GET OSFST DWORDS @VA14031 00208276 R14031DS: L R9,OSFSTNXT GET NEXT OSFST ADDRESS @VA14031 00208284 R14031DS: DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR @VA14031 00208292 R14031DS: B OSFSTLUP KEEP SEARCHING @VA14031 00208300 R14031DS: DROP R6,R1 DROP ADDRESSABILITY @VA14031 00208308 R14031DS: * @VA14031 00208316 R14031DS: ./ I 00220100 $ 220600 500 XEDIT 08/13/81 15:21:16 R14031DS: B0111 EQU B'0111' MASK FOR AN ADDRESS @VA14031 00220600 BEGIN APPLY >>> ./ R 00208100 00208340 $ 208100 7 XEDIT 08/13/81 15:21:16 END APPLY >>> ./ R 00208100 00208340 $ 208100 7 XEDIT 08/13/81 15:21:16 BEGIN APPLY >>> ./ I 00220100 $ 220600 500 XEDIT 08/13/81 15:21:16 END APPLY >>> ./ I 00220100 $ 220600 500 XEDIT 08/13/81 15:21:16 Update Succeeded Update Execution Time 16 milliseconds.
HRC002DS
Date Thursday Feb 09, 2006 09:22:00 PM
Loaded from MAINT(093)
HRC002DS: ./ R 00209000 00209040 $ 209003 3 01/01/06 18:45:02 HRC002DS: DC C'H',X'0F' H-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'I',X'10' I-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'J',X'11' J-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'K',X'12' K-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'L',X'13' L-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'M',X'14' M-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'N',X'15' N-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'O',X'16' O-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'P',X'17' P-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'Q',X'18' Q-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'R',X'19' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'S',X'1A' S-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'T',X'1B' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'U',X'1C' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'V',X'1D' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'W',X'1E' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'X',X'1F' R-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'Y',X'20' Y-DISK MODE AND PUB INDEX HRC002DS HRC002DS: DC C'Z',X'21' Z-DISK MODE AND PUB INDEX HRC002DS BEGIN APPLY >>> ./ R 00209000 00209040 $ 209003 3 01/01/06 18:45:02 END APPLY >>> ./ R 00209000 00209040 $ 209003 3 01/01/06 18:45:02 Update Succeeded Update Execution Time 23 milliseconds.
HRC015DS
Date Sunday Mar 11, 2018 06:54:00 PM
Loaded from MAINT(093)
HRC015DS: ./ R 00112000 $ 00112100 100 HRC015DS: XC STATEFST(STFSTSIZ),STATEFST Clear STATEFST info HRC015DS HRC015DS: ./ R 00297100 $ 00297200 100 HRC015DS: * THE CONTENTS OF 'STATEFST' ARE CLEARED, AND RETURN IS MADE HRC015DS: ./ R 00318100 $ 00318200 100 HRC015DS: XC STATEFST(STFSTSIZ),STATEFST Ensure STATEFST 0 HRC015DS HRC015DS: ./ D 00515100 BEGIN APPLY >>> ./ R 00112000 $ 00112100 100 END APPLY >>> ./ R 00112000 $ 00112100 100 BEGIN APPLY >>> ./ R 00297100 $ 00297200 100 END APPLY >>> ./ R 00297100 $ 00297200 100 BEGIN APPLY >>> ./ R 00318100 $ 00318200 100 END APPLY >>> ./ R 00318100 $ 00318200 100 BEGIN APPLY >>> ./ D 00515100 END APPLY >>> ./ D 00515100 Update Succeeded Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsalu.assemble_hst.txt ยท Last modified: 2023/08/06 13:35 by Site Administrator