Date Wednesday Jan 10, 1979 01:14:00 PM
Loaded from MAINT(294)
R08873DK: ./ D 00054000 00001000
R08873DK: ./ I 00066000 $ 00002000
R08873DK: * ABEND - TO TERMINATE THE SYSTEM 00003000
R08873DK: ./ D 00103000 00004000
R08873DK: ./ R 00499000 00532000 $ 00499100 100 00005000
R08873DK: * B. IF CPLOKFL SET, CLEAR CPLOKFL AND CPSYSLK 00006000
R08873DK: * 00007000
R08873DK: * C. PROCESSING FOR EMERGENCY SIGNALS 00008000
R08873DK: * 1. IF THE EMS IS A SHUTDOWN, TURN OFF APUOPER IN EACH PSA, 00009000
R08873DK: * TURN OFF EMSPSHD, TURN ON EMSRSHD, AND LOAD A DISABLED 00010000
R08873DK: * 008 WAIT STATE. 00011000
R08873DK: * 2. IF THE EMS IS FOR EXTEND, DISABLE CHANNEL 0 AND GOTO 00012000
R08873DK: * DMKDSPRU. 00013000
R08873DK: * 3. IF THE EMS IS A SYNC, GOTO DMKCLKAP. 00014000
R08873DK: * 4. IF THE EMS IS A CLKCHK, GOTO DMKCLKCC. 00015000
R08873DK: * 5. IF THE EMS IS QUIESCE, CLEAR RESUME PENDING AND 00016000
R08873DK: * GOTO DMKDSPRU. 00017000
R08873DK: * 00018000
R08873DK: * D. PROCESSING FOR EXTERNAL CALLS 00019000
R08873DK: * 1. IF THE XC IS AN APR, GOTO DMKMCTPR. 00020000
R08873DK: * 2. IF THE XC IS A RESUME, TURN OFF EMSINQSC (IF ON) AND 00021000
R08873DK: * XCRES. IF NO OTHER XC'S ARE PENDING, GOTO DMKDSPRU. 00022000
R08873DK: * 3. IF THE XC IS A DISPATCH, TRY TO OBTAIN SYSTEM LOCK. 00023000
R08873DK: * IF LOCK OBTAINED, TURN OFF XCDISP AND XCWAK AND GOTO 00024000
R08873DK: * DMKDSPCH. IF THE LOCK IS NOT AVAILABLE, GOTO 00025000
R08873DK: * DMKDSPRU. 00026000
R08873DK: * 4. IF THE XC IS A WAKEUP, TURN OFF XCWAK. IF THE SYSTEM 00027000
R08873DK: * WAS RUNNING A USER, RELOAD THE EXTERNAL OLD PSW. 00028000
R08873DK: * OTHERWISE, TRY TO OBTAIN THE GLOBAL SYSTEM LOCK. IF 00029000
R08873DK: * THE LOCK IS AVAILABLE, GOTO DMKDSPCH; IF THE LOCK IS NOT 00030000
R08873DK: * AVAILABLE, GOTO DMKDSPRU. 00031000
R08873DK: * 00032000
R08873DK: * E. PROCESSING FOR TOD SYNC CHECKS 00033000
R08873DK: * 1. CALL DMKCLKSC. 00034000
R08873DK: * 2. ONCE CONTROL IS RETURNED, IF THE SYSTEM LOCK IS HELD 00035000
R08873DK: * OR IS AVAILABLE, GOTO DMKDSPCH. OTHERWISE, GOTO 00036000
R08873DK: * DMKDSPRU. 00037000
R08873DK: * 00038000
R08873DK: * IF NO INTERRUPTS ARE PENDING, RELOAD THE EXTERNAL OLD PSW. 00039000
R08873DK: ./ I 00546000 $ 00040000
R08873DK: * 00041000
R08873DK: * DETERMINE IF INTERRUPT OCCURRED IN DMKLOK WINDOW IN 00042000
R08873DK: * SPIN ROUTINE. IF SO, MUST CLEAR SPIN INDICATOR 00043000
R08873DK: * 00044000
R08873DK: ./ R 00548000 $ 00548100 100 00045000
R08873DK: BNO EMSTST NO, TEST FOR EMERGENCY SIGNAL @VA08873 00046000
R08873DK: ./ R 00553000 00555000 $ 00553100 25 00047000
R08873DK: * 00048000
R08873DK: * PROCESSING FOR EMERGENCY SIGNAL 00049000
R08873DK: * 00050000
R08873DK: EMSTST DS 0H @VA08873 00051000
R08873DK: CH R2,EMSCODES IS THIS EMERGENCY SIGNAL @VA08873 00052000
R08873DK: BNE XCTST NO, CHECK EXTERNAL CALL @VA08873 00053000
R08873DK: TM EMSPEND,VALDEMS ARE ANY EMS FUNCTIONS PENDING? @VA08873 00054000
R08873DK: BZ XCTST2 NO, CHECK EXTERNAL CALL PENDING @VA08873 00055000
R08873DK: TM EMSPEND,EMSPSHD IS THIS A SHUTDOWN EMS? @VA08873 00056000
R08873DK: BNO XTNDTST NO, GO TEST FOR EXTEND @VA08873 00057000
R08873DK: NI APSTAT1,X'FF'-APUOPER TURN OFF APUOPER IN THIS @VA08873 00058000
R08873DK: * PSA 00059000
R08873DK: L R1,PREFIXB GET PREFIX ADDR OF OTHER @VA08873 00060000
R08873DK: * PROCESSOR 00061000
R08873DK: NI APSTAT1-PSA(R1),X'FF'-APUOPER TURN OFF APUOPER @VA08873 00062000
R08873DK: * IN PSA OF OTHER PROCESSOR 00063000
R08873DK: NI EMSPEND,X'FF'-EMSPSHD TURN OFF SHUTDOWN @VA08873 00064000
R08873DK: * PENDING FLAG 00065000
R08873DK: OI EMSREC,EMSRSHD TURN ON SHUTDOWN RECEIVED FLAG @VA08873 00066000
R08873DK: LPSW WAIT08 LOAD DISABLED 008 WAIT STATE @VA08873 00067000
R08873DK: XTNDTST DS 0H @VA08873 00068000
R08873DK: TM EMSPEND,EMSPEXT IS THIS AN EXTEND EMS? @VA08873 00069000
R08873DK: BNO SYNCTST NO, GO TEST FOR SYNC EMS @VA08873 00070000
R08873DK: STCTL C2,C2,SIGCREG STORE CURRENT CR2 IN WORK AREA @VA08873 00071000
R08873DK: NI SIGCREG,X'FF'-CHAN0 DISABLE CHANNEL 0 @VA08873 00072000
R08873DK: LCTL C2,C2,SIGCREG LOAD ALTERED CR2 @VA08873 00073000
R08873DK: B UNLKXT TAKE UNLOCKED EXIT @VA08873 00074000
R08873DK: SYNCTST DS 0H @VA08873 00075000
R08873DK: TM EMSPEND,EMSPSYNC+EMSPCLKC SYNC OR CLKCHK ?? @VA08873 00076000
R08873DK: BZ QSC NO - MUST BE QUIESCE @VA08873 00077000
R08873DK: SPACE 00078000
R08873DK: * MUST NOW GET SYSTEM CREG1 FOR LATER ADDRESSABILITY 00079000
R08873DK: SPACE 00080000
R08873DK: L R3,ASYSVM GET SYSTEM VMBLOK @VA08873 00081000
R08873DK: STCTL C1,C1,SIGCREG SAVE CONTROL REG 1 @VA08873 00082000
R08873DK: LCTL C1,C1,VMSEG-VMBLOK(R3) SYSTEM CONTROL REG 1 @VA08873 00083000
R08873DK: TM EMSPEND,EMSPSYNC IS THIS A SYNC EMS? @VA08873 00084000
R08873DK: BNO CLKCHK NO, MUST BE CLKCHK EMS @VA08873 00085000
R08873DK: SPACE 00086000
R08873DK: * DMKCLK IS AT PRESENT SOMEWHERE IN STORAGE SO MUST FIND 00087000
R08873DK: * THE PROPER REAL ADDRESS OF ROUTINE TO BRANCH TO. 00088000
R08873DK: SPACE 00089000
R08873DK: L R12,=A(DMKCLKAP) ADDR. OF CLOCK SYNC ROUTINE @VA08873 00090000
R08873DK: LRA R12,0(0,R12) GET REAL ADDRESS OF ROUTINE @VA08873 00091000
R08873DK: LCTL C1,C1,SIGCREG RESTORE CONTROL REG 1 @VA08873 00092000
R08873DK: BR R12 GOTO CLOCK SYNC ROUTINE @VA08873 00093000
R08873DK: CLKCHK DS 0H CLKCHK PROCESSING @VA08873 00094000
R08873DK: SPACE 00095000
R08873DK: * DMKCLK IS AT PRESENT SOMEWHERE IN STORAGE SO MUST FIND 00096000
R08873DK: * THE PROPER REAL ADDRESS OF ROUTINE. 00097000
R08873DK: SPACE 00098000
R08873DK: L R12,=A(DMKCLKCC) ADDR OF HIGH ORDER SYNC ROUTINE@VA08873 00099000
R08873DK: LRA R12,0(0,R12) GET REAL ADDRESS OF ROUTINE @VA08873 00100000
R08873DK: LCTL C1,C1,SIGCREG RESTORE CONTROL REG 1 @VA08873 00101000
R08873DK: BR R12 GOTO HIGH ORDER SYNC ROUTINE @VA08873 00102000
R08873DK: QSC DS 0H QUIESCE PROCESSING @VA08873 00103000
R08873DK: * 00104000
R08873DK: * IF A RESUME IS PENDING WHEN A QUIESCE IS ISSUED, THE RESUME 00105000
R08873DK: * MUST BE CLEARED BEFORE THE SYSTEM IS QUIESCED SO THAT 00106000
R08873DK: * THE RESUME WILL NOT CANCEL THE WRONG QUIESCE 00107000
R08873DK: * 00108000
R08873DK: TM XCPEND,XCRES IS A RESUME PENDING? @VA08873 00109000
R08873DK: BZ UNLKXT NO, GO TO DMKDSPRU @VA08873 00110000
R08873DK: L R0,XCPEND GET WORD OF XC PENDING FLAGS @VA08873 00111000
R08873DK: RESLP3 DS 0H RETRY POINT FOR C&S @VA08873 00112000
R08873DK: LR R1,R0 MOVE WORD OF FLAGS TO WORK REG @VA08873 00113000
R08873DK: N R1,RESOFF TURN OFF RESUME PENDING FLAG @VA08873 00114000
R08873DK: CS R0,R1,XCPEND STORE ALTERED WORD OF FLAGS @VA08873 00115000
R08873DK: BNE RESLP3 IF COMPARE FAILS, TRY AGAIN @VA08873 00116000
R08873DK: B UNLKXT GO TO DMKDSPRU @VA08873 00117000
R08873DK: ./ I 00559000 $ 00559100 100 00118000
R08873DK: CH R2,XCCODES EXTERNAL CALL INTERRUPT? @VA08873 00119000
R08873DK: BNE TODTST NO, CHECK TOD SYNC CHECK @VA08873 00120000
R08873DK: XCTST2 DS 0H @VA08873 00121000
R08873DK: ./ R 00561000 $ 00561100 00122000
R08873DK: BZ TODTST NO, CHECK TOD SYNC CHECK @VA08873 00123000
R08873DK: ./ R 00585500 $ 00585600 00124000
R08873DK: BNZ UNLKXT NO LOCK, GO TO DMKDSPRU @VA08873 00125000
R08873DK: ./ R 00589000 $ 00589100 00126000
R08873DK: * 00127000
R08873DK: * WHEN DISPATCH SIGNAL IS TURNED OFF, TURN OFF WAKEUP. 00128000
R08873DK: * THIS WILL PREVENT CONDITIONS PENDING WITH NO SIGNAL 00129000
R08873DK: * PENDING. THIS CAN OCCUR WHEN AN EXTERNAL CALL IS 00130000
R08873DK: * ALREADY PENDING WHEN THE SIGNAL IS ISSUED. 00131000
R08873DK: * 00132000
R08873DK: N R1,DISPOFF TURN OFF DISPATCH & WAKEUP @VA08873 00133000
R08873DK: ./ D 00592700 00598000 00134000
R08873DK: ./ D 00611000 00643000 00135000
R08873DK: ./ R 00727000 00730000 $ 00727100 100 00136000
R08873DK: EMSCODES DC X'1201' EMS INTERRUPT CODE @VA08873 00137000
R08873DK: XCCODES DC X'1202' EXTERNAL CALL INTERRUPT CODE @VA08873 00138000
R08873DK: QSCOFF DC X'FEFFFFFF' IN-QUIESCE FLAG OFF @VA08873 00139000
R08873DK: RESOFF DC X'BFFFFFFF' RESUME FLAG OFF @VA08873 00140000
R08873DK: WAKOFF DC X'DFFFFFFF' WAKEUP FLAG OFF @VA08873 00141000
R08873DK: DISPOFF DC X'CFFFFFFF' TURN OFF DISPATCH & WAKEUP @VA08873 00142000
BEGIN APPLY >>> ./ D 00054000 00001000
END APPLY >>> ./ D 00054000 00001000
BEGIN APPLY >>> ./ I 00066000 $ 00002000
END APPLY >>> ./ I 00066000 $ 00002000
BEGIN APPLY >>> ./ D 00103000 00004000
END APPLY >>> ./ D 00103000 00004000
BEGIN APPLY >>> ./ R 00499000 00532000 $ 00499100 100 00005000
END APPLY >>> ./ R 00499000 00532000 $ 00499100 100 00005000
BEGIN APPLY >>> ./ I 00546000 $ 00040000
END APPLY >>> ./ I 00546000 $ 00040000
BEGIN APPLY >>> ./ R 00548000 $ 00548100 100 00045000
END APPLY >>> ./ R 00548000 $ 00548100 100 00045000
BEGIN APPLY >>> ./ R 00553000 00555000 $ 00553100 25 00047000
END APPLY >>> ./ R 00553000 00555000 $ 00553100 25 00047000
BEGIN APPLY >>> ./ I 00559000 $ 00559100 100 00118000
END APPLY >>> ./ I 00559000 $ 00559100 100 00118000
BEGIN APPLY >>> ./ R 00561000 $ 00561100 00122000
END APPLY >>> ./ R 00561000 $ 00561100 00122000
BEGIN APPLY >>> ./ R 00585500 $ 00585600 00124000
END APPLY >>> ./ R 00585500 $ 00585600 00124000
BEGIN APPLY >>> ./ R 00589000 $ 00589100 00126000
END APPLY >>> ./ R 00589000 $ 00589100 00126000
BEGIN APPLY >>> ./ D 00592700 00598000 00134000
END APPLY >>> ./ D 00592700 00598000 00134000
BEGIN APPLY >>> ./ D 00611000 00643000 00135000
END APPLY >>> ./ D 00611000 00643000 00135000
BEGIN APPLY >>> ./ R 00727000 00730000 $ 00727100 100 00136000
END APPLY >>> ./ R 00727000 00730000 $ 00727100 100 00136000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Friday Aug 07, 1981 07:09:00 AM
Loaded from MAINT(294)
R12934DK: ./ I 48000 $ 48500 500 00001000
R12934DK: * DMKMCTFS - TO HANDLE NON-ZERO SIGP CONDITION CODES 00002000
R12934DK: ./ I 108000 $ 108500 500 00003000
R12934DK: EXTRN DMKMCTFS @VA12934 00004000
R12934DK: ./ I 188000 $ 188020 20 00005000
R12934DK: L R15,PREFIXA ACCESS ABSOLUTE ZERO @VA12934 00006000
R12934DK: CLI CPAPRINP-PSA(R15),X'FF' IS AUTOMATIC PROCESSOR @VA12934 00007000
R12934DK: * RECOVERY IN PROCESS? 00008000
R12934DK: BE CLEAR YES, DO NOT SIGNAL @VA12934 00009000
R12934DK: ./ I 264000 $ 264200 200 00010000
R12934DK: BO EMSRCVD REQUEST RECEIVED OK @VA12934 00011000
R12934DK: TM APSTAT4,CPAPRPND WHILE THE WINDOW WAS OPEN, @VA12934 00012000
R12934DK: * DID WE RECEIVE A MFA? 00013000
R12934DK: ./ R 266000 $ 266000 1000 00014000
R12934DK: EMSRCVD LCTL C0,C0,CPCREG0 RELOAD CONTROL REGISTER 0 @VA12934 00015000
R12934DK: ./ R 404000 $ 404000 1000 00016000
R12934DK: B CALLMA TREAT OTHER STATUS AS PERM ERROR @VA12934 00017000
R12934DK: ./ R 437300 $ 437300 700 00018000
R12934DK: BZ CALLMA @VA12934 00019000
R12934DK: ./ I 439000 $ 439200 200 00020000
R12934DK: CALLMA CALL DMKMCTMA PROCESS CC 3 LIKE MALFUNCTION @VA12934 00021000
R12934DK: * ALERT 00022000
R12934DK: L R15,F4 SET RETURN CODE TO 4 @VA12934 00023000
R12934DK: BR R13 AND RETURN TO CALLER @VA12934 00024000
R12934DK: ./ R 441000 442020 $ 441000 500 00025000
R12934DK: CALL DMKMCTFS HANDLE FAILING SIGNAL @VA12934 00026000
R12934DK: L R15,F4 SET RETURN CODE TO 4 @VA12934 00027000
R12934DK: ./ I 607000 $ 607500 500 00028000
R12934DK: LOCKSYS DS 0H @VA12934 00029000
R12934DK: ./ I 706000 $ 706200 200 00030000
R12934DK: TM APSTAT1,CPINITD IS INITIALIZATION FINISHED? @VA12934 00031000
R12934DK: BO LOCKSYS YES, SYSTEM WAS INITIALIZED AND @VA12934 00032000
R12934DK: * TOOK AN EXTERNAL INTERRUPTION IN 00033000
R12934DK: * A WAIT. EXIT TO THE DISPATCHER. 00034000
BEGIN APPLY >>> ./ I 48000 $ 48500 500 00001000
END APPLY >>> ./ I 48000 $ 48500 500 00001000
BEGIN APPLY >>> ./ I 108000 $ 108500 500 00003000
END APPLY >>> ./ I 108000 $ 108500 500 00003000
BEGIN APPLY >>> ./ I 188000 $ 188020 20 00005000
END APPLY >>> ./ I 188000 $ 188020 20 00005000
BEGIN APPLY >>> ./ I 264000 $ 264200 200 00010000
END APPLY >>> ./ I 264000 $ 264200 200 00010000
BEGIN APPLY >>> ./ R 266000 $ 266000 1000 00014000
END APPLY >>> ./ R 266000 $ 266000 1000 00014000
BEGIN APPLY >>> ./ R 404000 $ 404000 1000 00016000
END APPLY >>> ./ R 404000 $ 404000 1000 00016000
BEGIN APPLY >>> ./ R 437300 $ 437300 700 00018000
END APPLY >>> ./ R 437300 $ 437300 700 00018000
BEGIN APPLY >>> ./ I 439000 $ 439200 200 00020000
END APPLY >>> ./ I 439000 $ 439200 200 00020000
BEGIN APPLY >>> ./ R 441000 442020 $ 441000 500 00025000
END APPLY >>> ./ R 441000 442020 $ 441000 500 00025000
BEGIN APPLY >>> ./ I 607000 $ 607500 500 00028000
END APPLY >>> ./ I 607000 $ 607500 500 00028000
BEGIN APPLY >>> ./ I 706000 $ 706200 200 00030000
END APPLY >>> ./ I 706000 $ 706200 200 00030000
Update Succeeded
Update Execution Time 23 milliseconds.