Transcription and Transposition Errors

Comanche055/AGC_BLOCK_TWO_SELF-CHECK.s

@@ -23,83 +23,86 @@
 # Notations on the hardcopy document read, in part:
 #
 #    Assemble revision 055 of AGC program Comanche by NASA
-#    2021113-051.  10:28 APR. 1, 1969 
+#    2021113-051.  10:28 APR. 1, 1969
 #
 #    This AGC program shall also be referred to as
 #            Colossus 2A
 
 # Page 1394
-# 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.
-#
-#	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.
+# FUNCTIONAL DESCRIPTION
 #
-#	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.
+# 	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.
+# 	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.
+# 	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.
 #
-#	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.
 #
 # WARNINGS
-#	USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
-#	SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
+# 	USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
+# 	SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
+#
 #
 # CALLING SEQUENCE
-#	TO CALL SELF-CHECK KEY IN
-#		V 21 N 27 E	OPTION NUMBER E
-#	TO CALL SHOW-BANKSUM KEY IN
-#		V 91 E		DISPLAYS FIRST BANK
-#		V 33 E		PROCEED, DISPLAYS NEXT BANK
+#
+# 	TO CALL SELF-CHECK KEY IN
+# 		V 21 N 27 E	OPTION NUMBER E
+# 	TO CALL SHOW-BANKSUM KEY IN
+# 		V 91 E		DISPLAYS FIRST BANK
+# 		V 33 E		PROCEED, DISPLAYS NEXT BANK
+#
 #
 # 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.
 #
-#	THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
+# 	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.
+# 	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 1395
-#	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).
+# 	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.
 #
-#	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
-#	ACCOMPLISHED BY FRESH START
-#		SMODE SET TO +0
+# 	ACCOMPLISHED BY FRESH START
+# 		SMODE SET TO +0
 #
 # 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).
+# 	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).
 
 		BANK	25
 		SETLOC	SELFCHEC
 		BANK
 
 		COUNT	43/SELF
-		
+
 SBIT1		EQUALS	BIT1
 SBIT2		EQUALS	BIT2
 SBIT3		EQUALS	BIT3
@@ -150,7 +153,7 @@ S-ZERO		EQUALS	NEG0
 
 		EBANK=	LST1
 ADRS1		ADRES	SKEEP1
-SELFADRS	ADRES	SELFCHK		# SELFCHK RETURN ADDRESS.  SHOULD BE PUT
+SELFADRS	ADRES	SELFCHK		# SELFCHK RETURN ADDRESS. SHOULD BE PUT
 					# IN SELFRET WHEN GOING FROM SELFCHK TO
 					# SHOWSUM AND PUT IN SKEEP1 WHEN GOING
 					# FROM SHOWSUM TO SELF-CHECK.
@@ -227,9 +230,7 @@ SELFCHK		TC	SMODECHK	# ** CHARLEY, COME IN HERE
 # Page 1398
 # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
 # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
-#
-# ERASCHK TAKES APPROXIMATELY 7 SECONDS.
-
+# ERASCHK TAKES APPROXMATELY 7 SECONDS
 ERASCHK		CA	S+1
 		TS	SKEEP2
 0EBANK		CA	S+ZERO
@@ -322,10 +323,8 @@ ELOOPFIN	RELINT
 		TC	E134567B	# GO TO EBANKS 1,3,4,5,6, AND 7
 		CA	ERASCON6	# END OF ERASCHK
 		TS	EBANK
-
 # CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
 # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
-
 CNTRCHK		CA	CNTRCON		# 00050
 CNTRLOOP	TS	SKEEP2
 		AD	SBIT4		# +10 OCTAL
@@ -336,7 +335,6 @@ CNTRLOOP	TS	SKEEP2
 		TC	CNTRLOOP
 
 # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
-
 CYCLSHFT	CA	CONC+S1		# 25252
 		TS	CYR		# C(CYR) = 12525
 		TS	CYL		# C(CYL) = 52524
@@ -357,7 +355,6 @@ CYCLSHFT	CA	CONC+S1		# 25252
 
 		INCR	SCOUNT +1
 		TC	SMODECHK
-
 # SKEEP1 HOLDS SUM
 # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
 # SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
@@ -367,7 +364,7 @@ CYCLSHFT	CA	CONC+S1		# 25252
 # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
 # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
 # SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
-# SKEEP7 CONTROLS WHEN ROUTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
+# SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
 
 ROPECHK		CA	S-ZERO		# *
 		TS	SKEEP6		# * -0 FOR ROPECHK
@@ -514,5 +511,3 @@ BNKCHK		CS	L		# = - BANK NUMBER
 		EBANK=	NEWJOB
 LSTBNKCH	BBCON*			# * CONSTANT, LAST BANK.
 		SBANK=	LOWSUPER
-
-