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