Skip to content

Instantly share code, notes, and snippets.

@keithcollins

keithcollins/BURN_BABY_BURN--SNIPPET2.s

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.
Download ZIP

Revisions

  1. keithcollins revised this gist Jul 8, 2016. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion BURN_BABY_BURN--SNIPPET2.s
    View file
    Original file line number Diff line number Diff line change
    @@ -1,7 +1,7 @@
    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
    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?
  2. keithcollins created this gist Jul 8, 2016.
    22 changes: 22 additions & 0 deletions BURN_BABY_BURN--SNIPPET2.s
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,22 @@
    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.