Source Code
|
These source-code files are part of a reconstructed copy of Sundial E, the
final release of the Block II Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum. Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
008354,000002: ## Copyright: Public domain.
008355,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
008356,000004: ## Purpose: A section of Sundial E.
008357,000005: ## It is part of the reconstructed source code for the final
008358,000006: ## release of the Block II Command Module system test software. No
008359,000007: ## original listings of this program are available; instead, this
008360,000008: ## file was created via disassembly of dumps of Sundial core rope
008361,000009: ## modules and comparison with other AGC programs.
008362,000010: ## Assembler: yaYUL
008363,000011: ## Contact: Ron Burkey <info@sandroid.org>.
008364,000012: ## Website: www.ibiblio.org/apollo/index.html
008365,000013: ## Mod history: 2023-06-22 MAS Created from Aurora 12.
008366,000014: ## 2023-06-30 MAS Updated for Sundial E.
008367,000015: ## 2023-07-03 MAS Corrected a corrupted comment and some whitespace.
008368,000016:
008369,000017:
008370,000018:
008371,000019: # KEYBOARD AND DISPLAY PROGRAM
008372,000020:
008373,000021:
008374,000022:
008375,000023: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
008376,000024:
008377,000025: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
008378,000026: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
008379,000027: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
008380,000028:
008381,000029: # HENRY 6, ACT 2, SCENE 4
008382,000030:
008383,000031:
008384,000032:
008385,000033: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
008386,000034:
008387,000035:
008388,000036:
008389,000037: # RESERVED FOR PINBALL EXECUTIVE ACTION
008390,000038:
008391,000039: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
008392,000040: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
008393,000041: # VERBREG ERASE VERB CODE
008394,000042: # NOUNREG ERASE NOUN CODE
008395,000043: # XREG ERASE R1 INPUT BUFFER
008396,000044: # YREG ERASE R2 INPUT BUFFER
008397,000045: # ZREG ERASE R3 INPUT BUFFER
008398,000046: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
008399,000047: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
008400,000048: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
008401,000049: # MODREG ERASE MODE CODE
008402,000050: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
008403,000051: # REQRET ERASE RETURN REGISTER FOR LOAD
008404,000052: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
008405,000053: # CLPASS ERASE PASS INDICATOR CLEAR
008406,000054: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
008407,000055: # NOUNCADR ERASE MACHINE CADR FOR NOUN
008408,000056: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
008409,000057: # MONSAVE1 ERASE NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
008410,000058: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
008411,000059: # CADRSTOR ERASE ENDIDLE STORAGE
008412,000060: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
008413,000061: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
008414,000062: # MUST = NVBNKTEM-1
008415,000063: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
008416,000064: # MUST = NVQTEM+1
008417,000065: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
008418,000066: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
008419,000067: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
008420,000068: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
008421,000069:
008422,000070:
008423,000071: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
008424,000072:
008425,000073:
008426,000074:
008427,000075: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
008428,000076:
008429,000077: # DSEXIT = INTB15+ RETURN FOR DSPIN
008430,000078: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
008431,000079: # BLANKRET = INTB15+ RETURN FOR 2BLANK
008432,000080:
008433,000081: # WRDRET = INTBIT15 RETURN FOR 5BLANK
008434,000082: # WDRET = INTBIT15 RETURN FOR DSPWD
008435,000083: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
008436,000084: # 21/22REG = INTBIT15 TEMP FOR CHARIN
008437,000085:
008438,000086: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
008439,000087: # CHAR = POLISH TEMP FOR CHARIN
008440,000088: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
008441,000089: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
008442,000090:
008443,000091: # SGNON = VBUF TEMP FOR +,- ON
008444,000092: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
008445,000093: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
008446,000094: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
008447,000095:
008448,000096: # SGNOFF = VBUF +1 TEMP FOR +,- ON
008449,000097: # NVTEMP = VBUF +1 TEMP FOR NVSUB
008450,000098: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
008451,000099:
008452,000100: # CODE = VBUF +2 FOR DSPIN
008453,000101: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
008454,000102:
008455,000103: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
008456,000104: # SIGNRET = VBUF +3 RETURN FOR +,- ON
008457,000105:
008458,000106: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
008459,000107:
008460,000108: # ENTRET = DOTINC EXIT FROM ENTER
008461,000109:
008462,000110: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
008463,000111: # INREL = DOTRET INPUT BUFFER SELECTOR ( X, Y, Z, REG )
008464,000112:
008465,000113: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
008466,000114: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
008467,000115:
008468,000116: # TEM1 ERASE EXEC TEMP
008469,000117: # DSREL = TEM1 REL ADDRESS FOR DSPIN
008470,000118:
008471,000119: # TEM2 ERASE EXEC TEMP
008472,000120: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
008473,000121:
008474,000122: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
008475,000123:
008476,000124: # TEM3 ERASE EXEC TEMP
008477,000125: # COUNT = TEM3 FOR DSPIN
008478,000126:
008479,000127: # TEM4 ERASE EXEC TEMP
008480,000128: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
008481,000129: # RELRET = TEM4 RETURN FOR RELDSP
008482,000130: # FREERET = TEM4 RETURN FOR FREEDSP
008483,000131:
008484,000132: # TEM5 ERASE EXEC TEMP
008485,000133: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
008486,000134:
008487,000135: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
008488,000136: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
008489,000137: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
008490,000138: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
008491,000139: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
008492,000140: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
008493,000141: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
008494,000142: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
008495,000143: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
008496,000144: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
008497,000145:
008498,000146:
008499,000147:
008500,000148: # RESERVED FOR PINBALL INTERRUPT ACTION
008501,000149:
008502,000150: # DSPCNT ERASE COUNTER FOR DSPOUT
008503,000151: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
008504,000152: # RECEPTION OF A BAD MESSAGE IN UPLINK)
008505,000153: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
008506,000154:
008507,000155:
008508,000156:
008509,000157: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
008510,000158:
008511,000159: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
008512,000160: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
008513,000161: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
008514,000162: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
008515,000163:
008516,000164:
008517,000165: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
008518,000166: # 0 10000
008519,000167: # 1 00001
008520,000168: # 9 01001
008521,000169: # VERB 10001
008522,000170: # ERROR RES10010
008523,000171: # KEY RLSE 11001
008524,000172: # + 11010
008525,000173: # - 11011
008526,000174: # ENTER 11100
008527,000175: # CLEAR 11110
008528,000176: # NOUN 11111
008529,000177:
008530,000178:
008531,000179:
008532,000180: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
008533,000181: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
008534,000182: # ENERGIZED.
008535,000183: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
008536,000184: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
008537,000185: # D-S 5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
008538,000186:
008539,000187: # THE PANEL APPEARS AS FOLLOWS,
008540,000188: # MD1 MD2 (MAJOR MODE)
008541,000189: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
008542,000190: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
008543,000191: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
008544,000192: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
008545,000193:
008546,000194: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
008547,000195: # MD1 25 R2D1 11 ALL ARE OCTAL
008548,000196: # MD2 24 R2D2 10
008549,000197: # VD1 23 R2D3 7
008550,000198: # VD2 22 R2D4 6
008551,000199: # ND1 21 R2D5 5
008552,000200: # ND2 20 R3D1 4
008553,000201: # R1D1 16 R3D2 3
008554,000202: # R1D2 15 R3D3 2
008555,000203: # R1D3 14 R3D4 1
008556,000204: # R1D4 13 R3D5 0
008557,000205: # R1D5 12
008558,000206:
008559,000207:
008560,000208:
008561,000209: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
008562,000210:
008563,000211: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
008564,000212: # RELADD
008565,000213: # 10 1011 MD1 (25) MD2 (24)
008566,000214: # 9 1010 VD1 (23) VD2 (22)
008567,000215:
008568,000216: # 8 1001 ND1 (21) ND2 (20)
008569,000217: # 7 1000 R1D1 (16)
008570,000218: # 6 0111 +R1 R1D2 (15) R1D3 (14)
008571,000219: # 5 0110 -R1 R1D4 (13) R1D5 (12)
008572,000220: # 4 0101 +R2 R2D1 (11) R2D2 (10)
008573,000221: # 3 0100 -R2 R2D3 (7) R2D4 (6)
008574,000222: # 2 0011 R2D5 (5) R3D1 (4)
008575,000223: # 1 0010 +R3 R3D2 (3) R3D3 (2)
008576,000224: # 0 0001 -R3 R3D4 (1) R3D5 (0)
008577,000225: # 0000 NO RELAYWORD
008578,000226:
008579,000227:
008580,000228:
008581,000229: # THE 5 BIT RELAY CODES ARE,
008582,000230: # BLANK 00000
008583,000231: # 0 10101
008584,000232: # 1 00011
008585,000233: # 2 11001
008586,000234: # 3 11011
008587,000235: # 4 01111
008588,000236: # 5 11110
008589,000237: # 6 11100
008590,000238: # 7 10011
008591,000239: # 8 11101
008592,000240: # 9 11111
008593,000241:
008594,000242:
008595,000243: # START OF EXECUTIVE SECTION OF PINBALL
008596,000244:
008597,000245:
008598,000246:
008599,000247: 04,2000 SETLOC 20000
008600,000248:
008601,000249: 04,2000 03450 GRABUSYB TC GRABUSY1 # STANDARD LEAD INS. DONT MOVE.
008602,000250: 04,2001 03472 NVSUBSYB TC NVSUBSY1
008603,000251:
008604,000252: 04,2002 37652 CHARIN CAF ONE # BLOCK DISPLAY SYST
008605,000253: 04,2003 56277 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
008606,000254: 04,2004 54101 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
008607,000255: 04,2005 56140 XCH MPAC
008608,000256: 04,2006 54103 TS CHAR
008609,000257: 04,2007 50000 INDEX A
008610,000258: 04,2010 02011 TC +1 # INPUT CODE FUNCTION
008611,000259: 04,2011 03271 TC CHARALRM # 0
008612,000260: 04,2012 02062 TC NUM # 1
008613,000261: 04,2013 02062 TC NUM # 2
008614,000262: 04,2014 02062 TC NUM # 3
008615,000263: 04,2015 02062 TC NUM # 4
008616,000264: 04,2016 02062 TC NUM # 5
008617,000265: 04,2017 02062 TC NUM # 6
008618,000266: 04,2020 02062 TC NUM # 7
008619,000267: 04,2021 02053 TC 89TEST # 10 8
008620,000268: 04,2022 02053 TC 89TEST # 11 9
008621,000269: 04,2023 03271 TC CHARALRM # 12
008622,000270: 04,2024 03271 TC CHARALRM # 13
008623,000271: 04,2025 03271 TC CHARALRM # 14
008624,000272: 04,2026 03271 TC CHARALRM # 15
008625,000273: 04,2027 03271 TC CHARALRM # 16
008626,000274: 04,2030 03271 TC CHARALRM # 17
008627,000275: 04,2031 02060 TC NUM -2 # 20 0
008628,000276: 04,2032 02235 TC VERB # 21 VERB
008629,000277: 04,2033 02343 TC ERROR # 22 ERROR LIGHT RESET
008630,000278: 04,2034 03271 TC CHARALRM # 23
008631,000279: 04,2035 03271 TC CHARALRM # 24
008632,000280: 04,2036 03271 TC CHARALRM # 25
008633,000281: 04,2037 03271 TC CHARALRM # 26
008634,000282: 04,2040 03271 TC CHARALRM # 27
008635,000283: 04,2041 03271 TC CHARALRM # 30
008636,000284: 04,2042 03314 TC VBRELDSP # 31 KEY RELEASE
008637,000285: 04,2043 02267 TC POSGN # 32 +
008638,000286: 04,2044 02254 TC NEGSGN # 33 -
008639,000287: 04,2045 02051 TC ENTERJMP # 34 ENTER
008640,000288: 04,2046 03271 TC CHARALRM # 35
008641,000289: 04,2047 02425 TC CLEAR # 36 CLEAR
008642,000290: 04,2050 02250 TC NOUN # 37 NOUN
008643,000291:
008644,000292: 04,2051 04103 ENTERJMP TC POSTJUMP
008645,000293: 04,2052 12003 CADR ENTER
008646,000294:
008647,000295: 04,2053 36165 89TEST CAF THREE
008648,000296: 04,2054 70265 MASK DECBRNCH
008649,000297: 04,2055 10000 CCS A
008650,000298: 04,2056 02062 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
008651,000299: 04,2057 03271 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
008652,000300:
008653,000301:
008654,000302:
008655,000303: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
008656,000304: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
008657,000305: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
008658,000306: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
008659,000307: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
008660,000308: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
008661,000309:
008662,000310: 04,2060 37657 CAF ZERO
008663,000311: 04,2061 54103 TS CHAR
008664,000312: 04,2062 10264 NUM CCS DSPCOUNT
008665,000313: 04,2063 02067 TC +4 # +
008666,000314: 04,2064 02067 TC +3 # +0
008667,000315: 04,2065 02066 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
008668,000316: 04,2066 04353 TC ENDOFJOB # -0
008669,000317: 04,2067 02205 TC GETINREL
008670,000318: 04,2070 10302 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
008671,000319: 04,2071 37657 CAF ZERO
008672,000320: 04,2072 54302 TS CLPASS
008673,000321: 04,2073 02074 TC +1
008674,000322: 04,2074 50103 INDEX CHAR
008675,000323: 04,2075 34640 CAF RELTAB
008676,000324: 04,2076 75455 MASK LOW5
008677,000325: 04,2077 54110 TS CODE
008678,000326: 04,2100 30264 CA DSPCOUNT
008679,000327: 04,2101 54127 TS COUNT
008680,000328: 04,2102 03175 TC DSPIN
008681,000329: 04,2103 36165 CAF THREE
008682,000330: 04,2104 70265 MASK DECBRNCH
008683,000331: 04,2105 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
008684,000332: 04,2106 02117 TC DECTOBIN # +
008685,000333: 04,2107 50123 INDEX INREL # +0 OCTAL
008686,000334: 04,2110 56266 XCH VERBREG
008687,000335: 04,2111 54022 TS CYL
008688,000336: 04,2112 40022 CS CYL
008689,000337: 04,2113 40022 CS CYL
008690,000338: 04,2114 56022 XCH CYL
008691,000339: 04,2115 60103 AD CHAR
008692,000340: 04,2116 02134 TC ENDNMTST
008693,000341: 04,2117 50123 DECTOBIN INDEX INREL
008694,000342:
008695,000343:
008696,000344: 04,2120 56266 XCH VERBREG
008697,000345: 04,2121 54140 TS MPAC # SUM X 2EXP-14 IN MPAC
008698,000346: 04,2122 37657 CAF ZERO
008699,000347: 04,2123 54141 TS MPAC +1
008700,000348: 04,2124 37654 CAF TEN # 10 X 2EXP-14
008701,000349: 04,2125 07261 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
008702,000350: 04,2126 56141 XCH MPAC +1
008703,000351: 04,2127 60103 AD CHAR
008704,000352: 04,2130 54141 TS MPAC +1
008705,000353: 04,2131 02134 TC ENDNMTST # NO OF
008706,000354: 04,2132 26140 ADS MPAC # OF MUST BE 5TH CHAR
008707,000355: 04,2133 02152 TC DECEND
008708,000356: 04,2134 50123 ENDNMTST INDEX INREL
008709,000357: 04,2135 54266 TS VERBREG
008710,000358: 04,2136 40264 CS DSPCOUNT
008711,000359: 04,2137 50123 INDEX INREL
008712,000360: 04,2140 62176 AD CRITCON
008713,000361: 04,2141 00006 EXTEND
008714,000362: 04,2142 12144 BZF ENDNUM # -0, DSPCOUNT = CRITCON
008715,000363: 04,2143 02173 TC MORNUM # - , DSPCOUNT G/ CRITCON
008716,000364: 04,2144 36165 ENDNUM CAF THREE
008717,000365: 04,2145 70265 MASK DECBRNCH
008718,000366: 04,2146 10000 CCS A
008719,000367: 04,2147 02152 TC DECEND
008720,000368: 04,2150 40264 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
008721,000369: 04,2151 02174 TC MORNUM +1 # NEGATIVELY
008722,000370: 04,2152 07063 DECEND TC DMP # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
008723,000371: 04,2153 02203 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
008724,000372: 04,2154 36165 CAF THREE # IN MPAC, +1, +2.
008725,000373: 04,2155 70265 MASK DECBRNCH
008726,000374: 04,2156 50000 INDEX A
008727,000375: 04,2157 02157 TC +0
008728,000376: 04,2160 02164 TC +DECSGN
008729,000377: 04,2161 00006 EXTEND # - CASE
008730,000378: 04,2162 40142 DCS MPAC +1
008731,000379: 04,2163 52142 DXCH MPAC +1
008732,000380: 04,2164 56142 +DECSGN XCH MPAC +2
008733,000381: 04,2165 50123 INDEX INREL
008734,000382: 04,2166 54271 TS XREGLP -2
008735,000383: 04,2167 56141 XCH MPAC +1
008736,000384: 04,2170 50123 INDEX INREL
008737,000385: 04,2171 54266 TS VERBREG
008738,000386: 04,2172 02150 TC ENDALL
008739,000387: 04,2173 10264 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
008740,000388: 04,2174 54264 TS DSPCOUNT
008741,000389: 04,2175 04353 TC ENDOFJOB
008742,000390:
008743,000391: 04,2176 00022 CRITCON OCT 22 # (DEC 18)
008744,000392: 04,2177 00020 OCT 20 # (DEC 16)
008745,000393: 04,2200 00012 OCT 12 # (DEC 10)
008746,000394:
008747,000395: 04,2201 00005 OCT 5
008748,000396: 04,2202 00000 OCT 0
008749,000397:
008750,000398: 04,2203 05174 13261 DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
008751,000399:
008752,000400:
008753,000401: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
008754,000402: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
008755,000403:
008756,000404: 04,2205 50264 GETINREL INDEX DSPCOUNT
008757,000405: 04,2206 32211 CAF INRELTAB
008758,000406: 04,2207 54123 TS INREL # (A TEMP, REG)
008759,000407: 04,2210 00002 TC Q
008760,000408:
008761,000409: 04,2211 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
008762,000410: 04,2212 00004 OCT 4 # R3D4 =(1)
008763,000411: 04,2213 00004 OCT 4 # R3D3 =(2)
008764,000412: 04,2214 00004 OCT 4 # R3D2 =(3)
008765,000413: 04,2215 00004 OCT 4 # R3D1 =(4)
008766,000414: 04,2216 00003 OCT 3 # R2D5 =(5)
008767,000415: 04,2217 00003 OCT 3 # R2D4 =(6)
008768,000416: 04,2220 00003 OCT 3 # R2D3 =(7)
008769,000417: 04,2221 00003 OCT 3 # R2D2 =(8D)
008770,000418: 04,2222 00003 OCT 3 # R2D1 =(9D)
008771,000419: 04,2223 00002 OCT 2 # R1D5 =(10D)
008772,000420: 04,2224 00002 OCT 2 # R1D4 =(11D)
008773,000421: 04,2225 00002 OCT 2 # R1D3 =(12D)
008774,000422: 04,2226 00002 OCT 2 # R1D2 =(13D)
008775,000423: 04,2227 00002 OCT 2 # R1D1 =(14D)
008776,000424: 04,2230 05715 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
008777,000425: 04,2231 00001 OCT 1 # ND2 =(16D)
008778,000426: 04,2232 00001 OCT 1 # ND1 =(17D)
008779,000427: 04,2233 00000 OCT 0 # VD2 =(18D)
008780,000428: 04,2234 00000 OCT 0 # VD1 =(19D)
008781,000429:
008782,000430: 04,2235 37657 VERB CAF ZERO
008783,000431: 04,2236 54266 TS VERBREG
008784,000432: 04,2237 35470 CAF VD1
008785,000433: 04,2240 54264 NVCOM TS DSPCOUNT
008786,000434: 04,2241 02535 TC 2BLANK
008787,000435: 04,2242 37657 CAF ZERO
008788,000436: 04,2243 54265 TS DECBRNCH
008789,000437: 04,2244 54300 TS REQRET # SET FOR ENTPAS0
008790,000438: 04,2245 34734 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
008791,000439: 04,2246 54122 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
008792,000440: # TO TC ENDOFJOB
008793,000441: 04,2247 04353 TC ENDOFJOB
008794,000442:
008795,000443: 04,2250 37657 NOUN CAF ZERO
008796,000444: 04,2251 54267 TS NOUNREG
008797,000445: 04,2252 35471 CAF ND1 # ND1, OCT 21 (DEC 17)
008798,000446: 04,2253 02240 TC NVCOM
008799,000447:
008800,000448:
008801,000449:
008802,000450: 04,2254 02326 NEGSGN TC SIGNTEST
008803,000451: 04,2255 02313 TC -ON
008804,000452: 04,2256 37651 CAF TWO
008805,000453: 04,2257 50123 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
008806,000454: 04,2260 67644 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
008807,000455: 04,2261 26265 ADS DECBRNCH # BIT 3 FOR R3.
008808,000456: 04,2262 10302 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
008809,000457: 04,2263 37657 CAF ZERO
008810,000458: 04,2264 54302 TS CLPASS
008811,000459: 04,2265 02266 TC +1
008812,000460: 04,2266 04353 TC ENDOFJOB
008813,000461:
008814,000462: 04,2267 02326 POSGN TC SIGNTEST
008815,000463: 04,2270 02273 TC +ON
008816,000464: 04,2271 37652 CAF ONE
008817,000465: 04,2272 02257 TC BOTHSGN
008818,000466:
008819,000467: 04,2273 22002 +ON LXCH Q
008820,000468: 04,2274 02205 TC GETINREL
008821,000469: 04,2275 50123 INDEX INREL
008822,000470: 04,2276 32321 CAF SGNTAB -2
008823,000471: 04,2277 54107 TS SGNOFF
008824,000472: 04,2300 67652 AD ONE
008825,000473: 04,2301 54106 TS SGNON
008826,000474: 04,2302 37657 SGNCOM CAF ZERO
008827,000475: 04,2303 54110 TS CODE
008828,000476: 04,2304 56107 XCH SGNOFF
008829,000477: 04,2305 03257 TC 11DSPIN
008830,000478: 04,2306 37640 CAF BIT11
008831,000479: 04,2307 54110 TS CODE
008832,000480: 04,2310 56106 XCH SGNON
008833,000481: 04,2311 03257 TC 11DSPIN
008834,000482: 04,2312 00001 TC L
008835,000483: 04,2313 22002 -ON LXCH Q
008836,000484: 04,2314 02205 TC GETINREL
008837,000485: 04,2315 50123 INDEX INREL
008838,000486: 04,2316 32321 CAF SGNTAB -2
008839,000487: 04,2317 54106 TS SGNON
008840,000488: 04,2320 67652 AD ONE
008841,000489: 04,2321 54107 TS SGNOFF
008842,000490: 04,2322 02302 TC SGNCOM
008843,000491:
008844,000492: 04,2323 00005 SGNTAB OCT 5 # -R1
008845,000493:
008846,000494: 04,2324 00003 OCT 3 # -R2
008847,000495: 04,2325 00000 OCT 0 # -R3
008848,000496:
008849,000497:
008850,000498:
008851,000499: 04,2326 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
008852,000500: 04,2327 45426 CS R1D1 # R2D1, OR R3D1.
008853,000501: 04,2330 02336 TC SGNTST1
008854,000502: 04,2331 45427 CS R2D1
008855,000503: 04,2332 02336 TC SGNTST1
008856,000504: 04,2333 45430 CS R3D1
008857,000505: 04,2334 02336 TC SGNTST1
008858,000506: 04,2335 04353 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
008859,000507: 04,2336 60264 SGNTST1 AD DSPCOUNT
008860,000508: 04,2337 00006 EXTEND
008861,000509: 04,2340 12342 BZF +2 # MATCH FOUND
008862,000510: 04,2341 00002 TC Q
008863,000511: 04,2342 00001 TC L # SIGN LEGAL
008864,000512:
008865,000513:
008866,000514:
008867,000515: # ERROR LIGHT RESET (RSET) TURNS OFF,
008868,000516: # UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
008869,000517: # PROG ALM, TRACKER FAIL.
008870,000518: # LEAVES GIMBAL LOCK ALONE.
008871,000519: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
008872,000520: # IT ALSO SETS :CAUTION RESET: TO 1.
008873,000521: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
008874,000522:
008875,000523: 04,2343 56101 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
008876,000524: 04,2344 54277 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
008877,000525: 04,2345 00004 INHINT
008878,000526: 04,2346 37641 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
008879,000527: 04,2347 00006 EXTEND
008880,000528: 04,2350 05011 WOR DSALMOUT # BIT10 CHAN 11
008881,000529: 04,2351 37645 CAF BIT6 # LEAVE GIMBAL LOCK LAMP INTACT,
008882,000530: 04,2352 70322 MASK DSPTAB +11D # TURNING OFF, AUTO, HOLD, FREE, NO ATT.,
008883,000531: 04,2353 67634 AD BIT15 # PROG ALARM, AND TRACKER.
008884,000532: 04,2354 54322 TS DSPTAB +11D
008885,000533: 04,2355 44430 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
008886,000534: 04,2356 70362 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
008887,000535: 04,2357 64430 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
008888,000536: 04,2360 54362 TS IMODES33
008889,000537: 04,2361 47641 CS BIT10
008890,000538: 04,2362 70361 MASK IMODES30
008891,000539: 04,2363 67641 AD BIT10
008892,000540: 04,2364 54361 TS IMODES30
008893,000541:
008894,000542: 04,2365 47641 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
008895,000543: 04,2366 00006 EXTEND
008896,000544: 04,2367 03013 WAND CHAN13
008897,000545: 04,2370 42422 CS ERCON # TURN OFF UPLINK ACTIVITY,
008898,000546: 04,2371 00006 EXTEND # OPERATOR ERROR.
008899,000547: 04,2372 03011 WAND DSALMOUT
008900,000548: 04,2373 35473 TSTAB CAF BINCON # (DEC 10)
008901,000549: 04,2374 54103 TS ERCNT # ERCNT = COUNT
008902,000550: 04,2375 00004 INHINT
008903,000551: 04,2376 50103 INDEX ERCNT
008904,000552: 04,2377 10307 CCS DSPTAB
008905,000553: 04,2400 67652 AD ONE
008906,000554: 04,2401 02406 TC ERPLUS
008907,000555: 04,2402 67652 AD ONE
008908,000556: 04,2403 40000 ERMINUS CS A
008909,000557: 04,2404 72424 MASK NOTBIT12
008910,000558: 04,2405 02411 TC ERCOM
008911,000559: 04,2406 40000 ERPLUS CS A
008912,000560: 04,2407 72424 MASK NOTBIT12
008913,000561: 04,2410 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
008914,000562: 04,2411 50103 ERCOM INDEX ERCNT # ETC.
008915,000563: 04,2412 54307 TS DSPTAB
008916,000564: 04,2413 00003 RELINT
008917,000565: 04,2414 10103 CCS ERCNT
008918,000566: 04,2415 02374 TC TSTAB +1
008919,000567: 04,2416 37657 CAF ZERO
008920,000568: 04,2417 55363 TS FAILREG
008921,000569: 04,2420 55364 TS SFAIL
008922,000570: 04,2421 04353 TC ENDOFJOB
008923,000571:
008924,000572: 04,2422 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
008925,000573: # UPLINK ACTIVITY, AND OPERATOR ERROR.
008926,000574: 04,2423 00240 BITS6,8 OCT 240
008927,000575: 04,2424 73777 NOTBIT12 OCT 73777
008928,000576:
008929,000577:
008930,000578:
008931,000579: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
008932,000580: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
008933,000581: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
008934,000582:
008935,000583: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
008936,000584: # APPROPRIATE TO BE CLEARED.
008937,000585:
008938,000586: # CLPASS +0 PASS0, CAN BE BACKED UP
008939,000587: # +NZ HIPASS, CAN BE BACKED UP
008940,000588: # -NZ PASS0, CANNOT BE BACKED UP
008941,000589:
008942,000590:
008943,000591: 04,2425 10264 CLEAR CCS DSPCOUNT
008944,000592: 04,2426 67652 AD ONE
008945,000593: 04,2427 02431 TC +2
008946,000594: 04,2430 67652 AD ONE
008947,000595: 04,2431 54264 TS DSPCOUNT # MAG OF DSPCOUNT
008948,000596: 04,2432 02205 TC GETINREL # MUST SET INREL, EVEN FOR HIPASS
008949,000597: 04,2433 10302 CCS CLPASS
008950,000598: 04,2434 02442 TC CLPASHI # +
008951,000599: 04,2435 02437 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
008952,000600: 04,2436 02437 TC +1 # -
008953,000601: 04,2437 30123 CA INREL
008954,000602: 04,2440 02464 TC LEGALTST
008955,000603: 04,2441 02457 TC CLEAR1
008956,000604: 04,2442 10123 CLPASHI CCS INREL
008957,000605: 04,2443 54123 TS INREL
008958,000606: 04,2444 02464 TC LEGALTST
008959,000607: 04,2445 32533 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
008960,000608: 04,2446 26300 ADS REQRET
008961,000609: 04,2447 30123 CA INREL
008962,000610: 04,2450 54111 TS MIXTEMP # TEMP STORAGE FOR INREL
008963,000611: 04,2451 00006 EXTEND
008964,000612: 04,2452 26266 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
008965,000613: 04,2453 04064 TC BANKCALL
008966,000614: 04,2454 12315 CADR UPDATVB
008967,000615: 04,2455 30111 CA MIXTEMP
008968,000616: 04,2456 54123 TS INREL # RESTORE INREL
008969,000617: 04,2457 02462 CLEAR1 TC CLR5
008970,000618: 04,2460 24302 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
008971,000619: 04,2461 04353 TC ENDOFJOB # SET FOR HIGHER PASS.
008972,000620: 04,2462 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
008973,000621: 04,2463 02474 TC 5BLANK +2
008974,000622: 04,2464 67662 LEGALTST AD NEG2
008975,000623: 04,2465 10000 CCS A
008976,000624: 04,2466 00002 TC Q # LEGAL INREL G/ 2
008977,000625: 04,2467 05715 TC CCSHOLE
008978,000626: 04,2470 04353 TC ENDOFJOB # ILLEGAL INREL= 0,1
008979,000627: 04,2471 00002 TC Q # LEGAL INREL = 2
008980,000628:
008981,000629:
008982,000630:
008983,000631: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
008984,000632: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
008985,000633: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
008986,000634:
008987,000635: 04,2472 22002 5BLANK LXCH Q
008988,000636: 04,2473 02205 TC GETINREL
008989,000637: 04,2474 37657 CAF ZERO
008990,000638: 04,2475 50123 INDEX INREL
008991,000639: 04,2476 54266 TS VERBREG # ZERO X, Y, Z REG.
008992,000640: 04,2477 50123 INDEX INREL
008993,000641:
008994,000642:
008995,000643: 04,2500 54271 TS XREGLP -2
008996,000644: 04,2501 54110 TS CODE
008997,000645: 04,2502 50123 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
008998,000646: 04,2503 47644 CS BIT7 # PROTECT OTHERS
008999,000647: 04,2504 70265 MASK DECBRNCH
009000,000648: 04,2505 72534 MASK BRNCHCON # ZERO LOW 2 BITS.
009001,000649: 04,2506 54265 TS DECBRNCH
009002,000650: 04,2507 50123 INDEX INREL
009003,000651: 04,2510 32524 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
009004,000652: 04,2511 54127 TS COUNT
009005,000653: 04,2512 03175 TC DSPIN
009006,000654: 04,2513 50123 5BLANK1 INDEX INREL
009007,000655: 04,2514 32527 CAF DOUBLK -2
009008,000656: 04,2515 54264 TS DSPCOUNT
009009,000657: 04,2516 02535 TC 2BLANK
009010,000658: 04,2517 47651 CS TWO
009011,000659: 04,2520 26264 ADS DSPCOUNT
009012,000660: 04,2521 02535 TC 2BLANK
009013,000661: 04,2522 50123 INDEX INREL
009014,000662: 04,2523 35424 CAF R1D1 -2
009015,000663: 04,2524 54264 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
009016,000664: 04,2525 00001 TC L # OF REG. JUST BLANKED
009017,000665:
009018,000666: 04,2526 00016 SINBLANK OCT 16 # DEC 14
009019,000667: 04,2527 00005 OCT 5
009020,000668: 04,2530 00004 OCT 4
009021,000669: 04,2531 00015 DOUBLK OCT 15 # DEC 13
009022,000670: 04,2532 00011 OCT 11 # DEC 9
009023,000671: 04,2533 00003 OCT 3
009024,000672:
009025,000673: 04,2534 77774 BRNCHCON OCT 77774
009026,000674:
009027,000675: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
009028,000676: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
009029,000677:
009030,000678: 04,2535 30264 2BLANK CA DSPCOUNT
009031,000679: 04,2536 54021 TS SR
009032,000680: 04,2537 42550 CS BLANKCON
009033,000681: 04,2540 00004 INHINT
009034,000682: 04,2541 50021 INDEX SR
009035,000683: 04,2542 56307 XCH DSPTAB
009036,000684: 04,2543 00006 EXTEND
009037,000685: 04,2544 62546 BZMF +2 # IF OLD CONTENTS -, NOUT OK
009038,000686: 04,2545 24303 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
009039,000687: 04,2546 00003 RELINT # IF -, NOUT OK
009040,000688: 04,2547 00002 TC Q
009041,000689: 04,2550 04000 BLANKCON OCT 4000
009042,000690:
009043,000691:
009044,000692: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
009045,000693: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
009046,000694: # PASSES.
009047,000695:
009048,000696:
009049,000697:
009050,000698: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
009051,000699: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
009052,000700: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
009053,000701:
009054,000702:
009055,000703:
009056,000704: 05,2000 SETLOC 22000
009057,000705:
009058,000706: 05,2000 03344 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
009059,000707: 05,2001 13403 DSPMM TCF DSPMM1
009060,000708: 05,2002 02663 LOADLV1 TC LOADLV
009061,000709: # END OF STANDARD LEAD INS.
009062,000710:
009063,000711:
009064,000712:
009065,000713: 05,2003 37657 ENTER CAF ZERO
009066,000714: 05,2004 54302 TS CLPASS
009067,000715: 05,2005 34734 CAF ENDINST
009068,000716: 05,2006 54122 TS ENTRET
009069,000717: 05,2007 10300 CCS REQRET
009070,000718: 05,2010 02031 TC ENTPAS0 # IF +, PASS 0
009071,000719: 05,2011 02031 TC ENTPAS0 # IF +, PASS 0
009072,000720: 05,2012 02013 TC +1 # IF -, NOT PASS 0
009073,000721: 05,2013 36165 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN,
009074,000722: 05,2014 70265 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
009075,000723: 05,2015 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
009076,000724: 05,2016 02020 TC +2 # CHARACTERS AND CONTINUE.
009077,000725: 05,2017 02024 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
009078,000726: 05,2020 10264 CCS DSPCOUNT
009079,000727: 05,2021 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009080,000728: 05,2022 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009081,000729: 05,2023 02024 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
009082,000730: 05,2024 40300 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
009083,000731: 05,2025 54300 TS REQRET # SET REQRET +.
009084,000732: 05,2026 05531 TC FLASHOFF
009085,000733: 05,2027 00300 TC REQRET
009086,000734:
009087,000735: 05,2030 0122 ENTEXIT = ENTRET
009088,000736:
009089,000737: 05,2030 00030 LOWVERB OCT 30 # LOWER VERB THAT AVOIDS NOUN TEST
009090,000738:
009091,000739: 05,2031 37657 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
009092,000740: 05,2032 54265 TS DECBRNCH
009093,000741: 05,2033 40266 TESTVB CS VERBREG # IF VERB IS 30-77, SKIP NOUN TEST
009094,000742:
009095,000743:
009096,000744: 05,2034 62030 AD LOWVERB # 30-VB
009097,000745: 05,2035 00006 EXTEND
009098,000746: 05,2036 62116 BZMF VERBFAN # VERB G/ E 30
009099,000747: 05,2037 00006 TESTNN EXTEND # VERB L/ 30
009100,000748: 05,2040 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009101,000749: 05,2041 52006 DXCH Z # ROUTINE.
009102,000750: 05,2042 50124 INDEX MIXBR
009103,000751: 05,2043 02043 TC +0
009104,000752: 05,2044 02046 TC +2 # NORMAL
009105,000753: 05,2045 02176 TC MIXNOUN # MIXED
009106,000754: 05,2046 10132 CCS NNADTEM # NORMAL
009107,000755: 05,2047 02114 TC VERBFAN -2 # NORMAL IF +
009108,000756: 05,2050 02324 TC GODSPALM # NOT IN USE IF +0
009109,000757: 05,2051 02055 TC REQADD # SPECIFY MACHINE CADR IF -
009110,000758: 05,2052 24304 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
009111,000759: 05,2053 05420 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
009112,000760: 05,2054 02102 TC INTMCTBS +2
009113,000761: 05,2055 37634 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
009114,000762: 05,2056 54302 TS CLPASS
009115,000763: 05,2057 44734 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
009116,000764: 05,2060 60122 AD ENTEXIT # FROM EXTERNAL
009117,000765: 05,2061 00006 EXTEND
009118,000766: 05,2062 12064 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
009119,000767: 05,2063 02100 TC INTMCTBS
009120,000768: 05,2064 02256 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
009121,000769: 05,2065 10265 CCS DECBRNCH
009122,000770: 05,2066 02324 TC GODSPALM # ALARM IF DECIMAL USED FOR MCTBS
009123,000771: 05,2067 56272 XCH ZREG # OCTAL USED OK
009124,000772: 05,2070 05412 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
009125,000773: 05,2071 00006 EXTEND
009126,000774: 05,2072 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009127,000775: 05,2073 52006 DXCH Z # ROUTINE.
009128,000776: 05,2074 02116 TC VERBFAN
009129,000777:
009130,000778: 05,2075 0264 EBANK= DSPCOUNT
009131,000779: 05,2075 04745 04000 LODNNLOC 2CADR LODNNTAB
009132,000780:
009133,000781: 05,2077 77772 NEG5 OCT 77772
009134,000782:
009135,000783: 05,2100 30142 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
009136,000784: 05,2101 05412 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
009137,000785: 05,2102 47647 CS BIT4 # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
009138,000786: 05,2103 70266 MASK VERBREG # CADR TO BE SPECIFIED.
009139,000787: 05,2104 62077 AD NEG5 # MASKING MAKES VB15 LOOK LIKE VB05.
009140,000788: 05,2105 00006 EXTEND
009141,000789: 05,2106 12116 BZF VERBFAN # VB = 05 OR 15, DO NOT DISPLAY CADR.
009142,000790: 05,2107 35430 CAF R3D1 # VB NOT = 05 OR 15, DISPLAY CADR.
009143,000791: 05,2110 54264 TS DSPCOUNT
009144,000792: 05,2111 30304 CA NOUNCADR
009145,000793: 05,2112 03222 TC DSPOCTWD
009146,000794:
009147,000795:
009148,000796: 05,2113 02116 TC VERBFAN
009149,000797:
009150,000798: 05,2114 67652 AD ONE
009151,000799: 05,2115 05412 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
009152,000800: 05,2116 42131 VERBFAN CS LST2CON
009153,000801: 05,2117 60266 AD VERBREG # VERB-LST2CON
009154,000802: 05,2120 10000 CCS A
009155,000803: 05,2121 67652 AD ONE # VERB G/ LST2CON
009156,000804: 05,2122 02124 TC +2
009157,000805: 05,2123 02133 TC VBFANDIR # VERB L/ LST2CON
009158,000806: 05,2124 54140 TS MPAC
009159,000807: 05,2125 05572 TC RELDSP # RELEASE DISPLAY SYST
009160,000808: 05,2126 56140 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
009161,000809: 05,2127 62132 AD LST2CADR
009162,000810: 05,2130 04106 TC BANKJUMP
009163,000811: 05,2131 00040 LST2CON OCT 40 # FIRST LST2 VERB
009164,000812: 05,2132 22000 LST2CADR CADR LST2FAN
009165,000813:
009166,000814: 05,2133 50266 VBFANDIR INDEX VERBREG
009167,000815: 05,2134 32136 CAF VERBTAB
009168,000816: 05,2135 04106 TC BANKJUMP
009169,000817:
009170,000818: 05,2136 12324 VERBTAB CADR GODSPALM # VB00 ILLEGAL
009171,000819: 05,2137 12340 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
009172,000820: 05,2140 12345 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
009173,000821: 05,2141 12352 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
009174,000822: 05,2142 12333 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
009175,000823: 05,2143 12326 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
009176,000824: 05,2144 12445 CADR DECDSP # VB06 DECIMAL DISPLAY
009177,000825: 05,2145 10700 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
009178,000826: 05,2146 11273 CADR DSPALARM # VB10 SPARE
009179,000827: 05,2147 13077 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
009180,000828: 05,2150 13077 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
009181,000829: 05,2151 13077 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
009182,000830: 05,2152 13077 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
009183,000831: 05,2153 13077 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
009184,000832: 05,2154 13077 CADR MONITOR # VB16 MONITOR DECIMAL
009185,000833: 05,2155 13077 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
009186,000834: 05,2156 12324 CADR GODSPALM # VB20 SPARE
009187,000835: 05,2157 12620 CADR ALOAD # VB21 LOAD COMP 1 (R1)
009188,000836: 05,2160 12631 CADR BLOAD # VB22 LOAD COMP 2 (R2)
009189,000837: 05,2161 12646 CADR CLOAD # VB23 LOAD COMP 3 (R3)
009190,000838: 05,2162 12572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
009191,000839: 05,2163 12535 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
009192,000840: 05,2164 12324 CADR GODSPALM # VB26 SPARE
009193,000841: 05,2165 13214 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
009194,000842: # THE FOLLOWING VERBS MAKE NO NOUN TEST
009195,000843: 05,2166 13314 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
009196,000844: 05,2167 13340 CADR VBRQWAIT # VB31 REQUEST WAITLIST
009197,000845: 05,2170 11321 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
009198,000846:
009199,000847:
009200,000848: 05,2171 11304 CADR VBPROC # VB33 PROCEED WITHOUT DATA
009201,000849: 05,2172 11311 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
009202,000850: 05,2173 13414 CADR VBTSTLTS # VB35 TEST LIGHTS
009203,000851: 05,2174 24000 CADR SLAP1 # VB36 FRESH START
009204,000852: 05,2175 13267 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
009205,000853:
009206,000854:
009207,000855:
009208,000856: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
009209,000857:
009210,000858:
009211,000859:
009212,000860: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
009213,000861: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
009214,000862: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
009215,000863: # MIXTEMP.
009216,000864:
009217,000865: 05,2176 10132 MIXNOUN CCS NNADTEM
009218,000866: 05,2177 02203 TC +4 # + IN USE
009219,000867: 05,2200 02324 TC GODSPALM # +0 NOT IN USE
009220,000868: 05,2201 02203 TC +2 # - IN USE
009221,000869: 05,2202 02203 TC +1 # -0 IN USE
009222,000870: 05,2203 46162 CS SIX
009223,000871: 05,2204 60266 AD VERBREG
009224,000872: 05,2205 00006 EXTEND
009225,000873: 05,2206 62210 BZMF +2 # VERB L/E 6
009226,000874: 05,2207 02116 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
009227,000875: 05,2210 37651 CAF TWO
009228,000876: 05,2211 54103 MIXNN1 TS DECOUNT
009229,000877: 05,2212 62235 AD MIXAD
009230,000878: 05,2213 54131 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
009231,000879: 05,2214 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
009232,000880: 05,2215 30134 CA IDAD1TEM # OF NOUN.
009233,000881: 05,2216 54106 TS NOUNTEM
009234,000882: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
009235,000883: # MINOR PART ONLY.
009236,000884: 05,2217 02721 TC SFRUTMIX # GET SF ROUT NUMBER IN A
009237,000885: 05,2220 02236 TC DPTEST
009238,000886: 05,2221 02223 TC MIXNN2 # NO DP
009239,000887: 05,2222 24106 INCR NOUNTEM # DP GET MINOR PART
009240,000888: 05,2223 30106 MIXNN2 CA NOUNTEM
009241,000889: 05,2224 75465 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
009242,000890: 05,2225 05422 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
009243,000891: 05,2226 50000 INDEX A # PICK UP C(ESUBK) NOT DP
009244,000892: 05,2227 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
009245,000893: 05,2230 50131 INDEX NOUNADD
009246,000894: 05,2231 56000 XCH 0 # STORE IN MIXTEM + K
009247,000895: 05,2232 10103 CCS DECOUNT
009248,000896: 05,2233 02211 TC MIXNN1
009249,000897: 05,2234 02116 TC VERBFAN
009250,000898:
009251,000899: 05,2235 00111 MIXAD TC MIXTEMP
009252,000900:
009253,000901:
009254,000902:
009255,000903: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
009256,000904: # RETURNS TO L+1 IF NO DP.
009257,000905: # RETURNS TO L+2 IF DP.
009258,000906:
009259,000907: 05,2236 50000 DPTEST INDEX A
009260,000908: 05,2237 12240 TCF +1
009261,000909: 05,2240 00002 TC Q # OCTAL ONLY NO DP
009262,000910:
009263,000911:
009264,000912: 05,2241 00002 TC Q # FRACT NO DP
009265,000913: 05,2242 00002 TC Q # DEG NO DP
009266,000914: 05,2243 00002 TC Q # ARITH NO DP
009267,000915: 05,2244 12250 TCF DPTEST1 # DP1OUT
009268,000916: 05,2245 12250 TCF DPTEST1 # DP2OUT
009269,000917: 05,2246 00002 TC Q # OPDEG NO DP
009270,000918: 05,2247 12250 TCF DPTEST1 # DP3OUT
009271,000919: 05,2250 50002 DPTEST1 INDEX Q
009272,000920: 05,2251 00001 TC 1 # RETURN TO L+2
009273,000921:
009274,000922:
009275,000923:
009276,000924: 05,2252 35426 REQDATX CAF R1D1
009277,000925: 05,2253 12257 TCF REQCOM
009278,000926: 05,2254 35427 REQDATY CAF R2D1
009279,000927: 05,2255 12257 TCF REQCOM
009280,000928: 05,2256 35430 REQDATZ CAF R3D1
009281,000929: 05,2257 54264 REQCOM TS DSPCOUNT
009282,000930: 05,2260 40002 CS Q
009283,000931: 05,2261 54300 TS REQRET
009284,000932: 05,2262 04064 TC BANKCALL
009285,000933: 05,2263 10472 CADR 5BLANK
009286,000934: 05,2264 05525 TC FLASHON
009287,000935: 05,2265 44734 CS ENDINST
009288,000936: 05,2266 60122 AD ENTEXIT
009289,000937: 05,2267 00006 EXTEND
009290,000938: 05,2270 12273 BZF ENDRQDAT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
009291,000939: 05,2271 47657 CS ZERO # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
009292,000940: 05,2272 54323 TS CADRSTOR # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
009293,000941: 05,2273 00122 ENDRQDAT TC ENTEXIT
009294,000942:
009295,000943: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
009296,000944: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
009297,000945:
009298,000946:
009299,000947: 05,2274 54267 TS NOUNREG
009300,000948: 05,2275 56002 UPDATNN XCH Q
009301,000949: 05,2276 54103 TS UPDATRET
009302,000950: 05,2277 00006 EXTEND
009303,000951: 05,2300 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009304,000952: 05,2301 52006 DXCH Z # ROUTINE.
009305,000953: 05,2302 10132 CCS NNADTEM
009306,000954: 05,2303 67652 AD ONE # NORMAL
009307,000955: 05,2304 12307 TCF PUTADD
009308,000956: 05,2305 12310 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
009309,000957: 05,2306 12310 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
009310,000958: 05,2307 05412 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
009311,000959: 05,2310 35471 CAF ND1
009312,000960: 05,2311 54264 TS DSPCOUNT
009313,000961:
009314,000962:
009315,000963: 05,2312 30267 CA NOUNREG
009316,000964: 05,2313 12322 TCF UPDAT1
009317,000965:
009318,000966: 05,2314 54266 TS VERBREG
009319,000967: 05,2315 56002 UPDATVB XCH Q
009320,000968: 05,2316 54103 TS UPDATRET
009321,000969: 05,2317 35470 CAF VD1
009322,000970: 05,2320 54264 TS DSPCOUNT
009323,000971: 05,2321 30266 CA VERBREG
009324,000972: 05,2322 03255 UPDAT1 TC DSP2BIT
009325,000973: 05,2323 00103 TC UPDATRET
009326,000974:
009327,000975:
009328,000976:
009329,000977: 05,2324 04103 GODSPALM TC POSTJUMP
009330,000978: 05,2325 11273 CADR DSPALARM
009331,000979:
009332,000980:
009333,000981: # NOUN TABLES
009334,000982: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
009335,000983: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
009336,000984: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
009337,000985: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
009338,000986: # OF LAST MACHINE CADR SUPPLIED.
009339,000987:
009340,000988: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
009341,000989: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
009342,000990:
009343,000991: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
009344,000992:
009345,000993: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
009346,000994: # N-S ARE THE SF ROUTINE CODE NUMBER.
009347,000995: # P-S ARE THE SF CONSTANT CODE NUMBER.
009348,000996:
009349,000997: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
009350,000998: # N-S ARE THE SF CONSTANT2 CODE NUMBER
009351,000999: # P-S ARE THE SF CONSTANT1 CODE NUMBER
009352,001000: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
009353,001001: # P-S ARE THE SF CONSTANT1 CODE NUMBER
009354,001002: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
009355,001003:
009356,001004: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
009357,001005: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
009358,001006: # THE FIRST OF THESE ENTRIES.
009359,001007: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
009360,001008: # THEY ARE LISTED IN ORDER OF ASCENDING K.
009361,001009:
009362,001010: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
009363,001011: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
009364,001012: # QQQQQRRRRRSSSSS
009365,001013: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
009366,001014: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
009367,001015: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
009368,001016: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
009369,001017: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
009370,001018:
009371,001019: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
009372,001020: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
009373,001021: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
009374,001022: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
009375,001023: # AN UNCONTOLLED NUMBER OF COMPONENTS.
009376,001024:
009377,001025:
009378,001026:
009379,001027: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
009380,001028: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
009381,001029:
009382,001030:
009383,001031: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
009384,001032: # BEFORE EACH ENTER. IF NOT, ALARM.
009385,001033:
009386,001034:
009387,001035: # DISPLAY VERBS
009388,001036: 05,2326 47651 DSPABC CS TWO
009389,001037: 05,2327 02376 TC COMPTEST
009390,001038: 05,2330 50131 INDEX NOUNADD
009391,001039: 05,2331 40002 CS 2
009392,001040: 05,2332 56116 XCH BUF +2
009393,001041: 05,2333 47652 DSPAB CS ONE
009394,001042: 05,2334 02376 TC COMPTEST
009395,001043: 05,2335 50131 INDEX NOUNADD
009396,001044: 05,2336 40001 CS 1
009397,001045: 05,2337 56115 XCH BUF +1
009398,001046: 05,2340 02420 DSPA TC TSTFORDP
009399,001047: 05,2341 50131 INDEX NOUNADD
009400,001048: 05,2342 40000 CS 0
009401,001049: 05,2343 56114 DSPCOM1 XCH BUF
009402,001050: 05,2344 02357 TC DSPCOM2
009403,001051: 05,2345 47652 DSPB CS ONE
009404,001052: 05,2346 02376 TC COMPTEST
009405,001053: 05,2347 50131 INDEX NOUNADD
009406,001054: 05,2350 40001 CS 1
009407,001055: 05,2351 02343 TC DSPCOM1
009408,001056: 05,2352 47651 DSPC CS TWO
009409,001057: 05,2353 02376 TC COMPTEST
009410,001058: 05,2354 50131 INDEX NOUNADD
009411,001059: 05,2355 40002 CS 2
009412,001060: 05,2356 02343 TC DSPCOM1
009413,001061: 05,2357 47651 DSPCOM2 CS TWO # A B C AB ABC
009414,001062: 05,2360 60266 AD VERBREG # -1 -0 +1 +2 +3 IN A
009415,001063: 05,2361 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
009416,001064: 05,2362 02365 TC DSPCOM3
009417,001065: 05,2363 00122 TC ENTEXIT
009418,001066: 05,2364 02365 TC +1
009419,001067: 05,2365 54106 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
009420,001068: 05,2366 50000 INDEX A
009421,001069: 05,2367 35426 CAF R1D1
009422,001070: 05,2370 54264 TS DSPCOUNT
009423,001071: 05,2371 50106 INDEX DISTEM
009424,001072: 05,2372 40114 CS BUF
009425,001073: 05,2373 03222 TC DSPOCTWD
009426,001074: 05,2374 56106 XCH DISTEM
009427,001075: 05,2375 02361 TC DSPCOM2 +2
009428,001076:
009429,001077: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
009430,001078: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
009431,001079: # NOUN 01 IS EXCLUDED FROM TEST.
009432,001080: 05,2376 54107 COMPTEST TS SFTEMP1 # - VERB COMP
009433,001081: 05,2377 22002 LXCH Q
009434,001082: 05,2400 47652 COMPTST1 CS ONE
009435,001083: 05,2401 60267 AD NOUNREG
009436,001084: 05,2402 00006 EXTEND
009437,001085:
009438,001086:
009439,001087: 05,2403 12417 BZF NDCMPTST # NOUN = 01, ANY COMP OK
009440,001088: 05,2404 50124 INDEX MIXBR # NOUN NOT = 01.
009441,001089: 05,2405 32442 CAF COMPICK -1
009442,001090: 05,2406 50000 INDEX A
009443,001091: 05,2407 30000 CA 0
009444,001092: 05,2410 75457 MASK HI5
009445,001093: 05,2411 05440 TC LEFT5 # NOUN COMP
009446,001094: 05,2412 60107 AD SFTEMP1 # NOUN COMP - VERB COMP
009447,001095: 05,2413 10000 CCS A
009448,001096: 05,2414 00001 TC L # NOUN COMP G/ VERB COMP
009449,001097: 05,2415 05715 TC CCSHOLE
009450,001098: 05,2416 02324 TC GODSPALM # NOUN COMP L/ VERB COMP
009451,001099: 05,2417 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
009452,001100:
009453,001101:
009454,001102:
009455,001103: 05,2420 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
009456,001104: 05,2421 30132 CA NNADTEM
009457,001105: 05,2422 67652 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
009458,001106: 05,2423 00006 EXTEND
009459,001107: 05,2424 12436 BZF CHANDSP
009460,001108: 05,2425 50124 INDEX MIXBR
009461,001109: 05,2426 02426 TC +0
009462,001110: 05,2427 02431 TC +2 # NORMAL
009463,001111: 05,2430 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
009464,001112: 05,2431 02713 TC SFRUTNOR
009465,001113: 05,2432 02236 TC DPTEST
009466,001114: 05,2433 00001 TC L # NO DP
009467,001115: 05,2434 24131 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
009468,001116: 05,2435 00001 TC L
009469,001117:
009470,001118:
009471,001119:
009472,001120: 05,2436 00006 CHANDSP EXTEND
009473,001121: 05,2437 50304 INDEX NOUNCADR
009474,001122: 05,2440 00000 READ 0
009475,001123: 05,2441 40000 CS A
009476,001124: 05,2442 12343 TCF DSPCOM1
009477,001125:
009478,001126:
009479,001127:
009480,001128: 05,2443 00133 COMPICK ADRES NNTYPTEM
009481,001129: 05,2444 00132 ADRES NNADTEM
009482,001130:
009483,001131: 05,2445 50124 DECDSP INDEX MIXBR # NORMAL MIXED
009484,001132: 05,2446 32442 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
009485,001133: 05,2447 50000 INDEX A
009486,001134: 05,2450 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
009487,001135: 05,2451 75457 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
009488,001136: 05,2452 05440 TC LEFT5
009489,001137:
009490,001138:
009491,001139: 05,2453 54103 TS DECOUNT # COMP NUMBER INTO DECOUNT
009492,001140: 05,2454 54106 DSPDCGET TS DECTEM # PICKS UP DATA
009493,001141: 05,2455 60131 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
009494,001142: 05,2456 50000 INDEX A
009495,001143: 05,2457 40000 CS 0
009496,001144: 05,2460 50106 INDEX DECTEM
009497,001145: 05,2461 56270 XCH XREG # CANT USE BUF SINCE DMP USES IT.
009498,001146: 05,2462 10106 CCS DECTEM
009499,001147: 05,2463 02454 TC DSPDCGET # MORE TO GET
009500,001148: 05,2464 37657 DSPDCPUT CAF ZERO # DISPLAYS DATA
009501,001149: 05,2465 54141 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
009502,001150: 05,2466 54142 TS MPAC +2
009503,001151: 05,2467 50103 INDEX DECOUNT
009504,001152: 05,2470 35426 CAF R1D1
009505,001153: 05,2471 54264 TS DSPCOUNT
009506,001154: 05,2472 50103 INDEX DECOUNT
009507,001155: 05,2473 40270 CS XREG
009508,001156: 05,2474 54140 TS MPAC
009509,001157: 05,2475 02734 TC SFCONUM # 2X ( SF CON NUMB ) IN A
009510,001158: 05,2476 54107 TS SFTEMP1
009511,001159: 05,2477 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
009512,001160: 05,2500 32512 DCA GTSFOUTL # READING ROUTINE.
009513,001161: 05,2501 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
009514,001162: 05,2502 50124 INDEX MIXBR
009515,001163: 05,2503 02503 TC +0
009516,001164: 05,2504 02507 TC DSPSFNOR
009517,001165: 05,2505 02721 TC SFRUTMIX
009518,001166: 05,2506 02522 TC DECDSP3
009519,001167:
009520,001168: 05,2507 02713 DSPSFNOR TC SFRUTNOR
009521,001169: 05,2510 02522 TC DECDSP3
009522,001170:
009523,001171: 05,2511 0264 EBANK= DSPCOUNT
009524,001172: 05,2511 05004 04000 GTSFOUTL 2CADR GTSFOUT
009525,001173:
009526,001174: 05,2513 04064 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
009527,001175: 05,2514 11075 CADR DSPDECWD
009528,001176: 05,2515 10103 CCS DECOUNT
009529,001177: 05,2516 02520 TC +2
009530,001178: 05,2517 00122 TC ENTEXIT
009531,001179: 05,2520 54103 TS DECOUNT
009532,001180: 05,2521 02464 TC DSPDCPUT # MORE TO DISPLAY
009533,001181:
009534,001182: 05,2522 50000 DECDSP3 INDEX A
009535,001183: 05,2523 32525 CAF SFOUTABR
009536,001184: 05,2524 04106 TC BANKJUMP
009537,001185:
009538,001186:
009539,001187: 05,2525 11273 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
009540,001188: 05,2526 12513 CADR DSPDCEND
009541,001189: 05,2527 10551 CADR DEGOUTSF
009542,001190: 05,2530 10636 CADR ARTOUTSF
009543,001191: 05,2531 10643 CADR DP1OUTSF
009544,001192: 05,2532 10650 CADR DP2OUTSF
009545,001193: 05,2533 10557 CADR OPDEGOUT
009546,001194: 05,2534 10652 CADR DP3OUTSF
009547,001195: 05,2535 ENDRTOUT EQUALS
009548,001196:
009549,001197:
009550,001198:
009551,001199: # THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
009552,001200: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
009553,001201:
009554,001202:
009555,001203:
009556,001204: 04,2551 SETLOC BLANKCON +1
009557,001205:
009558,001206: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
009559,001207: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
009560,001208:
009561,001209: 04,2551 37657 DEGOUTSF CAF ZERO
009562,001210: 04,2552 54142 TS MPAC +2 # SET INDEX FOR FULL SCALE
009563,001211: 04,2553 02610 TC FIXRANGE
009564,001212: 04,2554 02556 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
009565,001213: 04,2555 02603 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
009566,001214: 04,2556 02621 TC DEGCOM
009567,001215:
009568,001216: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
009569,001217:
009570,001218: 04,2557 10140 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
009571,001219: 04,2560 56140 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
009572,001220: 04,2561 02564 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
009573,001221: 04,2562 02573 TC NEGOPT # IF NEG NON ZERO
009574,001222: 04,2563 67661 AD NEG1 # IF NEG ZERO SUBTRACT 1
009575,001223: 04,2564 62635 AD 20BIAS
009576,001224: 04,2565 54140 BIASCOM TS MPAC # TEST FOR OVERFLOW
009577,001225: 04,2566 02571 TC +3 # NO OVFLOW
009578,001226: 04,2567 37634 CAF BIT15 # IF OVFLOW
009579,001227: 04,2570 26140 ADS MPAC
009580,001228: 04,2571 37651 CAF TWO # SET MULTIPLIER TO .45
009581,001229: 04,2572 02552 TC DEGOUTSF +1
009582,001230:
009583,001231: 04,2573 56140 NEGOPT XCH MPAC # NEGATIVE CASE
009584,001232: 04,2574 62635 AD 20BIAS
009585,001233: 04,2575 10000 CCS A
009586,001234: 04,2576 02565 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
009587,001235: 04,2577 05715 TC CCSHOLE
009588,001236: 04,2600 67652 AD ONE # IF NEG RESTORE SUM
009589,001237:
009590,001238:
009591,001239: 04,2601 40000 COM # IF NEG 0 LEAVE NEG 0
009592,001240: 04,2602 02565 TC BIASCOM
009593,001241:
009594,001242: 04,2603 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
009595,001243: 04,2604 50142 INDEX MPAC +2 # DP AUGMENTER CONSTANT
009596,001244: 04,2605 32632 DCA DEGTAB
009597,001245: 04,2606 52110 DXCH SFTEMP1
009598,001246: 04,2607 00002 TC Q
009599,001247:
009600,001248: 04,2610 10140 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
009601,001249: 04,2611 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
009602,001250: 04,2612 00002 TC Q # MASKING OUT THE SIGN BIT
009603,001251: 04,2613 12614 TCF +1
009604,001252: 04,2614 47634 CS BIT15
009605,001253: 04,2615 70140 MASK MPAC
009606,001254: 04,2616 54140 TS MPAC
009607,001255: 04,2617 50002 INDEX Q
009608,001256: 04,2620 00001 TC 1
009609,001257:
009610,001258: 04,2621 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
009611,001259: 04,2622 50142 INDEX MPAC +2 # ADDS AUGMENTER.
009612,001260: 04,2623 32632 DCA DEGTAB
009613,001261: 04,2624 52141 DXCH MPAC # ADJUSTED ANGLE IN A
009614,001262: 04,2625 07261 TC SHORTMP
009615,001263: 04,2626 52110 DXCH SFTEMP1
009616,001264: 04,2627 20141 DAS MPAC
009617,001265: 04,2630 02641 TC SCOUTEND
009618,001266:
009619,001267: 04,2631 05605 DEGTAB OCT 05605 # HI PART OF .18
009620,001268: 04,2632 03656 OCT 03656 # LOW PART OF .18
009621,001269: 04,2633 16314 OCT 16314 # HI PART OF .45
009622,001270: 04,2634 31463 OCT 31463 # LO PART OF .45
009623,001271:
009624,001272: 04,2635 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
009625,001273:
009626,001274: 04,2636 52110 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
009627,001275: 04,2637 52141 DXCH MPAC
009628,001276: 04,2640 07261 TC SHORTMP
009629,001277: 04,2641 04103 SCOUTEND TC POSTJUMP
009630,001278: 04,2642 12513 CADR DSPDCEND
009631,001279:
009632,001280: 04,2643 02655 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
009633,001281: 04,2644 56142 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
009634,001282: 04,2645 56141 XCH MPAC +1 # BY B14.
009635,001283: 04,2646 54140 TS MPAC
009636,001284: 04,2647 02641 TC SCOUTEND
009637,001285:
009638,001286:
009639,001287: 04,2650 02655 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
009640,001288: 04,2651 02641 TC SCOUTEND
009641,001289:
009642,001290:
009643,001291:
009644,001292: 04,2652 02655 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
009645,001293: 04,2653 03050 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
009646,001294: 04,2654 02641 TC SCOUTEND
009647,001295:
009648,001296:
009649,001297:
009650,001298: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
009651,001299: # THIS IS NEEDED FOR TIME DISPLAY.
009652,001300:
009653,001301: 04,2655 56002 DPOUT XCH Q
009654,001302: 04,2656 54105 TS OVFIND
009655,001303: 04,2657 50124 INDEX MIXBR
009656,001304: 04,2660 02660 TC +0
009657,001305: 04,2661 02676 TC DPOUTNOR
009658,001306: 04,2662 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
009659,001307: 04,2663 30134 CA IDAD1TEM # OF NOUN.
009660,001308: 04,2664 75465 MASK LOW11 # E SUBK
009661,001309: 04,2665 05422 TC SETEBANK # SET EB, LEAVE EADRES IN A.
009662,001310: 04,2666 00006 DPOUTCOM EXTEND
009663,001311: 04,2667 50000 INDEX A # MIXED NORMAL
009664,001312: 04,2670 30001 DCA 0 # C(ESUBK) C(E)
009665,001313: 04,2671 52141 DXCH MPAC # C((E SUBK)+1) C(E+1)
009666,001314: 04,2672 07230 TC TPAGREE
009667,001315: 04,2673 07063 TC DMP
009668,001316: 04,2674 00107 ADRES SFTEMP1
009669,001317: 04,2675 00105 TC OVFIND
009670,001318:
009671,001319: 04,2676 30131 DPOUTNOR CA NOUNADD # E
009672,001320: 04,2677 02666 TC DPOUTCOM
009673,001321:
009674,001322:
009675,001323:
009676,001324: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
009677,001325: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
009678,001326: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
009679,001327: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
009680,001328: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
009681,001329: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
009682,001330:
009683,001331:
009684,001332:
009685,001333: 04,2700 50124 DSPDPDEC INDEX MIXBR
009686,001334: 04,2701 02701 TC +0
009687,001335: 04,2702 02704 TC +2 # NORMAL NOUN
009688,001336: 04,2703 03273 TC DSPALARM
009689,001337:
009690,001338: 04,2704 00006 EXTEND
009691,001339: 04,2705 50131 INDEX NOUNADD
009692,001340: 04,2706 30001 DCA 0
009693,001341: 04,2707 52141 DXCH MPAC
009694,001342: 04,2710 35426 CAF R1D1
009695,001343: 04,2711 54264 TS DSPCOUNT
009696,001344: 04,2712 37657 CAF ZERO
009697,001345: 04,2713 54142 TS MPAC +2
009698,001346: 04,2714 07230 TC TPAGREE
009699,001347: 04,2715 03151 TC DSP2DEC
009700,001348: 04,2716 00122 ENDDPDEC TC ENTEXIT
009701,001349:
009702,001350: # LOAD VERBS
009703,001351:
009704,001352:
009705,001353:
009706,001354: 05,2535 SETLOC ENDRTOUT
009707,001355:
009708,001356: 05,2535 47651 ABCLOAD CS TWO
009709,001357: 05,2536 02376 TC COMPTEST
009710,001358: 05,2537 32673 CAF VBSP1LD
009711,001359: 05,2540 02314 TC UPDATVB -1
009712,001360: 05,2541 02252 TC REQDATX
009713,001361: 05,2542 32674 CAF VBSP2LD
009714,001362: 05,2543 02314 TC UPDATVB -1
009715,001363: 05,2544 02254 TC REQDATY
009716,001364: 05,2545 32675 CAF VBSP3LD
009717,001365: 05,2546 02314 TC UPDATVB -1
009718,001366: 05,2547 02256 TC REQDATZ
009719,001367:
009720,001368:
009721,001369:
009722,001370: 05,2550 46162 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
009723,001371: 05,2551 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
009724,001372: 05,2552 00006 EXTEND
009725,001373: 05,2553 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009726,001374: 05,2554 52006 DXCH Z # ROUTINE.
009727,001375: 05,2555 37657 CAF ZERO # X COMP
009728,001376: 05,2556 02762 TC PUTCOM
009729,001377: 05,2557 50131 INDEX NOUNADD
009730,001378: 05,2560 54000 TS 0
009731,001379: 05,2561 37652 CAF ONE # Y COMP
009732,001380: 05,2562 02762 TC PUTCOM
009733,001381: 05,2563 50131 INDEX NOUNADD
009734,001382: 05,2564 54001 TS 1
009735,001383: 05,2565 37651 CAF TWO # Z COMP
009736,001384: 05,2566 02762 TC PUTCOM
009737,001385: 05,2567 50131 INDEX NOUNADD
009738,001386: 05,2570 54002 TS 2
009739,001387: 05,2571 02663 TC LOADLV
009740,001388:
009741,001389: 05,2572 47652 ABLOAD CS ONE
009742,001390: 05,2573 02376 TC COMPTEST
009743,001391: 05,2574 32673 CAF VBSP1LD
009744,001392: 05,2575 02314 TC UPDATVB -1
009745,001393: 05,2576 02252 TC REQDATX
009746,001394: 05,2577 32674 CAF VBSP2LD
009747,001395: 05,2600 02314 TC UPDATVB -1
009748,001396: 05,2601 02254 TC REQDATY
009749,001397: 05,2602 47227 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
009750,001398: 05,2603 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
009751,001399: 05,2604 00006 EXTEND
009752,001400:
009753,001401: 05,2605 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009754,001402: 05,2606 52006 DXCH Z # ROUTINE.
009755,001403: 05,2607 37657 CAF ZERO # X COMP
009756,001404: 05,2610 02762 TC PUTCOM
009757,001405: 05,2611 50131 INDEX NOUNADD
009758,001406: 05,2612 54000 TS 0
009759,001407: 05,2613 37652 CAF ONE # Y COMP
009760,001408: 05,2614 02762 TC PUTCOM
009761,001409: 05,2615 50131 INDEX NOUNADD
009762,001410: 05,2616 54001 TS 1
009763,001411: 05,2617 02663 TC LOADLV
009764,001412:
009765,001413: 05,2620 02252 ALOAD TC REQDATX
009766,001414: 05,2621 00006 EXTEND
009767,001415: 05,2622 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009768,001416: 05,2623 52006 DXCH Z # ROUTINE.
009769,001417: 05,2624 37657 CAF ZERO # X COMP
009770,001418: 05,2625 02762 TC PUTCOM
009771,001419: 05,2626 50131 INDEX NOUNADD
009772,001420: 05,2627 54000 TS 0
009773,001421: 05,2630 02663 TC LOADLV
009774,001422:
009775,001423: 05,2631 47652 BLOAD CS ONE
009776,001424: 05,2632 02376 TC COMPTEST
009777,001425: 05,2633 37634 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
009778,001426: 05,2634 54302 TS CLPASS
009779,001427: 05,2635 02254 TC REQDATY
009780,001428: 05,2636 00006 EXTEND
009781,001429: 05,2637 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009782,001430: 05,2640 52006 DXCH Z # ROUTINE.
009783,001431: 05,2641 37652 CAF ONE
009784,001432: 05,2642 02762 TC PUTCOM
009785,001433: 05,2643 50131 INDEX NOUNADD
009786,001434: 05,2644 54001 TS 1
009787,001435: 05,2645 02663 TC LOADLV
009788,001436:
009789,001437: 05,2646 47651 CLOAD CS TWO
009790,001438: 05,2647 02376 TC COMPTEST
009791,001439: 05,2650 37634 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
009792,001440: 05,2651 54302 TS CLPASS
009793,001441: 05,2652 02256 TC REQDATZ
009794,001442: 05,2653 00006 EXTEND
009795,001443: 05,2654 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009796,001444: 05,2655 52006 DXCH Z # ROUTINE.
009797,001445: 05,2656 37651 CAF TWO
009798,001446: 05,2657 02762 TC PUTCOM
009799,001447: 05,2660 50131 INDEX NOUNADD
009800,001448: 05,2661 54002 TS 2
009801,001449: 05,2662 02663 TC LOADLV
009802,001450:
009803,001451: 05,2663 37657 LOADLV CAF ZERO
009804,001452: 05,2664 54265 TS DECBRNCH
009805,001453: 05,2665 47657 CS ZERO
009806,001454: 05,2666 54301 TS LOADSTAT
009807,001455: 05,2667 45470 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
009808,001456: 05,2670 54264 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
009809,001457: 05,2671 04103 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
009810,001458: 05,2672 11416 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
009811,001459:
009812,001460: 05,2673 00021 VBSP1LD OCT 21 # VB21 = ALOAD
009813,001461: 05,2674 00022 VBSP2LD OCT 22 # VB22 = BLOAD
009814,001462: 05,2675 00023 VBSP3LD OCT 23 # VB23 = CLOAD
009815,001463:
009816,001464:
009817,001465:
009818,001466: 05,2676 54103 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
009819,001467: 05,2677 40265 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
009820,001468: 05,2700 54021 TS SR
009821,001469: 05,2701 40021 CS SR
009822,001470: 05,2702 40021 CS SR # SHIFTED RIGHT 2
009823,001471: 05,2703 10000 CCS A # DEC COMP BITS IN LOW 3
009824,001472: 05,2704 12706 TCF +2 # SOME ONES IN LOW 3
009825,001473: 05,2705 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
009826,001474: 05,2706 60103 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
009827,001475: 05,2707 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
009828,001476: 05,2710 12712 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
009829,001477: 05,2711 02324 TC GODSPALM
009830,001478: 05,2712 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
009831,001479:
009832,001480:
009833,001481:
009834,001482: 05,2713 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
009835,001483: 05,2714 54100 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
009836,001484: 05,2715 35456 CAF MID5
009837,001485: 05,2716 70133 MASK NNTYPTEM
009838,001486: 05,2717 05431 TC RIGHT5
009839,001487: 05,2720 00100 TC EXITEM # SF ROUTINE NUMBER IN A
009840,001488:
009841,001489: 05,2721 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
009842,001490: 05,2722 54100 TS EXITEM
009843,001491: 05,2723 50103 INDEX DECOUNT
009844,001492: 05,2724 32753 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
009845,001493: 05,2725 54001 TS L
009846,001494: 05,2726 50103 INDEX DECOUNT
009847,001495: 05,2727 35455 CAF LOW5 # LOW5, MID5, OR HI5 IN A
009848,001496: 05,2730 70137 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
009849,001497: 05,2731 50001 INDEX L
009850,001498: 05,2732 00000 TC 0
009851,001499: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
009852,001500: 05,2733 00100 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
009853,001501:
009854,001502: 05,2734 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
009855,001503: 05,2735 54100 TS EXITEM
009856,001504: 05,2736 50124 INDEX MIXBR
009857,001505: 05,2737 02737 TC +0
009858,001506: 05,2740 02756 TC CONUMNOR # NORMAL NOUN
009859,001507: 05,2741 50103 INDEX DECOUNT # MIXED NOUN
009860,001508: 05,2742 32753 CAF DISPLACE
009861,001509: 05,2743 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
009862,001510: 05,2744 50103 INDEX DECOUNT
009863,001511: 05,2745 35455 CAF LOW5
009864,001512: 05,2746 70133 MASK NNTYPTEM
009865,001513: 05,2747 50001 INDEX L
009866,001514: 05,2750 00000 TC 0
009867,001515: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
009868,001516: 05,2751 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
009869,001517: 05,2752 00100 TC EXITEM
009870,001518:
009871,001519: 05,2753 02712 DISPLACE TC GOQ
009872,001520: 05,2754 05431 TC RIGHT5
009873,001521: 05,2755 05440 TC LEFT5
009874,001522:
009875,001523: 05,2756 35455 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
009876,001524: 05,2757 70133 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
009877,001525: 05,2760 60000 DOUBLE
009878,001526: 05,2761 00100 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
009879,001527:
009880,001528:
009881,001529:
009882,001530: 05,2762 54103 PUTCOM TS DECOUNT
009883,001531: 05,2763 56002 XCH Q
009884,001532: 05,2764 54101 TS DECRET
009885,001533: 05,2765 37657 CAF ZERO
009886,001534: 05,2766 54105 TS OVFIND
009887,001535: 05,2767 50103 INDEX DECOUNT
009888,001536: 05,2770 56273 XCH XREGLP
009889,001537: 05,2771 54141 TS MPAC +1
009890,001538: 05,2772 50103 INDEX DECOUNT
009891,001539: 05,2773 56270 XCH XREG
009892,001540: 05,2774 54140 TS MPAC
009893,001541: 05,2775 50124 INDEX MIXBR
009894,001542: 05,2776 02776 TC +0
009895,001543: 05,2777 03023 TC PUTNORM # NORMAL NOUN
009896,001544: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
009897,001545: 05,3000 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
009898,001546: 05,3001 30134 CA IDAD1TEM # OF NOUN.
009899,001547: 05,3002 75465 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
009900,001548: 05,3003 05412 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
009901,001549: 05,3004 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
009902,001550: 05,3005 60103 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
009903,001551: 05,3006 54131 TS NOUNADD
009904,001552:
009905,001553: 05,3007 10265 CCS DECBRNCH
009906,001554: 05,3010 03051 TC PUTDECSF # + DEC
009907,001555: 05,3011 02721 TC SFRUTMIX # +0 OCTAL
009908,001556: 05,3012 02236 TC DPTEST
009909,001557: 05,3013 03040 TC PUTCOM2 # NO DP
009910,001558: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
009911,001559: # +0 INTO MAJOR PART. SET NOUNADD FOR
009912,001560: # LOADING OCTAL WORD INTO MINOR PART.
009913,001561: 05,3014 24131 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
009914,001562: 05,3015 30131 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
009915,001563: 05,3016 26103 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
009916,001564: 05,3017 37657 CAF ZERO # NOUNADD SET FOR MINOR PART
009917,001565: 05,3020 50103 INDEX DECOUNT
009918,001566: 05,3021 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
009919,001567: 05,3022 03040 TC PUTCOM2
009920,001568:
009921,001569: 05,3023 05420 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
009922,001570: 05,3024 10265 CCS DECBRNCH
009923,001571: 05,3025 03051 TC PUTDECSF # + DEC
009924,001572: 05,3026 02713 TC SFRUTNOR # +0 OCTAL
009925,001573: 05,3027 02236 TC DPTEST
009926,001574: 05,3030 03034 TC PUTCOM2 -4 # NO DP
009927,001575: 05,3031 37657 CAF ZERO # DP
009928,001576: 05,3032 54103 TS DECOUNT
009929,001577: 05,3033 03014 TC PUTDPCOM
009930,001578:
009931,001579: 05,3034 30132 CA NNADTEM
009932,001580: 05,3035 67652 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
009933,001581: 05,3036 00006 EXTEND
009934,001582: 05,3037 13044 BZF CHANLOAD
009935,001583: 05,3040 56140 PUTCOM2 XCH MPAC
009936,001584: 05,3041 00101 TC DECRET
009937,001585:
009938,001586: 05,3042 0264 EBANK= DSPCOUNT
009939,001587: 05,3042 05012 04000 GTSFINLC 2CADR GTSFIN
009940,001588:
009941,001589: 05,3044 56140 CHANLOAD XCH MPAC
009942,001590: 05,3045 00006 EXTEND
009943,001591: 05,3046 50304 INDEX NOUNCADR
009944,001592: 05,3047 01000 WRITE 0
009945,001593: 05,3050 02663 TC LOADLV
009946,001594:
009947,001595:
009948,001596:
009949,001597: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
009950,001598:
009951,001599: 05,3051 02734 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
009952,001600: 05,3052 54107 TS SFTEMP1
009953,001601:
009954,001602: 05,3053 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
009955,001603: 05,3054 33043 DCA GTSFINLC # READING ROUTINE.
009956,001604: 05,3055 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
009957,001605: 05,3056 50124 INDEX MIXBR
009958,001606: 05,3057 03057 TC +0
009959,001607: 05,3060 03063 TC PUTSFNOR
009960,001608: 05,3061 02721 TC SFRUTMIX
009961,001609: 05,3062 03064 TC PUTDCSF2
009962,001610: 05,3063 02713 PUTSFNOR TC SFRUTNOR
009963,001611:
009964,001612: 05,3064 50000 PUTDCSF2 INDEX A
009965,001613: 05,3065 33067 CAF SFINTABR
009966,001614: 05,3066 04106 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
009967,001615: 05,3067 11273 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
009968,001616:
009969,001617: 05,3070 10777 CADR BINROUND
009970,001618: 05,3071 10717 CADR DEGINSF
009971,001619: 05,3072 10767 CADR ARTHINSF
009972,001620: 05,3073 11017 CADR DPINSF
009973,001621: 05,3074 11044 CADR DPINSF2
009974,001622: 05,3075 11002 CADR OPTDEGIN
009975,001623: 05,3076 11017 CADR DPINSF # SAME AS ARITHDP1
009976,001624: 05,3077 ENDRUTIN EQUALS
009977,001625:
009978,001626:
009979,001627:
009980,001628: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
009981,001629: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
009982,001630:
009983,001631:
009984,001632:
009985,001633: 04,2717 SETLOC ENDDPDEC +1
009986,001634:
009987,001635: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
009988,001636:
009989,001637: 04,2717 07063 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
009990,001638: 04,2720 02762 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
009991,001639: 04,2721 10141 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
009992,001640: 04,2722 37640 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
009993,001641: 04,2723 02725 TC +2 # WHEN SHIFTED LEFT AND ALARM.
009994,001642: 04,2724 47640 CS BIT11
009995,001643: 04,2725 60141 AD MPAC +1
009996,001644: 04,2726 03062 TC 2ROUND +2
009997,001645: 04,2727 05514 TC TPSL1 # LEFT 1
009998,001646: 04,2730 05514 DEGINSF2 TC TPSL1 # LEFT 2
009999,001647: 04,2731 03071 TC TESTOFUF
010000,001648: 04,2732 05514 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
010001,001649: 04,2733 10140 CCS MPAC
010002,001650: 04,2734 02740 TC SIGNFIX # IF +, GO TO SIGNFIX
010003,001651: 04,2735 02740 TC SIGNFIX # IF +0, GO TO SIGNFIX
010004,001652: 04,2736 40000 COM # IF -, USE -MAGNITUDE +1
010005,001653:
010006,001654: 04,2737 54140 TS MPAC # IF -0, USE +0
010007,001655: 04,2740 10105 SIGNFIX CCS OVFIND
010008,001656: 04,2741 02756 TC SGNTO1 # IF OVERFLOW
010009,001657: 04,2742 02752 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
010010,001658: 04,2743 10140 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
010011,001659: 04,2744 05715 TC CCSHOLE
010012,001660: 04,2745 02754 TC NEG180
010013,001661: 04,2746 02747 TC +1
010014,001662: 04,2747 56140 XCH MPAC
010015,001663: 04,2750 77632 MASK POSMAX
010016,001664: 04,2751 54140 TS MPAC
010017,001665: 04,2752 04103 ENDSCALE TC POSTJUMP
010018,001666: 04,2753 13040 CADR PUTCOM2
010019,001667:
010020,001668: 04,2754 47632 NEG180 CS POSMAX
010021,001669: 04,2755 02751 TC ENDSCALE -1
010022,001670:
010023,001671: 04,2756 40140 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
010024,001672: 04,2757 77632 MASK POSMAX
010025,001673: 04,2760 40000 CS A
010026,001674: 04,2761 02751 TC ENDSCALE -1
010027,001675:
010028,001676: 04,2762 26161 30707 DEGCON1 2DEC 5.555555555 B-3
010029,001677:
010030,001678: 04,2764 21616 07071 DEGCON2 2DEC 2.222222222 B-2
010031,001679:
010032,001680: 04,2766 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
010033,001681:
010034,001682: 04,2767 07063 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
010035,001683: 04,2770 00107 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
010036,001684: 04,2771 56142 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
010037,001685: 04,2772 56141 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
010038,001686: 04,2773 56140 XCH MPAC
010039,001687: 04,2774 00006 EXTEND
010040,001688: 04,2775 12777 BZF BINROUND
010041,001689: 04,2776 03273 TC DSPALARM # TOO LARGE A LOAD
010042,001690: 04,2777 03060 BINROUND TC 2ROUND
010043,001691: 04,3000 03071 TC TESTOFUF
010044,001692: 04,3001 02752 TC ENDSCALE # RETURNS IF NO OF/UF
010045,001693:
010046,001694:
010047,001695:
010048,001696: 04,3002 10140 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
010049,001697: 04,3003 03007 TC +4
010050,001698: 04,3004 03007 TC +3
010051,001699: 04,3005 03273 TC DSPALARM # REJECT NEGATIVE INPUT
010052,001700: 04,3006 03273 TC DSPALARM # DITTO
010053,001701: 04,3007 32766 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
010054,001702: 04,3010 26140 ADS MPAC # SUBTRACT BIAS
010055,001703: 04,3011 07063 TC DMP # MULT BY 100 / 45 B-2
010056,001704:
010057,001705: 04,3012 02764 ADRES DEGCON2
010058,001706: 04,3013 37637 CAF BIT12 # ROUND AS IN DEGINSF
010059,001707: 04,3014 60141 AD MPAC +1
010060,001708: 04,3015 03062 TC 2ROUND +2
010061,001709: 04,3016 02730 TC DEGINSF2
010062,001710:
010063,001711: 04,3017 07063 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
010064,001712: 04,3020 00107 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
010065,001713: 04,3021 56142 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
010066,001714: 04,3022 60000 DOUBLE
010067,001715: 04,3023 54142 TS MPAC +2
010068,001716: 04,3024 37657 CAF ZERO
010069,001717: 04,3025 60141 AD MPAC +1
010070,001718: 04,3026 03062 TC 2ROUND +2
010071,001719: 04,3027 03071 TC TESTOFUF
010072,001720: 04,3030 50124 INDEX MIXBR # RETURNS IF NO OF/UF
010073,001721: 04,3031 03031 TC +0
010074,001722: 04,3032 03042 TC DPINORM
010075,001723: 04,3033 30103 CA DECOUNT # MIXEDNOUN
010076,001724: 04,3034 60131 DPINCOM AD NOUNADD # MIXED NORMAL
010077,001725: 04,3035 54002 TS Q # E SUBK E
010078,001726: 04,3036 56141 XCH MPAC +1
010079,001727: 04,3037 50002 INDEX Q
010080,001728: 04,3040 54001 TS 1 # PLACE LOW PART IN
010081,001729: 04,3041 02752 TC ENDSCALE # (E SUBK) +1 MIXED
010082,001730: 04,3042 37657 DPINORM CAF ZERO # E +1 NORMAL
010083,001731: 04,3043 03034 TC DPINCOM
010084,001732:
010085,001733:
010086,001734:
010087,001735: 04,3044 07063 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010088,001736: 04,3045 00107 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
010089,001737: 04,3046 03050 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
010090,001738: 04,3047 03021 TC DPINSF +2
010091,001739:
010092,001740:
010093,001741:
010094,001742: 04,3050 56002 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
010095,001743: 04,3051 54110 TS SFTEMP2 # CANT USE L FOR RETURN. TPSL1 USES L.
010096,001744: 04,3052 36162 CAF SIX # LEFT BY 7
010097,001745: 04,3053 54107 LEFT7COM TS SFTEMP1
010098,001746: 04,3054 05514 TC TPSL1
010099,001747: 04,3055 10107 CCS SFTEMP1
010100,001748: 04,3056 03053 TC LEFT7COM
010101,001749: 04,3057 00110 TC SFTEMP2
010102,001750:
010103,001751: 04,3060 56141 2ROUND XCH MPAC +1
010104,001752: 04,3061 60000 DOUBLE
010105,001753:
010106,001754: 04,3062 54141 TS MPAC +1
010107,001755: 04,3063 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
010108,001756: 04,3064 60140 AD MPAC
010109,001757: 04,3065 54140 TS MPAC
010110,001758: 04,3066 00002 TC Q # IF MPAC DOES NOT OF/UF
010111,001759: 04,3067 54105 TS OVFIND
010112,001760: 04,3070 00002 2RNDEND TC Q
010113,001761:
010114,001762:
010115,001763:
010116,001764: 04,3071 10105 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
010117,001765: 04,3072 03273 TC DSPALARM # OF
010118,001766: 04,3073 00002 TC Q
010119,001767: 04,3074 03273 TC DSPALARM # UF
010120,001768:
010121,001769: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
010122,001770: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
010123,001771:
010124,001772: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
010125,001773: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
010126,001774: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
010127,001775: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
010128,001776: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
010129,001777:
010130,001778: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
010131,001779: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
010132,001780: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
010133,001781:
010134,001782: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
010135,001783:
010136,001784: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
010137,001785: # AND MONSAVE1 (TURNING OFF KILLER BIT).
010138,001786:
010139,001787: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
010140,001788: 05,3077 SETLOC ENDRUTIN
010141,001789:
010142,001790: 05,3077 47634 MONITOR CS BIT15
010143,001791: 05,3100 70304 MASK NOUNCADR
010144,001792: 05,3101 54141 MONIT1 TS MPAC +1 # TEMP STORAGE
010145,001793: 05,3102 33401 CAF LOW6
010146,001794: 05,3103 70266 MASK VERBREG
010147,001795: 05,3104 05440 TC LEFT5
010148,001796: 05,3105 54022 TS CYL
010149,001797: 05,3106 56022 XCH CYL
010150,001798: 05,3107 60267 AD NOUNREG
010151,001799: 05,3110 54140 TS MPAC # TEMP STORAGE
010152,001800: 05,3111 40324 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
010153,001801: 05,3112 67651 AD TWO
010154,001802: 05,3113 10000 CCS A
010155,001803: 05,3114 05615 TC RELDSP1 # GRABLOCK=0,1, +0 INTO DSPLOCK AND
010156,001804: 05,3115 03121 TC +4 # TURN OFF KEY RLSE LIGHT.
010157,001805: 05,3116 05715 TC CCSHOLE
010158,001806: 05,3117 37657 CAF ZERO # GRABLOCK=2, +0 INTO DSPLOCK AND
010159,001807: 05,3120 54277 TS DSPLOCK # LEAVE KEY RLSE LIGHT ALONE
010160,001808: 05,3121 00004 INHINT
010161,001809: 05,3122 10305 CCS MONSAVE
010162,001810: 05,3123 03130 TC +5 # IF MONSAVE WAS +, NO REQUEST
010163,001811: 05,3124 37652 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
010164,001812: 05,3125 04451 TC WAITLIST
010165,001813: 05,3126 0264 EBANK= DSPCOUNT
010166,001814: 05,3126 03134 12000 2CADR MONREQ
010167,001815:
010168,001816: 05,3130 52141 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
010169,001817:
010170,001818: 05,3131 52306 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
010171,001819: 05,3132 00003 RELINT
010172,001820: 05,3133 00122 TC ENTRET
010173,001821:
010174,001822:
010175,001823:
010176,001824: 05,3134 05510 MONREQ TC LODSAMPT # CALLED BY WAITLIST
010177,001825: 05,3135 10306 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
010178,001826: 05,3136 03142 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
010179,001827: 05,3137 03142 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
010180,001828: 05,3140 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
010181,001829: 05,3141 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
010182,001830: 05,3142 33157 CAF MONDEL
010183,001831: 05,3143 04451 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
010184,001832: 05,3144 0264 EBANK= DSPCOUNT
010185,001833: 05,3144 03134 12000 2CADR MONREQ
010186,001834: 05,3146 35464 CAF CHRPRIO
010187,001835: 05,3147 04276 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
010188,001836: 05,3150 0264 EBANK= DSPCOUNT
010189,001837: 05,3150 03160 12000 2CADR MONDO
010190,001838:
010191,001839: 05,3152 04505 TC TASKOVER
010192,001840:
010193,001841: 05,3153 37657 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
010194,001842: 05,3154 54305 TS MONSAVE
010195,001843: 05,3155 54306 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
010196,001844: 05,3156 04505 TC TASKOVER
010197,001845:
010198,001846:
010199,001847:
010200,001848: 05,3157 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
010201,001849:
010202,001850:
010203,001851:
010204,001852: 05,3160 10306 MONDO CCS MONSAVE1 # CALLED BY EXEC
010205,001853: 05,3161 03165 TC +4 # IF KILLER BIT = 0, CONTINUE
010206,001854: 05,3162 03165 TC +3 # IF KILLER BIT = 0, CONTINUE
010207,001855: 05,3163 04353 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
010208,001856: 05,3164 04353 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
010209,001857: 05,3165 10277 CCS DSPLOCK
010210,001858: 05,3166 03212 TC MONBUSY # NVSUB IS BUSY
010211,001859: 05,3167 33401 CAF LOW6 # NVSUB IS AVAILABLE
010212,001860: 05,3170 70305 MASK MONSAVE
010213,001861: 05,3171 54107 TS NVTEMP
010214,001862: 05,3172 04707 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
010215,001863: 05,3173 04353 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
010216,001864: 05,3174 33210 CAF MONMASK
010217,001865: 05,3175 70305 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
010218,001866: 05,3176 05431 TC RIGHT5
010219,001867:
010220,001868: 05,3177 54020 TS CYR
010221,001869: 05,3200 56020 XCH CYR
010222,001870: 05,3201 54266 TS VERBREG
010223,001871: 05,3202 33211 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
010224,001872: 05,3203 54122 TS ENTRET
010225,001873: 05,3204 47634 CS BIT15
010226,001874: 05,3205 70306 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
010227,001875: 05,3206 54142 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
010228,001876: 05,3207 02037 ENDMONDO TC TESTNN # EBANK.
010229,001877:
010230,001878: 4664 SETLOC ENDIMODF
010231,001879:
010232,001880: 4664 34672 PASTEVB CAF MIDSIX
010233,001881: 4665 70305 MASK MONSAVE
010234,001882: 4666 54107 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
010235,001883: 4667 04707 TC NVSUBMON # DISPLAY IT.
010236,001884: 4670 04671 TC +1 # IN CASE OF ALARM DURING DISPLAY
010237,001885: 4671 04353 ENDPASTE TC ENDOFJOB
010238,001886:
010239,001887: 4672 07700 MIDSIX OCT 07700
010240,001888:
010241,001889:
010242,001890:
010243,001891: 05,3210 SETLOC ENDMONDO +1
010244,001892: 05,3210 00700 MONMASK OCT 700
010245,001893: 05,3211 04664 MONBACK ADRES PASTEVB
010246,001894:
010247,001895: 05,3212 05504 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
010248,001896: 05,3213 04353 TC ENDOFJOB
010249,001897:
010250,001898:
010251,001899:
010252,001900: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
010253,001901: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
010254,001902: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
010255,001903:
010256,001904: 05,3214 35426 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
010257,001905: 05,3215 54264 TS DSPCOUNT
010258,001906: 05,3216 30304 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
010259,001907: 05,3217 04117 TC DATACALL
010260,001908: 05,3220 03222 TC DSPOCTWD
010261,001909: 05,3221 04353 TC ENDOFJOB
010262,001910:
010263,001911: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) TO A SIGN AND 5 CHAR DECIMAL
010264,001912: # STARTING IN LOC SPECIFIED IN DSPCOUNT
010265,001913:
010266,001914: 04,3075 SETLOC TESTOFUF +4
010267,001915: 04,3075 56002 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
010268,001916: 04,3076 54101 TS WDRET # CANT USE L FOR RETURN.+ON USES L.
010269,001917: 04,3077 10140 CCS MPAC
010270,001918: 04,3100 03107 TC +7
010271,001919: 04,3101 03107 TC +6
010272,001920: 04,3102 67652 AD ONE
010273,001921: 04,3103 54140 TS MPAC
010274,001922: 04,3104 02313 TC -ON
010275,001923: 04,3105 40141 CS MPAC +1
010276,001924: 04,3106 03111 TC +3
010277,001925: 04,3107 02273 TC +ON
010278,001926: 04,3110 56141 XCH MPAC +1
010279,001927: 04,3111 63150 AD DECROUND
010280,001928: 04,3112 54141 TS MPAC +1
010281,001929: 04,3113 37657 CAF ZERO
010282,001930: 04,3114 60140 AD MPAC
010283,001931: 04,3115 54140 TS MPAC
010284,001932: 04,3116 03122 TC +4
010285,001933: 04,3117 37632 CAF POSMAX
010286,001934: 04,3120 54140 TS MPAC
010287,001935: 04,3121 54141 TS MPAC +1
010288,001936: 04,3122 37650 CAF FOUR
010289,001937: 04,3123 54123 DSPDCWD1 TS WDCNT
010290,001938: 04,3124 35473 CAF BINCON
010291,001939: 04,3125 07261 TC SHORTMP
010292,001940: 04,3126 50140 TRACE1 INDEX MPAC
010293,001941: 04,3127 34640 CAF RELTAB
010294,001942: 04,3130 75455 MASK LOW5
010295,001943: 04,3131 54110 TS CODE
010296,001944: 04,3132 37657 CAF ZERO
010297,001945: 04,3133 56142 XCH MPAC +2
010298,001946: 04,3134 56141 XCH MPAC +1
010299,001947: 04,3135 54140 TS MPAC
010300,001948: 04,3136 56264 XCH DSPCOUNT
010301,001949: 04,3137 54127 TRACE1S TS COUNT
010302,001950: 04,3140 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
010303,001951: 04,3141 54264 TS DSPCOUNT
010304,001952: 04,3142 03175 TC DSPIN
010305,001953: 04,3143 10123 CCS WDCNT
010306,001954: 04,3144 03123 TC DSPDCWD1
010307,001955: 04,3145 45470 CS VD1
010308,001956: 04,3146 54264 TS DSPCOUNT
010309,001957: 04,3147 00101 TC WDRET
010310,001958:
010311,001959: 04,3150 02476 DECROUND OCT 02476
010312,001960:
010313,001961: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
010314,001962: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
010315,001963:
010316,001964: 04,3151 56002 DSP2DEC XCH Q # MUST USE SAME RETURN AS DSPDECWD
010317,001965: 04,3152 54101 TS WDRET
010318,001966: 04,3153 37657 CAF ZERO
010319,001967: 04,3154 54110 TS CODE
010320,001968: 04,3155 36165 CAF THREE
010321,001969: 04,3156 03257 TC 11DSPIN # -R2 OFF
010322,001970: 04,3157 37650 CAF FOUR
010323,001971: 04,3160 03257 TC 11DSPIN # +R2 OFF
010324,001972: 04,3161 10140 CCS MPAC
010325,001973: 04,3162 03172 TC +8D
010326,001974: 04,3163 03172 TC +7
010327,001975: 04,3164 67652 AD ONE
010328,001976: 04,3165 54140 TS MPAC
010329,001977: 04,3166 02313 TC -ON
010330,001978: 04,3167 40141 CS MPAC +1
010331,001979: 04,3170 54141 TS MPAC +1
010332,001980: 04,3171 03173 TC +2
010333,001981: 04,3172 02273 TC +ON
010334,001982: 04,3173 35427 CAF R2D1
010335,001983: 04,3174 03123 END2DEC TC DSPDCWD1
010336,001984:
010337,001985:
010338,001986:
010339,001987: 05,3222 SETLOC DSPFMEM +6
010340,001988: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
010341,001989: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
010342,001990:
010343,001991: 05,3222 54022 DSPOCTWD TS CYL
010344,001992: 05,3223 56002 XCH Q
010345,001993: 05,3224 54101 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
010346,001994: 05,3225 37635 CAF BIT14 # TO BLANK SIGNS
010347,001995: 05,3226 26264 ADS DSPCOUNT
010348,001996: 05,3227 37650 CAF FOUR
010349,001997: 05,3230 54123 WDAGAIN TS WDCNT
010350,001998: 05,3231 40022 CS CYL
010351,001999: 05,3232 40022 CS CYL
010352,002000: 05,3233 40022 CS CYL
010353,002001: 05,3234 40000 CS A
010354,002002: 05,3235 77656 MASK DSPMSK
010355,002003: 05,3236 50000 INDEX A
010356,002004: 05,3237 34640 CAF RELTAB
010357,002005: 05,3240 75455 MASK LOW5
010358,002006: 05,3241 54110 TS CODE
010359,002007: 05,3242 56264 XCH DSPCOUNT
010360,002008: 05,3243 54127 TS COUNT
010361,002009: 05,3244 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
010362,002010: 05,3245 54264 TS DSPCOUNT
010363,002011:
010364,002012: 05,3246 04103 TC POSTJUMP
010365,002013: 05,3247 11265 CADR DSPOCTIN
010366,002014: 05,3250 10123 OCTBACK CCS WDCNT
010367,002015: 05,3251 03230 TC WDAGAIN # +
010368,002016: 05,3252 45470 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
010369,002017: 05,3253 54264 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
010370,002018: 05,3254 00101 TC WDRET
010371,002019:
010372,002020: 05,3255 7656 DSPMSK = SEVEN
010373,002021:
010374,002022:
010375,002023:
010376,002024: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
010377,002025: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
010378,002026: # OF THE 5 CHAR OCTAL DISPLAY
010379,002027:
010380,002028: 05,3255 54020 DSP2BIT TS CYR
010381,002029: 05,3256 56002 XCH Q
010382,002030: 05,3257 54101 TS WDRET # CANT USE L AS RETURN. UPDATNN USES L.
010383,002031: 05,3260 37652 CAF ONE
010384,002032: 05,3261 54123 TS WDCNT
010385,002033: 05,3262 40020 CS CYR
010386,002034: 05,3263 40020 CS CYR
010387,002035: 05,3264 56020 XCH CYR
010388,002036: 05,3265 54022 TS CYL
010389,002037: 05,3266 03235 TC WDAGAIN +5
010390,002038:
010391,002039:
010392,002040:
010393,002041: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
010394,002042: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
010395,002043: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
010396,002044: # DSPTAB ENTRY INTO DSREL.
010397,002045:
010398,002046: 04,3175 SETLOC END2DEC +1
010399,002047:
010400,002048: 04,3175 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
010401,002049: 04,3176 54100 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
010402,002050: 04,3177 35455 CAF LOW5
010403,002051: 04,3200 70127 MASK COUNT
010404,002052: 04,3201 54021 TS SR
010405,002053: 04,3202 56021 XCH SR
010406,002054: 04,3203 54125 TS DSREL
010407,002055: 04,3204 37652 CAF BIT1
010408,002056: 04,3205 70127 MASK COUNT
010409,002057: 04,3206 10000 CCS A
010410,002058: 04,3207 03211 TC +2 # LEFT IF COUNT IS ODD
010411,002059: 04,3210 03221 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
010412,002060: 04,3211 56110 XCH CODE
010413,002061: 04,3212 05447 TC SLEFT5 # DOES NOT USE CYL
010414,002062:
010415,002063: 04,3213 54110 TS CODE
010416,002064: 04,3214 37635 CAF BIT14
010417,002065: 04,3215 70127 MASK COUNT
010418,002066: 04,3216 10000 CCS A
010419,002067: 04,3217 37651 CAF TWO # BIT14 = 1, BLANK SIGN
010420,002068: 04,3220 67652 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
010421,002069: 04,3221 54127 TS COUNT # +0 INTO COUNT FOR RIGHT
010422,002070: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
010423,002071: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
010424,002072: 04,3222 00004 DSPIN1 INHINT
010425,002073: 04,3223 50125 INDEX DSREL
010426,002074: 04,3224 10307 CCS DSPTAB
010427,002075: 04,3225 03227 TC +2 # IF +
010428,002076: 04,3226 05715 TC CCSHOLE
010429,002077: 04,3227 67652 AD ONE # IF -
010430,002078: 04,3230 54126 TS DSMAG
010431,002079: 04,3231 50127 INDEX COUNT
010432,002080: 04,3232 73253 MASK DSMSK
010433,002081: 04,3233 00006 EXTEND
010434,002082: 04,3234 60110 SU CODE
010435,002083: 04,3235 00006 EXTEND
010436,002084: 04,3236 13251 BZF DSLV # SAME
010437,002085: 04,3237 50127 DFRNT INDEX COUNT
010438,002086: 04,3240 43253 CS DSMSK # MASK WITH 77740,76037, OR 75777
010439,002087: 04,3241 70126 MASK DSMAG
010440,002088: 04,3242 60110 AD CODE
010441,002089: 04,3243 40000 CS A
010442,002090: 04,3244 50125 INDEX DSREL
010443,002091: 04,3245 56307 XCH DSPTAB
010444,002092: 04,3246 00006 EXTEND
010445,002093: 04,3247 63251 BZMF DSLV # DSPTAB ENTRY WAS -
010446,002094: 04,3250 24303 INCR NOUT # DSPTAB ENTRY WAS +
010447,002095: 04,3251 00003 DSLV RELINT
010448,002096: 04,3252 00100 TC DSEXIT
010449,002097:
010450,002098: 04,3253 00037 DSMSK OCT 37
010451,002099: 04,3254 01740 OCT 1740
010452,002100: 04,3255 02000 OCT 2000
010453,002101: 04,3256 03740 OCT 3740
010454,002102:
010455,002103:
010456,002104:
010457,002105: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
010458,002106: # BIT11 OF CODE.
010459,002107:
010460,002108: 04,3257 54125 11DSPIN TS DSREL
010461,002109: 04,3260 37651 CAF TWO
010462,002110: 04,3261 54127 TS COUNT
010463,002111: 04,3262 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
010464,002112: 04,3263 54100 TS DSEXIT
010465,002113:
010466,002114: 04,3264 03222 TC DSPIN1
010467,002115:
010468,002116:
010469,002117:
010470,002118: 04,3265 03175 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
010471,002119: 04,3266 33270 CAF +2
010472,002120: 04,3267 04106 TC BANKJUMP
010473,002121: 04,3270 13250 ENDSPOCT CADR OCTBACK
010474,002122:
010475,002123:
010476,002124:
010477,002125: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
010478,002126: # ABORT WITH 01501.
010479,002127: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
010480,002128: # DO TC ENTRET.
010481,002129:
010482,002130: 04,3271 34734 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
010483,002131: 04,3272 54122 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
010484,002132:
010485,002133: 04,3273 05474 DSPALARM TC FALTON # TURN ON OPERATOR ERROR LIGHT
010486,002134: 04,3274 43303 CS NVSBENDL
010487,002135: 04,3275 60122 AD ENTEXIT
010488,002136: 04,3276 00006 EXTEND
010489,002137: 04,3277 13301 BZF +2 # NVSUB INITIATED. ABORT
010490,002138: 04,3300 00122 TC ENTEXIT # NOT NVSUB INITIATED.
010491,002139: 04,3301 05677 TC ABORT
010492,002140: 04,3302 01501 OCT 01501
010493,002141: 04,3303 04713 NVSBENDL TC NVSUBEND
010494,002142:
010495,002143:
010496,002144:
010497,002145: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
010498,002146: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
010499,002147: # M M LIGHTS.
010500,002148:
010501,002149: 05,3267 SETLOC DSP2BIT +10D
010502,002150:
010503,002151: 05,3267 03302 MMCHANG TC REQMM
010504,002152: 05,3270 37657 CAF ZERO
010505,002153: 05,3271 56267 XCH NOUNREG
010506,002154: 05,3272 54140 TS MPAC
010507,002155: 05,3273 35471 CAF ND1
010508,002156: 05,3274 54264 TS DSPCOUNT
010509,002157: 05,3275 04064 TC BANKCALL
010510,002158: 05,3276 10535 CADR 2BLANK
010511,002159: 05,3277 30140 CA MPAC
010512,002160: 05,3300 04103 TC POSTJUMP
010513,002161: 05,3301 11273 CADR MODROUTB # GO THRU STANDARD LOC.
010514,002162:
010515,002163: 05,3302 04,3273 MODROUTB = DSPALARM # **FIX LATER**
010516,002164: 05,3302 40002 REQMM CS Q
010517,002165: 05,3303 54300 TS REQRET
010518,002166: 05,3304 35471 CAF ND1
010519,002167: 05,3305 54264 TS DSPCOUNT
010520,002168: 05,3306 37657 CAF ZERO
010521,002169: 05,3307 54267 TS NOUNREG
010522,002170: 05,3310 04064 TC BANKCALL
010523,002171: 05,3311 10535 CADR 2BLANK
010524,002172: 05,3312 05525 TC FLASHON
010525,002173: 05,3313 00122 TC ENTEXIT
010526,002174:
010527,002175:
010528,002176:
010529,002177: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
010530,002178: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
010531,002179: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
010532,002180: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
010533,002181: # COMPONENT 2 JOB ADRES (12 BIT )
010534,002182: # COMPONENT 3 BBCON
010535,002183:
010536,002184: 05,3314 37652 VBRQEXEC CAF BIT1
010537,002185: 05,3315 70333 MASK DSPTEM1
010538,002186: 05,3316 10000 CCS A
010539,002187: 05,3317 03336 TC SETVAC # IF BIT1 = 1, FINDVAC
010540,002188: 05,3320 35460 CAF TCNOVAC # IF BIT1 = 0, NOVAC
010541,002189: 05,3321 54140 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
010542,002190: 05,3322 47652 CS BIT1
010543,002191: 05,3323 70333 MASK DSPTEM1
010544,002192: 05,3324 54144 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
010545,002193: 05,3325 05572 REQUESTC TC RELDSP
010546,002194: 05,3326 34734 CA ENDINST
010547,002195: 05,3327 54143 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
010548,002196: 05,3330 00006 EXTEND
010549,002197: 05,3331 30335 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
010550,002198: 05,3332 52142 DXCH MPAC +1 # BBCON INTO MPAC+2
010551,002199: 05,3333 30144 CA MPAC +4 # PRIO IN A
010552,002200: 05,3334 00004 INHINT
010553,002201: 05,3335 00140 TC MPAC
010554,002202:
010555,002203: 05,3336 35463 SETVAC CAF TCFINDVC
010556,002204: 05,3337 03321 TC REQEX1
010557,002205:
010558,002206: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
010559,002207: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
010560,002208: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
010561,002209: # COMPONENT 1 DELAY (LOW BITS)
010562,002210: # COMPONENT 2 TASK ADRES (12 BIT)
010563,002211: # COMPONENT 3 BBCON
010564,002212:
010565,002213: 05,3340 35461 VBRQWAIT CAF TCWAIT
010566,002214: 05,3341 54140 TS MPAC # TC WAITLIST INTO MPAC
010567,002215: 05,3342 30333 CA DSPTEM1 # TIME DELAY
010568,002216: 05,3343 03324 ENDRQWT TC REQUESTC -1
010569,002217:
010570,002218: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
010571,002219: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
010572,002220: # LEAVE IT IN A, INHINT AND TC MPAC.
010573,002221:
010574,002222:
010575,002223:
010576,002224: 04,3304 SETLOC NVSBENDL +1
010577,002225: 04,3304 37652 VBPROC CAF ONE # PROCEED WITHOUT DATA
010578,002226: 04,3305 54301 TS LOADSTAT
010579,002227: 04,3306 05572 TC RELDSP
010580,002228: 04,3307 05531 TC FLASHOFF
010581,002229: 04,3310 03416 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
010582,002230:
010583,002231:
010584,002232:
010585,002233: 04,3311 04715 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
010586,002234: 04,3312 47652 CS ONE
010587,002235: 04,3313 03305 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
010588,002236:
010589,002237:
010590,002238:
010591,002239: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
010592,002240:
010593,002241:
010594,002242:
010595,002243: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
010596,002244: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
010597,002245:
010598,002246: 04,3314 47650 VBRELDSP CS BIT3
010599,002247: 04,3315 00006 EXTEND
010600,002248: 04,3316 03011 WAND DSALMOUT # TURN OFF UPACT LIGHT
010601,002249: 04,3317 05572 TC RELDSP # SEARCHES LIST
010602,002250: 04,3320 04353 TC ENDOFJOB
010603,002251:
010604,002252:
010605,002253:
010606,002254: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
010607,002255:
010608,002256: 04,3321 37227 BUMP CAF FIVE # R2D5
010609,002257: 04,3322 54264 TS DSPCOUNT
010610,002258: 04,3323 54127 TS COUNT
010611,002259: 04,3324 37652 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
010612,002260: 04,3325 70127 MASK COUNT
010613,002261: 04,3326 56127 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
010614,002262: 04,3327 54021 TS SR # +1 INTO COUNT IF ODD (LEFT)
010615,002263:
010616,002264: 04,3330 56021 XCH SR # DSREL IN A
010617,002265: 04,3331 50000 INDEX A
010618,002266: 04,3332 10307 CCS DSPTAB
010619,002267: 04,3333 03335 TC +2
010620,002268: 04,3334 05715 TC CCSHOLE
010621,002269: 04,3335 67652 AD ONE # DSMAG IN A
010622,002270: 04,3336 50127 INDEX COUNT
010623,002271: 04,3337 73253 MASK DSMSK
010624,002272: 04,3340 50127 INDEX COUNT
010625,002273: 04,3341 03342 TC +1
010626,002274: 04,3342 03344 TC +2 # EVEN(RIGHT) OK
010627,002275: 04,3343 05431 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
010628,002276: 04,3344 54110 TS CODE
010629,002277: 04,3345 47227 CS FIVE
010630,002278: 04,3346 60264 AD DSPCOUNT # DSPCOUNT-5
010631,002279: 04,3347 10000 CCS A # TO PREVENT -0
010632,002280: 04,3350 67652 AD ONE
010633,002281: 04,3351 03353 TC +2
010634,002282: 04,3352 05715 TC CCSHOLE
010635,002283: 04,3353 54127 TS COUNT
010636,002284: 04,3354 03175 TC DSPIN # CODE ALREADY IN CODE
010637,002285: 04,3355 40264 CS DSPCOUNT
010638,002286: 04,3356 65426 AD R1D1 # OCT 16
010639,002287: 04,3357 10000 CCS A
010640,002288: 04,3360 56264 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
010641,002289: 04,3361 67652 AD ONE # INCREMENT DSPCOUNT
010642,002290: 04,3362 03322 TC BUMP +1
010643,002291:
010644,002292: 04,3363 37657 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
010645,002293: 04,3364 54264 TS DSPCOUNT
010646,002294: 04,3365 63414 AD SWTAB +2 # OCT 3
010647,002295: 04,3366 50000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
010648,002296: 04,3367 10307 CCS DSPTAB # (-R2,+R2,-R1,+R1)
010649,002297: 04,3370 03372 TC +2
010650,002298: 04,3371 05715 TC CCSHOLE
010651,002299: 04,3372 67652 AD ONE
010652,002300: 04,3373 77640 MASK BIT11
010653,002301: 04,3374 54110 TS CODE
010654,002302: 04,3375 50264 INDEX DSPCOUNT
010655,002303: 04,3376 33412 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
010656,002304: 04,3377 03257 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
010657,002305: 04,3400 40264 CS DSPCOUNT
010658,002306: 04,3401 63414 AD SWTAB +2 # OCT 3
010659,002307: 04,3402 10000 CCS A
010660,002308: 04,3403 56264 XCH DSPCOUNT # +, DSPCOUNT L/ 3
010661,002309: 04,3404 67652 AD ONE # INCREMENT DSPCOUNT
010662,002310: 04,3405 03364 TC SWSGN +1
010663,002311: 04,3406 35426 CAF R1D1 # -0, DSPCOUNT = 3
010664,002312: 04,3407 54264 TS DSPCOUNT
010665,002313: 04,3410 02472 TC 5BLANK # BLANKS R1
010666,002314:
010667,002315: 04,3411 00122 TC ENTEXIT
010668,002316:
010669,002317: 04,3412 00000 SWTAB OCT 0 # -R3
010670,002318: 04,3413 00001 OCT 1 # +R3
010671,002319: 04,3414 00003 OCT 3 # -R2
010672,002320: 04,3415 00004 OCT 4 # +R2
010673,002321:
010674,002322: # NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
010675,002323: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
010676,002324: # INTO A. V-S ARE 6BIT VERB CODE. N-S , 6 BIT NOUN CODE.
010677,002325:
010678,002326: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
010679,002327: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
010680,002328:
010681,002329: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
010682,002330: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
010683,002331: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
010684,002332: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
010685,002333: # FURTHER ACTION).
010686,002334:
010687,002335: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
010688,002336: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
010689,002337: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
010690,002338: # ALARM CONDITION BEFORE RETURN TO CALLER.
010691,002339:
010692,002340: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
010693,002341: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
010694,002342: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
010695,002343: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
010696,002344: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
010697,002345: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
010698,002346: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
010699,002347: # MONITOR SET UP.
010700,002348:
010701,002349: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
010702,002350:
010703,002351: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
010704,002352: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
010705,002353:
010706,002354: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
010707,002355: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
010708,002356:
010709,002357: 4673 SETLOC MIDSIX +1
010710,002358: 4673 54107 NVSUB TS NVTEMP # IN FIXED FIXED
010711,002359: 4674 10277 CCS DSPLOCK
010712,002360: 4675 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
010713,002361: 4676 30002 CA Q # DSP SYST AVAILABLE
010714,002362: 4677 67652 AD ONE
010715,002363: 4700 54325 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
010716,002364: 4701 04715 TC KILMONON # TURN ON KILL MONITOR BIT
010717,002365: 4702 34706 NVSUBCOM CAF NVSBBBNK
010718,002366:
010719,002367: 4703 56006 XCH BBANK
010720,002368: 4704 54326 TS NVBNKTEM
010721,002369: 4705 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
010722,002370: 4706 0264 EBANK= DSPCOUNT
010723,002371: 4706 12000 NVSBBBNK BBCON NVSUB1
010724,002372:
010725,002373: 4707 30002 NVSUBMON CA Q # MONDO COMES HERE
010726,002374: 4710 67652 AD ONE
010727,002375: 4711 54325 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
010728,002376: 4712 04702 TC NVSUBCOM
010729,002377:
010730,002378: 4713 52326 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
010731,002379: 4714 52006 DXCH Z # DTCB
010732,002380:
010733,002381: 05,3344 SETLOC ENDRQWT +1
010734,002382:
010735,002383: 05,3344 33363 NVSUB1 CAF ENTSET # IN BANK
010736,002384: 05,3345 54122 TS ENTRET # SET RETURN TO NVSUBEND
010737,002385: 05,3346 33401 CAF LOW6
010738,002386: 05,3347 70107 MASK NVTEMP
010739,002387: 05,3350 54140 TS MPAC # TEMP STORAGE
010740,002388: 05,3351 33402 CAF MID6
010741,002389: 05,3352 70107 MASK NVTEMP
010742,002390: 05,3353 05431 TC RIGHT5
010743,002391: 05,3354 54020 TS CYR
010744,002392: 05,3355 56020 XCH CYR
010745,002393: 05,3356 54141 TS MPAC +1 # TEMP STORAGE
010746,002394: 05,3357 10140 CCS MPAC # TEST NOUN
010747,002395: 05,3360 03364 TC +4 # IF NOUN NOT +0, GO ON
010748,002396: 05,3361 56141 XCH MPAC +1
010749,002397: 05,3362 02314 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN
010750,002398: 05,3363 04713 ENTSET TC NVSUBEND
010751,002399: 05,3364 10141 CCS MPAC +1 # TEST VERB
010752,002400: 05,3365 03371 TC +4 # IF VERB NOT +0, GO ON
010753,002401: 05,3366 56140 XCH MPAC
010754,002402: 05,3367 02274 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
010755,002403: 05,3370 04713 TC NVSUBEND
010756,002404: 05,3371 56141 XCH MPAC +1
010757,002405: 05,3372 02314 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
010758,002406: 05,3373 56140 XCH MPAC # BOTH AND GO TO ENTPAS0
010759,002407: 05,3374 02274 TC UPDATNN -1
010760,002408: 05,3375 37657 CAF ZERO
010761,002409: 05,3376 54301 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
010762,002410: 05,3377 54302 TS CLPASS
010763,002411: 05,3400 02031 TC ENTPAS0
010764,002412:
010765,002413: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
010766,002414: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
010767,002415:
010768,002416:
010769,002417:
010770,002418: 05,3401 00077 LOW6 OCT 77
010771,002419: 05,3402 07700 MID6 OCT 7700
010772,002420:
010773,002421: 4715 SETLOC NVSUBEND +2
010774,002422: 4715 47634 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
010775,002423: 4716 00004 INHINT # THIS IS THE KILL MONITOR BIT.
010776,002424: 4717 70306 MASK MONSAVE1
010777,002425: 4720 67634 AD BIT15
010778,002426: 4721 54306 TS MONSAVE1
010779,002427: 4722 00003 RELINT
010780,002428: 4723 00002 TC Q
010781,002429:
010782,002430:
010783,002431:
010784,002432: # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
010785,002433: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
010786,002434: # -1 TERMINATE SET BY SPECIAL VERB
010787,002435: # -0 DATA IN SET BY END OF LOAD ROUTINE
010788,002436:
010789,002437:
010790,002438:
010791,002439: # L TC ENDIDLE (FIXED FIXED)
010792,002440: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
010793,002441: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
010794,002442: # ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
010795,002443: # JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
010796,002444: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
010797,002445: # L+1 FOR TERMINATE
010798,002446: # L+2 FOR PROCEED WITHOUT DATA
010799,002447: # L+3 FOR DATA IN
010800,002448: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
010801,002449:
010802,002450: 4724 37652 ENDIDLE CAF ONE
010803,002451: 4725 54277 TS DSPLOCK
010804,002452: 4726 22004 LXCH FBANK
010805,002453: 4727 56002 XCH Q
010806,002454: 4730 52120 DXCH BUF2
010807,002455: 4731 04113 TC MAKECADR
010808,002456: 4732 54323 TS CADRSTOR
010809,002457: 4733 04331 TC JOBSLEEP
010810,002458:
010811,002459:
010812,002460:
010813,002461: 4734 04353 ENDINST TC ENDOFJOB
010814,002462:
010815,002463: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
010816,002464: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
010817,002465: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
010818,002466: # DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
010819,002467: # AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
010820,002468: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
010821,002469:
010822,002470: 4735 10301 DATAWAIT CCS LOADSTAT
010823,002471:
010824,002472: 4736 14743 TCF DATWAIT1 # PROCEED. RETURN TO L+2.
010825,002473: 4737 14724 TCF ENDIDLE # STILL WAITING. GO TO SLEEP.
010826,002474: 4740 00002 TC Q # TERMINATE. RETURN TO L+1.
010827,002475: 4741 50002 INDEX Q # DATA IN. RETURN TO L+3.
010828,002476: 4742 00002 TC 2
010829,002477: 4743 50002 DATWAIT1 INDEX Q # RETURN TO L+2.
010830,002478: 4744 00001 TC 1
010831,002479:
010832,002480: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
010833,002481: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
010834,002482:
010835,002483:
010836,002484:
010837,002485: 05,3403 SETLOC MID6 +1
010838,002486: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
010839,002487:
010840,002488: 05,3403 35472 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
010841,002489: 05,3404 56264 XCH DSPCOUNT
010842,002490: 05,3405 54124 TS DSPMMTEM # SAVE DSPCOUNT
010843,002491: 05,3406 30276 CA MODREG
010844,002492: 05,3407 22002 LXCH Q
010845,002493: 05,3410 03255 TC DSP2BIT
010846,002494: 05,3411 56124 XCH DSPMMTEM # RESTORE DSPCOUNT
010847,002495: 05,3412 54264 TS DSPCOUNT
010848,002496: 05,3413 00001 DSPMMEND TC L
010849,002497:
010850,002498:
010851,002499:
010852,002500: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
010853,002501: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
010854,002502: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
010855,002503:
010856,002504: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
010857,002505: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
010858,002506:
010859,002507: 04,3416 SETLOC SWTAB +4
010860,002508:
010861,002509: 04,3416 10323 RECALTST CCS CADRSTOR
010862,002510: 04,3417 03424 TC RECAL1
010863,002511: 04,3420 04353 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
010864,002512: 04,3421 03424 TC RECAL1
010865,002513: 04,3422 54323 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
010866,002514: 04,3423 03442 TC RECAL3 # +0 INTO CADRSTOR. RELEASE DISPLAY,
010867,002515: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
010868,002516: 04,3424 37657 RECAL1 CAF ZERO
010869,002517: 04,3425 56323 XCH CADRSTOR
010870,002518: 04,3426 00004 INHINT
010871,002519: 04,3427 04335 TC JOBWAKE
010872,002520: 04,3430 10301 CCS LOADSTAT
010873,002521: 04,3431 03446 TC DOPROC # + PROCEED WITHOUT DATA
010874,002522:
010875,002523: 04,3432 04353 TC ENDOFJOB # PATHALOGICAL CASE EXIT
010876,002524: 04,3433 03444 TC DOTERM # - TERMINATE
010877,002525: 04,3434 37651 CAF TWO
010878,002526: 04,3435 50071 RECAL2 INDEX LOCCTR
010879,002527: 04,3436 60150 AD LOC # LOC IS + FOR BASIC JOBS
010880,002528: 04,3437 50071 INDEX LOCCTR
010881,002529: 04,3440 54150 TS LOC
010882,002530: 04,3441 00003 RELINT
010883,002531: 04,3442 05615 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
010884,002532: 04,3443 04353 TC ENDOFJOB
010885,002533:
010886,002534: 04,3444 37657 DOTERM CAF ZERO
010887,002535: 04,3445 03435 TC RECAL2
010888,002536:
010889,002537: 04,3446 37652 DOPROC CAF ONE
010890,002538: 04,3447 03435 TC RECAL2
010891,002539:
010892,002540: # THE FOLLOWING REFERS TO THE NOUN TABLES
010893,002541:
010894,002542:
010895,002543:
010896,002544: # COMPONENT CODE NUMBER INTERPRETATION
010897,002545:
010898,002546: # 00000 1 COMPONENT
010899,002547: # 00001 2 COMPONENT (EACH S P)
010900,002548: # 00010 3 COMPONENT (EACH SP)
010901,002549:
010902,002550:
010903,002551:
010904,002552: # SF ROUTINE CODE NUMBER INTERPRETATION
010905,002553:
010906,002554: # 00000 OCTAL ONLY
010907,002555: # 00001 STRAIGHT FRACTIONAL
010908,002556: # 00010 DEGREES (XXX.XX)
010909,002557: # 00011 ARITHMETIC SF
010910,002558: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN (STRAIGHT)
010911,002559: # 00101 ARITH DP2 OUT (STRAIGHT) IN (SL 7 AT END)
010912,002560: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
010913,002561: # 00111 ARITH DP3 OUT (SL 7 AT END) IN ( STRAIGHT)
010914,002562: # END OF SF ROUTINE CODE NUMBERS
010915,002563:
010916,002564: # SF CONSTANT CODE NUMBER INTERPRETATION
010917,002565:
010918,002566: # 00000 WHOLE
010919,002567: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
010920,002568: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
010921,002569: # 00010 DEGREES
010922,002570: # 00010 OPTICS DEGREES
010923,002571: # 00011 GYRO DEGREES (XX.XXX) USE ARITHDP3
010924,002572: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
010925,002573: # 00101 GYRO AXIS ACCEL. DRIFT
010926,002574: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
010927,002575: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
010928,002576: # 00111 PIPA SCALE FACTOR ERROR
010929,002577: # XXXXX. PARTS/MILLION
010930,002578: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
010931,002579: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
010932,002580: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
010933,002581: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
010934,002582: # END OF SF CONSTANT CODE NUMBERS
010935,002583:
010936,002584:
010937,002585:
010938,002586: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
010939,002587: # NOUN TABLES.
010940,002588: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
010941,002589: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
010942,002590: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
010943,002591:
010944,002592: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
010945,002593: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
010946,002594: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
010947,002595:
010948,002596:
010949,002597:
010950,002598: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
010951,002599: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
010952,002600: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
010953,002601: # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
010954,002602: # MIXED OR NORMAL NOUN.
010955,002603:
010956,002604: 4745 SETLOC DATWAIT1 +2
010957,002605:
010958,002606: 4745 52136 LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
010959,002607: 4746 50267 INDEX NOUNREG
010960,002608: 4747 35017 CAF NNADTAB
010961,002609: 4750 54132 TS NNADTEM
010962,002610: 4751 50267 INDEX NOUNREG
010963,002611: 4752 35117 CAF NNTYPTAB
010964,002612: 4753 54133 TS NNTYPTEM
010965,002613: 4754 40267 CS NOUNREG
010966,002614: 4755 65003 AD MIXCON
010967,002615: 4756 00006 EXTEND
010968,002616: 4757 64763 BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
010969,002617: 4760 37652 CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
010970,002618: 4761 54124 TS MIXBR # NORMAL. +1 INTO MIXBR.
010971,002619: 4762 05001 TC LODNLV
010972,002620: 4763 37651 LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
010973,002621: 4764 54124 TS MIXBR
010974,002622: 4765 50267 INDEX NOUNREG
010975,002623: 4766 35312 CAF RUTMXTAB -55
010976,002624: 4767 54137 TS RUTMXTEM
010977,002625: 4770 36426 CAF LOW10
010978,002626: 4771 70132 MASK NNADTEM
010979,002627: 4772 54002 TS Q # TEMP
010980,002628: 4773 50000 INDEX A
010981,002629: 4774 35277 CAF IDADDTAB
010982,002630: 4775 54134 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
010983,002631: 4776 00006 EXTEND
010984,002632: 4777 50002 INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
010985,002633: 5000 35301 DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
010986,002634: 5001 52136 LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
010987,002635: 5002 52006 DXCH Z
010988,002636:
010989,002637: 5003 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
010990,002638:
010991,002639:
010992,002640:
010993,002641: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
010994,002642:
010995,002643: 5004 52110 GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
010996,002644: 5005 00006 EXTEND
010997,002645: 5006 50000 INDEX A
010998,002646: 5007 35250 DCA SFOUTAB
010999,002647: 5010 52110 SFCOM DXCH SFTEMP1
011000,002648: 5011 52006 DXCH Z
011001,002649:
011002,002650:
011003,002651:
011004,002652: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
011005,002653:
011006,002654: 5012 52110 GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
011007,002655: 5013 00006 EXTEND
011008,002656: 5014 50000 INDEX A
011009,002657: 5015 35220 DCA SFINTAB
011010,002658: 5016 15010 TCF SFCOM
011011,002659:
011012,002660:
011013,002661:
011014,002662: # NN NORMAL NOUNS
011015,002663: 5017 00000 NNADTAB OCT 00000 # 00 NOT IN USE
011016,002664: 5020 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
011017,002665: 5021 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
011018,002666: 5022 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
011019,002667: 5023 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
011020,002668: 5024 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
011021,002669: 5025 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
011022,002670: 5026 40000 OCT 40000 # 07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
011023,002671: 5027 77776 OCT 77776 # 10 CHANNEL TO BE SPECIFIED
011024,002672: 5030 00000 OCT 00000 # 11 SPARE
011025,002673: 5031 00000 OCT 00000 # 12 SPARE
011026,002674: 5032 00000 OCT 00000 # 13 SPARE
011027,002675: 5033 00000 OCT 00000 # 14 SPARE
011028,002676: 5034 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
011029,002677: 5035 00024 ECADR TIME2 # 16 TIME SECONDS
011030,002678: 5036 00024 ECADR TIME2 # 17 TIME HOURS
011031,002679: 5037 00032 ECADR CDUX # 20 ICDU
011032,002680: 5040 00037 ECADR PIPAX # 21 PIPAS
011033,002681: 5041 00400 ECADR THETAD # 22 NEW ANGLES I
011034,002682: 5042 00336 ECADR DSPTEM2 # 23 DELTA ANGLES I
011035,002683: 5043 00333 ECADR DSPTEM1 # 24 DELTA TIME (SEC)
011036,002684: 5044 00333 ECADR DSPTEM1 # 25 CHECKLIST
011037,002685: 5045 00333 ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
011038,002686: 5046 01361 ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
011039,002687: 5047 00333 ECADR DSPTEM1 # 30 STAR NUMBERS
011040,002688: 5050 01363 ECADR FAILREG # 31 FAILREG
011041,002689: 5051 02166 ECADR TDEC # 32 DECISION TIME (MIDCOURSE)
011042,002690: 5052 02046 ECADR TET # 33 EPHEMERIS TIME (MIDCOURSE)
011043,002691: 5053 02174 ECADR MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
011044,002692: 5054 00333 ECADR DSPTEM1 # 35 INBIT MESSAGE
011045,002693:
011046,002694: 5055 01462 ECADR LANDMARK # 36 LANDMARK DATA 1
011047,002695: 5056 01465 ECADR LANDMARK +3 # 37 LANDMARK DATA 2
011048,002696: 5057 00000 OCT 00000 # 40 SPARE
011049,002697: 5060 00000 OCT 00000 # 41 SPARE
011050,002698: 5061 00000 OCT 00000 # 42 SPARE
011051,002699: 5062 00000 OCT 00000 # 43 SPARE
011052,002700: 5063 00000 OCT 00000 # 44 SPARE
011053,002701: 5064 00000 OCT 00000 # 45 SPARE
011054,002702: 5065 00000 OCT 00000 # 46 SPARE
011055,002703: 5066 00000 OCT 00000 # 47 SPARE
011056,002704: 5067 00000 OCT 00000 # 50 SPARE
011057,002705: 5070 00000 OCT 00000 # 51 SPARE
011058,002706: 5071 01432 ECADR GBIASX # 52 GYRO BIAS DRIFT
011059,002707: 5072 01435 ECADR ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
011060,002708: 5073 01440 ECADR ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
011061,002709:
011062,002710: # NN MIXED NOUNS
011063,002711: 5074 02000 OCT 02000 # 55 OCDU
011064,002712: 5075 04002 OCT 04002 # 56 UNCALLED MARK DATA (OCDU & TIME(SEC))
011065,002713: 5076 02005 OCT 02005 # 57 NEW ANGLES OCDU
011066,002714: 5077 04007 OCT 04007 # 60 DELTA GYRO ANGLES FOR PRELAUNCH
011067,002715: 5100 02012 OCT 02012 # 61 TARGET AZIMUTH AND ELEVATION
011068,002716: 5101 02014 OCT 02014 # 62 ICDUZ AND TIME(SEC)
011069,002717: 5102 02016 OCT 02016 # 63 OCDUX AND TIME(SEC)
011070,002718: 5103 02020 OCT 02020 # 64 OCDUY AND TIME(SEC)
011071,002719: 5104 02022 OCT 02022 # 65 SAMPLED TIME (HOURS AND SECONDS)
011072,002720: # (FETCHED IN INTERRUPT)
011073,002721: 5105 04024 OCT 04024 # 66 SYSTEM TEST RESULTS
011074,002722: 5106 04027 OCT 04027 # 67 DELTA GYRO ANGLES
011075,002723: 5107 04032 OCT 04032 # 70 PIPA BIAS
011076,002724: 5110 04035 OCT 04035 # 71 PIPA SCALE FACTOR ERROR
011077,002725: 5111 04040 OCT 04040 # 72 DELTA POSITION
011078,002726: 5112 04043 OCT 04043 # 73 DELTA VELOCITY
011079,002727: 5113 04046 OCT 04046 # 74 MEASUREMENT DATA (MIDCOURSE)
011080,002728: 5114 04051 OCT 04051 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
011081,002729: 5115 04054 OCT 04054 # 76 POSITION VECTOR
011082,002730: 5116 04057 OCT 04057 # 77 VELOCITY VECTOR
011083,002731:
011084,002732:
011085,002733:
011086,002734: # NN NORMAL NOUNS
011087,002735: 5117 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
011088,002736: 5120 00040 OCT 00040 # 01 1COMP FRACTIONAL
011089,002737: 5121 00140 OCT 00140 # 02 1COMP WHOLE
011090,002738: 5122 00102 OCT 00102 # 03 1COMP DEGREES
011091,002739: 5123 00241 OCT 00241 # 04 1COMP HOURS
011092,002740: 5124 00200 OCT 00200 # 05 1COMP SECONDS
011093,002741: 5125 00343 OCT 00343 # 06 1COMP GYRO DEGREES
011094,002742: 5126 00302 OCT 00302 # 07 1COMP Y OPT DEGREES
011095,002743: 5127 00000 OCT 00000 # 10 1COMP OCTAL ONLY
011096,002744: 5130 00000 OCT 00000 # 11 SPARE
011097,002745: 5131 00000 OCT 00000 # 12 SPARE
011098,002746: 5132 00000 OCT 00000 # 13 SPARE
011099,002747: 5133 00000 OCT 00000 # 14 SPARE
011100,002748: 5134 00000 OCT 00000 # 15 1COMP OCTAL ONLY
011101,002749: 5135 00200 OCT 00200 # 16 1COMP SECONDS
011102,002750: 5136 00241 OCT 00241 # 17 1COMP HOURS
011103,002751: 5137 04102 OCT 04102 # 20 3COMP DEGREES
011104,002752: 5140 04140 OCT 04140 # 21 3COMP WHOLE
011105,002753: 5141 04102 OCT 04102 # 22 3COMP DEGREES
011106,002754: 5142 04102 OCT 04102 # 23 3COMP DEGREES
011107,002755: 5143 00200 OCT 00200 # 24 1COMP SECONDS
011108,002756: 5144 00140 OCT 00140 # 25 1COMP WHOLE
011109,002757: 5145 04000 OCT 04000 # 26 3COMP OCTAL ONLY
011110,002758: 5146 00140 OCT 00140 # 27 1COMP WHOLE
011111,002759: 5147 04140 OCT 04140 # 30 3COMP WHOLE
011112,002760: 5150 04000 OCT 04000 # 31 3COMP OCTAL ONLY
011113,002761: 5151 00252 OCT 00252 # 32 1COMP TIME WEEKS
011114,002762: 5152 00252 OCT 00252 # 33 1COMP TIME WEEKS
011115,002763: 5153 00350 OCT 00350 # 34 1COMP POISTION
011116,002764: 5154 04000 OCT 04000 # 35 3COMP OCTAL ONLY
011117,002765: 5155 04000 OCT 04000 # 36 3COMP OCTAL ONLY
011118,002766: 5156 04000 OCT 04000 # 37 3COMP OCTAL ONLY
011119,002767: 5157 00000 OCT 00000 # 40 SPARE
011120,002768: 5160 00000 OCT 00000 # 41 SPARE
011121,002769: 5161 00000 OCT 00000 # 42 SPARE
011122,002770: 5162 00000 OCT 00000 # 43 SPARE
011123,002771: 5163 00000 OCT 00000 # 44 SPARE
011124,002772: 5164 00000 OCT 00000 # 45 SPARE
011125,002773: 5165 00000 OCT 00000 # 46 SPARE
011126,002774: 5166 00000 OCT 00000 # 47 SPARE
011127,002775: 5167 00000 OCT 00000 # 50 SPARE
011128,002776: 5170 00000 OCT 00000 # 51 SPARE
011129,002777: 5171 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
011130,002778: 5172 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
011131,002779: 5173 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
011132,002780:
011133,002781: # NN MIXED NOUNS
011134,002782: 5174 00102 OCT 00102 # 55 2COMP DEGREES, Y OPT DEGREES
011135,002783: 5175 00102 OCT 00102 # 56 3COMP DEGREES, Y OPT DEGREES, SECS
011136,002784: 5176 00102 OCT 00102 # 57 2COMP DEGREES, Y OPT DEGREES
011137,002785: 5177 06143 OCT 06143 # 60 3COMP GYRO DEGREES FOR EACH
011138,002786: 5200 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
011139,002787: 5201 00002 OCT 00002 # 62 2COMP DEGREES, SECS
011140,002788: 5202 00002 OCT 00002 # 63 2COMP DEGREES, SECS
011141,002789: 5203 00002 OCT 00002 # 64 2COMP Y OPT DEGREES, SECS
011142,002790: 5204 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
011143,002791: 5205 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
011144,002792: 5206 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
011145,002793: 5207 14306 OCT 14306 # 70 3COMP PIPA BIAS FOR EACH
011146,002794: 5210 16347 OCT 16347 # 71 3COMP PIPA SCALE FACTOR ERR.FOR EACH
011147,002795: 5211 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
011148,002796: 5212 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
011149,002797: 5213 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
011150,002798: 5214 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
011151,002799: 5215 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
011152,002800: 5216 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
011153,002801:
011154,002802:
011155,002803:
011156,002804: 5217 00006 SFINTAB OCT 00006 # WHOLE,TIME(SEC)
011157,002805: 5220 03240 OCT 03240
011158,002806: 5221 00253 OCT 00253 # TIME HOURS ( = 1.3..... )
011159,002807: 5222 25124 OCT 25124 # (POINT BETWEEN BITS 7-8 )
011160,002808: 5223 00000 OCT 0 # DEGREES (SFCON IN DEGINSF)
011161,002809: 5224 00000 OCT 0
011162,002810: 5225 10707 OCT 10707 # GYRO DEGREES
011163,002811: 5226 03434 OCT 03434
011164,002812: 5227 00001 OCT 00001 # GYRO BIAS DRIFT
011165,002813: 5230 02133 OCT 02133
011166,002814: 5231 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
011167,002815: 5232 30322 OCT 30322
011168,002816: 5233 00004 OCT 00004 # PIPA BIAS
011169,002817: 5234 14021 OCT 14021
011170,002818: 5235 00314 OCT 00314 # PIPA SCALE ERROR.
011171,002819: 5236 31463 OCT 31463
011172,002820: 5237 23420 OCT 23420 # POSITION
011173,002821: 5240 00000 OCT 00000
011174,002822: 5241 00201 OCT 00201 # VELOCITY
011175,002823: 5242 30327 OCT 30327 # ( POINT BETWEEN BITS 7-8 )
011176,002824: 5243 01371 OCT 01371 # TIME WEEKS
011177,002825: 5244 34750 OCT 34750 # ( POINT BETWEEN BITS 7-8 )
011178,002826: 5245 00001 OCT 00001 # ELEVATION DEGREES
011179,002827: 5246 03434 OCT 03434
011180,002828: # END OF SFINTAB
011181,002829:
011182,002830:
011183,002831:
011184,002832: 5247 05174 SFOUTAB OCT 05174 # WHOLE, TIME(SEC)
011185,002833: 5250 13261 OCT 13261
011186,002834: 5251 27670 OCT 27670 # TIME HOURS
011187,002835: 5252 31357 OCT 31357
011188,002836: 5253 00000 OCT 0 # DEGREES
011189,002837: 5254 00000 OCT 0
011190,002838: 5255 00714 OCT 00714 # GYRO DEGREES
011191,002839: 5256 31463 OCT 31463 # (POINT BETWEEN BITS 7-8)
011192,002840: 5257 35753 OCT 35753 # GYRO BIAS DRIFT
011193,002841: 5260 32323 OCT 32323
011194,002842: 5261 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
011195,002843: 5262 06400 OCT 06400
011196,002844: 5263 07237 OCT 07237 # PIPA BIAS
011197,002845: 5264 37776 OCT 37776
011198,002846: 5265 00120 OCT 00120 # PIPA SCALE ERROR
011199,002847: 5266 00000 OCT 00000
011200,002848: 5267 00321 OCT 00321 # POSITION
011201,002849: 5270 26706 OCT 26706 # ( POINT BETWEEN BITS 7-8 )
011202,002850: 5271 37441 OCT 37441 # VELOCITY
011203,002851: 5272 14247 OCT 14247
011204,002852: 5273 05300 OCT 05300 # TIME WEEKS
011205,002853: 5274 20305 OCT 20305
011206,002854: 5275 34631 OCT 34631 # ELEVATION DEGREES
011207,002855: 5276 23146 OCT 23146
011208,002856: # END OF SFOUTAB
011209,002857:
011210,002858:
011211,002859: # MIXNOUN SF ROUT
011212,002860: 5277 00036 IDADDTAB ECADR OPTX # 01 DEGREES
011213,002861: 5300 00035 ECADR OPTY # 01 Y OPT DEGREES
011214,002862: 5301 00333 ECADR DSPTEM1 # 02 DEGREES
011215,002863: 5302 00334 ECADR DSPTEM1 +1 # 02 Y OPT DEGREES
011216,002864: 5303 00335 ECADR DSPTEM1 +2 # 02 SEC
011217,002865: 5304 00404 ECADR DESOPTS # 03 DEGREES
011218,002866: 5305 00403 ECADR DESOPTT # 03 Y OPT DEGREES
011219,002867: 5306 02500 ECADR OGC # 04 GYRO DEGREES
011220,002868: 5307 02502 ECADR IGC # 04 GYRO DEGREES
011221,002869: 5310 02504 ECADR MGC # 04 GYRO DEGREES
011222,002870: 5311 00333 ECADR DSPTEM1 # 05 DEGREES
011223,002871: 5312 00334 ECADR DSPTEM1 +1 # 05 ELEVATION DEGREES
011224,002872: 5313 00034 ECADR CDUZ # 06 DEGREES
011225,002873: 5314 00024 ECADR TIME2 # 06 SEC
011226,002874: 5315 00036 ECADR OPTX # 07 DEGREES
011227,002875: 5316 00024 ECADR TIME2 # 07 SEC
011228,002876: 5317 00035 ECADR OPTY # 10 Y OPT DEGREES
011229,002877: 5320 00024 ECADR TIME2 # 10 SEC
011230,002878: 5321 00013 ECADR SAMPTIME # 11 HOURS
011231,002879: 5322 00013 ECADR SAMPTIME # 11 SECONDS
011232,002880: 5323 00336 ECADR DSPTEM2 # 12 WHOLE
011233,002881: 5324 00337 ECADR DSPTEM2 +1 # 12 FRACTIONAL
011234,002882: 5325 00340 ECADR DSPTEM2 +2 # 12 WHOLE
011235,002883: 5326 00405 ECADR DELVX # 13 GYRO DEGREES
011236,002884: 5327 00407 ECADR DELVX +2 # 13 GYRO DEGREES
011237,002885: 5330 00411 ECADR DELVX +4 # 13 GYRO DEGREES
011238,002886: 5331 01443 ECADR PBIASX # 14 PIPA BIAS
011239,002887: 5332 01445 ECADR PBIASY # 14 PIPA BIAS
011240,002888: 5333 01447 ECADR PBIASZ # 14 PIPA BIAS
011241,002889: 5334 01444 ECADR PIPASCFX # 15 PIPA SCALE FACTOR ERROR
011242,002890: 5335 01446 ECADR PIPASCFY # 15 PIPA SCALE FACTOR ERROR
011243,002891: 5336 01450 ECADR PIPASCFZ # 15 PIPA SCALE FACTOR ERROR
011244,002892: 5337 02052 ECADR DELR # 16 POSITION
011245,002893: 5340 02054 ECADR DELR +2 # 16 POSITION
011246,002894: 5341 02056 ECADR DELR +4 # 16 POSITION
011247,002895: 5342 02060 ECADR DELVEL # 17 VELOCITY
011248,002896: 5343 02062 ECADR DELVEL +2 # 17 VELOCITY
011249,002897: 5344 02064 ECADR DELVEL +4 # 17 VELOCITY
011250,002898: 5345 02166 ECADR TDEC # 20 TIME WEEKS
011251,002899: 5346 02174 ECADR MEASQ # 20 POSITION
011252,002900: 5347 02200 ECADR MEASMODE # 20 WHOLE
011253,002901: 5350 00333 ECADR DSPTEM1 # 21 POSITION
011254,002902: 5351 00335 ECADR DSPTEM1 +2 # 21 VELOCITY
011255,002903: 5352 02176 ECADR DELTAQ # 21 POSITION
011256,002904: 5353 00333 ECADR DSPTEM1 # 22 POSITION
011257,002905: 5354 00335 ECADR DSPTEM1 +2 # 22 POSITION
011258,002906: 5355 00337 ECADR DSPTEM1 +4 # 22 POSITION
011259,002907: 5356 00333 ECADR DSPTEM1 # 23 VELOCITY
011260,002908: 5357 00335 ECADR DSPTEM1 +2 # 23 VELOCITY
011261,002909: 5360 00337 ECADR DSPTEM1 +4 # 23 VELOCITY
011262,002910: 5361 00000 OCT 00000 # SPARE
011263,002911: 5362 00000 OCT 00000 # SPARE
011264,002912: 5363 00000 OCT 00000 # SPARE
011265,002913: 5364 00000 OCT 00000 # SPARE
011266,002914: 5365 00000 OCT 00000 # SPARE
011267,002915: 5366 00000 OCT 00000 # SPARE
011268,002916: # END OF IDADDTAB
011269,002917:
011270,002918:
011271,002919:
011272,002920: # MIXNOUN SF ROUT
011273,002921: 5367 00302 RUTMXTAB OCT 00302 # 01 DEGREES, Y OPT DEGREES
011274,002922: 5370 10302 OCT 10302 # 02 DEGREES, Y OPT DEGREES, SECONDS
011275,002923: 5371 00302 OCT 00302 # 03 DEGREES, Y OPT DEGREES
011276,002924: 5372 16347 OCT 16347 # 04 GYRO DEGREES (FOR EACH)
011277,002925: 5373 00142 OCT 00142 # 05 DEGREES, ELEVATION DEGREES
011278,002926: 5374 00202 OCT 00202 # 06 DEGREES, SECONDS
011279,002927: 5375 00202 OCT 00202 # 07 DEGREES, SECONDS
011280,002928: 5376 00206 OCT 00206 # 10 Y OPT DEGREES, SECONDS
011281,002929: 5377 00205 OCT 00205 # 11 HOURS, SECONDS
011282,002930: 5400 06043 OCT 06043 # 12 WHOLE, FRACTIONAL, WHOLE
011283,002931: 5401 16347 OCT 16347 # 13 GYRO DEGREES (FOR EACH)
011284,002932: 5402 06143 OCT 06143 # 14 PIPA BIAS (FOR EACH)
011285,002933: 5403 06143 OCT 06143 # 15 PIPA SCALE FACTOR ERROR (FOR EACH)
011286,002934: 5404 16347 OCT 16347 # 16 POSITION (FOR EACH)
011287,002935: 5405 12245 OCT 12245 # 17 VELOCITY (FOR EACH)
011288,002936: 5406 06345 OCT 06345 # 20 TIME WEEKS, POSITION, WHOLE
011289,002937: 5407 16247 OCT 16247 # 21 POSITION, VELOCITY, POSITION
011290,002938: 5410 16347 OCT 16347 # 22 POSITION (FOR EACH)
011291,002939: 5411 12245 OCT 12245 # 23 VELOCITY (FOR EACH)
011292,002940: # END OF RUTMXTAB
011293,002941:
011294,002942:
011295,002943:
011296,002944: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
011297,002945:
011298,002946:
011299,002947:
011300,002948: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
011301,002949: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
011302,002950:
011303,002951: 5412 54304 SETNCADR TS NOUNCADR # STORE ECADR
011304,002952: 5413 54003 TS EBANK # SET EBANK BITS
011305,002953: 5414 75466 MASK LOW8
011306,002954: 5415 65467 AD OCT1400
011307,002955: 5416 54131 TS NOUNADD # PUT E ADRES INTO NOUNADD
011308,002956: 5417 00002 TC Q
011309,002957:
011310,002958:
011311,002959:
011312,002960: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
011313,002961: # E ADRES AND PUTS IT INTO NOUNADD.
011314,002962:
011315,002963: 5420 30304 SETNADD CA NOUNCADR
011316,002964: 5421 15413 TCF SETNCADR +1
011317,002965:
011318,002966:
011319,002967:
011320,002968: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
011321,002969: # DERIVED AND LEFT IN A.
011322,002970:
011323,002971: 5422 54003 SETEBANK TS EBANK ANK BITS
011324,002972: 5423 75466 MASK LOW8
011325,002973: 5424 65467 AD OCT1400 S LEFT
011326,002974: 5425 00002 TC Q
011327,002975:
011328,002976:
011329,002977:
011330,002978: 5426 00016 R1D1 OCT 16
011331,002979: 5427 00011 R2D1 OCT 11
011332,002980: 5430 00004 R3D1 OCT 4
011333,002981:
011334,002982: 5431 54020 RIGHT5 TS CYR
011335,002983: 5432 40020 CS CYR
011336,002984: 5433 40020 CS CYR
011337,002985: 5434 40020 CS CYR
011338,002986: 5435 40020 CS CYR
011339,002987: 5436 56020 XCH CYR
011340,002988: 5437 00002 TC Q
011341,002989:
011342,002990: 5440 54022 LEFT5 TS CYL
011343,002991: 5441 40022 CS CYL
011344,002992:
011345,002993: 5442 40022 CS CYL
011346,002994: 5443 40022 CS CYL
011347,002995: 5444 40022 CS CYL
011348,002996: 5445 56022 XCH CYL
011349,002997: 5446 00002 TC Q
011350,002998:
011351,002999: 5447 60000 SLEFT5 DOUBLE
011352,003000: 5450 60000 DOUBLE
011353,003001: 5451 60000 DOUBLE
011354,003002: 5452 60000 DOUBLE
011355,003003: 5453 60000 DOUBLE
011356,003004: 5454 00002 TC Q
011357,003005:
011358,003006:
011359,003007:
011360,003008: 5455 00037 LOW5 OCT 37
011361,003009: 5456 01740 MID5 OCT 1740
011362,003010: 5457 76000 HI5 OCT 76000 # MUST STAY HERE
011363,003011:
011364,003012: 5460 04276 TCNOVAC TC NOVAC
011365,003013: 5461 04451 TCWAIT TC WAITLIST
011366,003014: 5462 04505 TCTSKOVR TC TASKOVER
011367,003015: 5463 04307 TCFINDVC TC FINDVAC
011368,003016:
011369,003017:
011370,003018:
011371,003019: 5464 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
011372,003020:
011373,003021:
011374,003022:
011375,003023: 5465 03777 LOW11 OCT 3777
011376,003024: 5466 5465 B12-1 EQUALS LOW11
011377,003025: 5466 00377 LOW8 OCT 377
011378,003026: 5467 01400 OCT1400 OCT 1400
011379,003027:
011380,003028:
011381,003029:
011382,003030: 5470 00023 VD1 OCT 23
011383,003031: 5471 00021 ND1 OCT 21
011384,003032: 5472 00025 MD1 OCT 25
011385,003033:
011386,003034: 5473 00012 BINCON DEC 10 B-14
011387,003035:
011388,003036: 5474 37644 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
011389,003037: 5475 00006 EXTEND
011390,003038: 5476 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
011391,003039: 5477 00002 TC Q
011392,003040:
011393,003041: 5500 47644 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
011394,003042: 5501 00006 EXTEND
011395,003043:
011396,003044: 5502 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
011397,003045: 5503 00002 TC Q
011398,003046:
011399,003047: 5504 37646 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
011400,003048: 5505 00006 EXTEND
011401,003049: 5506 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
011402,003050: 5507 00002 TC Q
011403,003051:
011404,003052: 5510 00006 LODSAMPT EXTEND
011405,003053: 5511 30025 DCA TIME2
011406,003054: 5512 52014 DXCH SAMPTIME
011407,003055: 5513 00002 TC Q
011408,003056:
011409,003057:
011410,003058:
011411,003059: 5514 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
011412,003060: 5515 30142 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
011413,003061: 5516 20142 DAS MPAC +1
011414,003062: 5517 60140 AD MPAC
011415,003063: 5520 26140 ADS MPAC
011416,003064: 5521 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
011417,003065: 5522 00002 TC Q # NO NET OF/UF
011418,003066: 5523 54105 TS OVFIND # OVFIND SET TO +/- 1 FOR OF/UF
011419,003067: 5524 00002 TC Q
011420,003068:
011421,003069:
011422,003070:
011423,003071: 5525 37645 FLASHON CAF BIT6 # TURN ON V/N FLASH
011424,003072: 5526 00006 EXTEND # BIT 6 OF CHANNEL 11
011425,003073: 5527 05011 WOR DSALMOUT
011426,003074: 5530 00002 TC Q
011427,003075:
011428,003076:
011429,003077:
011430,003078: 5531 47645 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
011431,003079: 5532 00006 EXTEND
011432,003080: 5533 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
011433,003081: 5534 00002 TC Q
011434,003082:
011435,003083: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
011436,003084: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
011437,003085: # MAKE IT BUSY TO OTHER INTERNAL USERS.
011438,003086:
011439,003087: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
011440,003088: # SYSTEM FOR OTHER INTERNAL USERS.
011441,003089:
011442,003090: # THE CALLING SEQUENCES ARE
011443,003091: # L TC GRABDSP
011444,003092: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
011445,003093: # L+2 RETURN HERE MEANS YOU HAVE IT
011446,003094:
011447,003095: # L TC NVSUB
011448,003096: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
011449,003097: # L+2 RETURN HERE AFTER EXECUTION
011450,003098:
011451,003099:
011452,003100:
011453,003101: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
011454,003102: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
011455,003103: # GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
011456,003104: # HANDLE ONLY FIXED MEMORY.
011457,003105: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
011458,003106:
011459,003107: # THE CALLING SEQUENCE IS
011460,003108: # CAF WAKEFCADR
011461,003109: # TC GRABUSY
011462,003110:
011463,003111: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
011464,003112: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
011465,003113: # NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
011466,003114: # HANDLE ONLY FIXED MEMORY.
011467,003115: # YOUR CADR IS PUT
011468,003116: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
011469,003117:
011470,003118: # THE CALLING SEQUENCE IS
011471,003119: # CAF WAKEFCADR
011472,003120: # TC NVSUBUSY
011473,003121:
011474,003122:
011475,003123: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
011476,003124: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
011477,003125: # DISPLAYS WAITING WILL BE VISIBLE.
011478,003126:
011479,003127:
011480,003128:
011481,003129: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
011482,003130: # AND DISPLAY SYSTEM.
011483,003131: # +0 FREE
011484,003132:
011485,003133: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
011486,003134: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
011487,003135:
011488,003136:
011489,003137:
011490,003138: 5535 10324 GRABDSP CCS GRABLOCK
011491,003139: 5536 00002 TC Q # ALREADY GRABBED, RETURN TO L+1
011492,003140: 5537 37652 CAF ONE # NOT GRABBED, SET TO +1
011493,003141: 5540 54324 TS GRABLOCK # AND RETURN TO L+2
011494,003142: 5541 50002 INDEX Q
011495,003143: 5542 00001 TC 1
011496,003144:
011497,003145:
011498,003146:
011499,003147: 5543 36426 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
011500,003148: 5544 70002 MASK Q # BANKS ONLY DESIRING THE FCADR OF
011501,003149: 5545 60004 AD FBANK # 1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
011502,003150: 5546 04103 GRABUSY TC POSTJUMP # TO BE ENTERED.
011503,003151: 5547 10000 CADR GRABUSYB
011504,003152: 04,3450 SETLOC DOPROC +2
011505,003153: 04,3450 54001 GRABUSY1 TS L
011506,003154: 04,3451 10324 CCS GRABLOCK
011507,003155: 04,3452 03455 TC +3 # STILL GRABBED
011508,003156: 04,3453 30001 CA L # NOT GRABBED SO DO DIRECT CALL
011509,003157: 04,3454 04106 TC BANKJUMP
011510,003158: 04,3455 37651 CAF TWO
011511,003159: 04,3456 54130 TS LSTPTR
011512,003160: 04,3457 50130 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
011513,003161: 04,3460 10327 CCS DSPLIST # FROM BOTTOM.
011514,003162: 04,3461 03463 TC +2
011515,003163: 04,3462 03466 TC PUTINLST # SPACE FOUND
011516,003164: 04,3463 10130 CCS LSTPTR # DECREMENT POINTER
011517,003165: 04,3464 03456 TC -6
011518,003166: 04,3465 03532 TC LSTFULL
011519,003167: 04,3466 30001 PUTINLST CA L
011520,003168: 04,3467 50130 INDEX LSTPTR
011521,003169: 04,3470 54327 TS DSPLIST
011522,003170: 04,3471 04331 TC JOBSLEEP
011523,003171:
011524,003172:
011525,003173: # GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
011526,003174: # SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
011527,003175: # WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
011528,003176: # JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
011529,003177: # SYSTEM IS FREED.
011530,003178:
011531,003179: 5550 SETLOC GRABUSY +2
011532,003180: 5550 10324 GRABWAIT CCS GRABLOCK
011533,003181: 5551 15543 TCF PREGBSY # GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
011534,003182:
011535,003183: 5552 37652 CAF ONE # NOT GRABBED. GRAB AND RETURN TO L+1.
011536,003184: 5553 54324 TS GRABLOCK
011537,003185: 5554 00002 TC Q
011538,003186:
011539,003187:
011540,003188:
011541,003189: 5555 45562 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
011542,003190: 5556 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
011543,003191: 5557 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
011544,003192: 5560 04103 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
011545,003193: 5561 10001 CADR NVSUBSYB
011546,003194: 5562 02003 2K+3 OCT 2003
011547,003195:
011548,003196: 04,3472 SETLOC PUTINLST +4
011549,003197: 04,3472 54001 NVSUBSY1 TS L
011550,003198: 04,3473 10277 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
011551,003199: 04,3474 03477 TC +3 # STILL BUSY
011552,003200: 04,3475 30001 CA L # DSPLOCK = +0 SO RETURN DIRECTLY
011553,003201: 04,3476 04106 TC BANKJUMP
011554,003202: 04,3477 37651 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
011555,003203: 04,3500 54324 TS GRABLOCK
011556,003204: 04,3501 30001 CA L
011557,003205: 04,3502 56331 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
011558,003206: 04,3503 56330 XCH DSPLIST +1 # (BOTTOM)
011559,003207: 04,3504 56327 XCH DSPLIST
011560,003208: 04,3505 10000 CCS A
011561,003209: 04,3506 03532 TC LSTFULL
011562,003210: 04,3507 03511 TC +2
011563,003211: 04,3510 03532 TC LSTFULL
011564,003212: 04,3511 05504 TC RELDSPON
011565,003213: 04,3512 30001 CA L
011566,003214: 04,3513 04331 ENDNVBSY TC JOBSLEEP
011567,003215:
011568,003216:
011569,003217:
011570,003218: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
011571,003219: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
011572,003220: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
011573,003221: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
011574,003222: # IS NOT BUSY.
011575,003223:
011576,003224: 5563 SETLOC NVSUBUSY +3
011577,003225: 5563 54107 NVSBWAIT TS NVTEMP
011578,003226: 5564 10277 CCS DSPLOCK
011579,003227: 5565 15570 TCF NVSBWT1 # BUSY
011580,003228: 5566 30002 CA Q # FREE. NVSUB WILL SAVE L+1 FOR RETURN
011581,003229: 5567 14700 TCF NVSUB +5 # AFTER EXECUTION.
011582,003230: 5570 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
011583,003231: 5571 15555 TCF PRENVBSY # GO TO SLEEP.
011584,003232:
011585,003233: 5572 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
011586,003234: 5573 54130 TS RELRET # OFF, SEARCH DSPLIST
011587,003235: 5574 37661 CAF NEG1
011588,003236: 5575 60324 AD GRABLOCK
011589,003237: 5576 00006 EXTEND # SEARCH LIST ONLY IF GRABLOCK = +2
011590,003238: 5577 65605 BZMF RELDSP2 # (SOMEONE USED NVSUBUSY)
011591,003239: 5600 05620 TC WKSEARCH
011592,003240: 5601 05605 TC RELDSP2 # LIST EMPTY
011593,003241: 5602 04335 TC JOBWAKE # LIST NOT EMPTY
011594,003242: 5603 37652 CAF ONE
011595,003243: 5604 54324 TS GRABLOCK
011596,003244: 5605 00004 RELDSP2 INHINT
011597,003245: 5606 47646 CS BIT5 # TURN OFF KEY RELEASE LIGHT
011598,003246: 5607 00006 EXTEND # (BIT 5 OF CHANNEL 11)
011599,003247: 5610 03011 WAND DSALMOUT
011600,003248: 5611 37657 CAF ZERO
011601,003249: 5612 54277 TS DSPLOCK
011602,003250: 5613 00003 RELINT
011603,003251: 5614 00130 TC RELRET
011604,003252: 5615 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. RELDSP LIGHT OFF.
011605,003253: 5616 54130 TS RELRET # NO LIST SEARCH
011606,003254: 5617 05605 TC RELDSP2
011607,003255:
011608,003256:
011609,003257:
011610,003258: 5620 37657 WKSEARCH CAF ZERO # SEARCHES LIST. LEAVES RESULT IN A.
011611,003259: 5621 56327 XCH DSPLIST # IF EMPTY, RETURN TO L+1.
011612,003260: 5622 56330 XCH DSPLIST +1 # IF NOT EMPTY, INHINT AND RETURN TO L+2.
011613,003261: 5623 56331 XCH DSPLIST +2
011614,003262: 5624 00006 EXTEND
011615,003263: 5625 15631 BZF +4 # EMPTY
011616,003264: 5626 00004 INHINT # NOT EMPTY
011617,003265: 5627 50002 INDEX Q # RETURN TO L+2
011618,003266: 5630 00001 TC 1
011619,003267: 5631 00002 TC Q # RETURN TO L+1
011620,003268:
011621,003269:
011622,003270:
011623,003271: 5632 56002 FREEDSP XCH Q
011624,003272: 5633 54130 TS FREERET
011625,003273: 5634 00004 INHINT
011626,003274: 5635 35643 CAF SHOTIME
011627,003275: 5636 04451 TC WAITLIST
011628,003276: 5637 0264 EBANK= DSPCOUNT
011629,003277: 5637 03514 10000 2CADR FREEWAIT
011630,003278: 5641 00003 RELINT
011631,003279: 5642 00130 TC FREERET
011632,003280:
011633,003281: 5643 01130 SHOTIME DEC 600 B-14 # 6 SECOND WAITING PERIOD.
011634,003282:
011635,003283: 5644 ENDPINBF EQUALS
011636,003284:
011637,003285: 04,3514 SETLOC ENDNVBSY +1
011638,003286:
011639,003287: 04,3514 35464 FREEWAIT CAF CHRPRIO # CALLED BY T3RUPT
011640,003288: 04,3515 04276 TC NOVAC
011641,003289: 04,3516 0264 EBANK= DSPCOUNT
011642,003290: 04,3516 03521 10000 2CADR FREDSPD0
011643,003291: 04,3520 04505 TC TASKOVER
011644,003292:
011645,003293:
011646,003294:
011647,003295: 04,3521 05620 FREDSPD0 TC WKSEARCH # CALLED BY EXECUTIVE
011648,003296: 04,3522 03530 TC LSTEMPTY # LIST EMPTY
011649,003297: 04,3523 04335 TC JOBWAKE # LIST NOT EMPTY
011650,003298: 04,3524 00003 RELINT
011651,003299: 04,3525 37652 CAF ONE # SET FOR GRABBED CONDITION
011652,003300: 04,3526 54324 TS GRABLOCK
011653,003301: 04,3527 04353 TC ENDOFJOB
011654,003302: 04,3530 37657 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
011655,003303: 04,3531 03526 TC -3
011656,003304:
011657,003305:
011658,003306:
011659,003307: 04,3532 05677 LSTFULL TC ABORT
011660,003308: 04,3533 01206 OCT 01206 # PINBALL WAITING LINE FULL.
011661,003309:
011662,003310: 04,3534 ENDPINS1 EQUALS
011663,003311:
011664,003312: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
011665,003313: # OFF THE CAUTION AND STATUS LIGHTS.
011666,003314:
011667,003315: 05,3414 SETLOC DSPMMEND +1
011668,003316:
011669,003317: 05,3414 00004 VBTSTLTS INHINT
011670,003318: 05,3415 47652 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
011671,003319: 05,3416 70362 MASK IMODES33 # TURN OUT ANY LAMPS.
011672,003320: 05,3417 67652 AD BIT1
011673,003321: 05,3420 54362 TS IMODES33
011674,003322:
011675,003323: 05,3421 33457 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
011676,003324: 05,3422 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
011677,003325: 05,3423 05011 WOR DSALMOUT
011678,003326: 05,3424 33460 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
011679,003327: 05,3425 54322 TS DSPTAB +11D # PROG ALM.
011680,003328: 05,3426 37641 CAF BIT10 # TURN ON TEST ALARM OUTBIT
011681,003329: 05,3427 00006 EXTEND
011682,003330: 05,3430 05013 WOR CHAN13
011683,003331: 05,3431 37654 CAF TEN
011684,003332: 05,3432 54103 TSTLTS1 TS ERCNT
011685,003333: 05,3433 43455 CS FULLDSP
011686,003334: 05,3434 50103 INDEX ERCNT
011687,003335: 05,3435 54307 TS DSPTAB
011688,003336: 05,3436 10103 CCS ERCNT
011689,003337: 05,3437 03432 TC TSTLTS1
011690,003338: 05,3440 43456 CS FULLDSP1
011691,003339: 05,3441 54310 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
011692,003340: 05,3442 54313 TS DSPTAB +4
011693,003341: 05,3443 54315 TS DSPTAB +6
011694,003342: 05,3444 37653 CAF ELEVEN
011695,003343: 05,3445 54303 TS NOUT
011696,003344: 05,3446 00003 RELINT
011697,003345: 05,3447 33462 CAF SHOLTS
011698,003346: 05,3450 00004 INHINT
011699,003347: 05,3451 04451 TC WAITLIST
011700,003348: 05,3452 0307 EBANK= DSPTAB
011701,003349: 05,3452 03463 12000 2CADR TSTLTS2
011702,003350:
011703,003351: 05,3454 04353 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
011704,003352: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
011705,003353: # LIGHTS TEST WILL BE SEEN.
011706,003354:
011707,003355:
011708,003356:
011709,003357: 05,3455 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
011710,003358: 05,3456 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
011711,003359: 05,3457 00175 TSTCON1 OCT 00175
011712,003360: # UPLINK ACTIVITY, TEMP, KEY RLSE,
011713,003361: # V/N FLASH, OPERATOR ERROR.
011714,003362:
011715,003363: 05,3460 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
011716,003364: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
011717,003365: 05,3461 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
011718,003366: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
011719,003367: 05,3462 00764 SHOLTS OCT 764 # 5 SEC
011720,003368:
011721,003369:
011722,003370:
011723,003371: 05,3463 35464 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
011724,003372: 05,3464 04276 TC NOVAC
011725,003373: 05,3465 0307 EBANK= DSPTAB
011726,003374: 05,3465 03470 12000 2CADR TSTLTS3
011727,003375:
011728,003376: 05,3467 04505 TC TASKOVER
011729,003377:
011730,003378:
011731,003379:
011732,003380: 05,3470 43461 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
011733,003381: 05,3471 00004 INHINT
011734,003382: 05,3472 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
011735,003383: 05,3473 03011 WAND DSALMOUT # OPERATOR ERROR.
011736,003384: 05,3474 47641 CS BIT10 # TURN OFF TEST ALARM OUTBIT
011737,003385: 05,3475 00006 EXTEND
011738,003386: 05,3476 03013 WAND CHAN13
011739,003387: 05,3477 37634 CAF BIT15 # TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
011740,003388: 05,3500 54322 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
011741,003389: 05,3501 43515 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
011742,003390: 05,3502 70362 MASK IMODES33 # LIGHTS COMPLETE.
011743,003391: 05,3503 64430 AD PRIO16
011744,003392: 05,3504 54362 TS IMODES33
011745,003393:
011746,003394: 05,3505 43516 CS OCT55000
011747,003395: 05,3506 70361 MASK IMODES30
011748,003396: 05,3507 64427 AD PRIO15 # 15000.
011749,003397: 05,3510 54361 TS IMODES30
011750,003398:
011751,003399: 05,3511 00003 RELINT
011752,003400:
011753,003401: 05,3512 02001 TC DSPMM # REDISPLAY C(MODREG)
011754,003402: 05,3513 04103 TC POSTJUMP # TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
011755,003403: 05,3514 11311 CADR VBTERM # IF APPROPRIATE).
011756,003404: # TURN OFF V/N FLASH, SET LOADSTAT FOR
011757,003405: # FOR TERMINATE CONDITION, AND GO TO
011758,003406: # RECALTST. FINALLY DO TC ENDOFJOB.
011759,003407:
011760,003408: 05,3515 16001 13-11,1 OCT 16001
011761,003409: 05,3516 55000 OCT55000 OCT 55000
011762,003410: 05,3517 ENDPINS2 EQUALS
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc