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