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.

009237,000002:                                                                                                  ## Copyright:   Public domain.
009238,000003:                                                                                                  ## Filename:    PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
009239,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
009240,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009241,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
009242,000007:                                                                                                  ## Assembler:   yaYUL
009243,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009244,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009245,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
009246,000011:                                                                                                  ##              2016-10-08 RSB  Finished transcription.
009247,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
009248,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
009249,000014:                                                                                                  ##              2016-11-02 RSB  More typos.
009250,000015:                                                                                                  ##              2016-12-04 RSB  Proofed with octopus/ProoferComments and fixed various
009251,000016:                                                                                                  ##                              comments, but the proofing process is not completed.
009252,000017:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
009253,000018:                                                                                                  ##                              changes made.
009254,000019:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
009255,000020:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes noted while proofing Artemis 72.
009256,000021:                                                                                                  ##              2017-03-08 RSB  Comment-text fixes noted while proofing Luminary 116.
009257,000022:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
009258,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
009259,000024:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
009260,000025:                                                                                                  ##                              Luminary 99 vs Comanche 55.
009261,000026:                                                                                                  ##              2017-06-06 RSB  Comment-text fixes (mostly whitespace) identified 
009262,000027:                                                                                                  ##                              in transcribing Sunburst 37.  Curiously, the label
009263,000028:                                                                                                  ##                              ENDVBFAN on p. 253 was missing, and I've added it, but
009264,000029:                                                                                                  ##                              it turns out not to have be referenced anywhere else
009265,000030:                                                                                                  ##                              in the code, and therefore its absence had no effect
009266,000031:                                                                                                  ##                              on the generated octals.
009267,000032:                                                                                                  ##              2017-06-07 RSB  More of the same.
009268,000033: 

Page 232

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

Page 233

009319,000084:                                                                                                  #  NORMAL EXIT MODES-
009320,000085: 
009321,000086:                                                                                                  #     IF PINBALL WAS CALLED BY EXTERNAL ACTION, EXIT IS TO :ENDOFJOB:.
009322,000087: 
009323,000088:                                                                                                  #     IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
009324,000089:                                                                                                  #  TO CALLING ROUTINE.  DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
009325,000090:                                                                                                  #  :NVSUB: AND :NVSUBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
009326,000091: 
009327,000092: 
009328,000093:                                                                                                  #  ALARM OR ABORT EXIT MODES-
009329,000094: 
009330,000095:                                                                                                  #  EXTERNAL INITIATION:
009331,000096:                                                                                                  #     IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
009332,000097:                                                                                                  #  ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
009333,000098: 
009334,000099:                                                                                                  #  INTERNAL PROGRAM INITIATION:
009335,000100:                                                                                                  #     IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
009336,000101:                                                                                                  #  (WITH OCTAL 01501) AND EXIT TO :ENDOFJOB:.
009337,000102: 
009338,000103:                                                                                                  #  CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN DIGITAL DEVELOPMENT
009339,000104:                                                                                                  #  REPORT NO. 11.
009340,000105: 
009341,000106: 
009342,000107:                                                                                                  #  OUTPUT-
009343,000108: 
009344,000109:                                                                                                  #     INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
009345,000110:                                                                                                  #  BUFFERS REGISTERS (UNDER EXEC CONTROL).  :DSPOUT: (A PART OF T4RUPT)
009346,000111:                                                                                                  #  HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
009347,000112:                                                                                                  #  IN INTERRUPT.
009348,000113: 
009349,000114: 
009350,000115:                                                                                                  #  ERASABLE INITIALIZATION-
009351,000116: 
009352,000117:                                                                                                  #     FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
009353,000118:                                                                                                  #  PINBALL IN :STARTSUB:.   REGISTERS ARE:  DSPTAB BUFFER, CADRSTOR,
009354,000119:                                                                                                  #  REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, GRABLOCK, VERBREG, NOUNREG, 
009355,000120:                                                                                                  #  DSPLIST, +1, +2, DSPCOUNT.
009356,000121: 
009357,000122:                                                                                                  #  A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
009358,000123:                                                                                                  #  PINBALL IS GIVEN BELOW.
009359,000124: 
009360,000125: 
009361,000126:                                                                                                  #  THE FOLLOWING ARE OF GENERAL INTEREST-
009362,000127: 
009363,000128:                                                                                                  #     REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION.  SEE SYMBOL
009364,000129:                                                                                                  #  TABLE TO FIND APPROPRIATE PAGE NUMBERS.

Page 234

009366,000131: 
009367,000132:                                                                                                  #    NVSUB   CALLING POINT FOR INTERNAL USE OF PINBALL.
009368,000133:                                                                                                  #              OF RELATED INTEREST   NVSUBWAIT
009369,000134:                                                                                                  #                                    NVSUBSY
009370,000135:                                                                                                  #                                    PRENVBSY
009371,000136: 
009372,000137:                                                                                                  #    GRABDSP   INTERLOCK SYSTEM FOR INTERNAL PROGRAMS THAT MUST BE USED
009373,000138:                                                                                                  #    FREEDSP   IN CONJUNCTION WITH :NVSUB:.
009374,000139:                                                                                                  #                OF RELATED INTEREST   GRABWAIT
009375,000140:                                                                                                  #                                      GRABUSY
009376,000141:                                                                                                  #                                      PREGBSY
009377,000142: 
009378,000143:                                                                                                  #    ENDIDLE   ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
009379,000144:                                                                                                  #              AWAITING OPERATORS RESPONSE.
009380,000145:                                                                                                  #                OF RELATED INTEREST   DATAWAIT
009381,000146: 
009382,000147:                                                                                                  #    MONITOR   VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
009383,000148: 
009384,000149:                                                                                                  #    THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
009385,000150:                                                                                                  #    BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
009386,000151: 
009387,000152:                                                                                                  #    THE NOUN TABLES THEMSELVES ARE FOUND ON 7 PAGES STARTING AT :NNADTAB:
009388,000153: 
009389,000154: 
009390,000155:                                                                                                  #  FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
009391,000156:                                                                                                  #  PROGRAM, SEE THE MISSION PLAN AND/OR DIGITAL DEVELOPMENT REPORT NO. 11.
009392,000157: 

Page 235

009394,000159:                                                                                                  #  KEYBOARD AND DISPLAY PROGRAM
009395,000160: 
009396,000161:                                                                                                  #  THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
009397,000162: 
009398,000163:                                                                                                  #        ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
009399,000164:                                                                                                  #  USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
009400,000165:                                                                                                  #  CHRISTIAN EAR CAN ENDURE TO HEAR.::
009401,000166: 
009402,000167:                                                                                                  #                       HENRY 6, ACT 2, SCENE 4
009403,000168: 

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

009406,000171: 
009407,000172: 
009408,000173:                                                                                                  #  THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
009409,000174: 
009410,000175: 
009411,000176:                                                                                                  #  RESERVED FOR PINBALL EXECUTIVE ACTION
009412,000177: 
009413,000178:                                                                                                  #  DSPCOUNT      ERASE                   DISPLAY POSITION INDICATOR
009414,000179:                                                                                                  #  DECBRNCH      ERASE                   +DEC, -DEC, OCT INDICATOR
009415,000180:                                                                                                  #  VERBREG       ERASE                   VERB CODE
009416,000181:                                                                                                  #  NOUNREG       ERASE                   NOUN CODE
009417,000182:                                                                                                  #  XREG          ERASE                   R1 INPUT BUFFER
009418,000183:                                                                                                  #  YREG          ERASE                   R2 INPUT BUFFER
009419,000184:                                                                                                  #  ZREG          ERASE                   R3 INPUT BUFFER
009420,000185:                                                                                                  #  XREGLP        ERASE                   LO PART OF XREG (FOR DEC CONV ONLY)
009421,000186:                                                                                                  #  YREGLP        ERASE                   LO PART OF YREG (FOR DEC CONV ONLY)
009422,000187:                                                                                                  #  ZREGLP        ERASE                   LO PART OF ZREG (FOR DEC CONV ONLY)
009423,000188:                                                                                                  #  MODREG        ERASE                   MODE CODE
009424,000189:                                                                                                  #  DSPLOCK       ERASE                   KEYBOARD/SUBROUTINE CALL INTERLOCK
009425,000190:                                                                                                  #  REQRET        ERASE                   RETURN REGISTER FOR LOAD
009426,000191:                                                                                                  #  LOADSTAT      ERASE                   STATUS INDICATOR FOR LOADTST
009427,000192:                                                                                                  #  CLPASS        ERASE                   PASS INDICATOR CLEAR
009428,000193:                                                                                                  #  NOUT          ERASE                   ACTIVITY COUNTER FOR DSPTAB
009429,000194:                                                                                                  #  NOUNCADR      ERASE                   MACHINE CADR FOR NOUN
009430,000195:                                                                                                  #  MONSAVE       ERASE                   N/V CODE FOR MONITOR. (= MONSAVE1-1)
009431,000196:                                                                                                  #  MONSAVE1      ERASE                   NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
009432,000197:                                                                                                  #  DSPTAB        ERASE           +13D    0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
009433,000198:                                                                                                  #  CADRSTOR      ERASE                   ENDIDLE STORAGE
009434,000199:                                                                                                  #  GRABLOCK      ERASE                   INTERNAL INTERLOCK FOR DISPLAY SYSTEM
009435,000200:                                                                                                  #  NVQTEM        ERASE                   NVSUB STORAGE FOR CALLING ADDRESS
009436,000201:                                                                                                  #                                        MUST = NVBNKTEM-1
009437,000202:                                                                                                  #  NVBNKTEM      ERASE                   NVSUB STORAGE FOR CALLING BANK
009438,000203:                                                                                                  #                                        MUST = NVQTEM+1
009439,000204:                                                                                                  #  DSPLIST       ERASE           +2      WAITING LIST FOR DSP SYST INTERNAL USE
009440,000205:                                                                                                  #  EXTVBACT      ERASE                   EXTENDED VERB ACTIVITY INTERLOCK
009441,000206:                                                                                                  #  DSPTEM1       ERASE           +2      BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
009442,000207:                                                                                                  #  DSPTEM2       ERASE           +2      BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
009443,000208: 

Page 236

009445,000210:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
009446,000211: 
009447,000212: 
009448,000213:                                                                                                  #  TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009449,000214: 
009450,000215:                                                                                                  #  DSEXIT        =       INTB15+         RETURN FOR DSPIN
009451,000216:                                                                                                  #  EXITEM        =       INTB15+         RETURN FOR SCALE FACTOR ROUTINE SELECT
009452,000217:                                                                                                  #  BLANKRET      =       INTB15+         RETURN FOR 2BLANK
009453,000218: 
009454,000219:                                                                                                  #  WRDRET        =       INTBIT15        RETURN FOR 5BLANK
009455,000220:                                                                                                  #  WDRET         =       INTBIT15        RETURN FOR DSPWD
009456,000221:                                                                                                  #  DECRET        =       INTBIT15        RETURN FOR PUTCOM(DEC LOAD)
009457,000222:                                                                                                  #  21/22REG      =       INTBIT15        TEMP FOR CHARIN
009458,000223: 
009459,000224:                                                                                                  #  UPDATRET      =       POLISH          RETURN FOR UPDATNN, UPDATVB
009460,000225:                                                                                                  #  CHAR          =       POLISH          TEMP FOR CHARIN
009461,000226:                                                                                                  #  ERCNT         =       POLISH          COUNTER FOR ERROR LIGHT RESET
009462,000227:                                                                                                  #  DECOUNT       =       POLISH          COUNTER FOR SCALING AND DISPLAY (DEC)
009463,000228: 
009464,000229:                                                                                                  #  SGNON         =       VBUF            TEMP FOR +,- ON
009465,000230:                                                                                                  #  NOUNTEM       =       VBUF            COUNTER FOR MIXNOUN FETCH
009466,000231:                                                                                                  #  DISTEM        =       VBUF            COUNTER FOR OCTAL DISPLAY VERBS
009467,000232:                                                                                                  #  DECTEM        =       VBUF            COUNTER FOR FETCH (DEC DISPLAY VERBS)
009468,000233: 
009469,000234:                                                                                                  #  SGNOFF        =       VBUF    +1      TEMP FOR +,- ON
009470,000235:                                                                                                  #  NVTEMP        =       VBUF    +1      TEMP FOR NVSUB
009471,000236:                                                                                                  #  SFTEMP1       =       VBUF    +1      STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
009472,000237: 
009473,000238:                                                                                                  #  CODE          =       VBUF    +2      FOR DSPIN
009474,000239:                                                                                                  #  SFTEMP2       =       VBUF    +2      STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
009475,000240: 
009476,000241:                                                                                                  #  MIXTEMP       =       VBUF    +3      FOR MIXNOUN DATA
009477,000242:                                                                                                  #  SIGNRET       =       VBUF    +3      RETURN FOR +,- ON
009478,000243: 
009479,000244:                                                                                                  #  ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
009480,000245: 
009481,000246:                                                                                                  #  ENTRET        =       DOTINC          EXIT FROM ENTER
009482,000247: 
009483,000248:                                                                                                  #  WDCNT         =       DOTRET          CHAR COUNTER FOR DSPWD
009484,000249:                                                                                                  #  INREL         =       DOTRET          INPUT BUFFER SELECTOR ( X,Y,Z, REG )
009485,000250: 
009486,000251:                                                                                                  #  DSPMMTEM      =       MATINC          DSPCOUNT SAVE FOR DSPMM
009487,000252:                                                                                                  #  MIXBR         =       MATINC          INDICATOR FOR MIXED OR NORMAL NOUN
009488,000253: 
009489,000254:                                                                                                  #  TEM1          ERASE                   EXEC TEMP
009490,000255:                                                                                                  #  DSREL         =       TEM1            REL ADDRESS FOR DSPIN
009491,000256: 
009492,000257:                                                                                                  #  TEM2          ERASE                   EXEC TEMP
009493,000258:                                                                                                  #  DSMAG         =       TEM2            MAGNITUDE STORE FOR DSPIN

Page 237

009495,000260:                                                                                                  #  IDADDTEM      =       TEM2            MIXNOUN INDIRECT ADDRESS STORAGE
009496,000261: 
009497,000262:                                                                                                  #  TEM3          ERASE                   EXEC TEMP
009498,000263:                                                                                                  #  COUNT         =       TEM3            FOR DSPIN
009499,000264: 
009500,000265:                                                                                                  #  TEM4          ERASE                   EXEC TEMP
009501,000266:                                                                                                  #  LSTPTR        =       TEM4            LIST POINTER FOR GRABUSY
009502,000267:                                                                                                  #  RELRET        =       TEM4            RETURN FOR RELDSP
009503,000268:                                                                                                  #  FREERET       =       TEM4            RETURN FOR FREEDSP
009504,000269: 
009505,000270:                                                                                                  #  TEM5          ERASE                   EXEC TEMP
009506,000271:                                                                                                  #  NOUNADD       =       TEM5            TEMP STORAGE FOR NOUN ADDRESS
009507,000272: 
009508,000273:                                                                                                  #  NNADTEM       ERASE                   TEMP FOR NOUN ADDRESS TABLE ENTRY
009509,000274:                                                                                                  #  NNTYPTEM      ERASE                   TEMP FOR NOUN TYPE TABLE ENTRY
009510,000275:                                                                                                  #  IDAD1TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009511,000276:                                                                                                  #                                        MUST = IDAD2TEM-1, = IDAD3TEM-2.
009512,000277:                                                                                                  #  IDAD2TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009513,000278:                                                                                                  #                                        MUST = IDAD1TEM+1, = IDAD3TEM-1.
009514,000279:                                                                                                  #  IDAD3TEM      ERASE                   TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
009515,000280:                                                                                                  #                                        MUST = IDAD1TEM+2, = IDAD2TEM+1.
009516,000281:                                                                                                  #  RUTMXTEM      ERASE                   TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
009517,000282:                                                                                                  #  END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
009518,000283: 
009519,000284: 
009520,000285:                                                                                                  #  RESERVED FOR PINBALL INTERRUPT ACTION
009521,000286: 
009522,000287:                                                                                                  #  DSPCNT        ERASE                   COUNTER FOR DSPOUT
009523,000288:                                                                                                  #  UPLOCK        ERASE                   BIT1 = UPLINK INTERLOCK (ACTIVATED BY
009524,000289:                                                                                                  #                                                                                RECEPTION OF A BAD MESSAGE IN UPLINK)
009525,000290:                                                                                                  #  END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
009526,000291: 
009527,000292: 
009528,000293: 
009529,000294:                                                                                                  #  TEMPORARIES FOR PINBALL INTERRUPT ACTION
009530,000295: 
009531,000296:                                                                                                  #  KEYTEMP1      =       WAITEXIT        TEMP FOR KEYRUPT, UPRUPT
009532,000297:                                                                                                  #  DSRUPTEM      =       WAITEXIT        TEMP FOR DSPOUT
009533,000298:                                                                                                  #  KEYTEMP2      =       RUPTAGN         TEMP FOR KEYRUPT, UPRUPT
009534,000299:                                                                                                  #  END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
009535,000300: 

Page 238

009537,000302:                                                                                                  #  THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
009538,000303:                                                                                                  #  0        10000
009539,000304:                                                                                                  #  1        00001
009540,000305:                                                                                                  #  9        01001
009541,000306:                                                                                                  #  VERB     10001
009542,000307:                                                                                                  #  ERROR RES10010
009543,000308:                                                                                                  #  KEY RLSE 11001
009544,000309:                                                                                                  #  +        11010
009545,000310:                                                                                                  #  -        11011
009546,000311:                                                                                                  #  ENTER    11100
009547,000312:                                                                                                  #  CLEAR    11110
009548,000313:                                                                                                  #  NOUN     11111
009549,000314: 
009550,000315: 
009551,000316:                                                                                                  #  OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO  AAAABCCCCCDDDDD.
009552,000317:                                                                                                  #  A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
009553,000318:                                                                                                  #  ENERGIZED.
009554,000319:                                                                                                  #  B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
009555,000320:                                                                                                  #  C-S  5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
009556,000321:                                                                                                  #  D-S  5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
009557,000322: 
009558,000323:                                                                                                  #  THE PANEL APPEARS AS FOLLOWS,
009559,000324:                                                                                                  #  MD1    MD2                         (MAJOR MODE)
009560,000325:                                                                                                  #  VD1    VD2 (VERB)    ND1    ND2    (NOUN)
009561,000326:                                                                                                  #  R1D1   R1D2   R1D3   R1D4   R1D5   (R1)
009562,000327:                                                                                                  #  R2D1   R2D2   R2D3   R2D4   R2D5   (R2)
009563,000328:                                                                                                  #  R3D1   R3D2   R3D3   R3D4   R3D5   (R3)
009564,000329: 
009565,000330:                                                                                                  #  EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
009566,000331:                                                                                                  #  MD1   25     R2D1  11         ALL ARE OCTAL
009567,000332:                                                                                                  #  MD2   24     R2D2  10
009568,000333:                                                                                                  #  VD1   23     R2D3   7
009569,000334:                                                                                                  #  VD2   22     R2D4   6
009570,000335:                                                                                                  #  ND1   21     R2D5   5
009571,000336:                                                                                                  #  ND2   20     R3D1   4
009572,000337:                                                                                                  #  R1D1  16     R3D2   3
009573,000338:                                                                                                  #  R1D2  15     R3D3   2
009574,000339:                                                                                                  #  R1D3  14     R3D4   1
009575,000340:                                                                                                  #  R1D4  13     R3D5   0
009576,000341:                                                                                                  #  R1D5  12
009577,000342: 
009578,000343: 
009579,000344:                                                                                                  #  THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
009580,000345: 
009581,000346:                                                                                                  #  DSPTAB RELAYWD       BIT11     BITS 10-6     BITS 5-1
009582,000347:                                                                                                  #  RELADD
009583,000348:                                                                                                  #  10     1011                    MD1  (25)     MD2  (24)
009584,000349:                                                                                                  #  9      1010                    VD1  (23)     VD2  (22)

Page 239

009586,000351:                                                                                                  #  8      1001                    ND1  (21)     ND2  (20)
009587,000352:                                                                                                  #  7      1000                                  R1D1 (16)
009588,000353:                                                                                                  #  6      0111          +R1       R1D2 (15)     R1D3 (14)
009589,000354:                                                                                                  #  5      0110          -R1       R1D4 (13)     R1D5 (12)
009590,000355:                                                                                                  #  4      0101          +R2       R2D1 (11)     R2D2 (10)
009591,000356:                                                                                                  #  3      0100          -R2       R2D3 (7)      R2D4 (6)
009592,000357:                                                                                                  #  2      0011                    R2D5 (5)      R3D1 (4)
009593,000358:                                                                                                  #  1      0010          +R3       R3D2 (3)      R3D3 (2)
009594,000359:                                                                                                  #  0      0001          -R3       R3D4 (1)      R3D5 (0)
009595,000360:                                                                                                  #         0000   NO RELAYWORD
009596,000361: 
009597,000362: 
009598,000363:                                                                                                  #  THE 5 BIT RELAY CODES ARE,
009599,000364:                                                                                                  #  BLANK      00000
009600,000365:                                                                                                  #  0          10101
009601,000366:                                                                                                  #  1          00011
009602,000367:                                                                                                  #  2          11001
009603,000368:                                                                                                  #  3          11011
009604,000369:                                                                                                  #  4          01111
009605,000370:                                                                                                  #  5          11110
009606,000371:                                                                                                  #  6          11100
009607,000372:                                                                                                  #  7          10011
009608,000373:                                                                                                  #  8          11101
009609,000374:                                                                                                  #  9          11111
009610,000375: 

Page 240

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

Page 241

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

Page 242

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

Page 243

009761,000526: 04,2201           10270        MORNUM             CCS      DSPCOUNT                              #  DECREMENT DSPCOUNT
009762,000527: 04,2202           54270                           TS       DSPCOUNT                              
009763,000528: 04,2203           05567                           TC       ENDOFJOB                              
009764,000529: 
009765,000530: 04,2204           00022        CRITCON            OCT      22                                    #  (DEC 18)
009766,000531: 04,2205           00020                           OCT      20                                    #  (DEC 16)
009767,000532: 04,2206           00012                           OCT      12                                    #  (DEC 10)
009768,000533: 04,2207           00005                           OCT      5                                     
009769,000534: 04,2210           00000                           OCT      0                                     
009770,000535: 

The operand in the following line reads simply "E-5 B14" in the program listing, but has been changed to the (numerically identical) "1 E-5 B14" to conformed to syntax rules of the "modern" assembler, yaYUL. — RSB

009774,000539: 04,2211           05174 13261  DECON              2DEC     1          E-5        B14             #  2EXP14/10EXP5 = .16384 DEC
009775,000540: 
009776,000541:                                                                                                  #  GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
009777,000542:                                                                                                  #  PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
009778,000543: 
009779,000544: 04,2213           50270        GETINREL           INDEX    DSPCOUNT                              
009780,000545: 04,2214           32217                           CAF      INRELTAB                              
009781,000546: 04,2215           54127                           TS       INREL                                 #  (A TEMP, REG)
009782,000547: 04,2216           00002                           TC       Q                                     
009783,000548: 
009784,000549: 04,2217           00004        INRELTAB           OCT      4                                     #  R3D5 (DSPCOUNT = 0)
009785,000550: 04,2220           00004                           OCT      4                                     #  R3D4           =(1)
009786,000551: 04,2221           00004                           OCT      4                                     #  R3D3           =(2)
009787,000552: 04,2222           00004                           OCT      4                                     #  R3D2           =(3)
009788,000553: 04,2223           00004                           OCT      4                                     #  R3D1           =(4)
009789,000554: 04,2224           00003                           OCT      3                                     #  R2D5           =(5)
009790,000555: 04,2225           00003                           OCT      3                                     #  R2D4           =(6)
009791,000556: 04,2226           00003                           OCT      3                                     #  R2D3           =(7)
009792,000557: 04,2227           00003                           OCT      3                                     #  R2D2           =(8D)
009793,000558: 04,2230           00003                           OCT      3                                     #  R2D1           =(9D)
009794,000559: 04,2231           00002                           OCT      2                                     #  R1D5           =(10D)
009795,000560: 04,2232           00002                           OCT      2                                     #  R1D4           =(11D)
009796,000561: 04,2233           00002                           OCT      2                                     #  R1D3           =(12D)
009797,000562: 04,2234           00002                           OCT      2                                     #  R1D2           =(13D)
009798,000563: 04,2235           00002                           OCT      2                                     #  R1D1           =(14D)
009799,000564: 04,2236           04736                           TC       CCSHOLE                               #  NO DSPCOUNT NUMBER = 15D
009800,000565: 04,2237           00001                           OCT      1                                     #  ND2            =(16D)
009801,000566: 04,2240           00001                           OCT      1                                     #  ND1            =(17D)
009802,000567: 04,2241           00000                           OCT      0                                     #  VD2            =(18D)
009803,000568: 04,2242           00000                           OCT      0                                     #  VD1            =(19D)
009804,000569: 
009805,000570: 04,2243           37767        VERB               CAF      ZERO                                  
009806,000571: 04,2244           54272                           TS       VERBREG                               
009807,000572: 04,2245           34565                           CAF      VD1                                   
009808,000573: 04,2246           54270        NVCOM              TS       DSPCOUNT                              
009809,000574: 04,2247           02557                           TC       2BLANK                                

Page 244

009811,000576: 04,2250           37767                           CAF      ZERO                                  
009812,000577: 04,2251           54271                           TS       DECBRNCH                              
009813,000578: 04,2252           54304                           TS       REQRET                                #  SET FOR ENTPAS0
009814,000579: 04,2253           34505                           CAF      ENDINST                               #  IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
009815,000580: 04,2254           54126                           TS       ENTRET                                #  OR NVSUB, ENTRET MUST ALREADY BE SET
009816,000581:                                                                                                  #  TO TC ENDOFJOB
009817,000582: 04,2255           05567                           TC       ENDOFJOB                              
009818,000583: 04,2256           37767        NOUN               CAF      ZERO                                  
009819,000584: 04,2257           54273                           TS       NOUNREG                               
009820,000585: 04,2260           34566                           CAF      ND1                                   #  ND1, OCT 21 (DEC 17)
009821,000586: 04,2261           02246                           TC       NVCOM                                 
009822,000587: 
009823,000588: 
009824,000589: 04,2262           02334        NEGSGN             TC       SIGNTEST                              
009825,000590: 04,2263           02321                           TC       -ON                                   
009826,000591: 04,2264           37762                           CAF      TWO                                   
009827,000592: 04,2265           50127        BOTHSGN            INDEX    INREL                                 #  SET DEC COMP BIT TO 1 (IN DECBRNCH)
009828,000593: 04,2266           67755                           AD       BIT7                                  #  BIT 5 FOR R1, BIT 4 FOR R2,
009829,000594: 04,2267           26271                           ADS      DECBRNCH                              #  BIT 3 FOR R3.
009830,000595: 04,2270           10306        FIXCLPAS           CCS      CLPASS                                #  IF CLPASS IS + OR +0, MAKE IT +0.
009831,000596: 04,2271           37767                           CAF      ZERO                                  
009832,000597: 04,2272           54306                           TS       CLPASS                                
009833,000598: 04,2273           02274                           TC       +1                                    
009834,000599: 04,2274           05567                           TC       ENDOFJOB                              
009835,000600: 
009836,000601: 04,2275           02334        POSGN              TC       SIGNTEST                              
009837,000602: 04,2276           02301                           TC       +ON                                   
009838,000603: 04,2277           37763                           CAF      ONE                                   
009839,000604: 04,2300           02265                           TC       BOTHSGN                               
009840,000605: 
009841,000606: 04,2301           22002        +ON                LXCH     Q                                     
009842,000607: 04,2302           02213                           TC       GETINREL                              
009843,000608: 04,2303           50127                           INDEX    INREL                                 
009844,000609: 04,2304           32327                           CAF      SGNTAB     -2                         
009845,000610: 04,2305           54113                           TS       SGNOFF                                
009846,000611: 04,2306           67763                           AD       ONE                                   
009847,000612: 04,2307           54112                           TS       SGNON                                 
009848,000613: 04,2310           37767        SGNCOM             CAF      ZERO                                  
009849,000614: 04,2311           54114                           TS       CODE                                  
009850,000615: 04,2312           56113                           XCH      SGNOFF                                
009851,000616: 04,2313           03301                           TC       11DSPIN                               
009852,000617: 04,2314           37751                           CAF      BIT11                                 
009853,000618: 04,2315           54114                           TS       CODE                                  
009854,000619: 04,2316           56112                           XCH      SGNON                                 
009855,000620: 04,2317           03301                           TC       11DSPIN                               
009856,000621: 04,2320           00001                           TC       L                                     
009857,000622: 04,2321           22002        -ON                LXCH     Q                                     
009858,000623: 04,2322           02213                           TC       GETINREL                              
009859,000624: 04,2323           50127                           INDEX    INREL                                 

Page 245

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

Page 246

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

Page 247

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

Page 248

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

Page 249

010058,000823: 
010059,000824: 04,2557           30270        2BLANK             CA       DSPCOUNT                              
010060,000825: 04,2560           54021                           TS       SR                                    
010061,000826: 04,2561           42572                           CS       BLANKCON                              
010062,000827: 04,2562           00004                           INHINT                                         
010063,000828: 04,2563           50021                           INDEX    SR                                    
010064,000829: 04,2564           56313                           XCH      DSPTAB                                
010065,000830: 04,2565           00006                           EXTEND                                         
010066,000831: 04,2566           62570                           BZMF     +2                                    #  IF OLD CONTENTS -, NOUT OK
010067,000832: 04,2567           24307                           INCR     NOUT                                  #  IF OLD CONTENTS +, +1 TO NOUT
010068,000833: 04,2570           00003                           RELINT                                         #  IF -,NOUT OK
010069,000834: 04,2571           00002                           TC       Q                                     
010070,000835: 04,2572           04000        BLANKCON           OCT      4000                                  
010071,000836: 

Page 250

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

Page 251

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

Page 252

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

Page 253

010222,000987: 05,2171           11326                           CADR     VBPROC                                #  VB33 PROCEED WITHOUT DATA
010223,000988: 05,2172           11333                           CADR     VBTERM                                #  VB34 TERMINATE CURRENT TEST OR LOAD REQ
010224,000989: 05,2173           13414                           CADR     VBTSTLTS                              #  VB35 TEST LIGHTS
010225,000990: 05,2174           02000                           CADR     SLAP1                                 #  VB36 FRESH START
010226,000991: 05,2175           13267        ENDVBFAN           CADR     MMCHANG                               #  VB37 CHANGE MAJOR MODE
010227,000992: 
010228,000993:                                                                                                  #  THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
010229,000994: 

Page 254

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

Page 255

010280,001045: 05,2241           00002                           TC       Q                                     #  FRACT NO DP
010281,001046: 05,2242           00002                           TC       Q                                     #  DEG  NO DP
010282,001047: 05,2243           00002                           TC       Q                                     #  ARITH  NO DP
010283,001048: 05,2244           12250                           TCF      DPTEST1                               #  DP1OUT
010284,001049: 05,2245           12250                           TCF      DPTEST1                               #  DP2OUT
010285,001050: 05,2246           00002                           TC       Q                                     #  OPDEG  NO DP
010286,001051: 05,2247           12250                           TCF      DPTEST1                               #  DP3OUT
010287,001052: 05,2250           50002        DPTEST1            INDEX    Q                                     
010288,001053: 05,2251           00001                           TC       1                                     #  RETURN TO L+2
010289,001054: 
010290,001055: 05,2252           34527        REQDATX            CAF      R1D1                                  
010291,001056: 05,2253           12257                           TCF      REQCOM                                
010292,001057: 05,2254           34530        REQDATY            CAF      R2D1                                  
010293,001058: 05,2255           12257                           TCF      REQCOM                                
010294,001059: 05,2256           34531        REQDATZ            CAF      R3D1                                  
010295,001060: 05,2257           54270        REQCOM             TS       DSPCOUNT                              
010296,001061: 05,2260           40002                           CS       Q                                     
010297,001062: 05,2261           54304                           TS       REQRET                                
010298,001063: 05,2262           05206                           TC       BANKCALL                              
010299,001064: 05,2263           10514                           CADR     5BLANK                                
010300,001065: 05,2264           04622                           TC       FLASHON                               
010301,001066: 05,2265           44505                           CS       ENDINST                               
010302,001067: 05,2266           60126                           AD       ENTEXIT                               
010303,001068: 05,2267           00006                           EXTEND                                         
010304,001069: 05,2270           12273                           BZF      ENDRQDAT                              #  ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
010305,001070: 05,2271           47767                           CS       ZERO                                  #  ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
010306,001071: 05,2272           54327                           TS       CADRSTOR                              #  NVSUB INITIATED LOAD. SET CADRSTOR TO -0
010307,001072: 05,2273           00126        ENDRQDAT           TC       ENTEXIT                               
010308,001073: 
010309,001074:                                                                                                  #  IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
010310,001075:                                                                                                  #  DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
010311,001076: 
010312,001077: 05,2274           54273                           TS       NOUNREG                               
010313,001078: 05,2275           56002        UPDATNN            XCH      Q                                     
010314,001079: 05,2276           54107                           TS       UPDATRET                              
010315,001080: 05,2277           00006                           EXTEND                                         
010316,001081: 05,2300           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010317,001082: 05,2301           52006                           DXCH     Z                                     #  ROUTINE.
010318,001083: 05,2302           10136                           CCS      NNADTEM                               
010319,001084: 05,2303           67763                           AD       ONE                                   #  NORMAL
010320,001085: 05,2304           12307                           TCF      PUTADD                                
010321,001086: 05,2305           12310                           TCF      PUTADD     +1                         #  MCTBS  DONT CHANGE NOUNADD
010322,001087: 05,2306           12310                           TCF      PUTADD     +1                         #  MCTBI  DONT CHANGE NOUNADD
010323,001088: 05,2307           04513        PUTADD             TC       SETNCADR                              #  ECADR INTO NOUNCADR. SETS EB, NOUNADD.
010324,001089: 05,2310           34566                           CAF      ND1                                   
010325,001090: 05,2311           54270                           TS       DSPCOUNT                              

Page 256

010327,001092: 05,2312           30273                           CA       NOUNREG                               
010328,001093: 05,2313           12322                           TCF      UPDAT1                                
010329,001094: 
010330,001095: 05,2314           54272                           TS       VERBREG                               
010331,001096: 05,2315           56002        UPDATVB            XCH      Q                                     
010332,001097: 05,2316           54107                           TS       UPDATRET                              
010333,001098: 05,2317           34565                           CAF      VD1                                   
010334,001099: 05,2320           54270                           TS       DSPCOUNT                              
010335,001100: 05,2321           30272                           CA       VERBREG                               
010336,001101: 05,2322           03255        UPDAT1             TC       DSP2BIT                               
010337,001102: 05,2323           00107                           TC       UPDATRET                              
010338,001103: 
010339,001104: 05,2324           05225        GODSPALM           TC       POSTJUMP                              
010340,001105: 05,2325           11315                           CADR     DSPALARM                              
010341,001106: 

