Source Code
|
|
These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. New sections of the software (appearing in EXTENDED_VERBS_FOR_MODING.agc) have been disassembled; labels and comments have been either taken from similar code in later programs or, in cases where this was not possible, added by VirtualAGC for clarity. |
004405,000002: ## Copyright: Public domain.
004406,000003: ## Filename: FRESH_START_AND_RESTART.agc
004407,000004: ## Purpose: Part of the source code for AGC program Retread 50.
004408,000005: ## Assembler: yaYUL
004409,000006: ## Contact: Ron Burkey <info@sandroid.org>.
004410,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
004411,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
004412,000009: ## physical core-rope modules.
004413,000010:
|
|
Page 124 |
004415,000012: 01,2677 SETLOC ENDWAITS
004416,000013:
004417,000014: 01,2677 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
004418,000015: 01,2700 37653 CAF ZERO # (ZERO FAILREG IN FRESH START ONLY).
004419,000016: 01,2701 54721 TS FAILREG
004420,000017: 01,2702 54715 TS UPLOCK # FREE UPLINK INTERLOCK
004421,000018: 01,2703 37630 CAF BIT15 # TURNS OFF AUTO, HOLD, FREE, NO ATT,
004422,000019: 01,2704 54675 TS DSPTAB +11D # SPARE, GIMBAL LOCK, SPARE, TRACKER,
004423,000020: # PROG ALM (BITS 1-9 OF DSPTAB+11D),
004424,000021: # IN FRESH START ONLY.
004425,000022: 01,2705 47632 CS BIT13 # TURN OFF :TEST ALARM: OUTBIT (CHAN13
004426,000023: 01,2706 00006 EXTEND # BIT10). FRESH START ONLY.
004427,000024: 01,2707 03013 WAND CHAN13
004428,000025: 01,2710 47643 CS BIT4 # TURN OFF TEMP (FRESH START ONLY)
004429,000026: 01,2711 00006 EXTEND
004430,000027: 01,2712 03011 WAND DSALMOUT
004431,000028: 01,2713 32722 CAF STARTEB
004432,000029: 01,2714 54003 TS EBANK # SET FOR E3
004433,000030: 01,2715 37653 SLAP2 CAF ZERO
004434,000031: 01,2716 55050 TS SMODE
004435,000032: 01,2717 02723 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
004436,000033:
004437,000034: 01,2720 14215 TCF DUMMYJOB
004438,000035:
004439,000036: 01,2721 02715 GOPROG TC SLAP2 # COMES HERE FROM 4050 RESTART.
004440,000037:
004441,000038:
004442,000039:
004443,000040: 01,2722 E3,1400 EBANK= LST1
004444,000041: 01,2722 01400 STARTEB ECADR LST1
004445,000042: 01,2723 56002 STARTSUB XCH Q
004446,000043: 01,2724 54114 TS BUF # EXEC TEMPS ARE AVAILABLE TO US.
004447,000044:
004448,000045: 01,2725 37626 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
004449,000046: 01,2726 54026 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
004450,000047: 01,2727 54027 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3).
004451,000048:
004452,000049: 01,2730 37627 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
004453,000050: 01,2731 55404 TS LST1 +4
004454,000051: 01,2732 55403 TS LST1 +3
004455,000052: 01,2733 55402 TS LST1 +2
004456,000053: 01,2734 55401 TS LST1 +1
004457,000054: 01,2735 55400 TS LST1
004458,000055:
004459,000056: 01,2736 44267 CS ENDTASK
004460,000057: 01,2737 55405 TS LST2
004461,000058: 01,2740 55407 TS LST2 +2
004462,000059: 01,2741 55411 TS LST2 +4
004463,000060: 01,2742 55413 TS LST2 +6
004464,000061: 01,2743 55415 TS LST2 +8D
|
|
Page 125 |
004466,000063: 01,2744 55417 TS LST2 +10D
004467,000064: 01,2745 44270 CS ENDTASK +1
004468,000065: 01,2746 55406 TS LST2 +1
004469,000066: 01,2747 55410 TS LST2 +3
004470,000067: 01,2750 55412 TS LST2 +5
004471,000068: 01,2751 55414 TS LST2 +7
004472,000069: 01,2752 55416 TS LST2 +9D
004473,000070: 01,2753 55420 TS LST2 +11D
004474,000071:
004475,000072: 01,2754 47653 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
004476,000073: 01,2755 54153 TS PRIORITY # AVAILABLE.
004477,000074: 01,2756 54167 TS PRIORITY +12D
004478,000075: 01,2757 54203 TS PRIORITY +24D
004479,000076: 01,2760 54217 TS PRIORITY +36D
004480,000077: 01,2761 54233 TS PRIORITY +48D
004481,000078: 01,2762 54247 TS PRIORITY +60D
004482,000079: 01,2763 54263 TS PRIORITY +72D
004483,000080:
004484,000081: 01,2764 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
004485,000082:
004486,000083: 01,2765 33050 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
004487,000084: 01,2766 54264 TS VAC1USE
004488,000085: 01,2767 63051 AD LTHVACA
004489,000086: 01,2770 54340 TS VAC2USE
004490,000087: 01,2771 63051 AD LTHVACA
004491,000088: 01,2772 54414 TS VAC3USE
004492,000089: 01,2773 63051 AD LTHVACA
004493,000090: 01,2774 54470 TS VAC4USE
004494,000091: 01,2775 63051 AD LTHVACA
004495,000092: 01,2776 54544 TS VAC5USE
004496,000093:
004497,000094: 01,2777 37646 CAF ONE # GIVES 110 MS TO GET READY FOR T4.
004498,000095: 01,3000 55020 TS DSRUPTSW
004499,000096: 01,3001 37650 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
004500,000097: 01,3002 54140 DSPOFF TS MPAC
004501,000098: 01,3003 47633 CS BIT12
004502,000099: 01,3004 50140 INDEX MPAC
004503,000100: 01,3005 54662 TS DSPTAB
004504,000101: 01,3006 10140 CCS MPAC
004505,000102: 01,3007 03002 TC DSPOFF
004506,000103:
004507,000104: 01,3010 54045 TS INLINK
004508,000105: 01,3011 54714 TS DSPCNT
004509,000106: 01,3012 54651 TS MODREG
004510,000107: 01,3013 54676 TS CADRSTOR
004511,000108: 01,3014 54653 TS REQRET
004512,000109: 01,3015 54655 TS CLPASS
004513,000110: 01,3016 54652 TS DSPLOCK
004514,000111: 01,3017 54660 TS MONSAVE # KILL MONITOR
004515,000112: 01,3020 54661 TS MONSAVE1
|
|
Page 126 |
004517,000114: 01,3021 54677 TS GRABLOCK
004518,000115: 01,3022 54641 TS VERBREG
004519,000116: 01,3023 54642 TS NOUNREG
004520,000117: 01,3024 54702 TS DSPLIST
004521,000118: 01,3025 54703 TS DSPLIST +1
004522,000119: 01,3026 54704 TS DSPLIST +2
004523,000120:
|
|
Page 127 |
004525,000122: 01,3027 54620 TS STATE # TURN OFF INTERPRETER SWITCHES.
004526,000123: 01,3030 54621 TS STATE +1
004527,000124: 01,3031 54622 TS STATE +2
004528,000125: 01,3032 54623 TS STATE +3
004529,000126: 01,3033 54705 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
004530,000127: 01,3034 37647 CAF NOUTCON
004531,000128: 01,3035 54656 TS NOUT
004532,000129:
004533,000130: 01,3036 43046 CS CHAN11C # TURN OFF UPLINK ACTIVITY, KEY
004534,000131: 01,3037 00006 EXTEND # RLSE, V/N FLASH, OPERATOR ERROR
004535,000132: 01,3040 03011 WAND DSALMOUT # IN BOTH FRESH START AND RESTART.
004536,000133: 01,3041 33047 CAF LESCHK # SELF CHECK GO-TO REGISTER.
004537,000134: 01,3042 55043 TS SELFRET
004538,000135: 01,3043 44506 CS VD1
004539,000136: 01,3044 54637 TS DSPCOUNT
004540,000137: 01,3045 00114 TC BUF
004541,000138:
004542,000139: 01,3046 00164 CHAN11C OCT 00164 # CHAN 11 BITS 3,5,6,7.
004543,000140: # UPLINK ACTIVITY, KEY RLSE,
004544,000141: # V/N FLASH, OPERATOR ERROR.
004545,000142: 01,3047 05012 LESCHK ADRES SMODECHK
004546,000143: 01,3050 00264 VAC1ADRC ADRES VAC1USE
004547,000144: 01,3051 00054 LTHVACA DEC 44 B-14
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc