ibm:vm370-lib:cms:dmsfor.assemble_hst
Table of Contents
DMSFOR History
References
- Fixes Applied : 2
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC013DS]
Update History
CMS File Input : DMSFOR ASSEMBLE
Date : 12/12/1978 8:27:00 AM
VM Context : MAINT(393)
File Name : DMSFOR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- HRC004DS V01 ADD SUPPORT FOR D/T3380
- HRC013DS V01 D/T3380 Incorrect cylinder numbers in count field
HRC004DS
Date Thursday Feb 09, 2006 09:25:00 PM
Loaded from MAINT(093)
HRC004DS: ./ I 00179000 $ 179300 300 01/28/06 13:39:44
HRC004DS: * A 3380 IS FORMATTED WITH 36 800-BYTE RECORDS PER HRC004DS 00179300
HRC004DS: * HEAD AND 15 HEADS PER CYLINDER. HRC004DS 00179600
HRC004DS: ./ R 00505000 $ 505490 490 01/28/06 13:39:44
HRC004DS: BNER R7 ERROR HRC004DS 00505490
HRC004DS: ./ R 00507000 00511000 $ 507290 290 01/28/06 13:39:44
HRC004DS: BLR R7 ERROR HRC004DS 00507290
HRC004DS: CLI 0(R1),C'I' IS IT IN THE A-I RANGE? HRC004DS 00507580
HRC004DS: BNH MODEOK HRC004DS 00507870
HRC004DS: CLI 0(R1),C'J' < C'J'? HRC004DS 00508160
HRC004DS: BLR R7 ERROR HRC004DS 00508450
HRC004DS: CLI 0(R1),C'R' IS IT IN THE J-R RANGE? HRC004DS 00508740
HRC004DS: BNH MODEOK HRC004DS 00509030
HRC004DS: CLI 0(R1),C'S' NOT > 'S' ? HRC004DS 00509320
HRC004DS: BNHR R7 ERROR HRC004DS 00509610
HRC004DS: CLI 0(R1),C'Z' IS IT IN THE T-Z RANGE? HRC004DS 00509900
HRC004DS: BHR R7 NO - ERROR HRC004DS 00510190
HRC004DS: MODEOK EQU * HRC004DS 00510480
HRC004DS: ./ R 00609000 $ 609090 90 01/28/06 13:39:44
HRC004DS: NOT3350 EQU * HRC004DS 00609090
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 00609180
HRC004DS: BNE NOT3380 NO..BR HRC004DS 00609270
HRC004DS: MVC LIMCYL+2(2),MAX3380 MAX 121 FOR 3380 HRC004DS 00609360
HRC004DS: B CKFLAG CONTINUE HRC004DS 00609450
HRC004DS: NOT3380 EQU * HRC004DS 00609540
HRC004DS: ./ I 00672000 $ 672300 300 01/28/06 13:39:44
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 00672300
HRC004DS: BE HNDL3380 YES..BR HRC004DS 00672600
HRC004DS: ./ R 00697000 $ 697490 490 01/28/06 13:39:44
HRC004DS: MASKS DC X'104080010820' 08 FOR 3350, 20 FOR 3380 HRC004DS 00697490
HRC004DS: ./ R 00699000 $ 699490 490 01/28/06 13:39:44
HRC004DS: TYPBYTES DC X'090801070B0E' 0B FOR 3350, 0E FOR 3380 HRC004DS 00699490
HRC004DS: ./ I 00720000 $ 720300 300 01/28/06 13:39:44
HRC004DS: HNDL3380 CLI OPTFLAG,C'R' IS IT FORMAT 'R' ? HRC004DS 00720300
HRC004DS: BE CHEK3380 YES..BR HRC004DS 00720600
HRC004DS: ./ I 00723000 $ 723200 200 01/28/06 13:39:44
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 00723200
HRC004DS: BE CONT3330 YES...BR HRC004DS 00723400
HRC004DS: MVC TIC50(8),DUM2311 NO RECORD 20 IS NEEDED EITHER. HRC004DS 00723600
HRC004DS: MVC END3350(8),CCWNOOP MARK THE END OF THE CCW'S HRC004DS 00723800
HRC004DS: ./ I 00755000 $ 755300 300 01/28/06 13:39:44
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 00755300
HRC004DS: BE CYL3380 YES..BR HRC004DS 00755600
HRC004DS: ./ I 00762000 $ 762300 300 01/28/06 13:39:44
HRC004DS: CYL3380 LA R3,15 SET NO. OF HEADS FOR 3380 HRC004DS 00762300
HRC004DS: B HNXTHED CONTINUE HRC004DS 00762600
HRC004DS: ./ R 00830000 $ 830040 40 01/28/06 13:39:44
HRC004DS: CCW 29,R19STUF,CC+SILI,8 WRITE CKD RECORD 19 HRC004DS 00830040
HRC004DS: TIC50 DS 0D HRC004DS 00830080
HRC004DS: CCW 29,R20STUF,CC+SILI,8 WRITE CKD RECORD 20 HRC004DS 00830120
HRC004DS: CCW 29,R21STUF,CC+SILI,8 WRITE CKD RECORD 21 HRC004DS 00830160
HRC004DS: CCW 29,R22STUF,CC+SILI,8 WRITE CKD RECORD 22 HRC004DS 00830200
HRC004DS: CCW 29,R23STUF,CC+SILI,8 WRITE CKD RECORD 23 HRC004DS 00830240
HRC004DS: CCW 29,R24STUF,CC+SILI,8 WRITE CKD RECORD 24 HRC004DS 00830280
HRC004DS: CCW 29,R25STUF,CC+SILI,8 WRITE CKD RECORD 25 HRC004DS 00830320
HRC004DS: CCW 29,R26STUF,CC+SILI,8 WRITE CKD RECORD 26 HRC004DS 00830360
HRC004DS: CCW 29,R27STUF,CC+SILI,8 WRITE CKD RECORD 27 HRC004DS 00830400
HRC004DS: CCW 29,R28STUF,CC+SILI,8 WRITE CKD RECORD 28 HRC004DS 00830440
HRC004DS: CCW 29,R29STUF,CC+SILI,8 WRITE CKD RECORD 29 HRC004DS 00830480
HRC004DS: CCW 29,R30STUF,CC+SILI,8 WRITE CKD RECORD 30 HRC004DS 00830520
HRC004DS: CCW 29,R31STUF,CC+SILI,8 WRITE CKD RECORD 31 HRC004DS 00830560
HRC004DS: CCW 29,R32STUF,CC+SILI,8 WRITE CKD RECORD 32 HRC004DS 00830600
HRC004DS: CCW 29,R33STUF,CC+SILI,8 WRITE CKD RECORD 33 HRC004DS 00830640
HRC004DS: CCW 29,R34STUF,CC+SILI,8 WRITE CKD RECORD 34 HRC004DS 00830680
HRC004DS: CCW 29,R35STUF,CC+SILI,8 WRITE CKD RECORD 35 HRC004DS 00830720
HRC004DS: CCW 29,R36STUF,CC+SILI,8 WRITE CKD RECORD 36 HRC004DS 00830760
HRC004DS: ./ R 00854000 $ 854040 40 01/28/06 13:39:44
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 19 HRC004DS 00854040
HRC004DS: END3350 CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 20 HRC004DS 00854080
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 21 HRC004DS 00854120
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 22 HRC004DS 00854160
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 23 HRC004DS 00854200
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 24 HRC004DS 00854240
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 25 HRC004DS 00854280
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 26 HRC004DS 00854320
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 27 HRC004DS 00854360
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 28 HRC004DS 00854400
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 29 HRC004DS 00854440
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 30 HRC004DS 00854480
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 31 HRC004DS 00854520
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 32 HRC004DS 00854560
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 33 HRC004DS 00854600
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 34 HRC004DS 00854640
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 35 HRC004DS 00854680
HRC004DS: CCW 30,0,CC+SILI+NO,1 READ CKD RECORD 36 HRC004DS 00854720
HRC004DS: ./ I 00965000 $ 965010 10 01/28/06 13:39:44
HRC004DS: * HRC004DS 00965010
HRC004DS: R20STUF DC AL2(*-*) CYLINDER HRC004DS 00965020
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965030
HRC004DS: DC AL1(20),AL3(DATAL) RECORD NO. 20 HRC004DS 00965040
HRC004DS: * HRC004DS 00965050
HRC004DS: R21STUF DC AL2(*-*) CYLINDER HRC004DS 00965060
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965070
HRC004DS: DC AL1(21),AL3(DATAL) RECORD NO. 21 HRC004DS 00965080
HRC004DS: * HRC004DS 00965090
HRC004DS: R22STUF DC AL2(*-*) CYLINDER HRC004DS 00965100
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965110
HRC004DS: DC AL1(22),AL3(DATAL) RECORD NO. 22 HRC004DS 00965120
HRC004DS: * HRC004DS 00965130
HRC004DS: R23STUF DC AL2(*-*) CYLINDER HRC004DS 00965140
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965150
HRC004DS: DC AL1(23),AL3(DATAL) RECORD NO. 23 HRC004DS 00965160
HRC004DS: * HRC004DS 00965170
HRC004DS: R24STUF DC AL2(*-*) CYLINDER HRC004DS 00965180
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965190
HRC004DS: DC AL1(24),AL3(DATAL) RECORD NO. 24 HRC004DS 00965200
HRC004DS: * HRC004DS 00965210
HRC004DS: R25STUF DC AL2(*-*) CYLINDER HRC004DS 00965220
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965230
HRC004DS: DC AL1(25),AL3(DATAL) RECORD NO. 25 HRC004DS 00965240
HRC004DS: * HRC004DS 00965250
HRC004DS: R26STUF DC AL2(*-*) CYLINDER HRC004DS 00965260
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965270
HRC004DS: DC AL1(26),AL3(DATAL) RECORD NO. 26 HRC004DS 00965280
HRC004DS: * HRC004DS 00965290
HRC004DS: R27STUF DC AL2(*-*) CYLINDER HRC004DS 00965300
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965310
HRC004DS: DC AL1(27),AL3(DATAL) RECORD NO. 27 HRC004DS 00965320
HRC004DS: * HRC004DS 00965330
HRC004DS: R28STUF DC AL2(*-*) CYLINDER HRC004DS 00965340
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965350
HRC004DS: DC AL1(28),AL3(DATAL) RECORD NO. 28 HRC004DS 00965360
HRC004DS: * HRC004DS 00965370
HRC004DS: R29STUF DC AL2(*-*) CYLINDER HRC004DS 00965380
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965390
HRC004DS: DC AL1(29),AL3(DATAL) RECORD NO. 29 HRC004DS 00965400
HRC004DS: * HRC004DS 00965410
HRC004DS: R30STUF DC AL2(*-*) CYLINDER HRC004DS 00965420
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965430
HRC004DS: DC AL1(30),AL3(DATAL) RECORD NO. 30 HRC004DS 00965440
HRC004DS: * HRC004DS 00965450
HRC004DS: R31STUF DC AL2(*-*) CYLINDER HRC004DS 00965460
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965470
HRC004DS: DC AL1(31),AL3(DATAL) RECORD NO. 31 HRC004DS 00965480
HRC004DS: * HRC004DS 00965490
HRC004DS: R32STUF DC AL2(*-*) CYLINDER HRC004DS 00965500
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965510
HRC004DS: DC AL1(32),AL3(DATAL) RECORD NO. 32 HRC004DS 00965520
HRC004DS: * HRC004DS 00965530
HRC004DS: R33STUF DC AL2(*-*) CYLINDER HRC004DS 00965540
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965550
HRC004DS: DC AL1(33),AL3(DATAL) RECORD NO. 33 HRC004DS 00965560
HRC004DS: * HRC004DS 00965570
HRC004DS: R34STUF DC AL2(*-*) CYLINDER HRC004DS 00965580
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965590
HRC004DS: DC AL1(34),AL3(DATAL) RECORD NO. 34 HRC004DS 00965600
HRC004DS: * HRC004DS 00965610
HRC004DS: R35STUF DC AL2(*-*) CYLINDER HRC004DS 00965620
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965630
HRC004DS: DC AL1(35),AL3(DATAL) RECORD NO. 35 HRC004DS 00965640
HRC004DS: * HRC004DS 00965650
HRC004DS: R36STUF DC AL2(*-*) CYLINDER HRC004DS 00965660
HRC004DS: DC AL2(*-*) HEAD (1,3,5, ..., 19) HRC004DS 00965670
HRC004DS: DC AL1(36),AL3(DATAL) RECORD NO. 36 HRC004DS 00965680
HRC004DS: ./ R 00985000 00986000 $ 985390 390 01/28/06 13:39:44
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 00985390
HRC004DS: BE STRHED88 GET IN 3380 LOOP HRC004DS 00985780
HRC004DS: CLI DEVADDR+3,T3350 3350 ? HRC004DS 00986170
HRC004DS: BE STRHEDZ GET IN 3350 LOOP HRC004DS 00986560
HRC004DS: ./ R 01012000 $ 1012490 490 01/28/06 13:39:44
HRC004DS: * HRC004DS 01012490
HRC004DS: ./ I 01019000 $ 1019100 100 01/28/06 13:39:44
HRC004DS: STRHED88 LM R3,R5,BXLEAD8 GET RANGE/INDEX VALUES HRC004DS 01019100
HRC004DS: STH R2,SEEKA4 STORE FOR SEEK ETC. HRC004DS 01019200
HRC004DS: STRHED89 STH R2,2(,R3) STORE HEAD NUMBER HRC004DS 01019300
HRC004DS: BXLE R3,R4,STRHED89 ITEERATE FOR FULL 3350 TRACK HRC004DS 01019400
HRC004DS: LM R3,R6,SAVE36 THEN RETURN HRC004DS 01019500
HRC004DS: BR R15 TO CALLER HRC004DS 01019600
HRC004DS: * HRC004DS 01019700
HRC004DS: ./ I 01025000 $ 1025500 500 01/28/06 13:39:44
HRC004DS: BXLEAD8 DC A(R1STUF),F'8',A(R36STUF) HRC004DS 01025500
HRC004DS: ./ I 01106000 $ 1106200 200 01/28/06 13:39:44
HRC004DS: LA R4,TAB3380 GET 3380 STATS TABLE HRC004DS 01106200
HRC004DS: CLI DEVADDR+3,T3380 3380 ? HRC004DS 01106400
HRC004DS: BE JCON2 YES..BR HRC004DS 01106600
HRC004DS: ./ I 01349000 $ 1349300 300 01/28/06 13:39:44
HRC004DS: CHEK3380 LA R10,TAB3380 USE 3380 SPECS HRC004DS 01349300
HRC004DS: B CHEKJOIN HRC004DS 01349600
HRC004DS: ./ I 01529000 $ 1529500 500 01/28/06 13:39:44
HRC004DS: T3380 EQU X'0E' CMS' 3350 DEVICE TYPE HRC004DS 01529500
HRC004DS: ./ R 01549000 $ 1549070 70 01/28/06 13:39:44
HRC004DS: * = 64980 (570 X 114) + 551 (19 X 2HRC004DS 01549070
HRC004DS: * HRC004DS 01549140
HRC004DS: TAB3380 DS 0F 3380 STATS TABLE HRC004DS 01549210
HRC004DS: DC F'540' NUMBER OF RECORDS PER CYLINDER HRC004DS 01549280
HRC004DS: DC F'36' NUMBER OF RECORDS PER ... HRC004DS 01549350
HRC004DS: DC H'1' PER ONE HEAD. HRC004DS 01549420
HRC004DS: DC H'37' OVERFLOW-NUMBER NUMBER HRC004DS 01549490
HRC004DS: DC H'15' NUMBER OF TRACKS PER CYLINDER HRC004DS 01549560
HRC004DS: MAX3380 DC H'121' 121 CYL HRC004DS 01549630
HRC004DS: DC F'65340' MAX. NO OF RECORDS FOR 3380 ... HRC004DS 01549700
HRC004DS: * = 65340 (540 X 121) HRC004DS 01549770
BEGIN APPLY >>> ./ I 00179000 $ 179300 300 01/28/06 13:39:44
END APPLY >>> ./ I 00179000 $ 179300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00505000 $ 505490 490 01/28/06 13:39:44
END APPLY >>> ./ R 00505000 $ 505490 490 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00507000 00511000 $ 507290 290 01/28/06 13:39:44
END APPLY >>> ./ R 00507000 00511000 $ 507290 290 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00609000 $ 609090 90 01/28/06 13:39:44
END APPLY >>> ./ R 00609000 $ 609090 90 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00672000 $ 672300 300 01/28/06 13:39:44
END APPLY >>> ./ I 00672000 $ 672300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00697000 $ 697490 490 01/28/06 13:39:44
END APPLY >>> ./ R 00697000 $ 697490 490 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00699000 $ 699490 490 01/28/06 13:39:44
END APPLY >>> ./ R 00699000 $ 699490 490 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00720000 $ 720300 300 01/28/06 13:39:44
END APPLY >>> ./ I 00720000 $ 720300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00723000 $ 723200 200 01/28/06 13:39:44
END APPLY >>> ./ I 00723000 $ 723200 200 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00755000 $ 755300 300 01/28/06 13:39:44
END APPLY >>> ./ I 00755000 $ 755300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00762000 $ 762300 300 01/28/06 13:39:44
END APPLY >>> ./ I 00762000 $ 762300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00830000 $ 830040 40 01/28/06 13:39:44
END APPLY >>> ./ R 00830000 $ 830040 40 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00854000 $ 854040 40 01/28/06 13:39:44
END APPLY >>> ./ R 00854000 $ 854040 40 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 00965000 $ 965010 10 01/28/06 13:39:44
END APPLY >>> ./ I 00965000 $ 965010 10 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 00985000 00986000 $ 985390 390 01/28/06 13:39:44
END APPLY >>> ./ R 00985000 00986000 $ 985390 390 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 01012000 $ 1012490 490 01/28/06 13:39:44
END APPLY >>> ./ R 01012000 $ 1012490 490 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 01019000 $ 1019100 100 01/28/06 13:39:44
END APPLY >>> ./ I 01019000 $ 1019100 100 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 01025000 $ 1025500 500 01/28/06 13:39:44
END APPLY >>> ./ I 01025000 $ 1025500 500 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 01106000 $ 1106200 200 01/28/06 13:39:44
END APPLY >>> ./ I 01106000 $ 1106200 200 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 01349000 $ 1349300 300 01/28/06 13:39:44
END APPLY >>> ./ I 01349000 $ 1349300 300 01/28/06 13:39:44
BEGIN APPLY >>> ./ I 01529000 $ 1529500 500 01/28/06 13:39:44
END APPLY >>> ./ I 01529000 $ 1529500 500 01/28/06 13:39:44
BEGIN APPLY >>> ./ R 01549000 $ 1549070 70 01/28/06 13:39:44
END APPLY >>> ./ R 01549000 $ 1549070 70 01/28/06 13:39:44
Update Succeeded
Update Execution Time 63 milliseconds.
HRC013DS
Date Sunday Jan 03, 2016 10:41:00 AM
Loaded from MAINT(191)
HRC013DS: ./ R 00976000 $ 976000
HRC013DS: LM R3,R5,BXLEAD8 SET UP REGS FOR BXLE, HRC013DS 00179300
BEGIN APPLY >>> ./ R 00976000 $ 976000
END APPLY >>> ./ R 00976000 $ 976000
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsfor.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator