Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

009266,000002:                                                                                                  ## Copyright:   Public domain.
009267,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
009268,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
009269,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009270,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
009271,000007:                                                                                                  ## Assembler:   yaYUL
009272,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009273,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009274,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
009275,000011:                                                                                                  ##              2016-10-08 RSB  Finished transcription.
009276,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
009277,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
009278,000014:                                                                                                  ##              2016-11-02 RSB  More typos.
009279,000015:                                                                                                  ##              2016-12-04 RSB  Proofed with octopus/ProoferComments and fixed various
009280,000016:                                                                                                  ##                              comments, but the proofing process is not completed.
009281,000017:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
009282,000018:                                                                                                  ##                              changes made.
009283,000019:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
009284,000020:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
009285,000021:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted while proofing Luminary 116.
009286,000022:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
009287,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
009288,000024:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
009289,000025:                                                                                                  ##                              Luminary 99 vs Comanche 55.
009290,000026: 

Page 232

009292,000028:                                                                                                  #  PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM           DATE - 22 NOV 1966
009293,000029:                                                                                                  #  MOD NO - 0                                            LOG SECTION - PINBALL GAME
009294,000030:                                                                                                  #  MOD BY - FILENE                                                     BUTTONS AND LIGHTS
009295,000031:                                                                                                  #                                                        ASSEMBLY - SUNBURST REV 18
009296,000032: 
009297,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009298,000034: 
009299,000035:                                                                                                  #     THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
009300,000036:                                                                                                  #  CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
009301,000037:                                                                                                  #  COMPUTER OPERATOR.  THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
009302,000038:                                                                                                  #  FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
009303,000039:                                                                                                  #     THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
009304,000040:                                                                                                  #  KNOWN AS VERB AND NOUN.  EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
009305,000041:                                                                                                  #  OCTAL NUMBER.  THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, 
009306,000042:                                                                                                  #  NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED.  NOUNS USUALLY
009307,000043:                                                                                                  #  REFER TO A GROUP OF ERASABLE REGISTERS.
009308,000044: 
009309,000045:                                                                                                  #  VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
009310,000046:                                                                                                  #  UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
009311,000047:                                                                                                  #  ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
009312,000048:                                                                                                  #  :EXTENDED VERBS:).
009313,000049:                                                                                                  #  A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND 
009314,000050:                                                                                                  #  OPERATION INFORMATION:.
009315,000051: 
009316,000052: 
009317,000053:                                                                                                  #  CALLING SEQUENCES -
009318,000054: 
009319,000055:                                                                                                  #  KEYBOARD:
009320,000056:                                                                                                  #     EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
009321,000057:                                                                                                  #  AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15.  KEYRUPT1 PLACES THE KEY
009322,000058:                                                                                                  #  CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
009323,000059:                                                                                                  #  PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
009324,000060: 
009325,000061:                                                                                                  #  UPLINK:
009326,000062:                                                                                                  #     EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
009327,000063:                                                                                                  #  PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
009328,000064:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
009329,000065: 
009330,000066:                                                                                                  #  INTERNAL PROGRAMS:
009331,000067:                                                                                                  #     INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
009332,000068:                                                                                                  #  CODE IN A (LOW 6 BITS FOR NOUN, NEXT 6 BITS FOR VERB).  DETAILS
009333,000069:                                                                                                  #  DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSUBWAIT: (SEE
009334,000070:                                                                                                  #  SYMBOL TABLE FOR PAGE NUMBERS).
009335,000071:                                                                                                  #     THERE IS AN INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009336,000072:                                                                                                  #  IN CONJUNCTION WITH :NVSUB:.  THIS IS CALLED GRAB/FREE.  DETAILS
009337,000073:                                                                                                  #  DESCRIBED ON REMARKS JUST BEFORE :GRABDSP:, :GRABWAIT: (SEE SYMBOL TABLE
009338,000074:                                                                                                  #  FOR PAGE NUMBERS).
009339,000075: 

Page 233

009341,000077:                                                                                                  #  NORMAL EXIT MODES-
009342,000078: 
009343,000079:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009344,000080: 
009345,000081:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009346,000082:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009347,000083:                                                                                                  #  :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009348,000084: 
009349,000085: 
009350,000086:                                                                                                  #  ALARM OR ABORT EXIT MODES-
009351,000087: 
009352,000088:                                                                                                  #        EXTERNAL INITIATION:
009353,000089:                                                                                                  #           IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009354,000090:                                                                                                  #        ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009355,000091: 
009356,000092:                                                                                                  #        INTERNAL PROGRAM INITIATION:
009357,000093:                                                                                                  #           IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009358,000094:                                                                                                  #        (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009359,000095: 
009360,000096:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009361,000097:                                                                                                  #  REPORT NO. 11.
009362,000098: 
009363,000099: 
009364,000100:                                                                                                  #  OUTPUT-
009365,000101: 
009366,000102:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009367,000103:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
009368,000104:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009369,000105:                                                                                                  #  IN INTERRUPT.
009370,000106: 
009371,000107: 
009372,000108:                                                                                                  #  ERASABLE INITIALIZATION-
009373,000109: 
009374,000110:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009375,000111:                                                                                                  #  PINBALL IN :STARTSUB:.  REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
009376,000112:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG, 
009377,000113:                                                                                                  #  DSPLIST, +1, +2, DSPCOUNT.
009378,000114: 
009379,000115:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009380,000116:                                                                                                  #  PINBALL IS GIVEN BELOW.
009381,000117: 
009382,000118: 
009383,000119:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
009384,000120: 
009385,000121:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
009386,000122:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.

Page 234

009388,000124: 
009389,000125:                                                                                                  #        NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
009390,000126:                                                                                                  #                  OF RELATED INTEREST   NVSUBWAIT
009391,000127:                                                                                                  #                                        NVSUBSY
009392,000128:                                                                                                  #                                        PRENVBSY
009393,000129: 
009394,000130:                                                                                                  #        GRABDSP   INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009395,000131:                                                                                                  #        FREEDSP   IN CONJUNCTION WITH :NVSUB:.
009396,000132:                                                                                                  #                    OF RELATED INTEREST   GRABWAIT
009397,000133:                                                                                                  #                                          GRABUSY
009398,000134:                                                                                                  #                                          PREGBSY
009399,000135: 
009400,000136:                                                                                                  #        ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
009401,000137:                                                                                                  #                  AWAITING OPERATORS RESPONSE.
009402,000138:                                                                                                  #                    OF RELATED INTEREST   DATAWAIT
009403,000139: 
009404,000140:                                                                                                  #        MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009405,000141: 
009406,000142:                                                                                                  #        THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009407,000143:                                                                                                  #        BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009408,000144: 
009409,000145:                                                                                                  #        THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009410,000146: 
009411,000147: 
009412,000148:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009413,000149:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009414,000150: 

Page 235

009416,000152:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
009417,000153: 
009418,000154:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
009419,000155: 
009420,000156:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009421,000157:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009422,000158:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
009423,000159: 
009424,000160:                                                                                                  #                                        HENRY 6, ACT 2, SCENE 4
009425,000161: 

Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 10/2016

009428,000164: 
009429,000165: 
009430,000166:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009431,000167: 
009432,000168: 
009433,000169:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
009434,000170: 
009435,000171:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
009436,000172:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
009437,000173:                                                                                                  #  VERBREG       ERASE                   VERB CODE
009438,000174:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
009439,000175:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
009440,000176:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
009441,000177:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
009442,000178:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
009443,000179:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
009444,000180:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
009445,000181:                                                                                                  #  MODREG        ERASE                   MODE CODE
009446,000182:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
009447,000183:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
009448,000184:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
009449,000185:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
009450,000186:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
009451,000187:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
009452,000188:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
009453,000189:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009454,000190:                                                                                                  #  DSPTAB        ERASE           +13D    0-10, DISPLAY PANEL BUFFER.11-13, C RELAYS
009455,000191:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
009456,000192:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009457,000193:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
009458,000194:                                                                                                  #                                        MUST = NVBNKTEM-1
009459,000195:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
009460,000196:                                                                                                  #                                        MUST = NVQTEM+1
009461,000197:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
009462,000198:                                                                                                  #  EXTVBACT      ERASE                   EXTENDED VERB ACTIVITY INTERLOCK
009463,000199:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009464,000200:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009465,000201: 

Page 236

009467,000203:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009468,000204: 
009469,000205: 
009470,000206:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009471,000207: 
009472,000208:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
009473,000209:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
009474,000210:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
009475,000211: 
009476,000212:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
009477,000213:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
009478,000214:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
009479,000215:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
009480,000216: 
009481,000217:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
009482,000218:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
009483,000219:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
009484,000220:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
009485,000221: 
009486,000222:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
009487,000223:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
009488,000224:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
009489,000225:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
009490,000226: 
009491,000227:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
009492,000228:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
009493,000229:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
009494,000230: 
009495,000231:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
009496,000232:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
009497,000233: 
009498,000234:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
009499,000235:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
009500,000236: 
009501,000237:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009502,000238: 
009503,000239:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
009504,000240: 
009505,000241:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
009506,000242:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR (X, Y, Z, REG)
009507,000243: 
009508,000244:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
009509,000245:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
009510,000246: 
009511,000247:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
009512,000248:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
009513,000249: 
009514,000250:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
009515,000251:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN

Page 237

009517,000253:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
009518,000254: 
009519,000255:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
009520,000256:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
009521,000257: 
009522,000258:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
009523,000259:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
009524,000260:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
009525,000261:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
009526,000262: 
009527,000263:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
009528,000264:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
009529,000265: 
009530,000266:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
009531,000267:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
009532,000268:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
009533,000269:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
009534,000270:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
009535,000271:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
009536,000272:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
009537,000273:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
009538,000274:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
009539,000275:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009540,000276: 
009541,000277: 
009542,000278:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
009543,000279: 
009544,000280:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
009545,000281:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009546,000282:                                                                                                  #                                                                                RECEPTION OF A BAD MESSAGE IN UPLINK)
009547,000283:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009548,000284: 
009549,000285: 
009550,000286: 
009551,000287:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
009552,000288: 
009553,000289:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
009554,000290:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
009555,000291:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
009556,000292:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009557,000293: 

Page 238

009559,000295:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009560,000296:                                                                                                  #  0        10000
009561,000297:                                                                                                  #  1        00001
009562,000298:                                                                                                  #  9        01001
009563,000299:                                                                                                  #  VERB     10001
009564,000300:                                                                                                  #  ERROR RES10010
009565,000301:                                                                                                  #  KEY RLSE 11001
009566,000302:                                                                                                  #  +        11010
009567,000303:                                                                                                  #  -        11011
009568,000304:                                                                                                  #  ENTER    11100
009569,000305:                                                                                                  #  CLEAR    11110
009570,000306:                                                                                                  #  NOUN     11111
009571,000307: 
009572,000308: 
009573,000309:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
009574,000310:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009575,000311:                                                                                                  #  ENERGIZED.
009576,000312:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009577,000313:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
009578,000314:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009579,000315: 
009580,000316:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
009581,000317:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
009582,000318:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
009583,000319:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
009584,000320:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
009585,000321:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
009586,000322: 
009587,000323:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009588,000324:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
009589,000325:                                                                                                  #  MD2   24     R2D2  10
009590,000326:                                                                                                  #  VD1   23     R2D3   7
009591,000327:                                                                                                  #  VD2   22     R2D4   6
009592,000328:                                                                                                  #  ND1   21     R2D5   5
009593,000329:                                                                                                  #  ND2   20     R3D1   4
009594,000330:                                                                                                  #  R1D1  16     R3D2   3
009595,000331:                                                                                                  #  R1D2  15     R3D3   2
009596,000332:                                                                                                  #  R1D3  14     R3D4   1
009597,000333:                                                                                                  #  R1D4  13     R3D5   0
009598,000334:                                                                                                  #  R1D5  12
009599,000335: 
009600,000336: 
009601,000337:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009602,000338: 
009603,000339:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
009604,000340:                                                                                                  #  RELADD
009605,000341:                                                                                                  #  10     1011                    MD1 (25)      MD2 (24)
009606,000342:                                                                                                  #  9      1010                    VD1 (23)      VD2 (22)

Page 239

009608,000344:                                                                                                  #  8      1001                    ND1 (21)      ND2 (20)
009609,000345:                                                                                                  #  7      1000                                  R1D1 (16)
009610,000346:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
009611,000347:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
009612,000348:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
009613,000349:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
009614,000350:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
009615,000351:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
009616,000352:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
009617,000353:                                                                                                  #         0000   NO RELAYWORD
009618,000354: 
009619,000355: 
009620,000356:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
009621,000357:                                                                                                  #  BLANK      00000
009622,000358:                                                                                                  #  0          10101
009623,000359:                                                                                                  #  1          00011
009624,000360:                                                                                                  #  2          11001
009625,000361:                                                                                                  #  3          11011
009626,000362:                                                                                                  #  4          01111
009627,000363:                                                                                                  #  5          11110
009628,000364:                                                                                                  #  6          11100
009629,000365:                                                                                                  #  7          10011
009630,000366:                                                                                                  #  8          11101
009631,000367:                                                                                                  #  9          11111
009632,000368: 

Page 240

009634,000370:                                                                                                  #  START OF EXECUTIVE SECTION OF PINBALL
009635,000371: 
009636,000372: 04,2000                                           SETLOC   20000                                 
009637,000373: 
009638,000374: 04,2000           03472        GRABUSYB           TC       GRABUSY1                              #  STANDARD LEAD INS. DONT MOVE.
009639,000375: 04,2001           03514        NVSUBSYB           TC       NVSUBSY1                              
009640,000376: 
009641,000377: 04,2002           37763        CHARIN             CAF      ONE                                   #  BLOCK DISPLAY SYST
009642,000378: 04,2003           56303                           XCH      DSPLOCK                               #  MAKE DSP SYST BUSY, BUT SAVE OLD
009643,000379: 04,2004           54105                           TS       21/22REG                              #  C(DSPLOCK) FOR ERROR LIGHT RESET.
009644,000380: 04,2005           56144                           XCH      MPAC                                  
009645,000381: 04,2006           54107                           TS       CHAR                                  
009646,000382: 04,2007           50000                           INDEX    A                                     
009647,000383: 04,2010           02011                           TC       +1                                    #  INPUT CODE    FUNCTION
009648,000384: 04,2011           03313                           TC       CHARALRM                              #  0
009649,000385: 04,2012           02070                           TC       NUM                                   #  1
009650,000386: 04,2013           02070                           TC       NUM                                   #  2
009651,000387: 04,2014           02070                           TC       NUM                                   #  3
009652,000388: 04,2015           02070                           TC       NUM                                   #  4
009653,000389: 04,2016           02070                           TC       NUM                                   #  5
009654,000390: 04,2017           02070                           TC       NUM                                   #  6
009655,000391: 04,2020           02070                           TC       NUM                                   #  7
009656,000392: 04,2021           02061                           TC       89TEST                                #  10            8
009657,000393: 04,2022           02061                           TC       89TEST                                #  11            9
009658,000394: 04,2023           03313                           TC       CHARALRM                              #  12
009659,000395: 04,2024           03313                           TC       CHARALRM                              #  13
009660,000396: 04,2025           03313                           TC       CHARALRM                              #  14
009661,000397: 04,2026           03313                           TC       CHARALRM                              #  15
009662,000398: 04,2027           03313                           TC       CHARALRM                              #  16
009663,000399: 04,2030           03313                           TC       CHARALRM                              #  17
009664,000400: 04,2031           02066                           TC       NUM        -2                         #  20            0
009665,000401: 04,2032           02243                           TC       VERB                                  #  21            VERB
009666,000402: 04,2033           02355                           TC       ERROR                                 #  22            ERROR LIGHT RESET
009667,000403: 04,2034           02053                           TC       ABRT23GO                              #  23            SUBORBIT ABORT
009668,000404: 04,2035           02056                           TC       ABRT24GO                              #  24            CONORBIT ABORT
009669,000405: 04,2036           03313                           TC       CHARALRM                              #  25
009670,000406: 04,2037           03313                           TC       CHARALRM                              #  26
009671,000407: 04,2040           03313                           TC       CHARALRM                              #  27
009672,000408: 04,2041           03313                           TC       CHARALRM                              #  30
009673,000409: 04,2042           03336                           TC       VBRELDSP                              #  31            KEY RELEASE
009674,000410: 04,2043           02275                           TC       POSGN                                 #  32            +
009675,000411: 04,2044           02262                           TC       NEGSGN                                #  33            -
009676,000412: 04,2045           02051                           TC       ENTERJMP                              #  34            ENTER
009677,000413: 04,2046           03313                           TC       CHARALRM                              #  35
009678,000414: 04,2047           02446                           TC       CLEAR                                 #  36            CLEAR
009679,000415: 04,2050           02256                           TC       NOUN                                  #  37            NOUN
009680,000416: 

Page 241

009682,000418: 04,2051           05225        ENTERJMP           TC       POSTJUMP                              
009683,000419: 04,2052           12003                           CADR     ENTER                                 
009684,000420: 
009685,000421: 04,2053           04666        ABRT23GO           TC       RELDSP                                
009686,000422: 04,2054           05225                           TC       POSTJUMP                              
009687,000423: 04,2055           56350                           CADR     SUBABORT                              
009688,000424: 04,2056           04666        ABRT24GO           TC       RELDSP                                
009689,000425: 04,2057           05225                           TC       POSTJUMP                              
009690,000426: 04,2060           56353                           CADR     CONORBIT                              
009691,000427: 
009692,000428: 04,2061           36311        89TEST             CAF      THREE                                 
009693,000429: 04,2062           70271                           MASK     DECBRNCH                              
009694,000430: 04,2063           10000                           CCS      A                                     
009695,000431: 04,2064           02070                           TC       NUM                                   #  IF DECBRNCH IS +, 8 OR 9 OK
009696,000432: 04,2065           03313                           TC       CHARALRM                              #  IF DECBRNCH IS +0, REJECT 8 OR 9
009697,000433: 
009698,000434: 
009699,000435:                                                                                                  #  NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
009700,000436:                                                                                                  #  WORD AS A FRACTION, KEEPING RESULTS TO DP.
009701,000437:                                                                                                  #  OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
009702,000438:                                                                                                  #  YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
009703,000439:                                                                                                  #  DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
009704,000440:                                                                                                  #  IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
009705,000441: 
009706,000442: 04,2066           37767                           CAF      ZERO                                  
009707,000443: 04,2067           54107                           TS       CHAR                                  
009708,000444: 04,2070           10270        NUM                CCS      DSPCOUNT                              
009709,000445: 04,2071           02075                           TC       +4                                    #  +
009710,000446: 04,2072           02075                           TC       +3                                    #  +0
009711,000447: 04,2073           02074                           TC       +1                                    #  -BLOCK DATA IN IF DSPCOUNT IS -
009712,000448: 04,2074           05567                           TC       ENDOFJOB                              #  -0
009713,000449: 04,2075           02213                           TC       GETINREL                              
009714,000450: 04,2076           10306                           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009715,000451: 04,2077           37767                           CAF      ZERO                                  
009716,000452: 04,2100           54306                           TS       CLPASS                                
009717,000453: 04,2101           02102                           TC       +1                                    
009718,000454: 04,2102           50107                           INDEX    CHAR                                  
009719,000455: 04,2103           34300                           CAF      RELTAB                                
009720,000456: 04,2104           74556                           MASK     LOW5                                  
009721,000457: 04,2105           54114                           TS       CODE                                  
009722,000458: 04,2106           30270                           CA       DSPCOUNT                              
009723,000459: 04,2107           54133                           TS       COUNT                                 
009724,000460: 04,2110           03217                           TC       DSPIN                                 
009725,000461: 04,2111           36311                           CAF      THREE                                 
009726,000462: 04,2112           70271                           MASK     DECBRNCH                              
009727,000463: 04,2113           10000                           CCS      A                                     #  +0, OCTAL.  +1, + DEC.  +2, - DEC.
009728,000464: 04,2114           02125                           TC       DECTOBIN                              #  +
009729,000465: 04,2115           50127                           INDEX    INREL                                 #  +0 OCTAL
009730,000466: 04,2116           56272                           XCH      VERBREG                               

Page 242

009732,000468: 04,2117           54022                           TS       CYL                                   
009733,000469: 04,2120           40022                           CS       CYL                                   
009734,000470: 04,2121           40022                           CS       CYL                                   
009735,000471: 04,2122           56022                           XCH      CYL                                   
009736,000472: 04,2123           60107                           AD       CHAR                                  
009737,000473: 04,2124           02142                           TC       ENDNMTST                              
009738,000474: 04,2125           50127        DECTOBIN           INDEX    INREL                                 
009739,000475: 04,2126           56272                           XCH      VERBREG                               
009740,000476: 04,2127           54144                           TS       MPAC                                  #  SUM X 2EXP-14 IN MPAC
009741,000477: 04,2130           37767                           CAF      ZERO                                  
009742,000478: 04,2131           54145                           TS       MPAC       +1                         
009743,000479: 04,2132           34570                           CAF      TEN                                   #  10 X 2EXP-14
009744,000480: 04,2133           07357                           TC       SHORTMP                               #  10SUM X 2EXP-28 IN MPAC, MPAC+1
009745,000481: 04,2134           56145                           XCH      MPAC       +1                         
009746,000482: 04,2135           60107                           AD       CHAR                                  
009747,000483: 04,2136           54145                           TS       MPAC       +1                         
009748,000484: 04,2137           02142                           TC       ENDNMTST                              #  NO OF
009749,000485: 04,2140           26144                           ADS      MPAC                                  #  OF MUST BE 5TH CHAR
009750,000486: 04,2141           02160                           TC       DECEND                                
009751,000487: 04,2142           50127        ENDNMTST           INDEX    INREL                                 
009752,000488: 04,2143           54272                           TS       VERBREG                               
009753,000489: 04,2144           40270                           CS       DSPCOUNT                              
009754,000490: 04,2145           50127                           INDEX    INREL                                 
009755,000491: 04,2146           62204                           AD       CRITCON                               
009756,000492: 04,2147           00006                           EXTEND                                         
009757,000493: 04,2150           12152                           BZF      ENDNUM                                #  -0, DSPCOUNT = CRITCON
009758,000494: 04,2151           02201                           TC       MORNUM                                #  - , DSPCOUNT G/ CRITCON
009759,000495: 04,2152           36311        ENDNUM             CAF      THREE                                 
009760,000496: 04,2153           70271                           MASK     DECBRNCH                              
009761,000497: 04,2154           10000                           CCS      A                                     
009762,000498: 04,2155           02160                           TC       DECEND                                
009763,000499: 04,2156           40270        ENDALL             CS       DSPCOUNT                              #  BLOCK NUMIN BY PLACING DSPCOUNT
009764,000500: 04,2157           02202                           TC       MORNUM     +1                         #  NEGATIVELY
009765,000501: 04,2160           07155        DECEND             TC       DMP                                   #  MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
009766,000502: 04,2161           02211                           ADRES    DECON                                 #  2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
009767,000503: 04,2162           36311                           CAF      THREE                                 #  IN MPAC, +1, +2.
009768,000504: 04,2163           70271                           MASK     DECBRNCH                              
009769,000505: 04,2164           50000                           INDEX    A                                     
009770,000506: 04,2165           02165                           TC       +0                                    
009771,000507: 04,2166           02172                           TC       +DECSGN                               
009772,000508: 04,2167           00006                           EXTEND                                         #  - CASE
009773,000509: 04,2170           40146                           DCS      MPAC       +1                         
009774,000510: 04,2171           52146                           DXCH     MPAC       +1                         
009775,000511: 04,2172           56146        +DECSGN            XCH      MPAC       +2                         
009776,000512: 04,2173           50127                           INDEX    INREL                                 
009777,000513: 04,2174           54275                           TS       XREGLP     -2                         
009778,000514: 04,2175           56145                           XCH      MPAC       +1                         
009779,000515: 04,2176           50127                           INDEX    INREL                                 
009780,000516: 04,2177           54272                           TS       VERBREG                               
009781,000517: 04,2200           02156                           TC       ENDALL                                

Page 243

009783,000519: 04,2201           10270        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
009784,000520: 04,2202           54270                           TS       DSPCOUNT                              
009785,000521: 04,2203           05567                           TC       ENDOFJOB                              
009786,000522: 
009787,000523: 04,2204           00022        CRITCON            OCT      22                                    #  (DEC 18)
009788,000524: 04,2205           00020                           OCT      20                                    #  (DEC 16)
009789,000525: 04,2206           00012                           OCT      12                                    #  (DEC 10)
009790,000526: 04,2207           00005                           OCT      5                                     
009791,000527: 04,2210           00000                           OCT      0                                     
009792,000528: 
009793,000529: 04,2211           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
009794,000530: 
009795,000531:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009796,000532:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009797,000533: 
009798,000534: 04,2213           50270        GETINREL           INDEX    DSPCOUNT                              
009799,000535: 04,2214           32217                           CAF      INRELTAB                              
009800,000536: 04,2215           54127                           TS       INREL                                 #  (A TEMP, REG)
009801,000537: 04,2216           00002                           TC       Q                                     
009802,000538: 
009803,000539: 04,2217           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
009804,000540: 04,2220           00004                           OCT      4                                     #  R3D4           =(1)
009805,000541: 04,2221           00004                           OCT      4                                     #  R3D3           =(2)
009806,000542: 04,2222           00004                           OCT      4                                     #  R3D2           =(3)
009807,000543: 04,2223           00004                           OCT      4                                     #  R3D1           =(4)
009808,000544: 04,2224           00003                           OCT      3                                     #  R2D5           =(5)
009809,000545: 04,2225           00003                           OCT      3                                     #  R2D4           =(6)
009810,000546: 04,2226           00003                           OCT      3                                     #  R2D3           =(7)
009811,000547: 04,2227           00003                           OCT      3                                     #  R2D2           =(8D)
009812,000548: 04,2230           00003                           OCT      3                                     #  R2D1           =(9D)
009813,000549: 04,2231           00002                           OCT      2                                     #  R1D5           =(10D)
009814,000550: 04,2232           00002                           OCT      2                                     #  R1D4           =(11D)
009815,000551: 04,2233           00002                           OCT      2                                     #  R1D3           =(12D)
009816,000552: 04,2234           00002                           OCT      2                                     #  R1D2           =(13D)
009817,000553: 04,2235           00002                           OCT      2                                     #  R1D1           =(14D)
009818,000554: 04,2236           04736                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
009819,000555: 04,2237           00001                           OCT      1                                     #  ND2            =(16D)
009820,000556: 04,2240           00001                           OCT      1                                     #  ND1            =(17D)
009821,000557: 04,2241           00000                           OCT      0                                     #  VD2            =(18D)
009822,000558: 04,2242           00000                           OCT      0                                     #  VD1            =(19D)
009823,000559: 
009824,000560: 04,2243           37767        VERB               CAF      ZERO                                  
009825,000561: 04,2244           54272                           TS       VERBREG                               
009826,000562: 04,2245           34565                           CAF      VD1                                   
009827,000563: 04,2246           54270        NVCOM              TS       DSPCOUNT                              
009828,000564: 04,2247           02557                           TC       2BLANK                                

Page 244

009830,000566: 04,2250           37767                           CAF      ZERO                                  
009831,000567: 04,2251           54271                           TS       DECBRNCH                              
009832,000568: 04,2252           54304                           TS       REQRET                                #  SET FOR ENTPAS0
009833,000569: 04,2253           34505                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009834,000570: 04,2254           54126                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
009835,000571:                                                                                                  #  TO TC ENDOFJOB
009836,000572: 04,2255           05567                           TC       ENDOFJOB                              
009837,000573: 04,2256           37767        NOUN               CAF      ZERO                                  
009838,000574: 04,2257           54273                           TS       NOUNREG                               
009839,000575: 04,2260           34566                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
009840,000576: 04,2261           02246                           TC       NVCOM                                 
009841,000577: 
009842,000578: 
009843,000579: 04,2262           02334        NEGSGN             TC       SIGNTEST                              
009844,000580: 04,2263           02321                           TC       -ON                                   
009845,000581: 04,2264           37762                           CAF      TWO                                   
009846,000582: 04,2265           50127        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
009847,000583: 04,2266           67755                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
009848,000584: 04,2267           26271                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
009849,000585: 04,2270           10306        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009850,000586: 04,2271           37767                           CAF      ZERO                                  
009851,000587: 04,2272           54306                           TS       CLPASS                                
009852,000588: 04,2273           02274                           TC       +1                                    
009853,000589: 04,2274           05567                           TC       ENDOFJOB                              
009854,000590: 
009855,000591: 04,2275           02334        POSGN              TC       SIGNTEST                              
009856,000592: 04,2276           02301                           TC       +ON                                   
009857,000593: 04,2277           37763                           CAF      ONE                                   
009858,000594: 04,2300           02265                           TC       BOTHSGN                               
009859,000595: 
009860,000596: 04,2301           22002        +ON                LXCH     Q                                     
009861,000597: 04,2302           02213                           TC       GETINREL                              
009862,000598: 04,2303           50127                           INDEX    INREL                                 
009863,000599: 04,2304           32327                           CAF      SGNTAB     -2                         
009864,000600: 04,2305           54113                           TS       SGNOFF                                
009865,000601: 04,2306           67763                           AD       ONE                                   
009866,000602: 04,2307           54112                           TS       SGNON                                 
009867,000603: 04,2310           37767        SGNCOM             CAF      ZERO                                  
009868,000604: 04,2311           54114                           TS       CODE                                  
009869,000605: 04,2312           56113                           XCH      SGNOFF                                
009870,000606: 04,2313           03301                           TC       11DSPIN                               
009871,000607: 04,2314           37751                           CAF      BIT11                                 
009872,000608: 04,2315           54114                           TS       CODE                                  
009873,000609: 04,2316           56112                           XCH      SGNON                                 
009874,000610: 04,2317           03301                           TC       11DSPIN                               
009875,000611: 04,2320           00001                           TC       L                                     
009876,000612: 04,2321           22002        -ON                LXCH     Q                                     
009877,000613: 04,2322           02213                           TC       GETINREL                              
009878,000614: 04,2323           50127                           INDEX    INREL                                 

Page 245

009880,000616: 04,2324           32327                           CAF      SGNTAB     -2                         
009881,000617: 04,2325           54112                           TS       SGNON                                 
009882,000618: 04,2326           67763                           AD       ONE                                   
009883,000619: 04,2327           54113                           TS       SGNOFF                                
009884,000620: 04,2330           02310                           TC       SGNCOM                                
009885,000621: 
009886,000622: 04,2331           00005        SGNTAB             OCT      5                                     #  -R1
009887,000623: 04,2332           00003                           OCT      3                                     #  -R2
009888,000624: 04,2333           00000                           OCT      0                                     #  -R3
009889,000625: 
009890,000626: 04,2334           22002        SIGNTEST           LXCH     Q                                     #  ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
009891,000627: 04,2335           36311                           CAF      THREE                                 #  R2D1, OR R3D1.  ALLOWS ONLY FIRST OF
009892,000628: 04,2336           70271                           MASK     DECBRNCH                              #  CONSECUTIVE +/- CHARACTERS.
009893,000629: 04,2337           10000                           CCS      A                                     #  IF LOW2 BITS OF DECBRNCH NOT= 0,  SIGN
009894,000630: 04,2340           05567                           TC       ENDOFJOB                              #  FOR THIS WORD ALREADY IN. REJECT.
009895,000631: 04,2341           44527                           CS       R1D1                                  
009896,000632: 04,2342           02350                           TC       SGNTST1                               
009897,000633: 04,2343           44530                           CS       R2D1                                  
009898,000634: 04,2344           02350                           TC       SGNTST1                               
009899,000635: 04,2345           44531                           CS       R3D1                                  
009900,000636: 04,2346           02350                           TC       SGNTST1                               
009901,000637: 04,2347           05567                           TC       ENDOFJOB                              #  NO MATCH FOUND. SIGN ILLEGAL
009902,000638: 04,2350           60270        SGNTST1            AD       DSPCOUNT                              
009903,000639: 04,2351           00006                           EXTEND                                         
009904,000640: 04,2352           12354                           BZF      +2                                    #  MATCH FOUND
009905,000641: 04,2353           00002                           TC       Q                                     
009906,000642: 04,2354           00001                           TC       L                                     #  SIGN LEGAL
009907,000643: 
009908,000644:                                                                                                  #  ERROR LIGHT RESET (RSET) TURNS OFF,
009909,000645:                                                                                                  #  UPLINK ACTIVITY, AUTO, HOLD, FREE, NO ATT, OPERATOR ERROR,
009910,000646:                                                                                                  #  PROG ALM, TRACKER FAIL.
009911,000647:                                                                                                  #  LEAVES GIMBAL LOCK ALONE.
009912,000648:                                                                                                  #  IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
009913,000649:                                                                                                  #  IT ALSO SETS :CAUTION RESET: TO 1.
009914,000650:                                                                                                  #  IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
009915,000651: 
009916,000652: 04,2355           56105        ERROR              XCH      21/22REG                              #  RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
009917,000653: 04,2356           54303                           TS       DSPLOCK                               #  LIGHT RESET LEAVES DSPLOCK UNCHANGED.
009918,000654: 04,2357           00004                           INHINT                                         
009919,000655: 04,2360           37752                           CAF      BIT10                                 #  TURN ON :CAUTION RESET: OUTBIT
009920,000656: 04,2361           00006                           EXTEND                                         
009921,000657: 04,2362           05011                           WOR      DSALMOUT                              #  BIT10 CHAN 11
009922,000658: 04,2363           32444                           CAF      GL+NOATT                              #  LEAVE GIMBAL LOCK AND NO ATT INTACT,
009923,000659: 04,2364           70326                           MASK     DSPTAB     +11D                       #  TURNING OFF AUTO, HOLD, FREE,
009924,000660: 04,2365           67745                           AD       BIT15                                 #  PROG ALARM, AND TRACKER.
009925,000661: 04,2366           54326                           TS       DSPTAB     +11D                       

Page 246

009927,000663: 04,2367           45642                           CS       PRIO16                                #  RESET FAIL BITS WHICH GENERATE PROG
009928,000664: 04,2370           70366                           MASK     IMODES33                              #  ALARM SO THAT IF THE FAILURE STILL
009929,000665: 04,2371           65642                           AD       PRIO16                                #  EXISTS, THE ALARM WILL COME BACK.
009930,000666: 04,2372           54366                           TS       IMODES33                              
009931,000667: 04,2373           47752                           CS       BIT10                                 
009932,000668: 04,2374           70365                           MASK     IMODES30                              
009933,000669: 04,2375           67752                           AD       BIT10                                 
009934,000670: 04,2376           54365                           TS       IMODES30                              
009935,000671: 
009936,000672: 04,2377           42443                           CS       RFAILS                                
009937,000673: 04,2400           70412                           MASK     RADMODES                              
009938,000674: 04,2401           67755                           AD       BIT7                                  
009939,000675: 04,2402           54412                           TS       RADMODES                              
009940,000676: 
009941,000677: 04,2403           47752                           CS       BIT10                                 #  TURN OFF :TEST ALARM: OUTBIT.
009942,000678: 04,2404           00006                           EXTEND                                         
009943,000679: 04,2405           03013                           WAND     CHAN13                                
009944,000680: 04,2406           42442                           CS       ERCON                                 #  TURN OFF UPLINK ACTIVITY,
009945,000681: 04,2407           00006                           EXTEND                                         #  OPERATOR ERROR.
009946,000682: 04,2410           03011                           WAND     DSALMOUT                              
009947,000683: 04,2411           34570        TSTAB              CAF      BINCON                                #  (DEC 10)
009948,000684: 04,2412           54107                           TS       ERCNT                                 #  ERCNT = COUNT
009949,000685: 04,2413           00004                           INHINT                                         
009950,000686: 04,2414           50107                           INDEX    ERCNT                                 
009951,000687: 04,2415           10313                           CCS      DSPTAB                                
009952,000688: 04,2416           67763                           AD       ONE                                   
009953,000689: 04,2417           02424                           TC       ERPLUS                                
009954,000690: 04,2420           67763                           AD       ONE                                   
009955,000691: 04,2421           40000        ERMINUS            CS       A                                     
009956,000692: 04,2422           72445                           MASK     NOTBIT12                              
009957,000693: 04,2423           02427                           TC       ERCOM                                 
009958,000694: 04,2424           40000        ERPLUS             CS       A                                     
009959,000695: 04,2425           72445                           MASK     NOTBIT12                              
009960,000696: 04,2426           40000                           CS       A                                     #  MIGHT WANT TO RESET CLPASS, DECBRNCH,
009961,000697: 04,2427           50107        ERCOM              INDEX    ERCNT                                 #  ETC.
009962,000698: 04,2430           54313                           TS       DSPTAB                                
009963,000699: 04,2431           00003                           RELINT                                         
009964,000700: 04,2432           10107                           CCS      ERCNT                                 
009965,000701: 04,2433           02412                           TC       TSTAB      +1                         
009966,000702: 04,2434           37767                           CAF      ZERO                                  
009967,000703: 04,2435           55360                           TS       FAILREG                               
009968,000704: 04,2436           55361                           TS       FAILREG    +1                         
009969,000705: 04,2437           55362                           TS       FAILREG    +2                         
009970,000706: 04,2440           55357                           TS       SFAIL                                 
009971,000707: 04,2441           05567                           TC       ENDOFJOB                              
009972,000708: 
009973,000709: 04,2442           00104        ERCON              OCT      104                                   #  CHAN 11 BITS 3,7.
009974,000710:                                                                                                  #  UPLINK ACTIVITY, AND OPERATOR ERROR.
009975,000711: 04,2443           00330        RFAILS             OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
009976,000712: 04,2444           00050        GL+NOATT           OCT      00050                                 #  NO ATT AND GIMBAL LOCK LAMPS

Page 247

009978,000714: 04,2445           73777        NOTBIT12           OCT      73777                                 
009979,000715: 
009980,000716: 
009981,000717:                                                                                                  #  CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
009982,000718:                                                                                                  #  NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
009983,000719:                                                                                                  #  L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
009984,000720: 
009985,000721:                                                                                                  #  THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS 
009986,000722:                                                                                                  #  APPROPRIATE TO BE CLEARED.
009987,000723: 
009988,000724:                                                                                                  #  CLPASS   +0  PASS0, CAN BE BACKED UP
009989,000725:                                                                                                  #           +NZ  HIPASS, CAN BE BACKED UP
009990,000726:                                                                                                  #           -NZ  PASS0, CANNOT BE BACKED UP
009991,000727: 
009992,000728: 04,2446           10270        CLEAR              CCS      DSPCOUNT                              
009993,000729: 04,2447           67763                           AD       ONE                                   
009994,000730: 04,2450           02452                           TC       +2                                    
009995,000731: 04,2451           67763                           AD       ONE                                   
009996,000732: 04,2452           50000                           INDEX    A                                     #  DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
009997,000733: 04,2453           32217                           CAF      INRELTAB                              #  FAIL LEGALTST.
009998,000734: 04,2454           54127                           TS       INREL                                 #  MUST SET INREL, EVEN FOR HIPASS.
009999,000735: 04,2455           10306                           CCS      CLPASS                                
010000,000736: 04,2456           02464                           TC       CLPASHI                               #  +
010001,000737: 04,2457           02461                           TC       +2                                    #  +0    IF CLPASS IS +0 OR -, IT IS PASS0
010002,000738: 04,2460           02461                           TC       +1                                    #  -
010003,000739: 04,2461           30127                           CA       INREL                                 
010004,000740: 04,2462           02506                           TC       LEGALTST                              
010005,000741: 04,2463           02501                           TC       CLEAR1                                
010006,000742: 04,2464           10127        CLPASHI            CCS      INREL                                 
010007,000743: 04,2465           54127                           TS       INREL                                 
010008,000744: 04,2466           02506                           TC       LEGALTST                              
010009,000745: 04,2467           32555                           CAF      DOUBLK     +2                         #  +3 TO - NUMBER. BACKS DATA REQUESTS.
010010,000746: 04,2470           26304                           ADS      REQRET                                
010011,000747: 04,2471           30127                           CA       INREL                                 
010012,000748: 04,2472           54115                           TS       MIXTEMP                               #  TEMP STORAGE FOR INREL
010013,000749: 04,2473           00006                           EXTEND                                         
010014,000750: 04,2474           26272                           DIM      VERBREG                               #  DECREMENT VERB AND RE-DISPLAY
010015,000751: 04,2475           05206                           TC       BANKCALL                              
010016,000752: 04,2476           12315                           CADR     UPDATVB                               
010017,000753: 04,2477           30115                           CA       MIXTEMP                               
010018,000754: 04,2500           54127                           TS       INREL                                 #  RESTORE INREL
010019,000755: 04,2501           02504        CLEAR1             TC       CLR5                                  
010020,000756: 04,2502           24306                           INCR     CLPASS                                #  ONLY IF CLPASS IS + OR +0,
010021,000757: 04,2503           05567                           TC       ENDOFJOB                              #  SET FOR HIGHER PASS.
010022,000758: 04,2504           22002        CLR5               LXCH     Q                                     #  USES 5BLANK  BUT AVOIDS ITS TC GETINREL
010023,000759: 04,2505           02516                           TC       5BLANK     +2                         
010024,000760: 04,2506           65336        LEGALTST           AD       NEG2                                  
010025,000761: 04,2507           10000                           CCS      A                                     
010026,000762: 04,2510           00002                           TC       Q                                     #  LEGAL  INREL G/ 2

Page 248

010028,000764: 04,2511           04736                           TC       CCSHOLE                               
010029,000765: 04,2512           05567                           TC       ENDOFJOB                              #  ILLEGAL INREL= 0,1
010030,000766: 04,2513           00002                           TC       Q                                     #  LEGAL  INREL = 2
010031,000767: 
010032,000768:                                                                                                  #  5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
010033,000769:                                                                                                  #  YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
010034,000770:                                                                                                  #  DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
010035,000771: 
010036,000772: 04,2514           22002        5BLANK             LXCH     Q                                     
010037,000773: 04,2515           02213                           TC       GETINREL                              
010038,000774: 04,2516           37767                           CAF      ZERO                                  
010039,000775: 04,2517           50127                           INDEX    INREL                                 
010040,000776: 04,2520           54272                           TS       VERBREG                               #  ZERO X, Y, Z REG.
010041,000777: 04,2521           50127                           INDEX    INREL                                 
010042,000778: 04,2522           54275                           TS       XREGLP     -2                         
010043,000779: 04,2523           54114                           TS       CODE                                  
010044,000780: 04,2524           50127                           INDEX    INREL                                 #  ZERO PERTINENT DEC COMP BIT.
010045,000781: 04,2525           47755                           CS       BIT7                                  #  PROTECT OTHERS
010046,000782: 04,2526           70271                           MASK     DECBRNCH                              
010047,000783: 04,2527           72556                           MASK     BRNCHCON                              #  ZERO LOW 2 BITS.
010048,000784: 04,2530           54271                           TS       DECBRNCH                              
010049,000785: 04,2531           50127                           INDEX    INREL                                 
010050,000786: 04,2532           32546                           CAF      SINBLANK   -2                         #  BLANK ISOLATED CHAR SEPARATELY
010051,000787: 04,2533           54133                           TS       COUNT                                 
010052,000788: 04,2534           03217                           TC       DSPIN                                 
010053,000789: 04,2535           50127        5BLANK1            INDEX    INREL                                 
010054,000790: 04,2536           32551                           CAF      DOUBLK     -2                         
010055,000791: 04,2537           54270                           TS       DSPCOUNT                              
010056,000792: 04,2540           02557                           TC       2BLANK                                
010057,000793: 04,2541           47762                           CS       TWO                                   
010058,000794: 04,2542           26270                           ADS      DSPCOUNT                              
010059,000795: 04,2543           02557                           TC       2BLANK                                
010060,000796: 04,2544           50127                           INDEX    INREL                                 
010061,000797: 04,2545           34525                           CAF      R1D1       -2                         
010062,000798: 04,2546           54270                           TS       DSPCOUNT                              #  SET DSPCOUNT TO LEFT MOST DSP NUMBER
010063,000799: 04,2547           00001                           TC       L                                     #  OF REG. JUST BLANKED
010064,000800: 
010065,000801: 04,2550           00016        SINBLANK           OCT      16                                    #  DEC 14
010066,000802: 04,2551           00005                           OCT      5                                     
010067,000803: 04,2552           00004                           OCT      4                                     
010068,000804: 04,2553           00015        DOUBLK             OCT      15                                    #  DEC 13
010069,000805: 04,2554           00011                           OCT      11                                    #  DEC 9
010070,000806: 04,2555           00003                           OCT      3                                     
010071,000807: 
010072,000808: 04,2556           77774        BRNCHCON           OCT      77774                                 
010073,000809: 
010074,000810:                                                                                                  #  2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
010075,000811:                                                                                                  #  DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT

Page 249

010077,000813: 
010078,000814: 04,2557           30270        2BLANK             CA       DSPCOUNT                              
010079,000815: 04,2560           54021                           TS       SR                                    
010080,000816: 04,2561           42572                           CS       BLANKCON                              
010081,000817: 04,2562           00004                           INHINT                                         
010082,000818: 04,2563           50021                           INDEX    SR                                    
010083,000819: 04,2564           56313                           XCH      DSPTAB                                
010084,000820: 04,2565           00006                           EXTEND                                         
010085,000821: 04,2566           62570                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
010086,000822: 04,2567           24307                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
010087,000823: 04,2570           00003                           RELINT                                         #  IF -, NOUT OK
010088,000824: 04,2571           00002                           TC       Q                                     
010089,000825: 04,2572           04000        BLANKCON           OCT      4000                                  
010090,000826: 

Page 250

010092,000828:                                                                                                  #  ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
010093,000829:                                                                                                  #  DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
010094,000830:                                                                                                  #  PASSES.
010095,000831: 
010096,000832: 
010097,000833:                                                                                                  #  MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
010098,000834:                                                                                                  #  WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
010099,000835:                                                                                                  #  VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
010100,000836: 
010101,000837: 05,2000                                           SETLOC   22000                                 
010102,000838: 
010103,000839: 05,2000           03344        NVSUBB             TC       NVSUB1                                #  STANDARD LEAD INS. DONT MOVE.
010104,000840: 05,2001           13403        DSPMM              TCF      DSPMM1                                
010105,000841: 05,2002           02663        LOADLV1            TC       LOADLV                                
010106,000842:                                                                                                  #  END OF STANDARD LEAD INS.
010107,000843: 
010108,000844: 
010109,000845: 05,2003           37767        ENTER              CAF      ZERO                                  
010110,000846: 05,2004           54306                           TS       CLPASS                                
010111,000847: 05,2005           34505                           CAF      ENDINST                               
010112,000848: 05,2006           54126                           TS       ENTRET                                
010113,000849: 05,2007           10304                           CCS      REQRET                                
010114,000850: 05,2010           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010115,000851: 05,2011           02031                           TC       ENTPAS0                               #  IF +, PASS 0
010116,000852: 05,2012           02013                           TC       +1                                    #  IF -, NOT PASS 0
010117,000853: 05,2013           36311                           CAF      THREE                                 #  IF DEC, ALARM IF LESS THAN 5 CHAR IN,
010118,000854: 05,2014           70271                           MASK     DECBRNCH                              #  BUT LEAVE REQRET - AND FLASH ON, SO
010119,000855: 05,2015           10000                           CCS      A                                     #  OPERATOR CAN SUPPLY MISSING NUMERICAL
010120,000856: 05,2016           02020                           TC       +2                                    #  CHARACTERS AND CONTINUE.
010121,000857: 05,2017           02024                           TC       ACCEPTWD                              #  OCTAL. ANY NUMBER OF CHAR OK.
010122,000858: 05,2020           10270                           CCS      DSPCOUNT                              
010123,000859: 05,2021           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010124,000860: 05,2022           02324                           TC       GODSPALM                              #  LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
010125,000861: 05,2023           02024                           TC       +1                                    #  5 CHAR IN (DSPCOUNT IS -)
010126,000862: 05,2024           40304        ACCEPTWD           CS       REQRET                                #  5 CHAR IN (DSPCOUNT IS -)
010127,000863: 05,2025           54304                           TS       REQRET                                #  SET REQRET +.
010128,000864: 05,2026           04626                           TC       FLASHOFF                              
010129,000865: 05,2027           00304                           TC       REQRET                                
010130,000866: 
010131,000867: 05,2030     0126               ENTEXIT            =        ENTRET                                
010132,000868: 
010133,000869: 05,2030           00030        LOWVERB            OCT      30                                    #  LOWER VERB THAT AVOIDS NOUN TEST
010134,000870: 
010135,000871: 05,2031           37767        ENTPAS0            CAF      ZERO                                  #   NOUN VERB SUB ENTERS HERE
010136,000872: 05,2032           54271                           TS       DECBRNCH                              
010137,000873: 05,2033           40272        TESTVB             CS       VERBREG                               #  IF VERB IS 30-77, SKIP NOUN TEST

Page 251

010139,000875: 05,2034           62030                           AD       LOWVERB                               #  30-VB
010140,000876: 05,2035           00006                           EXTEND                                         
010141,000877: 05,2036           62116                           BZMF     VERBFAN                               #  VERB G/ E 30
010142,000878: 05,2037           00006        TESTNN             EXTEND                                         #  VERB L/ 30
010143,000879: 05,2040           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010144,000880: 05,2041           52006                           DXCH     Z                                     #  ROUTINE.
010145,000881: 05,2042           50130                           INDEX    MIXBR                                 
010146,000882: 05,2043           02043                           TC       +0                                    
010147,000883: 05,2044           02046                           TC       +2                                    #  NORMAL
010148,000884: 05,2045           02176                           TC       MIXNOUN                               #  MIXED
010149,000885: 05,2046           10136                           CCS      NNADTEM                               #  NORMAL
010150,000886: 05,2047           02114                           TC       VERBFAN    -2                         #       NORMAL IF +
010151,000887: 05,2050           02324                           TC       GODSPALM                              #  NOT IN USE   IF +0
010152,000888: 05,2051           02055                           TC       REQADD                                #  SPECIFY MACHINE CADR IF -
010153,000889: 05,2052           24310                           INCR     NOUNCADR                              #  AUGMENT MACHINE CADR IF -0
010154,000890: 05,2053           04521                           TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010155,000891: 05,2054           02102                           TC       INTMCTBS   +2                         
010156,000892: 05,2055           37745        REQADD             CAF      BIT15                                 #  SET CLPASS FOR PASS 0 ONLY
010157,000893: 05,2056           54306                           TS       CLPASS                                
010158,000894: 05,2057           44505                           CS       ENDINST                               #  TEST IF REACHED HERE FROM INTERNAL OR
010159,000895: 05,2060           60126                           AD       ENTEXIT                               #              FROM EXTERNAL
010160,000896: 05,2061           00006                           EXTEND                                         
010161,000897: 05,2062           12064                           BZF      +2                                    #  EXTERNAL MACH CADR TO BE SPECIFIED
010162,000898: 05,2063           02100                           TC       INTMCTBS                              
010163,000899: 05,2064           02256                           TC       REQDATZ                               #  EXTERNAL MACH CADR TO BE SPECIFIED
010164,000900: 05,2065           10271                           CCS      DECBRNCH                              
010165,000901: 05,2066           02324                           TC       GODSPALM                              #  ALARM IF DECIMAL USED FOR MCTBS
010166,000902: 05,2067           56276                           XCH      ZREG                                  #  OCTAL USED    OK
010167,000903: 05,2070           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010168,000904: 05,2071           00006                           EXTEND                                         
010169,000905: 05,2072           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010170,000906: 05,2073           52006                           DXCH     Z                                     #  ROUTINE.
010171,000907: 05,2074           02116                           TC       VERBFAN                               
010172,000908: 
010173,000909: 05,2075     0270                                  EBANK=   DSPCOUNT                              
010174,000910: 05,2075           02000 46060  LODNNLOC           2CADR    LODNNTAB                              
010175,000911: 
010176,000912: 05,2077           77772        NEG5               OCT      77772                                 
010177,000913: 
010178,000914: 05,2100           30146        INTMCTBS           CA       MPAC       +2                         #  INTERNAL MACH CADR TO BE SPECIFIED.
010179,000915: 05,2101           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SET EB, NOUNADD.
010180,000916: 05,2102           47760                           CS       BIT4                                  #  NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
010181,000917: 05,2103           70272                           MASK     VERBREG                               #  CADR TO BE SPECIFIED.
010182,000918: 05,2104           62077                           AD       NEG5                                  #  MASKING MAKES VB15 LOOK LIKE VB05.
010183,000919: 05,2105           00006                           EXTEND                                         
010184,000920: 05,2106           12116                           BZF      VERBFAN                               #  VB = 05 OR 15, DO NOT DISPLAY CADR.
010185,000921: 05,2107           34531                           CAF      R3D1                                  #  VB NOT = 05 OR 15. DISPLAY CADR.
010186,000922: 05,2110           54270                           TS       DSPCOUNT                              
010187,000923: 05,2111           30310                           CA       NOUNCADR                              
010188,000924: 05,2112           03222                           TC       DSPOCTWD                              

