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