Skip to content

Instantly share code, notes, and snippets.

@keithcollins
Last active July 10, 2016 12:47
Show Gist options
  • Save keithcollins/22ae2b3b27cf4e8847b6f00bef3760b0 to your computer and use it in GitHub Desktop.
Save keithcollins/22ae2b3b27cf4e8847b6f00bef3760b0 to your computer and use it in GitHub Desktop.
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