Page 252

010190,000926: 05,2113           02116                           TC       VERBFAN                               
010191,000927: 
010192,000928: 05,2114           67763                           AD       ONE                                   
010193,000929: 05,2115           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010194,000930: 05,2116           42131        VERBFAN            CS       LST2CON                               
010195,000931: 05,2117           60272                           AD       VERBREG                               #  VERB = LST2CON
010196,000932: 05,2120           10000                           CCS      A                                     
010197,000933: 05,2121           67763                           AD       ONE                                   #  VERB G/ LST2CON
010198,000934: 05,2122           02124                           TC       +2                                    
010199,000935: 05,2123           02133                           TC       VBFANDIR                              #  VERB L/ LST2CON
010200,000936: 05,2124           54144                           TS       MPAC                                  
010201,000937: 05,2125           04666                           TC       RELDSP                                #  RELEASE DISPLAY SYST
010202,000938: 05,2126           56144                           XCH      MPAC                                  #  ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
010203,000939: 05,2127           62132                           AD       LST2CADR                              
010204,000940: 05,2130           05230                           TC       BANKJUMP                              
010205,000941: 05,2131           00040        LST2CON            OCT      40                                    #  FIRST LST2 VERB
010206,000942: 05,2132           22000        LST2CADR           CADR     LST2FAN                               
010207,000943: 
010208,000944: 05,2133           50272        VBFANDIR           INDEX    VERBREG                               
010209,000945: 05,2134           32136                           CAF      VERBTAB                               
010210,000946: 05,2135           05230                           TC       BANKJUMP                              
010211,000947: 
010212,000948: 05,2136           12324        VERBTAB            CADR     GODSPALM                              #  VB00 ILLEGAL
010213,000949: 05,2137           12340                           CADR     DSPA                                  #  VB01 DISPLAY OCT COMP 1 (R1)
010214,000950: 05,2140           12345                           CADR     DSPB                                  #  VB02 DISPLAY OCT COMP 2 (R1)
010215,000951: 05,2141           12352                           CADR     DSPC                                  #  VB03 DISPLAY OCT COMP 3 (R1)
010216,000952: 05,2142           12333                           CADR     DSPAB                                 #  VB04 DISPLAY OCT COMP 1,2 (R1,R2)
010217,000953: 05,2143           12326                           CADR     DSPABC                                #  VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
010218,000954: 05,2144           12445                           CADR     DECDSP                                #  VB06 DECIMAL DISPLAY
010219,000955: 05,2145           10722                           CADR     DSPDPDEC                              #  VB07 DP DECIMAL DISPLAY (R1,R2)
010220,000956: 05,2146           11315                           CADR     DSPALARM                              #  VB10 SPARE
010221,000957: 05,2147           13077                           CADR     MONITOR                               #  VB11 MONITOR OCT COMP 1 (R1)
010222,000958: 05,2150           13077                           CADR     MONITOR                               #  VB12 MONITOR OCT COMP 2 (R1)
010223,000959: 05,2151           13077                           CADR     MONITOR                               #  VB13 MONITOR OCT COMP 3 (R1)
010224,000960: 05,2152           13077                           CADR     MONITOR                               #  VB14 MONITOR OCT COMP 1,2 (R1,R2)
010225,000961: 05,2153           13077                           CADR     MONITOR                               #  VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
010226,000962: 05,2154           13077                           CADR     MONITOR                               #  VB16 MONITOR DECIMAL
010227,000963: 05,2155           13077                           CADR     MONITOR                               #  VB17 MONITOR DP DEC (R1,R2)
010228,000964: 05,2156           12324                           CADR     GODSPALM                              #  VB20 SPARE
010229,000965: 05,2157           12620                           CADR     ALOAD                                 #  VB21 LOAD COMP 1 (R1)
010230,000966: 05,2160           12631                           CADR     BLOAD                                 #  VB22 LOAD COMP 2 (R2)
010231,000967: 05,2161           12646                           CADR     CLOAD                                 #  VB23 LOAD COMP 3 (R3)
010232,000968: 05,2162           12572                           CADR     ABLOAD                                #  VB24 LOAD COMP 1,2 (R1,R2)
010233,000969: 05,2163           12535                           CADR     ABCLOAD                               #  VB25 LOAD COMP 1,2,3 (R1,R2,R3)
010234,000970: 05,2164           12324                           CADR     GODSPALM                              #  VB26 SPARE
010235,000971: 05,2165           13214                           CADR     DSPFMEM                               #  VB27 FIXED MEMORY DISPLAY
010236,000972:                                                                                                  #  THE FOLLOWING VERBS MAKE NO NOUN TEST
010237,000973: 05,2166           13314        REQEXLOC           CADR     VBRQEXEC                              #  VB30 REQUEST EXECUTIVE
010238,000974: 05,2167           13340                           CADR     VBRQWAIT                              #  VB31 REQUEST WAITLIST
010239,000975: 05,2170           11343                           CADR     BUMP                                  #  VB32 C(R2) INTO R3, C(R1) INTO R2

Page 253

010241,000977: 05,2171           11326                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
010242,000978: 05,2172           11333                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
010243,000979: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
010244,000980: 05,2174           02000                           CADR     SLAP1                                 #  VB36 FRESH START
010245,000981: 05,2175           13267                           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
010246,000982: 
010247,000983:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010248,000984: 

Page 254

010250,000986:                                                                                                  #  NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
010251,000987:                                                                                                  #  TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
010252,000988:                                                                                                  #  MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
010253,000989:                                                                                                  #  MIXTEMP.
010254,000990: 
010255,000991: 05,2176           10136        MIXNOUN            CCS      NNADTEM                               
010256,000992: 05,2177           02203                           TC       +4                                    #  + IN USE
010257,000993: 05,2200           02324                           TC       GODSPALM                              #  +0 NOT IN USE
010258,000994: 05,2201           02203                           TC       +2                                    #  - IN USE
010259,000995: 05,2202           02203                           TC       +1                                    #  -0 IN USE
010260,000996: 05,2203           46306                           CS       SIX                                   
010261,000997: 05,2204           60272                           AD       VERBREG                               
010262,000998: 05,2205           00006                           EXTEND                                         
010263,000999: 05,2206           62210                           BZMF     +2                                    #  VERB L/E 6
010264,001000: 05,2207           02116                           TC       VERBFAN                               #  AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
010265,001001: 05,2210           37762                           CAF      TWO                                   
010266,001002: 05,2211           54107        MIXNN1             TS       DECOUNT                               
010267,001003: 05,2212           62235                           AD       MIXAD                                 
010268,001004: 05,2213           54135                           TS       NOUNADD                               #  SET NOUNADD TO MIXTEMP + K
010269,001005: 05,2214           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010270,001006: 05,2215           30140                           CA       IDAD1TEM                              #  OF NOUN.
010271,001007: 05,2216           54112                           TS       NOUNTEM                               
010272,001008:                                                                                                  #  TEST FOR DP (FOR OCT DISPLAY).  IF SO, GET
010273,001009:                                                                                                  #    MINOR PART ONLY.
010274,001010: 05,2217           02721                           TC       SFRUTMIX                              #  GET SF ROUT NUMBER IN A
010275,001011: 05,2220           02236                           TC       DPTEST                                
010276,001012: 05,2221           02223                           TC       MIXNN2                                #  NO DP
010277,001013: 05,2222           24112                           INCR     NOUNTEM                               #  DP GET MINOR PART
010278,001014: 05,2223           30112        MIXNN2             CA       NOUNTEM                               
010279,001015: 05,2224           74563                           MASK     LOW11                                 #  ESUBK (NO DP)  OR (ESUBK)+1    FOR DP
010280,001016: 05,2225           04523                           TC       SETEBANK                              #  SET EBANK, LEAVE EADRES IN A.
010281,001017: 05,2226           50000                           INDEX    A                                     #  PICK UP C(ESUBK)  NOT DP
010282,001018: 05,2227           30000                           CA       0                                     #  OR C((ESUBK)+1)  FOR DP MINOR PART
010283,001019: 05,2230           50135                           INDEX    NOUNADD                               
010284,001020: 05,2231           56000                           XCH      0                                     #  STORE IN MIXTEM + K
010285,001021: 05,2232           10107                           CCS      DECOUNT                               
010286,001022: 05,2233           02211                           TC       MIXNN1                                
010287,001023: 05,2234           02116                           TC       VERBFAN                               
010288,001024: 
010289,001025: 05,2235           00115        MIXAD              TC       MIXTEMP                               
010290,001026: 
010291,001027:                                                                                                  #  DPTEST        ENTER WITH SF ROUT NUMBER IN A.
010292,001028:                                                                                                  #                RETURNS TO L+1 IF NO DP.
010293,001029:                                                                                                  #                RETURNS TO L+2 IF DP.
010294,001030: 
010295,001031: 05,2236           50000        DPTEST             INDEX    A                                     
010296,001032: 05,2237           12240                           TCF      +1                                    
010297,001033: 05,2240           00002                           TC       Q                                     #  OCTAL ONLY  NO DP

Page 255

010299,001035: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
010300,001036: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
010301,001037: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
010302,001038: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
010303,001039: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
010304,001040: 05,2246           00002                           TC       Q                                     #  DPDEG  NO DP
010305,001041: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
010306,001042: 05,2250           50002        DPTEST1            INDEX    Q                                     
010307,001043: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
010308,001044: 
010309,001045: 05,2252           34527        REQDATX            CAF      R1D1                                  
010310,001046: 05,2253           12257                           TCF      REQCOM                                
010311,001047: 05,2254           34530        REQDATY            CAF      R2D1                                  
010312,001048: 05,2255           12257                           TCF      REQCOM                                
010313,001049: 05,2256           34531        REQDATZ            CAF      R3D1                                  
010314,001050: 05,2257           54270        REQCOM             TS       DSPCOUNT                              
010315,001051: 05,2260           40002                           CS       Q                                     
010316,001052: 05,2261           54304                           TS       REQRET                                
010317,001053: 05,2262           05206                           TC       BANKCALL                              
010318,001054: 05,2263           10514                           CADR     5BLANK                                
010319,001055: 05,2264           04622                           TC       FLASHON                               
010320,001056: 05,2265           44505                           CS       ENDINST                               
010321,001057: 05,2266           60126                           AD       ENTEXIT                               
010322,001058: 05,2267           00006                           EXTEND                                         
010323,001059: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010324,001060: 05,2271           47767                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010325,001061: 05,2272           54327                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010326,001062: 05,2273           00126        ENDRQDAT           TC       ENTEXIT                               
010327,001063: 
010328,001064:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010329,001065:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010330,001066: 
010331,001067: 05,2274           54273                           TS       NOUNREG                               
010332,001068: 05,2275           56002        UPDATNN            XCH      Q                                     
010333,001069: 05,2276           54107                           TS       UPDATRET                              
010334,001070: 05,2277           00006                           EXTEND                                         
010335,001071: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010336,001072: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
010337,001073: 05,2302           10136                           CCS      NNADTEM                               
010338,001074: 05,2303           67763                           AD       ONE                                   #  NORMAL
010339,001075: 05,2304           12307                           TCF      PUTADD                                
010340,001076: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
010341,001077: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
010342,001078: 05,2307           04513        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB. NOUNADD.
010343,001079: 05,2310           34566                           CAF      ND1                                   
010344,001080: 05,2311           54270                           TS       DSPCOUNT                              

Page 256

010346,001082: 05,2312           30273                           CA       NOUNREG                               
010347,001083: 05,2313           12322                           TCF      UPDAT1                                
010348,001084: 
010349,001085: 05,2314           54272                           TS       VERBREG                               
010350,001086: 05,2315           56002        UPDATVB            XCH      Q                                     
010351,001087: 05,2316           54107                           TS       UPDATRET                              
010352,001088: 05,2317           34565                           CAF      VD1                                   
010353,001089: 05,2320           54270                           TS       DSPCOUNT                              
010354,001090: 05,2321           30272                           CA       VERBREG                               
010355,001091: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
010356,001092: 05,2323           00107                           TC       UPDATRET                              
010357,001093: 
010358,001094: 05,2324           05225        GODSPALM           TC       POSTJUMP                              
010359,001095: 05,2325           11315                           CADR     DSPALARM                              
010360,001096: 

Page 257

010362,001098:                                                                                                  #  NOUN TABLES
010363,001099: 
010364,001100:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
010365,001101:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
010366,001102:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
010367,001103:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010368,001104:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
010369,001105: 
010370,001106:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010371,001107:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010372,001108: 
010373,001109:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010374,001110: 
010375,001111:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
010376,001112:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
010377,001113:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
010378,001114: 
010379,001115:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
010380,001116:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
010381,001117:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010382,001118:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
010383,001119:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010384,001120:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER     1 COMPONENT CASE
010385,001121: 
010386,001122:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010387,001123:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
010388,001124:                                                                                                  #  THE FIRST OF THESE ENTRIES.
010389,001125:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010390,001126:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
010391,001127: 
010392,001128:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010393,001129:                                                                                                  #  CASE ONLY.  THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010394,001130:                                                                                                  #        QQQQQRRRRRSSSSS
010395,001131:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER      3 COMPONENT CASE
010396,001132:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
010397,001133:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010398,001134:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER      2 COMPONENT CASE
010399,001135:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010400,001136: 
010401,001137: 
010402,001138:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010403,001139:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010404,001140:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010405,001141:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010406,001142:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
010407,001143: 
010408,001144: 
010409,001145:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010410,001146:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.

Page 258

010412,001148: 
010413,001149:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010414,001150:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
010415,001151: 

Page 259

010417,001153:                                                                                                  #  DISPLAY VERBS
010418,001154: 
010419,001155: 05,2326           47762        DSPABC             CS       TWO                                   
010420,001156: 05,2327           02376                           TC       COMPTEST                              
010421,001157: 05,2330           50135                           INDEX    NOUNADD                               
010422,001158: 05,2331           40002                           CS       2                                     
010423,001159: 05,2332           56122                           XCH      BUF        +2                         
010424,001160: 05,2333           47763        DSPAB              CS       ONE                                   
010425,001161: 05,2334           02376                           TC       COMPTEST                              
010426,001162: 05,2335           50135                           INDEX    NOUNADD                               
010427,001163: 05,2336           40001                           CS       1                                     
010428,001164: 05,2337           56121                           XCH      BUF        +1                         
010429,001165: 05,2340           02420        DSPA               TC       TSTFORDP                              
010430,001166: 05,2341           50135                           INDEX    NOUNADD                               
010431,001167: 05,2342           40000                           CS       0                                     
010432,001168: 05,2343           56120        DSPCOM1            XCH      BUF                                   
010433,001169: 05,2344           02357                           TC       DSPCOM2                               
010434,001170: 05,2345           47763        DSPB               CS       ONE                                   
010435,001171: 05,2346           02376                           TC       COMPTEST                              
010436,001172: 05,2347           50135                           INDEX    NOUNADD                               
010437,001173: 05,2350           40001                           CS       1                                     
010438,001174: 05,2351           02343                           TC       DSPCOM1                               
010439,001175: 05,2352           47762        DSPC               CS       TWO                                   
010440,001176: 05,2353           02376                           TC       COMPTEST                              
010441,001177: 05,2354           50135                           INDEX    NOUNADD                               
010442,001178: 05,2355           40002                           CS       2                                     
010443,001179: 05,2356           02343                           TC       DSPCOM1                               
010444,001180: 05,2357           47762        DSPCOM2            CS       TWO                                   #  A  B  C  AB ABC
010445,001181: 05,2360           60272                           AD       VERBREG                               #  -1 -0 +1 +2 +3   IN A
010446,001182: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1 +2    IN A AFTER CCS
010447,001183: 05,2362           02365                           TC       DSPCOM3                               
010448,001184: 05,2363           00126                           TC       ENTEXIT                               
010449,001185: 05,2364           02365                           TC       +1                                    
010450,001186: 05,2365           54112        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
010451,001187: 05,2366           50000                           INDEX    A                                     
010452,001188: 05,2367           34527                           CAF      R1D1                                  
010453,001189: 05,2370           54270                           TS       DSPCOUNT                              
010454,001190: 05,2371           50112                           INDEX    DISTEM                                
010455,001191: 05,2372           40120                           CS       BUF                                   
010456,001192: 05,2373           03222                           TC       DSPOCTWD                              
010457,001193: 05,2374           56112                           XCH      DISTEM                                
010458,001194: 05,2375           02361                           TC       DSPCOM2    +2                         
010459,001195: 
010460,001196:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010461,001197:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010462,001198:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
010463,001199: 05,2376           54113        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
010464,001200: 05,2377           22002                           LXCH     Q                                     
010465,001201: 05,2400           47763        COMPTST1           CS       ONE                                   
010466,001202: 05,2401           60273                           AD       NOUNREG                               
010467,001203: 05,2402           00006                           EXTEND                                         

Page 260

010469,001205: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
010470,001206: 05,2404           50130                           INDEX    MIXBR                                 #  NOUN NOT = 01.
010471,001207: 05,2405           32442                           CAF      COMPICK    -1                         
010472,001208: 05,2406           50000                           INDEX    A                                     
010473,001209: 05,2407           30000                           CA       0                                     
010474,001210: 05,2410           74560                           MASK     HI5                                   
010475,001211: 05,2411           04541                           TC       LEFT5                                 #  NOUN COMP
010476,001212: 05,2412           60113                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
010477,001213: 05,2413           10000                           CCS      A                                     
010478,001214: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
010479,001215: 05,2415           04736                           TC       CCSHOLE                               
010480,001216: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
010481,001217: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
010482,001218: 
010483,001219: 
010484,001220: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
010485,001221: 05,2421           30136                           CA       NNADTEM                               
010486,001222: 05,2422           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010487,001223: 05,2423           00006                           EXTEND                                         
010488,001224: 05,2424           12436                           BZF      CHANDSP                               
010489,001225: 05,2425           50130                           INDEX    MIXBR                                 
010490,001226: 05,2426           02426                           TC       +0                                    
010491,001227: 05,2427           02431                           TC       +2                                    #  NORMAL
010492,001228: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
010493,001229: 05,2431           02713                           TC       SFRUTNOR                              
010494,001230: 05,2432           02236                           TC       DPTEST                                
010495,001231: 05,2433           00001                           TC       L                                     #  NO DP
010496,001232: 05,2434           24135                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
010497,001233: 05,2435           00001                           TC       L                                     
010498,001234: 
010499,001235: 05,2436           00006        CHANDSP            EXTEND                                         
010500,001236: 05,2437           50310                           INDEX    NOUNCADR                              
010501,001237: 05,2440           00000                           READ     0                                     
010502,001238: 05,2441           40000                           CS       A                                     
010503,001239: 05,2442           12343                           TCF      DSPCOM1                               
010504,001240: 
010505,001241: 
010506,001242: 05,2443           00137        COMPICK            ADRES    NNTYPTEM                              
010507,001243: 05,2444           00136                           ADRES    NNADTEM                               
010508,001244: 
010509,001245: 05,2445           50130        DECDSP             INDEX    MIXBR                                 #  NORMAL                 MIXED
010510,001246: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM         ADRES NNADTEM
010511,001247: 05,2447           50000                           INDEX    A                                     
010512,001248: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)            C(NNADTEM)
010513,001249: 05,2451           74560                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB (NORM)OF NNADTAB (MIX)
010514,001250: 05,2452           04541                           TC       LEFT5                                 

Page 261

010516,001252: 
010517,001253: 05,2453           54107                           TS       DECOUNT                               #  COMP NUMBER INTO DECOUNT
010518,001254: 05,2454           54112        DSPDCGET           TS       DECTEM                                #  PICKS UP DATA
010519,001255: 05,2455           60135                           AD       NOUNADD                               #  DECTEM  1COMP +0, 2COMP +1, 3COMP +2
010520,001256: 05,2456           50000                           INDEX    A                                     
010521,001257: 05,2457           40000                           CS       0                                     
010522,001258: 05,2460           50112                           INDEX    DECTEM                                
010523,001259: 05,2461           56274                           XCH      XREG                                  #  CANT USE BUF SINCE DMP USES IT.
010524,001260: 05,2462           10112                           CCS      DECTEM                                
010525,001261: 05,2463           02454                           TC       DSPDCGET                              #  MORE TO GET
010526,001262: 05,2464           37767        DSPDCPUT           CAF      ZERO                                  #  DISPLAYS DATA
010527,001263: 05,2465           54145                           TS       MPAC       +1                         #  DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
010528,001264: 05,2466           54146                           TS       MPAC       +2                         
010529,001265: 05,2467           50107                           INDEX    DECOUNT                               
010530,001266: 05,2470           34527                           CAF      R1D1                                  
010531,001267: 05,2471           54270                           TS       DSPCOUNT                              
010532,001268: 05,2472           50107                           INDEX    DECOUNT                               
010533,001269: 05,2473           40274                           CS       XREG                                  
010534,001270: 05,2474           54144                           TS       MPAC                                  
010535,001271: 05,2475           02734                           TC       SFCONUM                               #  2X( SF CON NUMB ) IN A
010536,001272: 05,2476           54113                           TS       SFTEMP1                               
010537,001273: 05,2477           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010538,001274: 05,2500           32512                           DCA      GTSFOUTL                              #     READING ROUTINE.
010539,001275: 05,2501           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010540,001276: 05,2502           50130                           INDEX    MIXBR                                 
010541,001277: 05,2503           02503                           TC       +0                                    
010542,001278: 05,2504           02507                           TC       DSPSFNOR                              
010543,001279: 05,2505           02721                           TC       SFRUTMIX                              
010544,001280: 05,2506           02522                           TC       DECDSP3                               
010545,001281: 
010546,001282: 05,2507           02713        DSPSFNOR           TC       SFRUTNOR                              
010547,001283: 05,2510           02522                           TC       DECDSP3                               
010548,001284: 
010549,001285: 05,2511     0270                                  EBANK=   DSPCOUNT                              
010550,001286: 05,2511           02037 46060  GTSFOUTL           2CADR    GTSFOUT                               
010551,001287: 
010552,001288: 
010553,001289: 05,2513           05206        DSPDCEND           TC       BANKCALL                              #  ALL SFOUT ROUTINES END HERE
010554,001290: 05,2514           11117                           CADR     DSPDECWD                              
010555,001291: 05,2515           10107                           CCS      DECOUNT                               
010556,001292: 05,2516           02520                           TC       +2                                    
010557,001293: 05,2517           00126                           TC       ENTEXIT                               
010558,001294: 05,2520           54107                           TS       DECOUNT                               
010559,001295: 05,2521           02464                           TC       DSPDCPUT                              #  MORE TO DISPLAY
010560,001296: 
010561,001297: 05,2522           50000        DECDSP3            INDEX    A                                     
010562,001298: 05,2523           32525                           CAF      SFOUTABR                              
010563,001299: 05,2524           05230                           TC       BANKJUMP                              
010564,001300: 

Page 262

010566,001302: 05,2525           11315        SFOUTABR           CADR     DSPALARM                              #  ALARM IF DEC DISP WITH OCTAL ONLY NOUN
010567,001303: 05,2526           12513                           CADR     DSPDCEND                              
010568,001304: 05,2527           10573                           CADR     DEGOUTSF                              
010569,001305: 05,2530           10660                           CADR     ARTOUTSF                              
010570,001306: 05,2531           10665                           CADR     DP1OUTSF                              
010571,001307: 05,2532           10672                           CADR     DP2OUTSF                              
010572,001308: 05,2533           10601                           CADR     OPDEGOUT                              
010573,001309: 05,2534           10674                           CADR     DP3OUTSF                              
010574,001310: 05,2535                        ENDRTOUT           EQUALS                                         
010575,001311: 
010576,001312:                                                                                                  #          THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
010577,001313:                                                                                                  #  LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
010578,001314: 
010579,001315: 04,2573                                           SETLOC   BLANKCON   +1                         
010580,001316: 
010581,001317:                                                                                                  #     DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
010582,001318:                                                                                                  #  NUMBERS IN THE NEGATIVE (AGC) RANGE.
010583,001319: 
010584,001320: 04,2573           37767        DEGOUTSF           CAF      ZERO                                  
010585,001321: 04,2574           54146                           TS       MPAC       +2                         #  SET INDEX FOR FULL SCALE
010586,001322: 04,2575           02632                           TC       FIXRANGE                              
010587,001323: 04,2576           02600                           TC       +2                                    #  NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
010588,001324: 04,2577           02625                           TC       SETAUG                                #  SET AUGMENTER ACCORDING TO C(MPAC +2)
010589,001325: 04,2600           02643                           TC       DEGCOM                                
010590,001326: 
010591,001327:                                                                                                  #  OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
010592,001328: 
010593,001329: 04,2601           10144        OPDEGOUT           CCS      MPAC                                  #  RANGE IS 90 DEG
010594,001330: 04,2602           56144                           XCH      MPAC                                  #  IF POS OR POS 0 THEN ADD BIAS AND
010595,001331: 04,2603           02606                           TC       +3                                    #  CORRECT FOR POSSIBLE OVERFLOW
010596,001332: 04,2604           02615                           TC       NEGOPT                                #  IF NEG NON ZERO
010597,001333: 04,2605           67771                           AD       NEG1                                  #  IF NEG ZERO SUBTRACT 1
010598,001334: 04,2606           62657                           AD       20BIAS                                
010599,001335: 04,2607           54144        BIASCOM            TS       MPAC                                  #  TEST FOR OVERFLOW
010600,001336: 04,2610           02613                           TC       +3                                    #  NO OVFLOW
010601,001337: 04,2611           37745                           CAF      BIT15                                 #  IF OVFLOW
010602,001338: 04,2612           26144                           ADS      MPAC                                  
010603,001339: 04,2613           37762                           CAF      TWO                                   #  SET MULTIPLIER TO .45
010604,001340: 04,2614           02574                           TC       DEGOUTSF   +1                         
010605,001341: 
010606,001342: 04,2615           56144        NEGOPT             XCH      MPAC                                  #  NEGATIVE CASE
010607,001343: 04,2616           62657                           AD       20BIAS                                
010608,001344: 04,2617           10000                           CCS      A                                     
010609,001345: 04,2620           02607                           TC       BIASCOM                               #  IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
010610,001346: 04,2621           04736                           TC       CCSHOLE                               
010611,001347: 04,2622           67763                           AD       ONE                                   #  IF NEG RESTORE SUM
010612,001348: 

Page 263

