Table of Contents

DMSASM History

References

Update History

CMS File Input : DMSASM ASSEMBLE
Date : 12/12/1978 8:21:00 AM
VM Context : MAINT(393)
File Name : DMSASM.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM

Update Order

  1. R08256DS 601 MSDMSITP141T SPECIFICATION EXCEPTION WHEN ASM UNDER CMS
  2. R08638DS 601 DMSASM ONLY ACCEPTS 99 OR LESS FOR VALUE OF LINECOUNT OPTION
  3. R03924DS 601 MESSAGE IFO261 I/O ERROR FOR LARGE ASSEMBLE FILES
  4. R12246DS 618 UV03321 ASM WITH SYSPARM & ENTER BLK GET ERRORS.
  5. R13257DS 621 UV04307 DMSASM MSDMSASM006E EVEN WITH OPTIONS PRINT NOOBJ.
  6. R14534DS 625 UV05644 DMSASM SHOULD DO STATE TO FM SPECIFIED IN FILEDEF

R08256DS

Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)
       R08256DS: ./ I 00883000 $ 00883400 200                                            00001400
       R08256DS:          LH    R6,FCBITEM         GET ITEM NO                  @VA08256 00001500
       R08256DS:          N     R6,HALFWORD        MASK LEFT HALF               @VA08256 00001600
       R08256DS: FREELOOP EQU *                                                 @VA08256 00001700
       R08256DS: ./ I 00886000 $ 00886100 100                                            00001800
       R08256DS:          LA    R6,1(R6)           TAKE NEXT                    @VA08256 00001900
       R08256DS:          CH    R6,UTCORENT        DO WE HAVE IT                @VA08256 00002000
       R08256DS:          BH    FREEDONE           BR IF WE DON'T               @VA08256 00002100
       R08256DS:          LR    R4,R6              DO NOT CHANGE R6             @VA08256 00002200
       R08256DS:          SLL   R4,3               ADJUST INDEX TO ENTRY TBL    @VA08256 00002300
       R08256DS:          LA    R2,0(R5,R4)        POINT TO PROPER ENTRY        @VA08256 00002400
       R08256DS:          B     FREELOOP           GO TO FREEMAIN               @VA08256 00002500
       R08256DS: FREEDONE EQU *                                                 @VA08256 00002600
       R08256DS: ./ R 00899000 $ 00899000                                                00002700
       R08256DS:          BNP   LT256              NO.. JUST ONE PASS           @VA08256 00002800
       R08256DS: ./ R 00948000 $ 00948000                                                00002900
       R08256DS: UTGET2   STH   R6,UTCORENT        MAKE FCBITEM OUR LAST ENTRY  @VA08256 00003000
       R08256DS: ./ R 00952000 $ 00952000                                                00003100
       R08256DS:          SLL   R6,3               ADJUST INDEX TO ENTRY TBL    @VA08256 00003200
 BEGIN APPLY >>> ./ I 00883000 $ 00883400 200                                            00001400
   END APPLY >>> ./ I 00883000 $ 00883400 200                                            00001400
 BEGIN APPLY >>> ./ I 00886000 $ 00886100 100                                            00001800
   END APPLY >>> ./ I 00886000 $ 00886100 100                                            00001800
 BEGIN APPLY >>> ./ R 00899000 $ 00899000                                                00002700
   END APPLY >>> ./ R 00899000 $ 00899000                                                00002700
 BEGIN APPLY >>> ./ R 00948000 $ 00948000                                                00002900
   END APPLY >>> ./ R 00948000 $ 00948000                                                00002900
 BEGIN APPLY >>> ./ R 00952000 $ 00952000                                                00003100
   END APPLY >>> ./ R 00952000 $ 00952000                                                00003100
Update Succeeded
Update Execution Time 23 milliseconds.

R08638DS

