DMKCNS History
References
-
-
Fixes Applied : 25
-
Last Fix ID : [HRC370DK]
Update History
CMS File Input : DMKCNS ASSEMBLE
Date : 12/7/1978 4:57:00 PM
VM Context : MAINT(394)
File Name : DMKCNS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09229DK 606 ABENDFRE005 IF ATTN INTERRUPT DURING DISCONNECT PROCESSING
R08988DK 606 SWITCHED LINE LEFT DISABLED IF GO ON HOOK BEFORE LOGOFF
R10263DK 609 DMKCNS TTY TWX XOFF NOT RECOGNIZED AFTER PTF V10075
R09490DK 610 CONTINUOUS LOOP IF HARDWARE ERROR OCCURS
R10462DK 611 UV00555 ABENDLOK001 DMKDSP LABEL LOCKVM TRYING TO LOC VMBLOK
R10282DK 614 UV01462 VARIOUS ABENDS BECAUSE TWO IOBLOKS FOR SAME DEVICE
R11261DK 616 UV01936 ABENDPRG005 WHEN UNSOL ATTN FROM D/T3215 ON AP
R11780DK 616 UV01924 D/T4331 ICA NOT HANDLED CORRECTLY IF ERROR OCCURS
R11726DK 616 UV01890 ATTN INTERRUPT AND OPERATOR IN CF MODE CAUSES WAIT
R12111DK 618 UV02950 PREVENT TTY I/O LOOP IF ENDLESS BREAK KEY
R12345DK 618 UV03134 CHECK FOR NO CPEXBLOK WHEN RDEVSYNC IS STILL ON
R13327DK 621 UV04667 WRONG BRANCH TAKEN FROM VM10282
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R11927DK 623 UV04909 LOOP DOING ENABLE OF LEASED LINE WITH NO MODEM
R13993DK 623 UV05102 ABEND OR OVERLAY DUE TO REG10 ZERO IN DMKCNS
R13019DK 623 UV04539 PEVM12111 LOOP DURING ERROR RECOVERY
R12126DK 624 UV02926 D/T4331 CA UNIT CHECK NOT HANDLED CORRECTLY
R12733DK 625 UV05520 CC1 LOOP SOUNDING ALARM TO POWERED OFF D/T3215
R13198DK 625 UV04984 NO DISCONNECT IF IN ERROR RECOVERY
R13158DK 625 UV05563 LOOP IN CNS AND IOS ON IFCC CC=1
R14789DK 627 UV05984 PEVM13019 LOOP CAN STILL OCCUR IF CPU NOT 4300
R15227DK 629 UV06277 PEVM11927 SWITCHED LINE DISABLED ON IR AND UC
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC370DK V03 Display “S/370 Online” or “S/380 Online” as appropriate.
R09957DK
Date Thursday Jul 12, 1979 09:51:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.
R09229DK
Date Friday Nov 02, 1979 04:11:00 AM
Loaded from MAINT(294)
R09229DK: ./ I 00389000 $ 00389010 10 00001000
R09229DK: LTR R10,R10 ENTRY WITHOUT IOBLOK @VA09229 00002000
R09229DK: BZ INTHALT1 YES, JUST HALT DEVICE @VA09229 00003000
R09229DK: ./ I 01117750 $ 01117755 5 00004000
R09229DK: TM VMOSTAT,VMDISC USER DISC SINCE ATTN CAME IN @VA09229 00005000
R09229DK: BNO CNSCFMD2 NO, CONTINUE @VA09229 00006000
R09229DK: NI RDEVSTA2,X'FF'-RDEVSYNC RESET ATTN FLAG @VA09229 00007000
R09229DK: B CNIGNOR1 FRET IOBLOK AND EXIT @VA09229 00008000
R09229DK: CNSCFMD2 DS 0H CONTINUE PROCESSING ATTN @VA09229 00009000
BEGIN APPLY >>> ./ I 00389000 $ 00389010 10 00001000
END APPLY >>> ./ I 00389000 $ 00389010 10 00001000
BEGIN APPLY >>> ./ I 01117750 $ 01117755 5 00004000
END APPLY >>> ./ I 01117750 $ 01117755 5 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
R08988DK
Date Tuesday Nov 13, 1979 05:25:00 AM
Loaded from MAINT(294)
R08988DK: ./ I 1305650 $ 1305655 00001000
R08988DK: MVI RDEVPCNT,X'00' RESET RETRY COUNT @VA08988 00002000
R08988DK: ./ R 1332000 1334100 $ 1332100 100 00003000
R08988DK: CLI RDEVPCNT,X'10' CHNL PGM RETRIED 16 TIMES? @VA08988 00004000
R08988DK: BH CNSRECS1 YES, JUST DISABLE THE LINE @VA08988 00005000
R08988DK: SR R1,R1 CLEAR REGISTER @VA08988 00006000
R08988DK: IC R1,RDEVPCNT INCREMENT... @VA08988 00007000
R08988DK: LA R1,1(0,R1) THE RETRY... @VA08988 00008000
R08988DK: STC R1,RDEVPCNT COUNT. @VA08988 00009000
R08988DK: B CNSLOGF DISABLE THEN RE-ENABLE LINE @VA08988 00010000
R08988DK: ./ I 1480000 $ 1480100 100 00011000
R08988DK: MVI RDEVPCNT,X'00' RESET RETRY COUNT @VA08988 00012000
BEGIN APPLY >>> ./ I 1305650 $ 1305655 00001000
END APPLY >>> ./ I 1305650 $ 1305655 00001000
BEGIN APPLY >>> ./ R 1332000 1334100 $ 1332100 100 00003000
END APPLY >>> ./ R 1332000 1334100 $ 1332100 100 00003000
BEGIN APPLY >>> ./ I 1480000 $ 1480100 100 00011000
END APPLY >>> ./ I 1480000 $ 1480100 100 00011000
Update Succeeded
Update Execution Time 23 milliseconds.
R10263DK
Date Friday Jan 25, 1980 10:26:00 AM
Loaded from MAINT(294)
R10263DK: ./ R 736000 $ 736100 100 00001000
R10263DK: CLI 0(R5),XOFFI IS THIS 'XOFF' @VA10263 00002000
R10263DK: ./ I 1728000 $ 1728100 100 00003000
R10263DK: XOFFI EQU X'13' XOFF INPUT CHARACTER FOR TTY @VA10263 00004000
BEGIN APPLY >>> ./ R 736000 $ 736100 100 00001000
END APPLY >>> ./ R 736000 $ 736100 100 00001000
BEGIN APPLY >>> ./ I 1728000 $ 1728100 100 00003000
END APPLY >>> ./ I 1728000 $ 1728100 100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R09490DK
Date Monday Mar 03, 1980 03:03:00 AM
Loaded from MAINT(294)
R09490DK: ./ I 00390000 $ 00390010
R09490DK: LA R2,256 LOAD REG 2 FOR COUNTER @VA09490
R09490DK: ./ R 00404000 $ 00404000
R09490DK: BNO INTDHALT NO GO OUT TO RESET @VA09490
R09490DK: BCT R2,INTDHIO YES RETRY UP TO 256 TIMES @VA09490
R09490DK: ./ R 00405000 $ 00405000
R09490DK: INTDHALT OI RDEVFLAG,RDEVHIO I/O WAS ACTUALLY HALTED @VA09490
BEGIN APPLY >>> ./ I 00390000 $ 00390010
END APPLY >>> ./ I 00390000 $ 00390010
BEGIN APPLY >>> ./ R 00404000 $ 00404000
END APPLY >>> ./ R 00404000 $ 00404000
BEGIN APPLY >>> ./ R 00405000 $ 00405000
END APPLY >>> ./ R 00405000 $ 00405000
Update Succeeded
Update Execution Time 31 milliseconds.
R10462DK
Date Thursday Apr 03, 1980 03:19:00 AM
Loaded from MAINT(294)
R10462DK: ./ I 1098500 $ 1098650 150 00001000
R10462DK: TM RDEVSTA3,RDEVATSW ARE WE STILL IN RECONN? @VA10462 00002000
R10462DK: BO CNIGNOR1 YES....BRANCH. @VA10462 00003000
BEGIN APPLY >>> ./ I 1098500 $ 1098650 150 00001000
END APPLY >>> ./ I 1098500 $ 1098650 150 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10282DK
Date Monday Jun 30, 1980 06:06:00 AM
Loaded from MAINT(294)
R10282DK: ./ I 595000 $ 595100 100 00001000
R10282DK: CLC IOBCSW+4(2),ZEROES IS THIS A VALID CSW?? @VA10282 00002000
R10282DK: BE CNIGNOR1 NO, THEN FORGET INTERRUPT @VA10282 00002000
R10282DK: TM IOBSPEC,IOBUNSL DID WE ASK FOR THIS? @VA10282 00002000
R10282DK: BNO CNSTERM1 YES, PROCESS IT @VA10282 00003000
R10282DK: TM RDEVSTAT,RDEVBUSY+RDEVSCED SOMEONE WORKING? @VA10282 00004000
R10282DK: BO CNIGNOR YEP, IGNORE THIS ONE @VA10282 00005000
R10282DK: CNSTERM1 DS 0H HERE TO PROCESS INTERRUPT @VA10282 00006000
BEGIN APPLY >>> ./ I 595000 $ 595100 100 00001000
END APPLY >>> ./ I 595000 $ 595100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11261DK
Date Monday Sep 08, 1980 08:26:00 AM
Loaded from MAINT(294)
R11261DK: ./ R 1535500 1535600 $ 1535510 20 00001000
R11261DK: USING CPEXBLOK,R5 @VA11261 00002000
R11261DK: L R5,IOBMISC GET ATTENTION CPEXBLOK @VA11261 00003000
R11261DK: BAL R9,FRETIOB RETURN IOBLOK, IOERBLOK @VA11261 00004000
R11261DK: LM R0,R15,CPEXR0 GET ORIGINATOR REGISTERS @VA11261 00005000
R11261DK: CALL DMKFRET FRET CPEXBLOK @VA11261 00006000
R11261DK: DROP R5 @VA11261 00007000
R11261DK: B CNSCFMD1 THIS IS CPEXADD (RETURN ADDRESS) @VA11261 00008000
BEGIN APPLY >>> ./ R 1535500 1535600 $ 1535510 20 00001000
END APPLY >>> ./ R 1535500 1535600 $ 1535510 20 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11780DK
Date Monday Sep 08, 1980 08:26:00 AM
Loaded from MAINT(294)
R11780DK: ./ R 685000 $ 685100 100 00001000
R11780DK: BNP CNSDTCK ASSUME DATA CHECK @VA11780 00002000
R11780DK: ./ I 1283500 $ 1283550 50 00003000
R11780DK: TM CSW+4,BUSY+CE UNSTACKED INTERRUPT @VA11780 00004000
R11780DK: BO CC1RET YES, JUST RETURN @VA11780 00005000
R11780DK: LTR R10,R10 IOBLOK STILL AVAILABLE @VA11780 00006000
R11780DK: BZ CC1RET NO, RETURN @VA11780 00007000
R11780DK: MVC IOBCSW,CSW SAVE CSW FROM INTERRUPT @VA11780 00008000
R11780DK: OI IOBCSW+4,CE+DE INSURE CE AND DE @VA11780 00009000
R11780DK: B CNSNINT PERFORM NORMAL INTERRUPT PROCESS @VA11780 00010000
R11780DK: CC1RET DS 0H @VA11780 00011000
R11780DK: ./ I 1420000 $ 1420100 100 00012000
R11780DK: BM CNSNOFTX GO ISSUE DISABLE @VA11780 00013000
R11780DK: ./ I 1428000 $ 1428100 100 00014000
R11780DK: CNSNOFTX DS 0H NON ZERO COND CODE ON DISABLE @VA11780 00015000
BEGIN APPLY >>> ./ R 685000 $ 685100 100 00001000
END APPLY >>> ./ R 685000 $ 685100 100 00001000
BEGIN APPLY >>> ./ I 1283500 $ 1283550 50 00003000
END APPLY >>> ./ I 1283500 $ 1283550 50 00003000
BEGIN APPLY >>> ./ I 1420000 $ 1420100 100 00012000
END APPLY >>> ./ I 1420000 $ 1420100 100 00012000
BEGIN APPLY >>> ./ I 1428000 $ 1428100 100 00014000
END APPLY >>> ./ I 1428000 $ 1428100 100 00014000
Update Succeeded
Update Execution Time 23 milliseconds.
R11726DK
Date Friday Sep 26, 1980 08:26:00 AM
Loaded from MAINT(294)
R11726DK: ./ R 389200 389700 $ 389210 100
R11726DK: BAL R2,RESATTN THROW ATTN INTERRUPT AWAY @VA11726
R11726DK: ./ I 1239500 $ 1239550
R11726DK: CNSIOSR1 EQU * @VA11726
R11726DK: ./ R 1534000 $ 1534050 50
R11726DK: CNSSYNC DS 0H @VA11726
R11726DK: NI RDEVSTA2,X'FF'-RDEVSYNC RESET SYNC FLAG @VA11726
R11726DK: TM VMOSTAT,VMCF IS CONSOLE FUNCTION RUNNING? @VA11726
R11726DK: BZ CNSSYNC1 NO, PROCESS ATTENTION @VA11726
R11726DK: BAL R2,RESATTN THROW ATTN INTERRUPT AWAY @VA11726
R11726DK: B CNSIOSR1 RETURN TO IOS CALL @VA11726
R11726DK: SPACE 2
R11726DK: ./ D 1535300
R11726DK: ./ I 1535400 $ 1535450
R11726DK: CNSSYNC1 DS 0H @VA11726
R11726DK: ./ R 1538000 $ 1538050 10
R11726DK: SPACE 2
R11726DK: RESATTN EQU * ROUTINE TO IGNORE ATTN INTERRUPT @VA11726
R11726DK: LR R4,R10 REMEMBER CURRENT IOBLOK ADDR @VA11726
R11726DK: L R3,IOBMISC GET ATTENTION CPEXBLOK @VA11726
R11726DK: USING CPEXBLOK,R3 SET ADDRESSABILITY TO CPEXBLOK @VA11726
R11726DK: L R10,CPEXR10 GET ATTENTION IOBLOK @VA11726
R11726DK: BAL R9,FRETIOB FRET ATTN IOBLOK @VA11726
R11726DK: LA R0,CPEXSIZE GET SIZE OF CPEXBLOK IN DW @VA11726
R11726DK: LR R1,R3 GET CPEXBLOK ADDR IN R1 @VA11726
R11726DK: CALL DMKFRET FRET ATTENTION CPEXBLOK @VA11726
R11726DK: LR R10,R4 RESTORE CURRENT IOBLOK ADDR @VA11726
R11726DK: BR R2 RETURN TO THE CALLER @VA11726
R11726DK: EJECT
BEGIN APPLY >>> ./ R 389200 389700 $ 389210 100
END APPLY >>> ./ R 389200 389700 $ 389210 100
BEGIN APPLY >>> ./ I 1239500 $ 1239550
END APPLY >>> ./ I 1239500 $ 1239550
BEGIN APPLY >>> ./ R 1534000 $ 1534050 50
END APPLY >>> ./ R 1534000 $ 1534050 50
BEGIN APPLY >>> ./ D 1535300
END APPLY >>> ./ D 1535300
BEGIN APPLY >>> ./ I 1535400 $ 1535450
END APPLY >>> ./ I 1535400 $ 1535450
BEGIN APPLY >>> ./ R 1538000 $ 1538050 10
END APPLY >>> ./ R 1538000 $ 1538050 10
Update Succeeded
Update Execution Time 31 milliseconds.
R12111DK
Date Monday Dec 08, 1980 12:01:00 PM
Loaded from MAINT(294)
R12111DK: ./ R 953000 $ 953050 50 00001000
R12111DK: BNO NOTHIO NO, CONTINUE NORMALLY @VA12111 00002000
R12111DK: TM IOBSTAT,IOBCC1 LONG DURATION BREAK KEY? @VA12111 00003000
R12111DK: BO SIOCC1UE YES, GO RETRY FOR AWHILE @VA12111 00004000
R12111DK: XC RDEVRCNT,RDEVRCNT RESET RETRY COUNT @VA12111 00005000
R12111DK: B CNSEXRT NO,PROCESS NORMAL ATTENTION @VA12111 00006000
R12111DK: NOTHIO DS 0H @VA12111 00007000
R12111DK: ./ R 1195000 $ 1195050 50 00008000
R12111DK: B CNRSTRT RETRY THE READ CONTASK @VA12111 00009000
R12111DK: SIOCC1UE DS 0H RETRY LONG DURATION BREAK KEY @VA12111 00010000
R12111DK: LH R1,RDEVRCNT RETRY COUNT ACCUMULATION @VA12111 00011000
R12111DK: LA R1,1(0,R1) INCREMENT... @VA12111 00012000
R12111DK: STH R1,RDEVRCNT SET UP FOR NEXT TIME THRU @VA12111 00013000
R12111DK: CL R1,F4096 HAVE WE TRIED ENOUGH TIMES? @VA12111 00014000
R12111DK: BNH BRKRTRY NO, BEAT ON HIM AWHILE @VA12111 00015000
R12111DK: XC RDEVRCNT,RDEVRCNT RESET RETRY COUNT @VA12111 00016000
R12111DK: B CNSLOGF AND GIVE USER A 15 MIN KISS @VA12111 00017000
R12111DK: BRKRTRY DS 0H @VA12111 00018000
R12111DK: MVI CONPARM,RDEVHIO REMEMBER WE'RE HANDLING BREAK @VA12111 00019000
BEGIN APPLY >>> ./ R 953000 $ 953050 50 00001000
END APPLY >>> ./ R 953000 $ 953050 50 00001000
BEGIN APPLY >>> ./ R 1195000 $ 1195050 50 00008000
END APPLY >>> ./ R 1195000 $ 1195050 50 00008000
Update Succeeded
Update Execution Time 23 milliseconds.
R12345DK
Date Friday Jan 09, 1981 12:03:00 PM
Loaded from MAINT(294)
R12345DK: ./ I 1535530 $ 1535535 5 00001000
R12345DK: LTR R5,R5 DO WE HAVE ONE ? @VA12345 00002000
R12345DK: BZ CNIGNOR1 NO THEN IGNORE @VA12345 00003000
R12345DK: ./ I 1538080 $ 1538081 1 00004000
R12345DK: LTR R3,R3 WE GOT ONE @VA12345 00005000
R12345DK: BZR R2 NO... THEN RETURN @VA12345 00006000
BEGIN APPLY >>> ./ I 1535530 $ 1535535 5 00001000
END APPLY >>> ./ I 1535530 $ 1535535 5 00001000
BEGIN APPLY >>> ./ I 1538080 $ 1538081 1 00004000
END APPLY >>> ./ I 1538080 $ 1538081 1 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R13327DK
Date Wednesday Jun 03, 1981 06:02:00 AM
Loaded from MAINT(294)
R13327DK: ./ R 595600 $ 595650 00001000
R13327DK: BNZ CNIGNOR YES, IGNORE THIS INTERRUPT @VA13327 00002000
BEGIN APPLY >>> ./ R 595600 $ 595650 00001000
END APPLY >>> ./ R 595600 $ 595650 00001000
Update Succeeded
Update Execution Time 31 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:28:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R11927DK
Date Friday Aug 07, 1981 07:10:00 AM
Loaded from MAINT(294)
R11927DK: ./ R 970000 971000 $ 970100 100 00001000
R11927DK: BNO CNSITSK NO,RESET FOR IDENT SEQUENCE @VA11927 00002000
R11927DK: L R3,IOBIOER YES, GET IOERBLOK @VA11927 00003000
R11927DK: USING IOERBLOK,R3 @VA11927 00004000
R11927DK: TM IOERDATA,INTREQ INT REQ ON THE PREP? @VA11927 00005000
R11927DK: BO CNSDISA YES, BIG TROUBLE, DISABLE LINE @VA11927 00006000
R11927DK: DROP R3 @VA11927 00007000
R11927DK: B CNSRTRY ELSE, RETRY @VA11927 00008000
BEGIN APPLY >>> ./ R 970000 971000 $ 970100 100 00001000
END APPLY >>> ./ R 970000 971000 $ 970100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13993DK
Date Friday Aug 07, 1981 08:05:00 AM
Loaded from MAINT(294)
R13993DK: ./ I 1535510 $ 1535520 5 00001000
R13993DK: LTR R10,R10 @VA13993 00002000
R13993DK: BZ CNIGNOR1 @VA13993 00003000
BEGIN APPLY >>> ./ I 1535510 $ 1535520 5 00001000
END APPLY >>> ./ I 1535510 $ 1535520 5 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13019DK
Date Friday Aug 14, 1981 08:11:00 AM
Loaded from MAINT(294)
R13019DK: ./ R 00953100 00953250 $ 953100 10 06/19/81 10:58:23
R13019DK: TM IOBSTAT,IOBCC1 CSW STORED CONDITION VA13019 00953110
R13019DK: BZ CNSEXRT NO, PROCESS NORMAL ATTENTION VA13019 00953160
R13019DK: L R3,IOBIOER IOERBLOK PTR FROM IOBLOK VA13019 00953160
R13019DK: USING IOERBLOK,R3 VA13019 00953160
R13019DK: TM IOERDATA,INTREQ INTERVENTION REQUIRED VA13019 00953170
R13019DK: BZ CNSEXRT NO, PROCESS NORMAL ATTENTION VA13019 00953180
R13019DK: CLI IOERDATA+1,X'00' IS THERE A SECOND SENSE BYTE VA13019 00953180
R13019DK: BE CNRSTRT NO, PROCESS AS USUAL VA13019 00953180
R13019DK: CLI IOERDATA+1,X'26' BREAK SIGNAL - CONTINUOUS VA13019 00953190
R13019DK: BE RETRYATN YES, RETRY ATTENTION VA13019 00953200
R13019DK: CLI IOERDATA+1,X'28' BREAK SIGNAL VA13019 00953210
R13019DK: BNE CNSEXRT NO, PROCESS NORMAL ATTENTION VA13019 00953220
R13019DK: RETRYATN DS 0H VA13019 00953230
R13019DK: MVI CONPARM,RDEVHIO REMEMBER WE'RE HANDLING BREAK VA13019 00953240
R13019DK: B CNRSTRT RESTART THE CONTASK VA13019 00953250
R13019DK: ./ D 01195100 01195550 06/19/81 10:58:23
BEGIN APPLY >>> ./ R 00953100 00953250 $ 953100 10 06/19/81 10:58:23
END APPLY >>> ./ R 00953100 00953250 $ 953100 10 06/19/81 10:58:23
BEGIN APPLY >>> ./ D 01195100 01195550 06/19/81 10:58:23
END APPLY >>> ./ D 01195100 01195550 06/19/81 10:58:23
Update Succeeded
Update Execution Time 23 milliseconds.
R12126DK
Date Monday Oct 12, 1981 04:33:00 PM
Loaded from MAINT(294)
R12126DK: ./ I 00298000 $ 298500 500 09/08/81 12:42:02
R12126DK: SPACE 00298500
R12126DK: ./ R 00310000 $ 310000 1000 09/08/81 12:42:02
R12126DK: SPACE 00310000
R12126DK: ./ I 00320000 $ 320500 500 09/08/81 12:42:02
R12126DK: SPACE 00320500
R12126DK: ./ R 00347000 $ 347000 1000 09/08/81 12:42:02
R12126DK: SPACE 00347000
R12126DK: ./ R 00359000 $ 359000 1000 09/08/81 12:42:02
R12126DK: SPACE 00359000
R12126DK: ./ D 00392000 09/08/81 12:42:02
R12126DK: ./ D 00394000 09/08/81 12:42:02
R12126DK: ./ D 00399000 09/08/81 12:42:02
R12126DK: ./ D 00504000 09/08/81 12:42:02
R12126DK: ./ D 00509000 09/08/81 12:42:02
R12126DK: ./ D 00522000 09/08/81 12:42:02
R12126DK: ./ R 00594000 $ 594000 80 09/08/81 12:42:02
R12126DK: EJECT 00594000
R12126DK: *********************************************************************** 00594080
R12126DK: * DETERMINE NATURE OF INTERRUPT, EITHER SOLICITED, UNSOLICITED, * 00594160
R12126DK: * OR A RETURN FROM AN INTERNAL SIO (CNSTRIO). * 00594240
R12126DK: * IF PATH WAS THROUGH CNSTRIO-->CNSNINT THE IOB IS FROM THE * 00594320
R12126DK: * ORIGINAL INTERRUPT EXCEPT FOR THE IOBCSW WHICH WAS SET BY * 00594400
R12126DK: * CNSTRIO FROM CSW. * 00594480
R12126DK: * RDEVTFLG=RDEVCTL INDICATES INTERRUPT IS FROM SIO AT CNSTRIO * 00594560
R12126DK: * RDEVTFLG=RDEVREST INDICATES PATH HAS BEEN THRU CNBKPRP. * 00594640
R12126DK: * RDEVTFLG=RDEVPREP INDICATES PATH HAS BEEN THRU CNSIDLE OR * 00594720
R12126DK: * CNSRTRP * 00594800
R12126DK: *********************************************************************** 00594880
R12126DK: ./ D 00603000 09/08/81 12:42:02
R12126DK: ./ D 00607000 09/08/81 12:42:02
R12126DK: ./ I 00610700 $ 610750 50 09/08/81 12:42:02
R12126DK: SPACE 00610750
R12126DK: ./ I 00616000 $ 616090 90 09/08/81 12:42:02
R12126DK: EJECT 00616090
R12126DK: *********************************************************************** 00616180
R12126DK: * THE 'ENABLE' COMMAND HAS COMPLETED, NOW WE MUST IDENTIFY THE * 00616270
R12126DK: * DEVICE TYPE. IF RDEVTYPE=TYPTTY, THE IDENTIFICATION IS ALREADY * 00616360
R12126DK: * CERTAIN, AND WE CAN GO DIRECTLY TO CNSIDTY AND SET UP THE TRANSLATE* 00616450
R12126DK: * TABLE INDEX. OTHERWISE, WE MUST WRITE A CIRCLE-C AND LOOK AT THE * 00616540
R12126DK: * RESPONSE TO DETERMINE IF THE DEVICE IS A 2741 OR A 1050. * 00616630
R12126DK: * A 2741 WILL RESPOND WITH A CIRCLE-C OR CIRCLE-D. * 00616720
R12126DK: * A 1050 WILL RESPOND WITH A CIRCLE-Y. * 00616810
R12126DK: *********************************************************************** 00616900
R12126DK: ./ I 00621000 $ 621500 500 09/08/81 12:42:02
R12126DK: SPACE 00621500
R12126DK: ./ R 00631000 $ 631000 100 09/08/81 12:42:02
R12126DK: EJECT 00631000
R12126DK: *********************************************************************** 00631100
R12126DK: * THE INTERRUPT RESULTED FROM AN INTERNAL SIO OF A PREPARE CCW. * 00631200
R12126DK: * IF A UNIT CHECK, GO RETRY THE PREPARE (CNSRTRP) * 00631300
R12126DK: * OTHERWISE, TYPE AN EXCLAMATION MARK THEN GOTO ATTENTION HANDLING * 00631400
R12126DK: *********************************************************************** 00631500
R12126DK: ./ R 00641000 00642000 $ 641000 200 09/08/81 12:42:02
R12126DK: SPACE 00641000
R12126DK: *********************************************************************** 00641200
R12126DK: * THE PREPARE WAS HALTED BY HIO. * 00641400
R12126DK: * IF ACTIVE USER, GO START THE FIRST CONTASK ON THE RDEVCON STACK. * 00641600
R12126DK: * IF HALTED BECAUSE OF THE DISABLE COMMAND, GO DROP THE LINE. * 00641800
R12126DK: * OTHERWISE, GO START THE FIRST CONTASK ON THE RDEVCON STACK. * 00642000
R12126DK: *********************************************************************** 00642200
R12126DK: ./ R 00648000 00649000 $ 648000 200 09/08/81 12:42:02
R12126DK: SPACE 00648000
R12126DK: *********************************************************************** 00648200
R12126DK: * THIS PREPARE WAS STARTED BECAUSE OF AN INTERVENTION REQUIRED 'ATTN'* 00648400
R12126DK: * IF UNIT CHECK, RETRY THE PREPARE. * 00648600
R12126DK: * GET THE CONTASK THAT WAS "BROKEN" AND GOTO (CNSCATN) TO SEND AN * 00648800
R12126DK: * EXCLAMATION MARK THEN COMPLETE THE INTERRUPTED CONTASK. * 00649000
R12126DK: *********************************************************************** 00649200
R12126DK: ./ R 00653000 $ 653000 1000 09/08/81 12:42:02
R12126DK: BO CNSRTRY1 YES - RETRY @VA12126 00653000
R12126DK: ./ I 00658000 $ 658080 80 09/08/81 12:42:02
R12126DK: ********************************************************************** 00658080
R12126DK: * INTERRUPT DUE TO ACTIVE CONTASK OR HIO * 00658160
R12126DK: * IF NO CONTASK IS FOUND AND HIO ACTIVE, PUT UP A PREPARE (CNSIDLE) * 00658240
R12126DK: * IF CONTROL CONTASK, GOTO CONTROL CONTASK HANDLER (CNSCTAK) * 00658320
R12126DK: * IF INTERRUPT DUE TO HIO, GO ISSUE BREAK SEQUENCE (CNBREAK) * 00658400
R12126DK: * IF UNIT CHECK, GOTO I/O UC HANDLER TO FIGURE IT OUT (CNSIOUC) * 00658480
R12126DK: * IF OUTPUT CONTASK, JUST RETURN THE CONTASK (RETTASK) * 00658560
R12126DK: * IF INCORRECT LENGTH CHECK, GO CALCULATE INPUT LENGTH (CNSINCT) * 00658640
R12126DK: * IF CCW ADDRESS INVALID OR CCW NOT "READ SKIP" TREAT AS DATA CHECK * 00658720
R12126DK: * TRANSACTION SEEMS OK, GO CHECK DATA (CNSINCK) * 00658800
R12126DK: ********************************************************************** 00658880
R12126DK: ./ I 00668000 $ 668500 500 09/08/81 12:42:02
R12126DK: SPACE 00668500
R12126DK: ./ I 00681000 $ 681500 500 09/08/81 12:42:02
R12126DK: SPACE 00681500
R12126DK: ./ R 00693000 $ 693000 1000 09/08/81 12:42:02
R12126DK: EJECT 00693000
R12126DK: ./ R 00703000 $ 703000 1000 09/08/81 12:42:02
R12126DK: SPACE 00703000
R12126DK: ./ R 00721000 $ 721000 1000 09/08/81 12:42:02
R12126DK: SPACE 00721000
R12126DK: ./ I 00740000 $ 740500 500 09/08/81 12:42:02
R12126DK: SPACE 00740500
R12126DK: ./ R 00745000 $ 745000 1000 09/08/81 12:42:02
R12126DK: SPACE 00745000
R12126DK: ./ I 00747700 $ 747750 50 09/08/81 12:42:02
R12126DK: SPACE 00747750
R12126DK: ./ I 00747900 $ 748400 500 09/08/81 12:42:02
R12126DK: SPACE 00748400
R12126DK: ./ I 00765000 $ 765500 500 09/08/81 12:42:02
R12126DK: SPACE 00765500
R12126DK: ./ R 00770000 $ 770000 1000 09/08/81 12:42:02
R12126DK: SPACE 00770000
R12126DK: ./ I 00799000 $ 799030 30 09/08/81 12:42:02
R12126DK: *********************************************************************** 00799030
R12126DK: * A UNIT CHECK HAS BEEN DETECTED ON THE CONTASK I/O. DETERMINE * 00799060
R12126DK: * THE TYPE OF ERROR BY EXAMINING THE SENSE DATA IN THE IOERBLOK * 00799090
R12126DK: * THE PRESENCE OF A SECOND SENSE BYTE (IOERDATA+1) INDICATES * 00799120
R12126DK: * A 4331 COMMUNICATIONS ADAPTER. * 00799150
R12126DK: * * 00799330
R12126DK: * INTERVENTION REQUIRED * 00799360
R12126DK: * WITH NO SECOND SENSE BYTE -->GOTO A * 00799390
R12126DK: * WITH SECOND SENSE BYTE * 00799420
R12126DK: * AND "BREAK SIGNAL" -->GOTO A * 00799450
R12126DK: * OTHERWISE -->GO DISABLE AND ENABLE THE LINE * 00799480
R12126DK: * * 00799510
R12126DK: * ->A IF THIS IS OUTPUT CONTASK -->GO SETUP PREPARE * 00799540
R12126DK: * IF DEVICE NOT A 2741 ASSUME "ATTN" -->GO HANDLE ATTENTION * 00799570
R12126DK: * * 00799600
R12126DK: * TIMEOUT -->GO DISABLE AND ENABLE THE LINE * 00799630
R12126DK: * * 00799660
R12126DK: * NOT DATA CHECK -->GO RETRY THE TASK * 00799690
R12126DK: * NOT INPUT CONTASK -->GO RETRY THE TASK * 00799720
R12126DK: * * 00799750
R12126DK: * ASSUME READ CHECK * 00799780
R12126DK: * SET UP THE "READ ERROR" MESSAGE AND CCW'S FOR THE TYPE * 00799810
R12126DK: * DEVICE AND GO START CONTASK * 00799840
R12126DK: *********************************************************************** 00799870
R12126DK: ./ I 00802000 $ 802070 70 09/08/81 12:42:02
R12126DK: NI RDEVSTA2,X'FF'-RDEVNOHD ASSUME HALT DEVICE @VA12126 00802070
R12126DK: ./ I 00804000 $ 804010 10 09/08/81 12:42:02
R12126DK: CLI IOERDATA+1,X'00' IS THERE A SECOND SENSE BYTE @VA12126 00804010
R12126DK: BE NOT4331A NO - TREAT IT AS BEFORE @VA12126 00804020
R12126DK: CLI IOERDATA+1,X'26' IS IT A D/T4331 BREAK KEY? @VA12126 00804030
R12126DK: BE BRK4331 YES - HANDLE IT @VA12126 00804040
R12126DK: CLI IOERDATA+1,X'28' THIS TYPE OF BREAK? @VA12126 00804050
R12126DK: BNE CNSLOGF NO, LOG HIM OFF @VA12126 00804060
R12126DK: BRK4331 DS 0H @VA12126 00804070
R12126DK: OI RDEVSTA2,RDEVNOHD NO HALT DEV AFTER PREP @VA12126 00804080
R12126DK: NOT4331A DS 0H @VA12126
R12126DK: ./ I 00808000 $ 808500 500 09/08/81 12:42:02
R12126DK: SPACE 00808500
R12126DK: ./ I 00814000 $ 814500 500 09/08/81 12:42:02
R12126DK: SPACE 00814500
R12126DK: ./ I 00828000 $ 828500 500 09/08/81 12:42:02
R12126DK: SPACE 00828500
R12126DK: ./ I 00831000 $ 831500 500 09/08/81 12:42:02
R12126DK: SPACE 00831500
R12126DK: ./ I 00838400 $ 838450 50 09/08/81 12:42:02
R12126DK: SPACE 00838450
R12126DK: ./ D 00862010 09/08/81 12:42:02
R12126DK: ./ R 00863000 $ 863000 1000 09/08/81 12:42:02
R12126DK: SPACE 00863000
R12126DK: ./ R 00870000 00871000 $ 870000 100 09/08/81 12:42:02
R12126DK: * IF RDEVNOHD IS ON - DO NOT ISSUE THE HALT DEVICE 00870000
R12126DK: TM RDEVSTA2,RDEVNOHD SHOULD WE DO A HALT DEV @VA12126 00870100
R12126DK: BNO INTHALT YES, GO HALT THE DEVICE @VA12126 00870200
R12126DK: NI RDEVSTA2,X'FF'-RDEVNOHD RESET THE FLAG @VA12126 00870300
R12126DK: B CNSEXIT WAIT FOR PREP TO END @VA12126 00870400
R12126DK: EJECT 00870500
R12126DK: *********************************************************************** 00870600
R12126DK: * THE CONTROL CONTASK HAS COMPLETED * 00870700
R12126DK: * IF READ COMPLETION FLAG NOT ON, GO SEE IF IDENTIFY TASK (CNSCTID) * 00870800
R12126DK: * IF UNIT CHECK, RETRY THE TASK (CNSRTRY) * 00870900
R12126DK: * IF UNIT EXCEPTION, GOTO CNSCDRT TO FIGURE IT OUT * 00871000
R12126DK: * IF PREPARE CONTASK, GO TAKE CARE OF ATTENTION (CNSPRP) * 00871100
R12126DK: * RELEASE THE CONTROL CONTASK (BAL CNSRETN) * 00871200
R12126DK: * IF NEXT CONTASK UNFINISHED READ, GO START IT (CNSTART) * 00871300
R12126DK: * CONTINUE HANDLING READ CONTASK (RETEDIT) * 00871400
R12126DK: *********************************************************************** 00871500
R12126DK: ./ R 00888000 $ 888000 100 09/08/81 12:42:02
R12126DK: SPACE 00888000
R12126DK: *********************************************************************** 00888100
R12126DK: * UNIT EXECPTION ON CONTROL CONTASK * 00888200
R12126DK: * IF TTY DEVICE RETRY THE SAME CONTASK CCW'S (CNSRTRY) * 00888300
R12126DK: * BUILD CCW'S TO WRITE A "BREAK SEQUENCE" AND RETRY THE TASK(CNSRTRY)* 00888400
R12126DK: *********************************************************************** 00888500
R12126DK: ./ I 00898000 $ 898100 100 09/08/81 12:42:02
R12126DK: *********************************************************************** 00898100
R12126DK: * A CONTROL TASK HAS COMPLETED, IF CONPARM=RDEVIDNT AN ATTEMPT * 00898200
R12126DK: * IS BEING MADE TO IDENTIFY THE DEVICE TYPE (1050 OR 2741). * 00898300
R12126DK: * SET RDEVTYPE (DEVICE TYPE) AND RDEVTMCD (TRANSLATE TABLE * 00898400
R12126DK: * INDEX) AT CNSID50 FOR 1050 AND CNSID41 FOR 2741. THEN WRITE * 00898500
R12126DK: * THE "VM/370 ONLINE" MESSAGE TO THE DEVICE. * 00898600
R12126DK: *********************************************************************** 00898700
R12126DK: ./ I 00909000 $ 909500 500 09/08/81 12:42:02
R12126DK: SPACE 00909500
R12126DK: ./ I 00915000 $ 915500 500 09/08/81 12:42:02
R12126DK: SPACE 00915500
R12126DK: ./ I 00919000 $ 919500 500 09/08/81 12:42:02
R12126DK: SPACE 00919500
R12126DK: ./ I 00924000 $ 924500 500 09/08/81 12:42:02
R12126DK: SPACE 00924500
R12126DK: ./ R 00933000 $ 933000 90 09/08/81 12:42:02
R12126DK: EJECT 00933000
R12126DK: *********************************************************************** 00933090
R12126DK: * THE ATTEMPT TO IDENTIFY THE DEVICE DID NOT END WITH CE+DE * 00933180
R12126DK: * IF NOT A UNIT CHECK, RETRY THE CONTASK. * 00933270
R12126DK: * IOERDATA=SENSE BYTE 0 * 00933360
R12126DK: * IF TIMEOUT (X'01'), IDENTIFY THE DEVICE AS A 2741 * 00933450
R12126DK: * IF COMMAND REJECT (X'80'), DISABLE THE LINE * 00933540
R12126DK: * IF DATACHECK (X'08') OR LOST DATA (X'02'), RETRY CONTASK * 00933630
R12126DK: * IF NOT INTERVENTION REQUIRED (X'40'), DISABLE + RE-ENABLE * 00933720
R12126DK: * IF NONE OF THE ABOVE, PUT UP A "PREPARE" AND JUST LISTEN * 00933810
R12126DK: *********************************************************************** 00933900
R12126DK: ./ I 00950000 $ 950100 100 09/08/81 12:42:02
R12126DK: *********************************************************************** 00950100
R12126DK: * A CONTROL TASK HAS COMPLETED, IF COMPARM=RDEVHIO, THIS IS AN * 00950200
R12126DK: * ATTENTION PROCESSING TASK. IF INTERVENTION REQUIRED - "BREAK * 00950300
R12126DK: * SIGNAL" - IS DETECTED, GO RESTART THE CONTASK AT THE TOP OF * 00950400
R12126DK: * THE CONTASK CHAIN, OTHERWISE GO PROCESS THE ATTENTION * 00950500
R12126DK: *********************************************************************** 00950600
R12126DK: ./ I 00953210 $ 953215 5 09/08/81 12:42:02
R12126DK: SPACE 00953215
R12126DK: ./ I 00953240 $ 953270 30 09/08/81 12:42:02
R12126DK: SPACE 00953270
R12126DK: ./ D 00954000 09/08/81 12:42:02
R12126DK: ./ D 00957000 09/08/81 12:42:02
R12126DK: ./ D 00960000 09/08/81 12:42:02
R12126DK: ./ I 00975000 $ 975500 500 09/08/81 12:42:02
R12126DK: SPACE 00975500
R12126DK: ./ I 00993000 $ 993500 500 09/08/81 12:42:02
R12126DK: SPACE 00993500
R12126DK: ./ I 01010000 $ 1010500 500 09/08/81 12:42:02
R12126DK: SPACE 01010500
R12126DK: ./ I 01014000 $ 1014500 500 09/08/81 12:42:02
R12126DK: SPACE 01014500
R12126DK: ./ I 01022000 $ 1022500 500 09/08/81 12:42:02
R12126DK: SPACE 01022500
R12126DK: ./ I 01029000 $ 1029500 500 09/08/81 12:42:02
R12126DK: SPACE 01029500
R12126DK: ./ R 01037000 $ 1037000 1000 09/08/81 12:42:02
R12126DK: SPACE 01037000
R12126DK: ./ R 01042000 $ 1042000 1000 09/08/81 12:42:02
R12126DK: BO CNSRTRY1 RETRY PREPARE @VA12126 01042000
R12126DK: ./ I 01043000 $ 1043500 500 09/08/81 12:42:02
R12126DK: SPACE 01043500
R12126DK: ./ R 01056000 $ 1056000 500 09/08/81 12:42:02
R12126DK: B CNSRTRY1 RETRY @VA12126 01056000
R12126DK: SPACE 01056500
R12126DK: ./ I 01075000 $ 1075500 500 09/08/81 12:42:02
R12126DK: SPACE 01075500
R12126DK: ./ R 01084000 $ 1084000 1000 09/08/81 12:42:02
R12126DK: SPACE 01084000
R12126DK: ./ I 01117700 $ 1117720 20 09/08/81 12:42:02
R12126DK: SPACE 01117720
R12126DK: ./ I 01117770 $ 1117772 2 09/08/81 12:42:02
R12126DK: SPACE 01117772
R12126DK: ./ I 01125100 $ 1125150 50 09/08/81 12:42:02
R12126DK: SPACE 01125150
R12126DK: ./ I 01125330 $ 1125335 5 09/08/81 12:42:02
R12126DK: SPACE 01125335
R12126DK: ./ I 01125700 $ 1125800 100 09/08/81 12:42:02
R12126DK: SPACE 01125800
R12126DK: ./ I 01140500 $ 1140700 200 09/08/81 12:42:02
R12126DK: SPACE 01140700
R12126DK: ./ I 01146000 $ 1146500 500 09/08/81 12:42:02
R12126DK: SPACE 01146500
R12126DK: ./ D 01166000 09/08/81 12:42:02
R12126DK: ./ R 01209000 $ 1209000 1000 09/08/81 12:42:02
R12126DK: SPACE 01209000
R12126DK: ./ R 01241000 $ 1241000 1000 09/08/81 12:42:02
R12126DK: EJECT 01241000
R12126DK: ./ R 01244000 $ 1244000 1000 09/08/81 12:42:02
R12126DK: SPACE 01244000
R12126DK: ./ R 01253000 01286000 $ 1253000 4000 09/08/81 12:42:02
R12126DK: EJECT 01253000
R12126DK: *********************************************************************** 01257000
R12126DK: * A UNIT CHECK WAS DISCOVERED ON A 'PREPARE' AND IT MUST BE * 01261000
R12126DK: * RETRIED (UP TO 16 TIMES). * 01265000
R12126DK: * A SECOND SENSE BYTE (IOERDATA+1) INDICATES A 4331 COMM. ADAPT * 01269000
R12126DK: * WHEN THE UC OCCURRS DURING INITIATION OF THE PREPARE, THE * 01273000
R12126DK: * LINE IS DISABLED THEN RE-ENABLED. * 01277000
R12126DK: *********************************************************************** 01281000
R12126DK: ./ R 01289000 $ 1289000 50 09/08/81 12:42:02
R12126DK: CNSRTRY1 DS 0H RETRY PREPARE AFTER UNIT CHECK @VA12126 01289000
R12126DK: L R1,IOBIOER GET IOERBLOK @VA12126 01289050
R12126DK: USING IOERBLOK,R1 @VA12126 01289100
R12126DK: LTR R1,R1 DO WE HAVE AN IOERBLOK @VA12126 01289150
R12126DK: BZ NOT4331 NO, TREAT IT AS BEFORE @VA12126 01289200
R12126DK: CLI IOERDATA+1,X'00' DO WE HAVE A 2ND SENSE BYTE @VA12126 01289250
R12126DK: BE NOT4331 NO, NOT A 4331 @VA12126 01289300
R12126DK: CLI IOERDATA+1,X'20' UNIT CHECK ON A PREPARE? @VA12126 01289350
R12126DK: BE CNSLOGF YES, DISABLE - RE-ENABLE LINE @VA12126 01289400
R12126DK: CLI IOERDATA+1,X'21' UNIT CHECK INITIATING PREPARE @VA12126 01289450
R12126DK: BE CNSLOGF YES, DISABLE - RE-ENABLE LINE @VA12126 01289500
R12126DK: NOT4331 DS 0H @VA12126 01289550
R12126DK: DROP R1 DISCONNECT ASSEMBLER @VA12126 01289600
R12126DK: SPACE 01289650
R12126DK: *********************************************************************** 01289700
R12126DK: * AN ERROR HAS OCCURRED WHICH IS EITHER RECOVERABLE OR WHICH * 01289750
R12126DK: * CAN NOT BE POSITIVELY IDENTIFIED AND MAY BE RECOVERABLE. IN * 01289800
R12126DK: * EITHER CASE THE TASK CAUSING THE ERROR WILL BE RETRIED UP TO * 01289850
R12126DK: * 16 TIMES BEFORE THE LINE IS DISABLED. * 01289900
R12126DK: *********************************************************************** 01289950
R12126DK: ./ D 01303050 01303500 09/08/81 12:42:02
R12126DK: ./ I 01332700 $ 1333700 1000 09/08/81 12:42:02
R12126DK: EJECT 01333700
R12126DK: ./ I 01337000 $ 1337500 500 09/08/81 12:42:02
R12126DK: SPACE 01337500
R12126DK: ./ I 01341000 $ 1341500 500 09/08/81 12:42:02
R12126DK: SPACE 01341500
R12126DK: ./ I 01352200 $ 1352600 400 09/08/81 12:42:02
R12126DK: SPACE 01352600
R12126DK: ./ D 01359000 01439000 09/08/81 12:42:02
R12126DK: ./ I 01533000 $ 1533500 500 09/08/81 12:42:02
R12126DK: SPACE 01533500
R12126DK: ./ R 01534350 $ 1534350 600 09/08/81 12:42:02
R12126DK: SPACE 01534350
R12126DK: ./ I 01535400 $ 1535420 20 09/08/81 12:42:02
R12126DK: SPACE 01535420
R12126DK: ./ I 01535630 $ 1535660 30 09/08/81 12:42:02
R12126DK: SPACE 01535660
R12126DK: ./ I 01537000 $ 1537020 20 09/08/81 12:42:02
R12126DK: EJECT 01537020
R12126DK: ./ I 01537700 $ 1537720 20 09/08/81 12:42:02
R12126DK: SPACE 01537720
R12126DK: ./ R 01603000 $ 1603000 1000 09/08/81 12:42:02
R12126DK: SPACE 01603000
R12126DK: ./ R 01616000 $ 1616000 1000 09/08/81 12:42:02
R12126DK: EJECT 01616000
R12126DK: ./ I 01624000 $ 1624007 7 09/08/81 12:42:02
R12126DK: SPACE 01624007
R12126DK: WRITERM EQU * WRITE ERROR MESSAGE TO OPERATOR @V200820 01624014
R12126DK: CALL DMKSCNRD GET 'CCU' DEVICE ADDR IN GR1 @VM08561 01624021
R12126DK: CALL DMKCVTBH CONVERT FOR OUTPUT @VM08561 01624028
R12126DK: ICM R1,8,BLANKS INSERT HIGH-ORDER BLANK @VM08561 01624035
R12126DK: L R0,MSGHEAD PUT 'CNS', X'00' IN GR0 @V200820 01624042
R12126DK: O R2,MSGPARM PARMS FOR DMKERMSG @V200820 01624049
R12126DK: CALL DMKERMSG,AFFINITY SEND MSG, RETURN HERE @V407508 01624056
R12126DK: BR R9 INTERNAL RETURN @V200820 01624063
R12126DK: EJECT 01624070
R12126DK: CNSTRIO EQU * START UP I/O WITHOUT DMKIOS @V200820 01624077
R12126DK: CALL DMKSCNRD GET 'CCU' DEVICE ADDRESS IN GR1 @V200820 01624084
R12126DK: ST R5,CAW SET THE CHANNEL ADDRESS WORD @V200820 01624091
R12126DK: OI RDEVTFLG,RDEVCTL CONTROL OPERATION ACTIVE @V200820 01624098
R12126DK: NI RDEVFLAG,255-RDEVACTV CONTASK NOT ACTIVE NOW @V200820 01624105
R12126DK: SPACE 01624112
R12126DK: RETRY EQU * @VA06281 01624119
R12126DK: LA R15,500 RETRY SIO COUNT @VA03542 01624126
R12126DK: CNSTSIO EQU * @V200820 01624133
R12126DK: XC CSW(8),CSW CLEAR THE CSW BEFORE START I/O @VA02518 01624140
R12126DK: SIO 0(R1) ATTEMPT TO START THE I/O @V200820 01624147
R12126DK: BC 13,CNSTSIO1 @VA03542 01624154
R12126DK: CLI RDEVTYPC,CLASTERM DEVICE A TERMINAL? @VA03542 01624161
R12126DK: BNE CNSTSIO NO...RETRY @VA03542 01624168
R12126DK: CLI RDEVTYPE,TYPTTY SUPPORTED TYPE? @VA03542 01624175
R12126DK: BH CNSTSIO NO...RETRY (BRANCH HIGH) @VA03542 01624182
R12126DK: BCT R15,CNSTSIO LOOP ON SIO @VA03542 01624189
R12126DK: HIO 0(R1) CLEAR UCW @VA03542 01624196
R12126DK: CLRIO 0(R1) CLEAR CC=3 CONDITION @VA03542 01624203
R12126DK: SPACE 01624210
R12126DK: CNSTSIO1 EQU * @VA03542 01624217
R12126DK: AIF (NOT &TRACE(9)).NTR2 **AIF** 01624224
R12126DK: BAL R15,CNTRACE TRACE THE START I/O @V200820 01624231
R12126DK: DC X'0B00' TRACE ENTRY FLAG @V200820 01624238
R12126DK: .NTR2 ANOP 01624245
R12126DK: BCR 8,R2 CC = 0 => RETURN @V200820 01624252
R12126DK: BC 1,CNSICC3 CC = 3 => NOT OPERATIONAL @V200820 01624259
R12126DK: * CC = 1 => CSW STATUS STORED 01624266
R12126DK: TM CSW+4,SM+BUSY SHORT CONTROL UNIT BUSY ? @V200820 01624273
R12126DK: BO RETRY YES RETRY THE OPERATION @VA06281 01624280
R12126DK: TM CSW+4,BUSY+CE UNSTACKED INTERRUPT @VA11780 01624287
R12126DK: BO CC1RET YES, JUST RETURN @VA11780 01624294
R12126DK: LTR R10,R10 IOBLOK STILL AVAILABLE @VA11780 01624322
R12126DK: BZ CC1RET NO, RETURN @VA11780 01624329
R12126DK: MVC IOBCSW,CSW SAVE CSW FROM INTERRUPT @VA11780 01624336
R12126DK: OI IOBCSW+4,CE+DE INSURE CE AND DE @VA11780 01624343
R12126DK: B CNSNINT PERFORM NORMAL INTERRUPT PROCESS @VA11780 01624350
R12126DK: EJECT 01624357
R12126DK: CC1RET DS 0H @VA11780 01624364
R12126DK: CLI *,X'00' NO - SET COND. CODE NON-ZERO @VA01826 01624371
R12126DK: BR R2 LET CALLER FIGURE IT OUT @V200820 01624378
R12126DK: SPACE 01624385
R12126DK: CNSICC3 EQU * CONDITION CODE THREE - NOT OPERATIONAL @V200820 01624392
R12126DK: TM VMOSTAT,VMSYSOP THE OPERATOR'S CONSOLE ? @V200820 01624399
R12126DK: BO CNSLOGF YES - DO NOT TRY TO SEND MSG@V200820 01624406
R12126DK: TM RDEVSTAT,RDEVDISA IS THIS ONE ALREADY OFFLINE @V200820 01624413
R12126DK: BO CNIGNOR YES - DO NOT GET INTO A LOOP@V200820 01624420
R12126DK: OI RDEVSTAT,RDEVDISA VARY THE TERMINAL OFFLINE @V200820 01624427
R12126DK: NI RDEVFLAG,255-RDEVENAB DO NOT TRY DISABLE @VM08561 01624434
R12126DK: LA R2,455(0) ERROR MESSAGE NUMBER @V200820 01624441
R12126DK: BAL R9,WRITERM SEND MESSAGE TO THE OPERATOR @V200820 01624448
R12126DK: SPACE 01624455
R12126DK: CNSDISA EQU * LINE TO BE DISABLED @V200820 01624462
R12126DK: OI RDEVFLAG,RDEVDISB DISABLE THIS LINE A.S.A.P. @V200820 01624469
R12126DK: LA R2,454(0) ERROR MESSAGE NUMBER @V200820 01624476
R12126DK: BAL R9,WRITERM SEND MESSAGE TO THE OPERATOR @V200820 01624483
R12126DK: SPACE 01624490
R12126DK: CNSLOGF EQU * FATAL TERMINAL ERROR, OR SOME SUC@V200820 01624497
R12126DK: L R1,RDEVUSER GET ADDRESS OF CORRECT VMBLOK @V407508 01624504
R12126DK: SWTCHVM OPT=STAY SWITCH TO THE CORRECT VMBLOK @V407508 01624511
R12126DK: CALL DMKQCNCL CLEAR ANY TERMINAL CONTASK STACK @V200820 01624518
R12126DK: CL R11,ASYSVM IS THERE AN ACTIVE MACHINE ? @V200820 01624525
R12126DK: BE CNSNOFF NO -- JUST DISABLE THE LINE @V200820 01624532
R12126DK: TM RDEVSTA2,RDEVDROP USER WILL LOGOFF? @VA04688 01624539
R12126DK: BO CNSNOFF YES--PREVENT DOUBLE FRET VMBLOK @VA04688 01624546
R12126DK: C R8,VMTERM IS THIS THE VITUAL CONSOLE ?? @VA07735 01624553
R12126DK: BNE CNSNOFF NO, DON'T LOGOFF V.M. FOR I/O ERR@VA07735 01624560
R12126DK: * INITIATE THE DISCONNECT WITH TIMEOUT PROCEDURE 01624567
R12126DK: CALL DMKQCNTO,AFFINITY PUT THIS MACHINE TO SLEEP @V407508 01624574
R12126DK: * B CNSNOFF DISABLE AND RE-ENABLE THE LINE @V200820 01624581
R12126DK: EJECT 01624588
R12126DK: CNSNOFF EQU * DISABLE THE LINE, POSSIBLY RE-ENABLE @V200820 01624595
R12126DK: * STOP CHARGING A SPECIFIC USER, SYSTEM NOW OWNS LINE 01624602
R12126DK: L R1,ASYSVM GET ADDRESS OF SYSTEM VMBLOK @V407508 01624609
R12126DK: SWTCHVM OPT=UNLOCK SWITCH TO THE SYSTEM VMBLOK @V407508 01624616
R12126DK: ST R11,RDEVUSER ... @V200820 01624623
R12126DK: NI RDEVFLAG,255-(RDEVIDNT+RDEVACTV+RDEVPREP) @V200820 01624630
R12126DK: NI RDEVSTA2,255-RDEVDROP CLEAR LOGDROP FLAG @VA04688 01624637
R12126DK: OI RDEVFLAG,RDEVPSUP ASSUME PRINT SUPPRESS @V200820 01624644
R12126DK: MVI RDEVTFLG,X'00' CLEAR THE TERMINAL FLAG BYTE@V200820 01624651
R12126DK: CLI RDEVTYPE,TYP3210 IS THIS AN EBCDIC CONSOLE ? @V200820 01624658
R12126DK: BE CNSNOFN YES - GO TEST RDEVDISB FLAG @V200820 01624665
R12126DK: TM RDEVFLAG,RDEVENAB IS THE LINE ENABLED NOW ? @V200820 01624672
R12126DK: BZ CNIGNOR NO -- DO NOT REISSUE DISABLE@V200820 01624679
R12126DK: BAL R9,CNSGTSK GET A CONTROL CONTASK @V200820 01624686
R12126DK: MVC CONCCW1(8),DISABLED MOVE IN DISABLE CCW @V200820 01624693
R12126DK: CLI RDEVTYPE,TYPTTY TELEGRAPH-TYPE TERMINAL ? @V200820 01624700
R12126DK: BE CNSNOFS YES - JUST ISSUE THE DISABLE@V200820 01624707
R12126DK: MVI RDEVTYPE,TYPUNDEF DEVICE TYPE UNDEFINED @V200820 01624714
R12126DK: MVI RDEVTMCD,RDEVPTTC RESET TERMINAL LINE CODE @V200820 01624721
R12126DK: MVC CONCCW1(3*8),DISABLEC WRITE CIRCLE-C, DISABLE@V200820 01624728
R12126DK: CNSNOFS EQU * @V200820 01624735
R12126DK: MVI CONPARM,RDEVDISB FLAG THIS AS DISABLE TASK @V200820 01624742
R12126DK: B CNSTART START UP THE DISABLE @V200820 01624749
R12126DK: SPACE 01624756
R12126DK: CNSNOFC EQU * HERE WHEN THE DISABLE COMPLETES @V200820 01624763
R12126DK: TM IOBSTAT,IOBCC3 CONDITION CODE ON START I/O @V200820 01624770
R12126DK: BZ CNSNOFL NO -- @V200820 01624777
R12126DK: BM CNSNOFTX GO ISSUE DISABLE @VA11780 01624784
R12126DK: NI RDEVFLAG,255-RDEVENAB DON'T REISSUE DISABLE @V200820 01624791
R12126DK: B CNSDISA SEND OPERATOR MSG, DISABLE LINE @V200820 01624798
R12126DK: CNSNOFL EQU * @V200820 01624805
R12126DK: L R1,IOBCSW MAKE SURE WE STOPPED ON DISABLE @V200820 01624812
R12126DK: S R1,F8 BACK OFF TO CCW @VA04162 01624819
R12126DK: BNP CNIGNOR THROW IT AWAY (3705 EP) @VA04162 01624826
R12126DK: CLI 0(R1),X'2F' WAS THIS THE DISABLE ITSELF ? @V200820 01624833
R12126DK: BE CNSNOFT YES - NOW WE CAN RE-ENABLE @V200820 01624840
R12126DK: CNSNOFTX DS 0H NON ZERO COND CODE ON DISABLE @VA11780 01624847
R12126DK: MVC CONCCW1(8),DISABLED MOVE IN STAND-ALONE DISABLE @V200820 01624854
R12126DK: XC CONCCW2(3*8),CONCCW2 CLEAN UP THE CONTASK @V200820 01624861
R12126DK: B CNSTART . . .AND RE-ISSUE IT @V200820 01624868
R12126DK: CNSNOFT EQU * CLEAN UP RDEVBLOK, RE-ENABLE @V200820 01624875
R12126DK: CALL DMKQCNCL FLUSH THE LAST CONTASK @V200820 01624882
R12126DK: NI RDEVFLAG,255-RDEVACTV NOT ACTIVE ANY MORE @V200820 01624889
R12126DK: CNSNOFN EQU * @V200820 01624896
R12126DK: TM RDEVFLAG,RDEVDISB SHOULD WE RE-ENABLE THE LINE@V200820 01624903
R12126DK: BZ CNSENAB YES - GO DO JUST THAT @V200820 01624910
R12126DK: NI RDEVFLAG,255-(RDEVENAB+RDEVDISB) DISABLED @V200820 01624917
R12126DK: B CNIGNOR CLEAN UP AND EXIT FORTHWITH @V200820 01624924
BEGIN APPLY >>> ./ I 00298000 $ 298500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00298000 $ 298500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00310000 $ 310000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00310000 $ 310000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00320000 $ 320500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00320000 $ 320500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00347000 $ 347000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00347000 $ 347000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00359000 $ 359000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00359000 $ 359000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00392000 09/08/81 12:42:02
END APPLY >>> ./ D 00392000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00394000 09/08/81 12:42:02
END APPLY >>> ./ D 00394000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00399000 09/08/81 12:42:02
END APPLY >>> ./ D 00399000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00504000 09/08/81 12:42:02
END APPLY >>> ./ D 00504000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00509000 09/08/81 12:42:02
END APPLY >>> ./ D 00509000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00522000 09/08/81 12:42:02
END APPLY >>> ./ D 00522000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00594000 $ 594000 80 09/08/81 12:42:02
END APPLY >>> ./ R 00594000 $ 594000 80 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00603000 09/08/81 12:42:02
END APPLY >>> ./ D 00603000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00607000 09/08/81 12:42:02
END APPLY >>> ./ D 00607000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00610700 $ 610750 50 09/08/81 12:42:02
END APPLY >>> ./ I 00610700 $ 610750 50 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00616000 $ 616090 90 09/08/81 12:42:02
END APPLY >>> ./ I 00616000 $ 616090 90 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00621000 $ 621500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00621000 $ 621500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00631000 $ 631000 100 09/08/81 12:42:02
END APPLY >>> ./ R 00631000 $ 631000 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00641000 00642000 $ 641000 200 09/08/81 12:42:02
END APPLY >>> ./ R 00641000 00642000 $ 641000 200 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00648000 00649000 $ 648000 200 09/08/81 12:42:02
END APPLY >>> ./ R 00648000 00649000 $ 648000 200 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00653000 $ 653000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00653000 $ 653000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00658000 $ 658080 80 09/08/81 12:42:02
END APPLY >>> ./ I 00658000 $ 658080 80 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00668000 $ 668500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00668000 $ 668500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00681000 $ 681500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00681000 $ 681500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00693000 $ 693000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00693000 $ 693000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00703000 $ 703000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00703000 $ 703000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00721000 $ 721000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00721000 $ 721000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00740000 $ 740500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00740000 $ 740500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00745000 $ 745000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00745000 $ 745000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00747700 $ 747750 50 09/08/81 12:42:02
END APPLY >>> ./ I 00747700 $ 747750 50 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00747900 $ 748400 500 09/08/81 12:42:02
END APPLY >>> ./ I 00747900 $ 748400 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00765000 $ 765500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00765000 $ 765500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00770000 $ 770000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00770000 $ 770000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00799000 $ 799030 30 09/08/81 12:42:02
END APPLY >>> ./ I 00799000 $ 799030 30 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00802000 $ 802070 70 09/08/81 12:42:02
END APPLY >>> ./ I 00802000 $ 802070 70 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00804000 $ 804010 10 09/08/81 12:42:02
END APPLY >>> ./ I 00804000 $ 804010 10 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00808000 $ 808500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00808000 $ 808500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00814000 $ 814500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00814000 $ 814500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00828000 $ 828500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00828000 $ 828500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00831000 $ 831500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00831000 $ 831500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00838400 $ 838450 50 09/08/81 12:42:02
END APPLY >>> ./ I 00838400 $ 838450 50 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00862010 09/08/81 12:42:02
END APPLY >>> ./ D 00862010 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00863000 $ 863000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 00863000 $ 863000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00870000 00871000 $ 870000 100 09/08/81 12:42:02
END APPLY >>> ./ R 00870000 00871000 $ 870000 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00888000 $ 888000 100 09/08/81 12:42:02
END APPLY >>> ./ R 00888000 $ 888000 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00898000 $ 898100 100 09/08/81 12:42:02
END APPLY >>> ./ I 00898000 $ 898100 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00909000 $ 909500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00909000 $ 909500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00915000 $ 915500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00915000 $ 915500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00919000 $ 919500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00919000 $ 919500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00924000 $ 924500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00924000 $ 924500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 00933000 $ 933000 90 09/08/81 12:42:02
END APPLY >>> ./ R 00933000 $ 933000 90 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00950000 $ 950100 100 09/08/81 12:42:02
END APPLY >>> ./ I 00950000 $ 950100 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00953210 $ 953215 5 09/08/81 12:42:02
END APPLY >>> ./ I 00953210 $ 953215 5 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00953240 $ 953270 30 09/08/81 12:42:02
END APPLY >>> ./ I 00953240 $ 953270 30 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00954000 09/08/81 12:42:02
END APPLY >>> ./ D 00954000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00957000 09/08/81 12:42:02
END APPLY >>> ./ D 00957000 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 00960000 09/08/81 12:42:02
END APPLY >>> ./ D 00960000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00975000 $ 975500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00975000 $ 975500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 00993000 $ 993500 500 09/08/81 12:42:02
END APPLY >>> ./ I 00993000 $ 993500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01010000 $ 1010500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01010000 $ 1010500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01014000 $ 1014500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01014000 $ 1014500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01022000 $ 1022500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01022000 $ 1022500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01029000 $ 1029500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01029000 $ 1029500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01037000 $ 1037000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01037000 $ 1037000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01042000 $ 1042000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01042000 $ 1042000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01043000 $ 1043500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01043000 $ 1043500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01056000 $ 1056000 500 09/08/81 12:42:02
END APPLY >>> ./ R 01056000 $ 1056000 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01075000 $ 1075500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01075000 $ 1075500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01084000 $ 1084000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01084000 $ 1084000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01117700 $ 1117720 20 09/08/81 12:42:02
END APPLY >>> ./ I 01117700 $ 1117720 20 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01117770 $ 1117772 2 09/08/81 12:42:02
END APPLY >>> ./ I 01117770 $ 1117772 2 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01125100 $ 1125150 50 09/08/81 12:42:02
END APPLY >>> ./ I 01125100 $ 1125150 50 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01125330 $ 1125335 5 09/08/81 12:42:02
END APPLY >>> ./ I 01125330 $ 1125335 5 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01125700 $ 1125800 100 09/08/81 12:42:02
END APPLY >>> ./ I 01125700 $ 1125800 100 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01140500 $ 1140700 200 09/08/81 12:42:02
END APPLY >>> ./ I 01140500 $ 1140700 200 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01146000 $ 1146500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01146000 $ 1146500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 01166000 09/08/81 12:42:02
END APPLY >>> ./ D 01166000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01209000 $ 1209000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01209000 $ 1209000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01241000 $ 1241000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01241000 $ 1241000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01244000 $ 1244000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01244000 $ 1244000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01253000 01286000 $ 1253000 4000 09/08/81 12:42:02
END APPLY >>> ./ R 01253000 01286000 $ 1253000 4000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01289000 $ 1289000 50 09/08/81 12:42:02
END APPLY >>> ./ R 01289000 $ 1289000 50 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 01303050 01303500 09/08/81 12:42:02
END APPLY >>> ./ D 01303050 01303500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01332700 $ 1333700 1000 09/08/81 12:42:02
END APPLY >>> ./ I 01332700 $ 1333700 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01337000 $ 1337500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01337000 $ 1337500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01341000 $ 1341500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01341000 $ 1341500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01352200 $ 1352600 400 09/08/81 12:42:02
END APPLY >>> ./ I 01352200 $ 1352600 400 09/08/81 12:42:02
BEGIN APPLY >>> ./ D 01359000 01439000 09/08/81 12:42:02
END APPLY >>> ./ D 01359000 01439000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01533000 $ 1533500 500 09/08/81 12:42:02
END APPLY >>> ./ I 01533000 $ 1533500 500 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01534350 $ 1534350 600 09/08/81 12:42:02
END APPLY >>> ./ R 01534350 $ 1534350 600 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01535400 $ 1535420 20 09/08/81 12:42:02
END APPLY >>> ./ I 01535400 $ 1535420 20 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01535630 $ 1535660 30 09/08/81 12:42:02
END APPLY >>> ./ I 01535630 $ 1535660 30 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01537000 $ 1537020 20 09/08/81 12:42:02
END APPLY >>> ./ I 01537000 $ 1537020 20 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01537700 $ 1537720 20 09/08/81 12:42:02
END APPLY >>> ./ I 01537700 $ 1537720 20 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01603000 $ 1603000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01603000 $ 1603000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ R 01616000 $ 1616000 1000 09/08/81 12:42:02
END APPLY >>> ./ R 01616000 $ 1616000 1000 09/08/81 12:42:02
BEGIN APPLY >>> ./ I 01624000 $ 1624007 7 09/08/81 12:42:02
END APPLY >>> ./ I 01624000 $ 1624007 7 09/08/81 12:42:02
Update Succeeded
Update Execution Time 297 milliseconds.
R12733DK
Date Thursday Oct 15, 1981 10:22:00 AM
Loaded from MAINT(294)
R12733DK: ./ I 01624308 $ 01624310 2 00001000
R12733DK: SPACE 1 00002000
R12733DK: CLI RDEVTYPE,TYP3210 3215 TYPE? @VA12733 00003000
R12733DK: BER R2 YES,RETURN TO CALLER @VA12733 00004000
BEGIN APPLY >>> ./ I 01624308 $ 01624310 2 00001000
END APPLY >>> ./ I 01624308 $ 01624310 2 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13198DK
Date Thursday Oct 22, 1981 01:45:00 PM
Loaded from MAINT(294)
R13198DK: ./ R 382000 $ 382200 200 00001000
R13198DK: L R1,RDEVAIOB ACTIVE IOB @VA13198 00002000
R13198DK: LTR R1,R1 HAVE ONE ? @VA13198 00003000
R13198DK: BZ CNSEXIT NO, INTERRUPT DUE @VA13198 00004000
R13198DK: B INTHALT1 @VA13198 00005000
R13198DK: ./ R 1624532 1624581 $ 1624527 2 00006000
R13198DK: C R8,VMTERM IS THIS THE VIRTUAL CONSOLE? @VA07735
R13198DK: BNE CNSNOFF NO, DON'T LOGOFF V.M. FOR I/O ERR@VA07735
R13198DK: * INITIATE THE DISCONNECT WITH TIMEOUT PROCEDURE
R13198DK: LTR R10,R10 IOB IN R10 ? @VA13198 00007000
R13198DK: BNZ NOIOB YES @VA13198 00008000
R13198DK: L R10,RDEVAIOB ACTIVE IOB @VA13198 00009000
R13198DK: LTR R10,R10 HAVE ONE ? @VA13198 00010000
R13198DK: BZ NOIOB NO @VA13198 00011000
R13198DK: LR R9,R7 SAVE R7 @VA13198 00012000
R13198DK: ST R6,IOBMISC2 SAVE R6 @VA13198 00013000
R13198DK: LH R1,IOBRADD DEVICE ADDRESS @VA13198 00014000
R13198DK: CALL DMKSCNRU @VA13198 00015000
R13198DK: BZ HAVEBL HAVE ALL BLOKS @VA13198 00016000
R13198DK: L R8,VMTERM RDEVICE @VA13198 00017000
R13198DK: B DEV RESET DEVICE @VA13198 00018000
R13198DK: HAVEBL EQU * @VA13198 00019000
R13198DK: NI RCHSTAT-RCHBLOK(R6),X'FF'-RCHBUSY BUSY OFF @VA13198 00020000
R13198DK: NI RCUSTAT-RCUBLOK(R7),X'FF'-(RCUBUSY+RCUSCED) OFF @VA13198 00021000
R13198DK: DEV EQU * @VA13198 00022000
R13198DK: NI RDEVSTAT,X'FF'-(RDEVBUSY+RDEVSCED) TURN OFF @VA13198 00023000
R13198DK: LR R7,R9 RESTORE @VA13198 00024000
R13198DK: L R6,IOBMISC2 RESTORE @VA13198 00025000
R13198DK: SR R15,R15 ZERO @VA13198 00026000
R13198DK: ST R15,RDEVAIOB CLEAR ACTIVE IOB @VA13198 00027000
R13198DK: BAL R9,FRETIOB @VA13198 00028000
R13198DK: NOIOB EQU * @VA13198 00029000
R13198DK: CALL DMKQCNTO,AFFINITY PUT THIS MACHINE TO SLEEP @V407508
R13198DK: EJECT
R13198DK: CNSNOFF EQU * DISABLE THE LINE , POSSIBLY RE-ENABLE @V200820
R13198DK: * STOP CHARGING A SPECIFIC USER , SYSTEM NOW OWNS LINE
BEGIN APPLY >>> ./ R 382000 $ 382200 200 00001000
END APPLY >>> ./ R 382000 $ 382200 200 00001000
BEGIN APPLY >>> ./ R 1624532 1624581 $ 1624527 2 00006000
END APPLY >>> ./ R 1624532 1624581 $ 1624527 2 00006000
Update Succeeded
Update Execution Time 23 milliseconds.
R13158DK
Date Tuesday Nov 10, 1981 09:32:00 AM
Loaded from MAINT(294)
R13158DK: ./ R 512000 514000 $ 512100 100 00001000
R13158DK: TM IOBCSW+5,PRGC+PRTC+CHC+CCC+IFCC FATAL? @VA13158 00002000
R13158DK: BNZ CNSICC3 YES, MSG OPERATOR - VARIED @VA13158 00005000
R13158DK: * OFFLINE, DISABLED 00006000
R13158DK: ./ I 1624266 $ 1624268 2 00007000
R13158DK: TM CSW+5,PRGC+PRTC+CHC+CCC+IFCC FATAL? @VA13158 00008000
R13158DK: BO CNSICC3 YES, MSG OPERATOR - VARIED @VA13158 00009000
R13158DK: * OFFLINE, DISABLED 00010000
R13158DK: ./ R 1624357 $ 1624358
R13158DK: BR R2 RETURN TO THE CALLER @VA13158
R13158DK: ./ I 1624413 $ 1624415 2 00011000
R13158DK: TM IOBSTAT,IOBCC3 IS THIS A CC3? @VA13158 00012000
R13158DK: BNO CNSDISA NO - DON'T SEND NOT OPERATIONAL @VA13158 00013000
R13158DK: * MESSAGE
BEGIN APPLY >>> ./ R 512000 514000 $ 512100 100 00001000
END APPLY >>> ./ R 512000 514000 $ 512100 100 00001000
BEGIN APPLY >>> ./ I 1624266 $ 1624268 2 00007000
END APPLY >>> ./ I 1624266 $ 1624268 2 00007000
BEGIN APPLY >>> ./ R 1624357 $ 1624358
END APPLY >>> ./ R 1624357 $ 1624358
BEGIN APPLY >>> ./ I 1624413 $ 1624415 2 00011000
END APPLY >>> ./ I 1624413 $ 1624415 2 00011000
Update Succeeded
Update Execution Time 23 milliseconds.
R14789DK
Date Friday Jan 15, 1982 04:23:00 PM
Loaded from MAINT(294)
R14789DK: ./ R 953170 $ 953170 10 00001000
R14789DK: BE CNSEXRT YES, PROCESS NORMAL ATTENTION @VA14789 00002000
BEGIN APPLY >>> ./ R 953170 $ 953170 10 00001000
END APPLY >>> ./ R 953170 $ 953170 10 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R15227DK
Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
R15227DK: ./ R 970100 970700 $ 970000 1000 00001000
R15227DK: BO CNSRTRY YES - RETRY SIXTEEN TIMES @VA15227 00002000
R15227DK: B CNSITSK GO RESET FOR IDENTIFY SEQUENCE @VA15227 00003000
R15227DK: ./ D 1330000 1331000 $ 00004000
BEGIN APPLY >>> ./ R 970100 970700 $ 970000 1000 00001000
END APPLY >>> ./ R 970100 970700 $ 970000 1000 00001000
BEGIN APPLY >>> ./ D 1330000 1331000 $ 00004000
END APPLY >>> ./ D 1330000 1331000 $ 00004000
Update Succeeded
Update Execution Time 39 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
BEGIN APPLY >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
Comment >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
END APPLY >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
Update Succeeded
Update Execution Time 16 milliseconds.
HRC370DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC370DK: ./ I 01523000 $ 1523100 100 07/12/10 20:33:58
HRC370DK: MVC EBCLMSG+8(1),INSTWRD1 indicate VM/370 or VM/380 HRC370DK 01523100
HRC370DK: ./ R 01701000 01701000 $ 1701000 07/12/10 20:33:58
HRC370DK: EBCLMSG DC X'151515',C' VM/370 Online ' HRC370DK 01701000
BEGIN APPLY >>> ./ I 01523000 $ 1523100 100 07/12/10 20:33:58
END APPLY >>> ./ I 01523000 $ 1523100 100 07/12/10 20:33:58
BEGIN APPLY >>> ./ R 01701000 01701000 $ 1701000 07/12/10 20:33:58
END APPLY >>> ./ R 01701000 01701000 $ 1701000 07/12/10 20:33:58
Update Succeeded
Update Execution Time 31 milliseconds.