010614,001350: 04,2623           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
010615,001351: 04,2624           02607                           TC       BIASCOM                               
010616,001352: 
010617,001353: 04,2625           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
010618,001354: 04,2626           50146                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
010619,001355: 04,2627           32654                           DCA      DEGTAB                                
010620,001356: 04,2630           52114                           DXCH     SFTEMP1                               
010621,001357: 04,2631           00002                           TC       Q                                     
010622,001358: 
010623,001359: 04,2632           10144        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
010624,001360: 04,2633           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
010625,001361: 04,2634           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
010626,001362: 04,2635           12636                           TCF      +1                                    
010627,001363: 04,2636           47745                           CS       BIT15                                 
010628,001364: 04,2637           70144                           MASK     MPAC                                  
010629,001365: 04,2640           54144                           TS       MPAC                                  
010630,001366: 04,2641           50002                           INDEX    Q                                     
010631,001367: 04,2642           00001                           TC       1                                     
010632,001368: 
010633,001369: 04,2643           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER, DOES SHORTMP, AND
010634,001370: 04,2644           50146                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
010635,001371: 04,2645           32654                           DCA      DEGTAB                                
010636,001372: 04,2646           52145                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
010637,001373: 04,2647           07357                           TC       SHORTMP                               
010638,001374: 04,2650           52114                           DXCH     SFTEMP1                               
010639,001375: 04,2651           20145                           DAS      MPAC                                  
010640,001376: 04,2652           02663                           TC       SCOUTEND                              
010641,001377: 
010642,001378: 
010643,001379: 04,2653           05605        DEGTAB             OCT      05605                                 #  HI PART OF    .18
010644,001380: 04,2654           03656                           OCT      03656                                 #  LOW PART OF   .18
010645,001381: 04,2655           16314                           OCT      16314                                 #  HI PART OF    .45
010646,001382: 04,2656           31463                           OCT      31463                                 #  LO PART OF    .45
010647,001383: 
010648,001384: 04,2657           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
010649,001385: 
010650,001386: 04,2660           52114        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
010651,001387: 04,2661           52145                           DXCH     MPAC                                  
010652,001388: 04,2662           07357                           TC       SHORTMP                               
010653,001389: 04,2663           05225        SCOUTEND           TC       POSTJUMP                              
010654,001390: 04,2664           12513                           CADR     DSPDCEND                              
010655,001391: 
010656,001392: 04,2665           02677        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010657,001393: 04,2666           56146                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
010658,001394: 04,2667           56145                           XCH      MPAC       +1                         #  BY B14.
010659,001395: 04,2670           54144                           TS       MPAC                                  
010660,001396: 04,2671           02663                           TC       SCOUTEND                              

Page 264

010662,001398: 
010663,001399: 04,2672           02677        DP2OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010664,001400: 04,2673           02663                           TC       SCOUTEND                              
010665,001401: 
010666,001402: 
010667,001403: 04,2674           02677        DP3OUTSF           TC       DPOUT                                 #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
010668,001404: 04,2675           03072                           TC       TPLEFT7                               #  PART OF SFCON. SHIFTS RESULTS LEFT 7.
010669,001405: 04,2676           02663                           TC       SCOUTEND                              
010670,001406: 
010671,001407:                                                                                                  #  DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
010672,001408:                                                                                                  #  THIS IS NEEDED FOR TIME DISPLAY.
010673,001409: 
010674,001410: 04,2677           56002        DPOUT              XCH      Q                                     
010675,001411: 04,2700           54111                           TS       OVFIND                                
010676,001412: 04,2701           50130                           INDEX    MIXBR                                 
010677,001413: 04,2702           02702                           TC       +0                                    
010678,001414: 04,2703           02720                           TC       DPOUTNOR                              
010679,001415: 04,2704           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010680,001416: 04,2705           30140                           CA       IDAD1TEM                              #      OF NOUN.
010681,001417: 04,2706           74563                           MASK     LOW11                                 #  E SUBK
010682,001418: 04,2707           04523                           TC       SETEBANK                              #  SET EB, LEAVE EADRES IN A.
010683,001419: 04,2710           00006        DPOUTCOM           EXTEND                                         
010684,001420: 04,2711           50000                           INDEX    A                                     #  MIXED         NORMAL
010685,001421: 04,2712           30001                           DCA      0                                     #  C(ESUBK)      C(E)
010686,001422: 04,2713           52145                           DXCH     MPAC                                  #  C((E SUBK)+1)      C(E+1)
010687,001423: 04,2714           07327                           TC       TPAGREE                               
010688,001424: 04,2715           07155                           TC       DMP                                   
010689,001425: 04,2716           00113                           ADRES    SFTEMP1                               
010690,001426: 04,2717           00111                           TC       OVFIND                                
010691,001427: 
010692,001428: 04,2720           30135        DPOUTNOR           CA       NOUNADD                               #  E
010693,001429: 04,2721           02710                           TC       DPOUTCOM                              
010694,001430: 
010695,001431: 
010696,001432:                                                                                                  #  THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
010697,001433:                                                                                                  #  WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL.  IT CAN BE USED WITH
010698,001434:                                                                                                  #  ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
010699,001435:                                                                                                  #  OF THE REGISTER NOUNADD IS POINTING TO .  IF USED WITH NOUNS WHICH ARE
010700,001436:                                                                                                  #  INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
010701,001437:                                                                                                  #  DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
010702,001438: 
010703,001439: 
010704,001440: 04,2722           50130        DSPDPDEC           INDEX    MIXBR                                 
010705,001441: 04,2723           02723                           TC       +0                                    
010706,001442: 04,2724           02726                           TC       +2                                    #  NORMAL NOUN
010707,001443: 04,2725           03315                           TC       DSPALARM                              
010708,001444: 

Page 265

010710,001446: 04,2726           00006                           EXTEND                                         
010711,001447: 04,2727           50135                           INDEX    NOUNADD                               
010712,001448: 04,2730           30001                           DCA      0                                     
010713,001449: 04,2731           52145                           DXCH     MPAC                                  
010714,001450: 04,2732           34527                           CAF      R1D1                                  
010715,001451: 04,2733           54270                           TS       DSPCOUNT                              
010716,001452: 04,2734           37767                           CAF      ZERO                                  
010717,001453: 04,2735           54146                           TS       MPAC       +2                         
010718,001454: 04,2736           07327                           TC       TPAGREE                               
010719,001455: 04,2737           03173                           TC       DSP2DEC                               
010720,001456: 04,2740           00126        ENDDPDEC           TC       ENTEXIT                               
010721,001457: 

Page 266

010723,001459:                                                                                                  #  LOAD VERBS
010724,001460: 
010725,001461: 
010726,001462: 05,2535                                           SETLOC   ENDRTOUT                              
010727,001463: 
010728,001464: 05,2535           47762        ABCLOAD            CS       TWO                                   
010729,001465: 05,2536           02376                           TC       COMPTEST                              
010730,001466: 05,2537           32673                           CAF      VBSP1LD                               
010731,001467: 05,2540           02314                           TC       UPDATVB    -1                         
010732,001468: 05,2541           02252                           TC       REQDATX                               
010733,001469: 05,2542           32674                           CAF      VBSP2LD                               
010734,001470: 05,2543           02314                           TC       UPDATVB    -1                         
010735,001471: 05,2544           02254                           TC       REQDATY                               
010736,001472: 05,2545           32675                           CAF      VBSP3LD                               
010737,001473: 05,2546           02314                           TC       UPDATVB    -1                         
010738,001474: 05,2547           02256                           TC       REQDATZ                               
010739,001475: 
010740,001476: 
010741,001477: 05,2550           46306        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
010742,001478: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010743,001479: 05,2552           00006                           EXTEND                                         
010744,001480: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010745,001481: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
010746,001482: 05,2555           37767                           CAF      ZERO                                  #  X COMP
010747,001483: 05,2556           02762                           TC       PUTCOM                                
010748,001484: 05,2557           50135                           INDEX    NOUNADD                               
010749,001485: 05,2560           54000                           TS       0                                     
010750,001486: 05,2561           37763                           CAF      ONE                                   #  Y COMP
010751,001487: 05,2562           02762                           TC       PUTCOM                                
010752,001488: 05,2563           50135                           INDEX    NOUNADD                               
010753,001489: 05,2564           54001                           TS       1                                     
010754,001490: 05,2565           37762                           CAF      TWO                                   #  Z COMP
010755,001491: 05,2566           02762                           TC       PUTCOM                                
010756,001492: 05,2567           50135                           INDEX    NOUNADD                               
010757,001493: 05,2570           54002                           TS       2                                     
010758,001494: 05,2571           02663                           TC       LOADLV                                
010759,001495: 
010760,001496: 05,2572           47763        ABLOAD             CS       ONE                                   
010761,001497: 05,2573           02376                           TC       COMPTEST                              
010762,001498: 05,2574           32673                           CAF      VBSP1LD                               
010763,001499: 05,2575           02314                           TC       UPDATVB    -1                         
010764,001500: 05,2576           02252                           TC       REQDATX                               
010765,001501: 05,2577           32674                           CAF      VBSP2LD                               
010766,001502: 05,2600           02314                           TC       UPDATVB    -1                         
010767,001503: 05,2601           02254                           TC       REQDATY                               
010768,001504: 05,2602           47766        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
010769,001505: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010770,001506: 05,2604           00006                           EXTEND                                         

Page 267

010772,001508: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010773,001509: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
010774,001510: 05,2607           37767                           CAF      ZERO                                  #  X COMP
010775,001511: 05,2610           02762                           TC       PUTCOM                                
010776,001512: 05,2611           50135                           INDEX    NOUNADD                               
010777,001513: 05,2612           54000                           TS       0                                     
010778,001514: 05,2613           37763                           CAF      ONE                                   #  Y COMP
010779,001515: 05,2614           02762                           TC       PUTCOM                                
010780,001516: 05,2615           50135                           INDEX    NOUNADD                               
010781,001517: 05,2616           54001                           TS       1                                     
010782,001518: 05,2617           02663                           TC       LOADLV                                
010783,001519: 
010784,001520: 05,2620           02252        ALOAD              TC       REQDATX                               
010785,001521: 05,2621           00006                           EXTEND                                         
010786,001522: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010787,001523: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
010788,001524: 05,2624           37767                           CAF      ZERO                                  #  X COMP
010789,001525: 05,2625           02762                           TC       PUTCOM                                
010790,001526: 05,2626           50135                           INDEX    NOUNADD                               
010791,001527: 05,2627           54000                           TS       0                                     
010792,001528: 05,2630           02663                           TC       LOADLV                                
010793,001529: 
010794,001530: 05,2631           47763        BLOAD              CS       ONE                                   
010795,001531: 05,2632           02376                           TC       COMPTEST                              
010796,001532: 05,2633           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010797,001533: 05,2634           54306                           TS       CLPASS                                
010798,001534: 05,2635           02254                           TC       REQDATY                               
010799,001535: 05,2636           00006                           EXTEND                                         
010800,001536: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010801,001537: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
010802,001538: 05,2641           37763                           CAF      ONE                                   
010803,001539: 05,2642           02762                           TC       PUTCOM                                
010804,001540: 05,2643           50135                           INDEX    NOUNADD                               
010805,001541: 05,2644           54001                           TS       1                                     
010806,001542: 05,2645           02663                           TC       LOADLV                                
010807,001543: 
010808,001544: 05,2646           47762        CLOAD              CS       TWO                                   
010809,001545: 05,2647           02376                           TC       COMPTEST                              
010810,001546: 05,2650           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010811,001547: 05,2651           54306                           TS       CLPASS                                
010812,001548: 05,2652           02256                           TC       REQDATZ                               
010813,001549: 05,2653           00006                           EXTEND                                         
010814,001550: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010815,001551: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
010816,001552: 05,2656           37762                           CAF      TWO                                   
010817,001553: 05,2657           02762                           TC       PUTCOM                                
010818,001554: 05,2660           50135                           INDEX    NOUNADD                               
010819,001555: 05,2661           54002                           TS       2                                     
010820,001556: 05,2662           02663                           TC       LOADLV                                
010821,001557: 

Page 268

010823,001559: 05,2663           37767        LOADLV             CAF      ZERO                                  
010824,001560: 05,2664           54271                           TS       DECBRNCH                              
010825,001561: 05,2665           47767                           CS       ZERO                                  
010826,001562: 05,2666           54305                           TS       LOADSTAT                              
010827,001563: 05,2667           44565                           CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS AND
010828,001564: 05,2670           54270                           TS       DSPCOUNT                              #  CLEARS AFTER A COMPLETED LOAD
010829,001565: 05,2671           05225                           TC       POSTJUMP                              #  AFTER COMPLETED LOAD, GO TO RECALTST
010830,001566: 05,2672           11440                           CADR     RECALTST                              #  TO SEE IF THERE IS RECALL FROM ENDIDLE.
010831,001567: 
010832,001568: 05,2673           00021        VBSP1LD            OCT      21                                    #  VB21 = ALOAD
010833,001569: 05,2674           00022        VBSP2LD            OCT      22                                    #  VB22 = BLOAD
010834,001570: 05,2675           00023        VBSP3LD            OCT      23                                    #  VB23 = CLOAD
010835,001571: 
010836,001572: 05,2676           54107        ALLDC/OC           TS       DECOUNT                               #  TESTS THAT DATA WORDS LOADED ARE EITHER
010837,001573: 05,2677           40271                           CS       DECBRNCH                              #  ALL DEC OR ALL OCT. ALARMS IF NOT.
010838,001574: 05,2700           54021                           TS       SR                                    
010839,001575: 05,2701           40021                           CS       SR                                    
010840,001576: 05,2702           40021                           CS       SR                                    #  SHIFTED RIGHT 2
010841,001577: 05,2703           10000                           CCS      A                                     #  DEC COMP BITS IN LOW 3
010842,001578: 05,2704           12706                           TCF      +2                                    #  SOME ONES IN LOW 3
010843,001579: 05,2705           00002                           TC       Q                                     #  ALL ZEROS. ALL OCTAL.  OK
010844,001580: 05,2706           60107                           AD       DECOUNT                               #  DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
010845,001581: 05,2707           00006                           EXTEND                                         #  (BUT IT HAS BEEN DECREMENTED BY CCS)
010846,001582: 05,2710           12712                           BZF      +2                                    #  MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
010847,001583: 05,2711           02324                           TC       GODSPALM                              
010848,001584: 05,2712           00002        GOQ                TC       Q                                     #  ALL REQUIRED ARE DEC.  OK
010849,001585: 
010850,001586: 05,2713           56002        SFRUTNOR           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR NORMAL CASE
010851,001587: 05,2714           54104                           TS       EXITEM                                #  CANT USE L FOR RETURN. TSTFORDP USES L.
010852,001588: 05,2715           34557                           CAF      MID5                                  
010853,001589: 05,2716           70137                           MASK     NNTYPTEM                              
010854,001590: 05,2717           04532                           TC       RIGHT5                                
010855,001591: 05,2720           00104                           TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010856,001592: 
010857,001593: 05,2721           56002        SFRUTMIX           XCH      Q                                     #  GETS SF ROUTINE NUMBER FOR MIXED CASE
010858,001594: 05,2722           54104                           TS       EXITEM                                
010859,001595: 05,2723           50107                           INDEX    DECOUNT                               
010860,001596: 05,2724           32753                           CAF      DISPLACE                              #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010861,001597: 05,2725           54001                           TS       L                                     
010862,001598: 05,2726           50107                           INDEX    DECOUNT                               
010863,001599: 05,2727           34556                           CAF      LOW5                                  #  LOW5, MID5, OR HI5 IN A
010864,001600: 05,2730           70143                           MASK     RUTMXTEM                              #  GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
010865,001601: 05,2731           50001                           INDEX    L                                     
010866,001602: 05,2732           00000                           TC       0                                     
010867,001603:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010868,001604: 05,2733           00104        SFRET1             TC       EXITEM                                #  SF ROUTINE NUMBER IN A
010869,001605: 

Page 269

010871,001607: 05,2734           56002        SFCONUM            XCH      Q                                     #  GETS 2X(SF CONSTANT NUMBER)
010872,001608: 05,2735           54104                           TS       EXITEM                                
010873,001609: 05,2736           50130                           INDEX    MIXBR                                 
010874,001610: 05,2737           02737                           TC       +0                                    
010875,001611: 05,2740           02756                           TC       CONUMNOR                              #  NORMAL NOUN
010876,001612: 05,2741           50107                           INDEX    DECOUNT                               #  MIXED NOUN
010877,001613: 05,2742           32753                           CAF      DISPLACE                              
010878,001614: 05,2743           54001                           TS       L                                     #  PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
010879,001615: 05,2744           50107                           INDEX    DECOUNT                               
010880,001616: 05,2745           34556                           CAF      LOW5                                  
010881,001617: 05,2746           70137                           MASK     NNTYPTEM                              
010882,001618: 05,2747           50001                           INDEX    L                                     
010883,001619: 05,2750           00000                           TC       0                                     
010884,001620:                                                                                                  #  DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
010885,001621: 05,2751           60000        SFRET              DOUBLE                                         #  2X(SF CONSTANT NUMBER ) IN A
010886,001622: 05,2752           00104                           TC       EXITEM                                
010887,001623: 
010888,001624: 05,2753           02712        DISPLACE           TC       GOQ                                   
010889,001625: 05,2754           04532                           TC       RIGHT5                                
010890,001626: 05,2755           04541                           TC       LEFT5                                 
010891,001627: 
010892,001628: 05,2756           34556        CONUMNOR           CAF      LOW5                                  #  NORMAL NOUN ALWAYS GETS LOW 5 OF
010893,001629: 05,2757           70137                           MASK     NNTYPTEM                              #  NNTYPTAB FOR SF CONUM.
010894,001630: 05,2760           60000                           DOUBLE                                         
010895,001631: 05,2761           00104                           TC       EXITEM                                #  2X(SF CONSTANT NUMBER) IN A
010896,001632: 
010897,001633: 
010898,001634: 05,2762           54107        PUTCOM             TS       DECOUNT                               
010899,001635: 05,2763           56002                           XCH      Q                                     
010900,001636: 05,2764           54105                           TS       DECRET                                
010901,001637: 05,2765           37767                           CAF      ZERO                                  
010902,001638: 05,2766           54111                           TS       OVFIND                                
010903,001639: 05,2767           50107                           INDEX    DECOUNT                               
010904,001640: 05,2770           56277                           XCH      XREGLP                                
010905,001641: 05,2771           54145                           TS       MPAC       +1                         
010906,001642: 05,2772           50107                           INDEX    DECOUNT                               
010907,001643: 05,2773           56274                           XCH      XREG                                  
010908,001644: 05,2774           54144                           TS       MPAC                                  
010909,001645: 05,2775           50130                           INDEX    MIXBR                                 
010910,001646: 05,2776           02776                           TC       +0                                    
010911,001647: 05,2777           03023                           TC       PUTNORM                               #  NORMAL NOUN
010912,001648:                                                                                                  #  IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
010913,001649: 05,3000           50107                           INDEX    DECOUNT                               #  GET IDADDTAB ENTRY FOR COMPONENT K
010914,001650: 05,3001           30140                           CA       IDAD1TEM                              #          OF NOUN.
010915,001651: 05,3002           74563                           MASK     LOW11                                 #  (ECADR)SUBK FOR CURRENT COMP OF NOUN
010916,001652: 05,3003           04513                           TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010917,001653: 05,3004           00006                           EXTEND                                         #  C(NOUNADD) IN A UPON RETURN
010918,001654: 05,3005           60107                           SU       DECOUNT                               #  PLACE (ESUBK)-K INTO NOUNADD
010919,001655: 05,3006           54135                           TS       NOUNADD                               

Page 270

010921,001657: 05,3007           10271                           CCS      DECBRNCH                              
010922,001658: 05,3010           03051                           TC       PUTDECSF                              #  + DEC
010923,001659: 05,3011           02721                           TC       SFRUTMIX                              #  +0 OCTAL
010924,001660: 05,3012           02236                           TC       DPTEST                                
010925,001661: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
010926,001662:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010927,001663:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
010928,001664:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
010929,001665: 05,3014           24135        PUTDPCOM           INCR     NOUNADD                               #  DP (ESUBK)-K+1  OR  E+1
010930,001666: 05,3015           30135                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
010931,001667: 05,3016           26107                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
010932,001668: 05,3017           37767                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
010933,001669: 05,3020           50107                           INDEX    DECOUNT                               
010934,001670: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
010935,001671: 05,3022           03040                           TC       PUTCOM2                               
010936,001672: 
010937,001673: 05,3023           04521        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010938,001674: 05,3024           10271                           CCS      DECBRNCH                              
010939,001675: 05,3025           03051                           TC       PUTDECSF                              #  + DEC
010940,001676: 05,3026           02713                           TC       SFRUTNOR                              #  +0 OCTAL
010941,001677: 05,3027           02236                           TC       DPTEST                                
010942,001678: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
010943,001679: 05,3031           37767                           CAF      ZERO                                  #  DP
010944,001680: 05,3032           54107                           TS       DECOUNT                               
010945,001681: 05,3033           03014                           TC       PUTDPCOM                              
010946,001682: 
010947,001683: 05,3034           30136                           CA       NNADTEM                               
010948,001684: 05,3035           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010949,001685: 05,3036           00006                           EXTEND                                         
010950,001686: 05,3037           13044                           BZF      CHANLOAD                              
010951,001687: 05,3040           56144        PUTCOM2            XCH      MPAC                                  
010952,001688: 05,3041           00105                           TC       DECRET                                
010953,001689: 
010954,001690: 05,3042     0270                                  EBANK=   DSPCOUNT                              
010955,001691: 05,3042           02045 46060  GTSFINLC           2CADR    GTSFIN                                
010956,001692: 
010957,001693: 
010958,001694: 05,3044           56144        CHANLOAD           XCH      MPAC                                  
010959,001695: 05,3045           00006                           EXTEND                                         
010960,001696: 05,3046           50310                           INDEX    NOUNCADR                              
010961,001697: 05,3047           01000                           WRITE    0                                     
010962,001698: 05,3050           02663                           TC       LOADLV                                
010963,001699: 
010964,001700:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010965,001701: 
010966,001702: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
010967,001703: 05,3052           54113                           TS       SFTEMP1                               

Page 271

010969,001705: 05,3053           00006                           EXTEND                                         #  SWITCH BANKS TO SF CONSTANT TABLE
010970,001706: 05,3054           33043                           DCA      GTSFINLC                              #  READING ROUTINE.
010971,001707: 05,3055           52006                           DXCH     Z                                     #  LOADS SFTEMP1, SFTEMP2.
010972,001708: 05,3056           50130                           INDEX    MIXBR                                 
010973,001709: 05,3057           03057                           TC       +0                                    
010974,001710: 05,3060           03063                           TC       PUTSFNOR                              
010975,001711: 05,3061           02721                           TC       SFRUTMIX                              
010976,001712: 05,3062           03064                           TC       PUTDCSF2                              
010977,001713: 05,3063           02713        PUTSFNOR           TC       SFRUTNOR                              
010978,001714: 
010979,001715: 05,3064           50000        PUTDCSF2           INDEX    A                                     
010980,001716: 05,3065           33067                           CAF      SFINTABR                              
010981,001717: 05,3066           05230                           TC       BANKJUMP                              #  SWITCH BANKS FOR EXPANSHION ROOM
010982,001718: 05,3067           11315        SFINTABR           CADR     DSPALARM                              #  ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
010983,001719: 05,3070           11021                           CADR     BINROUND                              
010984,001720: 05,3071           10741                           CADR     DEGINSF                               
010985,001721: 05,3072           11011                           CADR     ARTHINSF                              
010986,001722: 05,3073           11041                           CADR     DPINSF                                
010987,001723: 05,3074           11066                           CADR     DPINSF2                               
010988,001724: 05,3075           11024                           CADR     OPTDEGIN                              
010989,001725: 05,3076           11041                           CADR     DPINSF                                #  SAME AS ARITHDP1
010990,001726: 05,3077                        ENDRUTIN           EQUALS                                         
010991,001727: 
010992,001728: 
010993,001729:                                                                                                  #  SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
010994,001730:                                                                                                  #  ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
010995,001731: 
010996,001732: 04,2741                                           SETLOC   ENDDPDEC   +1                         
010997,001733: 
010998,001734:                                                                                                  #  DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
010999,001735: 
011000,001736: 04,2741           07155        DEGINSF            TC       DMP                                   #  SF ROUTINE FOR DEC DEGREES
011001,001737: 04,2742           03004                           ADRES    DEGCON1                               #  MULT BY 5.5 5(10)X2EXP-3
011002,001738: 04,2743           10145                           CCS      MPAC       +1                         #  THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
011003,001739: 04,2744           37751                           CAF      BIT11                                 #  LEFT 3, AND CAUSES 360.00 TO OF/UF
011004,001740: 04,2745           02747                           TC       +2                                    #  WHEN SHIFTED LEFT AND ALARM.
011005,001741: 04,2746           47751                           CS       BIT11                                 
011006,001742: 04,2747           60145                           AD       MPAC       +1                         
011007,001743: 04,2750           03104                           TC       2ROUND     +2                         
011008,001744: 04,2751           04611                           TC       TPSL1                                 #  LEFT 1
011009,001745: 04,2752           04611        DEGINSF2           TC       TPSL1                                 #  LEFT 2
011010,001746: 04,2753           03113                           TC       TESTOFUF                              
011011,001747: 04,2754           04611                           TC       TPSL1                                 #  RETURNS IF NO OF/UF (LEFT3)
011012,001748: 04,2755           10144                           CCS      MPAC                                  
011013,001749: 04,2756           02762                           TC       SIGNFIX                               #  IF +, GO TO SIGNFIX
011014,001750: 04,2757           02762                           TC       SIGNFIX                               #  IF +0, GO TO SIGNFIX
011015,001751: 04,2760           40000                           COM                                            #  IF -, USE -MAGNITUDE +1

Page 272

