Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Mike Higgins. A team of volunteers performed the transcription and proof-reading. Note that the scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's section on archive.org. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100
	JUL 9, 1965
Note that the date is the date of the printout, not the date of the program revision.

004465,000002:                                                                                                  ## Copyright:   Public domain.
004466,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
004467,000004:                                                                                                  ## Purpose:     Part of the source code for Retread 44 (revision 0). It was
004468,000005:                                                                                                  ##              the very first program for the Block II AGC, created as an
004469,000006:                                                                                                  ##              extensive rewrite of the Block I program Sunrise.
004470,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
004471,000008:                                                                                                  ##              that the code format has been changed to conform to the
004472,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
004473,000010:                                                                                                  ##              original YUL assembler.
004474,000011:                                                                                                  ## Reference:   pp. 124-127
004475,000012:                                                                                                  ## Assembler:   yaYUL
004476,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
004477,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
004478,000015:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Aurora 12 version.
004479,000016:                                                                                                  ##              2016-12-13 MAS  Transcribed.
004480,000017:                                                                                                  ##              2016-12-27 RSB  Proofed comment text using octopus/ProoferComments,
004481,000018:                                                                                                  ##                              and fixed errors found.
004482,000019: 

Page 124 The log section title, FRESH START AND RESTART, is circled in red. Below it is written "Program starts here", with an arrow drawn to the SLAP1 line.

004486,000023: 01,2677                                           SETLOC   ENDWAITS                              
004487,000024: 
004488,000025: 01,2677           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
004489,000026: 01,2700           37653                           CAF      ZERO                                  #   (ZERO FAILREG IN FRESH START ONLY).
004490,000027: 01,2701           54721                           TS       FAILREG                               
004491,000028: 01,2702           54715                           TS       UPLOCK                                #  FREE UPLINK INTERLOCK
004492,000029: 01,2703           37630                           CAF      BIT15                                 #  TURNS OFF AUTO, HOLD, FREE, NO ATT,
004493,000030: 01,2704           54675                           TS       DSPTAB     +11D                       #  SPARE, GIMBAL LOCK, SPARE, TRACKER,
004494,000031:                                                                                                  #  PROG ALM (BITS 1-9 OF DSPTAB+11D),
004495,000032:                                                                                                  #  IN FRESH START ONLY.
004496,000033: 01,2705           47632                           CS       BIT13                                 #  TURN OFF :TEST ALARM: OUTBIT (CHAN13
004497,000034: 01,2706           00006                           EXTEND                                         #  BIT10).  FRESH START ONLY.
004498,000035: 01,2707           03013                           WAND     CHAN13                                
004499,000036: 01,2710           47643                           CS       BIT4                                  #  TURN OFF TEMP (FRESH START ONLY)
004500,000037: 01,2711           00006                           EXTEND                                         
004501,000038: 01,2712           03011                           WAND     DSALMOUT                              
004502,000039: 01,2713           32722                           CAF      STARTEB                               
004503,000040: 01,2714           54003                           TS       EBANK                                 #  SET FOR E3
004504,000041: 01,2715           37653        SLAP2              CAF      ZERO                                  
004505,000042: 01,2716           55047                           TS       SMODE                                 
004506,000043: 01,2717           02723                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
004507,000044: 
004508,000045: 01,2720           14215                           TCF      DUMMYJOB                              
004509,000046: 
004510,000047: 01,2721           02715        GOPROG             TC       SLAP2                                 #  COMES HERE FROM 4050  RESTART.
004511,000048: 
004512,000049: 
004513,000050: 
004514,000051: 01,2722  E3,1400                                  EBANK=   LST1                                  
004515,000052: 01,2722           01400        STARTEB            ECADR    LST1                                  
004516,000053: 01,2723           56002        STARTSUB           XCH      Q                                     
004517,000054: 01,2724           54114                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
004518,000055: 
004519,000056: 01,2725           37626                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
004520,000057: 01,2726           54026                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
004521,000058: 01,2727           54027                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3).
004522,000059: 
004523,000060: 01,2730           37627                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
004524,000061: 01,2731           55404                           TS       LST1       +4                         
004525,000062: 01,2732           55403                           TS       LST1       +3                         
004526,000063: 01,2733           55402                           TS       LST1       +2                         
004527,000064: 01,2734           55401                           TS       LST1       +1                         
004528,000065: 01,2735           55400                           TS       LST1                                  
004529,000066: 
004530,000067: 01,2736           44267                           CS       ENDTASK                               
004531,000068: 01,2737           55405                           TS       LST2                                  
004532,000069: 01,2740           55407                           TS       LST2       +2                         
004533,000070: 01,2741           55411                           TS       LST2       +4                         
004534,000071: 01,2742           55413                           TS       LST2       +6                         
004535,000072: 01,2743           55415                           TS       LST2       +8D                        

Page 125

