proof: VNP00H to VNPOOH
Excluding Luminary099 P30_P37 as covered by existing PR. This was missed when the other `POO(H)` names were checked and fixed several months ago.
This commit is contained in:
		| @@ -10,7 +10,7 @@ | |||||||
| # Website:	http://www.ibiblio.org/apollo. | # Website:	http://www.ibiblio.org/apollo. | ||||||
| # Mod history:	2009-05-18 FB	Transcription Batch 3 Assignment. | # Mod history:	2009-05-18 FB	Transcription Batch 3 Assignment. | ||||||
| #		2009-05-20 RSB	Corrections:  POODOO -> P00DOO, | #		2009-05-20 RSB	Corrections:  POODOO -> P00DOO, | ||||||
| #				GOTOPOOH -> GOTOP00H, added a couple of | #				GOTOPOOH -> GOTOPOOH, added a couple of | ||||||
| #				missing instructions in Verb 96. | #				missing instructions in Verb 96. | ||||||
| #		2009-05-23 RSB	In SYSTEST, corrected TC FLAGWRD1 to | #		2009-05-23 RSB	In SYSTEST, corrected TC FLAGWRD1 to | ||||||
| #				CA FLAGWRD1.  Added a variety of SBANK= | #				CA FLAGWRD1.  Added a variety of SBANK= | ||||||
| @@ -462,7 +462,7 @@ VNLODDT		VN	2524		# V25N24 FOR LOAD DELTA TIME | |||||||
|  |  | ||||||
| 		COUNT	04/EXTVB | 		COUNT	04/EXTVB | ||||||
|  |  | ||||||
| SYSTEST		TC	CHKP00H | SYSTEST		TC	CHKPOOH | ||||||
| 		CA	FLAGWRD1	# IS NODOP01 FLAGBIT ON? (SET BY P11) | 		CA	FLAGWRD1	# IS NODOP01 FLAGBIT ON? (SET BY P11) | ||||||
| 		MASK	NOP01BIT | 		MASK	NOP01BIT | ||||||
| 		EXTEND | 		EXTEND | ||||||
| @@ -524,7 +524,7 @@ CHAZFOGC	TC	CHECKMM		# IS IT PRELAUNCH | |||||||
| #	   TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. | #	   TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. | ||||||
| #	6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. | #	6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. | ||||||
|  |  | ||||||
| IMUATTCK	TC	CHKP00H | IMUATTCK	TC	CHKPOOH | ||||||
|  |  | ||||||
| 		CAF	OCTAL30		# CHECK IF IMU ZERO AND IMU COARSE ARE ON | 		CAF	OCTAL30		# CHECK IF IMU ZERO AND IMU COARSE ARE ON | ||||||
| 		EXTEND | 		EXTEND | ||||||
| @@ -586,7 +586,7 @@ CKLFTBTS	CAF	GRRBKBIT	# HAS LIFTOFF OCCURRED | |||||||
| XACT0Q		TC	Q		# YES | XACT0Q		TC	Q		# YES | ||||||
|  |  | ||||||
| OCTAL30		OCT	30 | OCTAL30		OCT	30 | ||||||
| VB64		TC	CHKP00H		# DEMAND PROGRAM 00. | VB64		TC	CHKPOOH		# DEMAND PROGRAM 00. | ||||||
| 		TC	TESTXACT	# IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY. | 		TC	TESTXACT	# IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY. | ||||||
| 		INHINT | 		INHINT | ||||||
| 		CAF	PRIO4 | 		CAF	PRIO4 | ||||||
| @@ -675,7 +675,7 @@ STABLISH	CAF	EBANK6		# V46 	- SET EBANK TO E6 | |||||||
| #	   C. ENTER | #	   C. ENTER | ||||||
| #	      1. REPEAT FLASHING V06,N22. | #	      1. REPEAT FLASHING V06,N22. | ||||||
|  |  | ||||||
| CREWMANU	TC	CHKP00H		# DEMAND P00 | CREWMANU	TC	CHKPOOH		# DEMAND P00 | ||||||
|  |  | ||||||
| 		TC	TESTXACT | 		TC	TESTXACT | ||||||
|  |  | ||||||
| @@ -1004,7 +1004,7 @@ LFTFLGON	TC	UPFLAG		# VB 75 - SET LIFTOFF FLAG BIT | |||||||
| 		TC	GOPIN | 		TC	GOPIN | ||||||
|  |  | ||||||
| # Page 261 | # Page 261 | ||||||
| CHKP00H		CA	MODREG | CHKPOOH		CA	MODREG | ||||||
| 		EXTEND | 		EXTEND | ||||||
| 		BZF	TCQ | 		BZF	TCQ | ||||||
| 		TCF	ALM/END | 		TCF	ALM/END | ||||||
| @@ -1058,7 +1058,7 @@ IDLECADR	2CADR	T5IDLOC | |||||||
| #    TERMINATE-  EXIT R63 ROUTINE | #    TERMINATE-  EXIT R63 ROUTINE | ||||||
| #    PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. | #    PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. | ||||||
|  |  | ||||||
| V89PERF		TC	CHKP00H		# DEMAND P00 | V89PERF		TC	CHKPOOH		# DEMAND P00 | ||||||
| 		TC	TESTXACT | 		TC	TESTXACT | ||||||
| 		INHINT | 		INHINT | ||||||
| 		CAF	PRIO10 | 		CAF	PRIO10 | ||||||
| @@ -1078,7 +1078,7 @@ WMATRXNG	TC	DOWNFLAG	# RESET RENDWFLG | |||||||
|  |  | ||||||
| GOSHOSUM	EQUALS	SHOWSUM | GOSHOSUM	EQUALS	SHOWSUM | ||||||
|  |  | ||||||
| SHOWSUM		TC	CHKP00H | SHOWSUM		TC	CHKPOOH | ||||||
| 		TC	TESTXACT	# * | 		TC	TESTXACT	# * | ||||||
| 		CAF	S+1		# * | 		CAF	S+1		# * | ||||||
| 		TS	SKEEP6		# * SHOWSUM OPTION | 		TS	SKEEP6		# * SHOWSUM OPTION | ||||||
|   | |||||||
| @@ -116,7 +116,7 @@ | |||||||
| #			CADR 	SLAP1 | #			CADR 	SLAP1 | ||||||
|  |  | ||||||
| #		ENEMA -	TC 	POSTJUMP	*** DO NOT CALL ENEMA WITHOUT *** | #		ENEMA -	TC 	POSTJUMP	*** DO NOT CALL ENEMA WITHOUT *** | ||||||
| #			CADR 	ENEMA		*** CONSULTING P00H PEOPLE   *** | #			CADR 	ENEMA		*** CONSULTING POOH PEOPLE   *** | ||||||
|  |  | ||||||
| #	B. OUTPUT | #	B. OUTPUT | ||||||
|  |  | ||||||
| @@ -471,7 +471,7 @@ PTBAD		TC	ALARM		# SET ALARM TO SHOW PHASE TABLE FAILURE. | |||||||
|  |  | ||||||
| # ******** ****** ****** | # ******** ****** ****** | ||||||
| # | # | ||||||
| # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE | # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE | ||||||
| # | # | ||||||
| GOPROG2		EQUALS	ENEMA | GOPROG2		EQUALS	ENEMA | ||||||
| OCT10000	=	BIT13 | OCT10000	=	BIT13 | ||||||
| @@ -945,12 +945,12 @@ DUMMYAD		EXIT | |||||||
| 		TC	DOWNFLAG | 		TC	DOWNFLAG | ||||||
| 		ADRES	R21MARK | 		ADRES	R21MARK | ||||||
|  |  | ||||||
| 		CCS	MMNUMBER		# IS THIS A P00H REQUEST | 		CCS	MMNUMBER		# IS THIS A POOH REQUEST | ||||||
| 		TCF	NOUVEAU			# NO, PICK UP NEW PROGRAM | 		TCF	NOUVEAU			# NO, PICK UP NEW PROGRAM | ||||||
|  |  | ||||||
| 		COUNT	04/P00 | 		COUNT	04/P00 | ||||||
|  |  | ||||||
| P00H		TC	RELDSP			# RELEASE DISPLAY SYSTEM | POOH		TC	RELDSP			# RELEASE DISPLAY SYSTEM | ||||||
|  |  | ||||||
| 		CAF	PRIO5			# SET VARIABLE RESTART REGISTER FOR P00. | 		CAF	PRIO5			# SET VARIABLE RESTART REGISTER FOR P00. | ||||||
| 		TS	PHSPRDT2 | 		TS	PHSPRDT2 | ||||||
| @@ -985,7 +985,7 @@ SEUDOP00	TS	DNLSTCOD		# SET UP APPROPRIATE DOWNLIST. | |||||||
| GROUPKIL	TC	IBNKCALL		# KILL GROUPS 3(5,6 | GROUPKIL	TC	IBNKCALL		# KILL GROUPS 3(5,6 | ||||||
| 		CADR	V37KLEAN | 		CADR	V37KLEAN | ||||||
|  |  | ||||||
| 		CCS	MMNUMBER		# IS IT P00H | 		CCS	MMNUMBER		# IS IT POOH | ||||||
| 		TCF	RENDV00			# NO | 		TCF	RENDV00			# NO | ||||||
| # Page 201 | # Page 201 | ||||||
| 		TC	IBNKCALL | 		TC	IBNKCALL | ||||||
|   | |||||||
| @@ -742,13 +742,13 @@ DT/2COMP	DLOAD	DSU | |||||||
| 			GETMAXDT | 			GETMAXDT | ||||||
| 		DSU	BMN		# IS TIME TO INTEG. TO GR THAN MAXTIME | 		DSU	BMN		# IS TIME TO INTEG. TO GR THAN MAXTIME | ||||||
| 			12D | 			12D | ||||||
| 			P00HCHK | 			POOHCHK | ||||||
| USEMAXDT	DLOAD	SIGN | USEMAXDT	DLOAD	SIGN | ||||||
| 			12D | 			12D | ||||||
| 			DT/2 | 			DT/2 | ||||||
| # Page 1324 | # Page 1324 | ||||||
| 		STCALL	DT/2 | 		STCALL	DT/2 | ||||||
| 			P00HCHK | 			POOHCHK | ||||||
| MAXDT		DLOAD	PDDL		# EXCHANGE DT/2MAX WITH COMPUTED MAX. | MAXDT		DLOAD	PDDL		# EXCHANGE DT/2MAX WITH COMPUTED MAX. | ||||||
| 			DT/2MAX | 			DT/2MAX | ||||||
| 		GOTO | 		GOTO | ||||||
| @@ -757,7 +757,7 @@ GETMAXDT	RTB | |||||||
| 			SIGNMPAC | 			SIGNMPAC | ||||||
| 		STCALL	DT/2 | 		STCALL	DT/2 | ||||||
| 			USEMAXDT | 			USEMAXDT | ||||||
| P00HCHK		DLOAD	ABS | POOHCHK		DLOAD	ABS | ||||||
| 			DT/2 | 			DT/2 | ||||||
| 		DSU	BMN | 		DSU	BMN | ||||||
| 			DT/2MIN | 			DT/2MIN | ||||||
|   | |||||||
| @@ -11,7 +11,7 @@ | |||||||
| #				of the same name, using Comanche055 page | #				of the same name, using Comanche055 page | ||||||
| #				images. | #				images. | ||||||
| #		2009-05-20 RSB	Corrections:  P2OS -> P20S, STO -> STQ, | #		2009-05-20 RSB	Corrections:  P2OS -> P20S, STO -> STQ, | ||||||
| #				GOTOPOOH -> GOTOP00H, a duplicated EXTEND | #				GOTOPOOH -> GOTOPOOH, a duplicated EXTEND | ||||||
| #				was fixed, P23.10 -> R23.10, | #				was fixed, P23.10 -> R23.10, | ||||||
| #				S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, | #				S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, | ||||||
| #				S22DPP -> S22DSPP, changed some instructions in | #				S22DPP -> S22DSPP, changed some instructions in | ||||||
| @@ -2685,7 +2685,7 @@ S22UOFF		=	LEMPOS		# 6	U SUB OFF | |||||||
| # | # | ||||||
| # CALLING SEQUENCE:	V 89 E | # CALLING SEQUENCE:	V 89 E | ||||||
| # | # | ||||||
| # SUBROUTINES CALLED:  CHKP00H, R02BOTH, GOXDSPF, R63COMP, R60CSM | # SUBROUTINES CALLED:  CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM | ||||||
| # | # | ||||||
| # ALARMS	1.  OPERATOR ERROR IF NOT IN P00 | # ALARMS	1.  OPERATOR ERROR IF NOT IN P00 | ||||||
| #		2.  PROGRAM ALARM IF IMU IS OFF | #		2.  PROGRAM ALARM IF IMU IS OFF | ||||||
|   | |||||||
| @@ -189,7 +189,7 @@ | |||||||
| #	 GOFLASH | #	 GOFLASH | ||||||
| #	 GOTOPOOH | #	 GOTOPOOH | ||||||
| # Page 652 | # Page 652 | ||||||
| #	 VNP00H | #	 VNPOOH | ||||||
| #	 GOFLASHR | #	 GOFLASHR | ||||||
| #	 BLANKET | #	 BLANKET | ||||||
| #	 ENDOFJOB | #	 ENDOFJOB | ||||||
| @@ -237,7 +237,7 @@ P32/P72A	TC	P20FLGON | |||||||
| 		STORE	NN | 		STORE	NN | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N11		# TCSI | 		CAF	V06N11		# TCSI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		CAF	V06N55		# NN. ELEV(RGL05) | 		CAF	V06N55		# NN. ELEV(RGL05) | ||||||
| # Page 653 | # Page 653 | ||||||
| 		TC	BANKCALL | 		TC	BANKCALL | ||||||
| @@ -246,7 +246,7 @@ P32/P72A	TC	P20FLGON | |||||||
| 		TC	+2 | 		TC	+2 | ||||||
| 		TC	-5 | 		TC	-5 | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		DLOAD | 		DLOAD | ||||||
| 			TCSI | 			TCSI | ||||||
| @@ -295,7 +295,7 @@ P32/P72F	STORE	T2TOT3 | |||||||
| 			P32/P72F | 			P32/P72F | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N75 | 		CAF	V06N75 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		VLOAD	CALL | 		VLOAD	CALL | ||||||
| 			DELVEET1 | 			DELVEET1 | ||||||
| @@ -453,7 +453,7 @@ P32/P72F	STORE	T2TOT3 | |||||||
| #	 AVFLAGA | #	 AVFLAGA | ||||||
| #	 AVFLAGP | #	 AVFLAGP | ||||||
| #	 P20FLGON | #	 P20FLGON | ||||||
| #	 VNP00H | #	 VNPOOH | ||||||
| #	 SELECTMU | #	 SELECTMU | ||||||
| #	 ADVANCE | #	 ADVANCE | ||||||
| #	 CDHMVR | #	 CDHMVR | ||||||
| @@ -476,7 +476,7 @@ P33		TC	AVFLAGA | |||||||
| P73		TC	AVFLAGP | P73		TC	AVFLAGP | ||||||
| P33/P73A	TC	P20FLGON | P33/P73A	TC	P20FLGON | ||||||
| 		CAF	V06N13		# TCDH | 		CAF	V06N13		# TCDH | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		DLOAD | 		DLOAD | ||||||
| 			TTPIO | 			TTPIO | ||||||
| @@ -560,7 +560,7 @@ P33/P73F	ABS	DSU | |||||||
| 		STORE	T2TOT3 | 		STORE	T2TOT3 | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N75 | 		CAF	V06N75 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		VLOAD	CALL | 		VLOAD	CALL | ||||||
| 			DELVEET2 | 			DELVEET2 | ||||||
| @@ -578,7 +578,7 @@ P33/P73F	ABS	DSU | |||||||
| # SUBROUTINES USED | # SUBROUTINES USED | ||||||
|  |  | ||||||
| #	 S32/33.X | #	 S32/33.X | ||||||
| #	 VNP00H | #	 VNPOOH | ||||||
|  |  | ||||||
| 		SETLOC	CDHTAG3 | 		SETLOC	CDHTAG3 | ||||||
| 		BANK | 		BANK | ||||||
| @@ -595,7 +595,7 @@ DISDVLVC	STORE	DELVLVC | |||||||
| 		STORE	DELVLVC | 		STORE	DELVLVC | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CA	VERBNOUN | 		CA	VERBNOUN | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		GOTO | 		GOTO | ||||||
| 			NORMEX | 			NORMEX | ||||||
|   | |||||||
| @@ -159,7 +159,7 @@ | |||||||
| #	AVFLAGA | #	AVFLAGA | ||||||
| # Page 463 | # Page 463 | ||||||
| #	AVFLAGP | #	AVFLAGP | ||||||
| #	VNP00H | #	VNPOOH | ||||||
| #	DISPLAYE | #	DISPLAYE | ||||||
| #	SELECTMU | #	SELECTMU | ||||||
| #	PRECSET | #	PRECSET | ||||||
| @@ -185,7 +185,7 @@ P34		TC	AVFLAGA | |||||||
| P74		TC	AVFLAGP | P74		TC	AVFLAGP | ||||||
| P34/P74A	TC	P20FLGON	# SET UPDATFLG, TRACKFLG | P34/P74A	TC	P20FLGON	# SET UPDATFLG, TRACKFLG | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H		# Onno: The scans look like O not zero | 		TC	VNPOOH		# Onno: The scans look like O not zero | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		SSP	EXIT | 		SSP	EXIT | ||||||
| 			NN | 			NN | ||||||
| @@ -240,7 +240,7 @@ SWCHCLR		BONCLR	BON | |||||||
| 		TC	P34/P74E | 		TC	P34/P74E | ||||||
| P34/P74D	EXIT | P34/P74D	EXIT | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| P34/P74E	TC	INTPRET | P34/P74E	TC	INTPRET | ||||||
| 		SETPD	DLOAD | 		SETPD	DLOAD | ||||||
| 			0D | 			0D | ||||||
| @@ -287,7 +287,7 @@ P34/P74E	TC	INTPRET | |||||||
| 		STORE	TIG | 		STORE	TIG | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N58 | 		CAF	V06N58 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		CALL | 		CALL | ||||||
| 			S34/35.5 | 			S34/35.5 | ||||||
| @@ -821,7 +821,7 @@ ALLSET		STOVL	TET | |||||||
| #	GOTOPOOH | #	GOTOPOOH | ||||||
| #	S34/35.3 | #	S34/35.3 | ||||||
| #	S34.35.4 | #	S34.35.4 | ||||||
| #	VNP00H | #	VNPOOH | ||||||
|  |  | ||||||
| S34/35.5	STQ	BON | S34/35.5	STQ	BON | ||||||
| 			SUBEXIT | 			SUBEXIT | ||||||
| @@ -835,7 +835,7 @@ FLAGON		VLOAD | |||||||
| 		STORE	DVLOS		# SAVE DELTA V BEFORE DISPLAY | 		STORE	DVLOS		# SAVE DELTA V BEFORE DISPLAY | ||||||
| 		EXIT | 		EXIT | ||||||
|  		CAF	V06N81 |  		CAF	V06N81 | ||||||
|  		TC	VNP00H |  		TC	VNPOOH | ||||||
|  		TC	INTPRET |  		TC	INTPRET | ||||||
|  		VLOAD	VSU		# TEST FOR OVERWRITE OF COMPUTED |  		VLOAD	VSU		# TEST FOR OVERWRITE OF COMPUTED | ||||||
|  			DELVLVC		#                      DELTA V |  			DELVLVC		#                      DELTA V | ||||||
| @@ -852,7 +852,7 @@ FLAGOFF		CALL | |||||||
| 			S34/35.4 | 			S34/35.4 | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N59 | 		CAF	V06N59 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		GOTO | 		GOTO | ||||||
| 			SUBEXIT | 			SUBEXIT | ||||||
| @@ -955,7 +955,7 @@ P3XORP7X	CAF	HIGH9 | |||||||
| 		INCR	Q | 		INCR	Q | ||||||
| 		RETURN | 		RETURN | ||||||
|  |  | ||||||
| # ***** VNP00H ***** | # ***** VNPOOH ***** | ||||||
| # | # | ||||||
| # SUBROUTINES USED | # SUBROUTINES USED | ||||||
| #	BANKCALL | #	BANKCALL | ||||||
| @@ -965,7 +965,7 @@ P3XORP7X	CAF	HIGH9 | |||||||
| 		SETLOC P30SUBS | 		SETLOC P30SUBS | ||||||
| 		BANK | 		BANK | ||||||
|  |  | ||||||
| VNP00H		EXTEND | VNPOOH		EXTEND | ||||||
| 		QXCH	RTRN | 		QXCH	RTRN | ||||||
| 		TS	VERBNOUN | 		TS	VERBNOUN | ||||||
| 		CAF	VNBANK		# ***** THIS ROUTINE MUST REMAIN IN | 		CAF	VNBANK		# ***** THIS ROUTINE MUST REMAIN IN | ||||||
|   | |||||||
| @@ -10,7 +10,7 @@ | |||||||
| # Mod history:  2009-05-12 RSB	Adapted from Colossus249 file of the same | # Mod history:  2009-05-12 RSB	Adapted from Colossus249 file of the same | ||||||
| #				name, and Comanche 055 page images. | #				name, and Comanche 055 page images. | ||||||
| #		2009-05-20 RSB	Corrections: SETI/PDT -> SET1/PDT, | #		2009-05-20 RSB	Corrections: SETI/PDT -> SET1/PDT, | ||||||
| #				GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT, | #				GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT, | ||||||
| #				V853 -> VB53, R56A -> R56A1 (some places | #				V853 -> VB53, R56A -> R56A1 (some places | ||||||
| #				only), added missing R56A1 label, added a | #				only), added missing R56A1 label, added a | ||||||
| #				missing CAF in COARSTYP, corrected a SETLOC | #				missing CAF in COARSTYP, corrected a SETLOC | ||||||
|   | |||||||
| @@ -447,7 +447,7 @@ P66		TC	NEWMODEX		# ENTER VIA RTB WHEN D < Q7 FPSS | |||||||
| # MOD BY:	R. HIRSCHKOP | # MOD BY:	R. HIRSCHKOP | ||||||
| # FUNCTION:	TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC | # FUNCTION:	TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC | ||||||
| # CALLING SEQUENCE: | # CALLING SEQUENCE: | ||||||
| # EXIT:		TO P00H | # EXIT:		TO POOH | ||||||
| # SUBROUTINE CALLS:  GOFLASH | # SUBROUTINE CALLS:  GOFLASH | ||||||
|  |  | ||||||
| # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING.  RESTART PROTECTION IS VIA STEERING. | # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING.  RESTART PROTECTION IS VIA STEERING. | ||||||
|   | |||||||
| @@ -11,7 +11,7 @@ | |||||||
| #				of the same name, using Comanche055 page | #				of the same name, using Comanche055 page | ||||||
| #				images.  Finished through page 329. | #				images.  Finished through page 329. | ||||||
| #		2009-05-09 RSB	Finished first draft. | #		2009-05-09 RSB	Finished first draft. | ||||||
| #		2009-05-20 RSB	Corrected a CHKPOOH to CHKP00H. | #		2009-05-20 RSB	Corrected a CHKPOOH to CHKPOOH. | ||||||
| # | # | ||||||
| # This source code has been transcribed or otherwise adapted from digitized | # This source code has been transcribed or otherwise adapted from digitized | ||||||
| # images of a hardcopy from the MIT Museum.  The digitization was performed | # images of a hardcopy from the MIT Museum.  The digitization was performed | ||||||
| @@ -3605,7 +3605,7 @@ PINTEST		EQUALS	LST2FAN | |||||||
| 		COUNT	41/PIN | 		COUNT	41/PIN | ||||||
|  |  | ||||||
| VBTSTLTS	TC	BANKCALL | VBTSTLTS	TC	BANKCALL | ||||||
| 		CADR	CHKP00H | 		CADR	CHKPOOH | ||||||
|  |  | ||||||
| 		INHINT | 		INHINT | ||||||
| 		CS	BIT1		# SET BIT 1 OF IMODES33 SO IMUMON WON'T | 		CS	BIT1		# SET BIT 1 OF IMODES33 SO IMUMON WON'T | ||||||
|   | |||||||
| @@ -476,7 +476,7 @@ P17		TC	AVFLAGA			# AVFLAG = CSM , SET TRACK + UPDATE FLAGS | |||||||
| P77		TC	AVFLAGP			# AVFLAG = LEM , SET TRACK + UPDATE FLAGS | P77		TC	AVFLAGP			# AVFLAG = LEM , SET TRACK + UPDATE FLAGS | ||||||
| P17.1		TC	P20FLGON		#	SET UPDATE FLAG | P17.1		TC	P20FLGON		#	SET UPDATE FLAG | ||||||
| 		CAF	V06N37			#	DISPLAY TTPI TIME | 		CAF	V06N37			#	DISPLAY TTPI TIME | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		CLEAR	CALL | 		CLEAR	CALL | ||||||
| 			UPDATFLG | 			UPDATFLG | ||||||
|   | |||||||
| @@ -745,7 +745,7 @@ VB97DEX		=	OCT35		# NEGATIVE OF THIS IS PROPER FOR DISPDEX | |||||||
| 		CA	NVWORD 	+2	# NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN | 		CA	NVWORD 	+2	# NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN | ||||||
| 		TC	BANKCALL | 		TC	BANKCALL | ||||||
| 		CADR	CLOCPLAY | 		CADR	CLOCPLAY | ||||||
| 		TCF	STOPCLOK	# TERMINATE CLOKTASK ON THE WAY TO P00H | 		TCF	STOPCLOK	# TERMINATE CLOKTASK ON THE WAY TO POOH | ||||||
| 		TCF	COMFAIL1 | 		TCF	COMFAIL1 | ||||||
| 		TCF	COMFAIL2 | 		TCF	COMFAIL2 | ||||||
|  |  | ||||||
|   | |||||||
| @@ -146,7 +146,7 @@ ALM/END		TC	FALTON		# TURN ON OPERATOR ERROR LIGHT | |||||||
| GOPIN		TC	POSTJUMP | GOPIN		TC	POSTJUMP | ||||||
| 		CADR	PINBRNCH | 		CADR	PINBRNCH | ||||||
|  |  | ||||||
| CHKP00H		CA	MODREG		# CHECK FOR P00 OR P00-. | CHKPOOH		CA	MODREG		# CHECK FOR P00 OR P00-. | ||||||
| 		EXTEND | 		EXTEND | ||||||
| 		BZF	TCQ | 		BZF	TCQ | ||||||
| 		TC	ALM/END | 		TC	ALM/END | ||||||
| @@ -827,7 +827,7 @@ DEC22		DEC	22 | |||||||
|  |  | ||||||
| 		COUNT* 	$$/EXTVB | 		COUNT* 	$$/EXTVB | ||||||
|  |  | ||||||
| VB64		TC	CHKP00H		# DEMAND PROGRAM 00. | VB64		TC	CHKPOOH		# DEMAND PROGRAM 00. | ||||||
| 		TC	TESTXACT	# IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. | 		TC	TESTXACT	# IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. | ||||||
| 		CAF	PRIO4 | 		CAF	PRIO4 | ||||||
| 		TC	FINDVAC | 		TC	FINDVAC | ||||||
| @@ -846,7 +846,7 @@ VB64		TC	CHKP00H		# DEMAND PROGRAM 00. | |||||||
| #	4.	REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED). | #	4.	REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED). | ||||||
| #	5.	ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES. | #	5.	ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES. | ||||||
|  |  | ||||||
| IMUATTCK	TC	CHKP00H		# VB 76 -- LOAD IMU ATT. ERROR METERS | IMUATTCK	TC	CHKPOOH		# VB 76 -- LOAD IMU ATT. ERROR METERS | ||||||
|  |  | ||||||
| 		CAF	BITS4&5		# SEE IF COARSE ALIGN ENABLE AND ZERO IMU | 		CAF	BITS4&5		# SEE IF COARSE ALIGN ENABLE AND ZERO IMU | ||||||
| 		EXTEND			# CDUS BITS ARE ON | 		EXTEND			# CDUS BITS ARE ON | ||||||
| @@ -1002,7 +1002,7 @@ V83PERF		TC	TESTXACT | |||||||
| #    	TERMINATE -- EXIT R63. | #    	TERMINATE -- EXIT R63. | ||||||
| #	PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER. | #	PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER. | ||||||
|  |  | ||||||
| V89PERF		TC	CHKP00H | V89PERF		TC	CHKPOOH | ||||||
| 		TC	TESTXACT | 		TC	TESTXACT | ||||||
| 		CAF	PRIO10 | 		CAF	PRIO10 | ||||||
| 		TC	FINDVAC | 		TC	FINDVAC | ||||||
| @@ -1080,7 +1080,7 @@ NOMINIMP	INHINT | |||||||
| #		C.	ENTER | #		C.	ENTER | ||||||
| #			1.	REPEAT FLASHING V06,N22. | #			1.	REPEAT FLASHING V06,N22. | ||||||
|  |  | ||||||
| CREWMANU	TC	CHKP00H		# DEMAND P00 | CREWMANU	TC	CHKPOOH		# DEMAND P00 | ||||||
|  |  | ||||||
| 		TC	TESTXACT | 		TC	TESTXACT | ||||||
|  |  | ||||||
| @@ -1096,7 +1096,7 @@ CREWMANU	TC	CHKP00H		# DEMAND P00 | |||||||
| #	TERMINATE TRACKING (P20 AND P25). | #	TERMINATE TRACKING (P20 AND P25). | ||||||
| # | # | ||||||
| #	1.	KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. | #	1.	KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. | ||||||
| #	2.	REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00). | #	2.	REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOPOOH (REQUEST PROGRAM 00). | ||||||
| #	3.	SCHEDULE V56TOVAC WITH PRIORITY 30. | #	3.	SCHEDULE V56TOVAC WITH PRIORITY 30. | ||||||
| # | # | ||||||
| #	V56TOVAC | #	V56TOVAC | ||||||
| @@ -1223,7 +1223,7 @@ UPDATOFF	TC	UPFLAG		# VB 95 SET NOUPFLAG | |||||||
|  |  | ||||||
| 		EBANK=	QPLACE | 		EBANK=	QPLACE | ||||||
|  |  | ||||||
| SYSTEST		TC	CHKP00H		# DEMAND P00 | SYSTEST		TC	CHKPOOH		# DEMAND P00 | ||||||
|  |  | ||||||
| 		TC	TESTXACT | 		TC	TESTXACT | ||||||
|  |  | ||||||
| @@ -1246,7 +1246,7 @@ WMATRXNG	INHINT | |||||||
|  |  | ||||||
| GOSHOSUM	EQUALS	SHOWSUM | GOSHOSUM	EQUALS	SHOWSUM | ||||||
|  |  | ||||||
| SHOWSUM		TC	CHKP00H		# * | SHOWSUM		TC	CHKPOOH		# * | ||||||
| 		TC	TESTXACT	# * | 		TC	TESTXACT	# * | ||||||
| 		CAF	PRIO7		# * ALLOW OTHER CHARINS. | 		CAF	PRIO7		# * ALLOW OTHER CHARINS. | ||||||
| 		TC	PRIOCHNG	# * | 		TC	PRIOCHNG	# * | ||||||
|   | |||||||
| @@ -350,7 +350,7 @@ PTBAD		TC	ALARM		# SET ALARM TO SHOW PHASE TABLE FAILURE. | |||||||
| 		TCF	DOFSTRT1 | 		TCF	DOFSTRT1 | ||||||
| #******** ****** ****** | #******** ****** ****** | ||||||
| # Page 218 | # Page 218 | ||||||
| # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. | # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE. | ||||||
|  |  | ||||||
| OCT10000	=	BIT13 | OCT10000	=	BIT13 | ||||||
| OCT30000	=	PRIO30 | OCT30000	=	PRIO30 | ||||||
| @@ -844,10 +844,10 @@ DUMMYAD		EXIT | |||||||
|  |  | ||||||
| 		TC	DOWNFLAG		# ALLOW X-AXIS OVERRIDE. | 		TC	DOWNFLAG		# ALLOW X-AXIS OVERRIDE. | ||||||
| 		ADRES	XOVINFLG | 		ADRES	XOVINFLG | ||||||
| 		CCS	MMNUMBER		# IS THIS A P00H REQUEST | 		CCS	MMNUMBER		# IS THIS A POOH REQUEST | ||||||
| 		TCF	NOUVEAU			# NO, PICK UP NEW PROGRAM | 		TCF	NOUVEAU			# NO, PICK UP NEW PROGRAM | ||||||
|  |  | ||||||
| P00H		TC	RELDSP			# RELEASE DISPLAY SYSTEM | POOH		TC	RELDSP			# RELEASE DISPLAY SYSTEM | ||||||
|  |  | ||||||
| 		CAF	PRIO5			# SET VARIABLE RESTART PRIORITY FOR | 		CAF	PRIO5			# SET VARIABLE RESTART PRIORITY FOR | ||||||
| 		TS	PHSPRDT2		# P00 INTEGRATION. | 		TS	PHSPRDT2		# P00 INTEGRATION. | ||||||
| @@ -887,7 +887,7 @@ SEUDOP00	TS	DNLSTCOD		# SET UP APPROPRIATE DOWNLIST CODE | |||||||
| 		TC	IBNKCALL		# KILL GROUPS 1,3,5,6 | 		TC	IBNKCALL		# KILL GROUPS 1,3,5,6 | ||||||
| 		CADR	V37KLEAN | 		CADR	V37KLEAN | ||||||
|  |  | ||||||
| 		CCS	MMNUMBER		# IS IT P00H | 		CCS	MMNUMBER		# IS IT POOH | ||||||
| 		TCF	RENDV00			# NO | 		TCF	RENDV00			# NO | ||||||
| GOMOD		TC	IBNKCALL		# REDUNDANT EXCEPT FOR GROUP 4 | GOMOD		TC	IBNKCALL		# REDUNDANT EXCEPT FOR GROUP 4 | ||||||
| 		CADR	P00KLEAN | 		CADR	P00KLEAN | ||||||
|   | |||||||
| @@ -729,13 +729,13 @@ DT/2COMP	DLOAD	DSU | |||||||
| 			GETMAXDT | 			GETMAXDT | ||||||
| 		DSU	BMN		# IS TIME TO INTEG. TO GR THAN MAXTIME | 		DSU	BMN		# IS TIME TO INTEG. TO GR THAN MAXTIME | ||||||
| 			12D | 			12D | ||||||
| 			P00HCHK | 			POOHCHK | ||||||
| USEMAXDT	DLOAD	SIGN | USEMAXDT	DLOAD	SIGN | ||||||
| 			12D | 			12D | ||||||
| 			DT/2 | 			DT/2 | ||||||
| # Page 1219 | # Page 1219 | ||||||
| 		STCALL	DT/2 | 		STCALL	DT/2 | ||||||
| 			P00HCHK | 			POOHCHK | ||||||
| MAXDT		DLOAD	PDDL		# EXCHANGE DT/2MAX WITH COMPUTED MAX. | MAXDT		DLOAD	PDDL		# EXCHANGE DT/2MAX WITH COMPUTED MAX. | ||||||
| 			DT/2MAX | 			DT/2MAX | ||||||
| 		GOTO | 		GOTO | ||||||
| @@ -744,7 +744,7 @@ GETMAXDT	RTB | |||||||
| 			SIGNMPAC | 			SIGNMPAC | ||||||
| 		STCALL	DT/2 | 		STCALL	DT/2 | ||||||
| 			USEMAXDT | 			USEMAXDT | ||||||
| P00HCHK		DLOAD	ABS | POOHCHK		DLOAD	ABS | ||||||
| 			DT/2 | 			DT/2 | ||||||
| 		DSU	BMN | 		DSU	BMN | ||||||
| 			DT/2MIN | 			DT/2MIN | ||||||
|   | |||||||
| @@ -103,7 +103,7 @@ | |||||||
| 		COUNT*	$$/P31 | 		COUNT*	$$/P31 | ||||||
| P31		TC	P20FLGON | P31		TC	P20FLGON | ||||||
| 		CAF	V06N33		# T16 | 		CAF	V06N33		# T16 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		CLEAR	DLOAD | 		CLEAR	DLOAD | ||||||
| 			UPDATFLG | 			UPDATFLG | ||||||
| @@ -154,9 +154,9 @@ P31		TC	P20FLGON | |||||||
| 		STORE	HAPO | 		STORE	HAPO | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N81		# DELVLVC | 		CAF	V06N81		# DELVLVC | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		CAF	V06N42		# HAPO, HPER, VGDISP | 		CAF	V06N42		# HAPO, HPER, VGDISP | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| REVN1645	SET	CALL		# TRKMKCNT, TTOGO, +MGA | REVN1645	SET	CALL		# TRKMKCNT, TTOGO, +MGA | ||||||
| 			FINALFLG | 			FINALFLG | ||||||
|   | |||||||
| @@ -1100,7 +1100,7 @@ OUTOFLIM	RELINT | |||||||
| 		CAF	OCT501PV | 		CAF	OCT501PV | ||||||
| 		TC	BANKCALL	# ISSUE ALARM -- RR ANTENNA NOT WITHIN | 		TC	BANKCALL	# ISSUE ALARM -- RR ANTENNA NOT WITHIN | ||||||
| 		CADR	PRIOLARM	# LIMITS | 		CADR	PRIOLARM	# LIMITS | ||||||
| 		TC	R23LEM2		# TERMINATE -- EXIT R23 TO R00 (GO TO P00H) | 		TC	R23LEM2		# TERMINATE -- EXIT R23 TO R00 (GO TO POOH) | ||||||
| 		TC	OUTOFLIM +1	# PROCEED ILLEGAL | 		TC	OUTOFLIM +1	# PROCEED ILLEGAL | ||||||
| 		TC	R23LEM3		# RECYCLE -- TO ANOTHER MANEUVER | 		TC	R23LEM3		# RECYCLE -- TO ANOTHER MANEUVER | ||||||
| 		TC	ENDOFJOB | 		TC	ENDOFJOB | ||||||
|   | |||||||
| @@ -182,7 +182,7 @@ | |||||||
| #	GOFLASH | #	GOFLASH | ||||||
| #	GOTOPOOH | #	GOTOPOOH | ||||||
| # Page 621 | # Page 621 | ||||||
| #	VNP00H | #	VNPOOH | ||||||
| #	GOFLASHR | #	GOFLASHR | ||||||
| #	BLANKET | #	BLANKET | ||||||
| #	ENDOFJOB | #	ENDOFJOB | ||||||
| @@ -226,7 +226,7 @@ P32/P72A	TC	P20FLGON | |||||||
| 		TS	TCSI | 		TS	TCSI | ||||||
| 		TS	TCSI 	+1 | 		TS	TCSI 	+1 | ||||||
| VN0611		CAF	V06N11		# TCSI | VN0611		CAF	V06N11		# TCSI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		DLOAD	DCOMP | 		DLOAD	DCOMP | ||||||
| 			TCSI | 			TCSI | ||||||
| @@ -261,7 +261,7 @@ VN0655		EXIT | |||||||
| 		TC	+2 | 		TC	+2 | ||||||
| 		TC	-5 | 		TC	-5 | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		DLOAD | 		DLOAD | ||||||
| 			TCSI | 			TCSI | ||||||
| @@ -303,7 +303,7 @@ P32/P72F	STORE	T2TOT3 | |||||||
| 			P32/P72F | 			P32/P72F | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N75 | 		CAF	V06N75 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		VLOAD	CALL | 		VLOAD	CALL | ||||||
| 			DELVEET1 | 			DELVEET1 | ||||||
| @@ -462,7 +462,7 @@ P32/P72F	STORE	T2TOT3 | |||||||
| #	AVFLAGA | #	AVFLAGA | ||||||
| #	AVFLAGP | #	AVFLAGP | ||||||
| #	P20FLGON | #	P20FLGON | ||||||
| #	VNP00H | #	VNPOOH | ||||||
| #	SELECTMU | #	SELECTMU | ||||||
| #	ADVANCE | #	ADVANCE | ||||||
| #	CDHMVR | #	CDHMVR | ||||||
| @@ -484,7 +484,7 @@ P33		TC	AVFLAGA | |||||||
| P73		TC	AVFLAGP | P73		TC	AVFLAGP | ||||||
| P33/P73A	TC	P20FLGON | P33/P73A	TC	P20FLGON | ||||||
| 		CAF	V06N13		# TCDH | 		CAF	V06N13		# TCDH | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		DLOAD | 		DLOAD | ||||||
| 			TTPIO | 			TTPIO | ||||||
| @@ -560,7 +560,7 @@ P33/P73F	ABS	DSU | |||||||
| 		STORE	T2TOT3 | 		STORE	T2TOT3 | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N75 | 		CAF	V06N75 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		VLOAD	CALL | 		VLOAD	CALL | ||||||
| 			DELVEET2 | 			DELVEET2 | ||||||
| @@ -602,7 +602,7 @@ P20FLGON	EXTEND | |||||||
| # SUBROUTINES USED | # SUBROUTINES USED | ||||||
| # | # | ||||||
| #	S32/33.X | #	S32/33.X | ||||||
| #	VNP00H | #	VNPOOH | ||||||
|  |  | ||||||
| DISDVLVC	STORE	DELVLVC | DISDVLVC	STORE	DELVLVC | ||||||
| 		STQ	CALL | 		STQ	CALL | ||||||
| @@ -616,7 +616,7 @@ DISDVLVC	STORE	DELVLVC | |||||||
| 		STORE	DELVLVC | 		STORE	DELVLVC | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CA	VERBNOUN | 		CA	VERBNOUN | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		GOTO | 		GOTO | ||||||
| 			NORMEX | 			NORMEX | ||||||
|   | |||||||
| @@ -184,7 +184,7 @@ | |||||||
| #	AVFLAGA | #	AVFLAGA | ||||||
| # Page 661 | # Page 661 | ||||||
| #	AVFLAGP | #	AVFLAGP | ||||||
| #	VNP00H | #	VNPOOH | ||||||
| #	DISPLAYE | #	DISPLAYE | ||||||
| #	SELECTMU | #	SELECTMU | ||||||
| #	PRECSET | #	PRECSET | ||||||
| @@ -209,7 +209,7 @@ P34		TC	AVFLAGA | |||||||
| P74		TC	AVFLAGP | P74		TC	AVFLAGP | ||||||
| P34/P74A	TC	P20FLGON	# SET UPDATFLG, TRACKFLG | P34/P74A	TC	P20FLGON	# SET UPDATFLG, TRACKFLG | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		EXTEND | 		EXTEND | ||||||
| 		DCA	130DEG | 		DCA	130DEG | ||||||
| 		DXCH	CENTANG | 		DXCH	CENTANG | ||||||
| @@ -265,7 +265,7 @@ SWCHCLR		BONCLR	BON | |||||||
| 		TC	P34/P74E | 		TC	P34/P74E | ||||||
| P34/P74D	EXIT | P34/P74D	EXIT | ||||||
| 		CAF	V06N37		# TTPI | 		CAF	V06N37		# TTPI | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| P34/P74E	TC	INTPRET | P34/P74E	TC	INTPRET | ||||||
| 		SETPD	DLOAD | 		SETPD	DLOAD | ||||||
| 			0D | 			0D | ||||||
| @@ -312,7 +312,7 @@ P34/P74E	TC	INTPRET | |||||||
| 		STORE	TIG | 		STORE	TIG | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N58 | 		CAF	V06N58 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		CALL | 		CALL | ||||||
| 			S34/35.5 | 			S34/35.5 | ||||||
| @@ -856,7 +856,7 @@ ALLSET		STOVL	TET | |||||||
| #	GOTOPOOH | #	GOTOPOOH | ||||||
| #	S34/35.3 | #	S34/35.3 | ||||||
| #	S34.35.4 | #	S34.35.4 | ||||||
| #	VNP00H | #	VNPOOH | ||||||
|  |  | ||||||
| S34/35.5	STQ	BON | S34/35.5	STQ	BON | ||||||
| 			SUBEXIT | 			SUBEXIT | ||||||
| @@ -909,7 +909,7 @@ FLAGOFF		CALL | |||||||
| 			S34/35.4 | 			S34/35.4 | ||||||
| 		EXIT | 		EXIT | ||||||
| 		CAF	V06N59 | 		CAF	V06N59 | ||||||
| 		TC	VNP00H | 		TC	VNPOOH | ||||||
| 		TC	INTPRET | 		TC	INTPRET | ||||||
| 		GOTO | 		GOTO | ||||||
| 			SUBEXIT | 			SUBEXIT | ||||||
| @@ -1012,14 +1012,14 @@ P3XORP7X	CAF	HIGH9 | |||||||
| 		INCR	Q | 		INCR	Q | ||||||
| 		RETURN | 		RETURN | ||||||
|  |  | ||||||
| # ***** VNP00H ***** | # ***** VNPOOH ***** | ||||||
| # | # | ||||||
| # SUBROUTINES USED | # SUBROUTINES USED | ||||||
| #	BANKCALL | #	BANKCALL | ||||||
| #	GOFLASH | #	GOFLASH | ||||||
| #	GOTOPOOH | #	GOTOPOOH | ||||||
|  |  | ||||||
| VNP00H		EXTEND | VNPOOH		EXTEND | ||||||
| 		QXCH	RTRN | 		QXCH	RTRN | ||||||
| 		TS	VERBNOUN | 		TS	VERBNOUN | ||||||
| 		CA	VERBNOUN | 		CA	VERBNOUN | ||||||
|   | |||||||
| @@ -203,7 +203,7 @@ SVCT3X		TC	FIXDELAY	# DELAY MAX OF 2 TIMES FOR IMUZERO. | |||||||
| WAIT2		TS	WAITBANK	# BBANK OF CALLING PROGRAM. | WAIT2		TS	WAITBANK	# BBANK OF CALLING PROGRAM. | ||||||
| 		CA	Q | 		CA	Q | ||||||
| 		EXTEND | 		EXTEND | ||||||
| 		BZMF	WAITP00H | 		BZMF	WAITPOOH | ||||||
|  |  | ||||||
| 		CS	TIME3 | 		CS	TIME3 | ||||||
| 		AD	BIT8		# BIT 8 = OCT 200 | 		AD	BIT8		# BIT 8 = OCT 200 | ||||||
| @@ -506,10 +506,10 @@ LNGCALL2	LXCH	LONGEXIT +1	# SAVE THE CORRECT BB FOR RETURN | |||||||
| 		CCS	A | 		CCS	A | ||||||
| 		TCF	LONGCYCL	# HI-ORDER OK --> ALL IS OK. | 		TCF	LONGCYCL	# HI-ORDER OK --> ALL IS OK. | ||||||
| 		TCF	+2		# HI-ORDER ZERO --> CHECK LO-ORDER. | 		TCF	+2		# HI-ORDER ZERO --> CHECK LO-ORDER. | ||||||
| 		TCF	LONGP00H	# HI-ORDER NEG. --> NEG. DT | 		TCF	LONGPOOH	# HI-ORDER NEG. --> NEG. DT | ||||||
|  +2		CA	LONGTIME +1	# CHECK LO-ORDER FOR ZERO OR NEGATIVE. |  +2		CA	LONGTIME +1	# CHECK LO-ORDER FOR ZERO OR NEGATIVE. | ||||||
| 		EXTEND | 		EXTEND | ||||||
| 		BZMF	LONGP00H	# BAD DELTA-TIME.  ABORT | 		BZMF	LONGPOOH	# BAD DELTA-TIME.  ABORT | ||||||
|  |  | ||||||
| # *** WAITLIST TASK LONGCYCL *** | # *** WAITLIST TASK LONGCYCL *** | ||||||
|  |  | ||||||
| @@ -556,9 +556,9 @@ GETCADR		DXCH	LONGCADR	# GET THE LONGCALL THAT WE WISHED TO START | |||||||
| 		DTCB			# AND TRANSFER CONTROL TO IT | 		DTCB			# AND TRANSFER CONTROL TO IT | ||||||
|  |  | ||||||
| TSKOVCDR	GENADR	TASKOVER | TSKOVCDR	GENADR	TASKOVER | ||||||
| LONGP00H	DXCH	LONGEXIT | LONGPOOH	DXCH	LONGEXIT | ||||||
| 		TCF	+2 | 		TCF	+2 | ||||||
| WAITP00H	DXCH	WAITEXIT | WAITPOOH	DXCH	WAITEXIT | ||||||
|  +2		TC	POODOO1 |  +2		TC	POODOO1 | ||||||
| 		OCT	01204 | 		OCT	01204 | ||||||
|  |  | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user