011017,001753: 04,2761           54144                           TS       MPAC                                  #  IF -0, USE +0
011018,001754: 04,2762           10111        SIGNFIX            CCS      OVFIND                                
011019,001755: 04,2763           03000                           TC       SGNTO1                                #  IF OVERFLOW
011020,001756: 04,2764           02774                           TC       ENDSCALE                              #  NO OVERFLOW/UNDERFLOW
011021,001757: 04,2765           10144                           CCS      MPAC                                  #  IF UF FORCE SIGN TO 0 EXCEPT -180
011022,001758: 04,2766           04736                           TC       CCSHOLE                               
011023,001759: 04,2767           02776                           TC       NEG180                                
011024,001760: 04,2770           02771                           TC       +1                                    
011025,001761: 04,2771           56144                           XCH      MPAC                                  
011026,001762: 04,2772           77743                           MASK     POSMAX                                
011027,001763: 04,2773           54144                           TS       MPAC                                  
011028,001764: 04,2774           05225        ENDSCALE           TC       POSTJUMP                              
011029,001765: 04,2775           13040                           CADR     PUTCOM2                               
011030,001766: 
011031,001767: 04,2776           47743        NEG180             CS       POSMAX                                
011032,001768: 04,2777           02773                           TC       ENDSCALE   -1                         
011033,001769: 
011034,001770: 04,3000           40144        SGNTO1             CS       MPAC                                  #  IF OF FORCE SIGN TO 1
011035,001771: 04,3001           77743                           MASK     POSMAX                                
011036,001772: 04,3002           40000                           CS       A                                     
011037,001773: 04,3003           02773                           TC       ENDSCALE   -1                         
011038,001774: 
011039,001775: 04,3004           26161 30707  DEGCON1            2DEC     5.555555555 B-3                        
011040,001776: 
011041,001777: 04,3006           21616 07071  DEGCON2            2DEC     2.222222222 B-2                        
011042,001778: 
011043,001779: 04,3010           71527        NEG.2              OCT      -06250                                #  = .197753906  I.E. THE BIAS SCALED
011044,001780: 
011045,001781: 04,3011           07155        ARTHINSF           TC       DMP                                   #  SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
011046,001782: 04,3012           00113                           ADRES    SFTEMP1                               #  ASSUMES POINT BETWEEN HI AND LO PARTS
011047,001783: 04,3013           56146                           XCH      MPAC       +2                         #  OF SFCON. SHIFTS RESULTS LEFT BY 14.
011048,001784: 04,3014           56145                           XCH      MPAC       +1                         #  (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
011049,001785: 04,3015           56144                           XCH      MPAC                                  
011050,001786: 04,3016           00006                           EXTEND                                         
011051,001787: 04,3017           13021                           BZF      BINROUND                              
011052,001788: 04,3020           03315                           TC       DSPALARM                              #  TOO LARGE A LOAD
011053,001789: 04,3021           03102        BINROUND           TC       2ROUND                                
011054,001790: 04,3022           03113                           TC       TESTOFUF                              
011055,001791: 04,3023           02774                           TC       ENDSCALE                              #  RETURNS IF NO OF/UF
011056,001792: 
011057,001793: 
011058,001794: 04,3024           10144        OPTDEGIN           CCS      MPAC                                  #  OPTICS SCALING ROUTINE
011059,001795: 04,3025           03031                           TC       +4                                    
011060,001796: 04,3026           03031                           TC       +3                                    
011061,001797: 04,3027           03315                           TC       DSPALARM                              #  REJECT NEGATIVE INPUT
011062,001798: 04,3030           03315                           TC       DSPALARM                              #         DITTO
011063,001799: 04,3031           33010        OPDEGIN2           CAF      NEG.2                                 #  RANGE IS 90 DEG
011064,001800: 04,3032           26144                           ADS      MPAC                                  #  SUBTRACT BIAS
011065,001801: 04,3033           07155                           TC       DMP                                   #  MULT BY 100 / 45 B-2
011066,001802: 

Page 273

011068,001804: 04,3034           03006                           ADRES    DEGCON2                               
011069,001805: 04,3035           37750                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
011070,001806: 04,3036           60145                           AD       MPAC       +1                         
011071,001807: 04,3037           03104                           TC       2ROUND     +2                         
011072,001808: 04,3040           02752                           TC       DEGINSF2                              
011073,001809: 
011074,001810: 04,3041           07155        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
011075,001811: 04,3042           00113                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
011076,001812: 04,3043           56146                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
011077,001813: 04,3044           60000                           DOUBLE                                         
011078,001814: 04,3045           54146                           TS       MPAC       +2                         
011079,001815: 04,3046           37767                           CAF      ZERO                                  
011080,001816: 04,3047           60145                           AD       MPAC       +1                         
011081,001817: 04,3050           03104                           TC       2ROUND     +2                         
011082,001818: 04,3051           03113                           TC       TESTOFUF                              
011083,001819: 04,3052           50130                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
011084,001820: 04,3053           03053                           TC       +0                                    
011085,001821: 04,3054           03064                           TC       DPINORM                               
011086,001822: 04,3055           30107                           CA       DECOUNT                               #  MIXEDNOUN
011087,001823: 04,3056           60135        DPINCOM            AD       NOUNADD                               #      MIXED                 NORMAL
011088,001824: 04,3057           54002                           TS       Q                                     #    E SUBK              E
011089,001825: 04,3060           56145                           XCH      MPAC       +1                         
011090,001826: 04,3061           50002                           INDEX    Q                                     
011091,001827: 04,3062           54001                           TS       1                                     #  PLACE LOW PART IN
011092,001828: 04,3063           02774                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
011093,001829: 04,3064           37767        DPINORM            CAF      ZERO                                  #  E +1          NORMAL
011094,001830: 04,3065           03056                           TC       DPINCOM                               
011095,001831: 
011096,001832: 
011097,001833: 04,3066           07155        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011098,001834: 04,3067           00113                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
011099,001835: 04,3070           03072                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
011100,001836: 04,3071           03043                           TC       DPINSF     +2                         
011101,001837: 
011102,001838: 
011103,001839: 04,3072           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
011104,001840: 04,3073           54114                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
011105,001841: 04,3074           36306                           CAF      SIX                                   
011106,001842: 04,3075           54113        LEFT7COM           TS       SFTEMP1                               
011107,001843: 04,3076           04611                           TC       TPSL1                                 
011108,001844: 04,3077           10113                           CCS      SFTEMP1                               
011109,001845: 04,3100           03075                           TC       LEFT7COM                              
011110,001846: 04,3101           00114                           TC       SFTEMP2                               
011111,001847: 
011112,001848: 04,3102           56145        2ROUND             XCH      MPAC       +1                         
011113,001849: 04,3103           60000                           DOUBLE                                         

Page 274

011115,001851: 04,3104           54145                           TS       MPAC       +1                         
011116,001852: 04,3105           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
011117,001853: 04,3106           60144                           AD       MPAC                                  
011118,001854: 04,3107           54144                           TS       MPAC                                  
011119,001855: 04,3110           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
011120,001856: 04,3111           54111                           TS       OVFIND                                
011121,001857: 04,3112           00002        2RNDEND            TC       Q                                     
011122,001858: 
011123,001859: 04,3113           10111        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
011124,001860: 04,3114           03315                           TC       DSPALARM                              #  OF
011125,001861: 04,3115           00002                           TC       Q                                     
011126,001862: 04,3116           03315                           TC       DSPALARM                              #  UF
011127,001863: 

Page 275

011129,001865:                                                                                                  #  MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
011130,001866:                                                                                                  #  ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
011131,001867: 
011132,001868:                                                                                                  #  MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
011133,001869:                                                                                                  #  EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
011134,001870:                                                                                                  #  MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
011135,001871:                                                                                                  #  NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
011136,001872:                                                                                                  #  MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). 
011137,001873: 
011138,001874:                                                                                                  #  MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
011139,001875:                                                                                                  #  IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
011140,001876:                                                                                                  #  IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
011141,001877: 
011142,001878:                                                                                                  #  NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
011143,001879: 
011144,001880:                                                                                                  #  IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
011145,001881:                                                                                                  #  AND MONSAVE1 (TURNING OFF KILLER BIT).
011146,001882: 
011147,001883:                                                                                                  #  MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
011148,001884: 05,3077                                           SETLOC   ENDRUTIN                              
011149,001885: 
011150,001886: 05,3077           47745        MONITOR            CS       BIT15                                 
011151,001887: 05,3100           70310                           MASK     NOUNCADR                              
011152,001888: 05,3101           54145        MONIT1             TS       MPAC       +1                         #  TEMP STORAGE
011153,001889: 05,3102           33401                           CAF      LOW6                                  
011154,001890: 05,3103           70272                           MASK     VERBREG                               
011155,001891: 05,3104           04541                           TC       LEFT5                                 
011156,001892: 05,3105           54022                           TS       CYL                                   
011157,001893: 05,3106           56022                           XCH      CYL                                   
011158,001894: 05,3107           60273                           AD       NOUNREG                               
011159,001895: 05,3110           54144                           TS       MPAC                                  #  TEMP STORAGE
011160,001896: 05,3111           40330                           CS       GRABLOCK                              #  NEITHER CASE SEARCHES LIST.
011161,001897: 05,3112           67762                           AD       TWO                                   
011162,001898: 05,3113           10000                           CCS      A                                     
011163,001899: 05,3114           04711                           TC       RELDSP1                               #  GRABLOCK=0,1. +0 INTO DSPLOCK AND
011164,001900: 05,3115           03121                           TC       +4                                    #  TURN OFF KEY RLSE LIGHT.
011165,001901: 05,3116           04736                           TC       CCSHOLE                               
011166,001902: 05,3117           37767                           CAF      ZERO                                  #  GRABLOCK=2. +0 INTO DSPLOCK AND
011167,001903: 05,3120           54303                           TS       DSPLOCK                               #  LEAVE KEY RLSE LIGHT ALONE
011168,001904: 05,3121           00004                           INHINT                                         
011169,001905: 05,3122           10311                           CCS      MONSAVE                               
011170,001906: 05,3123           03130                           TC       +5                                    #  IF MONSAVE WAS +, NO REQUEST
011171,001907: 05,3124           37763                           CAF      ONE                                   #  IF MONSAVE WAS 0, REQUEST MONREQ
011172,001908: 05,3125           05663                           TC       WAITLIST                              
011173,001909: 05,3126     0270                                  EBANK=   DSPCOUNT                              
011174,001910: 05,3126           03134 12060                     2CADR    MONREQ                                
011175,001911: 
011176,001912: 05,3130           52145                           DXCH     MPAC                                  #  PLACE MONITOR VERB AND NOUN INTO MONSAVE

Page 276

011178,001914: 05,3131           52312                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
011179,001915: 05,3132           00003                           RELINT                                         
011180,001916: 05,3133           00126                           TC       ENTRET                                
011181,001917: 
011182,001918: 
011183,001919: 05,3134           04605        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
011184,001920: 05,3135           10312                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
011185,001921: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011186,001922: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011187,001923: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011188,001924: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011189,001925: 05,3142           33157                           CAF      MONDEL                                
011190,001926: 05,3143           05663                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
011191,001927: 05,3144     0270                                  EBANK=   DSPCOUNT                              
011192,001928: 05,3144           03134 12060                     2CADR    MONREQ                                
011193,001929: 
011194,001930: 05,3146           35210                           CAF      CHRPRIO                               
011195,001931: 05,3147           05505                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
011196,001932: 05,3150     0270                                  EBANK=   DSPCOUNT                              
011197,001933: 05,3150           03160 12060                     2CADR    MONDO                                 
011198,001934: 
011199,001935: 05,3152           05727                           TC       TASKOVER                              
011200,001936: 
011201,001937: 05,3153           37767        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
011202,001938: 05,3154           54311                           TS       MONSAVE                               
011203,001939: 05,3155           54312                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
011204,001940: 05,3156           05727                           TC       TASKOVER                              
011205,001941: 
011206,001942: 
011207,001943: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
011208,001944: 
011209,001945: 
011210,001946: 05,3160           10312        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
011211,001947: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
011212,001948: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
011213,001949: 05,3163           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011214,001950: 05,3164           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011215,001951: 05,3165           10303                           CCS      DSPLOCK                               
011216,001952: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
011217,001953: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
011218,001954: 05,3170           70311                           MASK     MONSAVE                               
011219,001955: 05,3171           54113                           TS       NVTEMP                                
011220,001956: 05,3172           04460                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
011221,001957: 05,3173           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
011222,001958: 05,3174           33210                           CAF      MONMASK                               
011223,001959: 05,3175           70311                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
011224,001960: 05,3176           04532                           TC       RIGHT5                                

Page 277

011226,001962: 05,3177           54020                           TS       CYR                                   
011227,001963: 05,3200           56020                           XCH      CYR                                   
011228,001964: 05,3201           54272                           TS       VERBREG                               
011229,001965: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
011230,001966: 05,3203           54126                           TS       ENTRET                                
011231,001967: 05,3204           47745                           CS       BIT15                                 
011232,001968: 05,3205           70312                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2.  INTMCTBS WILL
011233,001969: 05,3206           54146                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
011234,001970: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
011235,001971: 
011236,001972:    4435                                           SETLOC   ENDRMODF                              
011237,001973: 
011238,001974:    4435           34443        PASTEVB            CAF      MIDSIX                                
011239,001975:    4436           70311                           MASK     MONSAVE                               
011240,001976:    4437           54113                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
011241,001977:    4440           04460                           TC       NVSUBMON                              #       DISPLAY IT.
011242,001978:    4441           04442                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
011243,001979:    4442           05567        ENDPASTE           TC       ENDOFJOB                              
011244,001980: 
011245,001981:    4443           07700        MIDSIX             OCT      07700                                 
011246,001982: 
011247,001983: 05,3210                                           SETLOC   ENDMONDO   +1                         
011248,001984: 05,3210           00700        MONMASK            OCT      700                                   
011249,001985: 05,3211           04435        MONBACK            ADRES    PASTEVB                               
011250,001986: 
011251,001987: 05,3212           04601        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
011252,001988: 05,3213           05567                           TC       ENDOFJOB                              
011253,001989: 
011254,001990: 
011255,001991:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011256,001992:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
011257,001993:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
011258,001994: 
011259,001995: 05,3214           34527        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
011260,001996: 05,3215           54270                           TS       DSPCOUNT                              
011261,001997: 05,3216           30310                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011262,001998: 05,3217           05241                           TC       DATACALL                              
011263,001999: 05,3220           03222                           TC       DSPOCTWD                              
011264,002000: 05,3221           05567        ENDSPF             TC       ENDOFJOB                              
011265,002001: 

Page 278

011267,002003:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC + 1)TO A SIGN AND 5 CHAR DECIMAL
011268,002004:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
011269,002005: 
011270,002006: 04,3117                                           SETLOC   TESTOFUF   +4                         
011271,002007: 
011272,002008: 04,3117           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
011273,002009: 04,3120           54105                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
011274,002010: 04,3121           10144                           CCS      MPAC                                  
011275,002011: 04,3122           03131                           TC       +7                                    
011276,002012: 04,3123           03131                           TC       +6                                    
011277,002013: 04,3124           67763                           AD       ONE                                   
011278,002014: 04,3125           54144                           TS       MPAC                                  
011279,002015: 04,3126           02321                           TC       -ON                                   
011280,002016: 04,3127           40145                           CS       MPAC       +1                         
011281,002017: 04,3130           03133                           TC       +3                                    
011282,002018: 04,3131           02301                           TC       +ON                                   
011283,002019: 04,3132           56145                           XCH      MPAC       +1                         
011284,002020: 04,3133           63172                           AD       DECROUND                              
011285,002021: 04,3134           54145                           TS       MPAC       +1                         
011286,002022: 04,3135           37767                           CAF      ZERO                                  
011287,002023: 04,3136           60144                           AD       MPAC                                  
011288,002024: 04,3137           54144                           TS       MPAC                                  
011289,002025: 04,3140           03144                           TC       +4                                    
011290,002026: 04,3141           37743                           CAF      POSMAX                                
011291,002027: 04,3142           54144                           TS       MPAC                                  
011292,002028: 04,3143           54145                           TS       MPAC       +1                         
011293,002029: 04,3144           37761                           CAF      FOUR                                  
011294,002030: 04,3145           54127        DSPDCWD1           TS       WDCNT                                 
011295,002031: 04,3146           34570                           CAF      BINCON                                
011296,002032: 04,3147           07357                           TC       SHORTMP                               
011297,002033: 04,3150           50144        TRACE1             INDEX    MPAC                                  
011298,002034: 04,3151           34300                           CAF      RELTAB                                
011299,002035: 04,3152           74556                           MASK     LOW5                                  
011300,002036: 04,3153           54114                           TS       CODE                                  
011301,002037: 04,3154           37767                           CAF      ZERO                                  
011302,002038: 04,3155           56146                           XCH      MPAC       +2                         
011303,002039: 04,3156           56145                           XCH      MPAC       +1                         
011304,002040: 04,3157           54144                           TS       MPAC                                  
011305,002041: 04,3160           56270                           XCH      DSPCOUNT                              
011306,002042: 04,3161           54133        TRACE1S            TS       COUNT                                 
011307,002043: 04,3162           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011308,002044: 04,3163           54270                           TS       DSPCOUNT                              
011309,002045: 04,3164           03217                           TC       DSPIN                                 
011310,002046: 04,3165           10127                           CCS      WDCNT                                 
011311,002047: 04,3166           03145                           TC       DSPDCWD1                              
011312,002048: 04,3167           44565                           CS       VD1                                   
011313,002049: 04,3170           54270                           TS       DSPCOUNT                              
011314,002050: 04,3171           00105                           TC       WDRET                                 
011315,002051: 
011316,002052: 04,3172           02476        DECROUND           OCT      02476                                 
011317,002053: 

Page 279

011319,002055:                                                                                                  #  DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
011320,002056:                                                                                                  #  STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
011321,002057: 
011322,002058: 04,3173           56002        DSP2DEC            XCH      Q                                     
011323,002059: 04,3174           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSPDECWD
011324,002060: 04,3175           37767                           CAF      ZERO                                  
011325,002061: 04,3176           54114                           TS       CODE                                  
011326,002062: 04,3177           36311                           CAF      THREE                                 
011327,002063: 04,3200           03301                           TC       11DSPIN                               #  -R2 OFF
011328,002064: 04,3201           37761                           CAF      FOUR                                  
011329,002065: 04,3202           03301                           TC       11DSPIN                               #  +R2 OFF
011330,002066: 04,3203           10144                           CCS      MPAC                                  
011331,002067: 04,3204           03214                           TC       +8D                                   
011332,002068: 04,3205           03214                           TC       +7                                    
011333,002069: 04,3206           67763                           AD       ONE                                   
011334,002070: 04,3207           54144                           TS       MPAC                                  
011335,002071: 04,3210           02321                           TC       -ON                                   
011336,002072: 04,3211           40145                           CS       MPAC       +1                         
011337,002073: 04,3212           54145                           TS       MPAC       +1                         
011338,002074: 04,3213           03215                           TC       +2                                    
011339,002075: 04,3214           02301                           TC       +ON                                   
011340,002076: 04,3215           34530                           CAF      R2D1                                  
011341,002077: 04,3216           03145        END2DEC            TC       DSPDCWD1                              
011342,002078: 
011343,002079: 
011344,002080: 05,3222                                           SETLOC   DSPFMEM    +6                         
011345,002081:                                                                                                  #  DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
011346,002082:                                                                                                  #  CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
011347,002083: 
011348,002084: 05,3222           54022        DSPOCTWD           TS       CYL                                   
011349,002085: 05,3223           56002                           XCH      Q                                     
011350,002086: 05,3224           54105                           TS       WDRET                                 #  MUST USE SAME RETURN AS DSP2BIT.
011351,002087: 05,3225           37746                           CAF      BIT14                                 #  TO BLANK SIGNS
011352,002088: 05,3226           26270                           ADS      DSPCOUNT                              
011353,002089: 05,3227           37761                           CAF      FOUR                                  
011354,002090: 05,3230           54127        WDAGAIN            TS       WDCNT                                 
011355,002091: 05,3231           40022                           CS       CYL                                   
011356,002092: 05,3232           40022                           CS       CYL                                   
011357,002093: 05,3233           40022                           CS       CYL                                   
011358,002094: 05,3234           40000                           CS       A                                     
011359,002095: 05,3235           77765                           MASK     DSPMSK                                
011360,002096: 05,3236           50000                           INDEX    A                                     
011361,002097: 05,3237           34300                           CAF      RELTAB                                
011362,002098: 05,3240           74556                           MASK     LOW5                                  
011363,002099: 05,3241           54114                           TS       CODE                                  
011364,002100: 05,3242           56270                           XCH      DSPCOUNT                              
011365,002101: 05,3243           54133                           TS       COUNT                                 
011366,002102: 05,3244           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011367,002103: 05,3245           54270                           TS       DSPCOUNT                              

Page 280

011369,002105: 05,3246           05225                           TC       POSTJUMP                              
011370,002106: 05,3247           11307                           CADR     DSPOCTIN                              
011371,002107: 05,3250           10127        OCTBACK            CCS      WDCNT                                 
011372,002108: 05,3251           03230                           TC       WDAGAIN                               #  +
011373,002109: 05,3252           44565        DSPLV              CS       VD1                                   #  TO BLOCK NUMERICAL CHARACTERS, CLEARS,
011374,002110: 05,3253           54270                           TS       DSPCOUNT                              #  AND SIGNS AFTER A COMPLETED DISPLAY.
011375,002111: 05,3254           00105                           TC       WDRET                                 
011376,002112: 
011377,002113: 05,3255     7765               DSPMSK             =        SEVEN                                 
011378,002114: 
011379,002115: 
011380,002116:                                                                                                  #  DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
011381,002117:                                                                                                  #  LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
011382,002118:                                                                                                  #  OF THE 5 CHAR OCTAL DISPLAY
011383,002119: 
011384,002120: 05,3255           54020        DSP2BIT            TS       CYR                                   
011385,002121: 05,3256           56002                           XCH      Q                                     
011386,002122: 05,3257           54105                           TS       WDRET                                 #  CANT USE L AS RETURN. UPDATNN USES L.
011387,002123: 05,3260           37763                           CAF      ONE                                   
011388,002124: 05,3261           54127                           TS       WDCNT                                 
011389,002125: 05,3262           40020                           CS       CYR                                   
011390,002126: 05,3263           40020                           CS       CYR                                   
011391,002127: 05,3264           56020                           XCH      CYR                                   
011392,002128: 05,3265           54022                           TS       CYL                                   
011393,002129: 05,3266           03235                           TC       WDAGAIN    +5                         
011394,002130: 
011395,002131: 
011396,002132:                                                                                                  #  FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
011397,002133:                                                                                                  #  ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
011398,002134:                                                                                                  #  FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
011399,002135:                                                                                                  #  DSPTAB ENTRY INTO DSREL.
011400,002136: 
011401,002137: 04,3217                                           SETLOC   END2DEC    +1                         
011402,002138: 
011403,002139: 04,3217           56002        DSPIN              XCH      Q                                     #  CANT USE L FOR RETURN, SINCE MANYOF THE 
011404,002140: 04,3220           54104                           TS       DSEXIT                                #  ROUTINES CALLING DSPIN USE L AS RETURN.
011405,002141: 04,3221           34556                           CAF      LOW5                                  
011406,002142: 04,3222           70133                           MASK     COUNT                                 
011407,002143: 04,3223           54021                           TS       SR                                    
011408,002144: 04,3224           56021                           XCH      SR                                    
011409,002145: 04,3225           54131                           TS       DSREL                                 
011410,002146: 04,3226           37763                           CAF      BIT1                                  
011411,002147: 04,3227           70133                           MASK     COUNT                                 
011412,002148: 04,3230           10000                           CCS      A                                     
011413,002149: 04,3231           03233                           TC       +2                                    #  LEFT IF COUNT IS ODD
011414,002150: 04,3232           03243                           TC       DSPIN1     -1                         #  RIGHT IF COUNT IS EVEN
011415,002151: 04,3233           56114                           XCH      CODE                                  
011416,002152: 04,3234           04550                           TC       SLEFT5                                #  DOES NOT USE CYL

Page 281

011418,002154: 04,3235           54114                           TS       CODE                                  
011419,002155: 04,3236           37746                           CAF      BIT14                                 
011420,002156: 04,3237           70133                           MASK     COUNT                                 
011421,002157: 04,3240           10000                           CCS      A                                     
011422,002158: 04,3241           37762                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
011423,002159: 04,3242           67763                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
011424,002160: 04,3243           54133                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
011425,002161:                                                                                                  #  +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
011426,002162:                                                                                                  #  +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
011427,002163: 04,3244           00004        DSPIN1             INHINT                                         
011428,002164: 04,3245           50131                           INDEX    DSREL                                 
011429,002165: 04,3246           10313                           CCS      DSPTAB                                
011430,002166: 04,3247           03251                           TC       +2                                    #  IF +
011431,002167: 04,3250           04736                           TC       CCSHOLE                               
011432,002168: 04,3251           67763                           AD       ONE                                   #  IF -
011433,002169: 04,3252           54132                           TS       DSMAG                                 
011434,002170: 04,3253           50133                           INDEX    COUNT                                 
011435,002171: 04,3254           73275                           MASK     DSMSK                                 
011436,002172: 04,3255           00006                           EXTEND                                         
011437,002173: 04,3256           60114                           SU       CODE                                  
011438,002174: 04,3257           00006                           EXTEND                                         
011439,002175: 04,3260           13273                           BZF      DSLV                                  #  SAME
011440,002176: 04,3261           50133        DFRNT              INDEX    COUNT                                 
011441,002177: 04,3262           43275                           CS       DSMSK                                 #  MASK WITH 77740, 76037, OR 75777
011442,002178: 04,3263           70132                           MASK     DSMAG                                 
011443,002179: 04,3264           60114                           AD       CODE                                  
011444,002180: 04,3265           40000                           CS       A                                     
011445,002181: 04,3266           50131                           INDEX    DSREL                                 
011446,002182: 04,3267           56313                           XCH      DSPTAB                                
011447,002183: 04,3270           00006                           EXTEND                                         
011448,002184: 04,3271           63273                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
011449,002185: 04,3272           24307                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
011450,002186: 04,3273           00003        DSLV               RELINT                                         
011451,002187: 04,3274           00104                           TC       DSEXIT                                
011452,002188: 
011453,002189: 04,3275           00037        DSMSK              OCT      37                                    
011454,002190: 04,3276           01740                           OCT      1740                                  
011455,002191: 04,3277           02000                           OCT      2000                                  
011456,002192: 04,3300           03740                           OCT      3740                                  
011457,002193: 
011458,002194: 
011459,002195:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011460,002196:                                                                                                  #  BIT11 OF CODE.
011461,002197: 
011462,002198: 04,3301           54131        11DSPIN            TS       DSREL                                 
011463,002199: 04,3302           37762                           CAF      TWO                                   
011464,002200: 04,3303           54133                           TS       COUNT                                 
011465,002201: 04,3304           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
011466,002202: 04,3305           54104                           TS       DSEXIT                                

Page 282

011468,002204: 04,3306           03244                           TC       DSPIN1                                
011469,002205: 
011470,002206: 
011471,002207: 04,3307           03217        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
011472,002208: 04,3310           33312                           CAF      +2                                    
011473,002209: 04,3311           05230                           TC       BANKJUMP                              
011474,002210: 04,3312           13250        ENDSPOCT           CADR     OCTBACK                               
011475,002211: 
011476,002212: 
011477,002213:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
011478,002214:                                                                                                  #  ABORT WITH 01501.
011479,002215:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011480,002216:                                                                                                  #  DO TC ENTRET.
011481,002217: 
011482,002218: 04,3313           34505        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
011483,002219: 04,3314           54126                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011484,002220: 
011485,002221: 04,3315           04571        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011486,002222: 04,3316           43325                           CS       NVSBENDL                              
011487,002223: 04,3317           60126                           AD       ENTEXIT                               
011488,002224: 04,3320           00006                           EXTEND                                         
011489,002225: 04,3321           13323                           BZF      +2                                    #  NVSUB INITIATED. ABORT
011490,002226: 04,3322           00126                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
011491,002227: 04,3323           06000                           TC       ABORT                                 
011492,002228: 04,3324           01501                           OCT      01501                                 
011493,002229: 04,3325           04464        NVSBENDL           TC       NVSUBEND                              
011494,002230: 
011495,002231: 
011496,002232:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
011497,002233:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011498,002234:                                                                                                  #  M M LIGHTS.
011499,002235: 
011500,002236: 05,3267                                           SETLOC   DSP2BIT    +10D                       
011501,002237: 
011502,002238: 05,3267           03302        MMCHANG            TC       REQMM                                 
011503,002239: 05,3270           37767                           CAF      ZERO                                  
011504,002240: 05,3271           56273                           XCH      NOUNREG                               
011505,002241: 05,3272           54144                           TS       MPAC                                  
011506,002242: 05,3273           34566                           CAF      ND1                                   
011507,002243: 05,3274           54270                           TS       DSPCOUNT                              
011508,002244: 05,3275           05206                           TC       BANKCALL                              
011509,002245: 05,3276           10557                           CADR     2BLANK                                
011510,002246: 05,3277           30144                           CA       MPAC                                  
011511,002247: 05,3300           05225                           TC       POSTJUMP                              
011512,002248: 05,3301           11315                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
011513,002249: 

Page 283

011515,002251: 05,3302  04,3315               MODROUTB           =        DSPALARM                              #  **FIX LATER**
011516,002252: 05,3302           40002        REQMM              CS       Q                                     
011517,002253: 05,3303           54304                           TS       REQRET                                
011518,002254: 05,3304           34566                           CAF      ND1                                   
011519,002255: 05,3305           54270                           TS       DSPCOUNT                              
011520,002256: 05,3306           37767                           CAF      ZERO                                  
011521,002257: 05,3307           54273                           TS       NOUNREG                               
011522,002258: 05,3310           05206                           TC       BANKCALL                              
011523,002259: 05,3311           10557                           CADR     2BLANK                                
011524,002260: 05,3312           04622                           TC       FLASHON                               
011525,002261: 05,3313           00126                           TC       ENTEXIT                               
011526,002262: 
011527,002263: 
011528,002264:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
011529,002265:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011530,002266:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011531,002267:                                                                                                  #  COMPONENT 1  PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011532,002268:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT)
011533,002269:                                                                                                  #  COMPONENT 3  BBCON
011534,002270: 
011535,002271: 05,3314           37763        VBRQEXEC           CAF      BIT1                                  
011536,002272: 05,3315           70337                           MASK     DSPTEM1                               
011537,002273: 05,3316           10000                           CCS      A                                     
011538,002274: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
011539,002275: 05,3320           35723                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
011540,002276: 05,3321           54144        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
011541,002277: 05,3322           47763                           CS       BIT1                                  
011542,002278: 05,3323           70337                           MASK     DSPTEM1                               
011543,002279: 05,3324           54150                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
011544,002280: 05,3325           04666        REQUESTC           TC       RELDSP                                
011545,002281: 05,3326           34505                           CA       ENDINST                               
011546,002282: 05,3327           54147                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
011547,002283: 05,3330           00006                           EXTEND                                         
011548,002284: 05,3331           30341                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
011549,002285: 05,3332           52146                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
011550,002286: 05,3333           30150                           CA       MPAC       +4                         #  PRIO IN A
011551,002287: 05,3334           00004                           INHINT                                         
011552,002288: 05,3335           00144                           TC       MPAC                                  
011553,002289: 
011554,002290: 05,3336           34562        SETVAC             CAF      TCFINDVC                              
011555,002291: 05,3337           03321                           TC       REQEX1                                
011556,002292: 
011557,002293:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011558,002294:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011559,002295:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011560,002296:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
011561,002297:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
011562,002298:                                                                                                  #  COMPONENT 3  BBCON

Page 284

011564,002300: 05,3340           34561        VBRQWAIT           CAF      TCWAIT                                
011565,002301: 05,3341           54144                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
011566,002302: 05,3342           30337                           CA       DSPTEM1                               #  TIME DELAY
011567,002303: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
011568,002304: 
011569,002305:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011570,002306:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011571,002307:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
011572,002308: 
011573,002309: 
011574,002310: 04,3326                                           SETLOC   NVSBENDL   +1                         
011575,002311: 04,3326           37763        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
011576,002312: 04,3327           54305                           TS       LOADSTAT                              
011577,002313: 04,3330           04666                           TC       RELDSP                                
011578,002314: 04,3331           04626                           TC       FLASHOFF                              
011579,002315: 04,3332           03440                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
011580,002316: 
011581,002317: 
011582,002318: 04,3333           04466        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011583,002319: 04,3334           47763                           CS       ONE                                   
011584,002320: 04,3335           03327                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
011585,002321: 
011586,002322: 
011587,002323:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
011588,002324: 
011589,002325:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
011590,002326:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011591,002327: 
011592,002328: 04,3336           47761        VBRELDSP           CS       BIT3                                  
011593,002329: 04,3337           00006                           EXTEND                                         
011594,002330: 04,3340           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
011595,002331: 04,3341           04666                           TC       RELDSP                                #  SEARCHES LIST
011596,002332: 04,3342           05567                           TC       ENDOFJOB                              
011597,002333: 
011598,002334: 
011599,002335:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011600,002336: 
011601,002337: 04,3343           37766        BUMP               CAF      FIVE                                  #  R2D5
011602,002338: 04,3344           54270                           TS       DSPCOUNT                              
011603,002339: 04,3345           54133                           TS       COUNT                                 
011604,002340: 04,3346           37763                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
011605,002341: 04,3347           70133                           MASK     COUNT                                 
011606,002342: 04,3350           56133                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
011607,002343: 04,3351           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 285

011609,002345: 04,3352           56021                           XCH      SR                                    #  DSREL IN A
011610,002346: 04,3353           50000                           INDEX    A                                     
011611,002347: 04,3354           10313                           CCS      DSPTAB                                
011612,002348: 04,3355           03357                           TC       +2                                    
011613,002349: 04,3356           04736                           TC       CCSHOLE                               
011614,002350: 04,3357           67763                           AD       ONE                                   #  DSMAG IN A
011615,002351: 04,3360           50133                           INDEX    COUNT                                 
011616,002352: 04,3361           73275                           MASK     DSMSK                                 
011617,002353: 04,3362           50133                           INDEX    COUNT                                 
011618,002354: 04,3363           03364                           TC       +1                                    
011619,002355: 04,3364           03366                           TC       +2                                    #  EVEN(RIGHT)  OK
011620,002356: 04,3365           04532                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
011621,002357: 04,3366           54114                           TS       CODE                                  
011622,002358: 04,3367           47766                           CS       FIVE                                  
011623,002359: 04,3370           60270                           AD       DSPCOUNT                              #  DSPCOUNT-5
011624,002360: 04,3371           10000                           CCS      A                                     #  TO PREVENT -0
011625,002361: 04,3372           67763                           AD       ONE                                   
011626,002362: 04,3373           03375                           TC       +2                                    
011627,002363: 04,3374           04736                           TC       CCSHOLE                               
011628,002364: 04,3375           54133                           TS       COUNT                                 
011629,002365: 04,3376           03217                           TC       DSPIN                                 #  CODE ALREADY IN CODE
011630,002366: 04,3377           40270                           CS       DSPCOUNT                              
011631,002367: 04,3400           64527                           AD       R1D1                                  #  OCT 16
011632,002368: 04,3401           10000                           CCS      A                                     
011633,002369: 04,3402           56270                           XCH      DSPCOUNT                              #  +. DSPCOUNT L/ OCT 16
011634,002370: 04,3403           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011635,002371: 04,3404           03344                           TC       BUMP       +1                         
011636,002372: 
011637,002373: 04,3405           37767        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011638,002374: 04,3406           54270                           TS       DSPCOUNT                              
011639,002375: 04,3407           63436                           AD       SWTAB      +2                         #  OCT 3
011640,002376: 04,3410           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
011641,002377: 04,3411           10313                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
011642,002378: 04,3412           03414                           TC       +2                                    
011643,002379: 04,3413           04736                           TC       CCSHOLE                               
011644,002380: 04,3414           67763                           AD       ONE                                   
011645,002381: 04,3415           77751                           MASK     BIT11                                 
011646,002382: 04,3416           54114                           TS       CODE                                  
011647,002383: 04,3417           50270                           INDEX    DSPCOUNT                              
011648,002384: 04,3420           33434                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
011649,002385: 04,3421           03301                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
011650,002386: 04,3422           40270                           CS       DSPCOUNT                              
011651,002387: 04,3423           63436                           AD       SWTAB      +2                         #  OCT 3
011652,002388: 04,3424           10000                           CCS      A                                     
011653,002389: 04,3425           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
011654,002390: 04,3426           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011655,002391: 04,3427           03406                           TC       SWSGN      +1                         
011656,002392: 04,3430           34527                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
011657,002393: 04,3431           54270                           TS       DSPCOUNT                              
011658,002394: 04,3432           02514                           TC       5BLANK                                #  BLANKS R1

Page 286

011660,002396: 04,3433           00126                           TC       ENTEXIT                               
011661,002397: 
011662,002398: 04,3434           00000        SWTAB              OCT      0                                     #  -R3
011663,002399: 04,3435           00001                           OCT      1                                     #  +R3
011664,002400: 04,3436           00003                           OCT      3                                     #  -R2
011665,002401: 04,3437           00004                           OCT      4                                     #  +R2
011666,002402: 

Page 287

011668,002404:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011669,002405:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
011670,002406:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011671,002407: 
011672,002408:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011673,002409:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011674,002410: 
011675,002411:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011676,002412:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011677,002413:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
011678,002414:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011679,002415:                                                                                                  #  FURTHER ACTION).
011680,002416: 
011681,002417:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011682,002418:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011683,002419:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011684,002420:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
011685,002421: 
011686,002422:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011687,002423:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011688,002424:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
011689,002425:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE.
011690,002426:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,
011691,002427:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED.
011692,002428:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011693,002429:                                                                                                  #  MONITOR SET UP.
011694,002430: 
011695,002431:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011696,002432: 
011697,002433:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011698,002434:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011699,002435: 
011700,002436:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011701,002437:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011702,002438: 
011703,002439:    4444                                           SETLOC   MIDSIX     +1                         
011704,002440:    4444           54113        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
011705,002441:    4445           10303                           CCS      DSPLOCK                               
011706,002442:    4446           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
011707,002443:    4447           30002                           CA       Q                                     #  DSP SYST AVAILABLE
011708,002444:    4450           67763                           AD       ONE                                   
011709,002445:    4451           54331                           TS       NVQTEM                                #  2+ CALLING LOC INTO NVQTEM
011710,002446:    4452           04466                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011711,002447:    4453           34457        NVSUBCOM           CAF      NVSBBBNK                              
011712,002448: 
011713,002449:    4454           56006                           XCH      BBANK                                 
011714,002450:    4455           54332                           TS       NVBNKTEM                              
011715,002451:    4456           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
011716,002452:    4457     0270                                  EBANK=   DSPCOUNT                              
011717,002453:    4457           12060        NVSBBBNK           BBCON    NVSUB1                                
011718,002454: 

Page 288

011720,002456:    4460           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
011721,002457:    4461           67763                           AD       ONE                                   
011722,002458:    4462           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011723,002459:    4463           04453                           TC       NVSUBCOM                              
011724,002460: 
011725,002461:    4464           52332        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
011726,002462:    4465           52006                           DXCH     Z                                     #  DTCB
011727,002463: 
011728,002464: 05,3344                                           SETLOC   ENDRQWT    +1                         
011729,002465: 
011730,002466: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
011731,002467: 05,3345           54126                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
011732,002468: 05,3346           33401                           CAF      LOW6                                  
011733,002469: 05,3347           70113                           MASK     NVTEMP                                
011734,002470: 05,3350           54144                           TS       MPAC                                  #  TEMP STORAGE
011735,002471: 05,3351           33402                           CAF      MID6                                  
011736,002472: 05,3352           70113                           MASK     NVTEMP                                
011737,002473: 05,3353           04532                           TC       RIGHT5                                
011738,002474: 05,3354           54020                           TS       CYR                                   
011739,002475: 05,3355           56020                           XCH      CYR                                   
011740,002476: 05,3356           54145                           TS       MPAC       +1                         #  TEMP STORAGE
011741,002477: 05,3357           10144                           CCS      MPAC                                  #  TEST NOUN
011742,002478: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
011743,002479: 05,3361           56145                           XCH      MPAC       +1                         
011744,002480: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
011745,002481: 05,3363           04464        ENTSET             TC       NVSUBEND                              
011746,002482: 05,3364           10145                           CCS      MPAC       +1                         #  TEST VERB
011747,002483: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
011748,002484: 05,3366           56144                           XCH      MPAC                                  
011749,002485: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
011750,002486: 05,3370           04464                           TC       NVSUBEND                              
011751,002487: 05,3371           56145                           XCH      MPAC       +1                         
011752,002488: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
011753,002489: 05,3373           56144                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
011754,002490: 05,3374           02274                           TC       UPDATNN    -1                         
011755,002491: 05,3375           37767                           CAF      ZERO                                  
011756,002492: 05,3376           54305                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
011757,002493: 05,3377           54306                           TS       CLPASS                                
011758,002494: 05,3400           02031                           TC       ENTPAS0                               
011759,002495: 
011760,002496:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011761,002497:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
011762,002498: 
011763,002499: 
011764,002500: 05,3401           00077        LOW6               OCT      77                                    
011765,002501: 05,3402           07700        MID6               OCT      7700                                  
011766,002502: 

Page 289

011768,002504:    4466                                           SETLOC   NVSUBEND   +2                         
011769,002505:    4466           47745        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
011770,002506:    4467           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
011771,002507:    4470           70312                           MASK     MONSAVE1                              
011772,002508:    4471           67745                           AD       BIT15                                 
011773,002509:    4472           54312                           TS       MONSAVE1                              
011774,002510:    4473           00003                           RELINT                                         
011775,002511:    4474           00002                           TC       Q                                     
011776,002512: 
011777,002513: 
011778,002514:                                                                                                  #  LOADSTAT  +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
011779,002515:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
011780,002516:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
011781,002517:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
011782,002518: 
011783,002519: 
011784,002520:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
011785,002521:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011786,002522:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011787,002523:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOB SLEEP AND 
011788,002524:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011789,002525:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011790,002526:                                                                                                  #  L+1      FOR TERMINATE
011791,002527:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
011792,002528:                                                                                                  #  L+3      FOR DATA IN
011793,002529:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
011794,002530: 
011795,002531:    4475           37763        ENDIDLE            CAF      ONE                                   
011796,002532:    4476           54303                           TS       DSPLOCK                               
011797,002533:    4477           22004                           LXCH     FBANK                                 
011798,002534:    4500           56002                           XCH      Q                                     
011799,002535:    4501           52124                           DXCH     BUF2                                  
011800,002536:    4502           05235                           TC       MAKECADR                              
011801,002537:    4503           54327                           TS       CADRSTOR                              
011802,002538:    4504           05545                           TC       JOBSLEEP                              
011803,002539: 
011804,002540:    4505           05567        ENDINST            TC       ENDOFJOB                              
011805,002541: 
011806,002542:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011807,002543:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011808,002544:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011809,002545:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011810,002546:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011811,002547:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011812,002548: 
011813,002549:    4506           10305        DATAWAIT           CCS      LOADSTAT                              

Page 290

011815,002551:    4507           17015                           TCF      DATWAIT1                              #  PROCEED. RETURN TO L+2.
011816,002552:    4510           14475                           TCF      ENDIDLE                               #  STILL WAITING. GO TO SLEEP.
011817,002553:    4511           00002                           TC       Q                                     #  TERMINATE. RETURN TO L+1.
011818,002554:    4512           17017                           TCF      Q+2                                   #  DATA IN. RETURN TO L+3
011819,002555:    4513     7015               DATWAIT1           =        Q+1                                   #  RETURN TO L+2
011820,002556: 
011821,002557:                                                                                                  #  DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
011822,002558:                                                                                                  #  INITIATED LOAD, IF ENDIDLE WAS NOT USED.
011823,002559: 
011824,002560: 
011825,002561: 05,3403                                           SETLOC   MID6       +1                         
011826,002562:                                                                                                  #  DSPMM  PLACE MAJOR MODE CODE INTO MODREG
011827,002563: 
011828,002564: 05,3403           34567        DSPMM1             CAF      MD1                                   #  GETS HERE THRU DSPMM (STANDARD LEAD IN)
011829,002565: 05,3404           56270                           XCH      DSPCOUNT                              
011830,002566: 05,3405           54130                           TS       DSPMMTEM                              #  SAVE DSPCOUNT
011831,002567: 05,3406           30302                           CA       MODREG                                
011832,002568: 05,3407           22002                           LXCH     Q                                     
011833,002569: 05,3410           03255                           TC       DSP2BIT                               
011834,002570: 05,3411           56130                           XCH      DSPMMTEM                              #  RESTORE DSPCOUNT
011835,002571: 05,3412           54270                           TS       DSPCOUNT                              
011836,002572: 05,3413           00001        DSPMMEND           TC       L                                     
011837,002573: 
011838,002574: 
011839,002575:                                                                                                  #  RECALTST IS ENTERED DIRECTLY AFTER DATA IS
011840,002576:                                                                                                  #  LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
011841,002577:                                                                                                  #  EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
011842,002578: 
011843,002579:                                                                                                  #  IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
011844,002580:                                                                                                  #  DISPLAY SYST. (NEEDED FOR DATAWAIT)
011845,002581: 
011846,002582: 04,3440                                           SETLOC   SWTAB      +4                         
011847,002583: 
011848,002584: 04,3440           10327        RECALTST           CCS      CADRSTOR                              
011849,002585: 04,3441           03446                           TC       RECAL1                                
011850,002586: 04,3442           05567                           TC       ENDOFJOB                              #  NORMAL EXIT IF KEYBOARD INITIATED
011851,002587: 04,3443           03446                           TC       RECAL1                                
011852,002588: 04,3444           54327                           TS       CADRSTOR                              #  -0. CONCLUSION OF NVSUB INITIATED LOAD.
011853,002589: 04,3445           03464                           TC       RECAL3                                #  +0 INTO CADRSTOR, RELEASE DISPLAY,
011854,002590:                                                                                                  #     AND ENDOFJOB.  NEEDED FOR DATAWAIT.        
011855,002591: 04,3446           37767        RECAL1             CAF      ZERO                                  
011856,002592: 04,3447           56327                           XCH      CADRSTOR                              
011857,002593: 04,3450           00004                           INHINT                                         
011858,002594: 04,3451           05551                           TC       JOBWAKE                               
011859,002595: 04,3452           10305                           CCS      LOADSTAT                              
011860,002596: 04,3453           03470                           TC       DOPROC                                #  + PROCEED WITHOUT DATA
011861,002597: 04,3454           05567                           TC       ENDOFJOB                              #  PATHALOGICAL CASE EXIT
011862,002598: 04,3455           03466                           TC       DOTERM                                #  - TERMINATE

Page 291

011864,002600: 04,3456           37762                           CAF      TWO                                   
011865,002601: 04,3457           50064        RECAL2             INDEX    LOCCTR                                
011866,002602: 04,3460           60154                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
011867,002603: 04,3461           50064                           INDEX    LOCCTR                                
011868,002604: 04,3462           54154                           TS       LOC                                   
011869,002605: 04,3463           00003                           RELINT                                         
011870,002606: 04,3464           04711        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
011871,002607: 04,3465           05567                           TC       ENDOFJOB                              
011872,002608: 
011873,002609: 04,3466           37767        DOTERM             CAF      ZERO                                  
011874,002610: 04,3467           03457                           TC       RECAL2                                
011875,002611: 
011876,002612: 04,3470           37763        DOPROC             CAF      ONE                                   
011877,002613: 04,3471           03457                           TC       RECAL2                                
011878,002614: 

Page 292

011880,002616:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
011881,002617: 
011882,002618: 
011883,002619:                                                                                                  #  COMPONENT CODE NUMBER         INTERPRETATION
011884,002620: 
011885,002621:                                                                                                  #  00000                         1 COMPONENT
011886,002622:                                                                                                  #  00001                         2 COMPONENT (EACH S P)
011887,002623:                                                                                                  #  00010                         3 COMPONENT (EACH SP)
011888,002624: 
011889,002625: 
011890,002626:                                                                                                  #  SF ROUTINE CODE NUMBER        INTERPRETATION
011891,002627: 
011892,002628:                                                                                                  #  00000         OCTAL ONLY
011893,002629:                                                                                                  #  00001         STRAIGHT FRACTIONAL
011894,002630:                                                                                                  #  00010         DEGREES (XXX.XX)
011895,002631:                                                                                                  #  00011         ARITHMETIC SF
011896,002632:                                                                                                  #  00100         ARITH DP1       OUT(MULT BY 2/14 AT END)        IN(STRAIGHT)
011897,002633:                                                                                                  #  00101         ARITH DP2       OUT(STRAIGHT)                   IN(SL 7 AT END)
011898,002634:                                                                                                  #  00110         OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011899,002635:                                                                                                  #  00111         ARITH DP3       OUT ( SL 7 AT END)              IN ( STRAIGHT)
011900,002636:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
011901,002637: 
011902,002638: 
011903,002639:                                                                                                  #  SF CONSTANT CODE NUMBER       INTERPRETATION
011904,002640: 
011905,002641:                                                                                                  #  00000                         WHOLE
011906,002642:                                                                                                  #  00000                         TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
011907,002643:                                                                                                  #  00001                         TIME HOURS(XXX.XX) USE ARITH DP2
011908,002644:                                                                                                  #  00010                         DEGREES
011909,002645:                                                                                                  #  00010                         OPTICS DEGREES
011910,002646:                                                                                                  #  00011                         GYRO DEGREES(XX.XXX)  USE ARITHDP3
011911,002647:                                                                                                  #  00100                         GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011912,002648:                                                                                                  #  00101                         GYRO AXIS ACCEL. DRIFT
011913,002649:                                                                                                  #                                .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011914,002650:                                                                                                  #  00110                         PIPA BIAS X.XXXX CM/SEC SEC
011915,002651:                                                                                                  #  00111                         PIPA SCALE FACTOR ERROR
011916,002652:                                                                                                  #                                    XXXXX. PARTS/MILLION
011917,002653:                                                                                                  #  01000                         POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011918,002654:                                                                                                  #  01001                         VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011919,002655:                                                                                                  #  01010                         TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011920,002656:                                                                                                  #  01011                         ELEVATION DEGREES(89.999MAX) USE ARITH
011921,002657:                                                                                                  #  01100                         RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011922,002658:                                                                                                  #                                                            USE ARITHDP1
011923,002659:                                                                                                  #  01101                         RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
011924,002660:                                                                                                  #                                                            USE ARITHDP1
011925,002661:                                                                                                  #  01110                         LANDING RADAR ALTITUDE(XXXXX.FEET)
011926,002662:                                                                                                  #                                                            USE ARITHDP1

Page 293

011928,002664:                                                                                                  #  01111                         INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011929,002665:                                                                                                  #                                                            USE ARITHDP1
011930,002666:                                                                                                  #  10000                         ALTITUDE RATE(XXXXX.FEET)      USE ARITH
011931,002667:                                                                                                  #  10001                         FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011932,002668:                                                                                                  #                                                               USE ARITH
011933,002669:                                                                                                  #  10010                         ROTATIONAL HAND CONTROLLER ANGLE RATES
011934,002670:                                                                                                  #                                      XXXXX.DEG/SEC            USE ARITH
011935,002671:                                                                                                  #  10011                         LANDING RADAR VELX(XXXXX.FEET/SEC)
011936,002672:                                                                                                  #                                                            USE ARITHDP1
011937,002673:                                                                                                  #  10100                         LANDING RADAR VELY(XXXXX.FEET/SEC)
011938,002674:                                                                                                  #                                                            USE ARITHDP1
011939,002675:                                                                                                  #  10101                         LANDING RADAR VELZ(XXXXX.FEET/SEC)
011940,002676:                                                                                                  #                                                            USE ARITHDP1
011941,002677:                                                                                                  #  10110                         OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011942,002678:                                                                                                  #                                                            USE ARITHDP1
011943,002679:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
011944,002680: 
011945,002681:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011946,002682:                                                                                                  #  NOUN TABLES.
011947,002683:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011948,002684:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
011949,002685:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011950,002686: 

Page 294

011952,002688:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011953,002689:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011954,002690:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011955,002691: 
011956,002692: 
011957,002693:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011958,002694:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011959,002695:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011960,002696:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011961,002697:                                                                                                  #  MIXED OR NORMAL NOUN.
011962,002698: 
011963,002699: 23,2000                                           BANK     23                                    
011964,002700: 23,2000           52142        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011965,002701: 23,2001           50273                           INDEX    NOUNREG                               
011966,002702: 23,2002           32052                           CAF      NNADTAB                               
011967,002703: 23,2003           54136                           TS       NNADTEM                               
011968,002704: 23,2004           50273                           INDEX    NOUNREG                               
011969,002705: 23,2005           32152                           CAF      NNTYPTAB                              
011970,002706: 23,2006           54137                           TS       NNTYPTEM                              
011971,002707: 23,2007           40273                           CS       NOUNREG                               
011972,002708: 23,2010           62036                           AD       MIXCON                                
011973,002709: 23,2011           00006                           EXTEND                                         
011974,002710: 23,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
011975,002711: 23,2013           37763                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
011976,002712: 23,2014           54130                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
011977,002713: 23,2015           02034                           TC       LODNLV                                
011978,002714: 23,2016           37762        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
011979,002715: 23,2017           54130                           TS       MIXBR                                 
011980,002716: 23,2020           50273                           INDEX    NOUNREG                               
011981,002717: 23,2021           32420                           CAF      RUTMXTAB   -55                        
011982,002718: 23,2022           54143                           TS       RUTMXTEM                              
011983,002719: 23,2023           35337                           CAF      LOW10                                 
011984,002720: 23,2024           70136                           MASK     NNADTEM                               
011985,002721: 23,2025           54002                           TS       Q                                     #  TEMP
011986,002722: 23,2026           50000                           INDEX    A                                     
011987,002723: 23,2027           32406                           CAF      IDADDTAB                              
011988,002724: 23,2030           54140                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
011989,002725: 23,2031           00006                           EXTEND                                         
011990,002726: 23,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011991,002727: 23,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011992,002728: 23,2034           52142        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
011993,002729: 23,2035           52006                           DXCH     Z                                     
011994,002730: 
011995,002731: 23,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
011996,002732: 
011997,002733: 
011998,002734:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.

