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