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