Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
008993,000002: ## Copyright: Public domain.
008994,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
008995,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
008996,000005: ## It is part of an early development version of the software
008997,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
008998,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
008999,000008: ## upon which Don Eyles's offline development program Shepatin
009000,000009: ## was based; the listing herein transcribed was actually for
009001,000010: ## the equivalent revision 0 of Shepatin.
009002,000011: ## This file is intended to be a faithful transcription, except
009003,000012: ## that the code format has been changed to conform to the
009004,000013: ## requirements of the yaYUL assembler rather than the
009005,000014: ## original YUL assembler.
009006,000015: ## Reference: pp. 219-299
009007,000016: ## Assembler: yaYUL
009008,000017: ## Contact: Ron Burkey <info@sandroid.org>.
009009,000018: ## Website: www.ibiblio.org/apollo/index.html
009010,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
009011,000020: ## 2017-06-06 RSB Transcribed through page 258, with
009012,000021: ## pp. 259-299 remaining to be done.
009013,000022: ## 2017-06-07 RSB Completed transcription.
009014,000023: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
009015,000024:
|
|
Page 219 |
009017,000026: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM DATE - 22 NOV 1966
009018,000027: # MOD NO - 0 LOG SECTION - PINBALL GAME
009019,000028: # MOD BY - FILENE BUTTONS AND LIGHTS
009020,000029: # ASSEMBLY - SUNBURST REV 18
009021,000030:
009022,000031: # FUNCTIONAL DESCRIPTION-
009023,000032:
009024,000033: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
009025,000034: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
009026,000035: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
009027,000036: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
009028,000037: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
009029,000038: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
009030,000039: # OCTAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN,
009031,000040: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
009032,000041: # REFER TO A GROUP OF ERASABLE REGISTERS.
009033,000042:
009034,000043: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
009035,000044: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
009036,000045: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
009037,000046: # :EXTENDED VERBS:).
009038,000047: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
009039,000048: # OPERATION INFORMATION:.
009040,000049:
009041,000050:
009042,000051: # CALLING SEQUENCES -
009043,000052:
009044,000053: # KEYBOARD:
009045,000054: # EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
009046,000055: # AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15. KEYRUPT1 PLACES THE KEY
009047,000056: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
009048,000057: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
009049,000058:
009050,000059: # UPLINK:
009051,000060: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
009052,000061: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
009053,000062: # KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
009054,000063:
009055,000064: # INTERNAL PROGRAMS:
009056,000065: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
009057,000066: # CODE IN A (LOW 6 BITS FOR NOUN, NEXT 6 BITS FOR VERB). DETAILS
009058,000067: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSUBWAIT: (SEE
009059,000068:
009060,000069: # SYMBOL TABLE FOR PAGE NUMBERS).
009061,000070: # THERE IS AN INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009062,000071: # IN CONJUNCTION WITH :NVSUB:. THIS IS CALLED GRAB/FREE. DETAILS
009063,000072: # DESCRIBED ON REMARKS JUST BEFORE :GRABDSP:, :GRABWAIT: (SEE SYMBOL TABLE
009064,000073: # FOR PAGE NUMBERS).
009065,000074:
|
|
Page 220 |
009067,000076: # NORMAL EXIT MODES-
009068,000077:
009069,000078: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009070,000079:
009071,000080: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009072,000081: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009073,000082: # :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009074,000083:
009075,000084:
009076,000085: # ALARM OR ABORT EXIT MODES-
009077,000086:
009078,000087: # EXTERNAL INITIATION:
009079,000088: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009080,000089: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009081,000090:
009082,000091: # INTERNAL PROGRAM INITIATION:
009083,000092: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009084,000093: # (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009085,000094:
009086,000095: # CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009087,000096: # REPORT NO. 11.
009088,000097:
009089,000098:
009090,000099: # OUTPUT-
009091,000100:
009092,000101: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009093,000102: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
009094,000103: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009095,000104: # IN INTERRUPT.
009096,000105:
009097,000106:
009098,000107: # ERASABLE INITIALIZATION-
009099,000108:
009100,000109: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009101,000110: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
009102,000111: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG,
009103,000112: # DSPLIST, +1, +2, DSPCOUNT.
009104,000113:
009105,000114: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009106,000115: # PINBALL IS GIVEN BELOW.
009107,000116:
009108,000117:
009109,000118: # THE FOLLOWING ARE OF GENERAL INTEREST-
009110,000119:
009111,000120: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
009112,000121: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
|
|
Page 221 |
009114,000123:
009115,000124: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
009116,000125: # OF RELATED INTEREST NVSUBWAIT
009117,000126: # NVSUBSY
009118,000127: # PRENVBSY
009119,000128:
009120,000129: # GRABDSP INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009121,000130: # FREEDSP IN CONJUNCTION WITH :NVSUB:.
009122,000131: # OF RELATED INTEREST GRABWAIT
009123,000132:
009124,000133: # GRABUSY
009125,000134: # PREGBSY
009126,000135:
009127,000136: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
009128,000137: # AWAITING OPERATORS RESPONSE.
009129,000138: # OF RELATED INTEREST DATAWAIT
009130,000139:
009131,000140: # MONITOR VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009132,000141:
009133,000142: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009134,000143: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009135,000144:
009136,000145: # THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009137,000146:
009138,000147:
009139,000148: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009140,000149: # PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009141,000150:
|
|
Page 222 |
009143,000152: # KEYBOARD AND DISPLAY PROGRAM
009144,000153:
009145,000154: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
009146,000155:
009147,000156: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009148,000157: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009149,000158: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
009150,000159:
009151,000160: # HENRY 6, ACT 2, SCENE 4
009152,000161:
|
|
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 10/2016 |
009155,000164:
009156,000165:
009157,000166: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009158,000167:
009159,000168:
009160,000169: # RESERVED FOR PINBALL EXECUTIVE ACTION
009161,000170:
009162,000171: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
009163,000172: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
009164,000173: # VERBREG ERASE VERB CODE
009165,000174: # NOUNREG ERASE NOUN CODE
009166,000175: # XREG ERASE R1 INPUT BUFFER
009167,000176: # YREG ERASE R2 INPUT BUFFER
009168,000177: # ZREG ERASE R3 INPUT BUFFER
009169,000178: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
009170,000179: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
009171,000180: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
009172,000181: # MODREG ERASE MODE CODE
009173,000182: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
009174,000183: # REQRET ERASE RETURN REGISTER FOR LOAD
009175,000184: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
009176,000185: # CLPASS ERASE PASS INDICATOR CLEAR
009177,000186: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
009178,000187: # NOUNCADR ERASE MACHINE CADR FOR NOUN
009179,000188: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
009180,000189:
009181,000190: # MONSAVE1 ERASE NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009182,000191: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
009183,000192: # CADRSTOR ERASE ENDIDLE STORAGE
009184,000193: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009185,000194: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
009186,000195: # MUST = NVBNKTEM-1
009187,000196: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
009188,000197: # MUST = NVQTEM+1
009189,000198: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
009190,000199: # EXTVBACT ERASE EXTENDED VERB ACTIVITY INTERLOCK
009191,000200: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009192,000201: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009193,000202:
|
|
Page 223 |
009195,000204: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009196,000205:
009197,000206:
009198,000207: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009199,000208:
009200,000209: # DSEXIT = INTB15+ RETURN FOR DSPIN
009201,000210: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
009202,000211: # BLANKRET = INTB15+ RETURN FOR 2BLANK
009203,000212:
009204,000213: # WRDRET = INTBIT15 RETURN FOR 5BLANK
009205,000214: # WDRET = INTBIT15 RETURN FOR DSPWD
009206,000215: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
009207,000216: # 21/22REG = INTBIT15 TEMP FOR CHARIN
009208,000217:
009209,000218: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
009210,000219: # CHAR = POLISH TEMP FOR CHARIN
009211,000220: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
009212,000221: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
009213,000222:
009214,000223: # SGNON = VBUF TEMP FOR +,- ON
009215,000224: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
009216,000225: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
009217,000226: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
009218,000227:
009219,000228: # SGNOFF = VBUF +1 TEMP FOR +,- ON
009220,000229: # NVTEMP = VBUF +1 TEMP FOR NVSUB
009221,000230: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
009222,000231:
009223,000232: # CODE = VBUF +2 FOR DSPIN
009224,000233: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
009225,000234:
009226,000235: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
009227,000236: # SIGNRET = VBUF +3 RETURN FOR +,- ON
009228,000237:
009229,000238: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009230,000239:
009231,000240: # ENTRET = DOTINC EXIT FROM ENTER
009232,000241:
009233,000242: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
009234,000243: # INREL = DOTRET INPUT BUFFER SELECTOR ( X,Y,Z, REG )
009235,000244:
009236,000245: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
009237,000246:
009238,000247: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
009239,000248:
009240,000249: # TEM1 ERASE EXEC TEMP
009241,000250: # DSREL = TEM1 REL ADDRESS FOR DSPIN
009242,000251:
009243,000252: # TEM2 ERASE EXEC TEMP
009244,000253: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
|
|
Page 224 |
009246,000255: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
009247,000256:
009248,000257: # TEM3 ERASE EXEC TEMP
009249,000258: # COUNT = TEM3 FOR DSPIN
009250,000259:
009251,000260: # TEM4 ERASE EXEC TEMP
009252,000261: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
009253,000262: # RELRET = TEM4 RETURN FOR RELDSP
009254,000263: # FREERET = TEM4 RETURN FOR FREEDSP
009255,000264:
009256,000265: # TEM5 ERASE EXEC TEMP
009257,000266: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
009258,000267:
009259,000268: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
009260,000269: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
009261,000270: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009262,000271: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
009263,000272: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009264,000273: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
009265,000274: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009266,000275: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
009267,000276: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
009268,000277: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009269,000278:
009270,000279:
009271,000280: # RESERVED FOR PINBALL INTERRUPT ACTION
009272,000281:
009273,000282: # DSPCNT ERASE COUNTER FOR DSPOUT
009274,000283: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009275,000284: # RECEPTION OF A BAD MESSAGE IN UPLINK)
009276,000285: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009277,000286:
009278,000287:
009279,000288:
009280,000289: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
009281,000290:
009282,000291: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
009283,000292: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
009284,000293: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
009285,000294: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009286,000295:
|
|
Page 225 |
009288,000297: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009289,000298: # 0 10000
009290,000299: # 1 00001
009291,000300: # 9 01001
009292,000301: # VERB 10001
009293,000302: # ERROR RES10010
009294,000303: # KEY RLSE 11001
009295,000304: # + 11010
009296,000305:
009297,000306: # - 11011
009298,000307: # ENTER 11100
009299,000308: # CLEAR 11110
009300,000309: # NOUN 11111
009301,000310:
009302,000311:
009303,000312: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
009304,000313: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009305,000314: # ENERGIZED.
009306,000315: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009307,000316: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
009308,000317: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009309,000318:
009310,000319: # THE PANEL APPEARS AS FOLLOWS,
009311,000320: # MD1 MD2 (MAJOR MODE)
009312,000321: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
009313,000322: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
009314,000323: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
009315,000324: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
009316,000325:
009317,000326: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009318,000327: # MD1 25 R2D1 11 ALL ARE OCTAL
009319,000328:
009320,000329: # MD2 24 R2D2 10
009321,000330: # VD1 23 R2D3 7
009322,000331: # VD2 22 R2D4 6
009323,000332: # ND1 21 R2D5 5
009324,000333: # ND2 20 R3D1 4
009325,000334: # R1D1 16 R3D2 3
009326,000335: # R1D2 15 R3D3 2
009327,000336: # R1D3 14 R3D4 1
009328,000337: # R1D4 13 R3D5 0
009329,000338: # R1D5 12
009330,000339:
009331,000340:
009332,000341: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009333,000342:
009334,000343: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
009335,000344: # RELADD
009336,000345: # 10 1011 MD1 (25) MD2 (24)
009337,000346: # 9 1010 VD1 (23) VD2 (22)
|
|
Page 226 |
009339,000348: # 8 1001 ND1 (21) ND2 (20)
009340,000349: # 7 1000 R1D1 (16)
009341,000350: # 6 0111 +R1 R1D2 (15) R1D3 (14)
009342,000351: # 5 0110 -R1 R1D4 (13) R1D5 (12)
009343,000352: # 4 0101 +R2 R2D1 (11) R2D2 (10)
009344,000353: # 3 0100 -R2 R2D3 (7) R2D4 (6)
009345,000354: # 2 0011 R2D5 (5) R3D1 (4)
009346,000355: # 1 0010 +R3 R3D2 (3) R3D3 (2)
009347,000356: # 0 0001 -R3 R3D4 (1) R3D5 (0)
009348,000357: # 0000 NO RELAYWORD
009349,000358:
009350,000359:
009351,000360: # THE 5 BIT RELAY CODES ARE,
009352,000361: # BLANK 00000
009353,000362: # 0 10101
009354,000363: # 1 00011
009355,000364: # 2 11001
009356,000365: # 3 11011
009357,000366: # 4 01111
009358,000367: # 5 11110
009359,000368: # 6 11100
009360,000369: # 7 10011
009361,000370: # 8 11101
009362,000371: # 9 11111
009363,000372:
|
|
Page 227 |
009365,000374: # START OF EXECUTIVE SECTION OF PINBALL
009366,000375:
009367,000376: 04,2000 SETLOC 20000
009368,000377:
009369,000378: 04,2000 03472 GRABUSYB TC GRABUSY1 # STANDARD LEAD INS. DONT MOVE.
009370,000379: 04,2001 03514 NVSUBSYB TC NVSUBSY1
009371,000380:
009372,000381: 04,2002 37755 CHARIN CAF ONE # BLOCK DISPLAY SYST
009373,000382: 04,2003 56303 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
009374,000383: 04,2004 54105 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
009375,000384: 04,2005 56144 XCH MPAC
009376,000385: 04,2006 54107 TS CHAR
009377,000386: 04,2007 50000 INDEX A
009378,000387: 04,2010 02011 TC +1 # INPUT CODE FUNCTION
009379,000388: 04,2011 03313 TC CHARALRM # 0
009380,000389: 04,2012 02070 TC NUM # 1
009381,000390: 04,2013 02070 TC NUM # 2
009382,000391: 04,2014 02070 TC NUM # 3
009383,000392:
009384,000393: 04,2015 02070 TC NUM # 4
009385,000394: 04,2016 02070 TC NUM # 5
009386,000395: 04,2017 02070 TC NUM # 6
009387,000396: 04,2020 02070 TC NUM # 7
009388,000397: 04,2021 02061 TC 89TEST # 10 8
009389,000398: 04,2022 02061 TC 89TEST # 11 9
009390,000399: 04,2023 03313 TC CHARALRM # 12
009391,000400: 04,2024 03313 TC CHARALRM # 13
009392,000401: 04,2025 03313 TC CHARALRM # 14
009393,000402: 04,2026 03313 TC CHARALRM # 15
009394,000403: 04,2027 03313 TC CHARALRM # 16
009395,000404: 04,2030 03313 TC CHARALRM # 17
009396,000405: 04,2031 02066 TC NUM -2 # 20 0
009397,000406: 04,2032 02243 TC VERB # 21 VERB
009398,000407: 04,2033 02355 TC ERROR # 22 ERROR LIGHT RESET
009399,000408: 04,2034 02053 TC ABRT23GO # 23 SUBORBIT ABORT
009400,000409: 04,2035 02056 TC ABRT24GO # 24 CONORBIT ABORT
009401,000410: 04,2036 03313 TC CHARALRM # 25
009402,000411: 04,2037 03313 TC CHARALRM # 26
009403,000412: 04,2040 03313 TC CHARALRM # 27
009404,000413: 04,2041 03313 TC CHARALRM # 30
009405,000414: 04,2042 03336 TC VBRELDSP # 31 KEY RELEASE
009406,000415: 04,2043 02275 TC POSGN # 32 +
009407,000416:
009408,000417: 04,2044 02262 TC NEGSGN # 33 -
009409,000418: 04,2045 02051 TC ENTERJMP # 34 ENTER
009410,000419: 04,2046 03313 TC CHARALRM # 35
009411,000420: 04,2047 02446 TC CLEAR # 36 CLEAR
009412,000421: 04,2050 02256 TC NOUN # 37 NOUN
009413,000422:
|
|
Page 228 |
009415,000424: 04,2051 05243 ENTERJMP TC POSTJUMP
009416,000425: 04,2052 12003 CADR ENTER
009417,000426:
009418,000427: 04,2053 04655 ABRT23GO TC RELDSP
009419,000428: 04,2054 05243 TC POSTJUMP
009420,000429: 04,2055 56401 CADR SUBABORT
009421,000430: 04,2056 04655 ABRT24GO TC RELDSP
009422,000431: 04,2057 05243 TC POSTJUMP
009423,000432: 04,2060 56404 CADR CONORBIT
009424,000433:
009425,000434: 04,2061 36301 89TEST CAF THREE
009426,000435: 04,2062 70271 MASK DECBRNCH
009427,000436: 04,2063 10000 CCS A
009428,000437: 04,2064 02070 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
009429,000438: 04,2065 03313 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
009430,000439:
009431,000440:
009432,000441: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
009433,000442: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
009434,000443: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
009435,000444: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
009436,000445: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
009437,000446: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
009438,000447:
009439,000448: 04,2066 37761 CAF ZERO
009440,000449:
009441,000450: 04,2067 54107 TS CHAR
009442,000451: 04,2070 10270 NUM CCS DSPCOUNT
009443,000452: 04,2071 02075 TC +4 # +
009444,000453: 04,2072 02075 TC +3 # +0
009445,000454: 04,2073 02074 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
009446,000455: 04,2074 05605 TC ENDOFJOB # -0
009447,000456: 04,2075 02213 TC GETINREL
009448,000457: 04,2076 10306 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
009449,000458: 04,2077 37761 CAF ZERO
009450,000459: 04,2100 54306 TS CLPASS
009451,000460: 04,2101 02102 TC +1
009452,000461: 04,2102 50107 INDEX CHAR
009453,000462: 04,2103 34267 CAF RELTAB
009454,000463: 04,2104 74545 MASK LOW5
009455,000464: 04,2105 54114 TS CODE
009456,000465: 04,2106 30270 CA DSPCOUNT
009457,000466: 04,2107 54133 TS COUNT
009458,000467: 04,2110 03217 TC DSPIN
009459,000468: 04,2111 36301 CAF THREE
009460,000469: 04,2112 70271 MASK DECBRNCH
009461,000470: 04,2113 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
009462,000471: 04,2114 02125 TC DECTOBIN # +
009463,000472: 04,2115 50127 INDEX INREL # +0 OCTAL
009464,000473:
009465,000474: 04,2116 56272 XCH VERBREG
|
|
Page 229 |
009467,000476: 04,2117 54022 TS CYL
009468,000477: 04,2120 40022 CS CYL
009469,000478: 04,2121 40022 CS CYL
009470,000479: 04,2122 56022 XCH CYL
009471,000480: 04,2123 60107 AD CHAR
009472,000481: 04,2124 02142 TC ENDNMTST
009473,000482: 04,2125 50127 DECTOBIN INDEX INREL
009474,000483: 04,2126 56272 XCH VERBREG
009475,000484:
009476,000485: 04,2127 54144 TS MPAC # SUM X 2EXP-14 IN MPAC
009477,000486: 04,2130 37761 CAF ZERO
009478,000487: 04,2131 54145 TS MPAC +1
009479,000488: 04,2132 34557 CAF TEN # 10 X 2EXP-14
009480,000489: 04,2133 07351 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
009481,000490: 04,2134 56145 XCH MPAC +1
009482,000491: 04,2135 60107 AD CHAR
009483,000492: 04,2136 54145 TS MPAC +1
009484,000493: 04,2137 02142 TC ENDNMTST # NO OF
009485,000494: 04,2140 26144 ADS MPAC # OF MUST BE 5TH CHAR
009486,000495: 04,2141 02160 TC DECEND
009487,000496: 04,2142 50127 ENDNMTST INDEX INREL
009488,000497: 04,2143 54272 TS VERBREG
009489,000498: 04,2144 40270 CS DSPCOUNT
009490,000499: 04,2145 50127 INDEX INREL
009491,000500: 04,2146 62204 AD CRITCON
009492,000501: 04,2147 00006 EXTEND
009493,000502: 04,2150 12152 BZF ENDNUM # -0, DSPCOUNT = CRITCON
009494,000503: 04,2151 02201 TC MORNUM # - , DSPCOUNT G/ CRITCON
009495,000504: 04,2152 36301 ENDNUM CAF THREE
009496,000505: 04,2153 70271 MASK DECBRNCH
009497,000506: 04,2154 10000 CCS A
009498,000507: 04,2155 02160 TC DECEND
009499,000508:
009500,000509: 04,2156 40270 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
009501,000510: 04,2157 02202 TC MORNUM +1 # NEGATIVELY
009502,000511: 04,2160 07146 DECEND TC DMP # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
009503,000512: 04,2161 02211 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
009504,000513: 04,2162 36301 CAF THREE # IN MPAC, +1, +2.
009505,000514: 04,2163 70271 MASK DECBRNCH
009506,000515: 04,2164 50000 INDEX A
009507,000516: 04,2165 02165 TC +0
009508,000517: 04,2166 02172 TC +DECSGN
009509,000518: 04,2167 00006 EXTEND # - CASE
009510,000519: 04,2170 40146 DCS MPAC +1
009511,000520: 04,2171 52146 DXCH MPAC +1
009512,000521: 04,2172 56146 +DECSGN XCH MPAC +2
009513,000522: 04,2173 50127 INDEX INREL
009514,000523: 04,2174 54275 TS XREGLP -2
009515,000524: 04,2175 56145 XCH MPAC +1
009516,000525: 04,2176 50127 INDEX INREL
009517,000526: 04,2177 54272 TS VERBREG
009518,000527: 04,2200 02156 TC ENDALL
|
|
Page 230 |
009520,000529: 04,2201 10270 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
009521,000530: 04,2202 54270 TS DSPCOUNT
009522,000531: 04,2203 05605 TC ENDOFJOB
009523,000532:
009524,000533: 04,2204 00022 CRITCON OCT 22 # (DEC 18)
009525,000534: 04,2205 00020 OCT 20 # (DEC 16)
009526,000535: 04,2206 00012 OCT 12 # (DEC 10)
009527,000536: 04,2207 00005 OCT 5
009528,000537: 04,2210 00000 OCT 0
009529,000538:
|
|
The operand in the following line reads simply "E-5 B14" in the program listing, but has been changed to the (numerically identical) "1 E-5 B14" to conformed to syntax rules of the "modern" assembler, yaYUL. — RSB |
009533,000542: 04,2211 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
009534,000543:
009535,000544: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009536,000545: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009537,000546:
009538,000547: 04,2213 50270 GETINREL INDEX DSPCOUNT
009539,000548: 04,2214 32217 CAF INRELTAB
009540,000549: 04,2215 54127 TS INREL # (A TEMP, REG)
009541,000550: 04,2216 00002 TC Q
009542,000551:
009543,000552: 04,2217 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
009544,000553: 04,2220 00004 OCT 4 # R3D4 =(1)
009545,000554: 04,2221 00004 OCT 4 # R3D3 =(2)
009546,000555: 04,2222 00004 OCT 4 # R3D2 =(3)
009547,000556: 04,2223 00004 OCT 4 # R3D1 =(4)
009548,000557: 04,2224 00003 OCT 3 # R2D5 =(5)
009549,000558: 04,2225 00003 OCT 3 # R2D4 =(6)
009550,000559: 04,2226 00003 OCT 3 # R2D3 =(7)
009551,000560: 04,2227 00003 OCT 3 # R2D2 =(8D)
009552,000561: 04,2230 00003 OCT 3 # R2D1 =(9D)
009553,000562: 04,2231 00002 OCT 2 # R1D5 =(10D)
009554,000563: 04,2232 00002 OCT 2 # R1D4 =(11D)
009555,000564: 04,2233 00002 OCT 2 # R1D3 =(12D)
009556,000565: 04,2234 00002 OCT 2 # R1D2 =(13D)
009557,000566: 04,2235 00002 OCT 2 # R1D1 =(14D)
009558,000567: 04,2236 04725 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
009559,000568:
009560,000569: 04,2237 00001 OCT 1 # ND2 =(16D)
009561,000570: 04,2240 00001 OCT 1 # ND1 =(17D)
009562,000571: 04,2241 00000 OCT 0 # VD2 =(18D)
009563,000572: 04,2242 00000 OCT 0 # VD1 =(19D)
009564,000573:
009565,000574: 04,2243 37761 VERB CAF ZERO
009566,000575: 04,2244 54272 TS VERBREG
009567,000576: 04,2245 34554 CAF VD1
009568,000577: 04,2246 54270 NVCOM TS DSPCOUNT
009569,000578: 04,2247 02557 TC 2BLANK
|
|
Page 231 |
009571,000580: 04,2250 37761 CAF ZERO
009572,000581: 04,2251 54271 TS DECBRNCH
009573,000582: 04,2252 54304 TS REQRET # SET FOR ENTPAS0
009574,000583: 04,2253 34474 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009575,000584: 04,2254 54126 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
009576,000585: # TO TC ENDOFJOB
009577,000586: 04,2255 05605 TC ENDOFJOB
009578,000587: 04,2256 37761 NOUN CAF ZERO
009579,000588: 04,2257 54273 TS NOUNREG
009580,000589: 04,2260 34555 CAF ND1 # ND1, OCT 21 (DEC 17)
009581,000590: 04,2261 02246 TC NVCOM
009582,000591:
009583,000592:
009584,000593: 04,2262 02334 NEGSGN TC SIGNTEST
009585,000594: 04,2263 02321 TC -ON
009586,000595: 04,2264 37754 CAF TWO
009587,000596: 04,2265 50127 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
009588,000597: 04,2266 67747 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
009589,000598:
009590,000599: 04,2267 26271 ADS DECBRNCH # BIT 3 FOR R3.
009591,000600: 04,2270 10306 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
009592,000601: 04,2271 37761 CAF ZERO
009593,000602: 04,2272 54306 TS CLPASS
009594,000603: 04,2273 02274 TC +1
009595,000604: 04,2274 05605 TC ENDOFJOB
009596,000605:
009597,000606: 04,2275 02334 POSGN TC SIGNTEST
009598,000607: 04,2276 02301 TC +ON
009599,000608: 04,2277 37755 CAF ONE
009600,000609: 04,2300 02265 TC BOTHSGN
009601,000610:
009602,000611: 04,2301 22002 +ON LXCH Q
009603,000612: 04,2302 02213 TC GETINREL
009604,000613: 04,2303 50127 INDEX INREL
009605,000614: 04,2304 32327 CAF SGNTAB -2
009606,000615: 04,2305 54113 TS SGNOFF
009607,000616: 04,2306 67755 AD ONE
009608,000617: 04,2307 54112 TS SGNON
009609,000618: 04,2310 37761 SGNCOM CAF ZERO
009610,000619: 04,2311 54114 TS CODE
009611,000620: 04,2312 56113 XCH SGNOFF
009612,000621: 04,2313 03301 TC 11DSPIN
009613,000622:
009614,000623: 04,2314 37743 CAF BIT11
009615,000624: 04,2315 54114 TS CODE
009616,000625: 04,2316 56112 XCH SGNON
009617,000626: 04,2317 03301 TC 11DSPIN
009618,000627: 04,2320 00001 TC L
009619,000628: 04,2321 22002 -ON LXCH Q
009620,000629: 04,2322 02213 TC GETINREL
009621,000630: 04,2323 50127 INDEX INREL
|
|
Page 232 |
009623,000632: 04,2324 32327 CAF SGNTAB -2
009624,000633: 04,2325 54112 TS SGNON
009625,000634:
009626,000635: 04,2326 67755 AD ONE
009627,000636: 04,2327 54113 TS SGNOFF
009628,000637: 04,2330 02310 TC SGNCOM
009629,000638:
009630,000639: 04,2331 00005 SGNTAB OCT 5 # -R1
009631,000640: 04,2332 00003 OCT 3 # -R2
009632,000641: 04,2333 00000 OCT 0 # -R3
009633,000642:
009634,000643: 04,2334 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
009635,000644: 04,2335 36301 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
009636,000645: 04,2336 70271 MASK DECBRNCH # CONSEQUTIVE +/- CHARACTERS.
009637,000646: 04,2337 10000 CCS A # IF LOW 2 BITS OF DECBRNCH NOT = 0, SIGN
009638,000647: 04,2340 05605 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
009639,000648: 04,2341 44516 CS R1D1
009640,000649: 04,2342 02350 TC SGNTST1
009641,000650: 04,2343 44517 CS R2D1
009642,000651: 04,2344 02350 TC SGNTST1
009643,000652: 04,2345 44520 CS R3D1
009644,000653: 04,2346 02350 TC SGNTST1
009645,000654: 04,2347 05605 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
009646,000655: 04,2350 60270 SGNTST1 AD DSPCOUNT
009647,000656:
009648,000657: 04,2351 00006 EXTEND
009649,000658: 04,2352 12354 BZF +2 # MATCH FOUND
009650,000659: 04,2353 00002 TC Q
009651,000660: 04,2354 00001 TC L # SIGN LEGAL
009652,000661:
009653,000662: # ERROR LIGHT RESET (RSET) TURNS OFF,
009654,000663: # UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
009655,000664: # PROG ALM, TRACKER FAIL.
009656,000665: # LEAVES GIMBAL LOCK ALONE.
009657,000666: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
009658,000667: # IT ALSO SETS :CAUTION RESET: TO 1.
009659,000668: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
009660,000669:
009661,000670: 04,2355 56105 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
009662,000671: 04,2356 54303 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
009663,000672: 04,2357 00004 INHINT
009664,000673: 04,2360 37744 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
009665,000674: 04,2361 00006 EXTEND
009666,000675: 04,2362 05011 WOR DSALMOUT # BIT10 CHAN 11
009667,000676: 04,2363 32444 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
009668,000677: 04,2364 70326 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
009669,000678:
009670,000679: 04,2365 67737 AD BIT15 # PROG ALARM, AND TRACKER.
009671,000680: 04,2366 54326 TS DSPTAB +11D
|
|
Page 233 |
009673,000682: 04,2367 45660 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
009674,000683: 04,2370 70366 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
009675,000684: 04,2371 65660 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
009676,000685: 04,2372 54366 TS IMODES33
009677,000686: 04,2373 47744 CS BIT10
009678,000687: 04,2374 70365 MASK IMODES30
009679,000688: 04,2375 67744 AD BIT10
009680,000689: 04,2376 54365 TS IMODES30
009681,000690:
009682,000691: 04,2377 42443 CS RFAILS
009683,000692: 04,2400 70413 MASK RADMODES
009684,000693: 04,2401 67747 AD BIT7
009685,000694: 04,2402 54413 TS RADMODES
009686,000695:
009687,000696: 04,2403 47744 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
009688,000697: 04,2404 00006 EXTEND
009689,000698: 04,2405 03013 WAND CHAN13
009690,000699: 04,2406 42442 CS ERCON # TURN OFF UPLINK ACTIVITY,
009691,000700: 04,2407 00006 EXTEND # OPERATOR ERROR.
009692,000701: 04,2410 03011 WAND DSALMOUT
009693,000702: 04,2411 34557 TSTAB CAF BINCON # (DEC 10)
009694,000703: 04,2412 54107 TS ERCNT # ERCNT = COUNT
009695,000704: 04,2413 00004 INHINT
009696,000705: 04,2414 50107 INDEX ERCNT
009697,000706: 04,2415 10313 CCS DSPTAB
009698,000707: 04,2416 67755 AD ONE
009699,000708: 04,2417 02424 TC ERPLUS
009700,000709: 04,2420 67755 AD ONE
009701,000710: 04,2421 40000 ERMINUS CS A
009702,000711: 04,2422 72445 MASK NOTBIT12
009703,000712: 04,2423 02427 TC ERCOM
009704,000713: 04,2424 40000 ERPLUS CS A
009705,000714:
009706,000715: 04,2425 72445 MASK NOTBIT12
009707,000716: 04,2426 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
009708,000717: 04,2427 50107 ERCOM INDEX ERCNT # ETC.
009709,000718: 04,2430 54313 TS DSPTAB
009710,000719: 04,2431 00003 RELINT
009711,000720: 04,2432 10107 CCS ERCNT
009712,000721: 04,2433 02412 TC TSTAB +1
009713,000722: 04,2434 37761 CAF ZERO
009714,000723: 04,2435 55363 TS FAILREG
009715,000724: 04,2436 55364 TS FAILREG +1
009716,000725: 04,2437 55365 TS FAILREG +2
009717,000726: 04,2440 55361 TS SFAIL
009718,000727: 04,2441 05605 TC ENDOFJOB
009719,000728:
009720,000729: 04,2442 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
009721,000730: # UPLINK ACTIVITY, AND OPERATOR ERROR.
009722,000731: 04,2443 00330 RFAILS OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
009723,000732: 04,2444 00050 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
|
|
Page 234 |
009725,000734: 04,2445 73777 NOTBIT12 OCT 73777
009726,000735:
009727,000736:
009728,000737: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
009729,000738: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
009730,000739: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
009731,000740:
009732,000741: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
009733,000742: # APPROPRIATE TO BE CLEARED.
009734,000743:
009735,000744: # CLPASS +0 PASS0, CAN BE BACKED UP
009736,000745: # +NZ HIPASS, CAN BE BACKED UP
009737,000746: # -NZ PASS0, CANNOT BE BACKED UP
009738,000747:
009739,000748: 04,2446 10270 CLEAR CCS DSPCOUNT
009740,000749: 04,2447 67755 AD ONE
009741,000750: 04,2450 02452 TC +2
009742,000751: 04,2451 67755 AD ONE
009743,000752: 04,2452 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
009744,000753: 04,2453 32217 CAF INRELTAB # FAIL LEGALTST.
009745,000754: 04,2454 54127 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
009746,000755: 04,2455 10306 CCS CLPASS
009747,000756: 04,2456 02464 TC CLPASHI # +
009748,000757: 04,2457 02461 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
009749,000758: 04,2460 02461 TC +1 # -
009750,000759: 04,2461 30127 CA INREL
009751,000760: 04,2462 02506 TC LEGALTST
009752,000761: 04,2463 02501 TC CLEAR1
009753,000762: 04,2464 10127 CLPASHI CCS INREL
009754,000763: 04,2465 54127 TS INREL
009755,000764: 04,2466 02506 TC LEGALTST
009756,000765: 04,2467 32555 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
009757,000766: 04,2470 26304 ADS REQRET
009758,000767: 04,2471 30127 CA INREL
009759,000768: 04,2472 54115 TS MIXTEMP # TEMP STORAGE FOR INREL
009760,000769: 04,2473 00006 EXTEND
009761,000770: 04,2474 26272 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
009762,000771:
009763,000772: 04,2475 05224 TC BANKCALL
009764,000773: 04,2476 12315 CADR UPDATVB
009765,000774: 04,2477 30115 CA MIXTEMP
009766,000775: 04,2500 54127 TS INREL # RESTORE INREL
009767,000776: 04,2501 02504 CLEAR1 TC CLR5
009768,000777: 04,2502 24306 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
009769,000778: 04,2503 05605 TC ENDOFJOB # SET FOR HIGHER PASS.
009770,000779: 04,2504 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
009771,000780: 04,2505 02516 TC 5BLANK +2
009772,000781: 04,2506 65355 LEGALTST AD NEG2
009773,000782: 04,2507 10000 CCS A
009774,000783: 04,2510 00002 TC Q # LEGAL INREL G/ 2
|
|
Page 235 |
009776,000785: 04,2511 04725 TC CCSHOLE
009777,000786: 04,2512 05605 TC ENDOFJOB # ILLEGAL INREL= 0,1
009778,000787: 04,2513 00002 TC Q # LEGAL INREL = 2
009779,000788:
009780,000789: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
009781,000790: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
009782,000791: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
009783,000792:
009784,000793: 04,2514 22002 5BLANK LXCH Q
009785,000794: 04,2515 02213 TC GETINREL
009786,000795: 04,2516 37761 CAF ZERO
009787,000796: 04,2517 50127 INDEX INREL
009788,000797: 04,2520 54272 TS VERBREG # ZERO X, Y, Z REG.
009789,000798: 04,2521 50127 INDEX INREL
009790,000799: 04,2522 54275 TS XREGLP -2
009791,000800: 04,2523 54114 TS CODE
009792,000801: 04,2524 50127 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
009793,000802:
009794,000803: 04,2525 47747 CS BIT7 # PROTECT OTHERS
009795,000804: 04,2526 70271 MASK DECBRNCH
009796,000805: 04,2527 72556 MASK BRNCHCON # ZERO LOW 2 BITS.
009797,000806: 04,2530 54271 TS DECBRNCH
009798,000807: 04,2531 50127 INDEX INREL
009799,000808: 04,2532 32546 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
009800,000809: 04,2533 54133 TS COUNT
009801,000810: 04,2534 03217 TC DSPIN
009802,000811: 04,2535 50127 5BLANK1 INDEX INREL
009803,000812: 04,2536 32551 CAF DOUBLK -2
009804,000813: 04,2537 54270 TS DSPCOUNT
009805,000814: 04,2540 02557 TC 2BLANK
009806,000815: 04,2541 47754 CS TWO
009807,000816: 04,2542 26270 ADS DSPCOUNT
009808,000817: 04,2543 02557 TC 2BLANK
009809,000818: 04,2544 50127 INDEX INREL
009810,000819: 04,2545 34514 CAF R1D1 -2
009811,000820: 04,2546 54270 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
009812,000821: 04,2547 00001 TC L # OF REG. JUST BLANKED
009813,000822:
009814,000823: 04,2550 00016 SINBLANK OCT 16 # DEC 14
009815,000824: 04,2551 00005 OCT 5
009816,000825: 04,2552 00004 OCT 4
009817,000826:
009818,000827: 04,2553 00015 DOUBLK OCT 15 # DEC 13
009819,000828: 04,2554 00011 OCT 11 # DEC 9
009820,000829: 04,2555 00003 OCT 3
009821,000830:
009822,000831: 04,2556 77774 BRNCHCON OCT 77774
009823,000832:
009824,000833: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
009825,000834: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
|
|
Page 236 |
009827,000836:
009828,000837: 04,2557 30270 2BLANK CA DSPCOUNT
009829,000838: 04,2560 54021 TS SR
009830,000839:
009831,000840: 04,2561 42572 CS BLANKCON
009832,000841: 04,2562 00004 INHINT
009833,000842: 04,2563 50021 INDEX SR
009834,000843: 04,2564 56313 XCH DSPTAB
009835,000844: 04,2565 00006 EXTEND
009836,000845: 04,2566 62570 BZMF +2 # IF OLD CONTENTS -, NOUT OK
009837,000846: 04,2567 24307 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
009838,000847: 04,2570 00003 RELINT # IF -,NOUT OK
009839,000848: 04,2571 00002 TC Q
009840,000849: 04,2572 04000 BLANKCON OCT 4000
009841,000850:
|
|
Page 237 |
009843,000852: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
009844,000853: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
009845,000854: # PASSES.
009846,000855:
009847,000856:
009848,000857: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
009849,000858: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
009850,000859:
009851,000860: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
009852,000861:
009853,000862: 05,2000 SETLOC 22000
009854,000863:
009855,000864: 05,2000 03344 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
009856,000865: 05,2001 13403 DSPMM TCF DSPMM1
009857,000866: 05,2002 02663 LOADLV1 TC LOADLV
009858,000867: # END OF STANDARD LEAD INS.
009859,000868:
009860,000869:
009861,000870: 05,2003 37761 ENTER CAF ZERO
009862,000871: 05,2004 54306 TS CLPASS
009863,000872: 05,2005 34474 CAF ENDINST
009864,000873: 05,2006 54126 TS ENTRET
009865,000874: 05,2007 10304 CCS REQRET
009866,000875: 05,2010 02031 TC ENTPAS0 # IF +, PASS 0
009867,000876: 05,2011 02031 TC ENTPAS0 # IF +, PASS 0
009868,000877: 05,2012 02013 TC +1 # IF -, NOT PASS 0
009869,000878: 05,2013 36301 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN,
009870,000879: 05,2014 70271 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
009871,000880:
009872,000881: 05,2015 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
009873,000882: 05,2016 02020 TC +2 # CHARACTERS AND CONTINUE.
009874,000883: 05,2017 02024 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
009875,000884: 05,2020 10270 CCS DSPCOUNT
009876,000885: 05,2021 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009877,000886: 05,2022 02324 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
009878,000887: 05,2023 02024 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
009879,000888: 05,2024 40304 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
009880,000889: 05,2025 54304 TS REQRET # SET REQRET +.
009881,000890: 05,2026 04615 TC FLASHOFF
009882,000891: 05,2027 00304 TC REQRET
009883,000892:
009884,000893: 05,2030 0126 ENTEXIT = ENTRET
009885,000894:
009886,000895: 05,2030 00030 LOWVERB OCT 30 # LOWER VERB THAT AVOIDS NOUN TEST
009887,000896:
009888,000897: 05,2031 37761 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
009889,000898: 05,2032 54271 TS DECBRNCH
009890,000899: 05,2033 40272 TESTVB CS VERBREG # IF VERB IS 30-77, SKIP NOUN TEST
|
|
Page 238 |
009892,000901: 05,2034 62030 AD LOWVERB # 30-VB
009893,000902: 05,2035 00006 EXTEND
009894,000903: 05,2036 62116 BZMF VERBFAN # VERB G/E 30
009895,000904: 05,2037 00006 TESTNN EXTEND # VERB L/ 30
009896,000905: 05,2040 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009897,000906: 05,2041 52006 DXCH Z # ROUTINE.
009898,000907: 05,2042 50130 INDEX MIXBR
009899,000908: 05,2043 02043 TC +0
009900,000909: 05,2044 02046 TC +2 # NORMAL
009901,000910: 05,2045 02176 TC MIXNOUN # MIXED
009902,000911: 05,2046 10136 CCS NNADTEM # NORMAL
009903,000912: 05,2047 02114 TC VERBFAN -2 # NORMAL IF +
009904,000913: 05,2050 02324 TC GODSPALM # NOT IN USE IF +0
009905,000914: 05,2051 02055 TC REQADD # SPECIFY MACHINE CADR IF -
009906,000915:
009907,000916: 05,2052 24310 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
009908,000917: 05,2053 04510 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
009909,000918: 05,2054 02102 TC INTMCTBS +2
009910,000919: 05,2055 37737 REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY
009911,000920: 05,2056 54306 TS CLPASS
009912,000921: 05,2057 44474 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
009913,000922: 05,2060 60126 AD ENTEXIT # FROM EXTERNAL
009914,000923: 05,2061 00006 EXTEND
009915,000924: 05,2062 12064 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
009916,000925: 05,2063 02100 TC INTMCTBS
009917,000926: 05,2064 02256 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
009918,000927: 05,2065 10271 CCS DECBRNCH
009919,000928: 05,2066 02324 TC GODSPALM # ALARM IF DECIMAL USED FOR MCTBS
009920,000929: 05,2067 56276 XCH ZREG # OCTAL USED OK
009921,000930: 05,2070 04502 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
009922,000931: 05,2071 00006 EXTEND
009923,000932: 05,2072 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
009924,000933: 05,2073 52006 DXCH Z # ROUTINE.
009925,000934: 05,2074 02116 TC VERBFAN
009926,000935:
009927,000936: 05,2075 0270 EBANK= DSPCOUNT
009928,000937: 05,2075 02000 46000 LODNNLOC 2CADR LODNNTAB
009929,000938:
009930,000939: 05,2077 77772 NEG5 OCT 77772
009931,000940:
009932,000941: 05,2100 30146 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
009933,000942: 05,2101 04502 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
009934,000943: 05,2102 47752 CS BIT4 # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
009935,000944: 05,2103 70272 MASK VERBREG # CADR TO BE SPECIFIED.
009936,000945: 05,2104 62077 AD NEG5 # MASKING MAKES VB15 LOOK LIKE VB05.
009937,000946: 05,2105 00006 EXTEND
009938,000947: 05,2106 12116 BZF VERBFAN # VB = 05 OR 15, DO NOT DISPLAY CADR.
009939,000948: 05,2107 34520 CAF R3D1 # VB NOT = 05 OR 15, DISPLAY CADR.
009940,000949: 05,2110 54270 TS DSPCOUNT
009941,000950: 05,2111 30310 CA NOUNCADR
009942,000951: 05,2112 03222 TC DSPOCTWD
|
|
Page 239 |
009944,000953: 05,2113 02116 TC VERBFAN
009945,000954:
009946,000955: 05,2114 67755 AD ONE
009947,000956: 05,2115 04502 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
009948,000957: 05,2116 42131 VERBFAN CS LST2CON
009949,000958: 05,2117 60272 AD VERBREG # VERB-LST2CON
009950,000959: 05,2120 10000 CCS A
009951,000960: 05,2121 67755 AD ONE # VERB G/ LST2CON
009952,000961: 05,2122 02124 TC +2
009953,000962: 05,2123 02133 TC VBFANDIR # VERB L/ LST2CON
009954,000963: 05,2124 54144 TS MPAC
009955,000964: 05,2125 04655 TC RELDSP # RELEASE DISPLAY SYST
009956,000965: 05,2126 56144 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
009957,000966: 05,2127 62132 AD LST2CADR
009958,000967: 05,2130 05246 TC BANKJUMP
009959,000968: 05,2131 00040 LST2CON OCT 40 # FIRST LST2 VERB
009960,000969: 05,2132 22000 LST2CADR CADR LST2FAN
009961,000970:
009962,000971: 05,2133 50272 VBFANDIR INDEX VERBREG
009963,000972:
009964,000973: 05,2134 32136 CAF VERBTAB
009965,000974: 05,2135 05246 TC BANKJUMP
009966,000975:
009967,000976: 05,2136 12324 VERBTAB CADR GODSPALM # VB00 ILLEGAL
009968,000977: 05,2137 12340 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
009969,000978: 05,2140 12345 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
009970,000979: 05,2141 12352 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
009971,000980: 05,2142 12333 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
009972,000981: 05,2143 12326 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
009973,000982: 05,2144 12445 CADR DECDSP # VB06 DECIMAL DISPLAY
009974,000983: 05,2145 10722 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
009975,000984: 05,2146 11315 CADR DSPALARM # VB10 SPARE
009976,000985: 05,2147 13077 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
009977,000986: 05,2150 13077 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
009978,000987: 05,2151 13077 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
009979,000988: 05,2152 13077 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
009980,000989: 05,2153 13077 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
009981,000990: 05,2154 13077 CADR MONITOR # VB16 MONITOR DECIMAL
009982,000991: 05,2155 13077 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
009983,000992: 05,2156 12324 CADR GODSPALM # VB20 SPARE
009984,000993: 05,2157 12620 CADR ALOAD # VB21 LOAD COMP 1 (R1)
009985,000994: 05,2160 12631 CADR BLOAD # VB22 LOAD COMP 2 (R2)
009986,000995: 05,2161 12646 CADR CLOAD # VB23 LOAD COMP 3 (R3)
009987,000996:
009988,000997: 05,2162 12572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
009989,000998: 05,2163 12535 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
009990,000999: 05,2164 12324 CADR GODSPALM # VB26 SPARE
009991,001000: 05,2165 13214 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
009992,001001: # THE FOLLOWING VERBS MAKE NO NOUN TEST
009993,001002: 05,2166 13314 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
009994,001003: 05,2167 13340 CADR VBRQWAIT # VB31 REQUEST WAITLIST
009995,001004: 05,2170 11343 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
|
|
Page 240 |
009997,001006: 05,2171 11326 CADR VBPROC # VB33 PROCEED WITHOUT DATA
009998,001007: 05,2172 11333 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
009999,001008:
010000,001009: 05,2173 13414 CADR VBTSTLTS # VB35 TEST LIGHTS
010001,001010: 05,2174 02000 CADR SLAP1 # VB36 FRESH START
010002,001011: 05,2175 13267 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
010003,001012:
010004,001013: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010005,001014:
|
|
Page 241 |
010007,001016: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
010008,001017: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
010009,001018: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
010010,001019: # MIXTEMP.
010011,001020:
010012,001021: 05,2176 10136 MIXNOUN CCS NNADTEM
010013,001022: 05,2177 02203 TC +4 # + IN USE
010014,001023: 05,2200 02324 TC GODSPALM # +0 NOT IN USE
010015,001024:
010016,001025: 05,2201 02203 TC +2 # - IN USE
010017,001026: 05,2202 02203 TC +1 # -0 IN USE
010018,001027: 05,2203 46276 CS SIX
010019,001028: 05,2204 60272 AD VERBREG
010020,001029: 05,2205 00006 EXTEND
010021,001030: 05,2206 62210 BZMF +2 # VERB L/E 6
010022,001031: 05,2207 02116 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
010023,001032: 05,2210 37754 CAF TWO
010024,001033: 05,2211 54107 MIXNN1 TS DECOUNT
010025,001034: 05,2212 62235 AD MIXAD
010026,001035: 05,2213 54135 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
010027,001036: 05,2214 50107 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
010028,001037: 05,2215 30140 CA IDAD1TEM # OF NOUN.
010029,001038: 05,2216 54112 TS NOUNTEM
010030,001039: # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
010031,001040: # MINOR PART ONLY.
010032,001041: 05,2217 02721 TC SFRUTMIX # GET SF ROUT NUMBER IN A
010033,001042: 05,2220 02236 TC DPTEST
010034,001043: 05,2221 02223 TC MIXNN2 # NO DP
010035,001044: 05,2222 24112 INCR NOUNTEM # DP GET MINOR PART
010036,001045: 05,2223 30112 MIXNN2 CA NOUNTEM
010037,001046: 05,2224 74552 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
010038,001047: 05,2225 04512 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
010039,001048:
010040,001049: 05,2226 50000 INDEX A # PICK UP C(ESUBK) NOT DP
010041,001050: 05,2227 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
010042,001051: 05,2230 50135 INDEX NOUNADD
010043,001052: 05,2231 56000 XCH 0 # STORE IN MIXTEM + K
010044,001053: 05,2232 10107 CCS DECOUNT
010045,001054: 05,2233 02211 TC MIXNN1
010046,001055: 05,2234 02116 TC VERBFAN
010047,001056:
010048,001057: 05,2235 00115 MIXAD TC MIXTEMP
010049,001058:
010050,001059: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
010051,001060: # RETURNS TO L+1 IF NO DP.
010052,001061: # RETURNS TO L+2 IF DP.
010053,001062:
010054,001063: 05,2236 50000 DPTEST INDEX A
010055,001064: 05,2237 12240 TCF +1
010056,001065: 05,2240 00002 TC Q # OCTAL ONLY NO DP
|
|
Page 242 |
010058,001067: 05,2241 00002 TC Q # FRACT NO DP
010059,001068: 05,2242 00002 TC Q # DEG NO DP
010060,001069: 05,2243 00002 TC Q # ARITH NO DP
010061,001070: 05,2244 12250 TCF DPTEST1 # DP1OUT
010062,001071: 05,2245 12250 TCF DPTEST1 # DP2OUT
010063,001072: 05,2246 00002 TC Q # OPDEG NO DP
010064,001073: 05,2247 12250 TCF DPTEST1 # DP3OUT
010065,001074: 05,2250 50002 DPTEST1 INDEX Q
010066,001075: 05,2251 00001 TC 1 # RETURN TO L+2
010067,001076:
010068,001077: 05,2252 34516 REQDATX CAF R1D1
010069,001078: 05,2253 12257 TCF REQCOM
010070,001079:
010071,001080: 05,2254 34517 REQDATY CAF R2D1
010072,001081: 05,2255 12257 TCF REQCOM
010073,001082: 05,2256 34520 REQDATZ CAF R3D1
010074,001083: 05,2257 54270 REQCOM TS DSPCOUNT
010075,001084: 05,2260 40002 CS Q
010076,001085: 05,2261 54304 TS REQRET
010077,001086: 05,2262 05224 TC BANKCALL
010078,001087: 05,2263 10514 CADR 5BLANK
010079,001088: 05,2264 04611 TC FLASHON
010080,001089: 05,2265 44474 CS ENDINST
010081,001090: 05,2266 60126 AD ENTEXIT
010082,001091: 05,2267 00006 EXTEND
010083,001092: 05,2270 12273 BZF ENDRQDAT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010084,001093: 05,2271 47761 CS ZERO # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010085,001094: 05,2272 54327 TS CADRSTOR # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010086,001095: 05,2273 00126 ENDRQDAT TC ENTEXIT
010087,001096:
010088,001097: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010089,001098: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010090,001099:
010091,001100: 05,2274 54273 TS NOUNREG
010092,001101:
010093,001102: 05,2275 56002 UPDATNN XCH Q
010094,001103: 05,2276 54107 TS UPDATRET
010095,001104: 05,2277 00006 EXTEND
010096,001105: 05,2300 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010097,001106: 05,2301 52006 DXCH Z # ROUTINE.
010098,001107: 05,2302 10136 CCS NNADTEM
010099,001108: 05,2303 67755 AD ONE # NORMAL
010100,001109: 05,2304 12307 TCF PUTADD
010101,001110: 05,2305 12310 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
010102,001111: 05,2306 12310 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
010103,001112: 05,2307 04502 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010104,001113: 05,2310 34555 CAF ND1
010105,001114: 05,2311 54270 TS DSPCOUNT
|
|
Page 243 |
010107,001116: 05,2312 30273 CA NOUNREG
010108,001117: 05,2313 12322 TCF UPDAT1
010109,001118:
010110,001119: 05,2314 54272 TS VERBREG
010111,001120: 05,2315 56002 UPDATVB XCH Q
010112,001121: 05,2316 54107 TS UPDATRET
010113,001122: 05,2317 34554 CAF VD1
010114,001123: 05,2320 54270 TS DSPCOUNT
010115,001124: 05,2321 30272 CA VERBREG
010116,001125: 05,2322 03255 UPDAT1 TC DSP2BIT
010117,001126: 05,2323 00107 TC UPDATRET
010118,001127:
010119,001128: 05,2324 05243 GODSPALM TC POSTJUMP
010120,001129: 05,2325 11315 CADR DSPALARM
010121,001130:
|
|
Page 244 |
010123,001132: # NOUN TABLES
010124,001133: # NOUN CODE L/ 55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
010125,001134:
010126,001135: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
010127,001136: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
010128,001137: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010129,001138: # OF LAST MACHINE CADR SUPPLIED.
010130,001139:
010131,001140: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010132,001141: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010133,001142:
010134,001143: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010135,001144:
010136,001145: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
010137,001146: # N-S ARE THE SF ROUTINE CODE NUMBER.
010138,001147: # P-S ARE THE SF CONSTANT CODE NUMBER.
010139,001148:
010140,001149: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
010141,001150: # N-S ARE THE SF CONSTANT2 CODE NUMBER
010142,001151: # P-S ARE THE SF CONSTANT1 CODE NUMBER
010143,001152: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
010144,001153: # P-S ARE THE SF CONSTANT1 CODE NUMBER
010145,001154: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
010146,001155:
010147,001156: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010148,001157: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
010149,001158:
010150,001159: # THE FIRST OF THESE ENTRIES.
010151,001160: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010152,001161: # THEY ARE LISTED IN ORDER OF ASCENDING K.
010153,001162:
010154,001163: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010155,001164: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010156,001165: # QQQQQRRRRRSSSSS
010157,001166: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
010158,001167: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
010159,001168: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
010160,001169: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
010161,001170: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
010162,001171:
010163,001172:
010164,001173: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010165,001174: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010166,001175: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010167,001176: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010168,001177: # AN UNCONTOLLED NUMBER OF COMPONENTS.
010169,001178:
010170,001179:
010171,001180: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010172,001181: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
|
|
Page 245 |
010174,001183:
010175,001184: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010176,001185: # BEFORE EACH ENTER. IF NOT, ALARM.
010177,001186:
|
|
Page 246 |
010179,001188: # DISPLAY VERBS
010180,001189:
010181,001190: 05,2326 47754 DSPABC CS TWO
010182,001191: 05,2327 02376 TC COMPTEST
010183,001192: 05,2330 50135 INDEX NOUNADD
010184,001193: 05,2331 40002 CS 2
010185,001194: 05,2332 56122 XCH BUF +2
010186,001195: 05,2333 47755 DSPAB CS ONE
010187,001196: 05,2334 02376 TC COMPTEST
010188,001197: 05,2335 50135 INDEX NOUNADD
010189,001198: 05,2336 40001 CS 1
010190,001199: 05,2337 56121 XCH BUF +1
010191,001200: 05,2340 02420 DSPA TC TSTFORDP
010192,001201: 05,2341 50135 INDEX NOUNADD
010193,001202: 05,2342 40000 CS 0
010194,001203:
010195,001204: 05,2343 56120 DSPCOM1 XCH BUF
010196,001205: 05,2344 02357 TC DSPCOM2
010197,001206: 05,2345 47755 DSPB CS ONE
010198,001207: 05,2346 02376 TC COMPTEST
010199,001208: 05,2347 50135 INDEX NOUNADD
010200,001209: 05,2350 40001 CS 1
010201,001210: 05,2351 02343 TC DSPCOM1
010202,001211: 05,2352 47754 DSPC CS TWO
010203,001212: 05,2353 02376 TC COMPTEST
010204,001213: 05,2354 50135 INDEX NOUNADD
010205,001214: 05,2355 40002 CS 2
010206,001215: 05,2356 02343 TC DSPCOM1
010207,001216: 05,2357 47754 DSPCOM2 CS TWO # A B C AB ABC
010208,001217: 05,2360 60272 AD VERBREG # -1 -0 +1 +2 +3 IN A
010209,001218: 05,2361 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
010210,001219: 05,2362 02365 TC DSPCOM3
010211,001220: 05,2363 00126 TC ENTEXIT
010212,001221: 05,2364 02365 TC +1
010213,001222: 05,2365 54112 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
010214,001223: 05,2366 50000 INDEX A
010215,001224: 05,2367 34516 CAF R1D1
010216,001225: 05,2370 54270 TS DSPCOUNT
010217,001226: 05,2371 50112 INDEX DISTEM
010218,001227:
010219,001228: 05,2372 40120 CS BUF
010220,001229: 05,2373 03222 TC DSPOCTWD
010221,001230: 05,2374 56112 XCH DISTEM
010222,001231: 05,2375 02361 TC DSPCOM2 +2
010223,001232:
010224,001233: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010225,001234: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010226,001235: # NOUN 01 IS EXCLUDED FROM TEST.
010227,001236: 05,2376 54113 COMPTEST TS SFTEMP1 # - VERB COMP
010228,001237: 05,2377 22002 LXCH Q
010229,001238: 05,2400 47755 COMPTST1 CS ONE
010230,001239: 05,2401 60273 AD NOUNREG
010231,001240: 05,2402 00006 EXTEND
|
|
Page 247 |
010233,001242: 05,2403 12417 BZF NDCMPTST # NOUN = 01, ANY COMP OK
010234,001243: 05,2404 50130 INDEX MIXBR # NOUN NOT = 01.
010235,001244: 05,2405 32442 CAF COMPICK -1
010236,001245: 05,2406 50000 INDEX A
010237,001246: 05,2407 30000 CA 0
010238,001247: 05,2410 74547 MASK HI5
010239,001248: 05,2411 04530 TC LEFT5 # NOUN COMP
010240,001249: 05,2412 60113 AD SFTEMP1 # NOUN COMP - VERB COMP
010241,001250: 05,2413 10000 CCS A
010242,001251: 05,2414 00001 TC L # NOUN COMP G/ VERB COMP
010243,001252: 05,2415 04725 TC CCSHOLE
010244,001253: 05,2416 02324 TC GODSPALM # NOUN COMP L/ VERB COMP
010245,001254: 05,2417 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
010246,001255:
010247,001256:
010248,001257: 05,2420 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
010249,001258: 05,2421 30136 CA NNADTEM
010250,001259: 05,2422 67755 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010251,001260:
010252,001261: 05,2423 00006 EXTEND
010253,001262: 05,2424 12436 BZF CHANDSP
010254,001263: 05,2425 50130 INDEX MIXBR
010255,001264: 05,2426 02426 TC +0
010256,001265: 05,2427 02431 TC +2 # NORMAL
010257,001266: 05,2430 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
010258,001267: 05,2431 02713 TC SFRUTNOR
010259,001268: 05,2432 02236 TC DPTEST
010260,001269: 05,2433 00001 TC L # NO DP
010261,001270: 05,2434 24135 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
010262,001271: 05,2435 00001 TC L
010263,001272:
010264,001273: 05,2436 00006 CHANDSP EXTEND
010265,001274: 05,2437 50310 INDEX NOUNCADR
010266,001275: 05,2440 00000 READ 0
010267,001276: 05,2441 40000 CS A
010268,001277: 05,2442 12343 TCF DSPCOM1
010269,001278:
010270,001279:
010271,001280: 05,2443 00137 COMPICK ADRES NNTYPTEM
010272,001281:
010273,001282: 05,2444 00136 ADRES NNADTEM
010274,001283:
010275,001284: 05,2445 50130 DECDSP INDEX MIXBR # NORMAL MIXED
010276,001285: 05,2446 32442 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
010277,001286: 05,2447 50000 INDEX A
010278,001287: 05,2450 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
010279,001288: 05,2451 74547 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
010280,001289: 05,2452 04530 TC LEFT5
|
|
Page 248 |
010282,001291:
010283,001292: 05,2453 54107 TS DECOUNT # COMP NUMBER INTO DECOUNT
010284,001293: 05,2454 54112 DSPDCGET TS DECTEM # PICKS UP DATA
010285,001294:
010286,001295: 05,2455 60135 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
010287,001296: 05,2456 50000 INDEX A
010288,001297: 05,2457 40000 CS 0
010289,001298: 05,2460 50112 INDEX DECTEM
010290,001299: 05,2461 56274 XCH XREG # CANT USE BUF SINCE DMP USES IT.
010291,001300: 05,2462 10112 CCS DECTEM
010292,001301: 05,2463 02454 TC DSPDCGET # MORE TO GET
010293,001302: 05,2464 37761 DSPDCPUT CAF ZERO # DISPLAYS DATA
010294,001303: 05,2465 54145 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
010295,001304: 05,2466 54146 TS MPAC +2
010296,001305: 05,2467 50107 INDEX DECOUNT
010297,001306: 05,2470 34516 CAF R1D1
010298,001307: 05,2471 54270 TS DSPCOUNT
010299,001308: 05,2472 50107 INDEX DECOUNT
010300,001309: 05,2473 40274 CS XREG
010301,001310: 05,2474 54144 TS MPAC
010302,001311: 05,2475 02734 TC SFCONUM # 2X( SF CON NUMB ) IN A
010303,001312: 05,2476 54113 TS SFTEMP1
010304,001313: 05,2477 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
010305,001314: 05,2500 32512 DCA GTSFOUTL # READING ROUTINE.
010306,001315: 05,2501 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
010307,001316: 05,2502 50130 INDEX MIXBR
010308,001317: 05,2503 02503 TC +0
010309,001318:
010310,001319: 05,2504 02507 TC DSPSFNOR
010311,001320: 05,2505 02721 TC SFRUTMIX
010312,001321: 05,2506 02522 TC DECDSP3
010313,001322:
010314,001323: 05,2507 02713 DSPSFNOR TC SFRUTNOR
010315,001324: 05,2510 02522 TC DECDSP3
010316,001325:
010317,001326: 05,2511 0270 EBANK= DSPCOUNT
010318,001327: 05,2511 02037 46000 GTSFOUTL 2CADR GTSFOUT
010319,001328:
010320,001329:
010321,001330: 05,2513 05224 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
010322,001331: 05,2514 11117 CADR DSPDECWD
010323,001332: 05,2515 10107 CCS DECOUNT
010324,001333: 05,2516 02520 TC +2
010325,001334: 05,2517 00126 TC ENTEXIT
010326,001335: 05,2520 54107 TS DECOUNT
010327,001336: 05,2521 02464 TC DSPDCPUT # MORE TO DISPLAY
010328,001337:
010329,001338: 05,2522 50000 DECDSP3 INDEX A
010330,001339:
010331,001340: 05,2523 32525 CAF SFOUTABR
010332,001341: 05,2524 05246 TC BANKJUMP
010333,001342:
|
|
Page 249 |
010335,001344: 05,2525 11315 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
010336,001345: 05,2526 12513 CADR DSPDCEND
010337,001346: 05,2527 10573 CADR DEGOUTSF
010338,001347: 05,2530 10660 CADR ARTOUTSF
010339,001348: 05,2531 10665 CADR DP1OUTSF
010340,001349: 05,2532 10672 CADR DP2OUTSF
010341,001350: 05,2533 10601 CADR OPDEGOUT
010342,001351: 05,2534 10674 CADR DP3OUTSF
010343,001352:
010344,001353: 05,2535 ENDRTOUT EQUALS
010345,001354:
010346,001355: # THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
010347,001356: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
010348,001357:
010349,001358: 04,2573 SETLOC BLANKCON +1
010350,001359:
010351,001360: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
010352,001361: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
010353,001362:
010354,001363: 04,2573 37761 DEGOUTSF CAF ZERO
010355,001364: 04,2574 54146 TS MPAC +2 # SET INDEX FOR FULL SCALE
010356,001365: 04,2575 02632 TC FIXRANGE
010357,001366: 04,2576 02600 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
010358,001367: 04,2577 02625 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
010359,001368: 04,2600 02643 TC DEGCOM
010360,001369:
010361,001370: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
010362,001371:
010363,001372: 04,2601 10144 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
010364,001373: 04,2602 56144 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
010365,001374: 04,2603 02606 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
010366,001375: 04,2604 02615 TC NEGOPT # IF NEG NON ZERO
010367,001376: 04,2605 67763 AD NEG1 # IF NEG ZERO SUBTRACT 1
010368,001377: 04,2606 62657 AD 20BIAS
010369,001378: 04,2607 54144 BIASCOM TS MPAC # TEST FOR OVERFLOW
010370,001379: 04,2610 02613 TC +3 # NO OVFLOW
010371,001380: 04,2611 37737 CAF BIT15 # IF OVFLOW
010372,001381: 04,2612 26144 ADS MPAC
010373,001382: 04,2613 37754 CAF TWO # SET MULTIPLIER TO .45
010374,001383: 04,2614 02574 TC DEGOUTSF +1
010375,001384:
010376,001385: 04,2615 56144 NEGOPT XCH MPAC # NEGATIVE CASE
010377,001386: 04,2616 62657 AD 20BIAS
010378,001387: 04,2617 10000 CCS A
010379,001388: 04,2620 02607 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
010380,001389: 04,2621 04725 TC CCSHOLE
010381,001390: 04,2622 67755 AD ONE # IF NEG RESTORE SUM
010382,001391:
|
|
Page 250 |
010384,001393: 04,2623 40000 COM # IF NEG 0 LEAVE NEG 0
010385,001394: 04,2624 02607 TC BIASCOM
010386,001395:
010387,001396: 04,2625 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
010388,001397: 04,2626 50146 INDEX MPAC +2 # DP AUGMENTER CONSTANT
010389,001398: 04,2627 32654 DCA DEGTAB
010390,001399: 04,2630 52114 DXCH SFTEMP1
010391,001400: 04,2631 00002 TC Q
010392,001401:
010393,001402: 04,2632 10144 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
010394,001403: 04,2633 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
010395,001404: 04,2634 00002 TC Q # MASKING OUT THE SIGN BIT
010396,001405: 04,2635 12636 TCF +1
010397,001406: 04,2636 47737 CS BIT15
010398,001407:
010399,001408: 04,2637 70144 MASK MPAC
010400,001409: 04,2640 54144 TS MPAC
010401,001410: 04,2641 50002 INDEX Q
010402,001411: 04,2642 00001 TC 1
010403,001412:
010404,001413: 04,2643 00006 DEGCOM EXTEND # LOADS MULTIPLIER , DOES SHORTMP, AND
010405,001414: 04,2644 50146 INDEX MPAC +2 # ADDS AUGMENTER.
010406,001415: 04,2645 32654 DCA DEGTAB
010407,001416: 04,2646 52145 DXCH MPAC # ADJUSTED ANGLE IN A
010408,001417: 04,2647 07351 TC SHORTMP
010409,001418: 04,2650 52114 DXCH SFTEMP1
010410,001419: 04,2651 20145 DAS MPAC
010411,001420: 04,2652 02663 TC SCOUTEND
010412,001421:
010413,001422:
010414,001423: 04,2653 05605 DEGTAB OCT 05605 # HI PART OF .18
010415,001424: 04,2654 03656 OCT 03656 # LOW PART OF .18
010416,001425: 04,2655 16314 OCT 16314 # HI PART OF .45
010417,001426: 04,2656 31463 OCT 31463 # LO PART OF .45
010418,001427:
010419,001428: 04,2657 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
010420,001429:
010421,001430: 04,2660 52114 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
010422,001431: 04,2661 52145 DXCH MPAC
010423,001432: 04,2662 07351 TC SHORTMP
010424,001433: 04,2663 05243 SCOUTEND TC POSTJUMP
010425,001434: 04,2664 12513 CADR DSPDCEND
010426,001435:
010427,001436: 04,2665 02677 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010428,001437: 04,2666 56146 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
010429,001438: 04,2667 56145 XCH MPAC +1 # BY B14.
010430,001439: 04,2670 54144 TS MPAC
010431,001440: 04,2671 02663 TC SCOUTEND
|
|
Page 251 |
010433,001442:
010434,001443: 04,2672 02677 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010435,001444: 04,2673 02663 TC SCOUTEND
010436,001445:
010437,001446:
010438,001447: 04,2674 02677 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010439,001448: 04,2675 03072 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
010440,001449: 04,2676 02663 TC SCOUTEND
010441,001450:
010442,001451: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
010443,001452: # THIS IS NEEDED FOR TIME DISPLAY.
010444,001453:
010445,001454: 04,2677 56002 DPOUT XCH Q
010446,001455: 04,2700 54111 TS OVFIND
010447,001456: 04,2701 50130 INDEX MIXBR
010448,001457: 04,2702 02702 TC +0
010449,001458: 04,2703 02720 TC DPOUTNOR
010450,001459: 04,2704 50107 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
010451,001460:
010452,001461: 04,2705 30140 CA IDAD1TEM # OF NOUN.
010453,001462: 04,2706 74552 MASK LOW11 # E SUBK
010454,001463: 04,2707 04512 TC SETEBANK # SET EB, LEAVE EADRES IN A.
010455,001464: 04,2710 00006 DPOUTCOM EXTEND
010456,001465: 04,2711 50000 INDEX A # MIXED NORMAL
010457,001466: 04,2712 30001 DCA 0 # C(ESUBK) C(E)
010458,001467: 04,2713 52145 DXCH MPAC # C((E SUBK)+1) C(E+1)
010459,001468: 04,2714 07320 TC TPAGREE
010460,001469: 04,2715 07146 TC DMP
010461,001470: 04,2716 00113 ADRES SFTEMP1
010462,001471: 04,2717 00111 TC OVFIND
010463,001472:
010464,001473: 04,2720 30135 DPOUTNOR CA NOUNADD # E
010465,001474: 04,2721 02710 TC DPOUTCOM
010466,001475:
010467,001476:
010468,001477: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
010469,001478: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
010470,001479: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
010471,001480: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
010472,001481: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
010473,001482: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
010474,001483:
010475,001484:
010476,001485: 04,2722 50130 DSPDPDEC INDEX MIXBR
010477,001486: 04,2723 02723 TC +0
010478,001487: 04,2724 02726 TC +2 # NORMAL NOUN
010479,001488: 04,2725 03315 TC DSPALARM
010480,001489:
|
|
Page 252 |
010482,001491: 04,2726 00006 EXTEND
010483,001492: 04,2727 50135 INDEX NOUNADD
010484,001493:
010485,001494: 04,2730 30001 DCA 0
010486,001495: 04,2731 52145 DXCH MPAC
010487,001496: 04,2732 34516 CAF R1D1
010488,001497: 04,2733 54270 TS DSPCOUNT
010489,001498: 04,2734 37761 CAF ZERO
010490,001499: 04,2735 54146 TS MPAC +2
010491,001500: 04,2736 07320 TC TPAGREE
010492,001501: 04,2737 03173 TC DSP2DEC
010493,001502: 04,2740 00126 ENDDPDEC TC ENTEXIT
010494,001503:
|
|
Page 253 |
010496,001505: # LOAD VERBS
010497,001506:
010498,001507:
010499,001508: 05,2535 SETLOC ENDRTOUT
010500,001509:
010501,001510: 05,2535 47754 ABCLOAD CS TWO
010502,001511: 05,2536 02376 TC COMPTEST
010503,001512:
010504,001513: 05,2537 32673 CAF VBSP1LD
010505,001514: 05,2540 02314 TC UPDATVB -1
010506,001515: 05,2541 02252 TC REQDATX
010507,001516: 05,2542 32674 CAF VBSP2LD
010508,001517: 05,2543 02314 TC UPDATVB -1
010509,001518: 05,2544 02254 TC REQDATY
010510,001519: 05,2545 32675 CAF VBSP3LD
010511,001520: 05,2546 02314 TC UPDATVB -1
010512,001521: 05,2547 02256 TC REQDATZ
010513,001522:
010514,001523:
010515,001524: 05,2550 46276 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
010516,001525: 05,2551 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
010517,001526: 05,2552 00006 EXTEND
010518,001527: 05,2553 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010519,001528: 05,2554 52006 DXCH Z # ROUTINE.
010520,001529: 05,2555 37761 CAF ZERO # X COMP
010521,001530: 05,2556 02762 TC PUTCOM
010522,001531: 05,2557 50135 INDEX NOUNADD
010523,001532: 05,2560 54000 TS 0
010524,001533: 05,2561 37755 CAF ONE # Y COMP
010525,001534: 05,2562 02762 TC PUTCOM
010526,001535:
010527,001536: 05,2563 50135 INDEX NOUNADD
010528,001537: 05,2564 54001 TS 1
010529,001538: 05,2565 37754 CAF TWO # Z COMP
010530,001539: 05,2566 02762 TC PUTCOM
010531,001540: 05,2567 50135 INDEX NOUNADD
010532,001541: 05,2570 54002 TS 2
010533,001542: 05,2571 02663 TC LOADLV
010534,001543:
010535,001544: 05,2572 47755 ABLOAD CS ONE
010536,001545: 05,2573 02376 TC COMPTEST
010537,001546: 05,2574 32673 CAF VBSP1LD
010538,001547: 05,2575 02314 TC UPDATVB -1
010539,001548: 05,2576 02252 TC REQDATX
010540,001549: 05,2577 32674 CAF VBSP2LD
010541,001550: 05,2600 02314 TC UPDATVB -1
010542,001551: 05,2601 02254 TC REQDATY
010543,001552: 05,2602 47760 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
010544,001553: 05,2603 02676 TC ALLDC/OC # ALL DEC OR ALL OCT.
010545,001554: 05,2604 00006 EXTEND
|
|
Page 254 |
010547,001556: 05,2605 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010548,001557: 05,2606 52006 DXCH Z # ROUTINE.
010549,001558: 05,2607 37761 CAF ZERO # X COMP
010550,001559: 05,2610 02762 TC PUTCOM
010551,001560: 05,2611 50135 INDEX NOUNADD
010552,001561: 05,2612 54000 TS 0
010553,001562: 05,2613 37755 CAF ONE # Y COMP
010554,001563: 05,2614 02762 TC PUTCOM
010555,001564: 05,2615 50135 INDEX NOUNADD
010556,001565: 05,2616 54001 TS 1
010557,001566: 05,2617 02663 TC LOADLV
010558,001567:
010559,001568: 05,2620 02252 ALOAD TC REQDATX
010560,001569: 05,2621 00006 EXTEND
010561,001570:
010562,001571: 05,2622 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010563,001572: 05,2623 52006 DXCH Z # ROUTINE.
010564,001573: 05,2624 37761 CAF ZERO # X COMP
010565,001574: 05,2625 02762 TC PUTCOM
010566,001575: 05,2626 50135 INDEX NOUNADD
010567,001576: 05,2627 54000 TS 0
010568,001577: 05,2630 02663 TC LOADLV
010569,001578:
010570,001579: 05,2631 47755 BLOAD CS ONE
010571,001580: 05,2632 02376 TC COMPTEST
010572,001581: 05,2633 37737 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
010573,001582: 05,2634 54306 TS CLPASS
010574,001583: 05,2635 02254 TC REQDATY
010575,001584: 05,2636 00006 EXTEND
010576,001585: 05,2637 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010577,001586: 05,2640 52006 DXCH Z # ROUTINE.
010578,001587: 05,2641 37755 CAF ONE
010579,001588: 05,2642 02762 TC PUTCOM
010580,001589: 05,2643 50135 INDEX NOUNADD
010581,001590: 05,2644 54001 TS 1
010582,001591: 05,2645 02663 TC LOADLV
010583,001592:
010584,001593: 05,2646 47754 CLOAD CS TWO
010585,001594:
010586,001595: 05,2647 02376 TC COMPTEST
010587,001596: 05,2650 37737 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
010588,001597: 05,2651 54306 TS CLPASS
010589,001598: 05,2652 02256 TC REQDATZ
010590,001599: 05,2653 00006 EXTEND
010591,001600: 05,2654 32076 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
010592,001601: 05,2655 52006 DXCH Z # ROUTINE.
010593,001602: 05,2656 37754 CAF TWO
010594,001603: 05,2657 02762 TC PUTCOM
010595,001604: 05,2660 50135 INDEX NOUNADD
010596,001605: 05,2661 54002 TS 2
010597,001606: 05,2662 02663 TC LOADLV
010598,001607:
|
|
Page 255 |
010600,001609: 05,2663 37761 LOADLV CAF ZERO
010601,001610: 05,2664 54271 TS DECBRNCH
010602,001611: 05,2665 47761 CS ZERO
010603,001612: 05,2666 54305 TS LOADSTAT
010604,001613: 05,2667 44554 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
010605,001614: 05,2670 54270 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
010606,001615: 05,2671 05243 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
010607,001616: 05,2672 11440 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
010608,001617:
010609,001618: 05,2673 00021 VBSP1LD OCT 21 # VB21 = ALOAD
010610,001619: 05,2674 00022 VBSP2LD OCT 22 # VB22 = BLOAD
010611,001620: 05,2675 00023 VBSP3LD OCT 23 # VB23 = CLOAD
010612,001621:
010613,001622: 05,2676 54107 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
010614,001623: 05,2677 40271 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
010615,001624: 05,2700 54021 TS SR
010616,001625: 05,2701 40021 CS SR
010617,001626: 05,2702 40021 CS SR # SHIFTED RIGHT 2
010618,001627:
010619,001628: 05,2703 10000 CCS A # DEC COMP BITS IN LOW 3
010620,001629: 05,2704 12706 TCF +2 # SOME ONES IN LOW 3
010621,001630: 05,2705 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
010622,001631: 05,2706 60107 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
010623,001632: 05,2707 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
010624,001633: 05,2710 12712 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
010625,001634: 05,2711 02324 TC GODSPALM
010626,001635: 05,2712 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
010627,001636:
010628,001637: 05,2713 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
010629,001638: 05,2714 54104 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
010630,001639: 05,2715 34546 CAF MID5
010631,001640: 05,2716 70137 MASK NNTYPTEM
010632,001641: 05,2717 04521 TC RIGHT5
010633,001642: 05,2720 00104 TC EXITEM # SF ROUTINE NUMBER IN A
010634,001643:
010635,001644: 05,2721 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
010636,001645: 05,2722 54104 TS EXITEM
010637,001646: 05,2723 50107 INDEX DECOUNT
010638,001647: 05,2724 32753 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010639,001648: 05,2725 54001 TS L
010640,001649:
010641,001650: 05,2726 50107 INDEX DECOUNT
010642,001651: 05,2727 34545 CAF LOW5 # LOW5, MID5, OR HI5 IN A
010643,001652: 05,2730 70143 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
010644,001653: 05,2731 50001 INDEX L
010645,001654: 05,2732 00000 TC 0
010646,001655: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010647,001656: 05,2733 00104 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
010648,001657:
|
|
Page 256 |
010650,001659: 05,2734 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
010651,001660: 05,2735 54104 TS EXITEM
010652,001661:
010653,001662: 05,2736 50130 INDEX MIXBR
010654,001663: 05,2737 02737 TC +0
010655,001664: 05,2740 02756 TC CONUMNOR # NORMAL NOUN
010656,001665: 05,2741 50107 INDEX DECOUNT # MIXED NOUN
010657,001666: 05,2742 32753 CAF DISPLACE
010658,001667: 05,2743 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010659,001668: 05,2744 50107 INDEX DECOUNT
010660,001669: 05,2745 34545 CAF LOW5
010661,001670: 05,2746 70137 MASK NNTYPTEM
010662,001671: 05,2747 50001 INDEX L
010663,001672: 05,2750 00000 TC 0
010664,001673: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010665,001674: 05,2751 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
010666,001675: 05,2752 00104 TC EXITEM
010667,001676:
010668,001677: 05,2753 02712 DISPLACE TC GOQ
010669,001678: 05,2754 04521 TC RIGHT5
010670,001679: 05,2755 04530 TC LEFT5
010671,001680:
010672,001681: 05,2756 34545 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
010673,001682: 05,2757 70137 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
010674,001683: 05,2760 60000 DOUBLE
010675,001684: 05,2761 00104 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
010676,001685:
010677,001686:
010678,001687: 05,2762 54107 PUTCOM TS DECOUNT
010679,001688: 05,2763 56002 XCH Q
010680,001689: 05,2764 54105 TS DECRET
010681,001690: 05,2765 37761 CAF ZERO
010682,001691: 05,2766 54111 TS OVFIND
010683,001692: 05,2767 50107 INDEX DECOUNT
010684,001693: 05,2770 56277 XCH XREGLP
010685,001694: 05,2771 54145 TS MPAC +1
010686,001695: 05,2772 50107 INDEX DECOUNT
010687,001696: 05,2773 56274 XCH XREG
010688,001697: 05,2774 54144 TS MPAC
010689,001698: 05,2775 50130 INDEX MIXBR
010690,001699: 05,2776 02776 TC +0
010691,001700: 05,2777 03023 TC PUTNORM # NORMAL NOUN
010692,001701: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
010693,001702: 05,3000 50107 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
010694,001703: 05,3001 30140 CA IDAD1TEM # OF NOUN.
010695,001704: 05,3002 74552 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
010696,001705: 05,3003 04502 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010697,001706: 05,3004 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
010698,001707: 05,3005 60107 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
010699,001708:
010700,001709: 05,3006 54135 TS NOUNADD
|
|
Page 257 |
010702,001711: 05,3007 10271 CCS DECBRNCH
010703,001712: 05,3010 03051 TC PUTDECSF # + DEC
010704,001713: 05,3011 02721 TC SFRUTMIX # +0 OCTAL
010705,001714: 05,3012 02236 TC DPTEST
010706,001715: 05,3013 03040 TC PUTCOM2 # NO DP
010707,001716: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010708,001717: # +0 INTO MAJOR PART. SET NOUNADD FOR
010709,001718: # LOADING OCTAL WORD INTO MINOR PART.
010710,001719:
010711,001720: 05,3014 24135 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
010712,001721: 05,3015 30135 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
010713,001722: 05,3016 26107 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
010714,001723: 05,3017 37761 CAF ZERO # NOUNADD SET FOR MINOR PART
010715,001724: 05,3020 50107 INDEX DECOUNT
010716,001725: 05,3021 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
010717,001726: 05,3022 03040 TC PUTCOM2
010718,001727:
010719,001728: 05,3023 04510 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010720,001729: 05,3024 10271 CCS DECBRNCH
010721,001730: 05,3025 03051 TC PUTDECSF # + DEC
010722,001731: 05,3026 02713 TC SFRUTNOR # +0 OCTAL
010723,001732: 05,3027 02236 TC DPTEST
010724,001733: 05,3030 03034 TC PUTCOM2 -4 # NO DP
010725,001734: 05,3031 37761 CAF ZERO # DP
010726,001735: 05,3032 54107 TS DECOUNT
010727,001736: 05,3033 03014 TC PUTDPCOM
010728,001737:
010729,001738: 05,3034 30136 CA NNADTEM
010730,001739: 05,3035 67755 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010731,001740: 05,3036 00006 EXTEND
010732,001741: 05,3037 13044 BZF CHANLOAD
010733,001742: 05,3040 56144 PUTCOM2 XCH MPAC
010734,001743:
010735,001744: 05,3041 00105 TC DECRET
010736,001745:
010737,001746: 05,3042 0270 EBANK= DSPCOUNT
010738,001747: 05,3042 02045 46000 GTSFINLC 2CADR GTSFIN
010739,001748:
010740,001749:
010741,001750: 05,3044 56144 CHANLOAD XCH MPAC
010742,001751: 05,3045 00006 EXTEND
010743,001752: 05,3046 50310 INDEX NOUNCADR
010744,001753: 05,3047 01000 WRITE 0
010745,001754: 05,3050 02663 TC LOADLV
010746,001755:
010747,001756: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010748,001757:
010749,001758: 05,3051 02734 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
010750,001759: 05,3052 54113 TS SFTEMP1
|
|
Page 258 |
010752,001761: 05,3053 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
010753,001762: 05,3054 33043 DCA GTSFINLC # READING ROUTINE.
010754,001763: 05,3055 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
010755,001764: 05,3056 50130 INDEX MIXBR
010756,001765: 05,3057 03057 TC +0
010757,001766: 05,3060 03063 TC PUTSFNOR
010758,001767: 05,3061 02721 TC SFRUTMIX
010759,001768: 05,3062 03064 TC PUTDCSF2
010760,001769: 05,3063 02713 PUTSFNOR TC SFRUTNOR
010761,001770:
010762,001771: 05,3064 50000 PUTDCSF2 INDEX A
010763,001772: 05,3065 33067 CAF SFINTABR
010764,001773: 05,3066 05246 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
010765,001774: 05,3067 11315 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
010766,001775:
010767,001776: 05,3070 11021 CADR BINROUND
010768,001777: 05,3071 10741 CADR DEGINSF
010769,001778: 05,3072 11011 CADR ARTHINSF
010770,001779: 05,3073 11041 CADR DPINSF
010771,001780: 05,3074 11066 CADR DPINSF2
010772,001781: 05,3075 11024 CADR OPTDEGIN
010773,001782: 05,3076 11041 CADR DPINSF # SAME AS ARITHDP1
010774,001783: 05,3077 ENDRUTIN EQUALS
010775,001784:
010776,001785:
010777,001786: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
010778,001787: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
010779,001788:
010780,001789: 04,2741 SETLOC ENDDPDEC +1
010781,001790:
010782,001791: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
010783,001792:
010784,001793: 04,2741 07146 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
010785,001794: 04,2742 03004 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
010786,001795: 04,2743 10145 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
010787,001796:
010788,001797: 04,2744 37743 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
010789,001798: 04,2745 02747 TC +2 # WHEN SHIFTED LEFT AND ALARM.
010790,001799: 04,2746 47743 CS BIT11
010791,001800: 04,2747 60145 AD MPAC +1
010792,001801: 04,2750 03104 TC 2ROUND +2
010793,001802: 04,2751 04600 TC TPSL1 # LEFT 1
010794,001803: 04,2752 04600 DEGINSF2 TC TPSL1 # LEFT 2
010795,001804: 04,2753 03113 TC TESTOFUF
010796,001805: 04,2754 04600 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
010797,001806: 04,2755 10144 CCS MPAC
010798,001807: 04,2756 02762 TC SIGNFIX # IF +, GO TO SIGNFIX
010799,001808: 04,2757 02762 TC SIGNFIX # IF +0, GO TO SIGNFIX
010800,001809: 04,2760 40000 COM # IF - , USE -MAGNITUDE +1
|
|
Page 259 |
010802,001811: 04,2761 54144 TS MPAC # IF -0, USE +0
010803,001812: 04,2762 10111 SIGNFIX CCS OVFIND
010804,001813: 04,2763 03000 TC SGNTO1 # IF OVERFLOW
010805,001814: 04,2764 02774 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
010806,001815: 04,2765 10144 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
010807,001816: 04,2766 04725 TC CCSHOLE
010808,001817: 04,2767 02776 TC NEG180
010809,001818: 04,2770 02771 TC +1
010810,001819: 04,2771 56144 XCH MPAC
010811,001820: 04,2772 77735 MASK POSMAX
010812,001821: 04,2773 54144 TS MPAC
010813,001822: 04,2774 05243 ENDSCALE TC POSTJUMP
010814,001823: 04,2775 13040 CADR PUTCOM2
010815,001824:
010816,001825: 04,2776 47735 NEG180 CS POSMAX
010817,001826: 04,2777 02773 TC ENDSCALE -1
010818,001827:
010819,001828: 04,3000 40144 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
010820,001829: 04,3001 77735 MASK POSMAX
010821,001830:
010822,001831: 04,3002 40000 CS A
010823,001832: 04,3003 02773 TC ENDSCALE -1
010824,001833:
010825,001834: 04,3004 26161 30707 DEGCON1 2DEC 5.555555555 B-3
010826,001835:
010827,001836: 04,3006 21616 07071 DEGCON2 2DEC 2.222222222 B-2
010828,001837:
010829,001838: 04,3010 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
010830,001839:
010831,001840: 04,3011 07146 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
010832,001841: 04,3012 00113 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
010833,001842: 04,3013 56146 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
010834,001843: 04,3014 56145 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
010835,001844: 04,3015 56144 XCH MPAC
010836,001845: 04,3016 00006 EXTEND
010837,001846: 04,3017 13021 BZF BINROUND
010838,001847: 04,3020 03315 TC DSPALARM # TOO LARGE A LOAD
010839,001848: 04,3021 03102 BINROUND TC 2ROUND
010840,001849: 04,3022 03113 TC TESTOFUF
010841,001850: 04,3023 02774 TC ENDSCALE # RETURNS IF NO OF/UF
010842,001851:
010843,001852:
010844,001853: 04,3024 10144 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
010845,001854: 04,3025 03031 TC +4
010846,001855: 04,3026 03031 TC +3
010847,001856: 04,3027 03315 TC DSPALARM # REJECT NEGATIVE INPUT
010848,001857: 04,3030 03315 TC DSPALARM # DITTO
010849,001858: 04,3031 33010 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
010850,001859: 04,3032 26144 ADS MPAC # SUBTRACT BIAS
010851,001860: 04,3033 07146 TC DMP # MULT BY 100 / 45 B-2
010852,001861:
|
|
Page 260 |
010854,001863: 04,3034 03006 ADRES DEGCON2
010855,001864: 04,3035 37742 CAF BIT12 # ROUND AS IN DEGINSF
010856,001865:
010857,001866: 04,3036 60145 AD MPAC +1
010858,001867: 04,3037 03104 TC 2ROUND +2
010859,001868: 04,3040 02752 TC DEGINSF2
010860,001869:
010861,001870: 04,3041 07146 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
010862,001871: 04,3042 00113 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
010863,001872: 04,3043 56146 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
010864,001873: 04,3044 60000 DOUBLE
010865,001874: 04,3045 54146 TS MPAC +2
010866,001875: 04,3046 37761 CAF ZERO
010867,001876: 04,3047 60145 AD MPAC +1
010868,001877: 04,3050 03104 TC 2ROUND +2
010869,001878: 04,3051 03113 TC TESTOFUF
010870,001879: 04,3052 50130 INDEX MIXBR # RETURNS IF NO OF/UF
010871,001880: 04,3053 03053 TC +0
010872,001881: 04,3054 03064 TC DPINORM
010873,001882: 04,3055 30107 CA DECOUNT # MIXEDNOUN
010874,001883: 04,3056 60135 DPINCOM AD NOUNADD # MIXED NORMAL
010875,001884: 04,3057 54002 TS Q # E SUBK E
010876,001885: 04,3060 56145 XCH MPAC +1
010877,001886: 04,3061 50002 INDEX Q
010878,001887: 04,3062 54001 TS 1 # PLACE LOW PART IN
010879,001888: 04,3063 02774 TC ENDSCALE # (E SUBK) +1 MIXED
010880,001889:
010881,001890: 04,3064 37761 DPINORM CAF ZERO # E +1 NORMAL
010882,001891: 04,3065 03056 TC DPINCOM
010883,001892:
010884,001893:
010885,001894: 04,3066 07146 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010886,001895: 04,3067 00113 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
010887,001896: 04,3070 03072 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
010888,001897: 04,3071 03043 TC DPINSF +2
010889,001898:
010890,001899:
010891,001900: 04,3072 56002 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
010892,001901: 04,3073 54114 TS SFTEMP2 # CANT USE L FOR RETURN. TPSL1 USES L.
010893,001902: 04,3074 36276 CAF SIX # LEFT BY 7
010894,001903: 04,3075 54113 LEFT7COM TS SFTEMP1
010895,001904: 04,3076 04600 TC TPSL1
010896,001905: 04,3077 10113 CCS SFTEMP1
010897,001906: 04,3100 03075 TC LEFT7COM
010898,001907: 04,3101 00114 TC SFTEMP2
010899,001908:
010900,001909: 04,3102 56145 2ROUND XCH MPAC +1
010901,001910: 04,3103 60000 DOUBLE
|
|
Page 261 |
010903,001912: 04,3104 54145 TS MPAC +1
010904,001913: 04,3105 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
010905,001914: 04,3106 60144 AD MPAC
010906,001915: 04,3107 54144 TS MPAC
010907,001916: 04,3110 00002 TC Q # IF MPAC DOES NOT OF/UF
010908,001917: 04,3111 54111 TS OVFIND
010909,001918: 04,3112 00002 2RNDEND TC Q
010910,001919:
010911,001920: 04,3113 10111 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
010912,001921: 04,3114 03315 TC DSPALARM # OF
010913,001922: 04,3115 00002 TC Q
010914,001923: 04,3116 03315 TC DSPALARM # UF
010915,001924:
|
|
Page 262 |
010917,001926: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
010918,001927: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
010919,001928:
010920,001929: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
010921,001930: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
010922,001931: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
010923,001932: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
010924,001933: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
010925,001934:
010926,001935: # MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
010927,001936: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
010928,001937: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
010929,001938:
010930,001939: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
010931,001940:
010932,001941: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
010933,001942: # AND MONSAVE1 (TURNING OFF KILLER BIT).
010934,001943:
010935,001944:
010936,001945: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
010937,001946: 05,3077 SETLOC ENDRUTIN
010938,001947:
010939,001948: 05,3077 47737 MONITOR CS BIT15
010940,001949: 05,3100 70310 MASK NOUNCADR
010941,001950: 05,3101 54145 MONIT1 TS MPAC +1 # TEMP STORAGE
010942,001951: 05,3102 33401 CAF LOW6
010943,001952: 05,3103 70272 MASK VERBREG
010944,001953: 05,3104 04530 TC LEFT5
010945,001954: 05,3105 54022 TS CYL
010946,001955: 05,3106 56022 XCH CYL
010947,001956: 05,3107 60273 AD NOUNREG
010948,001957: 05,3110 54144 TS MPAC # TEMP STORAGE
010949,001958: 05,3111 40330 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
010950,001959: 05,3112 67754 AD TWO
010951,001960: 05,3113 10000 CCS A
010952,001961: 05,3114 04700 TC RELDSP1 # GRABLOCK=0,1. +0 INTO DSPLOCK AND
010953,001962: 05,3115 03121 TC +4 # TURN OFF KEY RLSE LIGHT.
010954,001963:
010955,001964: 05,3116 04725 TC CCSHOLE
010956,001965: 05,3117 37761 CAF ZERO # GRABLOCK=2. +0 INTO DSPLOCK AND
010957,001966: 05,3120 54303 TS DSPLOCK # LEAVE KEY RLSE LIGHT ALONE
010958,001967: 05,3121 00004 INHINT
010959,001968: 05,3122 10311 CCS MONSAVE
010960,001969: 05,3123 03130 TC +5 # IF MONSAVE WAS +, NO REQUEST
010961,001970: 05,3124 37755 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
010962,001971: 05,3125 05701 TC WAITLIST
010963,001972: 05,3126 0270 EBANK= DSPCOUNT
010964,001973: 05,3126 03134 12000 2CADR MONREQ
010965,001974:
010966,001975: 05,3130 52145 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
|
|
Page 263 |
010968,001977: 05,3131 52312 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
010969,001978: 05,3132 00003 RELINT
010970,001979: 05,3133 00126 TC ENTRET
010971,001980:
010972,001981:
010973,001982: 05,3134 04574 MONREQ TC LODSAMPT # CALLED BY WAITLIST
010974,001983: 05,3135 10312 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
010975,001984: 05,3136 03142 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
010976,001985: 05,3137 03142 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
010977,001986: 05,3140 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
010978,001987: 05,3141 03153 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
010979,001988: 05,3142 33157 CAF MONDEL
010980,001989: 05,3143 05701 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
010981,001990: 05,3144 0270 EBANK= DSPCOUNT
010982,001991: 05,3144 03134 12000 2CADR MONREQ
010983,001992:
010984,001993: 05,3146 35226 CAF CHRPRIO
010985,001994: 05,3147 05523 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
010986,001995:
010987,001996: 05,3150 0270 EBANK= DSPCOUNT
010988,001997: 05,3150 03160 12000 2CADR MONDO
010989,001998:
010990,001999: 05,3152 05745 TC TASKOVER
010991,002000:
010992,002001: 05,3153 37761 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
010993,002002: 05,3154 54311 TS MONSAVE
010994,002003: 05,3155 54312 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
010995,002004: 05,3156 05745 TC TASKOVER
010996,002005:
010997,002006:
010998,002007: 05,3157 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
010999,002008:
011000,002009:
011001,002010: 05,3160 10312 MONDO CCS MONSAVE1 # CALLED BY EXEC
011002,002011: 05,3161 03165 TC +4 # IF KILLER BIT = 0, CONTINUE
011003,002012: 05,3162 03165 TC +3 # IF KILLER BIT = 0, CONTINUE
011004,002013: 05,3163 05605 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
011005,002014: 05,3164 05605 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
011006,002015: 05,3165 10303 CCS DSPLOCK
011007,002016: 05,3166 03212 TC MONBUSY # NVSUB IS BUSY
011008,002017:
011009,002018: 05,3167 33401 CAF LOW6 # NVSUB IS AVAILABLE
011010,002019: 05,3170 70311 MASK MONSAVE
011011,002020: 05,3171 54113 TS NVTEMP
011012,002021: 05,3172 04447 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
011013,002022: 05,3173 05605 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
011014,002023: 05,3174 33210 CAF MONMASK
011015,002024: 05,3175 70311 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
011016,002025: 05,3176 04521 TC RIGHT5
|
|
Page 264 |
011018,002027: 05,3177 54020 TS CYR
011019,002028: 05,3200 56020 XCH CYR
011020,002029:
011021,002030: 05,3201 54272 TS VERBREG
011022,002031: 05,3202 33211 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
011023,002032: 05,3203 54126 TS ENTRET
011024,002033: 05,3204 47737 CS BIT15
011025,002034: 05,3205 70312 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
011026,002035: 05,3206 54146 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
011027,002036: 05,3207 02037 ENDMONDO TC TESTNN # EBANK.
011028,002037:
011029,002038: 4424 SETLOC ENDRMODF
011030,002039:
011031,002040: 4424 34432 PASTEVB CAF MIDSIX
011032,002041: 4425 70311 MASK MONSAVE
011033,002042: 4426 54113 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
011034,002043: 4427 04447 TC NVSUBMON # DISPLAY IT.
011035,002044: 4430 04431 TC +1 # IN CASE OF ALARM DURING DISPLAY
011036,002045: 4431 05605 ENDPASTE TC ENDOFJOB
011037,002046:
011038,002047: 4432 07700 MIDSIX OCT 07700
011039,002048:
011040,002049: 05,3210 SETLOC ENDMONDO +1
011041,002050: 05,3210 00700 MONMASK OCT 700
011042,002051: 05,3211 04424 MONBACK ADRES PASTEVB
011043,002052:
011044,002053: 05,3212 04570 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
011045,002054: 05,3213 05605 TC ENDOFJOB
011046,002055:
011047,002056:
011048,002057: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011049,002058: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
011050,002059: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
011051,002060:
011052,002061: 05,3214 34516 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
011053,002062: 05,3215 54270 TS DSPCOUNT
011054,002063: 05,3216 30310 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011055,002064: 05,3217 05257 TC DATACALL
011056,002065: 05,3220 03222 TC DSPOCTWD
011057,002066: 05,3221 05605 TC ENDOFJOB
011058,002067:
|
|
Page 265 |
011060,002069: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
011061,002070: # STARTING IN LOC SPECIFIED IN DSPCOUNT
011062,002071:
011063,002072: 04,3117 SETLOC TESTOFUF +4
011064,002073:
011065,002074: 04,3117 56002 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
011066,002075: 04,3120 54105 TS WDRET # CANT USE L FOR RETURN.+ON USES L.
011067,002076: 04,3121 10144 CCS MPAC
011068,002077:
011069,002078: 04,3122 03131 TC +7
011070,002079: 04,3123 03131 TC +6
011071,002080: 04,3124 67755 AD ONE
011072,002081: 04,3125 54144 TS MPAC
011073,002082: 04,3126 02321 TC -ON
011074,002083: 04,3127 40145 CS MPAC +1
011075,002084: 04,3130 03133 TC +3
011076,002085: 04,3131 02301 TC +ON
011077,002086: 04,3132 56145 XCH MPAC +1
011078,002087: 04,3133 63172 AD DECROUND
011079,002088: 04,3134 54145 TS MPAC +1
011080,002089: 04,3135 37761 CAF ZERO
011081,002090: 04,3136 60144 AD MPAC
011082,002091: 04,3137 54144 TS MPAC
011083,002092: 04,3140 03144 TC +4
011084,002093: 04,3141 37735 CAF POSMAX
011085,002094: 04,3142 54144 TS MPAC
011086,002095: 04,3143 54145 TS MPAC +1
011087,002096: 04,3144 37753 CAF FOUR
011088,002097: 04,3145 54127 DSPDCWD1 TS WDCNT
011089,002098: 04,3146 34557 CAF BINCON
011090,002099: 04,3147 07351 TC SHORTMP
011091,002100: 04,3150 50144 TRACE1 INDEX MPAC
011092,002101:
011093,002102: 04,3151 34267 CAF RELTAB
011094,002103: 04,3152 74545 MASK LOW5
011095,002104: 04,3153 54114 TS CODE
011096,002105: 04,3154 37761 CAF ZERO
011097,002106: 04,3155 56146 XCH MPAC +2
011098,002107: 04,3156 56145 XCH MPAC +1
011099,002108: 04,3157 54144 TS MPAC
011100,002109: 04,3160 56270 XCH DSPCOUNT
011101,002110: 04,3161 54133 TRACE1S TS COUNT
011102,002111: 04,3162 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
011103,002112: 04,3163 54270 TS DSPCOUNT
011104,002113: 04,3164 03217 TC DSPIN
011105,002114: 04,3165 10127 CCS WDCNT
011106,002115: 04,3166 03145 TC DSPDCWD1
011107,002116: 04,3167 44554 CS VD1
011108,002117: 04,3170 54270 TS DSPCOUNT
011109,002118: 04,3171 00105 TC WDRET
011110,002119:
011111,002120: 04,3172 02476 DECROUND OCT 02476
011112,002121:
|
|
Page 266 |
011114,002123: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
011115,002124: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
011116,002125:
011117,002126: 04,3173 56002 DSP2DEC XCH Q
011118,002127: 04,3174 54105 TS WDRET # MUST USE SAME RETURN AS DSPDECWD
011119,002128: 04,3175 37761 CAF ZERO
011120,002129: 04,3176 54114 TS CODE
011121,002130: 04,3177 36301 CAF THREE
011122,002131: 04,3200 03301 TC 11DSPIN # -R2 OFF
011123,002132: 04,3201 37753 CAF FOUR
011124,002133: 04,3202 03301 TC 11DSPIN # +R2 OFF
011125,002134: 04,3203 10144 CCS MPAC
011126,002135: 04,3204 03214 TC +8D
011127,002136: 04,3205 03214 TC +7
011128,002137:
011129,002138: 04,3206 67755 AD ONE
011130,002139: 04,3207 54144 TS MPAC
011131,002140: 04,3210 02321 TC -ON
011132,002141: 04,3211 40145 CS MPAC +1
011133,002142: 04,3212 54145 TS MPAC +1
011134,002143: 04,3213 03215 TC +2
011135,002144: 04,3214 02301 TC +ON
011136,002145: 04,3215 34517 CAF R2D1
011137,002146: 04,3216 03145 END2DEC TC DSPDCWD1
011138,002147:
011139,002148:
011140,002149: 05,3222 SETLOC DSPFMEM +6
011141,002150: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
011142,002151: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
011143,002152:
011144,002153: 05,3222 54022 DSPOCTWD TS CYL
011145,002154: 05,3223 56002 XCH Q
011146,002155: 05,3224 54105 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
011147,002156: 05,3225 37740 CAF BIT14 # TO BLANK SIGNS
011148,002157: 05,3226 26270 ADS DSPCOUNT
011149,002158: 05,3227 37753 CAF FOUR
011150,002159: 05,3230 54127 WDAGAIN TS WDCNT
011151,002160:
011152,002161: 05,3231 40022 CS CYL
011153,002162: 05,3232 40022 CS CYL
011154,002163: 05,3233 40022 CS CYL
011155,002164: 05,3234 40000 CS A
011156,002165: 05,3235 77757 MASK DSPMSK
011157,002166: 05,3236 50000 INDEX A
011158,002167: 05,3237 34267 CAF RELTAB
011159,002168: 05,3240 74545 MASK LOW5
011160,002169: 05,3241 54114 TS CODE
011161,002170: 05,3242 56270 XCH DSPCOUNT
011162,002171: 05,3243 54133 TS COUNT
011163,002172: 05,3244 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
011164,002173: 05,3245 54270 TS DSPCOUNT
|
|
Page 267 |
011166,002175: 05,3246 05243 TC POSTJUMP
011167,002176: 05,3247 11307 CADR DSPOCTIN
011168,002177: 05,3250 10127 OCTBACK CCS WDCNT
011169,002178: 05,3251 03230 TC WDAGAIN # +
011170,002179: 05,3252 44554 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
011171,002180: 05,3253 54270 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
011172,002181: 05,3254 00105 TC WDRET
011173,002182:
011174,002183: 05,3255 7757 DSPMSK = SEVEN
011175,002184:
011176,002185:
011177,002186: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
011178,002187: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
011179,002188: # OF THE 5 CHAR OCTAL DISPLAY
011180,002189:
011181,002190: 05,3255 54020 DSP2BIT TS CYR
011182,002191: 05,3256 56002 XCH Q
011183,002192: 05,3257 54105 TS WDRET # CANT USE L AS RETURN. UPDATNN USES L.
011184,002193:
011185,002194: 05,3260 37755 CAF ONE
011186,002195: 05,3261 54127 TS WDCNT
011187,002196: 05,3262 40020 CS CYR
011188,002197: 05,3263 40020 CS CYR
011189,002198: 05,3264 56020 XCH CYR
011190,002199: 05,3265 54022 TS CYL
011191,002200: 05,3266 03235 TC WDAGAIN +5
011192,002201:
011193,002202:
011194,002203: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
011195,002204: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
011196,002205: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
011197,002206: # DSPTAB ENTRY INTO DSREL.
011198,002207:
011199,002208: 04,3217 SETLOC END2DEC +1
011200,002209:
011201,002210: 04,3217 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
011202,002211: 04,3220 54104 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
011203,002212: 04,3221 34545 CAF LOW5
011204,002213: 04,3222 70133 MASK COUNT
011205,002214: 04,3223 54021 TS SR
011206,002215: 04,3224 56021 XCH SR
011207,002216:
011208,002217: 04,3225 54131 TS DSREL
011209,002218: 04,3226 37755 CAF BIT1
011210,002219: 04,3227 70133 MASK COUNT
011211,002220: 04,3230 10000 CCS A
011212,002221: 04,3231 03233 TC +2 # LEFT IF COUNT IS ODD
011213,002222: 04,3232 03243 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
011214,002223: 04,3233 56114 XCH CODE
011215,002224: 04,3234 04537 TC SLEFT5 # DOES NOT USE CYL
|
|
Page 268 |
011217,002226: 04,3235 54114 TS CODE
011218,002227: 04,3236 37740 CAF BIT14
011219,002228:
011220,002229: 04,3237 70133 MASK COUNT
011221,002230: 04,3240 10000 CCS A
011222,002231: 04,3241 37754 CAF TWO # BIT14 = 1, BLANK SIGN
011223,002232: 04,3242 67755 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
011224,002233: 04,3243 54133 TS COUNT # +0 INTO COUNT FOR RIGHT
011225,002234: # +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
011226,002235: # +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
011227,002236: 04,3244 00004 DSPIN1 INHINT
011228,002237: 04,3245 50131 INDEX DSREL
011229,002238: 04,3246 10313 CCS DSPTAB
011230,002239: 04,3247 03251 TC +2 # IF +
011231,002240: 04,3250 04725 TC CCSHOLE
011232,002241: 04,3251 67755 AD ONE # IF -
011233,002242: 04,3252 54132 TS DSMAG
011234,002243: 04,3253 50133 INDEX COUNT
011235,002244: 04,3254 73275 MASK DSMSK
011236,002245: 04,3255 00006 EXTEND
011237,002246: 04,3256 60114 SU CODE
011238,002247: 04,3257 00006 EXTEND
011239,002248: 04,3260 13273 BZF DSLV # SAME
011240,002249: 04,3261 50133 DFRNT INDEX COUNT
011241,002250: 04,3262 43275 CS DSMSK # MASK WITH 77740,76037, OR 75777
011242,002251: 04,3263 70132 MASK DSMAG
011243,002252:
011244,002253: 04,3264 60114 AD CODE
011245,002254: 04,3265 40000 CS A
011246,002255: 04,3266 50131 INDEX DSREL
011247,002256: 04,3267 56313 XCH DSPTAB
011248,002257: 04,3270 00006 EXTEND
011249,002258: 04,3271 63273 BZMF DSLV # DSPTAB ENTRY WAS -
011250,002259: 04,3272 24307 INCR NOUT # DSPTAB ENTRY WAS +
011251,002260: 04,3273 00003 DSLV RELINT
011252,002261: 04,3274 00104 TC DSEXIT
011253,002262:
011254,002263: 04,3275 00037 DSMSK OCT 37
011255,002264: 04,3276 01740 OCT 1740
011256,002265: 04,3277 02000 OCT 2000
011257,002266: 04,3300 03740 OCT 3740
011258,002267:
011259,002268:
011260,002269: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011261,002270: # BIT11 OF CODE.
011262,002271:
011263,002272: 04,3301 54131 11DSPIN TS DSREL
011264,002273: 04,3302 37754 CAF TWO
011265,002274: 04,3303 54133 TS COUNT
011266,002275:
011267,002276: 04,3304 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
011268,002277: 04,3305 54104 TS DSEXIT
|
|
Page 269 |
011270,002279: 04,3306 03244 TC DSPIN1
011271,002280:
011272,002281:
011273,002282: 04,3307 03217 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
011274,002283: 04,3310 33312 CAF +2
011275,002284: 04,3311 05246 TC BANKJUMP
011276,002285: 04,3312 13250 ENDSPOCT CADR OCTBACK
011277,002286:
011278,002287:
011279,002288: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
011280,002289: # ABORT WITH 01501.
011281,002290: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011282,002291: # DO TC ENTRET.
011283,002292:
011284,002293: 04,3313 34474 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
011285,002294: 04,3314 54126 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011286,002295:
011287,002296: 04,3315 04560 DSPALARM TC FALTON # TURN ON OPERATOR ERROR LIGHT
011288,002297: 04,3316 43325 CS NVSBENDL
011289,002298: 04,3317 60126 AD ENTEXIT
011290,002299: 04,3320 00006 EXTEND
011291,002300: 04,3321 13323 BZF +2 # NVSUB INITIATED. ABORT
011292,002301: 04,3322 00126 TC ENTEXIT # NOT NVSUB INITIATED.
011293,002302: 04,3323 06000 TC ABORT
011294,002303: 04,3324 01501 OCT 01501
011295,002304: 04,3325 04453 NVSBENDL TC NVSUBEND
011296,002305:
011297,002306:
011298,002307: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
011299,002308:
011300,002309: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011301,002310: # M M LIGHTS.
011302,002311:
011303,002312: 05,3267 SETLOC DSP2BIT +10D
011304,002313:
011305,002314: 05,3267 03302 MMCHANG TC REQMM
011306,002315: 05,3270 37761 CAF ZERO
011307,002316: 05,3271 56273 XCH NOUNREG
011308,002317: 05,3272 54144 TS MPAC
011309,002318: 05,3273 34555 CAF ND1
011310,002319: 05,3274 54270 TS DSPCOUNT
011311,002320: 05,3275 05224 TC BANKCALL
011312,002321: 05,3276 10557 CADR 2BLANK
011313,002322: 05,3277 30144 CA MPAC
011314,002323: 05,3300 05243 TC POSTJUMP
011315,002324: 05,3301 11315 CADR MODROUTB # GO THRU STANDARD LOC.
011316,002325:
|
|
Page 270 |
011318,002327: 05,3302 04,3315 MODROUTB = DSPALARM # **FIX LATER**
011319,002328: 05,3302 40002 REQMM CS Q
011320,002329: 05,3303 54304 TS REQRET
011321,002330: 05,3304 34555 CAF ND1
011322,002331: 05,3305 54270 TS DSPCOUNT
011323,002332: 05,3306 37761 CAF ZERO
011324,002333: 05,3307 54273 TS NOUNREG
011325,002334: 05,3310 05224 TC BANKCALL
011326,002335: 05,3311 10557 CADR 2BLANK
011327,002336: 05,3312 04611 TC FLASHON
011328,002337: 05,3313 00126 TC ENTEXIT
011329,002338:
011330,002339:
011331,002340: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
011332,002341: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011333,002342: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011334,002343: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011335,002344: # COMPONENT 2 JOB ADRES (12 BIT )
011336,002345: # COMPONENT 3 BBCON
011337,002346:
011338,002347: 05,3314 37755 VBRQEXEC CAF BIT1
011339,002348: 05,3315 70337 MASK DSPTEM1
011340,002349: 05,3316 10000 CCS A
011341,002350: 05,3317 03336 TC SETVAC # IF BIT1 = 1, FINDVAC
011342,002351: 05,3320 35741 CAF TCNOVAC # IF BIT1 = 0, NOVAC
011343,002352: 05,3321 54144 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
011344,002353: 05,3322 47755 CS BIT1
011345,002354: 05,3323 70337 MASK DSPTEM1
011346,002355: 05,3324 54150 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
011347,002356: 05,3325 04655 REQUESTC TC RELDSP
011348,002357: 05,3326 34474 CA ENDINST
011349,002358: 05,3327 54147 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
011350,002359: 05,3330 00006 EXTEND
011351,002360: 05,3331 30341 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
011352,002361: 05,3332 52146 DXCH MPAC +1 # BBCON INTO MPAC+2
011353,002362: 05,3333 30150 CA MPAC +4 # PRIO IN A
011354,002363: 05,3334 00004 INHINT
011355,002364:
011356,002365: 05,3335 00144 TC MPAC
011357,002366:
011358,002367: 05,3336 34551 SETVAC CAF TCFINDVC
011359,002368: 05,3337 03321 TC REQEX1
011360,002369:
011361,002370: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011362,002371: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011363,002372: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011364,002373: # COMPONENT 1 DELAY (LOW BITS)
011365,002374: # COMPONENT 2 TASK ADRES (12 BIT)
011366,002375: # COMPONENT 3 BBCON
|
|
Page 271 |
011368,002377: 05,3340 34550 VBRQWAIT CAF TCWAIT
011369,002378: 05,3341 54144 TS MPAC # TC WAITLIST INTO MPAC
011370,002379: 05,3342 30337 CA DSPTEM1 # TIME DELAY
011371,002380: 05,3343 03324 ENDRQWT TC REQUESTC -1
011372,002381:
011373,002382: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011374,002383: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011375,002384: # LEAVE IT IN A, INHINT AND TC MPAC.
011376,002385:
011377,002386:
011378,002387: 04,3326 SETLOC NVSBENDL +1
011379,002388: 04,3326 37755 VBPROC CAF ONE # PROCEED WITHOUT DATA
011380,002389: 04,3327 54305 TS LOADSTAT
011381,002390: 04,3330 04655 TC RELDSP
011382,002391: 04,3331 04615 TC FLASHOFF
011383,002392: 04,3332 03440 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
011384,002393:
011385,002394:
011386,002395: 04,3333 04455 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
011387,002396: 04,3334 47755 CS ONE
011388,002397: 04,3335 03327 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
011389,002398:
011390,002399:
011391,002400: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
011392,002401:
011393,002402: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
011394,002403: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011395,002404:
011396,002405: 04,3336 47753 VBRELDSP CS BIT3
011397,002406: 04,3337 00006 EXTEND
011398,002407: 04,3340 03011 WAND DSALMOUT # TURN OFF UPACT LIGHT
011399,002408: 04,3341 04655 TC RELDSP # SEARCHES LIST
011400,002409: 04,3342 05605 TC ENDOFJOB
011401,002410:
011402,002411:
011403,002412: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011404,002413:
011405,002414: 04,3343 37760 BUMP CAF FIVE # R2D5
011406,002415: 04,3344 54270 TS DSPCOUNT
011407,002416: 04,3345 54133 TS COUNT
011408,002417: 04,3346 37755 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
011409,002418: 04,3347 70133 MASK COUNT
011410,002419: 04,3350 56133 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
011411,002420: 04,3351 54021 TS SR # +1 INTO COUNT IF ODD (LEFT)
|
|
Page 272 |
011413,002422: 04,3352 56021 XCH SR # DSREL IN A
011414,002423: 04,3353 50000 INDEX A
011415,002424:
011416,002425: 04,3354 10313 CCS DSPTAB
011417,002426: 04,3355 03357 TC +2
011418,002427: 04,3356 04725 TC CCSHOLE
011419,002428: 04,3357 67755 AD ONE # DSMAG IN A
011420,002429: 04,3360 50133 INDEX COUNT
011421,002430: 04,3361 73275 MASK DSMSK
011422,002431: 04,3362 50133 INDEX COUNT
011423,002432: 04,3363 03364 TC +1
011424,002433: 04,3364 03366 TC +2 # EVEN(RIGHT) OK
011425,002434: 04,3365 04521 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
011426,002435: 04,3366 54114 TS CODE
011427,002436: 04,3367 47760 CS FIVE
011428,002437: 04,3370 60270 AD DSPCOUNT # DSPCOUNT-5
011429,002438: 04,3371 10000 CCS A # TO PREVENT -0
011430,002439: 04,3372 67755 AD ONE
011431,002440: 04,3373 03375 TC +2
011432,002441: 04,3374 04725 TC CCSHOLE
011433,002442: 04,3375 54133 TS COUNT
011434,002443: 04,3376 03217 TC DSPIN # CODE ALREADY IN CODE
011435,002444: 04,3377 40270 CS DSPCOUNT
011436,002445: 04,3400 64516 AD R1D1 # OCT 16
011437,002446: 04,3401 10000 CCS A
011438,002447: 04,3402 56270 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
011439,002448:
011440,002449: 04,3403 67755 AD ONE # INCREMENT DSPCOUNT
011441,002450: 04,3404 03344 TC BUMP +1
011442,002451:
011443,002452: 04,3405 37761 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011444,002453: 04,3406 54270 TS DSPCOUNT
011445,002454: 04,3407 63436 AD SWTAB +2 # OCT 3
011446,002455: 04,3410 50000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
011447,002456: 04,3411 10313 CCS DSPTAB # (-R2,+R2,-R1,+R1)
011448,002457: 04,3412 03414 TC +2
011449,002458: 04,3413 04725 TC CCSHOLE
011450,002459: 04,3414 67755 AD ONE
011451,002460: 04,3415 77743 MASK BIT11
011452,002461: 04,3416 54114 TS CODE
011453,002462: 04,3417 50270 INDEX DSPCOUNT
011454,002463: 04,3420 33434 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
011455,002464: 04,3421 03301 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
011456,002465: 04,3422 40270 CS DSPCOUNT
011457,002466: 04,3423 63436 AD SWTAB +2 # OCT 3
011458,002467: 04,3424 10000 CCS A
011459,002468: 04,3425 56270 XCH DSPCOUNT # +, DSPCOUNT L/ 3
011460,002469: 04,3426 67755 AD ONE # INCREMENT DSPCOUNT
011461,002470: 04,3427 03406 TC SWSGN +1
011462,002471: 04,3430 34516 CAF R1D1 # -0, DSPCOUNT = 3
011463,002472:
011464,002473: 04,3431 54270 TS DSPCOUNT
011465,002474: 04,3432 02514 TC 5BLANK # BLANKS R1
|
|
Page 273 |
011467,002476: 04,3433 00126 TC ENTEXIT
011468,002477:
011469,002478: 04,3434 00000 SWTAB OCT 0 # -R3
011470,002479: 04,3435 00001 OCT 1 # +R3
011471,002480: 04,3436 00003 OCT 3 # -R2
011472,002481: 04,3437 00004 OCT 4 # +R2
011473,002482:
|
|
Page 274 |
011475,002484: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011476,002485: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
011477,002486: # INTO A. V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011478,002487:
011479,002488: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011480,002489: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011481,002490:
011482,002491: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011483,002492: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011484,002493: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
011485,002494: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011486,002495: # FURTHER ACTION).
011487,002496:
011488,002497: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011489,002498:
011490,002499: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011491,002500: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011492,002501: # ALARM CONDITION BEFORE RETURN TO CALLER.
011493,002502:
011494,002503: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011495,002504: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011496,002505: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
011497,002506: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
011498,002507: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
011499,002508: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
011500,002509: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011501,002510: # MONITOR SET UP.
011502,002511:
011503,002512: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011504,002513:
011505,002514: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011506,002515: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011507,002516:
011508,002517: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011509,002518: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011510,002519:
011511,002520: 4433 SETLOC MIDSIX +1
011512,002521: 4433 54113 NVSUB TS NVTEMP # IN FIXED FIXED
011513,002522: 4434 10303 CCS DSPLOCK
011514,002523: 4435 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
011515,002524: 4436 30002 CA Q # DSP SYST AVAILABLE
011516,002525: 4437 67755 AD ONE
011517,002526: 4440 54331 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
011518,002527: 4441 04455 TC KILMONON # TURN ON KILL MONITOR BIT
011519,002528: 4442 34446 NVSUBCOM CAF NVSBBBNK
011520,002529:
011521,002530: 4443 56006 XCH BBANK
011522,002531: 4444 54332 TS NVBNKTEM
011523,002532: 4445 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
011524,002533: 4446 0270 EBANK= DSPCOUNT
011525,002534: 4446 12000 NVSBBBNK BBCON NVSUB1
011526,002535:
|
|
Page 275 |
011528,002537: 4447 30002 NVSUBMON CA Q # MONDO COMES HERE
011529,002538: 4450 67755 AD ONE
011530,002539: 4451 54331 TS NVQTEM # 2 + CALLING LOC INTO NVQTEM
011531,002540: 4452 04442 TC NVSUBCOM
011532,002541:
011533,002542: 4453 52332 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
011534,002543: 4454 52006 DXCH Z # DTCB
011535,002544:
011536,002545: 05,3344 SETLOC ENDRQWT +1
011537,002546:
011538,002547: 05,3344 33363 NVSUB1 CAF ENTSET # IN BANK
011539,002548: 05,3345 54126 TS ENTRET # SET RETURN TO NVSUBEND
011540,002549: 05,3346 33401 CAF LOW6
011541,002550: 05,3347 70113 MASK NVTEMP
011542,002551: 05,3350 54144 TS MPAC # TEMP STORAGE
011543,002552: 05,3351 33402 CAF MID6
011544,002553: 05,3352 70113 MASK NVTEMP
011545,002554: 05,3353 04521 TC RIGHT5
011546,002555:
011547,002556: 05,3354 54020 TS CYR
011548,002557: 05,3355 56020 XCH CYR
011549,002558: 05,3356 54145 TS MPAC +1 # TEMP STORAGE
011550,002559: 05,3357 10144 CCS MPAC # TEST NOUN
011551,002560: 05,3360 03364 TC +4 # IF NOUN NOT +0, GO ON
011552,002561: 05,3361 56145 XCH MPAC +1
011553,002562: 05,3362 02314 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
011554,002563: 05,3363 04453 ENTSET TC NVSUBEND
011555,002564: 05,3364 10145 CCS MPAC +1 # TEST VERB
011556,002565: 05,3365 03371 TC +4 # IF VERB NOT +0, GO ON
011557,002566: 05,3366 56144 XCH MPAC
011558,002567: 05,3367 02274 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
011559,002568: 05,3370 04453 TC NVSUBEND
011560,002569: 05,3371 56145 XCH MPAC +1
011561,002570: 05,3372 02314 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
011562,002571: 05,3373 56144 XCH MPAC # BOTH AND GO TO ENTPAS0
011563,002572: 05,3374 02274 TC UPDATNN -1
011564,002573: 05,3375 37761 CAF ZERO
011565,002574: 05,3376 54305 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
011566,002575: 05,3377 54306 TS CLPASS
011567,002576: 05,3400 02031 TC ENTPAS0
011568,002577:
011569,002578: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011570,002579:
011571,002580: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
011572,002581:
011573,002582:
011574,002583: 05,3401 00077 LOW6 OCT 77
011575,002584: 05,3402 07700 MID6 OCT 7700
011576,002585:
|
|
Page 276 |
011578,002587: 4455 SETLOC NVSUBEND +2
011579,002588: 4455 47737 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
011580,002589:
011581,002590: 4456 00004 INHINT # THIS IS THE KILL MONITOR BIT.
011582,002591: 4457 70312 MASK MONSAVE1
011583,002592: 4460 67737 AD BIT15
011584,002593: 4461 54312 TS MONSAVE1
011585,002594: 4462 00003 RELINT
011586,002595: 4463 00002 TC Q
011587,002596:
011588,002597:
011589,002598: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
011590,002599: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
011591,002600: # -1 TERMINATE SET BY SPECIAL VERB
011592,002601: # -0 DATA IN SET BY END OF LOAD ROUTINE
011593,002602:
011594,002603:
011595,002604: # L TC ENDIDLE (FIXED FIXED)
011596,002605: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011597,002606: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011598,002607: # ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND
011599,002608: # JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011600,002609: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011601,002610: # L+1 FOR TERMINATE
011602,002611:
011603,002612: # L+2 FOR PROCEED WITHOUT DATA
011604,002613: # L+3 FOR DATA IN
011605,002614: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
011606,002615:
011607,002616: 4464 37755 ENDIDLE CAF ONE
011608,002617: 4465 54303 TS DSPLOCK
011609,002618: 4466 22004 LXCH FBANK
011610,002619: 4467 56002 XCH Q
011611,002620: 4470 52124 DXCH BUF2
011612,002621: 4471 05253 TC MAKECADR
011613,002622: 4472 54327 TS CADRSTOR
011614,002623: 4473 05563 TC JOBSLEEP
011615,002624:
011616,002625: 4474 05605 ENDINST TC ENDOFJOB
011617,002626:
011618,002627: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011619,002628: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011620,002629: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011621,002630: # DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011622,002631: # AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011623,002632: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011624,002633:
011625,002634: 4475 10305 DATAWAIT CCS LOADSTAT
|
|
Page 277 |
011627,002636: 4476 17006 TCF DATWAIT1 # PROCEED. RETURN TO L+2.
011628,002637: 4477 14464 TCF ENDIDLE # STILL WAITING. GO TO SLEEP.
011629,002638: 4500 00002 TC Q # TERMINATE. RETURN TO L+1.
011630,002639: 4501 17010 TCF Q+2 # DATA IN. RETURN TO L+3
011631,002640: 4502 7006 DATWAIT1 = Q+1 # RETURN TO L+2
011632,002641:
011633,002642: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
011634,002643: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
011635,002644:
011636,002645:
011637,002646: 05,3403 SETLOC MID6 +1
011638,002647: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
011639,002648:
011640,002649: 05,3403 34556 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
011641,002650: 05,3404 56270 XCH DSPCOUNT
011642,002651: 05,3405 54130 TS DSPMMTEM # SAVE DSPCOUNT
011643,002652: 05,3406 30302 CA MODREG
011644,002653: 05,3407 22002 LXCH Q
011645,002654: 05,3410 03255 TC DSP2BIT
011646,002655: 05,3411 56130 XCH DSPMMTEM # RESTORE DSPCOUNT
011647,002656: 05,3412 54270 TS DSPCOUNT
011648,002657: 05,3413 00001 DSPMMEND TC L
011649,002658:
011650,002659:
011651,002660: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
011652,002661: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
011653,002662: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
011654,002663:
011655,002664: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
011656,002665: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
011657,002666:
011658,002667: 04,3440 SETLOC SWTAB +4
011659,002668:
011660,002669: 04,3440 10327 RECALTST CCS CADRSTOR
011661,002670: 04,3441 03446 TC RECAL1
011662,002671: 04,3442 05605 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
011663,002672: 04,3443 03446 TC RECAL1
011664,002673: 04,3444 54327 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
011665,002674: 04,3445 03464 TC RECAL3 # +0 INTO CADRSTOR, RELEASE DISPLAY,
011666,002675: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
011667,002676: 04,3446 37761 RECAL1 CAF ZERO
011668,002677: 04,3447 56327 XCH CADRSTOR
011669,002678: 04,3450 00004 INHINT
011670,002679: 04,3451 05567 TC JOBWAKE
011671,002680: 04,3452 10305 CCS LOADSTAT
011672,002681: 04,3453 03470 TC DOPROC # + PROCEED WITHOUT DATA
011673,002682: 04,3454 05605 TC ENDOFJOB # PATHALOGICAL CASE EXIT
011674,002683: 04,3455 03466 TC DOTERM # - TERMINATE
|
|
Page 278 |
011676,002685: 04,3456 37754 CAF TWO
011677,002686: 04,3457 50064 RECAL2 INDEX LOCCTR
011678,002687: 04,3460 60154 AD LOC # LOC IS + FOR BASIC JOBS
011679,002688: 04,3461 50064 INDEX LOCCTR
011680,002689: 04,3462 54154 TS LOC
011681,002690: 04,3463 00003 RELINT
011682,002691: 04,3464 04700 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
011683,002692: 04,3465 05605 TC ENDOFJOB
011684,002693:
011685,002694: 04,3466 37761 DOTERM CAF ZERO
011686,002695: 04,3467 03457 TC RECAL2
011687,002696:
011688,002697: 04,3470 37755 DOPROC CAF ONE
011689,002698: 04,3471 03457 TC RECAL2
011690,002699:
|
|
Page 279 |
011692,002701: # THE FOLLOWING REFERS TO THE NOUN TABLES
011693,002702:
011694,002703:
011695,002704: # COMPONENT CODE NUMBER INTERPRETATION
011696,002705:
011697,002706: # 00000 1 COMPONENT
011698,002707: # 00001 2 COMPONENT (EACH S P)
011699,002708: # 00010 3 COMPONENT (EACH SP)
011700,002709:
011701,002710:
011702,002711: # SF ROUTINE CODE NUMBER INTERPRETATION
011703,002712:
011704,002713: # 00000 OCTAL ONLY
011705,002714: # 00001 STRAIGHT FRACTIONAL
011706,002715: # 00010 DEGREES (XXX.XX)
011707,002716: # 00011 ARITHMETIC SF
011708,002717: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN(STRAIGHT)
011709,002718:
011710,002719: # 00101 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
011711,002720: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011712,002721: # 00111 ARITH DP3 OUT ( SL 7 AT END) IN ( STRAIGHT)
011713,002722: # END OF SF ROUTINE CODE NUMBERS
011714,002723:
011715,002724:
011716,002725: # SF CONSTANT CODE NUMBER INTERPRETATION
011717,002726:
011718,002727: # 00000 WHOLE
011719,002728: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
011720,002729: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
011721,002730: # 00010 DEGREES
011722,002731: # 00010 OPTICS DEGREES
011723,002732: # 00011 GYRO DEGREES (XX.XXX) USE ARITHDP3
011724,002733: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011725,002734: # 00101 GYRO AXIS ACCEL. DRIFT
011726,002735: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011727,002736: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
011728,002737: # 00111 PIPA SCALE FACTOR ERROR
011729,002738: # XXXXX. PARTS/MILLION
011730,002739: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011731,002740: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011732,002741:
011733,002742: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011734,002743: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
011735,002744: # 01100 RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011736,002745: # USE ARITHDP1
011737,002746: # 01101 RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
011738,002747: # USE ARITHDP1
011739,002748: # 01110 LANDING RADAR ALTITUDE(XXXXX.FEET)
011740,002749: # USE ARITHDP1
|
|
Page 280 |
011742,002751: # 01111 INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011743,002752: # USE ARITHDP1
011744,002753:
011745,002754: # 10000 ALTITUDE RATE(XXXXX.FEET) USE ARITH
011746,002755: # 10001 FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011747,002756: # USE ARITH
011748,002757: # 10010 ROTATIONAL HAND CONTROLLER ANGLE RATES
011749,002758: # XXXXX.DEG/SEC USE ARITH
011750,002759: # 10011 LANDING RADAR VELX(XXXXX.FEET/SEC)
011751,002760: # USE ARITHDP1
011752,002761: # 10100 LANDING RADAR VELY(XXXXX.FEET/SEC)
011753,002762: # USE ARITHDP1
011754,002763: # 10101 LANDING RADAR VELZ(XXXXX.FEET/SEC)
011755,002764: # USE ARITHDP1
011756,002765: # 10110 OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011757,002766: # USE ARITHDP1
011758,002767: # END OF SF CONSTANT CODE NUMBERS
011759,002768:
011760,002769: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011761,002770: # NOUN TABLES.
011762,002771: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011763,002772: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
011764,002773: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011765,002774:
|
|
Page 281 |
011767,002776: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011768,002777: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011769,002778: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011770,002779:
011771,002780:
011772,002781: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011773,002782: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011774,002783:
011775,002784: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011776,002785: # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011777,002786: # MIXED OR NORMAL NOUN.
011778,002787:
011779,002788: 23,2000 BANK 23
011780,002789: 23,2000 52142 LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011781,002790: 23,2001 50273 INDEX NOUNREG
011782,002791: 23,2002 32052 CAF NNADTAB
011783,002792: 23,2003 54136 TS NNADTEM
011784,002793: 23,2004 50273 INDEX NOUNREG
011785,002794: 23,2005 32152 CAF NNTYPTAB
011786,002795: 23,2006 54137 TS NNTYPTEM
011787,002796: 23,2007 40273 CS NOUNREG
011788,002797: 23,2010 62036 AD MIXCON
011789,002798: 23,2011 00006 EXTEND
011790,002799: 23,2012 62016 BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
011791,002800: 23,2013 37755 CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
011792,002801: 23,2014 54130 TS MIXBR # NORMAL. +1 INTO MIXBR.
011793,002802: 23,2015 02034 TC LODNLV
011794,002803: 23,2016 37754 LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
011795,002804: 23,2017 54130 TS MIXBR
011796,002805: 23,2020 50273 INDEX NOUNREG
011797,002806: 23,2021 32420 CAF RUTMXTAB -55
011798,002807:
011799,002808: 23,2022 54143 TS RUTMXTEM
011800,002809: 23,2023 35356 CAF LOW10
011801,002810: 23,2024 70136 MASK NNADTEM
011802,002811: 23,2025 54002 TS Q # TEMP
011803,002812: 23,2026 50000 INDEX A
011804,002813: 23,2027 32406 CAF IDADDTAB
011805,002814: 23,2030 54140 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
011806,002815: 23,2031 00006 EXTEND
011807,002816: 23,2032 50002 INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011808,002817: 23,2033 32410 DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011809,002818: 23,2034 52142 LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
011810,002819: 23,2035 52006 DXCH Z
011811,002820:
011812,002821: 23,2036 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
011813,002822:
011814,002823:
011815,002824: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
|
|
Page 282 |
011817,002826:
011818,002827: 23,2037 52114 GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
011819,002828: 23,2040 00006 EXTEND
011820,002829: 23,2041 50000 INDEX A
011821,002830: 23,2042 32331 DCA SFOUTAB
011822,002831: 23,2043 52114 SFCOM DXCH SFTEMP1
011823,002832: 23,2044 52006 DXCH Z
011824,002833:
011825,002834:
011826,002835: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
011827,002836:
011828,002837: 23,2045 52114 GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
011829,002838: 23,2046 00006 EXTEND
011830,002839: 23,2047 50000 INDEX A
011831,002840:
011832,002841: 23,2050 32253 DCA SFINTAB
011833,002842: 23,2051 12043 TCF SFCOM
011834,002843:
011835,002844: # NN NORMAL NOUNS
011836,002845: 23,2052 00000 NNADTAB OCT 00000 # 00 NOT IN USE
011837,002846: 23,2053 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
011838,002847: 23,2054 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
011839,002848: 23,2055 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
011840,002849: 23,2056 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
011841,002850: 23,2057 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
011842,002851: 23,2060 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
011843,002852: 23,2061 00000 OCT 00000 # 07 SPARE
011844,002853: 23,2062 77776 OCT 77776 # 10 CHANNEL TO BE SPECIFIED
011845,002854: 23,2063 00000 OCT 00000 # 11 SPARE
011846,002855: 23,2064 00000 OCT 00000 # 12 SPARE
011847,002856: 23,2065 00000 OCT 00000 # 13 SPARE
011848,002857: 23,2066 00000 OCT 00000 # 14 SPARE
011849,002858: 23,2067 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
011850,002859: 23,2070 00024 ECADR TIME2 # 16 TIME SECONDS
011851,002860: 23,2071 00024 ECADR TIME2 # 17 TIME HOURS
011852,002861: 23,2072 00032 ECADR CDUX # 20 ICDU
011853,002862:
011854,002863: 23,2073 00037 ECADR PIPAX # 21 PIPAS
011855,002864: 23,2074 00400 ECADR THETAD # 22 NEW ANGLES I
011856,002865: 23,2075 00342 ECADR DSPTEM2 # 23 DELTA ANGLES I
011857,002866: 23,2076 00337 ECADR DSPTEM1 # 24 DELTA TIME (SEC)
011858,002867: 23,2077 00337 ECADR DSPTEM1 # 25 CHECKLIST
011859,002868: 23,2100 00337 ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
011860,002869: 23,2101 01357 ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
011861,002870: 23,2102 00337 ECADR DSPTEM1 # 30 STAR NUMBERS
011862,002871: 23,2103 01361 ECADR SFAIL # 31 SFAIL, ERCOUNT, FAILREG.
011863,002872: 23,2104 02166 ECADR TDEC # 32 DECISION TIME (MIDCOURSE)
011864,002873: 23,2105 02046 ECADR TET # 33 EPHEMERIS TIME(MIDCOURSE)
011865,002874: 23,2106 02174 ECADR MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
011866,002875: 23,2107 00337 ECADR DSPTEM1 # 35 INBIT MESSAGE
|
|
Page 283 |
011868,002877: 23,2110 01500 ECADR LANDMARK # 36 LANDMARK DATA 1
011869,002878: 23,2111 01503 ECADR LANDMARK +3 # 37 LANDMARK DATA 2
011870,002879: 23,2112 00035 ECADR OPTY # 40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
011871,002880: 23,2113 00423 ECADR TANG # 41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
011872,002881: 23,2114 00342 ECADR DSPTEM2 # 42 AOT ROTATION ANGLES
011873,002882: 23,2115 00374 ECADR XYMARK # 43 AOT DETENT CODE
011874,002883: 23,2116 00357 ECADR FORVEL # 44 FORWARD VELOCITY, LATERAL VELOCITY
011875,002884: 23,2117 03032 ECADR PCOM # 45 ROTATIONAL HAND CONTROLLER ANGLE RATE
011876,002885: 23,2120 00000 OCT 00000 # 46 SPARE
011877,002886: 23,2121 00000 OCT 00000 # 47 SPARE
011878,002887: 23,2122 01363 ECADR FAILREG # 50 FAILREG, FAILREG +1, FAILREG +2.
011879,002888: 23,2123 01342 ECADR ALMCADR # 51 ALMCADR, ALMCADR +1
011880,002889: 23,2124 01444 ECADR GBIASX # 52 GYRO BIAS DRIFT
011881,002890: 23,2125 01447 ECADR ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
011882,002891: 23,2126 01452 ECADR ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
011883,002892:
011884,002893: # NN MIXED NOUNS
011885,002894: 23,2127 02000 OCT 02000 # 55 LANDING RADAR ALTITUDE, TIME(SEC)
011886,002895: 23,2130 02002 OCT 02002 # 56 LANDING RADAR VELX, TIME(SEC)
011887,002896:
011888,002897: 23,2131 02004 OCT 02004 # 57 LANDING RADAR VELY, TIME(SEC)
011889,002898: 23,2132 02006 OCT 02006 # 60 LANDING RADAR VELZ, TIME(SEC)
011890,002899: 23,2133 02010 OCT 02010 # 61 TARGET AZIMUTH AND ELEVATION
011891,002900: 23,2134 04012 OCT 04012 # 62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
011892,002901: 23,2135 04015 OCT 04015 # 63 REND. RADAR RANGE RATE, TRUN, SHAFT
011893,002902: 23,2136 04020 OCT 04020 # 64 INITIAL ALT, FINAL ALT, ALT RATE
011894,002903: 23,2137 02023 OCT 02023 # 65 SAMPLED TIME (HOURS AND SECONDS)
011895,002904: # (FETCHED IN INTERRUPT)
011896,002905: 23,2140 04025 OCT 04025 # 66 SYSTEM TEST RESULTS
011897,002906: 23,2141 04030 OCT 04030 # 67 DELTA GYRO ANGLES
011898,002907: 23,2142 02033 OCT 02033 # 70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
011899,002908: 23,2143 02035 OCT 02035 # 71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
011900,002909: 23,2144 04037 OCT 04037 # 72 DELTA POSITION
011901,002910: 23,2145 04042 OCT 04042 # 73 DELTA VELOCITY
011902,002911: 23,2146 04045 OCT 04045 # 74 MEASUREMENT DATA (MIDCOURSE)
011903,002912: 23,2147 04050 OCT 04050 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
011904,002913: 23,2150 04053 OCT 04053 # 76 POSITION VECTOR
011905,002914: 23,2151 04056 OCT 04056 # 77 VELOCITY VECTOR
011906,002915:
011907,002916: # NN NORMAL NOUNS
011908,002917: 23,2152 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
011909,002918:
011910,002919: 23,2153 00040 OCT 00040 # 01 1COMP FRACTIONAL
011911,002920: 23,2154 00140 OCT 00140 # 02 1COMP WHOLE
011912,002921: 23,2155 00102 OCT 00102 # 03 1COMP DEGREES
011913,002922: 23,2156 00241 OCT 00241 # 04 1COMP HOURS
011914,002923: 23,2157 00200 OCT 00200 # 05 1COMP SECONDS
011915,002924: 23,2160 00343 OCT 00343 # 06 1COMP GYRO DEGREES
011916,002925: 23,2161 00000 OCT 00000 # 07 SPARE
011917,002926: 23,2162 00000 OCT 00000 # 10 1COMP OCTAL ONLY
|
|
Page 284 |
011919,002928: 23,2163 00000 OCT 00000 # 11 SPARE
011920,002929: 23,2164 00000 OCT 00000 # 12 SPARE
011921,002930:
011922,002931: 23,2165 00000 OCT 00000 # 13 SPARE
011923,002932: 23,2166 00000 OCT 00000 # 14 SPARE
011924,002933: 23,2167 00000 OCT 00000 # 15 1COMP OCTAL ONLY
011925,002934: 23,2170 00200 OCT 00200 # 16 1COMP SECONDS
011926,002935: 23,2171 00241 OCT 00241 # 17 1COMP HOURS
011927,002936: 23,2172 04102 OCT 04102 # 20 3COMP DEGREES
011928,002937: 23,2173 04140 OCT 04140 # 21 3COMP WHOLE
011929,002938: 23,2174 04102 OCT 04102 # 22 3COMP DEGREES
011930,002939: 23,2175 04102 OCT 04102 # 23 3COMP DEGREES
011931,002940: 23,2176 00200 OCT 00200 # 24 1COMP SECONDS
011932,002941: 23,2177 00140 OCT 00140 # 25 1COMP WHOLE
011933,002942: 23,2200 04000 OCT 04000 # 26 3COMP OCTAL ONLY
011934,002943: 23,2201 00140 OCT 00140 # 27 1COMP WHOLE
011935,002944: 23,2202 04140 OCT 04140 # 30 3COMP WHOLE
011936,002945: 23,2203 04000 OCT 04000 # 31 3COMP OCTAL ONLY
011937,002946: 23,2204 00252 OCT 00252 # 32 1COMP TIME WEEKS
011938,002947: 23,2205 00252 OCT 00252 # 33 1COMP TIME WEEKS
011939,002948: 23,2206 00350 OCT 00350 # 34 1COMP POSITION
011940,002949: 23,2207 04000 OCT 04000 # 35 3COMP OCTAL ONLY
011941,002950: 23,2210 04000 OCT 04000 # 36 3COMP OCTAL ONLY
011942,002951: 23,2211 04000 OCT 04000 # 37 3COMP OCTAL ONLY
011943,002952: 23,2212 02102 OCT 02102 # 40 2COMP DEGREES
011944,002953: 23,2213 02102 OCT 02102 # 41 2COMP DEGREES
011945,002954:
011946,002955: 23,2214 02102 OCT 02102 # 42 2COMP DEGREES
011947,002956: 23,2215 00140 OCT 00140 # 43 1COMP WHOLE
011948,002957: 23,2216 02161 OCT 02161 # 44 2COMP FORWARD/LATERAL VELOCITY
011949,002958: 23,2217 04162 OCT 04162 # 45 3COMP ROT HAND CONT ANGLE RATE
011950,002959: 23,2220 00000 OCT 00000 # 46 SPARE
011951,002960: 23,2221 00000 OCT 00000 # 47 SPARE
011952,002961: 23,2222 04000 OCT 04000 # 50 3COMP OCTAL ONLY
011953,002962: 23,2223 02000 OCT 02000 # 51 2COMP OCTAL ONLY
011954,002963: 23,2224 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
011955,002964: 23,2225 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
011956,002965: 23,2226 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
011957,002966:
011958,002967: # NN MIXED NOUNS
011959,002968: 23,2227 00016 OCT 00016 # 55 2COMP LANDING RADAR ALT, SECONDS
011960,002969: 23,2230 00023 OCT 00023 # 56 2COMP LANDING RADAR VELX, SECONDS
011961,002970: 23,2231 00024 OCT 00024 # 57 2COMP LANDING RADAR VELY, SECONDS
011962,002971: 23,2232 00025 OCT 00025 # 60 2COMP LANDING RADAR VELZ, SECONDS
011963,002972: 23,2233 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
011964,002973: 23,2234 04114 OCT 04114 # 62 3COMP REND. RADAR RANGE, DEG, DEG
011965,002974: 23,2235 04115 OCT 04115 # 63 3COMP REND. RAD. RANGE RATE, DEG,DEG
011966,002975: 23,2236 40757 OCT 40757 # 64 3COMP IN/FN ALT, IN/FN ALT, ALT RATE
011967,002976: 23,2237 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
011968,002977: 23,2240 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
011969,002978:
011970,002979: 23,2241 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
011971,002980: 23,2242 00126 OCT 00126 # 70 2COMP OPT TRACK AZIMUTH, DEGREES
|
|
Page 285 |
011973,002982: 23,2243 00126 OCT 00126 # 71 2COMP OPT TRACK AZIMUTH, DEGREES
011974,002983: 23,2244 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
011975,002984: 23,2245 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
011976,002985: 23,2246 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
011977,002986: 23,2247 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
011978,002987: 23,2250 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
011979,002988: 23,2251 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
011980,002989:
011981,002990:
011982,002991: 23,2252 00006 SFINTAB OCT 00006 # WHOLE,TIME(SEC)
011983,002992: 23,2253 03240 OCT 03240
011984,002993: 23,2254 00253 OCT 00253 # TIME HOURS ( = 1.3..... )
011985,002994: 23,2255 25124 OCT 25124 # (POINT BETWEEN BITS 7-8 )
011986,002995: 23,2256 00000 OCT 0 # DEGREES (SFCON IN DEGINSF )
011987,002996: 23,2257 00000 OCT 0
011988,002997: 23,2260 10707 OCT 10707 # GYRO DEGREES
011989,002998: 23,2261 03435 OCT 03435 # UPPED BY 1
011990,002999: 23,2262 00001 OCT 00001 # GYRO BIAS DRIFT
011991,003000: 23,2263 02133 OCT 02133
011992,003001: 23,2264 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
011993,003002: 23,2265 30322 OCT 30322
011994,003003: 23,2266 00004 OCT 00004 # PIPA BIAS
011995,003004: 23,2267 14021 OCT 14021
011996,003005: 23,2270 00314 OCT 00314 # PIPA SCALE ERROR.
011997,003006: 23,2271 31463 OCT 31463
011998,003007: 23,2272 23420 OCT 23420 # POSITION
011999,003008: 23,2273 00000 OCT 00000
012000,003009: 23,2274 00201 OCT 00201 # VELOCITY
012001,003010: 23,2275 30327 OCT 30327 # ( POINT BETWEEN BITS 7-8 )
012002,003011: 23,2276 01371 OCT 01371 # TIME WEEKS
012003,003012: 23,2277 34750 OCT 34750 # ( POINT BETWEEN BITS 7-8 )
012004,003013:
012005,003014: 23,2300 00001 OCT 00001 # ELEVATION DEGREES
012006,003015: 23,2301 03434 OCT 03434
012007,003016: 23,2302 00006 OCT 00006 # RENDEZVOUS RADAR RANGE
012008,003017: 23,2303 20162 OCT 20162
012009,003018: 23,2304 00011 OCT 00011 # RENDEZVOUS RADAR RANGE RATE
012010,003019: 23,2305 27066 OCT 27066
012011,003020: 23,2306 00005 OCT 00005 # LANDING RADAR ALTITUDE
012012,003021: 23,2307 24733 OCT 24733
012013,003022: 23,2310 00002 OCT 00002 # INITIAL/FINAL ALTITUDE
012014,003023: 23,2311 23224 OCT 23224
012015,003024: 23,2312 00014 OCT 00014 # ALTITUDE RATE
012016,003025: 23,2313 06500 OCT 06500
012017,003026: 23,2314 00012 OCT 00012 # FORWARD/LATERAL VELOCITY
012018,003027: 23,2315 36455 OCT 36455
012019,003028: 23,2316 04256 OCT 04256 # ROT HAND CONT ANGLE RATE
012020,003029: 23,2317 07071 OCT 07071
012021,003030: 23,2320 00011 OCT 00011 # LANDING RADAR VELX
012022,003031: 23,2321 17410 OCT 17410
|
|
Page 286 |
012024,003033: 23,2322 00004 OCT 00004 # LANDING RADAR VELY
012025,003034: 23,2323 33740 OCT 33740
012026,003035: 23,2324 00007 OCT 00007 # LANDING RADAR VELZ
012027,003036: 23,2325 03701 OCT 03701
012028,003037: 23,2326 00005 OCT 00005 # OPTICAL AZIMUTH TRACKER ANGLE
012029,003038: 23,2327 21616 OCT 21616
012030,003039: # END OF SFINTAB
012031,003040:
012032,003041:
012033,003042: 23,2330 05174 SFOUTAB OCT 05174 # WHOLE, TIME(SEC)
012034,003043: 23,2331 13261 OCT 13261
012035,003044: 23,2332 27670 OCT 27670 # TIME HOURS
012036,003045: 23,2333 31357 OCT 31357
012037,003046:
012038,003047: 23,2334 00000 OCT 0 # DEGREES
012039,003048: 23,2335 00000 OCT 0
012040,003049: 23,2336 00714 OCT 00714 # GYRO DEGREES
012041,003050: 23,2337 31463 OCT 31463 # (POINT BETWEEN BITS 7-8)
012042,003051: 23,2340 35753 OCT 35753 # GYRO BIAS DRIFT
012043,003052: 23,2341 32323 OCT 32323
012044,003053: 23,2342 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
012045,003054: 23,2343 06400 OCT 06400
012046,003055: 23,2344 07237 OCT 07237 # PIPA BIAS
012047,003056: 23,2345 37776 OCT 37776
012048,003057: 23,2346 00120 OCT 00120 # PIPA SCALE ERROR
012049,003058: 23,2347 00000 OCT 00000
012050,003059: 23,2350 00321 OCT 00321 # POSITION
012051,003060: 23,2351 26706 OCT 26706 # ( POINT BETWEEN BITS 7-8 )
012052,003061: 23,2352 37441 OCT 37441 # VELOCITY
012053,003062: 23,2353 14247 OCT 14247
012054,003063: 23,2354 05300 OCT 05300 # TIME WEEKS
012055,003064: 23,2355 20305 OCT 20305
012056,003065: 23,2356 34631 OCT 34631 # ELEVATION DEGREES
012057,003066: 23,2357 23146 OCT 23146
012058,003067: 23,2360 04725 OCT 04725 # RENDEZVOUS RADAR RANGE
012059,003068: 23,2361 35454 OCT 35454
012060,003069: 23,2362 03225 OCT 03225 # RENDEZVOUS RADAR RANGE RATE
012061,003070:
012062,003071: 23,2363 07470 OCT 07470
012063,003072: 23,2364 05521 OCT 05521 # LANDING RADAR ALTITUDE
012064,003073: 23,2365 30260 OCT 30260
012065,003074: 23,2366 14226 OCT 14226 # INITIAL/FINAL ALTITUDE
012066,003075: 23,2367 31757 OCT 31757
012067,003076: 23,2370 02476 OCT 02476 # ALTITUDE RATE
012068,003077: 23,2371 05531 OCT 05531
012069,003078: 23,2372 02727 OCT 02727 # FORWARD/LATERAL VELOCITY
012070,003079: 23,2373 16415 OCT 16415
012071,003080: 23,2374 00007 OCT 00007 # ROT HAND CONT ANGLE RATE
012072,003081: 23,2375 13734 OCT 13734
012073,003082: 23,2376 03277 OCT 03277 # LANDING RADAR VELX
012074,003083: 23,2377 14165 OCT 14165
|
|
Page 287 |
012076,003085: 23,2400 06442 OCT 06442 # LANDING RADAR VELY
012077,003086: 23,2401 04735 OCT 04735
012078,003087: 23,2402 04374 OCT 04374 # LANDING RADAR VELZ
012079,003088: 23,2403 30251 OCT 30251
012080,003089: 23,2404 05605 OCT 05605 # OPTICAL TRACKER AZIMUTH ANGLE
012081,003090: 23,2405 03656 OCT 03656
012082,003091: # END OF SFOUTAB
012083,003092:
012084,003093:
012085,003094: # MIXNOUN SF ROUT
012086,003095: 23,2406 03462 IDADDTAB ECADR RSTACK +18D # 01 LANDING RADAR ALTITUDE
012087,003096: 23,2407 03466 ECADR RSTACK +22D # 01 SECONDS
012088,003097: 23,2410 03440 ECADR RSTACK # 02 LANDING RADAR VELX
012089,003098: 23,2411 03444 ECADR RSTACK +4 # 02 SECONDS
012090,003099: 23,2412 03446 ECADR RSTACK +6 # 03 LANDING RADAR VELY
012091,003100: 23,2413 03452 ECADR RSTACK +10D # 03 SECONDS
012092,003101: 23,2414 03454 ECADR RSTACK +12D # 04 LANDING RADAR VELZ
012093,003102: 23,2415 03460 ECADR RSTACK +16D # 04 SECONDS
012094,003103:
012095,003104: 23,2416 00337 ECADR DSPTEM1 # 05 DEGREES
012096,003105: 23,2417 00340 ECADR DSPTEM1 +1 # 05 ELEVATION DEGREES
012097,003106: 23,2420 03440 ECADR RSTACK # 06 RENDEZVOUS RADAR RANGE
012098,003107: 23,2421 03442 ECADR RSTACK +2 # 06 DEGREES
012099,003108: 23,2422 03443 ECADR RSTACK +3 # 06 DEGREES
012100,003109: 23,2423 03446 ECADR RSTACK +6 # 07 RENDEZVOUS RADAR RANGE RATE
012101,003110: 23,2424 03450 ECADR RSTACK +8D # 07 DEGREES
012102,003111: 23,2425 03451 ECADR RSTACK +9D # 07 DEGREES
012103,003112: 23,2426 00351 ECADR ALT # 10 INITIAL/FINAL ALTITUDE
012104,003113: 23,2427 00354 ECADR FINALT # 10 INITIAL/FINAL ALTITUDE
012105,003114: 23,2430 00353 ECADR ALTRATE # 10 ALTITUDE RATE
012106,003115: 23,2431 00013 ECADR SAMPTIME # 11 HOURS
012107,003116: 23,2432 00013 ECADR SAMPTIME # 11 SECONDS
012108,003117: 23,2433 00342 ECADR DSPTEM2 # 12 WHOLE
012109,003118: 23,2434 00343 ECADR DSPTEM2 +1 # 12 FRACTIONAL
012110,003119: 23,2435 00344 ECADR DSPTEM2 +2 # 12 WHOLE
012111,003120: 23,2436 00403 ECADR DELVX # 13 GYRO DEGREES
012112,003121: 23,2437 00405 ECADR DELVX +2 # 13 GYRO DEGREES
012113,003122: 23,2440 00407 ECADR DELVX +4 # 13 GYRO DEGREES
012114,003123: 23,2441 01475 ECADR AZANG # 14 OPT TRACK AZIMUTH ANGLE
012115,003124: 23,2442 01475 ECADR ELANG # 14 DEGREES
012116,003125: 23,2443 01475 ECADR DESLOTSY # 15 OPT TRACK AZIMUTH ANGLE
012117,003126: 23,2444 01475 ECADR DESLOTSX # 15 DEGREES
012118,003127:
012119,003128: 23,2445 02052 ECADR DELR # 16 POSITION
012120,003129: 23,2446 02054 ECADR DELR +2 # 16 POSITION
012121,003130: 23,2447 02056 ECADR DELR +4 # 16 POSITION
012122,003131: 23,2450 02060 ECADR DELVEL # 17 VELOCITY
012123,003132: 23,2451 02062 ECADR DELVEL +2 # 17 VELOCITY
012124,003133: 23,2452 02064 ECADR DELVEL +4 # 17 VELOCITY
012125,003134: 23,2453 02166 ECADR TDEC # 20 TIME WEEKS
012126,003135: 23,2454 02174 ECADR MEASQ # 20 POSITION
|
|
Page 288 |
012128,003137: 23,2455 02200 ECADR MEASMODE # 20 WHOLE
012129,003138: 23,2456 00337 ECADR DSPTEM1 # 21 POSITION
012130,003139:
012131,003140: 23,2457 00341 ECADR DSPTEM1 +2 # 21 VELOCITY
012132,003141: 23,2460 02176 ECADR DELTAQ # 21 POSITION
012133,003142: 23,2461 00337 ECADR DSPTEM1 # 22 POSITION
012134,003143: 23,2462 00341 ECADR DSPTEM1 +2 # 22 POSITION
012135,003144: 23,2463 00343 ECADR DSPTEM1 +4 # 22 POSITION
012136,003145: 23,2464 00337 ECADR DSPTEM1 # 23 VELOCITY
012137,003146: 23,2465 00341 ECADR DSPTEM1 +2 # 23 VELOCITY
012138,003147: 23,2466 00343 ECADR DSPTEM1 +4 # 23 VELOCITY
012139,003148: 23,2467 00000 OCT 00000 # SPARE
012140,003149: 23,2470 00000 OCT 00000 # SPARE
012141,003150: 23,2471 00000 OCT 00000 # SPARE
012142,003151: 23,2472 00000 OCT 00000 # SPARE
012143,003152: 23,2473 00000 OCT 00000 # SPARE
012144,003153: 23,2474 00000 OCT 00000 # SPARE
012145,003154: # END OF IDADDTAB
012146,003155:
012147,003156: # MIXNOUN SF ROUT
012148,003157: 23,2475 00204 RUTMXTAB OCT 00204 # 01 LANDING RADAR ALTITUDE, SECONDS
012149,003158: 23,2476 00204 OCT 00204 # 02 LANDING RADAR VELX, SECONDS
012150,003159: 23,2477 00204 OCT 00204 # 03 LANDING RADAR VELY, SECONDS
012151,003160: 23,2500 00204 OCT 00204 # 04 LANDING RADAR VELZ, SECONDS
012152,003161:
012153,003162: 23,2501 00142 OCT 00142 # 05 DEGREES, ELEVATION DEGREES
012154,003163: 23,2502 04104 OCT 04104 # 06 RENDEZVOUS RADAR RANGE, DEG, DEG
012155,003164: 23,2503 04104 OCT 04104 # 07 REND. RADAR RANGE RATE, DEG, DEG
012156,003165: 23,2504 06204 OCT 06204 # 10 INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012157,003166: 23,2505 00205 OCT 00205 # 11 HOURS, SECONDS
012158,003167: 23,2506 06043 OCT 06043 # 12 WHOLE, FRACTIONAL, WHOLE
012159,003168: 23,2507 16347 OCT 16347 # 13 GYRO DEGREES (FOR EACH)
012160,003169: 23,2510 00104 OCT 00104 # 14 OPT TRACK AZIMUTH ANGLE, DEGREES
012161,003170: 23,2511 00104 OCT 00104 # 15 OPT TRACK AZIMUTH ANGLE, DEGREES
012162,003171: 23,2512 16347 OCT 16347 # 16 POSITION (FOR EACH)
012163,003172: 23,2513 12245 OCT 12245 # 17 VELOCITY (FOR EACH)
012164,003173: 23,2514 06345 OCT 06345 # 20 TIME WEEKS, POSITION, WHOLE
012165,003174: 23,2515 16247 OCT 16247 # 21 POSITION, VELOCITY, POSITION
012166,003175: 23,2516 16347 OCT 16347 # 22 POSITION (FOR EACH)
012167,003176: 23,2517 12245 OCT 12245 # 23 VELOCITY (FOR EACH)
012168,003177: # END OF RUTMXTAB
012169,003178:
|
|
Page 289 |
012171,003180: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012172,003181:
012173,003182: 4502 BLOCK 02
012174,003183:
012175,003184: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012176,003185: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
012177,003186:
012178,003187: 4502 54310 SETNCADR TS NOUNCADR # STORE ECADR
012179,003188: 4503 54003 TS EBANK # SET EBANK BITS
012180,003189: 4504 74553 MASK LOW8
012181,003190: 4505 65370 AD OCT1400
012182,003191: 4506 54135 TS NOUNADD # PUT E ADRES INTO NOUNADD
012183,003192: 4507 00002 TC Q
012184,003193:
012185,003194: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012186,003195: # E ADRES AND PUTS IT INTO NOUNADD.
012187,003196:
012188,003197: 4510 30310 SETNADD CA NOUNCADR
012189,003198: 4511 14503 TCF SETNCADR +1
012190,003199:
012191,003200: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012192,003201: # DERIVED AND LEFT IN A.
012193,003202:
012194,003203: 4512 54003 SETEBANK TS EBANK # SET EBANK BITS
012195,003204: 4513 74553 MASK LOW8
012196,003205: 4514 65370 AD OCT1400 # E ADRES LEFT IN A
012197,003206: 4515 00002 TC Q
012198,003207:
012199,003208:
012200,003209: 4516 00016 R1D1 OCT 16
012201,003210: 4517 00011 R2D1 OCT 11
012202,003211: 4520 00004 R3D1 OCT 4
012203,003212:
012204,003213: 4521 54020 RIGHT5 TS CYR
012205,003214: 4522 40020 CS CYR
012206,003215: 4523 40020 CS CYR
012207,003216: 4524 40020 CS CYR
012208,003217: 4525 40020 CS CYR
012209,003218: 4526 56020 XCH CYR
012210,003219: 4527 00002 TC Q
012211,003220:
012212,003221: 4530 54022 LEFT5 TS CYL
012213,003222: 4531 40022 CS CYL
012214,003223: 4532 40022 CS CYL
|
|
Page 290 |
012216,003225: 4533 40022 CS CYL
012217,003226: 4534 40022 CS CYL
012218,003227: 4535 56022 XCH CYL
012219,003228: 4536 00002 TC Q
012220,003229:
012221,003230: 4537 60000 SLEFT5 DOUBLE
012222,003231: 4540 60000 DOUBLE
012223,003232: 4541 60000 DOUBLE
012224,003233: 4542 60000 DOUBLE
012225,003234: 4543 60000 DOUBLE
012226,003235: 4544 00002 TC Q
012227,003236:
012228,003237:
012229,003238: 4545 00037 LOW5 OCT 37
012230,003239: 4546 01740 MID5 OCT 1740
012231,003240: 4547 76000 HI5 OCT 76000 # MUST STAY HERE
012232,003241:
012233,003242: 4550 5741 TCNOVAC = SVCT3 +5
012234,003243: 4550 05701 TCWAIT TC WAITLIST
012235,003244: 4551 5735 TCTSKOVR = SVCT3 +1
012236,003245: 4551 05534 TCFINDVC TC FINDVAC
012237,003246:
012238,003247:
012239,003248: 4552 5226 CHRPRIO = PRIO30 # EXEC PRIORITY OF CHARIN
012240,003249:
012241,003250: 4552 03777 LOW11 OCT 3777
012242,003251: 4553 4552 B12-1 EQUALS LOW11
012243,003252: 4553 00377 LOW8 OCT 377
012244,003253: 4554 00023 VD1 OCT 23
012245,003254: 4555 00021 ND1 OCT 21
012246,003255: 4556 00025 MD1 OCT 25
012247,003256:
012248,003257: 4557 00012 BINCON DEC 10 B-14
012249,003258:
012250,003259: 4560 37747 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
012251,003260: 4561 00006 EXTEND
012252,003261:
012253,003262: 4562 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
012254,003263: 4563 00002 TC Q
012255,003264:
012256,003265: 4564 47747 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
012257,003266: 4565 00006 EXTEND
012258,003267: 4566 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
012259,003268: 4567 00002 TC Q
012260,003269:
012261,003270: 4570 37751 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
012262,003271: 4571 00006 EXTEND
012263,003272: 4572 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
012264,003273: 4573 00002 TC Q
012265,003274:
|
|
Page 291 |
012267,003276: 4574 00006 LODSAMPT EXTEND
012268,003277: 4575 30025 DCA TIME2
012269,003278: 4576 52014 DXCH SAMPTIME
012270,003279: 4577 00002 TC Q
012271,003280:
012272,003281:
012273,003282: 4600 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
012274,003283: 4601 30146 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012275,003284: 4602 20146 DAS MPAC +1
012276,003285: 4603 60144 AD MPAC
012277,003286: 4604 26144 ADS MPAC
012278,003287: 4605 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
012279,003288: 4606 00002 TC Q # NO NET OF/UF
012280,003289: 4607 54111 TS OVFIND # OVFIND SET TO +/- 1 FOR OF/UF
012281,003290: 4610 00002 TC Q
012282,003291:
012283,003292:
012284,003293: 4611 37750 FLASHON CAF BIT6 # TURN ON V/N FLASH
012285,003294: 4612 00006 EXTEND # BIT 6 OF CHANNEL 11
012286,003295: 4613 05011 WOR DSALMOUT
012287,003296: 4614 00002 TC Q
012288,003297:
012289,003298: 4615 47750 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
012290,003299: 4616 00006 EXTEND
012291,003300: 4617 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
012292,003301: 4620 00002 TC Q
012293,003302:
|
|
Page 292 |
012295,003304: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012296,003305: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012297,003306:
012298,003307: # MAKE IT BUSY TO OTHER INTERNAL USERS.
012299,003308:
012300,003309: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
012301,003310: # SYSTEM FOR OTHER INTERNAL USERS.
012302,003311:
012303,003312: # THE CALLING SEQUENCES ARE
012304,003313: # L TC GRABDSP
012305,003314: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
012306,003315: # L+2 RETURN HERE MEANS YOU HAVE IT
012307,003316:
012308,003317: # L TC NVSUB
012309,003318: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
012310,003319: # L+2 RETURN HERE AFTER EXECUTION
012311,003320:
012312,003321: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012313,003322: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012314,003323: # GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012315,003324: # HANDLE ONLY FIXED MEMORY.
012316,003325: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012317,003326:
012318,003327: # THE CALLING SEQUENCE IS
012319,003328:
012320,003329: # CAF WAKEFCADR
012321,003330: # TC GRABUSY
012322,003331:
012323,003332: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
012324,003333: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012325,003334: # NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012326,003335: # HANDLE ONLY FIXED MEMORY.
012327,003336: # YOUR CADR IS PUT
012328,003337: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
012329,003338:
012330,003339: # THE CALLING SEQUENCE IS
012331,003340: # CAF WAKEFCADR
012332,003341: # TC NVSUBUSY
012333,003342:
012334,003343:
012335,003344: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012336,003345: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012337,003346: # DISPLAYS WAITING WILL BE VISIBLE.
012338,003347:
012339,003348:
012340,003349: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
012341,003350: # AND DISPLAY SYSTEM.
012342,003351: # +0 FREE
|
|
Page 293 |
012344,003353: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
012345,003354: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
012346,003355:
012347,003356: 4621 10330 GRABDSP CCS GRABLOCK
012348,003357: 4622 00002 TC Q # ALREADY GRABBED, RETURN TO L+1
012349,003358: 4623 37755 CAF ONE # NOT GRABBED, SET TO +1
012350,003359: 4624 54330 TS GRABLOCK # AND RETURN TO L+2
012351,003360: 4625 17006 TCF Q+1
012352,003361:
012353,003362:
012354,003363: 4626 35356 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012355,003364: 4627 70002 MASK Q # BANKS ONLY DESIRING THE FCADR OF
012356,003365: 4630 60004 AD FBANK # 1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
012357,003366: 4631 05243 GRABUSY TC POSTJUMP # TO BE ENTERED.
012358,003367: 4632 10000 CADR GRABUSYB
012359,003368: 04,3472 SETLOC DOPROC +2
012360,003369: 04,3472 54001 GRABUSY1 TS L
012361,003370: 04,3473 10330 CCS GRABLOCK
012362,003371: 04,3474 03477 TC +3 # STILL GRABBED
012363,003372: 04,3475 30001 CA L # NOT GRABBED SO DO DIRECT CALL
012364,003373: 04,3476 05246 TC BANKJUMP
012365,003374: 04,3477 37754 CAF TWO
012366,003375: 04,3500 54134 TS LSTPTR
012367,003376: 04,3501 50134 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
012368,003377: 04,3502 10333 CCS DSPLIST # FROM BOTTOM.
012369,003378: 04,3503 03505 TC +2
012370,003379: 04,3504 03510 TC PUTINLST # SPACE FOUND
012371,003380: 04,3505 10134 CCS LSTPTR # DECREMENT POINTER
012372,003381: 04,3506 03500 TC -6
012373,003382: 04,3507 03554 TC LSTFULL
012374,003383: 04,3510 30001 PUTINLST CA L
012375,003384: 04,3511 50134 INDEX LSTPTR
012376,003385: 04,3512 54333 TS DSPLIST
012377,003386: 04,3513 05563 TC JOBSLEEP
012378,003387:
012379,003388:
012380,003389: # GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012381,003390: # SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 ( L = LOC FROM
012382,003391: # WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
012383,003392: # JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
012384,003393: # SYSTEM IS FREED.
012385,003394:
012386,003395: 4633 SETLOC GRABUSY +2
012387,003396: 4633 10330 GRABWAIT CCS GRABLOCK
012388,003397: 4634 14626 TCF PREGBSY # GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
012389,003398: 4635 37755 CAF ONE # NOT GRABBED. GRAB AND RETURN TO L+1.
|
|
Page 294 |
012391,003400: 4636 54330 TS GRABLOCK
012392,003401: 4637 00002 TC Q
012393,003402:
012394,003403:
012395,003404: 4640 44645 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012396,003405: 4641 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
012397,003406: 4642 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
012398,003407: 4643 05243 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
012399,003408: 4644 10001 CADR NVSUBSYB
012400,003409: 4645 02003 2K+3 OCT 2003
012401,003410:
012402,003411: 04,3514 SETLOC PUTINLST +4
012403,003412: 04,3514 54001 NVSUBSY1 TS L
012404,003413:
012405,003414: 04,3515 10303 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
012406,003415: 04,3516 03521 TC +3 # STILL BUSY
012407,003416: 04,3517 30001 CA L # DSPLOCK = +0 SO RETURN DIRECTLY
012408,003417: 04,3520 05246 TC BANKJUMP
012409,003418: 04,3521 37754 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
012410,003419: 04,3522 54330 TS GRABLOCK
012411,003420: 04,3523 30001 CA L
012412,003421: 04,3524 56335 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
012413,003422: 04,3525 56334 XCH DSPLIST +1 # (BOTTOM)
012414,003423: 04,3526 56333 XCH DSPLIST
012415,003424: 04,3527 10000 CCS A
012416,003425: 04,3530 03554 TC LSTFULL
012417,003426: 04,3531 03533 TC +2
012418,003427: 04,3532 03554 TC LSTFULL
012419,003428: 04,3533 04570 TC RELDSPON
012420,003429: 04,3534 30001 CA L
012421,003430: 04,3535 05563 ENDNVBSY TC JOBSLEEP
012422,003431:
012423,003432:
012424,003433: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012425,003434: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
012426,003435: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
012427,003436:
012428,003437: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
012429,003438: # IS NOT BUSY.
012430,003439:
012431,003440: 4646 SETLOC NVSUBUSY +3
012432,003441: 4646 54113 NVSBWAIT TS NVTEMP
012433,003442: 4647 10303 CCS DSPLOCK
012434,003443: 4650 14653 TCF NVSBWT1 # BUSY
012435,003444: 4651 30002 CA Q # FREE. NVSUB WILL SAVE L+1 FOR RETURN
012436,003445: 4652 14440 TCF NVSUB +5 # AFTER EXECUTION.
012437,003446: 4653 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
012438,003447: 4654 14640 TCF PRENVBSY # GO TO SLEEP.
012439,003448:
|
|
Page 295 |
012441,003450: 4655 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
012442,003451: 4656 54134 TS RELRET # OFF, SEARCH DSPLIST
012443,003452: 4657 37763 CAF NEG1
012444,003453: 4660 60330 AD GRABLOCK
012445,003454: 4661 00006 EXTEND # SEARCH LIST ONLY IF GRABLOCK = +2
012446,003455: 4662 64670 BZMF RELDSP2 # (SOMEONE USED NVSUBUSY)
012447,003456: 4663 04703 TC WKSEARCH
012448,003457: 4664 04670 TC RELDSP2 # LIST EMPTY
012449,003458: 4665 05567 TC JOBWAKE # LIST NOT EMPTY
012450,003459: 4666 37755 CAF ONE
012451,003460: 4667 54330 TS GRABLOCK
012452,003461: 4670 00004 RELDSP2 INHINT
012453,003462: 4671 47751 CS BIT5 # TURN OFF KEY RELEASE LIGHT
012454,003463: 4672 00006 EXTEND # (BIT 5 OF CHANNEL 11)
012455,003464: 4673 03011 WAND DSALMOUT
012456,003465: 4674 37761 CAF ZERO
012457,003466: 4675 54303 TS DSPLOCK
012458,003467: 4676 00003 RELINT
012459,003468: 4677 00134 TC RELRET
012460,003469:
012461,003470: 4700 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. RELDSP LIGHT OFF.
012462,003471: 4701 54134 TS RELRET # NO LIST SEARCH
012463,003472: 4702 04670 TC RELDSP2
012464,003473:
012465,003474:
012466,003475: 4703 37761 WKSEARCH CAF ZERO # SEARCHES LIST. LEAVES RESULT IN A.
012467,003476: 4704 56333 XCH DSPLIST # IF EMPTY, RETURN TO L+1.
012468,003477: 4705 56334 XCH DSPLIST +1 # IF NOT EMPTY, INHINT AND RETURN TO L+2.
012469,003478: 4706 56335 XCH DSPLIST +2
012470,003479: 4707 00006 EXTEND
012471,003480: 4710 17011 BZF TCQ # EMPTY, RETURN TO L+1
012472,003481: 4711 00004 INHINT # NOT EMPTY
012473,003482: 4712 17006 TCF Q+1 # RETURN TO L+2
012474,003483:
012475,003484: 4713 56002 FREEDSP XCH Q
012476,003485: 4714 54134 TS FREERET
012477,003486: 4715 00004 INHINT
012478,003487: 4716 34724 CAF SHOTIME
012479,003488: 4717 05701 TC WAITLIST
012480,003489: 4720 0270 EBANK= DSPCOUNT
012481,003490:
012482,003491: 4720 03536 10000 2CADR FREEWAIT
012483,003492:
012484,003493: 4722 00003 RELINT
012485,003494: 4723 00134 TC FREERET
012486,003495:
012487,003496: 4724 00257 SHOTIME DEC 175 B-14 # SET FOR 1.75 SEC.
012488,003497: 04,3536 SETLOC ENDNVBSY +1
012489,003498:
|
|
Page 296 |
012491,003500: 04,3536 35226 FREEWAIT CAF CHRPRIO # CALLED BY T3RUPT
012492,003501: 04,3537 05523 TC NOVAC
012493,003502:
012494,003503: 04,3540 0270 EBANK= DSPCOUNT
012495,003504: 04,3540 03543 10000 2CADR FREDSPDO
012496,003505:
012497,003506: 04,3542 05745 TC TASKOVER
012498,003507:
012499,003508:
012500,003509: 04,3543 04703 FREDSPDO TC WKSEARCH # CALLED BY EXECUTIVE
012501,003510: 04,3544 03552 TC LSTEMPTY # LIST EMPTY
012502,003511: 04,3545 05567 TC JOBWAKE # LIST NOT EMPTY
012503,003512: 04,3546 00003 RELINT
012504,003513: 04,3547 37755 CAF ONE # SET FOR GRABBED CONDITION
012505,003514: 04,3550 54330 TS GRABLOCK
012506,003515: 04,3551 05605 TC ENDOFJOB
012507,003516: 04,3552 37761 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
012508,003517: 04,3553 03550 TC -3
012509,003518:
012510,003519:
012511,003520: 04,3554 06000 LSTFULL TC ABORT
012512,003521: 04,3555 01206 OCT 01206 # PINBALL WAITING LINE FULL.
012513,003522:
|
|
Page 297 |
012515,003524: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
012516,003525: # OFF THE CAUTION AND STATUS LIGHTS.
012517,003526:
012518,003527: 05,3414 SETLOC DSPMMEND +1
012519,003528:
012520,003529: 05,3414 00004 VBTSTLTS INHINT
012521,003530: 05,3415 47755 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
012522,003531: 05,3416 70366 MASK IMODES33 # TURN OUT ANY LAMPS.
012523,003532:
012524,003533: 05,3417 67755 AD BIT1
012525,003534: 05,3420 54366 TS IMODES33
012526,003535:
012527,003536: 05,3421 33457 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
012528,003537: 05,3422 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
012529,003538: 05,3423 05011 WOR DSALMOUT
012530,003539: 05,3424 33460 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
012531,003540: 05,3425 54326 TS DSPTAB +11D # PROG ALM.
012532,003541: 05,3426 37744 CAF BIT10 # TURN ON TEST ALARM OUTBIT
012533,003542: 05,3427 00006 EXTEND
012534,003543: 05,3430 05013 WOR CHAN13
012535,003544: 05,3431 34557 CAF TEN
012536,003545: 05,3432 54107 TSTLTS1 TS ERCNT
012537,003546: 05,3433 43455 CS FULLDSP
012538,003547: 05,3434 50107 INDEX ERCNT
012539,003548: 05,3435 54313 TS DSPTAB
012540,003549: 05,3436 10107 CCS ERCNT
012541,003550: 05,3437 03432 TC TSTLTS1
012542,003551: 05,3440 43456 CS FULLDSP1
012543,003552: 05,3441 54314 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
012544,003553: 05,3442 54317 TS DSPTAB +4
012545,003554: 05,3443 54321 TS DSPTAB +6
012546,003555: 05,3444 37756 CAF ELEVEN
012547,003556:
012548,003557: 05,3445 54307 TS NOUT
012549,003558: 05,3446 00003 RELINT
012550,003559: 05,3447 33462 CAF SHOLTS
012551,003560: 05,3450 00004 INHINT
012552,003561: 05,3451 05701 TC WAITLIST
012553,003562: 05,3452 0313 EBANK= DSPTAB
012554,003563: 05,3452 03463 12000 2CADR TSTLTS2
012555,003564:
012556,003565: 05,3454 05605 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
012557,003566: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
012558,003567: # LIGHTS TEST WILL BE SEEN.
012559,003568:
012560,003569: 05,3455 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
012561,003570: 05,3456 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
012562,003571: 05,3457 00175 TSTCON1 OCT 00175
012563,003572: # UPLINK ACTIVITY, TEMP, KEY RLSE,
012564,003573: # V/N FLASH, OPERATOR ERROR.
|
|
Page 298 |
012566,003575: 05,3460 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9,
012567,003576: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
012568,003577: 05,3461 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
012569,003578: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
012570,003579: 05,3462 00764 SHOLTS OCT 764 # 5 SEC
012571,003580:
012572,003581: 05,3463 35226 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
012573,003582: 05,3464 05523 TC NOVAC
012574,003583: 05,3465 0313 EBANK= DSPTAB
012575,003584: 05,3465 03470 12000 2CADR TSTLTS3
012576,003585:
012577,003586: 05,3467 05745 TC TASKOVER
012578,003587:
012579,003588:
012580,003589: 05,3470 43461 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
012581,003590: 05,3471 00004 INHINT
012582,003591: 05,3472 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
012583,003592: 05,3473 03011 WAND DSALMOUT # OPERATOR ERROR.
012584,003593: 05,3474 47744 CS BIT10 # TURN OFF TEST ALARM OUTBIT
012585,003594: 05,3475 00006 EXTEND
012586,003595: 05,3476 03013 WAND CHAN13
012587,003596: 05,3477 37737 CAF BIT15 # TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
012588,003597: 05,3500 54326 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
012589,003598: 05,3501 43521 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
012590,003599: 05,3502 70366 MASK IMODES33 # LIGHTS COMPLETE.
012591,003600: 05,3503 65660 AD PRIO16
012592,003601: 05,3504 54366 TS IMODES33
012593,003602:
012594,003603: 05,3505 43523 CS OCT55000
012595,003604: 05,3506 70365 MASK IMODES30
012596,003605: 05,3507 65657 AD PRIO15 # 15000.
012597,003606: 05,3510 54365 TS IMODES30
012598,003607:
012599,003608: 05,3511 43522 CS RFAILS2
012600,003609: 05,3512 70413 MASK RADMODES
012601,003610:
012602,003611: 05,3513 67747 AD BIT7
012603,003612: 05,3514 54413 TS RADMODES
012604,003613:
012605,003614: 05,3515 00003 RELINT
012606,003615:
012607,003616: 05,3516 02001 TC DSPMM # REDISPLAY C(MODREG)
012608,003617: 05,3517 05243 TC POSTJUMP # TURN OFF KEY RLSE LIGHT (AND SEARCH LIST
012609,003618: 05,3520 11333 CADR VBTERM # IF APPROPRIATE).
012610,003619: # TURN OFF V/N FLASH, SET LOADSTAT FOR
012611,003620: # FOR TERMINATE CONDITION, AND TO TO
012612,003621: # RECALTST. FINALLY DO TC ENDOFJOB.
012613,003622:
|
|
Page 299 |
012615,003624: 05,3521 16001 13-11,1 OCT 16001
012616,003625: 05,3522 00330 RFAILS2 OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
012617,003626: 05,3523 55000 OCT55000 OCT 55000
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc