• Abstract / Synopsis of DMKLD00E
• Latest Source of DMKLD00E
• Fixes Applied : 3
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [HRC031DK]

CMS File Input : DMKLD00E ASSEMBLE
Date : 12/7/1978 5:08:00 PM
VM Context : MAINT(394)
File Name : DMKLD00E.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

1. R10508DK 609 DMKLD00E PACKUNT ROUTINE FAILS TO CONVERT ADDRESS PRT=0F3
2. R11453DK 615 UV01701 PREVENT A READ * COMMAND FROM OVERLAYING TEXT FILES
3. HRC031DK V01 SUPPRESS OUTPUT TO PRINTER WHEN RUNNING ON BARE MACHINE

Date Tuesday Jan 29, 1980 11:15:00 AM
Loaded from MAINT(294)

       R10508DK: ./ R 2122000 2135000 $ 2122100 500                                      00001000
       R10508DK: PACKUNT  LA    1,3            GET NUMBER OF DIGITS             @VA10508 00002000
       R10508DK:          SR    3,3            CLEAR WORK REG                   @VA10508 00003000
       R10508DK:          LR    4,5            POINT TO DEVICE ADDRESS          @VA10508 00004000
       R10508DK: GETNEXT  MVC   PAREA2,0(4)    LOAD FOR CHECKING                @VA10508 00005000
       R10508DK:          SLL   3,4            SHIFT THE GENERATED ADDRESS      @VA10508 00006000
       R10508DK:          CLI   PAREA2,X'C1'   IS IT A?                         @VA10508 00007000
       R10508DK:          BL    BADDEV         LOWER THAN A -- NO GOOD          @VA10508 00008000
       R10508DK:          CLI   PAREA2,X'C6'   MAYBE F                          @VA10508 00009000
       R10508DK:          BH    NOTALPH        HIGHER THAN F                    @VA10508 00010000
       R10508DK:          XI    PAREA2,X'C0'   CLEAR 'C'                        @VA10508 00011000
       R10508DK:          AH    3,DIG9         ADD ADJUSTMENT                   @VA10508 00012000
       R10508DK:          B     ADDDIG         GO FINISH THE PACK               @VA10508 00013000
       R10508DK: DIG9     DC    X'0009'        ADJUSTMENT NUMBER                @VA10508 00014000
       R10508DK: NOTALPH  CLI   PAREA2,X'F0'   IS IT NUMERIC?                   @VA10508 00015000
       R10508DK:          BL    BADDEV         NO--NOT A VALID DEV ADDRESS      @VA10508 00016000
       R10508DK:          XI    PAREA2,X'F0'   CLEAR 'F'                        @VA10508 00017000
       R10508DK: ADDDIG   AH    3,PAREA        ADD LOW ORDER BITS               @VA10508 00018000
       R10508DK:          LA    4,1(4)         INDEX THE POINTER                @VA10508 00019000
       R10508DK:          BCT   1,GETNEXT      HAVE WE DONE THREE?              @VA10508 00020000
       R10508DK:          STH   3,PAREA1                                        @VA10508 00021000
       R10508DK: ./ D 2139000 2143000 $                                                  00022000
       R10508DK: ./ R 2154000 $ 2154000 500                                              00023000
       R10508DK: PAREA    DC    X'0'                                            @VA10508 00024000
       R10508DK: PAREA2   DC    X'0'                                            @VA10508 00025000
 BEGIN APPLY >>> ./ R 2122000 2135000 $ 2122100 500                                      00001000
   END APPLY >>> ./ R 2122000 2135000 $ 2122100 500                                      00001000
 BEGIN APPLY >>> ./ D 2139000 2143000 $                                                  00022000
   END APPLY >>> ./ D 2139000 2143000 $                                                  00022000
 BEGIN APPLY >>> ./ R 2154000 $ 2154000 500                                              00023000
   END APPLY >>> ./ R 2154000 $ 2154000 500                                              00023000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Jul 29, 1980 06:25:00 AM
Loaded from MAINT(294)

       R11453DK: ./ I 1193000 $ 1193100                                                  00001000
       R11453DK:          MVI   CDCOM,C'*'     REPLACE COLON WITH AN ASTERISK   @VA11453 00002000
 BEGIN APPLY >>> ./ I 1193000 $ 1193100                                                  00001000
   END APPLY >>> ./ I 1193000 $ 1193100                                                  00001000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)

       HRC031DK: ./ R 01336000 01336000 $ 01336000 00000333                              00001000
       HRC031DK: ERPRNT   CLI   CPUID,X'FF'    RUNNING UNDER CP?                HRC031DK 00002000
       HRC031DK:          BNER  R14            NO, MUST BE BARE MACHINE         HRC031DK 00003000
       HRC031DK:          LH    R0,4(,R5)      GET LENGTH                       HRC031DK 00004000
       HRC031DK: ./ R 01391000 01391000 $ 01391000 00000333                              00005000
       HRC031DK: PAGER    CLI   CPUID,X'FF'    UNDER CONTROL OF CP?             HRC031DK 00006000
       HRC031DK:          BNER  R14            NO, NO MAP ON BARE MACHINE       HRC031DK 00007000
       HRC031DK:          LA    8,5  SET UP RETRY COUNTER                       HRC031DK 00008000
       HRC031DK: ./ R 01418000 01418000 $ 01418000 00000250                              00009000
       HRC031DK:          SPACE ,                                               HRC031DK 00010000
       HRC031DK: SET      CLI   CPUID,X'FF'    RUNNING UNDER VM?                HRC031DK 00011000
       HRC031DK:          BNER  R14            NO, FORGET SKIPS TO CH 1         HRC031DK 00012000
       HRC031DK:          SSM   CH0OFF                                          HRC031DK 00013000
       HRC031DK: ./ I 01727000 $ 01727500 00000500                                       00014000
       HRC031DK:          STIDP CPUID          GET CPUID                        HRC031DK 00015000
       HRC031DK: ./ I 01808000 $ 01808500 00000500                                       00016000
       HRC031DK: CPUID    DS    D              CPUID STORED HERE                HRC031DK 00017000
 BEGIN APPLY >>> ./ R 01336000 01336000 $ 01336000 00000333                              00001000
   END APPLY >>> ./ R 01336000 01336000 $ 01336000 00000333                              00001000
 BEGIN APPLY >>> ./ R 01391000 01391000 $ 01391000 00000333                              00005000
   END APPLY >>> ./ R 01391000 01391000 $ 01391000 00000333                              00005000
 BEGIN APPLY >>> ./ R 01418000 01418000 $ 01418000 00000250                              00009000
   END APPLY >>> ./ R 01418000 01418000 $ 01418000 00000250                              00009000
 BEGIN APPLY >>> ./ I 01727000 $ 01727500 00000500                                       00014000
   END APPLY >>> ./ I 01727000 $ 01727500 00000500                                       00014000
 BEGIN APPLY >>> ./ I 01808000 $ 01808500 00000500                                       00016000
   END APPLY >>> ./ I 01808000 $ 01808500 00000500                                       00016000
Update Succeeded
Update Execution Time 47 milliseconds.