Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
011118,000002: ## Copyright: Public domain.
011119,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
011120,000004: ## Purpose: Part of the source code for Aurora (revision 12).
011121,000005: ## Assembler: yaYUL
011122,000006: ## Contact: Hartmuth Gutsche Burkey <info@sandroid.org>.
011123,000007: ## Website: https://www.ibiblio.org/apollo.
011124,000008: ## Pages: 289-355
011125,000009: ## Mod history: 2016-09-20 JL Created.
011126,000010: ## 2016-10-19 HG Transcribed
011127,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
011128,000012: ## and fixed the errors found.
011129,000013: ## 2017-01-28 RSB WTIH -> WITH.
011130,000014: ## 2017-02-08 RSB Comment-text fixes noted while proofing Artemis 72.
011131,000015: ## 2017-03-08 RSB Changed DSPOCTWO to DSPOCTWD.
011132,000016: ## 2017-03-08 RSB Comment-text fixes noted in proofing Luminary 116.
011133,000017: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
011134,000018: ## Luminary 99 vs Comanche 55.
011135,000019:
011136,000020: ## This source code has been transcribed or otherwise adapted from
011137,000021: ## digitized images of a hardcopy from the private collection of
011138,000022: ## Don Eyles. The digitization was performed by archive.org.
011139,000023:
011140,000024: ## Notations on the hardcopy document read, in part:
011141,000025:
011142,000026: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
011143,000027: ## NOV 10, 1966
011144,000028:
011145,000029: ## [Note that this is the date the hardcopy was made, not the
011146,000030: ## date of the program revision or the assembly.]
011147,000031:
011148,000032: ## The scan images (with suitable reduction in storage size and consequent
011149,000033: ## reduction in image quality) are available online at
011150,000034: ## https://www.ibiblio.org/apollo.
011151,000035: ## The original high-quality digital images are available at archive.org:
011152,000036: ## https://archive.org/details/aurora00dapg
011153,000037:
![]() |
Page 289 |
011155,000039: # KEYBOARD AND DISPLAY PROGRAM
011156,000040:
011157,000041:
011158,000042:
011159,000043: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
011160,000044:
011161,000045: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
011162,000046: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
011163,000047: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
011164,000048:
011165,000049: # HENRY 6, ACT 2, SCENE 4
![]() |
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009 |
011168,000052:
011169,000053:
011170,000054:
011171,000055: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
011172,000056:
011173,000057:
011174,000058:
011175,000059: # RESERVED FOR PINBALL EXECUTIVE ACTION
011176,000060:
011177,000061: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
011178,000062: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
011179,000063: # VERBREG ERASE VERB CODE
011180,000064: # NOUNREG ERASE NOUN CODE
011181,000065: # XREG ERASE R1 INPUT BUFFER
011182,000066: # YREG ERASE R2 INPUT BUFFER
011183,000067: # ZREG ERASE R3 INPUT BUFFER
011184,000068: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
011185,000069: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
011186,000070: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
011187,000071: # MODREG ERASE MODE CODE
011188,000072: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
011189,000073: # REQRET ERASE RETURN REGISTER FOR LOAD
011190,000074: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
011191,000075: # CLPASS ERASE PASS INDICATOR CLEAR
011192,000076: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
011193,000077: # NOUNCADR ERASE MACHINE CADR FOR NOUN
011194,000078: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
011195,000079: # MONSAVE1 ERASE NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
011196,000080: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
011197,000081: # CADRSTOR ERASE ENDIDLE STORAGE
011198,000082: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
011199,000083: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
011200,000084: # MUST = NVBNKTEM-1
011201,000085: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
011202,000086: # MUST = NVQTEM+1
011203,000087: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
011204,000088: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
011205,000089: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
011206,000090: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
011207,000091:
011208,000092:
![]() |
Page 290 |
011210,000094: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
011211,000095:
011212,000096:
011213,000097:
011214,000098: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
011215,000099:
011216,000100: # DSEXIT = INTB15+ RETURN FOR DSPIN
011217,000101: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
011218,000102: # BLANKRET = INTB15+ RETURN FOR 2BLANK
011219,000103:
011220,000104: # WRDRET = INTBIT15 RETURN FOR 5BLANK
011221,000105: # WDRET = INTBIT15 RETURN FOR DSPWD
011222,000106: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
011223,000107: # 21/22REG = INTBIT15 TEMP FOR CHARIN
011224,000108:
011225,000109: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
011226,000110: # CHAR = POLISH TEMP FOR CHARIN
011227,000111: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
011228,000112: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
011229,000113:
011230,000114: # SGNON = VBUF TEMP FOR +,- ON
011231,000115: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
011232,000116: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
011233,000117: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
011234,000118:
011235,000119: # SGNOFF = VBUF +1 TEMP FOR +,- ON
011236,000120: # NVTEMP = VBUF +1 TEMP FOR NVSUB
011237,000121: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
011238,000122:
011239,000123: # CODE = VBUF +2 FOR DSPIN
011240,000124: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
011241,000125:
011242,000126: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
011243,000127: # SIGNRET = VBUF +3 RETURN FOR +,- ON
011244,000128:
011245,000129: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
011246,000130:
011247,000131: # ENTRET = DOTINC EXIT FROM ENTER
011248,000132:
011249,000133: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
011250,000134: # INREL = DOTRET INPUT BUFFER SELECTOR ( X, Y, Z, REG )
011251,000135:
011252,000136: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
011253,000137: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
011254,000138:
011255,000139: # TEM1 ERASE EXEC TEMP
011256,000140: # DSREL = TEM1 REL ADDRESS FOR DSPIN
011257,000141:
011258,000142: # TEM2 ERASE EXEC TEMP
011259,000143: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
011260,000144:
![]() |
Page 291 |
011262,000146: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
011263,000147:
011264,000148: # TEM3 ERASE EXEC TEMP
011265,000149: # COUNT = TEM3 FOR DSPIN
011266,000150:
011267,000151: # TEM4 ERASE EXEC TEMP
011268,000152: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
011269,000153: # RELRET = TEM4 RETURN FOR RELDSP
011270,000154: # FREERET = TEM4 RETURN FOR FREEDSP
011271,000155:
011272,000156: # TEM5 ERASE EXEC TEMP
011273,000157: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
011274,000158:
011275,000159: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
011276,000160: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
011277,000161: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011278,000162: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
011279,000163: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011280,000164: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
011281,000165: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
011282,000166: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
011283,000167: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
011284,000168: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
011285,000169:
011286,000170:
011287,000171:
011288,000172: # RESERVED FOR PINBALL INTERRUPT ACTION
011289,000173:
011290,000174: # DSPCNT ERASE COUNTER FOR DSPOUT
011291,000175: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
011292,000176: # RECEPTION OF A BAD MESSAGE IN UPLINK)
011293,000177: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
011294,000178:
011295,000179:
011296,000180:
011297,000181: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
011298,000182:
011299,000183: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
011300,000184: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
011301,000185: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
011302,000186: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
011303,000187:
011304,000188:
![]() |
Page 292 |
011306,000190: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
011307,000191: # 0 10000
011308,000192: # 1 00001
011309,000193: # 9 01001
011310,000194: # VERB 10001
011311,000195: # ERROR RES10010
011312,000196: # KEY RLSE 11001
011313,000197: # + 11010
011314,000198: # - 11011
011315,000199: # ENTER 11100
011316,000200: # CLEAR 11110
011317,000201: # NOUN 11111
011318,000202:
011319,000203:
011320,000204:
011321,000205: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
011322,000206: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
011323,000207: # ENERGIZED.
011324,000208: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
011325,000209: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
011326,000210: # D-S 5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
011327,000211:
011328,000212: # THE PANEL APPEARS AS FOLLOWS,
011329,000213: # MD1 MD2 (MAJOR MODE)
011330,000214: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
011331,000215: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
011332,000216: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
011333,000217: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
011334,000218:
011335,000219: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
011336,000220: # MD1 25 R2D1 11 ALL ARE OCTAL
011337,000221: # MD2 24 R2D2 10
011338,000222: # VD1 23 R2D3 7
011339,000223: # VD2 22 R2D4 6
011340,000224: # ND1 21 R2D5 5
011341,000225: # ND2 20 R3D1 4
011342,000226: # R1D1 16 R3D2 3
011343,000227: # R1D2 15 R3D3 2
011344,000228: # R1D3 14 R3D4 1
011345,000229: # R1D4 13 R3D5 0
011346,000230: # R1D5 12
011347,000231:
011348,000232:
011349,000233:
011350,000234: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
011351,000235:
011352,000236: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
011353,000237: # RELADD
011354,000238: # 10 1011 MD1 (25) MD2 (24)
011355,000239: # 9 1010 VD1 (23) VD2 (22)
011356,000240:
![]() |
Page 293 |
011358,000242: # 8 1001 ND1 (21) ND2 (20)
011359,000243: # 7 1000 R1D1 (16)
011360,000244: # 6 0111 +R1 R1D2 (15) R1D3 (14)
011361,000245: # 5 0110 -R1 R1D4 (13) R1D5 (12)
011362,000246: # 4 0101 +R2 R2D1 (11) R2D2 (10)
011363,000247: # 3 0100 -R2 R2D3 (7) R2D4 (6)
011364,000248: # 2 0011 R2D5 (5) R3D1 (4)
011365,000249: # 1 0010 +R3 R3D2 (3) R3D3 (2)
011366,000250: # 0 0001 -R3 R3D4 (1) R3D5 (0)
011367,000251: # 0000 NO RELAYWORD
011368,000252:
011369,000253:
011370,000254:
011371,000255: # THE 5 BIT RELAY CODES ARE,
011372,000256: # BLANK 00000
011373,000257: # 0 10101
011374,000258: # 1 00011
011375,000259: # 2 11001
011376,000260: # 3 11011
011377,000261: # 4 01111
011378,000262: # 5 11110
011379,000263: # 6 11100
011380,000264: # 7 10011
011381,000265: # 8 11101
011382,000266: # 9 11111
011383,000267:
011384,000268:
![]() |
Page 294 |
011386,000270: # START OF EXECUTIVE SECTION OF PINBALL
011387,000271:
011388,000272:
011389,000273:
011390,000274: 04,2000 SETLOC 20000
011391,000275:
011392,000276: 04,2000 03454 GRABUSYB TC GRABUSY1 # STANDARD LEAD INS. DONT MOVE.
011393,000277: 04,2001 03476 NVSUBSYB TC NVSUBSY1
011394,000278:
011395,000279: 04,2002 37657 CHARIN CAF ONE # BLOCK DISPLAY SYST
011396,000280: 04,2003 56277 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
011397,000281: 04,2004 54101 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
011398,000282: 04,2005 56140 XCH MPAC
011399,000283: 04,2006 54103 TS CHAR
011400,000284: 04,2007 50000 INDEX A
011401,000285: 04,2010 02011 TC +1 # INPUT CODE FUNCTION
011402,000286: 04,2011 03275 TC CHARALRM # 0
011403,000287: 04,2012 02062 TC NUM # 1
011404,000288: 04,2013 02062 TC NUM # 2
011405,000289: 04,2014 02062 TC NUM # 3
011406,000290: 04,2015 02062 TC NUM # 4
011407,000291: 04,2016 02062 TC NUM # 5
011408,000292: 04,2017 02062 TC NUM # 6
011409,000293: 04,2020 02062 TC NUM # 7
011410,000294: 04,2021 02053 TC 89TEST # 10 8
011411,000295: 04,2022 02053 TC 89TEST # 11 9
011412,000296: 04,2023 03275 TC CHARALRM # 12
011413,000297: 04,2024 03275 TC CHARALRM # 13
011414,000298: 04,2025 03275 TC CHARALRM # 14
011415,000299: 04,2026 03275 TC CHARALRM # 15
011416,000300: 04,2027 03275 TC CHARALRM # 16
011417,000301: 04,2030 03275 TC CHARALRM # 17
011418,000302: 04,2031 02060 TC NUM -2 # 20 0
011419,000303: 04,2032 02235 TC VERB # 21 VERB
011420,000304: 04,2033 02343 TC ERROR # 22 ERROR LIGHT RESET
011421,000305: 04,2034 03275 TC CHARALRM # 23
011422,000306: 04,2035 03275 TC CHARALRM # 24
011423,000307: 04,2036 03275 TC CHARALRM # 25
011424,000308: 04,2037 03275 TC CHARALRM # 26
011425,000309: 04,2040 03275 TC CHARALRM # 27
011426,000310: 04,2041 03275 TC CHARALRM # 30
011427,000311: 04,2042 03320 TC VBRELDSP # 31 KEY RELEASE
011428,000312: 04,2043 02267 TC POSGN # 32 +
011429,000313: 04,2044 02254 TC NEGSGN # 33 -
011430,000314: 04,2045 02051 TC ENTERJMP # 34 ENTER
011431,000315: 04,2046 03275 TC CHARALRM # 35
011432,000316: 04,2047 02431 TC CLEAR # 36 CLEAR
011433,000317: 04,2050 02250 TC NOUN # 37 NOUN
011434,000318:
![]() |
Page 295 |
011436,000320: 04,2051 04102 ENTERJMP TC POSTJUMP
011437,000321: 04,2052 12003 CADR ENTER
011438,000322:
011439,000323: 04,2053 36165 89TEST CAF THREE
011440,000324: 04,2054 70265 MASK DECBRNCH
011441,000325: 04,2055 10000 CCS A
011442,000326: 04,2056 02062 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
011443,000327: 04,2057 03275 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
011444,000328:
011445,000329:
011446,000330:
011447,000331: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
011448,000332: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
011449,000333: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
011450,000334: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
011451,000335: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
011452,000336: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
011453,000337:
011454,000338: 04,2060 37665 CAF ZERO
011455,000339: 04,2061 54103 TS CHAR
011456,000340: 04,2062 10264 NUM CCS DSPCOUNT
011457,000341: 04,2063 02067 TC +4 # +
011458,000342: 04,2064 02067 TC +3 # +0
011459,000343: 04,2065 02066 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
011460,000344: 04,2066 04440 TC ENDOFJOB # -0
011461,000345: 04,2067 02205 TC GETINREL
011462,000346: 04,2070 10302 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
011463,000347: 04,2071 37665 CAF ZERO
011464,000348: 04,2072 54302 TS CLPASS
011465,000349: 04,2073 02074 TC +1
011466,000350: 04,2074 50103 INDEX CHAR
011467,000351: 04,2075 34741 CAF RELTAB
011468,000352: 04,2076 75224 MASK LOW5
011469,000353: 04,2077 54110 TS CODE
011470,000354: 04,2100 30264 CA DSPCOUNT
011471,000355: 04,2101 54127 TS COUNT
011472,000356: 04,2102 03201 TC DSPIN
011473,000357: 04,2103 36165 CAF THREE
011474,000358: 04,2104 70265 MASK DECBRNCH
011475,000359: 04,2105 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
011476,000360: 04,2106 02117 TC DECTOBIN # +
011477,000361: 04,2107 50123 INDEX INREL # +0 OCTAL
011478,000362: 04,2110 56266 XCH VERBREG
011479,000363: 04,2111 54022 TS CYL
011480,000364: 04,2112 40022 CS CYL
011481,000365: 04,2113 40022 CS CYL
011482,000366: 04,2114 56022 XCH CYL
011483,000367: 04,2115 60103 AD CHAR
011484,000368: 04,2116 02134 TC ENDNMTST
011485,000369: 04,2117 50123 DECTOBIN INDEX INREL
011486,000370:
011487,000371:
![]() |
Page 296 |
011489,000373: 04,2120 56266 XCH VERBREG
011490,000374: 04,2121 54140 TS MPAC # SUM X 2EXP-14 IN MPAC
011491,000375: 04,2122 37665 CAF ZERO
011492,000376: 04,2123 54141 TS MPAC +1
011493,000377: 04,2124 37661 CAF TEN # 10 X 2EXP-14
011494,000378: 04,2125 07266 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
011495,000379: 04,2126 56141 XCH MPAC +1
011496,000380: 04,2127 60103 AD CHAR
011497,000381: 04,2130 54141 TS MPAC +1
011498,000382: 04,2131 02134 TC ENDNMTST # NO OF
011499,000383: 04,2132 26140 ADS MPAC # OF MUST BE 5TH CHAR
011500,000384: 04,2133 02152 TC DECEND
011501,000385: 04,2134 50123 ENDNMTST INDEX INREL
011502,000386: 04,2135 54266 TS VERBREG
011503,000387: 04,2136 40264 CS DSPCOUNT
011504,000388: 04,2137 50123 INDEX INREL
011505,000389: 04,2140 62176 AD CRITCON
011506,000390: 04,2141 00006 EXTEND
011507,000391: 04,2142 12144 BZF ENDNUM # -0, DSPCOUNT = CRITCON
011508,000392: 04,2143 02173 TC MORNUM # - , DSPCOUNT G/ CRITCON
011509,000393: 04,2144 36165 ENDNUM CAF THREE
011510,000394: 04,2145 70265 MASK DECBRNCH
011511,000395: 04,2146 10000 CCS A
011512,000396: 04,2147 02152 TC DECEND
011513,000397: 04,2150 40264 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
011514,000398: 04,2151 02174 TC MORNUM +1 # NEGATIVELY
011515,000399: 04,2152 07063 DECEND TC DMP # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
011516,000400: 04,2153 02203 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
011517,000401: 04,2154 36165 CAF THREE # IN MPAC, +1, +2.
011518,000402: 04,2155 70265 MASK DECBRNCH
011519,000403: 04,2156 50000 INDEX A
011520,000404: 04,2157 02157 TC +0
011521,000405: 04,2160 02164 TC +DECSGN
011522,000406: 04,2161 00006 EXTEND # - CASE
011523,000407: 04,2162 40142 DCS MPAC +1
011524,000408: 04,2163 52142 DXCH MPAC +1
011525,000409: 04,2164 56142 +DECSGN XCH MPAC +2
011526,000410: 04,2165 50123 INDEX INREL
011527,000411: 04,2166 54271 TS XREGLP -2
011528,000412: 04,2167 56141 XCH MPAC +1
011529,000413: 04,2170 50123 INDEX INREL
011530,000414: 04,2171 54266 TS VERBREG
011531,000415: 04,2172 02150 TC ENDALL
011532,000416: 04,2173 10264 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
011533,000417: 04,2174 54264 TS DSPCOUNT
011534,000418: 04,2175 04440 TC ENDOFJOB
011535,000419:
011536,000420: 04,2176 00022 CRITCON OCT 22 # (DEC 18)
011537,000421: 04,2177 00020 OCT 20 # (DEC 16)
011538,000422: 04,2200 00012 OCT 12 # (DEC 10)
011539,000423:
![]() |
Page 297 |
011541,000425: 04,2201 00005 OCT 5
011542,000426: 04,2202 00000 OCT 0
011543,000427:
011544,000428: 04,2203 05174 13261 DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
011545,000429:
011546,000430:
011547,000431: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
011548,000432: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
011549,000433:
011550,000434: 04,2205 50264 GETINREL INDEX DSPCOUNT
011551,000435: 04,2206 32211 CAF INRELTAB
011552,000436: 04,2207 54123 TS INREL # (A TEMP, REG)
011553,000437: 04,2210 00002 TC Q
011554,000438:
011555,000439: 04,2211 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
011556,000440: 04,2212 00004 OCT 4 # R3D4 =(1)
011557,000441: 04,2213 00004 OCT 4 # R3D3 =(2)
011558,000442: 04,2214 00004 OCT 4 # R3D2 =(3)
011559,000443: 04,2215 00004 OCT 4 # R3D1 =(4)
011560,000444: 04,2216 00003 OCT 3 # R2D5 =(5)
011561,000445: 04,2217 00003 OCT 3 # R2D4 =(6)
011562,000446: 04,2220 00003 OCT 3 # R2D3 =(7)
011563,000447: 04,2221 00003 OCT 3 # R2D2 =(8D)
011564,000448: 04,2222 00003 OCT 3 # R2D1 =(9D)
011565,000449: 04,2223 00002 OCT 2 # R1D5 =(10D)
011566,000450: 04,2224 00002 OCT 2 # R1D4 =(11D)
011567,000451: 04,2225 00002 OCT 2 # R1D3 =(12D)
011568,000452: 04,2226 00002 OCT 2 # R1D2 =(13D)
011569,000453: 04,2227 00002 OCT 2 # R1D1 =(14D)
011570,000454: 04,2230 05464 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
011571,000455: 04,2231 00001 OCT 1 # ND2 =(16D)
011572,000456: 04,2232 00001 OCT 1 # ND1 =(17D)
011573,000457: 04,2233 00000 OCT 0 # VD2 =(18D)
011574,000458: 04,2234 00000 OCT 0 # VD1 =(19D)
011575,000459:
011576,000460: 04,2235 37665 VERB CAF ZERO
011577,000461: 04,2236 54266 TS VERBREG
011578,000462: 04,2237 35237 CAF VD1
011579,000463: 04,2240 54264 NVCOM TS DSPCOUNT
011580,000464: 04,2241 02541 TC 2BLANK
011581,000465: 04,2242 37665 CAF ZERO
011582,000466: 04,2243 54265 TS DECBRNCH
011583,000467: 04,2244 54300 TS REQRET # SET FOR ENTPAS0
011584,000468: 04,2245 35150 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
011585,000469: 04,2246 54122 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
011586,000470: # TO TC ENDOFJOB
011587,000471: 04,2247 04440 TC ENDOFJOB
011588,000472:
![]() |
Page 298 |
011590,000474: 04,2250 37665 NOUN CAF ZERO
011591,000475: 04,2251 54267 TS NOUNREG
011592,000476: 04,2252 35240 CAF ND1 # ND1, OCT 21 (DEC 17)
011593,000477: 04,2253 02240 TC NVCOM
011594,000478:
011595,000479:
011596,000480:
011597,000481: 04,2254 02326 NEGSGN TC SIGNTEST
011598,000482: 04,2255 02313 TC -ON
011599,000483: 04,2256 37656 CAF TWO
011600,000484: 04,2257 50123 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
011601,000485: 04,2260 67651 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
011602,000486: 04,2261 26265 ADS DECBRNCH # BIT 3 FOR R3.
011603,000487: 04,2262 10302 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
011604,000488: 04,2263 37665 CAF ZERO
011605,000489: 04,2264 54302 TS CLPASS
011606,000490: 04,2265 02266 TC +1
011607,000491: 04,2266 04440 TC ENDOFJOB
011608,000492:
011609,000493: 04,2267 02326 POSGN TC SIGNTEST
011610,000494: 04,2270 02273 TC +ON
011611,000495: 04,2271 37657 CAF ONE
011612,000496: 04,2272 02257 TC BOTHSGN
011613,000497:
011614,000498: 04,2273 22002 +ON LXCH Q
011615,000499: 04,2274 02205 TC GETINREL
011616,000500: 04,2275 50123 INDEX INREL
011617,000501: 04,2276 32321 CAF SGNTAB -2
011618,000502: 04,2277 54107 TS SGNOFF
011619,000503: 04,2300 67657 AD ONE
011620,000504: 04,2301 54106 TS SGNON
011621,000505: 04,2302 37665 SGNCOM CAF ZERO
011622,000506: 04,2303 54110 TS CODE
011623,000507: 04,2304 56107 XCH SGNOFF
011624,000508: 04,2305 03263 TC 11DSPIN
011625,000509: 04,2306 37645 CAF BIT11
011626,000510: 04,2307 54110 TS CODE
011627,000511: 04,2310 56106 XCH SGNON
011628,000512: 04,2311 03263 TC 11DSPIN
011629,000513: 04,2312 00001 TC L
011630,000514: 04,2313 22002 -ON LXCH Q
011631,000515: 04,2314 02205 TC GETINREL
011632,000516: 04,2315 50123 INDEX INREL
011633,000517: 04,2316 32321 CAF SGNTAB -2
011634,000518: 04,2317 54106 TS SGNON
011635,000519: 04,2320 67657 AD ONE
011636,000520: 04,2321 54107 TS SGNOFF
011637,000521: 04,2322 02302 TC SGNCOM
011638,000522:
011639,000523: 04,2323 00005 SGNTAB OCT 5 # -R1
011640,000524:
![]() |
Page 299 |
011642,000526: 04,2324 00003 OCT 3 # -R2
011643,000527: 04,2325 00000 OCT 0 # -R3
011644,000528:
011645,000529:
011646,000530:
011647,000531: 04,2326 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
011648,000532: 04,2327 45175 CS R1D1 # R2D1, OR R3D1.
011649,000533: 04,2330 02336 TC SGNTST1
011650,000534: 04,2331 45176 CS R2D1
011651,000535: 04,2332 02336 TC SGNTST1
011652,000536: 04,2333 45177 CS R3D1
011653,000537: 04,2334 02336 TC SGNTST1
011654,000538: 04,2335 04440 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
011655,000539: 04,2336 60264 SGNTST1 AD DSPCOUNT
011656,000540: 04,2337 00006 EXTEND
011657,000541: 04,2340 12342 BZF +2 # MATCH FOUND
011658,000542: 04,2341 00002 TC Q
011659,000543: 04,2342 00001 TC L # SIGN LEGAL
011660,000544:
011661,000545:
011662,000546:
011663,000547: # ERROR LIGHT RESET (RSET) TURNS OFF,
011664,000548: # UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
011665,000549: # PROG ALM, TRACKER FAIL.
011666,000550: # LEAVES GIMBAL LOCK ALONE.
011667,000551: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
011668,000552: # IT ALSO SETS :CAUTION RESET: TO 1.
011669,000553: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
011670,000554:
011671,000555: 04,2343 56101 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
011672,000556: 04,2344 54277 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
011673,000557: 04,2345 00004 INHINT
011674,000558: 04,2346 37646 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
011675,000559: 04,2347 00006 EXTEND
011676,000560: 04,2350 05011 WOR DSALMOUT # BIT10 CHAN 11
011677,000561: 04,2351 37652 CAF BIT6 # LEAVE GIMBAL LOCK LAMP INTACT,
011678,000562: 04,2352 70322 MASK DSPTAB +11D # TURNING OFF, AUTO, HOLD, FREE, NO ATT.,
011679,000563: 04,2353 67641 AD BIT15 # PROG ALARM, AND TRACKER.
011680,000564: 04,2354 54322 TS DSPTAB +11D
011681,000565: 04,2355 44515 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
011682,000566: 04,2356 70370 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
011683,000567: 04,2357 64515 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
011684,000568: 04,2360 54370 TS IMODES33
011685,000569: 04,2361 47646 CS BIT10
011686,000570: 04,2362 70367 MASK IMODES30
011687,000571: 04,2363 67646 AD BIT10
011688,000572: 04,2364 54367 TS IMODES30
011689,000573:
011690,000574: 04,2365 42427 CS RFAILS
011691,000575: 04,2366 70413 MASK RADMODES
011692,000576:
011693,000577:
![]() |
Page 300 |
011695,000579: 04,2367 67651 AD BIT7
011696,000580: 04,2370 54413 TS RADMODES
011697,000581:
011698,000582: 04,2371 47646 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
011699,000583: 04,2372 00006 EXTEND
011700,000584: 04,2373 03013 WAND CHAN13
011701,000585: 04,2374 42426 CS ERCON # TURN OFF UPLINK ACTIVITY,
011702,000586: 04,2375 00006 EXTEND # OPERATOR ERROR.
011703,000587: 04,2376 03011 WAND DSALMOUT
011704,000588: 04,2377 35242 TSTAB CAF BINCON # (DEC 10)
011705,000589: 04,2400 54103 TS ERCNT # ERCNT = COUNT
011706,000590: 04,2401 00004 INHINT
011707,000591: 04,2402 50103 INDEX ERCNT
011708,000592: 04,2403 10307 CCS DSPTAB
011709,000593: 04,2404 67657 AD ONE
011710,000594: 04,2405 02412 TC ERPLUS
011711,000595: 04,2406 67657 AD ONE
011712,000596: 04,2407 40000 ERMINUS CS A
011713,000597: 04,2410 72430 MASK NOTBIT12
011714,000598: 04,2411 02415 TC ERCOM
011715,000599: 04,2412 40000 ERPLUS CS A
011716,000600: 04,2413 72430 MASK NOTBIT12
011717,000601: 04,2414 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
011718,000602: 04,2415 50103 ERCOM INDEX ERCNT # ETC.
011719,000603: 04,2416 54307 TS DSPTAB
011720,000604: 04,2417 00003 RELINT
011721,000605: 04,2420 10103 CCS ERCNT
011722,000606: 04,2421 02400 TC TSTAB +1
011723,000607: 04,2422 37665 CAF ZERO
011724,000608: 04,2423 55363 TS FAILREG
011725,000609: 04,2424 55364 TS SFAIL
011726,000610: 04,2425 04440 TC ENDOFJOB
011727,000611:
011728,000612: 04,2426 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
011729,000613: # UPLINK ACTIVITY, AND OPERATOR ERROR.
011730,000614: 04,2427 00330 RFAILS OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
011731,000615: 04,2430 73777 NOTBIT12 OCT 73777
011732,000616:
011733,000617:
011734,000618:
011735,000619: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
011736,000620: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
011737,000621: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
011738,000622:
011739,000623: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
011740,000624: # APPROPRIATE TO BE CLEARED.
011741,000625:
011742,000626: # CLPASS +0 PASS0, CAN BE BACKED UP
011743,000627: # +NZ HIPASS, CAN BE BACKED UP
011744,000628: # -NZ PASS0, CANNOT BE BACKED UP
011745,000629:
011746,000630:
![]() |
Page 301 |
011748,000632: 04,2431 10264 CLEAR CCS DSPCOUNT
011749,000633: 04,2432 67657 AD ONE
011750,000634: 04,2433 02435 TC +2
011751,000635: 04,2434 67657 AD ONE
011752,000636: 04,2435 54264 TS DSPCOUNT # MAG OF DSPCOUNT
011753,000637: 04,2436 02205 TC GETINREL # MUST SET INREL, EVEN FOR HIPASS
011754,000638: 04,2437 10302 CCS CLPASS
011755,000639: 04,2440 02446 TC CLPASHI # +
011756,000640: 04,2441 02443 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
011757,000641: 04,2442 02443 TC +1 # -
011758,000642: 04,2443 30123 CA INREL
011759,000643: 04,2444 02470 TC LEGALTST
011760,000644: 04,2445 02463 TC CLEAR1
011761,000645: 04,2446 10123 CLPASHI CCS INREL
011762,000646: 04,2447 54123 TS INREL
011763,000647: 04,2450 02470 TC LEGALTST
011764,000648: 04,2451 32537 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
011765,000649: 04,2452 26300 ADS REQRET
011766,000650: 04,2453 30123 CA INREL
011767,000651: 04,2454 54111 TS MIXTEMP # TEMP STORAGE FOR INREL
011768,000652: 04,2455 00006 EXTEND
011769,000653: 04,2456 26266 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
011770,000654: 04,2457 04063 TC BANKCALL
011771,000655: 04,2460 12315 CADR UPDATVB
011772,000656: 04,2461 30111 CA MIXTEMP
011773,000657: 04,2462 54123 TS INREL # RESTORE INREL
011774,000658: 04,2463 02466 CLEAR1 TC CLR5
011775,000659: 04,2464 24302 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
011776,000660: 04,2465 04440 TC ENDOFJOB # SET FOR HIGHER PASS.
011777,000661: 04,2466 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
011778,000662: 04,2467 02500 TC 5BLANK +2
011779,000663: 04,2470 67670 LEGALTST AD NEG2
011780,000664: 04,2471 10000 CCS A
011781,000665: 04,2472 00002 TC Q # LEGAL INREL G/ 2
011782,000666: 04,2473 05464 TC CCSHOLE
011783,000667: 04,2474 04440 TC ENDOFJOB # ILLEGAL INREL= 0,1
011784,000668: 04,2475 00002 TC Q # LEGAL INREL = 2
011785,000669:
011786,000670:
011787,000671:
011788,000672: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
011789,000673: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
011790,000674: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
011791,000675:
011792,000676: 04,2476 22002 5BLANK LXCH Q
011793,000677: 04,2477 02205 TC GETINREL
011794,000678: 04,2500 37665 CAF ZERO
011795,000679: 04,2501 50123 INDEX INREL
011796,000680: 04,2502 54266 TS VERBREG # ZERO X, Y, Z REG.
011797,000681: 04,2503 50123 INDEX INREL
011798,000682:
011799,000683:
![]() |
Page 302 |
011801,000685: 04,2504 54271 TS XREGLP -2
011802,000686: 04,2505 54110 TS CODE
011803,000687: 04,2506 50123 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
011804,000688: 04,2507 47651 CS BIT7 # PROTECT OTHERS
011805,000689: 04,2510 70265 MASK DECBRNCH
011806,000690: 04,2511 72540 MASK BRNCHCON # ZERO LOW 2 BITS.
011807,000691: 04,2512 54265 TS DECBRNCH
011808,000692: 04,2513 50123 INDEX INREL
011809,000693: 04,2514 32530 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
011810,000694: 04,2515 54127 TS COUNT
011811,000695: 04,2516 03201 TC DSPIN
011812,000696: 04,2517 50123 5BLANK1 INDEX INREL
011813,000697: 04,2520 32533 CAF DOUBLK -2
011814,000698: 04,2521 54264 TS DSPCOUNT
011815,000699: 04,2522 02541 TC 2BLANK
011816,000700: 04,2523 47656 CS TWO
011817,000701: 04,2524 26264 ADS DSPCOUNT
011818,000702: 04,2525 02541 TC 2BLANK
011819,000703: 04,2526 50123 INDEX INREL
011820,000704: 04,2527 35173 CAF R1D1 -2
011821,000705: 04,2530 54264 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
011822,000706: 04,2531 00001 TC L # OF REG. JUST BLANKED
011823,000707:
011824,000708: 04,2532 00016 SINBLANK OCT 16 # DEC 14
011825,000709: 04,2533 00005 OCT 5
011826,000710: 04,2534 00004 OCT 4
011827,000711: 04,2535 00015 DOUBLK OCT 15 # DEC 13
011828,000712: 04,2536 00011 OCT 11 # DEC 9
011829,000713: 04,2537 00003 OCT 3
011830,000714:
011831,000715: 04,2540 77774 BRNCHCON OCT 77774
011832,000716:
011833,000717: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
011834,000718: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
011835,000719:
011836,000720: 04,2541 30264 2BLANK CA DSPCOUNT
011837,000721: 04,2542 54021 TS SR
011838,000722: 04,2543 42554 CS BLANKCON
011839,000723: 04,2544 00004 INHINT
011840,000724: 04,2545 50021 INDEX SR
011841,000725: 04,2546 56307 XCH DSPTAB
011842,000726: 04,2547 00006 EXTEND
011843,000727: 04,2550 62552 BZMF +2 # IF OLD CONTENTS -, NOUT OK
011844,000728: 04,2551 24303 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
011845,000729: 04,2552 00003 RELINT # IF -, NOUT OK
011846,000730: 04,2553 00002 TC Q
011847,000731: 04,2554 04000 BLANKCON OCT 4000
011848,000732:
011849,000733:
![]() |
Page 303 |
011851,000735: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
011852,000736: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
011853,000737: # PASSES.
011854,000738:
011855,000739:
011856,000740:
011857,000741: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
011858,000742: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
011859,000743: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
011860,000744:
011861,000745:
011862,000746:
011863,000747: 05,2000 SETLOC 22000
011864,000748:
011865,000749: 05,2000 03344 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
011866,000750: 05,2001 13403 DSPMM TCF DSPMM1
011867,000751: 05,2002 02663 LOADLV1 TC LOADLV
011868,000752: # END OF STANDARD LEAD INS.
011869,000753:
011870,000754:
011871,000755:
011872,000756: 05,2003 37665 ENTER CAF ZERO
011873,000757: 05,2004 54302 TS CLPASS
011874,000758: 05,2005 35150 CAF ENDINST
011875,000759: 05,2006 54122 TS ENTRET
011876,000760: 05,2007 10300 CCS REQRET
011877,000761: 05,2010 02031 TC ENTPAS0 # IF +, PASS 0
011878,000762: 05,2011 02031 TC ENTPAS0 # IF +, PASS 0
011879,000763: 05,2012 02013 TC +1 # IF -, NOT PASS 0
011880,000764: 05,2013 36165 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN,
011881,000765: 05,2014 70265 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
011882,000766: 05,2015 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
011883,000767: 05,2016 02020 TC +2 # CHARACTERS AND CONTINUE.
011884,000768: 05,2017 02024 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
011885,000769: 05,2020 10264 CCS DSPCOUNT
011886,000770: 05,2021 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011887,000771: 05,2022 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
011888,000772: 05,2023 02024 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
011889,000773: 05,2024 40300 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
011890,000774: 05,2025 54300 TS REQRET # SET REQRET +.
011891,000775: 05,2026 05300 TC FLASHOFF
011892,000776: 05,2027 00300 TC REQRET
011893,000777:
011894,000778: 05,2030 0122 ENTEXIT = ENTRET
011895,000779:
011896,000780: 05,2030 00030 LOWVERB OCT 30 # LOWER VERB THAT AVOIDS NOUN TEST
011897,000781:
011898,000782: 05,2031 37665 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
011899,000783: 05,2032 54265 TS DECBRNCH
011900,000784: 05,2033 40266 TESTVB CS VERBREG # IF VERB IS 30-77, SKIP NOUN TEST
011901,000785:
011902,000786:
![]() |
Page 304 |
011904,000788: 05,2034 62030 AD LOWVERB # 30-VB
011905,000789: 05,2035 00006 EXTEND
011906,000790: 05,2036 62116 BZMF VERBFAN # VERB G/ E 30
011907,000791: 05,2037 00006 TESTNN EXTEND # VERB L/ 30
011908,000792: 05,2040 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011909,000793: 05,2041 52006 DXCH Z # ROUTINE.
011910,000794: 05,2042 50124 INDEX MIXBR
011911,000795: 05,2043 02043 TC +0
011912,000796: 05,2044 02046 TC +2 # NORMAL
011913,000797: 05,2045 02176 TC MIXNOUN # MIXED
011914,000798: 05,2046 10132 CCS NNADTEM # NORMAL
011915,000799: 05,2047 02114 TC VERBFAN -2 # NORMAL IF +
011916,000800: 05,2050 02324 TC GODSPALM # NOT IN USE IF +0
011917,000801: 05,2051 02055 TC REQADD # SPECIFY MACHINE CADR IF -
011918,000802: 05,2052 24304 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
011919,000803: 05,2053 05167 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
011920,000804: 05,2054 02102 TC INTMCTBS +2
011921,000805: 05,2055 37641 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
011922,000806: 05,2056 54302 TS CLPASS
011923,000807: 05,2057 45150 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
011924,000808: 05,2060 60122 AD ENTEXIT # FROM EXTERNAL
011925,000809: 05,2061 00006 EXTEND
011926,000810: 05,2062 12064 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
011927,000811: 05,2063 02100 TC INTMCTBS
011928,000812: 05,2064 02256 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
011929,000813: 05,2065 10265 CCS DECBRNCH
011930,000814: 05,2066 02324 TC GODSPALM # ALARM IF DECIMAL USED FOR MCTBS
011931,000815: 05,2067 56272 XCH ZREG # OCTAL USED OK
011932,000816: 05,2070 05161 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
011933,000817: 05,2071 00006 EXTEND
011934,000818: 05,2072 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
011935,000819: 05,2073 52006 DXCH Z # ROUTINE.
011936,000820: 05,2074 02116 TC VERBFAN
011937,000821:
011938,000822: 05,2075 0264 EBANK= DSPCOUNT
011939,000823: 05,2075 02000 34000 LODNNLOC 2CADR LODNNTAB
011940,000824:
011941,000825: 05,2077 77772 NEG5 OCT 77772
011942,000826:
011943,000827: 05,2100 30142 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
011944,000828: 05,2101 05161 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
011945,000829: 05,2102 47654 CS BIT4 # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
011946,000830: 05,2103 70266 MASK VERBREG # CADR TO BE SPECIFIED.
011947,000831: 05,2104 62077 AD NEG5 # MASKING MAKES VB15 LOOK LIKE VB05.
011948,000832: 05,2105 00006 EXTEND
011949,000833: 05,2106 12116 BZF VERBFAN # VB = 05 OR 15, DO NOT DISPLAY CADR.
011950,000834: 05,2107 35177 CAF R3D1 # VB NOT = 05 OR 15, DISPLAY CADR.
011951,000835: 05,2110 54264 TS DSPCOUNT
011952,000836: 05,2111 30304 CA NOUNCADR
011953,000837: 05,2112 03222 TC DSPOCTWD
011954,000838:
011955,000839:
![]() |
Page 305 |
011957,000841: 05,2113 02116 TC VERBFAN
011958,000842:
011959,000843: 05,2114 67657 AD ONE
011960,000844: 05,2115 05161 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
011961,000845: 05,2116 42131 VERBFAN CS LST2CON
011962,000846: 05,2117 60266 AD VERBREG # VERB-LST2CON
011963,000847: 05,2120 10000 CCS A
011964,000848: 05,2121 67657 AD ONE # VERB G/ LST2CON
011965,000849: 05,2122 02124 TC +2
011966,000850: 05,2123 02133 TC VBFANDIR # VERB L/ LST2CON
011967,000851: 05,2124 54140 TS MPAC
011968,000852: 05,2125 05341 TC RELDSP # RELEASE DISPLAY SYST
011969,000853: 05,2126 56140 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
011970,000854: 05,2127 62132 AD LST2CADR
011971,000855: 05,2130 04105 TC BANKJUMP
011972,000856: 05,2131 00040 LST2CON OCT 40 # FIRST LST2 VERB
011973,000857: 05,2132 22000 LST2CADR CADR LST2FAN
011974,000858:
011975,000859: 05,2133 50266 VBFANDIR INDEX VERBREG
011976,000860: 05,2134 32136 CAF VERBTAB
011977,000861: 05,2135 04105 TC BANKJUMP
011978,000862:
011979,000863: 05,2136 12324 VERBTAB CADR GODSPALM # VB00 ILLEGAL
011980,000864: 05,2137 12340 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
011981,000865: 05,2140 12345 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
011982,000866: 05,2141 12352 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
011983,000867: 05,2142 12333 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
011984,000868: 05,2143 12326 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
011985,000869: 05,2144 12445 CADR DECDSP # VB06 DECIMAL DISPLAY
011986,000870: 05,2145 10704 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
011987,000871: 05,2146 11277 CADR DSPALARM # VB10 SPARE
011988,000872: 05,2147 13077 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
011989,000873: 05,2150 13077 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
011990,000874: 05,2151 13077 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
011991,000875: 05,2152 13077 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
011992,000876: 05,2153 13077 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
011993,000877: 05,2154 13077 CADR MONITOR # VB16 MONITOR DECIMAL
011994,000878: 05,2155 13077 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
011995,000879: 05,2156 12324 CADR GODSPALM # VB20 SPARE
011996,000880: 05,2157 12620 CADR ALOAD # VB21 LOAD COMP 1 (R1)
011997,000881: 05,2160 12631 CADR BLOAD # VB22 LOAD COMP 2 (R2)
011998,000882: 05,2161 12646 CADR CLOAD # VB23 LOAD COMP 3 (R3)
011999,000883: 05,2162 12572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
012000,000884: 05,2163 12535 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
012001,000885: 05,2164 12324 CADR GODSPALM # VB26 SPARE
012002,000886: 05,2165 13214 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
012003,000887: # THE FOLLOWING VERBS MAKE NO NOUN TEST
012004,000888: 05,2166 13314 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
012005,000889: 05,2167 13340 CADR VBRQWAIT # VB31 REQUEST WAITLIST
012006,000890: 05,2170 11325 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
012007,000891:
012008,000892:
![]() |
Page 306 |
012010,000894: 05,2171 11310 CADR VBPROC # VB33 PROCEED WITHOUT DATA
012011,000895: 05,2172 11315 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
012012,000896: 05,2173 13414 CADR VBTSTLTS # VB35 TEST LIGHTS
012013,000897: 05,2174 24000 CADR SLAP1 # VB36 FRESH START
012014,000898: 05,2175 13267 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
012015,000899:
012016,000900:
012017,000901:
012018,000902: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
012019,000903:
012020,000904:
012021,000905:
![]() |
Page 307 |
012023,000907: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
012024,000908: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
012025,000909: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
012026,000910: # MIXTEMP.
012027,000911:
012028,000912: 05,2176 10132 MIXNOUN CCS NNADTEM
012029,000913: 05,2177 02203 TC +4 # + IN USE
012030,000914: 05,2200 02324 TC GODSPALM # +0 NOT IN USE
012031,000915: 05,2201 02203 TC +2 # - IN USE
012032,000916: 05,2202 02203 TC +1 # -0 IN USE
012033,000917: 05,2203 46162 CS SIX
012034,000918: 05,2204 60266 AD VERBREG
012035,000919: 05,2205 00006 EXTEND
012036,000920: 05,2206 62210 BZMF +2 # VERB L/E 6
012037,000921: 05,2207 02116 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
012038,000922: 05,2210 37656 CAF TWO
012039,000923: 05,2211 54103 MIXNN1 TS DECOUNT
012040,000924: 05,2212 62235 AD MIXAD
012041,000925: 05,2213 54131 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
012042,000926: 05,2214 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
012043,000927: 05,2215 30134 CA IDAD1TEM # OF NOUN.
012044,000928: 05,2216 54106 TS NOUNTEM
012045,000929: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
012046,000930: # MINOR PART ONLY.
012047,000931: 05,2217 02721 TC SFRUTMIX # GET SF ROUT NUMBER IN A
012048,000932: 05,2220 02236 TC DPTEST
012049,000933: 05,2221 02223 TC MIXNN2 # NO DP
012050,000934: 05,2222 24106 INCR NOUNTEM # DP GET MINOR PART
012051,000935: 05,2223 30106 MIXNN2 CA NOUNTEM
012052,000936: 05,2224 75234 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
012053,000937: 05,2225 05171 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
012054,000938: 05,2226 50000 INDEX A # PICK UP C(ESUBK) NOT DP
012055,000939: 05,2227 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
012056,000940: 05,2230 50131 INDEX NOUNADD
012057,000941: 05,2231 56000 XCH 0 # STORE IN MIXTEM + K
012058,000942: 05,2232 10103 CCS DECOUNT
012059,000943: 05,2233 02211 TC MIXNN1
012060,000944: 05,2234 02116 TC VERBFAN
012061,000945:
012062,000946: 05,2235 00111 MIXAD TC MIXTEMP
012063,000947:
012064,000948:
012065,000949:
012066,000950: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
012067,000951: # RETURNS TO L+1 IF NO DP.
012068,000952: # RETURNS TO L+2 IF DP.
012069,000953:
012070,000954: 05,2236 50000 DPTEST INDEX A
012071,000955: 05,2237 12240 TCF +1
012072,000956: 05,2240 00002 TC Q # OCTAL ONLY NO DP
012073,000957:
012074,000958:
![]() |
Page 308 |
012076,000960: 05,2241 00002 TC Q # FRACT NO DP
012077,000961: 05,2242 00002 TC Q # DEG NO DP
012078,000962: 05,2243 00002 TC Q # ARITH NO DP
012079,000963: 05,2244 12250 TCF DPTEST1 # DP1OUT
012080,000964: 05,2245 12250 TCF DPTEST1 # DP2OUT
012081,000965: 05,2246 00002 TC Q # OPDEG NO DP
012082,000966: 05,2247 12250 TCF DPTEST1 # DP3OUT
012083,000967: 05,2250 50002 DPTEST1 INDEX Q
012084,000968: 05,2251 00001 TC 1 # RETURN TO L+2
012085,000969:
012086,000970:
012087,000971:
012088,000972: 05,2252 35175 REQDATX CAF R1D1
012089,000973: 05,2253 12257 TCF REQCOM
012090,000974: 05,2254 35176 REQDATY CAF R2D1
012091,000975: 05,2255 12257 TCF REQCOM
012092,000976: 05,2256 35177 REQDATZ CAF R3D1
012093,000977: 05,2257 54264 REQCOM TS DSPCOUNT
012094,000978: 05,2260 40002 CS Q
012095,000979: 05,2261 54300 TS REQRET
012096,000980: 05,2262 04063 TC BANKCALL
012097,000981: 05,2263 10476 CADR 5BLANK
012098,000982: 05,2264 05274 TC FLASHON
012099,000983: 05,2265 45150 CS ENDINST
012100,000984: 05,2266 60122 AD ENTEXIT
012101,000985: 05,2267 00006 EXTEND
012102,000986: 05,2270 12273 BZF ENDRQDAT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
012103,000987: 05,2271 47665 CS ZERO # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
012104,000988: 05,2272 54323 TS CADRSTOR # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
012105,000989: 05,2273 00122 ENDRQDAT TC ENTEXIT
012106,000990:
012107,000991: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
012108,000992: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
012109,000993:
012110,000994:
012111,000995: 05,2274 54267 TS NOUNREG
012112,000996: 05,2275 56002 UPDATNN XCH Q
012113,000997: 05,2276 54103 TS UPDATRET
012114,000998: 05,2277 00006 EXTEND
012115,000999: 05,2300 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012116,001000: 05,2301 52006 DXCH Z # ROUTINE.
012117,001001: 05,2302 10132 CCS NNADTEM
012118,001002: 05,2303 67657 AD ONE # NORMAL
012119,001003: 05,2304 12307 TCF PUTADD
012120,001004: 05,2305 12310 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
012121,001005: 05,2306 12310 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
012122,001006: 05,2307 05161 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
012123,001007: 05,2310 35240 CAF ND1
012124,001008: 05,2311 54264 TS DSPCOUNT
012125,001009:
012126,001010:
![]() |
Page 309 |
012128,001012: 05,2312 30267 CA NOUNREG
012129,001013: 05,2313 12322 TCF UPDAT1
012130,001014:
012131,001015: 05,2314 54266 TS VERBREG
012132,001016: 05,2315 56002 UPDATVB XCH Q
012133,001017: 05,2316 54103 TS UPDATRET
012134,001018: 05,2317 35237 CAF VD1
012135,001019: 05,2320 54264 TS DSPCOUNT
012136,001020: 05,2321 30266 CA VERBREG
012137,001021: 05,2322 03255 UPDAT1 TC DSP2BIT
012138,001022: 05,2323 00103 TC UPDATRET
012139,001023:
012140,001024:
012141,001025:
012142,001026: 05,2324 04102 GODSPALM TC POSTJUMP
012143,001027: 05,2325 11277 CADR DSPALARM
012144,001028:
012145,001029:
![]() |
Page 310 |
012147,001031: # NOUN TABLES
012148,001032: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
012149,001033: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
012150,001034: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
012151,001035: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
012152,001036: # OF LAST MACHINE CADR SUPPLIED.
012153,001037:
012154,001038: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
012155,001039: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
012156,001040:
012157,001041: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
012158,001042:
012159,001043: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
012160,001044: # N-S ARE THE SF ROUTINE CODE NUMBER.
012161,001045: # P-S ARE THE SF CONSTANT CODE NUMBER.
012162,001046:
012163,001047: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
012164,001048: # N-S ARE THE SF CONSTANT2 CODE NUMBER
012165,001049: # P-S ARE THE SF CONSTANT1 CODE NUMBER
012166,001050: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
012167,001051: # P-S ARE THE SF CONSTANT1 CODE NUMBER
012168,001052: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
012169,001053:
012170,001054: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
012171,001055: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
012172,001056: # THE FIRST OF THESE ENTRIES.
012173,001057: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
012174,001058: # THEY ARE LISTED IN ORDER OF ASCENDING K.
012175,001059:
012176,001060: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
012177,001061: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
012178,001062: # QQQQQRRRRRSSSSS
012179,001063: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
012180,001064: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
012181,001065: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
012182,001066: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
012183,001067: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
012184,001068:
012185,001069: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
012186,001070: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
012187,001071: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
012188,001072: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
012189,001073: # AN UNCONTOLLED NUMBER OF COMPONENTS.
012190,001074:
012191,001075:
012192,001076:
012193,001077: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
012194,001078: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
012195,001079:
012196,001080:
![]() |
Page 311 |
012198,001082: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
012199,001083: # BEFORE EACH ENTER. IF NOT, ALARM.
012200,001084:
012201,001085:
![]() |
Page 312 |
012203,001087: # DISPLAY VERBS
012204,001088: 05,2326 47656 DSPABC CS TWO
012205,001089: 05,2327 02376 TC COMPTEST
012206,001090: 05,2330 50131 INDEX NOUNADD
012207,001091: 05,2331 40002 CS 2
012208,001092: 05,2332 56116 XCH BUF +2
012209,001093: 05,2333 47657 DSPAB CS ONE
012210,001094: 05,2334 02376 TC COMPTEST
012211,001095: 05,2335 50131 INDEX NOUNADD
012212,001096: 05,2336 40001 CS 1
012213,001097: 05,2337 56115 XCH BUF +1
012214,001098: 05,2340 02420 DSPA TC TSTFORDP
012215,001099: 05,2341 50131 INDEX NOUNADD
012216,001100: 05,2342 40000 CS 0
012217,001101: 05,2343 56114 DSPCOM1 XCH BUF
012218,001102: 05,2344 02357 TC DSPCOM2
012219,001103: 05,2345 47657 DSPB CS ONE
012220,001104: 05,2346 02376 TC COMPTEST
012221,001105: 05,2347 50131 INDEX NOUNADD
012222,001106: 05,2350 40001 CS 1
012223,001107: 05,2351 02343 TC DSPCOM1
012224,001108: 05,2352 47656 DSPC CS TWO
012225,001109: 05,2353 02376 TC COMPTEST
012226,001110: 05,2354 50131 INDEX NOUNADD
012227,001111: 05,2355 40002 CS 2
012228,001112: 05,2356 02343 TC DSPCOM1
012229,001113: 05,2357 47656 DSPCOM2 CS TWO # A B C AB ABC
012230,001114: 05,2360 60266 AD VERBREG # -1 -0 +1 +2 +3 IN A
012231,001115: 05,2361 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
012232,001116: 05,2362 02365 TC DSPCOM3
012233,001117: 05,2363 00122 TC ENTEXIT
012234,001118: 05,2364 02365 TC +1
012235,001119: 05,2365 54106 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
012236,001120: 05,2366 50000 INDEX A
012237,001121: 05,2367 35175 CAF R1D1
012238,001122: 05,2370 54264 TS DSPCOUNT
012239,001123: 05,2371 50106 INDEX DISTEM
012240,001124: 05,2372 40114 CS BUF
012241,001125: 05,2373 03222 TC DSPOCTWD
012242,001126: 05,2374 56106 XCH DISTEM
012243,001127: 05,2375 02361 TC DSPCOM2 +2
012244,001128:
012245,001129: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
012246,001130: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
012247,001131: # NOUN 01 IS EXCLUDED FROM TEST.
012248,001132: 05,2376 54107 COMPTEST TS SFTEMP1 # - VERB COMP
012249,001133: 05,2377 22002 LXCH Q
012250,001134: 05,2400 47657 COMPTST1 CS ONE
012251,001135: 05,2401 60267 AD NOUNREG
012252,001136: 05,2402 00006 EXTEND
012253,001137:
012254,001138:
![]() |
Page 313 |
012256,001140: 05,2403 12417 BZF NDCMPTST # NOUN = 01, ANY COMP OK
012257,001141: 05,2404 50124 INDEX MIXBR # NOUN NOT = 01.
012258,001142: 05,2405 32442 CAF COMPICK -1
012259,001143: 05,2406 50000 INDEX A
012260,001144: 05,2407 30000 CA 0
012261,001145: 05,2410 75226 MASK HI5
012262,001146: 05,2411 05207 TC LEFT5 # NOUN COMP
012263,001147: 05,2412 60107 AD SFTEMP1 # NOUN COMP - VERB COMP
012264,001148: 05,2413 10000 CCS A
012265,001149: 05,2414 00001 TC L # NOUN COMP G/ VERB COMP
012266,001150: 05,2415 05464 TC CCSHOLE
012267,001151: 05,2416 02324 TC GODSPALM # NOUN COMP L/ VERB COMP
012268,001152: 05,2417 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
012269,001153:
012270,001154:
012271,001155:
012272,001156: 05,2420 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
012273,001157: 05,2421 30132 CA NNADTEM
012274,001158: 05,2422 67657 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
012275,001159: 05,2423 00006 EXTEND
012276,001160: 05,2424 12436 BZF CHANDSP
012277,001161: 05,2425 50124 INDEX MIXBR
012278,001162: 05,2426 02426 TC +0
012279,001163: 05,2427 02431 TC +2 # NORMAL
012280,001164: 05,2430 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
012281,001165: 05,2431 02713 TC SFRUTNOR
012282,001166: 05,2432 02236 TC DPTEST
012283,001167: 05,2433 00001 TC L # NO DP
012284,001168: 05,2434 24131 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
012285,001169: 05,2435 00001 TC L
012286,001170:
012287,001171:
012288,001172:
012289,001173: 05,2436 00006 CHANDSP EXTEND
012290,001174: 05,2437 50304 INDEX NOUNCADR
012291,001175: 05,2440 00000 READ 0
012292,001176: 05,2441 40000 CS A
012293,001177: 05,2442 12343 TCF DSPCOM1
012294,001178:
012295,001179:
012296,001180:
012297,001181: 05,2443 00133 COMPICK ADRES NNTYPTEM
012298,001182: 05,2444 00132 ADRES NNADTEM
012299,001183:
012300,001184: 05,2445 50124 DECDSP INDEX MIXBR # NORMAL MIXED
012301,001185: 05,2446 32442 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
012302,001186: 05,2447 50000 INDEX A
012303,001187: 05,2450 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
012304,001188: 05,2451 75226 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
012305,001189: 05,2452 05207 TC LEFT5
012306,001190:
012307,001191:
![]() |
Page 314 |
012309,001193: 05,2453 54103 TS DECOUNT # COMP NUMBER INTO DECOUNT
012310,001194: 05,2454 54106 DSPDCGET TS DECTEM # PICKS UP DATA
012311,001195: 05,2455 60131 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
012312,001196: 05,2456 50000 INDEX A
012313,001197: 05,2457 40000 CS 0
012314,001198: 05,2460 50106 INDEX DECTEM
012315,001199: 05,2461 56270 XCH XREG # CANT USE BUF SINCE DMP USES IT.
012316,001200: 05,2462 10106 CCS DECTEM
012317,001201: 05,2463 02454 TC DSPDCGET # MORE TO GET
012318,001202: 05,2464 37665 DSPDCPUT CAF ZERO # DISPLAYS DATA
012319,001203: 05,2465 54141 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
012320,001204: 05,2466 54142 TS MPAC +2
012321,001205: 05,2467 50103 INDEX DECOUNT
012322,001206: 05,2470 35175 CAF R1D1
012323,001207: 05,2471 54264 TS DSPCOUNT
012324,001208: 05,2472 50103 INDEX DECOUNT
012325,001209: 05,2473 40270 CS XREG
012326,001210: 05,2474 54140 TS MPAC
012327,001211: 05,2475 02734 TC SFCONUM # 2X ( SF CON NUMB ) IN A
012328,001212: 05,2476 54107 TS SFTEMP1
012329,001213: 05,2477 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
012330,001214: 05,2500 32512 DCA GTSFOUTL # READING ROUTINE.
012331,001215: 05,2501 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
012332,001216: 05,2502 50124 INDEX MIXBR
012333,001217: 05,2503 02503 TC +0
012334,001218: 05,2504 02507 TC DSPSFNOR
012335,001219: 05,2505 02721 TC SFRUTMIX
012336,001220: 05,2506 02522 TC DECDSP3
012337,001221:
012338,001222: 05,2507 02713 DSPSFNOR TC SFRUTNOR
012339,001223: 05,2510 02522 TC DECDSP3
012340,001224:
012341,001225: 05,2511 0264 EBANK= DSPCOUNT
012342,001226: 05,2511 02037 34000 GTSFOUTL 2CADR GTSFOUT
012343,001227:
012344,001228: 05,2513 04063 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
012345,001229: 05,2514 11101 CADR DSPDECWD
012346,001230: 05,2515 10103 CCS DECOUNT
012347,001231: 05,2516 02520 TC +2
012348,001232: 05,2517 00122 TC ENTEXIT
012349,001233: 05,2520 54103 TS DECOUNT
012350,001234: 05,2521 02464 TC DSPDCPUT # MORE TO DISPLAY
012351,001235:
012352,001236: 05,2522 50000 DECDSP3 INDEX A
012353,001237: 05,2523 32525 CAF SFOUTABR
012354,001238: 05,2524 04105 TC BANKJUMP
012355,001239:
012356,001240:
![]() |
Page 315 |
012358,001242: 05,2525 11277 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
012359,001243: 05,2526 12513 CADR DSPDCEND
012360,001244: 05,2527 10555 CADR DEGOUTSF
012361,001245: 05,2530 10642 CADR ARTOUTSF
012362,001246: 05,2531 10647 CADR DP1OUTSF
012363,001247: 05,2532 10654 CADR DP2OUTSF
012364,001248: 05,2533 10563 CADR OPDEGOUT
012365,001249: 05,2534 10656 CADR DP3OUTSF
012366,001250: 05,2535 ENDRTOUT EQUALS
012367,001251:
012368,001252:
012369,001253:
012370,001254: # THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
012371,001255: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
012372,001256:
012373,001257:
012374,001258:
012375,001259: 04,2555 SETLOC BLANKCON +1
012376,001260:
012377,001261: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
012378,001262: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
012379,001263:
012380,001264: 04,2555 37665 DEGOUTSF CAF ZERO
012381,001265: 04,2556 54142 TS MPAC +2 # SET INDEX FOR FULL SCALE
012382,001266: 04,2557 02614 TC FIXRANGE
012383,001267: 04,2560 02562 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
012384,001268: 04,2561 02607 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
012385,001269: 04,2562 02625 TC DEGCOM
012386,001270:
012387,001271: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
012388,001272:
012389,001273: 04,2563 10140 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
012390,001274: 04,2564 56140 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
012391,001275: 04,2565 02570 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
012392,001276: 04,2566 02577 TC NEGOPT # IF NEG NON ZERO
012393,001277: 04,2567 67667 AD NEG1 # IF NEG ZERO SUBTRACT 1
012394,001278: 04,2570 62641 AD 20BIAS
012395,001279: 04,2571 54140 BIASCOM TS MPAC # TEST FOR OVERFLOW
012396,001280: 04,2572 02575 TC +3 # NO OVFLOW
012397,001281: 04,2573 37641 CAF BIT15 # IF OVFLOW
012398,001282: 04,2574 26140 ADS MPAC
012399,001283: 04,2575 37656 CAF TWO # SET MULTIPLIER TO .45
012400,001284: 04,2576 02556 TC DEGOUTSF +1
012401,001285:
012402,001286: 04,2577 56140 NEGOPT XCH MPAC # NEGATIVE CASE
012403,001287: 04,2600 62641 AD 20BIAS
012404,001288: 04,2601 10000 CCS A
012405,001289: 04,2602 02571 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
012406,001290: 04,2603 05464 TC CCSHOLE
012407,001291: 04,2604 67657 AD ONE # IF NEG RESTORE SUM
012408,001292:
012409,001293:
![]() |
Page 316 |
012411,001295: 04,2605 40000 COM # IF NEG 0 LEAVE NEG 0
012412,001296: 04,2606 02571 TC BIASCOM
012413,001297:
012414,001298: 04,2607 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
012415,001299: 04,2610 50142 INDEX MPAC +2 # DP AUGMENTER CONSTANT
012416,001300: 04,2611 32636 DCA DEGTAB
012417,001301: 04,2612 52110 DXCH SFTEMP1
012418,001302: 04,2613 00002 TC Q
012419,001303:
012420,001304: 04,2614 10140 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
012421,001305: 04,2615 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
012422,001306: 04,2616 00002 TC Q # MASKING OUT THE SIGN BIT
012423,001307: 04,2617 12620 TCF +1
012424,001308: 04,2620 47641 CS BIT15
012425,001309: 04,2621 70140 MASK MPAC
012426,001310: 04,2622 54140 TS MPAC
012427,001311: 04,2623 50002 INDEX Q
012428,001312: 04,2624 00001 TC 1
012429,001313:
012430,001314: 04,2625 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
012431,001315: 04,2626 50142 INDEX MPAC +2 # ADDS AUGMENTER.
012432,001316: 04,2627 32636 DCA DEGTAB
012433,001317: 04,2630 52141 DXCH MPAC # ADJUSTED ANGLE IN A
012434,001318: 04,2631 07266 TC SHORTMP
012435,001319: 04,2632 52110 DXCH SFTEMP1
012436,001320: 04,2633 20141 DAS MPAC
012437,001321: 04,2634 02645 TC SCOUTEND
012438,001322:
012439,001323: 04,2635 05605 DEGTAB OCT 05605 # HI PART OF .18
012440,001324: 04,2636 03656 OCT 03656 # LOW PART OF .18
012441,001325: 04,2637 16314 OCT 16314 # HI PART OF .45
012442,001326: 04,2640 31463 OCT 31463 # LO PART OF .45
012443,001327:
012444,001328: 04,2641 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
012445,001329:
012446,001330: 04,2642 52110 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
012447,001331: 04,2643 52141 DXCH MPAC
012448,001332: 04,2644 07266 TC SHORTMP
012449,001333: 04,2645 04102 SCOUTEND TC POSTJUMP
012450,001334: 04,2646 12513 CADR DSPDCEND
012451,001335:
012452,001336: 04,2647 02661 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012453,001337: 04,2650 56142 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
012454,001338: 04,2651 56141 XCH MPAC +1 # BY B14.
012455,001339: 04,2652 54140 TS MPAC
012456,001340: 04,2653 02645 TC SCOUTEND
012457,001341:
012458,001342:
![]() |
Page 317 |
012460,001344: 04,2654 02661 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012461,001345: 04,2655 02645 TC SCOUTEND
012462,001346:
012463,001347:
012464,001348:
012465,001349: 04,2656 02661 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
012466,001350: 04,2657 03054 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
012467,001351: 04,2660 02645 TC SCOUTEND
012468,001352:
012469,001353:
012470,001354:
012471,001355: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
012472,001356: # THIS IS NEEDED FOR TIME DISPLAY.
012473,001357:
012474,001358: 04,2661 56002 DPOUT XCH Q
012475,001359: 04,2662 54105 TS OVFIND
012476,001360: 04,2663 50124 INDEX MIXBR
012477,001361: 04,2664 02664 TC +0
012478,001362: 04,2665 02702 TC DPOUTNOR
012479,001363: 04,2666 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
012480,001364: 04,2667 30134 CA IDAD1TEM # OF NOUN.
012481,001365: 04,2670 75234 MASK LOW11 # E SUBK
012482,001366: 04,2671 05171 TC SETEBANK # SET EB, LEAVE EADRES IN A.
012483,001367: 04,2672 00006 DPOUTCOM EXTEND
012484,001368: 04,2673 50000 INDEX A # MIXED NORMAL
012485,001369: 04,2674 30001 DCA 0 # C(ESUBK) C(E)
012486,001370: 04,2675 52141 DXCH MPAC # C((E SUBK)+1) C(E+1)
012487,001371: 04,2676 07235 TC TPAGREE
012488,001372: 04,2677 07063 TC DMP
012489,001373: 04,2700 00107 ADRES SFTEMP1
012490,001374: 04,2701 00105 TC OVFIND
012491,001375:
012492,001376: 04,2702 30131 DPOUTNOR CA NOUNADD # E
012493,001377: 04,2703 02672 TC DPOUTCOM
012494,001378:
012495,001379:
012496,001380:
012497,001381: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
012498,001382: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
012499,001383: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
012500,001384: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
012501,001385: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
012502,001386: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
012503,001387:
012504,001388:
012505,001389:
012506,001390: 04,2704 50124 DSPDPDEC INDEX MIXBR
012507,001391: 04,2705 02705 TC +0
012508,001392: 04,2706 02710 TC +2 # NORMAL NOUN
012509,001393: 04,2707 03277 TC DSPALARM
012510,001394:
![]() |
Page 318 |
012512,001396: 04,2710 00006 EXTEND
012513,001397: 04,2711 50131 INDEX NOUNADD
012514,001398: 04,2712 30001 DCA 0
012515,001399: 04,2713 52141 DXCH MPAC
012516,001400: 04,2714 35175 CAF R1D1
012517,001401: 04,2715 54264 TS DSPCOUNT
012518,001402: 04,2716 37665 CAF ZERO
012519,001403: 04,2717 54142 TS MPAC +2
012520,001404: 04,2720 07235 TC TPAGREE
012521,001405: 04,2721 03155 TC DSP2DEC
012522,001406: 04,2722 00122 ENDDPDEC TC ENTEXIT
012523,001407:
![]() |
Page 319 |
012525,001409: # LOAD VERBS
012526,001410:
012527,001411:
012528,001412:
012529,001413: 05,2535 SETLOC ENDRTOUT
012530,001414:
012531,001415: 05,2535 47656 ABCLOAD CS TWO
012532,001416: 05,2536 02376 TC COMPTEST
012533,001417: 05,2537 32673 CAF VBSP1LD
012534,001418: 05,2540 02314 TC UPDATVB -1
012535,001419: 05,2541 02252 TC REQDATX
012536,001420: 05,2542 32674 CAF VBSP2LD
012537,001421: 05,2543 02314 TC UPDATVB -1
012538,001422: 05,2544 02254 TC REQDATY
012539,001423: 05,2545 32675 CAF VBSP3LD
012540,001424: 05,2546 02314 TC UPDATVB -1
012541,001425: 05,2547 02256 TC REQDATZ
012542,001426:
012543,001427:
012544,001428:
012545,001429: 05,2550 46162 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
012546,001430: 05,2551 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
012547,001431: 05,2552 00006 EXTEND
012548,001432: 05,2553 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012549,001433: 05,2554 52006 DXCH Z # ROUTINE.
012550,001434: 05,2555 37665 CAF ZERO # X COMP
012551,001435: 05,2556 02762 TC PUTCOM
012552,001436: 05,2557 50131 INDEX NOUNADD
012553,001437: 05,2560 54000 TS 0
012554,001438: 05,2561 37657 CAF ONE # Y COMP
012555,001439: 05,2562 02762 TC PUTCOM
012556,001440: 05,2563 50131 INDEX NOUNADD
012557,001441: 05,2564 54001 TS 1
012558,001442: 05,2565 37656 CAF TWO # Z COMP
012559,001443: 05,2566 02762 TC PUTCOM
012560,001444: 05,2567 50131 INDEX NOUNADD
012561,001445: 05,2570 54002 TS 2
012562,001446: 05,2571 02663 TC LOADLV
012563,001447:
012564,001448: 05,2572 47657 ABLOAD CS ONE
012565,001449: 05,2573 02376 TC COMPTEST
012566,001450: 05,2574 32673 CAF VBSP1LD
012567,001451: 05,2575 02314 TC UPDATVB -1
012568,001452: 05,2576 02252 TC REQDATX
012569,001453: 05,2577 32674 CAF VBSP2LD
012570,001454: 05,2600 02314 TC UPDATVB -1
012571,001455: 05,2601 02254 TC REQDATY
012572,001456: 05,2602 47664 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
012573,001457: 05,2603 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
012574,001458: 05,2604 00006 EXTEND
012575,001459:
![]() |
Page 320 |
012577,001461: 05,2605 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012578,001462: 05,2606 52006 DXCH Z # ROUTINE.
012579,001463: 05,2607 37665 CAF ZERO # X COMP
012580,001464: 05,2610 02762 TC PUTCOM
012581,001465: 05,2611 50131 INDEX NOUNADD
012582,001466: 05,2612 54000 TS 0
012583,001467: 05,2613 37657 CAF ONE # Y COMP
012584,001468: 05,2614 02762 TC PUTCOM
012585,001469: 05,2615 50131 INDEX NOUNADD
012586,001470: 05,2616 54001 TS 1
012587,001471: 05,2617 02663 TC LOADLV
012588,001472:
012589,001473: 05,2620 02252 ALOAD TC REQDATX
012590,001474: 05,2621 00006 EXTEND
012591,001475: 05,2622 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012592,001476: 05,2623 52006 DXCH Z # ROUTINE.
012593,001477: 05,2624 37665 CAF ZERO # X COMP
012594,001478: 05,2625 02762 TC PUTCOM
012595,001479: 05,2626 50131 INDEX NOUNADD
012596,001480: 05,2627 54000 TS 0
012597,001481: 05,2630 02663 TC LOADLV
012598,001482:
012599,001483: 05,2631 47657 BLOAD CS ONE
012600,001484: 05,2632 02376 TC COMPTEST
012601,001485: 05,2633 37641 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
012602,001486: 05,2634 54302 TS CLPASS
012603,001487: 05,2635 02254 TC REQDATY
012604,001488: 05,2636 00006 EXTEND
012605,001489: 05,2637 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012606,001490: 05,2640 52006 DXCH Z # ROUTINE.
012607,001491: 05,2641 37657 CAF ONE
012608,001492: 05,2642 02762 TC PUTCOM
012609,001493: 05,2643 50131 INDEX NOUNADD
012610,001494: 05,2644 54001 TS 1
012611,001495: 05,2645 02663 TC LOADLV
012612,001496:
012613,001497: 05,2646 47656 CLOAD CS TWO
012614,001498: 05,2647 02376 TC COMPTEST
012615,001499: 05,2650 37641 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
012616,001500: 05,2651 54302 TS CLPASS
012617,001501: 05,2652 02256 TC REQDATZ
012618,001502: 05,2653 00006 EXTEND
012619,001503: 05,2654 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
012620,001504: 05,2655 52006 DXCH Z # ROUTINE.
012621,001505: 05,2656 37656 CAF TWO
012622,001506: 05,2657 02762 TC PUTCOM
012623,001507: 05,2660 50131 INDEX NOUNADD
012624,001508: 05,2661 54002 TS 2
012625,001509: 05,2662 02663 TC LOADLV
012626,001510:
![]() |
Page 321 |
012628,001512: 05,2663 37665 LOADLV CAF ZERO
012629,001513: 05,2664 54265 TS DECBRNCH
012630,001514: 05,2665 47665 CS ZERO
012631,001515: 05,2666 54301 TS LOADSTAT
012632,001516: 05,2667 45237 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
012633,001517: 05,2670 54264 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
012634,001518: 05,2671 04102 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
012635,001519: 05,2672 11422 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
012636,001520:
012637,001521: 05,2673 00021 VBSP1LD OCT 21 # VB21 = ALOAD
012638,001522: 05,2674 00022 VBSP2LD OCT 22 # VB22 = BLOAD
012639,001523: 05,2675 00023 VBSP3LD OCT 23 # VB23 = CLOAD
012640,001524:
012641,001525:
012642,001526:
012643,001527: 05,2676 54103 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
012644,001528: 05,2677 40265 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
012645,001529: 05,2700 54021 TS SR
012646,001530: 05,2701 40021 CS SR
012647,001531: 05,2702 40021 CS SR # SHIFTED RIGHT 2
012648,001532: 05,2703 10000 CCS A # DEC COMP BITS IN LOW 3
012649,001533: 05,2704 12706 TCF +2 # SOME ONES IN LOW 3
012650,001534: 05,2705 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
012651,001535: 05,2706 60103 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
012652,001536: 05,2707 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
012653,001537: 05,2710 12712 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
012654,001538: 05,2711 02324 TC GODSPALM
012655,001539: 05,2712 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
012656,001540:
012657,001541:
012658,001542:
012659,001543: 05,2713 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
012660,001544: 05,2714 54100 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
012661,001545: 05,2715 35225 CAF MID5
012662,001546: 05,2716 70133 MASK NNTYPTEM
012663,001547: 05,2717 05200 TC RIGHT5
012664,001548: 05,2720 00100 TC EXITEM # SF ROUTINE NUMBER IN A
012665,001549:
012666,001550: 05,2721 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
012667,001551: 05,2722 54100 TS EXITEM
012668,001552: 05,2723 50103 INDEX DECOUNT
012669,001553: 05,2724 32753 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
012670,001554: 05,2725 54001 TS L
012671,001555: 05,2726 50103 INDEX DECOUNT
012672,001556: 05,2727 35224 CAF LOW5 # LOW5, MID5, OR HI5 IN A
012673,001557: 05,2730 70137 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
012674,001558: 05,2731 50001 INDEX L
012675,001559: 05,2732 00000 TC 0
012676,001560: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
012677,001561: 05,2733 00100 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
012678,001562:
![]() |
Page 322 |
012680,001564: 05,2734 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
012681,001565: 05,2735 54100 TS EXITEM
012682,001566: 05,2736 50124 INDEX MIXBR
012683,001567: 05,2737 02737 TC +0
012684,001568: 05,2740 02756 TC CONUMNOR # NORMAL NOUN
012685,001569: 05,2741 50103 INDEX DECOUNT # MIXED NOUN
012686,001570: 05,2742 32753 CAF DISPLACE
012687,001571: 05,2743 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
012688,001572: 05,2744 50103 INDEX DECOUNT
012689,001573: 05,2745 35224 CAF LOW5
012690,001574: 05,2746 70133 MASK NNTYPTEM
012691,001575: 05,2747 50001 INDEX L
012692,001576: 05,2750 00000 TC 0
012693,001577: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
012694,001578: 05,2751 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
012695,001579: 05,2752 00100 TC EXITEM
012696,001580:
012697,001581: 05,2753 02712 DISPLACE TC GOQ
012698,001582: 05,2754 05200 TC RIGHT5
012699,001583: 05,2755 05207 TC LEFT5
012700,001584:
012701,001585: 05,2756 35224 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
012702,001586: 05,2757 70133 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
012703,001587: 05,2760 60000 DOUBLE
012704,001588: 05,2761 00100 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
012705,001589:
012706,001590:
012707,001591:
012708,001592: 05,2762 54103 PUTCOM TS DECOUNT
012709,001593: 05,2763 56002 XCH Q
012710,001594: 05,2764 54101 TS DECRET
012711,001595: 05,2765 37665 CAF ZERO
012712,001596: 05,2766 54105 TS OVFIND
012713,001597: 05,2767 50103 INDEX DECOUNT
012714,001598: 05,2770 56273 XCH XREGLP
012715,001599: 05,2771 54141 TS MPAC +1
012716,001600: 05,2772 50103 INDEX DECOUNT
012717,001601: 05,2773 56270 XCH XREG
012718,001602: 05,2774 54140 TS MPAC
012719,001603: 05,2775 50124 INDEX MIXBR
012720,001604: 05,2776 02776 TC +0
012721,001605: 05,2777 03023 TC PUTNORM # NORMAL NOUN
012722,001606: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
012723,001607: 05,3000 50103 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
012724,001608: 05,3001 30134 CA IDAD1TEM # OF NOUN.
012725,001609: 05,3002 75234 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
012726,001610: 05,3003 05161 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
012727,001611: 05,3004 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
012728,001612: 05,3005 60103 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
012729,001613: 05,3006 54131 TS NOUNADD
012730,001614:
![]() |
Page 323 |
012732,001616: 05,3007 10265 CCS DECBRNCH
012733,001617: 05,3010 03051 TC PUTDECSF # + DEC
012734,001618: 05,3011 02721 TC SFRUTMIX # +0 OCTAL
012735,001619: 05,3012 02236 TC DPTEST
012736,001620: 05,3013 03040 TC PUTCOM2 # NO DP
012737,001621: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
012738,001622: # +0 INTO MAJOR PART. SET NOUNADD FOR
012739,001623: # LOADING OCTAL WORD INTO MINOR PART.
012740,001624: 05,3014 24131 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
012741,001625: 05,3015 30131 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
012742,001626: 05,3016 26103 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
012743,001627: 05,3017 37665 CAF ZERO # NOUNADD SET FOR MINOR PART
012744,001628: 05,3020 50103 INDEX DECOUNT
012745,001629: 05,3021 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
012746,001630: 05,3022 03040 TC PUTCOM2
012747,001631:
012748,001632: 05,3023 05167 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
012749,001633: 05,3024 10265 CCS DECBRNCH
012750,001634: 05,3025 03051 TC PUTDECSF # + DEC
012751,001635: 05,3026 02713 TC SFRUTNOR # +0 OCTAL
012752,001636: 05,3027 02236 TC DPTEST
012753,001637: 05,3030 03034 TC PUTCOM2 -4 # NO DP
012754,001638: 05,3031 37665 CAF ZERO # DP
012755,001639: 05,3032 54103 TS DECOUNT
012756,001640: 05,3033 03014 TC PUTDPCOM
012757,001641:
012758,001642: 05,3034 30132 CA NNADTEM
012759,001643: 05,3035 67657 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
012760,001644: 05,3036 00006 EXTEND
012761,001645: 05,3037 13044 BZF CHANLOAD
012762,001646: 05,3040 56140 PUTCOM2 XCH MPAC
012763,001647: 05,3041 00101 TC DECRET
012764,001648:
012765,001649: 05,3042 0264 EBANK= DSPCOUNT
012766,001650: 05,3042 02045 34000 GTSFINLC 2CADR GTSFIN
012767,001651:
012768,001652: 05,3044 56140 CHANLOAD XCH MPAC
012769,001653: 05,3045 00006 EXTEND
012770,001654: 05,3046 50304 INDEX NOUNCADR
012771,001655: 05,3047 01000 WRITE 0
012772,001656: 05,3050 02663 TC LOADLV
012773,001657:
012774,001658:
012775,001659:
012776,001660: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
012777,001661:
012778,001662: 05,3051 02734 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
012779,001663: 05,3052 54107 TS SFTEMP1
012780,001664:
![]() |
Page 324 |
012782,001666: 05,3053 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
012783,001667: 05,3054 33043 DCA GTSFINLC # READING ROUTINE.
012784,001668: 05,3055 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
012785,001669: 05,3056 50124 INDEX MIXBR
012786,001670: 05,3057 03057 TC +0
012787,001671: 05,3060 03063 TC PUTSFNOR
012788,001672: 05,3061 02721 TC SFRUTMIX
012789,001673: 05,3062 03064 TC PUTDCSF2
012790,001674: 05,3063 02713 PUTSFNOR TC SFRUTNOR
012791,001675:
012792,001676: 05,3064 50000 PUTDCSF2 INDEX A
012793,001677: 05,3065 33067 CAF SFINTABR
012794,001678: 05,3066 04105 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
012795,001679: 05,3067 11277 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
012796,001680:
012797,001681: 05,3070 11003 CADR BINROUND
012798,001682: 05,3071 10723 CADR DEGINSF
012799,001683: 05,3072 10773 CADR ARTHINSF
012800,001684: 05,3073 11023 CADR DPINSF
012801,001685: 05,3074 11050 CADR DPINSF2
012802,001686: 05,3075 11006 CADR OPTDEGIN
012803,001687: 05,3076 11023 CADR DPINSF # SAME AS ARITHDP1
012804,001688: 05,3077 ENDRUTIN EQUALS
012805,001689:
012806,001690:
012807,001691:
012808,001692: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
012809,001693: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
012810,001694:
012811,001695:
012812,001696:
012813,001697: 04,2723 SETLOC ENDDPDEC +1
012814,001698:
012815,001699: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
012816,001700:
012817,001701: 04,2723 07063 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
012818,001702: 04,2724 02766 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
012819,001703: 04,2725 10141 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
012820,001704: 04,2726 37645 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
012821,001705: 04,2727 02731 TC +2 # WHEN SHIFTED LEFT AND ALARM.
012822,001706: 04,2730 47645 CS BIT11
012823,001707: 04,2731 60141 AD MPAC +1
012824,001708: 04,2732 03066 TC 2ROUND +2
012825,001709: 04,2733 05263 TC TPSL1 # LEFT 1
012826,001710: 04,2734 05263 DEGINSF2 TC TPSL1 # LEFT 2
012827,001711: 04,2735 03075 TC TESTOFUF
012828,001712: 04,2736 05263 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
012829,001713: 04,2737 10140 CCS MPAC
012830,001714: 04,2740 02744 TC SIGNFIX # IF +, GO TO SIGNFIX
012831,001715: 04,2741 02744 TC SIGNFIX # IF +0, GO TO SIGNFIX
012832,001716: 04,2742 40000 COM # IF -, USE -MAGNITUDE +1
012833,001717:
![]() |
Page 325 |
012835,001719: 04,2743 54140 TS MPAC # IF -0, USE +0
012836,001720: 04,2744 10105 SIGNFIX CCS OVFIND
012837,001721: 04,2745 02762 TC SGNTO1 # IF OVERFLOW
012838,001722: 04,2746 02756 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
012839,001723: 04,2747 10140 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
012840,001724: 04,2750 05464 TC CCSHOLE
012841,001725: 04,2751 02760 TC NEG180
012842,001726: 04,2752 02753 TC +1
012843,001727: 04,2753 56140 XCH MPAC
012844,001728: 04,2754 77637 MASK POSMAX
012845,001729: 04,2755 54140 TS MPAC
012846,001730: 04,2756 04102 ENDSCALE TC POSTJUMP
012847,001731: 04,2757 13040 CADR PUTCOM2
012848,001732:
012849,001733: 04,2760 47637 NEG180 CS POSMAX
012850,001734: 04,2761 02755 TC ENDSCALE -1
012851,001735:
012852,001736: 04,2762 40140 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
012853,001737: 04,2763 77637 MASK POSMAX
012854,001738: 04,2764 40000 CS A
012855,001739: 04,2765 02755 TC ENDSCALE -1
012856,001740:
012857,001741: 04,2766 26161 30707 DEGCON1 2DEC 5.555555555 B-3
012858,001742:
012859,001743: 04,2770 21616 07071 DEGCON2 2DEC 2.222222222 B-2
012860,001744:
012861,001745: 04,2772 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
012862,001746:
012863,001747: 04,2773 07063 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
012864,001748: 04,2774 00107 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
012865,001749: 04,2775 56142 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
012866,001750: 04,2776 56141 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
012867,001751: 04,2777 56140 XCH MPAC
012868,001752: 04,3000 00006 EXTEND
012869,001753: 04,3001 13003 BZF BINROUND
012870,001754: 04,3002 03277 TC DSPALARM # TOO LARGE A LOAD
012871,001755: 04,3003 03064 BINROUND TC 2ROUND
012872,001756: 04,3004 03075 TC TESTOFUF
012873,001757: 04,3005 02756 TC ENDSCALE # RETURNS IF NO OF/UF
012874,001758:
012875,001759:
012876,001760:
012877,001761: 04,3006 10140 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
012878,001762: 04,3007 03013 TC +4
012879,001763: 04,3010 03013 TC +3
012880,001764: 04,3011 03277 TC DSPALARM # REJECT NEGATIVE INPUT
012881,001765: 04,3012 03277 TC DSPALARM # DITTO
012882,001766: 04,3013 32772 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
012883,001767: 04,3014 26140 ADS MPAC # SUBTRACT BIAS
012884,001768: 04,3015 07063 TC DMP # MULT BY 100 / 45 B-2
012885,001769:
![]() |
Page 326 |
012887,001771: 04,3016 02770 ADRES DEGCON2
012888,001772: 04,3017 37644 CAF BIT12 # ROUND AS IN DEGINSF
012889,001773: 04,3020 60141 AD MPAC +1
012890,001774: 04,3021 03066 TC 2ROUND +2
012891,001775: 04,3022 02734 TC DEGINSF2
012892,001776:
012893,001777: 04,3023 07063 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
012894,001778: 04,3024 00107 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
012895,001779: 04,3025 56142 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
012896,001780: 04,3026 60000 DOUBLE
012897,001781: 04,3027 54142 TS MPAC +2
012898,001782: 04,3030 37665 CAF ZERO
012899,001783: 04,3031 60141 AD MPAC +1
012900,001784: 04,3032 03066 TC 2ROUND +2
012901,001785: 04,3033 03075 TC TESTOFUF
012902,001786: 04,3034 50124 INDEX MIXBR # RETURNS IF NO OF/UF
012903,001787: 04,3035 03035 TC +0
012904,001788: 04,3036 03046 TC DPINORM
012905,001789: 04,3037 30103 CA DECOUNT # MIXEDNOUN
012906,001790: 04,3040 60131 DPINCOM AD NOUNADD # MIXED NORMAL
012907,001791: 04,3041 54002 TS Q # E SUBK E
012908,001792: 04,3042 56141 XCH MPAC +1
012909,001793: 04,3043 50002 INDEX Q
012910,001794: 04,3044 54001 TS 1 # PLACE LOW PART IN
012911,001795: 04,3045 02756 TC ENDSCALE # (E SUBK) +1 MIXED
012912,001796: 04,3046 37665 DPINORM CAF ZERO # E +1 NORMAL
012913,001797: 04,3047 03040 TC DPINCOM
012914,001798:
012915,001799:
012916,001800:
012917,001801: 04,3050 07063 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
012918,001802: 04,3051 00107 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
012919,001803: 04,3052 03054 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
012920,001804: 04,3053 03025 TC DPINSF +2
012921,001805:
012922,001806:
012923,001807:
012924,001808: 04,3054 56002 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
012925,001809: 04,3055 54110 TS SFTEMP2 # CANT USE L FOR RETURN. TPSL1 USES L.
012926,001810: 04,3056 36162 CAF SIX # LEFT BY 7
012927,001811: 04,3057 54107 LEFT7COM TS SFTEMP1
012928,001812: 04,3060 05263 TC TPSL1
012929,001813: 04,3061 10107 CCS SFTEMP1
012930,001814: 04,3062 03057 TC LEFT7COM
012931,001815: 04,3063 00110 TC SFTEMP2
012932,001816:
012933,001817: 04,3064 56141 2ROUND XCH MPAC +1
012934,001818: 04,3065 60000 DOUBLE
012935,001819:
![]() |
Page 327 |
012937,001821: 04,3066 54141 TS MPAC +1
012938,001822: 04,3067 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
012939,001823: 04,3070 60140 AD MPAC
012940,001824: 04,3071 54140 TS MPAC
012941,001825: 04,3072 00002 TC Q # IF MPAC DOES NOT OF/UF
012942,001826: 04,3073 54105 TS OVFIND
012943,001827: 04,3074 00002 2RNDEND TC Q
012944,001828:
012945,001829:
012946,001830:
012947,001831: 04,3075 10105 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
012948,001832: 04,3076 03277 TC DSPALARM # OF
012949,001833: 04,3077 00002 TC Q
012950,001834: 04,3100 03277 TC DSPALARM # UF
012951,001835:
![]() |
Page 328 |
012953,001837: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
012954,001838: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
012955,001839:
012956,001840: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
012957,001841: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
012958,001842: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
012959,001843: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
012960,001844: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
012961,001845:
012962,001846: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
012963,001847: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
012964,001848: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
012965,001849:
012966,001850: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
012967,001851:
012968,001852: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
012969,001853: # AND MONSAVE1 (TURNING OFF KILLER BIT).
012970,001854:
012971,001855: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
012972,001856: 05,3077 SETLOC ENDRUTIN
012973,001857:
012974,001858: 05,3077 47641 MONITOR CS BIT15
012975,001859: 05,3100 70304 MASK NOUNCADR
012976,001860: 05,3101 54141 MONIT1 TS MPAC +1 # TEMP STORAGE
012977,001861: 05,3102 33401 CAF LOW6
012978,001862: 05,3103 70266 MASK VERBREG
012979,001863: 05,3104 05207 TC LEFT5
012980,001864: 05,3105 54022 TS CYL
012981,001865: 05,3106 56022 XCH CYL
012982,001866: 05,3107 60267 AD NOUNREG
012983,001867: 05,3110 54140 TS MPAC # TEMP STORAGE
012984,001868: 05,3111 40324 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
012985,001869: 05,3112 67656 AD TWO
012986,001870: 05,3113 10000 CCS A
012987,001871: 05,3114 05364 TC RELDSP1 # GRABLOCK=0,1, +0 INTO DSPLOCK AND
012988,001872: 05,3115 03121 TC +4 # TURN OFF KEY RLSE LIGHT.
012989,001873: 05,3116 05464 TC CCSHOLE
012990,001874: 05,3117 37665 CAF ZERO # GRABLOCK=2, +0 INTO DSPLOCK AND
012991,001875: 05,3120 54277 TS DSPLOCK # LEAVE KEY RLSE LIGHT ALONE
012992,001876: 05,3121 00004 INHINT
012993,001877: 05,3122 10305 CCS MONSAVE
012994,001878: 05,3123 03130 TC +5 # IF MONSAVE WAS +, NO REQUEST
012995,001879: 05,3124 37657 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
012996,001880: 05,3125 04536 TC WAITLIST
012997,001881: 05,3126 0264 EBANK= DSPCOUNT
012998,001882: 05,3126 03134 12000 2CADR MONREQ
012999,001883:
013000,001884: 05,3130 52141 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
013001,001885:
![]() |
Page 329 |
013003,001887: 05,3131 52306 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
013004,001888: 05,3132 00003 RELINT
013005,001889: 05,3133 00122 TC ENTRET
013006,001890:
013007,001891:
013008,001892:
013009,001893: 05,3134 05257 MONREQ TC LODSAMPT # CALLED BY WAITLIST
013010,001894: 05,3135 10306 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
013011,001895: 05,3136 03142 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
013012,001896: 05,3137 03142 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
013013,001897: 05,3140 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
013014,001898: 05,3141 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
013015,001899: 05,3142 33157 CAF MONDEL
013016,001900: 05,3143 04536 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
013017,001901: 05,3144 0264 EBANK= DSPCOUNT
013018,001902: 05,3144 03134 12000 2CADR MONREQ
013019,001903: 05,3146 35233 CAF CHRPRIO
013020,001904: 05,3147 04363 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
013021,001905: 05,3150 0264 EBANK= DSPCOUNT
013022,001906: 05,3150 03160 12000 2CADR MONDO
013023,001907:
013024,001908: 05,3152 04602 TC TASKOVER
013025,001909:
013026,001910: 05,3153 37665 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
013027,001911: 05,3154 54305 TS MONSAVE
013028,001912: 05,3155 54306 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
013029,001913: 05,3156 04602 TC TASKOVER
013030,001914:
013031,001915:
013032,001916:
013033,001917: 05,3157 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
013034,001918:
013035,001919:
013036,001920:
013037,001921: 05,3160 10306 MONDO CCS MONSAVE1 # CALLED BY EXEC
013038,001922: 05,3161 03165 TC +4 # IF KILLER BIT = 0, CONTINUE
013039,001923: 05,3162 03165 TC +3 # IF KILLER BIT = 0, CONTINUE
013040,001924: 05,3163 04440 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
013041,001925: 05,3164 04440 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
013042,001926: 05,3165 10277 CCS DSPLOCK
013043,001927: 05,3166 03212 TC MONBUSY # NVSUB IS BUSY
013044,001928: 05,3167 33401 CAF LOW6 # NVSUB IS AVAILABLE
013045,001929: 05,3170 70305 MASK MONSAVE
013046,001930: 05,3171 54107 TS NVTEMP
013047,001931: 05,3172 05123 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
013048,001932: 05,3173 04440 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
013049,001933: 05,3174 33210 CAF MONMASK
013050,001934: 05,3175 70305 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
013051,001935: 05,3176 05200 TC RIGHT5
013052,001936:
![]() |
Page 330 |
013054,001938: 05,3177 54020 TS CYR
013055,001939: 05,3200 56020 XCH CYR
013056,001940: 05,3201 54266 TS VERBREG
013057,001941: 05,3202 33211 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
013058,001942: 05,3203 54122 TS ENTRET
013059,001943: 05,3204 47641 CS BIT15
013060,001944: 05,3205 70306 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
013061,001945: 05,3206 54142 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
013062,001946: 05,3207 02037 ENDMONDO TC TESTNN # EBANK.
013063,001947:
013064,001948: 5100 SETLOC ENDRMODF
013065,001949:
013066,001950: 5100 35106 PASTEVB CAF MIDSIX
013067,001951: 5101 70305 MASK MONSAVE
013068,001952: 5102 54107 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
013069,001953: 5103 05123 TC NVSUBMON # DISPLAY IT.
013070,001954: 5104 05105 TC +1 # IN CASE OF ALARM DURING DISPLAY
013071,001955: 5105 04440 ENDPASTE TC ENDOFJOB
013072,001956:
013073,001957: 5106 07700 MIDSIX OCT 07700
013074,001958:
013075,001959:
013076,001960:
013077,001961: 05,3210 SETLOC ENDMONDO +1
013078,001962: 05,3210 00700 MONMASK OCT 700
013079,001963: 05,3211 05100 MONBACK ADRES PASTEVB
013080,001964:
013081,001965: 05,3212 05253 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
013082,001966: 05,3213 04440 TC ENDOFJOB
013083,001967:
013084,001968:
013085,001969:
013086,001970: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
013087,001971: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
013088,001972: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
013089,001973:
013090,001974: 05,3214 35175 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
013091,001975: 05,3215 54264 TS DSPCOUNT
013092,001976: 05,3216 30304 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
013093,001977: 05,3217 04116 TC DATACALL
013094,001978: 05,3220 03222 TC DSPOCTWD
013095,001979: 05,3221 04440 ENDSPF TC ENDOFJOB
013096,001980:
![]() |
Page 331 |
013098,001982: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC+1) TO A SIGN AND 5 CHAR DECIMAL
013099,001983: # STARTING IN LOC SPECIFIED IN DSPCOUNT
013100,001984:
013101,001985: 04,3101 SETLOC TESTOFUF +4
013102,001986: 04,3101 56002 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
013103,001987: 04,3102 54101 TS WDRET # CANT USE L FOR RETURN.+ON USES L.
013104,001988: 04,3103 10140 CCS MPAC
013105,001989: 04,3104 03113 TC +7
013106,001990: 04,3105 03113 TC +6
013107,001991: 04,3106 67657 AD ONE
013108,001992: 04,3107 54140 TS MPAC
013109,001993: 04,3110 02313 TC -ON
013110,001994: 04,3111 40141 CS MPAC +1
013111,001995: 04,3112 03115 TC +3
013112,001996: 04,3113 02273 TC +ON
013113,001997: 04,3114 56141 XCH MPAC +1
013114,001998: 04,3115 63154 AD DECROUND
013115,001999: 04,3116 54141 TS MPAC +1
013116,002000: 04,3117 37665 CAF ZERO
013117,002001: 04,3120 60140 AD MPAC
013118,002002: 04,3121 54140 TS MPAC
013119,002003: 04,3122 03126 TC +4
013120,002004: 04,3123 37637 CAF POSMAX
013121,002005: 04,3124 54140 TS MPAC
013122,002006: 04,3125 54141 TS MPAC +1
013123,002007: 04,3126 37655 CAF FOUR
013124,002008: 04,3127 54123 DSPDCWD1 TS WDCNT
013125,002009: 04,3130 35242 CAF BINCON
013126,002010: 04,3131 07266 TC SHORTMP
013127,002011: 04,3132 50140 TRACE1 INDEX MPAC
013128,002012: 04,3133 34741 CAF RELTAB
013129,002013: 04,3134 75224 MASK LOW5
013130,002014: 04,3135 54110 TS CODE
013131,002015: 04,3136 37665 CAF ZERO
013132,002016: 04,3137 56142 XCH MPAC +2
013133,002017: 04,3140 56141 XCH MPAC +1
013134,002018: 04,3141 54140 TS MPAC
013135,002019: 04,3142 56264 XCH DSPCOUNT
013136,002020: 04,3143 54127 TRACE1S TS COUNT
013137,002021: 04,3144 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
013138,002022: 04,3145 54264 TS DSPCOUNT
013139,002023: 04,3146 03201 TC DSPIN
013140,002024: 04,3147 10123 CCS WDCNT
013141,002025: 04,3150 03127 TC DSPDCWD1
013142,002026: 04,3151 45237 CS VD1
013143,002027: 04,3152 54264 TS DSPCOUNT
013144,002028: 04,3153 00101 TC WDRET
013145,002029:
013146,002030: 04,3154 02476 DECROUND OCT 02476
013147,002031:
![]() |
Page 332 |
013149,002033: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
013150,002034: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
013151,002035:
013152,002036: 04,3155 56002 DSP2DEC XCH Q # MUST USE SAME RETURN AS DSPDECWD
013153,002037: 04,3156 54101 TS WDRET
013154,002038: 04,3157 37665 CAF ZERO
013155,002039: 04,3160 54110 TS CODE
013156,002040: 04,3161 36165 CAF THREE
013157,002041: 04,3162 03263 TC 11DSPIN # -R2 OFF
013158,002042: 04,3163 37655 CAF FOUR
013159,002043: 04,3164 03263 TC 11DSPIN # +R2 OFF
013160,002044: 04,3165 10140 CCS MPAC
013161,002045: 04,3166 03176 TC +8D
013162,002046: 04,3167 03176 TC +7
013163,002047: 04,3170 67657 AD ONE
013164,002048: 04,3171 54140 TS MPAC
013165,002049: 04,3172 02313 TC -ON
013166,002050: 04,3173 40141 CS MPAC +1
013167,002051: 04,3174 54141 TS MPAC +1
013168,002052: 04,3175 03177 TC +2
013169,002053: 04,3176 02273 TC +ON
013170,002054: 04,3177 35176 CAF R2D1
013171,002055: 04,3200 03127 END2DEC TC DSPDCWD1
013172,002056:
013173,002057:
013174,002058:
013175,002059: 05,3222 SETLOC DSPFMEM +6
013176,002060: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
013177,002061: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
013178,002062:
013179,002063: 05,3222 54022 DSPOCTWD TS CYL
013180,002064: 05,3223 56002 XCH Q
013181,002065: 05,3224 54101 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
013182,002066: 05,3225 37642 CAF BIT14 # TO BLANK SIGNS
013183,002067: 05,3226 26264 ADS DSPCOUNT
013184,002068: 05,3227 37655 CAF FOUR
013185,002069: 05,3230 54123 WDAGAIN TS WDCNT
013186,002070: 05,3231 40022 CS CYL
013187,002071: 05,3232 40022 CS CYL
013188,002072: 05,3233 40022 CS CYL
013189,002073: 05,3234 40000 CS A
013190,002074: 05,3235 77663 MASK DSPMSK
013191,002075: 05,3236 50000 INDEX A
013192,002076: 05,3237 34741 CAF RELTAB
013193,002077: 05,3240 75224 MASK LOW5
013194,002078: 05,3241 54110 TS CODE
013195,002079: 05,3242 56264 XCH DSPCOUNT
013196,002080: 05,3243 54127 TS COUNT
013197,002081: 05,3244 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
013198,002082: 05,3245 54264 TS DSPCOUNT
013199,002083:
![]() |
Page 333 |
013201,002085: 05,3246 04102 TC POSTJUMP
013202,002086: 05,3247 11271 CADR DSPOCTIN
013203,002087: 05,3250 10123 OCTBACK CCS WDCNT
013204,002088: 05,3251 03230 TC WDAGAIN # +
013205,002089: 05,3252 45237 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
013206,002090: 05,3253 54264 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
013207,002091: 05,3254 00101 TC WDRET
013208,002092:
013209,002093: 05,3255 7663 DSPMSK = SEVEN
013210,002094:
013211,002095:
013212,002096:
013213,002097: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
013214,002098: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
013215,002099: # OF THE 5 CHAR OCTAL DISPLAY
013216,002100:
013217,002101: 05,3255 54020 DSP2BIT TS CYR
013218,002102: 05,3256 56002 XCH Q
013219,002103: 05,3257 54101 TS WDRET # CANT USE L AS RETURN. UPDATNN USES L.
013220,002104: 05,3260 37657 CAF ONE
013221,002105: 05,3261 54123 TS WDCNT
013222,002106: 05,3262 40020 CS CYR
013223,002107: 05,3263 40020 CS CYR
013224,002108: 05,3264 56020 XCH CYR
013225,002109: 05,3265 54022 TS CYL
013226,002110: 05,3266 03235 TC WDAGAIN +5
013227,002111:
013228,002112:
013229,002113:
013230,002114: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
013231,002115: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
013232,002116: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
013233,002117: # DSPTAB ENTRY INTO DSREL.
013234,002118:
013235,002119: 04,3201 SETLOC END2DEC +1
013236,002120:
013237,002121: 04,3201 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
013238,002122: 04,3202 54100 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
013239,002123: 04,3203 35224 CAF LOW5
013240,002124: 04,3204 70127 MASK COUNT
013241,002125: 04,3205 54021 TS SR
013242,002126: 04,3206 56021 XCH SR
013243,002127: 04,3207 54125 TS DSREL
013244,002128: 04,3210 37657 CAF BIT1
013245,002129: 04,3211 70127 MASK COUNT
013246,002130: 04,3212 10000 CCS A
013247,002131: 04,3213 03215 TC +2 # LEFT IF COUNT IS ODD
013248,002132: 04,3214 03225 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
013249,002133: 04,3215 56110 XCH CODE
013250,002134: 04,3216 05216 TC SLEFT5 # DOES NOT USE CYL
013251,002135:
![]() |
Page 334 |
013253,002137: 04,3217 54110 TS CODE
013254,002138: 04,3220 37642 CAF BIT14
013255,002139: 04,3221 70127 MASK COUNT
013256,002140: 04,3222 10000 CCS A
013257,002141: 04,3223 37656 CAF TWO # BIT14 = 1, BLANK SIGN
013258,002142: 04,3224 67657 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
013259,002143: 04,3225 54127 TS COUNT # +0 INTO COUNT FOR RIGHT
013260,002144: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
013261,002145: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
013262,002146: 04,3226 00004 DSPIN1 INHINT
013263,002147: 04,3227 50125 INDEX DSREL
013264,002148: 04,3230 10307 CCS DSPTAB
013265,002149: 04,3231 03233 TC +2 # IF +
013266,002150: 04,3232 05464 TC CCSHOLE
013267,002151: 04,3233 67657 AD ONE # IF -
013268,002152: 04,3234 54126 TS DSMAG
013269,002153: 04,3235 50127 INDEX COUNT
013270,002154: 04,3236 73257 MASK DSMSK
013271,002155: 04,3237 00006 EXTEND
013272,002156: 04,3240 60110 SU CODE
013273,002157: 04,3241 00006 EXTEND
013274,002158: 04,3242 13255 BZF DSLV # SAME
013275,002159: 04,3243 50127 DFRNT INDEX COUNT
013276,002160: 04,3244 43257 CS DSMSK # MASK WITH 77740,76037, OR 75777
013277,002161: 04,3245 70126 MASK DSMAG
013278,002162: 04,3246 60110 AD CODE
013279,002163: 04,3247 40000 CS A
013280,002164: 04,3250 50125 INDEX DSREL
013281,002165: 04,3251 56307 XCH DSPTAB
013282,002166: 04,3252 00006 EXTEND
013283,002167: 04,3253 63255 BZMF DSLV # DSPTAB ENTRY WAS -
013284,002168: 04,3254 24303 INCR NOUT # DSPTAB ENTRY WAS +
013285,002169: 04,3255 00003 DSLV RELINT
013286,002170: 04,3256 00100 TC DSEXIT
013287,002171:
013288,002172: 04,3257 00037 DSMSK OCT 37
013289,002173: 04,3260 01740 OCT 1740
013290,002174: 04,3261 02000 OCT 2000
013291,002175: 04,3262 03740 OCT 3740
013292,002176:
013293,002177:
013294,002178:
013295,002179: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
013296,002180: # BIT11 OF CODE.
013297,002181:
013298,002182: 04,3263 54125 11DSPIN TS DSREL
013299,002183: 04,3264 37656 CAF TWO
013300,002184: 04,3265 54127 TS COUNT
013301,002185: 04,3266 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
013302,002186: 04,3267 54100 TS DSEXIT
013303,002187:
![]() |
Page 335 |
013305,002189: 04,3270 03226 TC DSPIN1
013306,002190:
013307,002191:
013308,002192:
013309,002193: 04,3271 03201 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
013310,002194: 04,3272 33274 CAF +2
013311,002195: 04,3273 04105 TC BANKJUMP
013312,002196: 04,3274 13250 ENDSPOCT CADR OCTBACK
013313,002197:
013314,002198:
013315,002199:
013316,002200: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
013317,002201: # ABORT WITH 01501.
013318,002202: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
013319,002203: # DO TC ENTRET.
013320,002204:
013321,002205: 04,3275 35150 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
013322,002206: 04,3276 54122 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
013323,002207:
013324,002208: 04,3277 05243 DSPALARM TC FALTON # TURN ON OPERATOR ERROR LIGHT
013325,002209: 04,3300 43307 CS NVSBENDL
013326,002210: 04,3301 60122 AD ENTEXIT
013327,002211: 04,3302 00006 EXTEND
013328,002212: 04,3303 13305 BZF +2 # NVSUB INITIATED. ABORT
013329,002213: 04,3304 00122 TC ENTEXIT # NOT NVSUB INITIATED.
013330,002214: 04,3305 05446 TC ABORT
013331,002215: 04,3306 01501 OCT 01501
013332,002216: 04,3307 05127 NVSBENDL TC NVSUBEND
013333,002217:
013334,002218:
013335,002219:
013336,002220: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
013337,002221: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
013338,002222: # M M LIGHTS.
013339,002223:
013340,002224: 05,3267 SETLOC DSP2BIT +10D
013341,002225:
013342,002226: 05,3267 03302 MMCHANG TC REQMM
013343,002227: 05,3270 37665 CAF ZERO
013344,002228: 05,3271 56267 XCH NOUNREG
013345,002229: 05,3272 54140 TS MPAC
013346,002230: 05,3273 35240 CAF ND1
013347,002231: 05,3274 54264 TS DSPCOUNT
013348,002232: 05,3275 04063 TC BANKCALL
013349,002233: 05,3276 10541 CADR 2BLANK
013350,002234: 05,3277 30140 CA MPAC
013351,002235: 05,3300 04102 TC POSTJUMP
013352,002236: 05,3301 11277 CADR MODROUTB # GO THRU STANDARD LOC.
013353,002237:
![]() |
Page 336 |
013355,002239: 05,3302 04,3277 MODROUTB = DSPALARM # **FIX LATER**
013356,002240: 05,3302 40002 REQMM CS Q
013357,002241: 05,3303 54300 TS REQRET
013358,002242: 05,3304 35240 CAF ND1
013359,002243: 05,3305 54264 TS DSPCOUNT
013360,002244: 05,3306 37665 CAF ZERO
013361,002245: 05,3307 54267 TS NOUNREG
013362,002246: 05,3310 04063 TC BANKCALL
013363,002247: 05,3311 10541 CADR 2BLANK
013364,002248: 05,3312 05274 TC FLASHON
013365,002249: 05,3313 00122 TC ENTEXIT
013366,002250:
013367,002251:
013368,002252:
013369,002253: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
013370,002254: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
013371,002255: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
013372,002256: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
013373,002257: # COMPONENT 2 JOB ADRES (12 BIT )
013374,002258: # COMPONENT 3 BBCON
013375,002259:
013376,002260: 05,3314 37657 VBRQEXEC CAF BIT1
013377,002261: 05,3315 70333 MASK DSPTEM1
013378,002262: 05,3316 10000 CCS A
013379,002263: 05,3317 03336 TC SETVAC # IF BIT1 = 1, FINDVAC
013380,002264: 05,3320 35227 CAF TCNOVAC # IF BIT1 = 0, NOVAC
013381,002265: 05,3321 54140 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
013382,002266: 05,3322 47657 CS BIT1
013383,002267: 05,3323 70333 MASK DSPTEM1
013384,002268: 05,3324 54144 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
013385,002269: 05,3325 05341 REQUESTC TC RELDSP
013386,002270: 05,3326 35150 CA ENDINST
013387,002271: 05,3327 54143 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
013388,002272: 05,3330 00006 EXTEND
013389,002273: 05,3331 30335 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
013390,002274: 05,3332 52142 DXCH MPAC +1 # BBCON INTO MPAC+2
013391,002275: 05,3333 30144 CA MPAC +4 # PRIO IN A
013392,002276: 05,3334 00004 INHINT
013393,002277: 05,3335 00140 TC MPAC
013394,002278:
013395,002279: 05,3336 35232 SETVAC CAF TCFINDVC
013396,002280: 05,3337 03321 TC REQEX1
013397,002281:
013398,002282: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
013399,002283: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
013400,002284: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
013401,002285: # COMPONENT 1 DELAY (LOW BITS)
013402,002286: # COMPONENT 2 TASK ADRES (12 BIT)
013403,002287: # COMPONENT 3 BBCON
013404,002288:
![]() |
Page 337 |
013406,002290: 05,3340 35230 VBRQWAIT CAF TCWAIT
013407,002291: 05,3341 54140 TS MPAC # TC WAITLIST INTO MPAC
013408,002292: 05,3342 30333 CA DSPTEM1 # TIME DELAY
013409,002293: 05,3343 03324 ENDRQWT TC REQUESTC -1
013410,002294:
013411,002295: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
013412,002296: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
013413,002297: # LEAVE IT IN A, INHINT AND TC MPAC.
013414,002298:
013415,002299:
013416,002300:
013417,002301: 04,3310 SETLOC NVSBENDL +1
013418,002302: 04,3310 37657 VBPROC CAF ONE # PROCEED WITHOUT DATA
013419,002303: 04,3311 54301 TS LOADSTAT
013420,002304: 04,3312 05341 TC RELDSP
013421,002305: 04,3313 05300 TC FLASHOFF
013422,002306: 04,3314 03422 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
013423,002307:
013424,002308:
013425,002309:
013426,002310: 04,3315 05131 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
013427,002311: 04,3316 47657 CS ONE
013428,002312: 04,3317 03311 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
013429,002313:
013430,002314:
013431,002315:
013432,002316: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
013433,002317:
013434,002318:
013435,002319:
013436,002320: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
013437,002321: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
013438,002322:
013439,002323: 04,3320 47655 VBRELDSP CS BIT3
013440,002324: 04,3321 00006 EXTEND
013441,002325: 04,3322 03011 WAND DSALMOUT # TURN OFF UPACT LIGHT
013442,002326: 04,3323 05341 TC RELDSP # SEARCHES LIST
013443,002327: 04,3324 04440 TC ENDOFJOB
013444,002328:
013445,002329:
013446,002330:
013447,002331: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
013448,002332:
013449,002333: 04,3325 37664 BUMP CAF FIVE # R2D5
013450,002334: 04,3326 54264 TS DSPCOUNT
013451,002335: 04,3327 54127 TS COUNT
013452,002336: 04,3330 37657 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
013453,002337: 04,3331 70127 MASK COUNT
013454,002338: 04,3332 56127 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
013455,002339: 04,3333 54021 TS SR # +1 INTO COUNT IF ODD (LEFT)
013456,002340:
![]() |
Page 338 |
013458,002342: 04,3334 56021 XCH SR # DSREL IN A
013459,002343: 04,3335 50000 INDEX A
013460,002344: 04,3336 10307 CCS DSPTAB
013461,002345: 04,3337 03341 TC +2
013462,002346: 04,3340 05464 TC CCSHOLE
013463,002347: 04,3341 67657 AD ONE # DSMAG IN A
013464,002348: 04,3342 50127 INDEX COUNT
013465,002349: 04,3343 73257 MASK DSMSK
013466,002350: 04,3344 50127 INDEX COUNT
013467,002351: 04,3345 03346 TC +1
013468,002352: 04,3346 03350 TC +2 # EVEN(RIGHT) OK
013469,002353: 04,3347 05200 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
013470,002354: 04,3350 54110 TS CODE
013471,002355: 04,3351 47664 CS FIVE
013472,002356: 04,3352 60264 AD DSPCOUNT # DSPCOUNT-5
013473,002357: 04,3353 10000 CCS A # TO PREVENT -0
013474,002358: 04,3354 67657 AD ONE
013475,002359: 04,3355 03357 TC +2
013476,002360: 04,3356 05464 TC CCSHOLE
013477,002361: 04,3357 54127 TS COUNT
013478,002362: 04,3360 03201 TC DSPIN # CODE ALREADY IN CODE
013479,002363: 04,3361 40264 CS DSPCOUNT
013480,002364: 04,3362 65175 AD R1D1 # OCT 16
013481,002365: 04,3363 10000 CCS A
013482,002366: 04,3364 56264 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
013483,002367: 04,3365 67657 AD ONE # INCREMENT DSPCOUNT
013484,002368: 04,3366 03326 TC BUMP +1
013485,002369:
013486,002370: 04,3367 37665 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
013487,002371: 04,3370 54264 TS DSPCOUNT
013488,002372: 04,3371 63420 AD SWTAB +2 # OCT 3
013489,002373: 04,3372 50000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
013490,002374: 04,3373 10307 CCS DSPTAB # (-R2,+R2,-R1,+R1)
013491,002375: 04,3374 03376 TC +2
013492,002376: 04,3375 05464 TC CCSHOLE
013493,002377: 04,3376 67657 AD ONE
013494,002378: 04,3377 77645 MASK BIT11
013495,002379: 04,3400 54110 TS CODE
013496,002380: 04,3401 50264 INDEX DSPCOUNT
013497,002381: 04,3402 33416 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
013498,002382: 04,3403 03263 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
013499,002383: 04,3404 40264 CS DSPCOUNT
013500,002384: 04,3405 63420 AD SWTAB +2 # OCT 3
013501,002385: 04,3406 10000 CCS A
013502,002386: 04,3407 56264 XCH DSPCOUNT # +, DSPCOUNT L/ 3
013503,002387: 04,3410 67657 AD ONE # INCREMENT DSPCOUNT
013504,002388: 04,3411 03370 TC SWSGN +1
013505,002389: 04,3412 35175 CAF R1D1 # -0, DSPCOUNT = 3
013506,002390: 04,3413 54264 TS DSPCOUNT
013507,002391: 04,3414 02476 TC 5BLANK # BLANKS R1
013508,002392:
![]() |
Page 339 |
013510,002394: 04,3415 00122 TC ENTEXIT
013511,002395:
013512,002396: 04,3416 00000 SWTAB OCT 0 # -R3
013513,002397: 04,3417 00001 OCT 1 # +R3
013514,002398: 04,3420 00003 OCT 3 # -R2
013515,002399: 04,3421 00004 OCT 4 # +R2
013516,002400:
![]() |
Page 340 |
013518,002402: # NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
013519,002403: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
013520,002404: # INTO A. V-S ARE 6BIT VERB CODE. N-S , 6 BIT NOUN CODE.
013521,002405:
013522,002406: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
013523,002407: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
013524,002408:
013525,002409: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
013526,002410: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
013527,002411: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
013528,002412: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
013529,002413: # FURTHER ACTION).
013530,002414:
013531,002415: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
013532,002416: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
013533,002417: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
013534,002418: # ALARM CONDITION BEFORE RETURN TO CALLER.
013535,002419:
013536,002420: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
013537,002421: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
013538,002422: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS.
013539,002423: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
013540,002424: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
013541,002425: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
013542,002426: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
013543,002427: # MONITOR SET UP.
013544,002428:
013545,002429: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
013546,002430:
013547,002431: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
013548,002432: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
013549,002433:
013550,002434: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
013551,002435: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
013552,002436:
013553,002437: 5107 SETLOC MIDSIX +1
013554,002438: 5107 54107 NVSUB TS NVTEMP # IN FIXED FIXED
013555,002439: 5110 10277 CCS DSPLOCK
013556,002440: 5111 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
013557,002441: 5112 30002 CA Q # DSP SYST AVAILABLE
013558,002442: 5113 67657 AD ONE
013559,002443: 5114 54325 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
013560,002444: 5115 05131 TC KILMONON # TURN ON KILL MONITOR BIT
013561,002445: 5116 35122 NVSUBCOM CAF NVSBBBNK
013562,002446:
013563,002447: 5117 56006 XCH BBANK
013564,002448: 5120 54326 TS NVBNKTEM
013565,002449: 5121 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
013566,002450: 5122 0264 EBANK= DSPCOUNT
013567,002451: 5122 12000 NVSBBBNK BBCON NVSUB1
013568,002452:
![]() |
Page 341 |
013570,002454: 5123 30002 NVSUBMON CA Q # MONDO COMES HERE
013571,002455: 5124 67657 AD ONE
013572,002456: 5125 54325 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
013573,002457: 5126 05116 TC NVSUBCOM
013574,002458:
013575,002459: 5127 52326 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
013576,002460: 5130 52006 DXCH Z # DTCB
013577,002461:
013578,002462: 05,3344 SETLOC ENDRQWT +1
013579,002463:
013580,002464: 05,3344 33363 NVSUB1 CAF ENTSET # IN BANK
013581,002465: 05,3345 54122 TS ENTRET # SET RETURN TO NVSUBEND
013582,002466: 05,3346 33401 CAF LOW6
013583,002467: 05,3347 70107 MASK NVTEMP
013584,002468: 05,3350 54140 TS MPAC # TEMP STORAGE
013585,002469: 05,3351 33402 CAF MID6
013586,002470: 05,3352 70107 MASK NVTEMP
013587,002471: 05,3353 05200 TC RIGHT5
013588,002472: 05,3354 54020 TS CYR
013589,002473: 05,3355 56020 XCH CYR
013590,002474: 05,3356 54141 TS MPAC +1 # TEMP STORAGE
013591,002475: 05,3357 10140 CCS MPAC # TEST NOUN
013592,002476: 05,3360 03364 TC +4 # IF NOUN NOT +0, GO ON
013593,002477: 05,3361 56141 XCH MPAC +1
013594,002478: 05,3362 02314 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN
013595,002479: 05,3363 05127 ENTSET TC NVSUBEND
013596,002480: 05,3364 10141 CCS MPAC +1 # TEST VERB
013597,002481: 05,3365 03371 TC +4 # IF VERB NOT +0, GO ON
013598,002482: 05,3366 56140 XCH MPAC
013599,002483: 05,3367 02274 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
013600,002484: 05,3370 05127 TC NVSUBEND
013601,002485: 05,3371 56141 XCH MPAC +1
013602,002486: 05,3372 02314 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
013603,002487: 05,3373 56140 XCH MPAC # BOTH AND GO TO ENTPAS0
013604,002488: 05,3374 02274 TC UPDATNN -1
013605,002489: 05,3375 37665 CAF ZERO
013606,002490: 05,3376 54301 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
013607,002491: 05,3377 54302 TS CLPASS
013608,002492: 05,3400 02031 TC ENTPAS0
013609,002493:
013610,002494: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
013611,002495: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
013612,002496:
013613,002497:
013614,002498:
013615,002499: 05,3401 00077 LOW6 OCT 77
013616,002500: 05,3402 07700 MID6 OCT 7700
013617,002501:
![]() |
Page 342 |
013619,002503: 5131 SETLOC NVSUBEND +2
013620,002504: 5131 47641 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
013621,002505: 5132 00004 INHINT # THIS IS THE KILL MONITOR BIT.
013622,002506: 5133 70306 MASK MONSAVE1
013623,002507: 5134 67641 AD BIT15
013624,002508: 5135 54306 TS MONSAVE1
013625,002509: 5136 00003 RELINT
013626,002510: 5137 00002 TC Q
013627,002511:
013628,002512:
013629,002513:
013630,002514: # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
013631,002515: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
013632,002516: # -1 TERMINATE SET BY SPECIAL VERB
013633,002517: # -0 DATA IN SET BY END OF LOAD ROUTINE
013634,002518:
013635,002519:
013636,002520:
013637,002521: # L TC ENDIDLE (FIXED FIXED)
013638,002522: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
013639,002523: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
013640,002524: # ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
013641,002525: # JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
013642,002526: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
013643,002527: # L+1 FOR TERMINATE
013644,002528: # L+2 FOR PROCEED WITHOUT DATA
013645,002529: # L+3 FOR DATA IN
013646,002530: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
013647,002531:
013648,002532: 5140 37657 ENDIDLE CAF ONE
013649,002533: 5141 54277 TS DSPLOCK
013650,002534: 5142 22004 LXCH FBANK
013651,002535: 5143 56002 XCH Q
013652,002536: 5144 52120 DXCH BUF2
013653,002537: 5145 04112 TC MAKECADR
013654,002538: 5146 54323 TS CADRSTOR
013655,002539: 5147 04416 TC JOBSLEEP
013656,002540:
013657,002541:
013658,002542:
013659,002543: 5150 04440 ENDINST TC ENDOFJOB
013660,002544:
013661,002545: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE, IT RETURNS IMMEDIATELY IF
013662,002546: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
013663,002547: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
013664,002548: # DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
013665,002549: # AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
013666,002550: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
013667,002551:
013668,002552: 5151 10301 DATAWAIT CCS LOADSTAT
013669,002553:
![]() |
Page 343 |
013671,002555: 5152 15157 TCF DATWAIT1 # PROCEED. RETURN TO L+2.
013672,002556: 5153 15140 TCF ENDIDLE # STILL WAITING. GO TO SLEEP.
013673,002557: 5154 00002 TC Q # TERMINATE. RETURN TO L+1.
013674,002558: 5155 50002 INDEX Q # DATA IN. RETURN TO L+3.
013675,002559: 5156 00002 TC 2
013676,002560: 5157 50002 DATWAIT1 INDEX Q # RETURN TO L+2.
013677,002561: 5160 00001 TC 1
013678,002562:
013679,002563: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
013680,002564: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
013681,002565:
013682,002566:
013683,002567:
013684,002568: 05,3403 SETLOC MID6 +1
013685,002569: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
013686,002570:
013687,002571: 05,3403 35241 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
013688,002572: 05,3404 56264 XCH DSPCOUNT
013689,002573: 05,3405 54124 TS DSPMMTEM # SAVE DSPCOUNT
013690,002574: 05,3406 30276 CA MODREG
013691,002575: 05,3407 22002 LXCH Q
013692,002576: 05,3410 03255 TC DSP2BIT
013693,002577: 05,3411 56124 XCH DSPMMTEM # RESTORE DSPCOUNT
013694,002578: 05,3412 54264 TS DSPCOUNT
013695,002579: 05,3413 00001 DSPMMEND TC L
013696,002580:
013697,002581:
013698,002582:
013699,002583: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
013700,002584: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
013701,002585: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
013702,002586:
013703,002587: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
013704,002588: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
013705,002589:
013706,002590: 04,3422 SETLOC SWTAB +4
013707,002591:
013708,002592: 04,3422 10323 RECALTST CCS CADRSTOR
013709,002593: 04,3423 03430 TC RECAL1
013710,002594: 04,3424 04440 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
013711,002595: 04,3425 03430 TC RECAL1
013712,002596: 04,3426 54323 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
013713,002597: 04,3427 03446 TC RECAL3 # +0 INTO CADRSTOR. RELEASE DISPLAY,
013714,002598: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
013715,002599: 04,3430 37665 RECAL1 CAF ZERO
013716,002600: 04,3431 56323 XCH CADRSTOR
013717,002601: 04,3432 00004 INHINT
013718,002602: 04,3433 04422 TC JOBWAKE
013719,002603: 04,3434 10301 CCS LOADSTAT
013720,002604: 04,3435 03452 TC DOPROC # + PROCEED WITHOUT DATA
013721,002605:
![]() |
Page 344 |
013723,002607: 04,3436 04440 TC ENDOFJOB # PATHALOGICAL CASE EXIT
013724,002608: 04,3437 03450 TC DOTERM # - TERMINATE
013725,002609: 04,3440 37656 CAF TWO
013726,002610: 04,3441 50071 RECAL2 INDEX LOCCTR
013727,002611: 04,3442 60150 AD LOC # LOC IS + FOR BASIC JOBS
013728,002612: 04,3443 50071 INDEX LOCCTR
013729,002613: 04,3444 54150 TS LOC
013730,002614: 04,3445 00003 RELINT
013731,002615: 04,3446 05364 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
013732,002616: 04,3447 04440 TC ENDOFJOB
013733,002617:
013734,002618: 04,3450 37665 DOTERM CAF ZERO
013735,002619: 04,3451 03441 TC RECAL2
013736,002620:
013737,002621: 04,3452 37657 DOPROC CAF ONE
013738,002622: 04,3453 03441 TC RECAL2
013739,002623:
![]() |
Page 345 |
013741,002625: # THE FOLLOWING REFERS TO THE NOUN TABLES
013742,002626:
013743,002627:
013744,002628:
013745,002629: # COMPONENT CODE NUMBER INTERPRETATION
013746,002630:
013747,002631: # 00000 1 COMPONENT
013748,002632: # 00001 2 COMPONENT (EACH S P)
013749,002633: # 00010 3 COMPONENT (EACH SP)
013750,002634:
013751,002635:
013752,002636:
013753,002637: # SF ROUTINE CODE NUMBER INTERPRETATION
013754,002638:
013755,002639: # 00000 OCTAL ONLY
013756,002640: # 00001 STRAIGHT FRACTIONAL
013757,002641: # 00010 DEGREES (XXX.XX)
013758,002642: # 00011 ARITHMETIC SF
013759,002643: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN (STRAIGHT)
013760,002644: # 00101 ARITH DP2 OUT (STRAIGHT) IN (SL 7 AT END)
013761,002645: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
013762,002646: # 00111 ARITH DP3 OUT (SL 7 AT END) IN ( STRAIGHT)
013763,002647: # END OF SF ROUTINE CODE NUMBERS
013764,002648:
013765,002649: # SF CONSTANT CODE NUMBER INTERPRETATION
013766,002650:
013767,002651: # 00000 WHOLE
013768,002652: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE(ARITH DP1)
013769,002653: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
013770,002654: # 00010 DEGREES
013771,002655: # 00010 OPTICS DEGREES
013772,002656: # 00011 GYRO DEGREES (XX.XXX) USE ARITHDP3
013773,002657: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
013774,002658: # 00101 GYRO AXIS ACCEL. DRIFT
013775,002659: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
013776,002660: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
013777,002661: # 00111 PIPA SCALE FACTOR ERROR
013778,002662: # XXXXX. PARTS/MILLION
013779,002663: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
013780,002664: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
013781,002665: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
013782,002666: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
013783,002667: # 01100 RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
013784,002668: # USE ARITHDP1
013785,002669: # 01101 RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
013786,002670: # USE ARITHDP1
013787,002671: # 01110 LANDING RADAR ALTITUDE(XXXXX.FEET)
013788,002672: # USE ARITHDP1
013789,002673:
![]() |
Page 346 |
013791,002675: # 01111 INITIAL/FINAL ALTITUDE(XXXXX.FEET)
013792,002676: # USE ARITHDP1
013793,002677: # 10000 ALTITUDE RATE(XXXXX.FEET) USE ARITH
013794,002678: # 10001 FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
013795,002679: # USE ARITH
013796,002680: # 10010 ROTATIONAL HAND CONTROLLER ANGLE RATES
013797,002681: # XXXXX.DEG/SEC USE ARITH
013798,002682: # 10011 LANDING RADAR VELX(XXXXX.FEET/SEC)
013799,002683: # USE ARITHDP1
013800,002684: # 10100 LANDING RADAR VELY(XXXXX.FEET/SEC)
013801,002685: # USE ARITHDP1
013802,002686: # 10101 LANDING RADAR VELZ(XXXXX.FEET/SEC)
013803,002687: # USE ARITHDP1
013804,002688: # 10110 OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
013805,002689: # USE ARITHDP1
013806,002690: # END OF SF CONSTANT CODE NUMBERS
013807,002691:
013808,002692:
013809,002693:
013810,002694: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
013811,002695: # NOUN TABLES.
013812,002696: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
013813,002697: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
013814,002698: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
013815,002699:
![]() |
Page 347 |
013817,002701: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
013818,002702: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
013819,002703: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
013820,002704:
013821,002705:
013822,002706:
013823,002707: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
013824,002708: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
013825,002709: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
013826,002710: # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
013827,002711: # MIXED OR NORMAL NOUN.
013828,002712:
013829,002713: 16,2000 BANK 16
013830,002714:
013831,002715: 16,2000 52136 LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
013832,002716: 16,2001 50267 INDEX NOUNREG
013833,002717: 16,2002 32052 CAF NNADTAB
013834,002718: 16,2003 54132 TS NNADTEM
013835,002719: 16,2004 50267 INDEX NOUNREG
013836,002720: 16,2005 32152 CAF NNTYPTAB
013837,002721: 16,2006 54133 TS NNTYPTEM
013838,002722: 16,2007 40267 CS NOUNREG
013839,002723: 16,2010 62036 AD MIXCON
013840,002724: 16,2011 00006 EXTEND
013841,002725: 16,2012 62016 BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
013842,002726: 16,2013 37657 CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
013843,002727: 16,2014 54124 TS MIXBR # NORMAL. +1 INTO MIXBR.
013844,002728: 16,2015 02034 TC LODNLV
013845,002729: 16,2016 37656 LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
013846,002730: 16,2017 54124 TS MIXBR
013847,002731: 16,2020 50267 INDEX NOUNREG
013848,002732: 16,2021 32420 CAF RUTMXTAB -55
013849,002733: 16,2022 54137 TS RUTMXTEM
013850,002734: 16,2023 36426 CAF LOW10
013851,002735: 16,2024 70132 MASK NNADTEM
013852,002736: 16,2025 54002 TS Q # TEMP
013853,002737: 16,2026 50000 INDEX A
013854,002738: 16,2027 32406 CAF IDADDTAB
013855,002739: 16,2030 54134 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
013856,002740: 16,2031 00006 EXTEND
013857,002741: 16,2032 50002 INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
013858,002742: 16,2033 32410 DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
013859,002743: 16,2034 52136 LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
013860,002744: 16,2035 52006 DXCH Z
013861,002745:
013862,002746: 16,2036 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
013863,002747:
013864,002748:
013865,002749:
013866,002750: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
013867,002751:
![]() |
Page 348 |
013869,002753: 16,2037 52110 GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
013870,002754: 16,2040 00006 EXTEND
013871,002755: 16,2041 50000 INDEX A
013872,002756: 16,2042 32331 DCA SFOUTAB
013873,002757: 16,2043 52110 SFCOM DXCH SFTEMP1
013874,002758: 16,2044 52006 DXCH Z
013875,002759:
013876,002760:
013877,002761:
013878,002762: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
013879,002763:
013880,002764: 16,2045 52110 GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
013881,002765: 16,2046 00006 EXTEND
013882,002766: 16,2047 50000 INDEX A
013883,002767: 16,2050 32253 DCA SFINTAB
013884,002768: 16,2051 12043 TCF SFCOM
013885,002769:
013886,002770:
013887,002771:
013888,002772: # NN NORMAL NOUNS
013889,002773: 16,2052 00000 NNADTAB OCT 00000 # 00 NOT IN USE
013890,002774: 16,2053 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
013891,002775: 16,2054 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
013892,002776: 16,2055 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
013893,002777: 16,2056 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
013894,002778: 16,2057 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
013895,002779: 16,2060 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
013896,002780: 16,2061 00000 OCT 00000 # 07 SPARE
013897,002781: 16,2062 77776 OCT 77776 # 10 CHANNEL TO BE SPECIFIED
013898,002782: 16,2063 00000 OCT 00000 # 11 SPARE
013899,002783: 16,2064 00000 OCT 00000 # 12 SPARE
013900,002784: 16,2065 00000 OCT 00000 # 13 SPARE
013901,002785: 16,2066 00000 OCT 00000 # 14 SPARE
013902,002786: 16,2067 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
013903,002787: 16,2070 00024 ECADR TIME2 # 16 TIME SECONDS
013904,002788: 16,2071 00024 ECADR TIME2 # 17 TIME HOURS
013905,002789: 16,2072 00032 ECADR CDUX # 20 ICDU
013906,002790: 16,2073 00037 ECADR PIPAX # 21 PIPAS
013907,002791: 16,2074 00400 ECADR THETAD # 22 NEW ANGLES I
013908,002792: 16,2075 00336 ECADR DSPTEM2 # 23 DELTA ANGLES I
013909,002793: 16,2076 00333 ECADR DSPTEM1 # 24 DELTA TIME (SEC)
013910,002794: 16,2077 00333 ECADR DSPTEM1 # 25 CHECKLIST
013911,002795: 16,2100 00333 ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
013912,002796: 16,2101 01361 ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
013913,002797: 16,2102 00333 ECADR DSPTEM1 # 30 STAR NUMBERS
013914,002798: 16,2103 01363 ECADR FAILREG # 31 FAILREG
013915,002799: 16,2104 02166 ECADR TDEC # 32 DECISION TIME (MIDCOURSE)
013916,002800: 16,2105 02046 ECADR TET # 33 EPHEMERIS TIME (MIDCOURSE)
013917,002801: 16,2106 02174 ECADR MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
013918,002802: 16,2107 00333 ECADR DSPTEM1 # 35 INBIT MESSAGE
013919,002803:
![]() |
Page 349 |
013921,002805: 16,2110 01474 ECADR LANDMARK # 36 LANDMARK DATA 1
013922,002806: 16,2111 01477 ECADR LANDMARK +3 # 37 LANDMARK DATA 2
013923,002807: 16,2112 00035 ECADR OPTY # 40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
013924,002808: 16,2113 00423 ECADR TANG # 41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
013925,002809: 16,2114 00336 ECADR DSPTEM2 # 42 AOT ROTATION ANGLES
013926,002810: 16,2115 00375 ECADR XYMARK # 43 AOT DETENT CODE
013927,002811: 16,2116 00360 ECADR FORVEL # 44 FORWARD VELOCITY, LATERAL VELOCITY
013928,002812: 16,2117 03035 ECADR PCOM # 45 ROTATIONAL HAND CONTROLLER ANGLE RATE
013929,002813: 16,2120 00000 OCT 00000 # 46 SPARE
013930,002814: 16,2121 00000 OCT 00000 # 47 SPARE
013931,002815: 16,2122 00000 OCT 00000 # 50 SPARE
013932,002816: 16,2123 00000 OCT 00000 # 51 SPARE
013933,002817: 16,2124 01440 ECADR GBIASX # 52 GYRO BIAS DRIFT
013934,002818: 16,2125 01443 ECADR ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
013935,002819: 16,2126 01446 ECADR ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
013936,002820:
013937,002821: # NN MIXED NOUNS
013938,002822: 16,2127 02000 OCT 02000 # 55 LANDING RADAR ALTITUDE, TIME(SEC)
013939,002823: 16,2130 02002 OCT 02002 # 56 LANDING RADAR VELX, TIME(SEC)
013940,002824: 16,2131 02004 OCT 02004 # 57 LANDING RADAR VELY, TIME(SEC)
013941,002825: 16,2132 02006 OCT 02006 # 60 LANDING RADAR VELZ, TIME(SEC)
013942,002826: 16,2133 02010 OCT 02010 # 61 TARGET AZIMUTH AND ELEVATION
013943,002827: 16,2134 04012 OCT 04012 # 62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
013944,002828: 16,2135 04015 OCT 04015 # 63 REND. RADAR RANGE RATE, TRUN, SHAFT
013945,002829: 16,2136 04020 OCT 04020 # 64 INITIAL ALT, FINAL ALT, ALT RATE
013946,002830: 16,2137 02023 OCT 02023 # 65 SAMPLED TIME (HOURS AND SECONDS)
013947,002831: # (FETCHED IN INTERRUPT)
013948,002832: 16,2140 04025 OCT 04025 # 66 SYSTEM TEST RESULTS
013949,002833: 16,2141 04030 OCT 04030 # 67 DELTA GYRO ANGLES
013950,002834: 16,2142 02033 OCT 02033 # 70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
013951,002835: 16,2143 02035 OCT 02035 # 71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
013952,002836: 16,2144 04037 OCT 04037 # 72 DELTA POSITION
013953,002837: 16,2145 04042 OCT 04042 # 73 DELTA VELOCITY
013954,002838: 16,2146 04045 OCT 04045 # 74 MEASUREMENT DATA (MIDCOURSE)
013955,002839: 16,2147 04050 OCT 04050 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
013956,002840: 16,2150 04053 OCT 04053 # 76 POSITION VECTOR
013957,002841: 16,2151 04056 OCT 04056 # 77 VELOCITY VECTOR
013958,002842:
013959,002843:
013960,002844:
013961,002845: # NN NORMAL NOUNS
013962,002846: 16,2152 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
013963,002847: 16,2153 00040 OCT 00040 # 01 1COMP FRACTIONAL
013964,002848: 16,2154 00140 OCT 00140 # 02 1COMP WHOLE
013965,002849: 16,2155 00102 OCT 00102 # 03 1COMP DEGREES
013966,002850: 16,2156 00241 OCT 00241 # 04 1COMP HOURS
013967,002851: 16,2157 00200 OCT 00200 # 05 1COMP SECONDS
013968,002852: 16,2160 00343 OCT 00343 # 06 1COMP GYRO DEGREES
013969,002853: 16,2161 00000 OCT 00000 # 07 SPARE
013970,002854: 16,2162 00000 OCT 00000 # 10 1COMP OCTAL ONLY
013971,002855:
![]() |
Page 350 |
013973,002857: 16,2163 00000 OCT 00000 # 11 SPARE
013974,002858: 16,2164 00000 OCT 00000 # 12 SPARE
013975,002859: 16,2165 00000 OCT 00000 # 13 SPARE
013976,002860: 16,2166 00000 OCT 00000 # 14 SPARE
013977,002861: 16,2167 00000 OCT 00000 # 15 1COMP OCTAL ONLY
013978,002862: 16,2170 00200 OCT 00200 # 16 1COMP SECONDS
013979,002863: 16,2171 00241 OCT 00241 # 17 1COMP HOURS
013980,002864: 16,2172 04102 OCT 04102 # 20 3COMP DEGREES
013981,002865: 16,2173 04140 OCT 04140 # 21 3COMP WHOLE
013982,002866: 16,2174 04102 OCT 04102 # 22 3COMP DEGREES
013983,002867: 16,2175 04102 OCT 04102 # 23 3COMP DEGREES
013984,002868: 16,2176 00200 OCT 00200 # 24 1COMP SECONDS
013985,002869: 16,2177 00140 OCT 00140 # 25 1COMP WHOLE
013986,002870: 16,2200 04000 OCT 04000 # 26 3COMP OCTAL ONLY
013987,002871: 16,2201 00140 OCT 00140 # 27 1COMP WHOLE
013988,002872: 16,2202 04140 OCT 04140 # 30 3COMP WHOLE
013989,002873: 16,2203 04000 OCT 04000 # 31 3COMP OCTAL ONLY
013990,002874: 16,2204 00252 OCT 00252 # 32 1COMP TIME WEEKS
013991,002875: 16,2205 00252 OCT 00252 # 33 1COMP TIME WEEKS
013992,002876: 16,2206 00350 OCT 00350 # 34 1COMP POISTION
013993,002877: 16,2207 04000 OCT 04000 # 35 3COMP OCTAL ONLY
013994,002878: 16,2210 04000 OCT 04000 # 36 3COMP OCTAL ONLY
013995,002879: 16,2211 04000 OCT 04000 # 37 3COMP OCTAL ONLY
013996,002880: 16,2212 02102 OCT 02102 # 40 2COMP DEGREES
013997,002881: 16,2213 02102 OCT 02102 # 41 2COMP DEGREES
013998,002882: 16,2214 02102 OCT 02102 # 42 2COMP DEGREES
013999,002883: 16,2215 00140 OCT 00140 # 43 1COMP WHOLE
014000,002884: 16,2216 02161 OCT 02161 # 44 2COMP FORWARD/LATERAL VELOCITY
014001,002885: 16,2217 04162 OCT 04162 # 45 3COMP ROT HAND CONT ANGLE RATE
014002,002886: 16,2220 00000 OCT 00000 # 46 SPARE
014003,002887: 16,2221 00000 OCT 00000 # 47 SPARE
014004,002888: 16,2222 00000 OCT 00000 # 50 SPARE
014005,002889: 16,2223 00000 OCT 00000 # 51 SPARE
014006,002890: 16,2224 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
014007,002891: 16,2225 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
014008,002892: 16,2226 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
014009,002893:
014010,002894: # NN MIXED NOUNS
014011,002895: 16,2227 00016 OCT 00016 # 55 2COMP LANDING RADAR ALT, SECONDS
014012,002896: 16,2230 00023 OCT 00023 # 56 2COMP LANDING RADAR VELX, SECONDS
014013,002897: 16,2231 00024 OCT 00024 # 57 2COMP LANDING RADAR VELY, SECONDS
014014,002898: 16,2232 00025 OCT 00025 # 60 2COMP LANDING RADAR VELZ, SECONDS
014015,002899: 16,2233 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
014016,002900: 16,2234 04114 OCT 04114 # 62 3COMP REND. RADAR RANGE, DEG, DEG
014017,002901: 16,2235 04115 OCT 04115 # 63 3COMP REND. RAD. RANGE RATE, DEG,DEG
014018,002902: 16,2236 40757 OCT 40757 # 64 3COMP IN/FN ALT, IN/FN ALT, ALT RATE
014019,002903: 16,2237 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
014020,002904: 16,2240 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
014021,002905: 16,2241 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
014022,002906: 16,2242 00126 OCT 00126 # 70 2COMP OPT TRACK AZIMUTH, DEGREES
014023,002907:
![]() |
Page 351 |
014025,002909: 16,2243 00126 OCT 00126 # 71 2COMP OPT TRACK AZIMUTH, DEGREES
014026,002910: 16,2244 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
014027,002911: 16,2245 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
014028,002912: 16,2246 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
014029,002913: 16,2247 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
014030,002914: 16,2250 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
014031,002915: 16,2251 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
014032,002916:
014033,002917:
014034,002918:
014035,002919: 16,2252 00006 SFINTAB OCT 00006 # WHOLE,TIME(SEC)
014036,002920: 16,2253 03240 OCT 03240
014037,002921: 16,2254 00253 OCT 00253 # TIME HOURS ( = 1.3..... )
014038,002922: 16,2255 25124 OCT 25124 # (POINT BETWEEN BITS 7-8 )
014039,002923: 16,2256 00000 OCT 0 # DEGREES (SFCON IN DEGINSF)
014040,002924: 16,2257 00000 OCT 0
014041,002925: 16,2260 10707 OCT 10707 # GYRO DEGREES
014042,002926: 16,2261 03435 OCT 03435 # UPPED BY 1
014043,002927: 16,2262 00001 OCT 00001 # GYRO BIAS DRIFT
014044,002928: 16,2263 02133 OCT 02133
014045,002929: 16,2264 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
014046,002930: 16,2265 30322 OCT 30322
014047,002931: 16,2266 00004 OCT 00004 # PIPA BIAS
014048,002932: 16,2267 14021 OCT 14021
014049,002933: 16,2270 00314 OCT 00314 # PIPA SCALE ERROR.
014050,002934: 16,2271 31463 OCT 31463
014051,002935: 16,2272 23420 OCT 23420 # POSITION
014052,002936: 16,2273 00000 OCT 00000
014053,002937: 16,2274 00201 OCT 00201 # VELOCITY
014054,002938: 16,2275 30327 OCT 30327 # ( POINT BETWEEN BITS 7-8 )
014055,002939: 16,2276 01371 OCT 01371 # TIME WEEKS
014056,002940: 16,2277 34750 OCT 34750 # ( POINT BETWEEN BITS 7-8 )
014057,002941: 16,2300 00001 OCT 00001 # ELEVATION DEGREES
014058,002942: 16,2301 03434 OCT 03434
014059,002943: 16,2302 00006 OCT 00006 # RENDEZVOUS RADAR RANGE
014060,002944: 16,2303 20162 OCT 20162
014061,002945: 16,2304 00011 OCT 00011 # RENDEZVOUS RADAR RANGE RATE
014062,002946: 16,2305 27066 OCT 27066
014063,002947: 16,2306 00016 OCT 00016 # LANDING RADAR ALTITUDE
014064,002948: 16,2307 04245 OCT 04245
014065,002949: 16,2310 00002 OCT 00002 # INITIAL/FINAL ALTITUDE
014066,002950: 16,2311 23224 OCT 23224
014067,002951: 16,2312 00014 OCT 00014 # ALTITUDE RATE
014068,002952: 16,2313 06500 OCT 06500
014069,002953: 16,2314 00012 OCT 00012 # FORWARD/LATERAL VELOCITY
014070,002954: 16,2315 36455 OCT 36455
014071,002955: 16,2316 04256 OCT 04256 # ROT HAND CONT ANGLE RATE
014072,002956: 16,2317 07071 OCT 07071
014073,002957: 16,2320 77766 OCT 77766 # LANDING RADAR VELX (NEG TO SWITCH SIGNS)
014074,002958: 16,2321 60044 OCT 60044
014075,002959:
![]() |
Page 352 |
014077,002961: 16,2322 00004 OCT 00004 # LANDING RADAR VELY
014078,002962: 16,2323 34055 OCT 34055
014079,002963: 16,2324 00007 OCT 00007 # LANDING RADAR VELZ
014080,002964: 16,2325 04147 OCT 04147
014081,002965: 16,2326 00005 OCT 00005 # OPTICAL AZIMUTH TRACKER ANGLE
014082,002966: 16,2327 21616 OCT 21616
014083,002967: # END OF SFINTAB
014084,002968:
014085,002969:
014086,002970:
014087,002971: 16,2330 05174 SFOUTAB OCT 05174 # WHOLE, TIME(SEC)
014088,002972: 16,2331 13261 OCT 13261
014089,002973: 16,2332 27670 OCT 27670 # TIME HOURS
014090,002974: 16,2333 31357 OCT 31357
014091,002975: 16,2334 00000 OCT 0 # DEGREES
014092,002976: 16,2335 00000 OCT 0
014093,002977: 16,2336 00714 OCT 00714 # GYRO DEGREES
014094,002978: 16,2337 31463 OCT 31463 # (POINT BETWEEN BITS 7-8)
014095,002979: 16,2340 35753 OCT 35753 # GYRO BIAS DRIFT
014096,002980: 16,2341 32323 OCT 32323
014097,002981: 16,2342 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
014098,002982: 16,2343 06400 OCT 06400
014099,002983: 16,2344 07237 OCT 07237 # PIPA BIAS
014100,002984: 16,2345 37776 OCT 37776
014101,002985: 16,2346 00120 OCT 00120 # PIPA SCALE ERROR
014102,002986: 16,2347 00000 OCT 00000
014103,002987: 16,2350 00321 OCT 00321 # POSITION
014104,002988: 16,2351 26706 OCT 26706 # ( POINT BETWEEN BITS 7-8 )
014105,002989: 16,2352 37441 OCT 37441 # VELOCITY
014106,002990: 16,2353 14247 OCT 14247
014107,002991: 16,2354 05300 OCT 05300 # TIME WEEKS
014108,002992: 16,2355 20305 OCT 20305
014109,002993: 16,2356 34631 OCT 34631 # ELEVATION DEGREES
014110,002994: 16,2357 23146 OCT 23146
014111,002995: 16,2360 04725 OCT 04725 # RENDEZVOUS RADAR RANGE
014112,002996: 16,2361 35454 OCT 35454
014113,002997: 16,2362 03225 OCT 03225 # RENDEZVOUS RADAR RANGE RATE
014114,002998: 16,2363 07470 OCT 07470
014115,002999: 16,2364 02207 OCT 02207 # LANDING RADAR ALTITUDE
014116,003000: 16,2365 03255 OCT 03255
014117,003001: 16,2366 14226 OCT 14226 # INITIAL/FINAL ALTITUDE
014118,003002: 16,2367 31757 OCT 31757
014119,003003: 16,2370 02476 OCT 02476 # ALTITUDE RATE
014120,003004: 16,2371 05531 OCT 05531
014121,003005: 16,2372 02727 OCT 02727 # FORWARD/LATERAL VELOCITY
014122,003006: 16,2373 16415 OCT 16415
014123,003007: 16,2374 00007 OCT 00007 # ROT HAND CONT ANGLE RATE
014124,003008: 16,2375 13734 OCT 13734
014125,003009: 16,2376 74502 OCT 74502 # LANDING RADAR VELX (NEG TO SWITCH SIGNS)
014126,003010: 16,2377 76401 OCT 76401
014127,003011:
![]() |
Page 353 |
014129,003013: 16,2400 06436 OCT 06436 # LANDING RADAR VELY
014130,003014: 16,2401 35664 OCT 35664
014131,003015: 16,2402 04371 OCT 04371 # LANDING RADAR VELZ
014132,003016: 16,2403 17420 OCT 17420
014133,003017: 16,2404 05605 OCT 05605 # OPTICAL TRACKER AZIMUTH ANGLE
014134,003018: 16,2405 03656 OCT 03656
014135,003019: # END OF SFOUTAB
014136,003020:
014137,003021:
014138,003022: # MIXNOUN SF ROUT
014139,003023: 16,2406 03461 IDADDTAB ECADR RSTACK +18D # 01 LANDING RADAR ALTITUDE
014140,003024: 16,2407 03465 ECADR RSTACK +22D # 01 SECONDS
014141,003025: 16,2410 03437 ECADR RSTACK # 02 LANDING RADAR VELX
014142,003026: 16,2411 03443 ECADR RSTACK +4 # 02 SECONDS
014143,003027: 16,2412 03445 ECADR RSTACK +6 # 03 LANDING RADAR VELY
014144,003028: 16,2413 03451 ECADR RSTACK +10D # 03 SECONDS
014145,003029: 16,2414 03453 ECADR RSTACK +12D # 04 LANDING RADAR VELY
014146,003030: 16,2415 03457 ECADR RSTACK +16D # 04 SECONDS
014147,003031: 16,2416 00333 ECADR DSPTEM1 # 05 DEGREES
014148,003032: 16,2417 00334 ECADR DSPTEM1 +1 # 05 ELEVATION DEGREES
014149,003033: 16,2420 03437 ECADR RSTACK # 06 RENDEZVOUS RADAR RANGE
014150,003034: 16,2421 03441 ECADR RSTACK +2 # 06 DEGREES
014151,003035: 16,2422 03442 ECADR RSTACK +3 # 06 DEGREES
014152,003036: 16,2423 03445 ECADR RSTACK +6 # 07 RENDEZVOUS RADAR RANGE RATE
014153,003037: 16,2424 03447 ECADR RSTACK +8D # 07 DEGREES
014154,003038: 16,2425 03450 ECADR RSTACK +9D # 07 DEGREES
014155,003039: 16,2426 00352 ECADR ALT # 10 INITIAL/FINAL ALTITUDE
014156,003040: 16,2427 00355 ECADR FINALT # 10 INITIAL/FINAL ALTITUDE
014157,003041: 16,2430 00354 ECADR ALTRATE # 10 ALTITUDE RATE
014158,003042: 16,2431 00013 ECADR SAMPTIME # 11 HOURS
014159,003043: 16,2432 00013 ECADR SAMPTIME # 11 SECONDS
014160,003044: 16,2433 00336 ECADR DSPTEM2 # 11 WHOLE
014161,003045: 16,2434 00337 ECADR DSPTEM2 +1 # 12 FRACTIONAL
014162,003046: 16,2435 00340 ECADR DSPTEM2 +2 # 12 WHOLE
014163,003047: 16,2436 00403 ECADR DELVX # 13 GYRO DEGREES
014164,003048: 16,2437 00405 ECADR DELVX +2 # 13 GYRO DEGREES
014165,003049: 16,2440 00407 ECADR DELVX +4 # 13 GYRO DEGREES
014166,003050: 16,2441 01471 ECADR AZANG # 14 OPT TRACK AZIMUTH ANGLE
014167,003051: 16,2442 01471 ECADR ELANG # 14 DEGREES
014168,003052: 16,2443 01471 ECADR DESLOTSY # 15 OPT TRACK AZIMUTH ANGLE
014169,003053: 16,2444 01471 ECADR DESLOTSX # 15 DEGREES
014170,003054: 16,2445 02052 ECADR DELR # 16 POSITION
014171,003055: 16,2446 02054 ECADR DELR +2 # 16 POSITION
014172,003056: 16,2447 02056 ECADR DELR +4 # 16 POSITION
014173,003057: 16,2450 02060 ECADR DELVEL # 17 VELOCITY
014174,003058: 16,2451 02062 ECADR DELVEL +2 # 17 VELOCITY
014175,003059: 16,2452 02064 ECADR DELVEL +4 # 17 VELOCITY
014176,003060: 16,2453 02166 ECADR TDEC # 20 TIME WEEKS
014177,003061: 16,2454 02174 ECADR MEASQ # 20 POSITION
014178,003062:
![]() |
Page 354 |
014180,003064: 16,2455 02200 ECADR MEASMODE # 20 WHOLE
014181,003065: 16,2456 00333 ECADR DSPTEM1 # 21 POSITION
014182,003066: 16,2457 00335 ECADR DSPTEM1 +2 # 21 VELOCITY
014183,003067: 16,2460 02176 ECADR DELTAQ # 21 POSITION
014184,003068: 16,2461 00333 ECADR DSPTEM1 # 22 POSITION
014185,003069: 16,2462 00335 ECADR DSPTEM1 +2 # 22 POSITION
014186,003070: 16,2463 00337 ECADR DSPTEM1 +4 # 22 POSITION
014187,003071: 16,2464 00333 ECADR DSPTEM1 # 23 VELOCITY
014188,003072: 16,2465 00335 ECADR DSPTEM1 +2 # 23 VELOCITY
014189,003073: 16,2466 00337 ECADR DSPTEM1 +4 # 23 VELOCITY
014190,003074: 16,2467 00000 OCT 00000 # SPARE
014191,003075: 16,2470 00000 OCT 00000 # SPARE
014192,003076: 16,2471 00000 OCT 00000 # SPARE
014193,003077: 16,2472 00000 OCT 00000 # SPARE
014194,003078: 16,2473 00000 OCT 00000 # SPARE
014195,003079: 16,2474 00000 OCT 00000 # SPARE
014196,003080: # END OF IDADDTAB
014197,003081:
014198,003082:
014199,003083:
014200,003084: # MIXNOUN SF ROUT
014201,003085: 16,2475 00204 RUTMXTAB OCT 00204 # 01 LANDING RADAR ALTITUDE, SECONDS
014202,003086: 16,2476 00204 OCT 00204 # 02 LANDING RADAR VELX, SECONDS
014203,003087: 16,2477 00204 OCT 00204 # 03 LANDING RADAR VELY, SECONDS
014204,003088: 16,2500 00204 OCT 00204 # 04 LANDING RADAR VELZ, SECONDS
014205,003089: 16,2501 00142 OCT 00142 # 05 DEGREES, ELEVATION DEGREES
014206,003090: 16,2502 04104 OCT 04104 # 06 RENDEZVOUS RADAR RANGE, DEG, DEG
014207,003091: 16,2503 04104 OCT 04104 # 07 REND. RADAR RANGE RATE, DEG, DEG
014208,003092: 16,2504 06204 OCT 06204 # 10 INIT/FIN ALT, INIT/FIN ALT, ALT RATE
014209,003093: 16,2505 00205 OCT 00205 # 11 HOURS, SECONDS
014210,003094: 16,2506 06043 OCT 06043 # 12 WHOLE, FRACTIONAL, WHOLE
014211,003095: 16,2507 16347 OCT 16347 # 13 GYRO DEGREES (FOR EACH)
014212,003096: 16,2510 00104 OCT 00104 # 14 OPT TRACK AZIMUTH ANGLE, DEGREES
014213,003097: 16,2511 00104 OCT 00104 # 15 OPT TRACK AZIMUTH ANGLE, DEGREES
014214,003098: 16,2512 16347 OCT 16347 # 16 POSITION (FOR EACH)
014215,003099: 16,2513 12245 OCT 12245 # 17 VELOCITY (FOR EACH)
014216,003100: 16,2514 06345 OCT 06345 # 20 TIME WEEKS, POSITION, WHOLE
014217,003101: 16,2515 16247 OCT 16247 # 21 POSITION , VELOCITY, POSITION
014218,003102: 16,2516 16347 OCT 16347 # 22 POSITION (FOR EACH)
014219,003103: 16,2517 12245 OCT 12245 # 23 VELOCITY (FOR EACH)
014220,003104: # END OF RUTMXTAB
014221,003105:
014222,003106:
014223,003107:
014224,003108: 16,2520 ENDPINS3 EQUALS
014225,003109:
![]() |
Page 355 |
014227,003111:
014228,003112: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
014229,003113:
014230,003114:
014231,003115:
014232,003116: 5161 SETLOC DATWAIT1 +2
014233,003117:
014234,003118: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
014235,003119: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
014236,003120:
014237,003121: 5161 54304 SETNCADR TS NOUNCADR # STORE ECADR
014238,003122: 5162 54003 TS EBANK # SET EBANK BITS
014239,003123: 5163 75235 MASK LOW8
014240,003124: 5164 65236 AD OCT1400
014241,003125: 5165 54131 TS NOUNADD # PUT E ADRES INTO NOUNADD
014242,003126: 5166 00002 TC Q
014243,003127:
014244,003128:
014245,003129:
014246,003130: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
014247,003131: # E ADRES AND PUTS IT INTO NOUNADD.
014248,003132:
014249,003133: 5167 30304 SETNADD CA NOUNCADR
014250,003134: 5170 15162 TCF SETNCADR +1
014251,003135:
014252,003136:
014253,003137:
014254,003138: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
014255,003139: # DERIVED AND LEFT IN A.
014256,003140:
014257,003141: 5171 54003 SETEBANK TS EBANK # SET EBANK BITS
014258,003142: 5172 75235 MASK LOW8
014259,003143: 5173 65236 AD OCT1400 # E ADRES LEFT IN A
014260,003144: 5174 00002 TC Q
014261,003145:
014262,003146:
014263,003147:
014264,003148: 5175 00016 R1D1 OCT 16
014265,003149: 5176 00011 R2D1 OCT 11
014266,003150: 5177 00004 R3D1 OCT 4
014267,003151:
014268,003152: 5200 54020 RIGHT5 TS CYR
014269,003153: 5201 40020 CS CYR
014270,003154: 5202 40020 CS CYR
014271,003155: 5203 40020 CS CYR
014272,003156: 5204 40020 CS CYR
014273,003157: 5205 56020 XCH CYR
014274,003158: 5206 00002 TC Q
014275,003159:
014276,003160: 5207 54022 LEFT5 TS CYL
014277,003161: 5210 40022 CS CYL
014278,003162:
![]() |
Page 356 |
014280,003164: 5211 40022 CS CYL
014281,003165: 5212 40022 CS CYL
014282,003166: 5213 40022 CS CYL
014283,003167: 5214 56022 XCH CYL
014284,003168: 5215 00002 TC Q
014285,003169:
014286,003170: 5216 60000 SLEFT5 DOUBLE
014287,003171: 5217 60000 DOUBLE
014288,003172: 5220 60000 DOUBLE
014289,003173: 5221 60000 DOUBLE
014290,003174: 5222 60000 DOUBLE
014291,003175: 5223 00002 TC Q
014292,003176:
014293,003177:
014294,003178:
014295,003179: 5224 00037 LOW5 OCT 37
014296,003180: 5225 01740 MID5 OCT 1740
014297,003181: 5226 76000 HI5 OCT 76000 # MUST STAY HERE
014298,003182:
014299,003183: 5227 04363 TCNOVAC TC NOVAC
014300,003184: 5230 04536 TCWAIT TC WAITLIST
014301,003185: 5231 04602 TCTSKOVR TC TASKOVER
014302,003186: 5232 04374 TCFINDVC TC FINDVAC
014303,003187:
014304,003188:
014305,003189:
014306,003190: 5233 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
014307,003191:
014308,003192:
014309,003193:
014310,003194: 5234 03777 LOW11 OCT 3777
014311,003195: 5235 5234 B12-1 EQUALS LOW11
014312,003196: 5235 00377 LOW8 OCT 377
014313,003197: 5236 01400 OCT1400 OCT 1400
014314,003198:
014315,003199:
014316,003200:
014317,003201: 5237 00023 VD1 OCT 23
014318,003202: 5240 00021 ND1 OCT 21
014319,003203: 5241 00025 MD1 OCT 25
014320,003204:
014321,003205: 5242 00012 BINCON DEC 10 B-14
014322,003206:
014323,003207: 5243 37651 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
014324,003208: 5244 00006 EXTEND
014325,003209: 5245 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
014326,003210: 5246 00002 TC Q
014327,003211:
014328,003212: 5247 47651 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
014329,003213: 5250 00006 EXTEND
014330,003214:
![]() |
Page 357 |
014332,003216: 5251 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
014333,003217: 5252 00002 TC Q
014334,003218:
014335,003219: 5253 37653 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
014336,003220: 5254 00006 EXTEND
014337,003221: 5255 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
014338,003222: 5256 00002 TC Q
014339,003223:
014340,003224: 5257 00006 LODSAMPT EXTEND
014341,003225: 5260 30025 DCA TIME2
014342,003226: 5261 52014 DXCH SAMPTIME
014343,003227: 5262 00002 TC Q
014344,003228:
014345,003229:
014346,003230:
014347,003231: 5263 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
014348,003232: 5264 30142 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
014349,003233: 5265 20142 DAS MPAC +1
014350,003234: 5266 60140 AD MPAC
014351,003235: 5267 26140 ADS MPAC
014352,003236: 5270 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
014353,003237: 5271 00002 TC Q # NO NET OF/UF
014354,003238: 5272 54105 TS OVFIND # OVFIND SET TO +/- 1 FOR OF/UF
014355,003239: 5273 00002 TC Q
014356,003240:
014357,003241:
014358,003242:
014359,003243: 5274 37652 FLASHON CAF BIT6 # TURN ON V/N FLASH
014360,003244: 5275 00006 EXTEND # BIT 6 OF CHANNEL 11
014361,003245: 5276 05011 WOR DSALMOUT
014362,003246: 5277 00002 TC Q
014363,003247:
014364,003248:
014365,003249:
014366,003250: 5300 47652 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
014367,003251: 5301 00006 EXTEND
014368,003252: 5302 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
014369,003253: 5303 00002 TC Q
014370,003254:
![]() |
Page 358 |
014372,003256: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
014373,003257: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
014374,003258: # MAKE IT BUSY TO OTHER INTERNAL USERS.
014375,003259:
014376,003260: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
014377,003261: # SYSTEM FOR OTHER INTERNAL USERS.
014378,003262:
014379,003263: # THE CALLING SEQUENCES ARE
014380,003264: # L TC GRABDSP
014381,003265: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
014382,003266: # L+2 RETURN HERE MEANS YOU HAVE IT
014383,003267:
014384,003268: # L TC NVSUB
014385,003269: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
014386,003270: # L+2 RETURN HERE AFTER EXECUTION
014387,003271:
014388,003272:
014389,003273:
014390,003274: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
014391,003275: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
014392,003276: # GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
014393,003277: # HANDLE ONLY FIXED MEMORY.
014394,003278: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
014395,003279:
014396,003280: # THE CALLING SEQUENCE IS
014397,003281: # CAF WAKEFCADR
014398,003282: # TC GRABUSY
014399,003283:
014400,003284: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
014401,003285: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
014402,003286: # NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
014403,003287: # HANDLE ONLY FIXED MEMORY.
014404,003288: # YOUR CADR IS PUT
014405,003289: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
014406,003290:
014407,003291: # THE CALLING SEQUENCE IS
014408,003292: # CAF WAKEFCADR
014409,003293: # TC NVSUBUSY
014410,003294:
014411,003295:
014412,003296: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
014413,003297: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
014414,003298: # DISPLAYS WAITING WILL BE VISIBLE.
014415,003299:
014416,003300:
014417,003301:
014418,003302: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
014419,003303: # AND DISPLAY SYSTEM.
014420,003304: # +0 FREE
014421,003305:
![]() |
Page 359 |
014423,003307: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
014424,003308: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
014425,003309:
014426,003310:
014427,003311:
014428,003312: 5304 10324 GRABDSP CCS GRABLOCK
014429,003313: 5305 00002 TC Q # ALREADY GRABBED, RETURN TO L+1
014430,003314: 5306 37657 CAF ONE # NOT GRABBED, SET TO +1
014431,003315: 5307 54324 TS GRABLOCK # AND RETURN TO L+2
014432,003316: 5310 50002 INDEX Q
014433,003317: 5311 00001 TC 1
014434,003318:
014435,003319:
014436,003320:
014437,003321: 5312 36426 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
014438,003322: 5313 70002 MASK Q # BANKS ONLY DESIRING THE FCADR OF
014439,003323: 5314 60004 AD FBANK # 1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
014440,003324: 5315 04102 GRABUSY TC POSTJUMP # TO BE ENTERED.
014441,003325: 5316 10000 CADR GRABUSYB
014442,003326: 04,3454 SETLOC DOPROC +2
014443,003327: 04,3454 54001 GRABUSY1 TS L
014444,003328: 04,3455 10324 CCS GRABLOCK
014445,003329: 04,3456 03461 TC +3 # STILL GRABBED
014446,003330: 04,3457 30001 CA L # NOT GRABBED SO DO DIRECT CALL
014447,003331: 04,3460 04105 TC BANKJUMP
014448,003332: 04,3461 37656 CAF TWO
014449,003333: 04,3462 54130 TS LSTPTR
014450,003334: 04,3463 50130 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
014451,003335: 04,3464 10327 CCS DSPLIST # FROM BOTTOM.
014452,003336: 04,3465 03467 TC +2
014453,003337: 04,3466 03472 TC PUTINLST # SPACE FOUND
014454,003338: 04,3467 10130 CCS LSTPTR # DECREMENT POINTER
014455,003339: 04,3470 03462 TC -6
014456,003340: 04,3471 03536 TC LSTFULL
014457,003341: 04,3472 30001 PUTINLST CA L
014458,003342: 04,3473 50130 INDEX LSTPTR
014459,003343: 04,3474 54327 TS DSPLIST
014460,003344: 04,3475 04416 TC JOBSLEEP
014461,003345:
014462,003346:
014463,003347: # GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
014464,003348: # SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
014465,003349: # WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
014466,003350: # JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
014467,003351: # SYSTEM IS FREED.
014468,003352:
014469,003353: 5317 SETLOC GRABUSY +2
014470,003354: 5317 10324 GRABWAIT CCS GRABLOCK
014471,003355: 5320 15312 TCF PREGBSY # GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
014472,003356:
![]() |
Page 360 |
014474,003358: 5321 37657 CAF ONE # NOT GRABBED. GRAB AND RETURN TO L+1.
014475,003359: 5322 54324 TS GRABLOCK
014476,003360: 5323 00002 TC Q
014477,003361:
014478,003362:
014479,003363:
014480,003364: 5324 45331 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
014481,003365: 5325 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
014482,003366: 5326 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
014483,003367: 5327 04102 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
014484,003368: 5330 10001 CADR NVSUBSYB
014485,003369: 5331 02003 2K+3 OCT 2003
014486,003370:
014487,003371: 04,3476 SETLOC PUTINLST +4
014488,003372: 04,3476 54001 NVSUBSY1 TS L
014489,003373: 04,3477 10277 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
014490,003374: 04,3500 03503 TC +3 # STILL BUSY
014491,003375: 04,3501 30001 CA L # DSPLOCK = +0 SO RETURN DIRECTLY
014492,003376: 04,3502 04105 TC BANKJUMP
014493,003377: 04,3503 37656 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
014494,003378: 04,3504 54324 TS GRABLOCK
014495,003379: 04,3505 30001 CA L
014496,003380: 04,3506 56331 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
014497,003381: 04,3507 56330 XCH DSPLIST +1 # (BOTTOM)
014498,003382: 04,3510 56327 XCH DSPLIST
014499,003383: 04,3511 10000 CCS A
014500,003384: 04,3512 03536 TC LSTFULL
014501,003385: 04,3513 03515 TC +2
014502,003386: 04,3514 03536 TC LSTFULL
014503,003387: 04,3515 05253 TC RELDSPON
014504,003388: 04,3516 30001 CA L
014505,003389: 04,3517 04416 ENDNVBSY TC JOBSLEEP
014506,003390:
014507,003391:
014508,003392:
014509,003393: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
014510,003394: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
014511,003395: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
014512,003396: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
014513,003397: # IS NOT BUSY.
014514,003398:
014515,003399: 5332 SETLOC NVSUBUSY +3
014516,003400: 5332 54107 NVSBWAIT TS NVTEMP
014517,003401: 5333 10277 CCS DSPLOCK
014518,003402: 5334 15337 TCF NVSBWT1 # BUSY
014519,003403: 5335 30002 CA Q # FREE. NVSUB WILL SAVE L+1 FOR RETURN
014520,003404: 5336 15114 TCF NVSUB +5 # AFTER EXECUTION.
014521,003405: 5337 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
014522,003406: 5340 15324 TCF PRENVBSY # GO TO SLEEP.
014523,003407:
![]() |
Page 361 |
014525,003409: 5341 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
014526,003410: 5342 54130 TS RELRET # OFF, SEARCH DSPLIST
014527,003411: 5343 37667 CAF NEG1
014528,003412: 5344 60324 AD GRABLOCK
014529,003413: 5345 00006 EXTEND # SEARCH LIST ONLY IF GRABLOCK = +2
014530,003414: 5346 65354 BZMF RELDSP2 # (SOMEONE USED NVSUBUSY)
014531,003415: 5347 05367 TC WKSEARCH
014532,003416: 5350 05354 TC RELDSP2 # LIST EMPTY
014533,003417: 5351 04422 TC JOBWAKE # LIST NOT EMPTY
014534,003418: 5352 37657 CAF ONE
014535,003419: 5353 54324 TS GRABLOCK
014536,003420: 5354 00004 RELDSP2 INHINT
014537,003421: 5355 47653 CS BIT5 # TURN OFF KEY RELEASE LIGHT
014538,003422: 5356 00006 EXTEND # (BIT 5 OF CHANNEL 11)
014539,003423: 5357 03011 WAND DSALMOUT
014540,003424: 5360 37665 CAF ZERO
014541,003425: 5361 54277 TS DSPLOCK
014542,003426: 5362 00003 RELINT
014543,003427: 5363 00130 TC RELRET
014544,003428: 5364 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. RELDSP LIGHT OFF.
014545,003429: 5365 54130 TS RELRET # NO LIST SEARCH
014546,003430: 5366 05354 TC RELDSP2
014547,003431:
014548,003432:
014549,003433:
014550,003434: 5367 37665 WKSEARCH CAF ZERO # SEARCHES LIST. LEAVES RESULT IN A.
014551,003435: 5370 56327 XCH DSPLIST # IF EMPTY, RETURN TO L+1.
014552,003436: 5371 56330 XCH DSPLIST +1 # IF NOT EMPTY, INHINT AND RETURN TO L+2.
014553,003437: 5372 56331 XCH DSPLIST +2
014554,003438: 5373 00006 EXTEND
014555,003439: 5374 15400 BZF +4 # EMPTY
014556,003440: 5375 00004 INHINT # NOT EMPTY
014557,003441: 5376 50002 INDEX Q # RETURN TO L+2
014558,003442: 5377 00001 TC 1
014559,003443: 5400 00002 TC Q # RETURN TO L+1
014560,003444:
014561,003445:
014562,003446:
014563,003447: 5401 56002 FREEDSP XCH Q
014564,003448: 5402 54130 TS FREERET
014565,003449: 5403 00004 INHINT
014566,003450: 5404 35412 CAF SHOTIME
014567,003451: 5405 04536 TC WAITLIST
014568,003452: 5406 0264 EBANK= DSPCOUNT
014569,003453: 5406 03520 10000 2CADR FREEWAIT
014570,003454: 5410 00003 RELINT
014571,003455: 5411 00130 TC FREERET
014572,003456:
014573,003457: 5412 01130 SHOTIME DEC 600 B-14 # 6 SECOND WAITING PERIOD.
014574,003458:
![]() |
Page 362 |
014576,003460: 5413 ENDPINBF EQUALS
014577,003461:
014578,003462: 04,3520 SETLOC ENDNVBSY +1
014579,003463:
014580,003464: 04,3520 35233 FREEWAIT CAF CHRPRIO # CALLED BY T3RUPT
014581,003465: 04,3521 04363 TC NOVAC
014582,003466: 04,3522 0264 EBANK= DSPCOUNT
014583,003467: 04,3522 03525 10000 2CADR FREDSPD0
014584,003468: 04,3524 04602 TC TASKOVER
014585,003469:
014586,003470:
014587,003471:
014588,003472: 04,3525 05367 FREDSPD0 TC WKSEARCH # CALLED BY EXECUTIVE
014589,003473: 04,3526 03534 TC LSTEMPTY # LIST EMPTY
014590,003474: 04,3527 04422 TC JOBWAKE # LIST NOT EMPTY
014591,003475: 04,3530 00003 RELINT
014592,003476: 04,3531 37657 CAF ONE # SET FOR GRABBED CONDITION
014593,003477: 04,3532 54324 TS GRABLOCK
014594,003478: 04,3533 04440 TC ENDOFJOB
014595,003479: 04,3534 37665 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
014596,003480: 04,3535 03532 TC -3
014597,003481:
014598,003482:
014599,003483:
014600,003484: 04,3536 05446 LSTFULL TC ABORT
014601,003485: 04,3537 01206 OCT 01206 # PINBALL WAITING LINE FULL.
014602,003486:
014603,003487: 04,3540 ENDPINS1 EQUALS
014604,003488:
![]() |
Page 363 |
014606,003490: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
014607,003491: # OFF THE CAUTION AND STATUS LIGHTS.
014608,003492:
014609,003493: 05,3414 SETLOC DSPMMEND +1
014610,003494:
014611,003495: 05,3414 00004 VBTSTLTS INHINT
014612,003496: 05,3415 47657 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
014613,003497: 05,3416 70370 MASK IMODES33 # TURN OUT ANY LAMPS.
014614,003498: 05,3417 67657 AD BIT1
014615,003499: 05,3420 54370 TS IMODES33
014616,003500:
014617,003501: 05,3421 33457 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
014618,003502: 05,3422 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
014619,003503: 05,3423 05011 WOR DSALMOUT
014620,003504: 05,3424 33460 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
014621,003505: 05,3425 54322 TS DSPTAB +11D # PROG ALM.
014622,003506: 05,3426 37646 CAF BIT10 # TURN ON TEST ALARM OUTBIT
014623,003507: 05,3427 00006 EXTEND
014624,003508: 05,3430 05013 WOR CHAN13
014625,003509: 05,3431 37661 CAF TEN
014626,003510: 05,3432 54103 TSTLTS1 TS ERCNT
014627,003511: 05,3433 43455 CS FULLDSP
014628,003512: 05,3434 50103 INDEX ERCNT
014629,003513: 05,3435 54307 TS DSPTAB
014630,003514: 05,3436 10103 CCS ERCNT
014631,003515: 05,3437 03432 TC TSTLTS1
014632,003516: 05,3440 43456 CS FULLDSP1
014633,003517: 05,3441 54310 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
014634,003518: 05,3442 54313 TS DSPTAB +4
014635,003519: 05,3443 54315 TS DSPTAB +6
014636,003520: 05,3444 37660 CAF ELEVEN
014637,003521: 05,3445 54303 TS NOUT
014638,003522: 05,3446 00003 RELINT
014639,003523: 05,3447 33462 CAF SHOLTS
014640,003524: 05,3450 00004 INHINT
014641,003525: 05,3451 04536 TC WAITLIST
014642,003526: 05,3452 0307 EBANK= DSPTAB
014643,003527: 05,3452 03463 12000 2CADR TSTLTS2
014644,003528:
014645,003529: 05,3454 04440 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
014646,003530: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
014647,003531: # LIGHTS TEST WILL BE SEEN.
014648,003532:
014649,003533:
014650,003534:
014651,003535: 05,3455 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
014652,003536: 05,3456 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
014653,003537: 05,3457 00175 TSTCON1 OCT 00175
014654,003538: # UPLINK ACTIVITY, TEMP, KEY RLSE,
014655,003539: # V/N FLASH, OPERATOR ERROR.
014656,003540:
![]() |
Page 364 |
014658,003542: 05,3460 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
014659,003543: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
014660,003544: 05,3461 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
014661,003545: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
014662,003546: 05,3462 00764 SHOLTS OCT 764 # 5 SEC
014663,003547:
014664,003548:
014665,003549:
014666,003550: 05,3463 35233 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
014667,003551: 05,3464 04363 TC NOVAC
014668,003552: 05,3465 0307 EBANK= DSPTAB
014669,003553: 05,3465 03470 12000 2CADR TSTLTS3
014670,003554:
014671,003555: 05,3467 04602 TC TASKOVER
014672,003556:
014673,003557:
014674,003558:
014675,003559: 05,3470 43461 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
014676,003560: 05,3471 00004 INHINT
014677,003561: 05,3472 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
014678,003562: 05,3473 03011 WAND DSALMOUT # OPERATOR ERROR.
014679,003563: 05,3474 47646 CS BIT10 # TURN OFF TEST ALARM OUTBIT
014680,003564: 05,3475 00006 EXTEND
014681,003565: 05,3476 03013 WAND CHAN13
014682,003566: 05,3477 37641 CAF BIT15 # TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
014683,003567: 05,3500 54322 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
014684,003568: 05,3501 43521 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
014685,003569: 05,3502 70370 MASK IMODES33 # LIGHTS COMPLETE.
014686,003570: 05,3503 64515 AD PRIO16
014687,003571: 05,3504 54370 TS IMODES33
014688,003572:
014689,003573: 05,3505 43523 CS OCT55000
014690,003574: 05,3506 70367 MASK IMODES30
014691,003575: 05,3507 64514 AD PRIO15 # 15000.
014692,003576: 05,3510 54367 TS IMODES30
014693,003577:
014694,003578: 05,3511 43522 CS RFAILS2
014695,003579: 05,3512 70413 MASK RADMODES
014696,003580: 05,3513 67651 AD BIT7
014697,003581: 05,3514 54413 TS RADMODES
014698,003582:
014699,003583: 05,3515 00003 RELINT
014700,003584:
014701,003585: 05,3516 02001 TC DSPMM # REDISPLAY C(MODREG)
014702,003586: 05,3517 04102 TC POSTJUMP # TURN OFF KEY RLSE LIGHT ( AND SEARCH LIST
014703,003587: 05,3520 11315 CADR VBTERM # IF APPROPRIATE).
014704,003588: # TURN OFF V/N FLASH, SET LOADSTAT FOR
014705,003589: # FOR TERMINATE CONDITION, AND GO TO
014706,003590: # RECALTST. FINALLY DO TC ENDOFJOB.
014707,003591:
![]() |
Page 365 |
014709,003593: 05,3521 16001 13-11,1 OCT 16001
014710,003594: 05,3522 00330 RFAILS2 OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
014711,003595: 05,3523 55000 OCT55000 OCT 55000
014712,003596: 05,3524 ENDPINS2 EQUALS
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc