DMSALU History

• Abstract / Synopsis of DMSALU
• Latest Source of DMSALU
• Fixes Applied : 3
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC015DS]

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

1. R14031DS 623 UV05198 FILEDEF CLEAR OS FILE (PERM) MAY FAIL MSDMSFRE161T RC=6
2. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
3. HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets

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.

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.

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.