Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
000278,000002: ## Copyright: Public domain.
000279,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
000280,000004: ## Purpose: Part of the source code for Aurora (revision 12).
000281,000005: ## Assembler: yaYUL
000282,000006: ## Contact: Ron Burkey <info@sandroid.org>.
000283,000007: ## Website: https://www.ibiblio.org/apollo.
000284,000008: ## Pages: 7-25
000285,000009: ## Mod history: 2016-09-20 JL Created.
000286,000010: ## 2016-10-04 HG Insert missed statements
000287,000011: ## 2016-10-12 HG add missing THRUST EQUALS 55
000288,000012: ## fix label SQRANG -> SQRARG
000289,000013: ## 2016-10-15 HG fix label LASTXMCD -> LASTXCMD
000290,000014: ## 2016-10-16 HG FIX LABEL SCALSAVE -> SCALSAV
000291,000015: ## 2016-12-07 RSB Proofed comments with octopus/ProoferComments
000292,000016: ## and made a few changes.
000293,000017: ##
000294,000018: ## This source code has been transcribed or otherwise adapted from
000295,000019: ## digitized images of a hardcopy from the private collection of
000296,000020: ## Don Eyles. The digitization was performed by archive.org.
000297,000021: ##
000298,000022: ## Notations on the hardcopy document read, in part:
000299,000023: ##
000300,000024: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
000301,000025: ## NOV 10, 1966
000302,000026: ##
000303,000027: ## [Note that this is the date the hardcopy was made, not the
000304,000028: ## date of the program revision or the assembly.]
000305,000029: ##
000306,000030: ## The scan images (with suitable reduction in storage size and consequent
000307,000031: ## reduction in image quality) are available online at
000308,000032: ## https://www.ibiblio.org/apollo.
000309,000033: ## The original high-quality digital images are available at archive.org:
000310,000034: ## https://archive.org/details/aurora00dapg
000311,000035:
![]() |
Page 7 |
000313,000037: ??????? A EQUALS 0
000314,000038: ??????? L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
000315,000039: ??????? Q EQUALS 2
000316,000040: ??????? EBANK EQUALS 3
000317,000041: ??????? FBANK EQUALS 4
000318,000042: ??????? Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
000319,000043: ??????? BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
000320,000044: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
000321,000045:
000322,000046: ??????? ARUPT EQUALS 10 # INTERRUPT STORAGE.
000323,000047: ??????? LRUPT EQUALS 11
000324,000048: ??????? QRUPT EQUALS 12
000325,000049: ??????? SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
000326,000050: ??????? ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
000327,000051: ??????? BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
000328,000052: ??????? BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
000329,000053:
000330,000054: ??????? CYR EQUALS 20
000331,000055: ??????? SR EQUALS 21
000332,000056: ??????? CYL EQUALS 22
000333,000057: ??????? EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
000334,000058:
000335,000059:
000336,000060: ??????? TIME2 EQUALS 24
000337,000061: ??????? TIME1 EQUALS 25
000338,000062: ??????? TIME3 EQUALS 26
000339,000063: ??????? TIME4 EQUALS 27
000340,000064: ??????? TIME5 EQUALS 30
000341,000065: ??????? TIME6 EQUALS 31
000342,000066: ??????? CDUX EQUALS 32
000343,000067: ??????? CDUY EQUALS 33
000344,000068: ??????? CDUZ EQUALS 34
000345,000069: ??????? OPTY EQUALS 35
000346,000070: ??????? OPTX EQUALS 36
000347,000071: ??????? PIPAX EQUALS 37
000348,000072: ??????? PIPAY EQUALS 40
000349,000073: ??????? PIPAZ EQUALS 41
000350,000074: ??????? BMAGX EQUALS 42
000351,000075: ??????? RHCP EQUALS 42
000352,000076: ??????? BMAGY EQUALS 43
000353,000077: ??????? RHCY EQUALS 43
000354,000078: ??????? BMAGZ EQUALS 44
000355,000079: ??????? RHCR EQUALS 44
000356,000080: ??????? INLINK EQUALS 45
000357,000081: ??????? RNRAD EQUALS 46
000358,000082: ??????? GYROCTR EQUALS 47
000359,000083: ??????? GYROCMD EQUALS 47
000360,000084: ??????? CDUXCMD EQUALS 50
000361,000085: ??????? CDUYCMD EQUALS 51
000362,000086:
![]() |
Page 8 |
000364,000088: ??????? CDUZCMD EQUALS 52
000365,000089: ??????? OPTYCMD EQUALS 53
000366,000090: ??????? OPTXCMD EQUALS 54
000367,000091: ??????? EMSD EQUALS 55
000368,000092: ??????? THRUST EQUALS 55
000369,000093: ??????? LEMONM EQUALS 56
000370,000094: ??????? OUTLINK EQUALS 57
000371,000095: ??????? ALTM EQUALS 60
000372,000096:
000373,000097: 0067 SETLOC 67 # DECODED REGISTER FOR NIGHT-WATCHMAN ALM.
000374,000098: 0067 NEWJOB ERASE
000375,000099:
000376,000100: 0070 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000377,000101: 0070 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
000378,000102: 0070 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
000379,000103: 0070 X2 EQUALS 39D # TO THE WORK AREA.
000380,000104: 0070 S1 EQUALS 40D
000381,000105: 0070 S2 EQUALS 41D
000382,000106: 0070 QPRET EQUALS 42D
000383,000107:
![]() |
Page 9 |
000385,000109:
000386,000110: # GENERAL ERASABLE ASSIGNMENTS.
000387,000111:
000388,000112: 0061 SETLOC 61
000389,000113:
000390,000114: # INTERPRETIVE SWITCH RESERVATIONS.
000391,000115:
000392,000116: 0061 STATE ERASE +3 # 60 SWITCHES PRESENTLY.
000393,000117:
000394,000118: # INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000395,000119:
000396,000120: 0065 WMATFLAG EQUALS 0
000397,000121: 0065 JSWITCH EQUALS 1
000398,000122: 0065 MIDFLAG EQUALS 2
000399,000123: 0065 MOONFLAG EQUALS 3
000400,000124: 0065 NBSMBIT EQUALS 4
000401,000125: 0065 COAROFIN EQUALS 5
000402,000126: 0065 BODYFLAG EQUALS 6
000403,000127: 0065 IMUSE EQUALS 7
000404,000128: 0065 RRUSE EQUALS 8D
000405,000129: 0065 RRNBSW EQUALS 9D
000406,000130: 0065 LOKONSW EQUALS 10D
000407,000131: # END OF SWITCH ASSIGNMENTS
000408,000132:
000409,000133: # THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POO
000410,000134:
000411,000135: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000412,000136: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000413,000137:
000414,000138: 0065 ITEMP1 ERASE
000415,000139: 0066 0065 WAITEXIT EQUALS ITEMP1
000416,000140: 0066 0065 EXECTEM1 EQUALS ITEMP1
000417,000141:
000418,000142: 0066 ITEMP2 ERASE
000419,000143: 0067 0066 WAITBANK EQUALS ITEMP2
000420,000144: 0067 0066 EXECTEM2 EQUALS ITEMP2
000421,000145:
000422,000146: 0070 SETLOC 70
000423,000147:
000424,000148: 0070 ITEMP3 ERASE
000425,000149: 0071 0070 RUPTSTOR EQUALS ITEMP3
000426,000150: 0071 0070 WAITADR EQUALS ITEMP3
000427,000151: 0071 0070 NEWPRIO EQUALS ITEMP3
000428,000152:
000429,000153: 0071 ITEMP4 ERASE
000430,000154: 0072 0071 LOCCTR EQUALS ITEMP4
000431,000155: 0072 0071 WAITTEMP EQUALS ITEMP4
000432,000156:
000433,000157: 0072 ITEMP5 ERASE
![]() |
Page 10 |
000435,000159: 0073 0072 NEWLOC EQUALS ITEMP5
000436,000160:
000437,000161: 0073 ITEMP6 ERASE
000438,000162: 0074 0073 NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS.
000439,000163:
000440,000164: 0074 RUPTREG1 ERASE
000441,000165: 0075 RUPTREG2 ERASE
000442,000166: 0076 RUPTREG3 ERASE
000443,000167: 0077 RUPTREG4 ERASE
000444,000168: 0100 0077 KEYTEMP1 EQUALS RUPTREG4
000445,000169: 0100 0077 DSRUPTEM EQUALS RUPTREG4
000446,000170:
000447,000171: # THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000448,000172: 0100 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000449,000173: 0101 0100 DSEXIT = INTB15+ # RETURN FOR DSPIN
000450,000174: 0101 0100 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
000451,000175: 0101 0100 BLANKRET = INTB15+ # RETURN FOR 2BLANK
000452,000176:
000453,000177: 0101 INTBIT15 ERASE # SIMILAR TO ABOVE.
000454,000178: 0102 0101 WRDRET = INTBIT15 # RETURN FOR 5BLANK
000455,000179: 0102 0101 WDRET = INTBIT15 # RETURN FOR DSPWD
000456,000180: 0102 0101 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
000457,000181: 0102 0101 21/22REG = INTBIT15 # TEMP FOR CHARIN
000458,000182:
000459,000183: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000460,000184:
000461,000185: 0102 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000462,000186: 0103 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
000463,000187: 0104 0103 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
000464,000188: 0104 0103 CHAR = POLISH # TEMP FOR CHARIN
000465,000189: 0104 0103 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
000466,000190: 0104 0103 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
000467,000191:
000468,000192: 0104 FIXLOC ERASE # WORK AREA ADDRESS.
000469,000193:
000470,000194: 0105 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
000471,000195:
000472,000196: 0106 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
000473,000197: 0114 0106 SGNON = VBUF # TEMP FOR +,- ON
000474,000198: 0114 0106 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
000475,000199: 0114 0106 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
000476,000200: 0114 0106 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
000477,000201:
000478,000202: 0114 0107 SGNOFF = VBUF +1 # TEMP FOR +,- ON
000479,000203: 0114 0107 NVTEMP = VBUF +1 # TEMP FOR NVSUB
000480,000204: 0114 0107 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000481,000205:
000482,000206: 0114 0110 CODE = VBUF +2 # FOR DSPIN
000483,000207: 0114 0110 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
![]() |
Page 11 |
000485,000209: 0114 0111 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
000486,000210: 0114 0111 SIGNRET = VBUF +3 # RETURN FOR +,- ON
000487,000211:
000488,000212: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000489,000213:
000490,000214: 0114 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
000491,000215: 0117 BUF2 ERASE +1
000492,000216: 0121 0114 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
000493,000217: 0121 0114 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
000494,000218: 0121 0115 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
000495,000219: 0121 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
000496,000220: 0122 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
000497,000221: 0123 0122 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
000498,000222: 0123 0122 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
000499,000223: 0123 0122 ENTRET = DOTINC # EXIT FROM ENTER
000500,000224:
000501,000225: 0123 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
000502,000226: 0124 0123 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
000503,000227: 0124 0123 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
000504,000228: 0124 0123 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
000505,000229: 0124 0123 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000506,000230:
000507,000231: 0124 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
000508,000232: 0125 0124 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000509,000233: 0125 0124 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
000510,000234: 0125 0124 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
000511,000235: 0125 0124 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
000512,000236:
000513,000237: 0125 TEM1 ERASE # EXEC TEMP
000514,000238: 0126 0125 POLYRET = TEM1
000515,000239: 0126 0125 DSREL = TEM1 # REL ADDRESS FOR DSPIN
000516,000240:
000517,000241: 0126 TEM2 ERASE # EXEC TEMP
000518,000242: 0127 0126 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
000519,000243: 0127 0126 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
000520,000244:
000521,000245: 0127 TEM3 ERASE # EXEC TEMP
000522,000246: 0130 0127 COUNT = TEM3 # FOR DSPIN
000523,000247:
000524,000248: 0130 TEM4 ERASE # EXEC TEMP
000525,000249: 0131 0130 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
000526,000250: 0131 0130 RELRET = TEM4 # RETURN FOR RELDSP
000527,000251: 0131 0130 FREERET = TEM4 # RETURN FOR FREEDSP
000528,000252:
000529,000253: 0131 TEM5 ERASE # EXEC TEMP
000530,000254: 0132 0131 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
000531,000255:
000532,000256: 0132 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
000533,000257: 0133 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
000534,000258: 0134 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
![]() |
Page 12 |
000536,000260: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
000537,000261: 0135 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000538,000262: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
000539,000263: 0136 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000540,000264: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
000541,000265: 0137 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000542,000266:
000543,000267:
000544,000268:
000545,000269: # STORAGE USED BY THE EXECUTIVE.
000546,000270:
000547,000271: 0140 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
000548,000272: 0147 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000549,000273: 0150 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
000550,000274: 0151 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
000551,000275: 0152 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
000552,000276: 0153 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
000553,000277:
000554,000278: 0154 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
000555,000279:
![]() |
Page 13 |
000557,000281: # THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000558,000282:
000559,000283:
000560,000284: # RESERVED FOR PINBALL EXECUTIVE ACTION
000561,000285:
000562,000286: 0264 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
000563,000287: 0265 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
000564,000288: 0266 VERBREG ERASE # VERB CODE
000565,000289: 0267 NOUNREG ERASE # NOUN CODE
000566,000290: 0270 XREG ERASE # R1 INPUT BUFFER
000567,000291: 0271 YREG ERASE # R2 INPUT BUFFER
000568,000292: 0272 ZREG ERASE # R3 INPUT BUFFER
000569,000293: 0273 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
000570,000294: 0274 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
000571,000295: 0275 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
000572,000296: 0276 MODREG ERASE # MODE CODE
000573,000297: 0277 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
000574,000298: 0300 REQRET ERASE # RETURN REGISTER FOR LOAD
000575,000299: 0301 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
000576,000300: 0302 CLPASS ERASE # PASS INDICATOR CLEAR
000577,000301: 0303 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
000578,000302: 0304 NOUNCADR ERASE # MACHINE CADR FOR NOUN
000579,000303: 0305 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
000580,000304: 0306 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
000581,000305: 0307 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000582,000306: 0323 CADRSTOR ERASE # ENDIDLE STORAGE
000583,000307: 0324 GRABLOCK ERASE # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000584,000308: 0325 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
000585,000309: # MUST = NVBNKTEM-1
000586,000310: 0326 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
000587,000311: # MUST = NVQTEM+1
000588,000312: 0327 DSPLIST ERASE +2 # WAITING LIST FOR DSP SYST INTERNAL USE
000589,000313: 0332 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
000590,000314: 0333 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000591,000315: 0336 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000592,000316: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000593,000317:
000594,000318:
000595,000319:
000596,000320: # RESERVED FOR PINBALL INTERRUPT ACTION
000597,000321:
000598,000322: 0341 DSPCNT ERASE # COUNTER FOR DSPOUT
000599,000323: 0342 UPLOCK ERASE # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
000600,000324: # RECEPTION OF A BAD MESSAGE IN UPLINK)
000601,000325: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000602,000326:
000603,000327:
000604,000328:
000605,000329: # DAP STORAGE IN NON-SWITCHED ERASABLE.
000606,000330:
![]() |
Page 14 |
000608,000332: 0343 T6LOC ERASE +1
000609,000333: 0345 0343 T6ADR EQUALS T6LOC
000610,000334: 0345 T5LOC ERASE +1
000611,000335: 0347 0345 T5ADR EQUALS T5LOC
000612,000336:
![]() |
Page 15 |
000614,000338: # ASSIGNMENTS FOR T4RUPT PROGRAM
000615,000339: 0347 T4LOC ERASE
000616,000340: 0350 DSRUPTSW ERASE
000617,000341: 0351 DIDFLG ERASE
000618,000342: 0352 ALT ERASE +1
000619,000343: 0354 ALTRATE ERASE
000620,000344: 0355 FINALT ERASE +1 # (MAY NOT BE REQUIRED FOR FLIGHTS).
000621,000345: 0357 LGYRO ERASE
000622,000346: 0360 FORVEL ERASE
000623,000347: 0361 LATVEL ERASE
000624,000348: 0362 LASTYCMD ERASE
000625,000349: 0363 LASTXCMD ERASE
000626,000350:
000627,000351: 0364 ALTSAVE ERASE +1
000628,000352: 0366 LMPCMD ERASE
000629,000353:
000630,000354: # END OF T4RUPT ASSIGNMENTS
000631,000355:
000632,000356:
000633,000357:
000634,000358: 0367 IMODES30 ERASE
000635,000359: 0370 IMODES33 ERASE
000636,000360: 0371 MODECADR ERASE +2
000637,000361: 0374 0371 IMUCADR EQUALS MODECADR
000638,000362: 0374 0372 AOTCADR EQUALS MODECADR +1
000639,000363: 0374 0372 OPTCADR EQUALS AOTCADR
000640,000364: 0374 0373 RADCADR EQUALS MODECADR +2
000641,000365:
000642,000366: 0374 MARKSTAT ERASE
000643,000367: 0375 XYMARK ERASE
000644,000368: 0400 SETLOC 400
000645,000369:
![]() |
Page 16 |
000647,000371: # TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000648,000372:
000649,000373: 0400 THETAD ERASE +2
000650,000374: 0403 DELVX ERASE +5
000651,000375: # END OF PHONY ASSIGNMENTS
000652,000376:
000653,000377:
000654,000378:
000655,000379: # DOWNLINK LIST ADDRESS.
000656,000380: 0411 DNLSTADR ERASE
000657,000381:
000658,000382: # AGS DUMMY ID WORD
000659,000383: 0412 AGSWORD ERASE
000660,000384: # RADAR ERASABLE
000661,000385:
000662,000386: 0413 RADMODES ERASE
000663,000387: 0414 SAMPLIM ERASE
000664,000388: 0415 SAMPLSUM ERASE +1
000665,000389: 0417 0415 SAMPSUM EQUALS SAMPLSUM
000666,000390: 0417 OPTYHOLD ERASE +1
000667,000391: 0421 TIMEHOLD ERASE +1
000668,000392: 0423 0415 RRTARGET EQUALS SAMPLSUM # HALF UNIT VECTOR IN SM OR NB AXES.
000669,000393: 0423 TANG ERASE +1 # DESIRED TRUNNION AND SHAFT ANGLES.
000670,000394: 0425 0423 MODEA EQUALS TANG
000671,000395: 0425 MODEB ERASE +1 # DODES CLOBBERS TANG +2.
000672,000396: 0427 0425 NSAMP EQUALS MODEB
000673,000397: 0427 DESRET ERASE
000674,000398: 0430 0427 OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES.
000675,000399: 0430 DESCOUNT ERASE
000676,000400: # END OF RADAR ERASABLE ASSIGNMENTS
000677,000401:
000678,000402: 0431 VAC1USE ERASE
000679,000403: 0432 VAC1 ERASE +42D
000680,000404: 0505 VAC2USE ERASE
000681,000405: 0506 VAC2 ERASE +42D
000682,000406: 0561 VAC3USE ERASE
000683,000407: 0562 VAC3 ERASE +42D
000684,000408: 0635 VAC4USE ERASE
000685,000409: 0636 VAC4 ERASE +42D
000686,000410: 0711 VAC5USE ERASE
000687,000411: 0712 VAC5 ERASE +42D
000688,000412:
000689,000413: # UNSWITCHED ERASABLE STORAGE ASSIGNMENTS FOR THE DAP
000690,000414:
000691,000415: 0765 DAPBOOLS ERASE
000692,000416: 0766 T6NEXT ERASE +1
000693,000417: 0770 T6NEXTJT ERASE +2
000694,000418:
000695,000419: 0773 DELAYCTR ERASE
000696,000420: # THESE ARE WRITTEN INTO FROM SEVERAL PROGRAMS
000697,000421:
![]() |
Page 17 |
000699,000423: 0774 CDUXD ERASE
000700,000424: 0775 CDUYD ERASE
000701,000425: 0776 CDUZD ERASE
000702,000426: 1000 SETLOC 1000
000703,000427:
000704,000428: # ERASABLE STORAGE FOR AVERAGE G INTEGRATOR
000705,000429:
000706,000430: 1000 RN ERASE +5
000707,000431: 1006 VN ERASE +5
000708,000432: 1014 NSHIFT ERASE
000709,000433: 1015 XSHIFT ERASE
000710,000434: 1016 UNITR ERASE +5
000711,000435: 1024 UNITW ERASE +5
000712,000436: 1032 RMAG ERASE +1
000713,000437: 1034 RMAGSQ ERASE +1
000714,000438: 1036 GRAVITY ERASE +5
000715,000439: 1044 DELV ERASE +5
000716,000440: 1052 DELTAT ERASE +1
000717,000441: 1054 RN1 ERASE +5
000718,000442: 1062 VN1 ERASE +5
000719,000443: # WAITLIST REPEAT FLAG:
000720,000444:
000721,000445: 1070 RUPTAGN ERASE
000722,000446: 1071 1070 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
000723,000447:
000724,000448: # PHASE TABLE AND RESTART COUNTER.
000725,000449:
000726,000450: 1071 -PHASE0 ERASE
000727,000451: 1072 PHASE0 ERASE
000728,000452: 1073 -PHASE1 ERASE
000729,000453: 1074 PHASE1 ERASE
000730,000454: 1075 -PHASE2 ERASE
000731,000455: 1076 PHASE2 ERASE
000732,000456: 1077 -PHASE3 ERASE
000733,000457: 1100 PHASE3 ERASE
000734,000458: 1101 -PHASE4 ERASE
000735,000459: 1102 PHASE4 ERASE
000736,000460: 1103 -PHASE5 ERASE
000737,000461: 1104 PHASE5 ERASE
000738,000462:
000739,000463: # ERASABLE FOR SINGLE PRECISION SUBROUTINES.
000740,000464:
000741,000465: 1105 HALFY ERASE
000742,000466: 1106 ROOTRET ERASE
000743,000467: 1107 SQRARG ERASE
000744,000468: 1110 1105 TEMK EQUALS HALFY
000745,000469: 1110 1106 SQ EQUALS ROOTRET
000746,000470:
000747,000471: 1110 1/PIPADT ERASE # IMU COMPENSATION PACKAGE
000748,000472: 1111 1110 OLDBT1 = 1/PIPADT
000749,000473:
![]() |
Page 18 |
000751,000475: # ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
000752,000476: 1111 SELFERAS ERASE 1360 - 1377
000753,000477:
000754,000478: 1111 SELFRET = 1360
000755,000479: 1111 SMODE = 1361
000756,000480: 1111 REDOCTR = 1362 # KEEPS TRACK OF RESTARTS
000757,000481: 1111 FAILREG = 1363
000758,000482: 1111 SFAIL = 1364
000759,000483: 1111 ERCOUNT = 1365
000760,000484: 1111 SCOUNT = 1366
000761,000485: 1111 SKEEP1 = 1371
000762,000486: 1111 SKEEP2 = 1372
000763,000487: 1111 SKEEP3 = 1373
000764,000488: 1111 SKEEP4 = 1374
000765,000489: 1111 SKEEP5 = 1375
000766,000490: 1111 SKEEP6 = 1376
000767,000491: 1111 SKEEP7 = 1377
000768,000492:
000769,000493: # WAITLIST TASK LISTS
000770,000494:
000771,000495: E3,1400 SETLOC 1400
000772,000496:
000773,000497: E3,1400 LST1 ERASE +7 # DELTA T'S.
000774,000498: E3,1410 LST2 ERASE +17D # 2CADR TASK ADDRESSES.
000775,000499:
000776,000500: # IMU COMPENSATION PARAMETERS:
000777,000501:
000778,000502: E3,1432 PBIASX ERASE # PIPA BIAS AND PIPA SCALE FACTOR TERMS
000779,000503: E3,1433 E3,1432 PIPABIAS = PBIASX # INTERMIXED.
000780,000504: E3,1433 PIPASCFX ERASE
000781,000505: E3,1434 E3,1433 PIPASCF = PIPASCFX
000782,000506: E3,1434 PBIASY ERASE
000783,000507: E3,1435 PIPASCFY ERASE
000784,000508: E3,1436 PBIASZ ERASE
000785,000509: E3,1437 PIPASCFZ ERASE
000786,000510:
000787,000511: E3,1440 NBDX ERASE # GYRO BIAS DRIFTS
000788,000512: E3,1441 E3,1440 GBIASX = NBDX
000789,000513: E3,1441 NBDY ERASE
000790,000514: E3,1442 NBDZ ERASE
000791,000515:
000792,000516: E3,1443 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
000793,000517: E3,1444 ADIAY ERASE # INPUT AXIS
000794,000518: E3,1445 ADIAZ ERASE
000795,000519:
000796,000520: E3,1446 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
000797,000521: E3,1447 ADSRAY ERASE # SPIN REFERENCE AXIS
000798,000522: E3,1450 ADSRAZ ERASE
000799,000523:
000800,000524: E3,1451 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
000801,000525:
![]() |
Page 19 |
000803,000527: E3,1457 GCOMPSW ERASE
000804,000528: E3,1460 E3,1451 COMMAND EQUALS GCOMP
000805,000529: E3,1460 E3,1454 CDUIND EQUALS GCOMP +3
000806,000530:
000807,000531: # STORAGE FOR RR TASKS.
000808,000532:
000809,000533: E3,1460 RRRET ERASE
000810,000534: E3,1461 RDES ERASE
000811,000535: E3,1462 RRINDEX ERASE
000812,000536:
000813,000537: # AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
000814,000538: E3,1463 AOTAZ ERASE +2
000815,000539: E3,1466 AOTEL ERASE +2
000816,000540: # ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
000817,000541: E3,1471 AZANG EQUALS # DELETE WHEN OPTICAL TRACKER NOUNS GONE.
000818,000542: E3,1471 ELANG EQUALS
000819,000543: E3,1471 DESLOTSY EQUALS
000820,000544: E3,1471 DESLOTSX EQUALS
000821,000545:
000822,000546: E3,1471 ROLL ERASE +2
000823,000547: E3,1474 LANDMARK ERASE +5
000824,000548:
000825,000549: # THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
000826,000550:
000827,000551: E3,1502 TIMESAV ERASE +1
000828,000552: E3,1504 SCALSAV ERASE +1
000829,000553: E3,1506 TIMAR ERASE +1
000830,000554: E3,1510 TIMEDIFF ERASE +1
000831,000555:
000832,000556: E4,1400 SETLOC 2000
000833,000557:
000834,000558: E4,1400 AMEMORY ERASE +150D
000835,000559: # THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000836,000560:
000837,000561: E4,1627 E4,1400 RRECT EQUALS AMEMORY +000D
000838,000562: E4,1627 E4,1400 RIGNTION EQUALS AMEMORY +000D
000839,000563: E4,1627 E4,1406 VRECT EQUALS AMEMORY +006D
000840,000564: E4,1627 E4,1406 VIGNTION EQUALS AMEMORY +006D
000841,000565: E4,1627 E4,1414 TDELTAV EQUALS AMEMORY +012D
000842,000566: E4,1627 E4,1414 NEWDLTAV EQUALS AMEMORY +012D
000843,000567: E4,1627 E4,1422 TNUV EQUALS AMEMORY +018D
000844,000568: E4,1627 E4,1422 NEWNUV EQUALS AMEMORY +018D
000845,000569: E4,1627 E4,1430 RCV EQUALS AMEMORY +024D
000846,000570: E4,1627 E4,1430 FOUNDR EQUALS AMEMORY +024D
000847,000571: E4,1627 E4,1436 VCV EQUALS AMEMORY +030D
000848,000572: E4,1627 E4,1436 FOUNDV EQUALS AMEMORY +030D
000849,000573: E4,1627 E4,1444 TC EQUALS AMEMORY +036D
000850,000574: E4,1627 E4,1446 TET EQUALS AMEMORY +038D
000851,000575: E4,1627 E4,1450 XKEP EQUALS AMEMORY +040D
000852,000576: E4,1627 E4,1452 ALPHAV EQUALS AMEMORY +042D
![]() |
Page 20 |
000854,000578: E4,1627 E4,1452 DELR EQUALS AMEMORY +042D
000855,000579: E4,1627 E4,1460 BETAV EQUALS AMEMORY +048D
000856,000580: E4,1627 E4,1460 DELVEL EQUALS AMEMORY +048D
000857,000581: E4,1627 E4,1466 PHIV EQUALS AMEMORY +054D
000858,000582: E4,1627 E4,1466 BVECTOR EQUALS AMEMORY +054D
000859,000583: E4,1627 E4,1474 PSIV EQUALS AMEMORY +060D
000860,000584: E4,1627 E4,1502 FV EQUALS AMEMORY +066D
000861,000585:
000862,000586: E4,1627 E4,1510 VECTAB EQUALS AMEMORY +072D
000863,000587:
000864,000588: E4,1627 E4,1510 TAVEGON EQUALS AMEMORY +072D
000865,000589: E4,1627 E4,1512 TRESUME EQUALS AMEMORY +074D
000866,000590: E4,1627 E4,1514 RAVEGON EQUALS AMEMORY +076D
000867,000591: E4,1627 E4,1522 VAVEGON EQUALS AMEMORY +082D
000868,000592: E4,1627 E4,1530 RIG-4SEC EQUALS AMEMORY +088D
000869,000593: E4,1627 E4,1554 ALPHAM EQUALS AMEMORY +108D
000870,000594: E4,1627 E4,1556 BETAM EQUALS AMEMORY +110D
000871,000595: E4,1627 E4,1560 TAU EQUALS AMEMORY +112D
000872,000596: E4,1627 E4,1560 GIVENT EQUALS AMEMORY +112D
000873,000597: E4,1627 E4,1562 DT/2 EQUALS AMEMORY +114D
000874,000598: E4,1627 E4,1564 H EQUALS AMEMORY +116D
000875,000599: E4,1627 E4,1566 TDEC EQUALS AMEMORY +118D
000876,000600: E4,1627 E4,1570 FBRANCH EQUALS AMEMORY +120D
000877,000601: E4,1627 E4,1571 HBRANCH EQUALS AMEMORY +121D
000878,000602: E4,1627 E4,1572 GMODE EQUALS AMEMORY +122D
000879,000603: E4,1627 E4,1573 QREADY EQUALS AMEMORY +123D
000880,000604: E4,1627 E4,1574 MEASQ EQUALS AMEMORY +124D
000881,000605: E4,1627 E4,1576 DELTAQ EQUALS AMEMORY +126D
000882,000606:
000883,000607: E4,1627 E4,1600 MEASMODE EQUALS AMEMORY +128D
000884,000608: E4,1627 E4,1601 NVCODE EQUALS AMEMORY +129D
000885,000609: E4,1627 E4,1602 MIDEXIT EQUALS AMEMORY +130D
000886,000610: E4,1627 E4,1602 DSPRTRN EQUALS AMEMORY +130D
000887,000611: E4,1627 E4,1603 INCORPEX EQUALS AMEMORY +131D
000888,000612: E4,1627 E4,1604 STEPEXIT EQUALS AMEMORY +132D
000889,000613: E4,1627 E4,1605 DIFEQCNT EQUALS AMEMORY +133D
000890,000614: E4,1627 E4,1605 NORMGAM EQUALS AMEMORY +133D
000891,000615: E4,1627 E4,1606 SCALEA EQUALS AMEMORY +134D
000892,000616: E4,1627 E4,1607 SCALEB EQUALS AMEMORY +135D
000893,000617: E4,1627 E4,1610 SCALDT EQUALS AMEMORY +136D
000894,000618: E4,1627 E4,1611 SCALDELT EQUALS AMEMORY +137D
000895,000619: E4,1627 E4,1612 SCALER EQUALS AMEMORY +138D
000896,000620:
000897,000621: E4,1627 E4,1613 YV EQUALS AMEMORY +139D
000898,000622: E4,1627 E4,1621 ZV EQUALS AMEMORY +145D
000899,000623:
000900,000624: E4,1627 PBODY ERASE
000901,000625: E4,1630 W ERASE +071D
000902,000626:
![]() |
Page 21 |
000904,000628: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
000905,000629:
000906,000630: E4,1740 E4,1400 FCSCNTR EQUALS AMEMORY +000D
000907,000631:
000908,000632: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
000909,000633:
000910,000634: # (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
000911,000635:
000912,000636: E4,1740 E4,1401 XJBUF EQUALS AMEMORY +001D
000913,000637: E4,1740 E4,1402 YZJBUF EQUALS AMEMORY +002D
000914,000638: E4,1740 E4,1403 JFBUF EQUALS AMEMORY +003D
000915,000639: E4,1740 E4,1404 FCNTR EQUALS AMEMORY +004D
000916,000640: E4,1740 E4,1405 THBUF EQUALS AMEMORY +005D
000917,000641: E4,1740 E4,1406 OFFTMBUF EQUALS AMEMORY +006D
000918,000642: E4,1740 E4,1407 JETSTEP EQUALS AMEMORY +007D
000919,000643: E4,1740 E4,1410 NTIMES EQUALS AMEMORY +008D
000920,000644: E4,1740 E4,1420 NEXTTIME EQUALS AMEMORY +016D
000921,000645: E4,1740 E4,1430 JETONTM EQUALS AMEMORY +024D
000922,000646: E4,1740 E4,1440 XJETS EQUALS AMEMORY +032D
000923,000647: E4,1740 E4,1450 YZJETS EQUALS AMEMORY +040D
000924,000648: E4,1740 E4,1460 JETOFFTM EQUALS AMEMORY +048D
000925,000649:
000926,000650: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
000927,000651:
000928,000652: E4,1740 E4,1470 ENGSTEP EQUALS AMEMORY +056D
000929,000653: E4,1740 E4,1471 CYLTIMES EQUALS AMEMORY +057D
000930,000654: E4,1740 E4,1474 NEXTCYLT EQUALS AMEMORY +060D
000931,000655: E4,1740 E4,1477 ONTIME EQUALS AMEMORY +063D
000932,000656: E4,1740 E4,1502 OFFTIME EQUALS AMEMORY +066D
000933,000657: E4,1740 E4,1505 OFFTIMER EQUALS AMEMORY +069D
000934,000658:
000935,000659: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
000936,000660:
000937,000661: E4,1740 E4,1510 TRIMSTEP EQUALS AMEMORY +072D
000938,000662: E4,1740 E4,1511 NUMTIMES EQUALS AMEMORY +073D
000939,000663: E4,1740 E4,1525 STEPDLYT EQUALS AMEMORY +085D
000940,000664: E4,1740 E4,1541 TRIMONT EQUALS AMEMORY +097D
000941,000665: E4,1740 E4,1555 TRIMOFFT EQUALS AMEMORY +109D
000942,000666: E4,1740 E4,1571 TRIMIND EQUALS AMEMORY +121D
000943,000667:
000944,000668: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
000945,000669:
000946,000670: E4,1740 E4,1605 THRTSTEP EQUALS AMEMORY +133D
000947,000671: E4,1740 E4,1606 DOTIMES EQUALS AMEMORY +134D
000948,000672: E4,1740 E4,1614 DELAY EQUALS AMEMORY +140D
000949,000673: E4,1740 E4,1622 THR1TIME EQUALS AMEMORY +146D
000950,000674: E4,1740 E4,1630 THCOMM1 EQUALS AMEMORY +152D
000951,000675: E4,1740 E4,1636 THCOMM2 EQUALS AMEMORY +158D
000952,000676:
000953,000677: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
000954,000678:
![]() |
Page 22 |
000956,000680: E4,1740 E4,1644 30BUF1 EQUALS AMEMORY +164D
000957,000681: E4,1740 E4,1650 30BUF0 EQUALS AMEMORY +168D
000958,000682: E4,1740 E4,1654 QUITLOOK EQUALS AMEMORY +172D
000959,000683: E4,1740 E4,1655 CHCNTR EQUALS AMEMORY +173D
000960,000684:
000961,000685: E5,1400 SETLOC 2400
000962,000686: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
000963,000687:
000964,000688: E5,1400 XSM ERASE +17D
000965,000689: E5,1422 E5,1406 YSM = XSM +6
000966,000690: E5,1422 E5,1414 ZSM = XSM +12D
000967,000691: E5,1422 XDC ERASE +17D
000968,000692: E5,1444 E5,1430 YDC = XDC +6
000969,000693: E5,1444 E5,1436 ZDC = XDC +12D
000970,000694: E5,1444 E5,1422 XNB = XDC
000971,000695: E5,1444 E5,1430 YNB = XDC +6
000972,000696: E5,1444 E5,1436 ZNB = XDC +12D
000973,000697: E5,1444 STARAD ERASE +17D
000974,000698: E5,1466 STAR ERASE +5
000975,000699: E5,1474 SAC ERASE +1
000976,000700: E5,1476 PAC ERASE +1
000977,000701: E5,1500 OGC ERASE +1
000978,000702: E5,1502 IGC ERASE +1
000979,000703: E5,1504 MGC ERASE +1
000980,000704: E5,1506 ZPRIME = 22D
000981,000705: E5,1506 PDA = 22D
000982,000706: E5,1506 COSTH = 16D
000983,000707: E5,1506 SINTH = 18D
000984,000708: E5,1506 THETA = 20D
000985,000709: E5,1506 STARM = 32D
000986,000710:
000987,000711:
000988,000712:
000989,000713: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
000990,000714: E5,1506 AZIMUTH ERASE +1
000991,000715: E5,1510 LATITUDE ERASE +1
000992,000716:
000993,000717: E5,1512 EROPTN ERASE
000994,000718: E5,1513 ERVECTOR ERASE +5
000995,000719: E5,1521 GYROD ERASE +5
000996,000720: E5,1527 LENGTHOT ERASE
000997,000721: E5,1530 LOSVEC ERASE +5
000998,000722: E5,1536 NBPOS ERASE
000999,000723: E5,1537 NDXCTR ERASE
001000,000724: E5,1540 PIPANO ERASE
001001,000725: E5,1541 PIPINDEX ERASE
001002,000726: E5,1542 PIPNDX ERASE +1
001003,000727: E5,1544 POSITON ERASE
001004,000728: E5,1545 QPLAC ERASE
001005,000729:
![]() |
Page 23 |
001007,000731: E5,1546 QPLACE ERASE
001008,000732: E5,1547 QPLACES ERASE
001009,000733: E5,1550 RUN ERASE
001010,000734: E5,1551 STOREPL ERASE
001011,000735: E5,1552 SOUTHDR ERASE
001012,000736: E5,1553 TAZEL1 ERASE +5
001013,000737: E5,1561 TEMPTIME ERASE +1
001014,000738: E5,1563 TESTNO ERASE
001015,000739: E5,1564 TMARK ERASE +1
001016,000740: E5,1566 SHAFTA ERASE
001017,000741: E5,1567 TRUNA ERASE
001018,000742: E5,1570 E5,1776 ZERONDX = ERCOMP +5
001019,000743: E5,1570 GENPL ERASE +111D
001020,000744:
001021,000745: E5,1750 E5,1570 CDUTIMEI = GENPL
001022,000746: E5,1750 E5,1572 CDUTIMEF = GENPL +2
001023,000747: E5,1750 E5,1574 CDUDANG = GENPL +4
001024,000748: E5,1750 E5,1575 CDUREADF = GENPL +5
001025,000749: E5,1750 E5,1576 CDUREADI = GENPL +6
001026,000750: E5,1750 E5,1577 CDULIMIT = GENPL +7
001027,000751:
001028,000752: E5,1750 E5,1574 TEMPADD = GENPL +4
001029,000753: E5,1750 E5,1575 TEMP = GENPL +5
001030,000754: E5,1750 E5,1576 NOBITS = GENPL +6
001031,000755: E5,1750 E5,1577 CHAN = GENPL +7
001032,000756:
001033,000757: E5,1750 E5,1600 LOS1 = GENPL +8D
001034,000758: E5,1750 E5,1606 LOS2 = GENPL +14D
001035,000759:
001036,000760: E5,1750 E5,1614 CALCDIR EQUALS GENPL +20D
001037,000761: E5,1750 E5,1615 CDUFLAG EQUALS GENPL +21D
001038,000762: E5,1750 E5,1616 GYTOBETQ EQUALS GENPL +22D
001039,000763: E5,1750 E5,1617 OPTNREG EQUALS GENPL +23D
001040,000764: E5,1750 E5,1620 SAVE EQUALS GENPL +24D # THREE CONSEC LOC
001041,000765: E5,1750 E5,1623 SFCONST1 EQUALS GENPL +27D
001042,000766: E5,1750 E5,1624 TIMER EQUALS GENPL +28D
001043,000767:
001044,000768: E5,1750 E5,1626 DATAPL EQUALS GENPL +30D
001045,000769: E5,1750 E5,1570 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1
001046,000770: E5,1750 E5,1670 MASKREG EQUALS GENPL +64D
001047,000771: E5,1750 E5,1672 CDUNDX EQUALS GENPL +66D
001048,000772: E5,1750 E5,1673 RESULTCT EQUALS GENPL +67D
001049,000773: E5,1750 E5,1676 COUNTPL EQUALS GENPL +70D
001050,000774:
001051,000775: E5,1750 E5,1677 CDUANG EQUALS GENPL +71D
001052,000776: E5,1750 E5,1570 AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS
001053,000777:
001054,000778: E5,1750 E5,1570 WANGO EQUALS AINLA # VERT ERATE
001055,000779: E5,1750 E5,1572 WANGI EQUALS AINLA +2D # HO
001056,000780: E5,1750 E5,1574 WANGT EQUALS AINLA +4D # T
![]() |
Page 24 |
001058,000782: E5,1750 E5,1574 TORQNDX = WANGT
001059,000783: E5,1750 E5,1576 DRIFTT EQUALS AINLA +6D # EAST AX
001060,000784: E5,1750 E5,1600 ALX1S EQUALS AINLA +8D # IN
001061,000785: E5,1750 E5,1601 CMPX1 EQUALS AINLA +9D # IND
001062,000786: E5,1750 E5,1602 ALK EQUALS AINLA +10D # GAINS
001063,000787: E5,1750 E5,1616 VLAUNS EQUALS AINLA +22D
001064,000788: E5,1750 E5,1616 THETAX = VLAUNS
001065,000789: E5,1750 E5,1620 WPLATO EQUALS AINLA +24D
001066,000790: E5,1750 E5,1624 INTY EQUALS AINLA +28D # SOUTH PIP INTE
001067,000791: E5,1750 E5,1626 ANGZ EQUALS AINLA +30D # EAST AXIS
001068,000792: E5,1750 E5,1630 INTZ EQUALS AINLA +32D # EAST PIP I
001069,000793: E5,1750 E5,1632 ANGY EQUALS AINLA +34D # SOUTH
001070,000794: E5,1750 E5,1624 THETAN = INTY
001071,000795: E5,1750 E5,1634 ANGX EQUALS AINLA +36D # VE
001072,000796: E5,1750 E5,1636 DRIFTO EQUALS AINLA +38D # VERT
001073,000797: E5,1750 E5,1640 DRIFTI EQUALS AINLA +40D # SOU
001074,000798: E5,1750 E5,1644 VLAUN EQUALS AINLA +44D # LAUNCH
001075,000799: E5,1750 E5,1644 FILDELV = VLAUN
001076,000800: E5,1750 E5,1646 ACCWD EQUALS AINLA +46D # LAUN
001077,000801: E5,1750 E5,1646 INTVEC = ACCWD
001078,000802: E5,1750 E5,1654 POSNV EQUALS AINLA +52D # LAUNC
001079,000803: E5,1750 E5,1656 DPIPAY EQUALS AINLA +54D # SOUTH
001080,000804: E5,1750 E5,1662 DPIPAZ EQUALS AINLA +58D # NORTH PIP INCREMENT
001081,000805: E5,1750 E5,1664 ALTIM EQUALS AINLA +60D # LENG
001082,000806: E5,1750 E5,1665 ALTIMS EQUALS AINLA +61D # INDEX
001083,000807: E5,1750 E5,1666 ALDK EQUALS AINLA +62D # TIME CONSTAN
001084,000808: E5,1750 E5,1704 DELM EQUALS AINLA +76D
001085,000809: E5,1750 E5,1714 WPLATI EQUALS AINLA +84D
001086,000810: E5,1750 E5,1716 GEOSAVED EQUALS AINLA +86D
001087,000811: E5,1750 E5,1717 PREMTRXC EQUALS AINLA +87D
001088,000812: E5,1750 E5,1720 PRELMTRX EQUALS AINLA +88D
001089,000813: E5,1750 E5,1720 TRANSM1 = PRELMTRX
001090,000814: E5,1750 E5,1742 GEOCOMPS EQUALS AINLA +106D
001091,000815: E5,1750 E5,1743 GTSOPNDZ EQUALS AINLA +107D
001092,000816: E5,1750 E5,1744 1SECXT EQUALS AINLA +108D
001093,000817: E5,1750 E5,1745 GTSWTLST EQUALS AINLA +109D
001094,000818: E5,1750 E5,1746 ERECTIME EQUALS AINLA +110D
001095,000819: E5,1750 E5,1747 GEOMTRX EQUALS AINLA +111D
001096,000820: E5,1750 E5,1771 ERCOMP EQUALS AINLA +129D
001097,000821:
![]() |
Page 25 |
001099,000823: E5,1750 E5,1570 BMEMORY EQUALS GENPL
001100,000824: E5,1750 0405 DELVY EQUALS DELVX +2
001101,000825: E5,1750 0407 DELVZ EQUALS DELVX +4
001102,000826: E7,1400 SETLOC 3400
001103,000827:
001104,000828: # DOWNLINK STORAGE.
001105,000829:
001106,000830: E7,1400 LDATALST ERASE
001107,000831: E7,1401 DNTMGOTO ERASE
001108,000832: E7,1402 TMINDEX ERASE
001109,000833: E7,1403 DNTMBUFF ERASE +21D # SNAPSHOT BUFFER.
001110,000834:
001111,000835: # RADAR TEST STORAGE.
001112,000836:
001113,000837: E7,1431 RTSTDEX ERASE
001114,000838: E7,1432 RTSTMAX ERASE # 66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001115,000839: # AND 18 FOR LOW SPEED LR.
001116,000840: E7,1433 RTSTBASE ERASE # USED FOR CYCLIC SAMPLING.
001117,000841: E7,1434 RTSTLOC ERASE # GOES 0(6)RTSTMAX
001118,000842: E7,1435 E7,1434 RSTKLOC EQUALS RTSTLOC
001119,000843: E7,1435 RSAMPDT ERASE # PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001120,000844: # INSERT +0 HERE MANUALLY TO TERMINATE TST
001121,000845: E7,1436 RFAILCNT ERASE
001122,000846: E7,1437 RSTACK ERASE +71D # BUFFERS FOR RADAR TESTING.
001123,000847:
001124,000848: # AGS INITIALIZATION
001125,000849: E7,1547 AGSBUFF ERASE +27D
001126,000850: # STORAGE FOR INBIT SCANNER.
001127,000851:
001128,000852: E7,1603 LAST30 ERASE +2 # LAST SAMPLED INBITS.
001129,000853: E7,1606 MSGCNT ERASE
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc