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