Source Code
![]() |
YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS BY MSTEWART JUN. 28,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
010288,000002: ## Copyright: Public domain.
010289,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
010290,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
010291,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
010292,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
010293,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
010294,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
010295,000009: ## Validation.
010296,000010: ## Assembler: yaYUL
010297,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
010298,000012: ## Website: www.ibiblio.org/apollo/index.html
010299,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
010300,000014: ## 2017-01-04 MAS Pulled back PROCEED key functionality from Luminary 99.
010301,000015: ## 2017-01-28 RSB WTIH -> WITH.
010302,000016: ## 2017-02-08 RSB Comment-text fixes noted while proofing Artemis 72.
010303,000017: ## 2017-03-08 RSB Changed DSPOCTWO to DSPOCTWD.
010304,000018: ## 2017-03-08 RSB Comment-text fixes noted in proofing Luminary 116.
010305,000019: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
010306,000020: ## Luminary 99 vs Comanche 55.
010307,000021:
010308,000022: # KEYBOARD AND DISPLAY PROGRAM
010309,000023:
010310,000024:
010311,000025:
010312,000026: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
010313,000027:
010314,000028: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
010315,000029: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
010316,000030: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
010317,000031:
010318,000032: # HENRY 6, ACT 2, SCENE 4
![]() |
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009 |
010321,000035:
010322,000036:
010323,000037:
010324,000038: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
010325,000039:
010326,000040:
010327,000041:
010328,000042: # RESERVED FOR PINBALL EXECUTIVE ACTION
010329,000043:
010330,000044: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
010331,000045: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
010332,000046: # VERBREG ERASE VERB CODE
010333,000047: # NOUNREG ERASE NOUN CODE
010334,000048: # XREG ERASE R1 INPUT BUFFER
010335,000049: # YREG ERASE R2 INPUT BUFFER
010336,000050: # ZREG ERASE R3 INPUT BUFFER
010337,000051: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
010338,000052: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
010339,000053: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
010340,000054: # MODREG ERASE MODE CODE
010341,000055: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
010342,000056: # REQRET ERASE RETURN REGISTER FOR LOAD
010343,000057: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
010344,000058: # CLPASS ERASE PASS INDICATOR CLEAR
010345,000059: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
010346,000060: # NOUNCADR ERASE MACHINE CADR FOR NOUN
010347,000061: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
010348,000062: # MONSAVE1 ERASE NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
010349,000063: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
010350,000064: # CADRSTOR ERASE ENDIDLE STORAGE
010351,000065: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
010352,000066: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
010353,000067: # MUST = NVBNKTEM-1
010354,000068: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
010355,000069: # MUST = NVQTEM+1
010356,000070: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
010357,000071: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
010358,000072: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
010359,000073: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
010360,000074:
010361,000075:
010362,000076: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
010363,000077:
010364,000078:
010365,000079:
010366,000080: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
010367,000081:
010368,000082: # DSEXIT = INTB15+ RETURN FOR DSPIN
010369,000083: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
010370,000084: # BLANKRET = INTB15+ RETURN FOR 2BLANK
010371,000085:
010372,000086: # WRDRET = INTBIT15 RETURN FOR 5BLANK.
010373,000087: # WDRET = INTBIT15 RETURN FOR DSPWD
010374,000088: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
010375,000089: # 21/22REG = INTBIT15 TEMP FOR CHARIN
010376,000090:
010377,000091: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
010378,000092: # CHAR = POLISH TEMP FOR CHARIN
010379,000093: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
010380,000094: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
010381,000095:
010382,000096: # SGNON = VBUF TEMP FOR +,- ON
010383,000097: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
010384,000098: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
010385,000099: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
010386,000100:
010387,000101: # SGNOFF = VBUF +1 TEMP FOR +,- ON
010388,000102: # NVTEMP = VBUF +1 TEMP FOR NVSUB
010389,000103: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
010390,000104:
010391,000105: # CODE = VBUF +2 FOR DSPIN
010392,000106: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
010393,000107:
010394,000108: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
010395,000109: # SIGNRET = VBUF +3 RETURN FOR +,- ON
010396,000110:
010397,000111: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
010398,000112:
010399,000113: # ENTRET = DOTINC EXIT FROM ENTER
010400,000114:
010401,000115: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
010402,000116: # INREL = DOTRET INPUT BUFFER SELECTOR ( X, Y, Z, REG )
010403,000117:
010404,000118: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
010405,000119: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
010406,000120:
010407,000121: # TEM1 ERASE EXEC TEMP
010408,000122: # DSREL = TEM1 REL ADDRESS FOR DSPIN
010409,000123:
010410,000124: # TEM2 ERASE EXEC TEMP
010411,000125: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
010412,000126:
010413,000127: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
010414,000128:
010415,000129: # TEM3 ERASE EXEC TEMP
010416,000130: # COUNT = TEM3 FOR DSPIN
010417,000131:
010418,000132: # TEM4 ERASE EXEC TEMP
010419,000133: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
010420,000134: # RELRET = TEM4 RETURN FOR RELDSP
010421,000135: # FREERET = TEM4 RETURN FOR FREEDSP
010422,000136:
010423,000137: # TEM5 ERASE EXEC TEMP
010424,000138: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
010425,000139:
010426,000140: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
010427,000141: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
010428,000142: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010429,000143: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
010430,000144: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010431,000145: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
010432,000146: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
010433,000147: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
010434,000148: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
010435,000149: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
010436,000150:
010437,000151:
010438,000152:
010439,000153: # RESERVED FOR PINBALL INTERRUPT ACTION
010440,000154:
010441,000155: # DSPCNT ERASE COUNTER FOR DSPOUT
010442,000156: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
010443,000157: # RECEPTION OF A BAD MESSAGE IN UPLINK)
010444,000158: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
010445,000159:
010446,000160:
010447,000161:
010448,000162: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
010449,000163:
010450,000164: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
010451,000165: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
010452,000166: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
010453,000167: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
010454,000168:
010455,000169:
010456,000170: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
010457,000171: # 0 10000
010458,000172: # 1 00001
010459,000173: # 9 01001
010460,000174: # VERB 10001
010461,000175: # ERROR RES10010
010462,000176: # KEY RLSE 11001
010463,000177: # + 11010
010464,000178: # - 11011
010465,000179: # ENTER 11100
010466,000180: # CLEAR 11110
010467,000181: # NOUN 11111
010468,000182:
010469,000183:
010470,000184:
010471,000185: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
010472,000186: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
010473,000187: # ENERGIZED.
010474,000188: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
010475,000189: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
010476,000190: # D-S 5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
010477,000191:
010478,000192: # THE PANEL APPEARS AS FOLLOWS,
010479,000193: # MD1 MD2 (MAJOR MODE)
010480,000194: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
010481,000195: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
010482,000196: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
010483,000197: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
010484,000198:
010485,000199: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
010486,000200: # MD1 25 R2D1 11 ALL ARE OCTAL
010487,000201: # MD2 24 R2D2 10
010488,000202: # VD1 23 R2D3 7
010489,000203: # VD2 22 R2D4 6
010490,000204: # ND1 21 R2D5 5
010491,000205: # ND2 20 R3D1 4
010492,000206: # R1D1 16 R3D2 3
010493,000207: # R1D2 15 R3D3 2
010494,000208: # R1D3 14 R3D4 1
010495,000209: # R1D4 13 R3D5 0
010496,000210: # R1D5 12
010497,000211:
010498,000212:
010499,000213:
010500,000214: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
010501,000215:
010502,000216: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
010503,000217: # RELADD
010504,000218: # 10 1011 MD1 (25) MD2 (24)
010505,000219: # 9 1010 VD1 (23) VD2 (22)
010506,000220:
010507,000221: # 8 1001 ND1 (21) ND2 (20)
010508,000222: # 7 1000 R1D1 (16)
010509,000223: # 6 0111 +R1 R1D2 (15) R1D3 (14)
010510,000224: # 5 0110 -R1 R1D4 (13) R1D5 (12)
010511,000225: # 4 0101 +R2 R2D1 (11) R2D2 (10)
010512,000226: # 3 0100 -R2 R2D3 (7) R2D4 (6)
010513,000227: # 2 0011 R2D5 (5) R3D1 (4)
010514,000228: # 1 0010 +R3 R3D2 (3) R3D3 (2)
010515,000229: # 0 0001 -R3 R3D4 (1) R3D5 (0)
010516,000230: # 0000 NO RELAYWORD
010517,000231:
010518,000232:
010519,000233:
010520,000234: # THE 5 BIT RELAY CODES ARE,
010521,000235: # BLANK 00000
010522,000236: # 0 10101
010523,000237: # 1 00011
010524,000238: # 2 11001
010525,000239: # 3 11011
010526,000240: # 4 01111
010527,000241: # 5 11110
010528,000242: # 6 11100
010529,000243: # 7 10011
010530,000244: # 8 11101
010531,000245: # 9 11111
010532,000246:
010533,000247:
010534,000248: # START OF EXECUTIVE SECTION OF PINBALL
010535,000249:
010536,000250:
010537,000251:
010538,000252: 04,2000 SETLOC 20000
010539,000253:
010540,000254: 04,2000 03461 GRABUSYB TC GRABUSY1 # STANDARD LEAD INS. DONT MOVE.
010541,000255: 04,2001 03503 NVSUBSYB TC NVSUBSY1
010542,000256:
010543,000257: 04,2002 37671 CHARIN CAF ONE # BLOCK DISPLAY SYST
010544,000258: 04,2003 56277 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
010545,000259: 04,2004 54101 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
010546,000260: 04,2005 56140 XCH MPAC
010547,000261: 04,2006 54103 TS CHAR
010548,000262: 04,2007 50000 INDEX A
010549,000263: 04,2010 02011 TC +1 # INPUT CODE FUNCTION
010550,000264: 04,2011 03275 TC CHARALRM # 0
010551,000265: 04,2012 02062 TC NUM # 1
010552,000266: 04,2013 02062 TC NUM # 2
010553,000267: 04,2014 02062 TC NUM # 3
010554,000268: 04,2015 02062 TC NUM # 4
010555,000269: 04,2016 02062 TC NUM # 5
010556,000270: 04,2017 02062 TC NUM # 6
010557,000271: 04,2020 02062 TC NUM # 7
010558,000272: 04,2021 02053 TC 89TEST # 10 8
010559,000273: 04,2022 02053 TC 89TEST # 11 9
010560,000274: 04,2023 03275 TC CHARALRM # 12
010561,000275: 04,2024 03275 TC CHARALRM # 13
010562,000276: 04,2025 03275 TC CHARALRM # 14
010563,000277: 04,2026 03275 TC CHARALRM # 15
010564,000278: 04,2027 03275 TC CHARALRM # 16
010565,000279: 04,2030 03275 TC CHARALRM # 17
010566,000280: 04,2031 02060 TC NUM -2 # 20 0
010567,000281: 04,2032 02235 TC VERB # 21 VERB
010568,000282: 04,2033 02343 TC ERROR # 22 ERROR LIGHT RESET
010569,000283: 04,2034 03275 TC CHARALRM # 23
010570,000284: 04,2035 03275 TC CHARALRM # 24
010571,000285: 04,2036 03275 TC CHARALRM # 25
010572,000286: 04,2037 03275 TC CHARALRM # 26
010573,000287: 04,2040 03275 TC CHARALRM # 27
010574,000288: 04,2041 03275 TC CHARALRM # 30
010575,000289: 04,2042 03325 TC VBRELDSP # 31 KEY RELEASE
010576,000290: 04,2043 02267 TC POSGN # 32 +
010577,000291: 04,2044 02254 TC NEGSGN # 33 -
010578,000292: 04,2045 02051 TC ENTERJMP # 34 ENTER
010579,000293: 04,2046 03275 TC CHARALRM # 35
010580,000294: 04,2047 02431 TC CLEAR # 36 CLEAR
010581,000295: 04,2050 02250 TC NOUN # 37 NOUN
010582,000296:
010583,000297: 04,2051 04104 ENTERJMP TC POSTJUMP
010584,000298: 04,2052 12003 CADR ENTER
010585,000299:
010586,000300: 04,2053 36176 89TEST CAF THREE
010587,000301: 04,2054 70265 MASK DECBRNCH
010588,000302: 04,2055 10000 CCS A
010589,000303: 04,2056 02062 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
010590,000304: 04,2057 03275 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
010591,000305:
010592,000306:
010593,000307:
010594,000308: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
010595,000309: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
010596,000310: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
010597,000311: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
010598,000312: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
010599,000313: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
010600,000314:
010601,000315: 04,2060 37675 CAF ZERO
010602,000316: 04,2061 54103 TS CHAR
010603,000317: 04,2062 10264 NUM CCS DSPCOUNT
010604,000318: 04,2063 02067 TC +4 # +
010605,000319: 04,2064 02067 TC +3 # +0
010606,000320: 04,2065 02066 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
010607,000321: 04,2066 04422 TC ENDOFJOB # -0
010608,000322: 04,2067 02205 TC GETINREL
010609,000323: 04,2070 10302 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
010610,000324: 04,2071 37675 CAF ZERO
010611,000325: 04,2072 54302 TS CLPASS
010612,000326: 04,2073 02074 TC +1
010613,000327: 04,2074 50103 INDEX CHAR
010614,000328: 04,2075 34733 CAF RELTAB
010615,000329: 04,2076 75216 MASK LOW5
010616,000330: 04,2077 54110 TS CODE
010617,000331: 04,2100 30264 CA DSPCOUNT
010618,000332: 04,2101 54127 TS COUNT
010619,000333: 04,2102 03201 TC DSPIN
010620,000334: 04,2103 36176 CAF THREE
010621,000335: 04,2104 70265 MASK DECBRNCH
010622,000336: 04,2105 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
010623,000337: 04,2106 02117 TC DECTOBIN # +
010624,000338: 04,2107 50123 INDEX INREL # +0 OCTAL
010625,000339: 04,2110 56266 XCH VERBREG
010626,000340: 04,2111 54022 TS CYL
010627,000341: 04,2112 40022 CS CYL
010628,000342: 04,2113 40022 CS CYL
010629,000343: 04,2114 56022 XCH CYL
010630,000344: 04,2115 60103 AD CHAR
010631,000345: 04,2116 02134 TC ENDNMTST
010632,000346: 04,2117 50123 DECTOBIN INDEX INREL
010633,000347:
010634,000348:
010635,000349: 04,2120 56266 XCH VERBREG
010636,000350: 04,2121 54140 TS MPAC # SUM X 2EXP-14 IN MPAC
010637,000351: 04,2122 37675 CAF ZERO
010638,000352: 04,2123 54141 TS MPAC +1
010639,000353: 04,2124 35234 CAF TEN # 10 X 2EXP-14
010640,000354: 04,2125 07265 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
010641,000355: 04,2126 56141 XCH MPAC +1
010642,000356: 04,2127 60103 AD CHAR
010643,000357: 04,2130 54141 TS MPAC +1
010644,000358: 04,2131 02134 TC ENDNMTST # NO OF
010645,000359: 04,2132 26140 ADS MPAC # OF MUST BE 5TH CHAR
010646,000360: 04,2133 02152 TC DECEND
010647,000361: 04,2134 50123 ENDNMTST INDEX INREL
010648,000362: 04,2135 54266 TS VERBREG
010649,000363: 04,2136 40264 CS DSPCOUNT
010650,000364: 04,2137 50123 INDEX INREL
010651,000365: 04,2140 62176 AD CRITCON
010652,000366: 04,2141 00006 EXTEND
010653,000367: 04,2142 12144 BZF ENDNUM # -0, DSPCOUNT = CRITCON
010654,000368: 04,2143 02173 TC MORNUM # - , DSPCOUNT G/ CRITCON
010655,000369: 04,2144 36176 ENDNUM CAF THREE
010656,000370: 04,2145 70265 MASK DECBRNCH
010657,000371: 04,2146 10000 CCS A
010658,000372: 04,2147 02152 TC DECEND
010659,000373: 04,2150 40264 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
010660,000374: 04,2151 02174 TC MORNUM +1 # NEGATIVELY
010661,000375: 04,2152 07062 DECEND TC DMP # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
010662,000376: 04,2153 02203 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
010663,000377: 04,2154 36176 CAF THREE # IN MPAC, +1, +2.
010664,000378: 04,2155 70265 MASK DECBRNCH
010665,000379: 04,2156 50000 INDEX A
010666,000380: 04,2157 02157 TC +0
010667,000381: 04,2160 02164 TC +DECSGN
010668,000382: 04,2161 00006 EXTEND # - CASE
010669,000383: 04,2162 40142 DCS MPAC +1
010670,000384: 04,2163 52142 DXCH MPAC +1
010671,000385: 04,2164 56142 +DECSGN XCH MPAC +2
010672,000386: 04,2165 50123 INDEX INREL
010673,000387: 04,2166 54271 TS XREGLP -2
010674,000388: 04,2167 56141 XCH MPAC +1
010675,000389: 04,2170 50123 INDEX INREL
010676,000390: 04,2171 54266 TS VERBREG
010677,000391: 04,2172 02150 TC ENDALL
010678,000392: 04,2173 10264 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
010679,000393: 04,2174 54264 TS DSPCOUNT
010680,000394: 04,2175 04422 TC ENDOFJOB
010681,000395:
010682,000396: 04,2176 00022 CRITCON OCT 22 # (DEC 18)
010683,000397: 04,2177 00020 OCT 20 # (DEC 16)
010684,000398: 04,2200 00012 OCT 12 # (DEC 10)
010685,000399:
010686,000400: 04,2201 00005 OCT 5
010687,000401: 04,2202 00000 OCT 0
010688,000402:
010689,000403: 04,2203 05174 13261 DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
010690,000404:
010691,000405:
010692,000406: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
010693,000407: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
010694,000408:
010695,000409: 04,2205 50264 GETINREL INDEX DSPCOUNT
010696,000410: 04,2206 32211 CAF INRELTAB
010697,000411: 04,2207 54123 TS INREL # (A TEMP, REG)
010698,000412: 04,2210 00002 TC Q
010699,000413:
010700,000414: 04,2211 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
010701,000415: 04,2212 00004 OCT 4 # R3D4 =(1)
010702,000416: 04,2213 00004 OCT 4 # R3D3 =(2)
010703,000417: 04,2214 00004 OCT 4 # R3D2 =(3)
010704,000418: 04,2215 00004 OCT 4 # R3D1 =(4)
010705,000419: 04,2216 00003 OCT 3 # R2D5 =(5)
010706,000420: 04,2217 00003 OCT 3 # R2D4 =(6)
010707,000421: 04,2220 00003 OCT 3 # R2D3 =(7)
010708,000422: 04,2221 00003 OCT 3 # R2D2 =(8D)
010709,000423: 04,2222 00003 OCT 3 # R2D1 =(9D)
010710,000424: 04,2223 00002 OCT 2 # R1D5 =(10D)
010711,000425: 04,2224 00002 OCT 2 # R1D4 =(11D)
010712,000426: 04,2225 00002 OCT 2 # R1D3 =(12D)
010713,000427: 04,2226 00002 OCT 2 # R1D2 =(13D)
010714,000428: 04,2227 00002 OCT 2 # R1D1 =(14D)
010715,000429: 04,2230 05456 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
010716,000430: 04,2231 00001 OCT 1 # ND2 =(16D)
010717,000431: 04,2232 00001 OCT 1 # ND1 =(17D)
010718,000432: 04,2233 00000 OCT 0 # VD2 =(18D)
010719,000433: 04,2234 00000 OCT 0 # VD1 =(19D)
010720,000434:
010721,000435: 04,2235 37675 VERB CAF ZERO
010722,000436: 04,2236 54266 TS VERBREG
010723,000437: 04,2237 35231 CAF VD1
010724,000438: 04,2240 54264 NVCOM TS DSPCOUNT
010725,000439: 04,2241 02541 TC 2BLANK
010726,000440: 04,2242 37675 CAF ZERO
010727,000441: 04,2243 54265 TS DECBRNCH
010728,000442: 04,2244 54300 TS REQRET # SET FOR ENTPAS0
010729,000443: 04,2245 35142 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
010730,000444: 04,2246 54122 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
010731,000445: # TO TC ENDOFJOB
010732,000446: 04,2247 04422 TC ENDOFJOB
010733,000447:
010734,000448: 04,2250 37675 NOUN CAF ZERO
010735,000449: 04,2251 54267 TS NOUNREG
010736,000450: 04,2252 35232 CAF ND1 # ND1, OCT 21 (DEC 17)
010737,000451: 04,2253 02240 TC NVCOM
010738,000452:
010739,000453:
010740,000454:
010741,000455: 04,2254 02326 NEGSGN TC SIGNTEST
010742,000456: 04,2255 02313 TC -ON
010743,000457: 04,2256 37670 CAF TWO
010744,000458: 04,2257 50123 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
010745,000459: 04,2260 67663 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
010746,000460: 04,2261 26265 ADS DECBRNCH # BIT 3 FOR R3.
010747,000461: 04,2262 10302 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
010748,000462: 04,2263 37675 CAF ZERO
010749,000463: 04,2264 54302 TS CLPASS
010750,000464: 04,2265 02266 TC +1
010751,000465: 04,2266 04422 TC ENDOFJOB
010752,000466:
010753,000467: 04,2267 02326 POSGN TC SIGNTEST
010754,000468: 04,2270 02273 TC +ON
010755,000469: 04,2271 37671 CAF ONE
010756,000470: 04,2272 02257 TC BOTHSGN
010757,000471:
010758,000472: 04,2273 22002 +ON LXCH Q
010759,000473: 04,2274 02205 TC GETINREL
010760,000474: 04,2275 50123 INDEX INREL
010761,000475: 04,2276 32321 CAF SGNTAB -2
010762,000476: 04,2277 54107 TS SGNOFF
010763,000477: 04,2300 67671 AD ONE
010764,000478: 04,2301 54106 TS SGNON
010765,000479: 04,2302 37675 SGNCOM CAF ZERO
010766,000480: 04,2303 54110 TS CODE
010767,000481: 04,2304 56107 XCH SGNOFF
010768,000482: 04,2305 03263 TC 11DSPIN
010769,000483: 04,2306 37657 CAF BIT11
010770,000484: 04,2307 54110 TS CODE
010771,000485: 04,2310 56106 XCH SGNON
010772,000486: 04,2311 03263 TC 11DSPIN
010773,000487: 04,2312 00001 TC L
010774,000488: 04,2313 22002 -ON LXCH Q
010775,000489: 04,2314 02205 TC GETINREL
010776,000490: 04,2315 50123 INDEX INREL
010777,000491: 04,2316 32321 CAF SGNTAB -2
010778,000492: 04,2317 54106 TS SGNON
010779,000493: 04,2320 67671 AD ONE
010780,000494: 04,2321 54107 TS SGNOFF
010781,000495: 04,2322 02302 TC SGNCOM
010782,000496:
010783,000497: 04,2323 00005 SGNTAB OCT 5 # -R1
010784,000498:
010785,000499: 04,2324 00003 OCT 3 # -R2
010786,000500: 04,2325 00000 OCT 0 # -R3
010787,000501:
010788,000502:
010789,000503:
010790,000504: 04,2326 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
010791,000505: 04,2327 45167 CS R1D1 # R2D1, OR R3D1.
010792,000506: 04,2330 02336 TC SGNTST1
010793,000507: 04,2331 45170 CS R2D1
010794,000508: 04,2332 02336 TC SGNTST1
010795,000509: 04,2333 45171 CS R3D1
010796,000510: 04,2334 02336 TC SGNTST1
010797,000511: 04,2335 04422 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
010798,000512: 04,2336 60264 SGNTST1 AD DSPCOUNT
010799,000513: 04,2337 00006 EXTEND
010800,000514: 04,2340 12342 BZF +2 # MATCH FOUND
010801,000515: 04,2341 00002 TC Q
010802,000516: 04,2342 00001 TC L # SIGN LEGAL
010803,000517:
010804,000518:
010805,000519:
010806,000520: # ERROR LIGHT RESET (RSET) TURNS OFF,
010807,000521: # UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
010808,000522: # PROG ALM, TRACKER FAIL.
010809,000523: # LEAVES GIMBAL LOCK ALONE.
010810,000524: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
010811,000525: # IT ALSO SETS :CAUTION RESET: TO 1.
010812,000526: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
010813,000527:
010814,000528: 04,2343 56101 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
010815,000529: 04,2344 54277 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
010816,000530: 04,2345 00004 INHINT
010817,000531: 04,2346 37660 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
010818,000532: 04,2347 00006 EXTEND
010819,000533: 04,2350 05011 WOR DSALMOUT # BIT10 CHAN 11
010820,000534: 04,2351 37664 CAF BIT6 # LEAVE GIMBAL LOCK LAMP INTACT,
010821,000535: 04,2352 70322 MASK DSPTAB +11D # TURNING OFF, AUTO, HOLD, FREE, NO ATT.,
010822,000536: 04,2353 67653 AD BIT15 # PROG ALARM, AND TRACKER.
010823,000537: 04,2354 54322 TS DSPTAB +11D
010824,000538: 04,2355 44476 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
010825,000539: 04,2356 70370 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
010826,000540: 04,2357 64476 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
010827,000541: 04,2360 54370 TS IMODES33
010828,000542: 04,2361 47660 CS BIT10
010829,000543: 04,2362 70367 MASK IMODES30
010830,000544: 04,2363 67660 AD BIT10
010831,000545: 04,2364 54367 TS IMODES30
010832,000546:
010833,000547: 04,2365 42427 CS RFAILS
010834,000548: 04,2366 70413 MASK RADMODES
010835,000549:
010836,000550:
010837,000551: 04,2367 67663 AD BIT7
010838,000552: 04,2370 54413 TS RADMODES
010839,000553:
010840,000554: 04,2371 47660 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
010841,000555: 04,2372 00006 EXTEND
010842,000556: 04,2373 03013 WAND CHAN13
010843,000557: 04,2374 42426 CS ERCON # TURN OFF UPLINK ACTIVITY,
010844,000558: 04,2375 00006 EXTEND # OPERATOR ERROR.
010845,000559: 04,2376 03011 WAND DSALMOUT
010846,000560: 04,2377 35234 TSTAB CAF BINCON # (DEC 10)
010847,000561: 04,2400 54103 TS ERCNT # ERCNT = COUNT
010848,000562: 04,2401 00004 INHINT
010849,000563: 04,2402 50103 INDEX ERCNT
010850,000564: 04,2403 10307 CCS DSPTAB
010851,000565: 04,2404 67671 AD ONE
010852,000566: 04,2405 02412 TC ERPLUS
010853,000567: 04,2406 67671 AD ONE
010854,000568: 04,2407 40000 ERMINUS CS A
010855,000569: 04,2410 72430 MASK NOTBIT12
010856,000570: 04,2411 02415 TC ERCOM
010857,000571: 04,2412 40000 ERPLUS CS A
010858,000572: 04,2413 72430 MASK NOTBIT12
010859,000573: 04,2414 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
010860,000574: 04,2415 50103 ERCOM INDEX ERCNT # ETC.
010861,000575: 04,2416 54307 TS DSPTAB
010862,000576: 04,2417 00003 RELINT
010863,000577: 04,2420 10103 CCS ERCNT
010864,000578: 04,2421 02400 TC TSTAB +1
010865,000579: 04,2422 37675 CAF ZERO
010866,000580: 04,2423 55363 TS FAILREG
010867,000581: 04,2424 55364 TS SFAIL
010868,000582: 04,2425 04422 TC ENDOFJOB
010869,000583:
010870,000584: 04,2426 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
010871,000585: # UPLINK ACTIVITY, AND OPERATOR ERROR.
010872,000586: 04,2427 00330 RFAILS OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
010873,000587: 04,2430 73777 NOTBIT12 OCT 73777
010874,000588:
010875,000589:
010876,000590:
010877,000591: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
010878,000592: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
010879,000593: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
010880,000594:
010881,000595: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
010882,000596: # APPROPRIATE TO BE CLEARED.
010883,000597:
010884,000598: # CLPASS +0 PASS0, CAN BE BACKED UP
010885,000599: # +NZ HIPASS, CAN BE BACKED UP
010886,000600: # -NZ PASS0, CANNOT BE BACKED UP
010887,000601:
010888,000602:
010889,000603: 04,2431 10264 CLEAR CCS DSPCOUNT
010890,000604: 04,2432 67671 AD ONE
010891,000605: 04,2433 02435 TC +2
010892,000606: 04,2434 67671 AD ONE
010893,000607: 04,2435 54264 TS DSPCOUNT # MAG OF DSPCOUNT
010894,000608: 04,2436 02205 TC GETINREL # MUST SET INREL, EVEN FOR HIPASS
010895,000609: 04,2437 10302 CCS CLPASS
010896,000610: 04,2440 02446 TC CLPASHI # +
010897,000611: 04,2441 02443 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
010898,000612: 04,2442 02443 TC +1 # -
010899,000613: 04,2443 30123 CA INREL
010900,000614: 04,2444 02470 TC LEGALTST
010901,000615: 04,2445 02463 TC CLEAR1
010902,000616: 04,2446 10123 CLPASHI CCS INREL
010903,000617: 04,2447 54123 TS INREL
010904,000618: 04,2450 02470 TC LEGALTST
010905,000619: 04,2451 32537 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
010906,000620: 04,2452 26300 ADS REQRET
010907,000621: 04,2453 30123 CA INREL
010908,000622: 04,2454 54111 TS MIXTEMP # TEMP STORAGE FOR INREL
010909,000623: 04,2455 00006 EXTEND
010910,000624: 04,2456 26266 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
010911,000625: 04,2457 04065 TC BANKCALL
010912,000626: 04,2460 12315 CADR UPDATVB
010913,000627: 04,2461 30111 CA MIXTEMP
010914,000628: 04,2462 54123 TS INREL # RESTORE INREL
010915,000629: 04,2463 02466 CLEAR1 TC CLR5
010916,000630: 04,2464 24302 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
010917,000631: 04,2465 04422 TC ENDOFJOB # SET FOR HIGHER PASS.
010918,000632: 04,2466 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
010919,000633: 04,2467 02500 TC 5BLANK +2
010920,000634: 04,2470 67700 LEGALTST AD NEG2
010921,000635: 04,2471 10000 CCS A
010922,000636: 04,2472 00002 TC Q # LEGAL INREL G/ 2
010923,000637: 04,2473 05456 TC CCSHOLE
010924,000638: 04,2474 04422 TC ENDOFJOB # ILLEGAL INREL= 0,1
010925,000639: 04,2475 00002 TC Q # LEGAL INREL = 2
010926,000640:
010927,000641:
010928,000642:
010929,000643: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
010930,000644: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
010931,000645: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
010932,000646:
010933,000647: 04,2476 22002 5BLANK LXCH Q
010934,000648: 04,2477 02205 TC GETINREL
010935,000649: 04,2500 37675 CAF ZERO
010936,000650: 04,2501 50123 INDEX INREL
010937,000651: 04,2502 54266 TS VERBREG # ZERO X, Y, Z REG.
010938,000652: 04,2503 50123 INDEX INREL
010939,000653:
010940,000654:
010941,000655: 04,2504 54271 TS XREGLP -2
010942,000656: 04,2505 54110 TS CODE
010943,000657: 04,2506 50123 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
010944,000658: 04,2507 47663 CS BIT7 # PROTECT OTHERS
010945,000659: 04,2510 70265 MASK DECBRNCH
010946,000660: 04,2511 72540 MASK BRNCHCON # ZERO LOW 2 BITS.
010947,000661: 04,2512 54265 TS DECBRNCH
010948,000662: 04,2513 50123 INDEX INREL
010949,000663: 04,2514 32530 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
010950,000664: 04,2515 54127 TS COUNT
010951,000665: 04,2516 03201 TC DSPIN
010952,000666: 04,2517 50123 5BLANK1 INDEX INREL
010953,000667: 04,2520 32533 CAF DOUBLK -2
010954,000668: 04,2521 54264 TS DSPCOUNT
010955,000669: 04,2522 02541 TC 2BLANK
010956,000670: 04,2523 47670 CS TWO
010957,000671: 04,2524 26264 ADS DSPCOUNT
010958,000672: 04,2525 02541 TC 2BLANK
010959,000673: 04,2526 50123 INDEX INREL
010960,000674: 04,2527 35165 CAF R1D1 -2
010961,000675: 04,2530 54264 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
010962,000676: 04,2531 00001 TC L # OF REG. JUST BLANKED
010963,000677:
010964,000678: 04,2532 00016 SINBLANK OCT 16 # DEC 14
010965,000679: 04,2533 00005 OCT 5
010966,000680: 04,2534 00004 OCT 4
010967,000681: 04,2535 00015 DOUBLK OCT 15 # DEC 13
010968,000682: 04,2536 00011 OCT 11 # DEC 9
010969,000683: 04,2537 00003 OCT 3
010970,000684:
010971,000685: 04,2540 77774 BRNCHCON OCT 77774
010972,000686:
010973,000687: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
010974,000688: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
010975,000689:
010976,000690: 04,2541 30264 2BLANK CA DSPCOUNT
010977,000691: 04,2542 54021 TS SR
010978,000692: 04,2543 42554 CS BLANKCON
010979,000693: 04,2544 00004 INHINT
010980,000694: 04,2545 50021 INDEX SR
010981,000695: 04,2546 56307 XCH DSPTAB
010982,000696: 04,2547 00006 EXTEND
010983,000697: 04,2550 62552 BZMF +2 # IF OLD CONTENTS -, NOUT OK
010984,000698: 04,2551 24303 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
010985,000699: 04,2552 00003 RELINT # IF -, NOUT OK
010986,000700: 04,2553 00002 TC Q
010987,000701: 04,2554 04000 BLANKCON OCT 4000
010988,000702:
010989,000703:
010990,000704: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
010991,000705: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
010992,000706: # PASSES.
010993,000707:
010994,000708:
010995,000709:
010996,000710: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
010997,000711: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
010998,000712: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
010999,000713:
011000,000714:
011001,000715:
011002,000716: 05,2000 SETLOC 22000
011003,000717:
011004,000718: 05,2000 03344 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
011005,000719: 05,2001 13403 DSPMM TCF DSPMM1
011006,000720: 05,2002 02663 LOADLV1 TC LOADLV
011007,000721: # END OF STANDARD LEAD INS.
011008,000722:
011009,000723:
011010,000724:
011011,000725: 05,2003 37675 ENTER CAF ZERO
011012,000726: 05,2004 54302 TS CLPASS
011013,000727: 05,2005 35142 CAF ENDINST
011014,000728: 05,2006 54122 TS ENTRET
011015,000729: 05,2007 10300 CCS REQRET
011016,000730: 05,2010 02031 TC ENTPAS0 # IF +, PASS 0
011017,000731: 05,2011 02031 TC ENTPAS0 # IF +, PASS 0
011018,000732: 05,2012 02013 TC +1 # IF -, NOT PASS 0
011019,000733: 05,2013 36176 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN,
011020,000734: 05,2014 70265 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
011021,000735: 05,2015 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
011022,000736: 05,2016 02020 TC +2 # CHARACTERS AND CONTINUE.
011023,000737: 05,2017 02024 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
011024,000738: 05,2020 10264 CCS DSPCOUNT
011025,000739: 05,2021 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011026,000740: 05,2022 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011027,000741: 05,2023 02024 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
011028,000742: 05,2024 40300 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
011029,000743: 05,2025 54300 TS REQRET # SET REQRET +.
011030,000744: 05,2026 05272 TC FLASHOFF
011031,000745: 05,2027 00300 TC REQRET
011032,000746:
011033,000747: 05,2030 0122 ENTEXIT = ENTRET
011034,000748:
011035,000749: 05,2030 00030 LOWVERB OCT 30 # LOWER VERB THAT AVOIDS NOUN TEST
011036,000750:
011037,000751: 05,2031 37675 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
011038,000752: 05,2032 54265 TS DECBRNCH
011039,000753: 05,2033 40266 TESTVB CS VERBREG # IF VERB IS 30-77, SKIP NOUN TEST
011040,000754:
011041,000755:
011042,000756: 05,2034 62030 AD LOWVERB # 30-VB
011043,000757: 05,2035 00006 EXTEND
011044,000758: 05,2036 62116 BZMF VERBFAN # VERB G/ E 30
011045,000759: 05,2037 00006 TESTNN EXTEND # VERB L/ 30
011046,000760: 05,2040 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011047,000761: 05,2041 52006 DXCH Z # ROUTINE.
011048,000762: 05,2042 50124 INDEX MIXBR
011049,000763: 05,2043 02043 TC +0
011050,000764: 05,2044 02046 TC +2 # NORMAL
011051,000765: 05,2045 02176 TC MIXNOUN # MIXED
011052,000766: 05,2046 10132 CCS NNADTEM # NORMAL
011053,000767: 05,2047 02114 TC VERBFAN -2 # NORMAL IF +
011054,000768: 05,2050 02324 TC GODSPALM # NOT IN USE IF +0
011055,000769: 05,2051 02055 TC REQADD # SPECIFY MACHINE CADR IF -
011056,000770: 05,2052 24304 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
011057,000771: 05,2053 05161 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
011058,000772: 05,2054 02102 TC INTMCTBS +2
011059,000773: 05,2055 37653 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
011060,000774: 05,2056 54302 TS CLPASS
011061,000775: 05,2057 45142 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
011062,000776: 05,2060 60122 AD ENTEXIT # FROM EXTERNAL
011063,000777: 05,2061 00006 EXTEND
011064,000778: 05,2062 12064 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
011065,000779: 05,2063 02100 TC INTMCTBS
011066,000780: 05,2064 02256 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
011067,000781: 05,2065 10265 CCS DECBRNCH
011068,000782: 05,2066 02324 TC GODSPALM # ALARM IF DECIMAL USED FOR MCTBS
011069,000783: 05,2067 56272 XCH ZREG # OCTAL USED OK
011070,000784: 05,2070 05153 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
011071,000785: 05,2071 00006 EXTEND
011072,000786: 05,2072 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011073,000787: 05,2073 52006 DXCH Z # ROUTINE.
011074,000788: 05,2074 02116 TC VERBFAN
011075,000789:
011076,000790: 05,2075 0264 EBANK= DSPCOUNT
011077,000791: 05,2075 02000 34000 LODNNLOC 2CADR LODNNTAB
011078,000792:
011079,000793: 05,2077 77772 NEG5 OCT 77772
011080,000794:
011081,000795: 05,2100 30142 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
011082,000796: 05,2101 05153 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
011083,000797: 05,2102 47666 CS BIT4 # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
011084,000798: 05,2103 70266 MASK VERBREG # CADR TO BE SPECIFIED.
011085,000799: 05,2104 62077 AD NEG5 # MASKING MAKES VB15 LOOK LIKE VB05.
011086,000800: 05,2105 00006 EXTEND
011087,000801: 05,2106 12116 BZF VERBFAN # VB = 05 OR 15, DO NOT DISPLAY CADR.
011088,000802: 05,2107 35171 CAF R3D1 # VB NOT = 05 OR 15, DISPLAY CADR.
011089,000803: 05,2110 54264 TS DSPCOUNT
011090,000804: 05,2111 30304 CA NOUNCADR
011091,000805: 05,2112 03222 TC DSPOCTWD
011092,000806:
011093,000807:
011094,000808: 05,2113 02116 TC VERBFAN
011095,000809:
011096,000810: 05,2114 67671 AD ONE
011097,000811: 05,2115 05153 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011098,000812: 05,2116 42131 VERBFAN CS LST2CON
011099,000813: 05,2117 60266 AD VERBREG # VERB-LST2CON
011100,000814: 05,2120 10000 CCS A
011101,000815: 05,2121 67671 AD ONE # VERB G/ LST2CON
011102,000816: 05,2122 02124 TC +2
011103,000817: 05,2123 02133 TC VBFANDIR # VERB L/ LST2CON
011104,000818: 05,2124 54140 TS MPAC
011105,000819: 05,2125 05333 TC RELDSP # RELEASE DISPLAY SYST
011106,000820: 05,2126 56140 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
011107,000821: 05,2127 62132 AD LST2CADR
011108,000822: 05,2130 04107 TC BANKJUMP
011109,000823: 05,2131 00040 LST2CON OCT 40 # FIRST LST2 VERB
011110,000824: 05,2132 22000 LST2CADR CADR LST2FAN
011111,000825:
011112,000826: 05,2133 50266 VBFANDIR INDEX VERBREG
011113,000827: 05,2134 32136 CAF VERBTAB
011114,000828: 05,2135 04107 TC BANKJUMP
011115,000829:
011116,000830: 05,2136 12324 VERBTAB CADR GODSPALM # VB00 ILLEGAL
011117,000831: 05,2137 12340 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
011118,000832: 05,2140 12345 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
011119,000833: 05,2141 12352 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
011120,000834: 05,2142 12333 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
011121,000835: 05,2143 12326 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
011122,000836: 05,2144 12445 CADR DECDSP # VB06 DECIMAL DISPLAY
011123,000837: 05,2145 10704 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
011124,000838: 05,2146 11277 CADR DSPALARM # VB10 SPARE
011125,000839: 05,2147 13077 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
011126,000840: 05,2150 13077 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
011127,000841: 05,2151 13077 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
011128,000842: 05,2152 13077 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
011129,000843: 05,2153 13077 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
011130,000844: 05,2154 13077 CADR MONITOR # VB16 MONITOR DECIMAL
011131,000845: 05,2155 13077 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
011132,000846: 05,2156 12324 CADR GODSPALM # VB20 SPARE
011133,000847: 05,2157 12620 CADR ALOAD # VB21 LOAD COMP 1 (R1)
011134,000848: 05,2160 12631 CADR BLOAD # VB22 LOAD COMP 2 (R2)
011135,000849: 05,2161 12646 CADR CLOAD # VB23 LOAD COMP 3 (R3)
011136,000850: 05,2162 12572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
011137,000851: 05,2163 12535 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
011138,000852: 05,2164 12324 CADR GODSPALM # VB26 SPARE
011139,000853: 05,2165 13214 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
011140,000854: # THE FOLLOWING VERBS MAKE NO NOUN TEST
011141,000855: 05,2166 13314 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
011142,000856: 05,2167 13340 CADR VBRQWAIT # VB31 REQUEST WAITLIST
011143,000857: 05,2170 11332 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
011144,000858:
011145,000859:
011146,000860: 05,2171 11310 CADR VBPROC # VB33 PROCEED WITHOUT DATA
011147,000861: 05,2172 11315 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
011148,000862: 05,2173 13414 CADR VBTSTLTS # VB35 TEST LIGHTS
011149,000863: 05,2174 24000 CADR SLAP1 # VB36 FRESH START
011150,000864: 05,2175 13267 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
011151,000865:
011152,000866:
011153,000867:
011154,000868: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
011155,000869:
011156,000870:
011157,000871:
011158,000872: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
011159,000873: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
011160,000874: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
011161,000875: # MIXTEMP.
011162,000876:
011163,000877: 05,2176 10132 MIXNOUN CCS NNADTEM
011164,000878: 05,2177 02203 TC +4 # + IN USE
011165,000879: 05,2200 02324 TC GODSPALM # +0 NOT IN USE
011166,000880: 05,2201 02203 TC +2 # - IN USE
011167,000881: 05,2202 02203 TC +1 # -0 IN USE
011168,000882: 05,2203 46173 CS SIX
011169,000883: 05,2204 60266 AD VERBREG
011170,000884: 05,2205 00006 EXTEND
011171,000885: 05,2206 62210 BZMF +2 # VERB L/E 6
011172,000886: 05,2207 02116 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
011173,000887: 05,2210 37670 CAF TWO
011174,000888: 05,2211 54103 MIXNN1 TS DECOUNT
011175,000889: 05,2212 62235 AD MIXAD
011176,000890: 05,2213 54131 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
011177,000891: 05,2214 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
011178,000892: 05,2215 30134 CA IDAD1TEM # OF NOUN.
011179,000893: 05,2216 54106 TS NOUNTEM
011180,000894: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
011181,000895: # MINOR PART ONLY.
011182,000896: 05,2217 02721 TC SFRUTMIX # GET SF ROUT NUMBER IN A
011183,000897: 05,2220 02236 TC DPTEST
011184,000898: 05,2221 02223 TC MIXNN2 # NO DP
011185,000899: 05,2222 24106 INCR NOUNTEM # DP GET MINOR PART
011186,000900: 05,2223 30106 MIXNN2 CA NOUNTEM
011187,000901: 05,2224 75226 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
011188,000902: 05,2225 05163 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
011189,000903: 05,2226 50000 INDEX A # PICK UP C(ESUBK) NOT DP
011190,000904: 05,2227 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
011191,000905: 05,2230 50131 INDEX NOUNADD
011192,000906: 05,2231 56000 XCH 0 # STORE IN MIXTEM + K
011193,000907: 05,2232 10103 CCS DECOUNT
011194,000908: 05,2233 02211 TC MIXNN1
011195,000909: 05,2234 02116 TC VERBFAN
011196,000910:
011197,000911: 05,2235 00111 MIXAD TC MIXTEMP
011198,000912:
011199,000913:
011200,000914:
011201,000915: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
011202,000916: # RETURNS TO L+1 IF NO DP.
011203,000917: # RETURNS TO L+2 IF DP.
011204,000918:
011205,000919: 05,2236 50000 DPTEST INDEX A
011206,000920: 05,2237 12240 TCF +1
011207,000921: 05,2240 00002 TC Q # OCTAL ONLY NO DP
011208,000922:
011209,000923:
011210,000924: 05,2241 00002 TC Q # FRACT NO DP
011211,000925: 05,2242 00002 TC Q # DEG NO DP
011212,000926: 05,2243 00002 TC Q # ARITH NO DP
011213,000927: 05,2244 12250 TCF DPTEST1 # DP1OUT
011214,000928: 05,2245 12250 TCF DPTEST1 # DP2OUT
011215,000929: 05,2246 00002 TC Q # OPDEG NO DP
011216,000930: 05,2247 12250 TCF DPTEST1 # DP3OUT
011217,000931: 05,2250 50002 DPTEST1 INDEX Q
011218,000932: 05,2251 00001 TC 1 # RETURN TO L+2
011219,000933:
011220,000934:
011221,000935:
011222,000936: 05,2252 35167 REQDATX CAF R1D1
011223,000937: 05,2253 12257 TCF REQCOM
011224,000938: 05,2254 35170 REQDATY CAF R2D1
011225,000939: 05,2255 12257 TCF REQCOM
011226,000940: 05,2256 35171 REQDATZ CAF R3D1
011227,000941: 05,2257 54264 REQCOM TS DSPCOUNT
011228,000942: 05,2260 40002 CS Q
011229,000943: 05,2261 54300 TS REQRET
011230,000944: 05,2262 04065 TC BANKCALL
011231,000945: 05,2263 10476 CADR 5BLANK
011232,000946: 05,2264 05266 TC FLASHON
011233,000947: 05,2265 45142 CS ENDINST
011234,000948: 05,2266 60122 AD ENTEXIT
011235,000949: 05,2267 00006 EXTEND
011236,000950: 05,2270 12273 BZF ENDRQDAT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
011237,000951: 05,2271 47675 CS ZERO # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
011238,000952: 05,2272 54323 TS CADRSTOR # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
011239,000953: 05,2273 00122 ENDRQDAT TC ENTEXIT
011240,000954:
011241,000955: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
011242,000956: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
011243,000957:
011244,000958:
011245,000959: 05,2274 54267 TS NOUNREG
011246,000960: 05,2275 56002 UPDATNN XCH Q
011247,000961: 05,2276 54103 TS UPDATRET
011248,000962: 05,2277 00006 EXTEND
011249,000963: 05,2300 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011250,000964: 05,2301 52006 DXCH Z # ROUTINE.
011251,000965: 05,2302 10132 CCS NNADTEM
011252,000966: 05,2303 67671 AD ONE # NORMAL
011253,000967: 05,2304 12307 TCF PUTADD
011254,000968: 05,2305 12310 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
011255,000969: 05,2306 12310 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
011256,000970: 05,2307 05153 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011257,000971: 05,2310 35232 CAF ND1
011258,000972: 05,2311 54264 TS DSPCOUNT
011259,000973:
011260,000974:
011261,000975: 05,2312 30267 CA NOUNREG
011262,000976: 05,2313 12322 TCF UPDAT1
011263,000977:
011264,000978: 05,2314 54266 TS VERBREG
011265,000979: 05,2315 56002 UPDATVB XCH Q
011266,000980: 05,2316 54103 TS UPDATRET
011267,000981: 05,2317 35231 CAF VD1
011268,000982: 05,2320 54264 TS DSPCOUNT
011269,000983: 05,2321 30266 CA VERBREG
011270,000984: 05,2322 03255 UPDAT1 TC DSP2BIT
011271,000985: 05,2323 00103 TC UPDATRET
011272,000986:
011273,000987:
011274,000988:
011275,000989: 05,2324 04104 GODSPALM TC POSTJUMP
011276,000990: 05,2325 11277 CADR DSPALARM
011277,000991:
011278,000992:
011279,000993: # NOUN TABLES
011280,000994: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
011281,000995: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
011282,000996: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
011283,000997: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
011284,000998: # OF LAST MACHINE CADR SUPPLIED.
011285,000999:
011286,001000: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
011287,001001: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
011288,001002:
011289,001003: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
011290,001004:
011291,001005: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
011292,001006: # N-S ARE THE SF ROUTINE CODE NUMBER.
011293,001007: # P-S ARE THE SF CONSTANT CODE NUMBER.
011294,001008:
011295,001009: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
011296,001010: # N-S ARE THE SF CONSTANT2 CODE NUMBER
011297,001011: # P-S ARE THE SF CONSTANT1 CODE NUMBER
011298,001012: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
011299,001013: # P-S ARE THE SF CONSTANT1 CODE NUMBER
011300,001014: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
011301,001015:
011302,001016: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
011303,001017: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
011304,001018: # THE FIRST OF THESE ENTRIES.
011305,001019: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
011306,001020: # THEY ARE LISTED IN ORDER OF ASCENDING K.
011307,001021:
011308,001022: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
011309,001023: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
011310,001024: # QQQQQRRRRRSSSSS
011311,001025: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
011312,001026: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
011313,001027: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
011314,001028: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
011315,001029: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
011316,001030:
011317,001031: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
011318,001032: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
011319,001033: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
011320,001034: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
011321,001035: # AN UNCONTOLLED NUMBER OF COMPONENTS.
011322,001036:
011323,001037:
011324,001038:
011325,001039: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
011326,001040: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
011327,001041:
011328,001042:
011329,001043: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
011330,001044: # BEFORE EACH ENTER. IF NOT, ALARM.
011331,001045:
011332,001046:
011333,001047: # DISPLAY VERBS
011334,001048: 05,2326 47670 DSPABC CS TWO
011335,001049: 05,2327 02376 TC COMPTEST
011336,001050: 05,2330 50131 INDEX NOUNADD
011337,001051: 05,2331 40002 CS 2
011338,001052: 05,2332 56116 XCH BUF +2
011339,001053: 05,2333 47671 DSPAB CS ONE
011340,001054: 05,2334 02376 TC COMPTEST
011341,001055: 05,2335 50131 INDEX NOUNADD
011342,001056: 05,2336 40001 CS 1
011343,001057: 05,2337 56115 XCH BUF +1
011344,001058: 05,2340 02420 DSPA TC TSTFORDP
011345,001059: 05,2341 50131 INDEX NOUNADD
011346,001060: 05,2342 40000 CS 0
011347,001061: 05,2343 56114 DSPCOM1 XCH BUF
011348,001062: 05,2344 02357 TC DSPCOM2
011349,001063: 05,2345 47671 DSPB CS ONE
011350,001064: 05,2346 02376 TC COMPTEST
011351,001065: 05,2347 50131 INDEX NOUNADD
011352,001066: 05,2350 40001 CS 1
011353,001067: 05,2351 02343 TC DSPCOM1
011354,001068: 05,2352 47670 DSPC CS TWO
011355,001069: 05,2353 02376 TC COMPTEST
011356,001070: 05,2354 50131 INDEX NOUNADD
011357,001071: 05,2355 40002 CS 2
011358,001072: 05,2356 02343 TC DSPCOM1
011359,001073: 05,2357 47670 DSPCOM2 CS TWO # A B C AB ABC
011360,001074: 05,2360 60266 AD VERBREG # -1 -0 +1 +2 +3 IN A
011361,001075: 05,2361 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
011362,001076: 05,2362 02365 TC DSPCOM3
011363,001077: 05,2363 00122 TC ENTEXIT
011364,001078: 05,2364 02365 TC +1
011365,001079: 05,2365 54106 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
011366,001080: 05,2366 50000 INDEX A
011367,001081: 05,2367 35167 CAF R1D1
011368,001082: 05,2370 54264 TS DSPCOUNT
011369,001083: 05,2371 50106 INDEX DISTEM
011370,001084: 05,2372 40114 CS BUF
011371,001085: 05,2373 03222 TC DSPOCTWD
011372,001086: 05,2374 56106 XCH DISTEM
011373,001087: 05,2375 02361 TC DSPCOM2 +2
011374,001088:
011375,001089: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
011376,001090: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
011377,001091: # NOUN 01 IS EXCLUDED FROM TEST.
011378,001092: 05,2376 54107 COMPTEST TS SFTEMP1 # - VERB COMP
011379,001093: 05,2377 22002 LXCH Q
011380,001094: 05,2400 47671 COMPTST1 CS ONE
011381,001095: 05,2401 60267 AD NOUNREG
011382,001096: 05,2402 00006 EXTEND
011383,001097:
011384,001098:
011385,001099: 05,2403 12417 BZF NDCMPTST # NOUN = 01, ANY COMP OK
011386,001100: 05,2404 50124 INDEX MIXBR # NOUN NOT = 01.
011387,001101: 05,2405 32442 CAF COMPICK -1
011388,001102: 05,2406 50000 INDEX A
011389,001103: 05,2407 30000 CA 0
011390,001104: 05,2410 75220 MASK HI5
011391,001105: 05,2411 05201 TC LEFT5 # NOUN COMP
011392,001106: 05,2412 60107 AD SFTEMP1 # NOUN COMP - VERB COMP
011393,001107: 05,2413 10000 CCS A
011394,001108: 05,2414 00001 TC L # NOUN COMP G/ VERB COMP
011395,001109: 05,2415 05456 TC CCSHOLE
011396,001110: 05,2416 02324 TC GODSPALM # NOUN COMP L/ VERB COMP
011397,001111: 05,2417 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
011398,001112:
011399,001113:
011400,001114:
011401,001115: 05,2420 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
011402,001116: 05,2421 30132 CA NNADTEM
011403,001117: 05,2422 67671 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
011404,001118: 05,2423 00006 EXTEND
011405,001119: 05,2424 12436 BZF CHANDSP
011406,001120: 05,2425 50124 INDEX MIXBR
011407,001121: 05,2426 02426 TC +0
011408,001122: 05,2427 02431 TC +2 # NORMAL
011409,001123: 05,2430 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
011410,001124: 05,2431 02713 TC SFRUTNOR
011411,001125: 05,2432 02236 TC DPTEST
011412,001126: 05,2433 00001 TC L # NO DP
011413,001127: 05,2434 24131 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
011414,001128: 05,2435 00001 TC L
011415,001129:
011416,001130:
011417,001131:
011418,001132: 05,2436 00006 CHANDSP EXTEND
011419,001133: 05,2437 50304 INDEX NOUNCADR
011420,001134: 05,2440 00000 READ 0
011421,001135: 05,2441 40000 CS A
011422,001136: 05,2442 12343 TCF DSPCOM1
011423,001137:
011424,001138:
011425,001139:
011426,001140: 05,2443 00133 COMPICK ADRES NNTYPTEM
011427,001141: 05,2444 00132 ADRES NNADTEM
011428,001142:
011429,001143: 05,2445 50124 DECDSP INDEX MIXBR # NORMAL MIXED
011430,001144: 05,2446 32442 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
011431,001145: 05,2447 50000 INDEX A
011432,001146: 05,2450 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
011433,001147: 05,2451 75220 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
011434,001148: 05,2452 05201 TC LEFT5
011435,001149:
011436,001150:
011437,001151: 05,2453 54103 TS DECOUNT # COMP NUMBER INTO DECOUNT
011438,001152: 05,2454 54106 DSPDCGET TS DECTEM # PICKS UP DATA
011439,001153: 05,2455 60131 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
011440,001154: 05,2456 50000 INDEX A
011441,001155: 05,2457 40000 CS 0
011442,001156: 05,2460 50106 INDEX DECTEM
011443,001157: 05,2461 56270 XCH XREG # CANT USE BUF SINCE DMP USES IT.
011444,001158: 05,2462 10106 CCS DECTEM
011445,001159: 05,2463 02454 TC DSPDCGET # MORE TO GET
011446,001160: 05,2464 37675 DSPDCPUT CAF ZERO # DISPLAYS DATA
011447,001161: 05,2465 54141 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
011448,001162: 05,2466 54142 TS MPAC +2
011449,001163: 05,2467 50103 INDEX DECOUNT
011450,001164: 05,2470 35167 CAF R1D1
011451,001165: 05,2471 54264 TS DSPCOUNT
011452,001166: 05,2472 50103 INDEX DECOUNT
011453,001167: 05,2473 40270 CS XREG
011454,001168: 05,2474 54140 TS MPAC
011455,001169: 05,2475 02734 TC SFCONUM # 2X ( SF CON NUMB ) IN A
011456,001170: 05,2476 54107 TS SFTEMP1
011457,001171: 05,2477 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
011458,001172: 05,2500 32512 DCA GTSFOUTL # READING ROUTINE.
011459,001173: 05,2501 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
011460,001174: 05,2502 50124 INDEX MIXBR
011461,001175: 05,2503 02503 TC +0
011462,001176: 05,2504 02507 TC DSPSFNOR
011463,001177: 05,2505 02721 TC SFRUTMIX
011464,001178: 05,2506 02522 TC DECDSP3
011465,001179:
011466,001180: 05,2507 02713 DSPSFNOR TC SFRUTNOR
011467,001181: 05,2510 02522 TC DECDSP3
011468,001182:
011469,001183: 05,2511 0264 EBANK= DSPCOUNT
011470,001184: 05,2511 02037 34000 GTSFOUTL 2CADR GTSFOUT
011471,001185:
011472,001186: 05,2513 04065 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
011473,001187: 05,2514 11101 CADR DSPDECWD
011474,001188: 05,2515 10103 CCS DECOUNT
011475,001189: 05,2516 02520 TC +2
011476,001190: 05,2517 00122 TC ENTEXIT
011477,001191: 05,2520 54103 TS DECOUNT
011478,001192: 05,2521 02464 TC DSPDCPUT # MORE TO DISPLAY
011479,001193:
011480,001194: 05,2522 50000 DECDSP3 INDEX A
011481,001195: 05,2523 32525 CAF SFOUTABR
011482,001196: 05,2524 04107 TC BANKJUMP
011483,001197:
011484,001198:
011485,001199: 05,2525 11277 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
011486,001200: 05,2526 12513 CADR DSPDCEND
011487,001201: 05,2527 10555 CADR DEGOUTSF
011488,001202: 05,2530 10642 CADR ARTOUTSF
011489,001203: 05,2531 10647 CADR DP1OUTSF
011490,001204: 05,2532 10654 CADR DP2OUTSF
011491,001205: 05,2533 10563 CADR OPDEGOUT
011492,001206: 05,2534 10656 CADR DP3OUTSF
011493,001207: 05,2535 ENDRTOUT EQUALS
011494,001208:
011495,001209:
011496,001210:
011497,001211: # THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
011498,001212: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
011499,001213:
011500,001214:
011501,001215:
011502,001216: 04,2555 SETLOC BLANKCON +1
011503,001217:
011504,001218: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
011505,001219: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
011506,001220:
011507,001221: 04,2555 37675 DEGOUTSF CAF ZERO
011508,001222: 04,2556 54142 TS MPAC +2 # SET INDEX FOR FULL SCALE
011509,001223: 04,2557 02614 TC FIXRANGE
011510,001224: 04,2560 02562 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
011511,001225: 04,2561 02607 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
011512,001226: 04,2562 02625 TC DEGCOM
011513,001227:
011514,001228: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
011515,001229:
011516,001230: 04,2563 10140 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
011517,001231: 04,2564 56140 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
011518,001232: 04,2565 02570 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
011519,001233: 04,2566 02577 TC NEGOPT # IF NEG NON ZERO
011520,001234: 04,2567 67677 AD NEG1 # IF NEG ZERO SUBTRACT 1
011521,001235: 04,2570 62641 AD 20BIAS
011522,001236: 04,2571 54140 BIASCOM TS MPAC # TEST FOR OVERFLOW
011523,001237: 04,2572 02575 TC +3 # NO OVFLOW
011524,001238: 04,2573 37653 CAF BIT15 # IF OVFLOW
011525,001239: 04,2574 26140 ADS MPAC
011526,001240: 04,2575 37670 CAF TWO # SET MULTIPLIER TO .45
011527,001241: 04,2576 02556 TC DEGOUTSF +1
011528,001242:
011529,001243: 04,2577 56140 NEGOPT XCH MPAC # NEGATIVE CASE
011530,001244: 04,2600 62641 AD 20BIAS
011531,001245: 04,2601 10000 CCS A
011532,001246: 04,2602 02571 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
011533,001247: 04,2603 05456 TC CCSHOLE
011534,001248: 04,2604 67671 AD ONE # IF NEG RESTORE SUM
011535,001249:
011536,001250:
011537,001251: 04,2605 40000 COM # IF NEG 0 LEAVE NEG 0
011538,001252: 04,2606 02571 TC BIASCOM
011539,001253:
011540,001254: 04,2607 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
011541,001255: 04,2610 50142 INDEX MPAC +2 # DP AUGMENTER CONSTANT
011542,001256: 04,2611 32636 DCA DEGTAB
011543,001257: 04,2612 52110 DXCH SFTEMP1
011544,001258: 04,2613 00002 TC Q
011545,001259:
011546,001260: 04,2614 10140 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
011547,001261: 04,2615 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
011548,001262: 04,2616 00002 TC Q # MASKING OUT THE SIGN BIT
011549,001263: 04,2617 12620 TCF +1
011550,001264: 04,2620 47653 CS BIT15
011551,001265: 04,2621 70140 MASK MPAC
011552,001266: 04,2622 54140 TS MPAC
011553,001267: 04,2623 50002 INDEX Q
011554,001268: 04,2624 00001 TC 1
011555,001269:
011556,001270: 04,2625 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
011557,001271: 04,2626 50142 INDEX MPAC +2 # ADDS AUGMENTER.
011558,001272: 04,2627 32636 DCA DEGTAB
011559,001273: 04,2630 52141 DXCH MPAC # ADJUSTED ANGLE IN A
011560,001274: 04,2631 07265 TC SHORTMP
011561,001275: 04,2632 52110 DXCH SFTEMP1
011562,001276: 04,2633 20141 DAS MPAC
011563,001277: 04,2634 02645 TC SCOUTEND
011564,001278:
011565,001279: 04,2635 05605 DEGTAB OCT 05605 # HI PART OF .18
011566,001280: 04,2636 03656 OCT 03656 # LOW PART OF .18
011567,001281: 04,2637 16314 OCT 16314 # HI PART OF .45
011568,001282: 04,2640 31463 OCT 31463 # LO PART OF .45
011569,001283:
011570,001284: 04,2641 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
011571,001285:
011572,001286: 04,2642 52110 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
011573,001287: 04,2643 52141 DXCH MPAC
011574,001288: 04,2644 07265 TC SHORTMP
011575,001289: 04,2645 04104 SCOUTEND TC POSTJUMP
011576,001290: 04,2646 12513 CADR DSPDCEND
011577,001291:
011578,001292: 04,2647 02661 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
011579,001293: 04,2650 56142 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
011580,001294: 04,2651 56141 XCH MPAC +1 # BY B14.
011581,001295: 04,2652 54140 TS MPAC
011582,001296: 04,2653 02645 TC SCOUTEND
011583,001297:
011584,001298:
011585,001299: 04,2654 02661 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
011586,001300: 04,2655 02645 TC SCOUTEND
011587,001301:
011588,001302:
011589,001303:
011590,001304: 04,2656 02661 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011591,001305: 04,2657 03054 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
011592,001306: 04,2660 02645 TC SCOUTEND
011593,001307:
011594,001308:
011595,001309:
011596,001310: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
011597,001311: # THIS IS NEEDED FOR TIME DISPLAY.
011598,001312:
011599,001313: 04,2661 56002 DPOUT XCH Q
011600,001314: 04,2662 54105 TS OVFIND
011601,001315: 04,2663 50124 INDEX MIXBR
011602,001316: 04,2664 02664 TC +0
011603,001317: 04,2665 02702 TC DPOUTNOR
011604,001318: 04,2666 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
011605,001319: 04,2667 30134 CA IDAD1TEM # OF NOUN.
011606,001320: 04,2670 75226 MASK LOW11 # E SUBK
011607,001321: 04,2671 05163 TC SETEBANK # SET EB, LEAVE EADRES IN A.
011608,001322: 04,2672 00006 DPOUTCOM EXTEND
011609,001323: 04,2673 50000 INDEX A # MIXED NORMAL
011610,001324: 04,2674 30001 DCA 0 # C(ESUBK) C(E)
011611,001325: 04,2675 52141 DXCH MPAC # C((E SUBK)+1) C(E+1)
011612,001326: 04,2676 07234 TC TPAGREE
011613,001327: 04,2677 07062 TC DMP
011614,001328: 04,2700 00107 ADRES SFTEMP1
011615,001329: 04,2701 00105 TC OVFIND
011616,001330:
011617,001331: 04,2702 30131 DPOUTNOR CA NOUNADD # E
011618,001332: 04,2703 02672 TC DPOUTCOM
011619,001333:
011620,001334:
011621,001335:
011622,001336: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
011623,001337: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
011624,001338: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
011625,001339: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
011626,001340: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
011627,001341: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
011628,001342:
011629,001343:
011630,001344:
011631,001345: 04,2704 50124 DSPDPDEC INDEX MIXBR
011632,001346: 04,2705 02705 TC +0
011633,001347: 04,2706 02710 TC +2 # NORMAL NOUN
011634,001348: 04,2707 03277 TC DSPALARM
011635,001349:
011636,001350: 04,2710 00006 EXTEND
011637,001351: 04,2711 50131 INDEX NOUNADD
011638,001352: 04,2712 30001 DCA 0
011639,001353: 04,2713 52141 DXCH MPAC
011640,001354: 04,2714 35167 CAF R1D1
011641,001355: 04,2715 54264 TS DSPCOUNT
011642,001356: 04,2716 37675 CAF ZERO
011643,001357: 04,2717 54142 TS MPAC +2
011644,001358: 04,2720 07234 TC TPAGREE
011645,001359: 04,2721 03155 TC DSP2DEC
011646,001360: 04,2722 00122 ENDDPDEC TC ENTEXIT
011647,001361:
011648,001362: # LOAD VERBS
011649,001363:
011650,001364:
011651,001365:
011652,001366: 05,2535 SETLOC ENDRTOUT
011653,001367:
011654,001368: 05,2535 47670 ABCLOAD CS TWO
011655,001369: 05,2536 02376 TC COMPTEST
011656,001370: 05,2537 32673 CAF VBSP1LD
011657,001371: 05,2540 02314 TC UPDATVB -1
011658,001372: 05,2541 02252 TC REQDATX
011659,001373: 05,2542 32674 CAF VBSP2LD
011660,001374: 05,2543 02314 TC UPDATVB -1
011661,001375: 05,2544 02254 TC REQDATY
011662,001376: 05,2545 32675 CAF VBSP3LD
011663,001377: 05,2546 02314 TC UPDATVB -1
011664,001378: 05,2547 02256 TC REQDATZ
011665,001379:
011666,001380:
011667,001381:
011668,001382: 05,2550 46173 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
011669,001383: 05,2551 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
011670,001384: 05,2552 00006 EXTEND
011671,001385: 05,2553 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011672,001386: 05,2554 52006 DXCH Z # ROUTINE.
011673,001387: 05,2555 37675 CAF ZERO # X COMP
011674,001388: 05,2556 02762 TC PUTCOM
011675,001389: 05,2557 50131 INDEX NOUNADD
011676,001390: 05,2560 54000 TS 0
011677,001391: 05,2561 37671 CAF ONE # Y COMP
011678,001392: 05,2562 02762 TC PUTCOM
011679,001393: 05,2563 50131 INDEX NOUNADD
011680,001394: 05,2564 54001 TS 1
011681,001395: 05,2565 37670 CAF TWO # Z COMP
011682,001396: 05,2566 02762 TC PUTCOM
011683,001397: 05,2567 50131 INDEX NOUNADD
011684,001398: 05,2570 54002 TS 2
011685,001399: 05,2571 02663 TC LOADLV
011686,001400:
011687,001401: 05,2572 47671 ABLOAD CS ONE
011688,001402: 05,2573 02376 TC COMPTEST
011689,001403: 05,2574 32673 CAF VBSP1LD
011690,001404: 05,2575 02314 TC UPDATVB -1
011691,001405: 05,2576 02252 TC REQDATX
011692,001406: 05,2577 32674 CAF VBSP2LD
011693,001407: 05,2600 02314 TC UPDATVB -1
011694,001408: 05,2601 02254 TC REQDATY
011695,001409: 05,2602 47674 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
011696,001410: 05,2603 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
011697,001411: 05,2604 00006 EXTEND
011698,001412:
011699,001413: 05,2605 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011700,001414: 05,2606 52006 DXCH Z # ROUTINE.
011701,001415: 05,2607 37675 CAF ZERO # X COMP
011702,001416: 05,2610 02762 TC PUTCOM
011703,001417: 05,2611 50131 INDEX NOUNADD
011704,001418: 05,2612 54000 TS 0
011705,001419: 05,2613 37671 CAF ONE # Y COMP
011706,001420: 05,2614 02762 TC PUTCOM
011707,001421: 05,2615 50131 INDEX NOUNADD
011708,001422: 05,2616 54001 TS 1
011709,001423: 05,2617 02663 TC LOADLV
011710,001424:
011711,001425: 05,2620 02252 ALOAD TC REQDATX
011712,001426: 05,2621 00006 EXTEND
011713,001427: 05,2622 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011714,001428: 05,2623 52006 DXCH Z # ROUTINE.
011715,001429: 05,2624 37675 CAF ZERO # X COMP
011716,001430: 05,2625 02762 TC PUTCOM
011717,001431: 05,2626 50131 INDEX NOUNADD
011718,001432: 05,2627 54000 TS 0
011719,001433: 05,2630 02663 TC LOADLV
011720,001434:
011721,001435: 05,2631 47671 BLOAD CS ONE
011722,001436: 05,2632 02376 TC COMPTEST
011723,001437: 05,2633 37653 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
011724,001438: 05,2634 54302 TS CLPASS
011725,001439: 05,2635 02254 TC REQDATY
011726,001440: 05,2636 00006 EXTEND
011727,001441: 05,2637 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011728,001442: 05,2640 52006 DXCH Z # ROUTINE.
011729,001443: 05,2641 37671 CAF ONE
011730,001444: 05,2642 02762 TC PUTCOM
011731,001445: 05,2643 50131 INDEX NOUNADD
011732,001446: 05,2644 54001 TS 1
011733,001447: 05,2645 02663 TC LOADLV
011734,001448:
011735,001449: 05,2646 47670 CLOAD CS TWO
011736,001450: 05,2647 02376 TC COMPTEST
011737,001451: 05,2650 37653 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
011738,001452: 05,2651 54302 TS CLPASS
011739,001453: 05,2652 02256 TC REQDATZ
011740,001454: 05,2653 00006 EXTEND
011741,001455: 05,2654 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011742,001456: 05,2655 52006 DXCH Z # ROUTINE.
011743,001457: 05,2656 37670 CAF TWO
011744,001458: 05,2657 02762 TC PUTCOM
011745,001459: 05,2660 50131 INDEX NOUNADD
011746,001460: 05,2661 54002 TS 2
011747,001461: 05,2662 02663 TC LOADLV
011748,001462:
011749,001463: 05,2663 37675 LOADLV CAF ZERO
011750,001464: 05,2664 54265 TS DECBRNCH
011751,001465: 05,2665 47675 CS ZERO
011752,001466: 05,2666 54301 TS LOADSTAT
011753,001467: 05,2667 45231 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
011754,001468: 05,2670 54264 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
011755,001469: 05,2671 04104 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
011756,001470: 05,2672 11427 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
011757,001471:
011758,001472: 05,2673 00021 VBSP1LD OCT 21 # VB21 = ALOAD
011759,001473: 05,2674 00022 VBSP2LD OCT 22 # VB22 = BLOAD
011760,001474: 05,2675 00023 VBSP3LD OCT 23 # VB23 = CLOAD
011761,001475:
011762,001476:
011763,001477:
011764,001478: 05,2676 54103 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
011765,001479: 05,2677 40265 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
011766,001480: 05,2700 54021 TS SR
011767,001481: 05,2701 40021 CS SR
011768,001482: 05,2702 40021 CS SR # SHIFTED RIGHT 2
011769,001483: 05,2703 10000 CCS A # DEC COMP BITS IN LOW 3
011770,001484: 05,2704 12706 TCF +2 # SOME ONES IN LOW 3
011771,001485: 05,2705 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
011772,001486: 05,2706 60103 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
011773,001487: 05,2707 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
011774,001488: 05,2710 12712 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
011775,001489: 05,2711 02324 TC GODSPALM
011776,001490: 05,2712 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
011777,001491:
011778,001492:
011779,001493:
011780,001494: 05,2713 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
011781,001495: 05,2714 54100 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
011782,001496: 05,2715 35217 CAF MID5
011783,001497: 05,2716 70133 MASK NNTYPTEM
011784,001498: 05,2717 05172 TC RIGHT5
011785,001499: 05,2720 00100 TC EXITEM # SF ROUTINE NUMBER IN A
011786,001500:
011787,001501: 05,2721 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
011788,001502: 05,2722 54100 TS EXITEM
011789,001503: 05,2723 50103 INDEX DECOUNT
011790,001504: 05,2724 32753 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
011791,001505: 05,2725 54001 TS L
011792,001506: 05,2726 50103 INDEX DECOUNT
011793,001507: 05,2727 35216 CAF LOW5 # LOW5, MID5, OR HI5 IN A
011794,001508: 05,2730 70137 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
011795,001509: 05,2731 50001 INDEX L
011796,001510: 05,2732 00000 TC 0
011797,001511: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
011798,001512: 05,2733 00100 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
011799,001513:
011800,001514: 05,2734 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
011801,001515: 05,2735 54100 TS EXITEM
011802,001516: 05,2736 50124 INDEX MIXBR
011803,001517: 05,2737 02737 TC +0
011804,001518: 05,2740 02756 TC CONUMNOR # NORMAL NOUN
011805,001519: 05,2741 50103 INDEX DECOUNT # MIXED NOUN
011806,001520: 05,2742 32753 CAF DISPLACE
011807,001521: 05,2743 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
011808,001522: 05,2744 50103 INDEX DECOUNT
011809,001523: 05,2745 35216 CAF LOW5
011810,001524: 05,2746 70133 MASK NNTYPTEM
011811,001525: 05,2747 50001 INDEX L
011812,001526: 05,2750 00000 TC 0
011813,001527: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
011814,001528: 05,2751 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
011815,001529: 05,2752 00100 TC EXITEM
011816,001530:
011817,001531: 05,2753 02712 DISPLACE TC GOQ
011818,001532: 05,2754 05172 TC RIGHT5
011819,001533: 05,2755 05201 TC LEFT5
011820,001534:
011821,001535: 05,2756 35216 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
011822,001536: 05,2757 70133 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
011823,001537: 05,2760 60000 DOUBLE
011824,001538: 05,2761 00100 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
011825,001539:
011826,001540:
011827,001541:
011828,001542: 05,2762 54103 PUTCOM TS DECOUNT
011829,001543: 05,2763 56002 XCH Q
011830,001544: 05,2764 54101 TS DECRET
011831,001545: 05,2765 37675 CAF ZERO
011832,001546: 05,2766 54105 TS OVFIND
011833,001547: 05,2767 50103 INDEX DECOUNT
011834,001548: 05,2770 56273 XCH XREGLP
011835,001549: 05,2771 54141 TS MPAC +1
011836,001550: 05,2772 50103 INDEX DECOUNT
011837,001551: 05,2773 56270 XCH XREG
011838,001552: 05,2774 54140 TS MPAC
011839,001553: 05,2775 50124 INDEX MIXBR
011840,001554: 05,2776 02776 TC +0
011841,001555: 05,2777 03023 TC PUTNORM # NORMAL NOUN
011842,001556: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
011843,001557: 05,3000 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
011844,001558: 05,3001 30134 CA IDAD1TEM # OF NOUN.
011845,001559: 05,3002 75226 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
011846,001560: 05,3003 05153 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011847,001561: 05,3004 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
011848,001562: 05,3005 60103 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
011849,001563: 05,3006 54131 TS NOUNADD
011850,001564:
011851,001565: 05,3007 10265 CCS DECBRNCH
011852,001566: 05,3010 03051 TC PUTDECSF # + DEC
011853,001567: 05,3011 02721 TC SFRUTMIX # +0 OCTAL
011854,001568: 05,3012 02236 TC DPTEST
011855,001569: 05,3013 03040 TC PUTCOM2 # NO DP
011856,001570: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
011857,001571: # +0 INTO MAJOR PART. SET NOUNADD FOR
011858,001572: # LOADING OCTAL WORD INTO MINOR PART.
011859,001573: 05,3014 24131 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
011860,001574: 05,3015 30131 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
011861,001575: 05,3016 26103 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
011862,001576: 05,3017 37675 CAF ZERO # NOUNADD SET FOR MINOR PART
011863,001577: 05,3020 50103 INDEX DECOUNT
011864,001578: 05,3021 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
011865,001579: 05,3022 03040 TC PUTCOM2
011866,001580:
011867,001581: 05,3023 05161 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
011868,001582: 05,3024 10265 CCS DECBRNCH
011869,001583: 05,3025 03051 TC PUTDECSF # + DEC
011870,001584: 05,3026 02713 TC SFRUTNOR # +0 OCTAL
011871,001585: 05,3027 02236 TC DPTEST
011872,001586: 05,3030 03034 TC PUTCOM2 -4 # NO DP
011873,001587: 05,3031 37675 CAF ZERO # DP
011874,001588: 05,3032 54103 TS DECOUNT
011875,001589: 05,3033 03014 TC PUTDPCOM
011876,001590:
011877,001591: 05,3034 30132 CA NNADTEM
011878,001592: 05,3035 67671 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
011879,001593: 05,3036 00006 EXTEND
011880,001594: 05,3037 13044 BZF CHANLOAD
011881,001595: 05,3040 56140 PUTCOM2 XCH MPAC
011882,001596: 05,3041 00101 TC DECRET
011883,001597:
011884,001598: 05,3042 0264 EBANK= DSPCOUNT
011885,001599: 05,3042 02045 34000 GTSFINLC 2CADR GTSFIN
011886,001600:
011887,001601: 05,3044 56140 CHANLOAD XCH MPAC
011888,001602: 05,3045 00006 EXTEND
011889,001603: 05,3046 50304 INDEX NOUNCADR
011890,001604: 05,3047 01000 WRITE 0
011891,001605: 05,3050 02663 TC LOADLV
011892,001606:
011893,001607:
011894,001608:
011895,001609: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
011896,001610:
011897,001611: 05,3051 02734 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
011898,001612: 05,3052 54107 TS SFTEMP1
011899,001613:
011900,001614: 05,3053 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
011901,001615: 05,3054 33043 DCA GTSFINLC # READING ROUTINE.
011902,001616: 05,3055 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
011903,001617: 05,3056 50124 INDEX MIXBR
011904,001618: 05,3057 03057 TC +0
011905,001619: 05,3060 03063 TC PUTSFNOR
011906,001620: 05,3061 02721 TC SFRUTMIX
011907,001621: 05,3062 03064 TC PUTDCSF2
011908,001622: 05,3063 02713 PUTSFNOR TC SFRUTNOR
011909,001623:
011910,001624: 05,3064 50000 PUTDCSF2 INDEX A
011911,001625: 05,3065 33067 CAF SFINTABR
011912,001626: 05,3066 04107 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
011913,001627: 05,3067 11277 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
011914,001628:
011915,001629: 05,3070 11003 CADR BINROUND
011916,001630: 05,3071 10723 CADR DEGINSF
011917,001631: 05,3072 10773 CADR ARTHINSF
011918,001632: 05,3073 11023 CADR DPINSF
011919,001633: 05,3074 11050 CADR DPINSF2
011920,001634: 05,3075 11006 CADR OPTDEGIN
011921,001635: 05,3076 11023 CADR DPINSF # SAME AS ARITHDP1
011922,001636: 05,3077 ENDRUTIN EQUALS
011923,001637:
011924,001638:
011925,001639:
011926,001640: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
011927,001641: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
011928,001642:
011929,001643:
011930,001644:
011931,001645: 04,2723 SETLOC ENDDPDEC +1
011932,001646:
011933,001647: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
011934,001648:
011935,001649: 04,2723 07062 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
011936,001650: 04,2724 02766 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
011937,001651: 04,2725 10141 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
011938,001652: 04,2726 37657 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
011939,001653: 04,2727 02731 TC +2 # WHEN SHIFTED LEFT AND ALARM.
011940,001654: 04,2730 47657 CS BIT11
011941,001655: 04,2731 60141 AD MPAC +1
011942,001656: 04,2732 03066 TC 2ROUND +2
011943,001657: 04,2733 05255 TC TPSL1 # LEFT 1
011944,001658: 04,2734 05255 DEGINSF2 TC TPSL1 # LEFT 2
011945,001659: 04,2735 03075 TC TESTOFUF
011946,001660: 04,2736 05255 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
011947,001661: 04,2737 10140 CCS MPAC
011948,001662: 04,2740 02744 TC SIGNFIX # IF +, GO TO SIGNFIX
011949,001663: 04,2741 02744 TC SIGNFIX # IF +0, GO TO SIGNFIX
011950,001664: 04,2742 40000 COM # IF -, USE -MAGNITUDE +1
011951,001665:
011952,001666: 04,2743 54140 TS MPAC # IF -0, USE +0
011953,001667: 04,2744 10105 SIGNFIX CCS OVFIND
011954,001668: 04,2745 02762 TC SGNTO1 # IF OVERFLOW
011955,001669: 04,2746 02756 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
011956,001670: 04,2747 10140 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
011957,001671: 04,2750 05456 TC CCSHOLE
011958,001672: 04,2751 02760 TC NEG180
011959,001673: 04,2752 02753 TC +1
011960,001674: 04,2753 56140 XCH MPAC
011961,001675: 04,2754 77651 MASK POSMAX
011962,001676: 04,2755 54140 TS MPAC
011963,001677: 04,2756 04104 ENDSCALE TC POSTJUMP
011964,001678: 04,2757 13040 CADR PUTCOM2
011965,001679:
011966,001680: 04,2760 47651 NEG180 CS POSMAX
011967,001681: 04,2761 02755 TC ENDSCALE -1
011968,001682:
011969,001683: 04,2762 40140 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
011970,001684: 04,2763 77651 MASK POSMAX
011971,001685: 04,2764 40000 CS A
011972,001686: 04,2765 02755 TC ENDSCALE -1
011973,001687:
011974,001688: 04,2766 26161 30707 DEGCON1 2DEC 5.555555555 B-3
011975,001689:
011976,001690: 04,2770 21616 07071 DEGCON2 2DEC 2.222222222 B-2
011977,001691:
011978,001692: 04,2772 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
011979,001693:
011980,001694: 04,2773 07062 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
011981,001695: 04,2774 00107 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
011982,001696: 04,2775 56142 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
011983,001697: 04,2776 56141 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
011984,001698: 04,2777 56140 XCH MPAC
011985,001699: 04,3000 00006 EXTEND
011986,001700: 04,3001 13003 BZF BINROUND
011987,001701: 04,3002 03277 TC DSPALARM # TOO LARGE A LOAD
011988,001702: 04,3003 03064 BINROUND TC 2ROUND
011989,001703: 04,3004 03075 TC TESTOFUF
011990,001704: 04,3005 02756 TC ENDSCALE # RETURNS IF NO OF/UF
011991,001705:
011992,001706:
011993,001707:
011994,001708: 04,3006 10140 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
011995,001709: 04,3007 03013 TC +4
011996,001710: 04,3010 03013 TC +3
011997,001711: 04,3011 03277 TC DSPALARM # REJECT NEGATIVE INPUT
011998,001712: 04,3012 03277 TC DSPALARM # DITTO
011999,001713: 04,3013 32772 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
012000,001714: 04,3014 26140 ADS MPAC # SUBTRACT BIAS
012001,001715: 04,3015 07062 TC DMP # MULT BY 100 / 45 B-2
012002,001716:
012003,001717: 04,3016 02770 ADRES DEGCON2
012004,001718: 04,3017 37656 CAF BIT12 # ROUND AS IN DEGINSF
012005,001719: 04,3020 60141 AD MPAC +1
012006,001720: 04,3021 03066 TC 2ROUND +2
012007,001721: 04,3022 02734 TC DEGINSF2
012008,001722:
012009,001723: 04,3023 07062 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
012010,001724: 04,3024 00107 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
012011,001725: 04,3025 56142 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
012012,001726: 04,3026 60000 DOUBLE
012013,001727: 04,3027 54142 TS MPAC +2
012014,001728: 04,3030 37675 CAF ZERO
012015,001729: 04,3031 60141 AD MPAC +1
012016,001730: 04,3032 03066 TC 2ROUND +2
012017,001731: 04,3033 03075 TC TESTOFUF
012018,001732: 04,3034 50124 INDEX MIXBR # RETURNS IF NO OF/UF
012019,001733: 04,3035 03035 TC +0
012020,001734: 04,3036 03046 TC DPINORM
012021,001735: 04,3037 30103 CA DECOUNT # MIXEDNOUN
012022,001736: 04,3040 60131 DPINCOM AD NOUNADD # MIXED NORMAL
012023,001737: 04,3041 54002 TS Q # E SUBK E
012024,001738: 04,3042 56141 XCH MPAC +1
012025,001739: 04,3043 50002 INDEX Q
012026,001740: 04,3044 54001 TS 1 # PLACE LOW PART IN
012027,001741: 04,3045 02756 TC ENDSCALE # (E SUBK) +1 MIXED
012028,001742: 04,3046 37675 DPINORM CAF ZERO # E +1 NORMAL
012029,001743: 04,3047 03040 TC DPINCOM
012030,001744:
012031,001745:
012032,001746:
012033,001747: 04,3050 07062 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
012034,001748: 04,3051 00107 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
012035,001749: 04,3052 03054 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
012036,001750: 04,3053 03025 TC DPINSF +2
012037,001751:
012038,001752:
012039,001753:
012040,001754: 04,3054 56002 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
012041,001755: 04,3055 54110 TS SFTEMP2 # CANT USE L FOR RETURN. TPSL1 USES L.
012042,001756: 04,3056 36173 CAF SIX # LEFT BY 7
012043,001757: 04,3057 54107 LEFT7COM TS SFTEMP1
012044,001758: 04,3060 05255 TC TPSL1
012045,001759: 04,3061 10107 CCS SFTEMP1
012046,001760: 04,3062 03057 TC LEFT7COM
012047,001761: 04,3063 00110 TC SFTEMP2
012048,001762:
012049,001763: 04,3064 56141 2ROUND XCH MPAC +1
012050,001764: 04,3065 60000 DOUBLE
012051,001765:
012052,001766: 04,3066 54141 TS MPAC +1
012053,001767: 04,3067 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
012054,001768: 04,3070 60140 AD MPAC
012055,001769: 04,3071 54140 TS MPAC
012056,001770: 04,3072 00002 TC Q # IF MPAC DOES NOT OF/UF
012057,001771: 04,3073 54105 TS OVFIND
012058,001772: 04,3074 00002 2RNDEND TC Q
012059,001773:
012060,001774:
012061,001775:
012062,001776: 04,3075 10105 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
012063,001777: 04,3076 03277 TC DSPALARM # OF
012064,001778: 04,3077 00002 TC Q
012065,001779: 04,3100 03277 TC DSPALARM # UF
012066,001780:
012067,001781: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
012068,001782: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
012069,001783:
012070,001784: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
012071,001785: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
012072,001786: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
012073,001787: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
012074,001788: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
012075,001789:
012076,001790: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
012077,001791: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
012078,001792: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
012079,001793:
012080,001794: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
012081,001795:
012082,001796: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
012083,001797: # AND MONSAVE1 (TURNING OFF KILLER BIT).
012084,001798:
012085,001799: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
012086,001800: 05,3077 SETLOC ENDRUTIN
012087,001801:
012088,001802: 05,3077 47653 MONITOR CS BIT15
012089,001803: 05,3100 70304 MASK NOUNCADR
012090,001804: 05,3101 54141 MONIT1 TS MPAC +1 # TEMP STORAGE
012091,001805: 05,3102 33401 CAF LOW6
012092,001806: 05,3103 70266 MASK VERBREG
012093,001807: 05,3104 05201 TC LEFT5
012094,001808: 05,3105 54022 TS CYL
012095,001809: 05,3106 56022 XCH CYL
012096,001810: 05,3107 60267 AD NOUNREG
012097,001811: 05,3110 54140 TS MPAC # TEMP STORAGE
012098,001812: 05,3111 40324 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
012099,001813: 05,3112 67670 AD TWO
012100,001814: 05,3113 10000 CCS A
012101,001815: 05,3114 05356 TC RELDSP1 # GRABLOCK=0,1, +0 INTO DSPLOCK AND
012102,001816: 05,3115 03121 TC +4 # TURN OFF KEY RLSE LIGHT.
012103,001817: 05,3116 05456 TC CCSHOLE
012104,001818: 05,3117 37675 CAF ZERO # GRABLOCK=2, +0 INTO DSPLOCK AND
012105,001819: 05,3120 54277 TS DSPLOCK # LEAVE KEY RLSE LIGHT ALONE
012106,001820: 05,3121 00004 INHINT
012107,001821: 05,3122 10305 CCS MONSAVE
012108,001822: 05,3123 03130 TC +5 # IF MONSAVE WAS +, NO REQUEST
012109,001823: 05,3124 37671 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
012110,001824: 05,3125 04517 TC WAITLIST
012111,001825: 05,3126 0264 EBANK= DSPCOUNT
012112,001826: 05,3126 03134 12000 2CADR MONREQ
012113,001827:
012114,001828: 05,3130 52141 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
012115,001829:
012116,001830: 05,3131 52306 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
012117,001831: 05,3132 00003 RELINT
012118,001832: 05,3133 00122 TC ENTRET
012119,001833:
012120,001834:
012121,001835:
012122,001836: 05,3134 05251 MONREQ TC LODSAMPT # CALLED BY WAITLIST
012123,001837: 05,3135 10306 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
012124,001838: 05,3136 03142 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
012125,001839: 05,3137 03142 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
012126,001840: 05,3140 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
012127,001841: 05,3141 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
012128,001842: 05,3142 33157 CAF MONDEL
012129,001843: 05,3143 04517 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
012130,001844: 05,3144 0264 EBANK= DSPCOUNT
012131,001845: 05,3144 03134 12000 2CADR MONREQ
012132,001846: 05,3146 35225 CAF CHRPRIO
012133,001847: 05,3147 04344 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
012134,001848: 05,3150 0264 EBANK= DSPCOUNT
012135,001849: 05,3150 03160 12000 2CADR MONDO
012136,001850:
012137,001851: 05,3152 04563 TC TASKOVER
012138,001852:
012139,001853: 05,3153 37675 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
012140,001854: 05,3154 54305 TS MONSAVE
012141,001855: 05,3155 54306 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
012142,001856: 05,3156 04563 TC TASKOVER
012143,001857:
012144,001858:
012145,001859:
012146,001860: 05,3157 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
012147,001861:
012148,001862:
012149,001863:
012150,001864: 05,3160 10306 MONDO CCS MONSAVE1 # CALLED BY EXEC
012151,001865: 05,3161 03165 TC +4 # IF KILLER BIT = 0, CONTINUE
012152,001866: 05,3162 03165 TC +3 # IF KILLER BIT = 0, CONTINUE
012153,001867: 05,3163 04422 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
012154,001868: 05,3164 04422 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
012155,001869: 05,3165 10277 CCS DSPLOCK
012156,001870: 05,3166 03212 TC MONBUSY # NVSUB IS BUSY
012157,001871: 05,3167 33401 CAF LOW6 # NVSUB IS AVAILABLE
012158,001872: 05,3170 70305 MASK MONSAVE
012159,001873: 05,3171 54107 TS NVTEMP
012160,001874: 05,3172 05115 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
012161,001875: 05,3173 04422 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
012162,001876: 05,3174 33210 CAF MONMASK
012163,001877: 05,3175 70305 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
012164,001878: 05,3176 05172 TC RIGHT5
012165,001879:
012166,001880: 05,3177 54020 TS CYR
012167,001881: 05,3200 56020 XCH CYR
012168,001882: 05,3201 54266 TS VERBREG
012169,001883: 05,3202 33211 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
012170,001884: 05,3203 54122 TS ENTRET
012171,001885: 05,3204 47653 CS BIT15
012172,001886: 05,3205 70306 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
012173,001887: 05,3206 54142 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
012174,001888: 05,3207 02037 ENDMONDO TC TESTNN # EBANK.
012175,001889:
012176,001890: 5072 SETLOC ENDRMODF
012177,001891:
012178,001892: 5072 35100 PASTEVB CAF MIDSIX
012179,001893: 5073 70305 MASK MONSAVE
012180,001894: 5074 54107 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
012181,001895: 5075 05115 TC NVSUBMON # DISPLAY IT.
012182,001896: 5076 05077 TC +1 # IN CASE OF ALARM DURING DISPLAY
012183,001897: 5077 04422 ENDPASTE TC ENDOFJOB
012184,001898:
012185,001899: 5100 07700 MIDSIX OCT 07700
012186,001900:
012187,001901:
012188,001902:
012189,001903: 05,3210 SETLOC ENDMONDO +1
012190,001904: 05,3210 00700 MONMASK OCT 700
012191,001905: 05,3211 05072 MONBACK ADRES PASTEVB
012192,001906:
012193,001907: 05,3212 05245 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
012194,001908: 05,3213 04422 TC ENDOFJOB
012195,001909:
012196,001910:
012197,001911:
012198,001912: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
012199,001913: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
012200,001914: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
012201,001915:
012202,001916: 05,3214 35167 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
012203,001917: 05,3215 54264 TS DSPCOUNT
012204,001918: 05,3216 30304 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
012205,001919: 05,3217 04120 TC DATACALL
012206,001920: 05,3220 03222 TC DSPOCTWD
012207,001921: 05,3221 04422 ENDSPF TC ENDOFJOB
012208,001922:
012209,001923: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) TO A SIGN AND 5 CHAR DECIMAL
012210,001924: # STARTING IN LOC SPECIFIED IN DSPCOUNT
012211,001925:
012212,001926: 04,3101 SETLOC TESTOFUF +4
012213,001927: 04,3101 56002 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
012214,001928: 04,3102 54101 TS WDRET # CANT USE L FOR RETURN.+ON USES L.
012215,001929: 04,3103 10140 CCS MPAC
012216,001930: 04,3104 03113 TC +7
012217,001931: 04,3105 03113 TC +6
012218,001932: 04,3106 67671 AD ONE
012219,001933: 04,3107 54140 TS MPAC
012220,001934: 04,3110 02313 TC -ON
012221,001935: 04,3111 40141 CS MPAC +1
012222,001936: 04,3112 03115 TC +3
012223,001937: 04,3113 02273 TC +ON
012224,001938: 04,3114 56141 XCH MPAC +1
012225,001939: 04,3115 63154 AD DECROUND
012226,001940: 04,3116 54141 TS MPAC +1
012227,001941: 04,3117 37675 CAF ZERO
012228,001942: 04,3120 60140 AD MPAC
012229,001943: 04,3121 54140 TS MPAC
012230,001944: 04,3122 03126 TC +4
012231,001945: 04,3123 37651 CAF POSMAX
012232,001946: 04,3124 54140 TS MPAC
012233,001947: 04,3125 54141 TS MPAC +1
012234,001948: 04,3126 37667 CAF FOUR
012235,001949: 04,3127 54123 DSPDCWD1 TS WDCNT
012236,001950: 04,3130 35234 CAF BINCON
012237,001951: 04,3131 07265 TC SHORTMP
012238,001952: 04,3132 50140 TRACE1 INDEX MPAC
012239,001953: 04,3133 34733 CAF RELTAB
012240,001954: 04,3134 75216 MASK LOW5
012241,001955: 04,3135 54110 TS CODE
012242,001956: 04,3136 37675 CAF ZERO
012243,001957: 04,3137 56142 XCH MPAC +2
012244,001958: 04,3140 56141 XCH MPAC +1
012245,001959: 04,3141 54140 TS MPAC
012246,001960: 04,3142 56264 XCH DSPCOUNT
012247,001961: 04,3143 54127 TRACE1S TS COUNT
012248,001962: 04,3144 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
012249,001963: 04,3145 54264 TS DSPCOUNT
012250,001964: 04,3146 03201 TC DSPIN
012251,001965: 04,3147 10123 CCS WDCNT
012252,001966: 04,3150 03127 TC DSPDCWD1
012253,001967: 04,3151 45231 CS VD1
012254,001968: 04,3152 54264 TS DSPCOUNT
012255,001969: 04,3153 00101 TC WDRET
012256,001970:
012257,001971: 04,3154 02476 DECROUND OCT 02476
012258,001972:
012259,001973: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
012260,001974: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
012261,001975:
012262,001976: 04,3155 56002 DSP2DEC XCH Q # MUST USE SAME RETURN AS DSPDECWD
012263,001977: 04,3156 54101 TS WDRET
012264,001978: 04,3157 37675 CAF ZERO
012265,001979: 04,3160 54110 TS CODE
012266,001980: 04,3161 36176 CAF THREE
012267,001981: 04,3162 03263 TC 11DSPIN # -R2 OFF
012268,001982: 04,3163 37667 CAF FOUR
012269,001983: 04,3164 03263 TC 11DSPIN # +R2 OFF
012270,001984: 04,3165 10140 CCS MPAC
012271,001985: 04,3166 03176 TC +8D
012272,001986: 04,3167 03176 TC +7
012273,001987: 04,3170 67671 AD ONE
012274,001988: 04,3171 54140 TS MPAC
012275,001989: 04,3172 02313 TC -ON
012276,001990: 04,3173 40141 CS MPAC +1
012277,001991: 04,3174 54141 TS MPAC +1
012278,001992: 04,3175 03177 TC +2
012279,001993: 04,3176 02273 TC +ON
012280,001994: 04,3177 35170 CAF R2D1
012281,001995: 04,3200 03127 END2DEC TC DSPDCWD1
012282,001996:
012283,001997:
012284,001998:
012285,001999: 05,3222 SETLOC DSPFMEM +6
012286,002000: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
012287,002001: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
012288,002002:
012289,002003: 05,3222 54022 DSPOCTWD TS CYL
012290,002004: 05,3223 56002 XCH Q
012291,002005: 05,3224 54101 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
012292,002006: 05,3225 37654 CAF BIT14 # TO BLANK SIGNS
012293,002007: 05,3226 26264 ADS DSPCOUNT
012294,002008: 05,3227 37667 CAF FOUR
012295,002009: 05,3230 54123 WDAGAIN TS WDCNT
012296,002010: 05,3231 40022 CS CYL
012297,002011: 05,3232 40022 CS CYL
012298,002012: 05,3233 40022 CS CYL
012299,002013: 05,3234 40000 CS A
012300,002014: 05,3235 77673 MASK DSPMSK
012301,002015: 05,3236 50000 INDEX A
012302,002016: 05,3237 34733 CAF RELTAB
012303,002017: 05,3240 75216 MASK LOW5
012304,002018: 05,3241 54110 TS CODE
012305,002019: 05,3242 56264 XCH DSPCOUNT
012306,002020: 05,3243 54127 TS COUNT
012307,002021: 05,3244 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
012308,002022: 05,3245 54264 TS DSPCOUNT
012309,002023:
012310,002024: 05,3246 04104 TC POSTJUMP
012311,002025: 05,3247 11271 CADR DSPOCTIN
012312,002026: 05,3250 10123 OCTBACK CCS WDCNT
012313,002027: 05,3251 03230 TC WDAGAIN # +
012314,002028: 05,3252 45231 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
012315,002029: 05,3253 54264 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
012316,002030: 05,3254 00101 TC WDRET
012317,002031:
012318,002032: 05,3255 7673 DSPMSK = SEVEN
012319,002033:
012320,002034:
012321,002035:
012322,002036: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
012323,002037: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
012324,002038: # OF THE 5 CHAR OCTAL DISPLAY
012325,002039:
012326,002040: 05,3255 54020 DSP2BIT TS CYR
012327,002041: 05,3256 56002 XCH Q
012328,002042: 05,3257 54101 TS WDRET # CANT USE L AS RETURN. UPDATIN USES L.
012329,002043: 05,3260 37671 CAF ONE
012330,002044: 05,3261 54123 TS WDCNT
012331,002045: 05,3262 40020 CS CYR
012332,002046: 05,3263 40020 CS CYR
012333,002047: 05,3264 56020 XCH CYR
012334,002048: 05,3265 54022 TS CYL
012335,002049: 05,3266 03235 TC WDAGAIN +5
012336,002050:
012337,002051:
012338,002052:
012339,002053: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
012340,002054: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
012341,002055: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
012342,002056: # DSPTAB ENTRY INTO DSREL.
012343,002057:
012344,002058: 04,3201 SETLOC END2DEC +1
012345,002059:
012346,002060: 04,3201 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
012347,002061: 04,3202 54100 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
012348,002062: 04,3203 35216 CAF LOW5
012349,002063: 04,3204 70127 MASK COUNT
012350,002064: 04,3205 54021 TS SR
012351,002065: 04,3206 56021 XCH SR
012352,002066: 04,3207 54125 TS DSREL
012353,002067: 04,3210 37671 CAF BIT1
012354,002068: 04,3211 70127 MASK COUNT
012355,002069: 04,3212 10000 CCS A
012356,002070: 04,3213 03215 TC +2 # LEFT IF COUNT IS ODD
012357,002071: 04,3214 03225 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
012358,002072: 04,3215 56110 XCH CODE
012359,002073: 04,3216 05210 TC SLEFT5 # DOES NOT USE CYL
012360,002074:
012361,002075: 04,3217 54110 TS CODE
012362,002076: 04,3220 37654 CAF BIT14
012363,002077: 04,3221 70127 MASK COUNT
012364,002078: 04,3222 10000 CCS A
012365,002079: 04,3223 37670 CAF TWO # BIT14 = 1, BLANK SIGN
012366,002080: 04,3224 67671 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
012367,002081: 04,3225 54127 TS COUNT # +0 INTO COUNT FOR RIGHT
012368,002082: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
012369,002083: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
012370,002084: 04,3226 00004 DSPIN1 INHINT
012371,002085: 04,3227 50125 INDEX DSREL
012372,002086: 04,3230 10307 CCS DSPTAB
012373,002087: 04,3231 03233 TC +2 # IF +
012374,002088: 04,3232 05456 TC CCSHOLE
012375,002089: 04,3233 67671 AD ONE # IF -
012376,002090: 04,3234 54126 TS DSMAG
012377,002091: 04,3235 50127 INDEX COUNT
012378,002092: 04,3236 73257 MASK DSMSK
012379,002093: 04,3237 00006 EXTEND
012380,002094: 04,3240 60110 SU CODE
012381,002095: 04,3241 00006 EXTEND
012382,002096: 04,3242 13255 BZF DSLV # SAME
012383,002097: 04,3243 50127 DFRNT INDEX COUNT
012384,002098: 04,3244 43257 CS DSMSK # MASK WITH 77740,76037, OR 75777
012385,002099: 04,3245 70126 MASK DSMAG
012386,002100: 04,3246 60110 AD CODE
012387,002101: 04,3247 40000 CS A
012388,002102: 04,3250 50125 INDEX DSREL
012389,002103: 04,3251 56307 XCH DSPTAB
012390,002104: 04,3252 00006 EXTEND
012391,002105: 04,3253 63255 BZMF DSLV # DSPTAB ENTRY WAS -
012392,002106: 04,3254 24303 INCR NOUT # DSPTAB ENTRY WAS +
012393,002107: 04,3255 00003 DSLV RELINT
012394,002108: 04,3256 00100 TC DSEXIT
012395,002109:
012396,002110: 04,3257 00037 DSMSK OCT 37
012397,002111: 04,3260 01740 OCT 1740
012398,002112: 04,3261 02000 OCT 2000
012399,002113: 04,3262 03740 OCT 3740
012400,002114:
012401,002115:
012402,002116:
012403,002117: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
012404,002118: # BIT11 OF CODE.
012405,002119:
012406,002120: 04,3263 54125 11DSPIN TS DSREL
012407,002121: 04,3264 37670 CAF TWO
012408,002122: 04,3265 54127 TS COUNT
012409,002123: 04,3266 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
012410,002124: 04,3267 54100 TS DSEXIT
012411,002125:
012412,002126: 04,3270 03226 TC DSPIN1
012413,002127:
012414,002128:
012415,002129:
012416,002130: 04,3271 03201 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
012417,002131: 04,3272 33274 CAF +2
012418,002132: 04,3273 04107 TC BANKJUMP
012419,002133: 04,3274 13250 ENDSPOCT CADR OCTBACK
012420,002134:
012421,002135:
012422,002136:
012423,002137: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
012424,002138: # ABORT WITH 01501.
012425,002139: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
012426,002140: # DO TC ENTRET.
012427,002141:
012428,002142: 04,3275 35142 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
012429,002143: 04,3276 54122 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
012430,002144:
012431,002145: 04,3277 05235 DSPALARM TC FALTON # TURN ON OPERATOR ERROR LIGHT
012432,002146: 04,3300 43307 CS NVSBENDL
012433,002147: 04,3301 60122 AD ENTEXIT
012434,002148: 04,3302 00006 EXTEND
012435,002149: 04,3303 13305 BZF +2 # NVSUB INITIATED. ABORT
012436,002150: 04,3304 00122 TC ENTEXIT # NOT NVSUB INITIATED.
012437,002151: 04,3305 05440 TC ABORT
012438,002152: 04,3306 01501 OCT 01501
012439,002153: 04,3307 05121 NVSBENDL TC NVSUBEND
012440,002154:
012441,002155:
012442,002156:
012443,002157: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
012444,002158: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
012445,002159: # M M LIGHTS.
012446,002160:
012447,002161: 05,3267 SETLOC DSP2BIT +10D
012448,002162:
012449,002163: 05,3267 03302 MMCHANG TC REQMM
012450,002164: 05,3270 37675 CAF ZERO
012451,002165: 05,3271 56267 XCH NOUNREG
012452,002166: 05,3272 54140 TS MPAC
012453,002167: 05,3273 35232 CAF ND1
012454,002168: 05,3274 54264 TS DSPCOUNT
012455,002169: 05,3275 04065 TC BANKCALL
012456,002170: 05,3276 10541 CADR 2BLANK
012457,002171: 05,3277 30140 CA MPAC
012458,002172: 05,3300 04104 TC POSTJUMP
012459,002173: 05,3301 11277 CADR MODROUTB # GO THRU STANDARD LOC.
012460,002174:
012461,002175: 05,3302 04,3277 MODROUTB = DSPALARM # **FIX LATER**
012462,002176: 05,3302 40002 REQMM CS Q
012463,002177: 05,3303 54300 TS REQRET
012464,002178: 05,3304 35232 CAF ND1
012465,002179: 05,3305 54264 TS DSPCOUNT
012466,002180: 05,3306 37675 CAF ZERO
012467,002181: 05,3307 54267 TS NOUNREG
012468,002182: 05,3310 04065 TC BANKCALL
012469,002183: 05,3311 10541 CADR 2BLANK
012470,002184: 05,3312 05266 TC FLASHON
012471,002185: 05,3313 00122 TC ENTEXIT
012472,002186:
012473,002187:
012474,002188:
012475,002189: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
012476,002190: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
012477,002191: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
012478,002192: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
012479,002193: # COMPONENT 2 JOB ADRES (12 BIT )
012480,002194: # COMPONENT 3 BBCON
012481,002195:
012482,002196: 05,3314 37671 VBRQEXEC CAF BIT1
012483,002197: 05,3315 70333 MASK DSPTEM1
012484,002198: 05,3316 10000 CCS A
012485,002199: 05,3317 03336 TC SETVAC # IF BIT1 = 1, FINDVAC
012486,002200: 05,3320 35221 CAF TCNOVAC # IF BIT1 = 0, NOVAC
012487,002201: 05,3321 54140 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
012488,002202: 05,3322 47671 CS BIT1
012489,002203: 05,3323 70333 MASK DSPTEM1
012490,002204: 05,3324 54144 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
012491,002205: 05,3325 05333 REQUESTC TC RELDSP
012492,002206: 05,3326 35142 CA ENDINST
012493,002207: 05,3327 54143 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
012494,002208: 05,3330 00006 EXTEND
012495,002209: 05,3331 30335 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
012496,002210: 05,3332 52142 DXCH MPAC +1 # BBCON INTO MPAC+2
012497,002211: 05,3333 30144 CA MPAC +4 # PRIO IN A
012498,002212: 05,3334 00004 INHINT
012499,002213: 05,3335 00140 TC MPAC
012500,002214:
012501,002215: 05,3336 35224 SETVAC CAF TCFINDVC
012502,002216: 05,3337 03321 TC REQEX1
012503,002217:
012504,002218: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
012505,002219: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
012506,002220: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
012507,002221: # COMPONENT 1 DELAY (LOW BITS)
012508,002222: # COMPONENT 2 TASK ADRES (12 BIT)
012509,002223: # COMPONENT 3 BBCON
012510,002224:
012511,002225: 05,3340 35222 VBRQWAIT CAF TCWAIT
012512,002226: 05,3341 54140 TS MPAC # TC WAITLIST INTO MPAC
012513,002227: 05,3342 30333 CA DSPTEM1 # TIME DELAY
012514,002228: 05,3343 03324 ENDRQWT TC REQUESTC -1
012515,002229:
012516,002230: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
012517,002231: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
012518,002232: # LEAVE IT IN A, INHINT AND TC MPAC.
012519,002233:
012520,002234:
012521,002235:
012522,002236: 04,3310 SETLOC NVSBENDL +1
012523,002237: 04,3310 37671 VBPROC CAF ONE # PROCEED WITHOUT DATA
012524,002238: 04,3311 54301 TS LOADSTAT
012525,002239: 04,3312 05333 TC RELDSP
012526,002240: 04,3313 05272 TC FLASHOFF
012527,002241: 04,3314 03427 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
012528,002242:
012529,002243:
012530,002244:
012531,002245: 04,3315 05123 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
012532,002246: 04,3316 47671 CS ONE
012533,002247: 04,3317 03311 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
012534,002248:
012535,002249: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
012536,002250: # EXECUTIVE CONTROL, WITH CHRPRIO.
012537,002251:
012538,002252: 04,3320 37675 PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
012539,002253: 04,3321 54300 TS REQRET
012540,002254: 04,3322 45231 CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
012541,002255: 04,3323 54264 TS DSPCOUNT
012542,002256: 04,3324 03310 TC VBPROC
012543,002257:
012544,002258:
012545,002259:
012546,002260: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
012547,002261:
012548,002262:
012549,002263:
012550,002264: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
012551,002265: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
012552,002266:
012553,002267: 04,3325 47667 VBRELDSP CS BIT3
012554,002268: 04,3326 00006 EXTEND
012555,002269: 04,3327 03011 WAND DSALMOUT # TURN OFF UPACT LIGHT
012556,002270: 04,3330 05333 TC RELDSP # SEARCHES LIST
012557,002271: 04,3331 04422 TC ENDOFJOB
012558,002272:
012559,002273:
012560,002274:
012561,002275: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
012562,002276:
012563,002277: 04,3332 37674 BUMP CAF FIVE # R2D5
012564,002278: 04,3333 54264 TS DSPCOUNT
012565,002279: 04,3334 54127 TS COUNT
012566,002280: 04,3335 37671 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
012567,002281: 04,3336 70127 MASK COUNT
012568,002282: 04,3337 56127 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
012569,002283: 04,3340 54021 TS SR # +1 INTO COUNT IF ODD (LEFT)
012570,002284:
012571,002285: 04,3341 56021 XCH SR # DSREL IN A
012572,002286: 04,3342 50000 INDEX A
012573,002287: 04,3343 10307 CCS DSPTAB
012574,002288: 04,3344 03346 TC +2
012575,002289: 04,3345 05456 TC CCSHOLE
012576,002290: 04,3346 67671 AD ONE # DSMAG IN A
012577,002291: 04,3347 50127 INDEX COUNT
012578,002292: 04,3350 73257 MASK DSMSK
012579,002293: 04,3351 50127 INDEX COUNT
012580,002294: 04,3352 03353 TC +1
012581,002295: 04,3353 03355 TC +2 # EVEN(RIGHT) OK
012582,002296: 04,3354 05172 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
012583,002297: 04,3355 54110 TS CODE
012584,002298: 04,3356 47674 CS FIVE
012585,002299: 04,3357 60264 AD DSPCOUNT # DSPCOUNT-5
012586,002300: 04,3360 10000 CCS A # TO PREVENT -0
012587,002301: 04,3361 67671 AD ONE
012588,002302: 04,3362 03364 TC +2
012589,002303: 04,3363 05456 TC CCSHOLE
012590,002304: 04,3364 54127 TS COUNT
012591,002305: 04,3365 03201 TC DSPIN # CODE ALREADY IN CODE
012592,002306: 04,3366 40264 CS DSPCOUNT
012593,002307: 04,3367 65167 AD R1D1 # OCT 16
012594,002308: 04,3370 10000 CCS A
012595,002309: 04,3371 56264 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
012596,002310: 04,3372 67671 AD ONE # INCREMENT DSPCOUNT
012597,002311: 04,3373 03333 TC BUMP +1
012598,002312:
012599,002313: 04,3374 37675 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
012600,002314: 04,3375 54264 TS DSPCOUNT
012601,002315: 04,3376 63425 AD SWTAB +2 # OCT 3
012602,002316: 04,3377 50000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
012603,002317: 04,3400 10307 CCS DSPTAB # (-R2,+R2,-R1,+R1)
012604,002318: 04,3401 03403 TC +2
012605,002319: 04,3402 05456 TC CCSHOLE
012606,002320: 04,3403 67671 AD ONE
012607,002321: 04,3404 77657 MASK BIT11
012608,002322: 04,3405 54110 TS CODE
012609,002323: 04,3406 50264 INDEX DSPCOUNT
012610,002324: 04,3407 33423 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
012611,002325: 04,3410 03263 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
012612,002326: 04,3411 40264 CS DSPCOUNT
012613,002327: 04,3412 63425 AD SWTAB +2 # OCT 3
012614,002328: 04,3413 10000 CCS A
012615,002329: 04,3414 56264 XCH DSPCOUNT # +, DSPCOUNT L/ 3
012616,002330: 04,3415 67671 AD ONE # INCREMENT DSPCOUNT
012617,002331: 04,3416 03375 TC SWSGN +1
012618,002332: 04,3417 35167 CAF R1D1 # -0, DSPCOUNT = 3
012619,002333: 04,3420 54264 TS DSPCOUNT
012620,002334: 04,3421 02476 TC 5BLANK # BLANKS R1
012621,002335:
012622,002336: 04,3422 00122 TC ENTEXIT
012623,002337:
012624,002338: 04,3423 00000 SWTAB OCT 0 # -R3
012625,002339: 04,3424 00001 OCT 1 # +R3
012626,002340: 04,3425 00003 OCT 3 # -R2
012627,002341: 04,3426 00004 OCT 4 # +R2
012628,002342:
012629,002343: # NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
012630,002344: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
012631,002345: # INTO A. V-S ARE 6BIT VERB CODE. N-S , 6 BIT NOUN CODE.
012632,002346:
012633,002347: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
012634,002348: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
012635,002349:
012636,002350: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
012637,002351: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
012638,002352: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
012639,002353: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
012640,002354: # FURTHER ACTION).
012641,002355:
012642,002356: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
012643,002357: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
012644,002358: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
012645,002359: # ALARM CONDITION BEFORE RETURN TO CALLER.
012646,002360:
012647,002361: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
012648,002362: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
012649,002363: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
012650,002364: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
012651,002365: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
012652,002366: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
012653,002367: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
012654,002368: # MONITOR SET UP.
012655,002369:
012656,002370: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
012657,002371:
012658,002372: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
012659,002373: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
012660,002374:
012661,002375: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
012662,002376: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
012663,002377:
012664,002378: 5101 SETLOC MIDSIX +1
012665,002379: 5101 54107 NVSUB TS NVTEMP # IN FIXED FIXED
012666,002380: 5102 10277 CCS DSPLOCK
012667,002381: 5103 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
012668,002382: 5104 30002 CA Q # DSP SYST AVAILABLE
012669,002383: 5105 67671 AD ONE
012670,002384: 5106 54325 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
012671,002385: 5107 05123 TC KILMONON # TURN ON KILL MONITOR BIT
012672,002386: 5110 35114 NVSUBCOM CAF NVSBBBNK
012673,002387:
012674,002388: 5111 56006 XCH BBANK
012675,002389: 5112 54326 TS NVBNKTEM
012676,002390: 5113 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
012677,002391: 5114 0264 EBANK= DSPCOUNT
012678,002392: 5114 12000 NVSBBBNK BBCON NVSUB1
012679,002393:
012680,002394: 5115 30002 NVSUBMON CA Q # MONDO COMES HERE
012681,002395: 5116 67671 AD ONE
012682,002396: 5117 54325 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
012683,002397: 5120 05110 TC NVSUBCOM
012684,002398:
012685,002399: 5121 52326 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
012686,002400: 5122 52006 DXCH Z # DTCB
012687,002401:
012688,002402: 05,3344 SETLOC ENDRQWT +1
012689,002403:
012690,002404: 05,3344 33363 NVSUB1 CAF ENTSET # IN BANK
012691,002405: 05,3345 54122 TS ENTRET # SET RETURN TO NVSUBEND
012692,002406: 05,3346 33401 CAF LOW6
012693,002407: 05,3347 70107 MASK NVTEMP
012694,002408: 05,3350 54140 TS MPAC # TEMP STORAGE
012695,002409: 05,3351 33402 CAF MID6
012696,002410: 05,3352 70107 MASK NVTEMP
012697,002411: 05,3353 05172 TC RIGHT5
012698,002412: 05,3354 54020 TS CYR
012699,002413: 05,3355 56020 XCH CYR
012700,002414: 05,3356 54141 TS MPAC +1 # TEMP STORAGE
012701,002415: 05,3357 10140 CCS MPAC # TEST NOUN
012702,002416: 05,3360 03364 TC +4 # IF NOUN NOT +0, GO ON
012703,002417: 05,3361 56141 XCH MPAC +1
012704,002418: 05,3362 02314 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN
012705,002419: 05,3363 05121 ENTSET TC NVSUBEND
012706,002420: 05,3364 10141 CCS MPAC +1 # TEST VERB
012707,002421: 05,3365 03371 TC +4 # IF VERB NOT +0, GO ON
012708,002422: 05,3366 56140 XCH MPAC
012709,002423: 05,3367 02274 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
012710,002424: 05,3370 05121 TC NVSUBEND
012711,002425: 05,3371 56141 XCH MPAC +1
012712,002426: 05,3372 02314 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
012713,002427: 05,3373 56140 XCH MPAC # BOTH AND GO TO ENTPAS0
012714,002428: 05,3374 02274 TC UPDATNN -1
012715,002429: 05,3375 37675 CAF ZERO
012716,002430: 05,3376 54301 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
012717,002431: 05,3377 54302 TS CLPASS
012718,002432: 05,3400 02031 TC ENTPAS0
012719,002433:
012720,002434: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
012721,002435: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
012722,002436:
012723,002437:
012724,002438:
012725,002439: 05,3401 00077 LOW6 OCT 77
012726,002440: 05,3402 07700 MID6 OCT 7700
012727,002441:
012728,002442: 5123 SETLOC NVSUBEND +2
012729,002443: 5123 47653 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
012730,002444: 5124 00004 INHINT # THIS IS THE KILL MONITOR BIT.
012731,002445: 5125 70306 MASK MONSAVE1
012732,002446: 5126 67653 AD BIT15
012733,002447: 5127 54306 TS MONSAVE1
012734,002448: 5130 00003 RELINT
012735,002449: 5131 00002 TC Q
012736,002450:
012737,002451:
012738,002452:
012739,002453: # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
012740,002454: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
012741,002455: # -1 TERMINATE SET BY SPECIAL VERB
012742,002456: # -0 DATA IN SET BY END OF LOAD ROUTINE
012743,002457:
012744,002458:
012745,002459:
012746,002460: # L TC ENDIDLE (FIXED FIXED)
012747,002461: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
012748,002462: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
012749,002463: # ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
012750,002464: # JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
012751,002465: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
012752,002466: # L+1 FOR TERMINATE
012753,002467: # L+2 FOR PROCEED WITHOUT DATA
012754,002468: # L+3 FOR DATA IN
012755,002469: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
012756,002470:
012757,002471: 5132 37671 ENDIDLE CAF ONE
012758,002472: 5133 54277 TS DSPLOCK
012759,002473: 5134 22004 LXCH FBANK
012760,002474: 5135 56002 XCH Q
012761,002475: 5136 52120 DXCH BUF2
012762,002476: 5137 04114 TC MAKECADR
012763,002477: 5140 54323 TS CADRSTOR
012764,002478: 5141 04400 TC JOBSLEEP
012765,002479:
012766,002480:
012767,002481:
012768,002482: 5142 04422 ENDINST TC ENDOFJOB
012769,002483:
012770,002484: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
012771,002485: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
012772,002486: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
012773,002487: # DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
012774,002488: # AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
012775,002489: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
012776,002490:
012777,002491: 5143 10301 DATAWAIT CCS LOADSTAT
012778,002492:
012779,002493: 5144 15151 TCF DATWAIT1 # PROCEED. RETURN TO L+2.
012780,002494: 5145 15132 TCF ENDIDLE # STILL WAITING. GO TO SLEEP.
012781,002495: 5146 00002 TC Q # TERMINATE. RETURN TO L+1.
012782,002496: 5147 50002 INDEX Q # DATA IN. RETURN TO L+3.
012783,002497: 5150 00002 TC 2
012784,002498: 5151 50002 DATWAIT1 INDEX Q # RETURN TO L+2.
012785,002499: 5152 00001 TC 1
012786,002500:
012787,002501: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
012788,002502: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
012789,002503:
012790,002504:
012791,002505:
012792,002506: 05,3403 SETLOC MID6 +1
012793,002507: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
012794,002508:
012795,002509: 05,3403 35233 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
012796,002510: 05,3404 56264 XCH DSPCOUNT
012797,002511: 05,3405 54124 TS DSPMMTEM # SAVE DSPCOUNT
012798,002512: 05,3406 30276 CA MODREG
012799,002513: 05,3407 22002 LXCH Q
012800,002514: 05,3410 03255 TC DSP2BIT
012801,002515: 05,3411 56124 XCH DSPMMTEM # RESTORE DSPCOUNT
012802,002516: 05,3412 54264 TS DSPCOUNT
012803,002517: 05,3413 00001 DSPMMEND TC L
012804,002518:
012805,002519:
012806,002520:
012807,002521: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
012808,002522: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
012809,002523: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
012810,002524:
012811,002525: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
012812,002526: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
012813,002527:
012814,002528: 04,3427 SETLOC SWTAB +4
012815,002529:
012816,002530: 04,3427 10323 RECALTST CCS CADRSTOR
012817,002531: 04,3430 03435 TC RECAL1
012818,002532: 04,3431 04422 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
012819,002533: 04,3432 03435 TC RECAL1
012820,002534: 04,3433 54323 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
012821,002535: 04,3434 03453 TC RECAL3 # +0 INTO CADRSTOR. RELEASE DISPLAY,
012822,002536: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
012823,002537: 04,3435 37675 RECAL1 CAF ZERO
012824,002538: 04,3436 56323 XCH CADRSTOR
012825,002539: 04,3437 00004 INHINT
012826,002540: 04,3440 04404 TC JOBWAKE
012827,002541: 04,3441 10301 CCS LOADSTAT
012828,002542: 04,3442 03457 TC DOPROC # + PROCEED WITHOUT DATA
012829,002543:
012830,002544: 04,3443 04422 TC ENDOFJOB # PATHALOGICAL CASE EXIT
012831,002545: 04,3444 03455 TC DOTERM # - TERMINATE
012832,002546: 04,3445 37670 CAF TWO
012833,002547: 04,3446 50071 RECAL2 INDEX LOCCTR
012834,002548: 04,3447 60150 AD LOC # LOC IS + FOR BASIC JOBS
012835,002549: 04,3450 50071 INDEX LOCCTR
012836,002550: 04,3451 54150 TS LOC
012837,002551: 04,3452 00003 RELINT
012838,002552: 04,3453 05356 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
012839,002553: 04,3454 04422 TC ENDOFJOB
012840,002554:
012841,002555: 04,3455 37675 DOTERM CAF ZERO
012842,002556: 04,3456 03446 TC RECAL2
012843,002557:
012844,002558: 04,3457 37671 DOPROC CAF ONE
012845,002559: 04,3460 03446 TC RECAL2
012846,002560:
012847,002561: # THE FOLLOWING REFERS TO THE NOUN TABLES
012848,002562:
012849,002563:
012850,002564:
012851,002565: # COMPONENT CODE NUMBER INTERPRETATION
012852,002566:
012853,002567: # 00000 1 COMPONENT
012854,002568: # 00001 2 COMPONENT (EACH S P)
012855,002569: # 00010 3 COMPONENT (EACH SP)
012856,002570:
012857,002571:
012858,002572:
012859,002573: # SF ROUTINE CODE NUMBER INTERPRETATION
012860,002574:
012861,002575: # 00000 OCTAL ONLY
012862,002576: # 00001 STRAIGHT FRACTIONAL
012863,002577: # 00010 DEGREES (XXX.XX)
012864,002578: # 00011 ARITHMETIC SF
012865,002579: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN (STRAIGHT)
012866,002580: # 00101 ARITH DP2 OUT (STRAIGHT) IN (SL 7 AT END)
012867,002581: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
012868,002582: # 00111 ARITH DP3 OUT (SL 7 AT END) IN ( STRAIGHT)
012869,002583: # END OF SF ROUTINE CODE NUMBERS
012870,002584:
012871,002585: # SF CONSTANT CODE NUMBER INTERPRETATION
012872,002586:
012873,002587: # 00000 WHOLE
012874,002588: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
012875,002589: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
012876,002590: # 00010 DEGREES
012877,002591: # 00010 OPTICS DEGREES
012878,002592: # 00011 GYRO DEGREES (XX.XXX) USE ARITHDP3
012879,002593: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
012880,002594: # 00101 GYRO AXIS ACCEL. DRIFT
012881,002595: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
012882,002596: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
012883,002597: # 00111 PIPA SCALE FACTOR ERROR
012884,002598: # XXXXX. PARTS/MILLION
012885,002599: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
012886,002600: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
012887,002601: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
012888,002602: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
012889,002603: # 01100 RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
012890,002604: # USE ARITHDP1
012891,002605: # 01101 RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
012892,002606: # USE ARITHDP1
012893,002607: # 01110 LANDING RADAR ALTITUDE(XXXXX.FEET)
012894,002608: # USE ARITHDP1
012895,002609:
012896,002610: # 01111 INITIAL/FINAL ALTITUDE(XXXXX.FEET)
012897,002611: # USE ARITHDP1
012898,002612: # 10000 ALTITUDE RATE(XXXXX.FEET) USE ARITH
012899,002613: # 10001 FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
012900,002614: # USE ARITH
012901,002615: # 10010 ROTATIONAL HAND CONTROLLER ANGLE RATES
012902,002616: # XXXXX.DEG/SEC USE ARITH
012903,002617: # 10011 LANDING RADAR VELX(XXXXX.FEET/SEC)
012904,002618: # USE ARITHDP1
012905,002619: # 10100 LANDING RADAR VELY(XXXXX.FEET/SEC)
012906,002620: # USE ARITHDP1
012907,002621: # 10101 LANDING RADAR VELZ(XXXXX.FEET/SEC)
012908,002622: # USE ARITHDP1
012909,002623: # 10110 OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
012910,002624: # USE ARITHDP1
012911,002625: # END OF SF CONSTANT CODE NUMBERS
012912,002626:
012913,002627:
012914,002628:
012915,002629: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
012916,002630: # NOUN TABLES.
012917,002631: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
012918,002632: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
012919,002633: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
012920,002634:
012921,002635: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
012922,002636: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
012923,002637: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
012924,002638:
012925,002639:
012926,002640:
012927,002641: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
012928,002642: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
012929,002643: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
012930,002644: # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
012931,002645: # MIXED OR NORMAL NOUN.
012932,002646:
012933,002647: 16,2000 BANK 16
012934,002648:
012935,002649: 16,2000 52136 LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
012936,002650: 16,2001 50267 INDEX NOUNREG
012937,002651: 16,2002 32052 CAF NNADTAB
012938,002652: 16,2003 54132 TS NNADTEM
012939,002653: 16,2004 50267 INDEX NOUNREG
012940,002654: 16,2005 32152 CAF NNTYPTAB
012941,002655: 16,2006 54133 TS NNTYPTEM
012942,002656: 16,2007 40267 CS NOUNREG
012943,002657: 16,2010 62036 AD MIXCON
012944,002658: 16,2011 00006 EXTEND
012945,002659: 16,2012 62016 BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
012946,002660: 16,2013 37671 CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
012947,002661: 16,2014 54124 TS MIXBR # NORMAL. +1 INTO MIXBR.
012948,002662: 16,2015 02034 TC LODNLV
012949,002663: 16,2016 37670 LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
012950,002664: 16,2017 54124 TS MIXBR
012951,002665: 16,2020 50267 INDEX NOUNREG
012952,002666: 16,2021 32420 CAF RUTMXTAB -55
012953,002667: 16,2022 54137 TS RUTMXTEM
012954,002668: 16,2023 37701 CAF LOW10
012955,002669: 16,2024 70132 MASK NNADTEM
012956,002670: 16,2025 54002 TS Q # TEMP
012957,002671: 16,2026 50000 INDEX A
012958,002672: 16,2027 32406 CAF IDADDTAB
012959,002673: 16,2030 54134 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
012960,002674: 16,2031 00006 EXTEND
012961,002675: 16,2032 50002 INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
012962,002676: 16,2033 32410 DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
012963,002677: 16,2034 52136 LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
012964,002678: 16,2035 52006 DXCH Z
012965,002679:
012966,002680: 16,2036 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
012967,002681:
012968,002682:
012969,002683:
012970,002684: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
012971,002685:
012972,002686: 16,2037 52110 GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
012973,002687: 16,2040 00006 EXTEND
012974,002688: 16,2041 50000 INDEX A
012975,002689: 16,2042 32331 DCA SFOUTAB
012976,002690: 16,2043 52110 SFCOM DXCH SFTEMP1
012977,002691: 16,2044 52006 DXCH Z
012978,002692:
012979,002693:
012980,002694:
012981,002695: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
012982,002696:
012983,002697: 16,2045 52110 GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
012984,002698: 16,2046 00006 EXTEND
012985,002699: 16,2047 50000 INDEX A
012986,002700: 16,2050 32253 DCA SFINTAB
012987,002701: 16,2051 12043 TCF SFCOM
012988,002702:
012989,002703:
012990,002704:
012991,002705: # NN NORMAL NOUNS
012992,002706: 16,2052 00000 NNADTAB OCT 00000 # 00 NOT IN USE
012993,002707: 16,2053 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
012994,002708: 16,2054 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
012995,002709: 16,2055 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
012996,002710: 16,2056 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
012997,002711: 16,2057 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
012998,002712: 16,2060 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
012999,002713: 16,2061 00000 OCT 00000 # 07 SPARE
013000,002714: 16,2062 77776 OCT 77776 # 10 CHANNEL TO BE SPECIFIED
013001,002715: 16,2063 00000 OCT 00000 # 11 SPARE
013002,002716: 16,2064 00000 OCT 00000 # 12 SPARE
013003,002717: 16,2065 00000 OCT 00000 # 13 SPARE
013004,002718: 16,2066 00000 OCT 00000 # 14 SPARE
013005,002719: 16,2067 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
013006,002720: 16,2070 00024 ECADR TIME2 # 16 TIME SECONDS
013007,002721: 16,2071 00024 ECADR TIME2 # 17 TIME HOURS
013008,002722: 16,2072 00032 ECADR CDUX # 20 ICDU
013009,002723: 16,2073 00037 ECADR PIPAX # 21 PIPAS
013010,002724: 16,2074 00400 ECADR THETAD # 22 NEW ANGLES I
013011,002725: 16,2075 00336 ECADR DSPTEM2 # 23 DELTA ANGLES I
013012,002726: 16,2076 00333 ECADR DSPTEM1 # 24 DELTA TIME (SEC)
013013,002727: 16,2077 00333 ECADR DSPTEM1 # 25 CHECKLIST
013014,002728: 16,2100 00333 ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
013015,002729: 16,2101 01361 ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
013016,002730: 16,2102 00333 ECADR DSPTEM1 # 30 STAR NUMBERS
013017,002731: 16,2103 01363 ECADR FAILREG # 31 FAILREG
013018,002732: 16,2104 02166 ECADR TDEC # 32 DECISION TIME (MIDCOURSE)
013019,002733: 16,2105 02046 ECADR TET # 33 EPHEMERIS TIME (MIDCOURSE)
013020,002734: 16,2106 02174 ECADR MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
013021,002735: 16,2107 00333 ECADR DSPTEM1 # 35 INBIT MESSAGE
013022,002736:
013023,002737: 16,2110 01474 ECADR LANDMARK # 36 LANDMARK DATA 1
013024,002738: 16,2111 01477 ECADR LANDMARK +3 # 37 LANDMARK DATA 2
013025,002739: 16,2112 00035 ECADR OPTY # 40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
013026,002740: 16,2113 00423 ECADR TANG # 41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
013027,002741: 16,2114 00336 ECADR DSPTEM2 # 42 AOT ROTATION ANGLES
013028,002742: 16,2115 00375 ECADR XYMARK # 43 AOT DETENT CODE
013029,002743: 16,2116 00360 ECADR FORVEL # 44 FORWARD VELOCITY, LATERAL VELOCITY
013030,002744: 16,2117 00000 OCT 00000 # 45 SPARE
013031,002745: 16,2120 00000 OCT 00000 # 46 SPARE
013032,002746: 16,2121 00000 OCT 00000 # 47 SPARE
013033,002747: 16,2122 00000 OCT 00000 # 50 SPARE
013034,002748: 16,2123 00000 OCT 00000 # 51 SPARE
013035,002749: 16,2124 01440 ECADR GBIASX # 52 GYRO BIAS DRIFT
013036,002750: 16,2125 01443 ECADR ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
013037,002751: 16,2126 01446 ECADR ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
013038,002752:
013039,002753: # NN MIXED NOUNS
013040,002754: 16,2127 02000 OCT 02000 # 55 LANDING RADAR ALTITUDE, TIME(SEC)
013041,002755: 16,2130 02002 OCT 02002 # 56 LANDING RADAR VELX, TIME(SEC)
013042,002756: 16,2131 02004 OCT 02004 # 57 LANDING RADAR VELY, TIME(SEC)
013043,002757: 16,2132 02006 OCT 02006 # 60 LANDING RADAR VELZ, TIME(SEC)
013044,002758: 16,2133 02010 OCT 02010 # 61 TARGET AZIMUTH AND ELEVATION
013045,002759: 16,2134 04012 OCT 04012 # 62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
013046,002760: 16,2135 04015 OCT 04015 # 63 REND. RADAR RANGE RATE, TRUN, SHAFT
013047,002761: 16,2136 04020 OCT 04020 # 64 INITIAL ALT, FINAL ALT, ALT RATE
013048,002762: 16,2137 02023 OCT 02023 # 65 SAMPLED TIME (HOURS AND SECONDS)
013049,002763: # (FETCHED IN INTERRUPT)
013050,002764: 16,2140 04025 OCT 04025 # 66 SYSTEM TEST RESULTS
013051,002765: 16,2141 04030 OCT 04030 # 67 DELTA GYRO ANGLES
013052,002766: 16,2142 02033 OCT 02033 # 70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
013053,002767: 16,2143 02035 OCT 02035 # 71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
013054,002768: 16,2144 04037 OCT 04037 # 72 DELTA POSITION
013055,002769: 16,2145 04042 OCT 04042 # 73 DELTA VELOCITY
013056,002770: 16,2146 04045 OCT 04045 # 74 MEASUREMENT DATA (MIDCOURSE)
013057,002771: 16,2147 04050 OCT 04050 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
013058,002772: 16,2150 04053 OCT 04053 # 76 POSITION VECTOR
013059,002773: 16,2151 04056 OCT 04056 # 77 VELOCITY VECTOR
013060,002774:
013061,002775:
013062,002776:
013063,002777: # NN NORMAL NOUNS
013064,002778: 16,2152 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
013065,002779: 16,2153 00040 OCT 00040 # 01 1COMP FRACTIONAL
013066,002780: 16,2154 00140 OCT 00140 # 02 1COMP WHOLE
013067,002781: 16,2155 00102 OCT 00102 # 03 1COMP DEGREES
013068,002782: 16,2156 00241 OCT 00241 # 04 1COMP HOURS
013069,002783: 16,2157 00200 OCT 00200 # 05 1COMP SECONDS
013070,002784: 16,2160 00343 OCT 00343 # 06 1COMP GYRO DEGREES
013071,002785: 16,2161 00000 OCT 00000 # 07 SPARE
013072,002786: 16,2162 00000 OCT 00000 # 10 1COMP OCTAL ONLY
013073,002787:
013074,002788: 16,2163 00000 OCT 00000 # 11 SPARE
013075,002789: 16,2164 00000 OCT 00000 # 12 SPARE
013076,002790: 16,2165 00000 OCT 00000 # 13 SPARE
013077,002791: 16,2166 00000 OCT 00000 # 14 SPARE
013078,002792: 16,2167 00000 OCT 00000 # 15 1COMP OCTAL ONLY
013079,002793: 16,2170 00200 OCT 00200 # 16 1COMP SECONDS
013080,002794: 16,2171 00241 OCT 00241 # 17 1COMP HOURS
013081,002795: 16,2172 04102 OCT 04102 # 20 3COMP DEGREES
013082,002796: 16,2173 04140 OCT 04140 # 21 3COMP WHOLE
013083,002797: 16,2174 04102 OCT 04102 # 22 3COMP DEGREES
013084,002798: 16,2175 04102 OCT 04102 # 23 3COMP DEGREES
013085,002799: 16,2176 00200 OCT 00200 # 24 1COMP SECONDS
013086,002800: 16,2177 00140 OCT 00140 # 25 1COMP WHOLE
013087,002801: 16,2200 04000 OCT 04000 # 26 3COMP OCTAL ONLY
013088,002802: 16,2201 00140 OCT 00140 # 27 1COMP WHOLE
013089,002803: 16,2202 04140 OCT 04140 # 30 3COMP WHOLE
013090,002804: 16,2203 04000 OCT 04000 # 31 3COMP OCTAL ONLY
013091,002805: 16,2204 00252 OCT 00252 # 32 1COMP TIME WEEKS
013092,002806: 16,2205 00252 OCT 00252 # 33 1COMP TIME WEEKS
013093,002807: 16,2206 00350 OCT 00350 # 34 1COMP POISTION
013094,002808: 16,2207 04000 OCT 04000 # 35 3COMP OCTAL ONLY
013095,002809: 16,2210 04000 OCT 04000 # 36 3COMP OCTAL ONLY
013096,002810: 16,2211 04000 OCT 04000 # 37 3COMP OCTAL ONLY
013097,002811: 16,2212 02102 OCT 02102 # 40 2COMP DEGREES
013098,002812: 16,2213 02102 OCT 02102 # 41 2COMP DEGREES
013099,002813: 16,2214 02102 OCT 02102 # 42 2COMP DEGREES
013100,002814: 16,2215 00140 OCT 00140 # 43 1COMP WHOLE
013101,002815: 16,2216 02161 OCT 02161 # 44 2COMP FORWARD/LATERAL VELOCITY
013102,002816: 16,2217 00000 OCT 00000 # 45 SPARE
013103,002817: 16,2220 00000 OCT 00000 # 46 SPARE
013104,002818: 16,2221 00000 OCT 00000 # 47 SPARE
013105,002819: 16,2222 00000 OCT 00000 # 50 SPARE
013106,002820: 16,2223 00000 OCT 00000 # 51 SPARE
013107,002821: 16,2224 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
013108,002822: 16,2225 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
013109,002823: 16,2226 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
013110,002824:
013111,002825: # NN MIXED NOUNS
013112,002826: 16,2227 00016 OCT 00016 # 55 2COMP LANDING RADAR ALT, SECONDS
013113,002827: 16,2230 00023 OCT 00023 # 56 2COMP LANDING RADAR VELX, SECONDS
013114,002828: 16,2231 00024 OCT 00024 # 57 2COMP LANDING RADAR VELY, SECONDS
013115,002829: 16,2232 00025 OCT 00025 # 60 2COMP LANDING RADAR VELZ, SECONDS
013116,002830: 16,2233 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
013117,002831: 16,2234 04114 OCT 04114 # 62 3COMP REND. RADAR RANGE, DEG, DEG
013118,002832: 16,2235 04115 OCT 04115 # 63 3COMP REND. RAD. RANGE RATE, DEG,DEG
013119,002833: 16,2236 40757 OCT 40757 # 64 3COMP IN/FN ALT, IN/FN ALT, ALT RATE
013120,002834: 16,2237 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
013121,002835: 16,2240 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
013122,002836: 16,2241 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
013123,002837: 16,2242 00126 OCT 00126 # 70 2COMP OPT TRACK AZIMUTH, DEGREES
013124,002838:
013125,002839: 16,2243 00126 OCT 00126 # 71 2COMP OPT TRACK AZIMUTH, DEGREES
013126,002840: 16,2244 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
013127,002841: 16,2245 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
013128,002842: 16,2246 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
013129,002843: 16,2247 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
013130,002844: 16,2250 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
013131,002845: 16,2251 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
013132,002846:
013133,002847:
013134,002848:
013135,002849: 16,2252 00006 SFINTAB OCT 00006 # WHOLE,TIME(SEC)
013136,002850: 16,2253 03240 OCT 03240
013137,002851: 16,2254 00253 OCT 00253 # TIME HOURS ( = 1.3..... )
013138,002852: 16,2255 25124 OCT 25124 # (POINT BETWEEN BITS 7-8 )
013139,002853: 16,2256 00000 OCT 0 # DEGREES (SFCON IN DEGINSF)
013140,002854: 16,2257 00000 OCT 0
013141,002855: 16,2260 10707 OCT 10707 # GYRO DEGREES
013142,002856: 16,2261 03435 OCT 03435 # UPPED BY 1
013143,002857: 16,2262 00001 OCT 00001 # GYRO BIAS DRIFT
013144,002858: 16,2263 02133 OCT 02133
013145,002859: 16,2264 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
013146,002860: 16,2265 30322 OCT 30322
013147,002861: 16,2266 00004 OCT 00004 # PIPA BIAS
013148,002862: 16,2267 14021 OCT 14021
013149,002863: 16,2270 00314 OCT 00314 # PIPA SCALE ERROR.
013150,002864: 16,2271 31463 OCT 31463
013151,002865: 16,2272 23420 OCT 23420 # POSITION
013152,002866: 16,2273 00000 OCT 00000
013153,002867: 16,2274 00201 OCT 00201 # VELOCITY
013154,002868: 16,2275 30327 OCT 30327 # ( POINT BETWEEN BITS 7-8 )
013155,002869: 16,2276 01371 OCT 01371 # TIME WEEKS
013156,002870: 16,2277 34750 OCT 34750 # ( POINT BETWEEN BITS 7-8 )
013157,002871: 16,2300 00001 OCT 00001 # ELEVATION DEGREES
013158,002872: 16,2301 03434 OCT 03434
013159,002873: 16,2302 00006 OCT 00006 # RENDEZVOUS RADAR RANGE
013160,002874: 16,2303 20162 OCT 20162
013161,002875: 16,2304 00011 OCT 00011 # RENDEZVOUS RADAR RANGE RATE
013162,002876: 16,2305 27066 OCT 27066
013163,002877: 16,2306 00016 OCT 00016 # LANDING RADAR ALTITUDE
013164,002878: 16,2307 04245 OCT 04245
013165,002879: 16,2310 00002 OCT 00002 # INITIAL/FINAL ALTITUDE
013166,002880: 16,2311 23224 OCT 23224
013167,002881: 16,2312 00014 OCT 00014 # ALTITUDE RATE
013168,002882: 16,2313 06500 OCT 06500
013169,002883: 16,2314 00012 OCT 00012 # FORWARD/LATERAL VELOCITY
013170,002884: 16,2315 36455 OCT 36455
013171,002885: 16,2316 04256 OCT 04256 # ROT HAND CONT ANGLE RATE
013172,002886: 16,2317 07071 OCT 07071
013173,002887: 16,2320 77766 OCT 77766 # LANDING RADAR VELX (NEG TO SWITCH SIGNS)
013174,002888: 16,2321 60044 OCT 60044
013175,002889:
013176,002890: 16,2322 00004 OCT 00004 # LANDING RADAR VELY
013177,002891: 16,2323 34055 OCT 34055
013178,002892: 16,2324 00007 OCT 00007 # LANDING RADAR VELZ
013179,002893: 16,2325 04147 OCT 04147
013180,002894: 16,2326 00005 OCT 00005 # OPTICAL AZIMUTH TRACKER ANGLE
013181,002895: 16,2327 21616 OCT 21616
013182,002896: # END OF SFINTAB
013183,002897:
013184,002898:
013185,002899:
013186,002900: 16,2330 05174 SFOUTAB OCT 05174 # WHOLE, TIME(SEC)
013187,002901: 16,2331 13261 OCT 13261
013188,002902: 16,2332 27670 OCT 27670 # TIME HOURS
013189,002903: 16,2333 31357 OCT 31357
013190,002904: 16,2334 00000 OCT 0 # DEGREES
013191,002905: 16,2335 00000 OCT 0
013192,002906: 16,2336 00714 OCT 00714 # GYRO DEGREES
013193,002907: 16,2337 31463 OCT 31463 # (POINT BETWEEN BITS 7-8)
013194,002908: 16,2340 35753 OCT 35753 # GYRO BIAS DRIFT
013195,002909: 16,2341 32323 OCT 32323
013196,002910: 16,2342 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
013197,002911: 16,2343 06400 OCT 06400
013198,002912: 16,2344 07237 OCT 07237 # PIPA BIAS
013199,002913: 16,2345 37776 OCT 37776
013200,002914: 16,2346 00120 OCT 00120 # PIPA SCALE ERROR
013201,002915: 16,2347 00000 OCT 00000
013202,002916: 16,2350 00321 OCT 00321 # POSITION
013203,002917: 16,2351 26706 OCT 26706 # ( POINT BETWEEN BITS 7-8 )
013204,002918: 16,2352 37441 OCT 37441 # VELOCITY
013205,002919: 16,2353 14247 OCT 14247
013206,002920: 16,2354 05300 OCT 05300 # TIME WEEKS
013207,002921: 16,2355 20305 OCT 20305
013208,002922: 16,2356 34631 OCT 34631 # ELEVATION DEGREES
013209,002923: 16,2357 23146 OCT 23146
013210,002924: 16,2360 04725 OCT 04725 # RENDEZVOUS RADAR RANGE
013211,002925: 16,2361 35454 OCT 35454
013212,002926: 16,2362 03225 OCT 03225 # RENDEZVOUS RADAR RANGE RATE
013213,002927: 16,2363 07470 OCT 07470
013214,002928: 16,2364 02207 OCT 02207 # LANDING RADAR ALTITUDE
013215,002929: 16,2365 03255 OCT 03255
013216,002930: 16,2366 14226 OCT 14226 # INITIAL/FINAL ALTITUDE
013217,002931: 16,2367 31757 OCT 31757
013218,002932: 16,2370 02476 OCT 02476 # ALTITUDE RATE
013219,002933: 16,2371 05531 OCT 05531
013220,002934: 16,2372 02727 OCT 02727 # FORWARD/LATERAL VELOCITY
013221,002935: 16,2373 16415 OCT 16415
013222,002936: 16,2374 00007 OCT 00007 # ROT HAND CONT ANGLE RATE
013223,002937: 16,2375 13734 OCT 13734
013224,002938: 16,2376 74502 OCT 74502 # LANDING RADAR VELX (NEG TO SWITCH SIGNS)
013225,002939: 16,2377 76401 OCT 76401
013226,002940:
013227,002941: 16,2400 06436 OCT 06436 # LANDING RADAR VELY
013228,002942: 16,2401 35664 OCT 35664
013229,002943: 16,2402 04371 OCT 04371 # LANDING RADAR VELZ
013230,002944: 16,2403 17420 OCT 17420
013231,002945: 16,2404 05605 OCT 05605 # OPTICAL TRACKER AZIMUTH ANGLE
013232,002946: 16,2405 03656 OCT 03656
013233,002947: # END OF SFOUTAB
013234,002948:
013235,002949:
013236,002950: # MIXNOUN SF ROUT
013237,002951: 16,2406 03461 IDADDTAB ECADR RSTACK +18D # 01 LANDING RADAR ALTITUDE
013238,002952: 16,2407 03465 ECADR RSTACK +22D # 01 SECONDS
013239,002953: 16,2410 03437 ECADR RSTACK # 02 LANDING RADAR VELX
013240,002954: 16,2411 03443 ECADR RSTACK +4 # 02 SECONDS
013241,002955: 16,2412 03445 ECADR RSTACK +6 # 03 LANDING RADAR VELY
013242,002956: 16,2413 03451 ECADR RSTACK +10D # 03 SECONDS
013243,002957: 16,2414 03453 ECADR RSTACK +12D # 04 LANDING RADAR VELY
013244,002958: 16,2415 03457 ECADR RSTACK +16D # 04 SECONDS
013245,002959: 16,2416 00333 ECADR DSPTEM1 # 05 DEGREES
013246,002960: 16,2417 00334 ECADR DSPTEM1 +1 # 05 ELEVATION DEGREES
013247,002961: 16,2420 03437 ECADR RSTACK # 06 RENDEZVOUS RADAR RANGE
013248,002962: 16,2421 03441 ECADR RSTACK +2 # 06 DEGREES
013249,002963: 16,2422 03442 ECADR RSTACK +3 # 06 DEGREES
013250,002964: 16,2423 03445 ECADR RSTACK +6 # 07 RENDEZVOUS RADAR RANGE RATE
013251,002965: 16,2424 03447 ECADR RSTACK +8D # 07 DEGREES
013252,002966: 16,2425 03450 ECADR RSTACK +9D # 07 DEGREES
013253,002967: 16,2426 00352 ECADR ALT # 10 INITIAL/FINAL ALTITUDE
013254,002968: 16,2427 00355 ECADR FINALT # 10 INITIAL/FINAL ALTITUDE
013255,002969: 16,2430 00354 ECADR ALTRATE # 10 ALTITUDE RATE
013256,002970: 16,2431 00013 ECADR SAMPTIME # 11 HOURS
013257,002971: 16,2432 00013 ECADR SAMPTIME # 11 SECONDS
013258,002972: 16,2433 00336 ECADR DSPTEM2 # 11 WHOLE
013259,002973: 16,2434 00337 ECADR DSPTEM2 +1 # 12 FRACTIONAL
013260,002974: 16,2435 00340 ECADR DSPTEM2 +2 # 12 WHOLE
013261,002975: 16,2436 00403 ECADR DELVX # 13 GYRO DEGREES
013262,002976: 16,2437 00405 ECADR DELVX +2 # 13 GYRO DEGREES
013263,002977: 16,2440 00407 ECADR DELVX +4 # 13 GYRO DEGREES
013264,002978: 16,2441 01471 ECADR AZANG # 14 OPT TRACK AZIMUTH ANGLE
013265,002979: 16,2442 01471 ECADR ELANG # 14 DEGREES
013266,002980: 16,2443 01471 ECADR DESLOTSY # 15 OPT TRACK AZIMUTH ANGLE
013267,002981: 16,2444 01471 ECADR DESLOTSX # 15 DEGREES
013268,002982: 16,2445 02052 ECADR DELR # 16 POSITION
013269,002983: 16,2446 02054 ECADR DELR +2 # 16 POSITION
013270,002984: 16,2447 02056 ECADR DELR +4 # 16 POSITION
013271,002985: 16,2450 02060 ECADR DELVEL # 17 VELOCITY
013272,002986: 16,2451 02062 ECADR DELVEL +2 # 17 VELOCITY
013273,002987: 16,2452 02064 ECADR DELVEL +4 # 17 VELOCITY
013274,002988: 16,2453 02166 ECADR TDEC # 20 TIME WEEKS
013275,002989: 16,2454 02174 ECADR MEASQ # 20 POSITION
013276,002990:
013277,002991: 16,2455 02200 ECADR MEASMODE # 20 WHOLE
013278,002992: 16,2456 00333 ECADR DSPTEM1 # 21 POSITION
013279,002993: 16,2457 00335 ECADR DSPTEM1 +2 # 21 VELOCITY
013280,002994: 16,2460 02176 ECADR DELTAQ # 21 POSITION
013281,002995: 16,2461 00333 ECADR DSPTEM1 # 22 POSITION
013282,002996: 16,2462 00335 ECADR DSPTEM1 +2 # 22 POSITION
013283,002997: 16,2463 00337 ECADR DSPTEM1 +4 # 22 POSITION
013284,002998: 16,2464 00333 ECADR DSPTEM1 # 23 VELOCITY
013285,002999: 16,2465 00335 ECADR DSPTEM1 +2 # 23 VELOCITY
013286,003000: 16,2466 00337 ECADR DSPTEM1 +4 # 23 VELOCITY
013287,003001: 16,2467 00000 OCT 00000 # SPARE
013288,003002: 16,2470 00000 OCT 00000 # SPARE
013289,003003: 16,2471 00000 OCT 00000 # SPARE
013290,003004: 16,2472 00000 OCT 00000 # SPARE
013291,003005: 16,2473 00000 OCT 00000 # SPARE
013292,003006: 16,2474 00000 OCT 00000 # SPARE
013293,003007: # END OF IDADDTAB
013294,003008:
013295,003009:
013296,003010:
013297,003011: # MIXNOUN SF ROUT
013298,003012: 16,2475 00204 RUTMXTAB OCT 00204 # 01 LANDING RADAR ALTITUDE, SECONDS
013299,003013: 16,2476 00204 OCT 00204 # 02 LANDING RADAR VELX, SECONDS
013300,003014: 16,2477 00204 OCT 00204 # 03 LANDING RADAR VELY, SECONDS
013301,003015: 16,2500 00204 OCT 00204 # 04 LANDING RADAR VELZ, SECONDS
013302,003016: 16,2501 00142 OCT 00142 # 05 DEGREES, ELEVATION DEGREES
013303,003017: 16,2502 04104 OCT 04104 # 06 RENDEZVOUS RADAR RANGE, DEG, DEG
013304,003018: 16,2503 04104 OCT 04104 # 07 REND. RADAR RANGE RATE, DEG, DEG
013305,003019: 16,2504 06204 OCT 06204 # 10 INIT/FIN ALT, INIT/FIN ALT, ALT RATE
013306,003020: 16,2505 00205 OCT 00205 # 11 HOURS, SECONDS
013307,003021: 16,2506 06043 OCT 06043 # 12 WHOLE, FRACTIONAL, WHOLE
013308,003022: 16,2507 16347 OCT 16347 # 13 GYRO DEGREES (FOR EACH)
013309,003023: 16,2510 00104 OCT 00104 # 14 OPT TRACK AZIMUTH ANGLE, DEGREES
013310,003024: 16,2511 00104 OCT 00104 # 15 OPT TRACK AZIMUTH ANGLE, DEGREES
013311,003025: 16,2512 16347 OCT 16347 # 16 POSITION (FOR EACH)
013312,003026: 16,2513 12245 OCT 12245 # 17 VELOCITY (FOR EACH)
013313,003027: 16,2514 06345 OCT 06345 # 20 TIME WEEKS, POSITION, WHOLE
013314,003028: 16,2515 16247 OCT 16247 # 21 POSITION , VELOCITY, POSITION
013315,003029: 16,2516 16347 OCT 16347 # 22 POSITION (FOR EACH)
013316,003030: 16,2517 12245 OCT 12245 # 23 VELOCITY (FOR EACH)
013317,003031: # END OF RUTMXTAB
013318,003032:
013319,003033:
013320,003034:
013321,003035: 16,2520 ENDPINS3 EQUALS
013322,003036:
013323,003037:
013324,003038: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
013325,003039:
013326,003040:
013327,003041:
013328,003042: 5153 SETLOC DATWAIT1 +2
013329,003043:
013330,003044: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
013331,003045: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
013332,003046:
013333,003047: 5153 54304 SETNCADR TS NOUNCADR # STORE ECADR
013334,003048: 5154 54003 TS EBANK # SET EBANK BITS
013335,003049: 5155 75227 MASK LOW8
013336,003050: 5156 65230 AD OCT1400
013337,003051: 5157 54131 TS NOUNADD # PUT E ADRES INTO NOUNADD
013338,003052: 5160 00002 TC Q
013339,003053:
013340,003054:
013341,003055:
013342,003056: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
013343,003057: # E ADRES AND PUTS IT INTO NOUNADD.
013344,003058:
013345,003059: 5161 30304 SETNADD CA NOUNCADR
013346,003060: 5162 15154 TCF SETNCADR +1
013347,003061:
013348,003062:
013349,003063:
013350,003064: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
013351,003065: # DERIVED AND LEFT IN A.
013352,003066:
013353,003067: 5163 54003 SETEBANK TS EBANK # SET EBANK BITS
013354,003068: 5164 75227 MASK LOW8
013355,003069: 5165 65230 AD OCT1400 # E ADRES LEFT IN A
013356,003070: 5166 00002 TC Q
013357,003071:
013358,003072:
013359,003073:
013360,003074: 5167 00016 R1D1 OCT 16
013361,003075: 5170 00011 R2D1 OCT 11
013362,003076: 5171 00004 R3D1 OCT 4
013363,003077:
013364,003078: 5172 54020 RIGHT5 TS CYR
013365,003079: 5173 40020 CS CYR
013366,003080: 5174 40020 CS CYR
013367,003081: 5175 40020 CS CYR
013368,003082: 5176 40020 CS CYR
013369,003083: 5177 56020 XCH CYR
013370,003084: 5200 00002 TC Q
013371,003085:
013372,003086: 5201 54022 LEFT5 TS CYL
013373,003087: 5202 40022 CS CYL
013374,003088:
013375,003089: 5203 40022 CS CYL
013376,003090: 5204 40022 CS CYL
013377,003091: 5205 40022 CS CYL
013378,003092: 5206 56022 XCH CYL
013379,003093: 5207 00002 TC Q
013380,003094:
013381,003095: 5210 60000 SLEFT5 DOUBLE
013382,003096: 5211 60000 DOUBLE
013383,003097: 5212 60000 DOUBLE
013384,003098: 5213 60000 DOUBLE
013385,003099: 5214 60000 DOUBLE
013386,003100: 5215 00002 TC Q
013387,003101:
013388,003102:
013389,003103:
013390,003104: 5216 00037 LOW5 OCT 37
013391,003105: 5217 01740 MID5 OCT 1740
013392,003106: 5220 76000 HI5 OCT 76000 # MUST STAY HERE
013393,003107:
013394,003108: 5221 04344 TCNOVAC TC NOVAC
013395,003109: 5222 04517 TCWAIT TC WAITLIST
013396,003110: 5223 04563 TCTSKOVR TC TASKOVER
013397,003111: 5224 04355 TCFINDVC TC FINDVAC
013398,003112:
013399,003113:
013400,003114:
013401,003115: 5225 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
013402,003116:
013403,003117:
013404,003118:
013405,003119: 5226 03777 LOW11 OCT 3777
013406,003120: 5227 5226 B12-1 EQUALS LOW11
013407,003121: 5227 00377 LOW8 OCT 377
013408,003122: 5230 01400 OCT1400 OCT 1400
013409,003123:
013410,003124:
013411,003125:
013412,003126: 5231 00023 VD1 OCT 23
013413,003127: 5232 00021 ND1 OCT 21
013414,003128: 5233 00025 MD1 OCT 25
013415,003129:
013416,003130: 5234 00012 BINCON DEC 10 B-14
013417,003131:
013418,003132: 5235 37663 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
013419,003133: 5236 00006 EXTEND
013420,003134: 5237 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
013421,003135: 5240 00002 TC Q
013422,003136:
013423,003137: 5241 47663 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
013424,003138: 5242 00006 EXTEND
013425,003139:
013426,003140: 5243 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
013427,003141: 5244 00002 TC Q
013428,003142:
013429,003143: 5245 37665 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
013430,003144: 5246 00006 EXTEND
013431,003145: 5247 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
013432,003146: 5250 00002 TC Q
013433,003147:
013434,003148: 5251 00006 LODSAMPT EXTEND
013435,003149: 5252 30025 DCA TIME2
013436,003150: 5253 52014 DXCH SAMPTIME
013437,003151: 5254 00002 TC Q
013438,003152:
013439,003153:
013440,003154:
013441,003155: 5255 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
013442,003156: 5256 30142 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
013443,003157: 5257 20142 DAS MPAC +1
013444,003158: 5260 60140 AD MPAC
013445,003159: 5261 26140 ADS MPAC
013446,003160: 5262 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
013447,003161: 5263 00002 TC Q # NO NET OF/UF
013448,003162: 5264 54105 TS OVFIND # OVFIND SET TO +/- 1 FOR OF/UF
013449,003163: 5265 00002 TC Q
013450,003164:
013451,003165:
013452,003166:
013453,003167: 5266 37664 FLASHON CAF BIT6 # TURN ON V/N FLASH
013454,003168: 5267 00006 EXTEND # BIT 6 OF CHANNEL 11
013455,003169: 5270 05011 WOR DSALMOUT
013456,003170: 5271 00002 TC Q
013457,003171:
013458,003172:
013459,003173:
013460,003174: 5272 47664 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
013461,003175: 5273 00006 EXTEND
013462,003176: 5274 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
013463,003177: 5275 00002 TC Q
013464,003178:
013465,003179: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
013466,003180: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
013467,003181: # MAKE IT BUSY TO OTHER INTERNAL USERS.
013468,003182:
013469,003183: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
013470,003184: # SYSTEM FOR OTHER INTERNAL USERS.
013471,003185:
013472,003186: # THE CALLING SEQUENCES ARE
013473,003187: # L TC GRABDSP
013474,003188: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
013475,003189: # L+2 RETURN HERE MEANS YOU HAVE IT
013476,003190:
013477,003191: # L TC NVSUB
013478,003192: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
013479,003193: # L+2 RETURN HERE AFTER EXECUTION
013480,003194:
013481,003195:
013482,003196:
013483,003197: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
013484,003198: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
013485,003199: # GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
013486,003200: # HANDLE ONLY FIXED MEMORY.
013487,003201: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
013488,003202:
013489,003203: # THE CALLING SEQUENCE IS
013490,003204: # CAF WAKEFCADR
013491,003205: # TC GRABUSY
013492,003206:
013493,003207: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
013494,003208: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
013495,003209: # NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
013496,003210: # HANDLE ONLY FIXED MEMORY.
013497,003211: # YOUR CADR IS PUT
013498,003212: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
013499,003213:
013500,003214: # THE CALLING SEQUENCE IS
013501,003215: # CAF WAKEFCADR
013502,003216: # TC NVSUBUSY
013503,003217:
013504,003218:
013505,003219: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
013506,003220: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
013507,003221: # DISPLAYS WAITING WILL BE VISIBLE.
013508,003222:
013509,003223:
013510,003224:
013511,003225: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
013512,003226: # AND DISPLAY SYSTEM.
013513,003227: # +0 FREE
013514,003228:
013515,003229: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
013516,003230: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
013517,003231:
013518,003232:
013519,003233:
013520,003234: 5276 10324 GRABDSP CCS GRABLOCK
013521,003235: 5277 00002 TC Q # ALREADY GRABBED, RETURN TO L+1
013522,003236: 5300 37671 CAF ONE # NOT GRABBED, SET TO +1
013523,003237: 5301 54324 TS GRABLOCK # AND RETURN TO L+2
013524,003238: 5302 50002 INDEX Q
013525,003239: 5303 00001 TC 1
013526,003240:
013527,003241:
013528,003242:
013529,003243: 5304 37701 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
013530,003244: 5305 70002 MASK Q # BANKS ONLY DESIRING THE FCADR OF
013531,003245: 5306 60004 AD FBANK # 1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
013532,003246: 5307 04104 GRABUSY TC POSTJUMP # TO BE ENTERED.
013533,003247: 5310 10000 CADR GRABUSYB
013534,003248: 04,3461 SETLOC DOPROC +2
013535,003249: 04,3461 54001 GRABUSY1 TS L
013536,003250: 04,3462 10324 CCS GRABLOCK
013537,003251: 04,3463 03466 TC +3 # STILL GRABBED
013538,003252: 04,3464 30001 CA L # NOT GRABBED SO DO DIRECT CALL
013539,003253: 04,3465 04107 TC BANKJUMP
013540,003254: 04,3466 37670 CAF TWO
013541,003255: 04,3467 54130 TS LSTPTR
013542,003256: 04,3470 50130 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
013543,003257: 04,3471 10327 CCS DSPLIST # FROM BOTTOM.
013544,003258: 04,3472 03474 TC +2
013545,003259: 04,3473 03477 TC PUTINLST # SPACE FOUND
013546,003260: 04,3474 10130 CCS LSTPTR # DECREMENT POINTER
013547,003261: 04,3475 03467 TC -6
013548,003262: 04,3476 03543 TC LSTFULL
013549,003263: 04,3477 30001 PUTINLST CA L
013550,003264: 04,3500 50130 INDEX LSTPTR
013551,003265: 04,3501 54327 TS DSPLIST
013552,003266: 04,3502 04400 TC JOBSLEEP
013553,003267:
013554,003268:
013555,003269: # GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
013556,003270: # SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
013557,003271: # WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
013558,003272: # JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
013559,003273: # SYSTEM IS FREED.
013560,003274:
013561,003275: 5311 SETLOC GRABUSY +2
013562,003276: 5311 10324 GRABWAIT CCS GRABLOCK
013563,003277: 5312 15304 TCF PREGBSY # GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
013564,003278:
013565,003279: 5313 37671 CAF ONE # NOT GRABBED. GRAB AND RETURN TO L+1.
013566,003280: 5314 54324 TS GRABLOCK
013567,003281: 5315 00002 TC Q
013568,003282:
013569,003283:
013570,003284:
013571,003285: 5316 45323 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
013572,003286: 5317 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
013573,003287: 5320 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
013574,003288: 5321 04104 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
013575,003289: 5322 10001 CADR NVSUBSYB
013576,003290: 5323 02003 2K+3 OCT 2003
013577,003291:
013578,003292: 04,3503 SETLOC PUTINLST +4
013579,003293: 04,3503 54001 NVSUBSY1 TS L
013580,003294: 04,3504 10277 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
013581,003295: 04,3505 03510 TC +3 # STILL BUSY
013582,003296: 04,3506 30001 CA L # DSPLOCK = +0 SO RETURN DIRECTLY
013583,003297: 04,3507 04107 TC BANKJUMP
013584,003298: 04,3510 37670 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
013585,003299: 04,3511 54324 TS GRABLOCK
013586,003300: 04,3512 30001 CA L
013587,003301: 04,3513 56331 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
013588,003302: 04,3514 56330 XCH DSPLIST +1 # (BOTTOM)
013589,003303: 04,3515 56327 XCH DSPLIST
013590,003304: 04,3516 10000 CCS A
013591,003305: 04,3517 03543 TC LSTFULL
013592,003306: 04,3520 03522 TC +2
013593,003307: 04,3521 03543 TC LSTFULL
013594,003308: 04,3522 05245 TC RELDSPON
013595,003309: 04,3523 30001 CA L
013596,003310: 04,3524 04400 ENDNVBSY TC JOBSLEEP
013597,003311:
013598,003312:
013599,003313:
013600,003314: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
013601,003315: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
013602,003316: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
013603,003317: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
013604,003318: # IS NOT BUSY.
013605,003319:
013606,003320: 5324 SETLOC NVSUBUSY +3
013607,003321: 5324 54107 NVSBWAIT TS NVTEMP
013608,003322: 5325 10277 CCS DSPLOCK
013609,003323: 5326 15331 TCF NVSBWT1 # BUSY
013610,003324: 5327 30002 CA Q # FREE. NVSUB WILL SAVE L+1 FOR RETURN
013611,003325: 5330 15106 TCF NVSUB +5 # AFTER EXECUTION.
013612,003326: 5331 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
013613,003327: 5332 15316 TCF PRENVBSY # GO TO SLEEP.
013614,003328:
013615,003329: 5333 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
013616,003330: 5334 54130 TS RELRET # OFF, SEARCH DSPLIST
013617,003331: 5335 37677 CAF NEG1
013618,003332: 5336 60324 AD GRABLOCK
013619,003333: 5337 00006 EXTEND # SEARCH LIST ONLY IF GRABLOCK = +2
013620,003334: 5340 65346 BZMF RELDSP2 # (SOMEONE USED NVSUBUSY)
013621,003335: 5341 05361 TC WKSEARCH
013622,003336: 5342 05346 TC RELDSP2 # LIST EMPTY
013623,003337: 5343 04404 TC JOBWAKE # LIST NOT EMPTY
013624,003338: 5344 37671 CAF ONE
013625,003339: 5345 54324 TS GRABLOCK
013626,003340: 5346 00004 RELDSP2 INHINT
013627,003341: 5347 47665 CS BIT5 # TURN OFF KEY RELEASE LIGHT
013628,003342: 5350 00006 EXTEND # (BIT 5 OF CHANNEL 11)
013629,003343: 5351 03011 WAND DSALMOUT
013630,003344: 5352 37675 CAF ZERO
013631,003345: 5353 54277 TS DSPLOCK
013632,003346: 5354 00003 RELINT
013633,003347: 5355 00130 TC RELRET
013634,003348: 5356 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. RELDSP LIGHT OFF.
013635,003349: 5357 54130 TS RELRET # NO LIST SEARCH
013636,003350: 5360 05346 TC RELDSP2
013637,003351:
013638,003352:
013639,003353:
013640,003354: 5361 37675 WKSEARCH CAF ZERO # SEARCHES LIST. LEAVES RESULT IN A.
013641,003355: 5362 56327 XCH DSPLIST # IF EMPTY, RETURN TO L+1.
013642,003356: 5363 56330 XCH DSPLIST +1 # IF NOT EMPTY, INHINT AND RETURN TO L+2.
013643,003357: 5364 56331 XCH DSPLIST +2
013644,003358: 5365 00006 EXTEND
013645,003359: 5366 15372 BZF +4 # EMPTY
013646,003360: 5367 00004 INHINT # NOT EMPTY
013647,003361: 5370 50002 INDEX Q # RETURN TO L+2
013648,003362: 5371 00001 TC 1
013649,003363: 5372 00002 TC Q # RETURN TO L+1
013650,003364:
013651,003365:
013652,003366:
013653,003367: 5373 56002 FREEDSP XCH Q
013654,003368: 5374 54130 TS FREERET
013655,003369: 5375 00004 INHINT
013656,003370: 5376 35404 CAF SHOTIME
013657,003371: 5377 04517 TC WAITLIST
013658,003372: 5400 0264 EBANK= DSPCOUNT
013659,003373: 5400 03525 10000 2CADR FREEWAIT
013660,003374: 5402 00003 RELINT
013661,003375: 5403 00130 TC FREERET
013662,003376:
013663,003377: 5404 01130 SHOTIME DEC 600 B-14 # 6 SECOND WAITING PERIOD.
013664,003378:
013665,003379: 5405 ENDPINBF EQUALS
013666,003380:
013667,003381: 04,3525 SETLOC ENDNVBSY +1
013668,003382:
013669,003383: 04,3525 35225 FREEWAIT CAF CHRPRIO # CALLED BY T3RUPT
013670,003384: 04,3526 04344 TC NOVAC
013671,003385: 04,3527 0264 EBANK= DSPCOUNT
013672,003386: 04,3527 03532 10000 2CADR FREDSPD0
013673,003387: 04,3531 04563 TC TASKOVER
013674,003388:
013675,003389:
013676,003390:
013677,003391: 04,3532 05361 FREDSPD0 TC WKSEARCH # CALLED BY EXECUTIVE
013678,003392: 04,3533 03541 TC LSTEMPTY # LIST EMPTY
013679,003393: 04,3534 04404 TC JOBWAKE # LIST NOT EMPTY
013680,003394: 04,3535 00003 RELINT
013681,003395: 04,3536 37671 CAF ONE # SET FOR GRABBED CONDITION
013682,003396: 04,3537 54324 TS GRABLOCK
013683,003397: 04,3540 04422 TC ENDOFJOB
013684,003398: 04,3541 37675 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
013685,003399: 04,3542 03537 TC -3
013686,003400:
013687,003401:
013688,003402:
013689,003403: 04,3543 05440 LSTFULL TC ABORT
013690,003404: 04,3544 01206 OCT 01206 # PINBALL WAITING LINE FULL.
013691,003405:
013692,003406: 04,3545 ENDPINS1 EQUALS
013693,003407:
013694,003408: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
013695,003409: # OFF THE CAUTION AND STATUS LIGHTS.
013696,003410:
013697,003411: 05,3414 SETLOC DSPMMEND +1
013698,003412:
013699,003413: 05,3414 00004 VBTSTLTS INHINT
013700,003414: 05,3415 47671 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
013701,003415: 05,3416 70370 MASK IMODES33 # TURN OUT ANY LAMPS.
013702,003416: 05,3417 67671 AD BIT1
013703,003417: 05,3420 54370 TS IMODES33
013704,003418:
013705,003419: 05,3421 33457 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
013706,003420: 05,3422 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
013707,003421: 05,3423 05011 WOR DSALMOUT
013708,003422: 05,3424 33460 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
013709,003423: 05,3425 54322 TS DSPTAB +11D # PROG ALM.
013710,003424: 05,3426 37660 CAF BIT10 # TURN ON TEST ALARM OUTBIT
013711,003425: 05,3427 00006 EXTEND
013712,003426: 05,3430 05013 WOR CHAN13
013713,003427: 05,3431 35234 CAF TEN
013714,003428: 05,3432 54103 TSTLTS1 TS ERCNT
013715,003429: 05,3433 43455 CS FULLDSP
013716,003430: 05,3434 50103 INDEX ERCNT
013717,003431: 05,3435 54307 TS DSPTAB
013718,003432: 05,3436 10103 CCS ERCNT
013719,003433: 05,3437 03432 TC TSTLTS1
013720,003434: 05,3440 43456 CS FULLDSP1
013721,003435: 05,3441 54310 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
013722,003436: 05,3442 54313 TS DSPTAB +4
013723,003437: 05,3443 54315 TS DSPTAB +6
013724,003438: 05,3444 37672 CAF ELEVEN
013725,003439: 05,3445 54303 TS NOUT
013726,003440: 05,3446 00003 RELINT
013727,003441: 05,3447 33462 CAF SHOLTS
013728,003442: 05,3450 00004 INHINT
013729,003443: 05,3451 04517 TC WAITLIST
013730,003444: 05,3452 0307 EBANK= DSPTAB
013731,003445: 05,3452 03463 12000 2CADR TSTLTS2
013732,003446:
013733,003447: 05,3454 04422 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
013734,003448: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
013735,003449: # LIGHTS TEST WILL BE SEEN.
013736,003450:
013737,003451:
013738,003452:
013739,003453: 05,3455 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
013740,003454: 05,3456 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
013741,003455: 05,3457 00175 TSTCON1 OCT 00175
013742,003456: # UPLINK ACTIVITY, TEMP, KEY RLSE,
013743,003457: # V/N FLASH, OPERATOR ERROR.
013744,003458:
013745,003459: 05,3460 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
013746,003460: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
013747,003461: 05,3461 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
013748,003462: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
013749,003463: 05,3462 00764 SHOLTS OCT 764 # 5 SEC
013750,003464:
013751,003465:
013752,003466:
013753,003467: 05,3463 35225 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
013754,003468: 05,3464 04344 TC NOVAC
013755,003469: 05,3465 0307 EBANK= DSPTAB
013756,003470: 05,3465 03470 12000 2CADR TSTLTS3
013757,003471:
013758,003472: 05,3467 04563 TC TASKOVER
013759,003473:
013760,003474:
013761,003475:
013762,003476: 05,3470 43461 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
013763,003477: 05,3471 00004 INHINT
013764,003478: 05,3472 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
013765,003479: 05,3473 03011 WAND DSALMOUT # OPERATOR ERROR.
013766,003480: 05,3474 47660 CS BIT10 # TURN OFF TEST ALARM OUTBIT
013767,003481: 05,3475 00006 EXTEND
013768,003482: 05,3476 03013 WAND CHAN13
013769,003483: 05,3477 37653 CAF BIT15 # TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
013770,003484: 05,3500 54322 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
013771,003485: 05,3501 43521 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
013772,003486: 05,3502 70370 MASK IMODES33 # LIGHTS COMPLETE.
013773,003487: 05,3503 64476 AD PRIO16
013774,003488: 05,3504 54370 TS IMODES33
013775,003489:
013776,003490: 05,3505 43523 CS OCT55000
013777,003491: 05,3506 70367 MASK IMODES30
013778,003492: 05,3507 64475 AD PRIO15 # 15000.
013779,003493: 05,3510 54367 TS IMODES30
013780,003494:
013781,003495: 05,3511 43522 CS RFAILS2
013782,003496: 05,3512 70413 MASK RADMODES
013783,003497: 05,3513 67663 AD BIT7
013784,003498: 05,3514 54413 TS RADMODES
013785,003499:
013786,003500: 05,3515 00003 RELINT
013787,003501:
013788,003502: 05,3516 02001 TC DSPMM # REDISPLAY C(MODREG)
013789,003503: 05,3517 04104 TC POSTJUMP # TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
013790,003504: 05,3520 11315 CADR VBTERM # IF APPROPRIATE).
013791,003505: # TURN OFF V/N FLASH, SET LOADSTAT FOR
013792,003506: # FOR TERMINATE CONDITION, AND GO TO
013793,003507: # RECALTST. FINALLY DO TC ENDOFJOB.
013794,003508:
013795,003509: 05,3521 16001 13-11,1 OCT 16001
013796,003510: 05,3522 00330 RFAILS2 OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
013797,003511: 05,3523 55000 OCT55000 OCT 55000
013798,003512: 05,3524 ENDPINS2 EQUALS
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc