ibm:vm370-lib:cms:dmsasm.assemble_hst
Table of Contents
DMSASM History
References
- Fixes Applied : 6
- Latest Source Date : Tuesday, December 12, 1978
- 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.
ibm/vm370-lib/cms/dmsasm.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator