ibm:vm370-lib:cms:dmsint.assemble_hst
Table of Contents
DMSINT History
References
- Fixes Applied : 5
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC015DS]
Update History
CMS File Input : DMSINT ASSEMBLE
Date : 12/12/1978 8:28:00 AM
VM Context : MAINT(393)
File Name : DMSINT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R10314DS 608 DMSINT DID NOT CORRECTLY HANDLE INVALID SUBSET COMMANDS
- R10491DS 614 UV00398 DMSINT CMS SUBSET RESETS EXT INTERRUPT TRAP
- R12058DS 618 UV02814 SUBSET FAILS TO SET AND RESET STAX EXIT.
- HRC011DS V01 CHANGE READY PROMPT TO MATCH CURRENT FLAVORS OF CMS
- HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets
R10314DS
Date Friday Dec 28, 1979 12:18:00 PM
Loaded from MAINT(193)
R10314DS: ./ R 396080 $ 396080 5
R10314DS: TM SUBFLAG,SUBRTN SHOULD WE ALSO RETURN? @VA10314
R10314DS: BZ INVSUB BR IF NOT RETURN, TELL USER. @VA10314
R10314DS: LH R15,=H'-2' MAKE BELEIVE A BAD LOADMOD @VA10314
R10314DS: B FROMCMD AND RETURN TO THE USER. @VA10314
BEGIN APPLY >>> ./ R 396080 $ 396080 5
END APPLY >>> ./ R 396080 $ 396080 5
Update Succeeded
Update Execution Time 16 milliseconds.
R10491DS
Date Monday Jun 30, 1980 06:30:00 AM
Loaded from MAINT(193)
R10491DS: ./ R 302000 $ 302000
R10491DS: BO INLOOP2 BRANCH, GO AND READ COMMAND @VA10491
R10491DS: ./ I 549000 $ 549200 200
R10491DS: TM SUBFLAG,X'01' CMS SUBSET? @VA10491
R10491DS: BO INLOOP2 YES, DO NOT RESET @VA10491
BEGIN APPLY >>> ./ R 302000 $ 302000
END APPLY >>> ./ R 302000 $ 302000
BEGIN APPLY >>> ./ I 549000 $ 549200 200
END APPLY >>> ./ I 549000 $ 549200 200
Update Succeeded
Update Execution Time 16 milliseconds.
R12058DS
Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
R12058DS: ./ I 00508000 $ 508100 100 10/09/80 22:13:02
R12058DS: SPACE 1 @VA12058
R12058DS: * NOW SAVE THE STAX POINTER SO THAT SUBSET CAN HAVE @VA12058
R12058DS: * THE CONSOLE INTERRUPTS. @VA12058
R12058DS: SPACE 1 @VA12058
R12058DS: MVC STAXSAV(4),TAXEADDR SAVE STAX POINTER @VA12058
R12058DS: ST R15,TAXEADDR ZERO IT. NOW SUBSET OWNS CONSOLE @VA12058
R12058DS: ./ I 00573200 $ 573300 100 10/09/80 22:13:02
R12058DS: SPACE 1 @VA12058
R12058DS: * RESTORE THE STAX @VA12058
R12058DS: SPACE 1 @VA12058
R12058DS: MVC TAXEADDR(4),STAXSAV RESET STAX POINTER @VA12058
BEGIN APPLY >>> ./ I 00508000 $ 508100 100 10/09/80 22:13:02
END APPLY >>> ./ I 00508000 $ 508100 100 10/09/80 22:13:02
BEGIN APPLY >>> ./ I 00573200 $ 573300 100 10/09/80 22:13:02
END APPLY >>> ./ I 00573200 $ 573300 100 10/09/80 22:13:02
Update Succeeded
Update Execution Time 16 milliseconds.
HRC011DS
Date Sunday Mar 05, 2006 09:45:00 PM
Loaded from MAINT(093)
HRC011DS: ./ R 00441000 $ 441490 490 03/05/06 21:45:05
HRC011DS: MVC RMSGBUF+7(9),=C'Ready; T=' HRC011DS 00441490
HRC011DS: ./ R 00447000 $ 447490 490 03/05/06 21:45:05
HRC011DS: LA R1,7(,R1) INCREMENT BYTE COUNT CORRECTLY HRC011DS 00447490
HRC011DS: ./ R 00452100 $ 452490 390 03/05/06 21:45:05
HRC011DS: MVI RMSGBUF+13,X'15' HRC011DS 00452490
HRC011DS: ./ R 00610000 $ 610490 490 03/05/06 21:45:05
HRC011DS: LA R1,RMSGBUF+16 ADDRESS OF OUR BUFFER HRC011DS 00610490
HRC011DS: ./ R 00615000 $ 615490 490 03/05/06 21:45:05
HRC011DS: LA R1,RMSGBUF+16 ADDR OF BUFFER (WITH TIMES NOW) PHRC011DS 00615490
HRC011DS: ./ R 00684000 00686000 $ 684490 490 03/05/06 21:45:05
HRC011DS: MVC RMSGBUF(17),=C'Ready(NUMBR); T=' HRC011DS 00684490
HRC011DS: UNPK RMSGBUF+6(5),ERRNUM+5(3) MOVE TO TYPEOUT HRC011DS 00684980
HRC011DS: OI RMSGBUF+10,X'F0' FIX UP END CHARACTER TO BE PHRC011DS 00685470
HRC011DS: ./ R 00686300 $ 686590 290 03/05/06 21:45:05
HRC011DS: MVI RMSGBUF+6,C'-' MINUS RETURN CODE HRC011DS 00686590
HRC011DS: ./ R 00692000 $ 692490 490 03/05/06 21:45:05
HRC011DS: LA R1,14(,R1) INCR BY L' R(NUMBR) HRC011DS 00692490
HRC011DS: ./ R 00700050 $ 700440 390 03/05/06 21:45:05
HRC011DS: MVI RMSGBUF+13,X'15' HRC011DS 00700440
HRC011DS: ./ R 00723100 00724100 $ 723390 290 03/05/06 21:45:05
HRC011DS: RDYOFF EQU 7 LGTH OF SHORT FORM MSG HRC011DS 00723390
HRC011DS: ERROFF EQU 14 LGTH OF SHORT ERROR MSG HRC011DS 00723680
HRC011DS: ./ R 00731000 $ 731490 490 03/05/06 21:45:05
HRC011DS: CPMSG DC C'Unknown CP command' HRC011DS 00731490
HRC011DS: ./ R 00735000 $ 735490 490 03/05/06 21:45:05
HRC011DS: CMSMSG DC C'Unknown CMS command' HRC011DS 00735490
HRC011DS: ./ R 00739000 $ 739490 490 03/05/06 21:45:05
HRC011DS: CPCMSMSG DC C'Unknown CP/CMS command' HRC011DS 00739490
HRC011DS: ./ R 00743000 $ 743490 490 03/05/06 21:45:05
HRC011DS: INCMSMSG DC C'Invalid CMS command' HRC011DS 00743490
HRC011DS: ./ R 00747000 $ 747490 490 03/05/06 21:45:05
HRC011DS: INSUBMSG DC C'Invalid SUBSET command' HRC011DS 00747490
HRC011DS: ./ R 00754100 $ 754140 40 03/05/06 21:45:05
HRC011DS: CMS5 DC C'CMS Subset',X'15' HRC011DS 00754140
BEGIN APPLY >>> ./ R 00441000 $ 441490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00441000 $ 441490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00447000 $ 447490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00447000 $ 447490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00452100 $ 452490 390 03/05/06 21:45:05
END APPLY >>> ./ R 00452100 $ 452490 390 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00610000 $ 610490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00610000 $ 610490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00615000 $ 615490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00615000 $ 615490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00684000 00686000 $ 684490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00684000 00686000 $ 684490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00686300 $ 686590 290 03/05/06 21:45:05
END APPLY >>> ./ R 00686300 $ 686590 290 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00692000 $ 692490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00692000 $ 692490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00700050 $ 700440 390 03/05/06 21:45:05
END APPLY >>> ./ R 00700050 $ 700440 390 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00723100 00724100 $ 723390 290 03/05/06 21:45:05
END APPLY >>> ./ R 00723100 00724100 $ 723390 290 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00731000 $ 731490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00731000 $ 731490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00735000 $ 735490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00735000 $ 735490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00739000 $ 739490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00739000 $ 739490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00743000 $ 743490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00743000 $ 743490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00747000 $ 747490 490 03/05/06 21:45:05
END APPLY >>> ./ R 00747000 $ 747490 490 03/05/06 21:45:05
BEGIN APPLY >>> ./ R 00754100 $ 754140 40 03/05/06 21:45:05
END APPLY >>> ./ R 00754100 $ 754140 40 03/05/06 21:45:05
Update Succeeded
Update Execution Time 31 milliseconds.
HRC015DS
Date Sunday Mar 11, 2018 06:54:00 PM
Loaded from MAINT(093)
HRC015DS: ./ R 00536000 00537000 $ 00536100 500
HRC015DS: DMSFREE DWORDS=STFSTSDW,TYPE=NUCLEUS,TYPCALL=BALR HRC015DS
HRC015DS: MVC 0(STFSTSIZ,R1),STATEFST Preserve end of chain HRC015DS
HRC015DS: ./ R 00569000 00570000 $ 00569100 1000 HRC015DS
HRC015DS: MVC STATEFST(STFSTSIZ),0(R1) Put it back HRC015DS
HRC015DS: LA R0,STFSTSDW And release storage HRC015DS
BEGIN APPLY >>> ./ R 00536000 00537000 $ 00536100 500
END APPLY >>> ./ R 00536000 00537000 $ 00536100 500
BEGIN APPLY >>> ./ R 00569000 00570000 $ 00569100 1000 HRC015DS
END APPLY >>> ./ R 00569000 00570000 $ 00569100 1000 HRC015DS
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsint.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator