Retro1.org codex

User Tools

Site Tools

Trace: • DMKRGB History
ibm:vm370-lib:cp:dmkrgb.assemble_hst

Table of Contents

DMKRGB History

References

Update History

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

Update Order

  1. R09296DK 601 REASSEMBLE FOR V09296
  2. R08981DK 601 WRONG TRANSLATION TABLE USED
  3. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  4. R09182DK 606 INCORRECT MOVE IF 256 CHARS FOLLOW COMPOUND CHAR
  5. R08995DK 606 ABENDRGA001 WHEN UNIT EXCEPTION ON WRITE TEXT
  6. R10567DK 610 PREVENT REDISPLAY PASSWORD ON LOGON D/T 3278
  7. R09707DK 614 UV00769 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
  8. R11623DK 618 UV01795 NET SHUTDOWN CMD ALLOWS OTHER NET CMDS TO EXECUTE
  9. R11787DK 618 UV02014 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
  10. R13071DK 621 UV04292 LOK001 AFTER UNSOLICITED IFCC DURING LOGON
  11. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
  12. R13944DK 625 UV05417 BISYNC ERROR RECOVERY IS NOT CORRECT

R09296DK

Date Monday Jan 29, 1979 02:39:00 PM
Loaded from MAINT(294)
       R09296DK: ./ * REASSEMBLE FOR V09296                                              00001000
 BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
     Comment >>> ./ * REASSEMBLE FOR V09296                                              00001000
   END APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R08981DK

Date Monday Feb 26, 1979 04:32:00 PM
Loaded from MAINT(294)
       R08981DK: ./ R 783100 783200 $ 783050 100                                         00001000
       R08981DK:          TM    NICTMCD,NICTEXT+NICAPL TEXT OR APL TRANSLATION  @VA08981 00002000
       R08981DK:          BNZ   USEGRTAB       YES, USE DMKTBLGR                @VA08981 00003000
 BEGIN APPLY >>> ./ R 783100 783200 $ 783050 100                                         00001000
   END APPLY >>> ./ R 783100 783200 $ 783050 100                                         00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R09957DK

Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)
       R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.

R09182DK

Date Friday Nov 02, 1979 04:18:00 AM
Loaded from MAINT(294)
       R09182DK: ./ R 1131000 $ 1131100 100                                              00001000
       R09182DK:          BCTR  R3,0           SUBTRACT ONE FOR EXECUTE         @VA09182 00002000
       R09182DK:          EX    R3,MOVEAPL     MOVE DATA TO BUFFER              @VA09182 00003000
       R09182DK:          LA    R3,1(,R3)      RESET BYTE COUNT                 @VA09182 00004000
 BEGIN APPLY >>> ./ R 1131000 $ 1131100 100                                              00001000
   END APPLY >>> ./ R 1131000 $ 1131100 100                                              00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R08995DK

Date Friday Nov 02, 1979 10:12:00 AM
Loaded from MAINT(294)
       R08995DK: ./ R 560200 560600 $ 560200 200                                         00001000
       R08995DK: WRT77CCW DC    X'01',AL3(0),AL1(SILI+CC,X'0A'),AL2(0)          @VA08995 00002000
       R08995DK: FMT77CCW DC    X'01',AL3(0),AL1(SILI+CD,X'0A'),AL2(FMT77L+3)   @VA08995 00003000
       R08995DK: FMTLOGO  DC    X'00',AL3(0),AL1(SILI+CC,X'0A'),AL2(785)        @VA08995 00004000
       R08995DK: ./ R 00981400 $ 00981400                                                00005000
       R08995DK:          CLI   5(R1),X'0A'    IS THIS A WRITE TEXT OPERATION ? @VA08995 00006000
       R08995DK: ./ R 1197100 1197200 $ 1197100 100                                      00007000
       R08995DK: WRT77RUN DC    X'00',AL3(RUN3277+1),AL1(SILI+CC,X'0A')         @VA08995 00008000
       R08995DK:          DC    AL2(RUN77L-1)                                   @VA08995 00009000
 BEGIN APPLY >>> ./ R 560200 560600 $ 560200 200                                         00001000
   END APPLY >>> ./ R 560200 560600 $ 560200 200                                         00001000
 BEGIN APPLY >>> ./ R 00981400 $ 00981400                                                00005000
   END APPLY >>> ./ R 00981400 $ 00981400                                                00005000
 BEGIN APPLY >>> ./ R 1197100 1197200 $ 1197100 100                                      00007000
   END APPLY >>> ./ R 1197100 1197200 $ 1197100 100                                      00007000
Update Succeeded
Update Execution Time 23 milliseconds.

R10567DK

Date Friday Mar 14, 1980 03:14:00 AM
Loaded from MAINT(294)
       R10567DK: ./ * FORCE REASSEMBLY FOR APAR VM10567
 BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
     Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
   END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM10567
Update Succeeded
Update Execution Time 8 milliseconds.

