DMSASM History
References
-
-
Fixes Applied : 6
-
Last Fix ID : [R14534DS]
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
R08256DS 601 MSDMSITP141T SPECIFICATION EXCEPTION WHEN ASM UNDER
CMS R08638DS 601 DMSASM ONLY ACCEPTS 99 OR LESS FOR VALUE OF LINECOUNT OPTION
R03924DS 601 MESSAGE IFO261 I/O ERROR FOR LARGE ASSEMBLE FILES
R12246DS 618 UV03321 ASM WITH SYSPARM & ENTER BLK GET ERRORS.
R13257DS 621 UV04307 DMSASM MSDMSASM006E EVEN WITH OPTIONS PRINT NOOBJ.
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.