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