Page 295

012000,002736: 
012001,002737: 23,2037           52114        GTSFOUT            DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
012002,002738: 23,2040           00006                           EXTEND                                         
012003,002739: 23,2041           50000                           INDEX    A                                     
012004,002740: 23,2042           32331                           DCA      SFOUTAB                               
012005,002741: 23,2043           52114        SFCOM              DXCH     SFTEMP1                               
012006,002742: 23,2044           52006                           DXCH     Z                                     
012007,002743: 
012008,002744: 
012009,002745:                                                                                                  #  GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
012010,002746: 
012011,002747: 23,2045           52114        GTSFIN             DXCH     SFTEMP1                               #  2X(SFCONUM) ARRIVES IN SFTEMP1.
012012,002748: 23,2046           00006                           EXTEND                                         
012013,002749: 23,2047           50000                           INDEX    A                                     
012014,002750: 23,2050           32253                           DCA      SFINTAB                               
012015,002751: 23,2051           12043                           TCF      SFCOM                                 
012016,002752: 
012017,002753:                                                                                                  #  NN   NORMAL NOUNS
012018,002754: 23,2052           00000        NNADTAB            OCT      00000                                 #  00 NOT IN USE
012019,002755: 23,2053           40000                           OCT      40000                                 #  01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
012020,002756: 23,2054           40000                           OCT      40000                                 #  02 SPECIFY MACHINE ADDRESS (WHOLE)
012021,002757: 23,2055           40000                           OCT      40000                                 #  03 SPECIFY MACHINE ADDRESS (DEGREES)
012022,002758: 23,2056           40000                           OCT      40000                                 #  04 SPECIFY MACHINE ADDRESS (HOURS)
012023,002759: 23,2057           40000                           OCT      40000                                 #  05 SPECIFY MACHINE ADDRESS (SECONDS)
012024,002760: 23,2060           40000                           OCT      40000                                 #  06 SPECIFY MACHINE ADDRESS (GYRO DEG)
012025,002761: 23,2061           00000                           OCT      00000                                 #  07 SPARE
012026,002762: 23,2062           77776                           OCT      77776                                 #  10 CHANNEL TO BE SPECIFIED
012027,002763: 23,2063           00000                           OCT      00000                                 #  11 SPARE
012028,002764: 23,2064           00000                           OCT      00000                                 #  12 SPARE
012029,002765: 23,2065           00000                           OCT      00000                                 #  13 SPARE
012030,002766: 23,2066           00000                           OCT      00000                                 #  14 SPARE
012031,002767: 23,2067           77777                           OCT      77777                                 #  15 INCREMENT MACHINE ADDRESS
012032,002768: 23,2070           00024                           ECADR    TIME2                                 #  16 TIME SECONDS
012033,002769: 23,2071           00024                           ECADR    TIME2                                 #  17 TIME HOURS
012034,002770: 23,2072           00032                           ECADR    CDUX                                  #  20 ICDU
012035,002771: 23,2073           00037                           ECADR    PIPAX                                 #  21 PIPAS
012036,002772: 23,2074           00400                           ECADR    THETAD                                #  22 NEW ANGLES I
012037,002773: 23,2075           00342                           ECADR    DSPTEM2                               #  23 DELTA ANGLES I
012038,002774: 23,2076           00337                           ECADR    DSPTEM1                               #  24 DELTA TIME (SEC)
012039,002775: 23,2077           00337                           ECADR    DSPTEM1                               #  25 CHECKLIST
012040,002776: 23,2100           00337                           ECADR    DSPTEM1                               #  26 PRIO/DELAY, ADRES, BBCON
012041,002777: 23,2101           01355                           ECADR    SMODE                                 #  27 SELF TEST ON/OFF SWITCH
012042,002778: 23,2102           00337                           ECADR    DSPTEM1                               #  30 STAR NUMBERS
012043,002779: 23,2103           01363                           ECADR    ALMCADR                               #  31 ALMCADR, ALMCADR +1, ERCOUNT
012044,002780: 23,2104           02166                           ECADR    TDEC                                  #  32 DECISION TIME (MIDCOURSE)
012045,002781: 23,2105           02046                           ECADR    TET                                   #  33 EPHEMERIS TIME(MIDCOURSE)
012046,002782: 23,2106           02174                           ECADR    MEASQ                                 #  34 MEASURED QUANTITY (MIDCOURSE)
012047,002783: 23,2107           00337                           ECADR    DSPTEM1                               #  35 INBIT MESSAGE

Page 296

012049,002785: 23,2110           01500                           ECADR    LANDMARK                              #  36 LANDMARK DATA 1
012050,002786: 23,2111           01503                           ECADR    LANDMARK   +3                         #  37 LANDMARK DATA 2
012051,002787: 23,2112           00035                           ECADR    OPTY                                  #  40 RENDEZVOUS RADAR ANGLES (TRUN, SHAFT)
012052,002788: 23,2113           00422                           ECADR    TANG                                  #  41 NEW REND. RADAR ANGLES (TRUN, SHAFT)
012053,002789: 23,2114           00342                           ECADR    DSPTEM2                               #  42 AOT ROTATION ANGLES
012054,002790: 23,2115           00374                           ECADR    XYMARK                                #  43 AOT DETENT CODE
012055,002791: 23,2116           00357                           ECADR    FORVEL                                #  44 FORWARD VELOCITY, LATERAL VELOCITY
012056,002792: 23,2117           03031                           ECADR    PCOM                                  #  45 ROTATIONAL HAND CONTROLLER ANGLE RATE
012057,002793: 23,2120           00000                           OCT      00000                                 #  46 SPARE
012058,002794: 23,2121           00000                           OCT      00000                                 #  47 SPARE
012059,002795: 23,2122           01360                           ECADR    FAILREG                               #  50 FAILREG, FAILREG +1, FAILREG +2.
012060,002796: 23,2123           00000                           OCT      00000                                 #  51 SPARE
012061,002797: 23,2124           01444                           ECADR    GBIASX                                #  52 GYRO BIAS DRIFT
012062,002798: 23,2125           01447                           ECADR    ADIAX                                 #  53 GYRO INPUT AXIS ACCELERATION DRIFT
012063,002799: 23,2126           01452                           ECADR    ADSRAX                                #  54 GYRO SPIN AXIS ACCELERATION DRIFT
012064,002800: 
012065,002801:                                                                                                  #  NN  MIXED NOUNS
012066,002802: 23,2127           02000                           OCT      02000                                 #  55 LANDING RADAR ALTITUDE, TIME(SEC)
012067,002803: 23,2130           02002                           OCT      02002                                 #  56 LANDING RADAR VELX, TIME(SEC)
012068,002804: 23,2131           02004                           OCT      02004                                 #  57 LANDING RADAR VELY, TIME(SEC)
012069,002805: 23,2132           02006                           OCT      02006                                 #  60 LANDING RADAR VELZ, TIME(SEC)
012070,002806: 23,2133           02010                           OCT      02010                                 #  61 TARGET AZIMUTH AND ELEVATION
012071,002807: 23,2134           04012                           OCT      04012                                 #  62 RENDEZVOUS RADAR RANGE, TRUN, SHAFT
012072,002808: 23,2135           04015                           OCT      04015                                 #  63 REND. RADAR RANGE RATE, TRUN, SHAFT
012073,002809: 23,2136           04020                           OCT      04020                                 #  64 INITIAL ALT, FINAL ALT, ALT RATE
012074,002810: 23,2137           02023                           OCT      02023                                 #  65 SAMPLED TIME (HOURS AND SECONDS)
012075,002811:                                                                                                  #       (FETCHED IN INTERRUPT)
012076,002812: 23,2140           04025                           OCT      04025                                 #  66 SYSTEM TEST RESULTS
012077,002813: 23,2141           04030                           OCT      04030                                 #  67 DELTA GYRO ANGLES
012078,002814: 23,2142           02033                           OCT      02033                                 #  70 OPTICAL TRACKER ANGLES (AZIMUTH,ELEV)
012079,002815: 23,2143           02035                           OCT      02035                                 #  71 DESIRED OPT. TRACK. ANGLES (AZ, ELEV)
012080,002816: 23,2144           04037                           OCT      04037                                 #  72 DELTA POSITION
012081,002817: 23,2145           04042                           OCT      04042                                 #  73 DELTA VELOCITY
012082,002818: 23,2146           04045                           OCT      04045                                 #  74 MEASUREMENT DATA (MIDCOURSE)
012083,002819: 23,2147           04050                           OCT      04050                                 #  75 MEASUREMENT DEVIATIONS (MIDCOURSE)
012084,002820: 23,2150           04053                           OCT      04053                                 #  76 POSITION VECTOR
012085,002821: 23,2151           04056                           OCT      04056                                 #  77 VELOCITY VECTOR
012086,002822: 
012087,002823:                                                                                                  #  NN        NORMAL NOUNS
012088,002824: 23,2152           00000        NNTYPTAB           OCT      00000                                 #  00 NOT IN USE
012089,002825: 23,2153           00040                           OCT      00040                                 #  01 1COMP  FRACTIONAL
012090,002826: 23,2154           00140                           OCT      00140                                 #  02 1COMP  WHOLE
012091,002827: 23,2155           00102                           OCT      00102                                 #  03 1COMP  DEGREES
012092,002828: 23,2156           00241                           OCT      00241                                 #  04 1COMP  HOURS
012093,002829: 23,2157           00200                           OCT      00200                                 #  05 1COMP  SECONDS
012094,002830: 23,2160           00343                           OCT      00343                                 #  06 1COMP  GYRO DEGREES
012095,002831: 23,2161           00000                           OCT      00000                                 #  07        SPARE
012096,002832: 23,2162           00000                           OCT      00000                                 #  10 1COMP  OCTAL ONLY

Page 297

012098,002834: 23,2163           00000                           OCT      00000                                 #  11        SPARE
012099,002835: 23,2164           00000                           OCT      00000                                 #  12        SPARE
012100,002836: 23,2165           00000                           OCT      00000                                 #  13        SPARE
012101,002837: 23,2166           00000                           OCT      00000                                 #  14        SPARE
012102,002838: 23,2167           00000                           OCT      00000                                 #  15 1COMP  OCTAL ONLY
012103,002839: 23,2170           00200                           OCT      00200                                 #  16 1COMP  SECONDS
012104,002840: 23,2171           00241                           OCT      00241                                 #  17 1COMP  HOURS
012105,002841: 23,2172           04102                           OCT      04102                                 #  20 3COMP  DEGREES
012106,002842: 23,2173           04140                           OCT      04140                                 #  21 3COMP  WHOLE
012107,002843: 23,2174           04102                           OCT      04102                                 #  22 3COMP  DEGREES
012108,002844: 23,2175           04102                           OCT      04102                                 #  23 3COMP  DEGREES
012109,002845: 23,2176           00200                           OCT      00200                                 #  24 1COMP  SECONDS
012110,002846: 23,2177           00140                           OCT      00140                                 #  25 1COMP  WHOLE
012111,002847: 23,2200           04000                           OCT      04000                                 #  26 3COMP  OCTAL ONLY
012112,002848: 23,2201           00140                           OCT      00140                                 #  27 1COMP  WHOLE
012113,002849: 23,2202           04140                           OCT      04140                                 #  30 3COMP  WHOLE
012114,002850: 23,2203           04000                           OCT      04000                                 #  31 3COMP  OCTALONLY
012115,002851: 23,2204           00252                           OCT      00252                                 #  32 1COMP  TIME WEEKS
012116,002852: 23,2205           00252                           OCT      00252                                 #  33 1COMP  TIME WEEKS
012117,002853: 23,2206           00350                           OCT      00350                                 #  34 1COMP  POSITION
012118,002854: 23,2207           04000                           OCT      04000                                 #  35 3COMP  OCTAL ONLY
012119,002855: 23,2210           04000                           OCT      04000                                 #  36 3COMP  OCTAL ONLY
012120,002856: 23,2211           04000                           OCT      04000                                 #  37 3COMP  OCTAL ONLY
012121,002857: 23,2212           02102                           OCT      02102                                 #  40 2COMP  DEGREES
012122,002858: 23,2213           02102                           OCT      02102                                 #  41 2COMP  DEGREES
012123,002859: 23,2214           02102                           OCT      02102                                 #  42 2COMP  DEGREES
012124,002860: 23,2215           00140                           OCT      00140                                 #  43 1COMP  WHOLE
012125,002861: 23,2216           02161                           OCT      02161                                 #  44 2COMP  FORWARD/LATERAL VELOCITY
012126,002862: 23,2217           04162                           OCT      04162                                 #  45 3COMP  ROT HAND CONT ANGLE RATE
012127,002863: 23,2220           00000                           OCT      00000                                 #  46        SPARE
012128,002864: 23,2221           00000                           OCT      00000                                 #  47        SPARE
012129,002865: 23,2222           04000                           OCT      04000                                 #  50 3COMP  OCTAL ONLY
012130,002866: 23,2223           00000                           OCT      00000                                 #  51        SPARE
012131,002867: 23,2224           04144                           OCT      04144                                 #  52 3COMP  GYRO BIAS DRIFT
012132,002868: 23,2225           04145                           OCT      04145                                 #  53 3COMP  GYRO AXIS ACCEL. DRIFT
012133,002869: 23,2226           04145                           OCT      04145                                 #  54 3COMP  GYRO AXIS ACCEL. DRIFT
012134,002870: 
012135,002871:                                                                                                  #  NN        MIXED NOUNS
012136,002872: 23,2227           00016                           OCT      00016                                 #  55 2COMP  LANDING RADAR ALT, SECONDS
012137,002873: 23,2230           00023                           OCT      00023                                 #  56 3COMP  LANDING RADAR VELX, SECONDS
012138,002874: 23,2231           00024                           OCT      00024                                 #  57 2COMP  LANDING RADAR VELY, SECONDS
012139,002875: 23,2232           00025                           OCT      00025                                 #  60 3COMP  LANDING RADAR VELZ, SECONDS
012140,002876: 23,2233           00542                           OCT      00542                                 #  61 2COMP  DEGREES, ELEVATION DEGREES
012141,002877: 23,2234           04114                           OCT      04114                                 #  62 3COMP  REND. RADAR RANGE, DEG, DEG
012142,002878: 23,2235           04115                           OCT      04115                                 #  63 2COMP  REND. RAD. RANGE RATE, DEG,DEG
012143,002879: 23,2236           40757                           OCT      40757                                 #  64 2COMP  IN/FN ALT, IN/FN ALT, ALT RATE
012144,002880: 23,2237           00001                           OCT      00001                                 #  65 2COMP  HOURS, SECONDS
012145,002881: 23,2240           00000                           OCT      00000                                 #  66 3COMP  WHOLE, FRACTIONAL, WHOLE
012146,002882: 23,2241           06143                           OCT      06143                                 #  67 3COMP  GYRO DEGREES FOR EACH
012147,002883: 23,2242           00126                           OCT      00126                                 #  70 3COMP  OPT TRACK AZIMUTH, DEGREES

Page 298

012149,002885: 23,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
012150,002886: 23,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
012151,002887: 23,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
012152,002888: 23,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
012153,002889: 23,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
012154,002890: 23,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
012155,002891: 23,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
012156,002892: 
012157,002893: 
012158,002894: 23,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
012159,002895: 23,2253           03240                           OCT      03240                                 
012160,002896: 23,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
012161,002897: 23,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
012162,002898: 23,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF )
012163,002899: 23,2257           00000                           OCT      0                                     
012164,002900: 23,2260           10707                           OCT      10707                                 #  GYRO DEGREES
012165,002901: 23,2261           03435                           OCT      03435                                 #              UPPED BY 1
012166,002902: 23,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
012167,002903: 23,2263           02133                           OCT      02133                                 
012168,002904: 23,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
012169,002905: 23,2265           30322                           OCT      30322                                 
012170,002906: 23,2266           00004                           OCT      00004                                 #  PIPA BIAS
012171,002907: 23,2267           14021                           OCT      14021                                 
012172,002908: 23,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
012173,002909: 23,2271           31463                           OCT      31463                                 
012174,002910: 23,2272           23420                           OCT      23420                                 #  POSITION
012175,002911: 23,2273           00000                           OCT      00000                                 
012176,002912: 23,2274           00201                           OCT      00201                                 #  VELOCITY
012177,002913: 23,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
012178,002914: 23,2276           01371                           OCT      01371                                 #  TIME WEEKS
012179,002915: 23,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
012180,002916: 23,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
012181,002917: 23,2301           03434                           OCT      03434                                 
012182,002918: 23,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
012183,002919: 23,2303           20162                           OCT      20162                                 
012184,002920: 23,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
012185,002921: 23,2305           27066                           OCT      27066                                 
012186,002922: 23,2306           00005                           OCT      00005                                 #  LANDING RADAR ALTITUDE
012187,002923: 23,2307           24733                           OCT      24733                                 
012188,002924: 23,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
012189,002925: 23,2311           23224                           OCT      23224                                 
012190,002926: 23,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
012191,002927: 23,2313           06500                           OCT      06500                                 
012192,002928: 23,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
012193,002929: 23,2315           36455                           OCT      36455                                 
012194,002930: 23,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
012195,002931: 23,2317           07071                           OCT      07071                                 
012196,002932: 23,2320           00011                           OCT      00011                                 #  LANDING RADAR VELX
012197,002933: 23,2321           17410                           OCT      17410                                 

Page 299

012199,002935: 23,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
012200,002936: 23,2323           33740                           OCT      33740                                 
012201,002937: 23,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
012202,002938: 23,2325           03701                           OCT      03701                                 
012203,002939: 23,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
012204,002940: 23,2327           21616                           OCT      21616                                 
012205,002941:                                                                                                  #  END OF SFINTAB
012206,002942: 
012207,002943: 
012208,002944: 23,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
012209,002945: 23,2331           13261                           OCT      13261                                 
012210,002946: 23,2332           27670                           OCT      27670                                 #  TIME HOURS
012211,002947: 23,2333           31357                           OCT      31357                                 
012212,002948: 23,2334           00000                           OCT      0                                     #  DEGREES
012213,002949: 23,2335           00000                           OCT      0                                     
012214,002950: 23,2336           00714                           OCT      00714                                 #  GYRO DEGREES
012215,002951: 23,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
012216,002952: 23,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
012217,002953: 23,2341           32323                           OCT      32323                                 
012218,002954: 23,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
012219,002955: 23,2343           06400                           OCT      06400                                 
012220,002956: 23,2344           07237                           OCT      07237                                 #  PIPA BIAS
012221,002957: 23,2345           37776                           OCT      37776                                 
012222,002958: 23,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
012223,002959: 23,2347           00000                           OCT      00000                                 
012224,002960: 23,2350           00321                           OCT      00321                                 #  POSITION
012225,002961: 23,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
012226,002962: 23,2352           37441                           OCT      37441                                 #  VELOCITY
012227,002963: 23,2353           14247                           OCT      14247                                 
012228,002964: 23,2354           05300                           OCT      05300                                 #  TIME WEEKS
012229,002965: 23,2355           20305                           OCT      20305                                 
012230,002966: 23,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
012231,002967: 23,2357           23146                           OCT      23146                                 
012232,002968: 23,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
012233,002969: 23,2361           35454                           OCT      35454                                 
012234,002970: 23,2362           03225                           OCT      03225                                 #  RENDEZFOUS RADAR RANGE RATE
012235,002971: 23,2363           07470                           OCT      07470                                 
012236,002972: 23,2364           05521                           OCT      05521                                 #  LANDING RADAR ALTITUDE
012237,002973: 23,2365           30260                           OCT      30260                                 
012238,002974: 23,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
012239,002975: 23,2367           31757                           OCT      31757                                 
012240,002976: 23,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
012241,002977: 23,2371           05531                           OCT      05531                                 
012242,002978: 23,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
012243,002979: 23,2373           16415                           OCT      16415                                 
012244,002980: 23,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
012245,002981: 23,2375           13734                           OCT      13734                                 
012246,002982: 23,2376           03277                           OCT      03277                                 #  LANDING RADAR VELX
012247,002983: 23,2377           14165                           OCT      14165                                 

Page 300

012249,002985: 23,2400           06442                           OCT      06442                                 #  LANDING RADAR VELY
012250,002986: 23,2401           04735                           OCT      04735                                 
012251,002987: 23,2402           04374                           OCT      04374                                 #  LANDING RADAR VELZ
012252,002988: 23,2403           30251                           OCT      30251                                 
012253,002989: 23,2404           05605                           OCT      05605                                 #  OPTICAL TRACKER AZIMUTH ANGLE
012254,002990: 23,2405           03656                           OCT      03656                                 
012255,002991:                                                                                                  #  END OF SFOUTAB
012256,002992: 
012257,002993: 
012258,002994:                                                                                                  #  MIXNOUN  SF ROUT
012259,002995: 23,2406           03471        IDADDTAB           ECADR    RSTACK     +18D                       #  01       LANDING RADAR ALTITUDE
012260,002996: 23,2407           03475                           ECADR    RSTACK     +22D                       #  01       SECONDS
012261,002997: 23,2410           03447                           ECADR    RSTACK                                #  02       LANDING RADAR VELX
012262,002998: 23,2411           03453                           ECADR    RSTACK     +4                         #  02       SECONDS
012263,002999: 23,2412           03455                           ECADR    RSTACK     +6                         #  03       LANDING RADAR VELY
012264,003000: 23,2413           03461                           ECADR    RSTACK     +10D                       #  03       SECONDS
012265,003001: 23,2414           03463                           ECADR    RSTACK     +12D                       #  04       LANDING RADAR VELZ
012266,003002: 23,2415           03467                           ECADR    RSTACK     +16D                       #  04       SECONDS
012267,003003: 23,2416           00337                           ECADR    DSPTEM1                               #  05       DEGREES
012268,003004: 23,2417           00340                           ECADR    DSPTEM1    +1                         #  05       ELEVATION DEGREES
012269,003005: 23,2420           03447                           ECADR    RSTACK                                #  06       RENDEZVOUS RADAR RANGE
012270,003006: 23,2421           03451                           ECADR    RSTACK     +2                         #  06       DEGREES
012271,003007: 23,2422           03452                           ECADR    RSTACK     +3                         #  06       DEGREES
012272,003008: 23,2423           03455                           ECADR    RSTACK     +6                         #  07       RENDEZVOUS RADAR RANGE RATE
012273,003009: 23,2424           03457                           ECADR    RSTACK     +8D                        #  07       DEGREES
012274,003010: 23,2425           03460                           ECADR    RSTACK     +9D                        #  07       DEGREES
012275,003011: 23,2426           00351                           ECADR    ALT                                   #  10       INITIAL/FINAL ALTITUDE
012276,003012: 23,2427           00354                           ECADR    FINALT                                #  10       INITIAL/FINAL ALTITUDE
012277,003013: 23,2430           00353                           ECADR    ALTRATE                               #  10       ALTITUDE RATE
012278,003014: 23,2431           00013                           ECADR    SAMPTIME                              #  11       HOURS
012279,003015: 23,2432           00013                           ECADR    SAMPTIME                              #  11       SECONDS
012280,003016: 23,2433           00342                           ECADR    DSPTEM2                               #  12       WHOLE
012281,003017: 23,2434           00343                           ECADR    DSPTEM2    +1                         #  12       FRACTIONAL
012282,003018: 23,2435           00344                           ECADR    DSPTEM2    +2                         #  12       WHOLE
012283,003019: 23,2436           00403                           ECADR    DELVX                                 #  13       GYRO DEGREES
012284,003020: 23,2437           00405                           ECADR    DELVX      +2                         #  13       GYRO DEGREES
012285,003021: 23,2440           00407                           ECADR    DELVX      +4                         #  13       GYRO DEGREES
012286,003022: 23,2441           01475                           ECADR    AZANG                                 #  14       OPT TRACK AZIMUTH ANGLE
012287,003023: 23,2442           01475                           ECADR    ELANG                                 #  14       DEGREES
012288,003024: 23,2443           01475                           ECADR    DESLOTSY                              #  15       OPT TRACK AZIMUTH ANGLE
012289,003025: 23,2444           01475                           ECADR    DESLOTSX                              #  15       DEGREES
012290,003026: 23,2445           02052                           ECADR    DELR                                  #  16       POSITION
012291,003027: 23,2446           02054                           ECADR    DELR       +2                         #  16       POSITION
012292,003028: 23,2447           02056                           ECADR    DELR       +4                         #  16       POSITION
012293,003029: 23,2450           02060                           ECADR    DELVEL                                #  17       VELOCITY
012294,003030: 23,2451           02062                           ECADR    DELVEL     +2                         #  17       VELOCITY
012295,003031: 23,2452           02064                           ECADR    DELVEL     +4                         #  17       VELOCITY
012296,003032: 23,2453           02166                           ECADR    TDEC                                  #  20       TIME WEEKS
012297,003033: 23,2454           02174                           ECADR    MEASQ                                 #  20       POSITION

Page 301

012299,003035: 23,2455           02200                           ECADR    MEASMODE                              #  20       WHOLE
012300,003036: 23,2456           00337                           ECADR    DSPTEM1                               #  21       POSITION
012301,003037: 23,2457           00341                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
012302,003038: 23,2460           02176                           ECADR    DELTAQ                                #  21       POSITION
012303,003039: 23,2461           00337                           ECADR    DSPTEM1                               #  22       POSITION
012304,003040: 23,2462           00341                           ECADR    DSPTEM1    +2                         #  22       POSITION
012305,003041: 23,2463           00343                           ECADR    DSPTEM1    +4                         #  22       POSITION
012306,003042: 23,2464           00337                           ECADR    DSPTEM1                               #  23       VELOCITY
012307,003043: 23,2465           00341                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
012308,003044: 23,2466           00343                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
012309,003045: 23,2467           00000                           OCT      00000                                 #           SPARE
012310,003046: 23,2470           00000                           OCT      00000                                 #           SPARE
012311,003047: 23,2471           00000                           OCT      00000                                 #           SPARE
012312,003048: 23,2472           00000                           OCT      00000                                 #           SPARE
012313,003049: 23,2473           00000                           OCT      00000                                 #           SPARE
012314,003050: 23,2474           00000                           OCT      00000                                 #           SPARE
012315,003051:                                                                                                  #  END OF IDADDTAB
012316,003052: 
012317,003053:                                                                                                  #  MIXNOUN  SF ROUT
012318,003054: 23,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
012319,003055: 23,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
012320,003056: 23,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
012321,003057: 23,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
012322,003058: 23,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
012323,003059: 23,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
012324,003060: 23,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
012325,003061: 23,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012326,003062: 23,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
012327,003063: 23,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
012328,003064: 23,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
012329,003065: 23,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
012330,003066: 23,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
012331,003067: 23,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
012332,003068: 23,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
012333,003069: 23,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
012334,003070: 23,2515           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
012335,003071: 23,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
012336,003072: 23,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
012337,003073:                                                                                                  #  END OF RUTMXTAB
012338,003074: 

