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