Page 257

010343,001108:                                                                                                  #           NOUN TABLES
010344,001109:                                                                                                  #  NOUN CODE L/ 55, NORMAL CASE.  NOUN CODE G/E 55, MIXED NOUN CASE.
010345,001110:                                                                                                  #  FOR NORMAL CASE, NNADTAB CONTAINS ONE       ECADR     FOR EACH NOUN.
010346,001111:                                                                                                  #  +0 INDICATES NOUN NOT USED.   - ENTRY INDICATES MACHINE CADR(E OR F) TO
010347,001112:                                                                                                  #  BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
010348,001113:                                                                                                  #  OF LAST MACHINE CADR SUPPLIED.
010349,001114: 
010350,001115:                                                                                                  #  FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
010351,001116:                                                                                                  #  10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
010352,001117: 
010353,001118:                                                                                                  #  NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
010354,001119: 
010355,001120:                                                                                                  #  FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
010356,001121:                                                                                                  #                       N-S ARE THE SF ROUTINE CODE NUMBER.
010357,001122:                                                                                                  #                       P-S ARE THE SF CONSTANT CODE NUMBER.
010358,001123: 
010359,001124:                                                                                                  #  MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER     3 COMPONENT CASE
010360,001125:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER
010361,001126:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010362,001127:                                                                                                  #             N-S ARE THE SF CONSTANT2 CODE NUMBER     2 COMPONENT CASE
010363,001128:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER
010364,001129:                                                                                                  #             P-S ARE THE SF CONSTANT1 CODE NUMBER      1 COMPONENT CASE
010365,001130: 
010366,001131:                                                                                                  #  THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
010367,001132:                                                                                                  #  EACH ENTRY CONTAINS ONE ECADR.    IDADDREL IS THE RELATIVE ADDRESS OF
010368,001133:                                                                                                  #  THE FIRST OF THESE ENTRIES.
010369,001134:                                                                                                  #  THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
010370,001135:                                                                                                  #  THEY ARE LISTED IN ORDER OF ASCENDING K.
010371,001136: 
010372,001137:                                                                                                  #  THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
010373,001138:                                                                                                  #  CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
010374,001139:                                                                                                  #        QQQQQRRRRRSSSSS
010375,001140:                                                                                                  #  Q-S ARE THE SF ROUTINE 3 CODE NUMBER     3 COMPONENT CASE
010376,001141:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER
010377,001142:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010378,001143:                                                                                                  #  R-S ARE THE SF ROUTINE 2 CODE NUMBER     2 COMPONENT CASE
010379,001144:                                                                                                  #  S-S ARE THE SF ROUTINE 1 CODE NUMBER
010380,001145: 
010381,001146: 
010382,001147:                                                                                                  #  IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
010383,001148:                                                                                                  #  COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
010384,001149:                                                                                                  #  ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
010385,001150:                                                                                                  #  ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
010386,001151:                                                                                                  #  AN UNCONTOLLED NUMBER OF COMPONENTS.
010387,001152: 
010388,001153: 
010389,001154:                                                                                                  #  IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
010390,001155:                                                                                                  #  COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.

Page 258

010392,001157: 
010393,001158:                                                                                                  #  IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
010394,001159:                                                                                                  #  BEFORE EACH ENTER. IF NOT, ALARM.
010395,001160: 

Page 259

010397,001162:                                                                                                  #           DISPLAY VERBS
010398,001163: 
010399,001164: 05,2326           47762        DSPABC             CS       TWO                                   
010400,001165: 05,2327           02376                           TC       COMPTEST                              
010401,001166: 05,2330           50135                           INDEX    NOUNADD                               
010402,001167: 05,2331           40002                           CS       2                                     
010403,001168: 05,2332           56122                           XCH      BUF        +2                         
010404,001169: 05,2333           47763        DSPAB              CS       ONE                                   
010405,001170: 05,2334           02376                           TC       COMPTEST                              
010406,001171: 05,2335           50135                           INDEX    NOUNADD                               
010407,001172: 05,2336           40001                           CS       1                                     
010408,001173: 05,2337           56121                           XCH      BUF        +1                         
010409,001174: 05,2340           02420        DSPA               TC       TSTFORDP                              
010410,001175: 05,2341           50135                           INDEX    NOUNADD                               
010411,001176: 05,2342           40000                           CS       0                                     
010412,001177: 05,2343           56120        DSPCOM1            XCH      BUF                                   
010413,001178: 05,2344           02357                           TC       DSPCOM2                               
010414,001179: 05,2345           47763        DSPB               CS       ONE                                   
010415,001180: 05,2346           02376                           TC       COMPTEST                              
010416,001181: 05,2347           50135                           INDEX    NOUNADD                               
010417,001182: 05,2350           40001                           CS       1                                     
010418,001183: 05,2351           02343                           TC       DSPCOM1                               
010419,001184: 05,2352           47762        DSPC               CS       TWO                                   
010420,001185: 05,2353           02376                           TC       COMPTEST                              
010421,001186: 05,2354           50135                           INDEX    NOUNADD                               
010422,001187: 05,2355           40002                           CS       2                                     
010423,001188: 05,2356           02343                           TC       DSPCOM1                               
010424,001189: 05,2357           47762        DSPCOM2            CS       TWO                                   #  A  B  C  AB  ABC
010425,001190: 05,2360           60272                           AD       VERBREG                               #  -1 -0 +1 +2  +3   IN A
010426,001191: 05,2361           10000                           CCS      A                                     #  +0 +0 +0 +1  +2    IN A AFTER CCS
010427,001192: 05,2362           02365                           TC       DSPCOM3                               
010428,001193: 05,2363           00126                           TC       ENTEXIT                               
010429,001194: 05,2364           02365                           TC       +1                                    
010430,001195: 05,2365           54112        DSPCOM3            TS       DISTEM                                #  +0,+1,+2 INTO DISTEM
010431,001196: 05,2366           50000                           INDEX    A                                     
010432,001197: 05,2367           34527                           CAF      R1D1                                  
010433,001198: 05,2370           54270                           TS       DSPCOUNT                              
010434,001199: 05,2371           50112                           INDEX    DISTEM                                
010435,001200: 05,2372           40120                           CS       BUF                                   
010436,001201: 05,2373           03222                           TC       DSPOCTWD                              
010437,001202: 05,2374           56112                           XCH      DISTEM                                
010438,001203: 05,2375           02361                           TC       DSPCOM2    +2                         
010439,001204: 
010440,001205:                                                                                                  #  COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
010441,001206:                                                                                                  #  GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
010442,001207:                                                                                                  #  NOUN 01 IS EXCLUDED FROM TEST.
010443,001208: 05,2376           54113        COMPTEST           TS       SFTEMP1                               #  - VERB COMP
010444,001209: 05,2377           22002                           LXCH     Q                                     
010445,001210: 05,2400           47763        COMPTST1           CS       ONE                                   
010446,001211: 05,2401           60273                           AD       NOUNREG                               
010447,001212: 05,2402           00006                           EXTEND                                         

Page 260

010449,001214: 05,2403           12417                           BZF      NDCMPTST                              #  NOUN = 01, ANY COMP OK
010450,001215: 05,2404           50130                           INDEX    MIXBR                                 #  NOUN NOT = 01.
010451,001216: 05,2405           32442                           CAF      COMPICK    -1                         
010452,001217: 05,2406           50000                           INDEX    A                                     
010453,001218: 05,2407           30000                           CA       0                                     
010454,001219: 05,2410           74560                           MASK     HI5                                   
010455,001220: 05,2411           04541                           TC       LEFT5                                 #  NOUN COMP
010456,001221: 05,2412           60113                           AD       SFTEMP1                               #  NOUN COMP - VERB COMP
010457,001222: 05,2413           10000                           CCS      A                                     
010458,001223: 05,2414           00001                           TC       L                                     #  NOUN COMP G/ VERB COMP
010459,001224: 05,2415           04736                           TC       CCSHOLE                               
010460,001225: 05,2416           02324                           TC       GODSPALM                              #  NOUN COMP L/ VERB COMP
010461,001226: 05,2417           00001        NDCMPTST           TC       L                                     #  NOUN COMP = VERB COMP
010462,001227: 
010463,001228: 
010464,001229: 05,2420           22002        TSTFORDP           LXCH     Q                                     #  TEST FOR DP. IF SO, GET MINOR PART ONLY.
010465,001230: 05,2421           30136                           CA       NNADTEM                               
010466,001231: 05,2422           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010467,001232: 05,2423           00006                           EXTEND                                         
010468,001233: 05,2424           12436                           BZF      CHANDSP                               
010469,001234: 05,2425           50130                           INDEX    MIXBR                                 
010470,001235: 05,2426           02426                           TC       +0                                    
010471,001236: 05,2427           02431                           TC       +2                                    #  NORMAL
010472,001237: 05,2430           00001                           TC       L                                     #  MIXED CASE ALREADY HANDLED IN MIXNOUN
010473,001238: 05,2431           02713                           TC       SFRUTNOR                              
010474,001239: 05,2432           02236                           TC       DPTEST                                
010475,001240: 05,2433           00001                           TC       L                                     #  NO DP
010476,001241: 05,2434           24135                           INCR     NOUNADD                               #  DP    E+1 INTO NOUNADD FOR MINOR PART.
010477,001242: 05,2435           00001                           TC       L                                     
010478,001243: 
010479,001244: 05,2436           00006        CHANDSP            EXTEND                                         
010480,001245: 05,2437           50310                           INDEX    NOUNCADR                              
010481,001246: 05,2440           00000                           READ     0                                     
010482,001247: 05,2441           40000                           CS       A                                     
010483,001248: 05,2442           12343                           TCF      DSPCOM1                               
010484,001249: 
010485,001250: 
010486,001251: 05,2443           00137        COMPICK            ADRES    NNTYPTEM                              
010487,001252: 05,2444           00136                           ADRES    NNADTEM                               
010488,001253: 
010489,001254: 05,2445           50130        DECDSP             INDEX    MIXBR                                 #  NORMAL                MIXED
010490,001255: 05,2446           32442                           CAF      COMPICK    -1                         #  ADRES NNTYPTEM        ADRES NNADTEM
010491,001256: 05,2447           50000                           INDEX    A                                     
010492,001257: 05,2450           30000                           CA       0                                     #  C(NNTYPTEM)           C(NNADTEM)
010493,001258: 05,2451           74560                           MASK     HI5                                   #  GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
010494,001259: 05,2452           04541                           TC       LEFT5                                 

Page 261

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

Page 262

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

Page 263

010594,001359: 04,2623           40000                           COM                                            #  IF NEG 0 LEAVE NEG 0
010595,001360: 04,2624           02607                           TC       BIASCOM                               
010596,001361: 
010597,001362: 04,2625           00006        SETAUG             EXTEND                                         #  LOADS SFTEMP1 AND SFTEMP2 WITH THE
010598,001363: 04,2626           50146                           INDEX    MPAC       +2                         #  DP AUGMENTER CONSTANT
010599,001364: 04,2627           32654                           DCA      DEGTAB                                
010600,001365: 04,2630           52114                           DXCH     SFTEMP1                               
010601,001366: 04,2631           00002                           TC       Q                                     
010602,001367: 
010603,001368: 04,2632           10144        FIXRANGE           CCS      MPAC                                  #  IF MPAC IS + RETURN TO L+1
010604,001369: 04,2633           00002                           TC       Q                                     #  IF MPAC IS - RETURN TO L+2 AFTER
010605,001370: 04,2634           00002                           TC       Q                                     #  MASKING OUT THE SIGN BIT
010606,001371: 04,2635           12636                           TCF      +1                                    
010607,001372: 04,2636           47745                           CS       BIT15                                 
010608,001373: 04,2637           70144                           MASK     MPAC                                  
010609,001374: 04,2640           54144                           TS       MPAC                                  
010610,001375: 04,2641           50002                           INDEX    Q                                     
010611,001376: 04,2642           00001                           TC       1                                     
010612,001377: 
010613,001378: 04,2643           00006        DEGCOM             EXTEND                                         #  LOADS MULTIPLIER , DOES SHORTMP, AND
010614,001379: 04,2644           50146                           INDEX    MPAC       +2                         #  ADDS AUGMENTER.
010615,001380: 04,2645           32654                           DCA      DEGTAB                                
010616,001381: 04,2646           52145                           DXCH     MPAC                                  #  ADJUSTED ANGLE IN A
010617,001382: 04,2647           07357                           TC       SHORTMP                               
010618,001383: 04,2650           52114                           DXCH     SFTEMP1                               
010619,001384: 04,2651           20145                           DAS      MPAC                                  
010620,001385: 04,2652           02663                           TC       SCOUTEND                              
010621,001386: 
010622,001387: 
010623,001388: 04,2653           05605        DEGTAB             OCT      05605                                 #  HI PART OF     .18
010624,001389: 04,2654           03656                           OCT      03656                                 #  LOW PART OF    .18
010625,001390: 04,2655           16314                           OCT      16314                                 #  HI PART OF     .45
010626,001391: 04,2656           31463                           OCT      31463                                 #  LO PART OF     .45
010627,001392: 
010628,001393: 04,2657           16040        20BIAS             OCT      16040                                 #  20 DEG BIAS FOR OPTICS
010629,001394: 
010630,001395: 04,2660           52114        ARTOUTSF           DXCH     SFTEMP1                               #  ASSUMES POINT AT LEFT OF DP SFCON
010631,001396: 04,2661           52145                           DXCH     MPAC                                  
010632,001397: 04,2662           07357                           TC       SHORTMP                               
010633,001398: 04,2663           05225        SCOUTEND           TC       POSTJUMP                              
010634,001399: 04,2664           12513                           CADR     DSPDCEND                              
010635,001400: 
010636,001401: 04,2665           02677        DP1OUTSF           TC       DPOUT                                 #  SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
010637,001402: 04,2666           56146                           XCH      MPAC       +2                         #  IN SFTEMP1, SFTEMP2.  THEN SCALE RESULT
010638,001403: 04,2667           56145                           XCH      MPAC       +1                         #  BY B14.
010639,001404: 04,2670           54144                           TS       MPAC                                  
010640,001405: 04,2671           02663                           TC       SCOUTEND                              

Page 264

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

Page 265

010690,001455: 04,2726           00006                           EXTEND                                         
010691,001456: 04,2727           50135                           INDEX    NOUNADD                               
010692,001457: 04,2730           30001                           DCA      0                                     
010693,001458: 04,2731           52145                           DXCH     MPAC                                  
010694,001459: 04,2732           34527                           CAF      R1D1                                  
010695,001460: 04,2733           54270                           TS       DSPCOUNT                              
010696,001461: 04,2734           37767                           CAF      ZERO                                  
010697,001462: 04,2735           54146                           TS       MPAC       +2                         
010698,001463: 04,2736           07327                           TC       TPAGREE                               
010699,001464: 04,2737           03173                           TC       DSP2DEC                               
010700,001465: 04,2740           00126        ENDDPDEC           TC       ENTEXIT                               
010701,001466: 

Page 266

010703,001468:                                                                                                  #           LOAD VERBS
010704,001469: 
010705,001470: 
010706,001471: 05,2535                                           SETLOC   ENDRTOUT                              
010707,001472: 
010708,001473: 05,2535           47762        ABCLOAD            CS       TWO                                   
010709,001474: 05,2536           02376                           TC       COMPTEST                              
010710,001475: 05,2537           32673                           CAF      VBSP1LD                               
010711,001476: 05,2540           02314                           TC       UPDATVB    -1                         
010712,001477: 05,2541           02252                           TC       REQDATX                               
010713,001478: 05,2542           32674                           CAF      VBSP2LD                               
010714,001479: 05,2543           02314                           TC       UPDATVB    -1                         
010715,001480: 05,2544           02254                           TC       REQDATY                               
010716,001481: 05,2545           32675                           CAF      VBSP3LD                               
010717,001482: 05,2546           02314                           TC       UPDATVB    -1                         
010718,001483: 05,2547           02256                           TC       REQDATZ                               
010719,001484: 
010720,001485: 
010721,001486: 05,2550           46306        PUTXYZ             CS       SIX                                   #  TEST THAT THE 3 DATA WORDS LOADED ARE
010722,001487: 05,2551           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010723,001488: 05,2552           00006                           EXTEND                                         
010724,001489: 05,2553           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010725,001490: 05,2554           52006                           DXCH     Z                                     #  ROUTINE.
010726,001491: 05,2555           37767                           CAF      ZERO                                  #  X COMP
010727,001492: 05,2556           02762                           TC       PUTCOM                                
010728,001493: 05,2557           50135                           INDEX    NOUNADD                               
010729,001494: 05,2560           54000                           TS       0                                     
010730,001495: 05,2561           37763                           CAF      ONE                                   #  Y COMP
010731,001496: 05,2562           02762                           TC       PUTCOM                                
010732,001497: 05,2563           50135                           INDEX    NOUNADD                               
010733,001498: 05,2564           54001                           TS       1                                     
010734,001499: 05,2565           37762                           CAF      TWO                                   #  Z COMP
010735,001500: 05,2566           02762                           TC       PUTCOM                                
010736,001501: 05,2567           50135                           INDEX    NOUNADD                               
010737,001502: 05,2570           54002                           TS       2                                     
010738,001503: 05,2571           02663                           TC       LOADLV                                
010739,001504: 
010740,001505: 05,2572           47763        ABLOAD             CS       ONE                                   
010741,001506: 05,2573           02376                           TC       COMPTEST                              
010742,001507: 05,2574           32673                           CAF      VBSP1LD                               
010743,001508: 05,2575           02314                           TC       UPDATVB    -1                         
010744,001509: 05,2576           02252                           TC       REQDATX                               
010745,001510: 05,2577           32674                           CAF      VBSP2LD                               
010746,001511: 05,2600           02314                           TC       UPDATVB    -1                         
010747,001512: 05,2601           02254                           TC       REQDATY                               
010748,001513: 05,2602           47766        PUTXY              CS       FIVE                                  #  TEST THAT THE 2 DATA WORDS LOADED ARE
010749,001514: 05,2603           02676                           TC       ALLDC/OC                              #  ALL DEC OR ALL OCT.
010750,001515: 05,2604           00006                           EXTEND                                         

Page 267

010752,001517: 05,2605           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010753,001518: 05,2606           52006                           DXCH     Z                                     #  ROUTINE.
010754,001519: 05,2607           37767                           CAF      ZERO                                  #  X COMP
010755,001520: 05,2610           02762                           TC       PUTCOM                                
010756,001521: 05,2611           50135                           INDEX    NOUNADD                               
010757,001522: 05,2612           54000                           TS       0                                     
010758,001523: 05,2613           37763                           CAF      ONE                                   #  Y COMP
010759,001524: 05,2614           02762                           TC       PUTCOM                                
010760,001525: 05,2615           50135                           INDEX    NOUNADD                               
010761,001526: 05,2616           54001                           TS       1                                     
010762,001527: 05,2617           02663                           TC       LOADLV                                
010763,001528: 
010764,001529: 05,2620           02252        ALOAD              TC       REQDATX                               
010765,001530: 05,2621           00006                           EXTEND                                         
010766,001531: 05,2622           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010767,001532: 05,2623           52006                           DXCH     Z                                     #  ROUTINE.
010768,001533: 05,2624           37767                           CAF      ZERO                                  #  X COMP
010769,001534: 05,2625           02762                           TC       PUTCOM                                
010770,001535: 05,2626           50135                           INDEX    NOUNADD                               
010771,001536: 05,2627           54000                           TS       0                                     
010772,001537: 05,2630           02663                           TC       LOADLV                                
010773,001538: 
010774,001539: 05,2631           47763        BLOAD              CS       ONE                                   
010775,001540: 05,2632           02376                           TC       COMPTEST                              
010776,001541: 05,2633           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010777,001542: 05,2634           54306                           TS       CLPASS                                
010778,001543: 05,2635           02254                           TC       REQDATY                               
010779,001544: 05,2636           00006                           EXTEND                                         
010780,001545: 05,2637           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010781,001546: 05,2640           52006                           DXCH     Z                                     #  ROUTINE.
010782,001547: 05,2641           37763                           CAF      ONE                                   
010783,001548: 05,2642           02762                           TC       PUTCOM                                
010784,001549: 05,2643           50135                           INDEX    NOUNADD                               
010785,001550: 05,2644           54001                           TS       1                                     
010786,001551: 05,2645           02663                           TC       LOADLV                                
010787,001552: 
010788,001553: 05,2646           47762        CLOAD              CS       TWO                                   
010789,001554: 05,2647           02376                           TC       COMPTEST                              
010790,001555: 05,2650           37745                           CAF      BIT15                                 #  SET CLPASS FOR PASS0 ONLY
010791,001556: 05,2651           54306                           TS       CLPASS                                
010792,001557: 05,2652           02256                           TC       REQDATZ                               
010793,001558: 05,2653           00006                           EXTEND                                         
010794,001559: 05,2654           32076                           DCA      LODNNLOC                              #  SWITCH BANKS TO NOUN TABLE READING
010795,001560: 05,2655           52006                           DXCH     Z                                     #  ROUTINE.
010796,001561: 05,2656           37762                           CAF      TWO                                   
010797,001562: 05,2657           02762                           TC       PUTCOM                                
010798,001563: 05,2660           50135                           INDEX    NOUNADD                               
010799,001564: 05,2661           54002                           TS       2                                     
010800,001565: 05,2662           02663                           TC       LOADLV                                
010801,001566: 

Page 268

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

Page 269

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

Page 270

010901,001666: 05,3007           10271                           CCS      DECBRNCH                              
010902,001667: 05,3010           03051                           TC       PUTDECSF                              #  +  DEC
010903,001668: 05,3011           02721                           TC       SFRUTMIX                              #  +0  OCTAL
010904,001669: 05,3012           02236                           TC       DPTEST                                
010905,001670: 05,3013           03040                           TC       PUTCOM2                               #  NO DP
010906,001671:                                                                                                  #  TEST FOR DP SCALE FOR OCT LOAD. IF SO,
010907,001672:                                                                                                  #  +0 INTO MAJOR PART. SET NOUNADD FOR
010908,001673:                                                                                                  #  LOADING OCTAL WORD INTO MINOR PART.
010909,001674: 05,3014           24135        PUTDPCOM           INCR     NOUNADD                               #  DP  (ESUBK)-K+1  OR  E+1
010910,001675: 05,3015           30135                           CA       NOUNADD                               #  NOUNADD NOW SET FOR MINOR PART
010911,001676: 05,3016           26107                           ADS      DECOUNT                               #  (ESUBK)+1  OR  E+1  INTO DECOUNT
010912,001677: 05,3017           37767                           CAF      ZERO                                  #  NOUNADD SET FOR MINOR PART
010913,001678: 05,3020           50107                           INDEX    DECOUNT                               
010914,001679: 05,3021           53777                           TS       0          -1                         #  ZERO MAJOR PART(ESUBK OR E)
010915,001680: 05,3022           03040                           TC       PUTCOM2                               
010916,001681: 
010917,001682: 05,3023           04521        PUTNORM            TC       SETNADD                               #  ECADR FROM NOUNCADR. SETS EB, NOUNADD.
010918,001683: 05,3024           10271                           CCS      DECBRNCH                              
010919,001684: 05,3025           03051                           TC       PUTDECSF                              #  +  DEC
010920,001685: 05,3026           02713                           TC       SFRUTNOR                              #  +0  OCTAL
010921,001686: 05,3027           02236                           TC       DPTEST                                
010922,001687: 05,3030           03034                           TC       PUTCOM2    -4                         #  NO DP
010923,001688: 05,3031           37767                           CAF      ZERO                                  #  DP
010924,001689: 05,3032           54107                           TS       DECOUNT                               
010925,001690: 05,3033           03014                           TC       PUTDPCOM                              
010926,001691: 
010927,001692: 05,3034           30136                           CA       NNADTEM                               
010928,001693: 05,3035           67763                           AD       ONE                                   #  IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
010929,001694: 05,3036           00006                           EXTEND                                         
010930,001695: 05,3037           13044                           BZF      CHANLOAD                              
010931,001696: 05,3040           56144        PUTCOM2            XCH      MPAC                                  
010932,001697: 05,3041           00105                           TC       DECRET                                
010933,001698: 
010934,001699: 05,3042     0270                                  EBANK=   DSPCOUNT                              
010935,001700: 05,3042           02045 46060  GTSFINLC           2CADR    GTSFIN                                
010936,001701: 
010937,001702: 
010938,001703: 05,3044           56144        CHANLOAD           XCH      MPAC                                  
010939,001704: 05,3045           00006                           EXTEND                                         
010940,001705: 05,3046           50310                           INDEX    NOUNCADR                              
010941,001706: 05,3047           01000                           WRITE    0                                     
010942,001707: 05,3050           02663                           TC       LOADLV                                
010943,001708: 
010944,001709:                                                                                                  #  PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
010945,001710: 
010946,001711: 05,3051           02734        PUTDECSF           TC       SFCONUM                               #  2X(SF CON NUMB) IN A
010947,001712: 05,3052           54113                           TS       SFTEMP1                               

Page 271

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

Page 272

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

Page 273

011048,001813: 04,3034           03006                           ADRES    DEGCON2                               
011049,001814: 04,3035           37750                           CAF      BIT12                                 #  ROUND AS IN DEGINSF
011050,001815: 04,3036           60145                           AD       MPAC       +1                         
011051,001816: 04,3037           03104                           TC       2ROUND     +2                         
011052,001817: 04,3040           02752                           TC       DEGINSF2                              
011053,001818: 
011054,001819: 04,3041           07155        DPINSF             TC       DMP                                   #  SCALES MPAC, MPAC +1 BY SFTEMP1,
011055,001820: 04,3042           00113                           ADRES    SFTEMP1                               #  SFTEMP2.  STORES LOW PART OF RESULT
011056,001821: 04,3043           56146                           XCH      MPAC       +2                         #  IN (E SUBK) +1 OR E+1
011057,001822: 04,3044           60000                           DOUBLE                                         
011058,001823: 04,3045           54146                           TS       MPAC       +2                         
011059,001824: 04,3046           37767                           CAF      ZERO                                  
011060,001825: 04,3047           60145                           AD       MPAC       +1                         
011061,001826: 04,3050           03104                           TC       2ROUND     +2                         
011062,001827: 04,3051           03113                           TC       TESTOFUF                              
011063,001828: 04,3052           50130                           INDEX    MIXBR                                 #  RETURNS IF NO OF/UF
011064,001829: 04,3053           03053                           TC       +0                                    
011065,001830: 04,3054           03064                           TC       DPINORM                               
011066,001831: 04,3055           30107                           CA       DECOUNT                               #  MIXEDNOUN
011067,001832: 04,3056           60135        DPINCOM            AD       NOUNADD                               #      MIXED               NORMAL
011068,001833: 04,3057           54002                           TS       Q                                     #    E SUBK            E
011069,001834: 04,3060           56145                           XCH      MPAC       +1                         
011070,001835: 04,3061           50002                           INDEX    Q                                     
011071,001836: 04,3062           54001                           TS       1                                     #  PLACE LOW PART IN
011072,001837: 04,3063           02774                           TC       ENDSCALE                              #  (E SUBK) +1    MIXED
011073,001838: 04,3064           37767        DPINORM            CAF      ZERO                                  #  E +1         NORMAL
011074,001839: 04,3065           03056                           TC       DPINCOM                               
011075,001840: 
011076,001841: 
011077,001842: 04,3066           07155        DPINSF2            TC       DMP                                   #  ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
011078,001843: 04,3067           00113                           ADRES    SFTEMP1                               #  PART OF SF CONST. DPINSF2 SHIFTS RESULTS
011079,001844: 04,3070           03072                           TC       TPLEFT7                               #  LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
011080,001845: 04,3071           03043                           TC       DPINSF     +2                         
011081,001846: 
011082,001847: 
011083,001848: 04,3072           56002        TPLEFT7            XCH      Q                                     #  OPERATES ON MPAC, MPAC+1, MPAC+2
011084,001849: 04,3073           54114                           TS       SFTEMP2                               #  CANT USE L FOR RETURN. TPSL1 USES L.
011085,001850: 04,3074           36306                           CAF      SIX                                   #  LEFT BY 7
011086,001851: 04,3075           54113        LEFT7COM           TS       SFTEMP1                               
011087,001852: 04,3076           04611                           TC       TPSL1                                 
011088,001853: 04,3077           10113                           CCS      SFTEMP1                               
011089,001854: 04,3100           03075                           TC       LEFT7COM                              
011090,001855: 04,3101           00114                           TC       SFTEMP2                               
011091,001856: 
011092,001857: 04,3102           56145        2ROUND             XCH      MPAC       +1                         
011093,001858: 04,3103           60000                           DOUBLE                                         

Page 274

011095,001860: 04,3104           54145                           TS       MPAC       +1                         
011096,001861: 04,3105           00002                           TC       Q                                     #  IF MPAC+1 DOES NOT OF/UF
011097,001862: 04,3106           60144                           AD       MPAC                                  
011098,001863: 04,3107           54144                           TS       MPAC                                  
011099,001864: 04,3110           00002                           TC       Q                                     #  IF MPAC DOES NOT OF/UF
011100,001865: 04,3111           54111                           TS       OVFIND                                
011101,001866: 04,3112           00002        2RNDEND            TC       Q                                     
011102,001867: 
011103,001868: 04,3113           10111        TESTOFUF           CCS      OVFIND                                #  RETURNS IF NO OF/UF
011104,001869: 04,3114           03315                           TC       DSPALARM                              #  OF
011105,001870: 04,3115           00002                           TC       Q                                     
011106,001871: 04,3116           03315                           TC       DSPALARM                              #  UF
011107,001872: 

Page 275

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

Page 276

011158,001923: 05,3131           52312                           DXCH     MONSAVE                               #  ZERO THE KILL MONITOR BIT
011159,001924: 05,3132           00003                           RELINT                                         
011160,001925: 05,3133           00126                           TC       ENTRET                                
011161,001926: 
011162,001927: 
011163,001928: 05,3134           04605        MONREQ             TC       LODSAMPT                              #  CALLED BY WAITLIST
011164,001929: 05,3135           10312                           CCS      MONSAVE1                              #  TIME IS SNATCHED IN RUPT FOR NOUN 65
011165,001930: 05,3136           03142                           TC       +4                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011166,001931: 05,3137           03142                           TC       +3                                    #  IF KILLER BIT = 0, ENTER REQUESTS
011167,001932: 05,3140           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011168,001933: 05,3141           03153                           TC       KILLMON                               #  IF KILLER BIT = 1, NO REQUESTS
011169,001934: 05,3142           33157                           CAF      MONDEL                                
011170,001935: 05,3143           05663                           TC       WAITLIST                              #  ENTER WAITLIST REQUEST FOR MONREQ
011171,001936: 05,3144     0270                                  EBANK=   DSPCOUNT                              
011172,001937: 05,3144           03134 12060                     2CADR    MONREQ                                
011173,001938: 
011174,001939: 05,3146           35210                           CAF      CHRPRIO                               
011175,001940: 05,3147           05505                           TC       NOVAC                                 #  ENTER EXEC REQUEST FOR MONDO
011176,001941: 05,3150     0270                                  EBANK=   DSPCOUNT                              
011177,001942: 05,3150           03160 12060                     2CADR    MONDO                                 
011178,001943: 
011179,001944: 05,3152           05727                           TC       TASKOVER                              
011180,001945: 
011181,001946: 05,3153           37767        KILLMON            CAF      ZERO                                  #  ZERO MONSAVE AND TURN KILLER BIT OFF
011182,001947: 05,3154           54311                           TS       MONSAVE                               
011183,001948: 05,3155           54312                           TS       MONSAVE1                              #  TURN OFF KILL MONITOR BIT.
011184,001949: 05,3156           05727                           TC       TASKOVER                              
011185,001950: 
011186,001951: 
011187,001952: 05,3157           00144        MONDEL             OCT      144                                   #  FOR 1 SEC MONITOR INTERVALS
011188,001953: 
011189,001954: 
011190,001955: 05,3160           10312        MONDO              CCS      MONSAVE1                              #  CALLED BY EXEC
011191,001956: 05,3161           03165                           TC       +4                                    #  IF KILLER BIT = 0, CONTINUE
011192,001957: 05,3162           03165                           TC       +3                                    #  IF KILLER BIT = 0, CONTINUE
011193,001958: 05,3163           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011194,001959: 05,3164           05567                           TC       ENDOFJOB                              #  IN CASE TERMINATE CAME SINCE LAST MONREQ
011195,001960: 05,3165           10303                           CCS      DSPLOCK                               
011196,001961: 05,3166           03212                           TC       MONBUSY                               #  NVSUB IS BUSY
011197,001962: 05,3167           33401                           CAF      LOW6                                  #  NVSUB IS AVAILABLE
011198,001963: 05,3170           70311                           MASK     MONSAVE                               
011199,001964: 05,3171           54113                           TS       NVTEMP                                
011200,001965: 05,3172           04460                           TC       NVSUBMON                              #  PLACE NOUN INTO NOUNREG AND DISPLAY IT
011201,001966: 05,3173           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM DURING DISPLAY
011202,001967: 05,3174           33210                           CAF      MONMASK                               
011203,001968: 05,3175           70311                           MASK     MONSAVE                               #  CHANGE MONITOR VERB TO DISPLAY VERB
011204,001969: 05,3176           04532                           TC       RIGHT5                                

Page 277

011206,001971: 05,3177           54020                           TS       CYR                                   
011207,001972: 05,3200           56020                           XCH      CYR                                   
011208,001973: 05,3201           54272                           TS       VERBREG                               
011209,001974: 05,3202           33211                           CAF      MONBACK                               #  SET RETURN TO PASTEVB AFTER DATA DISPLAY
011210,001975: 05,3203           54126                           TS       ENTRET                                
011211,001976: 05,3204           47745                           CS       BIT15                                 
011212,001977: 05,3205           70312                           MASK     MONSAVE1                              #  PUT ECADR INTO MPAC +2. INTMCTBS WILL
011213,001978: 05,3206           54146                           TS       MPAC       +2                         #  DISPLAY IT AND SET NOUNCADR, NOUNADD,
011214,001979: 05,3207           02037        ENDMONDO           TC       TESTNN                                #  EBANK.
011215,001980: 
011216,001981:    4435                                           SETLOC   ENDRMODF                              
011217,001982: 
011218,001983:    4435           34443        PASTEVB            CAF      MIDSIX                                
011219,001984:    4436           70311                           MASK     MONSAVE                               
011220,001985:    4437           54113                           TS       NVTEMP                                #  PLACE MONITOR VERB INTO VERBREG AND
011221,001986:    4440           04460                           TC       NVSUBMON                              #       DISPLAY IT.
011222,001987:    4441           04442                           TC       +1                                    #  IN CASE OF ALARM DURING DISPLAY
011223,001988:    4442           05567        ENDPASTE           TC       ENDOFJOB                              
011224,001989: 
011225,001990:    4443           07700        MIDSIX             OCT      07700                                 
011226,001991: 
011227,001992: 05,3210                                           SETLOC   ENDMONDO   +1                         
011228,001993: 05,3210           00700        MONMASK            OCT      700                                   
011229,001994: 05,3211           04435        MONBACK            ADRES    PASTEVB                               
011230,001995: 
011231,001996: 05,3212           04601        MONBUSY            TC       RELDSPON                              #  TURN KEY RELEASE LIGHT
011232,001997: 05,3213           05567                           TC       ENDOFJOB                              
011233,001998: 
011234,001999: 
011235,002000:                                                                                                  #  DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
011236,002001:                                                                                                  #  IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE 
011237,002002:                                                                                                  #  DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
011238,002003: 
011239,002004: 05,3214           34527        DSPFMEM            CAF      R1D1                                  #  IF F/F, DATACALL USES BANK 02 OR 03.
011240,002005: 05,3215           54270                           TS       DSPCOUNT                              
011241,002006: 05,3216           30310                           CA       NOUNCADR                              #  ORIGINAL FCADR LOADED STILL IN NOUNCADR.
011242,002007: 05,3217           05241                           TC       DATACALL                              
011243,002008: 05,3220           03222                           TC       DSPOCTWD                              
011244,002009: 05,3221           05567                           TC       ENDOFJOB                              
011245,002010: 

Page 278

011247,002012:                                                                                                  #   DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
011248,002013:                                                                                                  #  STARTING IN LOC SPECIFIED IN DSPCOUNT
011249,002014: 
011250,002015: 04,3117                                           SETLOC   TESTOFUF   +4                         
011251,002016: 
011252,002017: 04,3117           56002        DSPDECWD           XCH      Q                                     #  USES SHORTMP THROUGHOUT
011253,002018: 04,3120           54105                           TS       WDRET                                 #  CANT USE L FOR RETURN.+ON USES L.
011254,002019: 04,3121           10144                           CCS      MPAC                                  
011255,002020: 04,3122           03131                           TC       +7                                    
011256,002021: 04,3123           03131                           TC       +6                                    
011257,002022: 04,3124           67763                           AD       ONE                                   
011258,002023: 04,3125           54144                           TS       MPAC                                  
011259,002024: 04,3126           02321                           TC       -ON                                   
011260,002025: 04,3127           40145                           CS       MPAC       +1                         
011261,002026: 04,3130           03133                           TC       +3                                    
011262,002027: 04,3131           02301                           TC       +ON                                   
011263,002028: 04,3132           56145                           XCH      MPAC       +1                         
011264,002029: 04,3133           63172                           AD       DECROUND                              
011265,002030: 04,3134           54145                           TS       MPAC       +1                         
011266,002031: 04,3135           37767                           CAF      ZERO                                  
011267,002032: 04,3136           60144                           AD       MPAC                                  
011268,002033: 04,3137           54144                           TS       MPAC                                  
011269,002034: 04,3140           03144                           TC       +4                                    
011270,002035: 04,3141           37743                           CAF      POSMAX                                
011271,002036: 04,3142           54144                           TS       MPAC                                  
011272,002037: 04,3143           54145                           TS       MPAC       +1                         
011273,002038: 04,3144           37761                           CAF      FOUR                                  
011274,002039: 04,3145           54127        DSPDCWD1           TS       WDCNT                                 
011275,002040: 04,3146           34570                           CAF      BINCON                                
011276,002041: 04,3147           07357                           TC       SHORTMP                               
011277,002042: 04,3150           50144        TRACE1             INDEX    MPAC                                  
011278,002043: 04,3151           34300                           CAF      RELTAB                                
011279,002044: 04,3152           74556                           MASK     LOW5                                  
011280,002045: 04,3153           54114                           TS       CODE                                  
011281,002046: 04,3154           37767                           CAF      ZERO                                  
011282,002047: 04,3155           56146                           XCH      MPAC       +2                         
011283,002048: 04,3156           56145                           XCH      MPAC       +1                         
011284,002049: 04,3157           54144                           TS       MPAC                                  
011285,002050: 04,3160           56270                           XCH      DSPCOUNT                              
011286,002051: 04,3161           54133        TRACE1S            TS       COUNT                                 
011287,002052: 04,3162           10000                           CCS      A                                     #  DECREMENT DSPCOUNT EXCEPT AT +0
011288,002053: 04,3163           54270                           TS       DSPCOUNT                              
011289,002054: 04,3164           03217                           TC       DSPIN                                 
011290,002055: 04,3165           10127                           CCS      WDCNT                                 
011291,002056: 04,3166           03145                           TC       DSPDCWD1                              
011292,002057: 04,3167           44565                           CS       VD1                                   
011293,002058: 04,3170           54270                           TS       DSPCOUNT                              
011294,002059: 04,3171           00105                           TC       WDRET                                 
011295,002060: 
011296,002061: 04,3172           02476        DECROUND           OCT      02476                                 
011297,002062: 

Page 279

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

Page 280

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

Page 281

011398,002163: 04,3235           54114                           TS       CODE                                  
011399,002164: 04,3236           37746                           CAF      BIT14                                 
011400,002165: 04,3237           70133                           MASK     COUNT                                 
011401,002166: 04,3240           10000                           CCS      A                                     
011402,002167: 04,3241           37762                           CAF      TWO                                   #  BIT14 = 1, BLANK SIGN
011403,002168: 04,3242           67763                           AD       ONE                                   #  BIT14 = 0, LEAVE SIGN ALONE
011404,002169: 04,3243           54133                           TS       COUNT                                 #  +0 INTO COUNT FOR RIGHT
011405,002170:                                                                                                  #  +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
011406,002171:                                                                                                  #  +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
011407,002172: 04,3244           00004        DSPIN1             INHINT                                         
011408,002173: 04,3245           50131                           INDEX    DSREL                                 
011409,002174: 04,3246           10313                           CCS      DSPTAB                                
011410,002175: 04,3247           03251                           TC       +2                                    #  IF +
011411,002176: 04,3250           04736                           TC       CCSHOLE                               
011412,002177: 04,3251           67763                           AD       ONE                                   #  IF -
011413,002178: 04,3252           54132                           TS       DSMAG                                 
011414,002179: 04,3253           50133                           INDEX    COUNT                                 
011415,002180: 04,3254           73275                           MASK     DSMSK                                 
011416,002181: 04,3255           00006                           EXTEND                                         
011417,002182: 04,3256           60114                           SU       CODE                                  
011418,002183: 04,3257           00006                           EXTEND                                         
011419,002184: 04,3260           13273                           BZF      DSLV                                  #  SAME
011420,002185: 04,3261           50133        DFRNT              INDEX    COUNT                                 
011421,002186: 04,3262           43275                           CS       DSMSK                                 #  MASK WITH 77740,76037, OR 75777
011422,002187: 04,3263           70132                           MASK     DSMAG                                 
011423,002188: 04,3264           60114                           AD       CODE                                  
011424,002189: 04,3265           40000                           CS       A                                     
011425,002190: 04,3266           50131                           INDEX    DSREL                                 
011426,002191: 04,3267           56313                           XCH      DSPTAB                                
011427,002192: 04,3270           00006                           EXTEND                                         
011428,002193: 04,3271           63273                           BZMF     DSLV                                  #  DSPTAB ENTRY WAS -
011429,002194: 04,3272           24307                           INCR     NOUT                                  #  DSPTAB ENTRY WAS +
011430,002195: 04,3273           00003        DSLV               RELINT                                         
011431,002196: 04,3274           00104                           TC       DSEXIT                                
011432,002197: 
011433,002198: 04,3275           00037        DSMSK              OCT      37                                    
011434,002199: 04,3276           01740                           OCT      1740                                  
011435,002200: 04,3277           02000                           OCT      2000                                  
011436,002201: 04,3300           03740                           OCT      3740                                  
011437,002202: 
011438,002203: 
011439,002204:                                                                                                  #  FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
011440,002205:                                                                                                  #  BIT11 OF CODE.
011441,002206: 
011442,002207: 04,3301           54131        11DSPIN            TS       DSREL                                 
011443,002208: 04,3302           37762                           CAF      TWO                                   
011444,002209: 04,3303           54133                           TS       COUNT                                 
011445,002210: 04,3304           56002                           XCH      Q                                     #  MUST USE SAME RETURN AS DSPIN
011446,002211: 04,3305           54104                           TS       DSEXIT                                

Page 282

011448,002213: 04,3306           03244                           TC       DSPIN1                                
011449,002214: 
011450,002215: 
011451,002216: 04,3307           03217        DSPOCTIN           TC       DSPIN                                 #  SO DSPOCTWD DOESNT USE SWCALL
011452,002217: 04,3310           33312                           CAF      +2                                    
011453,002218: 04,3311           05230                           TC       BANKJUMP                              
011454,002219: 04,3312           13250        ENDSPOCT           CADR     OCTBACK                               
011455,002220: 
011456,002221: 
011457,002222:                                                                                                  #  DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
011458,002223:                                                                                                  #  ABORT WITH 01501.
011459,002224:                                                                                                  #  DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
011460,002225:                                                                                                  #  DO TC ENTRET.
011461,002226: 
011462,002227: 04,3313           34505        CHARALRM           CAF      ENDINST                               #  ALARMS WHICH MUST DO ENDOFJOBS COME
011463,002228: 04,3314           54126                           TS       ENTRET                                #  HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
011464,002229: 
011465,002230: 04,3315           04571        DSPALARM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011466,002231: 04,3316           43325                           CS       NVSBENDL                              
011467,002232: 04,3317           60126                           AD       ENTEXIT                               
011468,002233: 04,3320           00006                           EXTEND                                         
011469,002234: 04,3321           13323                           BZF      +2                                    #  NVSUB INITIATED. ABORT
011470,002235: 04,3322           00126                           TC       ENTEXIT                               #  NOT NVSUB INITIATED.
011471,002236: 04,3323           06000                           TC       ABORT                                 
011472,002237: 04,3324           01501                           OCT      01501                                 
011473,002238: 04,3325           04464        NVSBENDL           TC       NVSUBEND                              
011474,002239: 
011475,002240: 
011476,002241:                                                                                                  #  MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
011477,002242:                                                                                                  #  IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
011478,002243:                                                                                                  #  M M LIGHTS.
011479,002244: 
011480,002245: 05,3267                                           SETLOC   DSP2BIT    +10D                       
011481,002246: 
011482,002247: 05,3267           03302        MMCHANG            TC       REQMM                                 
011483,002248: 05,3270           37767                           CAF      ZERO                                  
011484,002249: 05,3271           56273                           XCH      NOUNREG                               
011485,002250: 05,3272           54144                           TS       MPAC                                  
011486,002251: 05,3273           34566                           CAF      ND1                                   
011487,002252: 05,3274           54270                           TS       DSPCOUNT                              
011488,002253: 05,3275           05206                           TC       BANKCALL                              
011489,002254: 05,3276           10557                           CADR     2BLANK                                
011490,002255: 05,3277           30144                           CA       MPAC                                  
011491,002256: 05,3300           05225                           TC       POSTJUMP                              
011492,002257: 05,3301           11315                           CADR     MODROUTB                              #  GO THRU STANDARD LOC.
011493,002258: 

Page 283

011495,002260: 05,3302  04,3315               MODROUTB           =        DSPALARM                              #  **FIX LATER**
011496,002261: 05,3302           40002        REQMM              CS       Q                                     
011497,002262: 05,3303           54304                           TS       REQRET                                
011498,002263: 05,3304           34566                           CAF      ND1                                   
011499,002264: 05,3305           54270                           TS       DSPCOUNT                              
011500,002265: 05,3306           37767                           CAF      ZERO                                  
011501,002266: 05,3307           54273                           TS       NOUNREG                               
011502,002267: 05,3310           05206                           TC       BANKCALL                              
011503,002268: 05,3311           10557                           CADR     2BLANK                                
011504,002269: 05,3312           04622                           TC       FLASHON                               
011505,002270: 05,3313           00126                           TC       ENTEXIT                               
011506,002271: 
011507,002272: 
011508,002273:                                                                                                  #  VBRQEXEC ENTERS REQUEST TO EXEC     FOR ANY ADDRESS WITH ANY PRIORITY.
011509,002274:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
011510,002275:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011511,002276:                                                                                                  #  COMPONENT 1  PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
011512,002277:                                                                                                  #  COMPONENT 2  JOB ADRES (12 BIT )
011513,002278:                                                                                                  #  COMPONENT 3  BBCON
011514,002279: 
011515,002280: 05,3314           37763        VBRQEXEC           CAF      BIT1                                  
011516,002281: 05,3315           70337                           MASK     DSPTEM1                               
011517,002282: 05,3316           10000                           CCS      A                                     
011518,002283: 05,3317           03336                           TC       SETVAC                                #  IF BIT1 = 1, FINDVAC
011519,002284: 05,3320           35723                           CAF      TCNOVAC                               #  IF BIT1 = 0, NOVAC
011520,002285: 05,3321           54144        REQEX1             TS       MPAC                                  #  TC NOVAC  OR  TC FINDVAC INTO MPAC
011521,002286: 05,3322           47763                           CS       BIT1                                  
011522,002287: 05,3323           70337                           MASK     DSPTEM1                               
011523,002288: 05,3324           54150                           TS       MPAC       +4                         #  PRIO INTO MPAC+4 AS A TEMP
011524,002289: 05,3325           04666        REQUESTC           TC       RELDSP                                
011525,002290: 05,3326           34505                           CA       ENDINST                               
011526,002291: 05,3327           54147                           TS       MPAC       +3                         #  TC ENDOFJOB INTO MPAC+3
011527,002292: 05,3330           00006                           EXTEND                                         
011528,002293: 05,3331           30341                           DCA      DSPTEM1    +1                         #  JOB ADRES INTO MPAC+1
011529,002294: 05,3332           52146                           DXCH     MPAC       +1                         #  BBCON INTO MPAC+2
011530,002295: 05,3333           30150                           CA       MPAC       +4                         #  PRIO IN A
011531,002296: 05,3334           00004                           INHINT                                         
011532,002297: 05,3335           00144                           TC       MPAC                                  
011533,002298: 
011534,002299: 05,3336           34562        SETVAC             CAF      TCFINDVC                              
011535,002300: 05,3337           03321                           TC       REQEX1                                
011536,002301: 
011537,002302:                                                                                                  #  VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
011538,002303:                                                                                                  #  IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
011539,002304:                                                                                                  #  IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
011540,002305:                                                                                                  #  COMPONENT 1  DELAY (LOW BITS)
011541,002306:                                                                                                  #  COMPONENT 2  TASK ADRES (12 BIT)
011542,002307:                                                                                                  #  COMPONENT 3  BBCON

Page 284

011544,002309: 05,3340           34561        VBRQWAIT           CAF      TCWAIT                                
011545,002310: 05,3341           54144                           TS       MPAC                                  #  TC WAITLIST INTO MPAC
011546,002311: 05,3342           30337                           CA       DSPTEM1                               #  TIME DELAY
011547,002312: 05,3343           03324        ENDRQWT            TC       REQUESTC   -1                         
011548,002313: 
011549,002314:                                                                                                  #  REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
011550,002315:                                                                                                  #  TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
011551,002316:                                                                                                  #  LEAVE IT IN A, INHINT AND TC MPAC.
011552,002317: 
011553,002318: 
011554,002319: 04,3326                                           SETLOC   NVSBENDL   +1                         
011555,002320: 04,3326           37763        VBPROC             CAF      ONE                                   #  PROCEED WITHOUT DATA
011556,002321: 04,3327           54305                           TS       LOADSTAT                              
011557,002322: 04,3330           04666                           TC       RELDSP                                
011558,002323: 04,3331           04626                           TC       FLASHOFF                              
011559,002324: 04,3332           03440                           TC       RECALTST                              #  SEE IF THERE IS ANY RECALL FROM ENDIDLE
011560,002325: 
011561,002326: 
011562,002327: 04,3333           04466        VBTERM             TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011563,002328: 04,3334           47763                           CS       ONE                                   
011564,002329: 04,3335           03327                           TC       VBPROC     +1                         #  TERM VERB SETS LOADSTAT NEG
011565,002330: 
011566,002331: 
011567,002332:                                                                                                  #  FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
011568,002333: 
011569,002334:                                                                                                  #  VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
011570,002335:                                                                                                  #  IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
011571,002336: 
011572,002337: 04,3336           47761        VBRELDSP           CS       BIT3                                  
011573,002338: 04,3337           00006                           EXTEND                                         
011574,002339: 04,3340           03011                           WAND     DSALMOUT                              #  TURN OFF UPACT LIGHT
011575,002340: 04,3341           04666                           TC       RELDSP                                #  SEARCHES LIST
011576,002341: 04,3342           05567                           TC       ENDOFJOB                              
011577,002342: 
011578,002343: 
011579,002344:                                                                                                  #  BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
011580,002345: 
011581,002346: 04,3343           37766        BUMP               CAF      FIVE                                  #  R2D5
011582,002347: 04,3344           54270                           TS       DSPCOUNT                              
011583,002348: 04,3345           54133                           TS       COUNT                                 
011584,002349: 04,3346           37763                           CAF      ONE                                   #  SHIFT DATA OF R2 TO R3, R1 TO R2
011585,002350: 04,3347           70133                           MASK     COUNT                                 
011586,002351: 04,3350           56133                           XCH      COUNT                                 #  +0 INTO COUNT IF EVEN (RIGHT)
011587,002352: 04,3351           54021                           TS       SR                                    #  +1 INTO COUNT IF ODD (LEFT)