004537,000074: 01,2744           55417                           TS       LST2       +10D                       
004538,000075: 01,2745           44270                           CS       ENDTASK    +1                         
004539,000076: 01,2746           55406                           TS       LST2       +1                         
004540,000077: 01,2747           55410                           TS       LST2       +3                         
004541,000078: 01,2750           55412                           TS       LST2       +5                         
004542,000079: 01,2751           55414                           TS       LST2       +7                         
004543,000080: 01,2752           55416                           TS       LST2       +9D                        
004544,000081: 01,2753           55420                           TS       LST2       +11D                       
004545,000082: 
004546,000083: 01,2754           47653                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
004547,000084: 01,2755           54153                           TS       PRIORITY                              #  AVAILABLE.
004548,000085: 01,2756           54167                           TS       PRIORITY   +12D                       
004549,000086: 01,2757           54203                           TS       PRIORITY   +24D                       
004550,000087: 01,2760           54217                           TS       PRIORITY   +36D                       
004551,000088: 01,2761           54233                           TS       PRIORITY   +48D                       
004552,000089: 01,2762           54247                           TS       PRIORITY   +60D                       
004553,000090: 01,2763           54263                           TS       PRIORITY   +72D                       
004554,000091: 
004555,000092: 01,2764           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
004556,000093: 
004557,000094: 01,2765           33050                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
004558,000095: 01,2766           54264                           TS       VAC1USE                               
004559,000096: 01,2767           63051                           AD       LTHVACA                               
004560,000097: 01,2770           54340                           TS       VAC2USE                               
004561,000098: 01,2771           63051                           AD       LTHVACA                               
004562,000099: 01,2772           54414                           TS       VAC3USE                               
004563,000100: 01,2773           63051                           AD       LTHVACA                               
004564,000101: 01,2774           54470                           TS       VAC4USE                               
004565,000102: 01,2775           63051                           AD       LTHVACA                               
004566,000103: 01,2776           54544                           TS       VAC5USE                               
004567,000104: 
004568,000105: 01,2777           37646                           CAF      ONE                                   #  GIVES 110 MS TO GET READY FOR T4.
004569,000106: 01,3000           55020                           TS       DSRUPTSW                              
004570,000107: 01,3001           37650                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
004571,000108: 01,3002           54140        DSPOFF             TS       MPAC                                  
004572,000109: 01,3003           47633                           CS       BIT12                                 
004573,000110: 01,3004           50140                           INDEX    MPAC                                  
004574,000111: 01,3005           54662                           TS       DSPTAB                                
004575,000112: 01,3006           10140                           CCS      MPAC                                  
004576,000113: 01,3007           03002                           TC       DSPOFF                                
004577,000114: 
004578,000115: 01,3010           54045                           TS       INLINK                                
004579,000116: 01,3011           54714                           TS       DSPCNT                                
004580,000117: 01,3012           54651                           TS       MODREG                                
004581,000118: 01,3013           54676                           TS       CADRSTOR                              
004582,000119: 01,3014           54653                           TS       REQRET                                
004583,000120: 01,3015           54655                           TS       CLPASS                                
004584,000121: 01,3016           54652                           TS       DSPLOCK                               
004585,000122: 01,3017           54660                           TS       MONSAVE                               #  KILL MONITOR
004586,000123: 01,3020           54661                           TS       MONSAVE1                              

Page 126

004588,000125: 01,3021           54677                           TS       GRABLOCK                              
004589,000126: 01,3022           54641                           TS       VERBREG                               
004590,000127: 01,3023           54642                           TS       NOUNREG                               
004591,000128: 01,3024           54702                           TS       DSPLIST                               
004592,000129: 01,3025           54703                           TS       DSPLIST    +1                         
004593,000130: 01,3026           54704                           TS       DSPLIST    +2                         
004594,000131: 

Page 127

004596,000133: 01,3027           54620                           TS       STATE                                 #  TURN OFF INTERPRETER SWITCHES.
004597,000134: 01,3030           54621                           TS       STATE      +1                         
004598,000135: 01,3031           54622                           TS       STATE      +2                         
004599,000136: 01,3032           54623                           TS       STATE      +3                         
004600,000137: 01,3033           54705                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
004601,000138: 01,3034           37647                           CAF      NOUTCON                               
004602,000139: 01,3035           54656                           TS       NOUT                                  
004603,000140: 
004604,000141: 01,3036           43046                           CS       CHAN11C                               #  TURN OFF UPLINK ACTIVITY, KEY
004605,000142: 01,3037           00006                           EXTEND                                         #  RLSE, V/N FLASH, OPERATOR ERROR
004606,000143: 01,3040           03011                           WAND     DSALMOUT                              #  IN BOTH FRESH START AND RESTART.
004607,000144: 01,3041           33047                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
004608,000145: 01,3042           55043                           TS       SELFRET                               
004609,000146: 01,3043           44506                           CS       VD1                                   
004610,000147: 01,3044           54637                           TS       DSPCOUNT                              
004611,000148: 01,3045           00114                           TC       BUF                                   
004612,000149: 
004613,000150: 01,3046           00164        CHAN11C            OCT      00164                                 #  CHAN 11 BITS 3,5,6,7.
004614,000151:                                                                                                  #  UPLINK ACTIVITY, KEY RLSE,
004615,000152:                                                                                                  #  V/N FLASH, OPERATOR ERROR.
004616,000153: 01,3047           05010        LESCHK             ADRES    SMODECHK                              
004617,000154: 01,3050           00264        VAC1ADRC           ADRES    VAC1USE                               
004618,000155: 01,3051           00054        LTHVACA            DEC      44         B-14                       

End of include-file FRESH_START_AND_RESTART.agc.  Parent file is MAIN.agc