Date Tuesday Jan 29, 1980 11:15:00 AM
Loaded from MAINT(294)
R10508DK: ./ R 2122000 2135000 $ 2122100 500 00001000
R10508DK: PACKUNT LA 1,3 GET NUMBER OF DIGITS @VA10508 00002000
R10508DK: SR 3,3 CLEAR WORK REG @VA10508 00003000
R10508DK: LR 4,5 POINT TO DEVICE ADDRESS @VA10508 00004000
R10508DK: GETNEXT MVC PAREA2,0(4) LOAD FOR CHECKING @VA10508 00005000
R10508DK: SLL 3,4 SHIFT THE GENERATED ADDRESS @VA10508 00006000
R10508DK: CLI PAREA2,X'C1' IS IT A? @VA10508 00007000
R10508DK: BL BADDEV LOWER THAN A -- NO GOOD @VA10508 00008000
R10508DK: CLI PAREA2,X'C6' MAYBE F @VA10508 00009000
R10508DK: BH NOTALPH HIGHER THAN F @VA10508 00010000
R10508DK: XI PAREA2,X'C0' CLEAR 'C' @VA10508 00011000
R10508DK: AH 3,DIG9 ADD ADJUSTMENT @VA10508 00012000
R10508DK: B ADDDIG GO FINISH THE PACK @VA10508 00013000
R10508DK: DIG9 DC X'0009' ADJUSTMENT NUMBER @VA10508 00014000
R10508DK: NOTALPH CLI PAREA2,X'F0' IS IT NUMERIC? @VA10508 00015000
R10508DK: BL BADDEV NO--NOT A VALID DEV ADDRESS @VA10508 00016000
R10508DK: XI PAREA2,X'F0' CLEAR 'F' @VA10508 00017000
R10508DK: ADDDIG AH 3,PAREA ADD LOW ORDER BITS @VA10508 00018000
R10508DK: LA 4,1(4) INDEX THE POINTER @VA10508 00019000
R10508DK: BCT 1,GETNEXT HAVE WE DONE THREE? @VA10508 00020000
R10508DK: STH 3,PAREA1 @VA10508 00021000
R10508DK: ./ D 2139000 2143000 $ 00022000
R10508DK: ./ R 2154000 $ 2154000 500 00023000
R10508DK: PAREA DC X'0' @VA10508 00024000
R10508DK: PAREA2 DC X'0' @VA10508 00025000
BEGIN APPLY >>> ./ R 2122000 2135000 $ 2122100 500 00001000
END APPLY >>> ./ R 2122000 2135000 $ 2122100 500 00001000
BEGIN APPLY >>> ./ D 2139000 2143000 $ 00022000
END APPLY >>> ./ D 2139000 2143000 $ 00022000
BEGIN APPLY >>> ./ R 2154000 $ 2154000 500 00023000
END APPLY >>> ./ R 2154000 $ 2154000 500 00023000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Tuesday Jul 29, 1980 06:25:00 AM
Loaded from MAINT(294)
R11453DK: ./ I 1193000 $ 1193100 00001000
R11453DK: MVI CDCOM,C'*' REPLACE COLON WITH AN ASTERISK @VA11453 00002000
BEGIN APPLY >>> ./ I 1193000 $ 1193100 00001000
END APPLY >>> ./ I 1193000 $ 1193100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC031DK: ./ R 01336000 01336000 $ 01336000 00000333 00001000
HRC031DK: ERPRNT CLI CPUID,X'FF' RUNNING UNDER CP? HRC031DK 00002000
HRC031DK: BNER R14 NO, MUST BE BARE MACHINE HRC031DK 00003000
HRC031DK: LH R0,4(,R5) GET LENGTH HRC031DK 00004000
HRC031DK: ./ R 01391000 01391000 $ 01391000 00000333 00005000
HRC031DK: PAGER CLI CPUID,X'FF' UNDER CONTROL OF CP? HRC031DK 00006000
HRC031DK: BNER R14 NO, NO MAP ON BARE MACHINE HRC031DK 00007000
HRC031DK: LA 8,5 SET UP RETRY COUNTER HRC031DK 00008000
HRC031DK: ./ R 01418000 01418000 $ 01418000 00000250 00009000
HRC031DK: SPACE , HRC031DK 00010000
HRC031DK: SET CLI CPUID,X'FF' RUNNING UNDER VM? HRC031DK 00011000
HRC031DK: BNER R14 NO, FORGET SKIPS TO CH 1 HRC031DK 00012000
HRC031DK: SSM CH0OFF HRC031DK 00013000
HRC031DK: ./ I 01727000 $ 01727500 00000500 00014000
HRC031DK: STIDP CPUID GET CPUID HRC031DK 00015000
HRC031DK: ./ I 01808000 $ 01808500 00000500 00016000
HRC031DK: CPUID DS D CPUID STORED HERE HRC031DK 00017000
BEGIN APPLY >>> ./ R 01336000 01336000 $ 01336000 00000333 00001000
END APPLY >>> ./ R 01336000 01336000 $ 01336000 00000333 00001000
BEGIN APPLY >>> ./ R 01391000 01391000 $ 01391000 00000333 00005000
END APPLY >>> ./ R 01391000 01391000 $ 01391000 00000333 00005000
BEGIN APPLY >>> ./ R 01418000 01418000 $ 01418000 00000250 00009000
END APPLY >>> ./ R 01418000 01418000 $ 01418000 00000250 00009000
BEGIN APPLY >>> ./ I 01727000 $ 01727500 00000500 00014000
END APPLY >>> ./ I 01727000 $ 01727500 00000500 00014000
BEGIN APPLY >>> ./ I 01808000 $ 01808500 00000500 00016000
END APPLY >>> ./ I 01808000 $ 01808500 00000500 00016000
Update Succeeded
Update Execution Time 47 milliseconds.