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