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