GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
017503,000002: ## Copyright: Public domain.
017504,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
017505,000004: ## Purpose: The main source file for Luminary revision 069.
017506,000005: ## It is part of the source code for the original release
017507,000006: ## of the flight software for the Lunar Module's (LM) Apollo
017508,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
017509,000008: ## version was Luminary 69 revision 2, which included a
017510,000009: ## newer lunar gravity model and only affected module 2.
017511,000010: ## This file is intended to be a faithful transcription, except
017512,000011: ## that the code format has been changed to conform to the
017513,000012: ## requirements of the yaYUL assembler rather than the
017514,000013: ## original YUL assembler.
017515,000014: ## Reference: pp. 403-484
017516,000015: ## Assembler: yaYUL
017517,000016: ## Contact: Ron Burkey <info@sandroid.org>.
017518,000017: ## Website: www.ibiblio.org/apollo/index.html
017519,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
017520,000019: ## 2016-12-14 MAS Updated from comment-proofed Luminary 99 version.
017521,000020: ## 2017-01-21 MAS Updated for Luminary 69.
017522,000021: ## 2017-01-27 RSB Proofed comment text using octopus/prooferComments
017523,000022: ## but no errors found.
017524,000023: ## 2017-01-28 RSB WTIH -> WITH.
017525,000024: ## 2017-02-08 RSB Comment-text fixes identified while proofing Artemis 72.
017526,000025: ## 2017-03-08 RSB Comment-text fixes noted while proofing Luminary 116.
017527,000026: ## 2017-03-08 RSB Changed DSPOCTWO to DSPOCTWD.
017528,000027: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
017529,000028: ## side-by-side diff of Luminary 69/99/116/131/210.
017530,000029: ## Changed 360-CDUD to 360-CDUO.
017531,000030: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
017532,000031: ## Luminary 99 vs Comanche 55.
017533,000032: ## 2021-05-30 ABS RCDUFBIT -> BIT7 to match scans.
017534,000033:
|
|
Page 403 |
017536,000035: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
017537,000036: # MOD NO - 4 DATE - 27 APRIL 1967 ASSEMBLY - PINDANCE REV 18
017538,000037: # MOD BY - FILENE
017539,000038: # LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
017540,000039:
017541,000040: # FUNCTIONAL DESCRIPTION-
017542,000041:
017543,000042: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
017544,000043: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
017545,000044: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
017546,000045: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
017547,000046: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
017548,000047: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
017549,000048: # DECIMAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
017550,000049: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
017551,000050: # REFER TO A GROUP OF ERASABLE REGISTERS.
017552,000051:
017553,000052: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
017554,000053: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
017555,000054: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
017556,000055: # :EXTENDED VERBS:).
017557,000056: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
017558,000057: # OPERATION INFORMATION:.
017559,000058:
|
|
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
|
017594,000093:
017595,000094: # CALLING SEQUENCES-
017596,000095:
017597,000096: # KEYBOARD:
017598,000097: # EACH DEPRESSION OF A KEYBOARD BUTTON ACTIVATES INTERRUPT KEYRUPT1
017599,000098: # AND PLACES THE 5 BIT KEY CODE INTO CHANNEL 15. KEYRUPT1 PLACES THE KEY
017600,000099: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
017601,000100: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
017602,000101:
017603,000102: # UPLINK:
017604,000103: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
017605,000104: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
017606,000105: # KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
017607,000106:
017608,000107: # INTERNAL PROGRAMS:
017609,000108: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
017610,000109: # CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB). DETAILS
017611,000110: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
017612,000111: # SYMBOL TABLE FOR PAGE NUMBERS).
017613,000112:
017614,000113: # NORMAL EXIT MODES -
017615,000114: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
017616,000115: # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
017617,000116: # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
|
|
Page 404 |
017619,000118: # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
017620,000119: # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
017621,000120: # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
017622,000121: # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
017623,000122: # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
017624,000123: # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
017625,000124: # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
017626,000125: # 4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
017627,000126: # ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
017628,000127: # THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
017629,000128:
017630,000129: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
017631,000130: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
017632,000131: # :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
017633,000132:
017634,000133:
017635,000134: # ALARM OR ABORT EXIT MODES-
017636,000135:
017637,000136: # EXTERNAL INITIATION:
017638,000137: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
017639,000138: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
017640,000139:
017641,000140: # INTERNAL PROGRAM INITIATION:
017642,000141: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
017643,000142: # (WITH OCTAL 01501).
017644,000143: # IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
017645,000144: # CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
017646,000145: # 1) ENDIDLE OR DATAWAIT.
017647,000146: # 2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
017648,000147:
017649,000148: # CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
017650,000149: # E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017651,000150:
017652,000151:
017653,000152: # OUTPUT-
017654,000153:
017655,000154: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
017656,000155: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
017657,000156: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
017658,000157: # IN INTERRUPT.
017659,000158:
017660,000159:
017661,000160: # ERASABLE INITIALIZATION-
017662,000161:
017663,000162: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
017664,000163: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
017665,000164: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
017666,000165: # DSPCOUNT, NOUT.
017667,000166:
017668,000167: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
|
|
Page 405 |
017670,000169: # PINBALL IS GIVEN BELOW.
017671,000170:
017672,000171:
017673,000172: # THE FOLLOWING ARE OF GENERAL INTEREST-
017674,000173:
017675,000174: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
017676,000175: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
017677,000176:
017678,000177: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
017679,000178: # OF RELATED INTEREST NVSBWAIT
017680,000179: # NVSUBUSY
017681,000180: # PRENVBSY
017682,000181:
017683,000182: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
017684,000183: # AWAITING OPERATORS RESPONSE.
017685,000184:
017686,000185: # DSPMM ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
017687,000186: # PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
017688,000187: # (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
017689,000188: # FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
017690,000189:
017691,000190: # BLANKSUB ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
017692,000191: # COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
017693,000192:
017694,000193: # JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
017695,000194: # JAMPROC TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
017696,000195:
017697,000196: # MONITOR VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
017698,000197:
017699,000198: # PLEASE PERFORM, PLEASE MARK SITUATIONS
017700,000199: # REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
017701,000200: # THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
017702,000201: # SYMBOL TABLE FOR PAGE NUMBER).
017703,000202:
017704,000203: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
017705,000204: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
017706,000205:
017707,000206: # THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
017708,000207: # TABLES:.
017709,000208:
017710,000209:
017711,000210: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
017712,000211: # PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
017713,000212: # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
017714,000213:
|
|
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 |
017720,000219:
017721,000220: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
017722,000221:
017723,000222: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
017724,000223: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
|
|
Page 406 |
017726,000225: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
017727,000226:
017728,000227: # HENRY 6, ACT 2, SCENE 4
017729,000228:
|
|
Actually, this quotation is from Henry VI, Part 2, Act IV, Scene VII. —Ron Burkey, 07/2009 |
017732,000231:
017733,000232: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
017734,000233:
017735,000234:
017736,000235: # RESERVED FOR PINBALL EXECUTIVE ACTION
017737,000236:
017738,000237: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
017739,000238: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
017740,000239: # VERBREG ERASE VERB CODE
017741,000240: # NOUNREG ERASE NOUN CODE
017742,000241: # XREG ERASE R1 INPUT BUFFER
017743,000242: # YREG ERASE R2 INPUT BUFFER
017744,000243: # ZREG ERASE R3 INPUT BUFFER
017745,000244: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
017746,000245: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
017747,000246: # HITEMOUT = YREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
017748,000247: # MUST = LOTEMOUT-1.
017749,000248: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
017750,000249: # LOTEMOUT = ZREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
017751,000250: # MUST = HITEMOUT+1.
017752,000251: # MODREG ERASE MODE CODE
017753,000252: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
017754,000253: # REQRET ERASE RETURN REGISTER FOR LOAD
017755,000254: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
017756,000255: # CLPASS ERASE PASS INDICATOR CLEAR
017757,000256: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
017758,000257: # NOUNCADR ERASE MACHINE CADR FOR NOUN
017759,000258: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
017760,000259: # MONSAVE1 ERASE NOUNCADR FOR MONITOR (MATBS) =MONSAVE+1
017761,000260: # MONSAVE2 ERASE NVMONOPT OPTIONS
017762,000261: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
017763,000262: # CADRSTOR ERASE ENDIDLE STORAGE
017764,000263: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
017765,000264: # MUST = NVBNKTEM-1
017766,000265: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
017767,000266: # MUST = NVQTEM+1
017768,000267: # VERBSAVE ERASE NEEDED FOR RECYCLE
017769,000268: # DSPLIST ERASE WAITING REG FOR DSP SYST INTERNAL USE
017770,000269: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
017771,000270: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
017772,000271: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
017773,000272: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
017774,000273:
017775,000274:
017776,000275: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017777,000276:
|
|
Page 407 |
017779,000278: # DSEXIT = INTB15+ RETURN FOR DSPIN
017780,000279: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
017781,000280: # BLANKRET = INTB15+ RETURN FOR 2BLANK
017782,000281:
017783,000282: # WRDRET = INTBIT15 RETURN FOR 5BLANK
017784,000283: # WDRET = INTBIT15 RETURN FOR DSPWD
017785,000284: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
017786,000285: # 21/22REG = INTBIT15 TEMP FOR CHARIN
017787,000286:
017788,000287: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
017789,000288: # CHAR = POLISH TEMP FOR CHARIN
017790,000289: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
017791,000290: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
017792,000291:
017793,000292: # SGNON = VBUF TEMP FOR +,- ON
017794,000293: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
017795,000294: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
017796,000295: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
017797,000296:
017798,000297: # SGNOFF = VBUF +1 TEMP FOR +,- ON
017799,000298: # NVTEMP = VBUF +1 TEMP FOR NVSUB
017800,000299: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
017801,000300: # HITEMIN = VBUF +1 TEMP FOR LOAD OF HRS, MIN, SEC
017802,000301: # MUST = LOTEMIN-1.
017803,000302: # CODE = VBUF +2 FOR DSPIN
017804,000303: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
017805,000304: # LOTEMIN = VBUF +2 TEMP FOR LOAD OF HRS, MIN, SEC
017806,000305: # MUST = HITEMIN+1.
017807,000306: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
017808,000307: # SIGNRET = VBUF +3 RETURN FOR +,- ON
017809,000308:
017810,000309: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
017811,000310:
017812,000311: # ENTRET = DOTINC EXIT FROM ENTER
017813,000312:
017814,000313: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
017815,000314: # INREL = DOTRET INPUT BUFFER SELECTOR ( X,Y,Z, REG )
017816,000315:
017817,000316: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
017818,000317: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
017819,000318:
017820,000319: # TEM1 ERASE EXEC TEMP
017821,000320: # DSREL = TEM1 REL ADDRESS FOR DSPIN
017822,000321:
017823,000322: # TEM2 ERASE EXEC TEMP
017824,000323: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
017825,000324: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
017826,000325:
017827,000326: # TEM3 ERASE EXEC TEMP
017828,000327: # COUNT = TEM3 FOR DSPIN
017829,000328:
|
|
Page 408 |
017831,000330: # TEM4 ERASE EXEC TEMP
017832,000331: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
017833,000332: # RELRET = TEM4 RETURN FOR RELDSP
017834,000333: # FREERET = TEM4 RETURN FOR FREEDSP
017835,000334: # DSPWDRET = TEM4 RETURN FOR DSPSIGN
017836,000335: # SEPSCRET = TEM4 RETURN FOR SEPSEC
017837,000336: # SEPMNRET = TEM4 RETURN FOR SEPMIN
017838,000337:
017839,000338: # TEM5 ERASE EXEC TEMP
017840,000339: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
017841,000340:
017842,000341: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
017843,000342: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
017844,000343: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017845,000344: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
017846,000345: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017847,000346: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
017848,000347: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
017849,000348: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
017850,000349: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
017851,000350: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017852,000351:
017853,000352:
017854,000353: # ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
017855,000354:
017856,000355: # MPAC, THRU MPAC +6
017857,000356: # BUF, +1, +2
017858,000357: # BUF2, +1, +2
017859,000358: # MPTEMP
017860,000359: # ADDRWD
017861,000360: # END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
017862,000361:
017863,000362:
017864,000363: # RESERVED FOR PINBALL INTERRUPT ACTION
017865,000364:
017866,000365: # DSPCNT ERASE COUNTER FOR DSPOUT
017867,000366: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
017868,000367: # RECEPTION OF A BAD MESSAGE IN UPLINK)
017869,000368: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
017870,000369:
017871,000370:
017872,000371: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
017873,000372:
017874,000373: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
017875,000374: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
017876,000375: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
017877,000376: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
017878,000377:
|
|
Page 409 |
017880,000379: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
017881,000380: # 0 10000
017882,000381: # 1 00001
017883,000382: # 9 01001
017884,000383: # VERB 10001
017885,000384: # ERROR RES10010
017886,000385: # KEY RLSE 11001
017887,000386: # + 11010
017888,000387: # - 11011
017889,000388: # ENTER 11100
017890,000389: # CLEAR 11110
017891,000390: # NOUN 11111
|
|
2003 RSB — The PROCEED key has no keycode; it is read by an alternate mechanism. |
017893,000392:
017894,000393:
017895,000394: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
017896,000395: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
017897,000396: # ENERGIZED.
017898,000397: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
017899,000398: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
017900,000399: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
017901,000400:
017902,000401: # THE PANEL APPEARS AS FOLLOWS,
017903,000402: # MD1 MD2 (MAJOR MODE)
017904,000403: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
017905,000404: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
017906,000405: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
017907,000406: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
017908,000407:
017909,000408: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
017910,000409: # MD1 25 R2D1 11 ALL ARE OCTAL
017911,000410: # MD2 24 R2D2 10
017912,000411: # VD1 23 R2D3 7
017913,000412: # VD2 22 R2D4 6
017914,000413: # ND1 21 R2D5 5
017915,000414: # ND2 20 R3D1 4
017916,000415: # R1D1 16 R3D2 3
017917,000416: # R1D2 15 R3D3 2
017918,000417: # R1D3 14 R3D4 1
017919,000418: # R1D4 13 R3D5 0
017920,000419: # R1D5 12
017921,000420:
017922,000421:
017923,000422: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
017924,000423:
017925,000424: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
017926,000425: # RELADD
017927,000426: # 10 1011 MD1 (25) MD2 (24)
017928,000427: # 9 1010 VD1 (23) VD2 (22)
017929,000428: # 8 1001 ND1 (21) ND2 (20)
017930,000429: # 7 1000 R1D1 (16)
|
|
Page 410 |
017932,000431: # 6 0111 +R1 R1D2 (15) R1D3 (14)
017933,000432: # 5 0110 -R1 R1D4 (13) R1D5 (12)
017934,000433: # 4 0101 +R2 R2D1 (11) R2D2 (10)
017935,000434: # 3 0100 -R2 R2D3 (7) R2D4 (6)
017936,000435: # 2 0011 R2D5 (5) R3D1 (4)
017937,000436: # 1 0010 +R3 R3D2 (3) R3D3 (2)
017938,000437: # 0 0001 -R3 R3D4 (1) R3D5 (0)
017939,000438: # 0000 NO RELAYWORD
017940,000439:
017941,000440:
017942,000441: # THE 5 BIT OUTPUT RELAY CODES ARE:
017943,000442: # BLANK 00000
017944,000443: # 0 10101
017945,000444: # 1 00011
017946,000445: # 2 11001
017947,000446: # 3 11011
017948,000447: # 4 01111
017949,000448: # 5 11110
017950,000449: # 6 11100
017951,000450: # 7 10011
017952,000451: # 8 11101
017953,000452: # 9 11111
017954,000453:
017955,000454:
017956,000455: # OUTPUT BITS USED BY PINBALL:
017957,000456:
017958,000457: # KEY RELEASE LIGHT - BIT 5 OF CHANNEL 11
017959,000458: # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
017960,000459: # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
017961,000460:
|
|
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. |
017965,000464:
|
|
Page 411 |
017967,000466: # START OF EXECUTIVE SECTION OF PINBALL
017968,000467:
017969,000468: 40,2077 BANK 40
017970,000469: 40,2000 SETLOC PINBALL1
017971,000470: 40,2000 BANK
017972,000471:
017973,000472: 40,2077 COUNT* $$/PIN
017974,000473: 40,2077 34753 CHARIN CAF ONE # BLOCK DISPLAY SYST
017975,000474: 40,2100 57012 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
017976,000475: 40,2101 54115 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
017977,000476: 40,2102 11042 CCS CADRSTOR # ALL KEYS EXCEPT ER TURN ON KR LITE IF
017978,000477: 40,2103 02105 TC +2 # CADRSTOR IS FULL. THIS REMINDS OPERATOR
017979,000478: 40,2104 02112 TC CHARIN2 # TO RE-ESTABLISH A FLASHING DISPLAY
017980,000479: 40,2105 42156 CS ELRCODE1 # WHICH HE HAS OBSCURED WITH DISPLAYS OF
017981,000480: 40,2106 60154 AD MPAC # HIS OWN (SEE REMARKS PRECEDING ROUTINE
017982,000481: 40,2107 00006 EXTEND # VBRELDSP).
017983,000482: 40,2110 12112 BZF CHARIN2
017984,000483: 40,2111 04374 TC RELDSPON
017985,000484: 40,2112 56154 CHARIN2 XCH MPAC
017986,000485: 40,2113 54117 TS CHAR
017987,000486: 40,2114 50000 INDEX A
017988,000487: 40,2115 02116 TC +1 # INPUT CODE FUNCTION
017989,000488: 40,2116 03432 TC CHARALRM # 0
017990,000489: 40,2117 02175 TC NUM # 1
017991,000490: 40,2120 02175 TC NUM # 2
017992,000491: 40,2121 02175 TC NUM # 3
017993,000492: 40,2122 02175 TC NUM # 4
017994,000493: 40,2123 02175 TC NUM # 5
017995,000494: 40,2124 02175 TC NUM # 6
017996,000495: 40,2125 02175 TC NUM # 7
017997,000496: 40,2126 02161 TC 89TEST # 10 8
017998,000497: 40,2127 02161 TC 89TEST # 11 9
017999,000498: 40,2130 03432 TC CHARALRM # 12
018000,000499: 40,2131 03432 TC CHARALRM # 13
018001,000500: 40,2132 03432 TC CHARALRM # 14
018002,000501: 40,2133 03432 TC CHARALRM # 15
018003,000502: 40,2134 03432 TC CHARALRM # 16
018004,000503: 40,2135 03432 TC CHARALRM # 17
018005,000504: 40,2136 02173 TC NUM -2 # 20 0
018006,000505: 40,2137 02354 TC VERB # 21 VERB
018007,000506: 40,2140 03601 TC ERROR # 22 ERROR LIGHT RESET
018008,000507: 40,2141 03432 TC CHARALRM # 23
018009,000508: 40,2142 03432 TC CHARALRM # 24
018010,000509: 40,2143 03432 TC CHARALRM # 25
018011,000510: 40,2144 03432 TC CHARALRM # 26
018012,000511: 40,2145 03432 TC CHARALRM # 27
018013,000512: 40,2146 03432 TC CHARALRM # 30
018014,000513: 40,2147 03457 TC VBRELDSP # 31 KEY RELEASE
018015,000514: 40,2150 02407 TC POSGN # 32 +
|
|
Page 412 |
018017,000516: 40,2151 02374 TC NEGSGN # 33 -
018018,000517: 40,2152 02157 TC ENTERJMP # 34 ENTER
018019,000518: 40,2153 03432 TC CHARALRM # 35
018020,000519: 40,2154 02467 TC CLEAR # 36 CLEAR
018021,000520: 40,2155 02370 TC NOUN # 37 NOUN
018022,000521:
018023,000522:
018024,000523: 40,2156 00022 ELRCODE1 OCT 22
018025,000524: 40,2157 04635 ENTERJMP TC POSTJUMP
018026,000525: 40,2160 62002 CADR ENTER
018027,000526:
018028,000527: 40,2161 10777 89TEST CCS DSPCOUNT
018029,000528: 40,2162 02166 TC +4 # +
018030,000529: 40,2163 02166 TC +3 # +0
018031,000530: 40,2164 05155 TC ENDOFJOB # - BLOCK DATA IN IF DSPCOUNT IS - OR -0
018032,000531: 40,2165 05155 TC ENDOFJOB # -0
018033,000532: 40,2166 36244 CAF THREE
018034,000533: 40,2167 71000 MASK DECBRNCH
018035,000534: 40,2170 10000 CCS A
018036,000535: 40,2171 02175 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
018037,000536: 40,2172 03432 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
018038,000537:
018039,000538:
018040,000539: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018041,000540: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
018042,000541: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018043,000542: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
018044,000543: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018045,000544: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018046,000545:
018047,000546: 40,2173 34755 CAF ZERO
018048,000547: 40,2174 54117 TS CHAR
018049,000548: 40,2175 10777 NUM CCS DSPCOUNT
018050,000549: 40,2176 02202 TC +4 # +
018051,000550: 40,2177 02202 TC +3 # +0
018052,000551: 40,2200 02201 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
018053,000552: 40,2201 05155 TC ENDOFJOB # -0
018054,000553: 40,2202 02324 TC GETINREL
018055,000554: 40,2203 11015 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
018056,000555: 40,2204 34755 CAF ZERO
018057,000556: 40,2205 55015 TS CLPASS
018058,000557: 40,2206 02207 TC +1
018059,000558: 40,2207 50117 INDEX CHAR
018060,000559: 40,2210 34066 CAF RELTAB
018061,000560: 40,2211 74346 MASK LOW5
018062,000561: 40,2212 54124 TS CODE
018063,000562: 40,2213 30777 CA DSPCOUNT
018064,000563: 40,2214 54143 TS COUNT
018065,000564: 40,2215 03322 TC DSPIN
018066,000565: 40,2216 36244 CAF THREE
|
|
Page 413 |
018068,000567: 40,2217 71000 MASK DECBRNCH
018069,000568: 40,2220 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
018070,000569: 40,2221 02232 TC DECTOBIN # +
018071,000570: 40,2222 50137 INDEX INREL # +0 OCTAL
018072,000571: 40,2223 57001 XCH VERBREG
018073,000572: 40,2224 54022 TS CYL
018074,000573: 40,2225 40022 CS CYL
018075,000574: 40,2226 40022 CS CYL
018076,000575: 40,2227 56022 XCH CYL
018077,000576: 40,2230 60117 AD CHAR
018078,000577: 40,2231 02247 TC ENDNMTST
018079,000578: 40,2232 50137 DECTOBIN INDEX INREL
018080,000579: 40,2233 57001 XCH VERBREG
018081,000580: 40,2234 54154 TS MPAC # SUM X 2EXP-14 IN MPAC
018082,000581: 40,2235 34755 CAF ZERO
018083,000582: 40,2236 54155 TS MPAC +1
018084,000583: 40,2237 34363 CAF TEN # 10 X 2EXP-14
018085,000584: 40,2240 07306 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
018086,000585: 40,2241 56155 XCH MPAC +1
018087,000586: 40,2242 60117 AD CHAR
018088,000587: 40,2243 54155 TS MPAC +1
018089,000588: 40,2244 02247 TC ENDNMTST # NO OF
018090,000589: 40,2245 26154 ADS MPAC # OF MUST BE 5TH CHAR
018091,000590: 40,2246 02265 TC DECEND
018092,000591: 40,2247 50137 ENDNMTST INDEX INREL
018093,000592: 40,2250 55001 TS VERBREG
018094,000593: 40,2251 40777 CS DSPCOUNT
018095,000594: 40,2252 50137 INDEX INREL
018096,000595: 40,2253 62315 AD CRITCON
018097,000596: 40,2254 00006 EXTEND
018098,000597: 40,2255 12257 BZF ENDNUM # -0, DSPCOUNT = CRITCON
018099,000598: 40,2256 02312 TC MORNUM # - , DSPCOUNT G/ CRITCON
018100,000599: 40,2257 36244 ENDNUM CAF THREE
018101,000600: 40,2260 71000 MASK DECBRNCH
018102,000601: 40,2261 10000 CCS A
018103,000602: 40,2262 02265 TC DECEND
018104,000603: 40,2263 40777 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
018105,000604: 40,2264 02313 TC MORNUM +1 # NEGATIVELY
018106,000605: 40,2265 44753 DECEND CS ONE
018107,000606: 40,2266 60137 AD INREL
018108,000607: 40,2267 00006 EXTEND
018109,000608: 40,2270 62263 BZMF ENDALL # IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
018110,000609: 40,2271 07102 TC DMP # IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
018111,000610: # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
018112,000611: 40,2272 02322 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
018113,000612: 40,2273 36244 CAF THREE # IN MPAC, +1, +2.
018114,000613: 40,2274 71000 MASK DECBRNCH
018115,000614: 40,2275 50000 INDEX A
018116,000615: 40,2276 02276 TC +0
018117,000616: 40,2277 02303 TC +DECSGN
|
|
Page 414 |
018119,000618: 40,2300 00006 EXTEND # - CASE
018120,000619: 40,2301 40156 DCS MPAC +1
018121,000620: 40,2302 52156 DXCH MPAC +1
018122,000621: 40,2303 56156 +DECSGN XCH MPAC +2
018123,000622: 40,2304 50137 INDEX INREL
018124,000623: 40,2305 55004 TS XREGLP -2
018125,000624: 40,2306 56155 XCH MPAC +1
018126,000625: 40,2307 50137 INDEX INREL
018127,000626: 40,2310 55001 TS VERBREG
018128,000627: 40,2311 02263 TC ENDALL
018129,000628: 40,2312 10777 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
018130,000629: 40,2313 54777 TS DSPCOUNT
018131,000630: 40,2314 05155 TC ENDOFJOB
018132,000631:
018133,000632: 40,2315 00022 CRITCON OCT 22 # (DEC 18)
018134,000633: 40,2316 00020 OCT 20 # (DEC 16)
018135,000634: 40,2317 00012 OCT 12 # (DEC 10)
018136,000635: 40,2320 00005 OCT 5
018137,000636: 40,2321 00000 OCT 0
018138,000637:
018139,000638: 40,2322 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
018140,000639:
018141,000640:
018142,000641: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018143,000642: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018144,000643:
018145,000644: 40,2324 50777 GETINREL INDEX DSPCOUNT
018146,000645: 40,2325 32330 CAF INRELTAB
018147,000646: 40,2326 54137 TS INREL # (A TEMP, REG)
018148,000647: 40,2327 00002 TC Q
018149,000648:
018150,000649: 40,2330 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
018151,000650: 40,2331 00004 OCT 4 # R3D4 =(1)
018152,000651: 40,2332 00004 OCT 4 # R3D3 =(2)
018153,000652: 40,2333 00004 OCT 4 # R3D2 =(3)
018154,000653: 40,2334 00004 OCT 4 # R3D1 =(4)
018155,000654: 40,2335 00003 OCT 3 # R2D5 =(5)
018156,000655: 40,2336 00003 OCT 3 # R2D4 =(6)
018157,000656: 40,2337 00003 OCT 3 # R2D3 =(7)
018158,000657: 40,2340 00003 OCT 3 # R2D2 =(8D)
018159,000658: 40,2341 00003 OCT 3 # R2D1 =(9D)
018160,000659: 40,2342 00002 OCT 2 # R1D5 =(10D)
018161,000660: 40,2343 00002 OCT 2 # R1D4 =(11D)
018162,000661: 40,2344 00002 OCT 2 # R1D3 =(12D)
018163,000662: 40,2345 00002 OCT 2 # R1D2 =(13D)
018164,000663: 40,2346 00002 OCT 2 # R1D1 =(14D)
018165,000664: 40,2347 05677 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
018166,000665: 40,2350 00001 OCT 1 # ND2 =(16D)
018167,000666: 40,2351 00001 OCT 1 # ND1 =(17D)
|
|
Page 415 |
018169,000668: 40,2352 00000 OCT 0 # VD2 =(18D)
018170,000669: 40,2353 00000 OCT 0 # VD1 =(19D)
018171,000670:
018172,000671: 40,2354 34755 VERB CAF ZERO
018173,000672: 40,2355 55001 TS VERBREG
018174,000673: 40,2356 34360 CAF VD1
018175,000674: 40,2357 54777 NVCOM TS DSPCOUNT
018176,000675: 40,2360 02601 TC 2BLANK
018177,000676: 40,2361 34753 CAF ONE
018178,000677: 40,2362 55000 TS DECBRNCH # SET FOR DEC V/N CODE
018179,000678: 40,2363 34755 CAF ZERO
018180,000679: 40,2364 55013 TS REQRET # SET FOR ENTPAS0
018181,000680: 40,2365 34217 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018182,000681: 40,2366 54136 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
018183,000682: # TO TC ENDOFJOB
018184,000683: 40,2367 05155 TC ENDOFJOB
018185,000684: 40,2370 34755 NOUN CAF ZERO
018186,000685: 40,2371 55002 TS NOUNREG
018187,000686: 40,2372 34361 CAF ND1 # ND1, OCT 21 (DEC 17)
018188,000687: 40,2373 02357 TC NVCOM
018189,000688:
018190,000689:
018191,000690: 40,2374 02446 NEGSGN TC SIGNTEST
018192,000691: 40,2375 02433 TC -ON
018193,000692: 40,2376 34752 CAF TWO
018194,000693: 40,2377 50137 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
018195,000694: 40,2400 64745 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
018196,000695: 40,2401 27000 ADS DECBRNCH # BIT 3 FOR R3.
018197,000696: 40,2402 11015 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
018198,000697: 40,2403 34755 CAF ZERO
018199,000698: 40,2404 55015 TS CLPASS
018200,000699: 40,2405 02406 TC +1
018201,000700: 40,2406 05155 TC ENDOFJOB
018202,000701:
018203,000702: 40,2407 02446 POSGN TC SIGNTEST
018204,000703: 40,2410 02413 TC +ON
018205,000704: 40,2411 34753 CAF ONE
018206,000705: 40,2412 02377 TC BOTHSGN
018207,000706:
018208,000707: 40,2413 22002 +ON LXCH Q
018209,000708: 40,2414 02324 TC GETINREL
018210,000709: 40,2415 50137 INDEX INREL
018211,000710: 40,2416 32441 CAF SGNTAB -2
018212,000711: 40,2417 54123 TS SGNOFF
018213,000712: 40,2420 64753 AD ONE
018214,000713: 40,2421 54122 TS SGNON
018215,000714: 40,2422 34755 SGNCOM CAF ZERO
018216,000715: 40,2423 54124 TS CODE
018217,000716: 40,2424 56123 XCH SGNOFF
|
|
Page 416 |
018219,000718: 40,2425 03404 TC 11DSPIN
018220,000719: 40,2426 34741 CAF BIT11
018221,000720: 40,2427 54124 TS CODE
018222,000721: 40,2430 56122 XCH SGNON
018223,000722: 40,2431 03404 TC 11DSPIN
018224,000723: 40,2432 00001 TC L
018225,000724: 40,2433 22002 -ON LXCH Q
018226,000725: 40,2434 02324 TC GETINREL
018227,000726: 40,2435 50137 INDEX INREL
018228,000727: 40,2436 32441 CAF SGNTAB -2
018229,000728: 40,2437 54122 TS SGNON
018230,000729: 40,2440 64753 AD ONE
018231,000730: 40,2441 54123 TS SGNOFF
018232,000731: 40,2442 02422 TC SGNCOM
018233,000732:
018234,000733: 40,2443 00005 SGNTAB OCT 5 # -R1
018235,000734: 40,2444 00003 OCT 3 # -R2
018236,000735: 40,2445 00000 OCT 0 # -R3
018237,000736:
018238,000737:
018239,000738: 40,2446 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018240,000739: 40,2447 36244 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018241,000740: 40,2450 71000 MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
018242,000741: 40,2451 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
018243,000742: 40,2452 05155 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
018244,000743: 40,2453 44317 CS R1D1
018245,000744: 40,2454 02462 TC SGNTST1
018246,000745: 40,2455 44320 CS R2D1
018247,000746: 40,2456 02462 TC SGNTST1
018248,000747: 40,2457 44321 CS R3D1
018249,000748: 40,2460 02462 TC SGNTST1
018250,000749: 40,2461 05155 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
018251,000750: 40,2462 60777 SGNTST1 AD DSPCOUNT
018252,000751: 40,2463 00006 EXTEND
018253,000752: 40,2464 12466 BZF +2 # MATCH FOUND
018254,000753: 40,2465 00002 TC Q
018255,000754: 40,2466 00001 TC L # SIGN LEGAL
018256,000755:
018257,000756:
018258,000757: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
018259,000758: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018260,000759: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
018261,000760:
018262,000761: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
018263,000762: # APPROPRIATE TO BE CLEARED.
018264,000763:
018265,000764: # CLPASS +0 PASS0, CAN BE BACKED UP
018266,000765: # +NZ HIPASS, CAN BE BACKED UP
018267,000766: # -NZ PASS0, CANNOT BE BACKED UP
018268,000767:
|
|
Page 417 |
018270,000769: 40,2467 10777 CLEAR CCS DSPCOUNT
018271,000770: 40,2470 64753 AD ONE
018272,000771: 40,2471 02473 TC +2
018273,000772: 40,2472 64753 AD ONE
018274,000773: 40,2473 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
018275,000774: 40,2474 32330 CAF INRELTAB # FAIL LEGALTST.
018276,000775: 40,2475 54137 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
018277,000776: 40,2476 11015 CCS CLPASS
018278,000777: 40,2477 02505 TC CLPASHI # +
018279,000778: 40,2500 02502 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
018280,000779: 40,2501 02502 TC +1 # -
018281,000780: 40,2502 30137 CA INREL
018282,000781: 40,2503 02527 TC LEGALTST
018283,000782: 40,2504 02522 TC CLEAR1
018284,000783: 40,2505 10137 CLPASHI CCS INREL
018285,000784: 40,2506 54137 TS INREL
018286,000785: 40,2507 02527 TC LEGALTST
018287,000786: 40,2510 32577 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
018288,000787: 40,2511 27013 ADS REQRET
018289,000788: 40,2512 30137 CA INREL
018290,000789: 40,2513 54125 TS MIXTEMP # TEMP STORAGE FOR INREL
018291,000790: 40,2514 00006 EXTEND
018292,000791: 40,2515 27001 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
018293,000792: 40,2516 04616 TC BANKCALL
018294,000793: 40,2517 62340 CADR UPDATVB
018295,000794: 40,2520 30125 CA MIXTEMP
018296,000795: 40,2521 54137 TS INREL # RESTORE INREL
018297,000796: 40,2522 02525 CLEAR1 TC CLR5
018298,000797: 40,2523 25015 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
018299,000798: 40,2524 05155 TC ENDOFJOB # SET FOR HIGHER PASS.
018300,000799: 40,2525 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
018301,000800: 40,2526 02540 TC 5BLANK +2
018302,000801: 40,2527 67745 LEGALTST AD NEG2
018303,000802: 40,2530 10000 CCS A
018304,000803: 40,2531 00002 TC Q # LEGAL INREL G/ 2
018305,000804: 40,2532 05677 TC CCSHOLE
018306,000805: 40,2533 05155 TC ENDOFJOB # ILLEGAL INREL= 0,1
018307,000806: 40,2534 00002 TC Q # LEGAL INREL = 2
018308,000807:
018309,000808:
018310,000809: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
018311,000810: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
018312,000811: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
018313,000812:
018314,000813: 40,2535 54777 TS DSPCOUNT # NEEDED FOR BLANKSUB
018315,000814: 40,2536 22002 5BLANK LXCH Q
018316,000815: 40,2537 02324 TC GETINREL
018317,000816: 40,2540 34755 CAF ZERO
018318,000817: 40,2541 50137 INDEX INREL
018319,000818: 40,2542 55001 TS VERBREG # ZERO X, Y, Z REG.
|
|
Page 418 |
018321,000820: 40,2543 50137 INDEX INREL
018322,000821: 40,2544 55004 TS XREGLP -2
018323,000822: 40,2545 54124 TS CODE
018324,000823: 40,2546 50137 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
018325,000824: 40,2547 44745 CS BIT7 # PROTECT OTHERS
018326,000825: 40,2550 71000 MASK DECBRNCH
018327,000826: 40,2551 72600 MASK BRNCHCON # ZERO LOW 2 BITS.
018328,000827: 40,2552 55000 TS DECBRNCH
018329,000828: 40,2553 50137 INDEX INREL
018330,000829: 40,2554 32570 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
018331,000830: 40,2555 54143 TS COUNT
018332,000831: 40,2556 03322 TC DSPIN
018333,000832: 40,2557 50137 5BLANK1 INDEX INREL
018334,000833: 40,2560 32573 CAF DOUBLK -2
018335,000834: 40,2561 54777 TS DSPCOUNT
018336,000835: 40,2562 02601 TC 2BLANK
018337,000836: 40,2563 44752 CS TWO
018338,000837: 40,2564 26777 ADS DSPCOUNT
018339,000838: 40,2565 02601 TC 2BLANK
018340,000839: 40,2566 50137 INDEX INREL
018341,000840: 40,2567 34315 CAF R1D1 -2
018342,000841: 40,2570 54777 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
018343,000842: 40,2571 00001 TC L # OF REG. JUST BLANKED
018344,000843:
018345,000844: 40,2572 00016 SINBLANK OCT 16 # DEC 14
018346,000845: 40,2573 00005 OCT 5
018347,000846: 40,2574 00004 OCT 4
018348,000847: 40,2575 00015 DOUBLK OCT 15 # DEC 13
018349,000848: 40,2576 00011 OCT 11 # DEC 9
018350,000849: 40,2577 00003 OCT 3
018351,000850:
018352,000851: 40,2600 77774 BRNCHCON OCT 77774
018353,000852:
018354,000853: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
018355,000854: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018356,000855:
018357,000856: 40,2601 30777 2BLANK CA DSPCOUNT
018358,000857: 40,2602 54021 TS SR
018359,000858: 40,2603 42614 CS BLANKCON
018360,000859: 40,2604 00004 INHINT
018361,000860: 40,2605 50021 INDEX SR
018362,000861: 40,2606 57023 XCH DSPTAB
018363,000862: 40,2607 00006 EXTEND
018364,000863: 40,2610 62612 BZMF +2 # IF OLD CONTENTS -, NOUT OK
018365,000864: 40,2611 25016 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
018366,000865: 40,2612 00003 RELINT # IF -,NOUT OK
018367,000866: 40,2613 00002 TC Q
018368,000867: 40,2614 04000 BLANKCON OCT 4000
018369,000868:
|
|
Page 419 |
018371,000870: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
018372,000871: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
018373,000872: # PASSES.
018374,000873:
018375,000874:
018376,000875: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
018377,000876: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
018378,000877: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
018379,000878:
018380,000879:
018381,000880: 41,2000 BANK 41
018382,000881: 41,2000 SETLOC PINBALL2
018383,000882: 41,2000 BANK
018384,000883:
018385,000884: 41,2000 COUNT* $$/PIN
018386,000885: 41,2000 03544 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
018387,000886: 41,2001 02775 LOADLV1 TC LOADLV
018388,000887: # END OF STANDARD LEAD INS.
018389,000888:
018390,000889:
018391,000890: 41,2002 34755 ENTER CAF ZERO
018392,000891: 41,2003 55015 TS CLPASS
018393,000892: 41,2004 34217 CAF ENDINST
018394,000893: 41,2005 54136 TS ENTRET
018395,000894: 41,2006 11013 CCS REQRET
018396,000895: 41,2007 02035 TC ENTPAS0 # IF +, PASS 0
018397,000896: 41,2010 02035 TC ENTPAS0 # IF +, PASS 0
018398,000897: 41,2011 02012 TC +1 # IF -, NOT PASS 0
018399,000898: 41,2012 32033 ENTPASHI CAF MMADREF
018400,000899: 41,2013 61013 AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
018401,000900: 41,2014 00006 EXTEND # AND RECYCLE(DECIDE AT MMCHANG+1).
018402,000901: 41,2015 12027 BZF ACCEPTWD
018403,000902: 41,2016 36244 CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
018404,000903: 41,2017 71000 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
018405,000904: 41,2020 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
018406,000905: 41,2021 02023 TC +2 # CHARACTERS AND CONTINUE.
018407,000906: 41,2022 02027 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
018408,000907: 41,2023 10777 CCS DSPCOUNT
018409,000908: 41,2024 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018410,000909: 41,2025 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018411,000910: 41,2026 02027 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
018412,000911: 41,2027 41013 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
018413,000912: 41,2030 55013 TS REQRET # SET REQRET +.
018414,000913: 41,2031 04433 TC FLASHOFF
018415,000914: 41,2032 01013 TC REQRET
018416,000915:
018417,000916: 41,2033 0136 ENTEXIT = ENTRET
018418,000917:
018419,000918: 41,2033 03431 MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
018420,000919:
|
|
Page 420 |
018422,000921: 41,2034 00034 LOWVERB DEC 28 B-14 # LOWER VERB THAT AVOIDS NOUN TEST.
018423,000922:
018424,000923: 41,2035 34755 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
018425,000924: 41,2036 55000 TS DECBRNCH
018426,000925: 41,2037 44360 CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY
018427,000926: 41,2040 54777 TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS.
018428,000927: 41,2041 41001 TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
018429,000928: 41,2042 55041 TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
018430,000929: 41,2043 62034 AD LOWVERB # LOWVERB - VB
018431,000930: 41,2044 00006 EXTEND
018432,000931: 41,2045 62133 BZMF VERBFAN # VERB G/E LOWVERB
018433,000932: 41,2046 00006 TESTNN EXTEND # VERB L/ LOWVERB
018434,000933: 41,2047 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
018435,000934: 41,2050 52006 DXCH Z # ROUTINE.
018436,000935: 41,2051 50140 INDEX MIXBR
018437,000936: 41,2052 02052 TC +0
018438,000937: 41,2053 02055 TC +2 # NORMAL
018439,000938: 41,2054 02221 TC MIXNOUN # MIXED
018440,000939: 41,2055 10146 CCS NNADTEM # NORMAL
018441,000940: 41,2056 02131 TC VERBFAN -2 # NORMAL IF +
018442,000941: 41,2057 02351 TC GODSPALM # NOT IN USE IF +0
018443,000942: 41,2060 02064 TC REQADD # SPECIFY MACHINE CADR IF -
018444,000943: 41,2061 25017 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
018445,000944: 41,2062 04311 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
018446,000945: 41,2063 02120 TC INTMCTBS +2
018447,000946: 41,2064 34735 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
018448,000947: 41,2065 55015 TS CLPASS
018449,000948: 41,2066 44217 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
018450,000949: 41,2067 60136 AD ENTEXIT # FROM EXTERNAL
018451,000950: 41,2070 00006 EXTEND
018452,000951: 41,2071 12073 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
018453,000952: 41,2072 02116 TC INTMCTBS
018454,000953: 41,2073 02307 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
018455,000954: 41,2074 11000 CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
018456,000955: 41,2075 04145 TC ALMCYCLE # FOR MCTBS.
018457,000956: 41,2076 44360 CS VD1 # OCTAL USED OK
018458,000957: 41,2077 54777 TS DSPCOUNT # BLOCK NUM CHAR IN
018459,000958: 41,2100 11042 CCS CADRSTOR
018460,000959: 41,2101 02104 TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
018461,000960: 41,2102 02105 TC USEADD # ON IF ENDIDLE NOT = +0.
018462,000961: 41,2103 02104 TC +1
018463,000962: 41,2104 04427 TC FLASHON
018464,000963: 41,2105 57005 USEADD XCH ZREG
018465,000964: 41,2106 04303 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
018466,000965: 41,2107 00006 EXTEND
018467,000966: 41,2110 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
018468,000967: 41,2111 52006 DXCH Z # ROUTINE.
018469,000968: 41,2112 02133 TC VERBFAN
018470,000969:
018471,000970: 41,2113 0777 EBANK= DSPCOUNT
|
|
Page 421 |
018473,000972: 41,2113 02103 64101 LODNNLOC 2CADR LODNNTAB
018474,000973:
018475,000974:
018476,000975: 41,2115 77772 NEG5 OCT 77772
018477,000976:
018478,000977: 41,2116 30156 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
018479,000978: 41,2117 04303 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
018480,000979: 41,2120 44756 CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
018481,000980: 41,2121 61001 AD VERBREG # CADR TO BE SPECIFIED.
018482,000981: 41,2122 00006 EXTEND
018483,000982: 41,2123 12133 BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
018484,000983: 41,2124 34321 CAF R3D1 # VB NOT = 05. DISPLAY CADR.
018485,000984: 41,2125 54777 TS DSPCOUNT
018486,000985: 41,2126 31017 CA NOUNCADR
018487,000986: 41,2127 03363 TC DSPOCTWD
018488,000987: 41,2130 02133 TC VERBFAN
018489,000988:
018490,000989: 41,2131 64753 AD ONE
018491,000990: 41,2132 04303 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018492,000991: 41,2133 42145 VERBFAN CS LST2CON
018493,000992: 41,2134 61001 AD VERBREG # VERB-LST2CON
018494,000993: 41,2135 10000 CCS A
018495,000994: 41,2136 64753 AD ONE # VERB G/ LST2CON
018496,000995: 41,2137 02141 TC +2
018497,000996: 41,2140 02146 TC VBFANDIR # VERB L/ LST2CON
018498,000997: 41,2141 54154 TS MPAC
018499,000998: 41,2142 04457 TC RELDSP # RELEASE DISPLAY SYST
018500,000999: 41,2143 04635 TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
018501,001000: 41,2144 66000 CADR GOEXTVB
018502,001001: 41,2145 00050 LST2CON DEC 40 B-14 # FIRST LIST2 VERB (EXTENDED VERB)
018503,001002:
018504,001003: 41,2146 51001 VBFANDIR INDEX VERBREG
018505,001004: 41,2147 32151 CAF VERBTAB
018506,001005: 41,2150 04640 TC BANKJUMP
018507,001006:
018508,001007: 41,2151 62351 VERBTAB CADR GODSPALM # VB00 ILLEGAL
018509,001008: 41,2152 62365 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
018510,001009: 41,2153 62373 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
018511,001010: 41,2154 62400 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
018512,001011: 41,2155 62360 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018513,001012: 41,2156 62353 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018514,001013: 41,2157 62523 CADR DECDSP # VB06 DECIMAL DISPLAY
018515,001014: 41,2160 60771 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
018516,001015: 41,2161 62351 CADR GODSPALM # VB08 SPARE
018517,001016: 41,2162 62351 CADR GODSPALM # VB09 SPARE
018518,001017: 41,2163 61420 CADR DSPALARM # VB10 SPARE
018519,001018: 41,2164 63230 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
018520,001019: 41,2165 63230 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
018521,001020: 41,2166 63230 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
018522,001021: 41,2167 63230 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
|
|
Page 422 |
018524,001023: 41,2170 63230 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018525,001024: 41,2171 63230 CADR MONITOR # VB16 MONITOR DECIMAL
018526,001025: 41,2172 63230 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
018527,001026: 41,2173 62351 CADR GODSPALM # VB18 SPARE
018528,001027: 41,2174 62351 CADR GODSPALM # VB19 SPARE
018529,001028: 41,2175 62351 CADR GODSPALM # VB20 SPARE
018530,001029: 41,2176 62732 CADR ALOAD # VB21 LOAD COMP 1 (R1)
018531,001030: 41,2177 62743 CADR BLOAD # VB22 LOAD COMP 2 (R2)
018532,001031: 41,2200 62760 CADR CLOAD # VB23 LOAD COMP 3 (R3)
018533,001032: 41,2201 62703 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
018534,001033: 41,2202 62616 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018535,001034: 41,2203 62351 CADR GODSPALM # VB26 SPARE
018536,001035: 41,2204 63353 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
018537,001036: # THE FOLLOWING VERBS MAKE NO NOUN TEST
018538,001037: 41,2205 62351 CADR GODSPALM # VB28 SPARE
018539,001038: 41,2206 62351 CADR GODSPALM # VB29 SPARE
018540,001039: 41,2207 63466 REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
018541,001040: 41,2210 63512 CADR VBRQWAIT # VB31 REQUEST WAITLIST
018542,001041: 41,2211 61455 CADR VBRESEQ # VB32 RESEQUENCE
018543,001042: 41,2212 61440 CADR VBPROC # VB33 PROCEED WITHOUT DATA
018544,001043: 41,2213 61446 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
018545,001044: 41,2214 63613 CADR VBTSTLTS # VB35 TEST LIGHTS
018546,001045: 41,2215 12447 CADR SLAP1 # VB36 FRESH START
018547,001046: 41,2216 63430 CADR MMCHANG # VB37 CHANGE MAJOR MODE
018548,001047: 41,2217 62351 CADR GODSPALM # VB38 SPARE
018549,001048: 41,2220 62351 CADR GODSPALM # VB39 SPARE
018550,001049:
018551,001050:
018552,001051: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
018553,001052:
|
|
Page 423 |
018555,001054: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
018556,001055: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
018557,001056: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
018558,001057: # MIXTEMP.
018559,001058:
018560,001059: 41,2221 10146 MIXNOUN CCS NNADTEM
018561,001060: 41,2222 02226 TC +4 # + IN USE
018562,001061: 41,2223 02351 TC GODSPALM # +0 NOT IN USE
018563,001062: 41,2224 02226 TC +2 # - IN USE
018564,001063: 41,2225 02226 TC +1 # -0 IN USE
018565,001064: 41,2226 46241 CS SIX
018566,001065: 41,2227 61001 AD VERBREG
018567,001066: 41,2230 00006 EXTEND
018568,001067: 41,2231 62233 BZMF +2 # VERB L/E 6
018569,001068: 41,2232 02133 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
018570,001069: 41,2233 34752 CAF TWO
018571,001070: 41,2234 54117 MIXNN1 TS DECOUNT
018572,001071: 41,2235 62260 AD MIXAD
018573,001072: 41,2236 54145 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
018574,001073: 41,2237 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
018575,001074: 41,2240 30150 CA IDAD1TEM # OF NOUN.
018576,001075: 41,2241 54122 TS NOUNTEM
018577,001076: # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
018578,001077: # MINOR PART ONLY.
018579,001078: 41,2242 03034 TC SFRUTMIX # GET SF ROUT NUMBER IN A
018580,001079: 41,2243 02261 TC DPTEST
018581,001080: 41,2244 02246 TC MIXNN2 # NO DP
018582,001081: 41,2245 24122 INCR NOUNTEM # DP GET MINOR PART
018583,001082: 41,2246 30122 MIXNN2 CA NOUNTEM
018584,001083: 41,2247 74356 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
018585,001084: 41,2250 04313 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
018586,001085: 41,2251 50000 INDEX A # PICK UP C(ESUBK) NOT DP
018587,001086: 41,2252 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
018588,001087: 41,2253 50145 INDEX NOUNADD
018589,001088: 41,2254 56000 XCH 0 # STORE IN MIXTEM + K
018590,001089: 41,2255 10117 CCS DECOUNT
018591,001090: 41,2256 02234 TC MIXNN1
018592,001091: 41,2257 02133 TC VERBFAN
018593,001092:
018594,001093: 41,2260 00125 MIXAD TC MIXTEMP
018595,001094:
018596,001095:
018597,001096: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
018598,001097: # RETURNS TO L+1 IF NO DP.
018599,001098: # RETURNS TO L+2 IF DP.
018600,001099:
018601,001100: 41,2261 50000 DPTEST INDEX A
018602,001101: 41,2262 12263 TCF +1
018603,001102: 41,2263 00002 TC Q # OCTAL ONLY NO DP
018604,001103: 41,2264 00002 TC Q # FRACT NO DP
|
|
Page 424 |
018606,001105: 41,2265 00002 TC Q # DEG NO DP
018607,001106: 41,2266 00002 TC Q # ARITH NO DP
018608,001107: 41,2267 12301 TCF DPTEST1 # DP1OUT
018609,001108: 41,2270 12301 TCF DPTEST1 # DP2OUT
018610,001109: 41,2271 00002 TC Q # LRPOSOUT NO DP (DATA IN CHANNEL 33)
018611,001110: 41,2272 12301 TCF DPTEST1 # DP3OUT
018612,001111: 41,2273 00002 TC Q # HMS NO DP
018613,001112: 41,2274 00002 TC Q # M/S NO DP
018614,001113: 41,2275 12301 TCF DPTEST1 # DP4OUT
018615,001114: 41,2276 00002 TC Q # ARITH1 NO DP
018616,001115: 41,2277 00002 TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
018617,001116: 41,2300 00002 TC Q # 360-CDU NO DP
018618,001117: 41,2301 50002 DPTEST1 INDEX Q
018619,001118: 41,2302 00001 TC 1 # RETURN TO L+2
018620,001119:
018621,001120:
018622,001121: 41,2303 34317 REQDATX CAF R1D1
018623,001122: 41,2304 12310 TCF REQCOM
018624,001123: 41,2305 34320 REQDATY CAF R2D1
018625,001124: 41,2306 12310 TCF REQCOM
018626,001125: 41,2307 34321 REQDATZ CAF R3D1
018627,001126: 41,2310 54777 REQCOM TS DSPCOUNT
018628,001127: 41,2311 40002 CS Q
018629,001128: 41,2312 55013 TS REQRET
018630,001129: 41,2313 04616 TC BANKCALL
018631,001130: 41,2314 60536 CADR 5BLANK
018632,001131: 41,2315 04427 TC FLASHON
018633,001132: 41,2316 00136 ENDRQDAT TC ENTEXIT
018634,001133:
018635,001134: 41,2317 55002 TS NOUNREG
018636,001135: 41,2320 56002 UPDATNN XCH Q
018637,001136: 41,2321 54117 TS UPDATRET
018638,001137: 41,2322 00006 EXTEND
018639,001138: 41,2323 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
018640,001139: 41,2324 52006 DXCH Z # ROUTINE.
018641,001140: 41,2325 10146 CCS NNADTEM
018642,001141: 41,2326 64753 AD ONE # NORMAL
018643,001142: 41,2327 12332 TCF PUTADD
018644,001143: 41,2330 12333 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
018645,001144: 41,2331 12333 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
018646,001145: 41,2332 04303 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
018647,001146: 41,2333 34361 CAF ND1
018648,001147: 41,2334 54777 TS DSPCOUNT
018649,001148: 41,2335 31002 CA NOUNREG
018650,001149: 41,2336 12345 TCF UPDAT1
018651,001150:
018652,001151: 41,2337 55001 TS VERBREG
018653,001152: 41,2340 56002 UPDATVB XCH Q
018654,001153: 41,2341 54117 TS UPDATRET
018655,001154: 41,2342 34360 CAF VD1
|
|
Page 425 |
018657,001156: 41,2343 54777 TS DSPCOUNT
018658,001157: 41,2344 31001 CA VERBREG
018659,001158: 41,2345 04635 UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN,SINCE
018660,001159: 41,2346 61317 CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
018661,001160: 41,2347 00117 TC UPDATRET
018662,001161:
018663,001162:
018664,001163: 41,2350 04145 GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
018665,001164:
018666,001165:
018667,001166: 41,2351 04635 GODSPALM TC POSTJUMP
018668,001167: 41,2352 61420 CADR DSPALARM
018669,001168:
|
|
Page 426 |
018671,001170: # NOUN TABLES
018672,001171: # NOUN CODE L/40, NORMAL NOUN CASE. NOUN CODE G/E 40, MIXED NOUN CASE.
018673,001172: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
018674,001173: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
018675,001174: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
018676,001175: # OF LAST MACHINE CADR SUPPLIED.
018677,001176:
018678,001177: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
018679,001178: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
018680,001179:
018681,001180: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
018682,001181:
018683,001182: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
018684,001183: # N-S ARE THE SF ROUTINE CODE NUMBER.
018685,001184: # P-S ARE THE SF CONSTANT CODE NUMBER.
018686,001185:
018687,001186: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
018688,001187: # N-S ARE THE SF CONSTANT2 CODE NUMBER
018689,001188: # P-S ARE THE SF CONSTANT1 CODE NUMBER
018690,001189: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
018691,001190: # P-S ARE THE SF CONSTANT1 CODE NUMBER
018692,001191: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
018693,001192:
018694,001193: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
018695,001194: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
018696,001195: # THE FIRST OF THESE ENTRIES.
018697,001196: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
018698,001197: # THEY ARE LISTED IN ORDER OF ASCENDING K.
018699,001198:
018700,001199: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
018701,001200: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
018702,001201: # QQQQQRRRRRSSSSS
018703,001202: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
018704,001203: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
018705,001204: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
018706,001205: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
018707,001206: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
018708,001207:
018709,001208:
018710,001209: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
018711,001210: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
018712,001211: # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
018713,001212:
018714,001213:
018715,001214: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
018716,001215: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
018717,001216:
018718,001217: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
018719,001218: # BEFORE EACH ENTER. IF NOT, ALARM.
018720,001219:
|
|
Page 427 |
018722,001221: # DISPLAY VERBS
018723,001222: 41,2353 44752 DSPABC CS TWO
018724,001223: 41,2354 02424 TC COMPTEST
018725,001224: 41,2355 50145 INDEX NOUNADD
018726,001225: 41,2356 40002 CS 2
018727,001226: 41,2357 56132 XCH BUF +2
018728,001227: 41,2360 44753 DSPAB CS ONE
018729,001228: 41,2361 02424 TC COMPTEST
018730,001229: 41,2362 50145 INDEX NOUNADD
018731,001230: 41,2363 40001 CS 1
018732,001231: 41,2364 56131 XCH BUF +1
018733,001232: 41,2365 02443 DSPA TC DECTEST
018734,001233: 41,2366 02466 TC TSTFORDP
018735,001234: 41,2367 50145 INDEX NOUNADD
018736,001235: 41,2370 40000 CS 0
018737,001236: 41,2371 56130 DSPCOM1 XCH BUF
018738,001237: 41,2372 02405 TC DSPCOM2
018739,001238: 41,2373 44753 DSPB CS ONE
018740,001239: 41,2374 02437 TC DCOMPTST
018741,001240: 41,2375 50145 INDEX NOUNADD
018742,001241: 41,2376 40001 CS 1
018743,001242: 41,2377 02371 TC DSPCOM1
018744,001243: 41,2400 44752 DSPC CS TWO
018745,001244: 41,2401 02437 TC DCOMPTST
018746,001245: 41,2402 50145 INDEX NOUNADD
018747,001246: 41,2403 40002 CS 2
018748,001247: 41,2404 02371 TC DSPCOM1
018749,001248: 41,2405 44752 DSPCOM2 CS TWO # A B C AB ABC
018750,001249: 41,2406 61001 AD VERBREG # -1 -0 +1 +2 +3 IN A
018751,001250: 41,2407 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
018752,001251: 41,2410 02413 TC DSPCOM3
018753,001252: 41,2411 00136 TC ENTEXIT
018754,001253: 41,2412 02413 TC +1
018755,001254: 41,2413 54122 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
018756,001255: 41,2414 50000 INDEX A
018757,001256: 41,2415 34317 CAF R1D1
018758,001257: 41,2416 54777 TS DSPCOUNT
018759,001258: 41,2417 50122 INDEX DISTEM
018760,001259: 41,2420 40130 CS BUF
018761,001260: 41,2421 03363 TC DSPOCTWD
018762,001261: 41,2422 56122 XCH DISTEM
018763,001262: 41,2423 02407 TC DSPCOM2 +2
018764,001263:
018765,001264: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
018766,001265: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
018767,001266: 41,2424 54123 COMPTEST TS SFTEMP1 # - VERB COMP
018768,001267: 41,2425 22002 LXCH Q
018769,001268: 41,2426 02515 COMPTST1 TC GETCOMP
018770,001269: 41,2427 04331 TC LEFT5
018771,001270: 41,2430 76244 MASK THREE # NOUN COMP
|
|
Page 428 |
018773,001272: 41,2431 60123 AD SFTEMP1 # NOUN COMP - VERB COMP
018774,001273: 41,2432 10000 CCS A
018775,001274: 41,2433 00001 TC L # NOUN COMP G/ VERB COMP
018776,001275: 41,2434 05677 TC CCSHOLE
018777,001276: 41,2435 02351 TC GODSPALM # NOUN COMP L/ VERB COMP
018778,001277: 41,2436 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
018779,001278:
018780,001279:
018781,001280: # DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
018782,001281: # IF NOT, IT PERFORMS REGULAR COMPTEST.
018783,001282: 41,2437 54123 DCOMPTST TS SFTEMP1 # - VERB COMP
018784,001283: 41,2440 22002 LXCH Q
018785,001284: 41,2441 02443 TC DECTEST
018786,001285: 41,2442 02426 TC COMPTST1
018787,001286:
018788,001287: 41,2443 00006 DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
018789,001288: 41,2444 22156 QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
018790,001289: 41,2445 02515 TC GETCOMP
018791,001290: 41,2446 74736 MASK BIT14
018792,001291: 41,2447 10000 CCS A
018793,001292: 41,2450 02351 TC GODSPALM
018794,001293: 41,2451 00156 TC MPAC +2
018795,001294:
018796,001295:
018797,001296: 41,2452 22002 DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
018798,001297: 41,2453 02515 TC GETCOMP # ( BIT4 OF COMP CODE NUMBER). RETURNS
018799,001298: 41,2454 74736 MASK BIT14 # IF NOT. USED BY LOAD VERBS.
018800,001299: 41,2455 10000 CCS A
018801,001300: 41,2456 04145 TC ALMCYCLE
018802,001301: 41,2457 00001 TC L
018803,001302:
018804,001303:
018805,001304: # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
018806,001305: # IF NOT, IT RETURNS.
018807,001306: 41,2460 22002 NOUNTEST LXCH Q
018808,001307: 41,2461 02515 TC GETCOMP
018809,001308: 41,2462 10000 CCS A
018810,001309: 41,2463 00001 TC L
018811,001310: 41,2464 00001 TC L
018812,001311: 41,2465 02351 TC GODSPALM
018813,001312:
018814,001313:
018815,001314: 41,2466 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
018816,001315: 41,2467 30146 CA NNADTEM
018817,001316: 41,2470 64753 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
018818,001317: 41,2471 00006 EXTEND
018819,001318: 41,2472 12504 BZF CHANDSP
018820,001319: 41,2473 50140 INDEX MIXBR
018821,001320: 41,2474 02474 TC +0
018822,001321: 41,2475 02477 TC +2 # NORMAL
|
|
Page 429 |
018824,001323: 41,2476 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
018825,001324: 41,2477 03026 TC SFRUTNOR
018826,001325: 41,2500 02261 TC DPTEST
018827,001326: 41,2501 00001 TC L # NO DP
018828,001327: 41,2502 24145 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
018829,001328: 41,2503 00001 TC L
018830,001329:
018831,001330:
018832,001331: 41,2504 31017 CHANDSP CA NOUNCADR
018833,001332: 41,2505 75004 MASK LOW9
018834,001333: 41,2506 00006 EXTEND
018835,001334: 41,2507 50000 INDEX A
018836,001335: 41,2510 00000 READ 0
018837,001336: 41,2511 40000 CS A
018838,001337: 41,2512 12371 TCF DSPCOM1
018839,001338:
018840,001339:
018841,001340: 41,2513 00147 COMPICK ADRES NNTYPTEM
018842,001341: 41,2514 00146 ADRES NNADTEM
018843,001342:
018844,001343: 41,2515 50140 GETCOMP INDEX MIXBR # NORMAL MIXED
018845,001344: 41,2516 32512 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
018846,001345: 41,2517 50000 INDEX A
018847,001346: 41,2520 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
018848,001347: 41,2521 74350 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB (MIX)
018849,001348: 41,2522 00002 TC Q
018850,001349:
018851,001350:
018852,001351: 41,2523 02515 DECDSP TC GETCOMP
018853,001352: 41,2524 04331 TC LEFT5
018854,001353: 41,2525 76244 MASK THREE
018855,001354: 41,2526 54117 TS DECOUNT # COMP NUMBER INTO DECOUNT
018856,001355: 41,2527 54122 DSPDCGET TS DECTEM # PICKS UP DATA
018857,001356: 41,2530 60145 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
018858,001357: 41,2531 50000 INDEX A
018859,001358: 41,2532 40000 CS 0
018860,001359: 41,2533 50122 INDEX DECTEM
018861,001360: 41,2534 57003 XCH XREG # CANT USE BUF SINCE DMP USES IT.
018862,001361: 41,2535 10122 CCS DECTEM
018863,001362: 41,2536 02527 TC DSPDCGET # MORE TO GET
018864,001363: 41,2537 34755 DSPDCPUT CAF ZERO # DISPLAYS DATA
018865,001364: 41,2540 54155 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
018866,001365: 41,2541 54156 TS MPAC +2
018867,001366: 41,2542 50117 INDEX DECOUNT
018868,001367: 41,2543 34317 CAF R1D1
018869,001368: 41,2544 54777 TS DSPCOUNT
018870,001369: 41,2545 50117 INDEX DECOUNT
018871,001370: 41,2546 41003 CS XREG
018872,001371: 41,2547 54154 TS MPAC
018873,001372: 41,2550 03047 TC SFCONUM # 2X ( SF CON NUMB ) IN A
|
|
Page 430 |
018875,001374: 41,2551 54123 TS SFTEMP1
018876,001375: 41,2552 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
018877,001376: 41,2553 32565 DCA GTSFOUTL # READING ROUTINE.
018878,001377: 41,2554 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
018879,001378: 41,2555 50140 INDEX MIXBR
018880,001379: 41,2556 02556 TC +0
018881,001380: 41,2557 02562 TC DSPSFNOR
018882,001381: 41,2560 03034 TC SFRUTMIX
018883,001382: 41,2561 02575 TC DECDSP3
018884,001383:
018885,001384: 41,2562 03026 DSPSFNOR TC SFRUTNOR
018886,001385: 41,2563 02575 TC DECDSP3
018887,001386:
018888,001387: 41,2564 0777 EBANK= DSPCOUNT
018889,001388: 41,2564 02141 64101 GTSFOUTL 2CADR GTSFOUT
018890,001389:
018891,001390:
018892,001391:
018893,001392: 41,2566 04616 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
018894,001393: 41,2567 61226 CADR DSPDECWD
018895,001394: 41,2570 10117 CCS DECOUNT
018896,001395: 41,2571 02573 TC +2
018897,001396: 41,2572 00136 TC ENTEXIT
018898,001397: 41,2573 54117 TS DECOUNT
018899,001398: 41,2574 02537 TC DSPDCPUT # MORE TO DISPLAY
018900,001399:
018901,001400: 41,2575 50000 DECDSP3 INDEX A
018902,001401: 41,2576 32600 CAF SFOUTABR
018903,001402: 41,2577 04640 TC BANKJUMP
018904,001403:
018905,001404: 41,2600 61416 SFOUTABR CADR PREDSPAL # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
018906,001405: 41,2601 62566 CADR DSPDCEND
018907,001406: 41,2602 60615 CADR DEGOUTSF
018908,001407: 41,2603 60677 CADR ARTOUTSF
018909,001408: 41,2604 60710 CADR DP1OUTSF
018910,001409: 41,2605 60715 CADR DP2OUTSF
018911,001410: 41,2606 60635 CADR LRPOSOUT
018912,001411: 41,2607 60717 CADR DP3OUTSF
018913,001412: 41,2610 65224 CADR HMSOUT
018914,001413: 41,2611 65277 CADR M/SOUT
018915,001414: 41,2612 60715 CADR DP2OUTSF
018916,001415: 41,2613 60704 CADR AROUT1SF
018917,001416: 41,2614 60732 CADR 2INTOUT
018918,001417: 41,2615 60623 CADR 360-CDUO
018919,001418: 41,2616 ENDRTOUT EQUALS
018920,001419:
018921,001420:
018922,001421: # THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
018923,001422: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
018924,001423:
|
|
Page 431 |
018926,001425: 40,2615 SETLOC BLANKCON +1
018927,001426:
018928,001427: 40,2615 COUNT* $$/PIN
018929,001428: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
018930,001429: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
018931,001430:
018932,001431: 40,2615 34755 DEGOUTSF CAF ZERO
018933,001432: 40,2616 54156 TS MPAC +2 # SET INDEX FOR FULL SCALE
018934,001433: 40,2617 02652 TC FIXRANGE
018935,001434: 40,2620 02622 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
018936,001435: 40,2621 02645 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
018937,001436: 40,2622 02663 TC DEGCOM
018938,001437:
018939,001438: # 360-CDUO COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
018940,001439: # GOES TO DEGOUTSF.
018941,001440:
018942,001441: 40,2623 02625 360-CDUO TC 360-CDU
018943,001442: 40,2624 02615 TC DEGOUTSF
018944,001443:
018945,001444: 40,2625 30154 360-CDU CA MPAC
018946,001445: 40,2626 74733 MASK POSMAX # IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
018947,001446: 40,2627 00006 EXTEND
018948,001447: 40,2630 12634 BZF 360-CDUE
018949,001448: 40,2631 40154 CS MPAC # COMPUTE 360 DEGREES MINUS ANGLE
018950,001449: 40,2632 64753 AD ONE
018951,001450: 40,2633 54154 TS MPAC
018952,001451: 40,2634 00002 360-CDUE TC Q
018953,001452:
018954,001453: # LRPOSOUT DISPLAYS +0,1,2,OR 3 (WHOLE) FOR CHANNEL 33,BITS 7-6 = 11,10,
018955,001454: # 01,00 RESPECTIVELY.
018956,001455:
018957,001456: 40,2635 00006 LRPOSOUT EXTEND
018958,001457: 40,2636 00033 READ CHAN33
018959,001458: 40,2637 00006 EXTEND
018960,001459: 40,2640 74742 MP BIT10 # BITS 7-6 TO BITS 2-1
018961,001460: 40,2641 40000 COM
018962,001461: 40,2642 76244 MASK THREE
018963,001462: 40,2643 54154 TS MPAC
018964,001463: 40,2644 02677 TC ARTOUTSF # DISPLAY AS WHOLE
018965,001464:
018966,001465: 40,2645 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
018967,001466: 40,2646 50156 INDEX MPAC +2 # DP AUGMENTER CONSTANT
018968,001467: 40,2647 32674 DCA DEGTAB
018969,001468: 40,2650 52124 DXCH SFTEMP1
018970,001469: 40,2651 00002 TC Q
018971,001470:
018972,001471: 40,2652 10154 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
018973,001472: 40,2653 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
018974,001473: 40,2654 00002 TC Q # MASKING OUT THE SIGN BIT
018975,001474: 40,2655 12656 TCF +1
018976,001475:
|
|
Page 432 |
018978,001477: 40,2656 44735 CS BIT15
018979,001478: 40,2657 70154 MASK MPAC
018980,001479: 40,2660 54154 TS MPAC
018981,001480: 40,2661 50002 INDEX Q
018982,001481: 40,2662 00001 TC 1
018983,001482:
018984,001483: 40,2663 00006 DEGCOM EXTEND # LOADS MULTIPLIER , DOES SHORTMP, AND
018985,001484: 40,2664 50156 INDEX MPAC +2 # ADDS AUGMENTER.
018986,001485: 40,2665 32674 DCA DEGTAB
018987,001486: 40,2666 52155 DXCH MPAC # ADJUSTED ANGLE IN A
018988,001487: 40,2667 07306 TC SHORTMP
018989,001488: 40,2670 52124 DXCH SFTEMP1
018990,001489: 40,2671 20155 DAS MPAC
018991,001490: 40,2672 02702 TC SCOUTEND
018992,001491:
018993,001492:
018994,001493: 40,2673 05605 DEGTAB OCT 05605 # HI PART OF .18
018995,001494: 40,2674 03656 OCT 03656 # LOW PART OF .18
018996,001495: 40,2675 16314 OCT 16314 # HI PART OF .45
018997,001496: 40,2676 31463 OCT 31463 # LO PART OF .45
018998,001497:
018999,001498: 40,2677 52124 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
019000,001499: 40,2700 52155 DXCH MPAC
019001,001500: 40,2701 04415 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019002,001501: 40,2702 04635 SCOUTEND TC POSTJUMP
019003,001502: 40,2703 62566 CADR DSPDCEND
019004,001503:
019005,001504: 40,2704 52124 AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
019006,001505: 40,2705 52155 DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
019007,001506: 40,2706 04415 TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
019008,001507: 40,2707 02711 TC L14/OUT
019009,001508:
019010,001509:
019011,001510: 40,2710 02723 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019012,001511: 40,2711 56156 L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
019013,001512: 40,2712 56155 XCH MPAC +1 # BY B14.
019014,001513: 40,2713 54154 TS MPAC
019015,001514: 40,2714 02702 TC SCOUTEND
019016,001515:
019017,001516:
019018,001517: 40,2715 02723 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019019,001518: 40,2716 02702 TC SCOUTEND
019020,001519:
019021,001520:
019022,001521: 40,2717 02723 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019023,001522: 40,2720 36241 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
019024,001523: 40,2721 03153 TC TPLEFTN # SHIFT LEFT 7.
019025,001524: 40,2722 02702 TC SCOUTEND
019026,001525:
|
|
Page 433 |
019028,001527: 40,2723 0162 MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
019029,001528:
019030,001529: 40,2723 56002 DPOUT XCH Q
019031,001530: 40,2724 54162 TS MPAC+6
019032,001531: 40,2725 02747 TC READLO # GET FRESH DATA FOR BOTH HI AND LO.
019033,001532: 40,2726 07256 TC TPAGREE # MAKE DP DATA AGREE
019034,001533: 40,2727 07102 TC DMP
019035,001534: 40,2730 00123 ADRES SFTEMP1
019036,001535: 40,2731 00162 TC MPAC+6
019037,001536: # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
019038,001537: # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
019039,001538: # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
019040,001539: # RXD1-RXD2.
019041,001540:
019042,001541: 40,2732 02536 2INTOUT TC 5BLANK # TO BLANK RXD3
019043,001542: 40,2733 02413 TC +ON # TURN ON + SIGN
019044,001543: 40,2734 30154 CA MPAC
019045,001544: 40,2735 03306 TC DSPDECVN # DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
019046,001545: 40,2736 46244 CS THREE
019047,001546: 40,2737 50117 INDEX DECOUNT
019048,001547: 40,2740 64317 AD R1D1 # RXD4
019049,001548: 40,2741 54777 TS DSPCOUNT
019050,001549: 40,2742 02747 TC READLO # GET 2ND INTEGER
019051,001550: 40,2743 30155 CA MPAC +1
019052,001551: 40,2744 03306 TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
019053,001552: 40,2745 04635 TC POSTJUMP
019054,001553: 40,2746 62570 CADR DSPDCEND +2
019055,001554:
019056,001555:
019057,001556: # READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
019058,001557: # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
019059,001558: # DOES NOT FORCE TPAGREE.
019060,001559:
019061,001560: 40,2747 56002 READLO XCH Q
019062,001561: 40,2750 54144 TS TEM4
019063,001562: 40,2751 50140 INDEX MIXBR
019064,001563: 40,2752 02752 TC +0
019065,001564: 40,2753 02767 TC RDLONOR
019066,001565: 40,2754 50117 INDEX DECOUNT
019067,001566: 40,2755 30150 CA IDAD1TEM # GET IDADDTAB ENTRY FOR COMP K OF NOUN.
019068,001567: 40,2756 74356 MASK LOW11 # E SUBK
019069,001568: 40,2757 04313 TC SETEBANK # SET EB, LEAVE EADRES IN A.
019070,001569: 40,2760 00006 READLO1 EXTEND # MIXED NORMAL
019071,001570: 40,2761 50000 INDEX A # C(ESUBK) C(E)
019072,001571: 40,2762 30001 DCA 0 # C((E SUBK)+1) C(E+1)
019073,001572: 40,2763 52155 DXCH MPAC
019074,001573: 40,2764 34755 CAF ZERO
019075,001574: 40,2765 54156 TS MPAC +2
019076,001575: 40,2766 00144 TC TEM4
|
|
Page 434 |
019078,001577: 40,2767 30145 RDLONOR CA NOUNADD # E
019079,001578: 40,2770 02760 ENDRDLO TC READLO1
019080,001579:
019081,001580:
019082,001581: 42,3224 BANK 42
019083,001582: 42,2000 SETLOC PINBALL3
019084,001583: 42,2000 BANK
019085,001584:
019086,001585: 42,3224 COUNT* $$/PIN
019087,001586: 42,3224 04616 HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
019088,001587: 42,3225 60747 CADR READLO # MPAC+1.
019089,001588: 42,3226 07256 TC TPAGREE # MAKE DP DATA AGREE
019090,001589: 42,3227 03413 TC SEPSECNR # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
019091,001590: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019092,001591: 42,3230 07102 TC DMP # USE ONLY FRACT SEC/60 MOD 60
019093,001592: 42,3231 03265 ADRES SECON2 # MULT BY .06
019094,001593: 42,3232 34321 CAF R3D1 # GIVES CENTI-SEC/10EXP5 MOD 60
019095,001594: 42,3233 54777 TS DSPCOUNT
019096,001595: 42,3234 04616 TC BANKCALL # DISPLAY SEC MOD 60
019097,001596: 42,3235 61226 CADR DSPDECWD
019098,001597: 42,3236 03431 TC SEPMIN # REMOVE REST OF SECONDS
019099,001598: 42,3237 33267 CAF MINCON2 # LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
019100,001599: 42,3240 56154 XCH MPAC # WHOLE HOURS IN MPAC.
019101,001600: 42,3241 55007 TS HITEMOUT # SAVE WHOLE HOURS.
019102,001601: 42,3242 33270 CAF MINCON2 +1
019103,001602: 42,3243 56155 XCH MPAC +1 # USE ONLY FRACT MIN/60 MOD 60
019104,001603: 42,3244 04415 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019105,001604: # MULT BY .0006
019106,001605: 42,3245 34320 CAF R2D1 # GIVES MIN/10EXP5 MOD 60
019107,001606: 42,3246 54777 TS DSPCOUNT
019108,001607: 42,3247 04616 TC BANKCALL # DISPLAY MIN MOD 60
019109,001608: 42,3250 61226 CADR DSPDECWD
019110,001609: 42,3251 00006 EXTEND # MINUTES, SECONDS HAVE BEEN REMOVED
019111,001610: 42,3252 33274 DCA HRCON1
019112,001611: 42,3253 52155 DXCH MPAC
019113,001612: 42,3254 31007 CA HITEMOUT # USE WHOLE HOURS
019114,001613: 42,3255 04415 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
019115,001614: # MULT BY .16384
019116,001615: 42,3256 34317 CAF R1D1 # GIVES HOURS/10EXP5
019117,001616: 42,3257 54777 TS DSPCOUNT
019118,001617: 42,3260 04616 TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
019119,001618: 42,3261 61226 CADR DSPDECWD
019120,001619: 42,3262 00136 TC ENTEXIT
019121,001620:
019122,001621: 42,3263 25660 31742 SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
019123,001622:
019124,001623: 42,3265 01727 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
019125,001624: 42,3266 01217 OCT 01217
019126,001625: 42,3267 00011 MINCON2 OCT 00011 # .0006 FOR MINUTES DISLPAY
019127,001626: 42,3270 32445 OCT 32445
|
|
Page 435 |
019129,001628: 42,3271 02104 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
019130,001629: 42,3272 10422 OCT 10422
019131,001630: 42,3273 05174 13261 HRCON1 2DEC .16384
019132,001631:
019133,001632: 42,3275 00000 OCT 00000
019134,001633: 42,3276 00062 RNDCON OCT 00062 # .5 SEC
019135,001634:
019136,001635:
019137,001636: 42,3277 04616 M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
019138,001637: 42,3300 60747 CADR READLO # MPAC+1.
019139,001638: 42,3301 07256 TC TPAGREE # MAKE DP DATA AGREE
019140,001639: 42,3302 10154 CCS MPAC # IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
019141,001640: 42,3303 03305 TC +2 # DISPLAY 59B59, WITH PROPER SIGN.
019142,001641: 42,3304 03336 TC M/SNORM # MPAC = +0. L/ 59M58.5S
019143,001642: 42,3305 63373 AD M/SCON1 # - HI PART OF (59M58.5S) +1 FOR CCS
019144,001643: 42,3306 10000 CCS A # MAG OF MPAC - HI PART OF (59M58.5S)
019145,001644: 42,3307 03322 TC M/SLIMIT # G/ 59M58.5S
019146,001645: 42,3310 03336 TC M/SNORM # ORIGINAL MPAC = -0. L/ 59M58.5S
019147,001646: 42,3311 03336 TC M/SNORM # L/ 59M58.5S
019148,001647: 42,3312 10155 CCS MPAC +1 # MAG OF MPAC = HI PART OF 59M58.5S
019149,001648: 42,3313 03315 TC +2
019150,001649: 42,3314 03336 TC M/SNORM # MPAC+1 = +0. L/ 59M58.5S
019151,001650: 42,3315 63374 AD M/SCON2 # - LO PART OF (59M58.5S) +1 FOR CCS
019152,001651: 42,3316 10000 CCS A # MAG OF MPAC+1 - LO PART OF (59M58.5S)
019153,001652: 42,3317 03322 TC M/SLIMIT # G/ 59M58.5S
019154,001653: 42,3320 03336 TC M/SNORM # ORIGINAL MPAC+1 = -0. L/ 59M58.5S
019155,001654: 42,3321 03336 TC M/SNORM # L/ 59M58.5S
019156,001655: 42,3322 10154 M/SLIMIT CCS MPAC # = 59M58.5S LIMIT
019157,001656: 42,3323 33376 CAF M/SCON3 # MPAC CANNOT BE +/- 0 AT THIS POINT.
019158,001657: 42,3324 03333 TC +LIMIT # FORCE MPAC, MPAC+1 TO +/- 59M59.5S
019159,001658: 42,3325 43376 CS M/SCON3
019160,001659: 42,3326 54154 TS MPAC # WILL DISPLAY 59M59S IN DSPDECNR
019161,001660: 42,3327 43377 CS M/SCON3 +1
019162,001661: 42,3330 54155 LIMITCOM TS MPAC +1
019163,001662: 42,3331 33375 CAF NORMADR # SET RETURN TO M/SNORM+1.
019164,001663: 42,3332 03414 TC SEPSECNR +1
019165,001664: 42,3333 54154 +LIMIT TS MPAC
019166,001665: 42,3334 33377 CAF M/SCON3 +1
019167,001666: 42,3335 03330 TC LIMITCOM
019168,001667: 42,3336 03400 M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
019169,001668: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
019170,001669: 42,3337 33371 CAF HISECON # USE ONLY FRACT SEC/60 MOD 60
019171,001670: 42,3340 07306 TC SHORTMP # MULT BY .6 + 2EXP-14
019172,001671: 42,3341 46244 CS THREE # GIVES SEC/100 MOD 60
019173,001672: 42,3342 26777 ADS DSPCOUNT # DSPCOUNT ALREADY SET TO RXD1
019174,001673: 42,3343 04616 TC BANKCALL # DISPLAY SEC MOD 60 IN D4D5.
019175,001674: 42,3344 61266 CADR DSPDC2NR
019176,001675: 42,3345 34755 CAF ZERO
019177,001676: 42,3346 54124 TS CODE
019178,001677: 42,3347 44752 CS TWO
|
|
Page 436 |
019180,001679: 42,3350 50117 INDEX DECOUNT
019181,001680: 42,3351 64317 AD R1D1 # RXD3
019182,001681: 42,3352 54143 TS COUNT
019183,001682: 42,3353 04616 TC BANKCALL # BLANK MIDDLE CHAR
019184,001683: 42,3354 61322 CADR DSPIN
019185,001684: 42,3355 03431 TC SEPMIN # REMOVE REST OF SECONDS
019186,001685: 42,3356 56155 XCH MPAC +1 # LEAVE FRACT MIN/60 IN MPAC+1
019187,001686: 42,3357 00006 EXTEND # USE ONLY FRACT MIN/60 MOD 60
019188,001687: 42,3360 73372 MP HIMINCON # MULT BY .6 + 2EXP-7
019189,001688: 42,3361 52155 DXCH MPAC # GIVES MIN/100 MOD 60
019190,001689: 42,3362 50117 INDEX DECOUNT
019191,001690: 42,3363 34317 CAF R1D1 # RXD1
019192,001691: 42,3364 54777 TS DSPCOUNT
019193,001692: 42,3365 04616 TC BANKCALL # DISPLAY MIN MOD 60 IN D1D2.
019194,001693: 42,3366 61266 CADR DSPDC2NR
019195,001694: 42,3367 04635 TC POSTJUMP
019196,001695: 42,3370 62570 CADR DSPDCEND +2
019197,001696:
019198,001697: 42,3371 23147 HISECON OCT 23147 # .6 + 2EXP-14
019199,001698: 42,3372 23346 HIMINCON OCT 23346 # .6 + 2EXP-7
019200,001699:
019201,001700: 42,3373 77753 M/SCON1 OCT 77753 # - HI PART OF (59M58.5S) +1
019202,001701: 42,3374 41126 M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
019203,001702: 42,3375 03337 NORMADR ADRES M/SNORM +1
019204,001703: 42,3376 00025 M/SCON3 OCT 00025 # 59M 59.5S
019205,001704: 42,3377 37016 OCT 37016
019206,001705:
019207,001706:
019208,001707: 42,3400 10155 SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
019209,001708: 42,3401 13410 TCF POSEC # IF -, ROUND BY SUBTRACTING .5 SEC
019210,001709: 42,3402 13410 TCF POSEC # FINDS TIME IN MPAC, MPAC+1
019211,001710: 42,3403 13404 TCF +1 # ROUNDS OFF BY +/- .5 SEC
019212,001711: 42,3404 00006 EXTEND # LEAVES WHOLE MIN IN BIT13 OF
019213,001712: 42,3405 43276 DCS RNDCON -1 # LOTEMOUT AND ABOVE.
019214,001713: 42,3406 20155 SEPSEC1 DAS MPAC # LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
019215,001714: 42,3407 13413 TCF SEPSECNR
019216,001715: 42,3410 00006 POSEC EXTEND
019217,001716: 42,3411 33276 DCA RNDCON -1
019218,001717: 42,3412 13406 TCF SEPSEC1
019219,001718: 42,3413 56002 SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
019220,001719: 42,3414 54144 TS SEPSCRET
019221,001720: 42,3415 07102 TC DMP # MULT BY 2EXP12/6000
019222,001721: 42,3416 03263 ADRES SECON1 # GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
019223,001722: 42,3417 00006 EXTEND # AND BELOW.
019224,001723: 42,3420 30155 DCA MPAC # SAVE MINUTES AND HOURS
019225,001724: 42,3421 53010 DXCH HITEMOUT
019226,001725: 42,3422 04404 TC TPSL1
019227,001726: 42,3423 04404 TC TPSL1 # GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
019228,001727: 42,3424 34755 CAF ZERO
019229,001728: 42,3425 56156 XCH MPAC +2 # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
|
|
Page 437 |
019231,001730: 42,3426 56155 XCH MPAC +1
019232,001731: 42,3427 56154 XCH MPAC
019233,001732: 42,3430 00144 TC SEPSCRET
019234,001733:
019235,001734:
019236,001735: 42,3431 56002 SEPMIN XCH Q # FINDS WHOLE MINUTES IN BIT13
019237,001736: 42,3432 54144 TS SEPMNRET # OF LOTEMOUT AND ABOVE.
019238,001737: 42,3433 31010 CA LOTEMOUT # REMOVES REST OF SECONDS.
019239,001738: 42,3434 00006 EXTEND # LEAVES FRACT MIN/60 IN MPAC+1.
019240,001739: 42,3435 74751 MP BIT3 # LEAVES WHOLE HOURS IN MPAC.
019241,001740: 42,3436 00006 EXTEND # SR 12, THROW AWAY LP.
019242,001741: 42,3437 74737 MP BIT13 # SR 2, TAKE FROM LP. = SL 12.
019243,001742: 42,3440 22155 LXCH MPAC +1 # THIS FORCES BITS 12-1 TO 0 IF +,
019244,001743: # FORCES BITS 12-1 TO 1 IF -.
019245,001744: 42,3441 31007 CA HITEMOUT
019246,001745: 42,3442 54154 TS MPAC
019247,001746: 42,3443 07102 TC DMP # MULT BY 1/15
019248,001747: 42,3444 03271 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
019249,001748: 42,3445 00144 ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
019250,001749:
019251,001750:
019252,001751: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019253,001752: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
019254,001753: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019255,001754: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
019256,001755: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019257,001756: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019258,001757:
019259,001758:
019260,001759: 40,2771 SETLOC ENDRDLO +1
019261,001760:
019262,001761: 40,2771 COUNT* $$/PIN
019263,001762: 40,2771 50140 DSPDPDEC INDEX MIXBR
019264,001763: 40,2772 02772 TC +0
019265,001764: 40,2773 02775 TC +2 # NORMAL NOUN
019266,001765: 40,2774 03420 TC DSPALARM
019267,001766: 40,2775 00006 EXTEND
019268,001767: 40,2776 50145 INDEX NOUNADD
019269,001768: 40,2777 30001 DCA 0
019270,001769: 40,3000 52155 DXCH MPAC
019271,001770: 40,3001 34317 CAF R1D1
019272,001771: 40,3002 54777 TS DSPCOUNT
019273,001772: 40,3003 34755 CAF ZERO
019274,001773: 40,3004 54156 TS MPAC +2
019275,001774: 40,3005 07256 TC TPAGREE
019276,001775: 40,3006 03273 TC DSP2DEC
019277,001776: 40,3007 00136 ENDDPDEC TC ENTEXIT
019278,001777:
|
|
Page 438 |
019280,001779: # LOAD VERBS IF ALARM CONDITION IS DETECTED DURING EXECUTE,
019281,001780: # CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
019282,001781: # DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
019283,001782: # TO EXECUTE OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY 1) DECIMAL MACHINE
019284,001783: # CADR 2) MIXTURE OF OCTAL/DECIMAL DATA 3) OCTAL DATA INTO DECIMAL
019285,001784: # ONLY NOUN 4) DEC DATA INTO OCT ONLY NOUN 5) DATA TOO LARGE FOR SCALE
019286,001785: # 6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
019287,001786: # AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
019288,001787: # ENTER OF CADR.
019289,001788:
019290,001789:
019291,001790: 41,2616 SETLOC ENDRTOUT
019292,001791:
019293,001792: 41,2616 COUNT* $$/PIN
019294,001793: 41,2616 44752 ABCLOAD CS TWO
019295,001794: 41,2617 02424 TC COMPTEST
019296,001795: 41,2620 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
019297,001796: 41,2621 33006 CAF VBSP1LD
019298,001797: 41,2622 02337 TC UPDATVB -1
019299,001798: 41,2623 02303 TC REQDATX
019300,001799: 41,2624 33007 CAF VBSP2LD
019301,001800: 41,2625 02337 TC UPDATVB -1
019302,001801: 41,2626 02305 TC REQDATY
019303,001802: 41,2627 33010 CAF VBSP3LD
019304,001803: 41,2630 02337 TC UPDATVB -1
019305,001804: 41,2631 02307 TC REQDATZ
019306,001805:
019307,001806:
019308,001807: 41,2632 46241 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
019309,001808: 41,2633 03011 TC ALLDC/OC # ALL DEC OR ALL OCT.
019310,001809: 41,2634 00006 EXTEND
019311,001810: 41,2635 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019312,001811: 41,2636 52006 DXCH Z # ROUTINE.
019313,001812: 41,2637 34755 CAF ZERO # X COMP
019314,001813: 41,2640 03075 TC PUTCOM
019315,001814: 41,2641 50145 INDEX NOUNADD
019316,001815: 41,2642 54000 TS 0
019317,001816: 41,2643 34753 CAF ONE # Y COMP
019318,001817: 41,2644 03075 TC PUTCOM
019319,001818: 41,2645 50145 INDEX NOUNADD
019320,001819: 41,2646 54001 TS 1
019321,001820: 41,2647 34752 CAF TWO # Z COMP
019322,001821: 41,2650 03075 TC PUTCOM
019323,001822: 41,2651 50145 INDEX NOUNADD
019324,001823: 41,2652 54002 TS 2
019325,001824: 41,2653 44757 CS SEVEN # IF NOUN 7 HAS JUST BEEN LOADED, SET
019326,001825: 41,2654 61002 AD NOUNREG # FLAG BITS AS SPECIFIED.
019327,001826: 41,2655 00006 EXTEND
019328,001827: 41,2656 12660 BZF +2
019329,001828: 41,2657 02775 TC LOADLV
|
|
Page 439 |
019331,001830: 41,2660 31003 CA XREG # ECADR OF FLAG WORD.
019332,001831: 41,2661 04304 TC SETNCADR +1 # SET EBANK, NOUNADD.
019333,001832: 41,2662 31005 CA ZREG # ZERO TO RESET BITS, NON-ZERO TO SET BITS
019334,001833: 41,2663 00004 INHINT
019335,001834: 41,2664 00006 EXTEND
019336,001835: 41,2665 12674 BZF BITSOFF
019337,001836: 41,2666 50145 INDEX NOUNADD
019338,001837: 41,2667 40000 CS 0
019339,001838: 41,2670 71004 MASK YREG # BITS TO BE PROCESSED.
019340,001839: 41,2671 50145 INDEX NOUNADD
019341,001840: 41,2672 26000 ADS 0 # SET BITS.
019342,001841: 41,2673 02701 TC BITSOFF1
019343,001842: 41,2674 41004 BITSOFF CS YREG # BITS TO BE PROCESSED.
019344,001843: 41,2675 50145 INDEX NOUNADD
019345,001844: 41,2676 70000 MASK 0
019346,001845: 41,2677 50145 INDEX NOUNADD
019347,001846: 41,2700 54000 TS 0 # RESET BITS.
019348,001847: 41,2701 00003 BITSOFF1 RELINT
019349,001848: 41,2702 02775 TC LOADLV
019350,001849:
019351,001850: 41,2703 44753 ABLOAD CS ONE
019352,001851: 41,2704 02424 TC COMPTEST
019353,001852: 41,2705 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
019354,001853: 41,2706 33006 CAF VBSP1LD
019355,001854: 41,2707 02337 TC UPDATVB -1
019356,001855: 41,2710 02303 TC REQDATX
019357,001856: 41,2711 33007 CAF VBSP2LD
019358,001857: 41,2712 02337 TC UPDATVB -1
019359,001858: 41,2713 02305 TC REQDATY
019360,001859: 41,2714 44756 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
019361,001860: 41,2715 03011 TC ALLDC/OC # ALL DEC OR ALL OCT.
019362,001861: 41,2716 00006 EXTEND
019363,001862: 41,2717 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019364,001863: 41,2720 52006 DXCH Z # ROUTINE.
019365,001864: 41,2721 34755 CAF ZERO # X COMP
019366,001865: 41,2722 03075 TC PUTCOM
019367,001866: 41,2723 50145 INDEX NOUNADD
019368,001867: 41,2724 54000 TS 0
019369,001868: 41,2725 34753 CAF ONE # Y COMP
019370,001869: 41,2726 03075 TC PUTCOM
019371,001870: 41,2727 50145 INDEX NOUNADD
019372,001871: 41,2730 54001 TS 1
019373,001872: 41,2731 02775 TC LOADLV
019374,001873:
019375,001874: 41,2732 02303 ALOAD TC REQDATX
019376,001875: 41,2733 00006 EXTEND
019377,001876: 41,2734 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019378,001877: 41,2735 52006 DXCH Z # ROUTINE.
019379,001878: 41,2736 34755 CAF ZERO # X COMP
019380,001879: 41,2737 03075 TC PUTCOM
|
|
Page 440 |
019382,001881: 41,2740 50145 INDEX NOUNADD
019383,001882: 41,2741 54000 TS 0
019384,001883: 41,2742 02775 TC LOADLV
019385,001884:
019386,001885: 41,2743 44753 BLOAD CS ONE
019387,001886: 41,2744 02424 TC COMPTEST
019388,001887: 41,2745 34735 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
019389,001888: 41,2746 55015 TS CLPASS
019390,001889: 41,2747 02305 TC REQDATY
019391,001890: 41,2750 00006 EXTEND
019392,001891: 41,2751 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019393,001892: 41,2752 52006 DXCH Z # ROUTINE.
019394,001893: 41,2753 34753 CAF ONE
019395,001894: 41,2754 03075 TC PUTCOM
019396,001895: 41,2755 50145 INDEX NOUNADD
019397,001896: 41,2756 54001 TS 1
019398,001897: 41,2757 02775 TC LOADLV
019399,001898:
019400,001899: 41,2760 44752 CLOAD CS TWO
019401,001900: 41,2761 02424 TC COMPTEST
019402,001901: 41,2762 34735 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
019403,001902: 41,2763 55015 TS CLPASS
019404,001903: 41,2764 02307 TC REQDATZ
019405,001904: 41,2765 00006 EXTEND
019406,001905: 41,2766 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019407,001906: 41,2767 52006 DXCH Z # ROUTINE.
019408,001907: 41,2770 34752 CAF TWO
019409,001908: 41,2771 03075 TC PUTCOM
019410,001909: 41,2772 50145 INDEX NOUNADD
019411,001910: 41,2773 54002 TS 2
019412,001911: 41,2774 02775 TC LOADLV
019413,001912:
019414,001913: 41,2775 34755 LOADLV CAF ZERO
019415,001914: 41,2776 55000 TS DECBRNCH
019416,001915: 41,2777 44755 CS ZERO
019417,001916: 41,3000 55014 TS LOADSTAT
019418,001917: 41,3001 04457 TC RELDSP # RELEASE FOR PRIORITY DISPLAY PROBLEM.
019419,001918: 41,3002 44360 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
019420,001919: 41,3003 54777 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
019421,001920: 41,3004 04635 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
019422,001921: 41,3005 61545 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
019423,001922:
019424,001923: 41,3006 00025 VBSP1LD DEC 21 B-14 # VB21 = ALOAD
019425,001924: 41,3007 00026 VBSP2LD DEC 22 B-14 # VB22 = BLOAD
019426,001925: 41,3010 00027 VBSP3LD DEC 23 B-14 # VB23 = CLOAD
019427,001926:
019428,001927:
019429,001928: 41,3011 54117 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
019430,001929: 41,3012 41000 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
019431,001930: 41,3013 54021 TS SR
|
|
Page 441 |
019433,001932: 41,3014 40021 CS SR
019434,001933: 41,3015 40021 CS SR # SHIFTED RIGHT 2
019435,001934: 41,3016 10000 CCS A # DEC COMP BITS IN LOW 3
019436,001935: 41,3017 13021 TCF +2 # SOME ONES IN LOW 3
019437,001936: 41,3020 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
019438,001937: 41,3021 60117 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
019439,001938: 41,3022 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
019440,001939: 41,3023 13025 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
019441,001940: 41,3024 04145 TC ALMCYCLE # ALARM AND RECYCLE.
019442,001941: 41,3025 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
019443,001942:
019444,001943:
019445,001944: 41,3026 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
019446,001945: 41,3027 54114 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
019447,001946: 41,3030 34347 CAF MID5
019448,001947: 41,3031 70147 MASK NNTYPTEM
019449,001948: 41,3032 04322 TC RIGHT5
019450,001949: 41,3033 00114 TC EXITEM # SF ROUTINE NUMBER IN A
019451,001950:
019452,001951: 41,3034 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
019453,001952: 41,3035 54114 TS EXITEM
019454,001953: 41,3036 50117 INDEX DECOUNT
019455,001954: 41,3037 33066 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019456,001955: 41,3040 54001 TS L
019457,001956: 41,3041 50117 INDEX DECOUNT
019458,001957: 41,3042 34346 CAF LOW5 # LOW5, MID5, OR HI5 IN A
019459,001958: 41,3043 70153 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
019460,001959: 41,3044 50001 INDEX L
019461,001960: 41,3045 00000 TC 0
019462,001961: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019463,001962: 41,3046 00114 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
019464,001963:
019465,001964: 41,3047 56002 SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER)
019466,001965: 41,3050 54114 TS EXITEM
019467,001966: 41,3051 50140 INDEX MIXBR
019468,001967: 41,3052 03052 TC +0
019469,001968: 41,3053 03071 TC CONUMNOR # NORMAL NOUN
019470,001969: 41,3054 50117 INDEX DECOUNT # MIXED NOUN
019471,001970: 41,3055 33066 CAF DISPLACE
019472,001971: 41,3056 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
019473,001972: 41,3057 50117 INDEX DECOUNT
019474,001973: 41,3060 34346 CAF LOW5
019475,001974: 41,3061 70147 MASK NNTYPTEM
019476,001975: 41,3062 50001 INDEX L
019477,001976: 41,3063 00000 TC 0
019478,001977: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
019479,001978: 41,3064 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
019480,001979: 41,3065 00114 TC EXITEM
019481,001980:
019482,001981: 41,3066 03025 DISPLACE TC GOQ
|
|
Page 442 |
019484,001983: 41,3067 04322 TC RIGHT5
019485,001984: 41,3070 04331 TC LEFT5
019486,001985:
019487,001986: 41,3071 34346 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
019488,001987: 41,3072 70147 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
019489,001988: 41,3073 60000 DOUBLE
019490,001989: 41,3074 00114 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
019491,001990:
019492,001991:
019493,001992: 41,3075 54117 PUTCOM TS DECOUNT
019494,001993: 41,3076 56002 XCH Q
019495,001994: 41,3077 54115 TS DECRET
019496,001995: 41,3100 34755 CAF ZERO
019497,001996: 41,3101 54162 TS MPAC+6
019498,001997: 41,3102 50117 INDEX DECOUNT
019499,001998: 41,3103 57006 XCH XREGLP
019500,001999: 41,3104 54155 TS MPAC +1
019501,002000: 41,3105 50117 INDEX DECOUNT
019502,002001: 41,3106 57003 XCH XREG
019503,002002: 41,3107 54154 TS MPAC
019504,002003: 41,3110 50140 INDEX MIXBR
019505,002004: 41,3111 03111 TC +0
019506,002005: 41,3112 03137 TC PUTNORM # NORMAL NOUN
019507,002006: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
019508,002007: 41,3113 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
019509,002008: 41,3114 30150 CA IDAD1TEM # OF NOUN.
019510,002009: 41,3115 74356 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
019511,002010: 41,3116 04303 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
019512,002011: 41,3117 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
019513,002012: 41,3120 60117 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
019514,002013: 41,3121 54145 TS NOUNADD
019515,002014: 41,3122 11000 CCS DECBRNCH
019516,002015: 41,3123 03174 TC PUTDECSF # + DEC
019517,002016: 41,3124 02452 TC DCTSTCYC # +0 OCTAL
019518,002017: 41,3125 03034 TC SFRUTMIX # TEST IF DEC ONLY BIT = 1. IF SO,
019519,002018: 41,3126 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
019520,002019: 41,3127 03155 TC PUTCOM2 # NO DP
019521,002020: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019522,002021: # +0 INTO MAJOR PART. SET NOUNADD FOR
019523,002022: # LOADING OCTAL WORD INTO MINOR PART.
019524,002023: 41,3130 24145 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
019525,002024: 41,3131 30145 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
019526,002025: 41,3132 26117 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
019527,002026: 41,3133 34755 CAF ZERO # NOUNADD SET FOR MINOR PART
019528,002027: 41,3134 50117 INDEX DECOUNT
019529,002028: 41,3135 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
019530,002029: 41,3136 03155 TC PUTCOM2
019531,002030:
019532,002031: 41,3137 04311 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
019533,002032: 41,3140 11000 CCS DECBRNCH
|
|
Page 443 |
019535,002034: 41,3141 03174 TC PUTDECSF # + DEC
019536,002035: 41,3142 02452 TC DCTSTCYC # +0 OCTAL
019537,002036: 41,3143 03026 TC SFRUTNOR # TEST IF DEC ONLY BIT = 1. IF SO,
019538,002037: 41,3144 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
019539,002038: 41,3145 03151 TC PUTCOM2 -4 # NO DP
019540,002039: 41,3146 34755 CAF ZERO # DP
019541,002040: 41,3147 54117 TS DECOUNT
019542,002041: 41,3150 03130 TC PUTDPCOM
019543,002042:
019544,002043: 41,3151 30146 CA NNADTEM
019545,002044: 41,3152 64753 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
019546,002045: 41,3153 00006 EXTEND
019547,002046: 41,3154 13161 BZF CHANLOAD
019548,002047: 41,3155 56154 PUTCOM2 XCH MPAC
019549,002048: 41,3156 00115 TC DECRET
019550,002049:
019551,002050: 41,3157 0777 EBANK= DSPCOUNT
019552,002051: 41,3157 02147 64101 GTSFINLC 2CADR GTSFIN
019553,002052:
019554,002053:
019555,002054:
019556,002055: 41,3161 44757 CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
019557,002056: 41,3162 61017 AD NOUNCADR
019558,002057: 41,3163 00006 EXTEND
019559,002058: 41,3164 12775 BZF LOADLV
019560,002059: 41,3165 31017 CA NOUNCADR
019561,002060: 41,3166 75004 MASK LOW9
019562,002061: 41,3167 56154 XCH MPAC
019563,002062: 41,3170 00006 EXTEND
019564,002063: 41,3171 50154 INDEX MPAC
019565,002064: 41,3172 01000 WRITE 0
019566,002065: 41,3173 02775 TC LOADLV
019567,002066:
019568,002067:
019569,002068: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019570,002069:
019571,002070: 41,3174 03047 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
019572,002071: 41,3175 54123 TS SFTEMP1
019573,002072: 41,3176 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
019574,002073: 41,3177 33160 DCA GTSFINLC # READING ROUTINE.
019575,002074: 41,3200 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
019576,002075: 41,3201 50140 INDEX MIXBR
019577,002076: 41,3202 03202 TC +0
019578,002077: 41,3203 03206 TC PUTSFNOR
019579,002078: 41,3204 03034 TC SFRUTMIX
019580,002079: 41,3205 03207 TC PUTDCSF2
019581,002080: 41,3206 03026 PUTSFNOR TC SFRUTNOR
019582,002081:
019583,002082: 41,3207 50000 PUTDCSF2 INDEX A
019584,002083: 41,3210 33212 CAF SFINTABR
|
|
Page 444 |
019586,002085: 41,3211 04640 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
019587,002086: 41,3212 62350 SFINTABR CADR GOALMCYC # ALARM AND RECYCLE IF DEC LOAD
019588,002087: # WITH OCTAL ONLY NOUN.
019589,002088: 41,3213 61106 CADR BINROUND
019590,002089: 41,3214 61010 CADR DEGINSF
019591,002090: 41,3215 61076 CADR ARTHINSF
019592,002091: 41,3216 61114 CADR DPINSF
019593,002092: 41,3217 61141 CADR DPINSF2
019594,002093: 41,3220 61420 CADR DSPALARM # LRPOSOUT CANT BE LOADED.
019595,002094: 41,3221 61114 CADR DPINSF # SAME AS ARITHDP1
019596,002095: 41,3222 65446 CADR HMSIN
019597,002096: 41,3223 61420 CADR DSPALARM # MIN/SEC CANT BE LOADED.
019598,002097: 41,3224 61146 CADR DPINSF4
019599,002098: 41,3225 61111 CADR ARTIN1SF
019600,002099: 41,3226 61420 CADR DSPALARM # 2INTOUT CANT BE LOADED.
019601,002100: 41,3227 61010 CADR DEGINSF # TESTS AT END FOR 360-CDU
019602,002101: 41,3230 ENDRUTIN EQUALS
019603,002102:
019604,002103:
019605,002104: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
019606,002105: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019607,002106:
019608,002107:
019609,002108: 40,3010 SETLOC ENDDPDEC +1
019610,002109:
019611,002110: 40,3010 COUNT* $$/PIN
019612,002111: # DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
019613,002112:
019614,002113: 40,3010 07102 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
019615,002114: 40,3011 03074 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
019616,002115: 40,3012 10155 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019617,002116: 40,3013 34741 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
019618,002117: 40,3014 03016 TC +2 # WHEN SHIFTED LEFT AND ALARM.
019619,002118: 40,3015 44741 CS BIT11
019620,002119: 40,3016 60155 AD MPAC +1
019621,002120: 40,3017 03165 TC 2ROUND +2
019622,002121: 40,3020 04404 TC TPSL1 # LEFT 1
019623,002122: 40,3021 04404 DEGINSF2 TC TPSL1 # LEFT 2
019624,002123: 40,3022 03174 TC TESTOFUF
019625,002124: 40,3023 04404 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
019626,002125: 40,3024 10154 CCS MPAC
019627,002126: 40,3025 03031 TC SIGNFIX # IF+, GO TO SIGNFIX
019628,002127: 40,3026 03031 TC SIGNFIX # IF +0, GO TO SIGNFIX
019629,002128: 40,3027 40000 COM # IF -, USE -MAGNITUDE +1
019630,002129: 40,3030 54154 TS MPAC # IF -0, USE +0
019631,002130: 40,3031 10162 SIGNFIX CCS MPAC+6
019632,002131: 40,3032 03070 TC SGNTO1 # IF OVERFLOW
019633,002132: 40,3033 03043 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
019634,002133: 40,3034 10154 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
019635,002134: 40,3035 05677 TC CCSHOLE
|
|
Page 445 |
019637,002136: 40,3036 03066 TC NEG180
019638,002137: 40,3037 03040 TC +1
019639,002138: 40,3040 56154 XCH MPAC
019640,002139: 40,3041 74733 MASK POSMAX
019641,002140: 40,3042 54154 TS MPAC
019642,002141: 40,3043 50140 ENDSCALE INDEX MIXBR # IF ROUTINE NO. IS NOT CDU DEGREES,
019643,002142: 40,3044 03044 TC +0 # THEN THIS IS 360 - CDU DEGREES
019644,002143: 40,3045 03050 TC +3 # AND ANGLE IN MPAC MUST BE REPLACED
019645,002144: 40,3046 03060 TC SFMIXCAL # BY 360 DEGREES MINUS ITSELF.
019646,002145: 40,3047 03051 MIXBACK TC +2
019647,002146: 40,3050 03063 TC SFNORCAL
019648,002147: 40,3051 40000 NORBACK CS A
019649,002148: 40,3052 64752 AD BIT2
019650,002149: 40,3053 00006 EXTEND
019651,002150: 40,3054 13056 BZF +2
019652,002151: 40,3055 02625 TC 360-CDU
019653,002152: 40,3056 04635 ENDSCAL1 TC POSTJUMP
019654,002153: 40,3057 63155 CADR PUTCOM2
019655,002154:
019656,002155: 40,3060 04616 SFMIXCAL TC BANKCALL
019657,002156: 40,3061 63034 CADR SFRUTMIX
019658,002157: 40,3062 03047 TC MIXBACK
019659,002158:
019660,002159: 40,3063 04616 SFNORCAL TC BANKCALL
019661,002160: 40,3064 63026 CADR SFRUTNOR
019662,002161: 40,3065 03051 TC NORBACK
019663,002162:
019664,002163: 40,3066 44733 NEG180 CS POSMAX
019665,002164: 40,3067 03042 TC ENDSCALE -1
019666,002165:
019667,002166: 40,3070 40154 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
019668,002167: 40,3071 74733 MASK POSMAX
019669,002168: 40,3072 40000 CS A
019670,002169: 40,3073 03042 TC ENDSCALE -1
019671,002170:
019672,002171: 40,3074 26161 30707 DEGCON1 2DEC 5.555555555 B-3
019673,002172:
019674,002173:
019675,002174: 40,3076 07102 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019676,002175: 40,3077 00123 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
019677,002176: 40,3100 56156 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
019678,002177: 40,3101 56155 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019679,002178: 40,3102 56154 XCH MPAC
019680,002179: 40,3103 00006 EXTEND
019681,002180: 40,3104 13106 BZF BINROUND
019682,002181: 40,3105 04145 TC ALMCYCLE # TOO LARGE A LOAD. ALARM AND RECYCLE.
019683,002182: 40,3106 03163 BINROUND TC 2ROUND
019684,002183: 40,3107 03174 TC TESTOFUF
019685,002184: 40,3110 03056 TC ENDSCAL1 # RETURNS IF NO OF/UF
019686,002185:
|
|
Page 446 |
019688,002187: 40,3111 07102 ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019689,002188: 40,3112 00123 ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
019690,002189: 40,3113 03106 TC BINROUND
019691,002190:
019692,002191:
019693,002192: 40,3114 07102 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
019694,002193: 40,3115 00123 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
019695,002194: 40,3116 56156 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
019696,002195: 40,3117 60000 DOUBLE
019697,002196: 40,3120 54156 TS MPAC +2
019698,002197: 40,3121 34755 CAF ZERO
019699,002198: 40,3122 60155 AD MPAC +1
019700,002199: 40,3123 03165 TC 2ROUND +2
019701,002200: 40,3124 03174 TC TESTOFUF
019702,002201: 40,3125 50140 INDEX MIXBR # RETURNS IF NO OF/UF
019703,002202: 40,3126 03126 TC +0
019704,002203: 40,3127 03137 TC DPINORM
019705,002204: 40,3130 30117 CA DECOUNT # MIXED NOUN
019706,002205: 40,3131 60145 DPINCOM AD NOUNADD # MIXED NORMAL
019707,002206: 40,3132 54002 TS Q # E SUBK E
019708,002207: 40,3133 56155 XCH MPAC +1
019709,002208: 40,3134 50002 INDEX Q
019710,002209: 40,3135 54001 TS 1 # PLACE LOW PART IN
019711,002210: 40,3136 03056 TC ENDSCAL1 # (E SUBK) +1 MIXED
019712,002211:
019713,002212: 40,3137 34755 DPINORM CAF ZERO # E +1 NORMAL
019714,002213: 40,3140 03131 TC DPINCOM
019715,002214:
019716,002215:
019717,002216: 40,3141 07102 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019718,002217: 40,3142 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019719,002218: 40,3143 36241 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
019720,002219: 40,3144 03153 TC TPLEFTN # SHIFT LEFT 7.
019721,002220: 40,3145 03116 TC DPINSF +2
019722,002221:
019723,002222: 40,3146 07102 DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
019724,002223: 40,3147 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019725,002224: 40,3150 34752 CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
019726,002225: 40,3151 03153 TC TPLEFTN # SHIFT LEFT 3.
019727,002226: 40,3152 03116 TC DPINSF +2
019728,002227:
019729,002228:
019730,002229: 40,3153 56002 TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
019731,002230: 40,3154 54124 TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
019732,002231: 40,3155 56002 XCH Q # CALL WITH N-1 IN A.
019733,002232: 40,3156 54123 LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
019734,002233: 40,3157 04404 TC TPSL1
019735,002234: 40,3160 10123 CCS SFTEMP1
019736,002235: 40,3161 03156 TC LEFTNCOM
|
|
Page 447 |
019738,002237: 40,3162 00124 TC SFTEMP2
019739,002238:
019740,002239:
019741,002240: 40,3163 56155 2ROUND XCH MPAC +1
019742,002241: 40,3164 60000 DOUBLE
019743,002242: 40,3165 54155 TS MPAC +1
019744,002243: 40,3166 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
019745,002244: 40,3167 60154 AD MPAC
019746,002245: 40,3170 54154 TS MPAC
019747,002246: 40,3171 00002 TC Q # IF MPAC DOES NOT OF/UF
019748,002247: 40,3172 54162 TS MPAC+6
019749,002248: 40,3173 00002 2RNDEND TC Q
019750,002249:
019751,002250:
019752,002251: 40,3174 10162 TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
019753,002252: 40,3175 04145 TC ALMCYCLE # OF ALARM AND RECYCLE.
019754,002253: 40,3176 00002 TC Q
019755,002254: 40,3177 04145 TC ALMCYCLE # UF ALARM AND RECYCLE.
019756,002255:
019757,002256:
019758,002257: 42,3446 SETLOC ENDSPMIN +1
019759,002258:
019760,002259: 42,3446 COUNT* $$/PIN
019761,002260: 42,3446 03567 HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
019762,002261: 42,3447 07102 TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
019763,002262: 42,3450 03530 ADRES WHOLECON # INTO MPAC, MPAC+1.
019764,002263: 42,3451 03537 TC RND/TST # ROUND OFF TO WHOLE HRS IN MPAC+1.
019765,002264: 42,3452 34755 CAF ZERO # ALARM IF MPAC NON ZERO (G/ 16383 ).
019766,002265: 42,3453 54156 TS MPAC +2
019767,002266: 42,3454 33532 CAF HRCON
019768,002267: 42,3455 54154 TS MPAC
019769,002268: 42,3456 33533 CAF HRCON +1
019770,002269: 42,3457 56155 XCH MPAC +1
019771,002270: 42,3460 07306 TC SHORTMP
019772,002271: 42,3461 03550 TC MPACTST # ALARM IF MPAC NON ZERO (G/ 745)
019773,002272: 42,3462 52156 DXCH MPAC +1 # STORE HOURS CONTRIBUTION
019774,002273: 42,3463 52124 DXCH HITEMIN
019775,002274: 42,3464 31004 CA YREG # PUT YREG, YREGLP INTO MPAC, +1.
019776,002275: 42,3465 23007 LXCH YREGLP
019777,002276: 42,3466 52155 DXCH MPAC
019778,002277: 42,3467 07102 TC DMP
019779,002278: 42,3470 03530 ADRES WHOLECON
019780,002279: 42,3471 03537 TC RND/TST # ROUND OFF TO WHOLE MIN IN MPAC+1
019781,002280: 42,3472 43535 CS 59MIN # ALARM IF MPAC NON ZERO (G/16383)
019782,002281: 42,3473 03555 TC SIZETST # ALARM IF MPAC+1 G/ 59MIN
019783,002282: 42,3474 56155 XCH MPAC +1
019784,002283: 42,3475 00006 EXTEND
019785,002284: 42,3476 73534 MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
019786,002285: 42,3477 20124 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
019787,002286: 42,3500 00006 EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
|
|
Page 448 |
019789,002288: 42,3501 13503 BZF +2
019790,002289: 42,3502 04145 TC ALMCYCLE
019791,002290: 42,3503 31005 CA ZREG # PUT ZREG, ZREGLP INTO MPAC, +1.
019792,002291: 42,3504 23010 LXCH ZREGLP
019793,002292: 42,3505 52155 DXCH MPAC
019794,002293: 42,3506 07102 TC DMP
019795,002294: 42,3507 03530 ADRES WHOLECON
019796,002295: 42,3510 03537 TC RND/TST # ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
019797,002296: 42,3511 43536 CS 59.99SEC # ALARM IF MPAC NON ZERO (G/163.83 SEC)
019798,002297: 42,3512 03555 TC SIZETST # ALARM IF MPAC+1 G/59.99 SEC
019799,002298: 42,3513 52124 DXCH HITEMIN # ADD IN SECONDS CONTRIBUTION
019800,002299: 42,3514 20155 DAS MPAC # IF THIS DAS OVERFLOWS,
019801,002300: 42,3515 00006 EXTEND # G/ 745 HR, 39 MIN, 14.55 SEC.
019802,002301: 42,3516 13520 BZF +2
019803,002302: 42,3517 04145 TC ALMCYCLE # ALARM AND RECYCLE
019804,002303: 42,3520 34755 CAF ZERO
019805,002304: 42,3521 54156 TS MPAC +2
019806,002305: 42,3522 07256 TC TPAGREE
019807,002306: 42,3523 52155 DXCH MPAC
019808,002307: 42,3524 50145 INDEX NOUNADD
019809,002308: 42,3525 52001 DXCH 0
019810,002309: 42,3526 04635 TC POSTJUMP
019811,002310: 42,3527 62775 CADR LOADLV
019812,002311:
019813,002312: 42,3530 00006 WHOLECON OCT 00006 # (10EXP5/2EXP14)2EXP14
019814,002313: 42,3531 03240 OCT 03240
019815,002314: 42,3532 00025 HRCON OCT 00025 # 1 HOUR IN CENTI-SEC
019816,002315: 42,3533 37100 OCT 37100
019817,002316: 42,3534 13560 MINCON OCT 13560 # 1 MINUTE IN CENTI-SEC
019818,002317: 42,3535 00073 59MIN OCT 00073 # 59 AS WHOLE
019819,002318: 42,3536 13557 59.99SEC OCT 13557 # 5999 CENTI-SEC
019820,002319:
019821,002320:
019822,002321: 42,3537 56156 RND/TST XCH MPAC +2 # ROUNDS MPAC+2 INTO MPAC+1.
019823,002322: 42,3540 60000 DOUBLE # ALARMS IF MPAC NOT 0
019824,002323: 42,3541 54156 TS MPAC +2
019825,002324: 42,3542 34755 CAF ZERO
019826,002325: 42,3543 60155 AD MPAC +1
019827,002326: 42,3544 54155 TS MPAC +1
019828,002327: 42,3545 34755 CAF ZERO
019829,002328: 42,3546 60154 AD MPAC # CANT OVFLOW
019830,002329: 42,3547 56154 XCH MPAC
019831,002330: 42,3550 10154 MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
019832,002331: 42,3551 04145 TC ALMCYCLE # ALARM AND RECYCLE.
019833,002332: 42,3552 00002 TC Q
019834,002333: 42,3553 04145 TC ALMCYCLE # ALARM AND RECYCLE.
019835,002334: 42,3554 00002 TC Q
019836,002335:
019837,002336: 42,3555 54156 SIZETST TS MPAC +2 # CALLED WITH - CON IN A
019838,002337: 42,3556 10155 CCS MPAC +1 # GET MAG OF MPAC+1
|
|
Page 449 |
019840,002339: 42,3557 64753 AD ONE
019841,002340: 42,3560 13562 TCF +2
019842,002341: 42,3561 64753 AD ONE
019843,002342: 42,3562 60156 AD MPAC +2
019844,002343: 42,3563 00006 EXTEND # MAG OF MPAC+1 - CON
019845,002344: 42,3564 63566 BZMF +2
019846,002345: 42,3565 04145 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
019847,002346: 42,3566 00002 TC Q # MAG OF MPAC+1 L/= CON
019848,002347:
019849,002348:
019850,002349: # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
019851,002350: # ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
019852,002351: 42,3567 43574 ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
019853,002352: 42,3570 71000 MASK DECBRNCH # GET BITS 3,4,5 OF DECBRNCH IN A
019854,002353: 42,3571 63574 AD OCT34BAR # BITS 3,4,5 OF DECBRNCH MUST ALL = 1
019855,002354: 42,3572 10000 CCS A
019856,002355: 42,3573 03577 TC FORCEV25
019857,002356: 42,3574 77743 OCT34BAR OCT 77743
019858,002357: 42,3575 03577 TC FORCEV25
019859,002358: 42,3576 00002 TC Q
019860,002359:
019861,002360: 42,3577 46010 FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
019862,002361: 42,3600 55041 TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
019863,002362: 42,3601 04145 TC ALMCYCLE # VERB. ALARM AND RECYCLE.
019864,002363: 42,3602 ENDHMSS EQUALS
019865,002364:
|
|
Page 450 |
019867,002366: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019868,002367: # VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
019869,002368: # ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
019870,002369: # THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
019871,002370: # HE HAS INITIATED THROUGH THE KEYBOARD).
019872,002371:
019873,002372: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019874,002373: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019875,002374: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019876,002375: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
019877,002376: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
019878,002377: # INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
019879,002378: # MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
019880,002379:
019881,002380: # MONSAVE INDICATES IF MONITOR IS ON(+=ON, +0=OFF)
019882,002381: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019883,002382: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019884,002383:
019885,002384: # NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
019886,002385: # VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019887,002386:
019888,002387: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019889,002388: # AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
019890,002389:
019891,002390: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019892,002391: 41,3230 SETLOC ENDRUTIN
019893,002392:
019894,002393: 41,3230 COUNT* $$/PIN
019895,002394: 41,3230 43237 MONITOR CS BIT15/14
019896,002395: 41,3231 71017 MASK NOUNCADR
019897,002396: 41,3232 54155 MONIT1 TS MPAC +1 # TEMP STORAGE
019898,002397: 41,3233 40136 CS ENTEXIT
019899,002398: 41,3234 64217 AD ENDINST
019900,002399: 41,3235 10000 CCS A
019901,002400: 41,3236 03245 TC MONIT2
019902,002401: 41,3237 60000 BIT15/14 OCT 60000
019903,002402: 41,3240 03245 TC MONIT2
019904,002403: 41,3241 34736 CAF BIT14 # EXTERNALLY INITIATED MONITOR,
019905,002404: 41,3242 26155 ADS MPAC +1 # SET BIT 14 FOR MONSAVE1.
019906,002405: 41,3243 34755 CAF ZERO
019907,002406: 41,3244 55022 TS MONSAVE2 # ZERO NVMONOPT OPTIONS
019908,002407: 41,3245 36073 MONIT2 CAF LOW7
019909,002408: 41,3246 71001 MASK VERBREG
019910,002409: 41,3247 04331 TC LEFT5
019911,002410: 41,3250 54022 TS CYL
019912,002411: 41,3251 40022 CS CYL
019913,002412: 41,3252 56022 XCH CYL
019914,002413: 41,3253 61002 AD NOUNREG
019915,002414: 41,3254 54154 TS MPAC # TEMP STORAGE
019916,002415: 41,3255 34755 CAF ZERO
|
|
Page 451 |
019918,002417: 41,3256 55012 TS DSPLOCK # +0 INTO DSPLOCK SO MONITOR CAN RUN.
019919,002418: 41,3257 11042 CCS CADRSTOR # TURN OFF KR LITE IF CADRSTOR AND DSPLIST
019920,002419: 41,3260 03262 TC +2 # ARE BOTH EMPTY. (LITE COMES ON IF NEW
019921,002420: 41,3261 04502 TC RELDSP1 # MONITOR IS KEYED IN OVER OLD MONITOR.)
019922,002421: 41,3262 00004 INHINT
019923,002422: 41,3263 11020 CCS MONSAVE
019924,002423: 41,3264 03271 TC +5 # IF MONSAVE WAS +, NO REQUEST
019925,002424: 41,3265 34753 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
019926,002425: 41,3266 05203 TC WAITLIST
019927,002426: 41,3267 0777 EBANK= DSPCOUNT
019928,002427: 41,3267 03275 62101 2CADR MONREQ
019929,002428:
019930,002429: 41,3271 52155 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
019931,002430: 41,3272 53021 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
019932,002431: 41,3273 00003 RELINT # SET UP EXTERNAL MONITOR BIT
019933,002432: 41,3274 00136 TC ENTRET
019934,002433:
019935,002434:
019936,002435: 41,3275 04400 MONREQ TC LODSAMPT # CALLED BY WAITLIST
019937,002436: 41,3276 11021 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
019938,002437: 41,3277 03303 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
019939,002438: 41,3300 03303 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
019940,002439: 41,3301 03314 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
019941,002440: 41,3302 03314 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
019942,002441: 41,3303 33320 CAF MONDEL
019943,002442: 41,3304 05203 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
019944,002443: 41,3305 0777 EBANK= DSPCOUNT
019945,002444: 41,3305 03275 62101 2CADR MONREQ
019946,002445:
019947,002446: 41,3307 34355 CAF CHRPRIO
019948,002447: 41,3310 05072 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
019949,002448: 41,3311 0777 EBANK= DSPCOUNT
019950,002449: 41,3311 03321 62101 2CADR MONDO
019951,002450:
019952,002451: 41,3313 05261 TC TASKOVER
019953,002452:
019954,002453: 41,3314 34755 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
019955,002454: 41,3315 55020 TS MONSAVE
019956,002455: 41,3316 55021 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
019957,002456: 41,3317 05261 TC TASKOVER # TURN OFF EXTERNAL MONITOR BIT.
019958,002457: 41,3320 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
019959,002458:
019960,002459:
019961,002460: 41,3321 11021 MONDO CCS MONSAVE1 # CALLED BY EXEC
019962,002461: 41,3322 03326 TC +4 # IF KILLER BIT = 0, CONTINUE
019963,002462: 41,3323 03326 TC +3 # IF KILLER BIT = 0, CONTINUE
019964,002463: 41,3324 05155 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
019965,002464: 41,3325 05155 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
019966,002465: 41,3326 11012 CCS DSPLOCK
019967,002466: 41,3327 03351 TC MONBUSY # NVSUB IS BUSY
|
|
Page 452 |
019969,002468: 41,3330 36073 CAF LOW7
019970,002469: 41,3331 71020 MASK MONSAVE
019971,002470: 41,3332 02317 TC UPDATNN -1 # PLACE NOUN INTO NOUNREG AND DISPLAY IT
019972,002471: 41,3333 34144 CAF MID7
019973,002472: 41,3334 71020 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
019974,002473: 41,3335 63347 AD MONREF # -DEC10, STARTING IN BIT8
019975,002474: 41,3336 54023 TS EDOP # RIGHT 7
019976,002475: 41,3337 30023 CA EDOP
019977,002476: 41,3340 55001 TS VERBREG
019978,002477: 41,3341 33350 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
019979,002478: 41,3342 54136 TS ENTRET
019980,002479: 41,3343 43237 CS BIT15/14
019981,002480: 41,3344 71021 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
019982,002481: 41,3345 54156 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
019983,002482: 41,3346 02046 ENDMONDO TC TESTNN # EBANK.
019984,002483:
019985,002484: 4124 BLOCK 2
019986,002485:
019987,002486: 4000 SETLOC FFTAG8
019988,002487: 4000 BANK
019989,002488:
019990,002489: 4124 COUNT* $$/PIN
019991,002490: 4124 34144 PASTEVB CAF MID7
019992,002491: 4125 71022 MASK MONSAVE2 # NVMONOPT PASTE OPTION
019993,002492: 4126 00006 EXTEND
019994,002493: 4127 14131 BZF +2
019995,002494: 4130 04132 TC PASTEOPT # PASTE PLEASE VERB FOR NVMONOPT
019996,002495: 4131 31020 CA MONSAVE # PASTE MONITOR VERB - PASTE OPTION IS 0
019997,002496: 4132 54023 PASTEOPT TS EDOP # RIGHT 7
019998,002497: 4133 30023 CA EDOP # PLACE MONITOR VERB OR PLEASE VERB INTO
019999,002498: 4134 04616 TC BANKCALL # VERBREG AND DISPLAY IT.
020000,002499: 4135 62337 CADR UPDATVB -1
020001,002500: 4136 34755 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
020002,002501: 4137 55013 TS REQRET # BE EXECUTED BY OPERATOR.
020003,002502: 4140 31022 CA MONSAVE2
020004,002503: 4141 04255 TC BLANKSUB # PROCESS NVMONOPT BLANK OPTION IF ANY
020005,002504: 4142 04143 TC +1
020006,002505: 4143 05155 ENDPASTE TC ENDOFJOB
020007,002506:
020008,002507: 4144 37600 MID7 OCT 37600
020009,002508:
020010,002509: 41,3347 SETLOC ENDMONDO +1
020011,002510: 41,3347 COUNT* $$/PIN
020012,002511: 41,3347 75377 MONREF OCT 75377 # -DEC10, STARTING IN BIT8
020013,002512: 41,3350 04124 MONBACK ADRES PASTEVB
020014,002513:
020015,002514: 41,3351 04374 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
020016,002515: 41,3352 05155 TC ENDOFJOB
|
|
Page 453 |
020018,002517: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
020019,002518: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
020020,002519: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
020021,002520:
020022,002521: # FOR BANKS L/E 27, THIS IS ENOUGH.
020023,002522:
020024,002523: # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
020025,002524: # MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
020026,002525: # V23N26 SHOULD BE USED.
020027,002526:
020028,002527: # SUMMARY
020029,002528: # FOR BANKS L/E 27, V27N01E(FCADR)E
020030,002529: # FOR BANKS G/E 30, V23N26E(SUPERBITS)E V27N01E(FCADR)E
020031,002530:
020032,002531: 41,3353 34317 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
020033,002532: 41,3354 54777 TS DSPCOUNT
020034,002533: 41,3355 31047 CA DSPTEM1 +2 # SUPERBANK BITS WERE PRELOADED INTO
020035,002534: 41,3356 54001 TS L # 3RD COMPONENT OF NOUN 26.
020036,002535: 41,3357 31017 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
020037,002536: 41,3360 04651 TC SUPDACAL # CALL WITH FCADR IN A, SUPERBITS IN L.
020038,002537: 41,3361 03363 TC DSPOCTWD
020039,002538: 41,3362 05155 ENDSPF TC ENDOFJOB
020040,002539:
|
|
Page 454 |
020042,002541: # WORD DISPLAY ROUTINES
020043,002542:
020044,002543: 40,3200 SETLOC TESTOFUF +4
020045,002544: 40,3200 COUNT* $$/PIN
020046,002545: 40,3200 56002 DSPSIGN XCH Q
020047,002546: 40,3201 54144 TS DSPWDRET
020048,002547: 40,3202 10154 CCS MPAC
020049,002548: 40,3203 03213 TC +8D
020050,002549: 40,3204 03213 TC +7
020051,002550: 40,3205 64753 AD ONE
020052,002551: 40,3206 54154 TS MPAC
020053,002552: 40,3207 02433 TC -ON
020054,002553: 40,3210 40155 CS MPAC +1
020055,002554: 40,3211 54155 TS MPAC +1
020056,002555: 40,3212 00144 TC DSPWDRET
020057,002556: 40,3213 02413 TC +ON
020058,002557: 40,3214 00144 TC DSPWDRET
020059,002558:
020060,002559: 40,3215 00006 DSPRND EXTEND # ROUND BY 5 EXP-6
020061,002560: 40,3216 33261 DCA DECROUND -1
020062,002561: 40,3217 20155 DAS MPAC
020063,002562: 40,3220 00006 EXTEND
020064,002563: 40,3221 13225 BZF +4
020065,002564: 40,3222 00006 EXTEND
020066,002565: 40,3223 34733 DCA DPOSMAX
020067,002566: 40,3224 52155 DXCH MPAC
020068,002567: 40,3225 00002 TC Q
020069,002568:
020070,002569: # DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020071,002570: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
020072,002571:
020073,002572: 40,3226 56002 DSPDECWD XCH Q
020074,002573: 40,3227 54115 TS WDRET
020075,002574: 40,3230 03200 TC DSPSIGN
020076,002575: 40,3231 03215 TC DSPRND
020077,002576: 40,3232 34751 CAF FOUR
020078,002577: 40,3233 54137 DSPDCWD1 TS WDCNT
020079,002578: 40,3234 34363 CAF BINCON
020080,002579: 40,3235 07306 TC SHORTMP
020081,002580: 40,3236 50154 TRACE1 INDEX MPAC
020082,002581: 40,3237 34066 CAF RELTAB
020083,002582: 40,3240 74346 MASK LOW5
020084,002583: 40,3241 54124 TS CODE
020085,002584: 40,3242 34755 CAF ZERO
020086,002585: 40,3243 56156 XCH MPAC +2
020087,002586: 40,3244 56155 XCH MPAC +1
020088,002587: 40,3245 54154 TS MPAC
020089,002588: 40,3246 56777 XCH DSPCOUNT
020090,002589: 40,3247 54143 TRACE1S TS COUNT
020091,002590: 40,3250 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
|
|
Page 455 |
020093,002592: 40,3251 54777 TS DSPCOUNT
020094,002593: 40,3252 03322 TC DSPIN
020095,002594: 40,3253 10137 CCS WDCNT
020096,002595: 40,3254 03233 TC DSPDCWD1
020097,002596: 40,3255 44360 CS VD1
020098,002597: 40,3256 54777 TS DSPCOUNT
020099,002598: 40,3257 00115 TC WDRET
020100,002599:
020101,002600: 40,3260 00000 OCT 00000
020102,002601: 40,3261 02476 DECROUND OCT 02476
020103,002602:
020104,002603: # DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
020105,002604: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020106,002605:
020107,002606: 40,3262 56002 DSPDECNR XCH Q
020108,002607: 40,3263 54115 TS WDRET
020109,002608: 40,3264 03200 TC DSPSIGN
020110,002609: 40,3265 03232 TC DSPDCWD1 -1
020111,002610:
020112,002611: # DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
020113,002612: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
020114,002613:
020115,002614: 40,3266 56002 DSPDC2NR XCH Q
020116,002615: 40,3267 54115 TS WDRET
020117,002616: 40,3270 03200 TC DSPSIGN
020118,002617: 40,3271 34753 CAF ONE
020119,002618: 40,3272 03233 TC DSPDCWD1
020120,002619:
020121,002620:
020122,002621: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020123,002622: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020124,002623:
020125,002624: 40,3273 56002 DSP2DEC XCH Q
020126,002625: 40,3274 54115 TS WDRET
020127,002626: 40,3275 34755 CAF ZERO
020128,002627: 40,3276 54124 TS CODE
020129,002628: 40,3277 36244 CAF THREE
020130,002629: 40,3300 03404 TC 11DSPIN # -R2 OFF
020131,002630: 40,3301 34751 CAF FOUR
020132,002631: 40,3302 03404 TC 11DSPIN # +R2 OFF
020133,002632: 40,3303 03200 TC DSPSIGN
020134,002633: 40,3304 34320 CAF R2D1
020135,002634: 40,3305 03233 END2DEC TC DSPDCWD1
020136,002635:
020137,002636:
020138,002637: # DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
020139,002638: # DSP LOC SPECIFIED IN DSPCOUNT.
020140,002639: # C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
020141,002640: # DISPLAY CONVERSION.
020142,002641:
|
|
Page 456 |
020144,002643: 40,3306 00006 DSPDECVN EXTEND
020145,002644: 40,3307 73316 MP VNDSPCON # MULT BY .01
020146,002645: 40,3310 22154 LXCH MPAC # TAKE RESULTS FROM L.(MULT BY 2EXP14).
020147,002646: 40,3311 34755 CAF ZERO
020148,002647: 40,3312 54155 TS MPAC +1
020149,002648: 40,3313 56002 XCH Q
020150,002649: 40,3314 54115 TS WDRET
020151,002650: 40,3315 03271 TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
020152,002651:
020153,002652: 40,3316 00244 VNDSPCON OCT 00244 # .01 ROUNDED UP
020154,002653:
020155,002654:
020156,002655: 40,3317 03306 GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
020157,002656: 40,3320 04635 TC POSTJUMP # OF UPDATVB.
020158,002657: 40,3321 62347 CADR UPDAT1 +2
020159,002658:
020160,002659: 40,3322 ENDECVN EQUALS
020161,002660:
020162,002661:
020163,002662: 41,3363 SETLOC ENDSPF +1
020164,002663: 41,3363 COUNT* $$/PIN
020165,002664: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
020166,002665: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
020167,002666:
020168,002667: 41,3363 54022 DSPOCTWD TS CYL
020169,002668: 41,3364 56002 XCH Q
020170,002669: 41,3365 54115 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
020171,002670: 41,3366 34736 CAF BIT14 # TO BLANK SIGNS
020172,002671: 41,3367 26777 ADS DSPCOUNT
020173,002672: 41,3370 34751 CAF FOUR
020174,002673: 41,3371 54137 WDAGAIN TS WDCNT
020175,002674: 41,3372 40022 CS CYL
020176,002675: 41,3373 40022 CS CYL
020177,002676: 41,3374 40022 CS CYL
020178,002677: 41,3375 40000 CS A
020179,002678: 41,3376 74757 MASK DSPMSK
020180,002679: 41,3377 50000 INDEX A
020181,002680: 41,3400 34066 CAF RELTAB
020182,002681: 41,3401 74346 MASK LOW5
020183,002682: 41,3402 54124 TS CODE
020184,002683: 41,3403 56777 XCH DSPCOUNT
020185,002684: 41,3404 54143 TS COUNT
020186,002685: 41,3405 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
020187,002686: 41,3406 54777 TS DSPCOUNT
020188,002687: 41,3407 04635 TC POSTJUMP
020189,002688: 41,3410 61412 CADR DSPOCTIN
020190,002689: 41,3411 10137 OCTBACK CCS WDCNT
020191,002690: 41,3412 03371 TC WDAGAIN # +
020192,002691: 41,3413 44360 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
020193,002692: 41,3414 54777 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
|
|
Page 457 |
020195,002694: 41,3415 00115 TC WDRET
020196,002695:
020197,002696: 41,3416 4757 DSPMSK = SEVEN
020198,002697:
020199,002698:
020200,002699: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
020201,002700: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
020202,002701: # OF THE 5 CHAR OCTAL DISPLAY
020203,002702:
020204,002703: 41,3416 54020 DSP2BIT TS CYR
020205,002704: 41,3417 56002 XCH Q
020206,002705: 41,3420 54115 TS WDRET
020207,002706: 41,3421 34753 CAF ONE
020208,002707: 41,3422 54137 TS WDCNT
020209,002708: 41,3423 40020 CS CYR
020210,002709: 41,3424 40020 CS CYR
020211,002710: 41,3425 56020 XCH CYR
020212,002711: 41,3426 54022 TS CYL
020213,002712: 41,3427 03376 TC WDAGAIN +5
020214,002713:
020215,002714:
020216,002715: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020217,002716: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020218,002717: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020219,002718: # DSPTAB ENTRY INTO DSREL.
020220,002719:
020221,002720: 40,3322 SETLOC ENDECVN
020222,002721:
020223,002722: 40,3322 COUNT* $$/PIN
020224,002723: 40,3322 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
020225,002724: 40,3323 54114 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
020226,002725: 40,3324 34346 CAF LOW5
020227,002726: 40,3325 70143 MASK COUNT
020228,002727: 40,3326 54021 TS SR
020229,002728: 40,3327 56021 XCH SR
020230,002729: 40,3330 54141 TS DSREL
020231,002730: 40,3331 34753 CAF BIT1
020232,002731: 40,3332 70143 MASK COUNT
020233,002732: 40,3333 10000 CCS A
020234,002733: 40,3334 03336 TC +2 # LEFT IF COUNT IS ODD
020235,002734: 40,3335 03346 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
020236,002735: 40,3336 56124 XCH CODE
020237,002736: 40,3337 04340 TC SLEFT5 # DOES NOT USE CYL
020238,002737: 40,3340 54124 TS CODE
020239,002738: 40,3341 34736 CAF BIT14
020240,002739: 40,3342 70143 MASK COUNT
020241,002740: 40,3343 10000 CCS A
020242,002741: 40,3344 34752 CAF TWO # BIT14 = 1, BLANK SIGN
020243,002742: 40,3345 64753 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
020244,002743: 40,3346 54143 TS COUNT # +0 INTO COUNT FOR RIGHT
|
|
Page 458 |
020246,002745: # +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
020247,002746: # +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
020248,002747: 40,3347 00004 DSPIN1 INHINT
020249,002748: 40,3350 50141 INDEX DSREL
020250,002749: 40,3351 11023 CCS DSPTAB
020251,002750: 40,3352 03354 TC +2 # IF +
020252,002751: 40,3353 05677 TC CCSHOLE
020253,002752: 40,3354 64753 AD ONE # IF -
020254,002753: 40,3355 54142 TS DSMAG
020255,002754: 40,3356 50143 INDEX COUNT
020256,002755: 40,3357 73400 MASK DSMSK
020257,002756: 40,3360 00006 EXTEND
020258,002757: 40,3361 60124 SU CODE
020259,002758: 40,3362 00006 EXTEND
020260,002759: 40,3363 13376 BZF DSLV # SAME
020261,002760: 40,3364 50143 DFRNT INDEX COUNT
020262,002761: 40,3365 43400 CS DSMSK # MASK WITH 77740,76037,75777, OR 74037
020263,002762: 40,3366 70142 MASK DSMAG
020264,002763: 40,3367 60124 AD CODE
020265,002764: 40,3370 40000 CS A
020266,002765: 40,3371 50141 INDEX DSREL
020267,002766: 40,3372 57023 XCH DSPTAB
020268,002767: 40,3373 00006 EXTEND
020269,002768: 40,3374 63376 BZMF DSLV # DSPTAB ENTRY WAS -
020270,002769: 40,3375 25016 INCR NOUT # DSPTAB ENTRY WAS +
020271,002770: 40,3376 00003 DSLV RELINT
020272,002771: 40,3377 00114 TC DSEXIT
020273,002772:
020274,002773: 40,3400 00037 DSMSK OCT 37
020275,002774: 40,3401 01740 OCT 1740
020276,002775: 40,3402 02000 OCT 2000
020277,002776: 40,3403 03740 OCT 3740
020278,002777:
020279,002778:
020280,002779: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020281,002780: # BIT11 OF CODE.
020282,002781:
020283,002782: 40,3404 54141 11DSPIN TS DSREL
020284,002783: 40,3405 34752 CAF TWO
020285,002784: 40,3406 54143 TS COUNT
020286,002785: 40,3407 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
020287,002786: 40,3410 54114 TS DSEXIT
020288,002787: 40,3411 03347 TC DSPIN1
020289,002788:
020290,002789:
020291,002790: 40,3412 03322 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
020292,002791: 40,3413 33415 CAF +2
020293,002792: 40,3414 04640 TC BANKJUMP
020294,002793: 40,3415 63411 ENDSPOCT CADR OCTBACK
020295,002794:
|
|
Page 459 |
020297,002796: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020298,002797: # ABORT WITH 01501.
020299,002798: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020300,002799: # DO TC ENTRET.
020301,002800:
020302,002801: 40,3416 44360 PREDSPAL CS VD1
020303,002802: 40,3417 54777 TS DSPCOUNT
020304,002803: 40,3420 43437 DSPALARM CS NVSBENDL
020305,002804: 40,3421 60136 AD ENTEXIT
020306,002805: 40,3422 00006 EXTEND
020307,002806: 40,3423 13434 BZF CHARALRM +2
020308,002807: 40,3424 43436 CS MONADR # IF THIS IS A MONITOR, KILL IT
020309,002808: 40,3425 60136 AD ENTEXIT
020310,002809: 40,3426 00006 EXTEND
020311,002810: 40,3427 13431 BZF +2
020312,002811: 40,3430 03432 TC +2
020313,002812: 40,3431 04204 TC KILMONON
020314,002813: 40,3432 04364 CHARALRM TC FALTON # NOT NVSUB INITIATED. TURN ON OPR ERROR
020315,002814: 40,3433 05155 TC ENDOFJOB
020316,002815: 40,3434 05652 TC POODOO
020317,002816: 40,3435 01501 OCT 01501
020318,002817: 40,3436 04124 MONADR GENADR PASTEVB
020319,002818: 40,3437 04202 NVSBENDL TC NVSUBEND
020320,002819:
020321,002820:
020322,002821: # ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
020323,002822: # WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
020324,002823: # THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
020325,002824: # MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
020326,002825: # FOR MM CODE.
020327,002826:
020328,002827: 4145 SETLOC MID7 +1
020329,002828: 4145 COUNT* $$/PIN
020330,002829: 4145 04364 ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
020331,002830: 4146 41041 CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
020332,002831: 4147 55013 TS REQRET # SET FOR ENTPAS0
020333,002832: 4150 04616 TC BANKCALL # PUTS ORIGINAL VERB INTO VERBREG AND
020334,002833: 4151 62337 CADR UPDATVB -1 # DISPLAYS IT IN VERB LIGHTS.
020335,002834: 4152 04635 TC POSTJUMP
020336,002835: 4153 62002 ENDALM CADR ENTER
020337,002836:
020338,002837:
020339,002838: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020340,002839: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020341,002840: # MM LIGHTS.
020342,002841: # IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
020343,002842: # IF NOT, IT RECYCLES.
020344,002843:
020345,002844: 41,3430 SETLOC DSP2BIT +10D
020346,002845:
|
|
Page 460 |
020348,002847: 41,3430 COUNT* $$/PIN
020349,002848: 41,3430 03452 MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
020350,002849: # IF THIS MOVES AT ALL, MUST CHANGE
020351,002850: # MMADREF AT ENTPASHI.
020352,002851: 41,3431 34747 CAF BIT5 # OCT20 = ND2.
020353,002852: 41,3432 60777 AD DSPCOUNT # DSPCOUNT MUST = -ND2.
020354,002853: 41,3433 00006 EXTEND # DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
020355,002854: 41,3434 13436 BZF +2
020356,002855: 41,3435 04145 TC ALMCYCLE # DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
020357,002856: 41,3436 34755 CAF ZERO # DSPCOUNT = -ND2.
020358,002857: 41,3437 57002 XCH NOUNREG
020359,002858: 41,3440 54154 TS MPAC
020360,002859: 41,3441 34361 CAF ND1
020361,002860: 41,3442 54777 TS DSPCOUNT
020362,002861: 41,3443 04616 TC BANKCALL
020363,002862: 41,3444 60601 CADR 2BLANK
020364,002863: 41,3445 44360 CS VD1 # BLOCK NUM CHAR IN
020365,002864: 41,3446 54777 TS DSPCOUNT
020366,002865: 41,3447 30154 CA MPAC
020367,002866: 41,3450 04635 TC POSTJUMP
020368,002867: 41,3451 10037 CADR MODROUTB # GO THRU STANDARD LOC.
020369,002868:
020370,002869:
020371,002870: 41,3452 04,2037 MODROUTB = V37
020372,002871: 41,3452 40002 REQMM CS Q
020373,002872: 41,3453 55013 TS REQRET
020374,002873: 41,3454 34361 CAF ND1
020375,002874: 41,3455 54777 TS DSPCOUNT
020376,002875: 41,3456 34755 CAF ZERO
020377,002876: 41,3457 55002 TS NOUNREG
020378,002877: 41,3460 04616 TC BANKCALL
020379,002878: 41,3461 60601 CADR 2BLANK
020380,002879: 41,3462 04427 TC FLASHON
020381,002880: 41,3463 34753 CAF ONE
020382,002881: 41,3464 55000 TS DECBRNCH # SET FOR DEC
020383,002882: 41,3465 00136 TC ENTEXIT
020384,002883:
020385,002884:
020386,002885: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
020387,002886: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
020388,002887: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020389,002888: # COMPONENT 1 PRIORITY(BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
020390,002889: # COMPONENT 2 JOB ADRES (12 BIT )
020391,002890: # COMPONENT 3 BBCON
020392,002891:
020393,002892: 41,3466 34753 VBRQEXEC CAF BIT1
020394,002893: 41,3467 71045 MASK DSPTEM1
020395,002894: 41,3470 10000 CCS A
020396,002895: 41,3471 03510 TC SETVAC # IF BIT1 = 1, FINDVAC
020397,002896: 41,3472 34351 CAF TCNOVAC # IF BIT1 = 0, NOVAC
|
|
Page 461 |
020399,002898: 41,3473 54154 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
020400,002899: 41,3474 44753 CS BIT1
020401,002900: 41,3475 71045 MASK DSPTEM1
020402,002901: 41,3476 54160 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
020403,002902: 41,3477 04457 REQUESTC TC RELDSP
020404,002903: 41,3500 34217 CA ENDINST
020405,002904: 41,3501 54157 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
020406,002905: 41,3502 00006 EXTEND
020407,002906: 41,3503 31047 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
020408,002907: 41,3504 52156 DXCH MPAC +1 # BBCON INTO MPAC+2
020409,002908: 41,3505 30160 CA MPAC +4 # PRIO IN A
020410,002909: 41,3506 00004 INHINT
020411,002910: 41,3507 00154 TC MPAC
020412,002911:
020413,002912: 41,3510 34354 SETVAC CAF TCFINDVC
020414,002913: 41,3511 03473 TC REQEX1
020415,002914:
020416,002915: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
020417,002916: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
020418,002917: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
020419,002918: # COMPONENT 1 DELAY (LOW BITS)
020420,002919: # COMPONENT 2 TASK ADRES (12 BIT)
020421,002920: # COMPONENT 3 BBCON
020422,002921:
020423,002922: 41,3512 34352 VBRQWAIT CAF TCWAIT
020424,002923: 41,3513 54154 TS MPAC # TC WAITLIST INTO MPAC
020425,002924: 41,3514 31045 CA DSPTEM1 # TIME DELAY
020426,002925: 41,3515 03476 ENDRQWT TC REQUESTC -1
020427,002926:
020428,002927: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
020429,002928: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
020430,002929: # LEAVE IT IN A, INHINT AND TC MPAC.
020431,002930:
020432,002931: 40,3440 SETLOC NVSBENDL +1
020433,002932: 40,3440 COUNT* $$/PIN
020434,002933: 40,3440 34753 VBPROC CAF ONE # PROCEED WITHOUT DATA
020435,002934: 40,3441 55014 TS LOADSTAT
020436,002935: 40,3442 04204 TC KILMONON # TURN ON KILL MONITOR BIT
020437,002936: 40,3443 04457 TC RELDSP
020438,002937: 40,3444 04433 TC FLASHOFF
020439,002938: 40,3445 03545 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
020440,002939:
020441,002940:
020442,002941: 40,3446 44753 VBTERM CS ONE
020443,002942: 40,3447 03441 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
020444,002943:
020445,002944: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
020446,002945: # EXECUTIVE CONTROL, WITH CHRPRIO.
020447,002946:
|
|
Page 462 |
020449,002948: 40,3450 34755 PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
020450,002949: 40,3451 55013 TS REQRET
020451,002950: 40,3452 44360 CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
020452,002951: 40,3453 54777 TS DSPCOUNT
020453,002952: 40,3454 03440 TC VBPROC
020454,002953:
020455,002954:
020456,002955: # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
020457,002956: # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
020458,002957: # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
020459,002958: # OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
020460,002959:
020461,002960: 40,3455 44755 VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
020462,002961: 40,3456 03441 TC VBPROC +1
020463,002962:
020464,002963:
020465,002964: # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
020466,002965: # END OF LOAD.
020467,002966:
|
|
Page 463 |
020469,002968: # KEY RELEASE ROUTINE
020470,002969:
020471,002970: # THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
020472,002971:
020473,002972: # THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
020474,002973: # UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
020475,002974: # THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
020476,002975: # THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
020477,002976:
020478,002977: # IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
020479,002978: # AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
020480,002979: # USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
020481,002980:
020482,002981: # IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
020483,002982: # TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
020484,002983: # NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
020485,002984: # THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
020486,002985: # RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
020487,002986: # OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
020488,002987: # INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
020489,002988: # RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
020490,002989: # THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
020491,002990: # INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
020492,002991: # SUBROUTINES.
020493,002992:
020494,002993: 40,3457 44751 VBRELDSP CS BIT3
020495,002994: 40,3460 00006 EXTEND
020496,002995: 40,3461 03011 WAND DSALMOUT # TURN OFF UPACT LITE
020497,002996: 40,3462 10115 CCS 21/22REG # OLD DSPLOCK
020498,002997: 40,3463 34736 CAF BIT14
020499,002998: 40,3464 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT (EMB)
020500,002999: 40,3465 10000 CCS A
020501,003000: 40,3466 03475 TC UNSUSPEN # OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
020502,003001: 40,3467 04457 TSTLTS4 TC RELDSP # NOT UNSUSPENDING EXTERNAL MONITOR,
020503,003002: 40,3470 11042 CCS CADRSTOR # RELEASE DISPLAY SYSTEM AND
020504,003003: 40,3471 03473 TC +2 # DO RE-ESTABLISH IF CADRSTOR IS FULL.
020505,003004: 40,3472 05155 TC ENDOFJOB
020506,003005: 40,3473 04635 TC POSTJUMP
020507,003006: 40,3474 20723 CADR PINBRNCH
020508,003007: 40,3475 34755 UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
020509,003008: 40,3476 55012 TS DSPLOCK # JUST UNSUSPEND IT BY CLEARING DSPLOCK.
020510,003009: 40,3477 11042 CCS CADRSTOR # TURN KEY RELEASE LIGHT OFF IF BOTH
020511,003010: 40,3500 05155 TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
020512,003011: 40,3501 04502 TC RELDSP1
020513,003012: 40,3502 05155 TC ENDOFJOB
020514,003013:
020515,003014: 40,3503 ENDRELDS EQUALS
020516,003015:
|
|
Page 464 |
020518,003017: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
020519,003018: # USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
020520,003019: # TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
020521,003020: # PLACE 0VVVVVVVNNNNNNN INTO A.
020522,003021: # V-S ARE THE 7 BIT VERB CODE. N-S ARE THE 7 BIT NOUN CODE.
020523,003022:
020524,003023: # IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
020525,003024: # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
020526,003025: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020527,003026:
020528,003027: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
020529,003028: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020530,003029:
020531,003030: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020532,003031: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020533,003032: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020534,003033: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020535,003034: # FURTHER ACTION).
020536,003035:
020537,003036: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020538,003037: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020539,003038: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020540,003039: # ALARM CONDITION BEFORE RETURN TO CALLER.
020541,003040:
020542,003041: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020543,003042: # KEY, EXCEPT ERROR LIGHT RESET
020544,003043: # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
020545,003044: # PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
020546,003045: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020547,003046: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020548,003047: # MONITOR SET UP.
020549,003048:
020550,003049: # THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
020551,003050: # INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
020552,003051:
020553,003052: # A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
020554,003053: # MONITOR.
020555,003054:
020556,003055: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020557,003056: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020558,003057:
020559,003058: # NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
020560,003059: # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
020561,003060: # ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
020562,003061: # :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
020563,003062: # NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
020564,003063: # LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
020565,003064: # LIGHTS.
020566,003065:
020567,003066: # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
|
|
Page 465 |
020569,003068: # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
020570,003069: # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
020571,003070: # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
020572,003071: # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
020573,003072: # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
020574,003073: # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
020575,003074: # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
020576,003075: # BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
020577,003076: # THE PARAMETER IN L HAS NO EFFECT.
020578,003077:
020579,003078: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
020580,003079: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
020581,003080:
020582,003081: 4154 SETLOC ENDALM +1
020583,003082:
020584,003083: 4154 COUNT* $$/PIN
020585,003084: 4154 22007 NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
020586,003085: 4155 54123 NVMONOPT TS NVTEMP
020587,003086: 4156 34736 CAF BIT14
020588,003087: 4157 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
020589,003088: 4160 61012 AD DSPLOCK
020590,003089: 4161 10000 CCS A
020591,003090: 4162 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020592,003091: 4163 34753 CAF ONE # DSP SYST AVAILABLE
020593,003092: 4164 60002 NVSBCOM AD Q
020594,003093: 4165 55037 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
020595,003094: 4166 23022 LXCH MONSAVE2 # STORE NVMONOPT OPTIONS
020596,003095: 4167 04204 TC KILMONON # TURN ON KILL MONITOR BIT
020597,003096: 4170 34201 NVSUBCOM CAF NVSBBBNK
020598,003097:
020599,003098: 4171 56006 XCH BBANK
020600,003099: 4172 00006 EXTEND # SAVE OLD SUPERBITS
020601,003100: 4173 04007 ROR SUPERBNK
020602,003101: 4174 55040 TS NVBNKTEM
020603,003102: 4175 34201 CAF PINSUPBT
020604,003103: 4176 00006 EXTEND
020605,003104: 4177 01007 WRITE SUPERBNK
020606,003105: 4200 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
020607,003106: 4201 0777 EBANK= DSPCOUNT
020608,003107: 4201 62101 NVSBBBNK BBCON NVSUB1
020609,003108:
020610,003109: 4202 4201 PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
020611,003110:
020612,003111: 4202 53040 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
020613,003112: 4203 05165 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
020614,003113:
020615,003114: 41,3516 SETLOC ENDRQWT +1
020616,003115:
020617,003116: 41,3516 COUNT* $$/PIN
020618,003117: # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
|
|
Page 466 |
020620,003119: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
020621,003120:
020622,003121: 41,3516 64757 BLANKDSP AD SEVEN # 7,8,9,OR 10 (A HAD 0,1,2,OR 3)
020623,003122: 41,3517 00004 INHINT
020624,003123: 41,3520 54124 TS CODE # BLANK SPECIFIED DSPTABS
020625,003124: 41,3521 44740 CS BIT12
020626,003125: 41,3522 50124 INDEX CODE
020627,003126: 41,3523 57023 XCH DSPTAB
020628,003127: 41,3524 10000 CCS A
020629,003128: 41,3525 25016 INCR NOUT
020630,003129: 41,3526 03527 TC +1
020631,003130: 41,3527 10124 CCS CODE
020632,003131: 41,3530 03520 TC BLANKDSP +2
020633,003132: 41,3531 00003 RELINT
020634,003133: 41,3532 50123 INDEX NVTEMP
020635,003134: 41,3533 03540 TC +5
020636,003135: 41,3534 03535 TC +1 # NVTEMP HAS -4 (NEVER TOUCH MODREG)
020637,003136: 41,3535 55001 TS VERBREG # -3
020638,003137: 41,3536 55002 TS NOUNREG # -2
020639,003138: 41,3537 55015 TS CLPASS # -1
020640,003139: 41,3540 44360 CS VD1
020641,003140: 41,3541 54777 TS DSPCOUNT
020642,003141: 41,3542 04433 TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
020643,003142: 41,3543 03566 TC ENTSET -2 # ZEROS REQRET
020644,003143:
020645,003144: 41,3544 33570 NVSUB1 CAF ENTSET # IN BANK
020646,003145: 41,3545 54136 TS ENTRET # SET RETURN TO NVSUBEND
020647,003146: 41,3546 10123 CCS NVTEMP # WHAT NOW
020648,003147: 41,3547 03553 TC +4 # NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
020649,003148: 41,3550 02351 TC GODSPALM
020650,003149: 41,3551 03516 TC BLANKDSP # BLANK DISPLAY AS SPECIFIED
020651,003150: 41,3552 02351 TC GODSPALM
020652,003151: 41,3553 36073 CAF LOW7
020653,003152: 41,3554 70123 MASK NVTEMP
020654,003153: 41,3555 54157 TS MPAC +3 # TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
020655,003154: 41,3556 30123 CA NVTEMP # USES MPAC, +1, +2
020656,003155: 41,3557 54023 TS EDOP # RIGHT 7
020657,003156: 41,3560 30023 CA EDOP
020658,003157: 41,3561 54160 TS MPAC +4 # TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
020659,003158: # USES MPAC, +1, +2).
020660,003159: 41,3562 10157 CCS MPAC +3 # TEST NOUN
020661,003160: 41,3563 03571 TC NVSUB2 # IF NOUN NOT +0, GO ON
020662,003161: 41,3564 30160 CA MPAC +4
020663,003162: 41,3565 02337 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
020664,003163: 41,3566 34755 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
020665,003164: 41,3567 55013 TS REQRET # BE EXECUTED BY OPERATOR.
020666,003165: 41,3570 04202 ENTSET TC NVSUBEND
020667,003166: 41,3571 10160 NVSUB2 CCS MPAC +4 # TEST VERB
020668,003167: 41,3572 03576 TC +4 # IF VERB NOT +0, GO ON
020669,003168: 41,3573 30157 CA MPAC +3
|
|
Page 467 |
020671,003170: 41,3574 02317 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
020672,003171: 41,3575 04202 TC NVSUBEND
020673,003172: 41,3576 30156 CA MPAC +2 # TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
020674,003173: 41,3577 54161 TS MPAC +5 # USES MPAC, +1, +2)
020675,003174: 41,3600 30160 CA MPAC +4
020676,003175: 41,3601 02337 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
020677,003176: 41,3602 30157 CA MPAC +3 # BOTH AND GO TO ENTPAS0.
020678,003177: 41,3603 02317 TC UPDATNN -1
020679,003178: 41,3604 34755 CAF ZERO
020680,003179: 41,3605 55014 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
020681,003180: 41,3606 55015 TS CLPASS
020682,003181: 41,3607 55013 TS REQRET # SET REQRET FOR PASS 0.
020683,003182: 41,3610 30161 CA MPAC +5 # RESTORES MACH CADR TO BE SPEC TO MPAC+2
020684,003183: 41,3611 54156 TS MPAC +2 # FOR USE IN INTMCTBS (IN ENTPAS0).
020685,003184: 41,3612 02035 ENDNVSB1 TC ENTPAS0
020686,003185:
020687,003186:
020688,003187: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
020689,003188: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
020690,003189:
020691,003190:
020692,003191: 4204 SETLOC NVSUBEND +2
020693,003192: 4204 COUNT* $$/PIN
020694,003193: # FORCE BIT 15 OF MONSAVE1 TO 1.
020695,003194: 4204 34735 KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
020696,003195: 4205 55021 TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
020697,003196: # MONITOR BIT.
020698,003197: 4206 00002 TC Q
020699,003198:
020700,003199:
020701,003200: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020702,003201: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
020703,003202: # -1 TERMINATE SET BY SPECIAL VERB
020704,003203: # -0 DATA IN SET BY END OF LOAD ROUTINE
020705,003204: # OR RESEQUENCE SET BY VERB 32
020706,003205:
020707,003206:
020708,003207: # L TC ENDIDLE (FIXED FIXED)
020709,003208: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020710,003209: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
020711,003210: # ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
020712,003211: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
020713,003212: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020714,003213: # L+1 FOR TERMINATE
020715,003214: # L+2 FOR PROCEED WITHOUT DATA
020716,003215: # L+3 FOR DATA IN, OR RESEQUENCE
020717,003216: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020718,003217:
020719,003218:
020720,003219: # ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
|
|
Page 468 |
020722,003221: # IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
020723,003222: # 1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
020724,003223: # EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
020725,003224: # 2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
020726,003225: # NVSUBUSY.
020727,003226:
020728,003227: 4207 22002 ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
020729,003228: 4210 04220 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0
020730,003229: 4211 04224 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0
020731,003230: 4212 30001 CA L # DONT SET DSPLOCK TO 1 SO CAN USE
020732,003231: 4213 75012 MASK LOW10 # ENDIDLE WITH NVSUB INITIATED MONITOR.
020733,003232: 4214 60004 AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
020734,003233: 4215 55042 TS CADRSTOR
020735,003234: 4216 05133 TC JOBSLEEP
020736,003235:
020737,003236:
020738,003237: 4217 05155 ENDINST TC ENDOFJOB
020739,003238:
020740,003239:
020741,003240: 4220 11042 ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
020742,003241: 4221 04227 TC DSPABORT # RETURNS IF CADRSTOR = +0.
020743,003242: 4222 00002 TC Q
020744,003243: 4223 04227 TC DSPABORT
020745,003244:
020746,003245: 4224 11043 ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
020747,003246: 4225 04227 TC DSPABORT # RETURNS IF DSPLIST = +0.
020748,003247: 4226 00002 TC Q
020749,003248: 4227 05652 DSPABORT TC POODOO
020750,003249: 4230 01206 OCT 01206
020751,003250:
020752,003251:
020753,003252: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020754,003253: # IT DOES ENDOFJOB.
020755,003254:
020756,003255: 4231 34201 JAMTERM CAF PINSUPBT
020757,003256: 4232 00006 EXTEND
020758,003257: 4233 01007 WRITE SUPERBNK
020759,003258: 4234 34242 CAF 34DEC
020760,003259: 4235 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
020761,003260: 4236 44360 CS VD1
020762,003261: 4237 54777 TS DSPCOUNT
020763,003262: 4240 04635 TC POSTJUMP
020764,003263: 4241 61446 CADR VBTERM
020765,003264:
020766,003265: 4242 00042 34DEC DEC 34 B-14
020767,003266:
020768,003267:
020769,003268: # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
020770,003269: # FUNCTION. IT DOES ENDOFJOB.
020771,003270:
|
|
Page 469 |
020773,003272: 4243 34201 JAMPROC CAF PINSUPBT
020774,003273: 4244 00006 EXTEND
020775,003274: 4245 01007 WRITE SUPERBNK
020776,003275: 4246 34254 CAF 33DEC
020777,003276: 4247 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
020778,003277: 4250 44360 CS VD1
020779,003278: 4251 54777 TS DSPCOUNT
020780,003279: 4252 04635 TC POSTJUMP
020781,003280: 4253 61440 CADR VBPROC
020782,003281:
020783,003282: 4254 00041 33DEC DEC 33 B-14
020784,003283:
020785,003284:
020786,003285: # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
020787,003286: # CALL WITH BLANKING CODE IN A.
020788,003287: # BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
020789,003288: # ANY COMBINATION OF THESE BITS IS ACCEPTED.
020790,003289:
020791,003290: # DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
020792,003291:
020793,003292: 4255 74757 BLANKSUB MASK SEVEN
020794,003293: 4256 54123 TS NVTEMP # STORE BLANKING CODE IN NVTEMP.
020795,003294: 4257 34736 CAF BIT14
020796,003295: 4260 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
020797,003296: 4261 61012 AD DSPLOCK
020798,003297: 4262 10000 CCS A
020799,003298: 4263 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020800,003299: 4264 24002 INCR Q # DSP SYST AVAILABLE
020801,003300: # SET RETURN FOR 2+ CALLING LOC
020802,003301: 4265 10123 CCS NVTEMP
020803,003302: 4266 14270 TCF +2
020804,003303: 4267 00002 TC Q # NOTHING TO BLANK. RET TO 2+ CALLING LOC
020805,003304: 4270 22002 LXCH Q # SET RETURN FOR 2 + CALLING LOC
020806,003305: 4271 34302 CAF BLNKBBNK
020807,003306: 4272 56006 XCH BBANK
020808,003307: 4273 00006 EXTEND
020809,003308: 4274 04007 ROR SUPERBNK # SAVE OLD SUPERBITS.
020810,003309: 4275 52131 DXCH BUF
020811,003310: 4276 34201 CAF PINSUPBT
020812,003311: 4277 00006 EXTEND
020813,003312: 4300 01007 WRITE SUPERBNK
020814,003313: 4301 03503 TC BLNKSUB1
020815,003314:
020816,003315: 4302 0777 EBANK= DSPCOUNT
020817,003316: 4302 60101 BLNKBBNK BBCON BLNKSUB1
020818,003317: 4303 ENDBLFF EQUALS
020819,003318:
020820,003319: 40,3503 SETLOC ENDRELDS
020821,003320: 40,3503 COUNT* $$/PIN
020822,003321: 40,3503 30777 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
|
|
Page 470 |
020824,003323: 40,3504 54132 TS BUF +2
020825,003324: 40,3505 34753 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
020826,003325: 40,3506 03525 TC TESTBIT
020827,003326: 40,3507 34317 CAF R1D1
020828,003327: 40,3510 02535 TC 5BLANK -1
020829,003328: 40,3511 34752 CAF BIT2 # TEST BIT 2. SEE IF R2 TO BE BLANKED.
020830,003329: 40,3512 03525 TC TESTBIT
020831,003330: 40,3513 34320 CAF R2D1
020832,003331: 40,3514 02535 TC 5BLANK -1
020833,003332: 40,3515 34751 CAF BIT3 # TEST BIT3. SEE IF R3 TO BE BLANKED.
020834,003333: 40,3516 03525 TC TESTBIT
020835,003334: 40,3517 34321 CAF R3D1
020836,003335: 40,3520 02535 TC 5BLANK -1
020837,003336: 40,3521 30132 CA BUF +2 # RESTORE DSPCOUNT TO STATE IT HAD
020838,003337: 40,3522 54777 TS DSPCOUNT # BEFORE BLANKSUB.
020839,003338: 40,3523 52131 DXCH BUF # CALL L+2 DIRECTLY.
020840,003339: 40,3524 05166 TC SUPDXCHZ +1 # DTCB WITH SUPERBIT SWITCHING
020841,003340:
020842,003341: 40,3525 70123 TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
020843,003342: 40,3526 10000 CCS A
020844,003343: 40,3527 00002 TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
020845,003344: 40,3530 50002 INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
020846,003345: 40,3531 00002 TC 2
020847,003346:
020848,003347: 40,3532 ENDBSUB1 EQUALS
020849,003348:
020850,003349:
020851,003350: # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
020852,003351: # PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
020853,003352:
020854,003353: # IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
020855,003354:
020856,003355: # DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
020857,003356:
020858,003357: 07,2667 BANK 7
020859,003358: 04,2000 SETLOC PINBALL4
020860,003359: 04,2000 BANK
020861,003360:
020862,003361: 04,2573 COUNT* $$/PIN
020863,003362: 04,2573 56002 DSPMM XCH Q
020864,003363: 04,2574 54154 TS MPAC
020865,003364: 04,2575 00004 INHINT
020866,003365: 04,2576 34355 CAF CHRPRIO
020867,003366: 04,2577 05072 TC NOVAC
020868,003367: 04,2600 0777 EBANK= DSPCOUNT
020869,003368: 04,2600 03532 60101 2CADR DSPMMJB
020870,003369:
020871,003370: 04,2602 00003 RELINT
020872,003371: 04,2603 00154 ENDSPMM TC MPAC
020873,003372:
|
|
Page 471 |
020875,003374: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
020876,003375:
020877,003376: 40,3532 SETLOC ENDBSUB1
020878,003377:
020879,003378: 40,3532 COUNT* $$/PIN
020880,003379: 40,3532 34362 DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
020881,003380: 40,3533 56777 XCH DSPCOUNT
020882,003381: 40,3534 54140 TS DSPMMTEM # SAVE DSPCOUNT
020883,003382: 40,3535 11011 CCS MODREG
020884,003383: 40,3536 64753 AD ONE
020885,003384: 40,3537 03306 TC DSPDECVN # IF MODREG IS + OR +0, DISPLAY MODREG
020886,003385: 40,3540 03542 TC +2 # IF MODREG IS -NZ, DO NOTHING
020887,003386: 40,3541 02601 TC 2BLANK # IF MODREG IS -0, BLANK MM
020888,003387: 40,3542 56140 XCH DSPMMTEM # RESTORE DSPCOUNT
020889,003388: 40,3543 54777 TS DSPCOUNT
020890,003389: 40,3544 05155 TC ENDOFJOB
020891,003390:
020892,003391:
020893,003392: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
020894,003393: # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
020895,003394: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020896,003395:
020897,003396: # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
020898,003397: # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
020899,003398:
020900,003399: 40,3545 11042 RECALTST CCS CADRSTOR
020901,003400: 40,3546 03550 TC RECAL1
020902,003401: 40,3547 05155 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
020903,003402: 40,3550 34755 RECAL1 CAF ZERO
020904,003403: 40,3551 57042 XCH CADRSTOR
020905,003404: 40,3552 00004 INHINT
020906,003405: 40,3553 05137 TC JOBWAKE
020907,003406: 40,3554 11014 CCS LOADSTAT
020908,003407: 40,3555 03577 TC DOPROC # + PROCEED WITHOUT DATA
020909,003408: 40,3556 05155 TC ENDOFJOB # PATHALOGICAL CASE EXIT
020910,003409: 40,3557 03575 TC DOTERM # - TERMINATE
020911,003410: 40,3560 34752 CAF TWO # -0 DATA IN OR RESEQUENCE
020912,003411: 40,3561 50064 RECAL2 INDEX LOCCTR
020913,003412: 40,3562 60164 AD LOC # LOC IS + FOR BASIC JOBS
020914,003413: 40,3563 50064 INDEX LOCCTR
020915,003414: 40,3564 54164 TS LOC
020916,003415: 40,3565 31002 CA NOUNREG # SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
020917,003416: 40,3566 54001 TS L # TIME OF RESPONSE TO ENDIDLE FOR
020918,003417: 40,3567 31001 CA VERBREG # POSSIBLE LATER TESTING BY JOB THAT HAS
020919,003418: 40,3570 50064 INDEX LOCCTR # BEEN WAKED UP.
020920,003419: 40,3571 52155 DXCH MPAC
020921,003420: 40,3572 00003 RELINT
020922,003421: 40,3573 04457 RECAL3 TC RELDSP
020923,003422: 40,3574 05155 TC ENDOFJOB
020924,003423:
|
|
Page 472 |
020926,003425: 40,3575 34755 DOTERM CAF ZERO
020927,003426: 40,3576 03561 TC RECAL2
020928,003427:
020929,003428: 40,3577 34753 DOPROC CAF ONE
020930,003429: 40,3600 03561 TC RECAL2
020931,003430:
|
|
Page 473 |
020933,003432: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
020934,003433:
020935,003434:
020936,003435: 4303 SETLOC ENDBLFF
020937,003436:
020938,003437: 4303 COUNT* $$/PIN
020939,003438: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
020940,003439: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
020941,003440:
020942,003441: 4303 55017 SETNCADR TS NOUNCADR # STORE ECADR
020943,003442: 4304 54003 TS EBANK # SET EBANK BITS
020944,003443: 4305 74357 MASK LOW8
020945,003444: 4306 65007 AD OCT1400
020946,003445: 4307 54145 TS NOUNADD # PUT E ADRES INTO NOUNADD
020947,003446: 4310 00002 TC Q
020948,003447:
020949,003448:
020950,003449: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
020951,003450: # E ADRES AND PUTS IT INTO NOUNADD.
020952,003451:
020953,003452: 4311 31017 SETNADD CA NOUNCADR
020954,003453: 4312 14304 TCF SETNCADR +1
020955,003454:
020956,003455:
020957,003456: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
020958,003457: # DERIVED AND LEFT IN A.
020959,003458:
020960,003459: 4313 54003 SETEBANK TS EBANK # SET EBANK BITS
020961,003460: 4314 74357 MASK LOW8
020962,003461: 4315 65007 AD OCT1400 # E ADRES LEFT IN A
020963,003462: 4316 00002 TC Q
020964,003463:
020965,003464:
020966,003465: 4317 00016 R1D1 OCT 16 # THESE 3 CONSTANTS FORM A PACKED TABLE.
020967,003466: 4320 00011 R2D1 OCT 11 # DONT SEPARATE.
020968,003467: 4321 00004 R3D1 OCT 4
020969,003468:
020970,003469: 4322 54020 RIGHT5 TS CYR
020971,003470: 4323 40020 CS CYR
020972,003471: 4324 40020 CS CYR
020973,003472: 4325 40020 CS CYR
020974,003473: 4326 40020 CS CYR
020975,003474: 4327 56020 XCH CYR
020976,003475: 4330 00002 TC Q
020977,003476:
020978,003477: 4331 54022 LEFT5 TS CYL
020979,003478: 4332 40022 CS CYL
020980,003479: 4333 40022 CS CYL
020981,003480: 4334 40022 CS CYL
020982,003481: 4335 40022 CS CYL
|
|
Page 474 |
020984,003483: 4336 56022 XCH CYL
020985,003484: 4337 00002 TC Q
020986,003485:
020987,003486: 4340 60000 SLEFT5 DOUBLE
020988,003487: 4341 60000 DOUBLE
020989,003488: 4342 60000 DOUBLE
020990,003489: 4343 60000 DOUBLE
020991,003490: 4344 60000 DOUBLE
020992,003491: 4345 00002 TC Q
020993,003492:
020994,003493:
020995,003494: 4346 00037 LOW5 OCT 37 # THESE 3 CONSTANTS FORM A PACKED TABLE.
020996,003495: 4347 01740 MID5 OCT 1740 # DONT SEPARATE.
020997,003496: 4350 76000 HI5 OCT 76000 # MUST STAY HERE
020998,003497:
020999,003498: 4351 05072 TCNOVAC TC NOVAC
021000,003499: 4352 05203 TCWAIT TC WAITLIST
021001,003500: 4353 05261 TCTSKOVR TC TASKOVER
021002,003501: 4354 05105 TCFINDVC TC FINDVAC
021003,003502:
021004,003503:
021005,003504: 4355 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
021006,003505:
021007,003506:
021008,003507: 4356 03777 LOW11 OCT 3777
021009,003508: 4357 4356 B12-1 EQUALS LOW11
021010,003509: 4357 00377 LOW8 OCT 377
021011,003510:
021012,003511:
021013,003512: 4360 00023 VD1 OCT 23 # THESE 3 CONSTANTS FORM A PACKED TABLE.
021014,003513: 4361 00021 ND1 OCT 21 # DONT SEPARATE.
021015,003514: 4362 00025 MD1 OCT 25
021016,003515:
021017,003516: 4363 00012 BINCON DEC 10 B-14
021018,003517:
021019,003518: 4364 34745 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
021020,003519: 4365 00006 EXTEND
021021,003520: 4366 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
021022,003521: 4367 00002 TC Q
021023,003522:
021024,003523: 4370 44745 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
021025,003524: 4371 00006 EXTEND
021026,003525: 4372 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
021027,003526: 4373 00002 TC Q
021028,003527:
021029,003528: 4374 34747 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
021030,003529: 4375 00006 EXTEND
021031,003530: 4376 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
021032,003531: 4377 00002 TC Q
021033,003532:
|
|
Page 475 |
021035,003534: 4400 00006 LODSAMPT EXTEND
021036,003535: 4401 30025 DCA TIME2
021037,003536: 4402 52014 DXCH SAMPTIME
021038,003537: 4403 00002 TC Q
021039,003538:
021040,003539:
021041,003540: 4404 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
021042,003541: 4405 30156 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
021043,003542: 4406 20156 DAS MPAC +1
021044,003543: 4407 60154 AD MPAC
021045,003544: 4410 26154 ADS MPAC
021046,003545: 4411 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
021047,003546: 4412 00002 TC Q # NO NET OF/UF
021048,003547: 4413 54162 TS MPAC+6 # MPAC +6 SET TO +/-1 FOR OF/UF
021049,003548: 4414 00002 TC Q
021050,003549:
021051,003550:
021052,003551: # IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
021053,003552: # IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
021054,003553: # PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
021055,003554: # SETTING RESULT TO -0.
021056,003555: # (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
021057,003556: # WHEN THEY CONTAIN TH E SF CONSTANTS.)
021058,003557:
021059,003558: 4415 54135 PRSHRTMP TS MPTEMP
021060,003559: 4416 10000 CCS A
021061,003560: 4417 30135 CA MPTEMP # C(A) +, DO REGULAR SHORTMP
021062,003561: 4420 17307 TCF SHORTMP +1 # C(A) +0, DO REGULAR SHORTMP
021063,003562: 4421 14417 TCF -2 # C(A) -, DO REGULAR SHORTMP
021064,003563: 4422 44755 CS ZERO # C(A) -0, FORCE RESULT TO -0 AND RETURN.
021065,003564: 4423 54154 TS MPAC
021066,003565: 4424 54155 TS MPAC +1
021067,003566: 4425 54156 TS MPAC +2
021068,003567: 4426 00002 TC Q
021069,003568:
021070,003569:
021071,003570: 4427 34746 FLASHON CAF BIT6 # TURN ON V/N FLASH
021072,003571: 4430 00006 EXTEND # BIT 6 OF CHANNEL 11
021073,003572: 4431 05011 WOR DSALMOUT
021074,003573: 4432 00002 TC Q
021075,003574:
021076,003575:
021077,003576: 4433 44746 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
021078,003577: 4434 00006 EXTEND
021079,003578: 4435 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
021080,003579: 4436 00002 TC Q
021081,003580:
|
|
Page 476 |
021083,003582: # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
021084,003583:
021085,003584: # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
021086,003585: # CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
021087,003586: # HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
021088,003587: # OFFERED.
021089,003588:
021090,003589: # THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
021091,003590: # PROGRAM. 1) BY ENDIDLE
021092,003591: # 2) BY NVSUBUSY
021093,003592: # THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
021094,003593: # THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
021095,003594: # SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
021096,003595: # PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
021097,003596:
021098,003597:
021099,003598: # THE CALLING SEQUENCE FOR NVSUB IS
021100,003599: # CAF V/N
021101,003600: # L TC NVSUB
021102,003601: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
021103,003602: # L+2 RETURN HERE AFTER EXECUTION
021104,003603:
021105,003604:
021106,003605: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
021107,003606: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
021108,003607: # SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
021109,003608: # NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
021110,003609: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
021111,003610:
021112,003611:
021113,003612: # THE CALLING SEQUENCE IS
021114,003613: # CAF WAKEFCADR
021115,003614: # TC NVSUBUSY
021116,003615:
021117,003616:
021118,003617: # .
021119,003618:
021120,003619:
021121,003620: # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
021122,003621: # IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
021123,003622: # NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
021124,003623: # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
021125,003624:
021126,003625:
021127,003626: # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
021128,003627: # SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
021129,003628: # WHEN
021130,003629: # 1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
021131,003630: # IS EXCEEDED.
021132,003631: # 2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
|
|
Page 477 |
021134,003633: # ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
021135,003634:
021136,003635: 4437 44444 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
021137,003636: 4440 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
021138,003637: 4441 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
021139,003638: 4442 04635 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
021140,003639: 4443 10604 CADR NVSUBSY1
021141,003640: 4444 02003 2K+3 OCT 2003
021142,003641:
021143,003642: # NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
021144,003643: # WITH HIS PROPER SUPERBITS.
021145,003644:
021146,003645: 04,2604 SETLOC ENDSPMM +1
021147,003646: 04,2604 COUNT* $$/PIN
021148,003647: 04,2604 54001 NVSUBSY1 TS L
021149,003648: 04,2605 04220 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0.
021150,003649: 04,2606 04224 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0.
021151,003650: 04,2607 04374 TC RELDSPON
021152,003651: 04,2610 30001 CA L
021153,003652: 04,2611 55043 TS DSPLIST
021154,003653: 04,2612 05133 ENDNVBSY TC JOBSLEEP
021155,003654:
021156,003655:
021157,003656: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
021158,003657: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
021159,003658: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
021160,003659: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
021161,003660: # IS NOT BUSY.
021162,003661:
021163,003662: 4445 SETLOC NVSUBUSY +3
021164,003663: 4445 COUNT* $$/PIN
021165,003664: 4445 22007 NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
021166,003665: 4446 54123 TS NVTEMP
021167,003666: 4447 34736 CAF BIT14
021168,003667: 4450 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
021169,003668: 4451 61012 AD DSPLOCK
021170,003669: 4452 10000 CCS A
021171,003670: 4453 14455 TCF NVSBWT1 # BUSY
021172,003671: 4454 14164 TCF NVSBCOM # FREE. NVSUB WILL SAVE L+1 FOR RETURN
021173,003672: # AFTER EXECUTION.
021174,003673: 4455 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
021175,003674: 4456 14437 TCF PRENVBSY # GO TO SLEEP.
021176,003675:
021177,003676:
021178,003677: # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
021179,003678: # VERB DISPATCHER, VBRESEQ, RECALTST.
021180,003679: # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
021181,003680: 4457 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
021182,003681: 4460 54144 TS RELRET # OFF, SEARCH DSPLIST
021183,003682: 4461 44736 CS BIT14
|
|
Page 478 |
021185,003684: 4462 00004 INHINT
021186,003685: 4463 71021 MASK MONSAVE1
021187,003686: 4464 55021 TS MONSAVE1 # TURN OFF EXTERNAL MONITOR BIT
021188,003687: 4465 11043 CCS DSPLIST
021189,003688: 4466 04470 TC +2
021190,003689: 4467 04473 TC RELDSP2 # LIST EMPTY
021191,003690: 4470 34755 CAF ZERO
021192,003691: 4471 57043 XCH DSPLIST
021193,003692: 4472 05137 TC JOBWAKE
021194,003693: 4473 00003 RELDSP2 RELINT
021195,003694: 4474 44747 CS BIT5 # TURN OFF KEY RELEASE LIGHT
021196,003695: 4475 00006 EXTEND # (BIT 5 OF CHANNEL 11)
021197,003696: 4476 03011 WAND DSALMOUT
021198,003697: 4477 34755 CAF ZERO
021199,003698: 4500 55012 TS DSPLOCK
021200,003699: 4501 00144 TC RELRET
021201,003700: 4502 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
021202,003701: 4503 54144 TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
021203,003702: # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
021204,003703: # DSPLIST IS NOT EMPTY.
021205,003704: 4504 11043 CCS DSPLIST
021206,003705: 4505 04507 TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021207,003706: 4506 04473 TC RELDSP2 # +0 EMPTY. TURN OFF KEY RLSE LIGHT
021208,003707: 4507 34755 CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
021209,003708: 4510 55012 TS DSPLOCK
021210,003709: 4511 00144 TC RELRET
021211,003710:
021212,003711:
021213,003712: 4512 ENDPINBF EQUALS
021214,003713:
|
|
Page 479 |
021216,003715: # PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
021217,003716:
021218,003717: 4512 43,2002 PINTEST EQUALS LST2FAN
021219,003718:
|
|
Page 480 |
021221,003720: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
021222,003721: # OFF THE CAUTION AND STATUS LIGHTS.
021223,003722:
021224,003723: 41,3613 SETLOC ENDNVSB1 +1
021225,003724:
021226,003725: 41,3613 COUNT* $$/PIN
021227,003726: 41,3613 00004 VBTSTLTS INHINT
021228,003727: 41,3614 44753 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
021229,003728: 41,3615 71303 MASK IMODES33 # TURN OUT ANY LAMPS.
021230,003729: 41,3616 64753 AD BIT1
021231,003730: 41,3617 55303 TS IMODES33
021232,003731:
021233,003732: 41,3620 33656 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
021234,003733: 41,3621 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
021235,003734: 41,3622 05011 WOR DSALMOUT
021236,003735: 41,3623 33657 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
021237,003736: 41,3624 55036 TS DSPTAB +11D # PROG ALM.
021238,003737: 41,3625 34742 CAF BIT10 # TURN ON TEST ALARM OUTBIT
021239,003738: 41,3626 00006 EXTEND
021240,003739: 41,3627 05013 WOR CHAN13
021241,003740: 41,3630 34363 CAF TEN
021242,003741: 41,3631 54117 TSTLTS1 TS ERCNT
021243,003742: 41,3632 43654 CS FULLDSP
021244,003743: 41,3633 50117 INDEX ERCNT
021245,003744: 41,3634 55023 TS DSPTAB
021246,003745: 41,3635 10117 CCS ERCNT
021247,003746: 41,3636 03631 TC TSTLTS1
021248,003747: 41,3637 43655 CS FULLDSP1
021249,003748: 41,3640 55024 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
021250,003749: 41,3641 55027 TS DSPTAB +4
021251,003750: 41,3642 55031 TS DSPTAB +6
021252,003751: 41,3643 34760 CAF ELEVEN
021253,003752: 41,3644 55016 TS NOUT
021254,003753: 41,3645 00003 RELINT
021255,003754: 41,3646 33661 CAF SHOLTS
021256,003755: 41,3647 00004 INHINT
021257,003756: 41,3650 05203 TC WAITLIST
021258,003757: 41,3651 1023 EBANK= DSPTAB
021259,003758: 41,3651 03662 62102 2CADR TSTLTS2
021260,003759:
021261,003760: 41,3653 05155 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
021262,003761: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
021263,003762: # LIGHTS TEST WILL BE SEEN.
021264,003763:
021265,003764:
021266,003765: 41,3654 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
021267,003766: 41,3655 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
021268,003767: 41,3656 00175 TSTCON1 OCT 00175
021269,003768: # UPLINK ACTIVITY, TEMP, KEY RLSE,
021270,003769: # V/N FLASH, OPERATOR ERROR.
|
|
Page 481 |
021272,003771: 41,3657 40674 TSTCON2 OCT 40674 # DSPTAB+11D BITS 3,4,5,6,8,9. LR LITES,
021273,003772: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
021274,003773: 41,3660 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
021275,003774: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
021276,003775: 41,3661 00764 SHOLTS OCT 764 # 5 SEC
021277,003776:
021278,003777:
021279,003778: 41,3662 34355 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
021280,003779: 41,3663 05072 TC NOVAC
021281,003780: 41,3664 1023 EBANK= DSPTAB
021282,003781: 41,3664 03667 62102 2CADR TSTLTS3
021283,003782:
021284,003783: 41,3666 05261 TC TASKOVER
021285,003784:
021286,003785:
021287,003786: 41,3667 43660 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
021288,003787: 41,3670 00004 INHINT
021289,003788: 41,3671 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
021290,003789: 41,3672 03011 WAND DSALMOUT # OPERATOR ERROR.
021291,003790: 41,3673 44742 CS BIT10 # TURN OFF TEST ALARM OUTBIT
021292,003791: 41,3674 00006 EXTEND
021293,003792: 41,3675 03013 WAND CHAN13
021294,003793: 41,3676 34750 CAF BIT4 # MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
021295,003794: 41,3677 00006 EXTEND # (NO ATT LIGHT ON IF IN COARSE ALIGN)
021296,003795: 41,3700 02012 RAND CHAN12
021297,003796: 41,3701 64735 AD BIT15 # TURN OFF AUTO, HOLD, FREE, SPARE,
021298,003797: 41,3702 55036 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
021299,003798: 41,3703 43726 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
021300,003799: 41,3704 71303 MASK IMODES33 # LIGHTS COMPLETE.
021301,003800: 41,3705 65026 AD PRIO16
021302,003801: 41,3706 55303 TS IMODES33
021303,003802:
021304,003803: 41,3707 43730 CS OCT55000
021305,003804: 41,3710 71302 MASK IMODES30
021306,003805: 41,3711 65025 AD PRIO15 # 15000.
021307,003806: 41,3712 55302 TS IMODES30
021308,003807:
021309,003808: 41,3713 43727 CS RFAILS2
021310,003809: 41,3714 70110 MASK RADMODES
021311,003810: 41,3715 64745 AD BIT7
021312,003811: 41,3716 54110 TS RADMODES
021313,003812:
021314,003813: 41,3717 00003 RELINT
021315,003814:
021316,003815: 41,3720 04616 TC BANKCALL # REDISPLAY C(MODREG)
021317,003816: 41,3721 10573 CADR DSPMM
021318,003817: 41,3722 04204 TC KILMONON # TURN ON KILL MONITOR BIT.
021319,003818: 41,3723 04433 TC FLASHOFF # TURN OFF V/N FLASH.
021320,003819: 41,3724 04635 TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF
021321,003820: 41,3725 61467 CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE.
|
|
Page 482 |
021323,003822: 41,3726 16001 13-11,1 OCT 16001
021324,003823: 41,3727 00330 RFAILS2 OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
021325,003824: 41,3730 55000 OCT55000 OCT 55000
021326,003825: 41,3731 ENDPINS2 EQUALS
021327,003826:
|
|
Page 483 |
021329,003828: # ERROR LIGHT RESET (RSET) TURNS OFF,
021330,003829: # UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
021331,003830: # PROG ALM, TRACKER FAIL.
021332,003831: # LEAVES GIMBAL LOCK AND NO ATT ALONE.
021333,003832: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
021334,003833: # IT ALSO SETS :CAUTION RESET: TO 1.
021335,003834: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
021336,003835:
021337,003836: 40,3601 SETLOC DOPROC +2
021338,003837: 40,3601 COUNT* $$/PIN
021339,003838: 40,3601 56115 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
021340,003839: 40,3602 55012 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
021341,003840: 40,3603 00004 INHINT
021342,003841: 40,3604 34742 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
021343,003842: 40,3605 00006 EXTEND
021344,003843: 40,3606 05011 WOR DSALMOUT # BIT10 CHAN 11
021345,003844: 40,3607 33670 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
021346,003845: 40,3610 71036 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
021347,003846: 40,3611 64735 AD BIT15 # PROG ALARM, AND TRACKER.
021348,003847: 40,3612 55036 TS DSPTAB +11D
021349,003848: 40,3613 45026 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
021350,003849: 40,3614 71303 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
021351,003850: 40,3615 65026 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
021352,003851: 40,3616 55303 TS IMODES33
021353,003852: 40,3617 44742 CS BIT10
021354,003853: 40,3620 71302 MASK IMODES30
021355,003854: 40,3621 64742 AD BIT10
021356,003855: 40,3622 55302 TS IMODES30
021357,003856:
021358,003857: 40,3623 43667 CS RFAILS
021359,003858: 40,3624 70110 MASK RADMODES
021360,003859: 40,3625 64745 AD BIT7
021361,003860: 40,3626 54110 TS RADMODES
021362,003861:
021363,003862: 40,3627 44742 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
021364,003863: 40,3630 00006 EXTEND
021365,003864: 40,3631 03013 WAND CHAN13
021366,003865: 40,3632 43666 CS ERCON # TURN OFF UPLINK ACTIVITY,
021367,003866: 40,3633 00006 EXTEND # OPERATOR ERROR.
021368,003867: 40,3634 03011 WAND DSALMOUT
021369,003868: 40,3635 34363 TSTAB CAF BINCON # (DEC 10)
021370,003869: 40,3636 54117 TS ERCNT # ERCNT = COUNT
021371,003870: 40,3637 00004 INHINT
021372,003871: 40,3640 50117 INDEX ERCNT
021373,003872: 40,3641 11023 CCS DSPTAB
021374,003873: 40,3642 64753 AD ONE
021375,003874: 40,3643 03650 TC ERPLUS
021376,003875: 40,3644 64753 AD ONE
021377,003876: 40,3645 40000 ERMINUS CS A
021378,003877: 40,3646 73671 MASK NOTBIT12
|
|
Page 484 |
021380,003879: 40,3647 03653 TC ERCOM
021381,003880: 40,3650 40000 ERPLUS CS A
021382,003881: 40,3651 73671 MASK NOTBIT12
021383,003882: 40,3652 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
021384,003883: 40,3653 50117 ERCOM INDEX ERCNT # ETC.
021385,003884: 40,3654 55023 TS DSPTAB
021386,003885: 40,3655 00003 RELINT
021387,003886: 40,3656 10117 CCS ERCNT
021388,003887: 40,3657 03636 TC TSTAB +1
021389,003888: 40,3660 34755 CAF ZERO
021390,003889: 40,3661 54375 TS FAILREG
021391,003890: 40,3662 54376 TS FAILREG +1
021392,003891: 40,3663 54377 TS FAILREG +2
021393,003892: 40,3664 55357 TS SFAIL
021394,003893: 40,3665 05155 TC ENDOFJOB
021395,003894:
021396,003895: 40,3666 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
021397,003896: # UPLINK ACTIVITY, AND OPERATOR ERROR.
021398,003897: 40,3667 00330 RFAILS OCT 330 # RADAR CDU AND DATA FAIL FLAGS.
021399,003898: 40,3670 00050 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
021400,003899: 40,3671 73777 NOTBIT12 OCT 73777
021401,003900:
021402,003901:
021403,003902: 40,3672 ENDPINS1 EQUALS
021404,003903:
021405,003904:
021406,003905: 40,3672 30,2000 SBANK= LOWSUPER
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc