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