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. |
004654,000002: ## Copyright: Public domain.
004655,000003: ## Filename: KEYRUPT,_UPRUPT.agc
004656,000004: ## Purpose: Part of the source code for AGC program Retread 50.
004657,000005: ## Assembler: yaYUL
004658,000006: ## Contact: Ron Burkey <info@sandroid.org>.
004659,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
004660,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
004661,000009: ## physical core-rope modules.
004662,000010:
|
|
Page 131 |
004664,000012: 01,3153 54016 KEYRUPT1 TS BANKRUPT
004665,000013: 01,3154 56002 XCH Q
004666,000014: 01,3155 54012 TS QRUPT
004667,000015: 01,3156 04526 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
004668,000016: 01,3157 34473 CAF LOW5
004669,000017: 01,3160 00006 EXTEND
004670,000018: 01,3161 02015 RAND MNKEYIN
004671,000019: 01,3162 67634 KEYCOM AD BIT11
004672,000020: 01,3163 55024 TS TMKEYBUF
004673,000021: 01,3164 34502 CAF CHRPRIO
004674,000022: 01,3165 04131 TC NOVAC
004675,000023: 01,3166 0637 EBANK= DSPCOUNT
004676,000024: 01,3166 02002 10001 2CADR CHARIN
004677,000025:
004678,000026: 01,3170 34473 CA LOW5
004679,000027: 01,3171 71024 MASK TMKEYBUF
004680,000028: 01,3172 50635 INDEX LOCCTR
004681,000029: 01,3173 54140 TS MPAC # LEAVE 5 BIT KEY CDE IN MPAC FOR CHARIN
004682,000030: 01,3174 04325 TC RESUME
004683,000031:
004684,000032:
004685,000033:
004686,000034: 01,3175 54016 KEYRUPT2 TS BANKRUPT
004687,000035: 01,3176 56002 XCH Q
004688,000036: 01,3177 54012 TS QRUPT
004689,000037: 01,3200 04526 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
004690,000038: 01,3201 34473 CAF LOW5
004691,000039: 01,3202 00006 EXTEND
004692,000040: 01,3203 02016 RAND NAVKEYIN
004693,000041: 01,3204 03162 TC KEYCOM
004694,000042:
|
|
Page 132 |
004696,000044: # UPRUPT PROGRAM
004697,000045:
004698,000046: 01,3205 54016 UPRUPT TS BANKRUPT
004699,000047: 01,3206 56002 XCH Q
004700,000048: 01,3207 54012 TS QRUPT
004701,000049: 01,3210 04526 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
004702,000050: 01,3211 37653 CAF ZERO
004703,000051: 01,3212 56045 XCH INLINK
004704,000052: 01,3213 54624 TS KEYTEMP1
004705,000053: 01,3214 37644 CAF BIT3 # TURN ON UPACT LIGHT
004706,000054: 01,3215 00006 EXTEND # (BIT 3 OF CHANNEL 11)
004707,000055: 01,3216 05011 WOR DSALMOUT
004708,000056: 01,3217 34473 UPRUPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
004709,000057: 01,3220 70624 MASK KEYTEMP1 # LOW5 OF WORD
004710,000058: 01,3221 56624 XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
004711,000059: 01,3222 56021 XCH SR # WHOLE WORD INTO SR
004712,000060: 01,3223 54636 TS KEYTEMP2 # ORIGINAL SR INTO KEYTEMP2
004713,000061: 01,3224 03274 TC SRGHT5
004714,000062: 01,3225 74473 MASK LOW5 # MID 5
004715,000063: 01,3226 63311 AD HI10
004716,000064: 01,3227 03303 TC UPTEST
004717,000065: 01,3230 03274 TC SRGHT5
004718,000066: 01,3231 74473 MASK LOW5 # HIGH 5
004719,000067: 01,3232 40000 COM
004720,000068: 01,3233 03303 TC UPTEST
004721,000069: 01,3234 03270 UPOK TC RESTORSR # CODE IS GOOD
004722,000070: 01,3235 43241 CS ELRCODE # IF CODE = ERROR LIGHT RESET, PUT +0
004723,000071: 01,3236 60624 AD KEYTEMP1 # INTO BIT1 OF UPLOCK.
004724,000072: 01,3237 10000 CCS A # IF CODE NOT= ELR, PASS CODE ONLY IF
004725,000073: 01,3240 03247 TC TSTUPLOK # BIT1 OF UPLOCK = 0.
004726,000074: 01,3241 00022 ELRCODE OCT 22
004727,000075: 01,3242 03247 TC TSTUPLOK
004728,000076: 01,3243 47646 CS BIT1 # PUT 0 INTO BIT1 OF UPLOCK
004729,000077: 01,3244 70715 MASK UPLOCK
004730,000078: 01,3245 54715 TS UPLOCK
004731,000079: 01,3246 03253 TC ACCEPTUP
004732,000080: 01,3247 37646 TSTUPLOK CAF BIT1
004733,000081: 01,3250 70715 MASK UPLOCK
004734,000082: 01,3251 10000 CCS A
004735,000083: 01,3252 04325 TC RESUME # BIT1 OF UPLOCK = 1.
004736,000084: 01,3253 56624 ACCEPTUP XCH KEYTEMP1 # BIT1 OF UPLOCK = 0.
004737,000085: 01,3254 67641 AD BIT6
004738,000086: 01,3255 03162 TC KEYCOM
004739,000087:
004740,000088: 01,3256 03270 TMFAIL2 TC RESTORSR # CODE IS BAD
004741,000089: 01,3257 47646 CS BIT1 # LOCK OUT FURTHER UPLINK ACTIVITY (BY
004742,000090: 01,3260 70715 MASK UPLOCK # PUTTING 1 INTO BIT1 OF UPLOCK) UNTIL ELR
004743,000091: 01,3261 67646 AD BIT1 # IS SENT UP UPLINK.
004744,000092: 01,3262 54715 TS UPLOCK
004745,000093: 01,3263 37636 CAF BIT9 # SEND DOWN INDICATION THAT UPLINK HAS
|
|
Page 133 |
004747,000095: 01,3264 67634 AD BIT11 # RECEIVED BAD CODE.
004748,000096: 01,3265 55024 TS TMKEYBUF
004749,000097: 01,3266 04325 TMFAIL1 TC TMALM
004750,000098: 01,3267 04325 TC RESUME
004751,000099:
004752,000100: 01,3270 56636 RESTORSR XCH KEYTEMP2
004753,000101: 01,3271 60000 DOUBLE
004754,000102: 01,3272 54021 TS SR
004755,000103: 01,3273 00002 TC Q
004756,000104:
004757,000105: 01,3274 4325 TMALM = RESUME # FOR NOW
004758,000106:
004759,000107: 01,3274 40021 SRGHT5 CS SR
004760,000108: 01,3275 40021 CS SR
004761,000109: 01,3276 40021 CS SR
004762,000110: 01,3277 40021 CS SR
004763,000111: 01,3300 40021 CS SR
004764,000112: 01,3301 40000 CS A
004765,000113: 01,3302 00002 TC Q # DELIVERS WORD UNCOMPLEMENTED
004766,000114:
004767,000115: 01,3303 60624 UPTEST AD KEYTEMP1
004768,000116: 01,3304 10000 CCS A
004769,000117: 01,3305 03256 TC TMFAIL2
004770,000118: 01,3307 LOC +1
004771,000119: 01,3307 03256 TC TMFAIL2
004772,000120: 01,3310 00002 TC Q
004773,000121:
004774,000122: 01,3311 77740 HI10 OCT 77740
004775,000123: 01,3312 4214 UPBANK EQUALS EXECBANK # IN SAME BANK AS EXEC.
004776,000124:
004777,000125: 01,3312 03777 B12-1 OCT 3777
004778,000126:
004779,000127: # UPACT IS TURNED OFF BY VBRELDSP, ALSO BY ERROR LIGHT RESET.
004780,000128:
|
|
Page 134 |
004782,000130: # THE RECEPTION OF A BAD CODE BY UPLINK LOCKS OUT FURTHER UPLINK ACTIVITY
004783,000131: # BY PLACING A 1 INTO BIT1 OF UPLOCK. BIT9 (ALONG WITH BIT11) OF TMKEYBUF
004784,000132: # IS SET TO 1 TO SEND AN INDICATION OF THIS SITUATION DOWN THE DOWNLINK.
004785,000133: # THE UPLINK INTERLOCK IS ALLOWED WHEN AN ERROR LIGHT RESET CODE IS SENT
004786,000134: # UP THE UPLINK, OR WHEN A FRESH START IS PERFORMED.
End of include-file KEYRUPT,_UPRUPT.agc. Parent file is MAIN.agc