Date Friday Jan 26, 1979 01:04:00 AM
Loaded from MAINT(193)
       R08638DS: ./ R 00036000 $ 00036000                                                00000400
       R08638DS: *                BUFSIZE (STD) | BUFSIZE (MIN) | BUFSIZE (MAX)          00000500
       R08638DS: ./ R 00041000 $ 00041000                                                00000600
       R08638DS: *                LINECNT (55) | LINECNT (NNN)                           00000700
       R08638DS: ./ I 00053000 $ 00053100 100                                            00000800
       R08638DS: *                WORKSIZE (2048) | WORKSIZE (N) |WORKSIZE (NK)          00000900
       R08638DS: ./ R 00469000 $ 00469000                                                00001000
       R08638DS: *        CH    R2,H2              MAX LINECOUNT LENGTH ?       @VA08638 00001100
       R08638DS: ./ R 00470000 $ 00470000                                                00001200
       R08638DS: *        BH    NOTNUM             YES..GIVE ERROR              @VA08638 00001300
 BEGIN APPLY >>> ./ R 00036000 $ 00036000                                                00000400
   END APPLY >>> ./ R 00036000 $ 00036000                                                00000400
 BEGIN APPLY >>> ./ R 00041000 $ 00041000                                                00000600
   END APPLY >>> ./ R 00041000 $ 00041000                                                00000600
 BEGIN APPLY >>> ./ I 00053000 $ 00053100 100                                            00000800
   END APPLY >>> ./ I 00053000 $ 00053100 100                                            00000800
 BEGIN APPLY >>> ./ R 00469000 $ 00469000                                                00001000
   END APPLY >>> ./ R 00469000 $ 00469000                                                00001000
 BEGIN APPLY >>> ./ R 00470000 $ 00470000                                                00001200
   END APPLY >>> ./ R 00470000 $ 00470000                                                00001200
Update Succeeded
Update Execution Time 31 milliseconds.

R03924DS

Date Thursday Feb 22, 1979 02:22:00 AM
Loaded from MAINT(193)
       R03924DS: ./ I 873000 $                                                           00001000
       R03924DS:          TM    UTRECAD,ONDISK IS THIS RECORD IN CORE?          @VA03924 00002000
       R03924DS:          BO    SYSUTX         BRANCH IF NOT                    @VA03924 00003000
       R03924DS: ./ I 958000 $                                                           00004000
       R03924DS:          LH    R6,FCBITEM     GET ITEM NUMBER                  @VA03924 00005000
       R03924DS:          CH    R6,UTCORENT    WAS RECORD IN CORE?              @VA03924 00006000
       R03924DS:          BH    UTGET3         BRANCH IF NOT                    @VA03924 00007000
       R03924DS:          OI    UTRECAD,ONDISK INDICATE ON DISK                 @VA03924 00008000
       R03924DS:          NI    ASMSW2,255-TODISK TURN OFF SWITCH               @VA03924 00009000
       R03924DS:          B     SYSUTX                                          @VA03924 00010000
       R03924DS: UTGET3   EQU   *                                               @VA03924 00011000
       R03924DS: ./ D 965000                                                             00012000
       R03924DS: ./ I 1423000 $                                                          00013000
       R03924DS: ONDISK   EQU   X'80'          RECORD ON DISK IND.              @VA03924 00014000
 BEGIN APPLY >>> ./ I 873000 $                                                           00001000
   END APPLY >>> ./ I 873000 $                                                           00001000
 BEGIN APPLY >>> ./ I 958000 $                                                           00004000
   END APPLY >>> ./ I 958000 $                                                           00004000
 BEGIN APPLY >>> ./ D 965000                                                             00012000
   END APPLY >>> ./ D 965000                                                             00012000
 BEGIN APPLY >>> ./ I 1423000 $                                                          00013000
   END APPLY >>> ./ I 1423000 $                                                          00013000
Update Succeeded
Update Execution Time 16 milliseconds.

R12246DS

Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
       R12246DS: ./ I 00529000  $  00529300 300
       R12246DS:          LTR   R2,R2              SEE IF ITS START OF INPUT    @VA12246
       R12246DS:          BZ    RESTOSIX           YES, ALL BLNK, TREAT AS NULL @VA12246
       R12246DS: ./ R 00532000  $  00532000
       R12246DS: RESTOSIX LR    R6,R1              RESTORE REG. 6               @VA12246
 BEGIN APPLY >>> ./ I 00529000  $  00529300 300
   END APPLY >>> ./ I 00529000  $  00529300 300
 BEGIN APPLY >>> ./ R 00532000  $  00532000
   END APPLY >>> ./ R 00532000  $  00532000
Update Succeeded
Update Execution Time 23 milliseconds.

R13257DS

Date Wednesday Jun 10, 1981 04:28:00 AM
Loaded from MAINT(193)
       R13257DS: ./ I 00397000  $  00397500 50
       R13257DS:          CLC   0(5,R6),NOOBJ      IS THIS OPTION NOOBJ(ECT)?   @VA13257
       R13257DS:          BNE   NOBITSC            NO, CONTINUE                 @VA13257
       R13257DS:          OI    ASMSWA,NOOBJECT    YES                          @VA13257
       R13257DS: NOBITSC  EQU   *
       R13257DS: ./ I 01075000  $  01075500 50
       R13257DS: ASMSWA   DC    X'0'                                            @VA13257
       R13257DS: NOOBJECT EQU   X'01'              NOOBJ(ECT) OPTION SPECIFIED  @VA13257
       R13257DS: *                                                              @VA13257
       R13257DS: ./ I 01268000  $  01268500 50
       R13257DS: *                                                              @VA13257
       R13257DS: NOOBJ    DC    CL5'NOOBJ'         NOOBJ(ECT) OPTION            @VA13257
       R13257DS: *                                                              @VA13257
       R13257DS: ./ I 01360000  $  01360500 50
       R13257DS:          TM    ASMSW,PRINT+NOPRINT NEED R/W DISK FOR LISTING?  @VA13257
       R13257DS:          BZ    ERR6A              YES, ISSUE ERROR MESSAGE.    @VA13257
       R13257DS:          TM    ASMSWA,NOOBJECT     NEED R/W DISK FOR TEXT?     @VA13257
       R13257DS:          BO    ERASE              NO, CONTINUE ASSEMBLY.       @VA13257
       R13257DS: ERR6A    EQU   *                  YES, ISSUE ERROR MESSAGE.    @VA13257
 BEGIN APPLY >>> ./ I 00397000  $  00397500 50
   END APPLY >>> ./ I 00397000  $  00397500 50
 BEGIN APPLY >>> ./ I 01075000  $  01075500 50
   END APPLY >>> ./ I 01075000  $  01075500 50
 BEGIN APPLY >>> ./ I 01268000  $  01268500 50
   END APPLY >>> ./ I 01268000  $  01268500 50
 BEGIN APPLY >>> ./ I 01360000  $  01360500 50
   END APPLY >>> ./ I 01360000  $  01360500 50
Update Succeeded
Update Execution Time 16 milliseconds.

R14534DS

Date Tuesday Nov 03, 1981 04:27:00 PM
Loaded from MAINT(193)
       R14534DS: ./ I 00591000          $ 00591060 60
       R14534DS:          LH    R7,FCBNUM          GET NUMBER OF FCB'S.         @VA14534
       R14534DS:          LTR   R7,R7              ARE THERE ANY?               @VA14534
       R14534DS:          BZ    DOASTATE           NO, GO DO THE STATE.         @VA14534
       R14534DS:          L     R6,FCBFIRST        GET THE FIRST ONE.           @VA14534
       R14534DS: CHKNAME  EQU   *                                               @VA14534
       R14534DS:          CLC   DDASSEM,FCBDD      IS IT FOR ASSEMBLE DD?       @VA14534
       R14534DS:          BNE   NOMATCH            NO, SKIP CHECKING FN.        @VA14534
       R14534DS:          CLC   STATNAME,FCBDSNAM  SEE IF IT MATCHES THIS FILE. @VA14534
       R14534DS:          BNE   NOMATCH            NO, SKIP SETTING FM.         @VA14534
       R14534DS:          MVC   STATMODE,FCBDSMD   YES, SET FM FOR STATE.       @VA14534
       R14534DS:          B     DOASTATE           GO AND DO THE STATE.         @VA14534
       R14534DS: NOMATCH  EQU   *                                               @VA14534
       R14534DS:          L     R6,0(,R6)          GET POINTER TO NEXT FCB.     @VA14534
       R14534DS:          BCT   R7,CHKNAME         KEEP LOOKING UNTIL NO MORE.  @VA14534
       R14534DS: DOASTATE EQU   *                                               @VA14534
 BEGIN APPLY >>> ./ I 00591000          $ 00591060 60
   END APPLY >>> ./ I 00591000          $ 00591060 60
Update Succeeded
Update Execution Time 16 milliseconds.