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