Source Code

027644,000002: ## Copyright: Public domain. 027645,000003: ## Filename: DUMMY_501_INITIALIZATION.agc 027646,000004: ## Purpose: Part of the source code for Solarium build 55. This 027647,000005: ## is for the Command Module's (CM) Apollo Guidance 027648,000006: ## Computer (AGC), for Apollo 6. 027649,000007: ## Assembler: yaYUL --block1 027650,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 027651,000009: ## Website: www.ibiblio.org/apollo/index.html 027652,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 027653,000011: ## Mod history: 2009-09-14 JL Created. 027654,000012: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 027655,000013: ## and fixed errors found. 027656,000014:

Page 697

027658,000016: 33,7407                                           BANK     33                                    
027659,000017: 33,7407           05654        BEGINNER           TC       BANKCALL                              #  CHANGE IMUMODE AS REQUIRED.
027660,000018: 33,7410           30216        CADRMODE           CADR     IMUREENT                              
027661,000019: 
027662,000020: 33,7411           04000        BEGIN501           TC       INTPRET                               
027663,000021: 33,7412           75175                           VMOVE    1                                     
027664,000022: 33,7413           76776                           ITC                                            
027665,000023: 33,7414           00766                                    RN                                    
027666,000024: 33,7415           21643                                    CALCGRAV                              
027667,000025: 
027668,000026: 33,7416           77576                           EXIT     0                                     
027669,000027: 33,7417           02276                           TC       PHASCHNG                              #  SETUP SOME PHASE INFO.
027670,000028: 33,7420           00105        EXITLOC2           OCT      00105                                 #  5.1 MODE GOES WITH READACCS.
027671,000029: 
027672,000030: 33,7421           20017                           INHINT                                         
027673,000031: 33,7422           40036                           CS       TIME1                                 
027674,000032: 33,7423           67440                           AD       STARTDT1                              
027675,000033: 33,7424           02173                           TC       WAITLIST                              
027676,000034: 33,7425           65152                           CADR     READACCS                              
027677,000035: 
027678,000036: 33,7426           40036                           CS       TIME1                                 #  SPARE START ROUTINE
027679,000037: 33,7427           67441                           AD       STARTDT2                              
027680,000038: 33,7430           02173                           TC       WAITLIST                              
027681,000039: 33,7431           67442                           CADR     START2                                
027682,000040: 
027683,000041: 33,7432           02124                           TC       ENDOFJOB                              
027684,000042: 

(JL) seems to be an arg missing. Is YUL assuming 0? Generates 07435.

027686,000044: 33,7433           05654        BEGINSW            TC       BANKCALL                              #  WAIT FOR MODE SWITCH IF NECESSARY.
027687,000045: 33,7434           30331                           CADR     IMUSTALL                              
027688,000046: 33,7435           07435                           TC       -0                                    
027689,000047: 
027690,000048: 33,7436           02124                           TC       ENDOFJOB                              
027691,000049: 
027692,000050: 33,7437           00000                           DEC      0          B-14                       #  HOLE FOR 2DEC PATCHING STARTDT1 -1
027693,000051: 33,7440           00310        STARTDT1           DEC      200        B-14                       
027694,000052: 33,7441           01476        STARTDT2           DEC      830        B-14                       
027695,000053: 
027696,000054: 33,7442           32162        START2             CAF      PRIO27                                
027697,000055: 33,7443           02046                           TC       FINDVAC                               
027698,000056: 33,7444           64336                           CADR     S4BSMSEP                              
027699,000057: 
027700,000058: 33,7445           02256                           TC       TASKOVER                              

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