Source Code
![]() |
These source-code files were reconstructed by Mike Stewart from dumps of the RETREAD 50 program stored in physical AGC core-rope modules (B1 and B2) belonging to the Computer History Museum, Mountain View, California. The reconstruction was aided by pre-existing source code for the AGC programs RETREAD 44 and AURORA 12. Read about the process here. Assembling this source code with yaYUL produces core ropes identical to those of the physical modules. Page-number references refer to corresponding sections of RETREAD 44 source code. No printouts of RETREAD 50 program listings are available. New sections of the software (appearing in EXTENDED_VERBS_FOR_MODING.agc) have been disassembled; labels and comments have been either taken from similar code in later programs or, in cases where this was not possible, added by VirtualAGC for clarity. |
004809,000002: ## Copyright: Public domain.
004810,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
004811,000004: ## Purpose: Part of the source code for AGC program Retread 50.
004812,000005: ## Assembler: yaYUL
004813,000006: ## Contact: Ron Burkey <info@sandroid.org>.
004814,000007: ## Website: www.ibiblio.org/apollo/Restoration.html
004815,000008: ## Mod history: 2019-06-12 MAS Recreated from Computer History Museum's
004816,000009: ## physical core-rope modules.
004817,000010: ## 2021-05-30 ABS Removed ENDSPF symbol not present in
004818,000011: ## Retread 44 or Aurora 12.
004819,000012:
![]() |
Page 135 |
004821,000014: # KEYBOARD AND DISPLAY PROGRAM
004822,000015:
004823,000016:
004824,000017:
004825,000018: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
004826,000019:
004827,000020: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
004828,000021: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
004829,000022: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
004830,000023:
004831,000024: # HENRY 6, ACT 2, SCENE 4
![]() |
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009 |
004834,000027:
004835,000028:
004836,000029:
004837,000030: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
004838,000031:
004839,000032:
004840,000033:
004841,000034: # RESERVED FOR PINBALL EXECUTIVE ACTION
004842,000035:
004843,000036: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
004844,000037: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
004845,000038: # VERBREG ERASE VERB CODE
004846,000039: # NOUNREG ERASE NOUN CODE
004847,000040: # XREG ERASE R1 INPUT BUFFER
004848,000041: # YREG ERASE R2 INPUT BUFFER
004849,000042: # ZREG ERASE R3 INPUT BUFFER
004850,000043: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
004851,000044: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
004852,000045: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
004853,000046: # MODREG ERASE MODE CODE
004854,000047: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
004855,000048: # REQRET ERASE RETURN REGISTER FOR LOAD
004856,000049: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
004857,000050: # CLPASS ERASE PASS INDICATOR CLEAR
004858,000051: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
004859,000052: # NOUNCADR ERASE MACHINE CADR FOR NOUN
004860,000053: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
004861,000054: # MONSAVE1 ERASE NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
004862,000055: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
004863,000056: # CADRSTOR ERASE ENDIDLE STORAGE
004864,000057: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
004865,000058: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
004866,000059: # MUST = NVBNKTEM-1
004867,000060: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
004868,000061: # MUST = NVQTEM+1
004869,000062: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
004870,000063: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
004871,000064: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004872,000065: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004873,000066:
![]() |
Page 136 |
004875,000068: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
004876,000069:
004877,000070:
004878,000071:
004879,000072: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
004880,000073:
004881,000074: # DSEXIT = INTB15+ RETURN FOR DSPIN
004882,000075: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
004883,000076: # BLANKRET = INTB15+ RETURN FOR 2BLANK
004884,000077:
004885,000078: # WRDRET = INTBIT15 RETURN FOR 5BLANK
004886,000079: # WDRET = INTBIT15 RETURN FOR DSPWD
004887,000080: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
004888,000081: # 21/22REG = INTBIT15 TEMP FOR CHARIN
004889,000082:
004890,000083: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
004891,000084: # CHAR = POLISH TEMP FOR CHARIN
004892,000085: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
004893,000086: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
004894,000087:
004895,000088: # SGNON = VBUF TEMP FOR +,- ON
004896,000089: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
004897,000090: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
004898,000091: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
004899,000092:
004900,000093: # SGNOFF = VBUF +1 TEMP FOR +,- ON
004901,000094: # NVTEMP = VBUF +1 TEMP FOR NVSUB
004902,000095: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
004903,000096:
004904,000097: # CODE = VBUF +2 FOR DSPIN
004905,000098: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
004906,000099:
004907,000100: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
004908,000101: # SIGNRET = VBUF +3 RETURN FOR +,- ON
004909,000102:
004910,000103: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004911,000104:
004912,000105: # ENTRET = DOTINC EXIT FROM ENTER
004913,000106:
004914,000107: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
004915,000108: # INREL = DOTRET INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004916,000109:
004917,000110: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
004918,000111: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
004919,000112:
004920,000113: # TEM1 ERASE EXEC TEMP
004921,000114: # DSREL = TEM1 REL ADDRESS FOR DSPIN
004922,000115:
004923,000116: # TEM2 ERASE EXEC TEMP
004924,000117: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
004925,000118:
![]() |
Page 137 |
004927,000120: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
004928,000121:
004929,000122: # TEM3 ERASE EXEC TEMP
004930,000123: # COUNT = TEM3 FOR DSPIN
004931,000124:
004932,000125: # TEM4 ERASE EXEC TEMP
004933,000126: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
004934,000127: # RELRET = TEM4 RETURN FOR RELDSP
004935,000128: # FREERET = TEM4 RETURN FOR FREEDSP
004936,000129:
004937,000130: # TEM5 ERASE EXEC TEMP
004938,000131: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
004939,000132:
004940,000133: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
004941,000134: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
004942,000135: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004943,000136: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
004944,000137: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004945,000138: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
004946,000139: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004947,000140: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
004948,000141: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
004949,000142: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
004950,000143:
004951,000144:
004952,000145:
004953,000146: # RESERVED FOR PINBALL INTERRUPT ACTION
004954,000147:
004955,000148: # DSPCNT ERASE COUNTER FOR DSPOUT
004956,000149: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
004957,000150: # RECEPTION OF A BAD MESSAGE IN UPLINK)
004958,000151: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
004959,000152:
004960,000153:
004961,000154:
004962,000155: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
004963,000156:
004964,000157: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
004965,000158: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
004966,000159: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
004967,000160: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
004968,000161:
004969,000162:
![]() |
Page 138 |
004971,000164: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
004972,000165: # 0 10000
004973,000166: # 1 00001
004974,000167: # 9 01001
004975,000168: # VERB 10001
004976,000169: # ERROR RES10010
004977,000170: # KEY RLSE 11001
004978,000171: # + 11010
004979,000172: # - 11011
004980,000173: # ENTER 11100
004981,000174: # CLEAR 11110
004982,000175: # NOUN 11111
004983,000176:
004984,000177:
004985,000178:
004986,000179: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
004987,000180: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
004988,000181: # ENERGIZED.
004989,000182: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
004990,000183: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
004991,000184: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
004992,000185:
004993,000186: # THE PANEL APPEARS AS FOLLOWS,
004994,000187: # MD1 MD2 (MAJOR MODE)
004995,000188: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
004996,000189: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
004997,000190: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
004998,000191: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
004999,000192:
005000,000193: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
005001,000194: # MD1 25 R2D1 11 ALL ARE OCTAL
005002,000195: # MD2 24 R2D2 10
005003,000196: # VD1 23 R2D3 7
005004,000197: # VD2 22 R2D4 6
005005,000198: # ND1 21 R2D5 5
005006,000199: # ND2 20 R3D1 4
005007,000200: # R1D1 16 R3D2 3
005008,000201: # R1D2 15 R3D3 2
005009,000202: # R1D3 14 R3D4 1
005010,000203: # R1D4 13 R3D5 0
005011,000204: # R1D5 12
005012,000205:
005013,000206:
005014,000207:
005015,000208: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
005016,000209:
005017,000210: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
005018,000211: # RELADD
005019,000212: # 10 1011 MD1 (25) MD2 (24)
005020,000213: # 9 1010 VD1 (23) VD2 (22)
![]() |
Page 139 |
005022,000215: # 8 1001 ND1 (21) ND2 (20)
005023,000216: # 7 1000 R1D1 (16)
005024,000217: # 6 0111 +R1 R1D2 (15) R1D3 (14)
005025,000218: # 5 0110 -R1 R1D4 (13) R1D5 (12)
005026,000219: # 4 0101 +R2 R2D1 (11) R2D2 (10)
005027,000220: # 3 0100 -R2 R2D3 (7) R2D4 (6)
005028,000221: # 2 0011 R2D5 (5) R3D1 (4)
005029,000222: # 1 0010 +R3 R3D2 (3) R3D3 (2)
005030,000223: # 0 0001 -R3 R3D4 (1) R3D5 (0)
005031,000224: # 0000 NO RELAYWORD
005032,000225:
005033,000226:
005034,000227:
005035,000228: # THE 5 BIT RELAY CODES ARE,
005036,000229: # BLANK 00000
005037,000230: # 0 10101
005038,000231: # 1 00011
005039,000232: # 2 11001
005040,000233: # 3 11011
005041,000234: # 4 01111
005042,000235: # 5 11110
005043,000236: # 6 11100
005044,000237: # 7 10011
005045,000238: # 8 11101
005046,000239: # 9 11111
005047,000240:
![]() |
Page 140 |
005049,000242: # START OF EXECUTIVE SECTION OF PINBALL
005050,000243:
005051,000244:
005052,000245:
005053,000246: 04,2000 SETLOC 20000
005054,000247:
005055,000248: 04,2000 03432 GRABUSYB TC GRABUSY1 # STANDARD LEAD INS. DONT MOVE.
005056,000249: 04,2001 03454 NVSUBSYB TC NVSUBSY1
005057,000250:
005058,000251: 04,2002 37646 CHARIN CAF ONE # BLOCK DISPLAY SYST
005059,000252: 04,2003 56652 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
005060,000253: 04,2004 54101 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
005061,000254: 04,2005 56140 XCH MPAC
005062,000255: 04,2006 54103 TS CHAR
005063,000256: 04,2007 50000 INDEX A
005064,000257: 04,2010 02011 TC +1 # INPUT CODE FUNCTION
005065,000258: 04,2011 03253 TC CHARALRM # 0
005066,000259: 04,2012 02062 TC NUM # 1
005067,000260: 04,2013 02062 TC NUM # 2
005068,000261: 04,2014 02062 TC NUM # 3
005069,000262: 04,2015 02062 TC NUM # 4
005070,000263: 04,2016 02062 TC NUM # 5
005071,000264: 04,2017 02062 TC NUM # 6
005072,000265: 04,2020 02062 TC NUM # 7
005073,000266: 04,2021 02053 TC 89TEST # 10 8
005074,000267: 04,2022 02053 TC 89TEST # 11 9
005075,000268: 04,2023 03253 TC CHARALRM # 12
005076,000269: 04,2024 03253 TC CHARALRM # 13
005077,000270: 04,2025 03253 TC CHARALRM # 14
005078,000271: 04,2026 03253 TC CHARALRM # 15
005079,000272: 04,2027 03253 TC CHARALRM # 16
005080,000273: 04,2030 03253 TC CHARALRM # 17
005081,000274: 04,2031 02060 TC NUM -2 # 20 0
005082,000275: 04,2032 02235 TC VERB # 21 VERB
005083,000276: 04,2033 02343 TC ERROR # 22 ERROR LIGHT RESET
005084,000277: 04,2034 03253 TC CHARALRM # 23
005085,000278: 04,2035 03253 TC CHARALRM # 24
005086,000279: 04,2036 03253 TC CHARALRM # 25
005087,000280: 04,2037 03253 TC CHARALRM # 26
005088,000281: 04,2040 03253 TC CHARALRM # 27
005089,000282: 04,2041 03253 TC CHARALRM # 30
005090,000283: 04,2042 03276 TC VBRELDSP # 31 KEY RELEASE
005091,000284: 04,2043 02267 TC POSGN # 32 +
005092,000285: 04,2044 02254 TC NEGSGN # 33 -
005093,000286: 04,2045 02051 TC ENTERJMP # 34 ENTER
005094,000287: 04,2046 03253 TC CHARALRM # 35
005095,000288: 04,2047 02407 TC CLEAR # 36 CLEAR
005096,000289: 04,2050 02250 TC NOUN # 37 NOUN
005097,000290:
![]() |
Page 141 |
005099,000292: 04,2051 04102 ENTERJMP TC POSTJUMP
005100,000293: 04,2052 12003 CADR ENTER
005101,000294:
005102,000295: 04,2053 36165 89TEST CAF THREE
005103,000296: 04,2054 70640 MASK DECBRNCH
005104,000297: 04,2055 10000 CCS A
005105,000298: 04,2056 02062 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
005106,000299: 04,2057 03253 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
005107,000300:
005108,000301:
005109,000302:
005110,000303: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
005111,000304: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
005112,000305: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
005113,000306: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
005114,000307: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
005115,000308: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
005116,000309:
005117,000310: 04,2060 37653 CAF ZERO
005118,000311: 04,2061 54103 TS CHAR
005119,000312: 04,2062 10637 NUM CCS DSPCOUNT
005120,000313: 04,2063 02067 TC +4 # +
005121,000314: 04,2064 02067 TC +3 # +0
005122,000315: 04,2065 02066 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
005123,000316: 04,2066 04205 TC ENDOFJOB # -0
005124,000317: 04,2067 02205 TC GETINREL
005125,000318: 04,2070 10655 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
005126,000319: 04,2071 37653 CAF ZERO
005127,000320: 04,2072 54655 TS CLPASS
005128,000321: 04,2073 02074 TC +1
005129,000322: 04,2074 50103 INDEX CHAR
005130,000323: 04,2075 34333 CAF RELTAB
005131,000324: 04,2076 74473 MASK LOW5
005132,000325: 04,2077 54110 TS CODE
005133,000326: 04,2100 30637 CA DSPCOUNT
005134,000327: 04,2101 54127 TS COUNT
005135,000328: 04,2102 03157 TC DSPIN
005136,000329: 04,2103 36165 CAF THREE
005137,000330: 04,2104 70640 MASK DECBRNCH
005138,000331: 04,2105 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
005139,000332: 04,2106 02117 TC DECTOBIN # +
005140,000333: 04,2107 50123 INDEX INREL # +0 OCTAL
005141,000334: 04,2110 56641 XCH VERBREG
005142,000335: 04,2111 54022 TS CYL
005143,000336: 04,2112 40022 CS CYL
005144,000337: 04,2113 40022 CS CYL
005145,000338: 04,2114 56022 XCH CYL
005146,000339: 04,2115 60103 AD CHAR
005147,000340: 04,2116 02134 TC ENDNMTST
005148,000341: 04,2117 50123 DECTOBIN INDEX INREL
005149,000342:
![]() |
Page 142 |
005151,000344: 04,2120 56641 XCH VERBREG
005152,000345: 04,2121 54140 TS MPAC # SUM X 2EXP-14 IN MPAC
005153,000346: 04,2122 37653 CAF ZERO
005154,000347: 04,2123 54141 TS MPAC +1
005155,000348: 04,2124 37650 CAF TEN # 10 X 2EXP-14
005156,000349: 04,2125 07257 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
005157,000350: 04,2126 56141 XCH MPAC +1
005158,000351: 04,2127 60103 AD CHAR
005159,000352: 04,2130 54141 TS MPAC +1
005160,000353: 04,2131 02134 TC ENDNMTST # NO OF
005161,000354: 04,2132 26140 ADS MPAC # OF MUST BE 5TH CHAR
005162,000355: 04,2133 02152 TC DECEND
005163,000356: 04,2134 50123 ENDNMTST INDEX INREL
005164,000357: 04,2135 54641 TS VERBREG
005165,000358: 04,2136 40637 CS DSPCOUNT
005166,000359: 04,2137 50123 INDEX INREL
005167,000360: 04,2140 62176 AD CRITCON
005168,000361: 04,2141 00006 EXTEND
005169,000362: 04,2142 12144 BZF ENDNUM # -0, DSPCOUNT = CRITCON
005170,000363: 04,2143 02173 TC MORNUM # - , DSPCOUNT G/ CRITCON
005171,000364: 04,2144 36165 ENDNUM CAF THREE
005172,000365: 04,2145 70640 MASK DECBRNCH
005173,000366: 04,2146 10000 CCS A
005174,000367: 04,2147 02152 TC DECEND
005175,000368: 04,2150 40637 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
005176,000369: 04,2151 02174 TC MORNUM +1 # NEGATIVELY
005177,000370: 04,2152 07062 DECEND TC DMP # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
005178,000371: 04,2153 02203 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
005179,000372: 04,2154 36165 CAF THREE # IN MPAC, +1, +2.
005180,000373: 04,2155 70640 MASK DECBRNCH
005181,000374: 04,2156 50000 INDEX A
005182,000375: 04,2157 02157 TC +0
005183,000376: 04,2160 02164 TC +DECSGN
005184,000377: 04,2161 00006 EXTEND # - CASE
005185,000378: 04,2162 40142 DCS MPAC +1
005186,000379: 04,2163 52142 DXCH MPAC +1
005187,000380: 04,2164 56142 +DECSGN XCH MPAC +2
005188,000381: 04,2165 50123 INDEX INREL
005189,000382: 04,2166 54644 TS XREGLP -2
005190,000383: 04,2167 56141 XCH MPAC +1
005191,000384: 04,2170 50123 INDEX INREL
005192,000385: 04,2171 54641 TS VERBREG
005193,000386: 04,2172 02150 TC ENDALL
005194,000387: 04,2173 10637 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
005195,000388: 04,2174 54637 TS DSPCOUNT
005196,000389: 04,2175 04205 TC ENDOFJOB
005197,000390:
005198,000391: 04,2176 00022 CRITCON OCT 22 # (DEC 18)
005199,000392: 04,2177 00020 OCT 20 # (DEC 16)
005200,000393: 04,2200 00012 OCT 12 # (DEC 10)
![]() |
Page 143 |
005202,000395: 04,2201 00005 OCT 5
005203,000396: 04,2202 00000 OCT 0
005204,000397:
005205,000398: 04,2203 05174 13261 DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
005206,000399:
005207,000400:
005208,000401: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
005209,000402: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
005210,000403:
005211,000404: 04,2205 50637 GETINREL INDEX DSPCOUNT
005212,000405: 04,2206 32211 CAF INRELTAB
005213,000406: 04,2207 54123 TS INREL # (A TEMP, REG)
005214,000407: 04,2210 00002 TC Q
005215,000408:
005216,000409: 04,2211 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
005217,000410: 04,2212 00004 OCT 4 # R3D4 =(1)
005218,000411: 04,2213 00004 OCT 4 # R3D3 =(2)
005219,000412: 04,2214 00004 OCT 4 # R3D2 =(3)
005220,000413: 04,2215 00004 OCT 4 # R3D1 =(4)
005221,000414: 04,2216 00003 OCT 3 # R2D5 =(5)
005222,000415: 04,2217 00003 OCT 3 # R2D4 =(6)
005223,000416: 04,2220 00003 OCT 3 # R2D3 =(7)
005224,000417: 04,2221 00003 OCT 3 # R2D2 =(8D)
005225,000418: 04,2222 00003 OCT 3 # R2D1 =(9D)
005226,000419: 04,2223 00002 OCT 2 # R1D5 =(10D)
005227,000420: 04,2224 00002 OCT 2 # R1D4 =(11D)
005228,000421: 04,2225 00002 OCT 2 # R1D3 =(12D)
005229,000422: 04,2226 00002 OCT 2 # R1D2 =(13D)
005230,000423: 04,2227 00002 OCT 2 # R1D1 =(14D)
005231,000424: 04,2231 LOC +1 # NO DSPCOUNT NUMBER = 15D
005232,000425: 04,2231 00001 OCT 1 # ND2 =(16D)
005233,000426: 04,2232 00001 OCT 1 # ND1 =(17D)
005234,000427: 04,2233 00000 OCT 0 # VD2 =(18D)
005235,000428: 04,2234 00000 OCT 0 # VD1 =(19D)
005236,000429:
005237,000430:
005238,000431: 04,2235 37653 VERB CAF ZERO
005239,000432: 04,2236 54641 TS VERBREG
005240,000433: 04,2237 34506 CAF VD1
005241,000434: 04,2240 54637 NVCOM TS DSPCOUNT
005242,000435: 04,2241 02517 TC 2BLANK
005243,000436: 04,2242 37653 CAF ZERO
005244,000437: 04,2243 54640 TS DECBRNCH
005245,000438: 04,2244 54653 TS REQRET # SET FOR ENTPAS0
005246,000439: 04,2245 34417 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
005247,000440: 04,2246 54122 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
005248,000441: # TO TC ENDOFJOB
005249,000442: 04,2247 04205 TC ENDOFJOB
005250,000443:
![]() |
Page 144 |
005252,000445: 04,2250 37653 NOUN CAF ZERO
005253,000446: 04,2251 54642 TS NOUNREG
005254,000447: 04,2252 34507 CAF ND1 # ND1, OCT 21 (DEC 17)
005255,000448: 04,2253 02240 TC NVCOM
005256,000449:
005257,000450:
005258,000451:
005259,000452: 04,2254 02326 NEGSGN TC SIGNTEST
005260,000453: 04,2255 02313 TC -ON
005261,000454: 04,2256 37645 CAF TWO
005262,000455: 04,2257 50123 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
005263,000456: 04,2260 67640 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
005264,000457: 04,2261 26640 ADS DECBRNCH # BIT 3 FOR R3.
005265,000458: 04,2262 10655 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
005266,000459: 04,2263 37653 CAF ZERO
005267,000460: 04,2264 54655 TS CLPASS
005268,000461: 04,2265 02266 TC +1
005269,000462: 04,2266 04205 TC ENDOFJOB
005270,000463:
005271,000464: 04,2267 02326 POSGN TC SIGNTEST
005272,000465: 04,2270 02273 TC +ON
005273,000466: 04,2271 37646 CAF ONE
005274,000467: 04,2272 02257 TC BOTHSGN
005275,000468:
005276,000469: 04,2273 22002 +ON LXCH Q
005277,000470: 04,2274 02205 TC GETINREL
005278,000471: 04,2275 50123 INDEX INREL
005279,000472: 04,2276 32321 CAF SGNTAB -2
005280,000473: 04,2277 54107 TS SGNOFF
005281,000474: 04,2300 67646 AD ONE
005282,000475: 04,2301 54106 TS SGNON
005283,000476: 04,2302 37653 SGNCOM CAF ZERO
005284,000477: 04,2303 54110 TS CODE
005285,000478: 04,2304 56107 XCH SGNOFF
005286,000479: 04,2305 03241 TC 11DSPIN
005287,000480: 04,2306 37634 CAF BIT11
005288,000481: 04,2307 54110 TS CODE
005289,000482: 04,2310 56106 XCH SGNON
005290,000483: 04,2311 03241 TC 11DSPIN
005291,000484: 04,2312 00001 TC L
005292,000485: 04,2313 22002 -ON LXCH Q
005293,000486: 04,2314 02205 TC GETINREL
005294,000487: 04,2315 50123 INDEX INREL
005295,000488: 04,2316 32321 CAF SGNTAB -2
005296,000489: 04,2317 54106 TS SGNON
005297,000490: 04,2320 67646 AD ONE
005298,000491: 04,2321 54107 TS SGNOFF
005299,000492: 04,2322 02302 TC SGNCOM
005300,000493:
005301,000494: 04,2323 00005 SGNTAB OCT 5 # -R1
![]() |
Page 145 |
005303,000496: 04,2324 00003 OCT 3 # -R2
005304,000497: 04,2325 00000 OCT 0 # -R3
005305,000498:
005306,000499:
005307,000500:
005308,000501: 04,2326 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
005309,000502: 04,2327 44444 CS R1D1 # R2D1, OR R3D1.
005310,000503: 04,2330 02336 TC SGNTST1
005311,000504: 04,2331 44445 CS R2D1
005312,000505: 04,2332 02336 TC SGNTST1
005313,000506: 04,2333 44446 CS R3D1
005314,000507: 04,2334 02336 TC SGNTST1
005315,000508: 04,2335 04205 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
005316,000509: 04,2336 60637 SGNTST1 AD DSPCOUNT
005317,000510: 04,2337 00006 EXTEND
005318,000511: 04,2340 12342 BZF +2 # MATCH FOUND
005319,000512: 04,2341 00002 TC Q
005320,000513: 04,2342 00001 TC L # SIGN LEGAL
005321,000514:
005322,000515:
005323,000516:
005324,000517: # ERROR LIGHT RESET (RSET) TURNS OFF,
005325,000518: # UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR, TEMP, GIMBAL
005326,000519: # LOCK, PROG ALM, TRACKER.
005327,000520: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
005328,000521: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
005329,000522:
005330,000523: 04,2343 56101 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
005331,000524: 04,2344 54652 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
005332,000525: 04,2345 37630 CAF BIT15 # TURNS OFF AUTO, HOLD, FREE, NO ATT,
005333,000526: 04,2346 54675 TS DSPTAB +11D # GIMBAL LOCK, TRACKER, PROG ALM.
005334,000527: 04,2347 47635 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
005335,000528: 04,2350 00006 EXTEND
005336,000529: 04,2351 03013 WAND CHAN13
005337,000530: 04,2352 42405 CS ERCON # TURNS OFF UPLINK ACTIVITY, TEMP,
005338,000531: 04,2353 00006 EXTEND # OPERATOR ERROR.
005339,000532: 04,2354 03011 WAND DSALMOUT
005340,000533: 04,2355 34511 TSTAB CAF BINCON # (DEC 10)
005341,000534: 04,2356 54103 TS ERCNT # ERCNT = COUNT
005342,000535: 04,2357 00004 INHINT
005343,000536: 04,2360 50103 INDEX ERCNT
005344,000537: 04,2361 10662 CCS DSPTAB
005345,000538: 04,2362 67646 AD ONE
005346,000539: 04,2363 02370 TC ERPLUS
005347,000540: 04,2364 67646 AD ONE
005348,000541: 04,2365 40000 ERMINUS CS A
005349,000542: 04,2366 72406 MASK NOTBIT12
005350,000543: 04,2367 02373 TC ERCOM
005351,000544: 04,2370 40000 ERPLUS CS A
005352,000545: 04,2371 72406 MASK NOTBIT12
![]() |
Page 146 |
005354,000547: 04,2372 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
005355,000548: 04,2373 50103 ERCOM INDEX ERCNT # ETC.
005356,000549: 04,2374 54662 TS DSPTAB
005357,000550: 04,2375 00003 RELINT
005358,000551: 04,2376 10103 CCS ERCNT
005359,000552: 04,2377 02356 TC TSTAB +1
005360,000553: 04,2400 37653 CAF ZERO
005361,000554: 04,2401 54721 TS FAILREG
005362,000555: 04,2402 55021 TS OLDERR
005363,000556: 04,2403 55044 TS SFAIL
005364,000557: 04,2404 04205 TC ENDOFJOB
005365,000558:
005366,000559: 04,2405 00114 ERCON OCT 00114 # CHAN 11 BIT 3,4,7.
005367,000560: # UPLINK ACTIVITY, TEMP, OPERATOR
005368,000561: # ERROR.
005369,000562: 04,2406 73777 NOTBIT12 OCT 73777
005370,000563:
005371,000564:
005372,000565:
005373,000566: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
005374,000567: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
005375,000568: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
005376,000569:
005377,000570: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
005378,000571: # APPROPRIATE TO BE CLEARED.
005379,000572:
005380,000573: # CLPASS +0 PASS0, CAN BE BACKED UP
005381,000574: # +NZ HIPASS, CAN BE BACKED UP
005382,000575: # -NZ PASS0, CANNOT BE BACKED UP
005383,000576:
005384,000577: 04,2407 10637 CLEAR CCS DSPCOUNT
005385,000578: 04,2410 67646 AD ONE
005386,000579: 04,2411 02413 TC +2
005387,000580: 04,2412 67646 AD ONE
005388,000581: 04,2413 54637 TS DSPCOUNT # MAG OF DSPCOUNT
005389,000582: 04,2414 02205 TC GETINREL # MUST SET INREL, EVEN FOR HIPASS
005390,000583: 04,2415 10655 CCS CLPASS
005391,000584: 04,2416 02424 TC CLPASHI # +
005392,000585: 04,2417 02421 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
005393,000586: 04,2420 02421 TC +1 # -
005394,000587: 04,2421 30123 CA INREL
005395,000588: 04,2422 02446 TC LEGALTST
005396,000589: 04,2423 02441 TC CLEAR1
005397,000590: 04,2424 10123 CLPASHI CCS INREL
005398,000591: 04,2425 54123 TS INREL
005399,000592: 04,2426 02446 TC LEGALTST
005400,000593: 04,2427 32515 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
005401,000594: 04,2430 26653 ADS REQRET
005402,000595: 04,2431 30123 CA INREL
005403,000596: 04,2432 54111 TS MIXTEMP # TEMP STORAGE FOR INREL
![]() |
Page 147 |
005405,000598: 04,2433 00006 EXTEND
005406,000599: 04,2434 26641 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
005407,000600: 04,2435 04063 TC BANKCALL
005408,000601: 04,2436 12315 CADR UPDATVB
005409,000602: 04,2437 30111 CA MIXTEMP
005410,000603: 04,2440 54123 TS INREL # RESTORE INREL
005411,000604: 04,2441 02444 CLEAR1 TC CLR5
005412,000605: 04,2442 24655 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
005413,000606: 04,2443 04205 TC ENDOFJOB # SET FOR HIGHER PASS.
005414,000607: 04,2444 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
005415,000608: 04,2445 02456 TC 5BLANK +2
005416,000609: 04,2446 67656 LEGALTST AD NEG2
005417,000610: 04,2447 10000 CCS A
005418,000611: 04,2450 00002 TC Q # LEGAL INREL G/ 2
005419,000612: 04,2452 LOC +1
005420,000613: 04,2452 04205 TC ENDOFJOB # ILLEGAL INREL= 0,1
005421,000614: 04,2453 00002 TC Q # LEGAL INREL = 2
005422,000615:
005423,000616:
005424,000617:
005425,000618: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
005426,000619: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
005427,000620: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
005428,000621:
005429,000622: 04,2454 22002 5BLANK LXCH Q
005430,000623: 04,2455 02205 TC GETINREL
005431,000624: 04,2456 37653 CAF ZERO
005432,000625: 04,2457 50123 INDEX INREL
005433,000626: 04,2460 54641 TS VERBREG # ZERO X, Y, Z REG.
005434,000627: 04,2461 50123 INDEX INREL
005435,000628: 04,2462 54644 TS XREGLP -2
005436,000629: 04,2463 54110 TS CODE
005437,000630: 04,2464 50123 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
005438,000631: 04,2465 47640 CS BIT7 # PROTECT OTHERS
005439,000632: 04,2466 70640 MASK DECBRNCH
005440,000633: 04,2467 72516 MASK BRNCHCON # ZERO LOW 2 BITS.
005441,000634: 04,2470 54640 TS DECBRNCH
005442,000635: 04,2471 50123 INDEX INREL
005443,000636: 04,2472 32506 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
005444,000637: 04,2473 54127 TS COUNT
005445,000638: 04,2474 03157 TC DSPIN
005446,000639: 04,2475 50123 5BLANK1 INDEX INREL
005447,000640: 04,2476 32511 CAF DOUBLK -2
005448,000641: 04,2477 54637 TS DSPCOUNT
005449,000642: 04,2500 02517 TC 2BLANK
005450,000643: 04,2501 47645 CS TWO
005451,000644: 04,2502 26637 ADS DSPCOUNT
005452,000645: 04,2503 02517 TC 2BLANK
005453,000646: 04,2504 50123 INDEX INREL
005454,000647: 04,2505 34442 CAF R1D1 -2
![]() |
Page 148 |
005456,000649: 04,2506 54637 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
005457,000650: 04,2507 00001 TC L # OF REG. JUST BLANKED
005458,000651:
005459,000652: 04,2510 00016 SINBLANK OCT 16 # DEC 14
005460,000653: 04,2511 00005 OCT 5
005461,000654: 04,2512 00004 OCT 4
005462,000655: 04,2513 00015 DOUBLK OCT 15 # DEC 13
005463,000656: 04,2514 00011 OCT 11 # DEC 9
005464,000657: 04,2515 00003 OCT 3
005465,000658:
005466,000659: 04,2516 77774 BRNCHCON OCT 77774
005467,000660:
005468,000661: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
005469,000662: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
005470,000663:
005471,000664: 04,2517 30637 2BLANK CA DSPCOUNT
005472,000665: 04,2520 54021 TS SR
005473,000666: 04,2521 42532 CS BLANKCON
005474,000667: 04,2522 00004 INHINT
005475,000668: 04,2523 50021 INDEX SR
005476,000669: 04,2524 56662 XCH DSPTAB
005477,000670: 04,2525 00006 EXTEND
005478,000671: 04,2526 62530 BZMF +2 # IF OLD CONTENTS -, NOUT OK
005479,000672: 04,2527 24656 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
005480,000673: 04,2530 00003 RELINT # IF -,NOUT OK
005481,000674: 04,2531 00002 TC Q
005482,000675: 04,2532 04000 BLANKCON OCT 4000
005483,000676:
![]() |
Page 149 |
005485,000678: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
005486,000679: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
005487,000680: # PASSES.
005488,000681:
005489,000682:
005490,000683:
005491,000684: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
005492,000685: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
005493,000686: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
005494,000687:
005495,000688:
005496,000689:
005497,000690: 05,2000 SETLOC 22000
005498,000691:
005499,000692: 05,2000 03344 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
005500,000693: 05,2001 13403 DSPMM TCF DSPMM1
005501,000694: 05,2002 02663 LOADLV1 TC LOADLV
005502,000695: # END OF STANDARD LEAD INS.
005503,000696:
005504,000697:
005505,000698:
005506,000699: 05,2003 37653 ENTER CAF ZERO
005507,000700: 05,2004 54655 TS CLPASS
005508,000701: 05,2005 34417 CAF ENDINST
005509,000702: 05,2006 54122 TS ENTRET
005510,000703: 05,2007 10653 CCS REQRET
005511,000704: 05,2010 02031 TC ENTPAS0 # IF +, PASS 0
005512,000705: 05,2011 02031 TC ENTPAS0 # IF +, PASS 0
005513,000706: 05,2012 02013 TC +1 # IF -, NOT PASS 0
005514,000707: 05,2013 36165 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN,
005515,000708: 05,2014 70640 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
005516,000709: 05,2015 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
005517,000710: 05,2016 02020 TC +2 # CHARACTERS AND CONTINUE.
005518,000711: 05,2017 02024 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
005519,000712: 05,2020 10637 CCS DSPCOUNT
005520,000713: 05,2021 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005521,000714: 05,2022 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
005522,000715: 05,2023 02024 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
005523,000716: 05,2024 40653 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
005524,000717: 05,2025 54653 TS REQRET # SET REQRET +.
005525,000718: 05,2026 04547 TC FLASHOFF
005526,000719: 05,2027 00653 TC REQRET
005527,000720:
005528,000721: 05,2030 0122 ENTEXIT = ENTRET
005529,000722:
005530,000723: 05,2030 00030 LOWVERB OCT 30 # LOWER VERB THAT AVOIDS NOUN TEST
005531,000724:
005532,000725: 05,2031 37653 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
005533,000726: 05,2032 54640 TS DECBRNCH
005534,000727: 05,2033 40641 TESTVB CS VERBREG # IF VERB IS 30-77, SKIP NOUN TEST
![]() |
Page 150 |
005536,000729: 05,2034 62030 AD LOWVERB # 30-VB
005537,000730: 05,2035 00006 EXTEND
005538,000731: 05,2036 62116 BZMF VERBFAN # VERB G/E 30
005539,000732: 05,2037 00006 TESTNN EXTEND # VERB L/ 30
005540,000733: 05,2040 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
005541,000734: 05,2041 52006 DXCH Z # ROUTINE.
005542,000735: 05,2042 50124 INDEX MIXBR
005543,000736: 05,2043 02043 TC +0
005544,000737: 05,2044 02046 TC +2 # NORMAL
005545,000738: 05,2045 02176 TC MIXNOUN # MIXED
005546,000739: 05,2046 10132 CCS NNADTEM # NORMAL
005547,000740: 05,2047 02114 TC VERBFAN -2 # NORMAL IF +
005548,000741: 05,2050 02324 TC GODSPALM # NOT IN USE IF +0
005549,000742: 05,2051 02055 TC REQADD # SPECIFY MACHINE CADR IF -
005550,000743: 05,2052 24657 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
005551,000744: 05,2053 04436 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
005552,000745: 05,2054 02102 TC INTMCTBS +2
005553,000746: 05,2055 37630 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
005554,000747: 05,2056 54655 TS CLPASS
005555,000748: 05,2057 44417 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
005556,000749: 05,2060 60122 AD ENTEXIT # FROM EXTERNAL
005557,000750: 05,2061 00006 EXTEND
005558,000751: 05,2062 12064 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
005559,000752: 05,2063 02100 TC INTMCTBS
005560,000753: 05,2064 02256 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
005561,000754: 05,2065 10640 CCS DECBRNCH
005562,000755: 05,2066 02324 TC GODSPALM # ALARM IF DECIMAL USED FOR MCTBS
005563,000756: 05,2067 56645 XCH ZREG # OCTAL USED OK
005564,000757: 05,2070 04430 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
005565,000758: 05,2071 00006 EXTEND
005566,000759: 05,2072 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
005567,000760: 05,2073 52006 DXCH Z # ROUTINE.
005568,000761: 05,2074 02116 TC VERBFAN
005569,000762:
005570,000763: 05,2075 0637 EBANK= DSPCOUNT
005571,000764: 05,2075 02000 14001 LODNNLOC 2CADR LODNNTAB
005572,000765:
005573,000766: 05,2077 77772 NEG5 OCT 77772
005574,000767:
005575,000768: 05,2100 30142 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
005576,000769: 05,2101 04430 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
005577,000770: 05,2102 47643 CS BIT4 # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
005578,000771: 05,2103 70641 MASK VERBREG # CADR TO BE SPECIFIED.
005579,000772: 05,2104 62077 AD NEG5 # MASKING MAKES VB15 LOOK LIKE VB05.
005580,000773: 05,2105 00006 EXTEND
005581,000774: 05,2106 12116 BZF VERBFAN # VB = 05 OR 15, DO NOT DISPLAY CADR.
005582,000775: 05,2107 34446 CAF R3D1 # VB NOT = 05 OR 15, DISPLAY CADR.
005583,000776: 05,2110 54637 TS DSPCOUNT
005584,000777: 05,2111 30657 CA NOUNCADR
005585,000778: 05,2112 03222 TC DSPOCTWD
![]() |
Page 151 |
005587,000780: 05,2113 02116 TC VERBFAN
005588,000781:
005589,000782: 05,2114 67646 AD ONE
005590,000783: 05,2115 04430 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005591,000784: 05,2116 42131 VERBFAN CS LST2CON
005592,000785: 05,2117 60641 AD VERBREG # VERB-LST2CON
005593,000786: 05,2120 10000 CCS A
005594,000787: 05,2121 67646 AD ONE # VERB G/ LST2CON
005595,000788: 05,2122 02124 TC +2
005596,000789: 05,2123 02133 TC VBFANDIR # VERB L/ LST2CON
005597,000790: 05,2124 54140 TS MPAC
005598,000791: 05,2125 04610 TC RELDSP # RELEASE DISPLAY SYST
005599,000792: 05,2126 56140 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
005600,000793: 05,2127 62132 AD LST2CADR
005601,000794: 05,2130 04105 TC BANKJUMP
005602,000795: 05,2131 00040 LST2CON OCT 40 # FIRST LST2 VERB
![]() |
!! START CHANGE FOR RETREAD 50 !! |
005604,000797: 05,2132 22364 LST2CADR CADR LST2FAN
![]() |
!! END CHANGE FOR RETREAD 50 !! |
005606,000799:
005607,000800: 05,2133 50641 VBFANDIR INDEX VERBREG
005608,000801: 05,2134 32136 CAF VERBTAB
005609,000802: 05,2135 04105 TC BANKJUMP
005610,000803:
005611,000804: 05,2136 12324 VERBTAB CADR GODSPALM # VB00 ILLEGAL
005612,000805: 05,2137 12340 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
005613,000806: 05,2140 12345 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
005614,000807: 05,2141 12352 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
005615,000808: 05,2142 12333 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
005616,000809: 05,2143 12326 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
005617,000810: 05,2144 12445 CADR DECDSP # VB06 DECIMAL DISPLAY
005618,000811: 05,2145 10662 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
005619,000812: 05,2146 11255 CADR DSPALARM # VB10 SPARE
005620,000813: 05,2147 13077 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
005621,000814: 05,2150 13077 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
005622,000815: 05,2151 13077 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
005623,000816: 05,2152 13077 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
005624,000817: 05,2153 13077 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
005625,000818: 05,2154 13077 CADR MONITOR # VB16 MONITOR DECIMAL
005626,000819: 05,2155 13077 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
005627,000820: 05,2156 12324 CADR GODSPALM # VB20 SPARE
005628,000821: 05,2157 12620 CADR ALOAD # VB21 LOAD COMP 1 (R1)
005629,000822: 05,2160 12631 CADR BLOAD # VB22 LOAD COMP 2 (R2)
005630,000823: 05,2161 12646 CADR CLOAD # VB23 LOAD COMP 3 (R3)
005631,000824: 05,2162 12572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
005632,000825: 05,2163 12535 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
005633,000826: 05,2164 12324 CADR GODSPALM # VB26 SPARE
005634,000827: 05,2165 13214 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
005635,000828: # THE FOLLOWING VERBS MAKE NO NOUN TEST
005636,000829: 05,2166 13314 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
005637,000830: 05,2167 13340 CADR VBRQWAIT # VB31 REQUEST WAITLIST
005638,000831: 05,2170 11303 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
![]() |
Page 152 |
005640,000833: 05,2171 11266 CADR VBPROC # VB33 PROCEED WITHOUT DATA
005641,000834: 05,2172 11273 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
005642,000835: 05,2173 13414 CADR VBTSTLTS # VB35 TEST LIGHTS
005643,000836: 05,2174 02677 CADR SLAP1 # VB36 FRESH START
005644,000837: 05,2175 13267 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
005645,000838:
005646,000839:
005647,000840:
005648,000841: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
005649,000842:
![]() |
Page 153 |
005651,000844: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
005652,000845: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
005653,000846: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
005654,000847: # MIXTEMP.
005655,000848:
005656,000849: 05,2176 10132 MIXNOUN CCS NNADTEM
005657,000850: 05,2177 02203 TC +4 # + IN USE
005658,000851: 05,2200 02324 TC GODSPALM # +0 NOT IN USE
005659,000852: 05,2201 02203 TC +2 # - IN USE
005660,000853: 05,2202 02203 TC +1 # -0 IN USE
005661,000854: 05,2203 46162 CS SIX
005662,000855: 05,2204 60641 AD VERBREG
005663,000856: 05,2205 00006 EXTEND
005664,000857: 05,2206 62210 BZMF +2 # VERB L/E 6
005665,000858: 05,2207 02116 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
005666,000859: 05,2210 37645 CAF TWO
005667,000860: 05,2211 54103 MIXNN1 TS DECOUNT
005668,000861: 05,2212 62235 AD MIXAD
005669,000862: 05,2213 54131 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
005670,000863: 05,2214 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
005671,000864: 05,2215 30134 CA IDAD1TEM # OF NOUN.
005672,000865: 05,2216 54106 TS NOUNTEM
005673,000866: # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
005674,000867: # MINOR PART ONLY.
005675,000868: 05,2217 02721 TC SFRUTMIX # GET SF ROUT NUMBER IN A
005676,000869: 05,2220 02236 TC DPTEST
005677,000870: 05,2221 02223 TC MIXNN2 # NO DP
005678,000871: 05,2222 24106 INCR NOUNTEM # DP GET MINOR PART
005679,000872: 05,2223 30106 MIXNN2 CA NOUNTEM
005680,000873: 05,2224 74503 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
005681,000874: 05,2225 04440 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
005682,000875: 05,2226 50000 INDEX A # PICK UP C(ESUBK) NOT DP
005683,000876: 05,2227 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
005684,000877: 05,2230 50131 INDEX NOUNADD
005685,000878: 05,2231 56000 XCH 0 # STORE IN MIXTEM + K
005686,000879: 05,2232 10103 CCS DECOUNT
005687,000880: 05,2233 02211 TC MIXNN1
005688,000881: 05,2234 02116 TC VERBFAN
005689,000882:
005690,000883: 05,2235 00111 MIXAD TC MIXTEMP
005691,000884:
005692,000885:
005693,000886:
005694,000887: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
005695,000888: # RETURNS TO L+1 IF NO DP.
005696,000889: # RETURNS TO L+2 IF DP.
005697,000890:
005698,000891: 05,2236 50000 DPTEST INDEX A
005699,000892: 05,2237 12240 TCF +1
005700,000893: 05,2240 00002 TC Q # OCTAL ONLY NO DP
![]() |
Page 154 |
005702,000895: 05,2241 00002 TC Q # FRACT NO DP
005703,000896: 05,2242 00002 TC Q # DEG NO DP
005704,000897: 05,2243 00002 TC Q # ARITH NO DP
005705,000898: 05,2244 12250 TCF DPTEST1 # DP1OUT
005706,000899: 05,2245 12250 TCF DPTEST1 # DP2OUT
005707,000900: 05,2246 00002 TC Q # OPDEG NO DP
005708,000901: 05,2247 12250 TCF DPTEST1 # DP3OUT
005709,000902: 05,2250 50002 DPTEST1 INDEX Q
005710,000903: 05,2251 00001 TC 1 # RETURN TO L+2
005711,000904:
005712,000905:
005713,000906:
005714,000907: 05,2252 34444 REQDATX CAF R1D1
005715,000908: 05,2253 12257 TCF REQCOM
005716,000909: 05,2254 34445 REQDATY CAF R2D1
005717,000910: 05,2255 12257 TCF REQCOM
005718,000911: 05,2256 34446 REQDATZ CAF R3D1
005719,000912: 05,2257 54637 REQCOM TS DSPCOUNT
005720,000913: 05,2260 40002 CS Q
005721,000914: 05,2261 54653 TS REQRET
005722,000915: 05,2262 04063 TC BANKCALL
005723,000916: 05,2263 10454 CADR 5BLANK
005724,000917: 05,2264 04543 TC FLASHON
005725,000918: 05,2265 44417 CS ENDINST
005726,000919: 05,2266 60122 AD ENTEXIT
005727,000920: 05,2267 00006 EXTEND
005728,000921: 05,2270 12273 BZF ENDRQDAT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
005729,000922: 05,2271 47653 CS ZERO # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
005730,000923: 05,2272 54676 TS CADRSTOR # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
005731,000924: 05,2273 00122 ENDRQDAT TC ENTEXIT
005732,000925:
005733,000926: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
005734,000927: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
005735,000928:
005736,000929:
005737,000930:
005738,000931: 05,2274 54642 TS NOUNREG
005739,000932: 05,2275 56002 UPDATNN XCH Q
005740,000933: 05,2276 54103 TS UPDATRET
005741,000934: 05,2277 00006 EXTEND
005742,000935: 05,2300 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
005743,000936: 05,2301 52006 DXCH Z # ROUTINE.
005744,000937: 05,2302 10132 CCS NNADTEM
005745,000938: 05,2303 67646 AD ONE # NORMAL
005746,000939: 05,2304 12307 TCF PUTADD
005747,000940: 05,2305 12310 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
005748,000941: 05,2306 12310 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
005749,000942: 05,2307 04430 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
005750,000943: 05,2310 34507 CAF ND1
005751,000944: 05,2311 54637 TS DSPCOUNT
![]() |
Page 155 |
005753,000946: 05,2312 30642 CA NOUNREG
005754,000947: 05,2313 12322 TCF UPDAT1
005755,000948:
005756,000949: 05,2314 54641 TS VERBREG
005757,000950: 05,2315 56002 UPDATVB XCH Q
005758,000951: 05,2316 54103 TS UPDATRET
005759,000952: 05,2317 34506 CAF VD1
005760,000953: 05,2320 54637 TS DSPCOUNT
005761,000954: 05,2321 30641 CA VERBREG
005762,000955: 05,2322 03255 UPDAT1 TC DSP2BIT
005763,000956: 05,2323 00103 TC UPDATRET
005764,000957:
005765,000958:
005766,000959:
005767,000960: 05,2324 04102 GODSPALM TC POSTJUMP
005768,000961: 05,2325 11255 CADR DSPALARM
005769,000962:
![]() |
Page 156 |
005771,000964: # NOUN TABLES
005772,000965: # NOUN CODE L/ 55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
005773,000966: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
005774,000967: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
005775,000968: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
005776,000969: # OF LAST MACHINE CADR SUPPLIED.
005777,000970:
005778,000971: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
005779,000972: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
005780,000973:
005781,000974: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
005782,000975:
005783,000976: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
005784,000977: # N-S ARE THE SF ROUTINE CODE NUMBER.
005785,000978: # P-S ARE THE SF CONSTANT CODE NUMBER.
005786,000979:
005787,000980: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
005788,000981: # N-S ARE THE SF CONSTANT2 CODE NUMBER
005789,000982: # P-S ARE THE SF CONSTANT1 CODE NUMBER
005790,000983: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
005791,000984: # P-S ARE THE SF CONSTANT1 CODE NUMBER
005792,000985: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
005793,000986:
005794,000987: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
005795,000988: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
005796,000989: # THE FIRST OF THESE ENTRIES.
005797,000990: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
005798,000991: # THEY ARE LISTED IN ORDER OF ASCENDING K.
005799,000992:
005800,000993: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
005801,000994: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
005802,000995: # QQQQQRRRRRSSSSS
005803,000996: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
005804,000997: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
005805,000998: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
005806,000999: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
005807,001000: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
005808,001001:
005809,001002:
005810,001003:
005811,001004: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
005812,001005: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
005813,001006: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
005814,001007: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
005815,001008: # AN UNCONTOLLED NUMBER OF COMPONENTS.
005816,001009:
005817,001010:
005818,001011:
005819,001012: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
005820,001013: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
005821,001014:
![]() |
Page 157 |
005823,001016: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
005824,001017: # BEFORE EACH ENTER. IF NOT, ALARM.
005825,001018:
![]() |
Page 158 |
005827,001020: # DISPLAY VERBS
005828,001021: 05,2326 47645 DSPABC CS TWO
005829,001022: 05,2327 02376 TC COMPTEST
005830,001023: 05,2330 50131 INDEX NOUNADD
005831,001024: 05,2331 40002 CS 2
005832,001025: 05,2332 56116 XCH BUF +2
005833,001026: 05,2333 47646 DSPAB CS ONE
005834,001027: 05,2334 02376 TC COMPTEST
005835,001028: 05,2335 50131 INDEX NOUNADD
005836,001029: 05,2336 40001 CS 1
005837,001030: 05,2337 56115 XCH BUF +1
005838,001031: 05,2340 02420 DSPA TC TSTFORDP
005839,001032: 05,2341 50131 INDEX NOUNADD
005840,001033: 05,2342 40000 CS 0
005841,001034: 05,2343 56114 DSPCOM1 XCH BUF
005842,001035: 05,2344 02357 TC DSPCOM2
005843,001036: 05,2345 47646 DSPB CS ONE
005844,001037: 05,2346 02376 TC COMPTEST
005845,001038: 05,2347 50131 INDEX NOUNADD
005846,001039: 05,2350 40001 CS 1
005847,001040: 05,2351 02343 TC DSPCOM1
005848,001041: 05,2352 47645 DSPC CS TWO
005849,001042: 05,2353 02376 TC COMPTEST
005850,001043: 05,2354 50131 INDEX NOUNADD
005851,001044: 05,2355 40002 CS 2
005852,001045: 05,2356 02343 TC DSPCOM1
005853,001046: 05,2357 47645 DSPCOM2 CS TWO # A B C AB ABC
005854,001047: 05,2360 60641 AD VERBREG # -1 -0 +1 +2 +3 IN A
005855,001048: 05,2361 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
005856,001049: 05,2362 02365 TC DSPCOM3
005857,001050: 05,2363 00122 TC ENTEXIT
005858,001051: 05,2364 02365 TC +1
005859,001052: 05,2365 54106 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
005860,001053: 05,2366 50000 INDEX A
005861,001054: 05,2367 34444 CAF R1D1
005862,001055: 05,2370 54637 TS DSPCOUNT
005863,001056: 05,2371 50106 INDEX DISTEM
005864,001057: 05,2372 40114 CS BUF
005865,001058: 05,2373 03222 TC DSPOCTWD
005866,001059: 05,2374 56106 XCH DISTEM
005867,001060: 05,2375 02361 TC DSPCOM2 +2
005868,001061:
005869,001062: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
005870,001063: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
005871,001064: # NOUN 01 IS EXCLUDED FROM TEST.
005872,001065: 05,2376 54107 COMPTEST TS SFTEMP1 # - VERB COMP
005873,001066: 05,2377 22002 LXCH Q
005874,001067: 05,2400 47646 COMPTST1 CS ONE
005875,001068: 05,2401 60642 AD NOUNREG
005876,001069: 05,2402 00006 EXTEND
![]() |
Page 159 |
005878,001071: 05,2403 12417 BZF NDCMPTST # NOUN = 01, ANY COMP OK
005879,001072: 05,2404 50124 INDEX MIXBR # NOUN NOT = 01.
005880,001073: 05,2405 32442 CAF COMPICK -1
005881,001074: 05,2406 50000 INDEX A
005882,001075: 05,2407 30000 CA 0
005883,001076: 05,2410 74475 MASK HI5
005884,001077: 05,2411 04456 TC LEFT5 # NOUN COMP
005885,001078: 05,2412 60107 AD SFTEMP1 # NOUN COMP - VERB COMP
005886,001079: 05,2413 10000 CCS A
005887,001080: 05,2414 00001 TC L # NOUN COMP G/ VERB COMP
005888,001081: 05,2416 LOC +1
005889,001082: 05,2416 02324 TC GODSPALM # NOUN COMP L/ VERB COMP
005890,001083: 05,2417 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
005891,001084:
005892,001085:
005893,001086:
005894,001087: 05,2420 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
005895,001088: 05,2421 30132 CA NNADTEM
005896,001089: 05,2422 67646 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
005897,001090: 05,2423 00006 EXTEND
005898,001091: 05,2424 12436 BZF CHANDSP
005899,001092: 05,2425 50124 INDEX MIXBR
005900,001093: 05,2426 02426 TC +0
005901,001094: 05,2427 02431 TC +2 # NORMAL
005902,001095: 05,2430 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
005903,001096: 05,2431 02713 TC SFRUTNOR
005904,001097: 05,2432 02236 TC DPTEST
005905,001098: 05,2433 00001 TC L # NO DP
005906,001099: 05,2434 24131 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
005907,001100: 05,2435 00001 TC L
005908,001101:
005909,001102:
005910,001103:
005911,001104: 05,2436 00006 CHANDSP EXTEND
005912,001105: 05,2437 50657 INDEX NOUNCADR
005913,001106: 05,2440 00000 READ 0
005914,001107: 05,2441 40000 CS A
005915,001108: 05,2442 12343 TCF DSPCOM1
005916,001109:
005917,001110:
005918,001111:
005919,001112: 05,2443 00133 COMPICK ADRES NNTYPTEM
005920,001113: 05,2444 00132 ADRES NNADTEM
005921,001114:
005922,001115: 05,2445 50124 DECDSP INDEX MIXBR # NORMAL MIXED
005923,001116: 05,2446 32442 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
005924,001117: 05,2447 50000 INDEX A
005925,001118: 05,2450 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
005926,001119: 05,2451 74475 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
005927,001120: 05,2452 04456 TC LEFT5
![]() |
Page 160 |
005929,001122: 05,2453 54103 TS DECOUNT # COMP NUMBER INTO DECOUNT
005930,001123: 05,2454 54106 DSPDCGET TS DECTEM # PICKS UP DATA
005931,001124: 05,2455 60131 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
005932,001125: 05,2456 50000 INDEX A
005933,001126: 05,2457 40000 CS 0
005934,001127: 05,2460 50106 INDEX DECTEM
005935,001128: 05,2461 56643 XCH XREG # CANT USE BUF SINCE DMP USES IT.
005936,001129: 05,2462 10106 CCS DECTEM
005937,001130: 05,2463 02454 TC DSPDCGET # MORE TO GET
005938,001131: 05,2464 37653 DSPDCPUT CAF ZERO # DISPLAYS DATA
005939,001132: 05,2465 54141 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
005940,001133: 05,2466 54142 TS MPAC +2
005941,001134: 05,2467 50103 INDEX DECOUNT
005942,001135: 05,2470 34444 CAF R1D1
005943,001136: 05,2471 54637 TS DSPCOUNT
005944,001137: 05,2472 50103 INDEX DECOUNT
005945,001138: 05,2473 40643 CS XREG
005946,001139: 05,2474 54140 TS MPAC
005947,001140: 05,2475 02734 TC SFCONUM # 2X ( SF CON NUMB ) IN A
005948,001141: 05,2476 54107 TS SFTEMP1
005949,001142: 05,2477 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
005950,001143: 05,2500 32512 DCA GTSFOUTL # READING ROUTINE.
005951,001144: 05,2501 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
005952,001145: 05,2502 50124 INDEX MIXBR
005953,001146: 05,2503 02503 TC +0
005954,001147: 05,2504 02507 TC DSPSFNOR
005955,001148: 05,2505 02721 TC SFRUTMIX
005956,001149: 05,2506 02522 TC DECDSP3
005957,001150:
005958,001151: 05,2507 02713 DSPSFNOR TC SFRUTNOR
005959,001152: 05,2510 02522 TC DECDSP3
005960,001153:
005961,001154: 05,2511 0637 EBANK= DSPCOUNT
005962,001155: 05,2511 02037 14001 GTSFOUTL 2CADR GTSFOUT
005963,001156:
005964,001157:
005965,001158:
005966,001159: 05,2513 04063 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
005967,001160: 05,2514 11057 CADR DSPDECWD
005968,001161: 05,2515 10103 CCS DECOUNT
005969,001162: 05,2516 02520 TC +2
005970,001163: 05,2517 00122 TC ENTEXIT
005971,001164: 05,2520 54103 TS DECOUNT
005972,001165: 05,2521 02464 TC DSPDCPUT # MORE TO DISPLAY
005973,001166:
005974,001167:
005975,001168:
005976,001169: 05,2522 50000 DECDSP3 INDEX A
005977,001170: 05,2523 32525 CAF SFOUTABR
005978,001171: 05,2524 04105 TC BANKJUMP
005979,001172:
![]() |
Page 161 |
005981,001174: 05,2525 11255 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
005982,001175: 05,2526 12513 CADR DSPDCEND
005983,001176: 05,2527 10533 CADR DEGOUTSF
005984,001177: 05,2530 10620 CADR ARTOUTSF
005985,001178: 05,2531 10625 CADR DP1OUTSF
005986,001179: 05,2532 10632 CADR DP2OUTSF
005987,001180: 05,2533 10541 CADR OPDEGOUT
005988,001181: 05,2534 10634 CADR DP3OUTSF
005989,001182: 05,2535 ENDRTOUT EQUALS
005990,001183:
005991,001184:
005992,001185:
005993,001186: # THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
005994,001187: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
005995,001188:
005996,001189:
005997,001190:
005998,001191: 04,2533 SETLOC BLANKCON +1
005999,001192:
006000,001193: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
006001,001194: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
006002,001195:
006003,001196: 04,2533 37653 DEGOUTSF CAF ZERO
006004,001197: 04,2534 54142 TS MPAC +2 # SET INDEX FOR FULL SCALE
006005,001198: 04,2535 02572 TC FIXRANGE
006006,001199: 04,2536 02540 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
006007,001200: 04,2537 02565 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
006008,001201: 04,2540 02603 TC DEGCOM
006009,001202:
006010,001203: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
006011,001204:
006012,001205: 04,2541 10140 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
006013,001206: 04,2542 56140 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
006014,001207: 04,2543 02546 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
006015,001208: 04,2544 02555 TC NEGOPT # IF NEG NON ZERO
006016,001209: 04,2545 67655 AD NEG1 # IF NEG ZERO SUBTRACT 1
006017,001210: 04,2546 62617 AD 20BIAS
006018,001211: 04,2547 54140 BIASCOM TS MPAC # TEST FOR OVERFLOW
006019,001212: 04,2550 02553 TC +3 # NO OVFLOW
006020,001213: 04,2551 37630 CAF BIT15 # IF OVFLOW
006021,001214: 04,2552 26140 ADS MPAC
006022,001215: 04,2553 37645 CAF TWO # SET MULTIPLIER TO .45
006023,001216: 04,2554 02534 TC DEGOUTSF +1
006024,001217:
006025,001218: 04,2555 56140 NEGOPT XCH MPAC # NEGATIVE CASE
006026,001219: 04,2556 62617 AD 20BIAS
006027,001220: 04,2557 10000 CCS A
006028,001221: 04,2560 02547 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
006029,001222: 04,2562 LOC +1
006030,001223: 04,2562 67646 AD ONE # IF NEG RESTORE SUM
006031,001224:
![]() |
Page 162 |
006033,001226: 04,2563 40000 COM # IF NEG 0 LEAVE NEG 0
006034,001227: 04,2564 02547 TC BIASCOM
006035,001228:
006036,001229: 04,2565 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
006037,001230: 04,2566 50142 INDEX MPAC +2 # DP AUGMENTER CONSTANT
006038,001231: 04,2567 32614 DCA DEGTAB
006039,001232: 04,2570 52110 DXCH SFTEMP1
006040,001233: 04,2571 00002 TC Q
006041,001234:
006042,001235: 04,2572 10140 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
006043,001236: 04,2573 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
006044,001237: 04,2574 00002 TC Q # MASKING OUT THE SIGN BIT
006045,001238: 04,2575 12576 TCF +1
006046,001239: 04,2576 47630 CS BIT15
006047,001240: 04,2577 70140 MASK MPAC
006048,001241: 04,2600 54140 TS MPAC
006049,001242: 04,2601 50002 INDEX Q
006050,001243: 04,2602 00001 TC 1
006051,001244:
006052,001245: 04,2603 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
006053,001246: 04,2604 50142 INDEX MPAC +2 # ADDS AUGMENTER.
006054,001247: 04,2605 32614 DCA DEGTAB
006055,001248: 04,2606 52141 DXCH MPAC # ADJUSTED ANGLE IN A
006056,001249: 04,2607 07257 TC SHORTMP
006057,001250: 04,2610 52110 DXCH SFTEMP1
006058,001251: 04,2611 20141 DAS MPAC
006059,001252: 04,2612 02623 TC SCOUTEND
006060,001253:
006061,001254:
006062,001255:
006063,001256: 04,2613 05605 DEGTAB OCT 05605 # HI PART OF .18
006064,001257: 04,2614 03656 OCT 03656 # LOW PART OF .18
006065,001258: 04,2615 16314 OCT 16314 # HI PART OF .45
006066,001259: 04,2616 31463 OCT 31463 # LO PART OF .45
006067,001260:
006068,001261: 04,2617 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
006069,001262:
006070,001263: 04,2620 52110 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
006071,001264: 04,2621 52141 DXCH MPAC
006072,001265: 04,2622 07257 TC SHORTMP
006073,001266: 04,2623 04102 SCOUTEND TC POSTJUMP
006074,001267: 04,2624 12513 CADR DSPDCEND
006075,001268:
006076,001269: 04,2625 02637 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006077,001270: 04,2626 56142 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
006078,001271: 04,2627 56141 XCH MPAC +1 # BY B14.
006079,001272: 04,2630 54140 TS MPAC
006080,001273: 04,2631 02623 TC SCOUTEND
006081,001274:
![]() |
Page 163 |
006083,001276: 04,2632 02637 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
006084,001277: 04,2633 02623 TC SCOUTEND
006085,001278:
006086,001279:
006087,001280:
006088,001281: 04,2634 02637 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006089,001282: 04,2635 03032 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
006090,001283: 04,2636 02623 TC SCOUTEND
006091,001284:
006092,001285:
006093,001286:
006094,001287: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
006095,001288: # THIS IS NEEDED FOR TIME DISPLAY.
006096,001289:
006097,001290: 04,2637 56002 DPOUT XCH Q
006098,001291: 04,2640 54105 TS OVFIND
006099,001292: 04,2641 50124 INDEX MIXBR
006100,001293: 04,2642 02642 TC +0
006101,001294: 04,2643 02660 TC DPOUTNOR
006102,001295: 04,2644 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
006103,001296: 04,2645 30134 CA IDAD1TEM # OF NOUN.
006104,001297: 04,2646 74503 MASK LOW11 # E SUBK
006105,001298: 04,2647 04440 TC SETEBANK # SET EB, LEAVE EADRES IN A.
006106,001299: 04,2650 00006 DPOUTCOM EXTEND
006107,001300: 04,2651 50000 INDEX A # MIXED NORMAL
006108,001301: 04,2652 30001 DCA 0 # C(ESUBK) C(E)
006109,001302: 04,2653 52141 DXCH MPAC # C((E SUBK)+1) C(E+1)
006110,001303: 04,2654 07062 TC DMP
006111,001304: 04,2655 00107 ADRES SFTEMP1
006112,001305: 04,2656 07226 TC TPAGREE
006113,001306: 04,2657 00105 TC OVFIND
006114,001307:
006115,001308: 04,2660 30131 DPOUTNOR CA NOUNADD # E
006116,001309: 04,2661 02650 TC DPOUTCOM
006117,001310:
006118,001311:
006119,001312:
006120,001313: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
006121,001314: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
006122,001315: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
006123,001316: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
006124,001317: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
006125,001318: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
006126,001319:
006127,001320:
006128,001321:
006129,001322: 04,2662 50124 DSPDPDEC INDEX MIXBR
006130,001323: 04,2663 02663 TC +0
006131,001324: 04,2664 02666 TC +2 # NORMAL NOUN
006132,001325: 04,2665 03255 TC DSPALARM
006133,001326:
![]() |
Page 164 |
006135,001328: 04,2666 00006 EXTEND
006136,001329: 04,2667 50131 INDEX NOUNADD
006137,001330: 04,2670 30001 DCA 0
006138,001331: 04,2671 52141 DXCH MPAC
006139,001332: 04,2672 34444 CAF R1D1
006140,001333: 04,2673 54637 TS DSPCOUNT
006141,001334: 04,2674 37653 CAF ZERO
006142,001335: 04,2675 54142 TS MPAC +2
006143,001336: 04,2676 07226 TC TPAGREE
006144,001337: 04,2677 03133 TC DSP2DEC
006145,001338: 04,2700 00122 ENDDPDEC TC ENTEXIT
006146,001339:
![]() |
Page 165 |
006148,001341: # LOAD VERBS
006149,001342:
006150,001343:
006151,001344:
006152,001345: 05,2535 SETLOC ENDRTOUT
006153,001346:
006154,001347: 05,2535 47645 ABCLOAD CS TWO
006155,001348: 05,2536 02376 TC COMPTEST
006156,001349: 05,2537 32673 CAF VBSP1LD
006157,001350: 05,2540 02314 TC UPDATVB -1
006158,001351: 05,2541 02252 TC REQDATX
006159,001352: 05,2542 32674 CAF VBSP2LD
006160,001353: 05,2543 02314 TC UPDATVB -1
006161,001354: 05,2544 02254 TC REQDATY
006162,001355: 05,2545 32675 CAF VBSP3LD
006163,001356: 05,2546 02314 TC UPDATVB -1
006164,001357: 05,2547 02256 TC REQDATZ
006165,001358:
006166,001359:
006167,001360:
006168,001361: 05,2550 46162 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
006169,001362: 05,2551 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
006170,001363: 05,2552 00006 EXTEND
006171,001364: 05,2553 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
006172,001365: 05,2554 52006 DXCH Z # ROUTINE.
006173,001366: 05,2555 37653 CAF ZERO # X COMP
006174,001367: 05,2556 02762 TC PUTCOM
006175,001368: 05,2557 50131 INDEX NOUNADD
006176,001369: 05,2560 54000 TS 0
006177,001370: 05,2561 37646 CAF ONE # Y COMP
006178,001371: 05,2562 02762 TC PUTCOM
006179,001372: 05,2563 50131 INDEX NOUNADD
006180,001373: 05,2564 54001 TS 1
006181,001374: 05,2565 37645 CAF TWO # Z COMP
006182,001375: 05,2566 02762 TC PUTCOM
006183,001376: 05,2567 50131 INDEX NOUNADD
006184,001377: 05,2570 54002 TS 2
006185,001378: 05,2571 02663 TC LOADLV
006186,001379:
006187,001380: 05,2572 47646 ABLOAD CS ONE
006188,001381: 05,2573 02376 TC COMPTEST
006189,001382: 05,2574 32673 CAF VBSP1LD
006190,001383: 05,2575 02314 TC UPDATVB -1
006191,001384: 05,2576 02252 TC REQDATX
006192,001385: 05,2577 32674 CAF VBSP2LD
006193,001386: 05,2600 02314 TC UPDATVB -1
006194,001387: 05,2601 02254 TC REQDATY
006195,001388: 05,2602 47225 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
006196,001389: 05,2603 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
006197,001390: 05,2604 00006 EXTEND
![]() |
Page 166 |
006199,001392: 05,2605 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
006200,001393: 05,2606 52006 DXCH Z # ROUTINE.
006201,001394: 05,2607 37653 CAF ZERO # X COMP
006202,001395: 05,2610 02762 TC PUTCOM
006203,001396: 05,2611 50131 INDEX NOUNADD
006204,001397: 05,2612 54000 TS 0
006205,001398: 05,2613 37646 CAF ONE # Y COMP
006206,001399: 05,2614 02762 TC PUTCOM
006207,001400: 05,2615 50131 INDEX NOUNADD
006208,001401: 05,2616 54001 TS 1
006209,001402: 05,2617 02663 TC LOADLV
006210,001403:
006211,001404: 05,2620 02252 ALOAD TC REQDATX
006212,001405: 05,2621 00006 EXTEND
006213,001406: 05,2622 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
006214,001407: 05,2623 52006 DXCH Z # ROUTINE.
006215,001408: 05,2624 37653 CAF ZERO # X COMP
006216,001409: 05,2625 02762 TC PUTCOM
006217,001410: 05,2626 50131 INDEX NOUNADD
006218,001411: 05,2627 54000 TS 0
006219,001412: 05,2630 02663 TC LOADLV
006220,001413:
006221,001414: 05,2631 47646 BLOAD CS ONE
006222,001415: 05,2632 02376 TC COMPTEST
006223,001416: 05,2633 37630 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
006224,001417: 05,2634 54655 TS CLPASS
006225,001418: 05,2635 02254 TC REQDATY
006226,001419: 05,2636 00006 EXTEND
006227,001420: 05,2637 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
006228,001421: 05,2640 52006 DXCH Z # ROUTINE.
006229,001422: 05,2641 37646 CAF ONE
006230,001423: 05,2642 02762 TC PUTCOM
006231,001424: 05,2643 50131 INDEX NOUNADD
006232,001425: 05,2644 54001 TS 1
006233,001426: 05,2645 02663 TC LOADLV
006234,001427:
006235,001428: 05,2646 47645 CLOAD CS TWO
006236,001429: 05,2647 02376 TC COMPTEST
006237,001430: 05,2650 37630 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
006238,001431: 05,2651 54655 TS CLPASS
006239,001432: 05,2652 02256 TC REQDATZ
006240,001433: 05,2653 00006 EXTEND
006241,001434: 05,2654 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
006242,001435: 05,2655 52006 DXCH Z # ROUTINE.
006243,001436: 05,2656 37645 CAF TWO
006244,001437: 05,2657 02762 TC PUTCOM
006245,001438: 05,2660 50131 INDEX NOUNADD
006246,001439: 05,2661 54002 TS 2
006247,001440: 05,2662 02663 TC LOADLV
006248,001441:
![]() |
Page 167 |
006250,001443: 05,2663 37653 LOADLV CAF ZERO
006251,001444: 05,2664 54640 TS DECBRNCH
006252,001445: 05,2665 47653 CS ZERO
006253,001446: 05,2666 54654 TS LOADSTAT
006254,001447: 05,2667 44506 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
006255,001448: 05,2670 54637 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
006256,001449: 05,2671 04102 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
006257,001450: 05,2672 11400 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
006258,001451:
006259,001452: 05,2673 00021 VBSP1LD OCT 21 # VB21 = ALOAD
006260,001453: 05,2674 00022 VBSP2LD OCT 22 # VB22 = BLOAD
006261,001454: 05,2675 00023 VBSP3LD OCT 23 # VB23 = CLOAD
006262,001455:
006263,001456:
006264,001457:
006265,001458: 05,2676 54103 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
006266,001459: 05,2677 40640 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
006267,001460: 05,2700 54021 TS SR
006268,001461: 05,2701 40021 CS SR
006269,001462: 05,2702 40021 CS SR # SHIFTED RIGHT 2
006270,001463: 05,2703 10000 CCS A # DEC COMP BITS IN LOW 3
006271,001464: 05,2704 12706 TCF +2 # SOME ONES IN LOW 3
006272,001465: 05,2705 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
006273,001466: 05,2706 60103 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
006274,001467: 05,2707 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
006275,001468: 05,2710 12712 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
006276,001469: 05,2711 02324 TC GODSPALM
006277,001470: 05,2712 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
006278,001471:
006279,001472:
006280,001473:
006281,001474: 05,2713 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
006282,001475: 05,2714 54100 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
006283,001476: 05,2715 34474 CAF MID5
006284,001477: 05,2716 70133 MASK NNTYPTEM
006285,001478: 05,2717 04447 TC RIGHT5
006286,001479: 05,2720 00100 TC EXITEM # SF ROUTINE NUMBER IN A
006287,001480:
006288,001481: 05,2721 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
006289,001482: 05,2722 54100 TS EXITEM
006290,001483: 05,2723 50103 INDEX DECOUNT
006291,001484: 05,2724 32753 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006292,001485: 05,2725 54001 TS L
006293,001486: 05,2726 50103 INDEX DECOUNT
006294,001487: 05,2727 34473 CAF LOW5 # LOW5, MID5, OR HI5 IN A
006295,001488: 05,2730 70137 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
006296,001489: 05,2731 50001 INDEX L
006297,001490: 05,2732 00000 TC 0
006298,001491: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006299,001492: 05,2733 00100 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
006300,001493:
![]() |
Page 168 |
006302,001495: 05,2734 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
006303,001496: 05,2735 54100 TS EXITEM
006304,001497: 05,2736 50124 INDEX MIXBR
006305,001498: 05,2737 02737 TC +0
006306,001499: 05,2740 02756 TC CONUMNOR # NORMAL NOUN
006307,001500: 05,2741 50103 INDEX DECOUNT # MIXED NOUN
006308,001501: 05,2742 32753 CAF DISPLACE
006309,001502: 05,2743 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
006310,001503: 05,2744 50103 INDEX DECOUNT
006311,001504: 05,2745 34473 CAF LOW5
006312,001505: 05,2746 70133 MASK NNTYPTEM
006313,001506: 05,2747 50001 INDEX L
006314,001507: 05,2750 00000 TC 0
006315,001508: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
006316,001509: 05,2751 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
006317,001510: 05,2752 00100 TC EXITEM
006318,001511:
006319,001512: 05,2753 02712 DISPLACE TC GOQ
006320,001513: 05,2754 04447 TC RIGHT5
006321,001514: 05,2755 04456 TC LEFT5
006322,001515:
006323,001516: 05,2756 34473 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
006324,001517: 05,2757 70133 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
006325,001518: 05,2760 60000 DOUBLE
006326,001519: 05,2761 00100 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
006327,001520:
006328,001521:
006329,001522:
006330,001523: 05,2762 54103 PUTCOM TS DECOUNT
006331,001524: 05,2763 56002 XCH Q
006332,001525: 05,2764 54101 TS DECRET
006333,001526: 05,2765 37653 CAF ZERO
006334,001527: 05,2766 54105 TS OVFIND
006335,001528: 05,2767 50103 INDEX DECOUNT
006336,001529: 05,2770 56646 XCH XREGLP
006337,001530: 05,2771 54141 TS MPAC +1
006338,001531: 05,2772 50103 INDEX DECOUNT
006339,001532: 05,2773 56643 XCH XREG
006340,001533: 05,2774 54140 TS MPAC
006341,001534: 05,2775 50124 INDEX MIXBR
006342,001535: 05,2776 02776 TC +0
006343,001536: 05,2777 03023 TC PUTNORM # NORMAL NOUN
006344,001537: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
006345,001538: 05,3000 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
006346,001539: 05,3001 30134 CA IDAD1TEM # OF NOUN.
006347,001540: 05,3002 74503 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
006348,001541: 05,3003 04430 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
006349,001542: 05,3004 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
006350,001543: 05,3005 60103 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
006351,001544: 05,3006 54131 TS NOUNADD
006352,001545:
![]() |
Page 169 |
006354,001547: 05,3007 10640 CCS DECBRNCH
006355,001548: 05,3010 03051 TC PUTDECSF # + DEC
006356,001549: 05,3011 02721 TC SFRUTMIX # +0 OCTAL
006357,001550: 05,3012 02236 TC DPTEST
006358,001551: 05,3013 03040 TC PUTCOM2 # NO DP
006359,001552: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
006360,001553: # +0 INTO MAJOR PART. SET NOUNADD FOR
006361,001554: # LOADING OCTAL WORD INTO MINOR PART.
006362,001555: 05,3014 24131 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
006363,001556: 05,3015 30131 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
006364,001557: 05,3016 26103 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
006365,001558: 05,3017 37653 CAF ZERO # NOUNADD SET FOR MINOR PART
006366,001559: 05,3020 50103 INDEX DECOUNT
006367,001560: 05,3021 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
006368,001561: 05,3022 03040 TC PUTCOM2
006369,001562:
006370,001563: 05,3023 04436 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
006371,001564: 05,3024 10640 CCS DECBRNCH
006372,001565: 05,3025 03051 TC PUTDECSF # + DEC
006373,001566: 05,3026 02713 TC SFRUTNOR # +0 OCTAL
006374,001567: 05,3027 02236 TC DPTEST
006375,001568: 05,3030 03034 TC PUTCOM2 -4 # NO DP
006376,001569: 05,3031 37653 CAF ZERO # DP
006377,001570: 05,3032 54103 TS DECOUNT
006378,001571: 05,3033 03014 TC PUTDPCOM
006379,001572:
006380,001573: 05,3034 30132 CA NNADTEM
006381,001574: 05,3035 67646 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
006382,001575: 05,3036 00006 EXTEND
006383,001576: 05,3037 13044 BZF CHANLOAD
006384,001577: 05,3040 56140 PUTCOM2 XCH MPAC
006385,001578: 05,3041 00101 TC DECRET
006386,001579:
006387,001580: 05,3042 0637 EBANK= DSPCOUNT
006388,001581: 05,3042 02045 14001 GTSFINLC 2CADR GTSFIN
006389,001582:
006390,001583:
006391,001584: 05,3044 56140 CHANLOAD XCH MPAC
006392,001585: 05,3045 00006 EXTEND
006393,001586: 05,3046 50657 INDEX NOUNCADR
006394,001587: 05,3047 01000 WRITE 0
006395,001588: 05,3050 02663 TC LOADLV
006396,001589:
006397,001590:
006398,001591:
006399,001592: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
006400,001593:
006401,001594: 05,3051 02734 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
006402,001595: 05,3052 54107 TS SFTEMP1
006403,001596:
![]() |
Page 170 |
006405,001598: 05,3053 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
006406,001599: 05,3054 33043 DCA GTSFINLC # READING ROUTINE.
006407,001600: 05,3055 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
006408,001601: 05,3056 50124 INDEX MIXBR
006409,001602: 05,3057 03057 TC +0
006410,001603: 05,3060 03063 TC PUTSFNOR
006411,001604: 05,3061 02721 TC SFRUTMIX
006412,001605: 05,3062 03064 TC PUTDCSF2
006413,001606: 05,3063 02713 PUTSFNOR TC SFRUTNOR
006414,001607:
006415,001608: 05,3064 50000 PUTDCSF2 INDEX A
006416,001609: 05,3065 33067 CAF SFINTABR
006417,001610: 05,3066 04105 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
006418,001611: 05,3067 11255 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
006419,001612: 05,3070 10761 CADR BINROUND
006420,001613: 05,3071 10701 CADR DEGINSF
006421,001614: 05,3072 10751 CADR ARTHINSF
006422,001615: 05,3073 11001 CADR DPINSF
006423,001616: 05,3074 11026 CADR DPINSF2
006424,001617: 05,3075 10764 CADR OPTDEGIN
006425,001618: 05,3076 11001 CADR DPINSF # SAME AS ARITHDP1
006426,001619: 05,3077 ENDRUTIN EQUALS
006427,001620:
006428,001621:
006429,001622:
006430,001623: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
006431,001624: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
006432,001625:
006433,001626:
006434,001627:
006435,001628: 04,2701 SETLOC ENDDPDEC +1
006436,001629:
006437,001630: # DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
006438,001631:
006439,001632: 04,2701 07062 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
006440,001633: 04,2702 02744 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
006441,001634: 04,2703 10141 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
006442,001635: 04,2704 37634 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
006443,001636: 04,2705 02707 TC +2 # WHEN SHIFTED LEFT AND ALARM.
006444,001637: 04,2706 47634 CS BIT11
006445,001638: 04,2707 60141 AD MPAC +1
006446,001639: 04,2710 03044 TC 2ROUND +2
006447,001640: 04,2711 04532 TC TPSL1 # LEFT 1
006448,001641: 04,2712 04532 DEGINSF2 TC TPSL1 # LEFT 2
006449,001642: 04,2713 03053 TC TESTOFUF
006450,001643: 04,2714 04532 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
006451,001644: 04,2715 10140 CCS MPAC
006452,001645: 04,2716 02722 TC SIGNFIX # IF+, GO TO SIGNFIX
006453,001646: 04,2717 02722 TC SIGNFIX # IF +0, GO TO SIGNFIX
006454,001647: 04,2720 40000 COM # IF - , USE -MAGNITUDE +1
![]() |
Page 171 |
006456,001649: 04,2721 54140 TS MPAC # IF -0, USE +0
006457,001650: 04,2722 10105 SIGNFIX CCS OVFIND
006458,001651: 04,2723 02740 TC SGNTO1 # IF OVERFLOW
006459,001652: 04,2724 02734 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
006460,001653: 04,2725 10140 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
006461,001654: 04,2727 LOC +1
006462,001655: 04,2727 02736 TC NEG180
006463,001656: 04,2730 02731 TC +1
006464,001657: 04,2731 56140 XCH MPAC
006465,001658: 04,2732 77626 MASK POSMAX
006466,001659: 04,2733 54140 TS MPAC
006467,001660: 04,2734 04102 ENDSCALE TC POSTJUMP
006468,001661: 04,2735 13040 CADR PUTCOM2
006469,001662:
006470,001663: 04,2736 47626 NEG180 CS POSMAX
006471,001664: 04,2737 02733 TC ENDSCALE -1
006472,001665:
006473,001666: 04,2740 40140 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
006474,001667: 04,2741 77626 MASK POSMAX
006475,001668: 04,2742 40000 CS A
006476,001669: 04,2743 02733 TC ENDSCALE -1
006477,001670:
006478,001671: 04,2744 26161 30707 DEGCON1 2DEC 5.555555555 B-3
006479,001672:
006480,001673: 04,2746 21616 07071 DEGCON2 2DEC 2.222222222 B-2
006481,001674:
006482,001675: 04,2750 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
006483,001676:
006484,001677: 04,2751 07062 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
006485,001678: 04,2752 00107 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
006486,001679: 04,2753 56142 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
006487,001680: 04,2754 56141 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
006488,001681: 04,2755 56140 XCH MPAC
006489,001682: 04,2756 00006 EXTEND
006490,001683: 04,2757 12761 BZF BINROUND
006491,001684: 04,2760 03255 TC DSPALARM # TOO LARGE A LOAD
006492,001685: 04,2761 03042 BINROUND TC 2ROUND
006493,001686: 04,2762 03053 TC TESTOFUF
006494,001687: 04,2763 02734 TC ENDSCALE # RETURNS IF NO OF/UF
006495,001688:
006496,001689:
006497,001690:
006498,001691: 04,2764 10140 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
006499,001692: 04,2765 02771 TC +4
006500,001693: 04,2766 02771 TC +3
006501,001694: 04,2767 03255 TC DSPALARM # REJECT NEGATIVE INPUT
006502,001695: 04,2770 03255 TC DSPALARM # DITTO
006503,001696: 04,2771 32750 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
006504,001697: 04,2772 26140 ADS MPAC # SUBTRACT BIAS
006505,001698: 04,2773 07062 TC DMP # MULT BY 100 / 45 B-2
![]() |
Page 172 |
006507,001700: 04,2774 02746 ADRES DEGCON2
006508,001701: 04,2775 37633 CAF BIT12 # ROUND AS IN DEGINSF
006509,001702: 04,2776 60141 AD MPAC +1
006510,001703: 04,2777 03044 TC 2ROUND +2
006511,001704: 04,3000 02712 TC DEGINSF2
006512,001705:
006513,001706: 04,3001 07062 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
006514,001707: 04,3002 00107 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
006515,001708: 04,3003 56142 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
006516,001709: 04,3004 60000 DOUBLE
006517,001710: 04,3005 54142 TS MPAC +2
006518,001711: 04,3006 37653 CAF ZERO
006519,001712: 04,3007 60141 AD MPAC +1
006520,001713: 04,3010 03044 TC 2ROUND +2
006521,001714: 04,3011 03053 TC TESTOFUF
006522,001715: 04,3012 50124 INDEX MIXBR # RETURNS IF NO OF/UF
006523,001716: 04,3013 03013 TC +0
006524,001717: 04,3014 03024 TC DPINORM
006525,001718: 04,3015 30103 CA DECOUNT # MIXEDNOUN
006526,001719: 04,3016 60131 DPINCOM AD NOUNADD # MIXED NORMAL
006527,001720: 04,3017 54002 TS Q # E SUBK E
006528,001721: 04,3020 56141 XCH MPAC +1
006529,001722: 04,3021 50002 INDEX Q
006530,001723: 04,3022 54001 TS 1 # PLACE LOW PART IN
006531,001724: 04,3023 02734 TC ENDSCALE # (E SUBK) +1 MIXED
006532,001725: 04,3024 37653 DPINORM CAF ZERO # E +1 NORMAL
006533,001726: 04,3025 03016 TC DPINCOM
006534,001727:
006535,001728:
006536,001729:
006537,001730: 04,3026 07062 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
006538,001731: 04,3027 00107 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
006539,001732: 04,3030 03032 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
006540,001733: 04,3031 03003 TC DPINSF +2
006541,001734:
006542,001735:
006543,001736:
006544,001737: 04,3032 56002 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
006545,001738: 04,3033 54110 TS SFTEMP2 # CANT USE L FOR RETURN. TPSL1 USES L.
006546,001739: 04,3034 36162 CAF SIX # LEFT BY 7
006547,001740: 04,3035 54107 LEFT7COM TS SFTEMP1
006548,001741: 04,3036 04532 TC TPSL1
006549,001742: 04,3037 10107 CCS SFTEMP1
006550,001743: 04,3040 03035 TC LEFT7COM
006551,001744: 04,3041 00110 TC SFTEMP2
006552,001745:
006553,001746:
006554,001747:
006555,001748: 04,3042 56141 2ROUND XCH MPAC +1
006556,001749: 04,3043 60000 DOUBLE
![]() |
Page 173 |
006558,001751: 04,3044 54141 TS MPAC +1
006559,001752: 04,3045 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
006560,001753: 04,3046 60140 AD MPAC
006561,001754: 04,3047 54140 TS MPAC
006562,001755: 04,3050 00002 TC Q # IF MPAC DOES NOT OF/UF
006563,001756: 04,3051 54105 TS OVFIND
006564,001757: 04,3052 00002 2RNDEND TC Q
006565,001758:
006566,001759:
006567,001760:
006568,001761: 04,3053 10105 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
006569,001762: 04,3054 03255 TC DSPALARM # OF
006570,001763: 04,3055 00002 TC Q
006571,001764: 04,3056 03255 TC DSPALARM # UF
006572,001765:
![]() |
Page 174 |
006574,001767: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
006575,001768: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
006576,001769:
006577,001770: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
006578,001771: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
006579,001772: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
006580,001773: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
006581,001774: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
006582,001775:
006583,001776: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
006584,001777: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
006585,001778: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
006586,001779:
006587,001780: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
006588,001781:
006589,001782: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
006590,001783: # AND MONSAVE1 (TURNING OFF KILLER BIT).
006591,001784:
006592,001785:
006593,001786:
006594,001787: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
006595,001788: 05,3077 SETLOC ENDRUTIN
006596,001789:
006597,001790: 05,3077 47630 MONITOR CS BIT15
006598,001791: 05,3100 70657 MASK NOUNCADR
006599,001792: 05,3101 54141 MONIT1 TS MPAC +1 # TEMP STORAGE
006600,001793: 05,3102 33401 CAF LOW6
006601,001794: 05,3103 70641 MASK VERBREG
006602,001795: 05,3104 04456 TC LEFT5
006603,001796: 05,3105 54022 TS CYL
006604,001797: 05,3106 56022 XCH CYL
006605,001798: 05,3107 60642 AD NOUNREG
006606,001799: 05,3110 54140 TS MPAC # TEMP STORAGE
006607,001800: 05,3111 40677 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
006608,001801: 05,3112 67645 AD TWO
006609,001802: 05,3113 10000 CCS A
006610,001803: 05,3114 04633 TC RELDSP1 # GRABLOCK=0,1, +0 INTO DSPLOCK AND
006611,001804: 05,3115 03121 TC +4 # TURN OFF KEY RLSE LIGHT.
006612,001805: 05,3117 LOC +1
006613,001806: 05,3117 37653 CAF ZERO # GRABLOCK=2, +0 INTO DSPLOCK AND
006614,001807: 05,3120 54652 TS DSPLOCK # LEAVE KEY RLSE LIGHT ALONE
006615,001808: 05,3121 00004 INHINT
006616,001809: 05,3122 10660 CCS MONSAVE
006617,001810: 05,3123 03130 TC +5 # IF MONSAVE WAS +, NO REQUEST
006618,001811: 05,3124 37646 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
006619,001812: 05,3125 04251 TC WAITLIST
006620,001813: 05,3126 0637 EBANK= DSPCOUNT
006621,001814: 05,3126 03134 12001 2CADR MONREQ
006622,001815:
006623,001816: 05,3130 52141 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
![]() |
Page 175 |
006625,001818: 05,3131 52661 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
006626,001819: 05,3132 00003 RELINT
006627,001820: 05,3133 00122 TC ENTRET
006628,001821:
006629,001822:
006630,001823:
006631,001824: 05,3134 04526 MONREQ TC LODSAMPT # CALLED BY WAITLIST
006632,001825: 05,3135 10661 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
006633,001826: 05,3136 03142 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
006634,001827: 05,3137 03142 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
006635,001828: 05,3140 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
006636,001829: 05,3141 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
006637,001830: 05,3142 33157 CAF MONDEL
006638,001831: 05,3143 04251 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
006639,001832: 05,3144 0637 EBANK= DSPCOUNT
006640,001833: 05,3144 03134 12001 2CADR MONREQ
006641,001834:
006642,001835: 05,3146 34502 CAF CHRPRIO
006643,001836: 05,3147 04131 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
006644,001837: 05,3150 0637 EBANK= DSPCOUNT
006645,001838: 05,3150 03160 12001 2CADR MONDO
006646,001839:
006647,001840: 05,3152 04321 TC TASKOVER
006648,001841:
006649,001842: 05,3153 37653 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
006650,001843: 05,3154 54660 TS MONSAVE
006651,001844: 05,3155 54661 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
006652,001845: 05,3156 04321 TC TASKOVER
006653,001846:
006654,001847:
006655,001848:
006656,001849: 05,3157 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
006657,001850:
006658,001851:
006659,001852:
006660,001853: 05,3160 10661 MONDO CCS MONSAVE1 # CALLED BY EXEC
006661,001854: 05,3161 03165 TC +4 # IF KILLER BIT = 0, CONTINUE
006662,001855: 05,3162 03165 TC +3 # IF KILLER BIT = 0, CONTINUE
006663,001856: 05,3163 04205 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
006664,001857: 05,3164 04205 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
006665,001858: 05,3165 10652 CCS DSPLOCK
006666,001859: 05,3166 03212 TC MONBUSY # NVSUB IS BUSY
006667,001860: 05,3167 33401 CAF LOW6 # NVSUB IS AVAILABLE
006668,001861: 05,3170 70660 MASK MONSAVE
006669,001862: 05,3171 54107 TS NVTEMP
006670,001863: 05,3172 04372 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
006671,001864: 05,3173 04205 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
006672,001865: 05,3174 33210 CAF MONMASK
006673,001866: 05,3175 70660 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
006674,001867: 05,3176 04447 TC RIGHT5
![]() |
Page 176 |
006676,001869: 05,3177 54020 TS CYR
006677,001870: 05,3200 56020 XCH CYR
006678,001871: 05,3201 54641 TS VERBREG
006679,001872: 05,3202 33211 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
006680,001873: 05,3203 54122 TS ENTRET
006681,001874: 05,3204 47630 CS BIT15
006682,001875: 05,3205 70661 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
006683,001876: 05,3206 54142 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
006684,001877: 05,3207 02037 ENDMONDO TC TESTNN # EBANK.
006685,001878:
006686,001879: 4347 SETLOC ENDT4FF
006687,001880:
006688,001881: 4347 34355 PASTEVB CAF MIDSIX
006689,001882: 4350 70660 MASK MONSAVE
006690,001883: 4351 54107 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
006691,001884: 4352 04372 TC NVSUBMON # DISPLAY IT.
006692,001885: 4353 04354 TC +1 # IN CASE OF ALARM DURING DISPLAY
006693,001886: 4354 04205 ENDPASTE TC ENDOFJOB
006694,001887:
006695,001888: 4355 07700 MIDSIX OCT 07700
006696,001889:
006697,001890:
006698,001891:
006699,001892: 05,3210 SETLOC ENDMONDO +1
006700,001893: 05,3210 00700 MONMASK OCT 700
006701,001894: 05,3211 04347 MONBACK ADRES PASTEVB
006702,001895:
006703,001896: 05,3212 04522 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
006704,001897: 05,3213 04205 TC ENDOFJOB
006705,001898:
006706,001899:
006707,001900:
006708,001901: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
006709,001902: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
006710,001903: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
006711,001904:
006712,001905: 05,3214 34444 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
006713,001906: 05,3215 54637 TS DSPCOUNT
006714,001907: 05,3216 30657 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
006715,001908: 05,3217 04116 TC DATACALL
006716,001909: 05,3220 03222 TC DSPOCTWD
006717,001910: 05,3221 04205 TC ENDOFJOB
006718,001911:
![]() |
Page 177 |
006720,001913: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1)TO A SIGN AND 5 CHAR DECIMAL
006721,001914: # STARTING IN LOC SPECIFIED IN DSPCOUNT
006722,001915:
006723,001916: 04,3057 SETLOC TESTOFUF +4
006724,001917:
006725,001918: 04,3057 56002 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
006726,001919: 04,3060 54101 TS WDRET # CANT USE L FOR RETURN.+ON USES L.
006727,001920: 04,3061 10140 CCS MPAC
006728,001921: 04,3062 03071 TC +7
006729,001922: 04,3063 03071 TC +6
006730,001923: 04,3064 67646 AD ONE
006731,001924: 04,3065 54140 TS MPAC
006732,001925: 04,3066 02313 TC -ON
006733,001926: 04,3067 40141 CS MPAC +1
006734,001927: 04,3070 03073 TC +3
006735,001928: 04,3071 02273 TC +ON
006736,001929: 04,3072 56141 XCH MPAC +1
006737,001930: 04,3073 63132 AD DECROUND
006738,001931: 04,3074 54141 TS MPAC +1
006739,001932: 04,3075 37653 CAF ZERO
006740,001933: 04,3076 60140 AD MPAC
006741,001934: 04,3077 54140 TS MPAC
006742,001935: 04,3100 03104 TC +4
006743,001936: 04,3101 37626 CAF POSMAX
006744,001937: 04,3102 54140 TS MPAC
006745,001938: 04,3103 54141 TS MPAC +1
006746,001939: 04,3104 37644 CAF FOUR
006747,001940: 04,3105 54123 DSPDCWD1 TS WDCNT
006748,001941: 04,3106 34511 CAF BINCON
006749,001942: 04,3107 07257 TC SHORTMP
006750,001943: 04,3110 50140 TRACE1 INDEX MPAC
006751,001944: 04,3111 34333 CAF RELTAB
006752,001945: 04,3112 74473 MASK LOW5
006753,001946: 04,3113 54110 TS CODE
006754,001947: 04,3114 37653 CAF ZERO
006755,001948: 04,3115 56142 XCH MPAC +2
006756,001949: 04,3116 56141 XCH MPAC +1
006757,001950: 04,3117 54140 TS MPAC
006758,001951: 04,3120 56637 XCH DSPCOUNT
006759,001952: 04,3121 54127 TRACE1S TS COUNT
006760,001953: 04,3122 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
006761,001954: 04,3123 54637 TS DSPCOUNT
006762,001955: 04,3124 03157 TC DSPIN
006763,001956: 04,3125 10123 CCS WDCNT
006764,001957: 04,3126 03105 TC DSPDCWD1
006765,001958: 04,3127 44506 CS VD1
006766,001959: 04,3130 54637 TS DSPCOUNT
006767,001960: 04,3131 00101 TC WDRET
006768,001961:
006769,001962: 04,3132 02476 DECROUND OCT 02476
006770,001963:
![]() |
Page 178 |
006772,001965: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
006773,001966: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
006774,001967:
006775,001968: 04,3133 56002 DSP2DEC XCH Q
006776,001969: 04,3134 54101 TS WDRET # MUST USE SAME RETURN AS DSPDECWD
006777,001970: 04,3135 37653 CAF ZERO
006778,001971: 04,3136 54110 TS CODE
006779,001972: 04,3137 36165 CAF THREE
006780,001973: 04,3140 03241 TC 11DSPIN # -R2 OFF
006781,001974: 04,3141 37644 CAF FOUR
006782,001975: 04,3142 03241 TC 11DSPIN # +R2 OFF
006783,001976: 04,3143 10140 CCS MPAC
006784,001977: 04,3144 03154 TC +8D
006785,001978: 04,3145 03154 TC +7
006786,001979: 04,3146 67646 AD ONE
006787,001980: 04,3147 54140 TS MPAC
006788,001981: 04,3150 02313 TC -ON
006789,001982: 04,3151 40141 CS MPAC +1
006790,001983: 04,3152 54141 TS MPAC +1
006791,001984: 04,3153 03155 TC +2
006792,001985: 04,3154 02273 TC +ON
006793,001986: 04,3155 34445 CAF R2D1
006794,001987: 04,3156 03105 END2DEC TC DSPDCWD1
006795,001988:
006796,001989:
006797,001990:
006798,001991: 05,3222 SETLOC DSPFMEM +6
006799,001992: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
006800,001993: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
006801,001994:
006802,001995: 05,3222 54022 DSPOCTWD TS CYL
006803,001996: 05,3223 56002 XCH Q
006804,001997: 05,3224 54101 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
006805,001998: 05,3225 37631 CAF BIT14 # TO BLANK SIGNS
006806,001999: 05,3226 26637 ADS DSPCOUNT
006807,002000: 05,3227 37644 CAF FOUR
006808,002001: 05,3230 54123 WDAGAIN TS WDCNT
006809,002002: 05,3231 40022 CS CYL
006810,002003: 05,3232 40022 CS CYL
006811,002004: 05,3233 40022 CS CYL
006812,002005: 05,3234 40000 CS A
006813,002006: 05,3235 77652 MASK DSPMSK
006814,002007: 05,3236 50000 INDEX A
006815,002008: 05,3237 34333 CAF RELTAB
006816,002009: 05,3240 74473 MASK LOW5
006817,002010: 05,3241 54110 TS CODE
006818,002011: 05,3242 56637 XCH DSPCOUNT
006819,002012: 05,3243 54127 TS COUNT
006820,002013: 05,3244 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
006821,002014: 05,3245 54637 TS DSPCOUNT
![]() |
Page 179 |
006823,002016: 05,3246 04102 TC POSTJUMP
006824,002017: 05,3247 11247 CADR DSPOCTIN
006825,002018: 05,3250 10123 OCTBACK CCS WDCNT
006826,002019: 05,3251 03230 TC WDAGAIN # +
006827,002020: 05,3252 44506 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
006828,002021: 05,3253 54637 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
006829,002022: 05,3254 00101 TC WDRET
006830,002023:
006831,002024: 05,3255 7652 DSPMSK = SEVEN
006832,002025:
006833,002026:
006834,002027:
006835,002028: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
006836,002029: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
006837,002030: # OF THE 5 CHAR OCTAL DISPLAY
006838,002031:
006839,002032: 05,3255 54020 DSP2BIT TS CYR
006840,002033: 05,3256 56002 XCH Q
006841,002034: 05,3257 54101 TS WDRET # CANT USE L AS RETURN. UPDATNN USES L.
006842,002035: 05,3260 37646 CAF ONE
006843,002036: 05,3261 54123 TS WDCNT
006844,002037: 05,3262 40020 CS CYR
006845,002038: 05,3263 40020 CS CYR
006846,002039: 05,3264 56020 XCH CYR
006847,002040: 05,3265 54022 TS CYL
006848,002041: 05,3266 03235 TC WDAGAIN +5
006849,002042:
006850,002043:
006851,002044:
006852,002045: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
006853,002046: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
006854,002047: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
006855,002048: # DSPTAB ENTRY INTO DSREL.
006856,002049:
006857,002050: 04,3157 SETLOC END2DEC +1
006858,002051:
006859,002052: 04,3157 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
006860,002053: 04,3160 54100 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
006861,002054: 04,3161 34473 CAF LOW5
006862,002055: 04,3162 70127 MASK COUNT
006863,002056: 04,3163 54021 TS SR
006864,002057: 04,3164 56021 XCH SR
006865,002058: 04,3165 54125 TS DSREL
006866,002059: 04,3166 37646 CAF BIT1
006867,002060: 04,3167 70127 MASK COUNT
006868,002061: 04,3170 10000 CCS A
006869,002062: 04,3171 03173 TC +2 # LEFT IF COUNT IS ODD
006870,002063: 04,3172 03203 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
006871,002064: 04,3173 56110 XCH CODE
006872,002065: 04,3174 04465 TC SLEFT5 # DOES NOT USE CYL
![]() |
Page 180 |
006874,002067: 04,3175 54110 TS CODE
006875,002068: 04,3176 37631 CAF BIT14
006876,002069: 04,3177 70127 MASK COUNT
006877,002070: 04,3200 10000 CCS A
006878,002071: 04,3201 37645 CAF TWO # BIT14 = 1, BLANK SIGN
006879,002072: 04,3202 67646 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
006880,002073: 04,3203 54127 TS COUNT # +0 INTO COUNT FOR RIGHT
006881,002074: # +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
006882,002075: # +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
006883,002076: 04,3204 00004 DSPIN1 INHINT
006884,002077: 04,3205 50125 INDEX DSREL
006885,002078: 04,3206 10662 CCS DSPTAB
006886,002079: 04,3207 03211 TC +2 # IF +
006887,002080: 04,3211 LOC +1
006888,002081: 04,3211 67646 AD ONE # IF -
006889,002082: 04,3212 54126 TS DSMAG
006890,002083: 04,3213 50127 INDEX COUNT
006891,002084: 04,3214 73235 MASK DSMSK
006892,002085: 04,3215 00006 EXTEND
006893,002086: 04,3216 60110 SU CODE
006894,002087: 04,3217 00006 EXTEND
006895,002088: 04,3220 13233 BZF DSLV # SAME
006896,002089: 04,3221 50127 DFRNT INDEX COUNT
006897,002090: 04,3222 43235 CS DSMSK # MASK WITH 77740,76037, OR 75777
006898,002091: 04,3223 70126 MASK DSMAG
006899,002092: 04,3224 60110 AD CODE
006900,002093: 04,3225 40000 CS A
006901,002094: 04,3226 50125 INDEX DSREL
006902,002095: 04,3227 56662 XCH DSPTAB
006903,002096: 04,3230 00006 EXTEND
006904,002097: 04,3231 63233 BZMF DSLV # DSPTAB ENTRY WAS -
006905,002098: 04,3232 24656 INCR NOUT # DSPTAB ENTRY WAS +
006906,002099: 04,3233 00003 DSLV RELINT
006907,002100: 04,3234 00100 TC DSEXIT
006908,002101:
006909,002102: 04,3235 00037 DSMSK OCT 37
006910,002103: 04,3236 01740 OCT 1740
006911,002104: 04,3237 02000 OCT 2000
006912,002105: 04,3240 03740 OCT 3740
006913,002106:
006914,002107:
006915,002108:
006916,002109: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
006917,002110: # BIT11 OF CODE.
006918,002111:
006919,002112: 04,3241 54125 11DSPIN TS DSREL
006920,002113: 04,3242 37645 CAF TWO
006921,002114: 04,3243 54127 TS COUNT
006922,002115: 04,3244 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
006923,002116: 04,3245 54100 TS DSEXIT
![]() |
Page 181 |
006925,002118: 04,3246 03204 TC DSPIN1
006926,002119:
006927,002120:
006928,002121:
006929,002122: 04,3247 03157 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
006930,002123: 04,3250 33252 CAF +2
006931,002124: 04,3251 04105 TC BANKJUMP
006932,002125: 04,3252 13250 ENDSPOCT CADR OCTBACK
006933,002126:
006934,002127:
006935,002128:
006936,002129: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
006937,002130: # ABORT WITH 01501.
006938,002131: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
006939,002132: # DO TC ENTRET.
006940,002133:
006941,002134: 04,3253 34417 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
006942,002135: 04,3254 54122 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
006943,002136:
006944,002137: 04,3255 04512 DSPALARM TC FALTON # TURN ON OPERATOR ERROR LIGHT
006945,002138: 04,3256 43265 CS NVSBENDL
006946,002139: 04,3257 60122 AD ENTEXIT
006947,002140: 04,3260 00006 EXTEND
006948,002141: 04,3261 13263 BZF +2 # NVSUB INITIATED. ABORT
006949,002142: 04,3262 00122 TC ENTEXIT # NOT NVSUB INITIATED.
006950,002143: 04,3263 04662 TC ABORT
006951,002144: 04,3264 01501 OCT 01501
006952,002145: 04,3265 04376 NVSBENDL TC NVSUBEND
006953,002146:
006954,002147:
006955,002148:
006956,002149: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
006957,002150: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
006958,002151: # M M LIGHTS.
006959,002152:
006960,002153: 05,3267 SETLOC DSP2BIT +10D
006961,002154:
006962,002155: 05,3267 03302 MMCHANG TC REQMM
006963,002156: 05,3270 37653 CAF ZERO
006964,002157: 05,3271 56642 XCH NOUNREG
006965,002158: 05,3272 54140 TS MPAC
006966,002159: 05,3273 34507 CAF ND1
006967,002160: 05,3274 54637 TS DSPCOUNT
006968,002161: 05,3275 04063 TC BANKCALL
006969,002162: 05,3276 10517 CADR 2BLANK
006970,002163: 05,3277 30140 CA MPAC
006971,002164: 05,3300 04102 TC POSTJUMP
006972,002165: 05,3301 11255 CADR MODROUTB # GO THRU STANDARD LOC.
006973,002166:
![]() |
Page 182 |
006975,002168: 05,3302 04,3255 MODROUTB = DSPALARM # **FIX LATER**
006976,002169: 05,3302 40002 REQMM CS Q
006977,002170: 05,3303 54653 TS REQRET
006978,002171: 05,3304 34507 CAF ND1
006979,002172: 05,3305 54637 TS DSPCOUNT
006980,002173: 05,3306 37653 CAF ZERO
006981,002174: 05,3307 54642 TS NOUNREG
006982,002175: 05,3310 04063 TC BANKCALL
006983,002176: 05,3311 10517 CADR 2BLANK
006984,002177: 05,3312 04543 TC FLASHON
006985,002178: 05,3313 00122 TC ENTEXIT
006986,002179:
006987,002180:
006988,002181:
006989,002182: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
006990,002183: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
006991,002184: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
006992,002185: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
006993,002186: # COMPONENT 2 JOB ADRES (12 BIT )
006994,002187: # COMPONENT 3 BBCON
006995,002188:
006996,002189: 05,3314 37646 VBRQEXEC CAF BIT1
006997,002190: 05,3315 70706 MASK DSPTEM1
006998,002191: 05,3316 10000 CCS A
006999,002192: 05,3317 03336 TC SETVAC # IF BIT1 = 1, FINDVAC
007000,002193: 05,3320 34476 CAF TCNOVAC # IF BIT1 = 0, NOVAC
007001,002194: 05,3321 54140 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
007002,002195: 05,3322 47646 CS BIT1
007003,002196: 05,3323 70706 MASK DSPTEM1
007004,002197: 05,3324 54144 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
007005,002198: 05,3325 04610 REQUESTC TC RELDSP
007006,002199: 05,3326 34417 CA ENDINST
007007,002200: 05,3327 54143 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
007008,002201: 05,3330 00006 EXTEND
007009,002202: 05,3331 30710 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
007010,002203: 05,3332 52142 DXCH MPAC +1 # BBCON INTO MPAC+2
007011,002204: 05,3333 30144 CA MPAC +4 # PRIO IN A
007012,002205: 05,3334 00004 INHINT
007013,002206: 05,3335 00140 TC MPAC
007014,002207:
007015,002208: 05,3336 34501 SETVAC CAF TCFINDVC
007016,002209: 05,3337 03321 TC REQEX1
007017,002210:
007018,002211: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
007019,002212: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
007020,002213: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
007021,002214: # COMPONENT 1 DELAY (LOW BITS)
007022,002215: # COMPONENT 2 TASK ADRES (12 BIT)
007023,002216: # COMPONENT 3 BBCON
007024,002217:
![]() |
Page 183 |
007026,002219: 05,3340 34477 VBRQWAIT CAF TCWAIT
007027,002220: 05,3341 54140 TS MPAC # TC WAITLIST INTO MPAC
007028,002221: 05,3342 30706 CA DSPTEM1 # TIME DELAY
007029,002222: 05,3343 03324 ENDRQWT TC REQUESTC -1
007030,002223:
007031,002224: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
007032,002225: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
007033,002226: # LEAVE IT IN A, INHINT AND TC MPAC.
007034,002227:
007035,002228:
007036,002229:
007037,002230: 04,3266 SETLOC NVSBENDL +1
007038,002231: 04,3266 37646 VBPROC CAF ONE # PROCEED WITHOUT DATA
007039,002232: 04,3267 54654 TS LOADSTAT
007040,002233: 04,3270 04610 TC RELDSP
007041,002234: 04,3271 04547 TC FLASHOFF
007042,002235: 04,3272 03400 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
007043,002236:
007044,002237:
007045,002238:
007046,002239: 04,3273 04400 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
007047,002240: 04,3274 47646 CS ONE
007048,002241: 04,3275 03267 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
007049,002242:
007050,002243:
007051,002244:
007052,002245: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
007053,002246:
007054,002247:
007055,002248:
007056,002249: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
007057,002250: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
007058,002251:
007059,002252: 04,3276 47644 VBRELDSP CS BIT3
007060,002253: 04,3277 00006 EXTEND
007061,002254: 04,3300 03011 WAND DSALMOUT # TURN OFF UPACT LIGHT
007062,002255: 04,3301 04610 TC RELDSP # SEARCHES LIST
007063,002256: 04,3302 04205 TC ENDOFJOB
007064,002257:
007065,002258:
007066,002259:
007067,002260: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
007068,002261:
007069,002262: 04,3303 37225 BUMP CAF FIVE # R2D5
007070,002263: 04,3304 54637 TS DSPCOUNT
007071,002264: 04,3305 54127 TS COUNT
007072,002265: 04,3306 37646 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
007073,002266: 04,3307 70127 MASK COUNT
007074,002267: 04,3310 56127 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
007075,002268: 04,3311 54021 TS SR # +1 INTO COUNT IF ODD (LEFT)
![]() |
Page 184 |
007077,002270: 04,3312 56021 XCH SR # DSREL IN A
007078,002271: 04,3313 50000 INDEX A
007079,002272: 04,3314 10662 CCS DSPTAB
007080,002273: 04,3315 03317 TC +2
007081,002274: 04,3317 LOC +1
007082,002275: 04,3317 67646 AD ONE # DSMAG IN A
007083,002276: 04,3320 50127 INDEX COUNT
007084,002277: 04,3321 73235 MASK DSMSK
007085,002278: 04,3322 50127 INDEX COUNT
007086,002279: 04,3323 03324 TC +1
007087,002280: 04,3324 03326 TC +2 # EVEN(RIGHT) OK
007088,002281: 04,3325 04447 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
007089,002282: 04,3326 54110 TS CODE
007090,002283: 04,3327 47225 CS FIVE
007091,002284: 04,3330 60637 AD DSPCOUNT # DSPCOUNT-5
007092,002285: 04,3331 10000 CCS A # TO PREVENT -0
007093,002286: 04,3332 67646 AD ONE
007094,002287: 04,3333 03335 TC +2
007095,002288: 04,3335 LOC +1
007096,002289: 04,3335 54127 TS COUNT
007097,002290: 04,3336 03157 TC DSPIN # CODE ALREADY IN CODE
007098,002291: 04,3337 40637 CS DSPCOUNT
007099,002292: 04,3340 64444 AD R1D1 # OCT 16
007100,002293: 04,3341 10000 CCS A
007101,002294: 04,3342 56637 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
007102,002295: 04,3343 67646 AD ONE # INCREMENT DSPCOUNT
007103,002296: 04,3344 03304 TC BUMP +1
007104,002297:
007105,002298: 04,3345 37653 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
007106,002299: 04,3346 54637 TS DSPCOUNT
007107,002300: 04,3347 63376 AD SWTAB +2 # OCT 3
007108,002301: 04,3350 50000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
007109,002302: 04,3351 10662 CCS DSPTAB # (-R2,+R2,-R1,+R1)
007110,002303: 04,3352 03354 TC +2
007111,002304: 04,3354 LOC +1
007112,002305: 04,3354 67646 AD ONE
007113,002306: 04,3355 77634 MASK BIT11
007114,002307: 04,3356 54110 TS CODE
007115,002308: 04,3357 50637 INDEX DSPCOUNT
007116,002309: 04,3360 33374 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
007117,002310: 04,3361 03241 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
007118,002311: 04,3362 40637 CS DSPCOUNT
007119,002312: 04,3363 63376 AD SWTAB +2 # OCT 3
007120,002313: 04,3364 10000 CCS A
007121,002314: 04,3365 56637 XCH DSPCOUNT # +, DSPCOUNT L/ 3
007122,002315: 04,3366 67646 AD ONE # INCREMENT DSPCOUNT
007123,002316: 04,3367 03346 TC SWSGN +1
007124,002317: 04,3370 34444 CAF R1D1 # -0, DSPCOUNT = 3
007125,002318: 04,3371 54637 TS DSPCOUNT
007126,002319: 04,3372 02454 TC 5BLANK # BLANKS R1
![]() |
Page 185 |
007128,002321: 04,3373 00122 TC ENTEXIT
007129,002322:
007130,002323: 04,3374 00000 SWTAB OCT 0 # -R3
007131,002324: 04,3375 00001 OCT 1 # +R3
007132,002325: 04,3376 00003 OCT 3 # -R2
007133,002326: 04,3377 00004 OCT 4 # +R2
007134,002327:
![]() |
Page 186 |
007136,002329: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
007137,002330: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
007138,002331: # INTO A. V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
007139,002332:
007140,002333: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
007141,002334: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
007142,002335:
007143,002336: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
007144,002337: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
007145,002338: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
007146,002339: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
007147,002340: # FURTHER ACTION).
007148,002341:
007149,002342: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
007150,002343: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
007151,002344: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
007152,002345: # ALARM CONDITION BEFORE RETURN TO CALLER.
007153,002346:
007154,002347: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
007155,002348: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
007156,002349: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
007157,002350: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
007158,002351: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
007159,002352: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
007160,002353: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
007161,002354: # MONITOR SET UP.
007162,002355:
007163,002356: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
007164,002357:
007165,002358: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
007166,002359: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
007167,002360:
007168,002361: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
007169,002362: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
007170,002363:
007171,002364: 4356 SETLOC MIDSIX +1
007172,002365: 4356 54107 NVSUB TS NVTEMP # IN FIXED FIXED
007173,002366: 4357 10652 CCS DSPLOCK
007174,002367: 4360 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
007175,002368: 4361 30002 CA Q # DSP SYST AVAILABLE
007176,002369: 4362 67646 AD ONE
007177,002370: 4363 54700 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
007178,002371: 4364 04400 TC KILMONON # TURN ON KILL MONITOR BIT
007179,002372: 4365 34371 NVSUBCOM CAF NVSBBBNK
007180,002373:
007181,002374: 4366 56006 XCH BBANK
007182,002375: 4367 54701 TS NVBNKTEM
007183,002376: 4370 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
007184,002377: 4371 0637 EBANK= DSPCOUNT
007185,002378: 4371 12001 NVSBBBNK BBCON NVSUB1
007186,002379:
![]() |
Page 187 |
007188,002381: 4372 30002 NVSUBMON CA Q # MONDO COMES HERE
007189,002382: 4373 67646 AD ONE
007190,002383: 4374 54700 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
007191,002384: 4375 04365 TC NVSUBCOM
007192,002385:
007193,002386:
007194,002387:
007195,002388: 4376 52701 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
007196,002389: 4377 52006 DXCH Z # DTCB
007197,002390:
007198,002391: 05,3344 SETLOC ENDRQWT +1
007199,002392:
007200,002393: 05,3344 33363 NVSUB1 CAF ENTSET # IN BANK
007201,002394: 05,3345 54122 TS ENTRET # SET RETURN TO NVSUBEND
007202,002395: 05,3346 33401 CAF LOW6
007203,002396: 05,3347 70107 MASK NVTEMP
007204,002397: 05,3350 54140 TS MPAC # TEMP STORAGE
007205,002398: 05,3351 33402 CAF MID6
007206,002399: 05,3352 70107 MASK NVTEMP
007207,002400: 05,3353 04447 TC RIGHT5
007208,002401: 05,3354 54020 TS CYR
007209,002402: 05,3355 56020 XCH CYR
007210,002403: 05,3356 54141 TS MPAC +1 # TEMP STORAGE
007211,002404: 05,3357 10140 CCS MPAC # TEST NOUN
007212,002405: 05,3360 03364 TC +4 # IF NOUN NOT +0, GO ON
007213,002406: 05,3361 56141 XCH MPAC +1
007214,002407: 05,3362 02314 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN
007215,002408: 05,3363 04376 ENTSET TC NVSUBEND
007216,002409: 05,3364 10141 CCS MPAC +1 # TEST VERB
007217,002410: 05,3365 03371 TC +4 # IF VERB NOT +0, GO ON
007218,002411: 05,3366 56140 XCH MPAC
007219,002412: 05,3367 02274 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
007220,002413: 05,3370 04376 TC NVSUBEND
007221,002414: 05,3371 56141 XCH MPAC +1
007222,002415: 05,3372 02314 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
007223,002416: 05,3373 56140 XCH MPAC # BOTH AND GO TO ENTPAS0
007224,002417: 05,3374 02274 TC UPDATNN -1
007225,002418: 05,3375 37653 CAF ZERO
007226,002419: 05,3376 54654 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
007227,002420: 05,3377 54655 TS CLPASS
007228,002421: 05,3400 02031 TC ENTPAS0
007229,002422:
007230,002423: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
007231,002424: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
007232,002425:
007233,002426:
007234,002427:
007235,002428: 05,3401 00077 LOW6 OCT 77
007236,002429: 05,3402 07700 MID6 OCT 7700
007237,002430:
![]() |
Page 188 |
007239,002432: 4400 SETLOC NVSUBEND +2
007240,002433: 4400 47630 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
007241,002434: 4401 00004 INHINT # THIS IS THE KILL MONITOR BIT.
007242,002435: 4402 70661 MASK MONSAVE1
007243,002436: 4403 67630 AD BIT15
007244,002437: 4404 54661 TS MONSAVE1
007245,002438: 4405 00003 RELINT
007246,002439: 4406 00002 TC Q
007247,002440:
007248,002441:
007249,002442:
007250,002443: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
007251,002444: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
007252,002445: # -1 TERMINATE SET BY SPECIAL VERB
007253,002446: # -0 DATA IN SET BY END OF LOAD ROUTINE
007254,002447:
007255,002448:
007256,002449:
007257,002450: # L TC ENDIDLE (FIXED FIXED)
007258,002451: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
007259,002452: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
007260,002453: # ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
007261,002454: # JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007262,002455: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
007263,002456: # L+1 FOR TERMINATE
007264,002457: # L+2 FOR PROCEED WITHOUT DATA
007265,002458: # L+3 FOR DATA IN
007266,002459: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
007267,002460:
007268,002461: 4407 37646 ENDIDLE CAF ONE
007269,002462: 4410 54652 TS DSPLOCK
007270,002463: 4411 22004 LXCH FBANK
007271,002464: 4412 56002 XCH Q
007272,002465: 4413 52120 DXCH BUF2
007273,002466: 4414 04112 TC MAKECADR
007274,002467: 4415 54676 TS CADRSTOR
007275,002468: 4416 04164 TC JOBSLEEP
007276,002469:
007277,002470:
007278,002471:
007279,002472: 4417 04205 ENDINST TC ENDOFJOB
007280,002473:
007281,002474: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
007282,002475: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
007283,002476: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
007284,002477: # DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
007285,002478: # AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
007286,002479: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
007287,002480:
007288,002481: 4420 10654 DATAWAIT CCS LOADSTAT
![]() |
Page 189 |
007290,002483: 4421 14426 TCF DATWAIT1 # PROCEED. RETURN TO L+2.
007291,002484: 4422 14407 TCF ENDIDLE # STILL WAITING. GO TO SLEEP.
007292,002485: 4423 00002 TC Q # TERMINATE. RETURN TO L+1.
007293,002486: 4424 50002 INDEX Q # DATA IN. RETURN TO L+3.
007294,002487: 4425 00002 TC 2
007295,002488: 4426 50002 DATWAIT1 INDEX Q # RETURN TO L+2.
007296,002489: 4427 00001 TC 1
007297,002490:
007298,002491: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
007299,002492: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
007300,002493:
007301,002494:
007302,002495:
007303,002496: 05,3403 SETLOC MID6 +1
007304,002497: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
007305,002498:
007306,002499: 05,3403 34510 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
007307,002500: 05,3404 56637 XCH DSPCOUNT
007308,002501: 05,3405 54124 TS DSPMMTEM # SAVE DSPCOUNT
007309,002502: 05,3406 30651 CA MODREG
007310,002503: 05,3407 22002 LXCH Q
007311,002504: 05,3410 03255 TC DSP2BIT
007312,002505: 05,3411 56124 XCH DSPMMTEM # RESTORE DSPCOUNT
007313,002506: 05,3412 54637 TS DSPCOUNT
007314,002507: 05,3413 00001 DSPMMEND TC L
007315,002508:
007316,002509:
007317,002510:
007318,002511: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
007319,002512: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
007320,002513: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
007321,002514:
007322,002515: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
007323,002516: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
007324,002517:
007325,002518: 04,3400 SETLOC SWTAB +4
007326,002519:
007327,002520: 04,3400 10676 RECALTST CCS CADRSTOR
007328,002521: 04,3401 03406 TC RECAL1
007329,002522: 04,3402 04205 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
007330,002523: 04,3403 03406 TC RECAL1
007331,002524: 04,3404 54676 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
007332,002525: 04,3405 03424 TC RECAL3 # +0 INTO CADRSTOR. RELEASE DISPLAY,
007333,002526: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
007334,002527: 04,3406 37653 RECAL1 CAF ZERO
007335,002528: 04,3407 56676 XCH CADRSTOR
007336,002529: 04,3410 00004 INHINT
007337,002530: 04,3411 04170 TC JOBWAKE
007338,002531: 04,3412 10654 CCS LOADSTAT
007339,002532: 04,3413 03430 TC DOPROC # + PROCEED WITHOUT DATA
![]() |
Page 190 |
007341,002534: 04,3414 04205 TC ENDOFJOB # PATHALOGICAL CASE EXIT
007342,002535: 04,3415 03426 TC DOTERM # - TERMINATE
007343,002536: 04,3416 37645 CAF TWO
007344,002537: 04,3417 50635 RECAL2 INDEX LOCCTR
007345,002538: 04,3420 60150 AD LOC # LOC IS + FOR BASIC JOBS
007346,002539: 04,3421 50635 INDEX LOCCTR
007347,002540: 04,3422 54150 TS LOC
007348,002541: 04,3423 00003 RELINT
007349,002542: 04,3424 04633 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
007350,002543: 04,3425 04205 TC ENDOFJOB
007351,002544:
007352,002545: 04,3426 37653 DOTERM CAF ZERO
007353,002546: 04,3427 03417 TC RECAL2
007354,002547:
007355,002548: 04,3430 37646 DOPROC CAF ONE
007356,002549: 04,3431 03417 TC RECAL2
007357,002550:
![]() |
Page 191 |
007359,002552: # THE FOLLOWING REFERS TO THE NOUN TABLES
007360,002553:
007361,002554:
007362,002555:
007363,002556: # COMPONENT CODE NUMBER INTERPRETATION
007364,002557:
007365,002558: # 00000 1 COMPONENT
007366,002559: # 00001 2 COMPONENT (EACH S P)
007367,002560: # 00010 3 COMPONENT (EACH SP)
007368,002561:
007369,002562:
007370,002563:
007371,002564: # SF ROUTINE CODE NUMBER INTERPRETATION
007372,002565:
007373,002566: # 00000 OCTAL ONLY
007374,002567: # 00001 STRAIGHT FRACTIONAL
007375,002568: # 00010 DEGREES (XXX.XX)
007376,002569: # 00011 ARITHMETIC SF
007377,002570: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN(STRAIGHT)
007378,002571: # 00101 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
007379,002572: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
007380,002573: # 00111 ARITH DP3 OUT ( SL 7 AT END) IN ( STRAIGHT)
007381,002574: # END OF SF ROUTINE CODE NUMBERS
007382,002575:
007383,002576:
007384,002577:
007385,002578: # SF CONSTANT CODE NUMBER INTERPRETATION
007386,002579:
007387,002580: # 00000 WHOLE
007388,002581: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
007389,002582: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
007390,002583: # 00010 DEGREES
007391,002584: # 00010 OPTICS DEGREES
007392,002585: # 00011 GYRO DEGREES(XX.XXX) USE ARITH DP1
007393,002586: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
007394,002587: # 00101 GYRO AXIS ACCEL. DRIFT
007395,002588: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
007396,002589: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
007397,002590: # 00111 PIPA SCALE FACTOR ERROR
007398,002591: # XXXXX. PARTS/MILLION
007399,002592: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
007400,002593: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
007401,002594: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
007402,002595: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
007403,002596: # END OF SF CONSTANT CODE NUMBERS
007404,002597:
007405,002598:
007406,002599:
007407,002600: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
007408,002601: # NOUN TABLES.
![]() |
Page 192 |
007410,002603: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
007411,002604: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
007412,002605: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
007413,002606:
![]() |
Page 193 |
007415,002608: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
007416,002609: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
007417,002610: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
007418,002611:
007419,002612:
007420,002613:
007421,002614: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
007422,002615: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
007423,002616: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
007424,002617: # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
007425,002618: # MIXED OR NORMAL NOUN.
007426,002619:
007427,002620: 06,2000 SETLOC 24000
007428,002621:
007429,002622: 06,2000 52136 LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
007430,002623: 06,2001 50642 INDEX NOUNREG
007431,002624: 06,2002 32052 CAF NNADTAB
007432,002625: 06,2003 54132 TS NNADTEM
007433,002626: 06,2004 50642 INDEX NOUNREG
007434,002627: 06,2005 32152 CAF NNTYPTAB
007435,002628: 06,2006 54133 TS NNTYPTEM
007436,002629: 06,2007 40642 CS NOUNREG
007437,002630: 06,2010 62036 AD MIXCON
007438,002631: 06,2011 00006 EXTEND
007439,002632: 06,2012 62016 BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
007440,002633: 06,2013 37646 CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
007441,002634: 06,2014 54124 TS MIXBR # NORMAL. +1 INTO MIXBR.
007442,002635: 06,2015 02034 TC LODNLV
007443,002636: 06,2016 37645 LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
007444,002637: 06,2017 54124 TS MIXBR
007445,002638: 06,2020 50642 INDEX NOUNREG
007446,002639: 06,2021 32345 CAF RUTMXTAB -55
007447,002640: 06,2022 54137 TS RUTMXTEM
007448,002641: 06,2023 36425 CAF LOW10
007449,002642: 06,2024 70132 MASK NNADTEM
007450,002643: 06,2025 54002 TS Q # TEMP
007451,002644: 06,2026 50000 INDEX A
007452,002645: 06,2027 32332 CAF IDADDTAB
007453,002646: 06,2030 54134 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
007454,002647: 06,2031 00006 EXTEND
007455,002648: 06,2032 50002 INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
007456,002649: 06,2033 32334 DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
007457,002650: 06,2034 52136 LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
007458,002651: 06,2035 52006 DXCH Z
007459,002652:
007460,002653: 06,2036 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
007461,002654:
007462,002655:
007463,002656:
007464,002657: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
007465,002658:
![]() |
Page 194 |
007467,002660: 06,2037 52110 GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
007468,002661: 06,2040 00006 EXTEND
007469,002662: 06,2041 50000 INDEX A
007470,002663: 06,2042 32303 DCA SFOUTAB
007471,002664: 06,2043 52110 SFCOM DXCH SFTEMP1
007472,002665: 06,2044 52006 DXCH Z
007473,002666:
007474,002667:
007475,002668:
007476,002669: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
007477,002670:
007478,002671: 06,2045 52110 GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
007479,002672: 06,2046 00006 EXTEND
007480,002673: 06,2047 50000 INDEX A
007481,002674: 06,2050 32253 DCA SFINTAB
007482,002675: 06,2051 12043 TCF SFCOM
007483,002676:
007484,002677:
007485,002678: # NN NORMAL NOUNS
007486,002679: 06,2052 00000 NNADTAB OCT 00000 # 00 NOT IN USE
007487,002680: 06,2053 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
007488,002681: 06,2054 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
007489,002682: 06,2055 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
007490,002683: 06,2056 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
007491,002684: 06,2057 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
007492,002685: 06,2060 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
007493,002686: 06,2061 40000 OCT 40000 # 07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
007494,002687: 06,2062 77776 OCT 77776 # 10 CHANNEL TO BE SPECIFIED
007495,002688: 06,2063 00000 OCT 00000 # 11 SPARE
007496,002689: 06,2064 00000 OCT 00000 # 12 SPARE
007497,002690: 06,2065 00000 OCT 00000 # 13 SPARE
007498,002691: 06,2066 00000 OCT 00000 # 14 SPARE
007499,002692: 06,2067 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
007500,002693: 06,2070 00024 ECADR TIME2 # 16 TIME SECONDS
007501,002694: 06,2071 00024 ECADR TIME2 # 17 TIME HOURS
007502,002695: 06,2072 00032 ECADR CDUX # 20 ICDU
007503,002696: 06,2073 00037 ECADR PIPAX # 21 PIPAS
007504,002697: 06,2074 00716 ECADR THETAD # 22 NEW ANGLES I
007505,002698: 06,2075 00711 ECADR DSPTEM2 # 23 DELTA ANGLES I
007506,002699: 06,2076 00706 ECADR DSPTEM1 # 24 DELTA TIME (SEC)
007507,002700: 06,2077 00706 ECADR DSPTEM1 # 25 CHECKLIST
007508,002701: 06,2100 00706 ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
007509,002702: 06,2101 01050 ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
007510,002703: 06,2102 00706 ECADR DSPTEM1 # 30 STAR NUMBERS
007511,002704: 06,2103 00721 ECADR FAILREG # 31 FAILREG
007512,002705: 06,2104 00722 ECADR TDEC # 32 DECISION TIME (MIDCOURSE)
007513,002706: 06,2105 00724 ECADR TET # 33 EPHEMERIS TIME (MIDCOURSE)
007514,002707: 06,2106 00726 ECADR MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
007515,002708: 06,2107 00730 ECADR ROLL # 35 ROLL, PITCH, YAW
![]() |
Page 195 |
007517,002710: 06,2110 00733 ECADR LANDMARK # 36 LANDMARK DATA 1
007518,002711: 06,2111 00736 ECADR LANDMARK +3 # 37 LANDMARK DATA 2
007519,002712: 06,2112 00000 OCT 00000 # 40 SPARE
007520,002713: 06,2113 00000 OCT 00000 # 41 SPARE
007521,002714: 06,2114 00000 OCT 00000 # 42 SPARE
007522,002715: 06,2115 00000 OCT 00000 # 43 SPARE
007523,002716: 06,2116 00000 OCT 00000 # 44 SPARE
007524,002717: 06,2117 00000 OCT 00000 # 45 SPARE
007525,002718: 06,2120 00000 OCT 00000 # 46 SPARE
007526,002719: 06,2121 00000 OCT 00000 # 47 SPARE
007527,002720: 06,2122 00000 OCT 00000 # 50 SPARE
007528,002721: 06,2123 00000 OCT 00000 # 51 SPARE
007529,002722: 06,2124 00741 ECADR GBIASX # 52 GYRO BIAS DRIFT
007530,002723: 06,2125 00744 ECADR ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
007531,002724: 06,2126 00747 ECADR ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
007532,002725:
007533,002726: # NN MIXED NOUNS
007534,002727: 06,2127 02000 OCT 02000 # 55 OCDU
007535,002728: 06,2130 04002 OCT 04002 # 56 UNCALLED MARK DATA (OCDU & TIME(SEC))
007536,002729: 06,2131 02005 OCT 02005 # 57 NEW ANGLES OCDU
007537,002730: 06,2132 04007 OCT 04007 # 60 IMU MODE STATUS
007538,002731: 06,2133 02012 OCT 02012 # 61 TARGET AZIMUTH AND ELEVATION
007539,002732: 06,2134 02014 OCT 02014 # 62 ICDUZ AND TIME(SEC)
007540,002733: 06,2135 02016 OCT 02016 # 63 OCDUX AND TIME(SEC)
007541,002734: 06,2136 02020 OCT 02020 # 64 OCDUY AND TIME(SEC)
007542,002735: 06,2137 02022 OCT 02022 # 65 SAMPLED TIME (HOURS AND SECONDS)
007543,002736: # (FETCHED IN INTERRUPT)
007544,002737: 06,2140 04024 OCT 04024 # 66 SYSTEM TEST RESULTS
007545,002738: 06,2141 04027 OCT 04027 # 67 DELTA GYRO ANGLES
007546,002739: 06,2142 04032 OCT 04032 # 70 PIPA BIAS
007547,002740: 06,2143 04035 OCT 04035 # 71 PIPA SCALE FACTOR ERROR
007548,002741: 06,2144 04040 OCT 04040 # 72 DELTA POSITION
007549,002742: 06,2145 04043 OCT 04043 # 73 DELTA VELOCITY
007550,002743: 06,2146 04046 OCT 04046 # 74 MEASUREMENT DATA (MIDCOURSE)
007551,002744: 06,2147 04051 OCT 04051 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
007552,002745: 06,2150 04054 OCT 04054 # 76 POSITION VECTOR
007553,002746: 06,2151 04057 OCT 04057 # 77 VELOCITY VECTOR
007554,002747:
007555,002748:
007556,002749:
007557,002750: # NN NORMAL NOUNS
007558,002751: 06,2152 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
007559,002752: 06,2153 00040 OCT 00040 # 01 1COMP FRACTIONAL
007560,002753: 06,2154 00140 OCT 00140 # 02 1COMP WHOLE
007561,002754: 06,2155 00102 OCT 00102 # 03 1COMP DEGREES
007562,002755: 06,2156 00241 OCT 00241 # 04 1COMP HOURS
007563,002756: 06,2157 00200 OCT 00200 # 05 1COMP SECONDS
007564,002757: 06,2160 00203 OCT 00203 # 06 1COMP GYRO DEGREES
007565,002758: 06,2161 00302 OCT 00302 # 07 1COMP Y OPT DEGREES
007566,002759: 06,2162 00000 OCT 00000 # 10 1COMP OCTAL ONLY
![]() |
Page 196 |
007568,002761: 06,2163 00000 OCT 00000 # 11 SPARE
007569,002762: 06,2164 00000 OCT 00000 # 12 SPARE
007570,002763: 06,2165 00000 OCT 00000 # 13 SPARE
007571,002764: 06,2166 00000 OCT 00000 # 14 SPARE
007572,002765: 06,2167 00000 OCT 00000 # 15 1COMP OCTAL ONLY
007573,002766: 06,2170 00200 OCT 00200 # 16 1COMP SECONDS
007574,002767: 06,2171 00241 OCT 00241 # 17 1COMP HOURS
007575,002768: 06,2172 04102 OCT 04102 # 20 3COMP DEGREES
007576,002769: 06,2173 04140 OCT 04140 # 21 3COMP WHOLE
007577,002770: 06,2174 04102 OCT 04102 # 22 3COMP DEGREES
007578,002771: 06,2175 04102 OCT 04102 # 23 3COMP DEGREES
007579,002772: 06,2176 00200 OCT 00200 # 24 1COMP SECONDS
007580,002773: 06,2177 00140 OCT 00140 # 25 1COMP WHOLE
007581,002774: 06,2200 04000 OCT 04000 # 26 3COMP OCTAL ONLY
007582,002775: 06,2201 00140 OCT 00140 # 27 1COMP WHOLE
007583,002776: 06,2202 04140 OCT 04140 # 30 3COMP WHOLE
007584,002777: 06,2203 02000 OCT 02000 # 31 3COMP OCTAL ONLY
007585,002778: 06,2204 00252 OCT 00252 # 32 1COMP TIME WEEKS
007586,002779: 06,2205 00252 OCT 00252 # 33 1COMP TIME WEEKS
007587,002780: 06,2206 00350 OCT 00350 # 34 1COMP POSITION
007588,002781: 06,2207 04102 OCT 04102 # 35 3COMP DEGREES
007589,002782: 06,2210 04000 OCT 04000 # 36 3COMP OCTAL ONLY
007590,002783: 06,2211 04000 OCT 04000 # 37 3COMP OCTAL ONLY
007591,002784: 06,2212 00000 OCT 00000 # 40 SPARE
007592,002785: 06,2213 00000 OCT 00000 # 41 SPARE
007593,002786: 06,2214 00000 OCT 00000 # 42 SPARE
007594,002787: 06,2215 00000 OCT 00000 # 43 SPARE
007595,002788: 06,2216 00000 OCT 00000 # 44 SPARE
007596,002789: 06,2217 00000 OCT 00000 # 45 SPARE
007597,002790: 06,2220 00000 OCT 00000 # 46 SPARE
007598,002791: 06,2221 00000 OCT 00000 # 47 SPARE
007599,002792: 06,2222 00000 OCT 00000 # 50 SPARE
007600,002793: 06,2223 00000 OCT 00000 # 51 SPARE
007601,002794: 06,2224 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
007602,002795: 06,2225 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
007603,002796: 06,2226 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
007604,002797:
007605,002798: # NN MIXED NOUNS
007606,002799: 06,2227 00102 OCT 00102 # 55 2COMP DEGREES, Y OPT DEGREES
007607,002800: 06,2230 00102 OCT 00102 # 56 3COMP DEGREES, Y OPT DEGREES, SECS
007608,002801: 06,2231 00102 OCT 00102 # 57 2COMP DEGREES, Y OPT DEGREES
007609,002802: 06,2232 00000 OCT 00000 # 60 3COMP OCTAL ONLY
007610,002803: 06,2233 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
007611,002804: 06,2234 00002 OCT 00002 # 62 2COMP DEGREES, SECS
007612,002805: 06,2235 00002 OCT 00002 # 63 2COMP DEGREES, SECS
007613,002806: 06,2236 00002 OCT 00002 # 64 2COMP Y OPT DEGREES, SECS
007614,002807: 06,2237 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
007615,002808: 06,2240 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
007616,002809: 06,2241 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
007617,002810: 06,2242 14306 OCT 14306 # 70 3COMP PIPA BIAS FOR EACH
![]() |
Page 197 |
007619,002812: 06,2243 16347 OCT 16347 # 71 3COMP PIPA SCALE FACTOR ERR.FOR EACH
007620,002813: 06,2244 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
007621,002814: 06,2245 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
007622,002815: 06,2246 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
007623,002816: 06,2247 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
007624,002817: 06,2250 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
007625,002818: 06,2251 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
007626,002819:
007627,002820:
007628,002821:
007629,002822: 06,2252 00006 SFINTAB OCT 00006 # WHOLE,TIME(SEC)
007630,002823: 06,2253 03240 OCT 03240
007631,002824: 06,2254 00253 OCT 00253 # TIME HOURS ( = 1.3..... )
007632,002825: 06,2255 25124 OCT 25124 # (POINT BETWEEN BITS 7-8 )
007633,002826: 06,2256 00000 OCT 0 # DEGREES (SFCON IN DEGINSF)
007634,002827: 06,2257 00000 OCT 0
007635,002828: 06,2260 00021 OCT 00021 # GYRO DEGREES
007636,002829: 06,2261 30707 OCT 30707
007637,002830: 06,2262 00001 OCT 00001 # GYRO BIAS DRIFT
007638,002831: 06,2263 02133 OCT 02133
007639,002832: 06,2264 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
007640,002833: 06,2265 30322 OCT 30322
007641,002834: 06,2266 00004 OCT 00004 # PIPA BIAS
007642,002835: 06,2267 14021 OCT 14021
007643,002836: 06,2270 00314 OCT 00314 # PIPA SCALE ERROR.
007644,002837: 06,2271 31463 OCT 31463
007645,002838: 06,2272 23420 OCT 23420 # POSITION
007646,002839: 06,2273 00000 OCT 00000
007647,002840: 06,2274 00201 OCT 00201 # VELOCITY
007648,002841: 06,2275 30327 OCT 30327 # ( POINT BETWEEN BITS 7-8 )
007649,002842: 06,2276 01371 OCT 01371 # TIME WEEKS
007650,002843: 06,2277 34750 OCT 34750 # ( POINT BETWEEN BITS 7-8 )
007651,002844: 06,2300 00001 OCT 00001 # ELEVATION DEGREES
007652,002845: 06,2301 03434 OCT 03434
007653,002846: # END OF SFINTAB
007654,002847:
007655,002848:
007656,002849:
007657,002850: 06,2302 05174 SFOUTAB OCT 05174 # WHOLE, TIME(SEC)
007658,002851: 06,2303 13261 OCT 13261
007659,002852: 06,2304 27670 OCT 27670 # TIME HOURS
007660,002853: 06,2305 31357 OCT 31357
007661,002854: 06,2306 00000 OCT 0 # DEGREES
007662,002855: 06,2307 00000 OCT 0
007663,002856: 06,2310 01631 OCT 01631 # GYRO DEGREES
007664,002857: 06,2311 23146 OCT 23146
007665,002858: 06,2312 35753 OCT 35753 # GYRO BIAS DRIFT
007666,002859: 06,2313 32323 OCT 32323
007667,002860: 06,2314 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
007668,002861: 06,2315 06400 OCT 06400
![]() |
Page 198 |
007670,002863: 06,2316 07237 OCT 07237 # PIPA BIAS
007671,002864: 06,2317 37776 OCT 37776
007672,002865: 06,2320 00120 OCT 00120 # PIPA SCALE ERROR
007673,002866: 06,2321 00000 OCT 00000
007674,002867: 06,2322 00321 OCT 00321 # POSITION
007675,002868: 06,2323 26706 OCT 26706 # ( POINT BETWEEN BITS 7-8 )
007676,002869: 06,2324 37441 OCT 37441 # VELOCITY
007677,002870: 06,2325 14247 OCT 14247
007678,002871: 06,2326 05300 OCT 05300 # TIME WEEKS
007679,002872: 06,2327 20305 OCT 20305
007680,002873: 06,2330 34631 OCT 34631 # ELEVATION DEGREES
007681,002874: 06,2331 23146 OCT 23146
007682,002875: # END OF SFOUTAB
007683,002876:
007684,002877:
007685,002878:
007686,002879: # MIXNOUN SF ROUT
007687,002880: 06,2332 00036 IDADDTAB ECADR OPTX # 01 DEGREES
007688,002881: 06,2333 00035 ECADR OPTY # 01 Y OPT DEGREES
007689,002882: 06,2334 00706 ECADR DSPTEM1 # 02 DEGREES
007690,002883: 06,2335 00707 ECADR DSPTEM1 +1 # 02 Y OPT DEGREES
007691,002884: 06,2336 00710 ECADR DSPTEM1 +2 # 02 SEC
007692,002885: 06,2337 00752 ECADR DESOPTX # 03 DEGREES
007693,002886: 06,2340 00753 ECADR DESOPTX +1 # 03 Y OPT DEGREES
007694,002887: 06,2341 01017 ECADR WASKSET # 04 OCTAL ONLY****CHANGE TO IN3****
007695,002888: 06,2342 01017 ECADR WASKSET # 04 OCTAL ONLY
007696,002889: 06,2343 01021 ECADR OLDERR # 04 OCTAL ONLY
007697,002890: 06,2344 00706 ECADR DSPTEM1 # 05 DEGREES
007698,002891: 06,2345 00707 ECADR DSPTEM1 +1 # 05 ELEVATION DEGREES
007699,002892: 06,2346 00034 ECADR CDUZ # 06 DEGREES
007700,002893: 06,2347 00024 ECADR TIME2 # 06 SEC
007701,002894: 06,2350 00036 ECADR OPTX # 07 DEGREES
007702,002895: 06,2351 00024 ECADR TIME2 # 07 SEC
007703,002896: 06,2352 00035 ECADR OPTY # 10 Y OPT DEGREES
007704,002897: 06,2353 00024 ECADR TIME2 # 10 SEC
007705,002898: 06,2354 00754 ECADR SAMPTIME # 11 HOURS
007706,002899: 06,2355 00754 ECADR SAMPTIME # 11 SECONDS
007707,002900: 06,2356 00711 ECADR DSPTEM2 # 12 WHOLE
007708,002901: 06,2357 00712 ECADR DSPTEM2 +1 # 12 FRACTIONAL
007709,002902: 06,2360 00713 ECADR DSPTEM2 +2 # 12 WHOLE
007710,002903: 06,2361 00756 ECADR DELVX # 13 GYRO DEGREES
007711,002904: 06,2362 00760 ECADR DELVX +2 # 13 GYRO DEGREES
007712,002905: 06,2363 00762 ECADR DELVX +4 # 13 GYRO DEGREES
007713,002906: 06,2364 00764 ECADR PBIASX # 14 PIPA BIAS
007714,002907: 06,2365 00766 ECADR PBIASY # 14 PIPA BIAS
007715,002908: 06,2366 00770 ECADR PBIASZ # 14 PIPA BIAS
007716,002909: 06,2367 00765 ECADR PIPASCFX # 15 PIPA SCALE FACTOR ERROR
007717,002910: 06,2370 00767 ECADR PIPASCFY # 15 PIPA SCALE FACTOR ERROR
007718,002911: 06,2371 00771 ECADR PIPASCFZ # 15 PIPA SCALE FACTOR ERROR
007719,002912: 06,2372 01000 ECADR DELR # 16 POSITION
![]() |
Page 199 |
007721,002914: 06,2373 01002 ECADR DELR +2 # 16 POSITION
007722,002915: 06,2374 01004 ECADR DELR +4 # 16 POSITION
007723,002916: 06,2375 01006 ECADR DELVEL # 17 VELOCITY
007724,002917: 06,2376 01010 ECADR DELVEL +2 # 17 VELOCITY
007725,002918: 06,2377 01012 ECADR DELVEL +4 # 17 VELOCITY
007726,002919: 06,2400 00722 ECADR TDEC # 20 TIME WEEKS
007727,002920: 06,2401 00726 ECADR MEASQ # 20 POSITION
007728,002921: 06,2402 01014 ECADR MEASMODE # 20 WHOLE
007729,002922: 06,2403 00706 ECADR DSPTEM1 # 21 POSITION
007730,002923: 06,2404 00710 ECADR DSPTEM1 +2 # 21 VELOCITY
007731,002924: 06,2405 01015 ECADR DELTAQ # 21 POSITION
007732,002925: 06,2406 00706 ECADR DSPTEM1 # 22 POSITION
007733,002926: 06,2407 00710 ECADR DSPTEM1 +2 # 22 POSITION
007734,002927: 06,2410 00712 ECADR DSPTEM1 +4 # 22 POSITION
007735,002928: 06,2411 00706 ECADR DSPTEM1 # 23 VELOCITY
007736,002929: 06,2412 00710 ECADR DSPTEM1 +2 # 23 VELOCITY
007737,002930: 06,2413 00712 ECADR DSPTEM1 +4 # 23 VELOCITY
007738,002931: 06,2414 00000 OCT 00000 # SPARE
007739,002932: 06,2415 00000 OCT 00000 # SPARE
007740,002933: 06,2416 00000 OCT 00000 # SPARE
007741,002934: 06,2417 00000 OCT 00000 # SPARE
007742,002935: 06,2420 00000 OCT 00000 # SPARE
007743,002936: 06,2421 00000 OCT 00000 # SPARE
007744,002937: # END OF IDADDTAB
007745,002938:
007746,002939:
007747,002940:
007748,002941: # MIXNOUN SF ROUT
007749,002942: 06,2422 00302 RUTMXTAB OCT 00302 # 01 DEGREES, Y OPT DEGREES
007750,002943: 06,2423 10302 OCT 10302 # 02 DEGREES, Y OPT DEGREES, SECONDS
007751,002944: 06,2424 00302 OCT 00302 # 03 DEGREES, Y OPT DEGREES
007752,002945: 06,2425 00000 OCT 00000 # 04 OCTAL ONLY
007753,002946: 06,2426 00142 OCT 00142 # 05 DEGREES, ELEVATION DEGREES
007754,002947: 06,2427 00202 OCT 00202 # 06 DEGREES, SECONDS
007755,002948: 06,2430 00202 OCT 00202 # 07 DEGREES, SECONDS
007756,002949: 06,2431 00206 OCT 00206 # 10 Y OPT DEGREES, SECONDS
007757,002950: 06,2432 00205 OCT 00205 # 11 HOURS, SECONDS
007758,002951: 06,2433 06043 OCT 06043 # 12 WHOLE, FRACTIONAL, WHOLE
007759,002952: 06,2434 10204 OCT 10204 # 13 GYRO DEGREES (FOR EACH)
007760,002953: 06,2435 06143 OCT 06143 # 14 PIPA BIAS (FOR EACH)
007761,002954: 06,2436 06143 OCT 06143 # 15 PIPA SCALE FACTOR ERROR (FOR EACH)
007762,002955: 06,2437 16347 OCT 16347 # 16 POSITION (FOR EACH)
007763,002956: 06,2440 12245 OCT 12245 # 17 VELOCITY (FOR EACH)
007764,002957: 06,2441 06345 OCT 06345 # 20 TIME WEEKS, POSITION, WHOLE
007765,002958: 06,2442 16247 OCT 16247 # 21 POSITION, VELOCITY, POSITION
007766,002959: 06,2443 16347 OCT 16347 # 22 POSITION (FOR EACH)
007767,002960: 06,2444 12245 OCT 12245 # 23 VELOCITY (FOR EACH)
007768,002961: # END OF RUTMXTAB
007769,002962:
![]() |
Page 200 |
007771,002964: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
007772,002965:
007773,002966:
007774,002967:
007775,002968: 4430 SETLOC DATWAIT1 +2
007776,002969:
007777,002970: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
007778,002971: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
007779,002972:
007780,002973: 4430 54657 SETNCADR TS NOUNCADR # STORE ECADR
007781,002974: 4431 54003 TS EBANK # SET EBANK BITS
007782,002975: 4432 74504 MASK LOW8
007783,002976: 4433 64505 AD OCT1400
007784,002977: 4434 54131 TS NOUNADD # PUT E ADRES INTO NOUNADD
007785,002978: 4435 00002 TC Q
007786,002979:
007787,002980:
007788,002981:
007789,002982: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
007790,002983: # E ADRES AND PUTS IT INTO NOUNADD.
007791,002984:
007792,002985: 4436 30657 SETNADD CA NOUNCADR
007793,002986: 4437 14431 TCF SETNCADR +1
007794,002987:
007795,002988:
007796,002989:
007797,002990: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
007798,002991: # DERIVED AND LEFT IN A.
007799,002992:
007800,002993: 4440 54003 SETEBANK TS EBANK # SET EBANK BITS
007801,002994: 4441 74504 MASK LOW8
007802,002995: 4442 64505 AD OCT1400 # E ADRES LEFT IN A
007803,002996: 4443 00002 TC Q
007804,002997:
007805,002998:
007806,002999:
007807,003000: 4444 00016 R1D1 OCT 16
007808,003001: 4445 00011 R2D1 OCT 11
007809,003002: 4446 00004 R3D1 OCT 4
007810,003003:
007811,003004: 4447 54020 RIGHT5 TS CYR
007812,003005: 4450 40020 CS CYR
007813,003006: 4451 40020 CS CYR
007814,003007: 4452 40020 CS CYR
007815,003008: 4453 40020 CS CYR
007816,003009: 4454 56020 XCH CYR
007817,003010: 4455 00002 TC Q
007818,003011:
007819,003012: 4456 54022 LEFT5 TS CYL
007820,003013: 4457 40022 CS CYL
![]() |
Page 201 |
007822,003015: 4460 40022 CS CYL
007823,003016: 4461 40022 CS CYL
007824,003017: 4462 40022 CS CYL
007825,003018: 4463 56022 XCH CYL
007826,003019: 4464 00002 TC Q
007827,003020:
007828,003021: 4465 60000 SLEFT5 DOUBLE
007829,003022: 4466 60000 DOUBLE
007830,003023: 4467 60000 DOUBLE
007831,003024: 4470 60000 DOUBLE
007832,003025: 4471 60000 DOUBLE
007833,003026: 4472 00002 TC Q
007834,003027:
007835,003028:
007836,003029:
007837,003030: 4473 00037 LOW5 OCT 37
007838,003031: 4474 01740 MID5 OCT 1740
007839,003032: 4475 76000 HI5 OCT 76000 # MUST STAY HERE
007840,003033:
007841,003034: 4476 04131 TCNOVAC TC NOVAC
007842,003035: 4477 04251 TCWAIT TC WAITLIST
007843,003036: 4500 04321 TCTSKOVR TC TASKOVER
007844,003037: 4501 04142 TCFINDVC TC FINDVAC
007845,003038:
007846,003039:
007847,003040:
007848,003041: 4502 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
007849,003042:
007850,003043:
007851,003044:
007852,003045: 4503 03777 LOW11 OCT 3777
007853,003046: 4504 00377 LOW8 OCT 377
007854,003047: 4505 01400 OCT1400 OCT 1400
007855,003048:
007856,003049:
007857,003050:
007858,003051: 4506 00023 VD1 OCT 23
007859,003052: 4507 00021 ND1 OCT 21
007860,003053: 4510 00025 MD1 OCT 25
007861,003054:
007862,003055: 4511 00012 BINCON DEC 10 B-14
007863,003056:
007864,003057: 4512 37640 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
007865,003058: 4513 00006 EXTEND
007866,003059: 4514 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
007867,003060: 4515 00002 TC Q
007868,003061:
007869,003062: 4516 47640 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
007870,003063: 4517 00006 EXTEND
007871,003064: 4520 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
![]() |
Page 202 |
007873,003066: 4521 00002 TC Q
007874,003067:
007875,003068: 4522 37642 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
007876,003069: 4523 00006 EXTEND
007877,003070: 4524 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
007878,003071: 4525 00002 TC Q
007879,003072:
007880,003073: 4526 00006 LODSAMPT EXTEND
007881,003074: 4527 30025 DCA TIME2
007882,003075: 4530 52755 DXCH SAMPTIME
007883,003076: 4531 00002 TC Q
007884,003077:
007885,003078:
007886,003079:
007887,003080: 4532 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
007888,003081: 4533 30142 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
007889,003082: 4534 20142 DAS MPAC +1
007890,003083: 4535 60140 AD MPAC
007891,003084: 4536 26140 ADS MPAC
007892,003085: 4537 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
007893,003086: 4540 00002 TC Q # NO NET OF/UF
007894,003087: 4541 54105 TS OVFIND # OVFIND SET TO +/- 1 FOR OF/UF
007895,003088: 4542 00002 TC Q
007896,003089:
007897,003090:
007898,003091:
007899,003092: 4543 37641 FLASHON CAF BIT6 # TURN ON V/N FLASH
007900,003093: 4544 00006 EXTEND # BIT 6 OF CHANNEL 11
007901,003094: 4545 05011 WOR DSALMOUT
007902,003095: 4546 00002 TC Q
007903,003096:
007904,003097:
007905,003098:
007906,003099: 4547 47641 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
007907,003100: 4550 00006 EXTEND
007908,003101: 4551 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
007909,003102: 4552 00002 TC Q
007910,003103:
![]() |
Page 203 |
007912,003105: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
007913,003106: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
007914,003107: # MAKE IT BUSY TO OTHER INTERNAL USERS.
007915,003108:
007916,003109: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
007917,003110: # SYSTEM FOR OTHER INTERNAL USERS.
007918,003111:
007919,003112: # THE CALLING SEQUENCES ARE
007920,003113: # L TC GRABDSP
007921,003114: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
007922,003115: # L+2 RETURN HERE MEANS YOU HAVE IT
007923,003116:
007924,003117: # L TC NVSUB
007925,003118: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
007926,003119: # L+2 RETURN HERE AFTER EXECUTION
007927,003120:
007928,003121:
007929,003122:
007930,003123: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
007931,003124: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
007932,003125: # GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
007933,003126: # HANDLE ONLY FIXED MEMORY.
007934,003127: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
007935,003128:
007936,003129: # THE CALLING SEQUENCE IS
007937,003130: # CAF WAKEFCADR
007938,003131: # TC GRABUSY
007939,003132:
007940,003133: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
007941,003134: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
007942,003135: # NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
007943,003136: # HANDLE ONLY FIXED MEMORY.
007944,003137: # YOUR CADR IS PUT
007945,003138: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
007946,003139:
007947,003140: # THE CALLING SEQUENCE IS
007948,003141: # CAF WAKEFCADR
007949,003142: # TC NVSUBUSY
007950,003143:
007951,003144:
007952,003145: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
007953,003146: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
007954,003147: # DISPLAYS WAITING WILL BE VISIBLE.
007955,003148:
007956,003149:
007957,003150:
007958,003151: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
007959,003152: # AND DISPLAY SYSTEM.
007960,003153: # +0 FREE
![]() |
Page 204 |
007962,003155: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
007963,003156: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
007964,003157:
007965,003158:
007966,003159:
007967,003160: 4553 10677 GRABDSP CCS GRABLOCK
007968,003161: 4554 00002 TC Q # ALREADY GRABBED, RETURN TO L+1
007969,003162: 4555 37646 CAF ONE # NOT GRABBED, SET TO +1
007970,003163: 4556 54677 TS GRABLOCK # AND RETURN TO L+2
007971,003164: 4557 50002 INDEX Q
007972,003165: 4560 00001 TC 1
007973,003166:
007974,003167:
007975,003168:
007976,003169: 4561 36425 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
007977,003170: 4562 70002 MASK Q # BANKS ONLY DESIRING THE FCADR OF
007978,003171: 4563 60004 AD FBANK # 1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
007979,003172: 4564 04102 GRABUSY TC POSTJUMP # TO BE ENTERED.
007980,003173: 4565 10000 CADR GRABUSYB
007981,003174: 04,3432 SETLOC DOPROC +2
007982,003175: 04,3432 54001 GRABUSY1 TS L
007983,003176: 04,3433 10677 CCS GRABLOCK
007984,003177: 04,3434 03437 TC +3 # STILL GRABBED
007985,003178: 04,3435 30001 CA L # NOT GRABBED SO DO DIRECT CALL
007986,003179: 04,3436 04105 TC BANKJUMP
007987,003180: 04,3437 37645 CAF TWO
007988,003181: 04,3440 54130 TS LSTPTR
007989,003182: 04,3441 50130 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
007990,003183: 04,3442 10702 CCS DSPLIST # FROM BOTTOM.
007991,003184: 04,3443 03445 TC +2
007992,003185: 04,3444 03450 TC PUTINLST # SPACE FOUND
007993,003186: 04,3445 10130 CCS LSTPTR # DECREMENT POINTER
007994,003187: 04,3446 03440 TC -6
007995,003188: 04,3447 03514 TC LSTFULL
007996,003189: 04,3450 30001 PUTINLST CA L
007997,003190: 04,3451 50130 INDEX LSTPTR
007998,003191: 04,3452 54702 TS DSPLIST
007999,003192: 04,3453 04164 TC JOBSLEEP
008000,003193:
008001,003194:
008002,003195:
008003,003196: # GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008004,003197: # SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
008005,003198: # WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
008006,003199: # JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
008007,003200: # SYSTEM IS FREED.
008008,003201:
008009,003202: 4566 SETLOC GRABUSY +2
008010,003203: 4566 10677 GRABWAIT CCS GRABLOCK
008011,003204: 4567 14561 TCF PREGBSY # GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
![]() |
Page 205 |
008013,003206: 4570 37646 CAF ONE # NOT GRABBED. GRAB AND RETURN TO L+1.
008014,003207: 4571 54677 TS GRABLOCK
008015,003208: 4572 00002 TC Q
008016,003209:
008017,003210:
008018,003211:
008019,003212: 4573 44600 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
008020,003213: 4574 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
008021,003214: 4575 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
008022,003215: 4576 04102 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
008023,003216: 4577 10001 CADR NVSUBSYB
008024,003217: 4600 02003 2K+3 OCT 2003
008025,003218:
008026,003219: 04,3454 SETLOC PUTINLST +4
008027,003220: 04,3454 54001 NVSUBSY1 TS L
008028,003221: 04,3455 10652 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
008029,003222: 04,3456 03461 TC +3 # STILL BUSY
008030,003223: 04,3457 30001 CA L # DSPLOCK = +0 SO RETURN DIRECTLY
008031,003224: 04,3460 04105 TC BANKJUMP
008032,003225: 04,3461 37645 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
008033,003226: 04,3462 54677 TS GRABLOCK
008034,003227: 04,3463 30001 CA L
008035,003228: 04,3464 56704 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
008036,003229: 04,3465 56703 XCH DSPLIST +1 # (BOTTOM)
008037,003230: 04,3466 56702 XCH DSPLIST
008038,003231: 04,3467 10000 CCS A
008039,003232: 04,3470 03514 TC LSTFULL
008040,003233: 04,3471 03473 TC +2
008041,003234: 04,3472 03514 TC LSTFULL
008042,003235: 04,3473 04522 TC RELDSPON
008043,003236: 04,3474 30001 CA L
008044,003237: 04,3475 04164 ENDNVBSY TC JOBSLEEP
008045,003238:
008046,003239:
008047,003240:
008048,003241: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
008049,003242: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
008050,003243: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
008051,003244: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
008052,003245: # IS NOT BUSY.
008053,003246:
008054,003247: 4601 SETLOC NVSUBUSY +3
008055,003248: 4601 54107 NVSBWAIT TS NVTEMP
008056,003249: 4602 10652 CCS DSPLOCK
008057,003250: 4603 14606 TCF NVSBWT1 # BUSY
008058,003251: 4604 30002 CA Q # FREE. NVSUB WILL SAVE L+1 FOR RETURN
008059,003252: 4605 14363 TCF NVSUB +5 # AFTER EXECUTION.
008060,003253: 4606 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
008061,003254: 4607 14573 TCF PRENVBSY # GO TO SLEEP.
008062,003255:
![]() |
Page 206 |
008064,003257: 4610 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
008065,003258: 4611 54130 TS RELRET # OFF, SEARCH DSPLIST
008066,003259: 4612 37655 CAF NEG1
008067,003260: 4613 60677 AD GRABLOCK
008068,003261: 4614 00006 EXTEND # SEARCH LIST ONLY IF GRABLOCK = +2
008069,003262: 4615 64623 BZMF RELDSP2 # (SOMEONE USED NVSUBUSY)
008070,003263: 4616 04636 TC WKSEARCH
008071,003264: 4617 04623 TC RELDSP2 # LIST EMPTY
008072,003265: 4620 04170 TC JOBWAKE # LIST NOT EMPTY
008073,003266: 4621 37646 CAF ONE
008074,003267: 4622 54677 TS GRABLOCK
008075,003268: 4623 00004 RELDSP2 INHINT
008076,003269: 4624 47642 CS BIT5 # TURN OFF KEY RELEASE LIGHT
008077,003270: 4625 00006 EXTEND # (BIT 5 OF CHANNEL 11)
008078,003271: 4626 03011 WAND DSALMOUT
008079,003272: 4627 37653 CAF ZERO
008080,003273: 4630 54652 TS DSPLOCK
008081,003274: 4631 00003 RELINT
008082,003275: 4632 00130 TC RELRET
008083,003276: 4633 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0, RELDSP LIGHT OFF.
008084,003277: 4634 54130 TS RELRET # NO LIST SEARCH
008085,003278: 4635 04623 TC RELDSP2
008086,003279:
008087,003280:
008088,003281:
008089,003282: 4636 37653 WKSEARCH CAF ZERO # SEARCHES LIST. LEAVES RESULT IN A.
008090,003283: 4637 56702 XCH DSPLIST # IF EMPTY, RETURN TO L+1.
008091,003284: 4640 56703 XCH DSPLIST +1 # IF NOT EMPTY, INHINT AND RETURN TO L+2.
008092,003285: 4641 56704 XCH DSPLIST +2
008093,003286: 4642 00006 EXTEND
008094,003287: 4643 14647 BZF +4 # EMPTY
008095,003288: 4644 00004 INHINT # NOT EMPTY
008096,003289: 4645 50002 INDEX Q # RETURN TO L+2
008097,003290: 4646 00001 TC 1
008098,003291: 4647 00002 TC Q # RETURN TO L+1
008099,003292:
008100,003293:
008101,003294:
008102,003295: 4650 56002 FREEDSP XCH Q
008103,003296: 4651 54130 TS FREERET
008104,003297: 4652 00004 INHINT
008105,003298: 4653 34661 CAF SHOTIME
008106,003299: 4654 04251 TC WAITLIST
008107,003300: 4655 0637 EBANK= DSPCOUNT
008108,003301: 4655 03476 10001 2CADR FREEWAIT
008109,003302:
008110,003303: 4657 00003 RELINT
008111,003304: 4660 00130 TC FREERET
008112,003305:
008113,003306: 4661 01750 SHOTIME OCT 1750
008114,003307:
![]() |
Page 207 |
008116,003309: 04,3476 SETLOC ENDNVBSY +1
008117,003310:
008118,003311: 04,3476 34502 FREEWAIT CAF CHRPRIO # CALLED BY T3RUPT
008119,003312: 04,3477 04131 TC NOVAC
008120,003313: 04,3500 0637 EBANK= DSPCOUNT
008121,003314: 04,3500 03503 10001 2CADR FREDSPD0
008122,003315:
008123,003316: 04,3502 04321 TC TASKOVER
008124,003317:
008125,003318:
008126,003319:
008127,003320: 04,3503 04636 FREDSPD0 TC WKSEARCH # CALLED BY EXECUTIVE
008128,003321: 04,3504 03512 TC LSTEMPTY # LIST EMPTY
008129,003322: 04,3505 04170 TC JOBWAKE # LIST NOT EMPTY
008130,003323: 04,3506 00003 RELINT
008131,003324: 04,3507 37646 CAF ONE # SET FOR GRABBED CONDITION
008132,003325: 04,3510 54677 TS GRABLOCK
008133,003326: 04,3511 04205 TC ENDOFJOB
008134,003327: 04,3512 37653 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
008135,003328: 04,3513 03510 TC -3
008136,003329:
008137,003330:
008138,003331:
008139,003332: 04,3514 04662 LSTFULL TC ABORT
008140,003333: 04,3515 01206 OCT 01206 # PINBALL WAITING LINE FULL.
008141,003334:
008142,003335: 4662 SETLOC SHOTIME +1
008143,003336: 4662 04662 ABORT TC ABORT # ****FIX LATER*****
008144,003337:
![]() |
Page 208 |
008146,003339: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
008147,003340: # OFF THE CAUTION AND STATUS LIGHTS.
008148,003341:
008149,003342: 05,3414 SETLOC DSPMMEND +1
008150,003343:
008151,003344: 05,3414 33453 VBTSTLTS CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
008152,003345: 05,3415 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
008153,003346: 05,3416 05011 WOR DSALMOUT
008154,003347: 05,3417 33454 CAF TSTCON2 # TURN ON AUTO, HOLD, NO ATT, SPARE,
008155,003348: 05,3420 54675 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008156,003349: 05,3421 37635 CAF BIT10 # TURN ON TEST ALARM OUTBIT
008157,003350: 05,3422 00006 EXTEND
008158,003351: 05,3423 05013 WOR CHAN13
008159,003352: 05,3424 00004 INHINT
008160,003353: 05,3425 37650 CAF TEN
008161,003354: 05,3426 54103 TSTLTS1 TS ERCNT
008162,003355: 05,3427 43451 CS FULLDSP
008163,003356: 05,3430 50103 INDEX ERCNT
008164,003357: 05,3431 54662 TS DSPTAB
008165,003358: 05,3432 10103 CCS ERCNT
008166,003359: 05,3433 03426 TC TSTLTS1
008167,003360: 05,3434 43452 CS FULLDSP1
008168,003361: 05,3435 54663 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
008169,003362: 05,3436 54666 TS DSPTAB +4
008170,003363: 05,3437 54670 TS DSPTAB +6
008171,003364: 05,3440 37647 CAF ELEVEN
008172,003365: 05,3441 54656 TS NOUT
008173,003366: 05,3442 00003 RELINT
008174,003367: 05,3443 33456 CAF SHOLTS
008175,003368: 05,3444 00004 INHINT
008176,003369: 05,3445 04251 TC WAITLIST
008177,003370: 05,3446 0662 EBANK= DSPTAB
008178,003371: 05,3446 03457 12001 2CADR TSTLTS2
008179,003372:
008180,003373: 05,3450 04205 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
008181,003374: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
008182,003375: # LIGHTS TEST WILL BE SEEN.
008183,003376:
008184,003377:
008185,003378:
008186,003379: 05,3451 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
008187,003380: 05,3452 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
008188,003381: 05,3453 00174 TSTCON1 OCT 00174 # CHAN 11 BITS 3-7
008189,003382: # UPLINK ACTIVITY, TEMP, KEY RLSE,
008190,003383: # V/N FLASH, OPERATOR ERROR.
008191,003384: 05,3454 40777 TSTCON2 OCT 40777 # DSPTAB+11D BITS 1-9
008192,003385: # AUTO, HOLD, FREE, NO ATT, SPARE,
008193,003386: # GIMBAL LOCK, SPARE, TRACKER, PROG ALM.
008194,003387: 05,3455 00114 TSTCON3 OCT 00114 # CHAN 11 BITS 3,4,7
008195,003388: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
![]() |
Page 209 |
008197,003390: 05,3456 00764 SHOLTS OCT 764 # 5 SEC
008198,003391:
008199,003392:
008200,003393:
008201,003394: 05,3457 34502 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
008202,003395: 05,3460 04131 TC NOVAC
008203,003396: 05,3461 0662 EBANK= DSPTAB
008204,003397: 05,3461 03464 12001 2CADR TSTLTS3
008205,003398:
008206,003399: 05,3463 04321 TC TASKOVER
008207,003400:
008208,003401:
008209,003402:
008210,003403: 05,3464 43455 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
008211,003404: 05,3465 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
008212,003405: 05,3466 03011 WAND DSALMOUT # OPERATOR ERROR.
008213,003406: 05,3467 47635 CS BIT10 # TURN OFF TEST ALARM OUTBIT
008214,003407: 05,3470 00006 EXTEND
008215,003408: 05,3471 03013 WAND CHAN13
008216,003409: 05,3472 37630 CAF BIT15 # TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
008217,003410: 05,3473 54675 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
008218,003411: 05,3474 02001 TC DSPMM # REDISPLAY C(MODREG)
008219,003412: 05,3475 04102 TC POSTJUMP # TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
008220,003413: 05,3476 11273 CADR VBTERM # IF APPROPRIATE).
008221,003414: # TURN OFF V/N FLASH, SET LOADSTAT FOR
008222,003415: # FOR TERMINATE CONDITION, AND GO TO
008223,003416: # RECALTST. FINALLY DO TC ENDOFJOB.
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc