ibm:vm370-lib:cp:dmkcns.assemble_hst
Table of Contents
DMKCNS History
References
- Fixes Applied : 25
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkcns.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator