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. |
000161,000002: ## Copyright: Public domain.
000162,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
000163,000004: ## Purpose: Part of the source code for AGC program Retread 50.
000164,000005: ## Assembler: yaYUL
000165,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000166,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
000167,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
000168,000009: ## physical core-rope modules.
000169,000010: ## 2019-10-01 MAS Assigned names to the UNK12xx erasables.
000170,000011:
|
|
Page 5 |
000172,000013:
000173,000014: ??????? A EQUALS 0
000174,000015: ??????? L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
000175,000016: ??????? Q EQUALS 2
000176,000017: ??????? EBANK EQUALS 3
000177,000018: ??????? FBANK EQUALS 4
000178,000019: ??????? Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
000179,000020: ??????? BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
000180,000021: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
000181,000022:
000182,000023: ??????? ARUPT EQUALS 10 # INTERRUPT STORAGE.
000183,000024: ??????? LRUPT EQUALS 11
000184,000025: ??????? QRUPT EQUALS 12
000185,000026: ??????? ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
000186,000027: ??????? BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
000187,000028: ??????? BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
000188,000029:
000189,000030: ??????? CYR EQUALS 20
000190,000031: ??????? SR EQUALS 21
000191,000032: ??????? CYL EQUALS 22
000192,000033: ??????? EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
000193,000034:
000194,000035:
000195,000036:
000196,000037: ??????? TIME2 EQUALS 24
000197,000038: ??????? TIME1 EQUALS 25
000198,000039: ??????? TIME3 EQUALS 26
000199,000040: ??????? TIME4 EQUALS 27
000200,000041: ??????? TIME5 EQUALS 30
000201,000042: ??????? TIME6 EQUALS 31
000202,000043: ??????? CDUX EQUALS 32
000203,000044: ??????? CDUY EQUALS 33
000204,000045: ??????? CDUZ EQUALS 34
000205,000046: ??????? OPTY EQUALS 35
000206,000047: ??????? OPTX EQUALS 36
000207,000048: ??????? PIPAX EQUALS 37
000208,000049: ??????? PIPAY EQUALS 40
000209,000050: ??????? PIPAZ EQUALS 41
000210,000051: ??????? BMAGX EQUALS 42
000211,000052: ??????? BMAGY EQUALS 43
000212,000053: ??????? BMAGZ EQUALS 44
000213,000054: ??????? INLINK EQUALS 45
000214,000055: ??????? RNRAD EQUALS 46
000215,000056: ??????? GYROCTR EQUALS 47
000216,000057: ??????? CDUXCMD EQUALS 50
000217,000058: ??????? CDUYCMD EQUALS 51
000218,000059: ??????? CDUZCMD EQUALS 52
000219,000060: ??????? OPTYCMD EQUALS 53
000220,000061: ??????? OPTXCMD EQUALS 54
000221,000062: ??????? EMSD EQUALS 55
000222,000063: ??????? LEMONM EQUALS 56
|
|
Page 6 |
000224,000065: ??????? OUTLINK EQUALS 57
000225,000066: ??????? ALTM EQUALS 60
000226,000067:
000227,000068: 0067 SETLOC 67 # DECODED REGISTER FOR NIGHT-WATCHMAN ALM.
000228,000069: 0067 NEWJOB ERASE
000229,000070:
000230,000071: 0070 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000231,000072: 0070 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
000232,000073: 0070 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
000233,000074: 0070 X2 EQUALS 39D # TO THE WORK AREA.
000234,000075: 0070 S1 EQUALS 40D
000235,000076: 0070 S2 EQUALS 41D
000236,000077: 0070 QPRET EQUALS 42D
000237,000078:
|
|
Page 7 |
000239,000080: # GENERAL ERASABLE ASSIGNMENTS.
000240,000081:
000241,000082: # THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000242,000083:
000243,000084: 0100 SETLOC 100
000244,000085:
000245,000086: 0100 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000246,000087: 0101 0100 DSEXIT = INTB15+ # RETURN FOR DSPIN
000247,000088: 0101 0100 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
000248,000089: 0101 0100 BLANKRET = INTB15+ # RETURN FOR 2BLANK
000249,000090:
000250,000091: 0101 INTBIT15 ERASE # SIMILAR TO ABOVE.
000251,000092: 0102 0101 WRDRET = INTBIT15 # RETURN FOR 5BLANK
000252,000093: 0102 0101 WDRET = INTBIT15 # RETURN FOR DSPWD
000253,000094: 0102 0101 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
000254,000095: 0102 0101 21/22REG = INTBIT15 # TEMP FOR CHARIN
000255,000096:
000256,000097: 0102 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000257,000098: 0103 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
000258,000099: 0104 0103 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
000259,000100: 0104 0103 CHAR = POLISH # TEMP FOR CHARIN
000260,000101: 0104 0103 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
000261,000102: 0104 0103 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
000262,000103:
000263,000104: 0104 FIXLOC ERASE # WORK AREA ADDRESS.
000264,000105:
000265,000106: 0105 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
000266,000107:
000267,000108: 0106 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
000268,000109: 0114 0106 SGNON = VBUF # TEMP FOR +,- ON
000269,000110: 0114 0106 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
000270,000111: 0114 0106 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
000271,000112: 0114 0106 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
000272,000113:
000273,000114: 0114 0107 SGNOFF = VBUF +1 # TEMP FOR +,- ON
000274,000115: 0114 0107 NVTEMP = VBUF +1 # TEMP FOR NVSUB
000275,000116: 0114 0107 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000276,000117:
000277,000118: 0114 0110 CODE = VBUF +2 # FOR DSPIN
000278,000119: 0114 0110 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000279,000120:
000280,000121: 0114 0111 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
000281,000122: 0114 0111 SIGNRET = VBUF +3 # RETURN FOR +,- ON
000282,000123:
000283,000124: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000284,000125:
000285,000126: 0114 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
000286,000127: 0117 BUF2 ERASE +1
000287,000128: 0121 0114 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
000288,000129: 0121 0114 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
|
|
Page 8 |
000290,000131: 0121 0115 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
000291,000132: 0121 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
000292,000133: 0122 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
000293,000134: 0123 0122 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
000294,000135: 0123 0122 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
000295,000136: 0123 0122 ENTRET = DOTINC # EXIT FROM ENTER
000296,000137:
000297,000138: 0123 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
000298,000139: 0124 0123 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
000299,000140: 0124 0123 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
000300,000141: 0124 0123 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
000301,000142: 0124 0123 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000302,000143:
000303,000144: 0124 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
000304,000145: 0125 0124 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000305,000146: 0125 0124 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
000306,000147: 0125 0124 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
000307,000148: 0125 0124 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
000308,000149:
000309,000150: 0125 TEM1 ERASE # EXEC TEMP
000310,000151: 0126 0125 POLYRET = TEM1
000311,000152: 0126 0125 DSREL = TEM1 # REL ADDRESS FOR DSPIN
000312,000153:
000313,000154: 0126 TEM2 ERASE # EXEC TEMP
000314,000155: 0127 0126 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
000315,000156: 0127 0126 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
000316,000157:
000317,000158: 0127 TEM3 ERASE # EXEC TEMP
000318,000159: 0130 0127 COUNT = TEM3 # FOR DSPIN
000319,000160:
000320,000161: 0130 TEM4 ERASE # EXEC TEMP
000321,000162: 0131 0130 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
000322,000163: 0131 0130 RELRET = TEM4 # RETURN FOR RELDSP
000323,000164: 0131 0130 FREERET = TEM4 # RETURN FOR FREEDSP
000324,000165:
000325,000166: 0131 TEM5 ERASE # EXEC TEMP
000326,000167: 0132 0131 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
000327,000168:
000328,000169: 0132 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
000329,000170: 0133 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
000330,000171: 0134 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000331,000172: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
000332,000173: 0135 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000333,000174: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
000334,000175: 0136 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000335,000176: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
000336,000177: 0137 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000337,000178:
000338,000179:
000339,000180:
000340,000181: # STORAGE USED BY THE EXECUTIVE.
000341,000182:
|
|
Page 9 |
000343,000184: 0140 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
000344,000185: 0147 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000345,000186: 0150 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
000346,000187: 0151 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
000347,000188: 0152 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
000348,000189: 0153 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
000349,000190:
000350,000191: 0154 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
000351,000192:
000352,000193: 0264 VAC1USE ERASE
000353,000194: 0265 VAC1 ERASE +42D
000354,000195: 0340 VAC2USE ERASE
000355,000196: 0341 VAC2 ERASE +42D
000356,000197: 0414 VAC3USE ERASE
000357,000198: 0415 VAC3 ERASE +42D
000358,000199: 0470 VAC4USE ERASE
000359,000200: 0471 VAC4 ERASE +42D
000360,000201: 0544 VAC5USE ERASE
000361,000202: 0545 VAC5 ERASE +42D
000362,000203:
000363,000204: # INTERPRETIVE SWITCH RESERVATIONS.
000364,000205:
000365,000206: 0620 STATE ERASE +3 # 60 SWITCHES PRESENTLY.
000366,000207:
000367,000208: # THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POOL.
000368,000209:
000369,000210: 0624 WAITEXIT ERASE
000370,000211: 0625 0624 KEYTEMP1 = WAITEXIT # TEMP FOR KEYRUPT, UPRUPT
000371,000212: 0625 0624 DSRUPTEM = WAITEXIT # TEMP FOR DSPOUT
000372,000213:
000373,000214: 0625 WAITBANK ERASE
000374,000215: 0626 EXECTEM1 ERASE
000375,000216: 0627 EXECTEM2 ERASE
000376,000217: 0630 WAITADR ERASE
000377,000218: 0631 WAITTEMP ERASE
000378,000219:
000379,000220: 0632 NEWPRIO ERASE # EXECUTIVE RESERVATIONS (TEMP ONLY).
000380,000221: 0633 NEWLOC ERASE +1
000381,000222: 0635 LOCCTR ERASE
000382,000223:
000383,000224: # WAITLIST REPEAT FLAG:
000384,000225:
000385,000226: 0636 RUPTAGN ERASE
000386,000227: 0637 0636 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
000387,000228:
|
|
Page 10 |
000389,000230: # THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000390,000231:
000391,000232:
000392,000233:
000393,000234: # RESERVED FOR PINBALL EXECUTIVE ACTION
000394,000235:
000395,000236: 0637 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
000396,000237: 0640 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
000397,000238: 0641 VERBREG ERASE # VERB CODE
000398,000239: 0642 NOUNREG ERASE # NOUN CODE
000399,000240: 0643 XREG ERASE # R1 INPUT BUFFER
000400,000241: 0644 YREG ERASE # R2 INPUT BUFFER
000401,000242: 0645 ZREG ERASE # R3 INPUT BUFFER
000402,000243: 0646 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
000403,000244: 0647 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
000404,000245: 0650 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
000405,000246: 0651 MODREG ERASE # MODE CODE
000406,000247: 0652 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
000407,000248: 0653 REQRET ERASE # RETURN REGISTER FOR LOAD
000408,000249: 0654 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
000409,000250: 0655 CLPASS ERASE # PASS INDICATOR CLEAR
000410,000251: 0656 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
000411,000252: 0657 NOUNCADR ERASE # MACHINE CADR FOR NOUN
000412,000253: 0660 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
000413,000254: 0661 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
000414,000255: 0662 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000415,000256: 0676 CADRSTOR ERASE # ENDIDLE STORAGE
000416,000257: 0677 GRABLOCK ERASE # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000417,000258: 0700 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
000418,000259: # MUST = NVBNKTEM-1
000419,000260: 0701 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
000420,000261: # MUST = NVQTEM+1
000421,000262: 0702 DSPLIST ERASE +2 # WAITING LIST FOR DSP SYST INTERNAL USE
000422,000263: 0705 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
000423,000264: 0706 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000424,000265: 0711 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000425,000266: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000426,000267:
000427,000268:
000428,000269:
000429,000270: # RESERVED FOR PINBALL INTERRUPT ACTION
000430,000271:
000431,000272: 0714 DSPCNT ERASE # COUNTER FOR DSPOUT
000432,000273: 0715 UPLOCK ERASE # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
000433,000274: # RECEPTION OF A BAD MESSAGE IN UPLINK)
000434,000275: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000435,000276:
|
|
Page 11 |
000437,000278: # TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000438,000279:
000439,000280: 0716 THETAD ERASE +2
000440,000281: 0721 FAILREG ERASE
000441,000282: 0722 TDEC ERASE +1
000442,000283: 0724 TET ERASE +1
000443,000284: 0726 MEASQ ERASE +1
000444,000285: 0730 ROLL ERASE +2
000445,000286: 0733 LANDMARK ERASE +5
000446,000287: 0741 GBIASX ERASE +2
000447,000288: 0744 ADIAX ERASE +2
000448,000289: 0747 ADSRAX ERASE +2
000449,000290: 0752 DESOPTX ERASE +1
000450,000291: 0754 SAMPTIME ERASE +1
000451,000292: 0756 DELVX ERASE +5
000452,000293: 0764 PBIASX ERASE
000453,000294: 0765 PIPASCFX ERASE
000454,000295: 0766 PBIASY ERASE
000455,000296: 0767 PIPASCFY ERASE
000456,000297: 0770 PBIASZ ERASE
000457,000298: 0771 PIPASCFZ ERASE
000458,000299: 1000 SETLOC 1000
000459,000300: 1000 DELR ERASE +5
000460,000301: 1006 DELVEL ERASE +5
000461,000302: 1014 MEASMODE ERASE
000462,000303: 1015 DELTAQ ERASE +1
000463,000304: 1017 WASKSET ERASE
000464,000305: # END OF PHONY ASSIGNMENTS
000465,000306:
|
|
Page 12 |
000467,000308:
000468,000309: # ASSIGNMENTS FOR T4RUPT PROGRAM
000469,000310: 1020 DSRUPTSW ERASE
000470,000311: 1021 OLDERR ERASE
000471,000312: 1022 WASOPSET ERASE
000472,000313: # END OF T4RUPT ASSIGNMENTS
000473,000314:
000474,000315:
000475,000316:
000476,000317: # ASSIGNMENTS FOR DOWNRUPT
000477,000318:
000478,000319: 1023 DISPBUF ERASE
000479,000320: 1024 TMKEYBUF ERASE
000480,000321: # END OF DOWNRUPT ASSIGNMENTS
000481,000322:
000482,000323:
000483,000324:
000484,000325: # ASSIGNMENTS FOR SELF CHECK
000485,000326:
000486,000327: # ADDRESSES TO BE USED FOR INDEX INSTRUCTION WITHOUT EXTRACODES
000487,000328: 1025 NDX+0 ERASE
000488,000329: 1026 NDX+MAX ERASE
000489,000330: 1027 NDXKEEP1 ERASE
000490,000331: 1030 NDXKEEP2 ERASE
000491,000332: 1031 NDXKEEP3 ERASE
000492,000333: 1032 NDXSELF1 ERASE
000493,000334: 1033 NDXSELF2 ERASE
000494,000335:
000495,000336: 1034 KEEP1 ERASE
000496,000337: 1035 KEEP2 ERASE
000497,000338: 1036 KEEP3 ERASE
000498,000339: 1037 KEEP4 ERASE
000499,000340: 1040 KEEP5 ERASE
000500,000341: 1041 KEEP6 ERASE
000501,000342: 1042 KEEP7 ERASE
000502,000343:
000503,000344: 1043 SELFRET ERASE
|
|
!! START CHANGE FOR RETREAD 50 !! |
000505,000346: 1044 SFAIL ERASE +1
|
|
!! END CHANGE FOR RETREAD 50 !! |
000507,000348: 1046 ERCOUNT ERASE
000508,000349: 1047 SCOUNT ERASE
000509,000350: 1050 SMODE ERASE
000510,000351:
000511,000352: # END OF SELF CHECK ASSIGNMENTS
000512,000353:
|
|
!! START CHANGE FOR RETREAD 50 !! IMU PERFORMANCE TESTS |
000515,000356: 1200 SETLOC 1200
000516,000357: 1200 CDUIND ERASE
000517,000358: 1201 ITEMP1 ERASE
000518,000359: 1202 COMMAND ERASE +2
000519,000360:
000520,000361: 1205 GYRONUM ERASE
000521,000362: 1206 GYCMDIDX ERASE +1
000522,000363:
000523,000364: # GYRO PULSE TORQUE COMMANDS
000524,000365: 1210 OGC ERASE +1
000525,000366: 1212 MGC ERASE +1
000526,000367: 1214 IGC ERASE +1
|
|
!! END CHANGE FOR RETREAD 50 !! |
000528,000369:
000529,000370:
000530,000371: # WAITLIST TASK LISTS:
000531,000372:
000532,000373: E3,1400 SETLOC 1400
000533,000374:
|
|
Page 13 |
000535,000376: E3,1400 LST1 ERASE +4 # DELTA TS.
000536,000377: E3,1405 LST2 ERASE +11D # 2CADR TASK ADDRESSES.
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc