diff --git a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc index 66655d7..b900a61 100644 --- a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc +++ b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc @@ -25,29 +25,29 @@ # 16:27 JULY 14, 1969 # Page 1284 -# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967 -# PROGRAM NAME -- SELF-CHECK LOG SECTION: AGC BLOCK TWO SELF-CHECK -# MOD NO -- 1 ASSEMBLY SUBROUTINE UTILITYM REV 25 -# MOD BY -- GAUNTT +# PROGRAM DESCRIPTION DATE 20 DECEMBER 1967 +# PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK +# MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25 +# MOD BY - GAUNTT # # # FUNCTIONAL DESCRIPTION # # PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS -# PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN -# STARTING VERB. +# PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN +# STARTING VERB. # THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS. # THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME. # IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE -# FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3. +# FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3. # THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS -# A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN -# OCTAL, TO LOAD INTO SMODE. -# +-4 ERASABLE MEMORY -# +-5 FIXED MEMORY -# +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5. -# -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED. -# +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP. +# A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN +# OCTAL, TO LOAD INTO SMODE. +# +-4 ERASABLE MEMORY +# +-5 FIXED MEMORY +# +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5. +# -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED. +# +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP. # # # WARNINGS @@ -67,21 +67,21 @@ # # EXIT MODES, NORMAL AND ALARM # SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT -# COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION. +# COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION. # # THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED. -# SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP. +# SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP # # # OUTPUT # Page 1285 # SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND -# TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER -# INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED, -# IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN -# INITIATED FRESH START (SLAP1). -# SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2 -# THE BANK NUMBER, AND IN R3 THE BUGGER WORD. +# TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER +# INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED, +# IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN +# INITIATED FRESH START (SLAP1). +# SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2 +# THE BANK NUMBER, AND IN R3 THE BUGGER WORD. # # # ERASABLE INITIALIZATION REQUIRED @@ -93,8 +93,8 @@ # DEBRIS # # ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK. -# EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT -# E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART). +# EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT +# E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART). BANK 25 @@ -272,7 +272,7 @@ ERASLOOP INHINT NDX A DXCH 0000 # PUTS OWN ADDRESS IN X AND X +1 NDX SKEEP7 - CS 0001 # CS X+1 + CS 0001 # CS X+1 NDX SKEEP7 AD 0000 # AD X TC -1CHK @@ -286,7 +286,7 @@ ERASLOOP INHINT NDX SKEEP7 DXCH 0000 # PUT COMPLEMENT OF ADDRESS OF X AND X+1 NDX SKEEP7 - CS 0000 # CS X + CS 0000 # CS X NDX SKEEP7 AD 0001 # AD X+1 TC -1CHK @@ -510,4 +510,3 @@ BNKCHK CS L # = - BANK NUMBER EBANK= NEWJOB LSTBNKCH BBCON* # * CONSTANT, LAST BANK. -