- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
Source Code
|
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
014554,000002: ## Copyright: Public domain.
014555,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
014556,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
014557,000005: ## as closely as possible with available information. Sundance
014558,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
014559,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
014560,000008: ## using the mixed-revision SundanceXXX as a starting point, and
014561,000009: ## pulling back features from Luminary 69 believed to have been
014562,000010: ## added based on memos, checklists, observed address changes,
014563,000011: ## or the Sundance GSOPs.
014564,000012: ## Assembler: yaYUL
014565,000013: ## Contact: Ron Burkey <info@sandroid.org>.
014566,000014: ## Website: www.ibiblio.org/apollo/index.html
014567,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
014568,000016: ## 2021-05-30 ABS RCDUFBIT -> BIT7 to match Luminary 69.
014569,000017:
014570,000018:
014571,000019:
014572,000020: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
014573,000021: # MOD NO - 4 DATE - 27 APRIL 1967 ASSEMBLY - PINDANCE REV 18
014574,000022: # MOD BY - FILENE
014575,000023: # LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
014576,000024:
014577,000025: # FUNCTIONAL DESCRIPTION-
014578,000026:
014579,000027: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
014580,000028: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
014581,000029: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
014582,000030: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
014583,000031: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
014584,000032: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
014585,000033: # DECIMAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
014586,000034: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
014587,000035: # REFER TO A GROUP OF ERASABLE REGISTERS.
014588,000036:
014589,000037: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
014590,000038: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
014591,000039: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
014592,000040: # :EXTENDED VERBS:).
014593,000041: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
014594,000042: # OPERATION INFORMATION:.
014595,000043:
|
|
Ramón Alonso, one of the original AGC developers, provides a
little more insight: Apparently, nobody had yet arrived at any kind
of software requirements for the AGC's user interface when the desire
arose within the Instrumentation Laboratory to set up a demo
guidance-computer unit with which to impress visitors to the lab.
Of course, this demo would have to do something, if it was going to be
at all impressive, and to do something it would need some software. In
short order, some of the coders threw together a demo program,
inventing and using the verb/noun user-interface concept (in the
whimsical fashion seen in much of this code), but without any idea
that the verb/noun concept would somehow survive into the flight
software. As time passed, and more and more people became familiar
with the demo, nobody got around to inventing an improvement for the
user interface, so the coders simply built it into the flight software
without any specific requirements to do so. However, that does not mean that the verb/noun interface was universally beloved. Ramón says that many objections were received from naysayers, such as "it's not scientific", "it's not dignified", or even "astronauts won't understand it". Even though the coders of the demo hadn't seriously intended the verb/noun interface to be used in any permanent way, it became a kind of devilish game to counter these objections with (perhaps) sophistic arguments as to why the interface was really a good one. In the end, the coders won. I don't know whether they were elated or dismayed by this victory. The astronauts, of course, could understand the interface, but they did not like it. Most of them really wanted an interface much more like that they had used in aircraft: i.e., lots of dials and switches. Dave Scott is the the only astronaut I'm aware of who had kind words for it (or for the AGC in general), though we are told that Jim McDivitt wasn't necessary completely hostile to it. —Ron Burkey, 07/2009
|
014630,000078:
014631,000079: # CALLING SEQUENCES-
014632,000080:
014633,000081: # KEYBOARD:
014634,000082: # EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
014635,000083: # AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15. KEYRUPT1 PLACES THE KEY
014636,000084: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
014637,000085: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
014638,000086:
014639,000087: # UPLINK:
014640,000088: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
014641,000089: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
014642,000090: # KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
014643,000091:
014644,000092: # INTERNAL PROGRAMS:
014645,000093: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
014646,000094: # CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB). DETAILS
014647,000095: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
014648,000096: # SYMBOL TABLE FOR PAGE NUMBERS).
014649,000097:
014650,000098: # NORMAL EXIT MODES -
014651,000099: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
014652,000100: # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
014653,000101: # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
014654,000102: # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
014655,000103: # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
014656,000104: # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
014657,000105: # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
014658,000106: # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
014659,000107: # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
014660,000108: # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
014661,000109: # 4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
014662,000110: # ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
014663,000111: # THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
014664,000112:
014665,000113: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
014666,000114: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
014667,000115: # :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
014668,000116:
014669,000117:
014670,000118: # ALARM OR ABORT EXIT MODES-
014671,000119:
014672,000120: # EXTERNAL INITIATION:
014673,000121: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
014674,000122: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
014675,000123:
014676,000124: # INTERNAL PROGRAM INITIATION:
014677,000125: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
014678,000126: # (WITH OCTAL 01501).
014679,000127: # IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
014680,000128: # CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
014681,000129: # 1) ENDIDLE OR DATAWAIT.
014682,000130: # 2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
014683,000131:
014684,000132: # CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
014685,000133: # E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014686,000134:
014687,000135:
014688,000136: # OUTPUT-
014689,000137:
014690,000138: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
014691,000139: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
014692,000140: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
014693,000141: # IN INTERRUPT.
014694,000142:
014695,000143:
014696,000144: # ERASABLE INITIALIZATION-
014697,000145:
014698,000146: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
014699,000147: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
014700,000148: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
014701,000149: # DSPCOUNT, NOUT.
014702,000150:
014703,000151: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
014704,000152: # PINBALL IS GIVEN BELOW.
014705,000153:
014706,000154:
014707,000155: # THE FOLLOWING ARE OF GENERAL INTEREST-
014708,000156:
014709,000157: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
014710,000158: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
014711,000159:
014712,000160: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
014713,000161: # OF RELATED INTEREST NVSBWAIT
014714,000162: # NVSUBUSY
014715,000163: # PRENVBSY
014716,000164:
014717,000165: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
014718,000166: # AWAITING OPERATORS RESPONSE.
014719,000167:
014720,000168: # DSPMM ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
014721,000169: # PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
014722,000170: # (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
014723,000171: # FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
014724,000172:
014725,000173: # BLANKSUB ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
014726,000174: # COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
014727,000175:
014728,000176: # JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
014729,000177: # JAMPROC TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
014730,000178:
014731,000179: # MONITOR VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
014732,000180:
014733,000181: # PLEASE PERFORM, PLEASE MARK SITUATIONS
014734,000182: # REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
014735,000183: # THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
014736,000184: # SYMBOL TABLE FOR PAGE NUMBER).
014737,000185:
014738,000186: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
014739,000187: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
014740,000188:
014741,000189: # THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
014742,000190: # TABLES:.
014743,000191:
014744,000192:
014745,000193: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
014746,000194: # PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
014747,000195: # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014748,000196:
|
|
The document described above, "Keyboard and Display Program Operation" by Alan I. Green and Robert J. Filene is available online at the Virtual AGC website. —Ron Burkey, 07/2009 |
014754,000202:
014755,000203: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
014756,000204:
014757,000205: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
014758,000206: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
014759,000207: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
014760,000208:
014761,000209: # HENRY 6, ACT 2, SCENE 4
014762,000210:
|
|
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009 |
014765,000213:
014766,000214: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
014767,000215:
014768,000216:
014769,000217: # RESERVED FOR PINBALL EXECUTIVE ACTION
014770,000218:
014771,000219: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
014772,000220: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
014773,000221: # VERBREG ERASE VERB CODE
014774,000222: # NOUNREG ERASE NOUN CODE
014775,000223: # XREG ERASE R1 INPUT BUFFER
014776,000224: # YREG ERASE R2 INPUT BUFFER
014777,000225: # ZREG ERASE R3 INPUT BUFFER
014778,000226: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
014779,000227: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
014780,000228: # HITEMOUT = YREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
014781,000229: # MUST = LOTEMOUT-1.
014782,000230: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
014783,000231: # LOTEMOUT = ZREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
014784,000232: # MUST = HITEMOUT+1.
014785,000233: # MODREG ERASE MODE CODE
014786,000234: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
014787,000235: # REQRET ERASE RETURN REGISTER FOR LOAD
014788,000236: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
014789,000237: # CLPASS ERASE PASS INDICATOR CLEAR
014790,000238: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
014791,000239: # NOUNCADR ERASE MACHINE CADR FOR NOUN
014792,000240: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
014793,000241: # MONSAVE1 ERASE NOUNCADR FOR MONITOR (MATBS) =MONSAVE+1
014794,000242: # MONSAVE2 ERASE NVMONOPT OPTIONS
014795,000243: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
014796,000244: # CADRSTOR ERASE ENDIDLE STORAGE
014797,000245: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
014798,000246: # MUST = NVBNKTEM-1
014799,000247: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
014800,000248: # MUST = NVQTEM+1
014801,000249: # VERBSAVE ERASE NEEDED FOR RECYCLE
014802,000250: # DSPLIST ERASE WAITING REG FOR DSP SYST INTERNAL USE
014803,000251: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
014804,000252: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
014805,000253: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
014806,000254: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
014807,000255:
014808,000256:
014809,000257: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014810,000258:
014811,000259: # DSEXIT = INTB15+ RETURN FOR DSPIN
014812,000260: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
014813,000261: # BLANKRET = INTB15+ RETURN FOR 2BLANK
014814,000262:
014815,000263: # WRDRET = INTBIT15 RETURN FOR 5BLANK
014816,000264: # WDRET = INTBIT15 RETURN FOR DSPWD
014817,000265: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
014818,000266: # 21/22REG = INTBIT15 TEMP FOR CHARIN
014819,000267:
014820,000268: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
014821,000269: # CHAR = POLISH TEMP FOR CHARIN
014822,000270: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
014823,000271: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
014824,000272:
014825,000273: # SGNON = VBUF TEMP FOR +,- ON
014826,000274: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
014827,000275: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
014828,000276: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
014829,000277:
014830,000278: # SGNOFF = VBUF +1 TEMP FOR +,- ON
014831,000279: # NVTEMP = VBUF +1 TEMP FOR NVSUB
014832,000280: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
014833,000281: # HITEMIN = VBUF +1 TEMP FOR LOAD OF HRS, MIN, SEC
014834,000282: # MUST = LOTEMIN-1.
014835,000283: # CODE = VBUF +2 FOR DSPIN
014836,000284: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
014837,000285: # LOTEMIN = VBUF +2 TEMP FOR LOAD OF HRS, MIN, SEC
014838,000286: # MUST = HITEMIN+1.
014839,000287: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
014840,000288: # SIGNRET = VBUF +3 RETURN FOR +,- ON
014841,000289:
014842,000290: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
014843,000291:
014844,000292: # ENTRET = DOTINC EXIT FROM ENTER
014845,000293:
014846,000294: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
014847,000295: # INREL = DOTRET INPUT BUFFER SELECTOR ( X,Y,Z, REG )
014848,000296:
014849,000297: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
014850,000298: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
014851,000299:
014852,000300: # TEM1 ERASE EXEC TEMP
014853,000301: # DSREL = TEM1 REL ADDRESS FOR DSPIN
014854,000302:
014855,000303: # TEM2 ERASE EXEC TEMP
014856,000304: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
014857,000305: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
014858,000306:
014859,000307: # TEM3 ERASE EXEC TEMP
014860,000308: # COUNT = TEM3 FOR DSPIN
014861,000309:
014862,000310: # TEM4 ERASE EXEC TEMP
014863,000311: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
014864,000312: # RELRET = TEM4 RETURN FOR RELDSP
014865,000313: # FREERET = TEM4 RETURN FOR FREEDSP
014866,000314: # DSPWDRET = TEM4 RETURN FOR DSPSIGN
014867,000315: # SEPSCRET = TEM4 RETURN FOR SEPSEC
014868,000316: # SEPMNRET = TEM4 RETURN FOR SEPMIN
014869,000317:
014870,000318: # TEM5 ERASE EXEC TEMP
014871,000319: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
014872,000320:
014873,000321: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
014874,000322: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
014875,000323: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014876,000324: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
014877,000325: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014878,000326: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
014879,000327: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
014880,000328: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
014881,000329: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
014882,000330: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014883,000331:
014884,000332:
014885,000333: # ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014886,000334:
014887,000335: # MPAC, THRU MPAC +6
014888,000336: # BUF, +1, +2
014889,000337: # BUF2, +1, +2
014890,000338: # MPTEMP
014891,000339: # ADDRWD
014892,000340: # END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
014893,000341:
014894,000342:
014895,000343: # RESERVED FOR PINBALL INTERRUPT ACTION
014896,000344:
014897,000345: # DSPCNT ERASE COUNTER FOR DSPOUT
014898,000346: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
014899,000347: # RECEPTION OF A BAD MESSAGE IN UPLINK)
014900,000348: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
014901,000349:
014902,000350:
014903,000351: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
014904,000352:
014905,000353: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
014906,000354: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
014907,000355: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
014908,000356: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
014909,000357:
014910,000358: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
014911,000359: # 0 10000
014912,000360: # 1 00001
014913,000361: # 9 01001
014914,000362: # VERB 10001
014915,000363: # ERROR RES10010
014916,000364: # KEY RLSE 11001
014917,000365: # + 11010
014918,000366: # - 11011
014919,000367: # ENTER 11100
014920,000368: # CLEAR 11110
014921,000369: # NOUN 11111
|
|
2003 RSB — The PROCEED key has no keycode; it is read by an alternate mechanism. |
014923,000371:
014924,000372:
014925,000373: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
014926,000374: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
014927,000375: # ENERGIZED.
014928,000376: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
014929,000377: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
014930,000378: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
014931,000379:
014932,000380: # THE PANEL APPEARS AS FOLLOWS,
014933,000381: # MD1 MD2 (MAJOR MODE)
014934,000382: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
014935,000383: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
014936,000384: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
014937,000385: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
014938,000386:
014939,000387: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
014940,000388: # MD1 25 R2D1 11 ALL ARE OCTAL
014941,000389: # MD2 24 R2D2 10
014942,000390: # VD1 23 R2D3 7
014943,000391: # VD2 22 R2D4 6
014944,000392: # ND1 21 R2D5 5
014945,000393: # ND2 20 R3D1 4
014946,000394: # R1D1 16 R3D2 3
014947,000395: # R1D2 15 R3D3 2
014948,000396: # R1D3 14 R3D4 1
014949,000397: # R1D4 13 R3D5 0
014950,000398: # R1D5 12
014951,000399:
014952,000400:
014953,000401: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
014954,000402:
014955,000403: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
014956,000404: # RELADD
014957,000405: # 10 1011 MD1 (25) MD2 (24)
014958,000406: # 9 1010 VD1 (23) VD2 (22)
014959,000407: # 8 1001 ND1 (21) ND2 (20)
014960,000408: # 7 1000 R1D1 (16)
014961,000409: # 6 0111 +R1 R1D2 (15) R1D3 (14)
014962,000410: # 5 0110 -R1 R1D4 (13) R1D5 (12)
014963,000411: # 4 0101 +R2 R2D1 (11) R2D2 (10)
014964,000412: # 3 0100 -R2 R2D3 (7) R2D4 (6)
014965,000413: # 2 0011 R2D5 (5) R3D1 (4)
014966,000414: # 1 0010 +R3 R3D2 (3) R3D3 (2)
014967,000415: # 0 0001 -R3 R3D4 (1) R3D5 (0)
014968,000416: # 0000 NO RELAYWORD
014969,000417:
014970,000418:
014971,000419: # THE 5 BIT OUTPUT RELAY CODES ARE:
014972,000420: # BLANK 00000
014973,000421: # 0 10101
014974,000422: # 1 00011
014975,000423: # 2 11001
014976,000424: # 3 11011
014977,000425: # 4 01111
014978,000426: # 5 11110
014979,000427: # 6 11100
014980,000428: # 7 10011
014981,000429: # 8 11101
014982,000430: # 9 11111
014983,000431:
014984,000432:
014985,000433: # OUTPUT BITS USED BY PINBALL:
014986,000434:
014987,000435: # KEY RELEASE LIGHT - BIT 5 OF CHANNEL 11
014988,000436: # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
014989,000437: # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
014990,000438:
|
|
Hint: In the source code below, each of the blue operands to the right of the instruction opcodes is a hyperlink back to the definition of the symbol. This is particularly useful for tracing program flow. |
014994,000442:
014995,000443: # START OF EXECUTIVE SECTION OF PINBALL
014996,000444:
014997,000445: 40,2212 BANK 40
014998,000446: 40,2000 SETLOC PINBALL1
014999,000447: 40,2000 BANK
015000,000448:
015001,000449: 40,2212 COUNT* $$/PIN
015002,000450: 40,2212 35026 CHARIN CAF ONE # BLOCK DISPLAY SYST
015003,000451: 40,2213 57013 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
015004,000452: 40,2214 54115 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
015005,000453: 40,2215 11043 CCS CADRSTOR # ALL KEYS EXCEPT ER TURN ON KR LITE IF
015006,000454: 40,2216 02220 TC +2 # CADRSTOR IS FULL. THIS REMINDS OPERATOR
015007,000455: 40,2217 02225 TC CHARIN2 # TO RE-ESTABLISH A FLASHING DISPLAY
015008,000456: 40,2220 42271 CS ELRCODE1 # WHICH HE HAS OBSCURED WITH DISPLAYS OF
015009,000457: 40,2221 60154 AD MPAC # HIS OWN (SEE REMARKS PRECEDING ROUTINE
015010,000458: 40,2222 00006 EXTEND # VBRELDSP).
015011,000459: 40,2223 12225 BZF CHARIN2
015012,000460: 40,2224 04406 TC RELDSPON
015013,000461: 40,2225 56154 CHARIN2 XCH MPAC
015014,000462: 40,2226 54117 TS CHAR
015015,000463: 40,2227 50000 INDEX A
015016,000464: 40,2230 02231 TC +1 # INPUT CODE FUNCTION
015017,000465: 40,2231 03537 TC CHARALRM # 0
015018,000466: 40,2232 02310 TC NUM # 1
015019,000467: 40,2233 02310 TC NUM # 2
015020,000468: 40,2234 02310 TC NUM # 3
015021,000469: 40,2235 02310 TC NUM # 4
015022,000470: 40,2236 02310 TC NUM # 5
015023,000471: 40,2237 02310 TC NUM # 6
015024,000472: 40,2240 02310 TC NUM # 7
015025,000473: 40,2241 02274 TC 89TEST # 10 8
015026,000474: 40,2242 02274 TC 89TEST # 11 9
015027,000475: 40,2243 03537 TC CHARALRM # 12
015028,000476: 40,2244 03537 TC CHARALRM # 13
015029,000477: 40,2245 03537 TC CHARALRM # 14
015030,000478: 40,2246 03537 TC CHARALRM # 15
015031,000479: 40,2247 03537 TC CHARALRM # 16
015032,000480: 40,2250 03537 TC CHARALRM # 17
015033,000481: 40,2251 02306 TC NUM -2 # 20 0
015034,000482: 40,2252 02467 TC VERB # 21 VERB
015035,000483: 40,2253 03705 TC ERROR # 22 ERROR LIGHT RESET
015036,000484: 40,2254 03537 TC CHARALRM # 23
015037,000485: 40,2255 03537 TC CHARALRM # 24
015038,000486: 40,2256 03537 TC CHARALRM # 25
015039,000487: 40,2257 03537 TC CHARALRM # 26
015040,000488: 40,2260 03537 TC CHARALRM # 27
015041,000489: 40,2261 03537 TC CHARALRM # 30
015042,000490: 40,2262 03563 TC VBRELDSP # 31 KEY RELEASE
015043,000491: 40,2263 02522 TC POSGN # 32 +
015044,000492: 40,2264 02507 TC NEGSGN # 33 -
015045,000493: 40,2265 02272 TC ENTERJMP # 34 ENTER
015046,000494: 40,2266 03537 TC CHARALRM # 35
015047,000495: 40,2267 02602 TC CLEAR # 36 CLEAR
015048,000496: 40,2270 02503 TC NOUN # 37 NOUN
015049,000497:
015050,000498:
015051,000499: 40,2271 00022 ELRCODE1 OCT 22
015052,000500: 40,2272 04674 ENTERJMP TC POSTJUMP
015053,000501: 40,2273 62002 CADR ENTER
015054,000502:
015055,000503: 40,2274 11000 89TEST CCS DSPCOUNT
015056,000504: 40,2275 02301 TC +4 # +
015057,000505: 40,2276 02301 TC +3 # +0
015058,000506: 40,2277 05225 TC ENDOFJOB # - BLOCK DATA IN IF DSPCOUNT IS - OR -0
015059,000507: 40,2300 05225 TC ENDOFJOB # -0
015060,000508: 40,2301 36221 CAF THREE
015061,000509: 40,2302 71001 MASK DECBRNCH
015062,000510: 40,2303 10000 CCS A
015063,000511: 40,2304 02310 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
015064,000512: 40,2305 03537 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
015065,000513:
015066,000514:
015067,000515: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
015068,000516: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
015069,000517: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
015070,000518: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
015071,000519: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
015072,000520: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
015073,000521:
015074,000522: 40,2306 35030 CAF ZERO
015075,000523: 40,2307 54117 TS CHAR
015076,000524: 40,2310 11000 NUM CCS DSPCOUNT
015077,000525: 40,2311 02315 TC +4 # +
015078,000526: 40,2312 02315 TC +3 # +0
015079,000527: 40,2313 02314 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
015080,000528: 40,2314 05225 TC ENDOFJOB # -0
015081,000529: 40,2315 02437 TC GETINREL
015082,000530: 40,2316 11016 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
015083,000531: 40,2317 35030 CAF ZERO
015084,000532: 40,2320 55016 TS CLPASS
015085,000533: 40,2321 02322 TC +1
015086,000534: 40,2322 50117 INDEX CHAR
015087,000535: 40,2323 34072 CAF RELTAB
015088,000536: 40,2324 74360 MASK LOW5
015089,000537: 40,2325 54124 TS CODE
015090,000538: 40,2326 31000 CA DSPCOUNT
015091,000539: 40,2327 54143 TS COUNT
015092,000540: 40,2330 03435 TC DSPIN
015093,000541: 40,2331 36221 CAF THREE
015094,000542: 40,2332 71001 MASK DECBRNCH
015095,000543: 40,2333 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
015096,000544: 40,2334 02345 TC DECTOBIN # +
015097,000545: 40,2335 50137 INDEX INREL # +0 OCTAL
015098,000546: 40,2336 57002 XCH VERBREG
015099,000547: 40,2337 54022 TS CYL
015100,000548: 40,2340 40022 CS CYL
015101,000549: 40,2341 40022 CS CYL
015102,000550: 40,2342 56022 XCH CYL
015103,000551: 40,2343 60117 AD CHAR
015104,000552: 40,2344 02362 TC ENDNMTST
015105,000553: 40,2345 50137 DECTOBIN INDEX INREL
015106,000554: 40,2346 57002 XCH VERBREG
015107,000555: 40,2347 54154 TS MPAC # SUM X 2EXP-14 IN MPAC
015108,000556: 40,2350 35030 CAF ZERO
015109,000557: 40,2351 54155 TS MPAC +1
015110,000558: 40,2352 34375 CAF TEN # 10 X 2EXP-14
015111,000559: 40,2353 07261 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
015112,000560: 40,2354 56155 XCH MPAC +1
015113,000561: 40,2355 60117 AD CHAR
015114,000562: 40,2356 54155 TS MPAC +1
015115,000563: 40,2357 02362 TC ENDNMTST # NO OF
015116,000564: 40,2360 26154 ADS MPAC # OF MUST BE 5TH CHAR
015117,000565: 40,2361 02400 TC DECEND
015118,000566: 40,2362 50137 ENDNMTST INDEX INREL
015119,000567: 40,2363 55002 TS VERBREG
015120,000568: 40,2364 41000 CS DSPCOUNT
015121,000569: 40,2365 50137 INDEX INREL
015122,000570: 40,2366 62430 AD CRITCON
015123,000571: 40,2367 00006 EXTEND
015124,000572: 40,2370 12372 BZF ENDNUM # -0, DSPCOUNT = CRITCON
015125,000573: 40,2371 02425 TC MORNUM # - , DSPCOUNT G/ CRITCON
015126,000574: 40,2372 36221 ENDNUM CAF THREE
015127,000575: 40,2373 71001 MASK DECBRNCH
015128,000576: 40,2374 10000 CCS A
015129,000577: 40,2375 02400 TC DECEND
015130,000578: 40,2376 41000 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
015131,000579: 40,2377 02426 TC MORNUM +1 # NEGATIVELY
015132,000580: 40,2400 45026 DECEND CS ONE
015133,000581: 40,2401 60137 AD INREL
015134,000582: 40,2402 00006 EXTEND
015135,000583: 40,2403 62376 BZMF ENDALL # IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
015136,000584: 40,2404 07057 TC DMP # IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
015137,000585: # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
015138,000586: 40,2405 02435 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
015139,000587: 40,2406 36221 CAF THREE # IN MPAC, +1, +2.
015140,000588: 40,2407 71001 MASK DECBRNCH
015141,000589: 40,2410 50000 INDEX A
015142,000590: 40,2411 02411 TC +0
015143,000591: 40,2412 02416 TC +DECSGN
015144,000592: 40,2413 00006 EXTEND # - CASE
015145,000593: 40,2414 40156 DCS MPAC +1
015146,000594: 40,2415 52156 DXCH MPAC +1
015147,000595: 40,2416 56156 +DECSGN XCH MPAC +2
015148,000596: 40,2417 50137 INDEX INREL
015149,000597: 40,2420 55005 TS XREGLP -2
015150,000598: 40,2421 56155 XCH MPAC +1
015151,000599: 40,2422 50137 INDEX INREL
015152,000600: 40,2423 55002 TS VERBREG
015153,000601: 40,2424 02376 TC ENDALL
015154,000602: 40,2425 11000 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
015155,000603: 40,2426 55000 TS DSPCOUNT
015156,000604: 40,2427 05225 TC ENDOFJOB
015157,000605:
015158,000606: 40,2430 00022 CRITCON OCT 22 # (DEC 18)
015159,000607: 40,2431 00020 OCT 20 # (DEC 16)
015160,000608: 40,2432 00012 OCT 12 # (DEC 10)
015161,000609: 40,2433 00005 OCT 5
015162,000610: 40,2434 00000 OCT 0
015163,000611:
015164,000612: 40,2435 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
015165,000613:
015166,000614:
015167,000615: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
015168,000616: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
015169,000617:
015170,000618: 40,2437 51000 GETINREL INDEX DSPCOUNT
015171,000619: 40,2440 32443 CAF INRELTAB
015172,000620: 40,2441 54137 TS INREL # (A TEMP, REG)
015173,000621: 40,2442 00002 TC Q
015174,000622:
015175,000623: 40,2443 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
015176,000624: 40,2444 00004 OCT 4 # R3D4 =(1)
015177,000625: 40,2445 00004 OCT 4 # R3D3 =(2)
015178,000626: 40,2446 00004 OCT 4 # R3D2 =(3)
015179,000627: 40,2447 00004 OCT 4 # R3D1 =(4)
015180,000628: 40,2450 00003 OCT 3 # R2D5 =(5)
015181,000629: 40,2451 00003 OCT 3 # R2D4 =(6)
015182,000630: 40,2452 00003 OCT 3 # R2D3 =(7)
015183,000631: 40,2453 00003 OCT 3 # R2D2 =(8D)
015184,000632: 40,2454 00003 OCT 3 # R2D1 =(9D)
015185,000633: 40,2455 00002 OCT 2 # R1D5 =(10D)
015186,000634: 40,2456 00002 OCT 2 # R1D4 =(11D)
015187,000635: 40,2457 00002 OCT 2 # R1D3 =(12D)
015188,000636: 40,2460 00002 OCT 2 # R1D2 =(13D)
015189,000637: 40,2461 00002 OCT 2 # R1D1 =(14D)
015190,000638: 40,2462 05726 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
015191,000639: 40,2463 00001 OCT 1 # ND2 =(16D)
015192,000640: 40,2464 00001 OCT 1 # ND1 =(17D)
015193,000641: 40,2465 00000 OCT 0 # VD2 =(18D)
015194,000642: 40,2466 00000 OCT 0 # VD1 =(19D)
015195,000643:
015196,000644: 40,2467 35030 VERB CAF ZERO
015197,000645: 40,2470 55002 TS VERBREG
015198,000646: 40,2471 34372 CAF VD1
015199,000647: 40,2472 55000 NVCOM TS DSPCOUNT
015200,000648: 40,2473 02714 TC 2BLANK
015201,000649: 40,2474 35026 CAF ONE
015202,000650: 40,2475 55001 TS DECBRNCH # SET FOR DEC V/N CODE
015203,000651: 40,2476 35030 CAF ZERO
015204,000652: 40,2477 55014 TS REQRET # SET FOR ENTPAS0
015205,000653: 40,2500 34231 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
015206,000654: 40,2501 54136 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
015207,000655: # TO TC ENDOFJOB
015208,000656: 40,2502 05225 TC ENDOFJOB
015209,000657: 40,2503 35030 NOUN CAF ZERO
015210,000658: 40,2504 55003 TS NOUNREG
015211,000659: 40,2505 34373 CAF ND1 # ND1, OCT 21 (DEC 17)
015212,000660: 40,2506 02472 TC NVCOM
015213,000661:
015214,000662:
015215,000663: 40,2507 02561 NEGSGN TC SIGNTEST
015216,000664: 40,2510 02546 TC -ON
015217,000665: 40,2511 35025 CAF TWO
015218,000666: 40,2512 50137 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
015219,000667: 40,2513 65020 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
015220,000668: 40,2514 27001 ADS DECBRNCH # BIT 3 FOR R3.
015221,000669: 40,2515 11016 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
015222,000670: 40,2516 35030 CAF ZERO
015223,000671: 40,2517 55016 TS CLPASS
015224,000672: 40,2520 02521 TC +1
015225,000673: 40,2521 05225 TC ENDOFJOB
015226,000674:
015227,000675: 40,2522 02561 POSGN TC SIGNTEST
015228,000676: 40,2523 02526 TC +ON
015229,000677: 40,2524 35026 CAF ONE
015230,000678: 40,2525 02512 TC BOTHSGN
015231,000679:
015232,000680: 40,2526 22002 +ON LXCH Q
015233,000681: 40,2527 02437 TC GETINREL
015234,000682: 40,2530 50137 INDEX INREL
015235,000683: 40,2531 32554 CAF SGNTAB -2
015236,000684: 40,2532 54123 TS SGNOFF
015237,000685: 40,2533 65026 AD ONE
015238,000686: 40,2534 54122 TS SGNON
015239,000687: 40,2535 35030 SGNCOM CAF ZERO
015240,000688: 40,2536 54124 TS CODE
015241,000689: 40,2537 56123 XCH SGNOFF
015242,000690: 40,2540 03517 TC 11DSPIN
015243,000691: 40,2541 35014 CAF BIT11
015244,000692: 40,2542 54124 TS CODE
015245,000693: 40,2543 56122 XCH SGNON
015246,000694: 40,2544 03517 TC 11DSPIN
015247,000695: 40,2545 00001 TC L
015248,000696: 40,2546 22002 -ON LXCH Q
015249,000697: 40,2547 02437 TC GETINREL
015250,000698: 40,2550 50137 INDEX INREL
015251,000699: 40,2551 32554 CAF SGNTAB -2
015252,000700: 40,2552 54122 TS SGNON
015253,000701: 40,2553 65026 AD ONE
015254,000702: 40,2554 54123 TS SGNOFF
015255,000703: 40,2555 02535 TC SGNCOM
015256,000704:
015257,000705: 40,2556 00005 SGNTAB OCT 5 # -R1
015258,000706: 40,2557 00003 OCT 3 # -R2
015259,000707: 40,2560 00000 OCT 0 # -R3
015260,000708:
015261,000709:
015262,000710: 40,2561 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
015263,000711: 40,2562 36221 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
015264,000712: 40,2563 71001 MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
015265,000713: 40,2564 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
015266,000714: 40,2565 05225 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
015267,000715: 40,2566 44331 CS R1D1
015268,000716: 40,2567 02575 TC SGNTST1
015269,000717: 40,2570 44332 CS R2D1
015270,000718: 40,2571 02575 TC SGNTST1
015271,000719: 40,2572 44333 CS R3D1
015272,000720: 40,2573 02575 TC SGNTST1
015273,000721: 40,2574 05225 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
015274,000722: 40,2575 61000 SGNTST1 AD DSPCOUNT
015275,000723: 40,2576 00006 EXTEND
015276,000724: 40,2577 12601 BZF +2 # MATCH FOUND
015277,000725: 40,2600 00002 TC Q
015278,000726: 40,2601 00001 TC L # SIGN LEGAL
015279,000727:
015280,000728:
015281,000729: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
015282,000730: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
015283,000731: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
015284,000732:
015285,000733: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
015286,000734: # APPROPRIATE TO BE CLEARED.
015287,000735:
015288,000736: # CLPASS +0 PASS0, CAN BE BACKED UP
015289,000737: # +NZ HIPASS, CAN BE BACKED UP
015290,000738: # -NZ PASS0, CANNOT BE BACKED UP
015291,000739:
015292,000740: 40,2602 11000 CLEAR CCS DSPCOUNT
015293,000741: 40,2603 65026 AD ONE
015294,000742: 40,2604 02606 TC +2
015295,000743: 40,2605 65026 AD ONE
015296,000744: 40,2606 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
015297,000745: 40,2607 32443 CAF INRELTAB # FAIL LEGALTST.
015298,000746: 40,2610 54137 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
015299,000747: 40,2611 11016 CCS CLPASS
015300,000748: 40,2612 02620 TC CLPASHI # +
015301,000749: 40,2613 02615 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
015302,000750: 40,2614 02615 TC +1 # -
015303,000751: 40,2615 30137 CA INREL
015304,000752: 40,2616 02642 TC LEGALTST
015305,000753: 40,2617 02635 TC CLEAR1
015306,000754: 40,2620 10137 CLPASHI CCS INREL
015307,000755: 40,2621 54137 TS INREL
015308,000756: 40,2622 02642 TC LEGALTST
015309,000757: 40,2623 32712 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
015310,000758: 40,2624 27014 ADS REQRET
015311,000759: 40,2625 30137 CA INREL
015312,000760: 40,2626 54125 TS MIXTEMP # TEMP STORAGE FOR INREL
015313,000761: 40,2627 00006 EXTEND
015314,000762: 40,2630 27002 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
015315,000763: 40,2631 04655 TC BANKCALL
015316,000764: 40,2632 62340 CADR UPDATVB
015317,000765: 40,2633 30125 CA MIXTEMP
015318,000766: 40,2634 54137 TS INREL # RESTORE INREL
015319,000767: 40,2635 02640 CLEAR1 TC CLR5
015320,000768: 40,2636 25016 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
015321,000769: 40,2637 05225 TC ENDOFJOB # SET FOR HIGHER PASS.
015322,000770: 40,2640 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
015323,000771: 40,2641 02653 TC 5BLANK +2
015324,000772: 40,2642 67720 LEGALTST AD NEG2
015325,000773: 40,2643 10000 CCS A
015326,000774: 40,2644 00002 TC Q # LEGAL INREL G/ 2
015327,000775: 40,2645 05726 TC CCSHOLE
015328,000776: 40,2646 05225 TC ENDOFJOB # ILLEGAL INREL= 0,1
015329,000777: 40,2647 00002 TC Q # LEGAL INREL = 2
015330,000778:
015331,000779:
015332,000780: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
015333,000781: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
015334,000782: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
015335,000783:
015336,000784: 40,2650 55000 TS DSPCOUNT # NEEDED FOR BLANKSUB
015337,000785: 40,2651 22002 5BLANK LXCH Q
015338,000786: 40,2652 02437 TC GETINREL
015339,000787: 40,2653 35030 CAF ZERO
015340,000788: 40,2654 50137 INDEX INREL
015341,000789: 40,2655 55002 TS VERBREG # ZERO X, Y, Z REG.
015342,000790: 40,2656 50137 INDEX INREL
015343,000791: 40,2657 55005 TS XREGLP -2
015344,000792: 40,2660 54124 TS CODE
015345,000793: 40,2661 50137 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
015346,000794: 40,2662 45020 CS BIT7 # PROTECT OTHERS
015347,000795: 40,2663 71001 MASK DECBRNCH
015348,000796: 40,2664 72713 MASK BRNCHCON # ZERO LOW 2 BITS.
015349,000797: 40,2665 55001 TS DECBRNCH
015350,000798: 40,2666 50137 INDEX INREL
015351,000799: 40,2667 32703 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
015352,000800: 40,2670 54143 TS COUNT
015353,000801: 40,2671 03435 TC DSPIN
015354,000802: 40,2672 50137 5BLANK1 INDEX INREL
015355,000803: 40,2673 32706 CAF DOUBLK -2
015356,000804: 40,2674 55000 TS DSPCOUNT
015357,000805: 40,2675 02714 TC 2BLANK
015358,000806: 40,2676 45025 CS TWO
015359,000807: 40,2677 27000 ADS DSPCOUNT
015360,000808: 40,2700 02714 TC 2BLANK
015361,000809: 40,2701 50137 INDEX INREL
015362,000810: 40,2702 34327 CAF R1D1 -2
015363,000811: 40,2703 55000 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
015364,000812: 40,2704 00001 TC L # OF REG. JUST BLANKED
015365,000813:
015366,000814: 40,2705 00016 SINBLANK OCT 16 # DEC 14
015367,000815: 40,2706 00005 OCT 5
015368,000816: 40,2707 00004 OCT 4
015369,000817: 40,2710 00015 DOUBLK OCT 15 # DEC 13
015370,000818: 40,2711 00011 OCT 11 # DEC 9
015371,000819: 40,2712 00003 OCT 3
015372,000820:
015373,000821: 40,2713 77774 BRNCHCON OCT 77774
015374,000822:
015375,000823: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
015376,000824: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
015377,000825:
015378,000826: 40,2714 31000 2BLANK CA DSPCOUNT
015379,000827: 40,2715 54021 TS SR
015380,000828: 40,2716 42727 CS BLANKCON
015381,000829: 40,2717 00004 INHINT
015382,000830: 40,2720 50021 INDEX SR
015383,000831: 40,2721 57024 XCH DSPTAB
015384,000832: 40,2722 00006 EXTEND
015385,000833: 40,2723 62725 BZMF +2 # IF OLD CONTENTS -, NOUT OK
015386,000834: 40,2724 25017 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
015387,000835: 40,2725 00003 RELINT # IF -,NOUT OK
015388,000836: 40,2726 00002 TC Q
015389,000837: 40,2727 04000 BLANKCON OCT 4000
015390,000838:
015391,000839: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
015392,000840: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
015393,000841: # PASSES.
015394,000842:
015395,000843:
015396,000844: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
015397,000845: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
015398,000846: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
015399,000847:
015400,000848:
015401,000849: 41,2000 BANK 41
015402,000850: 41,2000 SETLOC PINBALL2
015403,000851: 41,2000 BANK
015404,000852:
015405,000853: 41,2000 COUNT* $$/PIN
015406,000854: 41,2000 03537 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
015407,000855: 41,2001 02773 LOADLV1 TC LOADLV
015408,000856: # END OF STANDARD LEAD INS.
015409,000857:
015410,000858:
015411,000859: 41,2002 35030 ENTER CAF ZERO
015412,000860: 41,2003 55016 TS CLPASS
015413,000861: 41,2004 34231 CAF ENDINST
015414,000862: 41,2005 54136 TS ENTRET
015415,000863: 41,2006 11014 CCS REQRET
015416,000864: 41,2007 02035 TC ENTPAS0 # IF +, PASS 0
015417,000865: 41,2010 02035 TC ENTPAS0 # IF +, PASS 0
015418,000866: 41,2011 02012 TC +1 # IF -, NOT PASS 0
015419,000867: 41,2012 32033 ENTPASHI CAF MMADREF
015420,000868: 41,2013 61014 AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
015421,000869: 41,2014 00006 EXTEND # AND RECYCLE(DECIDE AT MMCHANG+1).
015422,000870: 41,2015 12027 BZF ACCEPTWD
015423,000871: 41,2016 36221 CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
015424,000872: 41,2017 71001 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
015425,000873: 41,2020 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
015426,000874: 41,2021 02023 TC +2 # CHARACTERS AND CONTINUE.
015427,000875: 41,2022 02027 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
015428,000876: 41,2023 11000 CCS DSPCOUNT
015429,000877: 41,2024 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
015430,000878: 41,2025 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
015431,000879: 41,2026 02027 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
015432,000880: 41,2027 41014 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
015433,000881: 41,2030 55014 TS REQRET # SET REQRET +.
015434,000882: 41,2031 04445 TC FLASHOFF
015435,000883: 41,2032 01014 TC REQRET
015436,000884:
015437,000885: 41,2033 0136 ENTEXIT = ENTRET
015438,000886:
015439,000887: 41,2033 03424 MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
015440,000888:
015441,000889: 41,2034 00034 LOWVERB DEC 28 B-14 # LOWER VERB THAT AVOIDS NOUN TEST.
015442,000890:
015443,000891: 41,2035 35030 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
015444,000892: 41,2036 55001 TS DECBRNCH
015445,000893: 41,2037 44372 CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY
015446,000894: 41,2040 55000 TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS.
015447,000895: 41,2041 41002 TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
015448,000896: 41,2042 55042 TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
015449,000897: 41,2043 62034 AD LOWVERB # LOWVERB - VB
015450,000898: 41,2044 00006 EXTEND
015451,000899: 41,2045 62133 BZMF VERBFAN # VERB G/E LOWVERB
015452,000900: 41,2046 00006 TESTNN EXTEND # VERB L/ LOWVERB
015453,000901: 41,2047 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015454,000902: 41,2050 52006 DXCH Z # ROUTINE.
015455,000903: 41,2051 50140 INDEX MIXBR
015456,000904: 41,2052 02052 TC +0
015457,000905: 41,2053 02055 TC +2 # NORMAL
015458,000906: 41,2054 02221 TC MIXNOUN # MIXED
015459,000907: 41,2055 10146 CCS NNADTEM # NORMAL
015460,000908: 41,2056 02131 TC VERBFAN -2 # NORMAL IF +
015461,000909: 41,2057 02351 TC GODSPALM # NOT IN USE IF +0
015462,000910: 41,2060 02064 TC REQADD # SPECIFY MACHINE CADR IF -
015463,000911: 41,2061 25020 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
015464,000912: 41,2062 04323 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
015465,000913: 41,2063 02120 TC INTMCTBS +2
015466,000914: 41,2064 35010 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
015467,000915: 41,2065 55016 TS CLPASS
015468,000916: 41,2066 44231 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
015469,000917: 41,2067 60136 AD ENTEXIT # FROM EXTERNAL
015470,000918: 41,2070 00006 EXTEND
015471,000919: 41,2071 12073 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
015472,000920: 41,2072 02116 TC INTMCTBS
015473,000921: 41,2073 02307 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
015474,000922: 41,2074 11001 CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
015475,000923: 41,2075 04157 TC ALMCYCLE # FOR MCTBS.
015476,000924: 41,2076 44372 CS VD1 # OCTAL USED OK
015477,000925: 41,2077 55000 TS DSPCOUNT # BLOCK NUM CHAR IN
015478,000926: 41,2100 11043 CCS CADRSTOR
015479,000927: 41,2101 02104 TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
015480,000928: 41,2102 02105 TC USEADD # ON IF ENDIDLE NOT = +0.
015481,000929: 41,2103 02104 TC +1
015482,000930: 41,2104 04441 TC FLASHON
015483,000931: 41,2105 57006 USEADD XCH ZREG
015484,000932: 41,2106 04315 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
015485,000933: 41,2107 00006 EXTEND
015486,000934: 41,2110 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015487,000935: 41,2111 52006 DXCH Z # ROUTINE.
015488,000936: 41,2112 02133 TC VERBFAN
015489,000937:
015490,000938: 41,2113 1000 EBANK= DSPCOUNT
015491,000939: 41,2113 02064 64102 LODNNLOC 2CADR LODNNTAB
015492,000940:
015493,000941:
015494,000942: 41,2115 77772 NEG5 OCT 77772
015495,000943:
015496,000944: 41,2116 30156 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
015497,000945: 41,2117 04315 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
015498,000946: 41,2120 45031 CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
015499,000947: 41,2121 61002 AD VERBREG # CADR TO BE SPECIFIED.
015500,000948: 41,2122 00006 EXTEND
015501,000949: 41,2123 12133 BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
015502,000950: 41,2124 34333 CAF R3D1 # VB NOT = 05. DISPLAY CADR.
015503,000951: 41,2125 55000 TS DSPCOUNT
015504,000952: 41,2126 31020 CA NOUNCADR
015505,000953: 41,2127 03356 TC DSPOCTWD
015506,000954: 41,2130 02133 TC VERBFAN
015507,000955:
015508,000956: 41,2131 65026 AD ONE
015509,000957: 41,2132 04315 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015510,000958: 41,2133 42145 VERBFAN CS LST2CON
015511,000959: 41,2134 61002 AD VERBREG # VERB-LST2CON
015512,000960: 41,2135 10000 CCS A
015513,000961: 41,2136 65026 AD ONE # VERB G/ LST2CON
015514,000962: 41,2137 02141 TC +2
015515,000963: 41,2140 02146 TC VBFANDIR # VERB L/ LST2CON
015516,000964: 41,2141 54154 TS MPAC
015517,000965: 41,2142 04471 TC RELDSP # RELEASE DISPLAY SYST
015518,000966: 41,2143 04674 TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
015519,000967: 41,2144 66000 CADR GOEXTVB
015520,000968: 41,2145 00050 LST2CON DEC 40 B-14 # FIRST LIST2 VERB (EXTENDED VERB)
015521,000969:
015522,000970: 41,2146 51002 VBFANDIR INDEX VERBREG
015523,000971: 41,2147 32151 CAF VERBTAB
015524,000972: 41,2150 04677 TC BANKJUMP
015525,000973:
015526,000974: 41,2151 62351 VERBTAB CADR GODSPALM # VB00 ILLEGAL
015527,000975: 41,2152 62365 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
015528,000976: 41,2153 62373 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
015529,000977: 41,2154 62400 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
015530,000978: 41,2155 62360 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
015531,000979: 41,2156 62353 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
015532,000980: 41,2157 62521 CADR DECDSP # VB06 DECIMAL DISPLAY
015533,000981: 41,2160 61104 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
015534,000982: 41,2161 62351 CADR GODSPALM # VB08 SPARE
015535,000983: 41,2162 62351 CADR GODSPALM # VB09 SPARE
015536,000984: 41,2163 61533 CADR DSPALARM # VB10 SPARE
015537,000985: 41,2164 63223 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
015538,000986: 41,2165 63223 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
015539,000987: 41,2166 63223 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
015540,000988: 41,2167 63223 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
015541,000989: 41,2170 63223 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
015542,000990: 41,2171 63223 CADR MONITOR # VB16 MONITOR DECIMAL
015543,000991: 41,2172 63223 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
015544,000992: 41,2173 62351 CADR GODSPALM # VB18 SPARE
015545,000993: 41,2174 62351 CADR GODSPALM # VB19 SPARE
015546,000994: 41,2175 62351 CADR GODSPALM # VB20 SPARE
015547,000995: 41,2176 62730 CADR ALOAD # VB21 LOAD COMP 1 (R1)
015548,000996: 41,2177 62741 CADR BLOAD # VB22 LOAD COMP 2 (R2)
015549,000997: 41,2200 62756 CADR CLOAD # VB23 LOAD COMP 3 (R3)
015550,000998: 41,2201 62701 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
015551,000999: 41,2202 62614 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
015552,001000: 41,2203 62351 CADR GODSPALM # VB26 SPARE
015553,001001: 41,2204 63346 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
015554,001002: # THE FOLLOWING VERBS MAKE NO NOUN TEST
015555,001003: 41,2205 62351 CADR GODSPALM # VB28 SPARE
015556,001004: 41,2206 62351 CADR GODSPALM # VB29 SPARE
015557,001005: 41,2207 63461 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
015558,001006: 41,2210 63505 CADR VBRQWAIT # VB31 REQUEST WAITLIST
015559,001007: 41,2211 61561 CADR VBRESEQ # VB32 RESEQUENCE
015560,001008: 41,2212 61544 CADR VBPROC # VB33 PROCEED WITHOUT DATA
015561,001009: 41,2213 61552 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
015562,001010: 41,2214 63606 CADR VBTSTLTS # VB35 TEST LIGHTS
015563,001011: 41,2215 12264 CADR SLAP1 # VB36 FRESH START
015564,001012: 41,2216 63423 CADR MMCHANG # VB37 CHANGE MAJOR MODE
015565,001013: 41,2217 62351 CADR GODSPALM # VB38 SPARE
015566,001014: 41,2220 62351 CADR GODSPALM # VB39 SPARE
015567,001015:
015568,001016:
015569,001017: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
015570,001018:
015571,001019: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
015572,001020: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
015573,001021: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
015574,001022: # MIXTEMP.
015575,001023:
015576,001024: 41,2221 10146 MIXNOUN CCS NNADTEM
015577,001025: 41,2222 02226 TC +4 # + IN USE
015578,001026: 41,2223 02351 TC GODSPALM # +0 NOT IN USE
015579,001027: 41,2224 02226 TC +2 # - IN USE
015580,001028: 41,2225 02226 TC +1 # -0 IN USE
015581,001029: 41,2226 46216 CS SIX
015582,001030: 41,2227 61002 AD VERBREG
015583,001031: 41,2230 00006 EXTEND
015584,001032: 41,2231 62233 BZMF +2 # VERB L/E 6
015585,001033: 41,2232 02133 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
015586,001034: 41,2233 35025 CAF TWO
015587,001035: 41,2234 54117 MIXNN1 TS DECOUNT
015588,001036: 41,2235 62260 AD MIXAD
015589,001037: 41,2236 54145 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
015590,001038: 41,2237 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
015591,001039: 41,2240 30150 CA IDAD1TEM # OF NOUN.
015592,001040: 41,2241 54122 TS NOUNTEM
015593,001041: # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
015594,001042: # MINOR PART ONLY.
015595,001043: 41,2242 03031 TC SFRUTMIX # GET SF ROUT NUMBER IN A
015596,001044: 41,2243 02261 TC DPTEST
015597,001045: 41,2244 02246 TC MIXNN2 # NO DP
015598,001046: 41,2245 24122 INCR NOUNTEM # DP GET MINOR PART
015599,001047: 41,2246 30122 MIXNN2 CA NOUNTEM
015600,001048: 41,2247 74370 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
015601,001049: 41,2250 04325 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
015602,001050: 41,2251 50000 INDEX A # PICK UP C(ESUBK) NOT DP
015603,001051: 41,2252 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
015604,001052: 41,2253 50145 INDEX NOUNADD
015605,001053: 41,2254 56000 XCH 0 # STORE IN MIXTEM + K
015606,001054: 41,2255 10117 CCS DECOUNT
015607,001055: 41,2256 02234 TC MIXNN1
015608,001056: 41,2257 02133 TC VERBFAN
015609,001057:
015610,001058: 41,2260 00125 MIXAD TC MIXTEMP
015611,001059:
015612,001060:
015613,001061: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
015614,001062: # RETURNS TO L+1 IF NO DP.
015615,001063: # RETURNS TO L+2 IF DP.
015616,001064:
015617,001065: 41,2261 50000 DPTEST INDEX A
015618,001066: 41,2262 12263 TCF +1
015619,001067: 41,2263 00002 TC Q # OCTAL ONLY NO DP
015620,001068: 41,2264 00002 TC Q # FRACT NO DP
015621,001069: 41,2265 00002 TC Q # DEG NO DP
015622,001070: 41,2266 00002 TC Q # ARITH NO DP
015623,001071: 41,2267 12301 TCF DPTEST1 # DP1OUT
015624,001072: 41,2270 12301 TCF DPTEST1 # DP2OUT
015625,001073: 41,2271 00002 TC Q # LRPOSOUT NO DP (DATA IN CHANNEL 33)
015626,001074: 41,2272 12301 TCF DPTEST1 # DP3OUT
015627,001075: 41,2273 00002 TC Q # HMS NO DP
015628,001076: 41,2274 00002 TC Q # M/S NO DP
015629,001077: 41,2275 12301 TCF DPTEST1 # DP4OUT
015630,001078: 41,2276 00002 TC Q # ARITH1 NO DP
015631,001079: 41,2277 00002 TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
015632,001080: 41,2300 00002 TC Q # 360-CDU NO DP
015633,001081: 41,2301 50002 DPTEST1 INDEX Q
015634,001082: 41,2302 00001 TC 1 # RETURN TO L+2
015635,001083:
015636,001084:
015637,001085: 41,2303 34331 REQDATX CAF R1D1
015638,001086: 41,2304 12310 TCF REQCOM
015639,001087: 41,2305 34332 REQDATY CAF R2D1
015640,001088: 41,2306 12310 TCF REQCOM
015641,001089: 41,2307 34333 REQDATZ CAF R3D1
015642,001090: 41,2310 55000 REQCOM TS DSPCOUNT
015643,001091: 41,2311 40002 CS Q
015644,001092: 41,2312 55014 TS REQRET
015645,001093: 41,2313 04655 TC BANKCALL
015646,001094: 41,2314 60651 CADR 5BLANK
015647,001095: 41,2315 04441 TC FLASHON
015648,001096: 41,2316 00136 ENDRQDAT TC ENTEXIT
015649,001097:
015650,001098: 41,2317 55003 TS NOUNREG
015651,001099: 41,2320 56002 UPDATNN XCH Q
015652,001100: 41,2321 54117 TS UPDATRET
015653,001101: 41,2322 00006 EXTEND
015654,001102: 41,2323 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015655,001103: 41,2324 52006 DXCH Z # ROUTINE.
015656,001104: 41,2325 10146 CCS NNADTEM
015657,001105: 41,2326 65026 AD ONE # NORMAL
015658,001106: 41,2327 12332 TCF PUTADD
015659,001107: 41,2330 12333 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
015660,001108: 41,2331 12333 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
015661,001109: 41,2332 04315 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015662,001110: 41,2333 34373 CAF ND1
015663,001111: 41,2334 55000 TS DSPCOUNT
015664,001112: 41,2335 31003 CA NOUNREG
015665,001113: 41,2336 12345 TCF UPDAT1
015666,001114:
015667,001115: 41,2337 55002 TS VERBREG
015668,001116: 41,2340 56002 UPDATVB XCH Q
015669,001117: 41,2341 54117 TS UPDATRET
015670,001118: 41,2342 34372 CAF VD1
015671,001119: 41,2343 55000 TS DSPCOUNT
015672,001120: 41,2344 31002 CA VERBREG
015673,001121: 41,2345 04674 UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN,SINCE
015674,001122: 41,2346 61432 CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
015675,001123: 41,2347 00117 TC UPDATRET
015676,001124:
015677,001125:
015678,001126: 41,2350 04157 GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
015679,001127:
015680,001128:
015681,001129: 41,2351 04674 GODSPALM TC POSTJUMP
015682,001130: 41,2352 61533 CADR DSPALARM
015683,001131:
015684,001132: # NOUN TABLES
015685,001133: # NOUN CODE L/40, NORMAL NOUN CASE. NOUN CODE G/E 40, MIXED NOUN CASE.
015686,001134: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
015687,001135: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
015688,001136: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
015689,001137: # OF LAST MACHINE CADR SUPPLIED.
015690,001138:
015691,001139: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
015692,001140: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
015693,001141:
015694,001142: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
015695,001143:
015696,001144: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
015697,001145: # N-S ARE THE SF ROUTINE CODE NUMBER.
015698,001146: # P-S ARE THE SF CONSTANT CODE NUMBER.
015699,001147:
015700,001148: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
015701,001149: # N-S ARE THE SF CONSTANT2 CODE NUMBER
015702,001150: # P-S ARE THE SF CONSTANT1 CODE NUMBER
015703,001151: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
015704,001152: # P-S ARE THE SF CONSTANT1 CODE NUMBER
015705,001153: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
015706,001154:
015707,001155: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
015708,001156: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
015709,001157: # THE FIRST OF THESE ENTRIES.
015710,001158: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
015711,001159: # THEY ARE LISTED IN ORDER OF ASCENDING K.
015712,001160:
015713,001161: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
015714,001162: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
015715,001163: # QQQQQRRRRRSSSSS
015716,001164: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
015717,001165: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
015718,001166: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
015719,001167: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
015720,001168: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
015721,001169:
015722,001170:
015723,001171: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
015724,001172: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
015725,001173: # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
015726,001174:
015727,001175:
015728,001176: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
015729,001177: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
015730,001178:
015731,001179: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
015732,001180: # BEFORE EACH ENTER. IF NOT, ALARM.
015733,001181:
015734,001182: # DISPLAY VERBS
015735,001183: 41,2353 45025 DSPABC CS TWO
015736,001184: 41,2354 02424 TC COMPTEST
015737,001185: 41,2355 50145 INDEX NOUNADD
015738,001186: 41,2356 40002 CS 2
015739,001187: 41,2357 56132 XCH BUF +2
015740,001188: 41,2360 45026 DSPAB CS ONE
015741,001189: 41,2361 02424 TC COMPTEST
015742,001190: 41,2362 50145 INDEX NOUNADD
015743,001191: 41,2363 40001 CS 1
015744,001192: 41,2364 56131 XCH BUF +1
015745,001193: 41,2365 02443 DSPA TC DECTEST
015746,001194: 41,2366 02466 TC TSTFORDP
015747,001195: 41,2367 50145 INDEX NOUNADD
015748,001196: 41,2370 40000 CS 0
015749,001197: 41,2371 56130 DSPCOM1 XCH BUF
015750,001198: 41,2372 02405 TC DSPCOM2
015751,001199: 41,2373 45026 DSPB CS ONE
015752,001200: 41,2374 02437 TC DCOMPTST
015753,001201: 41,2375 50145 INDEX NOUNADD
015754,001202: 41,2376 40001 CS 1
015755,001203: 41,2377 02371 TC DSPCOM1
015756,001204: 41,2400 45025 DSPC CS TWO
015757,001205: 41,2401 02437 TC DCOMPTST
015758,001206: 41,2402 50145 INDEX NOUNADD
015759,001207: 41,2403 40002 CS 2
015760,001208: 41,2404 02371 TC DSPCOM1
015761,001209: 41,2405 45025 DSPCOM2 CS TWO # A B C AB ABC
015762,001210: 41,2406 61002 AD VERBREG # -1 -0 +1 +2 +3 IN A
015763,001211: 41,2407 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
015764,001212: 41,2410 02413 TC DSPCOM3
015765,001213: 41,2411 00136 TC ENTEXIT
015766,001214: 41,2412 02413 TC +1
015767,001215: 41,2413 54122 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
015768,001216: 41,2414 50000 INDEX A
015769,001217: 41,2415 34331 CAF R1D1
015770,001218: 41,2416 55000 TS DSPCOUNT
015771,001219: 41,2417 50122 INDEX DISTEM
015772,001220: 41,2420 40130 CS BUF
015773,001221: 41,2421 03356 TC DSPOCTWD
015774,001222: 41,2422 56122 XCH DISTEM
015775,001223: 41,2423 02407 TC DSPCOM2 +2
015776,001224:
015777,001225: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
015778,001226: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
015779,001227: 41,2424 54123 COMPTEST TS SFTEMP1 # - VERB COMP
015780,001228: 41,2425 22002 LXCH Q
015781,001229: 41,2426 02513 COMPTST1 TC GETCOMP
015782,001230: 41,2427 04343 TC LEFT5
015783,001231: 41,2430 76221 MASK THREE # NOUN COMP
015784,001232: 41,2431 60123 AD SFTEMP1 # NOUN COMP - VERB COMP
015785,001233: 41,2432 10000 CCS A
015786,001234: 41,2433 00001 TC L # NOUN COMP G/ VERB COMP
015787,001235: 41,2434 05726 TC CCSHOLE
015788,001236: 41,2435 02351 TC GODSPALM # NOUN COMP L/ VERB COMP
015789,001237: 41,2436 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
015790,001238:
015791,001239:
015792,001240: # DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
015793,001241: # IF NOT, IT PERFORMS REGULAR COMPTEST.
015794,001242: 41,2437 54123 DCOMPTST TS SFTEMP1 # - VERB COMP
015795,001243: 41,2440 22002 LXCH Q
015796,001244: 41,2441 02443 TC DECTEST
015797,001245: 41,2442 02426 TC COMPTST1
015798,001246:
015799,001247: 41,2443 00006 DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
015800,001248: 41,2444 22156 QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
015801,001249: 41,2445 02513 TC GETCOMP
015802,001250: 41,2446 75011 MASK BIT14
015803,001251: 41,2447 10000 CCS A
015804,001252: 41,2450 02351 TC GODSPALM
015805,001253: 41,2451 00156 TC MPAC +2
015806,001254:
015807,001255:
015808,001256: 41,2452 22002 DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
015809,001257: 41,2453 02513 TC GETCOMP # ( BIT4 OF COMP CODE NUMBER). RETURNS
015810,001258: 41,2454 75011 MASK BIT14 # IF NOT. USED BY LOAD VERBS.
015811,001259: 41,2455 10000 CCS A
015812,001260: 41,2456 04157 TC ALMCYCLE
015813,001261: 41,2457 00001 TC L
015814,001262:
015815,001263:
015816,001264: # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
015817,001265: # IF NOT, IT RETURNS.
015818,001266: 41,2460 22002 NOUNTEST LXCH Q
015819,001267: 41,2461 02513 TC GETCOMP
015820,001268: 41,2462 10000 CCS A
015821,001269: 41,2463 00001 TC L
015822,001270: 41,2464 00001 TC L
015823,001271: 41,2465 02351 TC GODSPALM
015824,001272:
015825,001273:
015826,001274: 41,2466 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
015827,001275: 41,2467 30146 CA NNADTEM
015828,001276: 41,2470 65026 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015829,001277: 41,2471 00006 EXTEND
015830,001278: 41,2472 12504 BZF CHANDSP
015831,001279: 41,2473 50140 INDEX MIXBR
015832,001280: 41,2474 02474 TC +0
015833,001281: 41,2475 02477 TC +2 # NORMAL
015834,001282: 41,2476 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
015835,001283: 41,2477 03023 TC SFRUTNOR
015836,001284: 41,2500 02261 TC DPTEST
015837,001285: 41,2501 00001 TC L # NO DP
015838,001286: 41,2502 24145 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
015839,001287: 41,2503 00001 TC L
015840,001288:
015841,001289:
015842,001290: 41,2504 00006 CHANDSP EXTEND
015843,001291: 41,2505 51020 INDEX NOUNCADR
015844,001292: 41,2506 00000 READ 0
015845,001293: 41,2507 40000 CS A
015846,001294: 41,2510 12371 TCF DSPCOM1
015847,001295:
015848,001296:
015849,001297: 41,2511 00147 COMPICK ADRES NNTYPTEM
015850,001298: 41,2512 00146 ADRES NNADTEM
015851,001299:
015852,001300: 41,2513 50140 GETCOMP INDEX MIXBR # NORMAL MIXED
015853,001301: 41,2514 32510 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
015854,001302: 41,2515 50000 INDEX A
015855,001303: 41,2516 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
015856,001304: 41,2517 74362 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
015857,001305: 41,2520 00002 TC Q
015858,001306:
015859,001307:
015860,001308: 41,2521 02513 DECDSP TC GETCOMP
015861,001309: 41,2522 04343 TC LEFT5
015862,001310: 41,2523 76221 MASK THREE
015863,001311: 41,2524 54117 TS DECOUNT # COMP NUMBER INTO DECOUNT
015864,001312: 41,2525 54122 DSPDCGET TS DECTEM # PICKS UP DATA
015865,001313: 41,2526 60145 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
015866,001314: 41,2527 50000 INDEX A
015867,001315: 41,2530 40000 CS 0
015868,001316: 41,2531 50122 INDEX DECTEM
015869,001317: 41,2532 57004 XCH XREG # CANT USE BUF SINCE DMP USES IT.
015870,001318: 41,2533 10122 CCS DECTEM
015871,001319: 41,2534 02525 TC DSPDCGET # MORE TO GET
015872,001320: 41,2535 35030 DSPDCPUT CAF ZERO # DISPLAYS DATA
015873,001321: 41,2536 54155 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
015874,001322: 41,2537 54156 TS MPAC +2
015875,001323: 41,2540 50117 INDEX DECOUNT
015876,001324: 41,2541 34331 CAF R1D1
015877,001325: 41,2542 55000 TS DSPCOUNT
015878,001326: 41,2543 50117 INDEX DECOUNT
015879,001327: 41,2544 41004 CS XREG
015880,001328: 41,2545 54154 TS MPAC
015881,001329: 41,2546 03044 TC SFCONUM # 2X ( SF CON NUMB ) IN A
015882,001330: 41,2547 54123 TS SFTEMP1
015883,001331: 41,2550 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
015884,001332: 41,2551 32563 DCA GTSFOUTL # READING ROUTINE.
015885,001333: 41,2552 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
015886,001334: 41,2553 50140 INDEX MIXBR
015887,001335: 41,2554 02554 TC +0
015888,001336: 41,2555 02560 TC DSPSFNOR
015889,001337: 41,2556 03031 TC SFRUTMIX
015890,001338: 41,2557 02573 TC DECDSP3
015891,001339:
015892,001340: 41,2560 03023 DSPSFNOR TC SFRUTNOR
015893,001341: 41,2561 02573 TC DECDSP3
015894,001342:
015895,001343: 41,2562 1000 EBANK= DSPCOUNT
015896,001344: 41,2562 02122 64102 GTSFOUTL 2CADR GTSFOUT
015897,001345:
015898,001346:
015899,001347:
015900,001348: 41,2564 04655 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
015901,001349: 41,2565 61341 CADR DSPDECWD
015902,001350: 41,2566 10117 CCS DECOUNT
015903,001351: 41,2567 02571 TC +2
015904,001352: 41,2570 00136 TC ENTEXIT
015905,001353: 41,2571 54117 TS DECOUNT
015906,001354: 41,2572 02535 TC DSPDCPUT # MORE TO DISPLAY
015907,001355:
015908,001356: 41,2573 50000 DECDSP3 INDEX A
015909,001357: 41,2574 32576 CAF SFOUTABR
015910,001358: 41,2575 04677 TC BANKJUMP
015911,001359:
015912,001360: 41,2576 61531 SFOUTABR CADR PREDSPAL # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
015913,001361: 41,2577 62564 CADR DSPDCEND
015914,001362: 41,2600 60730 CADR DEGOUTSF
015915,001363: 41,2601 61012 CADR ARTOUTSF
015916,001364: 41,2602 61023 CADR DP1OUTSF
015917,001365: 41,2603 61030 CADR DP2OUTSF
015918,001366: 41,2604 60750 CADR LRPOSOUT
015919,001367: 41,2605 61032 CADR DP3OUTSF
015920,001368: 41,2606 65205 CADR HMSOUT
015921,001369: 41,2607 65260 CADR M/SOUT
015922,001370: 41,2610 61030 CADR DP2OUTSF
015923,001371: 41,2611 61017 CADR AROUT1SF
015924,001372: 41,2612 61045 CADR 2INTOUT
015925,001373: 41,2613 60736 CADR 360-CDUO
015926,001374: 41,2614 ENDRTOUT EQUALS
015927,001375:
015928,001376:
015929,001377: # THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
015930,001378: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
015931,001379:
015932,001380: 40,2730 SETLOC BLANKCON +1
015933,001381:
015934,001382: 40,2730 COUNT* $$/PIN
015935,001383: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
015936,001384: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
015937,001385:
015938,001386: 40,2730 35030 DEGOUTSF CAF ZERO
015939,001387: 40,2731 54156 TS MPAC +2 # SET INDEX FOR FULL SCALE
015940,001388: 40,2732 02765 TC FIXRANGE
015941,001389: 40,2733 02735 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
015942,001390: 40,2734 02760 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
015943,001391: 40,2735 02776 TC DEGCOM
015944,001392:
015945,001393: # 360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
015946,001394: # GOES TO DEGOUTSF.
015947,001395:
015948,001396: 40,2736 02740 360-CDUO TC 360-CDU
015949,001397: 40,2737 02730 TC DEGOUTSF
015950,001398:
015951,001399: 40,2740 30154 360-CDU CA MPAC
015952,001400: 40,2741 75006 MASK POSMAX # IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
015953,001401: 40,2742 00006 EXTEND
015954,001402: 40,2743 12747 BZF 360-CDUE
015955,001403: 40,2744 40154 CS MPAC # COMPUTE 360 DEGREES MINUS ANGLE
015956,001404: 40,2745 65026 AD ONE
015957,001405: 40,2746 54154 TS MPAC
015958,001406: 40,2747 00002 360-CDUE TC Q
015959,001407:
015960,001408: # LRPOSOUT DISPLAYS +0,1,2,OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
015961,001409: # 01,00 RESPECTIVELY.
015962,001410:
015963,001411: 40,2750 00006 LRPOSOUT EXTEND
015964,001412: 40,2751 00033 READ CHAN33
015965,001413: 40,2752 00006 EXTEND
015966,001414: 40,2753 75015 MP BIT10 # BITS 7-6 TO BITS 2-1
015967,001415: 40,2754 40000 COM
015968,001416: 40,2755 76221 MASK THREE
015969,001417: 40,2756 54154 TS MPAC
015970,001418: 40,2757 03012 TC ARTOUTSF # DISPLAY AS WHOLE
015971,001419:
015972,001420: 40,2760 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
015973,001421: 40,2761 50156 INDEX MPAC +2 # DP AUGMENTER CONSTANT
015974,001422: 40,2762 33007 DCA DEGTAB
015975,001423: 40,2763 52124 DXCH SFTEMP1
015976,001424: 40,2764 00002 TC Q
015977,001425:
015978,001426: 40,2765 10154 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
015979,001427: 40,2766 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
015980,001428: 40,2767 00002 TC Q # MASKING OUT THE SIGN BIT
015981,001429: 40,2770 12771 TCF +1
015982,001430:
015983,001431: 40,2771 45010 CS BIT15
015984,001432: 40,2772 70154 MASK MPAC
015985,001433: 40,2773 54154 TS MPAC
015986,001434: 40,2774 50002 INDEX Q
015987,001435: 40,2775 00001 TC 1
015988,001436:
015989,001437: 40,2776 00006 DEGCOM EXTEND # LOADS MULTIPLIER , DOES SHORTMP, AND
015990,001438: 40,2777 50156 INDEX MPAC +2 # ADDS AUGMENTER.
015991,001439: 40,3000 33007 DCA DEGTAB
015992,001440: 40,3001 52155 DXCH MPAC # ADJUSTED ANGLE IN A
015993,001441: 40,3002 07261 TC SHORTMP
015994,001442: 40,3003 52124 DXCH SFTEMP1
015995,001443: 40,3004 20155 DAS MPAC
015996,001444: 40,3005 03015 TC SCOUTEND
015997,001445:
015998,001446:
015999,001447: 40,3006 05605 DEGTAB OCT 05605 # HI PART OF .18
016000,001448: 40,3007 03656 OCT 03656 # LOW PART OF .18
016001,001449: 40,3010 16314 OCT 16314 # HI PART OF .45
016002,001450: 40,3011 31463 OCT 31463 # LO PART OF .45
016003,001451:
016004,001452: 40,3012 52124 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
016005,001453: 40,3013 52155 DXCH MPAC
016006,001454: 40,3014 04427 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
016007,001455: 40,3015 04674 SCOUTEND TC POSTJUMP
016008,001456: 40,3016 62564 CADR DSPDCEND
016009,001457:
016010,001458: 40,3017 52124 AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
016011,001459: 40,3020 52155 DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
016012,001460: 40,3021 04427 TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
016013,001461: 40,3022 03024 TC L14/OUT
016014,001462:
016015,001463:
016016,001464: 40,3023 03036 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
016017,001465: 40,3024 56156 L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
016018,001466: 40,3025 56155 XCH MPAC +1 # BY B14.
016019,001467: 40,3026 54154 TS MPAC
016020,001468: 40,3027 03015 TC SCOUTEND
016021,001469:
016022,001470:
016023,001471: 40,3030 03036 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
016024,001472: 40,3031 03015 TC SCOUTEND
016025,001473:
016026,001474:
016027,001475: 40,3032 03036 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016028,001476: 40,3033 36216 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
016029,001477: 40,3034 03266 TC TPLEFTN # SHIFT LEFT 7.
016030,001478: 40,3035 03015 TC SCOUTEND
016031,001479:
016032,001480: 40,3036 0162 MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
016033,001481:
016034,001482: 40,3036 56002 DPOUT XCH Q
016035,001483: 40,3037 54162 TS MPAC+6
016036,001484: 40,3040 03062 TC READLO # GET FRESH DATA FOR BOTH HI AND LO.
016037,001485: 40,3041 07231 TC TPAGREE # MAKE DP DATA AGREE
016038,001486: 40,3042 07057 TC DMP
016039,001487: 40,3043 00123 ADRES SFTEMP1
016040,001488: 40,3044 00162 TC MPAC+6
016041,001489: # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
016042,001490: # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
016043,001491: # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
016044,001492: # RXD1-RXD2.
016045,001493:
016046,001494: 40,3045 02651 2INTOUT TC 5BLANK # TO BLANK RXD3
016047,001495: 40,3046 02526 TC +ON # TURN ON + SIGN
016048,001496: 40,3047 30154 CA MPAC
016049,001497: 40,3050 03421 TC DSPDECVN # DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
016050,001498: 40,3051 46221 CS THREE
016051,001499: 40,3052 50117 INDEX DECOUNT
016052,001500: 40,3053 64331 AD R1D1 # RXD4
016053,001501: 40,3054 55000 TS DSPCOUNT
016054,001502: 40,3055 03062 TC READLO # GET 2ND INTEGER
016055,001503: 40,3056 30155 CA MPAC +1
016056,001504: 40,3057 03421 TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
016057,001505: 40,3060 04674 TC POSTJUMP
016058,001506: 40,3061 62566 CADR DSPDCEND +2
016059,001507:
016060,001508:
016061,001509: # READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
016062,001510: # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
016063,001511: # DOES NOT FORCE TPAGREE.
016064,001512:
016065,001513: 40,3062 56002 READLO XCH Q
016066,001514: 40,3063 54144 TS TEM4
016067,001515: 40,3064 50140 INDEX MIXBR
016068,001516: 40,3065 03065 TC +0
016069,001517: 40,3066 03102 TC RDLONOR
016070,001518: 40,3067 50117 INDEX DECOUNT
016071,001519: 40,3070 30150 CA IDAD1TEM # GET IDADDTAB ENTRY FOR COMP K OF NOUN.
016072,001520: 40,3071 74370 MASK LOW11 # E SUBK
016073,001521: 40,3072 04325 TC SETEBANK # SET EB, LEAVE EADRES IN A.
016074,001522: 40,3073 00006 READLO1 EXTEND # MIXED NORMAL
016075,001523: 40,3074 50000 INDEX A # C(ESUBK) C(E)
016076,001524: 40,3075 30001 DCA 0 # C((E SUBK)+1) C(E+1)
016077,001525: 40,3076 52155 DXCH MPAC
016078,001526: 40,3077 35030 CAF ZERO
016079,001527: 40,3100 54156 TS MPAC +2
016080,001528: 40,3101 00144 TC TEM4
016081,001529: 40,3102 30145 RDLONOR CA NOUNADD # E
016082,001530: 40,3103 03073 ENDRDLO TC READLO1
016083,001531:
016084,001532:
016085,001533: 42,3205 BANK 42
016086,001534: 42,2000 SETLOC PINBALL3
016087,001535: 42,2000 BANK
016088,001536:
016089,001537: 42,3205 COUNT* $$/PIN
016090,001538: 42,3205 04655 HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
016091,001539: 42,3206 61062 CADR READLO # MPAC+1.
016092,001540: 42,3207 07231 TC TPAGREE # MAKE DP DATA AGREE
016093,001541: 42,3210 03374 TC SEPSECNR # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
016094,001542: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
016095,001543: 42,3211 07057 TC DMP # USE ONLY FRACT SEC/60 MOD 60
016096,001544: 42,3212 03246 ADRES SECON2 # MULT BY .06
016097,001545: 42,3213 34333 CAF R3D1 # GIVES CENTI-SEC/10EXP5 MOD 60
016098,001546: 42,3214 55000 TS DSPCOUNT
016099,001547: 42,3215 04655 TC BANKCALL # DISPLAY SEC MOD 60
016100,001548: 42,3216 61341 CADR DSPDECWD
016101,001549: 42,3217 03412 TC SEPMIN # REMOVE REST OF SECONDS
016102,001550: 42,3220 33250 CAF MINCON2 # LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
016103,001551: 42,3221 56154 XCH MPAC # WHOLE HOURS IN MPAC.
016104,001552: 42,3222 55010 TS HITEMOUT # SAVE WHOLE HOURS.
016105,001553: 42,3223 33251 CAF MINCON2 +1
016106,001554: 42,3224 56155 XCH MPAC +1 # USE ONLY FRACT MIN/60 MOD 60
016107,001555: 42,3225 04427 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
016108,001556: # MULT BY .0006
016109,001557: 42,3226 34332 CAF R2D1 # GIVES MIN/10EXP5 MOD 60
016110,001558: 42,3227 55000 TS DSPCOUNT
016111,001559: 42,3230 04655 TC BANKCALL # DISPLAY MIN MOD 60
016112,001560: 42,3231 61341 CADR DSPDECWD
016113,001561: 42,3232 00006 EXTEND # MINUTES, SECONDS HAVE BEEN REMOVED
016114,001562: 42,3233 33255 DCA HRCON1
016115,001563: 42,3234 52155 DXCH MPAC
016116,001564: 42,3235 31010 CA HITEMOUT # USE WHOLE HOURS
016117,001565: 42,3236 04427 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
016118,001566: # MULT BY .16384
016119,001567: 42,3237 34331 CAF R1D1 # GIVES HOURS/10EXP5
016120,001568: 42,3240 55000 TS DSPCOUNT
016121,001569: 42,3241 04655 TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
016122,001570: 42,3242 61341 CADR DSPDECWD
016123,001571: 42,3243 00136 TC ENTEXIT
016124,001572:
016125,001573: 42,3244 25660 31742 SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
016126,001574:
016127,001575: 42,3246 01727 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
016128,001576: 42,3247 01217 OCT 01217
016129,001577: 42,3250 00011 MINCON2 OCT 00011 # .0006 FOR MINUTES DISLPAY
016130,001578: 42,3251 32445 OCT 32445
016131,001579: 42,3252 02104 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
016132,001580: 42,3253 10422 OCT 10422
016133,001581: 42,3254 05174 13261 HRCON1 2DEC .16384
016134,001582:
016135,001583: 42,3256 00000 OCT 00000
016136,001584: 42,3257 00062 RNDCON OCT 00062 # .5 SEC
016137,001585:
016138,001586:
016139,001587: 42,3260 04655 M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
016140,001588: 42,3261 61062 CADR READLO # MPAC+1.
016141,001589: 42,3262 07231 TC TPAGREE # MAKE DP DATA AGREE
016142,001590: 42,3263 10154 CCS MPAC # IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
016143,001591: 42,3264 03266 TC +2 # DISPLAY 59B59, WITH PROPER SIGN.
016144,001592: 42,3265 03317 TC M/SNORM # MPAC = +0. L/ 59M58.5S
016145,001593: 42,3266 63354 AD M/SCON1 # - HI PART OF (59M58.5S) +1 FOR CCS
016146,001594: 42,3267 10000 CCS A # MAG OF MPAC - HI PART OF (59M58.5S)
016147,001595: 42,3270 03303 TC M/SLIMIT # G/ 59M58.5S
016148,001596: 42,3271 03317 TC M/SNORM # ORIGINAL MPAC = -0. L/ 59M58.5S
016149,001597: 42,3272 03317 TC M/SNORM # L/ 59M58.5S
016150,001598: 42,3273 10155 CCS MPAC +1 # MAG OF MPAC = HI PART OF 59M58.5S
016151,001599: 42,3274 03276 TC +2
016152,001600: 42,3275 03317 TC M/SNORM # MPAC+1 = +0. L/ 59M58.5S
016153,001601: 42,3276 63355 AD M/SCON2 # - LO PART OF (59M58.5S) +1 FOR CCS
016154,001602: 42,3277 10000 CCS A # MAG OF MPAC+1 - LO PART OF (59M58.5S)
016155,001603: 42,3300 03303 TC M/SLIMIT # G/ 59M58.5S
016156,001604: 42,3301 03317 TC M/SNORM # ORIGINAL MPAC+1 = -0. L/ 59M58.5S
016157,001605: 42,3302 03317 TC M/SNORM # L/ 59M58.5S
016158,001606: 42,3303 10154 M/SLIMIT CCS MPAC # = 59M58.5S LIMIT
016159,001607: 42,3304 33357 CAF M/SCON3 # MPAC CANNOT BE +/- 0 AT THIS POINT.
016160,001608: 42,3305 03314 TC +LIMIT # FORCE MPAC, MPAC+1 TO +/- 59M59.5S
016161,001609: 42,3306 43357 CS M/SCON3
016162,001610: 42,3307 54154 TS MPAC # WILL DISPLAY 59M59S IN DSPDECNR
016163,001611: 42,3310 43360 CS M/SCON3 +1
016164,001612: 42,3311 54155 LIMITCOM TS MPAC +1
016165,001613: 42,3312 33356 CAF NORMADR # SET RETURN TO M/SNORM+1.
016166,001614: 42,3313 03375 TC SEPSECNR +1
016167,001615: 42,3314 54154 +LIMIT TS MPAC
016168,001616: 42,3315 33360 CAF M/SCON3 +1
016169,001617: 42,3316 03311 TC LIMITCOM
016170,001618: 42,3317 03361 M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
016171,001619: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
016172,001620: 42,3320 33352 CAF HISECON # USE ONLY FRACT SEC/60 MOD 60
016173,001621: 42,3321 07261 TC SHORTMP # MULT BY .6 + 2EXP-14
016174,001622: 42,3322 46221 CS THREE # GIVES SEC/100 MOD 60
016175,001623: 42,3323 27000 ADS DSPCOUNT # DSPCOUNT ALREADY SET TO RXD1
016176,001624: 42,3324 04655 TC BANKCALL # DISPLAY SEC MOD 60 IN D4D5.
016177,001625: 42,3325 61401 CADR DSPDC2NR
016178,001626: 42,3326 35030 CAF ZERO
016179,001627: 42,3327 54124 TS CODE
016180,001628: 42,3330 45025 CS TWO
016181,001629: 42,3331 50117 INDEX DECOUNT
016182,001630: 42,3332 64331 AD R1D1 # RXD3
016183,001631: 42,3333 54143 TS COUNT
016184,001632: 42,3334 04655 TC BANKCALL # BLANK MIDDLE CHAR
016185,001633: 42,3335 61435 CADR DSPIN
016186,001634: 42,3336 03412 TC SEPMIN # REMOVE REST OF SECONDS
016187,001635: 42,3337 56155 XCH MPAC +1 # LEAVE FRACT MIN/60 IN MPAC+1
016188,001636: 42,3340 00006 EXTEND # USE ONLY FRACT MIN/60 MOD 60
016189,001637: 42,3341 73353 MP HIMINCON # MULT BY .6 + 2EXP-7
016190,001638: 42,3342 52155 DXCH MPAC # GIVES MIN/100 MOD 60
016191,001639: 42,3343 50117 INDEX DECOUNT
016192,001640: 42,3344 34331 CAF R1D1 # RXD1
016193,001641: 42,3345 55000 TS DSPCOUNT
016194,001642: 42,3346 04655 TC BANKCALL # DISPLAY MIN MOD 60 IN D1D2.
016195,001643: 42,3347 61401 CADR DSPDC2NR
016196,001644: 42,3350 04674 TC POSTJUMP
016197,001645: 42,3351 62566 CADR DSPDCEND +2
016198,001646:
016199,001647: 42,3352 23147 HISECON OCT 23147 # .6 + 2EXP-14
016200,001648: 42,3353 23346 HIMINCON OCT 23346 # .6 + 2EXP-7
016201,001649:
016202,001650: 42,3354 77753 M/SCON1 OCT 77753 # - HI PART OF (59M58.5S) +1
016203,001651: 42,3355 41126 M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
016204,001652: 42,3356 03320 NORMADR ADRES M/SNORM +1
016205,001653: 42,3357 00025 M/SCON3 OCT 00025 # 59M 59.5S
016206,001654: 42,3360 37016 OCT 37016
016207,001655:
016208,001656:
016209,001657: 42,3361 10155 SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
016210,001658: 42,3362 13371 TCF POSEC # IF -, ROUND BY SUBTRACTING .5 SEC
016211,001659: 42,3363 13371 TCF POSEC # FINDS TIME IN MPAC, MPAC+1
016212,001660: 42,3364 13365 TCF +1 # ROUNDS OFF BY +/- .5 SEC
016213,001661: 42,3365 00006 EXTEND # LEAVES WHOLE MIN IN BIT13 OF
016214,001662: 42,3366 43257 DCS RNDCON -1 # LOTEMOUT AND ABOVE.
016215,001663: 42,3367 20155 SEPSEC1 DAS MPAC # LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
016216,001664: 42,3370 13374 TCF SEPSECNR
016217,001665: 42,3371 00006 POSEC EXTEND
016218,001666: 42,3372 33257 DCA RNDCON -1
016219,001667: 42,3373 13367 TCF SEPSEC1
016220,001668: 42,3374 56002 SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
016221,001669: 42,3375 54144 TS SEPSCRET
016222,001670: 42,3376 07057 TC DMP # MULT BY 2EXP12/6000
016223,001671: 42,3377 03244 ADRES SECON1 # GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
016224,001672: 42,3400 00006 EXTEND # AND BELOW.
016225,001673: 42,3401 30155 DCA MPAC # SAVE MINUTES AND HOURS
016226,001674: 42,3402 53011 DXCH HITEMOUT
016227,001675: 42,3403 04416 TC TPSL1
016228,001676: 42,3404 04416 TC TPSL1 # GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
016229,001677: 42,3405 35030 CAF ZERO
016230,001678: 42,3406 56156 XCH MPAC +2 # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
016231,001679: 42,3407 56155 XCH MPAC +1
016232,001680: 42,3410 56154 XCH MPAC
016233,001681: 42,3411 00144 TC SEPSCRET
016234,001682:
016235,001683:
016236,001684: 42,3412 56002 SEPMIN XCH Q # FINDS WHOLE MINUTES IN BIT13
016237,001685: 42,3413 54144 TS SEPMNRET # OF LOTEMOUT AND ABOVE.
016238,001686: 42,3414 31011 CA LOTEMOUT # REMOVES REST OF SECONDS.
016239,001687: 42,3415 00006 EXTEND # LEAVES FRACT MIN/60 IN MPAC+1.
016240,001688: 42,3416 75024 MP BIT3 # LEAVES WHOLE HOURS IN MPAC.
016241,001689: 42,3417 00006 EXTEND # SR 12, THROW AWAY LP.
016242,001690: 42,3420 75012 MP BIT13 # SR 2, TAKE FROM LP. = SL 12.
016243,001691: 42,3421 22155 LXCH MPAC +1 # THIS FORCES BITS 12-1 TO 0 IF +,
016244,001692: # FORCES BITS 12-1 TO 1 IF -.
016245,001693: 42,3422 31010 CA HITEMOUT
016246,001694: 42,3423 54154 TS MPAC
016247,001695: 42,3424 07057 TC DMP # MULT BY 1/15
016248,001696: 42,3425 03252 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
016249,001697: 42,3426 00144 ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
016250,001698:
016251,001699:
016252,001700: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
016253,001701: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
016254,001702: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
016255,001703: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
016256,001704: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
016257,001705: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
016258,001706:
016259,001707:
016260,001708: 40,3104 SETLOC ENDRDLO +1
016261,001709:
016262,001710: 40,3104 COUNT* $$/PIN
016263,001711: 40,3104 50140 DSPDPDEC INDEX MIXBR
016264,001712: 40,3105 03105 TC +0
016265,001713: 40,3106 03110 TC +2 # NORMAL NOUN
016266,001714: 40,3107 03533 TC DSPALARM
016267,001715: 40,3110 00006 EXTEND
016268,001716: 40,3111 50145 INDEX NOUNADD
016269,001717: 40,3112 30001 DCA 0
016270,001718: 40,3113 52155 DXCH MPAC
016271,001719: 40,3114 34331 CAF R1D1
016272,001720: 40,3115 55000 TS DSPCOUNT
016273,001721: 40,3116 35030 CAF ZERO
016274,001722: 40,3117 54156 TS MPAC +2
016275,001723: 40,3120 07231 TC TPAGREE
016276,001724: 40,3121 03406 TC DSP2DEC
016277,001725: 40,3122 00136 ENDDPDEC TC ENTEXIT
016278,001726:
016279,001727: # LOAD VERBS IF ALARM CONDITION IS DETECTED DURING EXECUTE,
016280,001728: # CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
016281,001729: # DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
016282,001730: # TO EXECUTE OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY 1) DECIMAL MACHINE
016283,001731: # CADR 2) MIXTURE OF OCTAL/DECIMAL DATA 3) OCTAL DATA INTO DECIMAL
016284,001732: # ONLY NOUN 4) DEC DATA INTO OCT ONLY NOUN 5) DATA TOO LARGE FOR SCALE
016285,001733: # 6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
016286,001734: # AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
016287,001735: # ENTER OF CADR.
016288,001736:
016289,001737:
016290,001738: 41,2614 SETLOC ENDRTOUT
016291,001739:
016292,001740: 41,2614 COUNT* $$/PIN
016293,001741: 41,2614 45025 ABCLOAD CS TWO
016294,001742: 41,2615 02424 TC COMPTEST
016295,001743: 41,2616 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
016296,001744: 41,2617 33003 CAF VBSP1LD
016297,001745: 41,2620 02337 TC UPDATVB -1
016298,001746: 41,2621 02303 TC REQDATX
016299,001747: 41,2622 33004 CAF VBSP2LD
016300,001748: 41,2623 02337 TC UPDATVB -1
016301,001749: 41,2624 02305 TC REQDATY
016302,001750: 41,2625 33005 CAF VBSP3LD
016303,001751: 41,2626 02337 TC UPDATVB -1
016304,001752: 41,2627 02307 TC REQDATZ
016305,001753:
016306,001754:
016307,001755: 41,2630 46216 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
016308,001756: 41,2631 03006 TC ALLDC/OC # ALL DEC OR ALL OCT.
016309,001757: 41,2632 00006 EXTEND
016310,001758: 41,2633 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
016311,001759: 41,2634 52006 DXCH Z # ROUTINE.
016312,001760: 41,2635 35030 CAF ZERO # X COMP
016313,001761: 41,2636 03072 TC PUTCOM
016314,001762: 41,2637 50145 INDEX NOUNADD
016315,001763: 41,2640 54000 TS 0
016316,001764: 41,2641 35026 CAF ONE # Y COMP
016317,001765: 41,2642 03072 TC PUTCOM
016318,001766: 41,2643 50145 INDEX NOUNADD
016319,001767: 41,2644 54001 TS 1
016320,001768: 41,2645 35025 CAF TWO # Z COMP
016321,001769: 41,2646 03072 TC PUTCOM
016322,001770: 41,2647 50145 INDEX NOUNADD
016323,001771: 41,2650 54002 TS 2
016324,001772: 41,2651 45032 CS SEVEN # IF NOUN 7 HAS JUST BEEN LOADED, SET
016325,001773: 41,2652 61003 AD NOUNREG # FLAG BITS AS SPECIFIED.
016326,001774: 41,2653 00006 EXTEND
016327,001775: 41,2654 12656 BZF +2
016328,001776: 41,2655 02773 TC LOADLV
016329,001777: 41,2656 31004 CA XREG # ECADR OF FLAG WORD.
016330,001778: 41,2657 04316 TC SETNCADR +1 # SET EBANK, NOUNADD.
016331,001779: 41,2660 31006 CA ZREG # ZERO TO RESET BITS, NON-ZERO TO SET BITS
016332,001780: 41,2661 00004 INHINT
016333,001781: 41,2662 00006 EXTEND
016334,001782: 41,2663 12672 BZF BITSOFF
016335,001783: 41,2664 50145 INDEX NOUNADD
016336,001784: 41,2665 40000 CS 0
016337,001785: 41,2666 71005 MASK YREG # BITS TO BE PROCESSED.
016338,001786: 41,2667 50145 INDEX NOUNADD
016339,001787: 41,2670 26000 ADS 0 # SET BITS.
016340,001788: 41,2671 02677 TC BITSOFF1
016341,001789: 41,2672 41005 BITSOFF CS YREG # BITS TO BE PROCESSED.
016342,001790: 41,2673 50145 INDEX NOUNADD
016343,001791: 41,2674 70000 MASK 0
016344,001792: 41,2675 50145 INDEX NOUNADD
016345,001793: 41,2676 54000 TS 0 # RESET BITS.
016346,001794: 41,2677 00003 BITSOFF1 RELINT
016347,001795: 41,2700 02773 TC LOADLV
016348,001796:
016349,001797: 41,2701 45026 ABLOAD CS ONE
016350,001798: 41,2702 02424 TC COMPTEST
016351,001799: 41,2703 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
016352,001800: 41,2704 33003 CAF VBSP1LD
016353,001801: 41,2705 02337 TC UPDATVB -1
016354,001802: 41,2706 02303 TC REQDATX
016355,001803: 41,2707 33004 CAF VBSP2LD
016356,001804: 41,2710 02337 TC UPDATVB -1
016357,001805: 41,2711 02305 TC REQDATY
016358,001806: 41,2712 45031 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
016359,001807: 41,2713 03006 TC ALLDC/OC # ALL DEC OR ALL OCT.
016360,001808: 41,2714 00006 EXTEND
016361,001809: 41,2715 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
016362,001810: 41,2716 52006 DXCH Z # ROUTINE.
016363,001811: 41,2717 35030 CAF ZERO # X COMP
016364,001812: 41,2720 03072 TC PUTCOM
016365,001813: 41,2721 50145 INDEX NOUNADD
016366,001814: 41,2722 54000 TS 0
016367,001815: 41,2723 35026 CAF ONE # Y COMP
016368,001816: 41,2724 03072 TC PUTCOM
016369,001817: 41,2725 50145 INDEX NOUNADD
016370,001818: 41,2726 54001 TS 1
016371,001819: 41,2727 02773 TC LOADLV
016372,001820:
016373,001821: 41,2730 02303 ALOAD TC REQDATX
016374,001822: 41,2731 00006 EXTEND
016375,001823: 41,2732 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
016376,001824: 41,2733 52006 DXCH Z # ROUTINE.
016377,001825: 41,2734 35030 CAF ZERO # X COMP
016378,001826: 41,2735 03072 TC PUTCOM
016379,001827: 41,2736 50145 INDEX NOUNADD
016380,001828: 41,2737 54000 TS 0
016381,001829: 41,2740 02773 TC LOADLV
016382,001830:
016383,001831: 41,2741 45026 BLOAD CS ONE
016384,001832: 41,2742 02424 TC COMPTEST
016385,001833: 41,2743 35010 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
016386,001834: 41,2744 55016 TS CLPASS
016387,001835: 41,2745 02305 TC REQDATY
016388,001836: 41,2746 00006 EXTEND
016389,001837: 41,2747 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
016390,001838: 41,2750 52006 DXCH Z # ROUTINE.
016391,001839: 41,2751 35026 CAF ONE
016392,001840: 41,2752 03072 TC PUTCOM
016393,001841: 41,2753 50145 INDEX NOUNADD
016394,001842: 41,2754 54001 TS 1
016395,001843: 41,2755 02773 TC LOADLV
016396,001844:
016397,001845: 41,2756 45025 CLOAD CS TWO
016398,001846: 41,2757 02424 TC COMPTEST
016399,001847: 41,2760 35010 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
016400,001848: 41,2761 55016 TS CLPASS
016401,001849: 41,2762 02307 TC REQDATZ
016402,001850: 41,2763 00006 EXTEND
016403,001851: 41,2764 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
016404,001852: 41,2765 52006 DXCH Z # ROUTINE.
016405,001853: 41,2766 35025 CAF TWO
016406,001854: 41,2767 03072 TC PUTCOM
016407,001855: 41,2770 50145 INDEX NOUNADD
016408,001856: 41,2771 54002 TS 2
016409,001857: 41,2772 02773 TC LOADLV
016410,001858:
016411,001859: 41,2773 35030 LOADLV CAF ZERO
016412,001860: 41,2774 55001 TS DECBRNCH
016413,001861: 41,2775 45030 CS ZERO
016414,001862: 41,2776 55015 TS LOADSTAT
016415,001863: 41,2777 44372 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
016416,001864: 41,3000 55000 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
016417,001865: 41,3001 04674 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
016418,001866: 41,3002 61651 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
016419,001867:
016420,001868: 41,3003 00025 VBSP1LD DEC 21 B-14 # VB21 = ALOAD
016421,001869: 41,3004 00026 VBSP2LD DEC 22 B-14 # VB22 = BLOAD
016422,001870: 41,3005 00027 VBSP3LD DEC 23 B-14 # VB23 = CLOAD
016423,001871:
016424,001872:
016425,001873: 41,3006 54117 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
016426,001874: 41,3007 41001 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
016427,001875: 41,3010 54021 TS SR
016428,001876: 41,3011 40021 CS SR
016429,001877: 41,3012 40021 CS SR # SHIFTED RIGHT 2
016430,001878: 41,3013 10000 CCS A # DEC COMP BITS IN LOW 3
016431,001879: 41,3014 13016 TCF +2 # SOME ONES IN LOW 3
016432,001880: 41,3015 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
016433,001881: 41,3016 60117 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
016434,001882: 41,3017 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
016435,001883: 41,3020 13022 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
016436,001884: 41,3021 04157 TC ALMCYCLE # ALARM AND RECYCLE.
016437,001885: 41,3022 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
016438,001886:
016439,001887:
016440,001888: 41,3023 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
016441,001889: 41,3024 54114 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
016442,001890: 41,3025 34361 CAF MID5
016443,001891: 41,3026 70147 MASK NNTYPTEM
016444,001892: 41,3027 04334 TC RIGHT5
016445,001893: 41,3030 00114 TC EXITEM # SF ROUTINE NUMBER IN A
016446,001894:
016447,001895: 41,3031 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
016448,001896: 41,3032 54114 TS EXITEM
016449,001897: 41,3033 50117 INDEX DECOUNT
016450,001898: 41,3034 33063 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
016451,001899: 41,3035 54001 TS L
016452,001900: 41,3036 50117 INDEX DECOUNT
016453,001901: 41,3037 34360 CAF LOW5 # LOW5, MID5, OR HI5 IN A
016454,001902: 41,3040 70153 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
016455,001903: 41,3041 50001 INDEX L
016456,001904: 41,3042 00000 TC 0
016457,001905: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
016458,001906: 41,3043 00114 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
016459,001907:
016460,001908: 41,3044 56002 SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER)
016461,001909: 41,3045 54114 TS EXITEM
016462,001910: 41,3046 50140 INDEX MIXBR
016463,001911: 41,3047 03047 TC +0
016464,001912: 41,3050 03066 TC CONUMNOR # NORMAL NOUN
016465,001913: 41,3051 50117 INDEX DECOUNT # MIXED NOUN
016466,001914: 41,3052 33063 CAF DISPLACE
016467,001915: 41,3053 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
016468,001916: 41,3054 50117 INDEX DECOUNT
016469,001917: 41,3055 34360 CAF LOW5
016470,001918: 41,3056 70147 MASK NNTYPTEM
016471,001919: 41,3057 50001 INDEX L
016472,001920: 41,3060 00000 TC 0
016473,001921: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
016474,001922: 41,3061 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
016475,001923: 41,3062 00114 TC EXITEM
016476,001924:
016477,001925: 41,3063 03022 DISPLACE TC GOQ
016478,001926: 41,3064 04334 TC RIGHT5
016479,001927: 41,3065 04343 TC LEFT5
016480,001928:
016481,001929: 41,3066 34360 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
016482,001930: 41,3067 70147 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
016483,001931: 41,3070 60000 DOUBLE
016484,001932: 41,3071 00114 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
016485,001933:
016486,001934:
016487,001935: 41,3072 54117 PUTCOM TS DECOUNT
016488,001936: 41,3073 56002 XCH Q
016489,001937: 41,3074 54115 TS DECRET
016490,001938: 41,3075 35030 CAF ZERO
016491,001939: 41,3076 54162 TS MPAC+6
016492,001940: 41,3077 50117 INDEX DECOUNT
016493,001941: 41,3100 57007 XCH XREGLP
016494,001942: 41,3101 54155 TS MPAC +1
016495,001943: 41,3102 50117 INDEX DECOUNT
016496,001944: 41,3103 57004 XCH XREG
016497,001945: 41,3104 54154 TS MPAC
016498,001946: 41,3105 50140 INDEX MIXBR
016499,001947: 41,3106 03106 TC +0
016500,001948: 41,3107 03134 TC PUTNORM # NORMAL NOUN
016501,001949: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
016502,001950: 41,3110 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
016503,001951: 41,3111 30150 CA IDAD1TEM # OF NOUN.
016504,001952: 41,3112 74370 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
016505,001953: 41,3113 04315 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
016506,001954: 41,3114 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
016507,001955: 41,3115 60117 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
016508,001956: 41,3116 54145 TS NOUNADD
016509,001957: 41,3117 11001 CCS DECBRNCH
016510,001958: 41,3120 03167 TC PUTDECSF # + DEC
016511,001959: 41,3121 02452 TC DCTSTCYC # +0 OCTAL
016512,001960: 41,3122 03031 TC SFRUTMIX # TEST IF DEC ONLY BIT = 1. IF SO,
016513,001961: 41,3123 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
016514,001962: 41,3124 03152 TC PUTCOM2 # NO DP
016515,001963: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
016516,001964: # +0 INTO MAJOR PART. SET NOUNADD FOR
016517,001965: # LOADING OCTAL WORD INTO MINOR PART.
016518,001966: 41,3125 24145 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
016519,001967: 41,3126 30145 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
016520,001968: 41,3127 26117 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
016521,001969: 41,3130 35030 CAF ZERO # NOUNADD SET FOR MINOR PART
016522,001970: 41,3131 50117 INDEX DECOUNT
016523,001971: 41,3132 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
016524,001972: 41,3133 03152 TC PUTCOM2
016525,001973:
016526,001974: 41,3134 04323 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
016527,001975: 41,3135 11001 CCS DECBRNCH
016528,001976: 41,3136 03167 TC PUTDECSF # + DEC
016529,001977: 41,3137 02452 TC DCTSTCYC # +0 OCTAL
016530,001978: 41,3140 03023 TC SFRUTNOR # TEST IF DEC ONLY BIT = 1. IF SO,
016531,001979: 41,3141 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
016532,001980: 41,3142 03146 TC PUTCOM2 -4 # NO DP
016533,001981: 41,3143 35030 CAF ZERO # DP
016534,001982: 41,3144 54117 TS DECOUNT
016535,001983: 41,3145 03125 TC PUTDPCOM
016536,001984:
016537,001985: 41,3146 30146 CA NNADTEM
016538,001986: 41,3147 65026 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
016539,001987: 41,3150 00006 EXTEND
016540,001988: 41,3151 13156 BZF CHANLOAD
016541,001989: 41,3152 56154 PUTCOM2 XCH MPAC
016542,001990: 41,3153 00115 TC DECRET
016543,001991:
016544,001992: 41,3154 1000 EBANK= DSPCOUNT
016545,001993: 41,3154 02130 64102 GTSFINLC 2CADR GTSFIN
016546,001994:
016547,001995:
016548,001996:
016549,001997: 41,3156 45032 CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
016550,001998: 41,3157 61020 AD NOUNCADR
016551,001999: 41,3160 00006 EXTEND
016552,002000: 41,3161 12773 BZF LOADLV
016553,002001: 41,3162 30154 CA MPAC
016554,002002: 41,3163 00006 EXTEND
016555,002003: 41,3164 51020 INDEX NOUNCADR
016556,002004: 41,3165 01000 WRITE 0
016557,002005: 41,3166 02773 TC LOADLV
016558,002006:
016559,002007:
016560,002008: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
016561,002009:
016562,002010: 41,3167 03044 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
016563,002011: 41,3170 54123 TS SFTEMP1
016564,002012: 41,3171 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
016565,002013: 41,3172 33155 DCA GTSFINLC # READING ROUTINE.
016566,002014: 41,3173 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
016567,002015: 41,3174 50140 INDEX MIXBR
016568,002016: 41,3175 03175 TC +0
016569,002017: 41,3176 03201 TC PUTSFNOR
016570,002018: 41,3177 03031 TC SFRUTMIX
016571,002019: 41,3200 03202 TC PUTDCSF2
016572,002020: 41,3201 03023 PUTSFNOR TC SFRUTNOR
016573,002021:
016574,002022: 41,3202 50000 PUTDCSF2 INDEX A
016575,002023: 41,3203 33205 CAF SFINTABR
016576,002024: 41,3204 04677 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
016577,002025: 41,3205 62350 SFINTABR CADR GOALMCYC # ALARM AND RECYCLE IF DEC LOAD
016578,002026: # WITH OCTAL ONLY NOUN.
016579,002027: 41,3206 61221 CADR BINROUND
016580,002028: 41,3207 61123 CADR DEGINSF
016581,002029: 41,3210 61211 CADR ARTHINSF
016582,002030: 41,3211 61227 CADR DPINSF
016583,002031: 41,3212 61254 CADR DPINSF2
016584,002032: 41,3213 61533 CADR DSPALARM # LRPOSOUT CANT BE LOADED.
016585,002033: 41,3214 61227 CADR DPINSF # SAME AS ARITHDP1
016586,002034: 41,3215 65427 CADR HMSIN
016587,002035: 41,3216 61533 CADR DSPALARM # MIN/SEC CANT BE LOADED.
016588,002036: 41,3217 61261 CADR DPINSF4
016589,002037: 41,3220 61224 CADR ARTIN1SF
016590,002038: 41,3221 61533 CADR DSPALARM # 2INTOUT CANT BE LOADED.
016591,002039: 41,3222 61123 CADR DEGINSF # TESTS AT END FOR 360-CDU
016592,002040: 41,3223 ENDRUTIN EQUALS
016593,002041:
016594,002042:
016595,002043: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
016596,002044: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
016597,002045:
016598,002046:
016599,002047: 40,3123 SETLOC ENDDPDEC +1
016600,002048:
016601,002049: 40,3123 COUNT* $$/PIN
016602,002050: # DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
016603,002051:
016604,002052: 40,3123 07057 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
016605,002053: 40,3124 03207 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
016606,002054: 40,3125 10155 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
016607,002055: 40,3126 35014 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
016608,002056: 40,3127 03131 TC +2 # WHEN SHIFTED LEFT AND ALARM.
016609,002057: 40,3130 45014 CS BIT11
016610,002058: 40,3131 60155 AD MPAC +1
016611,002059: 40,3132 03300 TC 2ROUND +2
016612,002060: 40,3133 04416 TC TPSL1 # LEFT 1
016613,002061: 40,3134 04416 DEGINSF2 TC TPSL1 # LEFT 2
016614,002062: 40,3135 03307 TC TESTOFUF
016615,002063: 40,3136 04416 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
016616,002064: 40,3137 10154 CCS MPAC
016617,002065: 40,3140 03144 TC SIGNFIX # IF+, GO TO SIGNFIX
016618,002066: 40,3141 03144 TC SIGNFIX # IF +0, GO TO SIGNFIX
016619,002067: 40,3142 40000 COM # IF -, USE -MAGNITUDE +1
016620,002068: 40,3143 54154 TS MPAC # IF -0, USE +0
016621,002069: 40,3144 10162 SIGNFIX CCS MPAC+6
016622,002070: 40,3145 03203 TC SGNTO1 # IF OVERFLOW
016623,002071: 40,3146 03156 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
016624,002072: 40,3147 10154 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
016625,002073: 40,3150 05726 TC CCSHOLE
016626,002074: 40,3151 03201 TC NEG180
016627,002075: 40,3152 03153 TC +1
016628,002076: 40,3153 56154 XCH MPAC
016629,002077: 40,3154 75006 MASK POSMAX
016630,002078: 40,3155 54154 TS MPAC
016631,002079: 40,3156 50140 ENDSCALE INDEX MIXBR # IF ROUTINE NO. IS NOT CDU DEGREES,
016632,002080: 40,3157 03157 TC +0 # THEN THIS IS 360 - CDU DEGREES
016633,002081: 40,3160 03163 TC +3 # AND ANGLE IN MPAC MUST BE REPLACED
016634,002082: 40,3161 03173 TC SFMIXCAL # BY 360 DEGREES MINUS ITSELF.
016635,002083: 40,3162 03164 MIXBACK TC +2
016636,002084: 40,3163 03176 TC SFNORCAL
016637,002085: 40,3164 40000 NORBACK CS A
016638,002086: 40,3165 65025 AD BIT2
016639,002087: 40,3166 00006 EXTEND
016640,002088: 40,3167 13171 BZF +2
016641,002089: 40,3170 02740 TC 360-CDU
016642,002090: 40,3171 04674 ENDSCAL1 TC POSTJUMP
016643,002091: 40,3172 63152 CADR PUTCOM2
016644,002092:
016645,002093: 40,3173 04655 SFMIXCAL TC BANKCALL
016646,002094: 40,3174 63031 CADR SFRUTMIX
016647,002095: 40,3175 03162 TC MIXBACK
016648,002096:
016649,002097: 40,3176 04655 SFNORCAL TC BANKCALL
016650,002098: 40,3177 63023 CADR SFRUTNOR
016651,002099: 40,3200 03164 TC NORBACK
016652,002100:
016653,002101: 40,3201 45006 NEG180 CS POSMAX
016654,002102: 40,3202 03155 TC ENDSCALE -1
016655,002103:
016656,002104: 40,3203 40154 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
016657,002105: 40,3204 75006 MASK POSMAX
016658,002106: 40,3205 40000 CS A
016659,002107: 40,3206 03155 TC ENDSCALE -1
016660,002108:
016661,002109: 40,3207 26161 30707 DEGCON1 2DEC 5.555555555 B-3
016662,002110:
016663,002111:
016664,002112: 40,3211 07057 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016665,002113: 40,3212 00123 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
016666,002114: 40,3213 56156 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
016667,002115: 40,3214 56155 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
016668,002116: 40,3215 56154 XCH MPAC
016669,002117: 40,3216 00006 EXTEND
016670,002118: 40,3217 13221 BZF BINROUND
016671,002119: 40,3220 04157 TC ALMCYCLE # TOO LARGE A LOAD. ALARM AND RECYCLE.
016672,002120: 40,3221 03276 BINROUND TC 2ROUND
016673,002121: 40,3222 03307 TC TESTOFUF
016674,002122: 40,3223 03171 TC ENDSCAL1 # RETURNS IF NO OF/UF
016675,002123:
016676,002124: 40,3224 07057 ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016677,002125: 40,3225 00123 ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
016678,002126: 40,3226 03221 TC BINROUND
016679,002127:
016680,002128:
016681,002129: 40,3227 07057 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
016682,002130: 40,3230 00123 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
016683,002131: 40,3231 56156 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
016684,002132: 40,3232 60000 DOUBLE
016685,002133: 40,3233 54156 TS MPAC +2
016686,002134: 40,3234 35030 CAF ZERO
016687,002135: 40,3235 60155 AD MPAC +1
016688,002136: 40,3236 03300 TC 2ROUND +2
016689,002137: 40,3237 03307 TC TESTOFUF
016690,002138: 40,3240 50140 INDEX MIXBR # RETURNS IF NO OF/UF
016691,002139: 40,3241 03241 TC +0
016692,002140: 40,3242 03252 TC DPINORM
016693,002141: 40,3243 30117 CA DECOUNT # MIXED NOUN
016694,002142: 40,3244 60145 DPINCOM AD NOUNADD # MIXED NORMAL
016695,002143: 40,3245 54002 TS Q # E SUBK E
016696,002144: 40,3246 56155 XCH MPAC +1
016697,002145: 40,3247 50002 INDEX Q
016698,002146: 40,3250 54001 TS 1 # PLACE LOW PART IN
016699,002147: 40,3251 03171 TC ENDSCAL1 # (E SUBK) +1 MIXED
016700,002148:
016701,002149: 40,3252 35030 DPINORM CAF ZERO # E +1 NORMAL
016702,002150: 40,3253 03244 TC DPINCOM
016703,002151:
016704,002152:
016705,002153: 40,3254 07057 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016706,002154: 40,3255 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016707,002155: 40,3256 36216 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
016708,002156: 40,3257 03266 TC TPLEFTN # SHIFT LEFT 7.
016709,002157: 40,3260 03231 TC DPINSF +2
016710,002158:
016711,002159: 40,3261 07057 DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
016712,002160: 40,3262 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016713,002161: 40,3263 35025 CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
016714,002162: 40,3264 03266 TC TPLEFTN # SHIFT LEFT 3.
016715,002163: 40,3265 03231 TC DPINSF +2
016716,002164:
016717,002165:
016718,002166: 40,3266 56002 TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
016719,002167: 40,3267 54124 TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
016720,002168: 40,3270 56002 XCH Q # CALL WITH N-1 IN A.
016721,002169: 40,3271 54123 LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
016722,002170: 40,3272 04416 TC TPSL1
016723,002171: 40,3273 10123 CCS SFTEMP1
016724,002172: 40,3274 03271 TC LEFTNCOM
016725,002173: 40,3275 00124 TC SFTEMP2
016726,002174:
016727,002175:
016728,002176: 40,3276 56155 2ROUND XCH MPAC +1
016729,002177: 40,3277 60000 DOUBLE
016730,002178: 40,3300 54155 TS MPAC +1
016731,002179: 40,3301 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
016732,002180: 40,3302 60154 AD MPAC
016733,002181: 40,3303 54154 TS MPAC
016734,002182: 40,3304 00002 TC Q # IF MPAC DOES NOT OF/UF
016735,002183: 40,3305 54162 TS MPAC+6
016736,002184: 40,3306 00002 2RNDEND TC Q
016737,002185:
016738,002186:
016739,002187: 40,3307 10162 TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
016740,002188: 40,3310 04157 TC ALMCYCLE # OF ALARM AND RECYCLE.
016741,002189: 40,3311 00002 TC Q
016742,002190: 40,3312 04157 TC ALMCYCLE # UF ALARM AND RECYCLE.
016743,002191:
016744,002192:
016745,002193: 42,3427 SETLOC ENDSPMIN +1
016746,002194:
016747,002195: 42,3427 COUNT* $$/PIN
016748,002196: 42,3427 03550 HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
016749,002197: 42,3430 07057 TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
016750,002198: 42,3431 03511 ADRES WHOLECON # INTO MPAC, MPAC+1.
016751,002199: 42,3432 03520 TC RND/TST # ROUND OFF TO WHOLE HRS IN MPAC+1.
016752,002200: 42,3433 35030 CAF ZERO # ALARM IF MPAC NON ZERO (G/ 16383 ).
016753,002201: 42,3434 54156 TS MPAC +2
016754,002202: 42,3435 33513 CAF HRCON
016755,002203: 42,3436 54154 TS MPAC
016756,002204: 42,3437 33514 CAF HRCON +1
016757,002205: 42,3440 56155 XCH MPAC +1
016758,002206: 42,3441 07261 TC SHORTMP
016759,002207: 42,3442 03531 TC MPACTST # ALARM IF MPAC NON ZERO (G/ 745)
016760,002208: 42,3443 52156 DXCH MPAC +1 # STORE HOURS CONTRIBUTION
016761,002209: 42,3444 52124 DXCH HITEMIN
016762,002210: 42,3445 31005 CA YREG # PUT YREG, YREGLP INTO MPAC, +1.
016763,002211: 42,3446 23010 LXCH YREGLP
016764,002212: 42,3447 52155 DXCH MPAC
016765,002213: 42,3450 07057 TC DMP
016766,002214: 42,3451 03511 ADRES WHOLECON
016767,002215: 42,3452 03520 TC RND/TST # ROUND OFF TO WHOLE MIN IN MPAC+1
016768,002216: 42,3453 43516 CS 59MIN # ALARM IF MPAC NON ZERO (G/16383)
016769,002217: 42,3454 03536 TC SIZETST # ALARM IF MPAC+1 G/ 59MIN
016770,002218: 42,3455 56155 XCH MPAC +1
016771,002219: 42,3456 00006 EXTEND
016772,002220: 42,3457 73515 MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
016773,002221: 42,3460 20124 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
016774,002222: 42,3461 00006 EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
016775,002223: 42,3462 13464 BZF +2
016776,002224: 42,3463 04157 TC ALMCYCLE
016777,002225: 42,3464 31006 CA ZREG # PUT ZREG, ZREGLP INTO MPAC, +1.
016778,002226: 42,3465 23011 LXCH ZREGLP
016779,002227: 42,3466 52155 DXCH MPAC
016780,002228: 42,3467 07057 TC DMP
016781,002229: 42,3470 03511 ADRES WHOLECON
016782,002230: 42,3471 03520 TC RND/TST # ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
016783,002231: 42,3472 43517 CS 59.99SEC # ALARM IF MPAC NON ZERO (G/163.83 SEC)
016784,002232: 42,3473 03536 TC SIZETST # ALARM IF MPAC+1 G/59.99 SEC
016785,002233: 42,3474 52124 DXCH HITEMIN # ADD IN SECONDS CONTRIBUTION
016786,002234: 42,3475 20155 DAS MPAC # IF THIS DAS OVERFLOWS,
016787,002235: 42,3476 00006 EXTEND # G/ 745 HR, 39 MIN, 14.55 SEC.
016788,002236: 42,3477 13501 BZF +2
016789,002237: 42,3500 04157 TC ALMCYCLE # ALARM AND RECYCLE
016790,002238: 42,3501 35030 CAF ZERO
016791,002239: 42,3502 54156 TS MPAC +2
016792,002240: 42,3503 07231 TC TPAGREE
016793,002241: 42,3504 52155 DXCH MPAC
016794,002242: 42,3505 50145 INDEX NOUNADD
016795,002243: 42,3506 52001 DXCH 0
016796,002244: 42,3507 04674 TC POSTJUMP
016797,002245: 42,3510 62773 CADR LOADLV
016798,002246:
016799,002247: 42,3511 00006 WHOLECON OCT 00006 # (10EXP5/2EXP14)2EXP14
016800,002248: 42,3512 03240 OCT 03240
016801,002249: 42,3513 00025 HRCON OCT 00025 # 1 HOUR IN CENTI-SEC
016802,002250: 42,3514 37100 OCT 37100
016803,002251: 42,3515 13560 MINCON OCT 13560 # 1 MINUTE IN CENTI-SEC
016804,002252: 42,3516 00073 59MIN OCT 00073 # 59 AS WHOLE
016805,002253: 42,3517 13557 59.99SEC OCT 13557 # 5999 CENTI-SEC
016806,002254:
016807,002255:
016808,002256: 42,3520 56156 RND/TST XCH MPAC +2 # ROUNDS MPAC+2 INTO MPAC+1.
016809,002257: 42,3521 60000 DOUBLE # ALARMS IF MPAC NOT 0
016810,002258: 42,3522 54156 TS MPAC +2
016811,002259: 42,3523 35030 CAF ZERO
016812,002260: 42,3524 60155 AD MPAC +1
016813,002261: 42,3525 54155 TS MPAC +1
016814,002262: 42,3526 35030 CAF ZERO
016815,002263: 42,3527 60154 AD MPAC # CANT OVFLOW
016816,002264: 42,3530 56154 XCH MPAC
016817,002265: 42,3531 10154 MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
016818,002266: 42,3532 04157 TC ALMCYCLE # ALARM AND RECYCLE.
016819,002267: 42,3533 00002 TC Q
016820,002268: 42,3534 04157 TC ALMCYCLE # ALARM AND RECYCLE.
016821,002269: 42,3535 00002 TC Q
016822,002270:
016823,002271: 42,3536 54156 SIZETST TS MPAC +2 # CALLED WITH - CON IN A
016824,002272: 42,3537 10155 CCS MPAC +1 # GET MAG OF MPAC+1
016825,002273: 42,3540 65026 AD ONE
016826,002274: 42,3541 13543 TCF +2
016827,002275: 42,3542 65026 AD ONE
016828,002276: 42,3543 60156 AD MPAC +2
016829,002277: 42,3544 00006 EXTEND # MAG OF MPAC+1 - CON
016830,002278: 42,3545 63547 BZMF +2
016831,002279: 42,3546 04157 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
016832,002280: 42,3547 00002 TC Q # MAG OF MPAC+1 L/= CON
016833,002281:
016834,002282:
016835,002283: # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
016836,002284: # ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
016837,002285: 42,3550 43555 ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
016838,002286: 42,3551 71001 MASK DECBRNCH # GET BITS 3,4,5 OF DECBRNCH IN A
016839,002287: 42,3552 63555 AD OCT34BAR # BITS 3,4,5 OF DECBRNCH MUST ALL = 1
016840,002288: 42,3553 10000 CCS A
016841,002289: 42,3554 03560 TC FORCEV25
016842,002290: 42,3555 77743 OCT34BAR OCT 77743
016843,002291: 42,3556 03560 TC FORCEV25
016844,002292: 42,3557 00002 TC Q
016845,002293:
016846,002294: 42,3560 44113 FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
016847,002295: 42,3561 55042 TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
016848,002296: 42,3562 04157 TC ALMCYCLE # VERB. ALARM AND RECYCLE.
016849,002297: 42,3563 ENDHMSS EQUALS
016850,002298:
016851,002299: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
016852,002300: # VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
016853,002301: # ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
016854,002302: # THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
016855,002303: # HE HAS INITIATED THROUGH THE KEYBOARD).
016856,002304:
016857,002305: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
016858,002306: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
016859,002307: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
016860,002308: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
016861,002309: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
016862,002310: # INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
016863,002311: # MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
016864,002312:
016865,002313: # MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
016866,002314: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
016867,002315: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
016868,002316:
016869,002317: # NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
016870,002318: # VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
016871,002319:
016872,002320: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
016873,002321: # AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
016874,002322:
016875,002323: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
016876,002324: 41,3223 SETLOC ENDRUTIN
016877,002325:
016878,002326: 41,3223 COUNT* $$/PIN
016879,002327: 41,3223 43232 MONITOR CS BIT15/14
016880,002328: 41,3224 71020 MASK NOUNCADR
016881,002329: 41,3225 54155 MONIT1 TS MPAC +1 # TEMP STORAGE
016882,002330: 41,3226 40136 CS ENTEXIT
016883,002331: 41,3227 64231 AD ENDINST
016884,002332: 41,3230 10000 CCS A
016885,002333: 41,3231 03240 TC MONIT2
016886,002334: 41,3232 60000 BIT15/14 OCT 60000
016887,002335: 41,3233 03240 TC MONIT2
016888,002336: 41,3234 35011 CAF BIT14 # EXTERNALLY INITIATED MONITOR,
016889,002337: 41,3235 26155 ADS MPAC +1 # SET BIT 14 FOR MONSAVE1.
016890,002338: 41,3236 35030 CAF ZERO
016891,002339: 41,3237 55023 TS MONSAVE2 # ZERO NVMONOPT OPTIONS
016892,002340: 41,3240 36050 MONIT2 CAF LOW7
016893,002341: 41,3241 71002 MASK VERBREG
016894,002342: 41,3242 04343 TC LEFT5
016895,002343: 41,3243 54022 TS CYL
016896,002344: 41,3244 40022 CS CYL
016897,002345: 41,3245 56022 XCH CYL
016898,002346: 41,3246 61003 AD NOUNREG
016899,002347: 41,3247 54154 TS MPAC # TEMP STORAGE
016900,002348: 41,3250 35030 CAF ZERO
016901,002349: 41,3251 55013 TS DSPLOCK # +0 INTO DSPLOCK SO MONITOR CAN RUN.
016902,002350: 41,3252 11043 CCS CADRSTOR # TURN OFF KR LITE IF CADRSTOR AND DSPLIST
016903,002351: 41,3253 03255 TC +2 # ARE BOTH EMPTY. (LITE COMES ON IF NEW
016904,002352: 41,3254 04514 TC RELDSP1 # MONITOR IS KEYED IN OVER OLD MONITOR.)
016905,002353: 41,3255 00004 INHINT
016906,002354: 41,3256 11021 CCS MONSAVE
016907,002355: 41,3257 03264 TC +5 # IF MONSAVE WAS +, NO REQUEST
016908,002356: 41,3260 35026 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
016909,002357: 41,3261 05252 TC WAITLIST
016910,002358: 41,3262 1000 EBANK= DSPCOUNT
016911,002359: 41,3262 03270 62102 2CADR MONREQ
016912,002360:
016913,002361: 41,3264 52155 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
016914,002362: 41,3265 53022 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
016915,002363: 41,3266 00003 RELINT # SET UP EXTERNAL MONITOR BIT
016916,002364: 41,3267 00136 TC ENTRET
016917,002365:
016918,002366:
016919,002367: 41,3270 04412 MONREQ TC LODSAMPT # CALLED BY WAITLIST
016920,002368: 41,3271 11022 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
016921,002369: 41,3272 03276 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
016922,002370: 41,3273 03276 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
016923,002371: 41,3274 03307 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
016924,002372: 41,3275 03307 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
016925,002373: 41,3276 33313 CAF MONDEL
016926,002374: 41,3277 05252 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
016927,002375: 41,3300 1000 EBANK= DSPCOUNT
016928,002376: 41,3300 03270 62102 2CADR MONREQ
016929,002377:
016930,002378: 41,3302 34367 CAF CHRPRIO
016931,002379: 41,3303 05142 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
016932,002380: 41,3304 1000 EBANK= DSPCOUNT
016933,002381: 41,3304 03314 62102 2CADR MONDO
016934,002382:
016935,002383: 41,3306 05331 TC TASKOVER
016936,002384:
016937,002385: 41,3307 35030 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
016938,002386: 41,3310 55021 TS MONSAVE
016939,002387: 41,3311 55022 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
016940,002388: 41,3312 05331 TC TASKOVER # TURN OFF EXTERNAL MONITOR BIT.
016941,002389: 41,3313 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
016942,002390:
016943,002391:
016944,002392: 41,3314 11022 MONDO CCS MONSAVE1 # CALLED BY EXEC
016945,002393: 41,3315 03321 TC +4 # IF KILLER BIT = 0, CONTINUE
016946,002394: 41,3316 03321 TC +3 # IF KILLER BIT = 0, CONTINUE
016947,002395: 41,3317 05225 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
016948,002396: 41,3320 05225 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
016949,002397: 41,3321 11013 CCS DSPLOCK
016950,002398: 41,3322 03344 TC MONBUSY # NVSUB IS BUSY
016951,002399: 41,3323 36050 CAF LOW7
016952,002400: 41,3324 71021 MASK MONSAVE
016953,002401: 41,3325 02317 TC UPDATNN -1 # PLACE NOUN INTO NOUNREG AND DISPLAY IT
016954,002402: 41,3326 34156 CAF MID7
016955,002403: 41,3327 71021 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
016956,002404: 41,3330 63342 AD MONREF # -DEC10, STARTING IN BIT8
016957,002405: 41,3331 54023 TS EDOP # RIGHT 7
016958,002406: 41,3332 30023 CA EDOP
016959,002407: 41,3333 55002 TS VERBREG
016960,002408: 41,3334 33343 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
016961,002409: 41,3335 54136 TS ENTRET
016962,002410: 41,3336 43232 CS BIT15/14
016963,002411: 41,3337 71022 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
016964,002412: 41,3340 54156 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
016965,002413: 41,3341 02046 ENDMONDO TC TESTNN # EBANK.
016966,002414:
016967,002415:
016968,002416: 4136 BLOCK 2
016969,002417:
016970,002418: 4000 SETLOC FFTAG8
016971,002419: 4000 BANK
016972,002420:
016973,002421: 4136 COUNT* $$/PIN
016974,002422: 4136 34156 PASTEVB CAF MID7
016975,002423: 4137 71023 MASK MONSAVE2 # NVMONOPT PASTE OPTION
016976,002424: 4140 00006 EXTEND
016977,002425: 4141 14143 BZF +2
016978,002426: 4142 04144 TC PASTEOPT # PASTE PLEASE VERB FOR NVMONOPT
016979,002427: 4143 31021 CA MONSAVE # PASTE MONITOR VERB - PASTE OPTION IS 0
016980,002428: 4144 54023 PASTEOPT TS EDOP # RIGHT 7
016981,002429: 4145 30023 CA EDOP # PLACE MONITOR VERB OR PLEASE VERB INTO
016982,002430: 4146 04655 TC BANKCALL # VERBREG AND DISPLAY IT.
016983,002431: 4147 62337 CADR UPDATVB -1
016984,002432: 4150 35030 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
016985,002433: 4151 55014 TS REQRET # BE EXECUTED BY OPERATOR.
016986,002434: 4152 31023 CA MONSAVE2
016987,002435: 4153 04267 TC BLANKSUB # PROCESS NVMONOPT BLANK OPTION IF ANY
016988,002436: 4154 04155 TC +1
016989,002437: 4155 05225 ENDPASTE TC ENDOFJOB
016990,002438:
016991,002439: 4156 37600 MID7 OCT 37600
016992,002440:
016993,002441:
016994,002442: 41,3342 SETLOC ENDMONDO +1
016995,002443: 41,3342 COUNT* $$/PIN
016996,002444: 41,3342 75377 MONREF OCT 75377 # -DEC10, STARTING IN BIT8
016997,002445: 41,3343 04136 MONBACK ADRES PASTEVB
016998,002446:
016999,002447: 41,3344 04406 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
017000,002448: 41,3345 05225 TC ENDOFJOB
017001,002449: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
017002,002450: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
017003,002451: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
017004,002452:
017005,002453: # FOR BANKS L/E 27, THIS IS ENOUGH.
017006,002454:
017007,002455: # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
017008,002456: # MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
017009,002457: # V23N26 SHOULD BE USED.
017010,002458:
017011,002459: # SUMMARY
017012,002460: # FOR BANKS L/E 27, V27N01E(FCADR)E
017013,002461: # FOR BANKS G/E 30, V23N26E(SUPERBITS)E V27N01E(FCADR)E
017014,002462:
017015,002463: 41,3346 34331 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
017016,002464: 41,3347 55000 TS DSPCOUNT
017017,002465: 41,3350 31050 CA DSPTEM1 +2 # SUPERBANK BITS WERE PRELOADED INTO
017018,002466: 41,3351 54001 TS L # 3RD COMPONENT OF NOUN 26.
017019,002467: 41,3352 31020 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
017020,002468: 41,3353 04714 TC SUPDACAL # CALL WITH FCADR IN A, SUPERBITS IN L.
017021,002469: 41,3354 03356 TC DSPOCTWD
017022,002470: 41,3355 05225 ENDSPF TC ENDOFJOB
017023,002471:
017024,002472: # WORD DISPLAY ROUTINES
017025,002473:
017026,002474: 40,3313 SETLOC TESTOFUF +4
017027,002475: 40,3313 COUNT* $$/PIN
017028,002476: 40,3313 56002 DSPSIGN XCH Q
017029,002477: 40,3314 54144 TS DSPWDRET
017030,002478: 40,3315 10154 CCS MPAC
017031,002479: 40,3316 03326 TC +8D
017032,002480: 40,3317 03326 TC +7
017033,002481: 40,3320 65026 AD ONE
017034,002482: 40,3321 54154 TS MPAC
017035,002483: 40,3322 02546 TC -ON
017036,002484: 40,3323 40155 CS MPAC +1
017037,002485: 40,3324 54155 TS MPAC +1
017038,002486: 40,3325 00144 TC DSPWDRET
017039,002487: 40,3326 02526 TC +ON
017040,002488: 40,3327 00144 TC DSPWDRET
017041,002489:
017042,002490: 40,3330 00006 DSPRND EXTEND # ROUND BY 5 EXP-6
017043,002491: 40,3331 33374 DCA DECROUND -1
017044,002492: 40,3332 20155 DAS MPAC
017045,002493: 40,3333 00006 EXTEND
017046,002494: 40,3334 13340 BZF +4
017047,002495: 40,3335 00006 EXTEND
017048,002496: 40,3336 35006 DCA DPOSMAX
017049,002497: 40,3337 52155 DXCH MPAC
017050,002498: 40,3340 00002 TC Q
017051,002499:
017052,002500: # DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
017053,002501: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
017054,002502:
017055,002503: 40,3341 56002 DSPDECWD XCH Q
017056,002504: 40,3342 54115 TS WDRET
017057,002505: 40,3343 03313 TC DSPSIGN
017058,002506: 40,3344 03330 TC DSPRND
017059,002507: 40,3345 35024 CAF FOUR
017060,002508: 40,3346 54137 DSPDCWD1 TS WDCNT
017061,002509: 40,3347 34375 CAF BINCON
017062,002510: 40,3350 07261 TC SHORTMP
017063,002511: 40,3351 50154 TRACE1 INDEX MPAC
017064,002512: 40,3352 34072 CAF RELTAB
017065,002513: 40,3353 74360 MASK LOW5
017066,002514: 40,3354 54124 TS CODE
017067,002515: 40,3355 35030 CAF ZERO
017068,002516: 40,3356 56156 XCH MPAC +2
017069,002517: 40,3357 56155 XCH MPAC +1
017070,002518: 40,3360 54154 TS MPAC
017071,002519: 40,3361 57000 XCH DSPCOUNT
017072,002520: 40,3362 54143 TRACE1S TS COUNT
017073,002521: 40,3363 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
017074,002522: 40,3364 55000 TS DSPCOUNT
017075,002523: 40,3365 03435 TC DSPIN
017076,002524: 40,3366 10137 CCS WDCNT
017077,002525: 40,3367 03346 TC DSPDCWD1
017078,002526: 40,3370 44372 CS VD1
017079,002527: 40,3371 55000 TS DSPCOUNT
017080,002528: 40,3372 00115 TC WDRET
017081,002529:
017082,002530: 40,3373 00000 OCT 00000
017083,002531: 40,3374 02476 DECROUND OCT 02476
017084,002532:
017085,002533: # DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
017086,002534: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
017087,002535:
017088,002536: 40,3375 56002 DSPDECNR XCH Q
017089,002537: 40,3376 54115 TS WDRET
017090,002538: 40,3377 03313 TC DSPSIGN
017091,002539: 40,3400 03345 TC DSPDCWD1 -1
017092,002540:
017093,002541: # DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
017094,002542: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
017095,002543:
017096,002544: 40,3401 56002 DSPDC2NR XCH Q
017097,002545: 40,3402 54115 TS WDRET
017098,002546: 40,3403 03313 TC DSPSIGN
017099,002547: 40,3404 35026 CAF ONE
017100,002548: 40,3405 03346 TC DSPDCWD1
017101,002549:
017102,002550:
017103,002551: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
017104,002552: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
017105,002553:
017106,002554: 40,3406 56002 DSP2DEC XCH Q
017107,002555: 40,3407 54115 TS WDRET
017108,002556: 40,3410 35030 CAF ZERO
017109,002557: 40,3411 54124 TS CODE
017110,002558: 40,3412 36221 CAF THREE
017111,002559: 40,3413 03517 TC 11DSPIN # -R2 OFF
017112,002560: 40,3414 35024 CAF FOUR
017113,002561: 40,3415 03517 TC 11DSPIN # +R2 OFF
017114,002562: 40,3416 03313 TC DSPSIGN
017115,002563: 40,3417 34332 CAF R2D1
017116,002564: 40,3420 03346 END2DEC TC DSPDCWD1
017117,002565:
017118,002566:
017119,002567: # DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
017120,002568: # DSP LOC SPECIFIED IN DSPCOUNT.
017121,002569: # C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
017122,002570: # DISPLAY CONVERSION.
017123,002571:
017124,002572: 40,3421 00006 DSPDECVN EXTEND
017125,002573: 40,3422 73431 MP VNDSPCON # MULT BY .01
017126,002574: 40,3423 22154 LXCH MPAC # TAKE RESULTS FROM L.(MULT BY 2EXP14).
017127,002575: 40,3424 35030 CAF ZERO
017128,002576: 40,3425 54155 TS MPAC +1
017129,002577: 40,3426 56002 XCH Q
017130,002578: 40,3427 54115 TS WDRET
017131,002579: 40,3430 03404 TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
017132,002580:
017133,002581: 40,3431 00244 VNDSPCON OCT 00244 # .01 ROUNDED UP
017134,002582:
017135,002583:
017136,002584: 40,3432 03421 GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
017137,002585: 40,3433 04674 TC POSTJUMP # OF UPDATVB.
017138,002586: 40,3434 62347 CADR UPDAT1 +2
017139,002587:
017140,002588: 40,3435 ENDECVN EQUALS
017141,002589:
017142,002590:
017143,002591: 41,3356 SETLOC ENDSPF +1
017144,002592: 41,3356 COUNT* $$/PIN
017145,002593: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
017146,002594: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
017147,002595:
017148,002596: 41,3356 54022 DSPOCTWD TS CYL
017149,002597: 41,3357 56002 XCH Q
017150,002598: 41,3360 54115 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
017151,002599: 41,3361 35011 CAF BIT14 # TO BLANK SIGNS
017152,002600: 41,3362 27000 ADS DSPCOUNT
017153,002601: 41,3363 35024 CAF FOUR
017154,002602: 41,3364 54137 WDAGAIN TS WDCNT
017155,002603: 41,3365 40022 CS CYL
017156,002604: 41,3366 40022 CS CYL
017157,002605: 41,3367 40022 CS CYL
017158,002606: 41,3370 40000 CS A
017159,002607: 41,3371 75032 MASK DSPMSK
017160,002608: 41,3372 50000 INDEX A
017161,002609: 41,3373 34072 CAF RELTAB
017162,002610: 41,3374 74360 MASK LOW5
017163,002611: 41,3375 54124 TS CODE
017164,002612: 41,3376 57000 XCH DSPCOUNT
017165,002613: 41,3377 54143 TS COUNT
017166,002614: 41,3400 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
017167,002615: 41,3401 55000 TS DSPCOUNT
017168,002616: 41,3402 04674 TC POSTJUMP
017169,002617: 41,3403 61525 CADR DSPOCTIN
017170,002618: 41,3404 10137 OCTBACK CCS WDCNT
017171,002619: 41,3405 03364 TC WDAGAIN # +
017172,002620: 41,3406 44372 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
017173,002621: 41,3407 55000 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
017174,002622: 41,3410 00115 TC WDRET
017175,002623:
017176,002624: 41,3411 5032 DSPMSK = SEVEN
017177,002625:
017178,002626:
017179,002627: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
017180,002628: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
017181,002629: # OF THE 5 CHAR OCTAL DISPLAY
017182,002630:
017183,002631: 41,3411 54020 DSP2BIT TS CYR
017184,002632: 41,3412 56002 XCH Q
017185,002633: 41,3413 54115 TS WDRET
017186,002634: 41,3414 35026 CAF ONE
017187,002635: 41,3415 54137 TS WDCNT
017188,002636: 41,3416 40020 CS CYR
017189,002637: 41,3417 40020 CS CYR
017190,002638: 41,3420 56020 XCH CYR
017191,002639: 41,3421 54022 TS CYL
017192,002640: 41,3422 03371 TC WDAGAIN +5
017193,002641:
017194,002642:
017195,002643: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
017196,002644: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
017197,002645: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
017198,002646: # DSPTAB ENTRY INTO DSREL.
017199,002647:
017200,002648: 40,3435 SETLOC ENDECVN
017201,002649:
017202,002650: 40,3435 COUNT* $$/PIN
017203,002651: 40,3435 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
017204,002652: 40,3436 54114 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
017205,002653: 40,3437 34360 CAF LOW5
017206,002654: 40,3440 70143 MASK COUNT
017207,002655: 40,3441 54021 TS SR
017208,002656: 40,3442 56021 XCH SR
017209,002657: 40,3443 54141 TS DSREL
017210,002658: 40,3444 35026 CAF BIT1
017211,002659: 40,3445 70143 MASK COUNT
017212,002660: 40,3446 10000 CCS A
017213,002661: 40,3447 03451 TC +2 # LEFT IF COUNT IS ODD
017214,002662: 40,3450 03461 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
017215,002663: 40,3451 56124 XCH CODE
017216,002664: 40,3452 04352 TC SLEFT5 # DOES NOT USE CYL
017217,002665: 40,3453 54124 TS CODE
017218,002666: 40,3454 35011 CAF BIT14
017219,002667: 40,3455 70143 MASK COUNT
017220,002668: 40,3456 10000 CCS A
017221,002669: 40,3457 35025 CAF TWO # BIT14 = 1, BLANK SIGN
017222,002670: 40,3460 65026 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
017223,002671: 40,3461 54143 TS COUNT # +0 INTO COUNT FOR RIGHT
017224,002672: # +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
017225,002673: # +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
017226,002674: 40,3462 00004 DSPIN1 INHINT
017227,002675: 40,3463 50141 INDEX DSREL
017228,002676: 40,3464 11024 CCS DSPTAB
017229,002677: 40,3465 03467 TC +2 # IF +
017230,002678: 40,3466 05726 TC CCSHOLE
017231,002679: 40,3467 65026 AD ONE # IF -
017232,002680: 40,3470 54142 TS DSMAG
017233,002681: 40,3471 50143 INDEX COUNT
017234,002682: 40,3472 73513 MASK DSMSK
017235,002683: 40,3473 00006 EXTEND
017236,002684: 40,3474 60124 SU CODE
017237,002685: 40,3475 00006 EXTEND
017238,002686: 40,3476 13511 BZF DSLV # SAME
017239,002687: 40,3477 50143 DFRNT INDEX COUNT
017240,002688: 40,3500 43513 CS DSMSK # MASK WITH 77740,76037,75777, OR 74037
017241,002689: 40,3501 70142 MASK DSMAG
017242,002690: 40,3502 60124 AD CODE
017243,002691: 40,3503 40000 CS A
017244,002692: 40,3504 50141 INDEX DSREL
017245,002693: 40,3505 57024 XCH DSPTAB
017246,002694: 40,3506 00006 EXTEND
017247,002695: 40,3507 63511 BZMF DSLV # DSPTAB ENTRY WAS -
017248,002696: 40,3510 25017 INCR NOUT # DSPTAB ENTRY WAS +
017249,002697: 40,3511 00003 DSLV RELINT
017250,002698: 40,3512 00114 TC DSEXIT
017251,002699:
017252,002700: 40,3513 00037 DSMSK OCT 37
017253,002701: 40,3514 01740 OCT 1740
017254,002702: 40,3515 02000 OCT 2000
017255,002703: 40,3516 03740 OCT 3740
017256,002704:
017257,002705:
017258,002706: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
017259,002707: # BIT11 OF CODE.
017260,002708:
017261,002709: 40,3517 54141 11DSPIN TS DSREL
017262,002710: 40,3520 35025 CAF TWO
017263,002711: 40,3521 54143 TS COUNT
017264,002712: 40,3522 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
017265,002713: 40,3523 54114 TS DSEXIT
017266,002714: 40,3524 03462 TC DSPIN1
017267,002715:
017268,002716:
017269,002717: 40,3525 03435 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
017270,002718: 40,3526 33530 CAF +2
017271,002719: 40,3527 04677 TC BANKJUMP
017272,002720: 40,3530 63404 ENDSPOCT CADR OCTBACK
017273,002721:
017274,002722: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
017275,002723: # ABORT WITH 01501.
017276,002724: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
017277,002725: # DO TC ENTRET.
017278,002726:
017279,002727: 40,3531 44372 PREDSPAL CS VD1
017280,002728: 40,3532 55000 TS DSPCOUNT
017281,002729: 40,3533 43543 DSPALARM CS NVSBENDL
017282,002730: 40,3534 60136 AD ENTEXIT
017283,002731: 40,3535 00006 EXTEND
017284,002732: 40,3536 13541 BZF CHARALRM +2
017285,002733: 40,3537 04376 CHARALRM TC FALTON # NOT NVSUB INITIATED. TURN ON OPR ERROR
017286,002734: 40,3540 05225 TC ENDOFJOB
017287,002735: 40,3541 05716 TC ABORT
017288,002736: 40,3542 01501 OCT 01501
017289,002737: 40,3543 04214 NVSBENDL TC NVSUBEND
017290,002738:
017291,002739:
017292,002740: # ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
017293,002741: # WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
017294,002742: # THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
017295,002743: # MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
017296,002744: # FOR MM CODE.
017297,002745:
017298,002746: 4157 SETLOC MID7 +1
017299,002747: 4157 COUNT* $$/PIN
017300,002748: 4157 04376 ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
017301,002749: 4160 41042 CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
017302,002750: 4161 55014 TS REQRET # SET FOR ENTPAS0
017303,002751: 4162 04655 TC BANKCALL # PUTS ORIGINAL VERB INTO VERBREG AND
017304,002752: 4163 62337 CADR UPDATVB -1 # DISPLAYS IT IN VERB LIGHTS.
017305,002753: 4164 04674 TC POSTJUMP
017306,002754: 4165 62002 ENDALM CADR ENTER
017307,002755:
017308,002756:
017309,002757: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
017310,002758: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
017311,002759: # MM LIGHTS.
017312,002760: # IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
017313,002761: # IF NOT, IT RECYCLES.
017314,002762:
017315,002763: 41,3423 SETLOC DSP2BIT +10D
017316,002764:
017317,002765: 41,3423 COUNT* $$/PIN
017318,002766: 41,3423 03445 MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
017319,002767: # IF THIS MOVES AT ALL, MUST CHANGE
017320,002768: # MMADREF AT ENTPASHI.
017321,002769: 41,3424 35022 CAF BIT5 # OCT20 = ND2.
017322,002770: 41,3425 61000 AD DSPCOUNT # DSPCOUNT MUST = -ND2.
017323,002771: 41,3426 00006 EXTEND # DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
017324,002772: 41,3427 13431 BZF +2
017325,002773: 41,3430 04157 TC ALMCYCLE # DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
017326,002774: 41,3431 35030 CAF ZERO # DSPCOUNT = -ND2.
017327,002775: 41,3432 57003 XCH NOUNREG
017328,002776: 41,3433 54154 TS MPAC
017329,002777: 41,3434 34373 CAF ND1
017330,002778: 41,3435 55000 TS DSPCOUNT
017331,002779: 41,3436 04655 TC BANKCALL
017332,002780: 41,3437 60714 CADR 2BLANK
017333,002781: 41,3440 44372 CS VD1 # BLOCK NUM CHAR IN
017334,002782: 41,3441 55000 TS DSPCOUNT
017335,002783: 41,3442 30154 CA MPAC
017336,002784: 41,3443 04674 TC POSTJUMP
017337,002785: 41,3444 10007 CADR MODROUTB # GO THRU STANDARD LOC.
017338,002786:
017339,002787:
017340,002788: 41,3445 04,2007 MODROUTB = V37
017341,002789: 41,3445 40002 REQMM CS Q
017342,002790: 41,3446 55014 TS REQRET
017343,002791: 41,3447 34373 CAF ND1
017344,002792: 41,3450 55000 TS DSPCOUNT
017345,002793: 41,3451 35030 CAF ZERO
017346,002794: 41,3452 55003 TS NOUNREG
017347,002795: 41,3453 04655 TC BANKCALL
017348,002796: 41,3454 60714 CADR 2BLANK
017349,002797: 41,3455 04441 TC FLASHON
017350,002798: 41,3456 35026 CAF ONE
017351,002799: 41,3457 55001 TS DECBRNCH # SET FOR DEC
017352,002800: 41,3460 00136 TC ENTEXIT
017353,002801:
017354,002802:
017355,002803: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
017356,002804: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
017357,002805: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
017358,002806: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
017359,002807: # COMPONENT 2 JOB ADRES (12 BIT )
017360,002808: # COMPONENT 3 BBCON
017361,002809:
017362,002810: 41,3461 35026 VBRQEXEC CAF BIT1
017363,002811: 41,3462 71046 MASK DSPTEM1
017364,002812: 41,3463 10000 CCS A
017365,002813: 41,3464 03503 TC SETVAC # IF BIT1 = 1, FINDVAC
017366,002814: 41,3465 34363 CAF TCNOVAC # IF BIT1 = 0, NOVAC
017367,002815: 41,3466 54154 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
017368,002816: 41,3467 45026 CS BIT1
017369,002817: 41,3470 71046 MASK DSPTEM1
017370,002818: 41,3471 54160 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
017371,002819: 41,3472 04471 REQUESTC TC RELDSP
017372,002820: 41,3473 34231 CA ENDINST
017373,002821: 41,3474 54157 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
017374,002822: 41,3475 00006 EXTEND
017375,002823: 41,3476 31050 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
017376,002824: 41,3477 52156 DXCH MPAC +1 # BBCON INTO MPAC+2
017377,002825: 41,3500 30160 CA MPAC +4 # PRIO IN A
017378,002826: 41,3501 00004 INHINT
017379,002827: 41,3502 00154 TC MPAC
017380,002828:
017381,002829: 41,3503 34366 SETVAC CAF TCFINDVC
017382,002830: 41,3504 03466 TC REQEX1
017383,002831:
017384,002832: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
017385,002833: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
017386,002834: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
017387,002835: # COMPONENT 1 DELAY (LOW BITS)
017388,002836: # COMPONENT 2 TASK ADRES (12 BIT)
017389,002837: # COMPONENT 3 BBCON
017390,002838:
017391,002839: 41,3505 34364 VBRQWAIT CAF TCWAIT
017392,002840: 41,3506 54154 TS MPAC # TC WAITLIST INTO MPAC
017393,002841: 41,3507 31046 CA DSPTEM1 # TIME DELAY
017394,002842: 41,3510 03471 ENDRQWT TC REQUESTC -1
017395,002843:
017396,002844: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
017397,002845: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
017398,002846: # LEAVE IT IN A, INHINT AND TC MPAC.
017399,002847:
017400,002848: 40,3544 SETLOC NVSBENDL +1
017401,002849: 40,3544 COUNT* $$/PIN
017402,002850: 40,3544 35026 VBPROC CAF ONE # PROCEED WITHOUT DATA
017403,002851: 40,3545 55015 TS LOADSTAT
017404,002852: 40,3546 04216 TC KILMONON # TURN ON KILL MONITOR BIT
017405,002853: 40,3547 04471 TC RELDSP
017406,002854: 40,3550 04445 TC FLASHOFF
017407,002855: 40,3551 03651 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
017408,002856:
017409,002857:
017410,002858: 40,3552 45026 VBTERM CS ONE
017411,002859: 40,3553 03545 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
017412,002860:
017413,002861: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
017414,002862: # EXECUTIVE CONTROL, WITH CHRPRIO.
017415,002863:
017416,002864: 40,3554 35030 PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
017417,002865: 40,3555 55014 TS REQRET
017418,002866: 40,3556 44372 CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
017419,002867: 40,3557 55000 TS DSPCOUNT
017420,002868: 40,3560 03544 TC VBPROC
017421,002869:
017422,002870:
017423,002871: # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
017424,002872: # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
017425,002873: # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
017426,002874: # OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
017427,002875:
017428,002876: 40,3561 45030 VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
017429,002877: 40,3562 03545 TC VBPROC +1
017430,002878:
017431,002879:
017432,002880: # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
017433,002881: # END OF LOAD.
017434,002882:
017435,002883: # KEY RELEASE ROUTINE
017436,002884:
017437,002885: # THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
017438,002886:
017439,002887: # THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
017440,002888: # UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
017441,002889: # THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
017442,002890: # THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
017443,002891:
017444,002892: # IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
017445,002893: # AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
017446,002894: # USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
017447,002895:
017448,002896: # IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
017449,002897: # TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
017450,002898: # NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
017451,002899: # THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
017452,002900: # RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
017453,002901: # OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
017454,002902: # INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
017455,002903: # RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
017456,002904: # THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
017457,002905: # INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
017458,002906: # SUBROUTINES.
017459,002907:
017460,002908: 40,3563 45024 VBRELDSP CS BIT3
017461,002909: 40,3564 00006 EXTEND
017462,002910: 40,3565 03011 WAND DSALMOUT # TURN OFF UPACT LITE
017463,002911: 40,3566 10115 CCS 21/22REG # OLD DSPLOCK
017464,002912: 40,3567 35011 CAF BIT14
017465,002913: 40,3570 71022 MASK MONSAVE1 # EXTERNAL MONITOR BIT (EMB)
017466,002914: 40,3571 10000 CCS A
017467,002915: 40,3572 03601 TC UNSUSPEN # OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
017468,002916: 40,3573 04471 TSTLTS4 TC RELDSP # NOT UNSUSPENDING EXTERNAL MONITOR,
017469,002917: 40,3574 11043 CCS CADRSTOR # RELEASE DISPLAY SYSTEM AND
017470,002918: 40,3575 03577 TC +2 # DO RE-ESTABLISH IF CADRSTOR IS FULL.
017471,002919: 40,3576 05225 TC ENDOFJOB
017472,002920: 40,3577 04674 TC POSTJUMP
017473,002921: 40,3600 20746 CADR PINBRNCH
017474,002922: 40,3601 35030 UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
017475,002923: 40,3602 55013 TS DSPLOCK # JUST UNSUSPEND IT BY CLEARING DSPLOCK.
017476,002924: 40,3603 11043 CCS CADRSTOR # TURN KEY RELEASE LIGHT OFF IF BOTH
017477,002925: 40,3604 05225 TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
017478,002926: 40,3605 04514 TC RELDSP1
017479,002927: 40,3606 05225 TC ENDOFJOB
017480,002928:
017481,002929: 40,3607 ENDRELDS EQUALS
017482,002930:
017483,002931:
017484,002932: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
017485,002933: # USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
017486,002934: # TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
017487,002935: # PLACE 0VVVVVVVNNNNNNN INTO A.
017488,002936: # V-S ARE THE 7 BIT VERB CODE. N-S ARE THE 7 BIT NOUN CODE.
017489,002937:
017490,002938: # IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
017491,002939: # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
017492,002940: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
017493,002941:
017494,002942: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
017495,002943: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
017496,002944:
017497,002945: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
017498,002946: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
017499,002947: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
017500,002948: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
017501,002949: # FURTHER ACTION).
017502,002950:
017503,002951: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
017504,002952: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
017505,002953: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
017506,002954: # ALARM CONDITION BEFORE RETURN TO CALLER.
017507,002955:
017508,002956: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
017509,002957: # KEY, EXCEPT ERROR LIGHT RESET
017510,002958: # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
017511,002959: # PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
017512,002960: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
017513,002961: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
017514,002962: # MONITOR SET UP.
017515,002963:
017516,002964: # THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
017517,002965: # INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
017518,002966:
017519,002967: # A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
017520,002968: # MONITOR.
017521,002969:
017522,002970: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
017523,002971: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
017524,002972:
017525,002973: # NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
017526,002974: # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
017527,002975: # ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
017528,002976: # :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
017529,002977: # NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
017530,002978: # LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
017531,002979: # LIGHTS.
017532,002980:
017533,002981: # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
017534,002982: # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
017535,002983: # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
017536,002984: # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
017537,002985: # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
017538,002986: # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
017539,002987: # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
017540,002988: # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
017541,002989: # BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
017542,002990: # THE PARAMETER IN L HAS NO EFFECT.
017543,002991:
017544,002992: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
017545,002993: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
017546,002994:
017547,002995: 4166 SETLOC ENDALM +1
017548,002996:
017549,002997: 4166 COUNT* $$/PIN
017550,002998: 4166 22007 NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
017551,002999: 4167 54123 NVMONOPT TS NVTEMP
017552,003000: 4170 35011 CAF BIT14
017553,003001: 4171 71022 MASK MONSAVE1 # EXTERNAL MONITOR BIT
017554,003002: 4172 61013 AD DSPLOCK
017555,003003: 4173 10000 CCS A
017556,003004: 4174 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
017557,003005: 4175 35026 CAF ONE # DSP SYST AVAILABLE
017558,003006: 4176 60002 NVSBCOM AD Q
017559,003007: 4177 55040 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
017560,003008: 4200 23023 LXCH MONSAVE2 # STORE NVMONOPT OPTIONS
017561,003009: 4201 04216 TC KILMONON # TURN ON KILL MONITOR BIT
017562,003010: 4202 34213 NVSUBCOM CAF NVSBBBNK
017563,003011:
017564,003012: 4203 56006 XCH BBANK
017565,003013: 4204 00006 EXTEND # SAVE OLD SUPERBITS
017566,003014: 4205 04007 ROR SUPERBNK
017567,003015: 4206 55041 TS NVBNKTEM
017568,003016: 4207 34213 CAF PINSUPBT
017569,003017: 4210 00006 EXTEND
017570,003018: 4211 01007 WRITE SUPERBNK
017571,003019: 4212 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
017572,003020: 4213 1000 EBANK= DSPCOUNT
017573,003021: 4213 62102 NVSBBBNK BBCON NVSUB1
017574,003022:
017575,003023: 4214 4213 PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
017576,003024:
017577,003025: 4214 53041 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
017578,003026: 4215 05235 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
017579,003027:
017580,003028:
017581,003029: 41,3511 SETLOC ENDRQWT +1
017582,003030:
017583,003031: 41,3511 COUNT* $$/PIN
017584,003032: # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
017585,003033: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
017586,003034:
017587,003035: 41,3511 65032 BLANKDSP AD SEVEN # 7,8,9,OR 10 (A HAD 0,1,2,OR 3)
017588,003036: 41,3512 00004 INHINT
017589,003037: 41,3513 54124 TS CODE # BLANK SPECIFIED DSPTABS
017590,003038: 41,3514 45013 CS BIT12
017591,003039: 41,3515 50124 INDEX CODE
017592,003040: 41,3516 57024 XCH DSPTAB
017593,003041: 41,3517 10000 CCS A
017594,003042: 41,3520 25017 INCR NOUT
017595,003043: 41,3521 03522 TC +1
017596,003044: 41,3522 10124 CCS CODE
017597,003045: 41,3523 03513 TC BLANKDSP +2
017598,003046: 41,3524 00003 RELINT
017599,003047: 41,3525 50123 INDEX NVTEMP
017600,003048: 41,3526 03533 TC +5
017601,003049: 41,3527 03530 TC +1 # NVTEMP HAS -4 (NEVER TOUCH MODREG)
017602,003050: 41,3530 55002 TS VERBREG # -3
017603,003051: 41,3531 55003 TS NOUNREG # -2
017604,003052: 41,3532 55016 TS CLPASS # -1
017605,003053: 41,3533 44372 CS VD1
017606,003054: 41,3534 55000 TS DSPCOUNT
017607,003055: 41,3535 04445 TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
017608,003056: 41,3536 03561 TC ENTSET -2 # ZEROS REQRET
017609,003057:
017610,003058: 41,3537 33563 NVSUB1 CAF ENTSET # IN BANK
017611,003059: 41,3540 54136 TS ENTRET # SET RETURN TO NVSUBEND
017612,003060: 41,3541 10123 CCS NVTEMP # WHAT NOW
017613,003061: 41,3542 03546 TC +4 # NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
017614,003062: 41,3543 02351 TC GODSPALM
017615,003063: 41,3544 03511 TC BLANKDSP # BLANK DISPLAY AS SPECIFIED
017616,003064: 41,3545 02351 TC GODSPALM
017617,003065: 41,3546 36050 CAF LOW7
017618,003066: 41,3547 70123 MASK NVTEMP
017619,003067: 41,3550 54157 TS MPAC +3 # TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
017620,003068: 41,3551 30123 CA NVTEMP # USES MPAC, +1, +2
017621,003069: 41,3552 54023 TS EDOP # RIGHT 7
017622,003070: 41,3553 30023 CA EDOP
017623,003071: 41,3554 54160 TS MPAC +4 # TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
017624,003072: # USES MPAC, +1, +2).
017625,003073: 41,3555 10157 CCS MPAC +3 # TEST NOUN
017626,003074: 41,3556 03564 TC NVSUB2 # IF NOUN NOT +0, GO ON
017627,003075: 41,3557 30160 CA MPAC +4
017628,003076: 41,3560 02337 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
017629,003077: 41,3561 35030 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
017630,003078: 41,3562 55014 TS REQRET # BE EXECUTED BY OPERATOR.
017631,003079: 41,3563 04214 ENTSET TC NVSUBEND
017632,003080: 41,3564 10160 NVSUB2 CCS MPAC +4 # TEST VERB
017633,003081: 41,3565 03571 TC +4 # IF VERB NOT +0, GO ON
017634,003082: 41,3566 30157 CA MPAC +3
017635,003083: 41,3567 02317 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
017636,003084: 41,3570 04214 TC NVSUBEND
017637,003085: 41,3571 30156 CA MPAC +2 # TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
017638,003086: 41,3572 54161 TS MPAC +5 # USES MPAC, +1, +2)
017639,003087: 41,3573 30160 CA MPAC +4
017640,003088: 41,3574 02337 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
017641,003089: 41,3575 30157 CA MPAC +3 # BOTH AND GO TO ENTPAS0.
017642,003090: 41,3576 02317 TC UPDATNN -1
017643,003091: 41,3577 35030 CAF ZERO
017644,003092: 41,3600 55015 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
017645,003093: 41,3601 55016 TS CLPASS
017646,003094: 41,3602 55014 TS REQRET # SET REQRET FOR PASS 0.
017647,003095: 41,3603 30161 CA MPAC +5 # RESTORES MACH CADR TO BE SPEC TO MPAC+2
017648,003096: 41,3604 54156 TS MPAC +2 # FOR USE IN INTMCTBS (IN ENTPAS0).
017649,003097: 41,3605 02035 ENDNVSB1 TC ENTPAS0
017650,003098:
017651,003099:
017652,003100: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
017653,003101: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
017654,003102:
017655,003103:
017656,003104: 4216 SETLOC NVSUBEND +2
017657,003105: 4216 COUNT* $$/PIN
017658,003106: # FORCE BIT 15 OF MONSAVE1 TO 1.
017659,003107: 4216 35010 KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
017660,003108: 4217 55022 TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
017661,003109: # MONITOR BIT.
017662,003110: 4220 00002 TC Q
017663,003111:
017664,003112:
017665,003113: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
017666,003114: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
017667,003115: # -1 TERMINATE SET BY SPECIAL VERB
017668,003116: # -0 DATA IN SET BY END OF LOAD ROUTINE
017669,003117: # OR RESEQUENCE SET BY VERB 32
017670,003118:
017671,003119:
017672,003120: # L TC ENDIDLE (FIXED FIXED)
017673,003121: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
017674,003122: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
017675,003123: # ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
017676,003124: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
017677,003125: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
017678,003126: # L+1 FOR TERMINATE
017679,003127: # L+2 FOR PROCEED WITHOUT DATA
017680,003128: # L+3 FOR DATA IN, OR RESEQUENCE
017681,003129: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
017682,003130:
017683,003131:
017684,003132: # ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
017685,003133: # IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
017686,003134: # 1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
017687,003135: # EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
017688,003136: # 2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
017689,003137: # NVSUBUSY.
017690,003138:
017691,003139: 4221 22002 ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
017692,003140: 4222 04232 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0
017693,003141: 4223 04236 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0
017694,003142: 4224 30001 CA L # DONT SET DSPLOCK TO 1 SO CAN USE
017695,003143: 4225 75062 MASK LOW10 # ENDIDLE WITH NVSUB INITIATED MONITOR.
017696,003144: 4226 60004 AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
017697,003145: 4227 55043 TS CADRSTOR
017698,003146: 4230 05203 TC JOBSLEEP
017699,003147:
017700,003148:
017701,003149: 4231 05225 ENDINST TC ENDOFJOB
017702,003150:
017703,003151:
017704,003152: 4232 11043 ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
017705,003153: 4233 04241 TC DSPABORT # RETURNS IF CADRSTOR = +0.
017706,003154: 4234 00002 TC Q
017707,003155: 4235 04241 TC DSPABORT
017708,003156:
017709,003157: 4236 11044 ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
017710,003158: 4237 04241 TC DSPABORT # RETURNS IF DSPLIST = +0.
017711,003159: 4240 00002 TC Q
017712,003160: 4241 05716 DSPABORT TC ABORT
017713,003161: 4242 01206 OCT 01206
017714,003162:
017715,003163:
017716,003164: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
017717,003165: # IT DOES ENDOFJOB.
017718,003166:
017719,003167: 4243 34213 JAMTERM CAF PINSUPBT
017720,003168: 4244 00006 EXTEND
017721,003169: 4245 01007 WRITE SUPERBNK
017722,003170: 4246 34254 CAF 34DEC
017723,003171: 4247 55014 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
017724,003172: 4250 44372 CS VD1
017725,003173: 4251 55000 TS DSPCOUNT
017726,003174: 4252 04674 TC POSTJUMP
017727,003175: 4253 61552 CADR VBTERM
017728,003176:
017729,003177: 4254 00042 34DEC DEC 34 B-14
017730,003178:
017731,003179:
017732,003180: # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
017733,003181: # FUNCTION. IT DOES ENDOFJOB.
017734,003182:
017735,003183: 4255 34213 JAMPROC CAF PINSUPBT
017736,003184: 4256 00006 EXTEND
017737,003185: 4257 01007 WRITE SUPERBNK
017738,003186: 4260 34266 CAF 33DEC
017739,003187: 4261 55014 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
017740,003188: 4262 44372 CS VD1
017741,003189: 4263 55000 TS DSPCOUNT
017742,003190: 4264 04674 TC POSTJUMP
017743,003191: 4265 61544 CADR VBPROC
017744,003192:
017745,003193: 4266 00041 33DEC DEC 33 B-14
017746,003194:
017747,003195:
017748,003196: # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
017749,003197: # CALL WITH BLANKING CODE IN A.
017750,003198: # BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
017751,003199: # ANY COMBINATION OF THESE BITS IS ACCEPTED.
017752,003200:
017753,003201: # DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
017754,003202:
017755,003203: 4267 75032 BLANKSUB MASK SEVEN
017756,003204: 4270 54123 TS NVTEMP # STORE BLANKING CODE IN NVTEMP.
017757,003205: 4271 35011 CAF BIT14
017758,003206: 4272 71022 MASK MONSAVE1 # EXTERNAL MONITOR BIT
017759,003207: 4273 61013 AD DSPLOCK
017760,003208: 4274 10000 CCS A
017761,003209: 4275 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
017762,003210: 4276 24002 INCR Q # DSP SYST AVAILABLE
017763,003211: # SET RETURN FOR 2+ CALLING LOC
017764,003212: 4277 10123 CCS NVTEMP
017765,003213: 4300 14302 TCF +2
017766,003214: 4301 00002 TC Q # NOTHING TO BLANK. RET TO 2+ CALLING LOC
017767,003215: 4302 22002 LXCH Q # SET RETURN FOR 2 + CALLING LOC
017768,003216: 4303 34314 CAF BLNKBBNK
017769,003217: 4304 56006 XCH BBANK
017770,003218: 4305 00006 EXTEND
017771,003219: 4306 04007 ROR SUPERBNK # SAVE OLD SUPERBITS.
017772,003220: 4307 52131 DXCH BUF
017773,003221: 4310 34213 CAF PINSUPBT
017774,003222: 4311 00006 EXTEND
017775,003223: 4312 01007 WRITE SUPERBNK
017776,003224: 4313 03607 TC BLNKSUB1
017777,003225:
017778,003226: 4314 1000 EBANK= DSPCOUNT
017779,003227: 4314 60102 BLNKBBNK BBCON BLNKSUB1
017780,003228: 4315 ENDBLFF EQUALS
017781,003229:
017782,003230:
017783,003231: 40,3607 SETLOC ENDRELDS
017784,003232: 40,3607 COUNT* $$/PIN
017785,003233: 40,3607 31000 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
017786,003234: 40,3610 54132 TS BUF +2
017787,003235: 40,3611 35026 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
017788,003236: 40,3612 03631 TC TESTBIT
017789,003237: 40,3613 34331 CAF R1D1
017790,003238: 40,3614 02650 TC 5BLANK -1
017791,003239: 40,3615 35025 CAF BIT2 # TEST BIT 2. SEE IF R2 TO BE BLANKED.
017792,003240: 40,3616 03631 TC TESTBIT
017793,003241: 40,3617 34332 CAF R2D1
017794,003242: 40,3620 02650 TC 5BLANK -1
017795,003243: 40,3621 35024 CAF BIT3 # TEST BIT3. SEE IF R3 TO BE BLANKED.
017796,003244: 40,3622 03631 TC TESTBIT
017797,003245: 40,3623 34333 CAF R3D1
017798,003246: 40,3624 02650 TC 5BLANK -1
017799,003247: 40,3625 30132 CA BUF +2 # RESTORE DSPCOUNT TO STATE IT HAD
017800,003248: 40,3626 55000 TS DSPCOUNT # BEFORE BLANKSUB.
017801,003249: 40,3627 52131 DXCH BUF # CALL L+2 DIRECTLY.
017802,003250: 40,3630 05236 TC SUPDXCHZ +1 # DTCB WITH SUPERBIT SWITCHING
017803,003251:
017804,003252: 40,3631 70123 TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
017805,003253: 40,3632 10000 CCS A
017806,003254: 40,3633 00002 TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
017807,003255: 40,3634 50002 INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
017808,003256: 40,3635 00002 TC 2
017809,003257:
017810,003258: 40,3636 ENDBSUB1 EQUALS
017811,003259:
017812,003260:
017813,003261: # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
017814,003262: # PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
017815,003263:
017816,003264: # IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
017817,003265:
017818,003266: # DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
017819,003267:
017820,003268: 07,2622 BANK 7
017821,003269: 04,2000 SETLOC PINBALL4
017822,003270: 04,2000 BANK
017823,003271:
017824,003272: 04,2510 COUNT* $$/PIN
017825,003273: 04,2510 56002 DSPMM XCH Q
017826,003274: 04,2511 54154 TS MPAC
017827,003275: 04,2512 00004 INHINT
017828,003276: 04,2513 34367 CAF CHRPRIO
017829,003277: 04,2514 05142 TC NOVAC
017830,003278: 04,2515 1000 EBANK= DSPCOUNT
017831,003279: 04,2515 03636 60102 2CADR DSPMMJB
017832,003280:
017833,003281: 04,2517 00003 RELINT
017834,003282: 04,2520 00154 ENDSPMM TC MPAC
017835,003283:
017836,003284:
017837,003285: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
017838,003286:
017839,003287: 40,3636 SETLOC ENDBSUB1
017840,003288:
017841,003289: 40,3636 COUNT* $$/PIN
017842,003290: 40,3636 34374 DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
017843,003291: 40,3637 57000 XCH DSPCOUNT
017844,003292: 40,3640 54140 TS DSPMMTEM # SAVE DSPCOUNT
017845,003293: 40,3641 11012 CCS MODREG
017846,003294: 40,3642 65026 AD ONE
017847,003295: 40,3643 03421 TC DSPDECVN # IF MODREG IS + OR +0, DISPLAY MODREG
017848,003296: 40,3644 03646 TC +2 # IF MODREG IS -NZ, DO NOTHING
017849,003297: 40,3645 02714 TC 2BLANK # IF MODREG IS -0, BLANK MM
017850,003298: 40,3646 56140 XCH DSPMMTEM # RESTORE DSPCOUNT
017851,003299: 40,3647 55000 TS DSPCOUNT
017852,003300: 40,3650 05225 TC ENDOFJOB
017853,003301:
017854,003302:
017855,003303: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
017856,003304: # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
017857,003305: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
017858,003306:
017859,003307: # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
017860,003308: # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
017861,003309:
017862,003310: 40,3651 11043 RECALTST CCS CADRSTOR
017863,003311: 40,3652 03654 TC RECAL1
017864,003312: 40,3653 05225 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
017865,003313: 40,3654 35030 RECAL1 CAF ZERO
017866,003314: 40,3655 57043 XCH CADRSTOR
017867,003315: 40,3656 00004 INHINT
017868,003316: 40,3657 05207 TC JOBWAKE
017869,003317: 40,3660 11015 CCS LOADSTAT
017870,003318: 40,3661 03703 TC DOPROC # + PROCEED WITHOUT DATA
017871,003319: 40,3662 05225 TC ENDOFJOB # PATHALOGICAL CASE EXIT
017872,003320: 40,3663 03701 TC DOTERM # - TERMINATE
017873,003321: 40,3664 35025 CAF TWO # -0 DATA IN OR RESEQUENCE
017874,003322: 40,3665 50064 RECAL2 INDEX LOCCTR
017875,003323: 40,3666 60164 AD LOC # LOC IS + FOR BASIC JOBS
017876,003324: 40,3667 50064 INDEX LOCCTR
017877,003325: 40,3670 54164 TS LOC
017878,003326: 40,3671 31003 CA NOUNREG # SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
017879,003327: 40,3672 54001 TS L # TIME OF RESPONSE TO ENDIDLE FOR
017880,003328: 40,3673 31002 CA VERBREG # POSSIBLE LATER TESTING BY JOB THAT HAS
017881,003329: 40,3674 50064 INDEX LOCCTR # BEEN WAKED UP.
017882,003330: 40,3675 52155 DXCH MPAC
017883,003331: 40,3676 00003 RELINT
017884,003332: 40,3677 04471 RECAL3 TC RELDSP
017885,003333: 40,3700 05225 TC ENDOFJOB
017886,003334:
017887,003335: 40,3701 35030 DOTERM CAF ZERO
017888,003336: 40,3702 03665 TC RECAL2
017889,003337:
017890,003338: 40,3703 35026 DOPROC CAF ONE
017891,003339: 40,3704 03665 TC RECAL2
017892,003340:
017893,003341:
017894,003342: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
017895,003343:
017896,003344:
017897,003345: 4315 SETLOC ENDBLFF
017898,003346:
017899,003347: 4315 COUNT* $$/PIN
017900,003348: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
017901,003349: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
017902,003350:
017903,003351: 4315 55020 SETNCADR TS NOUNCADR # STORE ECADR
017904,003352: 4316 54003 TS EBANK # SET EBANK BITS
017905,003353: 4317 74371 MASK LOW8
017906,003354: 4320 65057 AD OCT1400
017907,003355: 4321 54145 TS NOUNADD # PUT E ADRES INTO NOUNADD
017908,003356: 4322 00002 TC Q
017909,003357:
017910,003358:
017911,003359: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
017912,003360: # E ADRES AND PUTS IT INTO NOUNADD.
017913,003361:
017914,003362: 4323 31020 SETNADD CA NOUNCADR
017915,003363: 4324 14316 TCF SETNCADR +1
017916,003364:
017917,003365:
017918,003366: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
017919,003367: # DERIVED AND LEFT IN A.
017920,003368:
017921,003369: 4325 54003 SETEBANK TS EBANK # SET EBANK BITS
017922,003370: 4326 74371 MASK LOW8
017923,003371: 4327 65057 AD OCT1400 # E ADRES LEFT IN A
017924,003372: 4330 00002 TC Q
017925,003373:
017926,003374:
017927,003375: 4331 00016 R1D1 OCT 16 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017928,003376: 4332 00011 R2D1 OCT 11 # DONT SEPARATE.
017929,003377: 4333 00004 R3D1 OCT 4
017930,003378:
017931,003379: 4334 54020 RIGHT5 TS CYR
017932,003380: 4335 40020 CS CYR
017933,003381: 4336 40020 CS CYR
017934,003382: 4337 40020 CS CYR
017935,003383: 4340 40020 CS CYR
017936,003384: 4341 56020 XCH CYR
017937,003385: 4342 00002 TC Q
017938,003386:
017939,003387: 4343 54022 LEFT5 TS CYL
017940,003388: 4344 40022 CS CYL
017941,003389: 4345 40022 CS CYL
017942,003390: 4346 40022 CS CYL
017943,003391: 4347 40022 CS CYL
017944,003392: 4350 56022 XCH CYL
017945,003393: 4351 00002 TC Q
017946,003394:
017947,003395: 4352 60000 SLEFT5 DOUBLE
017948,003396: 4353 60000 DOUBLE
017949,003397: 4354 60000 DOUBLE
017950,003398: 4355 60000 DOUBLE
017951,003399: 4356 60000 DOUBLE
017952,003400: 4357 00002 TC Q
017953,003401:
017954,003402:
017955,003403: 4360 00037 LOW5 OCT 37 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017956,003404: 4361 01740 MID5 OCT 1740 # DONT SEPARATE.
017957,003405: 4362 76000 HI5 OCT 76000 # MUST STAY HERE
017958,003406:
017959,003407: 4363 05142 TCNOVAC TC NOVAC
017960,003408: 4364 05252 TCWAIT TC WAITLIST
017961,003409: 4365 05331 TCTSKOVR TC TASKOVER
017962,003410: 4366 05155 TCFINDVC TC FINDVAC
017963,003411:
017964,003412:
017965,003413: 4367 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
017966,003414:
017967,003415:
017968,003416: 4370 03777 LOW11 OCT 3777
017969,003417: 4371 4370 B12-1 EQUALS LOW11
017970,003418: 4371 00377 LOW8 OCT 377
017971,003419:
017972,003420:
017973,003421: 4372 00023 VD1 OCT 23 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017974,003422: 4373 00021 ND1 OCT 21 # DONT SEPARATE.
017975,003423: 4374 00025 MD1 OCT 25
017976,003424:
017977,003425: 4375 00012 BINCON DEC 10 B-14
017978,003426:
017979,003427: 4376 35020 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
017980,003428: 4377 00006 EXTEND
017981,003429: 4400 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
017982,003430: 4401 00002 TC Q
017983,003431:
017984,003432: 4402 45020 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
017985,003433: 4403 00006 EXTEND
017986,003434: 4404 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
017987,003435: 4405 00002 TC Q
017988,003436:
017989,003437: 4406 35022 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
017990,003438: 4407 00006 EXTEND
017991,003439: 4410 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
017992,003440: 4411 00002 TC Q
017993,003441:
017994,003442: 4412 00006 LODSAMPT EXTEND
017995,003443: 4413 30025 DCA TIME2
017996,003444: 4414 52014 DXCH SAMPTIME
017997,003445: 4415 00002 TC Q
017998,003446:
017999,003447:
018000,003448: 4416 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
018001,003449: 4417 30156 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
018002,003450: 4420 20156 DAS MPAC +1
018003,003451: 4421 60154 AD MPAC
018004,003452: 4422 26154 ADS MPAC
018005,003453: 4423 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
018006,003454: 4424 00002 TC Q # NO NET OF/UF
018007,003455: 4425 54162 TS MPAC+6 # MPAC +6 SET TO +/-1 FOR OF/UF
018008,003456: 4426 00002 TC Q
018009,003457:
018010,003458:
018011,003459: # IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
018012,003460: # IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
018013,003461: # PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
018014,003462: # SETTING RESULT TO -0.
018015,003463: # (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
018016,003464: # WHEN THEY CONTAIN TH E SF CONSTANTS.)
018017,003465:
018018,003466: 4427 54135 PRSHRTMP TS MPTEMP
018019,003467: 4430 10000 CCS A
018020,003468: 4431 30135 CA MPTEMP # C(A) +, DO REGULAR SHORTMP
018021,003469: 4432 17262 TCF SHORTMP +1 # C(A) +0, DO REGULAR SHORTMP
018022,003470: 4433 14431 TCF -2 # C(A) -, DO REGULAR SHORTMP
018023,003471: 4434 45030 CS ZERO # C(A) -0, FORCE RESULT TO -0 AND RETURN.
018024,003472: 4435 54154 TS MPAC
018025,003473: 4436 54155 TS MPAC +1
018026,003474: 4437 54156 TS MPAC +2
018027,003475: 4440 00002 TC Q
018028,003476:
018029,003477:
018030,003478: 4441 35021 FLASHON CAF BIT6 # TURN ON V/N FLASH
018031,003479: 4442 00006 EXTEND # BIT 6 OF CHANNEL 11
018032,003480: 4443 05011 WOR DSALMOUT
018033,003481: 4444 00002 TC Q
018034,003482:
018035,003483:
018036,003484: 4445 45021 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
018037,003485: 4446 00006 EXTEND
018038,003486: 4447 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
018039,003487: 4450 00002 TC Q
018040,003488:
018041,003489: # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
018042,003490:
018043,003491: # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
018044,003492: # CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
018045,003493: # HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
018046,003494: # OFFERED.
018047,003495:
018048,003496: # THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
018049,003497: # PROGRAM. 1) BY ENDIDLE
018050,003498: # 2) BY NVSUBUSY
018051,003499: # THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
018052,003500: # THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
018053,003501: # SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
018054,003502: # PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
018055,003503:
018056,003504:
018057,003505: # THE CALLING SEQUENCE FOR NVSUB IS
018058,003506: # CAF V/N
018059,003507: # L TC NVSUB
018060,003508: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
018061,003509: # L+2 RETURN HERE AFTER EXECUTION
018062,003510:
018063,003511:
018064,003512: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
018065,003513: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
018066,003514: # SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
018067,003515: # NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
018068,003516: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
018069,003517:
018070,003518:
018071,003519: # THE CALLING SEQUENCE IS
018072,003520: # CAF WAKEFCADR
018073,003521: # TC NVSUBUSY
018074,003522:
018075,003523:
018076,003524: # .
018077,003525:
018078,003526:
018079,003527: # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
018080,003528: # IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
018081,003529: # NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
018082,003530: # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
018083,003531:
018084,003532:
018085,003533: # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
018086,003534: # SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
018087,003535: # WHEN
018088,003536: # 1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
018089,003537: # IS EXCEEDED.
018090,003538: # 2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
018091,003539: # ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
018092,003540:
018093,003541: 4451 44456 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
018094,003542: 4452 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
018095,003543: 4453 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
018096,003544: 4454 04674 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
018097,003545: 4455 10521 CADR NVSUBSY1
018098,003546: 4456 02003 2K+3 OCT 2003
018099,003547:
018100,003548: # NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
018101,003549: # WITH HIS PROPER SUPERBITS.
018102,003550:
018103,003551: 04,2521 SETLOC ENDSPMM +1
018104,003552: 04,2521 COUNT* $$/PIN
018105,003553: 04,2521 54001 NVSUBSY1 TS L
018106,003554: 04,2522 04232 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0.
018107,003555: 04,2523 04236 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0.
018108,003556: 04,2524 04406 TC RELDSPON
018109,003557: 04,2525 30001 CA L
018110,003558: 04,2526 55044 TS DSPLIST
018111,003559: 04,2527 05203 ENDNVBSY TC JOBSLEEP
018112,003560:
018113,003561:
018114,003562: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
018115,003563: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
018116,003564: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
018117,003565: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
018118,003566: # IS NOT BUSY.
018119,003567:
018120,003568: 4457 SETLOC NVSUBUSY +3
018121,003569: 4457 COUNT* $$/PIN
018122,003570: 4457 22007 NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
018123,003571: 4460 54123 TS NVTEMP
018124,003572: 4461 35011 CAF BIT14
018125,003573: 4462 71022 MASK MONSAVE1 # EXTERNAL MONITOR BIT
018126,003574: 4463 61013 AD DSPLOCK
018127,003575: 4464 10000 CCS A
018128,003576: 4465 14467 TCF NVSBWT1 # BUSY
018129,003577: 4466 14176 TCF NVSBCOM # FREE. NVSUB WILL SAVE L+1 FOR RETURN
018130,003578: # AFTER EXECUTION.
018131,003579: 4467 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
018132,003580: 4470 14451 TCF PRENVBSY # GO TO SLEEP.
018133,003581:
018134,003582:
018135,003583: # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
018136,003584: # VERB DISPATCHER, VBRESEQ, RECALTST.
018137,003585: # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
018138,003586: 4471 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
018139,003587: 4472 54144 TS RELRET # OFF, SEARCH DSPLIST
018140,003588: 4473 45011 CS BIT14
018141,003589: 4474 00004 INHINT
018142,003590: 4475 71022 MASK MONSAVE1
018143,003591: 4476 55022 TS MONSAVE1 # TURN OFF EXTERNAL MONITOR BIT
018144,003592: 4477 11044 CCS DSPLIST
018145,003593: 4500 04502 TC +2
018146,003594: 4501 04505 TC RELDSP2 # LIST EMPTY
018147,003595: 4502 35030 CAF ZERO
018148,003596: 4503 57044 XCH DSPLIST
018149,003597: 4504 05207 TC JOBWAKE
018150,003598: 4505 00003 RELDSP2 RELINT
018151,003599: 4506 45022 CS BIT5 # TURN OFF KEY RELEASE LIGHT
018152,003600: 4507 00006 EXTEND # (BIT 5 OF CHANNEL 11)
018153,003601: 4510 03011 WAND DSALMOUT
018154,003602: 4511 35030 CAF ZERO
018155,003603: 4512 55013 TS DSPLOCK
018156,003604: 4513 00144 TC RELRET
018157,003605: 4514 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
018158,003606: 4515 54144 TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
018159,003607: # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
018160,003608: # DSPLIST IS NOT EMPTY.
018161,003609: 4516 11044 CCS DSPLIST
018162,003610: 4517 04521 TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
018163,003611: 4520 04505 TC RELDSP2 # +0 EMPTY. TURN OFF KEY RLSE LIGHT
018164,003612: 4521 35030 CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
018165,003613: 4522 55013 TS DSPLOCK
018166,003614: 4523 00144 TC RELRET
018167,003615:
018168,003616:
018169,003617: 4524 ENDPINBF EQUALS
018170,003618:
018171,003619: # PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
018172,003620:
018173,003621: 4524 43,2002 PINTEST EQUALS LST2FAN
018174,003622:
018175,003623:
018176,003624: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
018177,003625: # OFF THE CAUTION AND STATUS LIGHTS.
018178,003626:
018179,003627: 41,3606 SETLOC ENDNVSB1 +1
018180,003628:
018181,003629: 41,3606 COUNT* $$/PIN
018182,003630: 41,3606 00004 VBTSTLTS INHINT
018183,003631: 41,3607 45026 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
018184,003632: 41,3610 71305 MASK IMODES33 # TURN OUT ANY LAMPS.
018185,003633: 41,3611 65026 AD BIT1
018186,003634: 41,3612 55305 TS IMODES33
018187,003635:
018188,003636: 41,3613 33651 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
018189,003637: 41,3614 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
018190,003638: 41,3615 05011 WOR DSALMOUT
018191,003639: 41,3616 33652 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
018192,003640: 41,3617 55037 TS DSPTAB +11D # PROG ALM.
018193,003641: 41,3620 35015 CAF BIT10 # TURN ON TEST ALARM OUTBIT
018194,003642: 41,3621 00006 EXTEND
018195,003643: 41,3622 05013 WOR CHAN13
018196,003644: 41,3623 34375 CAF TEN
018197,003645: 41,3624 54117 TSTLTS1 TS ERCNT
018198,003646: 41,3625 43647 CS FULLDSP
018199,003647: 41,3626 50117 INDEX ERCNT
018200,003648: 41,3627 55024 TS DSPTAB
018201,003649: 41,3630 10117 CCS ERCNT
018202,003650: 41,3631 03624 TC TSTLTS1
018203,003651: 41,3632 43650 CS FULLDSP1
018204,003652: 41,3633 55025 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
018205,003653: 41,3634 55030 TS DSPTAB +4
018206,003654: 41,3635 55032 TS DSPTAB +6
018207,003655: 41,3636 35033 CAF ELEVEN
018208,003656: 41,3637 55017 TS NOUT
018209,003657: 41,3640 00003 RELINT
018210,003658: 41,3641 33654 CAF SHOLTS
018211,003659: 41,3642 00004 INHINT
018212,003660: 41,3643 05252 TC WAITLIST
018213,003661: 41,3644 1024 EBANK= DSPTAB
018214,003662: 41,3644 03655 62102 2CADR TSTLTS2
018215,003663:
018216,003664: 41,3646 05225 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
018217,003665: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
018218,003666: # LIGHTS TEST WILL BE SEEN.
018219,003667:
018220,003668:
018221,003669: 41,3647 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
018222,003670: 41,3650 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
018223,003671: 41,3651 00175 TSTCON1 OCT 00175
018224,003672: # UPLINK ACTIVITY, TEMP, KEY RLSE,
018225,003673: # V/N FLASH, OPERATOR ERROR.
018226,003674: 41,3652 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
018227,003675: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
018228,003676: 41,3653 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
018229,003677: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
018230,003678: 41,3654 00764 SHOLTS OCT 764 # 5 SEC
018231,003679:
018232,003680:
018233,003681: 41,3655 34367 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
018234,003682: 41,3656 05142 TC NOVAC
018235,003683: 41,3657 1024 EBANK= DSPTAB
018236,003684: 41,3657 03662 62102 2CADR TSTLTS3
018237,003685:
018238,003686: 41,3661 05331 TC TASKOVER
018239,003687:
018240,003688:
018241,003689: 41,3662 43653 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
018242,003690: 41,3663 00004 INHINT
018243,003691: 41,3664 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
018244,003692: 41,3665 03011 WAND DSALMOUT # OPERATOR ERROR.
018245,003693: 41,3666 45015 CS BIT10 # TURN OFF TEST ALARM OUTBIT
018246,003694: 41,3667 00006 EXTEND
018247,003695: 41,3670 03013 WAND CHAN13
018248,003696: 41,3671 35023 CAF BIT4 # MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
018249,003697: 41,3672 00006 EXTEND # (NO ATT LIGHT ON IF IN COARSE ALIGN)
018250,003698: 41,3673 02012 RAND CHAN12
018251,003699: 41,3674 65010 AD BIT15 # TURN OFF AUTO, HOLD, FREE, SPARE,
018252,003700: 41,3675 55037 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
018253,003701: 41,3676 43721 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
018254,003702: 41,3677 71305 MASK IMODES33 # LIGHTS COMPLETE.
018255,003703: 41,3700 65076 AD PRIO16
018256,003704: 41,3701 55305 TS IMODES33
018257,003705:
018258,003706: 41,3702 43723 CS OCT55000
018259,003707: 41,3703 71304 MASK IMODES30
018260,003708: 41,3704 65075 AD PRIO15 # 15000.
018261,003709: 41,3705 55304 TS IMODES30
018262,003710:
018263,003711: 41,3706 43722 CS RFAILS2
018264,003712: 41,3707 71101 MASK RADMODES
018265,003713: 41,3710 65020 AD BIT7
018266,003714: 41,3711 55101 TS RADMODES
018267,003715:
018268,003716: 41,3712 00003 RELINT
018269,003717:
018270,003718: 41,3713 04655 TC BANKCALL # REDISPLAY C(MODREG)
018271,003719: 41,3714 10510 CADR DSPMM
018272,003720: 41,3715 04216 TC KILMONON # TURN ON KILL MONITOR BIT.
018273,003721: 41,3716 04445 TC FLASHOFF # TURN OFF V/N FLASH.
018274,003722: 41,3717 04674 TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF
018275,003723: 41,3720 61573 CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE.
018276,003724: 41,3721 16001 13-11,1 OCT 16001
018277,003725: 41,3722 00330 RFAILS2 OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
018278,003726: 41,3723 55000 OCT55000 OCT 55000
018279,003727: 41,3724 ENDPINS2 EQUALS
018280,003728:
018281,003729: # ERROR LIGHT RESET (RSET) TURNS OFF,
018282,003730: # UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
018283,003731: # PROG ALM, TRACKER FAIL.
018284,003732: # LEAVES GIMBAL LOCK AND NO ATT ALONE.
018285,003733: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
018286,003734: # IT ALSO SETS :CAUTION RESET: TO 1.
018287,003735: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
018288,003736:
018289,003737: 40,3705 SETLOC DOPROC +2
018290,003738: 40,3705 COUNT* $$/PIN
018291,003739: 40,3705 56115 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
018292,003740: 40,3706 55013 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
018293,003741: 40,3707 00004 INHINT
018294,003742: 40,3710 35015 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
018295,003743: 40,3711 00006 EXTEND
018296,003744: 40,3712 05011 WOR DSALMOUT # BIT10 CHAN 11
018297,003745: 40,3713 33774 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
018298,003746: 40,3714 71037 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
018299,003747: 40,3715 65010 AD BIT15 # PROG ALARM, AND TRACKER.
018300,003748: 40,3716 55037 TS DSPTAB +11D
018301,003749: 40,3717 45076 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
018302,003750: 40,3720 71305 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
018303,003751: 40,3721 65076 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
018304,003752: 40,3722 55305 TS IMODES33
018305,003753: 40,3723 45015 CS BIT10
018306,003754: 40,3724 71304 MASK IMODES30
018307,003755: 40,3725 65015 AD BIT10
018308,003756: 40,3726 55304 TS IMODES30
018309,003757:
018310,003758: 40,3727 43773 CS RFAILS
018311,003759: 40,3730 71101 MASK RADMODES
018312,003760: 40,3731 65020 AD BIT7
018313,003761: 40,3732 55101 TS RADMODES
018314,003762:
018315,003763: 40,3733 45015 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
018316,003764: 40,3734 00006 EXTEND
018317,003765: 40,3735 03013 WAND CHAN13
018318,003766: 40,3736 43772 CS ERCON # TURN OFF UPLINK ACTIVITY,
018319,003767: 40,3737 00006 EXTEND # OPERATOR ERROR.
018320,003768: 40,3740 03011 WAND DSALMOUT
018321,003769: 40,3741 34375 TSTAB CAF BINCON # (DEC 10)
018322,003770: 40,3742 54117 TS ERCNT # ERCNT = COUNT
018323,003771: 40,3743 00004 INHINT
018324,003772: 40,3744 50117 INDEX ERCNT
018325,003773: 40,3745 11024 CCS DSPTAB
018326,003774: 40,3746 65026 AD ONE
018327,003775: 40,3747 03754 TC ERPLUS
018328,003776: 40,3750 65026 AD ONE
018329,003777: 40,3751 40000 ERMINUS CS A
018330,003778: 40,3752 73775 MASK NOTBIT12
018331,003779: 40,3753 03757 TC ERCOM
018332,003780: 40,3754 40000 ERPLUS CS A
018333,003781: 40,3755 73775 MASK NOTBIT12
018334,003782: 40,3756 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
018335,003783: 40,3757 50117 ERCOM INDEX ERCNT # ETC.
018336,003784: 40,3760 55024 TS DSPTAB
018337,003785: 40,3761 00003 RELINT
018338,003786: 40,3762 10117 CCS ERCNT
018339,003787: 40,3763 03742 TC TSTAB +1
018340,003788: 40,3764 35030 CAF ZERO
018341,003789: 40,3765 54375 TS FAILREG
018342,003790: 40,3766 54376 TS FAILREG +1
018343,003791: 40,3767 54377 TS FAILREG +2
018344,003792: 40,3770 55357 TS SFAIL
018345,003793: 40,3771 05225 TC ENDOFJOB
018346,003794:
018347,003795: 40,3772 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
018348,003796: # UPLINK ACTIVITY, AND OPERATOR ERROR.
018349,003797: 40,3773 00330 RFAILS OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
018350,003798: 40,3774 00050 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
018351,003799: 40,3775 73777 NOTBIT12 OCT 73777
018352,003800:
018353,003801:
018354,003802: 40,3776 ENDPINS1 EQUALS
018355,003803:
018356,003804:
018357,003805: 40,3776 30,2000 SBANK= LOWSUPER
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc