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