R09707DK

Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
       R09707DK: ./ I 863000 $ 863020 20                                                 00001000
       R09707DK:          LH    R1,VMVTERM     VIRT TERM DISPLACEMENT           @VA09707 00002000
       R09707DK:          LTR   R1,R1          IS THERE A VIRT TERMINAL?        @VA09707 00003000
       R09707DK:          BM    NOSTACK        NO, STACKED INPUT IMPOSSIBLE     @VA09707 00004000
       R09707DK:          AL    R1,VMDVSTRT    POINT TO VDEVBLOK                @VA09707 00005000
       R09707DK:          L     R2,VDEVCON-VDEVBLOK(,R1) POINT TO VCONCTL       @VA09707 00006000
       R09707DK:          L     R4,VCONRBUF-VCONCTL(,R2) IS THERE...            @VA09707 00007000
       R09707DK:          LTR   R4,R4          ...A STACKED INPUT LINE?         @VA09707 00008000
       R09707DK:          BZ    NOSTACK        NO, BUSINESS AS USUAL            @VA09707 00009000
       R09707DK:          LH    R3,VCONRCNT-VCONCTL(,R2) STACKED LINE COUNT     @VA09707 00010000
       R09707DK:          LH    R1,CONCNT      GET COUNT ASKED FOR              @VA09707 00011000
       R09707DK:          CLR   R1,R3          IS IT LESS THAN WE HAVE?         @VA09707 00012000
       R09707DK:          BNL   CNTOK          NO, CONTINUE                     @VA09707 00013000
       R09707DK:          LR    R3,R1          SET COUNT TO MAX EXPECTED        @VA09707 00014000
       R09707DK: CNTOK    DS    0H                                              @VA09707 00015000
       R09707DK:          STH   R3,CONCNT      SET DATA COUNT                   @VA09707 00016000
       R09707DK:          L     R1,CONRETN     GET RETURN SAVEAREA ADDRESS      @VA09707 00017000
       R09707DK:          ST    R3,SAVER0-SAVEAREA(,R1) SET RETURN BYTE COUNT   @VA09707 00018000
       R09707DK:          LTR   R3,R3          ANY DATA RETURNED?               @VA09707 00019000
       R09707DK:          BZ    NOSTKDAT       NO, DON'T MOVE ANYTHING          @VA09707 00020000
       R09707DK:          L     R1,CONADDR     GET CALLER'S BUFFER ADDRESS      @VA09707 00021000
       R09707DK:          BCTR  R3,0           LENGTH MINUS 1 FOR MOVE          @VA09707 00022000
       R09707DK:          EX    R3,MOVEDATA    MOVE DATA TO BUFFER              @VA09707 00023000
       R09707DK: NOSTKDAT DS    0H                                              @VA09707 00024000
       R09707DK:          LA    R0,BUFSIZE     SIZE OF READ BUFFER              @VA09707 00025000
       R09707DK:          LR    R1,R4          ADDRESS OF READ BUFFER           @VA09707 00026000
       R09707DK:          LA    R1,0(,R1)      CLEAR HIGH ORDER BYTE            @VA09707 00027000
       R09707DK:          LTR   R1,R1          IS ADDRESS ZERO?                 @VA09707 00028000
       R09707DK:          BZ    CLREG0         YES, CLEAR REGISTER ZERO         @VA09707 00029000
       R09707DK:          CALL  DMKFRET        RELEASE VCONRBUF STORAGE         @VA09707 00030000
       R09707DK: CLREG0   DS    0H                                              @VA09707 00031000
       R09707DK:          SR    R0,R0          CLEAR REG                        @VA09707 00032000
       R09707DK:          ST    R0,BSCRPTR     CLEAR RESIDUAL POINTER           @VA09707 00033000
       R09707DK:          ST    R0,VCONRBUF-VCONCTL(,R2) DESTROY THE EVIDENCE   @VA09707 00034000
       R09707DK:          OI    CONPARM,INHIBIT DON'T SPOOL IT TWICE            @VA09707 00035000
       R09707DK:          OI    CONSTAT,CONESCP+CONACTV INDICATE CONTASK...     @VA09707 00036000
       R09707DK: *         ...PROCESSED. WE'LL RETURN IT NOW...                          00037000
       R09707DK:          BAL   R3,CONRET      RETURN CONTASK, AVOIDING...      @VA09707 00038000
       R09707DK: RESEOT   DS    0H             ...ACTUALLY PUTTING UP A READ    @VA09707 00039000
       R09707DK:          XC    BSCCNT(2),BSCCNT CLEAR RETRY COUNT              @VA09707 00040000
       R09707DK:          BAL   R3,BLDIOB      DON'T TRY THIS WITHOUT AN IOB    @VA09707 00041000
       R09707DK:          LA    R1,RESETEOT    ADDRESS OF RESET CCW             @VA09707 00042000
       R09707DK:          BAL   R7,SETCAW      RESTART I/O OPERATION TO LINE    @VA09707 00043000
       R09707DK: NOSTACK  DS    0H                                              @VA09707 00044000
       R09707DK: ./ I 1173200 $ 1173300                                                  00045000
       R09707DK: MOVEDATA MVC   0(*-*,R1),0(R4) MOVE DATA INTO BUFFER           @VA09707 00046000
       R09707DK: ./ I 1197200 $ 1197300                                                  00047000
       R09707DK: RESETEOT DC    X'01',AL3(RGFEOT),AL1(SILI,X'09'),AL2(1)        @VA09707 00048000
 BEGIN APPLY >>> ./ I 863000 $ 863020 20                                                 00001000
   END APPLY >>> ./ I 863000 $ 863020 20                                                 00001000
 BEGIN APPLY >>> ./ I 1173200 $ 1173300                                                  00045000
   END APPLY >>> ./ I 1173200 $ 1173300                                                  00045000
 BEGIN APPLY >>> ./ I 1197200 $ 1197300                                                  00047000
   END APPLY >>> ./ I 1197200 $ 1197300                                                  00047000
Update Succeeded
Update Execution Time 23 milliseconds.

R11623DK

Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
       R11623DK: ./ I 406000 $ 406050 50
       R11623DK:          OI    BSCFLAG1,BSCSHUT SYNCRONIZE SHUTDOWN            @VA11623
       R11623DK: ./  R 414000 $ 414100 100
       R11623DK:          LA    R4,RGFEXIT1    GET THE EXECUTION ADDRESS        @VA11623
       R11623DK: ./ R 418000 $ 418100 100                                                00001000
       R11623DK: RGFEXIT1 DS    0H                                              @VA11623 00002000
       R11623DK:          TM    BSCFLAG1,BSCSHUT SHUTDOWN FINISHED?             @VA11623 00002000
       R11623DK:          BNO   RGFEXIT        YES, TELL DMKNES                 @VA11623 00003000
       R11623DK:          LA    R4,RGFEXIT1    GET RETURN ADDRESS               @VA11623 00004000
       R11623DK:          BAL   R7,STKCPEX     WAIT FOR SHUTDOWN TO FINISH      @VA11623 00005000
       R11623DK:          B     GODSPCH        ...                              @VA11623 00006000
       R11623DK: RGFEXIT  DS    0H                                              @VA11623 00007000
 BEGIN APPLY >>> ./ I 406000 $ 406050 50
   END APPLY >>> ./ I 406000 $ 406050 50
 BEGIN APPLY >>> ./  R 414000 $ 414100 100
   END APPLY >>> ./  R 414000 $ 414100 100
 BEGIN APPLY >>> ./ R 418000 $ 418100 100                                                00001000
   END APPLY >>> ./ R 418000 $ 418100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R11787DK

Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
       R11787DK: ./ D 863020 863860                                                      00001000
       R11787DK: ./ D 1173300                                                            00002000
       R11787DK: ./ D 1197300                                                            00003000
 BEGIN APPLY >>> ./ D 863020 863860                                                      00001000
   END APPLY >>> ./ D 863020 863860                                                      00001000
 BEGIN APPLY >>> ./ D 1173300                                                            00002000
   END APPLY >>> ./ D 1173300                                                            00002000
 BEGIN APPLY >>> ./ D 1197300                                                            00003000
   END APPLY >>> ./ D 1197300                                                            00003000
Update Succeeded
Update Execution Time 16 milliseconds.

R13071DK

Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
       R13071DK: ./ D 1298000 1302000                                                    00001000
 BEGIN APPLY >>> ./ D 1298000 1302000                                                    00001000
   END APPLY >>> ./ D 1298000 1302000                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12941DK

Date Tuesday Jul 07, 1981 01:36:00 PM
Loaded from MAINT(294)
       R12941DK: ./ *
 BEGIN APPLY >>> ./ *
     Comment >>> ./ *
   END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.

R13944DK

Date Wednesday Oct 14, 1981 10:08:00 AM
Loaded from MAINT(294)
       R13944DK: ./ R 560200 560600 $ 560000 500                                         00001000
       R13944DK: WRT77CCW DC    X'01',AL3(0),AL1(SILI+CC,X'10'),AL2(0)          @VA13944 00002000
       R13944DK: FMT77CCW DC    X'01',AL3(0),AL1(SILI+CD,X'10'),AL2(FMT77L+3)   @VA13944 00002000
       R13944DK: FMTLOGO  DC    X'01',AL3(0),AL1(SILI+CC,X'10'),AL2(785)        @VA13944 00002000
       R13944DK: ./ R 981400 $ 981400 100                                                00003000
       R13944DK:          CLI   5(R1),X'10'    IS THIS A WRITE TEXT CCW         @VA13944 00004000
       R13944DK: ./ R 1197100 $ 1197100 100                                              00004000
       R13944DK: WRT77RUN DC    X'00',AL3(RUN3277+1),AL1(SILI+CC,X'10')         @VA13944 00004000
 BEGIN APPLY >>> ./ R 560200 560600 $ 560000 500                                         00001000
   END APPLY >>> ./ R 560200 560600 $ 560000 500                                         00001000
 BEGIN APPLY >>> ./ R 981400 $ 981400 100                                                00003000
   END APPLY >>> ./ R 981400 $ 981400 100                                                00003000
 BEGIN APPLY >>> ./ R 1197100 $ 1197100 100                                              00004000
   END APPLY >>> ./ R 1197100 $ 1197100 100                                              00004000
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkrgb.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator