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