Page 302

012340,003076:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012341,003077: 
012342,003078:    4513                                           BLOCK    02                                    
012343,003079: 
012344,003080:                                                                                                  #  SETNCADR      E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012345,003081:                                                                                                  #                ARE SET.  E ADRES IS DERIVED AND PUT INTO NOUNADD.
012346,003082: 
012347,003083:    4513           54310        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
012348,003084:    4514           54003                           TS       EBANK                                 #  SET EBANK BITS
012349,003085:    4515           74564                           MASK     LOW8                                  
012350,003086:    4516           65352                           AD       OCT1400                               
012351,003087:    4517           54135                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
012352,003088:    4520           00002                           TC       Q                                     
012353,003089: 
012354,003090:                                                                                                  #  SETNADD       GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012355,003091:                                                                                                  #                E ADRES AND PUTS IT INTO NOUNADD.
012356,003092: 
012357,003093:    4521           30310        SETNADD            CA       NOUNCADR                              
012358,003094:    4522           14514                           TCF      SETNCADR   +1                         
012359,003095: 
012360,003096:                                                                                                  #  SETEBANK      E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012361,003097:                                                                                                  #                DERIVED AND LEFT IN A.
012362,003098: 
012363,003099:    4523           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
012364,003100:    4524           74564                           MASK     LOW8                                  
012365,003101:    4525           65352                           AD       OCT1400                               #  E ADRES LEFT IN A
012366,003102:    4526           00002                           TC       Q                                     
012367,003103: 
012368,003104: 
012369,003105:    4527           00016        R1D1               OCT      16                                    
012370,003106:    4530           00011        R2D1               OCT      11                                    
012371,003107:    4531           00004        R3D1               OCT      4                                     
012372,003108: 
012373,003109:    4532           54020        RIGHT5             TS       CYR                                   
012374,003110:    4533           40020                           CS       CYR                                   
012375,003111:    4534           40020                           CS       CYR                                   
012376,003112:    4535           40020                           CS       CYR                                   
012377,003113:    4536           40020                           CS       CYR                                   
012378,003114:    4537           56020                           XCH      CYR                                   
012379,003115:    4540           00002                           TC       Q                                     
012380,003116: 
012381,003117:    4541           54022        LEFT5              TS       CYL                                   
012382,003118:    4542           40022                           CS       CYL                                   
012383,003119:    4543           40022                           CS       CYL                                   

Page 303

012385,003121:    4544           40022                           CS       CYL                                   
012386,003122:    4545           40022                           CS       CYL                                   
012387,003123:    4546           56022                           XCH      CYL                                   
012388,003124:    4547           00002                           TC       Q                                     
012389,003125: 
012390,003126:    4550           60000        SLEFT5             DOUBLE                                         
012391,003127:    4551           60000                           DOUBLE                                         
012392,003128:    4552           60000                           DOUBLE                                         
012393,003129:    4553           60000                           DOUBLE                                         
012394,003130:    4554           60000                           DOUBLE                                         
012395,003131:    4555           00002                           TC       Q                                     
012396,003132: 
012397,003133: 
012398,003134:    4556           00037        LOW5               OCT      37                                    
012399,003135:    4557           01740        MID5               OCT      1740                                  
012400,003136:    4560           76000        HI5                OCT      76000                                 #  MUST STAY HERE
012401,003137: 
012402,003138:    4561     5723               TCNOVAC            =        SVCT3      +5                         
012403,003139:    4561           05663        TCWAIT             TC       WAITLIST                              
012404,003140:    4562     5717               TCTSKOVR           =        SVCT3      +1                         
012405,003141:    4562           05516        TCFINDVC           TC       FINDVAC                               
012406,003142: 
012407,003143: 
012408,003144:    4563     5210               CHRPRIO            =        PRIO30                                #  EXEC PRIORITY OF CHARIN
012409,003145: 
012410,003146:    4563           03777        LOW11              OCT      3777                                  
012411,003147:    4564     4563               B12-1              EQUALS   LOW11                                 
012412,003148:    4564           00377        LOW8               OCT      377                                   
012413,003149:    4565           00023        VD1                OCT      23                                    
012414,003150:    4566           00021        ND1                OCT      21                                    
012415,003151:    4567           00025        MD1                OCT      25                                    
012416,003152: 
012417,003153:    4570           00012        BINCON             DEC      10         B-14                       
012418,003154: 
012419,003155:    4571           37755        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
012420,003156:    4572           00006                           EXTEND                                         
012421,003157:    4573           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
012422,003158:    4574           00002                           TC       Q                                     
012423,003159: 
012424,003160:    4575           47755        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
012425,003161:    4576           00006                           EXTEND                                         
012426,003162:    4577           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
012427,003163:    4600           00002                           TC       Q                                     
012428,003164: 
012429,003165:    4601           37757        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
012430,003166:    4602           00006                           EXTEND                                         
012431,003167:    4603           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
012432,003168:    4604           00002                           TC       Q                                     
012433,003169: 

Page 304

012435,003171:    4605           00006        LODSAMPT           EXTEND                                         
012436,003172:    4606           30025                           DCA      TIME2                                 
012437,003173:    4607           52014                           DXCH     SAMPTIME                              
012438,003174:    4610           00002                           TC       Q                                     
012439,003175: 
012440,003176: 
012441,003177:    4611           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
012442,003178:    4612           30146                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012443,003179:    4613           20146                           DAS      MPAC       +1                         
012444,003180:    4614           60144                           AD       MPAC                                  
012445,003181:    4615           26144                           ADS      MPAC                                  
012446,003182:    4616           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
012447,003183:    4617           00002                           TC       Q                                     #  NO NET OF/UF
012448,003184:    4620           54111                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
012449,003185:    4621           00002                           TC       Q                                     
012450,003186: 
012451,003187: 
012452,003188:    4622           37756        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
012453,003189:    4623           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
012454,003190:    4624           05011                           WOR      DSALMOUT                              
012455,003191:    4625           00002                           TC       Q                                     
012456,003192: 
012457,003193:    4626           47756        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
012458,003194:    4627           00006                           EXTEND                                         
012459,003195:    4630           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
012460,003196:    4631           00002                           TC       Q                                     
012461,003197: 

Page 305

012463,003199:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012464,003200:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012465,003201:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
012466,003202: 
012467,003203:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
012468,003204:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
012469,003205: 
012470,003206:                                                                                                  #        THE CALLING SEQUENCES ARE
012471,003207:                                                                                                  #  L        TC     GRABDSP
012472,003208:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
012473,003209:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
012474,003210: 
012475,003211:                                                                                                  #  L        TC     NVSUB
012476,003212:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
012477,003213:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
012478,003214: 
012479,003215:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012480,003216:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012481,003217:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012482,003218:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012483,003219:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012484,003220: 
012485,003221:                                                                                                  #        THE CALLING SEQUENCE IS
012486,003222:                                                                                                  #           CAF    WAKEFCADR
012487,003223:                                                                                                  #           TC     GRABUSY
012488,003224: 
012489,003225:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
012490,003226:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012491,003227:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012492,003228:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012493,003229:                                                                                                  #                                              YOUR CADR IS PUT
012494,003230:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO).  IT ALSO TURNS ON KEY RELEASE LIGHT.
012495,003231: 
012496,003232:                                                                                                  #         THE CALLING SEQUENCE IS
012497,003233:                                                                                                  #           CAF    WAKEFCADR
012498,003234:                                                                                                  #           TC     NVSUBUSY
012499,003235: 
012500,003236: 
012501,003237:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012502,003238:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012503,003239:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
012504,003240: 
012505,003241: 
012506,003242:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD 
012507,003243:                                                                                                  #  AND DISPLAY SYSTEM.
012508,003244:                                                                                                  #  +0  FREE

Page 306

012510,003246:                                                                                                  #  +1  SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
012511,003247:                                                                                                  #  +2  SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
012512,003248: 
012513,003249:    4632           10330        GRABDSP            CCS      GRABLOCK                              
012514,003250:    4633           00002                           TC       Q                                     #  ALREADY GRABBED, RETURN TO L+1
012515,003251:    4634           37763                           CAF      ONE                                   #  NOT GRABBED, SET TO +1
012516,003252:    4635           54330                           TS       GRABLOCK                              #  AND RETURN TO L+2
012517,003253:    4636           17015                           TCF      Q+1                                   
012518,003254: 
012519,003255: 
012520,003256:    4637           35337        PREGBSY            CAF      LOW10                                 #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012521,003257:    4640           70002                           MASK     Q                                     #  BANKS ONLY DESIRING THE FCADR OF
012522,003258:    4641           60004                           AD       FBANK                                 #  1 + (LOC FROM WHICH TC PREGBSY WAS DONE)
012523,003259:    4642           05225        GRABUSY            TC       POSTJUMP                              #  TO BE ENTERED.
012524,003260:    4643           10000                           CADR     GRABUSYB                              
012525,003261: 04,3472                                           SETLOC   DOPROC     +2                         
012526,003262: 04,3472           54001        GRABUSY1           TS       L                                     
012527,003263: 04,3473           10330                           CCS      GRABLOCK                              
012528,003264: 04,3474           03477                           TC       +3                                    #  STILL GRABBED
012529,003265: 04,3475           30001                           CA       L                                     #  NOT GRABBED SO DO DIRECT CALL
012530,003266: 04,3476           05230                           TC       BANKJUMP                              
012531,003267: 04,3477           37762                           CAF      TWO                                   
012532,003268: 04,3500           54134                           TS       LSTPTR                                
012533,003269: 04,3501           50134                           INDEX    LSTPTR                                #  SEARCH LIST FOR FIRST AVAILABLE SPACE
012534,003270: 04,3502           10333                           CCS      DSPLIST                               #  FROM BOTTOM.
012535,003271: 04,3503           03505                           TC       +2                                    
012536,003272: 04,3504           03510                           TC       PUTINLST                              #  SPACE FOUND
012537,003273: 04,3505           10134                           CCS      LSTPTR                                #  DECREMENT POINTER
012538,003274: 04,3506           03500                           TC       -6                                    
012539,003275: 04,3507           03554                           TC       LSTFULL                               
012540,003276: 04,3510           30001        PUTINLST           CA       L                                     
012541,003277: 04,3511           50134                           INDEX    LSTPTR                                
012542,003278: 04,3512           54333                           TS       DSPLIST                               
012543,003279: 04,3513           05545                           TC       JOBSLEEP                              
012544,003280: 
012545,003281: 
012546,003282:                                                                                                  #  GRABWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012547,003283:                                                                                                  #  SYSTEM IS NOT GRABBED, IT GRABS IT AND RETURNS TO L+1 (L = LOC FROM
012548,003284:                                                                                                  #  WHICH THE TC GRABWAIT WAS DONE). IF SYSTEM IS GRABBED, IT PUTS CALLING
012549,003285:                                                                                                  #  JOB TO SLEEP WITH L+1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN
012550,003286:                                                                                                  #  SYSTEM IS FREED.
012551,003287: 
012552,003288:    4644                                           SETLOC   GRABUSY    +2                         
012553,003289:    4644           10330        GRABWAIT           CCS      GRABLOCK                              
012554,003290:    4645           14637                           TCF      PREGBSY                               #  GRABBED. PUT L+1 INTO LIST. GO TO SLEEP.
012555,003291:    4646           37763                           CAF      ONE                                   #  NOT GRABBED. GRAB AND RETURN TO L+1.

Page 307

012557,003293:    4647           54330                           TS       GRABLOCK                              
012558,003294:    4650           00002                           TC       Q                                     
012559,003295: 
012560,003296: 
012561,003297:    4651           44656        PRENVBSY           CS       2K+3                                  #  SPECIAL ENTRANCE FOR ROUTINES IN FIXED
012562,003298:    4652           60002                           AD       Q                                     #  BANKS ONLY DESIRING THE FCADR OF (LOC
012563,003299:    4653           60004                           AD       FBANK                                 #  FROM WHICH THE TC PRENVBSY WAS DONE) -2
012564,003300:    4654           05225        NVSUBUSY           TC       POSTJUMP                              #  TO BE ENTERED.
012565,003301:    4655           10001                           CADR     NVSUBSYB                              
012566,003302:    4656           02003        2K+3               OCT      2003                                  
012567,003303: 
012568,003304: 04,3514                                           SETLOC   PUTINLST   +4                         
012569,003305: 04,3514           54001        NVSUBSY1           TS       L                                     
012570,003306: 04,3515           10303                           CCS      DSPLOCK                               #  TEST IF REALLY LOCKED OUT
012571,003307: 04,3516           03521                           TC       +3                                    #  STILL BUSY
012572,003308: 04,3517           30001                           CA       L                                     #  DSPLOCK = +0 SO RETURN DIRECTLY
012573,003309: 04,3520           05230                           TC       BANKJUMP                              
012574,003310: 04,3521           37762                           CAF      TWO                                   #  SET FOR GRABBED STATE AND NVSUBUSY USE
012575,003311: 04,3522           54330                           TS       GRABLOCK                              
012576,003312: 04,3523           30001                           CA       L                                     
012577,003313: 04,3524           56335                           XCH      DSPLIST    +2                         #  ENTER CADR INTO FIRST POSITION OF LIST
012578,003314: 04,3525           56334                           XCH      DSPLIST    +1                         #          (BOTTOM)
012579,003315: 04,3526           56333                           XCH      DSPLIST                               
012580,003316: 04,3527           10000                           CCS      A                                     
012581,003317: 04,3530           03554                           TC       LSTFULL                               
012582,003318: 04,3531           03533                           TC       +2                                    
012583,003319: 04,3532           03554                           TC       LSTFULL                               
012584,003320: 04,3533           04601                           TC       RELDSPON                              
012585,003321: 04,3534           30001                           CA       L                                     
012586,003322: 04,3535           05545        ENDNVBSY           TC       JOBSLEEP                              
012587,003323: 
012588,003324: 
012589,003325:                                                                                                  #  NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
012590,003326:                                                                                                  #  SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
012591,003327:                                                                                                  #  WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
012592,003328:                                                                                                  #  TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
012593,003329:                                                                                                  #  IS NOT BUSY.
012594,003330: 
012595,003331:    4657                                           SETLOC   NVSUBUSY   +3                         
012596,003332:    4657           54113        NVSBWAIT           TS       NVTEMP                                
012597,003333:    4660           10303                           CCS      DSPLOCK                               
012598,003334:    4661           14664                           TCF      NVSBWT1                               #  BUSY
012599,003335:    4662           30002                           CA       Q                                     #  FREE. NVSUB WILL SAVE L+1 FOR RETURN
012600,003336:    4663           14451                           TCF      NVSUB      +5                         #  AFTER EXECUTION.
012601,003337:    4664           24002        NVSBWT1            INCR     Q                                     #  L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
012602,003338:    4665           14651                           TCF      PRENVBSY                              #  GO TO SLEEP.
012603,003339: 

Page 308

012605,003341:    4666           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
012606,003342:    4667           54134                           TS       RELRET                                #  OFF, SEARCH DSPLIST
012607,003343:    4670           37771                           CAF      NEG1                                  
012608,003344:    4671           60330                           AD       GRABLOCK                              
012609,003345:    4672           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
012610,003346:    4673           64701                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
012611,003347:    4674           04714                           TC       WKSEARCH                              
012612,003348:    4675           04701                           TC       RELDSP2                               #  LIST EMPTY
012613,003349:    4676           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012614,003350:    4677           37763                           CAF      ONE                                   
012615,003351:    4700           54330                           TS       GRABLOCK                              
012616,003352:    4701           00004        RELDSP2            INHINT                                         
012617,003353:    4702           47757                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
012618,003354:    4703           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
012619,003355:    4704           03011                           WAND     DSALMOUT                              
012620,003356:    4705           37767                           CAF      ZERO                                  
012621,003357:    4706           54303                           TS       DSPLOCK                               
012622,003358:    4707           00003                           RELINT                                         
012623,003359:    4710           00134                           TC       RELRET                                
012624,003360:    4711           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
012625,003361:    4712           54134                           TS       RELRET                                #  NO LIST SEARCH
012626,003362:    4713           04701                           TC       RELDSP2                               
012627,003363: 
012628,003364: 
012629,003365:    4714           37767        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
012630,003366:    4715           56333                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
012631,003367:    4716           56334                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
012632,003368:    4717           56335                           XCH      DSPLIST    +2                         
012633,003369:    4720           00006                           EXTEND                                         
012634,003370:    4721           17020                           BZF      TCQ                                   #  EMPTY, RETURN TO L+1
012635,003371:    4722           00004                           INHINT                                         #  NOT EMPTY
012636,003372:    4723           17015                           TCF      Q+1                                   #  RETURN TO L+2
012637,003373: 
012638,003374:    4724           56002        FREEDSP            XCH      Q                                     
012639,003375:    4725           54134                           TS       FREERET                               
012640,003376:    4726           00004                           INHINT                                         
012641,003377:    4727           34735                           CAF      SHOTIME                               
012642,003378:    4730           05663                           TC       WAITLIST                              
012643,003379:    4731     0270                                  EBANK=   DSPCOUNT                              
012644,003380:    4731           03536 10060                     2CADR    FREEWAIT                              
012645,003381: 
012646,003382:    4733           00003                           RELINT                                         
012647,003383:    4734           00134                           TC       FREERET                               
012648,003384: 
012649,003385:    4735           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SEC.
012650,003386: 04,3536                                           SETLOC   ENDNVBSY   +1                         
012651,003387: 

Page 309

012653,003389: 04,3536           35210        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
012654,003390: 04,3537           05505                           TC       NOVAC                                 
012655,003391: 04,3540     0270                                  EBANK=   DSPCOUNT                              
012656,003392: 04,3540           03543 10060                     2CADR    FREDSPDO                              
012657,003393: 
012658,003394: 04,3542           05727                           TC       TASKOVER                              
012659,003395: 
012660,003396: 
012661,003397: 04,3543           04714        FREDSPDO           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
012662,003398: 04,3544           03552                           TC       LSTEMPTY                              #  LIST EMPTY
012663,003399: 04,3545           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012664,003400: 04,3546           00003                           RELINT                                         
012665,003401: 04,3547           37763                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
012666,003402: 04,3550           54330                           TS       GRABLOCK                              
012667,003403: 04,3551           05567                           TC       ENDOFJOB                              
012668,003404: 04,3552           37767        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
012669,003405: 04,3553           03550                           TC       -3                                    
012670,003406: 
012671,003407: 
012672,003408: 04,3554           06000        LSTFULL            TC       ABORT                                 
012673,003409: 04,3555           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
012674,003410: 

Page 310

012676,003412:                                                                                                  #  VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
012677,003413:                                                                                                  #  OFF THE CAUTION AND STATUS LIGHTS.
012678,003414: 
012679,003415: 05,3414                                           SETLOC   DSPMMEND   +1                         
012680,003416: 
012681,003417: 05,3414           00004        VBTSTLTS           INHINT                                         
012682,003418: 05,3415           47763                           CS       BIT1                                  #  SET BIT 1 OF IMODES33 SO IMUMON WONT
012683,003419: 05,3416           70366                           MASK     IMODES33                              #  TURN OUT ANY LAMPS.
012684,003420: 05,3417           67763                           AD       BIT1                                  
012685,003421: 05,3420           54366                           TS       IMODES33                              
012686,003422: 
012687,003423: 05,3421           33457                           CAF      TSTCON1                               #  TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
012688,003424: 05,3422           00006                           EXTEND                                         #  V/N FLASH, OPERATOR ERROR.
012689,003425: 05,3423           05011                           WOR      DSALMOUT                              
012690,003426: 05,3424           33460                           CAF      TSTCON2                               #  TURN ON NO ATT, GIMBAL LOCK, TRACKER,
012691,003427: 05,3425           54326                           TS       DSPTAB     +11D                       #  PROG ALM.
012692,003428: 05,3426           37752                           CAF      BIT10                                 #  TURN ON TEST ALARM OUTBIT
012693,003429: 05,3427           00006                           EXTEND                                         
012694,003430: 05,3430           05013                           WOR      CHAN13                                
012695,003431: 05,3431           34570                           CAF      TEN                                   
012696,003432: 05,3432           54107        TSTLTS1            TS       ERCNT                                 
012697,003433: 05,3433           43455                           CS       FULLDSP                               
012698,003434: 05,3434           50107                           INDEX    ERCNT                                 
012699,003435: 05,3435           54313                           TS       DSPTAB                                
012700,003436: 05,3436           10107                           CCS      ERCNT                                 
012701,003437: 05,3437           03432                           TC       TSTLTS1                               
012702,003438: 05,3440           43456                           CS       FULLDSP1                              
012703,003439: 05,3441           54314                           TS       DSPTAB     +1                         #  TURN ON 3 PLUS SIGNS
012704,003440: 05,3442           54317                           TS       DSPTAB     +4                         
012705,003441: 05,3443           54321                           TS       DSPTAB     +6                         
012706,003442: 05,3444           37764                           CAF      ELEVEN                                
012707,003443: 05,3445           54307                           TS       NOUT                                  
012708,003444: 05,3446           00003                           RELINT                                         
012709,003445: 05,3447           33462                           CAF      SHOLTS                                
012710,003446: 05,3450           00004                           INHINT                                         
012711,003447: 05,3451           05663                           TC       WAITLIST                              
012712,003448: 05,3452     0313                                  EBANK=   DSPTAB                                
012713,003449: 05,3452           03463 12060                     2CADR    TSTLTS2                               
012714,003450: 
012715,003451: 05,3454           05567                           TC       ENDOFJOB                              #  DSPLOCK IS LEFT BUSY (FROM KEYBOARD
012716,003452:                                                                                                  #  ACTION) UNTIL TSTLTS3 TO INSURE THAT
012717,003453:                                                                                                  #  LIGHTS TEST WILL BE SEEN.
012718,003454: 
012719,003455: 05,3455           05675        FULLDSP            OCT      05675                                 #  DISPLAY ALL 8;S
012720,003456: 05,3456           07675        FULLDSP1           OCT      07675                                 #  DISPLAY ALL 8;S AND +
012721,003457: 05,3457           00175        TSTCON1            OCT      00175                                 
012722,003458:                                                                                                  #  UPLINK ACTIVITY, TEMP, KEY RLSE,
012723,003459:                                                                                                  #  V/N FLASH, OPERATOR ERROR.

Page 311

012725,003461: 05,3460           40650        TSTCON2            OCT      40650                                 #  DSPTAB+11D BITS 4,6,8,9,
012726,003462:                                                                                                  #  NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
012727,003463: 05,3461           00115        TSTCON3            OCT      00115                                 #  CHAN 11 BITS 1, 3, 4, 7.
012728,003464:                                                                                                  #  UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
012729,003465: 05,3462           00764        SHOLTS             OCT      764                                   #  5 SEC
012730,003466: 
012731,003467: 05,3463           35210        TSTLTS2            CAF      CHRPRIO                               #  CALLED BY WAITLIST
012732,003468: 05,3464           05505                           TC       NOVAC                                 
012733,003469: 05,3465     0313                                  EBANK=   DSPTAB                                
012734,003470: 05,3465           03470 12060                     2CADR    TSTLTS3                               
012735,003471: 
012736,003472: 05,3467           05727                           TC       TASKOVER                              
012737,003473: 
012738,003474: 
012739,003475: 05,3470           43461        TSTLTS3            CS       TSTCON3                               #  CALLED BY EXECUTIVE
012740,003476: 05,3471           00004                           INHINT                                         
012741,003477: 05,3472           00006                           EXTEND                                         #  TURN OFF  UPLINK ACTIVITY, TEMP,
012742,003478: 05,3473           03011                           WAND     DSALMOUT                              #  OPERATOR ERROR.
012743,003479: 05,3474           47752                           CS       BIT10                                 #  TURN OFF  TEST ALARM OUTBIT
012744,003480: 05,3475           00006                           EXTEND                                         
012745,003481: 05,3476           03013                           WAND     CHAN13                                
012746,003482: 05,3477           37745                           CAF      BIT15                                 #  TURN OFF AUTO, HOLD, FREE, NO ATT, SPARE
012747,003483: 05,3500           54326                           TS       DSPTAB     +11D                       #  GIMBAL LOCK, SPARE, TRACKER, PROG ALM
012748,003484: 05,3501           43521                           CS       13-11,1                               #  SET BITS TO INDICATE ALL LAMPS OUT. TEST
012749,003485: 05,3502           70366                           MASK     IMODES33                              #  LIGHTS COMPLETE.
012750,003486: 05,3503           65642                           AD       PRIO16                                
012751,003487: 05,3504           54366                           TS       IMODES33                              
012752,003488: 
012753,003489: 05,3505           43523                           CS       OCT55000                              
012754,003490: 05,3506           70365                           MASK     IMODES30                              
012755,003491: 05,3507           65641                           AD       PRIO15                                #  15000.
012756,003492: 05,3510           54365                           TS       IMODES30                              
012757,003493: 
012758,003494: 05,3511           43522                           CS       RFAILS2                               
012759,003495: 05,3512           70412                           MASK     RADMODES                              
012760,003496: 05,3513           67755                           AD       BIT7                                  
012761,003497: 05,3514           54412                           TS       RADMODES                              
012762,003498: 
012763,003499: 05,3515           00003                           RELINT                                         
012764,003500: 
012765,003501: 05,3516           02001                           TC       DSPMM                                 #  REDISPLAY C(MODREG)
012766,003502: 05,3517           05225                           TC       POSTJUMP                              #  TURN OFF KEY RLSE LIGHT (AND SEARCH LIST
012767,003503: 05,3520           11333                           CADR     VBTERM                                #  IF APPROPRIATE).
012768,003504:                                                                                                  #  TURN OFF V/N FLASH, SET LOADSTAT FOR
012769,003505:                                                                                                  #  FOR TERMINATE CONDITION, AND TO TO
012770,003506:                                                                                                  #  RECALTST. FINALLY DO TC ENDOFJOB.
012771,003507: 

Page 312

012773,003509: 05,3521           16001        13-11,1            OCT      16001                                 
012774,003510: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
012775,003511: 05,3523           55000        OCT55000           OCT      55000                                 

End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc.  Parent file is MAIN.agc