Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)
R09217DS: ./ R 96000 97000 $ 96000 650
R09217DS: * R15 = 6 TAPE IS FILE PROTECTED
R09217DS: * R15 = 8 INCORRECT LENGTH
R09217DS: *
BEGIN APPLY >>> ./ R 96000 97000 $ 96000 650
END APPLY >>> ./ R 96000 97000 $ 96000 650
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Jun 27, 1980 06:27:00 AM
Loaded from MAINT(193)
R11365DS: ./ D 00190000
R11365DS: ./ I 00191000 $ 191010 10
R11365DS: LR R0,R5 SAVE XR1 @VA11365 00191010
R11365DS: LH R5,DEVADDR GET THE DEVICE CUU @VA11365 00191020
R11365DS: DROP XR1 @VA11365 00191030
R11365DS: DIAG R5,R6,X'24' DIAGNOSE FOR DEVICE INFO @VA11365 00191040
R11365DS: BNE ERR05 DEVICE NOT ATTACHED @VA11365 00191050
R11365DS: ./ I 00191100 $ 191120 20
R11365DS: ICM R15,B'1000',PBUFF PLIST MODESET @VA11365 00191120
R11365DS: BZ PMODEOK OK IF NONE @VA11365 00191140
R11365DS: CLM R7,B'0100',TYP3420 IS IT 3420 MODEL .? @VA11365 00191160
R11365DS: BNE PMODEOK IF NOT, NO CHECK DONE..ELSE IS IT@VA11365 00191180
R11365DS: CLM R7,B'0010',MODEL3 MODEL 3 OR LESS? @VA11365 00191200
R11365DS: BNH TST34208 GO CHECK 800 BPI @VA11365 00191220
R11365DS: CLM R7,B'0010',MODEL5 MODEL 5? @VA11365 00191240
R11365DS: BE TST34208 GO CHECK 800 BPI @VA11365 00191260
R11365DS: CLM R7,B'0010',MODEL7 MODEL 7? @VA11365 00191280
R11365DS: BE TST34208 GO CHECK 800 BPI @VA11365 00191300
R11365DS: TM PBUFF,D8009TRK 800 BPI? @VA11365 00191320
R11365DS: BO ERR01 YES, ERROR 800 BPI NOT SUPPORTED @VA11365 00191340
R11365DS: SLDL R6,25 NOW.. THIS IS SOME STRANGE WAY @VA11365 00191360
R11365DS: * TO STRIP OFF THE DUAL DENSITY
R11365DS: * FEATURE FROM R7, BUT THAT'S LIFE..!!
R11365DS: LTR R7,R7 IS THE X'40' BIT ON.? @VA11365 00191420
R11365DS: SRDL R6,25 MAKE R7 PRESENTABLE AGAIN @VA11365 00191440
R11365DS: BM PMODEOK YES, 1600 SUPPORTED FOR 4,6,8 @VA11365 00191460
R11365DS: TM PBUFF,TRK96250 DID HE ASK FOR 6250.? @VA11365 00191480
R11365DS: BO PMODEOK LOOKS GOOD. 6250 IS THE DEFAULT @VA11365 00191500
R11365DS: B ERR01 ELSE HE (SHE) IS WET..!! @VA11365 00191520
R11365DS: TST34208 DS 0H @VA11365 00191540
R11365DS: TM PBUFF,D8009TRK IS THIS 800 BPI ? @VA11365 00191560
R11365DS: BNO TEST6250 BRANCH IF NOT TO CHECK 6250BPI @VA11365 00191580
R11365DS: * HERE WE GO AGAIN TESTING FOR DUAL FTR
R11365DS: SLDL R6,25 NOW.. THIS IS SOME STRANGE WAY @VA11365 00191620
R11365DS: * TO STRIP OFF THE DUAL DENSITY
R11365DS: * FEATURE FROM R7, BUT THAT'S LIFE..
R11365DS: LTR R7,R7 IS THE X'40' BIT ON.? @VA11365 00191680
R11365DS: SRDL R6,25 MAKE R7 PRESENTABLE AGAIN @VA11365 00191700
R11365DS: BNM ERR01 800 BPI NOT SUPPORTED @VA11365 00191720
R11365DS: B PMODEOK ELSE ALL SET. @VA11365 00191740
R11365DS: TEST6250 DS 0H @VA11365 00191760
R11365DS: TM PBUFF,TRK96250 IS IT 6250.? @VA11365 00191780
R11365DS: BO ERR01 YES, CAN'T HAVE IT.! @VA11365 00191800
R11365DS: PMODEOK EQU * @VA11365 00191820
R11365DS: LR R5,R0 RESTORE XR1 @VA11365 00191840
R11365DS: ./ I 00376100 $ 376200 100
R11365DS: *
R11365DS: MODEL3 DC X'03' 3420 MODEL 3 @VA11365 00376280
R11365DS: MODEL5 DC X'05' 3420 MODEL 5 @VA11365 00376370
R11365DS: MODEL7 DC X'07' 3420 MODEL 7 @VA11365 00376460
R11365DS: TYP3420 DC X'10' 3420 TAPE DRIVE..!! @VA11365 00376550
R11365DS: D8009TRK EQU X'CB' MODESET - 9 TRACK, 800 BPI @VA11365 00376640
R11365DS: TRK96250 EQU X'D3' MODESET - 9 TRACK, 6250 BPI @VA11365 00376820
BEGIN APPLY >>> ./ D 00190000
END APPLY >>> ./ D 00190000
BEGIN APPLY >>> ./ I 00191000 $ 191010 10
END APPLY >>> ./ I 00191000 $ 191010 10
BEGIN APPLY >>> ./ I 00191100 $ 191120 20
END APPLY >>> ./ I 00191100 $ 191120 20
BEGIN APPLY >>> ./ I 00376100 $ 376200 100
END APPLY >>> ./ I 00376100 $ 376200 100
Update Succeeded
Update Execution Time 8 milliseconds.
Date Wednesday Aug 05, 1981 07:08:00 AM
Loaded from MAINT(193)
R13323DS: ./ R 125000 127000 $ 124500 500 05/12/81 13:38:54
R13323DS: * OMITTED FROM THE PARAMETER LIST, THE MODE IS TAKEN @VA13323
R13323DS: * FROM THE FIRST BYTE OF THE DEVMISC FIELD OF THE DEVTAB@VA13323
R13323DS: * IN THE NUCLEUS. IF THERE IS NO MODE STORED IN THE @VA13323
R13323DS: * DEVICE TABLE, THE DEFAULT MODE IS 1600 BPI FOR DUAL @VA13323
R13323DS: * DENSITY TAPES, ODD PARITY CONVERTER OFF AND @VA13323
R13323DS: * TRANSLATOR OFF FOR 7-TRACK TAPES. @VA13323
R13323DS: ./ I 191100 $ 191102 2 05/12/81 13:38:54
R13323DS: LR R5,R0 RESTORE XR1 @VA13323
R13323DS: USING DEVSECT,R5 EST. ADDRESSABILITY TO DEVTAB @VA13323
R13323DS: CLI DEVMISC,ZEROMODE IS THERE NO MODE IN DEVTAB @VA13323
R13323DS: BE SKIPMODE NO MODE, USE DEFAULT @VA13323
R13323DS: MVC MODECCW(1),DEVMISC GET THE MODE FROM THE DEVTAB @VA13323
R13323DS: SKIPMODE EQU * @VA13323
R13323DS: DROP R5 RELEASE REGISTER @VA13323
R13323DS: ./ R 270100 $ 269400 400 05/12/81 13:38:54
R13323DS: * NOTE: DEFAULT MODE ALREADY SET @VA13323
R13323DS: * TO THE MODE IN THE DEVTAB @VA13323
R13323DS: * OR X'B3' IF THERE WAS NO @VA13323
R13323DS: * MODE IN THE DEVTAB @VA13323
R13323DS: ./ I 377000 $ 377500 500 05/12/81 13:38:54
R13323DS: ZEROMODE EQU X'00' INDICATES DEVTAB HAS NO MODE @VA13323
BEGIN APPLY >>> ./ R 125000 127000 $ 124500 500 05/12/81 13:38:54
END APPLY >>> ./ R 125000 127000 $ 124500 500 05/12/81 13:38:54
BEGIN APPLY >>> ./ I 191100 $ 191102 2 05/12/81 13:38:54
END APPLY >>> ./ I 191100 $ 191102 2 05/12/81 13:38:54
BEGIN APPLY >>> ./ R 270100 $ 269400 400 05/12/81 13:38:54
END APPLY >>> ./ R 270100 $ 269400 400 05/12/81 13:38:54
BEGIN APPLY >>> ./ I 377000 $ 377500 500 05/12/81 13:38:54
END APPLY >>> ./ I 377000 $ 377500 500 05/12/81 13:38:54
Update Succeeded
Update Execution Time 23 milliseconds.
Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
HRC002DS: ./ R 00052000 00053000 $ 52590 590 01/01/06 12:32:39
HRC002DS: * (TAP1 - TAP7, TAP8 - TAPF) OR THE CORRESPONDING UNIT HRC002DS 00052590
HRC002DS: * ADDRESS (0181 - 0187, 0288 - 028F). HRC002DS 00053180
BEGIN APPLY >>> ./ R 00052000 00053000 $ 52590 590 01/01/06 12:32:39
END APPLY >>> ./ R 00052000 00053000 $ 52590 590 01/01/06 12:32:39
Update Succeeded
Update Execution Time 16 milliseconds.