• Abstract / Synopsis of DMKFCB
• Latest Source of DMKFCB
• Fixes Applied : 1
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [R15080DK]

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

1. R15080DK 628 UV06315 COMMAND REJECT ON LOADBUF COMMAND

Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)

       R15080DK: ./ R   6000 7000  $ 6100 100                                            00001000
       R15080DK:          LCLA  &LN,&LEN,&A,&CNT,&X,&Y,&B,&D                    @VA15080 00002000
       R15080DK:          LCLC  &XX,&YY,&C                                      @VA15080 00003000
       R15080DK: ./ I 57000  $ 57100                                                     00004000
       R15080DK: &D       SETA  0                                               @VA15080 00005000
       R15080DK: ./ I 64000  $ 64050 50                                                  00006000
       R15080DK: &B       SETA  &A+2           NEXT LINE VALUE INDEX            @VA15080 00007000
       R15080DK: .DUP     ANOP                                                           00008000
       R15080DK:          AIF   (&D EQ 1).CONT2      ALREADY GAVE ERR7 MNOTE    @VA15080 00009000
       R15080DK:          AIF   (&B GT &CNT).CONT2   PAST LAST LINE VALUE       @VA15080 00010000
       R15080DK: &C       SETC  '&LINE(&B)'    NEXT LINE VALUE                  @VA15080 00011000
       R15080DK:          AIF   (&XX EQ &C).SETFLG   FOUND DUP                  @VA15080 00012000
       R15080DK: &B       SETA  &B+2           INDEX TO NEXT LINE VALUE         @VA15080 00013000
       R15080DK:          AGO   .DUP                                            @VA15080 00014000
       R15080DK: .SETFLG  ANOP                                                           00015000
       R15080DK: &D       SETA  1              INDICATE DUP LINE FOUND          @VA15080 00016000
       R15080DK:          AGO   .ERR7          GIVE INFORMATIONAL MNOTE         @VA15080 00017000
       R15080DK: .CONT2   ANOP                                                           00018000
       R15080DK: ./ R 76000  $ 76100                                                     00019000
       R15080DK: &LEN     SETA  16+&Y          SET UP END OF FORMS              @VA15080 00020000
       R15080DK: *                             @VA15080                                  00021000
       R15080DK: ./ I 129000  $ 129100 100                                               00022000
       R15080DK: .ERR7    ANOP                                                           00023000
       R15080DK:          SPACE 3                                                        00024000
       R15080DK:          MNOTE 2,'***SAME PRINT LINE SPECIFIED MORE THAN ONCE' @VA15080 00025000
       R15080DK:          AGO   .CONT2                                          @VA15080 00026000
       R15080DK: ./ I 211000 $ 211100 100                                                00027000
       R15080DK: *         IF A LINE NUMBER IS ENTERED MORE THAN ONCE, THE LAST          00028000
       R15080DK: *         (LINE,CHANNEL) PAIR OF THE DUPLICATE LINE WILL BE INCLUDED IN 00029000
       R15080DK: *         THE BUFFER LOAD IMAGE, AND AN INFORMATIONAL MNOTE WILL BE     00030000
       R15080DK: *         ISSUED.                                                       00031000
 BEGIN APPLY >>> ./ R   6000 7000  $ 6100 100                                            00001000
   END APPLY >>> ./ R   6000 7000  $ 6100 100                                            00001000
 BEGIN APPLY >>> ./ I 57000  $ 57100                                                     00004000
   END APPLY >>> ./ I 57000  $ 57100                                                     00004000
 BEGIN APPLY >>> ./ I 64000  $ 64050 50                                                  00006000
   END APPLY >>> ./ I 64000  $ 64050 50                                                  00006000
 BEGIN APPLY >>> ./ R 76000  $ 76100                                                     00019000
   END APPLY >>> ./ R 76000  $ 76100                                                     00019000
 BEGIN APPLY >>> ./ I 129000  $ 129100 100                                               00022000
   END APPLY >>> ./ I 129000  $ 129100 100                                               00022000
 BEGIN APPLY >>> ./ I 211000 $ 211100 100                                                00027000
   END APPLY >>> ./ I 211000 $ 211100 100                                                00027000
Update Succeeded
Update Execution Time 16 milliseconds.