Table of Contents

DMKCFD History

References

Update History

CMS File Input : DMKCFD ASSEMBLE
Date : 12/7/1978 4:55:00 PM
VM Context : MAINT(394)
File Name : DMKCFD.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

Update Order

  1. R12533DK 622 UV04614 ABENDATS001 WHEN STORE COMMAND CHANGES SHR'D PAGE
  2. HRC104DK V02 LOCATE SYMBOL NAME IN NUCLEUS

R12533DK

Date Tuesday Jun 30, 1981 06:08:00 AM
Loaded from MAINT(294)
       R12533DK: ./ I 352000 $ 352500                                                    00001000
       R12533DK:          LR    R2,R8          GET VITURAL ADDRESS              @VA12533 00002000
 BEGIN APPLY >>> ./ I 352000 $ 352500                                                    00001000
   END APPLY >>> ./ I 352000 $ 352500                                                    00001000
Update Succeeded
Update Execution Time 8 milliseconds.

HRC104DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC104DK: ./ I 00087000          $ 87500 500                    05/02/06 12:37:28
       HRC104DK:          EXTRN DMKCPEND,DMKSYMTB                               HRC104DK 00087500
       HRC104DK: ./ I 00112000          $ 112500 500                   05/02/06 12:37:28
       HRC104DK: *        |          |  SYMBOL_NAME    |                        HRC104DK 00112500
       HRC104DK: ./ R 00142000          $ 142190 190                   05/02/06 12:37:28
       HRC104DK: *        SYMBOL = XXXXXX PAGEABLE, REAL = XXXXXX               HRC104DK 00142190
       HRC104DK: *        SYMBOL = XXXXXX RESIDENT                              HRC104DK 00142190
       HRC104DK: *                                                              HRC104DK 00142380
       HRC104DK: *        VMBLOK = XXXXXX                                       HRC104DK 00142570
       HRC104DK: ./ I 00156000          $ 156500 500                   05/02/06 12:37:28
       HRC104DK: *        DMKCFD1003E XXXXX WAS NOT FOUND. (THIS WILL BE ADDED) HRC104DK 00156000
       HRC104DK: ./ R 00226000          $ 226490 490                   05/02/06 12:37:28
       HRC104DK:          BH    SCNSYM         BRANCH IF TOO MANY CHARACTERS    HRC104DK 00226490
       HRC104DK: ./ I 00249000          $ 249010 10                    05/02/06 12:37:28
       HRC104DK:          B     CFDWRIT        SEND MESSAGE NEXT                HRC104DK 00249010
       HRC104DK:                                                        SPACE , HRC104DK 00249020
       HRC104DK: SCNSYM   DS    0H                                              HRC104DK 00249030
       HRC104DK:          LM    R2,R3,SAVEWRK2 LOAD LENGTH AND ADDRESS OF ARG.  HRC104DK 00249040
       HRC104DK:          L     R1,=A(DMKSYMTB)                                 HRC104DK 00249050
       HRC104DK:          BCTR  R2,0           DECREMENT FOR EXECUTE            HRC104DK 00249060
       HRC104DK:                                                        SPACE , HRC104DK 00249070
       HRC104DK: SCNSYMLP DS    0H                                              HRC104DK 00249080
       HRC104DK:          CLI   0(R1),X'00'    END OF LIST?                     HRC104DK 00249090
       HRC104DK:          BE    SCNSYMDN                                        HRC104DK 00249100
       HRC104DK:          EX    R2,SYMCLC                                       HRC104DK 00249110
       HRC104DK:          BE    SYMFND                                          HRC104DK 00249120
       HRC104DK:          LA    R1,12(,R1)     INCREMENT TO NEXT                HRC104DK 00249130
       HRC104DK:          B     SCNSYMLP                                        HRC104DK 00249140
       HRC104DK:                                                        SPACE , HRC104DK 00249150
       HRC104DK: SYMCLC   CLC   0(0,R3),0(R1)                                   HRC104DK 00249160
       HRC104DK:                                                        SPACE , HRC104DK 00249170
       HRC104DK: SCNSYMDN DS    0H                                              HRC104DK 00249180
       HRC104DK:          B     CFD1003                                         HRC104DK 00249190
       HRC104DK:                                                        SPACE , HRC104DK 00249200
       HRC104DK: SYMFND   DS    0H                                              HRC104DK 00249210
       HRC104DK:          LR    R3,R1          GET ADDRESS OF DATA              HRC104DK 00249220
       HRC104DK:          LA    R0,SYMMSGSZ                                     HRC104DK 00249230
       HRC104DK:          CALL  DMKFREE        GET BUFFER                       HRC104DK 00249240
       HRC104DK:          LR    R10,R1                                          HRC104DK 00249250
       HRC104DK:          USING SYMMSG,R10                                      HRC104DK 00249260
       HRC104DK:          MVC   SYMBOL,0(R3)   MOVE SYMBOL NAME                 HRC104DK 00249270
       HRC104DK:          MVC   SYMBOL+8,=C' = '                                HRC104DK 00249280
       HRC104DK:          L     R1,8(R3)       GET ADDRESS OF DATA              HRC104DK 00249290
       HRC104DK:          CALL  DMKCVTBH                                        HRC104DK 00249300
       HRC104DK:          STCM  R0,B'0011',SYMADR                               HRC104DK 00249310
       HRC104DK:          STCM  R1,B'1111',SYMADR+2                             HRC104DK 00249320
       HRC104DK:          MVC   SYMRES,=C' RESIDENT'                            HRC104DK 00249330
       HRC104DK:          LA    R0,26                                           HRC104DK 00249340
       HRC104DK:          L     R2,8(R3)       GET ADDRESS OF DATA              HRC104DK 00249350
       HRC104DK:          CL    R2,=A(DMKCPEND) END OF NUCLEUS                  HRC104DK 00249360
       HRC104DK:          BNH   SYMADDR                                         HRC104DK 00249370
       HRC104DK:          MVC   SYMRES,=C' PAGEABLE'                            HRC104DK 00249380
       HRC104DK:          L     R15,ASYSVM     SYSTEM VMBLOK                    HRC104DK 00249390
       HRC104DK:          LCTL  C1,C1,VMSEG-VMBLOK(R15) SEGMENT TABLE           HRC104DK 00249400
       HRC104DK:          LRA   R1,0(0,R2)     GET REAL ADDRESS                 HRC104DK 00249410
       HRC104DK:          BNZ   SYMNREAL                                        HRC104DK 00249420
       HRC104DK:          LCTL  C1,C1,VMSEG    RESTORE USERS SEGMENT TABLE      HRC104DK 00249430
       HRC104DK:          MVC   SYMREAL,=C', REAL = '                           HRC104DK 00249440
       HRC104DK:          CALL  DMKCVTBH                                        HRC104DK 00249450
       HRC104DK:          STCM  R0,B'0011',SYMRADR                              HRC104DK 00249460
       HRC104DK:          STCM  R1,B'1111',SYMRADR+2                            HRC104DK 00249470
       HRC104DK:          LA    R0,41                                           HRC104DK 00249480
       HRC104DK:          B     SYMADDR                                         HRC104DK 00249490
       HRC104DK:                                                        SPACE , HRC104DK 00249500
       HRC104DK: SYMNREAL DS    0H                                              HRC104DK 00249510
       HRC104DK:          LCTL  C1,C1,VMSEG    RESTORE USERS SEGMENT TABLE      HRC104DK 00249520
       HRC104DK:                                                        SPACE , HRC104DK 00249530
       HRC104DK: SYMADDR  DS    0H                                              HRC104DK 00249540
       HRC104DK:          LR    R1,R10                                          HRC104DK 00249550
       HRC104DK:          CALL  DMKQCNWT,PARM=NORET SEND MESSAGE                HRC104DK 00249560
       HRC104DK:          LA    R0,SYMMSGSZ    SIZE OF BUFFER                   HRC104DK 00249570
       HRC104DK:          B     CFDFRET                                         HRC104DK 00249580
       HRC104DK: ./ R 00255000          $ 255490 490                   05/02/06 12:37:28
       HRC104DK: CFDFRET  LR    R1,R10         ADDRESS OF BUFFER                HRC104DK 00255490
       HRC104DK: ./ I 00411000          $ 411500 500                   05/02/06 12:37:28
       HRC104DK: CFD1003  EQU   *              LATER                            HRC104DK
       HRC104DK: ./ I 00443000          $ 443100 100                   05/02/06 12:37:28
       HRC104DK:          SPACE 3 ,                                             HRC104DK 00443100
       HRC104DK: SYMMSG   DSECT                                                 HRC104DK 00443200
       HRC104DK: SYMBOL   DS    CL8                                             HRC104DK 00443300
       HRC104DK:          DS    CL3                                             HRC104DK 00443400
       HRC104DK: SYMADR   DS    CL6                                             HRC104DK 00443500
       HRC104DK: SYMRES   DS    CL9                                             HRC104DK 00443600
       HRC104DK: SYMREAL  DS    CL9               ', REAL = '                   HRC104DK 00443700
       HRC104DK: SYMRADR  DS    CL6                                             HRC104DK 00443800
       HRC104DK: SYMMSGSZ EQU   (*-SYMMSG+7)/8   SIZE IN DOUBLE WORDS           HRC104DK 00443900
 BEGIN APPLY >>> ./ I 00087000          $ 87500 500                    05/02/06 12:37:28
   END APPLY >>> ./ I 00087000          $ 87500 500                    05/02/06 12:37:28
 BEGIN APPLY >>> ./ I 00112000          $ 112500 500                   05/02/06 12:37:28
   END APPLY >>> ./ I 00112000          $ 112500 500                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ R 00142000          $ 142190 190                   05/02/06 12:37:28
   END APPLY >>> ./ R 00142000          $ 142190 190                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ I 00156000          $ 156500 500                   05/02/06 12:37:28
   END APPLY >>> ./ I 00156000          $ 156500 500                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ R 00226000          $ 226490 490                   05/02/06 12:37:28
   END APPLY >>> ./ R 00226000          $ 226490 490                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ I 00249000          $ 249010 10                    05/02/06 12:37:28
   END APPLY >>> ./ I 00249000          $ 249010 10                    05/02/06 12:37:28
 BEGIN APPLY >>> ./ R 00255000          $ 255490 490                   05/02/06 12:37:28
   END APPLY >>> ./ R 00255000          $ 255490 490                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ I 00411000          $ 411500 500                   05/02/06 12:37:28
   END APPLY >>> ./ I 00411000          $ 411500 500                   05/02/06 12:37:28
 BEGIN APPLY >>> ./ I 00443000          $ 443100 100                   05/02/06 12:37:28
   END APPLY >>> ./ I 00443000          $ 443100 100                   05/02/06 12:37:28
Update Succeeded
Update Execution Time 23 milliseconds.