Page 285

011589,002354: 04,3352           56021                           XCH      SR                                    #  DSREL IN A
011590,002355: 04,3353           50000                           INDEX    A                                     
011591,002356: 04,3354           10313                           CCS      DSPTAB                                
011592,002357: 04,3355           03357                           TC       +2                                    
011593,002358: 04,3356           04736                           TC       CCSHOLE                               
011594,002359: 04,3357           67763                           AD       ONE                                   #  DSMAG IN A
011595,002360: 04,3360           50133                           INDEX    COUNT                                 
011596,002361: 04,3361           73275                           MASK     DSMSK                                 
011597,002362: 04,3362           50133                           INDEX    COUNT                                 
011598,002363: 04,3363           03364                           TC       +1                                    
011599,002364: 04,3364           03366                           TC       +2                                    #  EVEN(RIGHT)  OK
011600,002365: 04,3365           04532                           TC       RIGHT5                                #  ODD(LEFT)  SHIFT RIGHT
011601,002366: 04,3366           54114                           TS       CODE                                  
011602,002367: 04,3367           47766                           CS       FIVE                                  
011603,002368: 04,3370           60270                           AD       DSPCOUNT                              #  DSPCOUNT-5
011604,002369: 04,3371           10000                           CCS      A                                     #  TO PREVENT -0
011605,002370: 04,3372           67763                           AD       ONE                                   
011606,002371: 04,3373           03375                           TC       +2                                    
011607,002372: 04,3374           04736                           TC       CCSHOLE                               
011608,002373: 04,3375           54133                           TS       COUNT                                 
011609,002374: 04,3376           03217                           TC       DSPIN                                 #  CODE ALREADY IN CODE
011610,002375: 04,3377           40270                           CS       DSPCOUNT                              
011611,002376: 04,3400           64527                           AD       R1D1                                  #  OCT 16
011612,002377: 04,3401           10000                           CCS      A                                     
011613,002378: 04,3402           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ OCT 16
011614,002379: 04,3403           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011615,002380: 04,3404           03344                           TC       BUMP       +1                         
011616,002381: 
011617,002382: 04,3405           37767        SWSGN              CAF      ZERO                                  #  -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
011618,002383: 04,3406           54270                           TS       DSPCOUNT                              
011619,002384: 04,3407           63436                           AD       SWTAB      +2                         #  OCT 3
011620,002385: 04,3410           50000                           INDEX    A                                     #  PICKUP ORDER , DSREL=3,4,5,6.
011621,002386: 04,3411           10313                           CCS      DSPTAB                                #                   (-R2,+R2,-R1,+R1)
011622,002387: 04,3412           03414                           TC       +2                                    
011623,002388: 04,3413           04736                           TC       CCSHOLE                               
011624,002389: 04,3414           67763                           AD       ONE                                   
011625,002390: 04,3415           77751                           MASK     BIT11                                 
011626,002391: 04,3416           54114                           TS       CODE                                  
011627,002392: 04,3417           50270                           INDEX    DSPCOUNT                              
011628,002393: 04,3420           33434                           CAF      SWTAB                                 #  PUT AWAY ORDER, DSREL= 0,1,3,4.
011629,002394: 04,3421           03301                           TC       11DSPIN                               #                   (-R3,+R3,-R2,+R2.)
011630,002395: 04,3422           40270                           CS       DSPCOUNT                              
011631,002396: 04,3423           63436                           AD       SWTAB      +2                         #  OCT 3
011632,002397: 04,3424           10000                           CCS      A                                     
011633,002398: 04,3425           56270                           XCH      DSPCOUNT                              #  +, DSPCOUNT L/ 3
011634,002399: 04,3426           67763                           AD       ONE                                   #  INCREMENT DSPCOUNT
011635,002400: 04,3427           03406                           TC       SWSGN      +1                         
011636,002401: 04,3430           34527                           CAF      R1D1                                  #  -0,       DSPCOUNT = 3
011637,002402: 04,3431           54270                           TS       DSPCOUNT                              
011638,002403: 04,3432           02514                           TC       5BLANK                                #  BLANKS R1

Page 286

011640,002405: 04,3433           00126                           TC       ENTEXIT                               
011641,002406: 
011642,002407: 04,3434           00000        SWTAB              OCT      0                                     #  -R3
011643,002408: 04,3435           00001                           OCT      1                                     #  +R3
011644,002409: 04,3436           00003                           OCT      3                                     #  -R2
011645,002410: 04,3437           00004                           OCT      4                                     #  +R2
011646,002411: 

Page 287

011648,002413:                                                                                                  #  NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
011649,002414:                                                                                                  #  USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE  ...VVVVVVNNNNNN
011650,002415:                                                                                                  #  INTO A.      V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
011651,002416: 
011652,002417:                                                                                                  #  NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
011653,002418:                                                                                                  #  MPAC+2 BEFORE THE STANDARD NVSUB CALL.
011654,002419: 
011655,002420:                                                                                                  #   NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
011656,002421:                                                                                                  #  SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
011657,002422:                                                                                                  #  IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
011658,002423:                                                                                                  #  ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
011659,002424:                                                                                                  #  FURTHER ACTION).
011660,002425: 
011661,002426:                                                                                                  #  IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
011662,002427:                                                                                                  #  SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
011663,002428:                                                                                                  #  IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
011664,002429:                                                                                                  #  ALARM CONDITION BEFORE RETURN TO CALLER.
011665,002430: 
011666,002431:                                                                                                  #  THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
011667,002432:                                                                                                  #  KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
011668,002433:                                                                                                  #       IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
011669,002434:                                                                                                  #  PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
011670,002435:                                                                                                  #  RECALL PART OF RECALTST IF ENDIDLE WAS USED,

The following line is visibly terminated by a period ('.') in the scanned program listing, but in all other currently available AGC program versions containing this line (namely, RETREAD, AURORA, and SUNBURST 37) it is terminated by a comma (','). My belief is that the comma's tail has simply been cut off due to poor print quality, making it look like a period. — RSB

011677,002442:                                                                                                  #  IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
011678,002443:                                                                                                  #  VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
011679,002444:                                                                                                  #  MONITOR SET UP.
011680,002445: 
011681,002446:                                                                                                  #  A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
011682,002447: 
011683,002448:                                                                                                  #  DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
011684,002449:                                                                                                  #  LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
011685,002450: 
011686,002451:                                                                                                  #  NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
011687,002452:                                                                                                  #  ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
011688,002453: 
011689,002454:    4444                                           SETLOC   MIDSIX     +1                         
011690,002455:    4444           54113        NVSUB              TS       NVTEMP                                #  IN FIXED FIXED
011691,002456:    4445           10303                           CCS      DSPLOCK                               
011692,002457:    4446           00002                           TC       Q                                     #  DSP SYST BLOCKED. RET TO 1+ CALLING LOC
011693,002458:    4447           30002                           CA       Q                                     #  DSP SYST AVAILABLE
011694,002459:    4450           67763                           AD       ONE                                   
011695,002460:    4451           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011696,002461:    4452           04466                           TC       KILMONON                              #  TURN ON KILL MONITOR BIT
011697,002462:    4453           34457        NVSUBCOM           CAF      NVSBBBNK                              
011698,002463: 
011699,002464:    4454           56006                           XCH      BBANK                                 
011700,002465:    4455           54332                           TS       NVBNKTEM                              
011701,002466:    4456           02000                           TC       NVSUBB                                #  GO TO NVSUB1 THRU STANDARD LOC
011702,002467:    4457     0270                                  EBANK=   DSPCOUNT                              
011703,002468:    4457           12060        NVSBBBNK           BBCON    NVSUB1                                
011704,002469: 

Page 288

011706,002471:    4460           30002        NVSUBMON           CA       Q                                     #  MONDO COMES HERE
011707,002472:    4461           67763                           AD       ONE                                   
011708,002473:    4462           54331                           TS       NVQTEM                                #  2 + CALLING LOC INTO NVQTEM
011709,002474:    4463           04453                           TC       NVSUBCOM                              
011710,002475: 
011711,002476:    4464           52332        NVSUBEND           DXCH     NVQTEM                                #  NVBNKTEM MUST = NVQTEM+1
011712,002477:    4465           52006                           DXCH     Z                                     #  DTCB
011713,002478: 
011714,002479: 05,3344                                           SETLOC   ENDRQWT    +1                         
011715,002480: 
011716,002481: 05,3344           33363        NVSUB1             CAF      ENTSET                                #  IN BANK
011717,002482: 05,3345           54126                           TS       ENTRET                                #  SET RETURN TO NVSUBEND
011718,002483: 05,3346           33401                           CAF      LOW6                                  
011719,002484: 05,3347           70113                           MASK     NVTEMP                                
011720,002485: 05,3350           54144                           TS       MPAC                                  #  TEMP STORAGE
011721,002486: 05,3351           33402                           CAF      MID6                                  
011722,002487: 05,3352           70113                           MASK     NVTEMP                                
011723,002488: 05,3353           04532                           TC       RIGHT5                                
011724,002489: 05,3354           54020                           TS       CYR                                   
011725,002490: 05,3355           56020                           XCH      CYR                                   
011726,002491: 05,3356           54145                           TS       MPAC       +1                         #  TEMP STORAGE
011727,002492: 05,3357           10144                           CCS      MPAC                                  #  TEST NOUN
011728,002493: 05,3360           03364                           TC       +4                                    #  IF NOUN NOT +0, GO ON
011729,002494: 05,3361           56145                           XCH      MPAC       +1                         
011730,002495: 05,3362           02314                           TC       UPDATVB    -1                         #  IF NOUN = +0, DISPLAY VERB . THEN RETURN
011731,002496: 05,3363           04464        ENTSET             TC       NVSUBEND                              
011732,002497: 05,3364           10145                           CCS      MPAC       +1                         #  TEST VERB
011733,002498: 05,3365           03371                           TC       +4                                    #  IF VERB NOT +0, GO ON
011734,002499: 05,3366           56144                           XCH      MPAC                                  
011735,002500: 05,3367           02274                           TC       UPDATNN    -1                         #  IF VERB = +0, DISPLAY NOUN. THEN RETURN
011736,002501: 05,3370           04464                           TC       NVSUBEND                              
011737,002502: 05,3371           56145                           XCH      MPAC       +1                         
011738,002503: 05,3372           02314                           TC       UPDATVB    -1                         #  IF BOTH NOUN AND VERB NOT +0, DISPLAY
011739,002504: 05,3373           56144                           XCH      MPAC                                  #  BOTH AND GO TO ENTPAS0
011740,002505: 05,3374           02274                           TC       UPDATNN    -1                         
011741,002506: 05,3375           37767                           CAF      ZERO                                  
011742,002507: 05,3376           54305                           TS       LOADSTAT                              #  SET FOR WAITING FOR DATA CONDITION
011743,002508: 05,3377           54306                           TS       CLPASS                                
011744,002509: 05,3400           02031                           TC       ENTPAS0                               
011745,002510: 
011746,002511:                                                                                                  #  IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
011747,002512:                                                                                                  #  NOUNCADR IN ENTPAS0 (INTMCTBS ).
011748,002513: 
011749,002514: 
011750,002515: 05,3401           00077        LOW6               OCT      77                                    
011751,002516: 05,3402           07700        MID6               OCT      7700                                  
011752,002517: 

Page 289

011754,002519:    4466                                           SETLOC   NVSUBEND   +2                         
011755,002520:    4466           47745        KILMONON           CS       BIT15                                 #  FORCE BIT 15 OF MONSAVE1 TO 1.
011756,002521:    4467           00004                           INHINT                                         #          THIS IS THE KILL MONITOR BIT.
011757,002522:    4470           70312                           MASK     MONSAVE1                              
011758,002523:    4471           67745                           AD       BIT15                                 
011759,002524:    4472           54312                           TS       MONSAVE1                              
011760,002525:    4473           00003                           RELINT                                         
011761,002526:    4474           00002                           TC       Q                                     
011762,002527: 
011763,002528: 
011764,002529:                                                                                                  #  LOADSTAT  +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
011765,002530:                                                                                                  #            +1  PROCEED NO DATA. SET BY SPECIAL VERB
011766,002531:                                                                                                  #           -1 TERMINATE   SET BY SPECIAL VERB
011767,002532:                                                                                                  #           -0 DATA IN   SET BY END OF LOAD ROUTINE
011768,002533: 
011769,002534: 
011770,002535:                                                                                                  #  L  TC ENDIDLE  (FIXED FIXED)
011771,002536:                                                                                                  #  ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
011772,002537:                                                                                                  #  WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
011773,002538:                                                                                                  #  ENDIDLE CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP AND 
011774,002539:                                                                                                  #  JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011775,002540:                                                                                                  #  RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
011776,002541:                                                                                                  #  L+1      FOR TERMINATE
011777,002542:                                                                                                  #  L+2      FOR PROCEED WITHOUT DATA
011778,002543:                                                                                                  #  L+3      FOR DATA IN
011779,002544:                                                                                                  #  IT DOES NOTHING     IF LOADSTAT INDICATES WAITING FOR DATA.
011780,002545: 
011781,002546:    4475           37763        ENDIDLE            CAF      ONE                                   
011782,002547:    4476           54303                           TS       DSPLOCK                               
011783,002548:    4477           22004                           LXCH     FBANK                                 
011784,002549:    4500           56002                           XCH      Q                                     
011785,002550:    4501           52124                           DXCH     BUF2                                  
011786,002551:    4502           05235                           TC       MAKECADR                              
011787,002552:    4503           54327                           TS       CADRSTOR                              
011788,002553:    4504           05545                           TC       JOBSLEEP                              
011789,002554: 
011790,002555:    4505           05567        ENDINST            TC       ENDOFJOB                              
011791,002556: 
011792,002557:                                                                                                  #  DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
011793,002558:                                                                                                  #  LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
011794,002559:                                                                                                  #  BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
011795,002560:                                                                                                  #  DATAWAIT CANNOT BE CALLED FROM ERASABLE MEMORY, SINCE JOBSLEEP
011796,002561:                                                                                                  #  AND JOBWAKE CAN HANDLE ONLY FIXED MEMORY.
011797,002562:                                                                                                  #  DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
011798,002563: 
011799,002564:    4506           10305        DATAWAIT           CCS      LOADSTAT                              

Page 290

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

Page 291

011850,002615: 04,3456           37762                           CAF      TWO                                   
011851,002616: 04,3457           50064        RECAL2             INDEX    LOCCTR                                
011852,002617: 04,3460           60154                           AD       LOC                                   #  LOC IS + FOR BASIC JOBS
011853,002618: 04,3461           50064                           INDEX    LOCCTR                                
011854,002619: 04,3462           54154                           TS       LOC                                   
011855,002620: 04,3463           00003                           RELINT                                         
011856,002621: 04,3464           04711        RECAL3             TC       RELDSP1                               #  DOES NOT SEARCH LIST
011857,002622: 04,3465           05567                           TC       ENDOFJOB                              
011858,002623: 
011859,002624: 04,3466           37767        DOTERM             CAF      ZERO                                  
011860,002625: 04,3467           03457                           TC       RECAL2                                
011861,002626: 
011862,002627: 04,3470           37763        DOPROC             CAF      ONE                                   
011863,002628: 04,3471           03457                           TC       RECAL2                                
011864,002629: 

Page 292

011866,002631:                                                                                                  #  THE FOLLOWING REFERS TO THE NOUN TABLES
011867,002632: 
011868,002633: 
011869,002634:                                                                                                  #  COMPONENT CODE NUMBER           INTERPRETATION
011870,002635: 
011871,002636:                                                                                                  #  00000                           1 COMPONENT
011872,002637:                                                                                                  #  00001                           2 COMPONENT (EACH S P)
011873,002638:                                                                                                  #  00010                           3 COMPONENT (EACH SP)
011874,002639: 
011875,002640: 
011876,002641:                                                                                                  #  SF ROUTINE CODE NUMBER          INTERPRETATION
011877,002642: 
011878,002643:                                                                                                  #  00000    OCTAL ONLY
011879,002644:                                                                                                  #  00001    STRAIGHT FRACTIONAL
011880,002645:                                                                                                  #  00010    DEGREES (XXX.XX)
011881,002646:                                                                                                  #  00011    ARITHMETIC SF
011882,002647:                                                                                                  #  00100    ARITH DP1   OUT(MULT BY 2/14 AT END)      IN(STRAIGHT)
011883,002648:                                                                                                  #  00101    ARITH DP2   OUT(STRAIGHT)                 IN(SL 7 AT END)
011884,002649:                                                                                                  #  00110    OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
011885,002650:                                                                                                  #  00111    ARITH DP3   OUT ( SL 7 AT END)       IN ( STRAIGHT)
011886,002651:                                                                                                  #  END OF SF ROUTINE CODE NUMBERS
011887,002652: 
011888,002653: 
011889,002654:                                                                                                  #  SF CONSTANT CODE NUMBER         INTERPRETATION
011890,002655: 
011891,002656:                                                                                                  #  00000                           WHOLE
011892,002657:                                                                                                  #  00000                           TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
011893,002658:                                                                                                  #  00001                           TIME HOURS(XXX.XX) USE ARITH DP2
011894,002659:                                                                                                  #  00010                           DEGREES
011895,002660:                                                                                                  #  00010                           OPTICS DEGREES
011896,002661:                                                                                                  #  00011                           GYRO DEGREES (XX.XXX)  USE ARITHDP3
011897,002662:                                                                                                  #  00100                           GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
011898,002663:                                                                                                  #  00101                           GYRO AXIS ACCEL. DRIFT
011899,002664:                                                                                                  #                                  .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
011900,002665:                                                                                                  #  00110                           PIPA BIAS X.XXXX CM/SEC SEC
011901,002666:                                                                                                  #  00111                           PIPA SCALE FACTOR ERROR
011902,002667:                                                                                                  #                                      XXXXX. PARTS/MILLION
011903,002668:                                                                                                  #  01000                           POSITION(XXXX.X KILOMETERS) USE ARITHDP3
011904,002669:                                                                                                  #  01001                           VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
011905,002670:                                                                                                  #  01010                           TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
011906,002671:                                                                                                  #  01011                           ELEVATION DEGREES(89.999MAX) USE ARITH
011907,002672:                                                                                                  #  01100                           RENDEZVOUS RADAR RANGE(XXXXXB.FEET)
011908,002673:                                                                                                  #                                                              USE ARITHDP1
011909,002674:                                                                                                  #  01101                           RENDEZVOUS RADAR RANGE RATE(XXXXX.FT/SEC
011910,002675:                                                                                                  #                                                              USE ARITHDP1
011911,002676:                                                                                                  #  01110                           LANDING RADAR ALTITUDE(XXXXX.FEET)
011912,002677:                                                                                                  #                                                              USE ARITHDP1

Page 293

011914,002679:                                                                                                  #  01111                           INITIAL/FINAL ALTITUDE(XXXXX.FEET)
011915,002680:                                                                                                  #                                                              USE ARITHDP1
011916,002681:                                                                                                  #  10000                           ALTITUDE RATE(XXXXX.FEET)      USE ARITH
011917,002682:                                                                                                  #  10001                           FORWARD/LATERAL VELOCITY(XXXXX.FEET/SEC)
011918,002683:                                                                                                  #                                                                 USE ARITH
011919,002684:                                                                                                  #  10010                           ROTATIONAL HAND CONTROLLER ANGLE RATES
011920,002685:                                                                                                  #                                        XXXXX.DEG/SEC            USE ARITH
011921,002686:                                                                                                  #  10011                           LANDING RADAR VELX(XXXXX.FEET/SEC)
011922,002687:                                                                                                  #                                                              USE ARITHDP1
011923,002688:                                                                                                  #  10100                           LANDING RADAR VELY(XXXXX.FEET/SEC)
011924,002689:                                                                                                  #                                                              USE ARITHDP1
011925,002690:                                                                                                  #  10101                           LANDING RADAR VELZ(XXXXX.FEET/SEC)
011926,002691:                                                                                                  #                                                              USE ARITHDP1
011927,002692:                                                                                                  #  10110                           OPTICAL TRACKER AZIMUTH ANGLE(XXX.XXDEG)
011928,002693:                                                                                                  #                                                              USE ARITHDP1
011929,002694:                                                                                                  #  END OF SF CONSTANT CODE NUMBERS
011930,002695: 
011931,002696:                                                                                                  #  FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
011932,002697:                                                                                                  #  NOUN TABLES.
011933,002698:                                                                                                  #  OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
011934,002699:                                                                                                  #  OCTAL DISPLAYS SHOW MINOR PART ONLY.
011935,002700:                                                                                                  #  TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
011936,002701: 

Page 294

011938,002703:                                                                                                  #  THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
011939,002704:                                                                                                  #  (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
011940,002705:                                                                                                  #  ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
011941,002706: 
011942,002707: 
011943,002708:                                                                                                  #  LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
011944,002709:                                                                                                  #  NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
011945,002710:                                                                                                  #  IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
011946,002711:                                                                                                  #  IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY, MIXBR IS SET FOR
011947,002712:                                                                                                  #  MIXED OR NORMAL NOUN.
011948,002713: 
011949,002714: 23,2000                                           BANK     23                                    
011950,002715: 23,2000           52142        LODNNTAB           DXCH     IDAD2TEM                              #  SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
011951,002716: 23,2001           50273                           INDEX    NOUNREG                               
011952,002717: 23,2002           32052                           CAF      NNADTAB                               
011953,002718: 23,2003           54136                           TS       NNADTEM                               
011954,002719: 23,2004           50273                           INDEX    NOUNREG                               
011955,002720: 23,2005           32152                           CAF      NNTYPTAB                              
011956,002721: 23,2006           54137                           TS       NNTYPTEM                              
011957,002722: 23,2007           40273                           CS       NOUNREG                               
011958,002723: 23,2010           62036                           AD       MIXCON                                
011959,002724: 23,2011           00006                           EXTEND                                         
011960,002725: 23,2012           62016                           BZMF     LODMIXNN                              #  NOUN NUMBER G/E FIRST MIXED NOUN
011961,002726: 23,2013           37763                           CAF      ONE                                   #  NOUN NUMBER L/ FIRST MIXED NOUN
011962,002727: 23,2014           54130                           TS       MIXBR                                 #  NORMAL.  +1 INTO MIXBR.
011963,002728: 23,2015           02034                           TC       LODNLV                                
011964,002729: 23,2016           37762        LODMIXNN           CAF      TWO                                   #  MIXED.  +2 INTO MIXBR.
011965,002730: 23,2017           54130                           TS       MIXBR                                 
011966,002731: 23,2020           50273                           INDEX    NOUNREG                               
011967,002732: 23,2021           32420                           CAF      RUTMXTAB   -55                        
011968,002733: 23,2022           54143                           TS       RUTMXTEM                              
011969,002734: 23,2023           35337                           CAF      LOW10                                 
011970,002735: 23,2024           70136                           MASK     NNADTEM                               
011971,002736: 23,2025           54002                           TS       Q                                     #  TEMP
011972,002737: 23,2026           50000                           INDEX    A                                     
011973,002738: 23,2027           32406                           CAF      IDADDTAB                              
011974,002739: 23,2030           54140                           TS       IDAD1TEM                              #  LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
011975,002740: 23,2031           00006                           EXTEND                                         
011976,002741: 23,2032           50002                           INDEX    Q                                     #  LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
011977,002742: 23,2033           32410                           DCA      IDADDTAB   +1                         #  LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
011978,002743: 23,2034           52142        LODNLV             DXCH     IDAD2TEM                              #  PUT RETURN INFO INTO A, L.
011979,002744: 23,2035           52006                           DXCH     Z                                     
011980,002745: 
011981,002746: 23,2036           00055        MIXCON             OCT      55                                    #  FIRST MIXED NOUN = 55.
011982,002747: 
011983,002748: 
011984,002749:                                                                                                  #  GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.

Page 295

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

Page 296

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

Page 297

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

Page 298

012135,002900: 23,2243           00126                           OCT      00126                                 #  71 2COMP  OPT TRACK AZIMUTH, DEGREES
012136,002901: 23,2244           20410                           OCT      20410                                 #  72 3COMP  POSITION FOR EACH
012137,002902: 23,2245           22451                           OCT      22451                                 #  73 3COMP  VELOCITY FOR EACH
012138,002903: 23,2246           00412                           OCT      00412                                 #  74 3COMP  TIME WEEKS, POSITION, WHOLE
012139,002904: 23,2247           20450                           OCT      20450                                 #  75 3COMP  POSITION, VELOCITY, POSITION
012140,002905: 23,2250           20410                           OCT      20410                                 #  76 3COMP  POSITION FOR EACH
012141,002906: 23,2251           22451                           OCT      22451                                 #  77 3COMP  VELOCITY FOR EACH
012142,002907: 
012143,002908: 
012144,002909: 23,2252           00006        SFINTAB            OCT      00006                                 #  WHOLE,TIME(SEC)
012145,002910: 23,2253           03240                           OCT      03240                                 
012146,002911: 23,2254           00253                           OCT      00253                                 #  TIME HOURS ( = 1.3..... )
012147,002912: 23,2255           25124                           OCT      25124                                 #    (POINT BETWEEN BITS 7-8 )
012148,002913: 23,2256           00000                           OCT      0                                     #  DEGREES (SFCON IN DEGINSF )
012149,002914: 23,2257           00000                           OCT      0                                     
012150,002915: 23,2260           10707                           OCT      10707                                 #  GYRO DEGREES
012151,002916: 23,2261           03435                           OCT      03435                                 #              UPPED BY 1
012152,002917: 23,2262           00001                           OCT      00001                                 #  GYRO BIAS DRIFT
012153,002918: 23,2263           02133                           OCT      02133                                 
012154,002919: 23,2264           00011                           OCT      00011                                 #  GYRO AXIS ACCEL. DRIFT
012155,002920: 23,2265           30322                           OCT      30322                                 
012156,002921: 23,2266           00004                           OCT      00004                                 #  PIPA BIAS
012157,002922: 23,2267           14021                           OCT      14021                                 
012158,002923: 23,2270           00314                           OCT      00314                                 #  PIPA SCALE ERROR.
012159,002924: 23,2271           31463                           OCT      31463                                 
012160,002925: 23,2272           23420                           OCT      23420                                 #  POSITION
012161,002926: 23,2273           00000                           OCT      00000                                 
012162,002927: 23,2274           00201                           OCT      00201                                 #  VELOCITY
012163,002928: 23,2275           30327                           OCT      30327                                 #  ( POINT BETWEEN BITS 7-8 )
012164,002929: 23,2276           01371                           OCT      01371                                 #  TIME WEEKS
012165,002930: 23,2277           34750                           OCT      34750                                 #  ( POINT BETWEEN BITS 7-8 )
012166,002931: 23,2300           00001                           OCT      00001                                 #  ELEVATION DEGREES
012167,002932: 23,2301           03434                           OCT      03434                                 
012168,002933: 23,2302           00006                           OCT      00006                                 #  RENDEZVOUS RADAR RANGE
012169,002934: 23,2303           20162                           OCT      20162                                 
012170,002935: 23,2304           00011                           OCT      00011                                 #  RENDEZVOUS RADAR RANGE RATE
012171,002936: 23,2305           27066                           OCT      27066                                 
012172,002937: 23,2306           00005                           OCT      00005                                 #  LANDING RADAR ALTITUDE
012173,002938: 23,2307           24733                           OCT      24733                                 
012174,002939: 23,2310           00002                           OCT      00002                                 #  INITIAL/FINAL ALTITUDE
012175,002940: 23,2311           23224                           OCT      23224                                 
012176,002941: 23,2312           00014                           OCT      00014                                 #  ALTITUDE RATE
012177,002942: 23,2313           06500                           OCT      06500                                 
012178,002943: 23,2314           00012                           OCT      00012                                 #  FORWARD/LATERAL VELOCITY
012179,002944: 23,2315           36455                           OCT      36455                                 
012180,002945: 23,2316           04256                           OCT      04256                                 #  ROT HAND CONT ANGLE RATE
012181,002946: 23,2317           07071                           OCT      07071                                 
012182,002947: 23,2320           00011                           OCT      00011                                 #  LANDING RADAR VELX
012183,002948: 23,2321           17410                           OCT      17410                                 

Page 299

012185,002950: 23,2322           00004                           OCT      00004                                 #  LANDING RADAR VELY
012186,002951: 23,2323           33740                           OCT      33740                                 
012187,002952: 23,2324           00007                           OCT      00007                                 #  LANDING RADAR VELZ
012188,002953: 23,2325           03701                           OCT      03701                                 
012189,002954: 23,2326           00005                           OCT      00005                                 #  OPTICAL AZIMUTH TRACKER ANGLE
012190,002955: 23,2327           21616                           OCT      21616                                 
012191,002956:                                                                                                  #  END OF SFINTAB
012192,002957: 
012193,002958: 
012194,002959: 23,2330           05174        SFOUTAB            OCT      05174                                 #  WHOLE, TIME(SEC)
012195,002960: 23,2331           13261                           OCT      13261                                 
012196,002961: 23,2332           27670                           OCT      27670                                 #  TIME HOURS
012197,002962: 23,2333           31357                           OCT      31357                                 
012198,002963: 23,2334           00000                           OCT      0                                     #  DEGREES
012199,002964: 23,2335           00000                           OCT      0                                     
012200,002965: 23,2336           00714                           OCT      00714                                 #  GYRO DEGREES
012201,002966: 23,2337           31463                           OCT      31463                                 #  (POINT BETWEEN BITS 7-8)
012202,002967: 23,2340           35753                           OCT      35753                                 #  GYRO BIAS DRIFT
012203,002968: 23,2341           32323                           OCT      32323                                 
012204,002969: 23,2342           03216                           OCT      03216                                 #  GYRO AXIS ACCEL. DRIFT
012205,002970: 23,2343           06400                           OCT      06400                                 
012206,002971: 23,2344           07237                           OCT      07237                                 #  PIPA BIAS
012207,002972: 23,2345           37776                           OCT      37776                                 
012208,002973: 23,2346           00120                           OCT      00120                                 #  PIPA SCALE ERROR
012209,002974: 23,2347           00000                           OCT      00000                                 
012210,002975: 23,2350           00321                           OCT      00321                                 #  POSITION
012211,002976: 23,2351           26706                           OCT      26706                                 #  ( POINT BETWEEN BITS 7-8 )
012212,002977: 23,2352           37441                           OCT      37441                                 #  VELOCITY
012213,002978: 23,2353           14247                           OCT      14247                                 
012214,002979: 23,2354           05300                           OCT      05300                                 #  TIME WEEKS
012215,002980: 23,2355           20305                           OCT      20305                                 
012216,002981: 23,2356           34631                           OCT      34631                                 #  ELEVATION DEGREES
012217,002982: 23,2357           23146                           OCT      23146                                 
012218,002983: 23,2360           04725                           OCT      04725                                 #  RENDEZVOUS RADAR RANGE
012219,002984: 23,2361           35454                           OCT      35454                                 
012220,002985: 23,2362           03225                           OCT      03225                                 #  RENDEZVOUS RADAR RANGE RATE
012221,002986: 23,2363           07470                           OCT      07470                                 
012222,002987: 23,2364           05521                           OCT      05521                                 #  LANDING RADAR ALTITUDE
012223,002988: 23,2365           30260                           OCT      30260                                 
012224,002989: 23,2366           14226                           OCT      14226                                 #  INITIAL/FINAL ALTITUDE
012225,002990: 23,2367           31757                           OCT      31757                                 
012226,002991: 23,2370           02476                           OCT      02476                                 #  ALTITUDE RATE
012227,002992: 23,2371           05531                           OCT      05531                                 
012228,002993: 23,2372           02727                           OCT      02727                                 #  FORWARD/LATERAL VELOCITY
012229,002994: 23,2373           16415                           OCT      16415                                 
012230,002995: 23,2374           00007                           OCT      00007                                 #  ROT HAND CONT ANGLE RATE
012231,002996: 23,2375           13734                           OCT      13734                                 
012232,002997: 23,2376           03277                           OCT      03277                                 #  LANDING RADAR VELX
012233,002998: 23,2377           14165                           OCT      14165                                 

Page 300

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

Page 301

012285,003050: 23,2455           02200                           ECADR    MEASMODE                              #  20       WHOLE
012286,003051: 23,2456           00337                           ECADR    DSPTEM1                               #  21       POSITION
012287,003052: 23,2457           00341                           ECADR    DSPTEM1    +2                         #  21       VELOCITY
012288,003053: 23,2460           02176                           ECADR    DELTAQ                                #  21       POSITION
012289,003054: 23,2461           00337                           ECADR    DSPTEM1                               #  22       POSITION
012290,003055: 23,2462           00341                           ECADR    DSPTEM1    +2                         #  22       POSITION
012291,003056: 23,2463           00343                           ECADR    DSPTEM1    +4                         #  22       POSITION
012292,003057: 23,2464           00337                           ECADR    DSPTEM1                               #  23       VELOCITY
012293,003058: 23,2465           00341                           ECADR    DSPTEM1    +2                         #  23       VELOCITY
012294,003059: 23,2466           00343                           ECADR    DSPTEM1    +4                         #  23       VELOCITY
012295,003060: 23,2467           00000                           OCT      00000                                 #           SPARE
012296,003061: 23,2470           00000                           OCT      00000                                 #           SPARE
012297,003062: 23,2471           00000                           OCT      00000                                 #           SPARE
012298,003063: 23,2472           00000                           OCT      00000                                 #           SPARE
012299,003064: 23,2473           00000                           OCT      00000                                 #           SPARE
012300,003065: 23,2474           00000                           OCT      00000                                 #           SPARE
012301,003066:                                                                                                  #  END OF IDADDTAB
012302,003067: 
012303,003068:                                                                                                  #  MIXNOUN  SF ROUT
012304,003069: 23,2475           00204        RUTMXTAB           OCT      00204                                 #  01  LANDING RADAR ALTITUDE, SECONDS
012305,003070: 23,2476           00204                           OCT      00204                                 #  02  LANDING RADAR VELX, SECONDS
012306,003071: 23,2477           00204                           OCT      00204                                 #  03  LANDING RADAR VELY, SECONDS
012307,003072: 23,2500           00204                           OCT      00204                                 #  04  LANDING RADAR VELZ, SECONDS
012308,003073: 23,2501           00142                           OCT      00142                                 #  05  DEGREES, ELEVATION DEGREES
012309,003074: 23,2502           04104                           OCT      04104                                 #  06  RENDEZVOUS RADAR RANGE, DEG, DEG
012310,003075: 23,2503           04104                           OCT      04104                                 #  07  REND. RADAR RANGE RATE, DEG, DEG
012311,003076: 23,2504           06204                           OCT      06204                                 #  10  INIT/FIN ALT, INIT/FIN ALT, ALT RATE
012312,003077: 23,2505           00205                           OCT      00205                                 #  11  HOURS, SECONDS
012313,003078: 23,2506           06043                           OCT      06043                                 #  12  WHOLE, FRACTIONAL, WHOLE
012314,003079: 23,2507           16347                           OCT      16347                                 #  13  GYRO DEGREES (FOR EACH)
012315,003080: 23,2510           00104                           OCT      00104                                 #  14  OPT TRACK AZIMUTH ANGLE, DEGREES
012316,003081: 23,2511           00104                           OCT      00104                                 #  15  OPT TRACK AZIMUTH ANGLE, DEGREES
012317,003082: 23,2512           16347                           OCT      16347                                 #  16  POSITION (FOR EACH)
012318,003083: 23,2513           12245                           OCT      12245                                 #  17  VELOCITY (FOR EACH)
012319,003084: 23,2514           06345                           OCT      06345                                 #  20  TIME WEEKS, POSITION, WHOLE
012320,003085: 23,2515           16247                           OCT      16247                                 #  21  POSITION, VELOCITY, POSITION
012321,003086: 23,2516           16347                           OCT      16347                                 #  22  POSITION (FOR EACH)
012322,003087: 23,2517           12245                           OCT      12245                                 #  23  VELOCITY (FOR EACH)
012323,003088:                                                                                                  #  END OF RUTMXTAB
012324,003089: 

Page 302

012326,003091:                                                                                                  #  MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
012327,003092: 
012328,003093:    4513                                           BLOCK    02                                    
012329,003094: 
012330,003095:                                                                                                  #  SETNCADR       E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
012331,003096:                                                                                                  #                 ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
012332,003097: 
012333,003098:    4513           54310        SETNCADR           TS       NOUNCADR                              #  STORE ECADR
012334,003099:    4514           54003                           TS       EBANK                                 #  SET EBANK BITS
012335,003100:    4515           74564                           MASK     LOW8                                  
012336,003101:    4516           65352                           AD       OCT1400                               
012337,003102:    4517           54135                           TS       NOUNADD                               #  PUT E ADRES INTO NOUNADD
012338,003103:    4520           00002                           TC       Q                                     
012339,003104: 
012340,003105:                                                                                                  #  SETNADD        GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
012341,003106:                                                                                                  #                 E ADRES AND PUTS IT INTO NOUNADD.
012342,003107: 
012343,003108:    4521           30310        SETNADD            CA       NOUNCADR                              
012344,003109:    4522           14514                           TCF      SETNCADR   +1                         
012345,003110: 
012346,003111:                                                                                                  #  SETEBANK       E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
012347,003112:                                                                                                  #                 DERIVED AND LEFT IN A.
012348,003113: 
012349,003114:    4523           54003        SETEBANK           TS       EBANK                                 #  SET EBANK BITS
012350,003115:    4524           74564                           MASK     LOW8                                  
012351,003116:    4525           65352                           AD       OCT1400                               #  E ADRES LEFT IN A
012352,003117:    4526           00002                           TC       Q                                     
012353,003118: 
012354,003119: 
012355,003120:    4527           00016        R1D1               OCT      16                                    
012356,003121:    4530           00011        R2D1               OCT      11                                    
012357,003122:    4531           00004        R3D1               OCT      4                                     
012358,003123: 
012359,003124:    4532           54020        RIGHT5             TS       CYR                                   
012360,003125:    4533           40020                           CS       CYR                                   
012361,003126:    4534           40020                           CS       CYR                                   
012362,003127:    4535           40020                           CS       CYR                                   
012363,003128:    4536           40020                           CS       CYR                                   
012364,003129:    4537           56020                           XCH      CYR                                   
012365,003130:    4540           00002                           TC       Q                                     
012366,003131: 
012367,003132:    4541           54022        LEFT5              TS       CYL                                   
012368,003133:    4542           40022                           CS       CYL                                   
012369,003134:    4543           40022                           CS       CYL                                   

Page 303

012371,003136:    4544           40022                           CS       CYL                                   
012372,003137:    4545           40022                           CS       CYL                                   
012373,003138:    4546           56022                           XCH      CYL                                   
012374,003139:    4547           00002                           TC       Q                                     
012375,003140: 
012376,003141:    4550           60000        SLEFT5             DOUBLE                                         
012377,003142:    4551           60000                           DOUBLE                                         
012378,003143:    4552           60000                           DOUBLE                                         
012379,003144:    4553           60000                           DOUBLE                                         
012380,003145:    4554           60000                           DOUBLE                                         
012381,003146:    4555           00002                           TC       Q                                     
012382,003147: 
012383,003148: 
012384,003149:    4556           00037        LOW5               OCT      37                                    
012385,003150:    4557           01740        MID5               OCT      1740                                  
012386,003151:    4560           76000        HI5                OCT      76000                                 #  MUST STAY HERE
012387,003152: 
012388,003153:    4561     5723               TCNOVAC            =        SVCT3      +5                         
012389,003154:    4561           05663        TCWAIT             TC       WAITLIST                              
012390,003155:    4562     5717               TCTSKOVR           =        SVCT3      +1                         
012391,003156:    4562           05516        TCFINDVC           TC       FINDVAC                               
012392,003157: 
012393,003158: 
012394,003159:    4563     5210               CHRPRIO            =        PRIO30                                #  EXEC PRIORITY OF CHARIN
012395,003160: 
012396,003161:    4563           03777        LOW11              OCT      3777                                  
012397,003162:    4564     4563               B12-1              EQUALS   LOW11                                 
012398,003163:    4564           00377        LOW8               OCT      377                                   
012399,003164:    4565           00023        VD1                OCT      23                                    
012400,003165:    4566           00021        ND1                OCT      21                                    
012401,003166:    4567           00025        MD1                OCT      25                                    
012402,003167: 
012403,003168:    4570           00012        BINCON             DEC      10         B-14                       
012404,003169: 
012405,003170:    4571           37755        FALTON             CA       BIT7                                  #  TURN ON OPERATOR ERROR LIGHT
012406,003171:    4572           00006                           EXTEND                                         
012407,003172:    4573           05011                           WOR      DSALMOUT                              #  BIT 7 OF CHANNEL 11
012408,003173:    4574           00002                           TC       Q                                     
012409,003174: 
012410,003175:    4575           47755        FALTOF             CS       BIT7                                  #  TURN OFF OPERATOR ERROR LIGHT
012411,003176:    4576           00006                           EXTEND                                         
012412,003177:    4577           03011                           WAND     DSALMOUT                              #  BIT 7 OF CHANNEL 11
012413,003178:    4600           00002                           TC       Q                                     
012414,003179: 
012415,003180:    4601           37757        RELDSPON           CAF      BIT5                                  #  TURN ON KEY RELEASE LIGHT
012416,003181:    4602           00006                           EXTEND                                         
012417,003182:    4603           05011                           WOR      DSALMOUT                              #  BIT 5 OF CHANNEL 11
012418,003183:    4604           00002                           TC       Q                                     
012419,003184: 

Page 304

012421,003186:    4605           00006        LODSAMPT           EXTEND                                         
012422,003187:    4606           30025                           DCA      TIME2                                 
012423,003188:    4607           52014                           DXCH     SAMPTIME                              
012424,003189:    4610           00002                           TC       Q                                     
012425,003190: 
012426,003191: 
012427,003192:    4611           00006        TPSL1              EXTEND                                         #  SHIFTS MPAC, +1, +2 LEFT 1
012428,003193:    4612           30146                           DCA      MPAC       +1                         #  LEAVES OVFIND SET TO +/- 1 FOR OF/UF
012429,003194:    4613           20146                           DAS      MPAC       +1                         
012430,003195:    4614           60144                           AD       MPAC                                  
012431,003196:    4615           26144                           ADS      MPAC                                  
012432,003197:    4616           54007                           TS       7                                     #  TS A DOES NOT CHANGE A ON OF/UF.
012433,003198:    4617           00002                           TC       Q                                     #  NO NET OF/UF
012434,003199:    4620           54111                           TS       OVFIND                                #  OVFIND SET TO +/- 1 FOR OF/UF
012435,003200:    4621           00002                           TC       Q                                     
012436,003201: 
012437,003202: 
012438,003203:    4622           37756        FLASHON            CAF      BIT6                                  #  TURN ON V/N FLASH
012439,003204:    4623           00006                           EXTEND                                         #  BIT 6 OF CHANNEL 11
012440,003205:    4624           05011                           WOR      DSALMOUT                              
012441,003206:    4625           00002                           TC       Q                                     
012442,003207: 
012443,003208:    4626           47756        FLASHOFF           CS       BIT6                                  #  TURN OFF V/N FLASH
012444,003209:    4627           00006                           EXTEND                                         
012445,003210:    4630           03011                           WAND     DSALMOUT                              #  BIT 6 OF CHANNEL 11
012446,003211:    4631           00002                           TC       Q                                     
012447,003212: 

Page 305

012449,003214:                                                                                                  #  INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
012450,003215:                                                                                                  #  NVSUB) MUST  TC GRABDSP  BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
012451,003216:                                                                                                  #  MAKE IT BUSY TO OTHER INTERNAL USERS.
012452,003217: 
012453,003218:                                                                                                  #        WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
012454,003219:                                                                                                  #  SYSTEM FOR OTHER INTERNAL USERS.
012455,003220: 
012456,003221:                                                                                                  #        THE CALLING SEQUENCES ARE
012457,003222:                                                                                                  #  L        TC     GRABDSP
012458,003223:                                                                                                  #  L+1      RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
012459,003224:                                                                                                  #  L+2      RETURN HERE MEANS YOU HAVE IT
012460,003225: 
012461,003226:                                                                                                  #  L        TC     NVSUB
012462,003227:                                                                                                  #  L+1      RETURN HERE IF OPERATOR HAS INTERVENED
012463,003228:                                                                                                  #  L+2      RETURN HERE AFTER EXECUTION
012464,003229: 
012465,003230:                                                                                                  #        A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
012466,003231:                                                                                                  #  JOB TO SLEEP UNTIL  THE SYSTEM IS FREED BY THE JOB HOLDING IT.
012467,003232:                                                                                                  #  GRABUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012468,003233:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012469,003234:                                                                                                  #  YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
012470,003235: 
012471,003236:                                                                                                  #        THE CALLING SEQUENCE IS
012472,003237:                                                                                                  #           CAF    WAKEFCADR
012473,003238:                                                                                                  #           TC     GRABUSY
012474,003239: 
012475,003240:                                                                                                  #        A ROUTINE CALLED  NVSUBUSY IS PROVIDED (USE IS OPTIONAL)  TO PUT
012476,003241:                                                                                                  #  YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT.
012477,003242:                                                                                                  #  NVSUBUSY CANNOT BE CALLED FROM E MEMORY, SINCE JOBSLEEP AND JOBWAKE
012478,003243:                                                                                                  #  HANDLE ONLY FIXED MEMORY.
012479,003244:                                                                                                  #                                              YOUR CADR IS PUT
012480,003245:                                                                                                  #  ON TOP OF A WAITING LIST (FIFO).  IT ALSO TURNS ON KEY RELEASE LIGHT.
012481,003246: 
012482,003247:                                                                                                  #         THE CALLING SEQUENCE IS
012483,003248:                                                                                                  #           CAF    WAKEFCADR
012484,003249:                                                                                                  #           TC     NVSUBUSY
012485,003250: 
012486,003251: 
012487,003252:                                                                                                  #  AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 1.75 SECS.
012488,003253:                                                                                                  #  AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
012489,003254:                                                                                                  #  DISPLAYS WAITING WILL BE VISIBLE.
012490,003255: 
012491,003256: 
012492,003257:                                                                                                  #  GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD 
012493,003258:                                                                                                  #  AND DISPLAY SYSTEM.
012494,003259:                                                                                                  #  +0  FREE

Page 306

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

Page 307

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

Page 308

012593,003358:    4666           56002        RELDSP             XCH      Q                                     #  SET DSPLOCK TO +0, TURN RELDSP LIGHT
012594,003359:    4667           54134                           TS       RELRET                                #  OFF, SEARCH DSPLIST
012595,003360:    4670           37771                           CAF      NEG1                                  
012596,003361:    4671           60330                           AD       GRABLOCK                              
012597,003362:    4672           00006                           EXTEND                                         #  SEARCH LIST ONLY IF GRABLOCK = +2
012598,003363:    4673           64701                           BZMF     RELDSP2                               #    (SOMEONE USED NVSUBUSY)
012599,003364:    4674           04714                           TC       WKSEARCH                              
012600,003365:    4675           04701                           TC       RELDSP2                               #  LIST EMPTY
012601,003366:    4676           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012602,003367:    4677           37763                           CAF      ONE                                   
012603,003368:    4700           54330                           TS       GRABLOCK                              
012604,003369:    4701           00004        RELDSP2            INHINT                                         
012605,003370:    4702           47757                           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
012606,003371:    4703           00006                           EXTEND                                         #  (BIT 5 OF CHANNEL 11)
012607,003372:    4704           03011                           WAND     DSALMOUT                              
012608,003373:    4705           37767                           CAF      ZERO                                  
012609,003374:    4706           54303                           TS       DSPLOCK                               
012610,003375:    4707           00003                           RELINT                                         
012611,003376:    4710           00134                           TC       RELRET                                
012612,003377:    4711           56002        RELDSP1            XCH      Q                                     #  SET DSPLOCK TO +0. RELDSP LIGHT OFF.
012613,003378:    4712           54134                           TS       RELRET                                #  NO LIST SEARCH
012614,003379:    4713           04701                           TC       RELDSP2                               
012615,003380: 
012616,003381: 
012617,003382:    4714           37767        WKSEARCH           CAF      ZERO                                  #  SEARCHES LIST. LEAVES RESULT IN A.
012618,003383:    4715           56333                           XCH      DSPLIST                               #  IF EMPTY, RETURN TO L+1.
012619,003384:    4716           56334                           XCH      DSPLIST    +1                         #  IF NOT EMPTY, INHINT AND RETURN TO L+2.
012620,003385:    4717           56335                           XCH      DSPLIST    +2                         
012621,003386:    4720           00006                           EXTEND                                         
012622,003387:    4721           17020                           BZF      TCQ                                   #  EMPTY, RETURN TO L+1
012623,003388:    4722           00004                           INHINT                                         #  NOT EMPTY
012624,003389:    4723           17015                           TCF      Q+1                                   #  RETURN TO L+2
012625,003390: 
012626,003391:    4724           56002        FREEDSP            XCH      Q                                     
012627,003392:    4725           54134                           TS       FREERET                               
012628,003393:    4726           00004                           INHINT                                         
012629,003394:    4727           34735                           CAF      SHOTIME                               
012630,003395:    4730           05663                           TC       WAITLIST                              
012631,003396:    4731     0270                                  EBANK=   DSPCOUNT                              
012632,003397:    4731           03536 10060                     2CADR    FREEWAIT                              
012633,003398: 
012634,003399:    4733           00003                           RELINT                                         
012635,003400:    4734           00134                           TC       FREERET                               
012636,003401: 
012637,003402:    4735           00257        SHOTIME            DEC      175        B-14                       #  SET FOR 1.75 SEC.
012638,003403: 04,3536                                           SETLOC   ENDNVBSY   +1                         
012639,003404: 

Page 309

012641,003406: 04,3536           35210        FREEWAIT           CAF      CHRPRIO                               #  CALLED BY T3RUPT
012642,003407: 04,3537           05505                           TC       NOVAC                                 
012643,003408: 04,3540     0270                                  EBANK=   DSPCOUNT                              
012644,003409: 04,3540           03543 10060                     2CADR    FREDSPDO                              
012645,003410: 
012646,003411: 04,3542           05727                           TC       TASKOVER                              
012647,003412: 
012648,003413: 
012649,003414: 04,3543           04714        FREDSPDO           TC       WKSEARCH                              #  CALLED BY EXECUTIVE
012650,003415: 04,3544           03552                           TC       LSTEMPTY                              #  LIST EMPTY
012651,003416: 04,3545           05551                           TC       JOBWAKE                               #  LIST NOT EMPTY
012652,003417: 04,3546           00003                           RELINT                                         
012653,003418: 04,3547           37763                           CAF      ONE                                   #  SET FOR GRABBED CONDITION
012654,003419: 04,3550           54330                           TS       GRABLOCK                              
012655,003420: 04,3551           05567                           TC       ENDOFJOB                              
012656,003421: 04,3552           37767        LSTEMPTY           CAF      ZERO                                  #  SET FOR FREE CONDITION
012657,003422: 04,3553           03550                           TC       -3                                    
012658,003423: 
012659,003424: 
012660,003425: 04,3554           06000        LSTFULL            TC       ABORT                                 
012661,003426: 04,3555           01206                           OCT      01206                                 #  PINBALL WAITING LINE FULL.
012662,003427: 

Page 310

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

Page 311

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

Page 312

012761,003526: 05,3521           16001        13-11,1            OCT      16001                                 
012762,003527: 05,3522           00330        RFAILS2            OCT      330                                   #  RADAR CDU AND DATA FAIL FLAGS.
012763,003528: 05,3523           55000        OCT55000           OCT      55000                                 

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