Last active
July 10, 2016 12:47
-
-
Save keithcollins/22ae2b3b27cf4e8847b6f00bef3760b0 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
P40AUTO TC MAKECADR # HELLO THERE. | |
TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS. | |
P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL | |
CADR G+N,AUTO # AND AUTO STABILIZATION MODES | |
CCS A # +0 INDICATES IN PGNCS, IN AUTO | |
TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO | |
CAF APSFLBIT # ARE WE ON THE DESCENT STAGE? | |
MASK FLGWRD10 | |
CCS A | |
TCF GOBACK # RETURN | |
CAF BIT5 # YES, CHECK FOR AUTO-THROTTLE MODE | |
EXTEND | |
RAND CHAN30 | |
EXTEND | |
BZF GOBACK # IN AUTO-THROTTLE MODE -- RETURN | |
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM | |
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC. | |
CADR GOPERF1 | |
TCF GOTOP00H # V34E TERMINATE | |
TCF P40A/P # RECYCLE | |
GOBACK CA TEMPR60 | |
TC BANKJUMP # GOODBYE. COME AGAIN SOON. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment