Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
013965,000002: ## Copyright: Public domain.
013966,000003: ## Filename: PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
013967,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
013968,000005: ## build 072. This is for the Command Module's (CM)
013969,000006: ## Apollo Guidance Computer (AGC), for
013970,000007: ## Apollo 15-17.
013971,000008: ## Assembler: yaYUL
013972,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
013973,000010: ## Website: www.ibiblio.org/apollo/index.html
013974,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013975,000012: ## Mod history: 2009-08-10 JL Adapted from corresponding Comanche 055 file.
013976,000013: ## 2009-09-03 JL Fixed conversion error (duplicate declaration
013977,000014: ## of NEG.2).
013978,000015: ## 2009-09-04 JL Fixed page comment.
013979,000016: ## 2010-01-31 JL Fixed build errors.
013980,000017: ## 2010-02-02 JL Removed extra instruction (TS DSPCOUNT). Fixed
013981,000018: ## page numbers.
013982,000019: ## 2010-02-05 JL Fixed code errors.
013983,000020: ## 2010-02-07 JL Added missing BANK opcode on p369. Removed
013984,000021: ## extra instruction on p383.
013985,000022: ## 2010-02-10 JL Fixed line on p381.
013986,000023: ## 2010-02-13 JL Fixed errors on pages 327, 354, 356, 362, 363,
013987,000024: ## 368, 370, 374, 379, 380, 391, 392.
013988,000025: ## 2010-02-20 RSB Un-##'d this header.
013989,000026: ## 2011-05-07 JL Removed obsolete link.
013990,000027: ## 2017-01-28 RSB WTIH -> WITH.
013991,000028: ## 2017-02-08 RSB Proofed comment text by combination of
013992,000029: ## octopus/ProoferComments and diff'ing vs
013993,000030: ## Comanche 55.
013994,000031: ## 2017-03-08 RSB Changed DSPOCTWO to DSPOCTWD.
013995,000032: ## 2017-03-08 RSB Comment-text fixes noted in proofing Luminary 116.
013996,000033: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
013997,000034: ## side-by-side diff of Luminary 69/99/116/131/210.
013998,000035: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
013999,000036: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
014000,000037: ## In several places, trailing periods that were missing
014001,000038: ## or extremely faint in the printout were restored,
014002,000039: ## and marked with a ##-style comment. This occurred
014003,000040: ## if a period was present in _all_ other available
014004,000041: ## Colossus or Luminary version (8 in all) without there
014005,000042: ## being any other different obvious in the line.
014006,000043:
![]() |
Page 318 |
014008,000045:
014009,000046: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
014010,000047: # MOD BY - BARNERT DATE - 20 AUG 1969
014011,000048: # LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
014012,000049:
014013,000050: # FUNCTIONAL DESCRIPTION-
014014,000051:
014015,000052: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
014016,000053: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
014017,000054: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
014018,000055: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
014019,000056:
014020,000057: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
014021,000058: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
014022,000059: # DECIMAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
014023,000060: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
014024,000061: # REFER TO A GROUP OF ERASABLE REGISTERS.
014025,000062:
014026,000063: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
014027,000064: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
014028,000065: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
014029,000066: # :EXTENDED VERBS:).
014030,000067:
014031,000068: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
014032,000069: # OPERATION INFORMATION:.
014033,000070:
014034,000071: # CALLING SEQUENCES-
014035,000072:
014036,000073: # KEYBOARD:
014037,000074: # EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
014038,000075: # INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
014039,000076: # CHANNEL 15 (CHANNEL 16). KEYRUPT1 (KEYRUPT2) PLACES THE KEY
014040,000077: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
014041,000078: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
014042,000079:
014043,000080: # UPLINK:
014044,000081: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
014045,000082: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
014046,000083: # KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
014047,000084:
014048,000085: # INTERNAL PROGRAMS:
014049,000086: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
014050,000087: # CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB). DETAILS
014051,000088: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
014052,000089: # SYMBOL TABLE FOR PAGE NUMBERS).
014053,000090:
014054,000091: # NORMAL EXIT MODES-
014055,000092:
014056,000093: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
014057,000094: # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
014058,000095: # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
![]() |
Page 319 |
014060,000097: # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
014061,000098: # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
014062,000099: # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
014063,000100: # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
014064,000101: # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
014065,000102: # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
014066,000103: # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
014067,000104: # 4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
014068,000105: # ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
014069,000106: # THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
014070,000107:
014071,000108: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
014072,000109: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
014073,000110: # :NVSUB:
014074,000111:
014075,000112: # ALARM OR ABORT EXIT MODES-
014076,000113:
014077,000114: # EXTERNAL INITIATION:
014078,000115: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
014079,000116: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
014080,000117:
014081,000118: # INTERNAL PROGRAM INITIATION:
014082,000119: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
014083,000120: # (WITH OCTAL 21501).
014084,000121: # IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
014085,000122: # CAUSED (WITH OCTAL 21206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
014086,000123: # 1) ENDIDLE
014087,000124: # 2) NVSUBUSY
014088,000125:
014089,000126: # OUTPUT-
014090,000127:
014091,000128: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
014092,000129: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
014093,000130: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
014094,000131: # IN INTERRUPT.
014095,000132:
014096,000133: # ERASABLE INITIALIZATION-
014097,000134:
014098,000135: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
014099,000136: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
014100,000137: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
014101,000138: # DSPCOUNT, NOUT.
014102,000139:
014103,000140: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
014104,000141: # PINBALL IS GIVEN BELOW.
014105,000142:
014106,000143: # THE FOLLOWING ARE OF GENERAL INTEREST-
014107,000144:
014108,000145: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
014109,000146: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
014110,000147:
![]() |
Page 320 |
014112,000149: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
014113,000150: # OF RELATED INTEREST - NVSUBUSY
014114,000151:
014115,000152: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
014116,000153: # AWAITING OPERATORS RESPONSE.
014117,000154:
014118,000155: # DSPMMJOB ROUTINE CALL WITH PRIO 30000, USED TO DISPLAY A DECIMAL
014119,000156: # PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
014120,000157:
014121,000158: # BLANKSUB ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
014122,000159: # COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
014123,000160:
014124,000161: # JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
014125,000162: # TERMINATE (V 34) FUNCTION.
014126,000163:
014127,000164: # MONITOR VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
014128,000165:
014129,000166: # PLEASE PERFORM, PLEASE MARK SITUATIONS
014130,000167: # REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
014131,000168: # THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
014132,000169: # SYMBOL TABLE FOR PAGE NUMBER).
014133,000170:
014134,000171: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
014135,000172: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
014136,000173:
014137,000174: # THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
014138,000175: # TABLES:.
014139,000176:
014140,000177: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
014141,000178: # PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
014142,000179: # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
014143,000180:
014144,000181: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
014145,000182:
014146,000183: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
014147,000184: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
014148,000185: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
014149,000186: # HENRY 6, ACT 2, SCENE 4
014150,000187:
014151,000188: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
014152,000189:
014153,000190: # RESERVED FOR PINBALL EXECUTIVE ACTION
014154,000191:
014155,000192: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
014156,000193: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
014157,000194: # VERBREG ERASE VERB CODE
014158,000195: # NOUNREG ERASE NOUN CODE
014159,000196: # XREG ERASE R1 INPUT BUFFER
![]() |
Page 321 |
014161,000198: # YREG ERASE R2 INPUT BUFFER
014162,000199: # ZREG ERASE R3 INPUT BUFFER
014163,000200: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
014164,000201: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
014165,000202: # HITEMOUT = YREGLP TEMP FOR DISPLAY OF HRS,MIN,SEC
014166,000203: # MUST = LOTEMOUT-1.
014167,000204: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
014168,000205: # LOTEMOUT = ZREGLP TEMP FOR DISPLAY OF HRS,MIN,SEC
014169,000206: # MUST = HITEMOUT+1.
014170,000207: # MODREG ERASE MODE CODE
014171,000208: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
014172,000209: # REQRET ERASE RETURN REGISTER FOR LOAD
014173,000210: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
014174,000211: # CLPASS ERASE PASS INDICATOR CLEAR
014175,000212: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
014176,000213: # NOUNCADR ERASE MACHINE CADR FOR NOUN
014177,000214: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
014178,000215: # MONSAVE1 ERASE NOUNCADR FOR MONITOR (MATBS) = MONSAVE+1
014179,000216: # MONSAVE2 ERASE NVMONOPT OPTIONS
014180,000217: # DSPTAB ERASE +13D 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
014181,000218: # CADRSTOR ERASE ENDIDLE STORAGE
014182,000219: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
014183,000220: # MUST = NVBNKTEM-1
014184,000221: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
014185,000222: # MUST = NVQTEM+1
014186,000223: # VERBSAVE ERASE NEEDED FOR RECYCLE
014187,000224: # DSPLIST ERASE WAITING REG FOR DSP SYST INTERNAL USE
014188,000225: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
014189,000226: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
014190,000227: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
014191,000228:
014192,000229: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
014193,000230:
014194,000231: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014195,000232:
014196,000233: # DSEXIT = INTB15+ RETURN FOR DSPIN
014197,000234: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
014198,000235: # BLANKRET = INTB15+ RETURN FOR 2BLANK
014199,000236:
014200,000237: # WRDRET = INTBIT15 RETURN FOR 5BLANK
014201,000238: # WDRET = INTBIT15 RETURN FOR DSPWD
014202,000239: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
014203,000240: # 21/22REG = INTBIT15 TEMP FOR CHARIN
014204,000241:
014205,000242: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
014206,000243: # CHAR = POLISH TEMP FOR CHARIN
014207,000244: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
014208,000245: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
014209,000246:
014210,000247: # SGNON = VBUF TEMP FOR +,- ON
![]() |
Page 322 |
014212,000249: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
014213,000250: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
014214,000251: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
014215,000252:
014216,000253: # SGNOFF = VBUF +1 TEMP FOR +,- ON
014217,000254: # NVTEMP = VBUF +1 TEMP FOR NVSUB
014218,000255: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
014219,000256: # HITEMIN = VBUF +1 TEMP FOR LOAD OF HRS, MIN, SEC
014220,000257: # MUST = LOTEMIN-1.
014221,000258: # CODE = VBUF +2 FOR DSPIN
014222,000259: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
014223,000260: # LOTEMIN = VBUF +2 TEMP FOR LOAD OF HRS, MIN, SEC
014224,000261: # MUST = HITEMIN+1.
014225,000262: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
014226,000263: # SIGNRET = VBUF +3 RETURN FOR +,- ON
014227,000264:
014228,000265: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
014229,000266:
014230,000267: # ENTRET = DOTINC EXIT FROM ENTER
014231,000268:
014232,000269: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
014233,000270: # INREL = DOTRET INPUT BUFFER SELECTOR (X,Y,Z, REG)
014234,000271:
014235,000272: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
014236,000273: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
014237,000274:
014238,000275: # TEM1 ERASE EXEC TEMP
014239,000276: # DSREL = TEM1 REL ADDRESS FOR DSPIN
014240,000277:
014241,000278: # TEM2 ERASE EXEC TEMP
014242,000279: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
014243,000280: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
014244,000281:
014245,000282: # TEM3 ERASE EXEC TEMP
014246,000283: # COUNT = TEM3 FOR DSPIN
014247,000284:
014248,000285: # TEM4 ERASE EXEC TEMP
014249,000286: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
014250,000287: # RELRET = TEM4 RETURN FOR RELDSP
014251,000288: # FREERET = TEM4 RETURN FOR FREEDSP
014252,000289: # DSPWDRET = TEM4 RETURN FOR DSPSIGN
014253,000290: # SEPSCRET = TEM4 RETURN FOR SEPSEC
014254,000291: # SEPMNRET = TEM4 RETURN FOR SEPMIN
014255,000292:
014256,000293: # TEM5 ERASE EXEC TEMP
014257,000294: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
014258,000295:
014259,000296: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
014260,000297: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
014261,000298: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
![]() |
Page 323 |
014263,000300: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
014264,000301: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
014265,000302: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
014266,000303: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
014267,000304: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
014268,000305: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
014269,000306:
014270,000307: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014271,000308:
014272,000309: # ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
014273,000310:
014274,000311: # MPAC, THRU MPAC +6
014275,000312: # BUF, +1, +2
014276,000313: # BUF2, +1, +2
014277,000314: # MPTEMP
014278,000315: # ADDRWD
014279,000316:
014280,000317: # END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
014281,000318:
014282,000319: # RESERVED FOR PINBALL INTERRUPT ACTION
014283,000320:
014284,000321: # DSPCNT ERASE COUNTER FOR DSPOUT
014285,000322: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
014286,000323: # RECEPTION OF A BAD MESSAGE IN UPLINK)
014287,000324:
014288,000325: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
014289,000326:
014290,000327: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
014291,000328:
014292,000329: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
014293,000330: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
014294,000331: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
014295,000332:
014296,000333: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
014297,000334:
![]() |
Page 324 |
014299,000336: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
014300,000337: # 0 10000
014301,000338: # 1 00001
014302,000339: # 9 01001
014303,000340: # VERB 10001
014304,000341: # ERROR RES 10010
014305,000342: # KEY RLSE 11001
014306,000343: # + 11010
014307,000344: # - 11011
014308,000345: # ENTER 11100
014309,000346: # CLEAR 11110
014310,000347: # NOUN 11111
014311,000348:
014312,000349: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
014313,000350: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
014314,000351: # ENERGIZED.
014315,000352: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
014316,000353: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
014317,000354: # D-S 5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
014318,000355:
014319,000356: # THE PANEL APPEARS AS FOLLOWS,
014320,000357: # MD1 MD2 (MAJOR MODE)
014321,000358: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
014322,000359: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
014323,000360: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
014324,000361: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
014325,000362:
014326,000363: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
014327,000364:
014328,000365: # MD1 25 R2D1 11 ALL ARE OCTAL
014329,000366: # MD2 24 R2D2 10
014330,000367: # VD1 23 R2D3 7
014331,000368: # VD2 22 R2D4 6
014332,000369: # ND1 21 R2D5 5
014333,000370: # ND2 20 R3D1 4
014334,000371: # R1D1 16 R3D2 3
014335,000372: # R1D2 15 R3D3 2
014336,000373: # R1D3 14 R3D4 1
014337,000374: # R1D4 13 R3D5 0
014338,000375: # R1D5 12
014339,000376:
014340,000377: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
014341,000378:
014342,000379: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
014343,000380: # RELADD
014344,000381: # 10 1011 MD1 (25) MD2 (24)
014345,000382: # 9 1010 VD1 (23) VD2 (22)
014346,000383: # 8 1001 ND1 (21) ND2 (20)
014347,000384: # 7 1000 R1D1 (16)
![]() |
Page 325 |
014349,000386: # 6 0111 +R1 R1D2 (15) R1D3 (14)
014350,000387: # 5 0110 -R1 R1D4 (13) R1D5 (12)
014351,000388: # 4 0101 +R2 R2D1 (11) R2D2 (10)
014352,000389: # 3 0100 -R2 R2D3 (7) R2D4 (6)
014353,000390: # 2 0011 R2D5 (5) R3D1 (4)
014354,000391: # 1 0010 +R3 R3D2 (3) R3D3 (2)
014355,000392: # 0 0001 -R3 R3D4 (1) R3D5 (0)
014356,000393: # 0000 NO RELAYWORD
014357,000394:
014358,000395: # THE 5 BIT OUTPUT RELAY CODES ARE:
014359,000396:
014360,000397: # BLANK 00000
014361,000398: # 0 10101
014362,000399: # 1 00011
014363,000400: # 2 11001
014364,000401: # 3 11011
014365,000402: # 4 01111
014366,000403: # 5 11110
014367,000404: # 6 11100
014368,000405: # 7 10011
014369,000406: # 8 11101
014370,000407: # 9 11111
014371,000408:
014372,000409: # OUTPUT BITS USED BY PINBALL:
014373,000410:
014374,000411: # KEY RELEASE LIGHT - BIT 5 OF CHANNEL 11
014375,000412: # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
014376,000413: # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
014377,000414:
![]() |
Page 326 |
014379,000416: # START OF EXECUTIVE SECTION OF PINBALL
014380,000417:
014381,000418: 40,2000 SETLOC PINBALL1
014382,000419: 40,2000 BANK
014383,000420:
014384,000421: 40,2000 COUNT* $$/PIN
014385,000422: 40,2000 34770 CHARIN CAF ONE # BLOCK DISPLAY SYST
014386,000423: 40,2001 57215 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
014387,000424: 40,2002 54115 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
014388,000425: 40,2003 11245 CCS CADRSTOR # ALL KEYS EXCEPT ER TURN ON KR LITE IF
014389,000426: 40,2004 02006 TC +2 # CADRSTOR IS FULL. THIS REMINDS OPERATOR
014390,000427: 40,2005 02013 TC CHARIN2 # TO RE-ESTABLISH A FLASHING DISPLAY
014391,000428: 40,2006 42212 CS ELRCODE1 # WHICH HE HAS OBSCURED WITH DISPLAYS OF
014392,000429: 40,2007 60154 AD MPAC # HIS OWN (SEE REMARKS PRECEDING ROUTINE
014393,000430: 40,2010 00006 EXTEND # VBRELDSP).
014394,000431: 40,2011 12013 BZF CHARIN2
014395,000432: 40,2012 04356 TC RELDSPON
014396,000433: 40,2013 56154 CHARIN2 XCH MPAC
014397,000434: 40,2014 54117 TS CHAR
014398,000435: 40,2015 50000 INDEX A
014399,000436: 40,2016 02017 TC +1 # INPUT CODE FUNCTION
014400,000437: 40,2017 03275 TC CHARALRM # 0
014401,000438: 40,2020 02074 TC NUM # 1
014402,000439: 40,2021 02074 TC NUM # 2
014403,000440: 40,2022 02074 TC NUM # 3
014404,000441: 40,2023 02074 TC NUM # 4
014405,000442: 40,2024 02074 TC NUM # 5
014406,000443: 40,2025 02074 TC NUM # 6
014407,000444: 40,2026 02074 TC NUM # 7
014408,000445: 40,2027 02064 TC 89TEST # 10 8
014409,000446: 40,2030 02064 TC 89TEST # 11 9
014410,000447: 40,2031 03275 TC CHARALRM # 12
014411,000448: 40,2032 03275 TC CHARALRM # 13
014412,000449: 40,2033 03275 TC CHARALRM # 14
014413,000450: 40,2034 03275 TC CHARALRM # 15
014414,000451: 40,2035 03275 TC CHARALRM # 16
014415,000452: 40,2036 03275 TC CHARALRM # 17
014416,000453: 40,2037 02072 TC NUM -2 # 20 0
014417,000454: 40,2040 02251 TC VERB # 21 VERB
014418,000455: 40,2041 03553 TC ERROR # 22 ERROR LIGHT RESET
014419,000456: 40,2042 03275 TC CHARALRM # 23
014420,000457: 40,2043 03275 TC CHARALRM # 24
014421,000458: 40,2044 03275 TC CHARALRM # 25
014422,000459: 40,2045 03275 TC CHARALRM # 26
014423,000460: 40,2046 03275 TC CHARALRM # 27
014424,000461: 40,2047 03275 TC CHARALRM # 30
014425,000462: 40,2050 03325 TC VBRELDSP # 31 KEY RELEASE
014426,000463: 40,2051 02304 TC POSGN # 32 +
014427,000464: 40,2052 02271 TC NEGSGN # 33 -
![]() |
Page 327 |
014429,000466: 40,2053 04200 TC ENTERJMP # 34 ENTER
014430,000467: 40,2054 03275 TC CHARALRM # 35
014431,000468: 40,2055 02364 TC CLEAR # 36 CLEAR
014432,000469: 40,2056 02265 TC NOUN # 37 NOUN
014433,000470:
014434,000471: 40,2057 11202 CHKDSP CCS DSPCOUNT
014435,000472: 40,2060 00002 TC Q
014436,000473: 40,2061 00002 TC Q
014437,000474: 40,2062 15205 TCF ENDOFJOB # BLOCK DATA IN IF DSPCOUNT NEG.
014438,000475: 40,2063 15205 TCF ENDOFJOB
014439,000476:
014440,000477: 40,2064 02057 89TEST TC CHKDSP
014441,000478: 40,2065 36214 CAF THREE
014442,000479: 40,2066 71203 MASK DECBRNCH
014443,000480: 40,2067 10000 CCS A
014444,000481: 40,2070 02074 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
014445,000482: 40,2071 03275 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
014446,000483:
014447,000484: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
014448,000485: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
014449,000486: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
014450,000487: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
014451,000488: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
014452,000489: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
014453,000490:
014454,000491: 40,2072 34772 -2 CAF ZERO
014455,000492: 40,2073 54117 TS CHAR
014456,000493: 40,2074 02057 NUM TC CHKDSP
014457,000494: 40,2075 02221 TC GETINREL
014458,000495: 40,2076 11220 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
014459,000496: 40,2077 34772 CAF ZERO
014460,000497: 40,2100 55220 TS CLPASS
014461,000498: 40,2101 02102 TC +1
014462,000499: 40,2102 30117 CA CHAR
014463,000500: 40,2103 04423 TC CODSTOR
014464,000501: 40,2104 03161 TC DSPIN
014465,000502: 40,2105 36214 CAF THREE
014466,000503: 40,2106 71203 MASK DECBRNCH
014467,000504: 40,2107 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
014468,000505: 40,2110 02121 TC DECTOBIN # +
014469,000506: 40,2111 50137 INDEX INREL # +0 OCTAL
014470,000507: 40,2112 57204 XCH VERBREG
014471,000508: 40,2113 54022 TS CYL
014472,000509: 40,2114 40022 CS CYL
014473,000510: 40,2115 40022 CS CYL
014474,000511: 40,2116 56022 XCH CYL
014475,000512: 40,2117 60117 AD CHAR
014476,000513: 40,2120 02136 TC ENDNMTST
![]() |
Page 328 |
014478,000515: 40,2121 50137 DECTOBIN INDEX INREL
014479,000516: 40,2122 57204 XCH VERBREG
014480,000517: 40,2123 54154 TS MPAC # SUM X 2EXP-14 IN MPAC
014481,000518: 40,2124 34772 CAF ZERO
014482,000519: 40,2125 54155 TS MPAC +1
014483,000520: 40,2126 34355 CAF TEN # 10 X 2EXP-14
014484,000521: 40,2127 07256 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
014485,000522: 40,2130 56155 XCH MPAC +1
014486,000523: 40,2131 60117 AD CHAR
014487,000524: 40,2132 54155 TS MPAC +1
014488,000525: 40,2133 02136 TC ENDNMTST # NO OF
014489,000526: 40,2134 26154 ADS MPAC # OF MUST BE 5TH CHAR
014490,000527: 40,2135 02156 TC DECCEND
014491,000528: 40,2136 50137 ENDNMTST INDEX INREL
014492,000529: 40,2137 55204 TS VERBREG
014493,000530: 40,2140 41202 CS DSPCOUNT
014494,000531: 40,2141 50137 INDEX INREL
014495,000532: 40,2142 62212 AD CRITCON
014496,000533: 40,2143 00006 EXTEND
014497,000534: 40,2144 12150 BZF ENDNUM # -0, DSPCOUNT = CRITCON
014498,000535: 40,2145 11202 MORNUM CCS DSPCOUNT # -, DSPCOUNT G/ CRITCON
014499,000536: 40,2146 55202 TS DSPCOUNT # DECREMENT DSPCOUNT
014500,000537: 40,2147 05205 TC ENDOFJOB
014501,000538: 40,2150 36214 ENDNUM CAF THREE
014502,000539: 40,2151 71203 MASK DECBRNCH
014503,000540: 40,2152 10000 CCS A
014504,000541: 40,2153 02156 TC DECCEND
014505,000542: 40,2154 41202 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
014506,000543: 40,2155 02146 TC MORNUM +1 # NEGATIVELY
014507,000544: 40,2156 04636 DECCEND TC BANKCALL
014508,000545: 40,2157 60161 CADR DECEND
014509,000546: 40,2160 02154 TC ENDALL
014510,000547: 40,2161 44770 DECEND CS ONE
014511,000548: 40,2162 60137 AD INREL
014512,000549: 40,2163 00006 EXTEND
014513,000550: 40,2164 62154 BZMF ENDALL # IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
014514,000551: 40,2165 02221 +4 TC GETINREL
014515,000552: 40,2166 50137 INDEX INREL
014516,000553: 40,2167 31204 CA VERBREG
014517,000554: 40,2170 54155 TS MPAC +1
014518,000555: 40,2171 07052 TC DMP # IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
014519,000556: # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
014520,000557: 40,2172 02217 ADRES DECON # 2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
014521,000558: 40,2173 36214 CAF THREE # IN MPAC, +1, +2.
014522,000559: 40,2174 71203 MASK DECBRNCH
014523,000560: 40,2175 50000 INDEX A
014524,000561: 40,2176 02176 TC +0
014525,000562: 40,2177 02203 TC +DECSGN
014526,000563: 40,2200 00006 EXTEND # - CASE
014527,000564: 40,2201 40156 DCS MPAC +1
![]() |
Page 329 |
014529,000566: 40,2202 52156 DXCH MPAC +1
014530,000567: 40,2203 56156 +DECSGN XCH MPAC +2
014531,000568: 40,2204 50137 INDEX INREL
014532,000569: 40,2205 55207 TS XREGLP -2
014533,000570: 40,2206 56155 XCH MPAC +1
014534,000571: 40,2207 50137 INDEX INREL
014535,000572: 40,2210 55204 TS VERBREG
014536,000573: 40,2211 04651 TC SWRETURN
014537,000574: 40,2212 40,2212 ELRCODE1 EQUALS CRITCON
014538,000575: 40,2212 00022 CRITCON OCT 22 # (DEC 18)
014539,000576: 40,2213 00020 OCT 20 # (DEC 16)
014540,000577: 40,2214 00012 OCT 12 # (DEC 10)
014541,000578: 40,2215 00005 OCT 5
014542,000579: 40,2216 00000 OCT 0
014543,000580:
014544,000581: 40,2217 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
014545,000582:
014546,000583: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
014547,000584: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
014548,000585:
014549,000586: 40,2221 51202 GETINREL INDEX DSPCOUNT
014550,000587: 40,2222 32225 CAF INRELTAB
014551,000588: 40,2223 54137 TS INREL # (A TEMP, REG)
014552,000589: 40,2224 00002 TC Q
014553,000590:
014554,000591: 40,2225 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
014555,000592: 40,2226 00004 OCT 4 # R3D4 =(1)
014556,000593: 40,2227 00004 OCT 4 # R3D3 =(2)
014557,000594: 40,2230 00004 OCT 4 # R3D2 =(3)
014558,000595: 40,2231 00004 OCT 4 # R3D1 =(4)
014559,000596: 40,2232 00003 OCT 3 # R2D5 =(5)
014560,000597: 40,2233 00003 OCT 3 # R2D4 =(6)
014561,000598: 40,2234 00003 OCT 3 # R2D3 =(7)
014562,000599: 40,2235 00003 OCT 3 # R2D2 =(8D)
014563,000600: 40,2236 00003 OCT 3 # R2D1 =(9D)
014564,000601: 40,2237 00002 OCT 2 # R1D5 =(10D)
014565,000602: 40,2240 00002 OCT 2 # R1D4 =(11D)
014566,000603: 40,2241 00002 OCT 2 # R1D3 =(12D)
014567,000604: 40,2242 00002 OCT 2 # R1D2 =(13D)
014568,000605: 40,2243 00002 OCT 2 # R1D1 =(14D)
014569,000606: 40,2244 00244 VNDSPCON OCT 244 # .01 ROUNDED UP. CANNOT GET HERE
014570,000607: 40,2245 00001 OCT 1 # ND2 =(16D)
014571,000608: 40,2246 00001 OCT 1 # ND1 =(17D)
014572,000609: 40,2247 00000 OCT 0 # VD2 =(18D)
014573,000610: 40,2250 00000 OCT 0 # VD1 =(19D)
014574,000611: 40,2251 34772 VERB CAF ZERO
![]() |
Page 330 |
014576,000613:
014577,000614: 40,2252 55204 TS VERBREG
014578,000615: 40,2253 34351 CAF VD1
014579,000616: 40,2254 55202 NVCOM TS DSPCOUNT
014580,000617: 40,2255 02473 TC 2BLANK
014581,000618: 40,2256 34770 CAF ONE
014582,000619: 40,2257 55203 TS DECBRNCH # SET FOR DEC V/N CODE
014583,000620: 40,2260 34772 CAF ZERO
014584,000621: 40,2261 55216 TS REQRET # SET FOR ENTPAS0
014585,000622: 40,2262 34170 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
014586,000623: 40,2263 54136 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
014587,000624: # TO TC ENDOFJOB
014588,000625: 40,2264 05205 TC ENDOFJOB
014589,000626: 40,2265 34772 NOUN CAF ZERO
014590,000627: 40,2266 55205 TS NOUNREG
014591,000628: 40,2267 34352 CAF ND1 # ND1, OCT 21 (DEC 17)
014592,000629: 40,2270 02254 TC NVCOM
014593,000630:
014594,000631: 40,2271 02344 NEGSGN TC SIGNTEST
014595,000632: 40,2272 02330 TC -ON
014596,000633: 40,2273 34767 CAF TWO
014597,000634: 40,2274 50137 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
014598,000635: 40,2275 64762 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
014599,000636: 40,2276 27203 ADS DECBRNCH # BIT 3 FOR R3.
014600,000637: 40,2277 11220 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
014601,000638: 40,2300 34772 CAF ZERO
014602,000639: 40,2301 55220 TS CLPASS
014603,000640: 40,2302 02303 TC +1
014604,000641: 40,2303 05205 TC ENDOFJOB
014605,000642:
014606,000643: 40,2304 02344 POSGN TC SIGNTEST
014607,000644: 40,2305 02310 TC +ON
014608,000645: 40,2306 34770 CAF ONE
014609,000646: 40,2307 02274 TC BOTHSGN
014610,000647:
014611,000648: 40,2310 22002 +ON LXCH Q
014612,000649: 40,2311 02221 TC GETINREL
014613,000650: 40,2312 50137 INDEX INREL
014614,000651: 40,2313 32336 CAF SGNTAB -2
014615,000652: 40,2314 54123 TS SGNOFF
014616,000653: 40,2315 64770 AD ONE
014617,000654: 40,2316 54122 TS SGNON
014618,000655: 40,2317 34772 SGNCOM CAF ZERO
014619,000656: 40,2320 54124 TS CODE
014620,000657: 40,2321 56123 XCH SGNOFF
014621,000658: 40,2322 03247 TC 11DSPIN
014622,000659: 40,2323 34756 CAF BIT11
014623,000660: 40,2324 54124 TS CODE
014624,000661: 40,2325 56122 XCH SGNON
014625,000662: 40,2326 03247 TC 11DSPIN
![]() |
Page 331 |
014627,000664: 40,2327 00001 -1 TC L
014628,000665: 40,2330 22002 -ON LXCH Q
014629,000666: 40,2331 02221 TC GETINREL
014630,000667: 40,2332 50137 INDEX INREL
014631,000668: 40,2333 32336 CAF SGNTAB -2
014632,000669: 40,2334 54122 TS SGNON
014633,000670: 40,2335 64770 AD ONE
014634,000671: 40,2336 54123 TS SGNOFF
014635,000672: 40,2337 02317 TC SGNCOM
014636,000673:
014637,000674: 40,2340 00005 SGNTAB OCT 5 # -R1
014638,000675: 40,2341 00003 OCT 3 # -R2
014639,000676: 40,2342 00000 -1 OCT 00000 # -R3
014640,000677: 40,2343 02476 DECROUND OCT 02476 # MUST FOLLOW ZERO WORD
014641,000678: 40,2344 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
014642,000679: 40,2345 36214 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
014643,000680: 40,2346 71203 MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
014644,000681: 40,2347 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
014645,000682: 40,2350 05205 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
014646,000683: 40,2351 44321 CS R1D1
014647,000684: 40,2352 02360 TC SGNTST1
014648,000685: 40,2353 44322 CS R2D1
014649,000686: 40,2354 02360 TC SGNTST1
014650,000687: 40,2355 44323 CS R3D1
014651,000688: 40,2356 02360 TC SGNTST1
014652,000689: 40,2357 05205 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
014653,000690: 40,2360 61202 SGNTST1 AD DSPCOUNT
014654,000691: 40,2361 00006 EXTEND
014655,000692: 40,2362 12327 BZF -ON -1 # MATCH FOUND. SIGN LEGAL
014656,000693: 40,2363 00002 TC Q
014657,000694:
014658,000695: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
014659,000696: # NT XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
014660,000697: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
014661,000698:
014662,000699: # CLPASS +0 PASS0, CAN BE BACKED UP
014663,000700: # +NZ HIPASS, CAN BE BACKED UP
014664,000701: # -NZ PASS0, CANNOT BE BACKED UP
014665,000702:
014666,000703: 40,2364 11202 CLEAR CCS DSPCOUNT
014667,000704: 40,2365 64770 AD ONE
014668,000705: 40,2366 02370 TC +2
014669,000706: 40,2367 64770 AD ONE
014670,000707: 40,2370 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
014671,000708: 40,2371 32225 CAF INRELTAB # FAIL LEGALTST.
014672,000709: 40,2372 54137 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
014673,000710: 40,2373 11220 CCS CLPASS
014674,000711: 40,2374 02402 TC CLPASHI # +
![]() |
Page 332 |
014676,000713: 40,2375 02377 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
014677,000714: 40,2376 02377 TC +1 # -
014678,000715: 40,2377 30137 CA INREL
014679,000716: 40,2400 02424 TC LEGALTST
014680,000717: 40,2401 02417 TC CLEAR1
014681,000718: 40,2402 10137 CLPASHI CCS INREL
014682,000719: 40,2403 54137 TS INREL
014683,000720: 40,2404 02424 TC LEGALTST
014684,000721: 40,2405 32472 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
014685,000722: 40,2406 27216 ADS REQRET
014686,000723: 40,2407 30137 CA INREL
014687,000724: 40,2410 54125 TS MIXTEMP # TEMP STORAGE FOR INREL
014688,000725: 40,2411 00006 EXTEND
014689,000726: 40,2412 27204 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
014690,000727: 40,2413 04636 TC BANKCALL
014691,000728: 40,2414 62337 CADR UPDATVB
014692,000729: 40,2415 30125 CA MIXTEMP
014693,000730: 40,2416 54137 TS INREL # RESTORE INREL
014694,000731: 40,2417 02422 CLEAR1 TC CLR5
014695,000732: 40,2420 25220 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
014696,000733: 40,2421 05205 TC ENDOFJOB # SET FOR HIGHER PASS.
014697,000734: 40,2422 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
014698,000735: 40,2423 02433 TC 5BLANK +2
014699,000736: 40,2424 67702 LEGALTST AD NEG1
014700,000737: 40,2425 00006 EXTEND
014701,000738: 40,2426 65205 BZMF ENDOFJOB # ILLEGAL. INREL=0,1
014702,000739: 40,2427 00002 TC Q # LEGAL. INREL GE 2
014703,000740:
014704,000741: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
014705,000742: # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
014706,000743: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
014707,000744:
014708,000745: 40,2430 55202 -1 TS DSPCOUNT # NEEDED FOR BLANKSUB
014709,000746: 40,2431 22002 5BLANK LXCH Q
014710,000747: 40,2432 02221 TC GETINREL
014711,000748: 40,2433 34772 +2 CAF ZERO
014712,000749: 40,2434 50137 INDEX INREL
014713,000750: 40,2435 55204 TS VERBREG # ZERO X, Y, Z REG.
014714,000751: 40,2436 50137 INDEX INREL
014715,000752: 40,2437 55207 TS XREGLP -2
014716,000753: 40,2440 54124 TS CODE
014717,000754: 40,2441 50137 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
014718,000755: 40,2442 44762 CS BIT7 # PROTECT OTHERS
014719,000756: 40,2443 71203 MASK DECBRNCH
014720,000757: 40,2444 77700 MASK BRNCHCON # ZERO LOW 2 BITS.
014721,000758: 40,2445 55203 TS DECBRNCH
014722,000759: 40,2446 50137 INDEX INREL
014723,000760: 40,2447 32463 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
014724,000761: 40,2450 54143 TS COUNT
014725,000762: 40,2451 03161 TC DSPIN
014726,000763: 40,2452 50137 5BLANK1 INDEX INREL
![]() |
Page 333 |
014728,000765: 40,2453 32466 CAF DOUBLK -2
014729,000766: 40,2454 55202 TS DSPCOUNT
014730,000767: 40,2455 02473 TC 2BLANK
014731,000768: 40,2456 44767 CS TWO
014732,000769: 40,2457 27202 ADS DSPCOUNT
014733,000770: 40,2460 02473 TC 2BLANK
014734,000771: 40,2461 50137 INDEX INREL
014735,000772: 40,2462 34317 CAF R1D1 -2
014736,000773: 40,2463 55202 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
014737,000774: 40,2464 00001 TC L # OF REG. JUST BLANKED
014738,000775:
014739,000776: 40,2465 00016 SINBLANK OCT 16 # DEC 14
014740,000777: 40,2466 00005 OCT 5
014741,000778: 40,2467 00004 OCT 4
014742,000779: 40,2470 00015 DOUBLK OCT 15 # DEC 13
014743,000780: 40,2471 00011 OCT 11 # DEC 9
014744,000781: 40,2472 00003 +2 OCT 3
014745,000782: 40,2473 7700 BRNCHCON EQUALS NEG3
014746,000783:
014747,000784: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
014748,000785: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
014749,000786:
014750,000787: 40,2473 31202 2BLANK CA DSPCOUNT
014751,000788: 40,2474 54021 TS SR
014752,000789: 40,2475 44755 CS BLANKCON
014753,000790: 40,2476 00004 INHINT
014754,000791: 40,2477 50021 INDEX SR
014755,000792: 40,2500 57226 XCH DSPTAB
014756,000793: 40,2501 00006 EXTEND
014757,000794: 40,2502 62504 BZMF +2 # IF OLD CONTENTS -, NOUT OK
014758,000795: 40,2503 25221 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
014759,000796: 40,2504 15642 TCF REQ # IF -, NOUT OK
014760,000797: 40,2505 4755 BLANKCON EQUALS BIT12
014761,000798:
![]() |
Page 334 |
014763,000800: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
014764,000801: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
014765,000802: # PASSES.
014766,000803:
014767,000804: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
014768,000805: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
014769,000806: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
014770,000807:
014771,000808: 41,2000 SETLOC PINBALL2
014772,000809: 41,2000 BANK
014773,000810:
014774,000811: 41,2000 COUNT* $$/PIN
014775,000812: 41,2000 41,3513 NVSUBB EQUALS NVSUB1
014776,000813: 41,2000 41,3001 LOADLV1 EQUALS LOADLV
014777,000814: 41,2000 34772 ENTER CAF ZERO
014778,000815: 41,2001 55220 TS CLPASS
014779,000816: 41,2002 34170 CAF ENDINST
014780,000817: 41,2003 54136 TS ENTRET
014781,000818: 41,2004 11216 CCS REQRET
014782,000819: 41,2005 02040 TC ENTPAS0 # IF +, PASS 0
014783,000820: 41,2006 02040 TC ENTPAS0 # IF +, PASS 0
014784,000821: 41,2007 02010 TC +1 # IF -, NOT PASS 0
014785,000822: 41,2010 32036 ENTPASHI CAF MMADREF
014786,000823: 41,2011 61216 AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
014787,000824: 41,2012 00006 EXTEND # AND RECYCLE (DECIDE AT MMCHANG+1).
014788,000825: 41,2013 12025 BZF ACCEPTWD
014789,000826: 41,2014 36214 CAF THREE # IF DEC, L/ 5 CHAR IN FOR DATA MUST BE
014790,000827: 41,2015 71203 MASK DECBRNCH # SCALED (DECEND); IF 5 CHAR IN, DATA
014791,000828: 41,2016 10000 CCS A # HAS ALREADY BEEN SCALED. ANY NUMBER
014792,000829: 41,2017 02021 TC +2 # OF DECIMAL CHARACTERS ARE ACCEPTABLE.SCR
014793,000830: 41,2020 02025 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
014794,000831: 41,2021 11202 CCS DSPCOUNT
014795,000832: 41,2022 02031 TC LT5
014796,000833: 41,2023 02031 TC LT5
014797,000834: 41,2024 02025 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
014798,000835: 41,2025 41216 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
014799,000836: 41,2026 55216 TS REQRET # SET REQRET +.
014800,000837: 41,2027 04417 TC FLASHOFF
014801,000838: 41,2030 01216 TC REQRET
014802,000839:
014803,000840: 41,2031 34772 LT5 CAF ZERO
014804,000841: 41,2032 54154 TS MPAC
014805,000842: 41,2033 04636 TC BANKCALL
014806,000843: 41,2034 60165 CADR DECEND +4
014807,000844: 41,2035 02025 TC ACCEPTWD
014808,000845: 41,2036 03377 MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
014809,000846:
014810,000847: 41,2037 00034 LOWVERB DEC 28 B-14 # LOWER VERB THAT AVOIDS NOUN TEST.
014811,000848:
![]() |
Page 335 |
014813,000850: 41,2040 34772 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
014814,000851: 41,2041 55203 TS DECBRNCH
014815,000852: 41,2042 04261 TC -VD1SET
014816,000853: 41,2043 41204 TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
014817,000854: 41,2044 55244 TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
014818,000855: 41,2045 62037 AD LOWVERB # LOWVERB - VB
014819,000856: 41,2046 00006 EXTEND
014820,000857: 41,2047 62133 BZMF VERBFAN # VERB G/E LOWVERB
014821,000858: 41,2050 00006 TESTNN EXTEND # VERB L/ LOWVERB
014822,000859: 41,2051 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014823,000860: 41,2052 52006 DXCH Z # ROUTINE.
014824,000861: 41,2053 50140 INDEX MIXBR
014825,000862: 41,2054 02054 TC +0
014826,000863: 41,2055 02057 TC +2 # NORMAL
014827,000864: 41,2056 02220 TC MIXNOUN # MIXED
014828,000865: 41,2057 10146 CCS NNADTEM # NORMAL
014829,000866: 41,2060 02131 TC VERBFAN -2 # NORMAL IF +
014830,000867: 41,2061 02350 TC GODSPALM # NOT IN USE IF +0
014831,000868: 41,2062 02066 TC REQADD # SPECIFY MACHINE CADR IF -
014832,000869: 41,2063 25222 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
014833,000870: 41,2064 04313 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014834,000871: 41,2065 02120 TC INTMCTBS +2
014835,000872: 41,2066 34752 REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY
014836,000873: 41,2067 55220 TS CLPASS
014837,000874: 41,2070 44170 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
014838,000875: 41,2071 60136 AD ENTEXIT # FROM EXTERNAL
014839,000876: 41,2072 00006 EXTEND
014840,000877: 41,2073 12075 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
014841,000878: 41,2074 02116 TC INTMCTBS
014842,000879: 41,2075 02304 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
014843,000880: 41,2076 11203 CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
014844,000881: 41,2077 04173 TC ALMCYCLE # FOR MCTBS.
014845,000882: 41,2100 04261 TC -VD1SET
014846,000883: 41,2101 11245 CCS CADRSTOR
014847,000884: 41,2102 02105 TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
014848,000885: 41,2103 02106 TC USEADD # ON IF ENDIDLE NOT = +0.
014849,000886: 41,2104 02105 TC +1
014850,000887: 41,2105 04360 TC FLASHON
014851,000888: 41,2106 57210 USEADD XCH ZREG
014852,000889: 41,2107 04305 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
014853,000890: 41,2110 00006 EXTEND
014854,000891: 41,2111 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014855,000892: 41,2112 52006 DXCH Z # ROUTINE.
014856,000893: 41,2113 02133 TC VERBFAN
014857,000894:
014858,000895: 41,2114 1202 EBANK= DSPCOUNT
014859,000896: 41,2114 02056 64102 LODNNLOC 2CADR LODNNTAB
014860,000897:
014861,000898: 41,2116 30156 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
![]() |
Page 336 |
014863,000900: 41,2117 04305 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
014864,000901: 41,2120 44773 +2 CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
014865,000902: 41,2121 61204 AD VERBREG # CADR TO BE SPECIFIED.
014866,000903: 41,2122 00006 EXTEND
014867,000904: 41,2123 12133 BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
014868,000905: 41,2124 34323 CAF R3D1 # VB NOT = 05. DISPLAY CADR.
014869,000906: 41,2125 55202 TS DSPCOUNT
014870,000907: 41,2126 31222 CA NOUNCADR
014871,000908: 41,2127 03351 TC DSPOCTWD
014872,000909: 41,2130 02133 TC VERBFAN
014873,000910:
014874,000911: 41,2131 64770 -2 AD ONE
014875,000912: 41,2132 04305 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014876,000913: 41,2133 45004 VERBFAN CS LST2CON
014877,000914: 41,2134 61204 AD VERBREG # VERB-LST2CON
014878,000915: 41,2135 10000 CCS A
014879,000916: 41,2136 64770 AD ONE # VERB G/ LST2CON
014880,000917: 41,2137 02141 TC +2
014881,000918: 41,2140 02145 TC VBFANDIR # VERB L/ LST2CON
014882,000919: 41,2141 54154 TS MPAC
014883,000920: 41,2142 04432 TC RELDSP # RELEASE DISPLAY SYST
014884,000921: 41,2143 04655 TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
014885,000922: 41,2144 66000 CADR GOEXTVB
014886,000923: 41,2145 5004 LST2CON EQUALS OCT50 # DEC40-FIRST EXTENDED VERB
014887,000924: 41,2145 51204 VBFANDIR INDEX VERBREG
014888,000925: 41,2146 32150 CAF VERBTAB
014889,000926: 41,2147 04660 TC BANKJUMP
014890,000927:
014891,000928: 41,2150 62350 VERBTAB CADR GODSPALM # VB00 ILLEGAL
014892,000929: 41,2151 62364 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
014893,000930: 41,2152 62372 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
014894,000931: 41,2153 62377 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
014895,000932: 41,2154 62357 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
014896,000933: 41,2155 62352 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
014897,000934: 41,2156 62516 CADR DECDSP # VB06 DECIMAL DISPLAY
014898,000935: 41,2157 60657 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
014899,000936: 41,2160 62350 CADR GODSPALM # VB08 SPARE
014900,000937: 41,2161 62350 CADR GODSPALM # VB09 SPARE
014901,000938: 41,2162 61261 CADR DSPALARM # VB10 SPARE
014902,000939: 41,2163 63224 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
014903,000940: 41,2164 63224 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
014904,000941: 41,2165 63224 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
014905,000942: 41,2166 63224 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
014906,000943: 41,2167 63224 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
014907,000944: 41,2170 63224 CADR MONITOR # VB16 MONITOR DECIMAL
014908,000945: 41,2171 63224 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
014909,000946: 41,2172 62350 CADR GODSPALM # VB18 SPARE
014910,000947: 41,2173 62350 CADR GODSPALM # VB19 SPARE
014911,000948: 41,2174 62350 CADR GODSPALM # VB20 SPARE
014912,000949: 41,2175 62741 CADR ALOAD # VB21 LOAD COMP 1 (R1)
![]() |
Page 337 |
014914,000951: 41,2176 62750 CADR BLOAD # VB22 LOAD COMP 2 (R2)
014915,000952: 41,2177 62765 CADR CLOAD # VB23 LOAD COMP 3 (R3)
014916,000953: 41,2200 62716 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
014917,000954: 41,2201 62611 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
014918,000955: 41,2202 62350 CADR GODSPALM # VB26 SPARE
014919,000956: 41,2203 63341 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
014920,000957: # THE FOLLOWING VERBS MAKE NO NOUN TEST
014921,000958: 41,2204 62350 CADR GODSPALM # VB28 SPARE
014922,000959: 41,2205 62350 CADR GODSPALM # VB29 SPARE
014923,000960: 41,2206 63433 REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
014924,000961: 41,2207 63462 CADR VBRQWAIT # VB31 REQUEST WAITLIST
014925,000962: 41,2210 61323 CADR VBRESEQ # VB32 RESEQUENCE
014926,000963: 41,2211 61301 CADR VBPROC # VB33 PROCEED WITHOUT DATA
014927,000964: 41,2212 61307 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
014928,000965: 41,2213 61432 CADR VBTSTLTS # VB35 TEST LIGHTS
014929,000966: 41,2214 12367 CADR SLAP1 # VB36 FRESH START
014930,000967: 41,2215 63376 CADR MMCHANG # VB37 CHANGE MAJOR MODE
014931,000968: 41,2216 62350 CADR GODSPALM # VB38 SPARE
014932,000969: 41,2217 62350 CADR GODSPALM # VB39 SPARE
014933,000970:
014934,000971: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
014935,000972:
![]() |
Page 338 |
014937,000974:
014938,000975: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
014939,000976: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
014940,000977: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
014941,000978: # MIXTEMP.
014942,000979:
014943,000980: 41,2220 10146 MIXNOUN CCS NNADTEM
014944,000981: 41,2221 02225 TC +4 # + IN USE
014945,000982: 41,2222 02350 TC GODSPALM # +0 NOT IN USE
014946,000983: 41,2223 02225 TC +2 # - IN USE
014947,000984: 41,2224 02225 TC +1 # -0 IN USE
014948,000985: 41,2225 46211 CS SIX
014949,000986: 41,2226 61204 AD VERBREG
014950,000987: 41,2227 00006 EXTEND
014951,000988: 41,2230 62232 BZMF +2 # VERB L/E 6
014952,000989: 41,2231 02133 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
014953,000990: 41,2232 34767 CAF TWO
014954,000991: 41,2233 54117 MIXNN1 TS DECOUNT
014955,000992: 41,2234 62257 AD MIXAD
014956,000993: 41,2235 54145 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
014957,000994: 41,2236 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
014958,000995: 41,2237 30150 CA IDAD1TEM # OF NOUN.
014959,000996: 41,2240 54122 TS NOUNTEM
014960,000997: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
014961,000998: # MINOR PART ONLY.
014962,000999: 41,2241 03033 TC SFRUTMIX # GET SF ROUT NUMBER IN A
014963,001000: 41,2242 02260 TC DPTEST
014964,001001: 41,2243 02245 TC MIXNN2 # NO DP
014965,001002: 41,2244 24122 INCR NOUNTEM # DP GET MINOR PART
014966,001003: 41,2245 30122 MIXNN2 CA NOUNTEM
014967,001004: 41,2246 74347 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
014968,001005: 41,2247 04315 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
014969,001006: 41,2250 50000 INDEX A # PICK UP C(ESUBK) NOT DP
014970,001007: 41,2251 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
014971,001008: 41,2252 50145 INDEX NOUNADD
014972,001009: 41,2253 56000 XCH 0 # STORE IN MIXTEM + K
014973,001010: 41,2254 10117 CCS DECOUNT
014974,001011: 41,2255 02233 TC MIXNN1
014975,001012: 41,2256 02133 TC VERBFAN
014976,001013:
014977,001014: 41,2257 00125 MIXAD TC MIXTEMP
014978,001015:
014979,001016: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
014980,001017: # RETURNS TO L+1 IF NO DP.
014981,001018: # RETURNS TO L+2 IF DP.
014982,001019:
014983,001020: 41,2260 50000 DPTEST INDEX A
014984,001021: 41,2261 12262 TCF +1
014985,001022: 41,2262 00002 TC Q # OCTAL ONLY NO DP
014986,001023: 41,2263 00002 TC Q # FRACT NO DP
![]() |
Page 339 |
014988,001025: 41,2264 00002 TC Q # DEG NO DP
014989,001026: 41,2265 00002 TC Q # ARITH NO DP
014990,001027: 41,2266 16706 TCF DPTEST1 # DP1OUT
014991,001028: 41,2267 16706 TCF DPTEST1 # DP2OUT
014992,001029: 41,2270 00002 TC Q # OPDEG NO DP
014993,001030: 41,2271 16706 TCF DPTEST1 # DP3OUT
014994,001031: 41,2272 00002 TC Q # HMS NO DP
014995,001032: 41,2273 00002 TC Q # M/S NO DP
014996,001033: 41,2274 16706 TCF DPTEST1 # DP4OUT
014997,001034: 41,2275 00002 TC Q # ARITH1 NO DP
014998,001035: 41,2276 00002 TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
014999,001036: 41,2277 16706 TCF DPTEST1 # DPFRACOT
015000,001037: 41,2300 6706 DPTEST1 EQUALS Q+1
015001,001038: 41,2300 34321 REQDATX CAF R1D1
015002,001039: 41,2301 12305 TCF REQCOM
015003,001040: 41,2302 34322 REQDATY CAF R2D1
015004,001041: 41,2303 12305 TCF REQCOM
015005,001042: 41,2304 34323 REQDATZ CAF R3D1
015006,001043: 41,2305 55202 REQCOM TS DSPCOUNT
015007,001044: 41,2306 40002 CS Q
015008,001045: 41,2307 55216 TS REQRET
015009,001046: 41,2310 04636 TC BANKCALL
015010,001047: 41,2311 60431 CADR 5BLANK
015011,001048: 41,2312 04360 TC FLASHON
015012,001049: 41,2313 00136 ENDRQDAT TC ENTEXIT
015013,001050:
015014,001051: 41,2314 30157 -2 CA MPAC +3
015015,001052: 41,2315 55205 -1 TS NOUNREG
015016,001053: 41,2316 56002 UPDATNN XCH Q
015017,001054: 41,2317 54117 TS UPDATRET
015018,001055: 41,2320 00006 EXTEND
015019,001056: 41,2321 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015020,001057: 41,2322 52006 DXCH Z # ROUTINE.
015021,001058: 41,2323 10146 CCS NNADTEM
015022,001059: 41,2324 64770 AD ONE # NORMAL
015023,001060: 41,2325 12330 TCF PUTADD
015024,001061: 41,2326 12331 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
015025,001062: 41,2327 12331 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
015026,001063: 41,2330 04305 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015027,001064: 41,2331 34352 CAF ND1
015028,001065: 41,2332 55202 TS DSPCOUNT
015029,001066: 41,2333 31205 CA NOUNREG
015030,001067: 41,2334 12344 TCF UPDAT1
015031,001068:
015032,001069: 41,2335 30160 -2 CA MPAC +4
015033,001070: 41,2336 55204 -1 TS VERBREG
015034,001071: 41,2337 56002 UPDATVB XCH Q
015035,001072: 41,2340 54117 TS UPDATRET
015036,001073: 41,2341 34351 CAF VD1
015037,001074: 41,2342 55202 TS DSPCOUNT
![]() |
Page 340 |
015039,001076: 41,2343 31204 CA VERBREG
015040,001077: 41,2344 04655 UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN, SINCE
015041,001078: 41,2345 61156 CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
015042,001079: 41,2346 00117 +2 TC UPDATRET
015043,001080:
015044,001081: 41,2347 04173 GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
015045,001082:
015046,001083: 41,2350 04655 GODSPALM TC POSTJUMP
015047,001084: 41,2351 61261 CADR DSPALARM
015048,001085:
![]() |
Page 341 |
015050,001087:
015051,001088: # NOUN TABLES
015052,001089:
015053,001090: # NOUN CODE L/40, NORMAL NOUN CASE. NOUN CODE G/E 40, MIXED NOUN CASE.
015054,001091: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
015055,001092: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR (E OR F) TO
015056,001093: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
015057,001094: # OF LAST MACHINE CADR SUPPLIED.
015058,001095:
015059,001096: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
015060,001097: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
015061,001098:
015062,001099: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
015063,001100:
015064,001101: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
015065,001102: # N-S ARE THE SF ROUTINE CODE NUMBER.
015066,001103: # P-S ARE THE SF CONSTANT CODE NUMBER.
015067,001104:
015068,001105: # MIXED CASE, M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
015069,001106: # N-S ARE THE SF CONSTANT2 CODE NUMBER
015070,001107: # P-S ARE THE SF CONSTANT1 CODE NUMBER
015071,001108: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
015072,001109: # P-S ARE THE SF CONSTANT1 CODE NUMBER
015073,001110: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
015074,001111:
015075,001112: # THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
015076,001113: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
015077,001114: # THE FIRST OF THESE ENTRIES.
015078,001115: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
015079,001116: # THEY ARE LISTED IN ORDER OF ASCENDING K.
015080,001117:
015081,001118: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
015082,001119: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
015083,001120:
015084,001121: # QQQQQRRRRRSSSSS
015085,001122:
015086,001123: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
015087,001124: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
015088,001125: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
015089,001126: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
015090,001127: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
015091,001128:
015092,001129: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
015093,001130: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
015094,001131: # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
015095,001132:
015096,001133: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
015097,001134: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
015098,001135:
015099,001136: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
015100,001137: # BEFORE EACH ENTER. IF NOT, ALARM.
015101,001138:
![]() |
Page 342 |
015103,001140:
015104,001141: # DISPLAY VERBS
015105,001142:
015106,001143: 41,2352 44767 DSPABC CS TWO
015107,001144: 41,2353 02423 TC COMPTEST
015108,001145: 41,2354 50145 INDEX NOUNADD
015109,001146: 41,2355 40002 CS 2
015110,001147: 41,2356 56132 XCH BUF +2
015111,001148: 41,2357 44770 DSPAB CS ONE
015112,001149: 41,2360 02423 TC COMPTEST
015113,001150: 41,2361 50145 INDEX NOUNADD
015114,001151: 41,2362 40001 CS 1
015115,001152: 41,2363 56131 XCH BUF +1
015116,001153: 41,2364 44772 DSPA CS ZERO
015117,001154: 41,2365 02436 TC DCOMPTST
015118,001155: 41,2366 02461 TC TSTFORDP
015119,001156: 41,2367 50145 INDEX NOUNADD
015120,001157: 41,2370 40000 CS 0
015121,001158: 41,2371 02403 TC DSPCOM1
015122,001159: 41,2372 44770 DSPB CS ONE
015123,001160: 41,2373 02436 TC DCOMPTST
015124,001161: 41,2374 50145 INDEX NOUNADD
015125,001162: 41,2375 40001 CS 1
015126,001163: 41,2376 02403 TC DSPCOM1
015127,001164: 41,2377 44767 DSPC CS TWO
015128,001165: 41,2400 02436 TC DCOMPTST
015129,001166: 41,2401 50145 INDEX NOUNADD
015130,001167: 41,2402 40002 CS 2
015131,001168: 41,2403 56130 DSPCOM1 XCH BUF
015132,001169: 41,2404 44767 DSPCOM2 CS TWO # A B C AB ABC
015133,001170: 41,2405 61204 AD VERBREG # -1 -0 +1 +2 +3 IN A
015134,001171: 41,2406 10000 +2 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
015135,001172: 41,2407 02412 TC DSPCOM3
015136,001173: 41,2410 00136 TC ENTEXIT
015137,001174: 41,2411 02412 TC +1
015138,001175: 41,2412 54122 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
015139,001176: 41,2413 50000 INDEX A
015140,001177: 41,2414 34321 CAF R1D1
015141,001178: 41,2415 55202 TS DSPCOUNT
015142,001179: 41,2416 50122 INDEX DISTEM
015143,001180: 41,2417 40130 CS BUF
015144,001181: 41,2420 03351 TC DSPOCTWD
015145,001182: 41,2421 56122 XCH DISTEM
015146,001183: 41,2422 02406 TC DSPCOM2 +2
015147,001184:
015148,001185: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
015149,001186: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
015150,001187:
015151,001188: 41,2423 54123 COMPTEST TS SFTEMP1 # - VERB COMP
015152,001189: 41,2424 22002 LXCH Q
015153,001190: 41,2425 02510 COMPTST1 TC GETCOMP
015154,001191: 41,2426 04333 TC LEFT5
015155,001192: 41,2427 76214 MASK THREE # NOUN COMP
![]() |
Page 343 |
015157,001194: 41,2430 60123 AD SFTEMP1 # NOUN COMP - VERB COMP
015158,001195: 41,2431 10000 CCS A
015159,001196: 41,2432 00001 TC L # NOUN COMP G/ VERB COMP
015160,001197: 41,2433 04151 MONBACK ADRES PASTEVB # CANNOT GET HERE
015161,001198: 41,2434 02350 TC GODSPALM # NOUN COMP L/ VERB COMP
015162,001199: 41,2435 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
015163,001200:
015164,001201: # DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
015165,001202: # IF NOT, IT PERFORMS REGULAR COMPTEST.
015166,001203:
015167,001204: 41,2436 54123 DCOMPTST TS SFTEMP1 # - VERB COMP
015168,001205: 41,2437 22002 LXCH Q
015169,001206: 41,2440 02510 TC GETCOMP
015170,001207: 41,2441 74753 MASK BIT14
015171,001208: 41,2442 10000 CCS A
015172,001209: 41,2443 02350 TC GODSPALM
015173,001210: 41,2444 02425 TC COMPTST1
015174,001211: 41,2445 22002 DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
015175,001212: 41,2446 02510 TC GETCOMP # (BIT4 OF COMP CODE NUMBER). RETURNS
015176,001213: 41,2447 74753 MASK BIT14 # IF NOT. USED BY LOAD VERBS.
015177,001214: 41,2450 10000 CCS A
015178,001215: 41,2451 04173 TC ALMCYCLE
015179,001216: 41,2452 00001 TC L
015180,001217:
015181,001218: # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
015182,001219: # IF NOT, IT RETURNS.
015183,001220:
015184,001221: 41,2453 22002 NOUNTEST LXCH Q
015185,001222: 41,2454 02510 TC GETCOMP
015186,001223: 41,2455 10000 CCS A
015187,001224: 41,2456 00001 TC L
015188,001225: 41,2457 00001 TC L
015189,001226: 41,2460 02350 TC GODSPALM
015190,001227:
015191,001228: 41,2461 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
015192,001229: 41,2462 30146 CA NNADTEM
015193,001230: 41,2463 64770 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015194,001231: 41,2464 00006 EXTEND
015195,001232: 41,2465 12477 BZF CHANDSP
015196,001233: 41,2466 50140 INDEX MIXBR
015197,001234: 41,2467 02467 TC +0
015198,001235: 41,2470 02472 TC +2 # NORMAL
015199,001236: 41,2471 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
015200,001237: 41,2472 03025 TC SFRUTNOR
015201,001238: 41,2473 02260 TC DPTEST
015202,001239: 41,2474 00001 TC L # NO DP
015203,001240: 41,2475 24145 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
015204,001241: 41,2476 00001 TC L
015205,001242:
![]() |
Page 344 |
015207,001244:
015208,001245: 41,2477 31222 CHANDSP CA NOUNCADR
015209,001246: 41,2500 75021 MASK LOW9
015210,001247: 41,2501 00006 EXTEND
015211,001248: 41,2502 50000 INDEX A
015212,001249: 41,2503 00000 READ 0
015213,001250: 41,2504 40000 CS A
015214,001251: 41,2505 12403 TCF DSPCOM1
015215,001252:
015216,001253: 41,2506 00147 COMPICK ADRES NNTYPTEM
015217,001254: 41,2507 00146 ADRES NNADTEM
015218,001255:
015219,001256: 41,2510 50140 GETCOMP INDEX MIXBR # NORMAL MIXED
015220,001257: 41,2511 32505 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
015221,001258: 41,2512 50000 INDEX A
015222,001259: 41,2513 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
015223,001260: 41,2514 74344 MASK HI5 # GET HI5 OF NNTYPTAB (NORM) OF NNADTAB (MIX)
015224,001261: 41,2515 00002 TC Q
015225,001262:
015226,001263: 41,2516 02510 DECDSP TC GETCOMP
015227,001264: 41,2517 04333 TC LEFT5
015228,001265: 41,2520 76214 MASK THREE
015229,001266: 41,2521 54117 TS DECOUNT # COMP NUMBER INTO DECOUNT
015230,001267: 41,2522 54122 DSPDCGET TS DECTEM # PICKS UP DATA
015231,001268: 41,2523 60145 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
015232,001269: 41,2524 50000 INDEX A
015233,001270: 41,2525 40000 CS 0
015234,001271: 41,2526 50122 INDEX DECTEM
015235,001272: 41,2527 57206 XCH XREG # CANT USE BUF SINCE DMP USES IT.
015236,001273: 41,2530 10122 CCS DECTEM
015237,001274: 41,2531 02522 TC DSPDCGET # MORE TO GET
015238,001275: 41,2532 34772 DSPDCPUT CAF ZERO # DISPLAYS DATA
015239,001276: 41,2533 54155 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
015240,001277: 41,2534 54156 TS MPAC +2
015241,001278: 41,2535 50117 INDEX DECOUNT
015242,001279: 41,2536 34321 CAF R1D1
015243,001280: 41,2537 55202 TS DSPCOUNT
015244,001281: 41,2540 50117 INDEX DECOUNT
015245,001282: 41,2541 41206 CS XREG
015246,001283: 41,2542 54154 TS MPAC
015247,001284: 41,2543 03042 TC SFCONUM # 2X (SF CON NUMB) IN A
015248,001285: 41,2544 54123 TS SFTEMP1
015249,001286: 41,2545 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
015250,001287: 41,2546 32560 DCA GTSFOUTL # READING ROUTINE.
015251,001288: 41,2547 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
015252,001289: 41,2550 50140 INDEX MIXBR
015253,001290: 41,2551 02551 TC +0
015254,001291: 41,2552 02555 TC DSPSFNOR
015255,001292: 41,2553 03033 TC SFRUTMIX
![]() |
Page 345 |
015257,001294: 41,2554 02570 TC DECDSP3
015258,001295:
015259,001296: 41,2555 03025 DSPSFNOR TC SFRUTNOR
015260,001297: 41,2556 02570 TC DECDSP3
015261,001298:
015262,001299: 41,2557 1202 EBANK= DSPCOUNT
015263,001300: 41,2557 02114 64102 GTSFOUTL 2CADR GTSFOUT
015264,001301:
015265,001302: 41,2561 04636 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
015266,001303: 41,2562 61072 CADR DSPDECWD
015267,001304: 41,2563 10117 +2 CCS DECOUNT
015268,001305: 41,2564 02566 TC +2
015269,001306: 41,2565 00136 TC ENTEXIT
015270,001307: 41,2566 54117 TS DECOUNT
015271,001308: 41,2567 02532 TC DSPDCPUT # MORE TO DISPLAY
015272,001309:
015273,001310: 41,2570 50000 DECDSP3 INDEX A
015274,001311: 41,2571 32573 CAF SFOUTABR
015275,001312: 41,2572 04660 TC BANKJUMP
015276,001313:
015277,001314: 41,2573 61260 SFOUTABR CADR PREDSPAL # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
015278,001315: 41,2574 62561 CADR DSPDCEND
015279,001316: 41,2575 60531 CADR DEGOUTSF
015280,001317: 41,2576 60563 CADR ARTOUTSF
015281,001318: 41,2577 60574 CADR DP1OUTSF
015282,001319: 41,2600 60601 CADR DP2OUTSF
015283,001320: 41,2601 60505 CADR OPDEGOUT
015284,001321: 41,2602 60603 CADR DP3OUTSF
015285,001322: 41,2603 65137 CADR HMSOUT
015286,001323: 41,2604 65212 CADR M/SOUT
015287,001324: 41,2605 60601 CADR DP2OUTSF
015288,001325: 41,2606 60570 CADR AROUT1SF
015289,001326: 41,2607 60616 CADR 2INTOUT
015290,001327: 41,2610 60633 CADR DPFRACOT
015291,001328:
015292,001329: # THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
015293,001330: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
015294,001331:
015295,001332: 40,2000 SETLOC PINBALL1
015296,001333: 40,2000 BANK
015297,001334: 40,2505 COUNT* $$/PIN
015298,001335:
015299,001336: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
015300,001337:
015301,001338: 40,2505 10154 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
015302,001339: 40,2506 56154 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
015303,001340: 40,2507 02512 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
015304,001341: 40,2510 02521 TC NEGOPT # IF NEG NON ZERO
![]() |
Page 346 |
015306,001343: 40,2511 67702 AD NEG1 # IF NEG ZERO SUBTRACT 1
015307,001344: 40,2512 62562 AD 20BIAS
015308,001345: 40,2513 54154 BIASCOM TS MPAC # TEST FOR OVERFLOW
015309,001346: 40,2514 02517 TC +3 # NO OVFLOW
015310,001347: 40,2515 34752 CAF BIT15 # IF OVFLOW
015311,001348: 40,2516 26154 ADS MPAC
015312,001349: 40,2517 34767 CAF TWO # SET MULTIPLIER TO .45
015313,001350: 40,2520 02532 TC DEGOUTSF +1
015314,001351:
015315,001352: 40,2521 56154 NEGOPT XCH MPAC # NEGATIVE CASE
015316,001353: 40,2522 62562 AD 20BIAS
015317,001354: 40,2523 10000 CCS A
015318,001355: 40,2524 02513 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
015319,001356: 40,2525 71527 NEG.2 OCT -06250 # =.197753906 TRUN BIAS (CANNOT GET HERE)
015320,001357: 40,2526 64770 AD ONE # IF NEG RESTORE SUM
015321,001358: 40,2527 40000 COM # IF NEG 0 LEAVE NEG 0
015322,001359: 40,2530 02513 TC BIASCOM
015323,001360:
015324,001361: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
015325,001362: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
015326,001363:
015327,001364: 40,2531 34772 DEGOUTSF CAF ZERO
015328,001365: 40,2532 54156 +1 TS MPAC +2 # SET INDEX FOR FULL SCALE
015329,001366: 40,2533 10154 CCS MPAC
015330,001367: 40,2534 12546 TCF DEGCOM # NO AUGMENT NEEDED (SFTEMP1,SFTEMP2 ARE 0,
015331,001368: 40,2535 12546 TCF DEGCOM # MPAC IS +)
015332,001369: 40,2536 12537 TCF +1
015333,001370: 40,2537 44752 CS BIT15 # MPAC IS -, MASK OUT SIGN BIT AND ADD
015334,001371: 40,2540 70154 MASK MPAC # AUGMENTER ACCORDING TO C(MPAC +2)
015335,001372: 40,2541 54154 TS MPAC
015336,001373: 40,2542 00006 EXTEND
015337,001374: 40,2543 50156 INDEX MPAC +2
015338,001375: 40,2544 32557 DCA DEGTAB # LOADS SFTEMP1 AND SFTEMP2 WITH DP AUGMENTER
015339,001376: 40,2545 52124 DXCH SFTEMP1 # CONSTANT
015340,001377: 40,2546 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
015341,001378: 40,2547 50156 INDEX MPAC +2 # ADDS AUGMENTER.
015342,001379: 40,2550 32557 DCA DEGTAB
015343,001380: 40,2551 52155 DXCH MPAC # ADJUSTED ANGLE IN A
015344,001381: 40,2552 07256 TC SHORTMP
015345,001382: 40,2553 52124 DXCH SFTEMP1
015346,001383: 40,2554 20155 DAS MPAC
015347,001384: 40,2555 02566 TC SCOUTEND
015348,001385:
015349,001386: 40,2556 05605 DEGTAB OCT 05605 # HI PART OF .18
015350,001387: 40,2557 03656 OCT 03656 # LOW PART OF .18
015351,001388: 40,2560 16314 OCT 16314 # HI PART OF .45
015352,001389: 40,2561 31463 OCT 31463 # LO PART OF .45
015353,001390:
015354,001391: 40,2562 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
015355,001392:
![]() |
Page 347 |
015357,001394:
015358,001395: 40,2563 52124 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
015359,001396: 40,2564 52155 DXCH MPAC
015360,001397: 40,2565 04403 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015361,001398: 40,2566 04655 SCOUTEND TC POSTJUMP
015362,001399: 40,2567 62561 CADR DSPDCEND
015363,001400:
015364,001401: 40,2570 52124 AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
015365,001402: 40,2571 52155 DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
015366,001403: 40,2572 04403 TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
015367,001404: 40,2573 02575 TC L14/OUT
015368,001405:
015369,001406: 40,2574 02607 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015370,001407: 40,2575 56156 L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
015371,001408: 40,2576 56155 XCH MPAC +1 # BY B14.
015372,001409: 40,2577 54154 TS MPAC
015373,001410: 40,2600 02566 TC SCOUTEND
015374,001411:
015375,001412: 40,2601 02607 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
015376,001413: 40,2602 02566 TC SCOUTEND
015377,001414:
015378,001415: 40,2603 02607 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015379,001416: 40,2604 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
015380,001417: 40,2605 03034 TC TPLEFTN # SHIFT LEFT 7.
015381,001418: 40,2606 02566 TC SCOUTEND
015382,001419:
015383,001420: 40,2607 0162 MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
015384,001421:
015385,001422: 40,2607 56002 DPOUT XCH Q
015386,001423: 40,2610 54162 TS MPAC+6
015387,001424: 40,2611 02635 TC READLO # GET FRESH DATA FOR BOTH HI AND LO.
015388,001425: 40,2612 07226 TC TPAGREE # MAKE DP DATA AGREE
015389,001426: 40,2613 07052 TC DMP
015390,001427: 40,2614 00123 ADRES SFTEMP1
015391,001428: 40,2615 00162 TC MPAC+6
015392,001429:
015393,001430: # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
015394,001431: # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
015395,001432: # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
015396,001433: # RXD1-RXD2.
015397,001434:
015398,001435: 40,2616 02431 2INTOUT TC 5BLANK # TO BLANK RXD3
015399,001436: 40,2617 02310 TC +ON # TURN ON + SIGN
015400,001437: 40,2620 30154 CA MPAC
015401,001438: 40,2621 03146 TC DSPDECVN # DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
015402,001439: 40,2622 46214 CS THREE
015403,001440: 40,2623 50117 INDEX DECOUNT
015404,001441: 40,2624 64321 AD R1D1 # RXD4
![]() |
Page 348 |
015406,001443: 40,2625 55202 TS DSPCOUNT
015407,001444: 40,2626 02635 TC READLO # GET 2ND INTEGER
015408,001445: 40,2627 30155 CA MPAC +1
015409,001446: 40,2630 03146 TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
015410,001447: 40,2631 04655 TC POSTJUMP
015411,001448: 40,2632 62563 CADR DSPDCEND +2
015412,001449:
015413,001450: 40,2633 02635 DPFRACOT TC READLO # DP FRACTION TO MPAC,+1
015414,001451: 40,2634 02566 TC SCOUTEND
015415,001452:
015416,001453: # READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
015417,001454: # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
015418,001455: # DOES NOT FORCE TPAGREE.
015419,001456:
015420,001457: 40,2635 56002 READLO XCH Q
015421,001458: 40,2636 54144 TS TEM4
015422,001459: 40,2637 50140 INDEX MIXBR
015423,001460: 40,2640 02640 TC +0
015424,001461: 40,2641 02655 TC RDLONOR
015425,001462: 40,2642 50117 INDEX DECOUNT
015426,001463: 40,2643 30150 CA IDAD1TEM # GET IDADDTAB ENTRY FOR COMP K OF NOUN.
015427,001464: 40,2644 74347 MASK LOW11 # E SUBK
015428,001465: 40,2645 04315 TC SETEBANK # SET EB, LEAVE EADRES IN A.
015429,001466: 40,2646 00006 READLO1 EXTEND # MIXED NORMAL
015430,001467: 40,2647 50000 INDEX A # C(ESUBK) C(E)
015431,001468: 40,2650 30001 DCA 0 # C((E SUBK)+1) C(E+1)
015432,001469: 40,2651 52155 DXCH MPAC
015433,001470: 40,2652 34772 CAF ZERO
015434,001471: 40,2653 54156 TS MPAC +2
015435,001472: 40,2654 00144 TC TEM4
015436,001473:
015437,001474: 40,2655 30145 RDLONOR CA NOUNADD # E
015438,001475: 40,2656 02646 ENDRDLO TC READLO1
015439,001476:
015440,001477:
015441,001478: 42,2000 SETLOC PINBALL3
015442,001479: 42,2000 BANK
015443,001480:
015444,001481: 42,3137 COUNT* $$/PIN
015445,001482: 42,3137 04636 HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
015446,001483: 42,3140 60635 CADR READLO # MPAC+1.
015447,001484: 42,3141 07226 TC TPAGREE # MAKE DP DATA AGREE
015448,001485: 42,3142 03326 TC SEPSECNR # LEAVE FRACT SEC/60 IN MPAC, MPAC+1. LEAVE
015449,001486: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015450,001487: 42,3143 07052 TC DMP # USE ONLY FRACT SEC/60 MOD 60
015451,001488: 42,3144 03200 ADRES SECON2 # MULT BY .06
015452,001489: 42,3145 34323 CAF R3D1 # GIVES CENTI-SEC/10EXP5 MOD 60
015453,001490: 42,3146 55202 TS DSPCOUNT
![]() |
Page 349 |
015455,001492: 42,3147 04636 TC BANKCALL # DISPLAY SEC MOD 60
015456,001493: 42,3150 61072 CADR DSPDECWD
015457,001494: 42,3151 03344 TC SEPMIN # REMOVE REST OF SECONDS
015458,001495: 42,3152 33202 CAF MINCON2 # LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
015459,001496: 42,3153 56154 XCH MPAC # WHOLE HOURS IN MPAC.
015460,001497: 42,3154 55212 TS HITEMOUT # SAVE WHOLE HOURS.
015461,001498: 42,3155 33203 CAF MINCON2 +1
015462,001499: 42,3156 56155 XCH MPAC +1 # USE ONLY FRACT MIN/60 MOD 60
015463,001500: 42,3157 04403 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015464,001501: # MULT BY .0006
015465,001502: 42,3160 34322 CAF R2D1 # GIVES MIN/10EXP5 MOD 60
015466,001503: 42,3161 55202 TS DSPCOUNT
015467,001504: 42,3162 04636 TC BANKCALL # DISPLAY MIN MOD 60
015468,001505: 42,3163 61072 CADR DSPDECWD
015469,001506: 42,3164 00006 EXTEND # MINUTES, SECONDS HAVE BEEN REMOVED
015470,001507: 42,3165 33207 DCA HRCON1
015471,001508: 42,3166 52155 DXCH MPAC
015472,001509: 42,3167 31212 CA HITEMOUT # USE WHOLE HOURS
015473,001510: 42,3170 04403 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
015474,001511: # MULT BY .16384
015475,001512: 42,3171 34321 CAF R1D1 # GIVES HOURS/10EXP5
015476,001513: 42,3172 55202 TS DSPCOUNT
015477,001514: 42,3173 04636 TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
015478,001515: 42,3174 61072 CADR DSPDECWD
015479,001516: 42,3175 00136 TC ENTEXIT
015480,001517:
015481,001518: 42,3176 25660 31742 SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
015482,001519:
015483,001520: 42,3200 01727 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
015484,001521: 42,3201 01217 OCT 01217
015485,001522: 42,3202 00011 MINCON2 OCT 00011 # .0006 FOR MINUTES DISLPAY
015486,001523: 42,3203 32445 +1 OCT 32445
015487,001524: 42,3204 02104 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
015488,001525: 42,3205 10422 OCT 10422
015489,001526: 42,3206 05174 13261 HRCON1 2DEC .16384
015490,001527:
015491,001528: 42,3210 00000 -1 OCT 00000
015492,001529: 42,3211 00062 RNDCON DEC 50 B-14 # *** USED DP WITH PRECEDING ZERO ***
015493,001530:
015494,001531: 42,3212 04636 M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
015495,001532: 42,3213 60635 CADR READLO # MPAC+1.
015496,001533: 42,3214 07226 TC TPAGREE # MAKE DP DATA AGREE
015497,001534: 42,3215 10154 CCS MPAC # IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
015498,001535: 42,3216 03220 TC +2 # DISPLAY 59B59, WITH PROPER SIGN.
015499,001536: 42,3217 03251 TC M/SNORM # MPAC = +0. L/ 59M58.5S
015500,001537: 42,3220 63306 AD M/SCON1 # - HI PART OF (59M58.5S) +1 FOR CCS
015501,001538: 42,3221 10000 CCS A # MAG OF MPAC - HI PART OF (59M58.5S)
015502,001539: 42,3222 03235 TC M/SLIMIT # G/ 59M58.5S
015503,001540: 42,3223 03251 TC M/SNORM # ORIGINAL MPAC = -0. L/ 59M58.5S
015504,001541: 42,3224 03251 TC M/SNORM # L/ 59M58.5S
015505,001542: 42,3225 10155 CCS MPAC +1 # MAG OF MPAC = HI PART OF 59M58.5S
![]() |
Page 350 |
015507,001544: 42,3226 03230 TC +2
015508,001545: 42,3227 03251 TC M/SNORM # MPAC+1 = +0. L/ 59M58.5S
015509,001546: 42,3230 63307 AD M/SCON2 # - LO PART OF (59M58.5S) +1 FOR CCS
015510,001547: 42,3231 10000 CCS A # MAG OF MPAC+1 - LO PART OF (59M58.5S)
015511,001548: 42,3232 03235 TC M/SLIMIT # G/ 59M58.5S
015512,001549: 42,3233 03251 TC M/SNORM # ORIGINAL MPAC+1 = -0. L/ 59M58.5S
015513,001550: 42,3234 03251 TC M/SNORM # L/ 59M58.5S
015514,001551: 42,3235 10154 M/SLIMIT CCS MPAC # = 59M58.5S LIMIT
015515,001552: 42,3236 33311 CAF M/SCON3 # MPAC CANNOT BE +/- 0 AT THIS POINT.
015516,001553: 42,3237 03246 TC +LIMIT # FORCE MPAC, MPAC+1 TO +/- 59M59.5S
015517,001554: 42,3240 43311 CS M/SCON3
015518,001555: 42,3241 54154 TS MPAC # WILL DISPLAY 59M59S IN DSPDECNR
015519,001556: 42,3242 43312 CS M/SCON3 +1
015520,001557: 42,3243 54155 LIMITCOM TS MPAC +1
015521,001558: 42,3244 33310 CAF NORMADR # SET RETURN TO M/SNORM+1.
015522,001559: 42,3245 03327 TC SEPSECNR +1
015523,001560: 42,3246 54154 +LIMIT TS MPAC
015524,001561: 42,3247 33312 CAF M/SCON3 +1
015525,001562: 42,3250 03243 TC LIMITCOM
015526,001563: 42,3251 03313 M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
015527,001564: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
015528,001565: 42,3252 33304 +1 CAF HISECON # USE ONLY FRACT SEC/60 MOD 60
015529,001566: 42,3253 07256 TC SHORTMP # MULT BY .6 + 2EXP-14
015530,001567: 42,3254 46214 CS THREE # GIVES SEC/100 MOD 60
015531,001568: 42,3255 27202 ADS DSPCOUNT # DSPCOUNT ALREADY SET TO RXD1
015532,001569: 42,3256 04636 TC BANKCALL # DISPLAY SEC MOD 60 IN D4D5.
015533,001570: 42,3257 61126 CADR DSPDC2NR
015534,001571: 42,3260 34772 CAF ZERO
015535,001572: 42,3261 54124 TS CODE
015536,001573: 42,3262 44767 CS TWO
015537,001574: 42,3263 50117 INDEX DECOUNT
015538,001575: 42,3264 64321 AD R1D1 # RXD3
015539,001576: 42,3265 54143 TS COUNT
015540,001577: 42,3266 04636 TC BANKCALL # BLANK MIDDLE CHAR
015541,001578: 42,3267 61161 CADR DSPIN
015542,001579: 42,3270 03344 TC SEPMIN # REMOVE REST OF SECONDS
015543,001580: 42,3271 56155 XCH MPAC +1 # LEAVE FRACT MIN/60 IN MPAC+1
015544,001581: 42,3272 00006 EXTEND # USE ONLY FRACT MIN/60 MOD 60
015545,001582: 42,3273 73305 MP HIMINCON # MULT BY .6 + 2EXP-7
015546,001583: 42,3274 52155 DXCH MPAC # GIVES MIN/100 MOD 60
015547,001584: 42,3275 50117 INDEX DECOUNT
015548,001585: 42,3276 34321 CAF R1D1 # RXD1
015549,001586: 42,3277 55202 TS DSPCOUNT
015550,001587: 42,3300 04636 TC BANKCALL # DISPLAY MIN MOD 60 IN D1D2.
015551,001588: 42,3301 61126 CADR DSPDC2NR
015552,001589: 42,3302 04655 TC POSTJUMP
015553,001590: 42,3303 62563 CADR DSPDCEND +2
015554,001591:
015555,001592: 42,3304 23147 HISECON OCT 23147 # .6 + 2EXP-14
015556,001593: 42,3305 23346 HIMINCON OCT 23346 # .6 + 2EXP-7
015557,001594:
![]() |
Page 351 |
015559,001596:
015560,001597: 42,3306 77753 M/SCON1 OCT 77753 # - HI PART OF (59M58.5S) +1
015561,001598: 42,3307 41126 M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
015562,001599: 42,3310 03252 NORMADR ADRES M/SNORM +1
015563,001600: 42,3311 00025 M/SCON3 OCT 00025 # 59M 59.5S
015564,001601: 42,3312 37016 +1 OCT 37016
015565,001602: 42,3313 10155 SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
015566,001603: 42,3314 13323 TCF POSEC # IF -, ROUND BY SUBTRACTING .5 SEC
015567,001604: 42,3315 13323 TCF POSEC # FINDS TIME IN MPAC, MPAC+1
015568,001605: 42,3316 13317 TCF +1 # ROUNDS OFF BY +/- .5 SEC
015569,001606: 42,3317 00006 EXTEND # LEAVES WHOLE MIN IN BIT13 OF
015570,001607: 42,3320 43211 DCS RNDCON -1 # LOTEMOUT AND ABOVE.
015571,001608: 42,3321 20155 SEPSEC1 DAS MPAC # LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
015572,001609: 42,3322 13326 TCF SEPSECNR
015573,001610: 42,3323 00006 POSEC EXTEND
015574,001611: 42,3324 33211 DCA RNDCON -1
015575,001612: 42,3325 13321 TCF SEPSEC1
015576,001613: 42,3326 56002 SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
015577,001614: 42,3327 54144 +1 TS SEPSCRET
015578,001615: 42,3330 07052 TC DMP # MULT BY 2EXP12/6000
015579,001616: 42,3331 03176 ADRES SECON1 # GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
015580,001617: 42,3332 00006 EXTEND # AND BELOW.
015581,001618: 42,3333 30155 DCA MPAC # SAVE MINUTES AND HOURS
015582,001619: 42,3334 53213 DXCH HITEMOUT
015583,001620: 42,3335 04372 TC TPSL1
015584,001621: 42,3336 04372 TC TPSL1 # GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
015585,001622: 42,3337 34772 CAF ZERO
015586,001623: 42,3340 56156 XCH MPAC +2 # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
015587,001624: 42,3341 56155 XCH MPAC +1
015588,001625: 42,3342 56154 XCH MPAC
015589,001626: 42,3343 00144 TC SEPSCRET
015590,001627:
015591,001628: 42,3344 56002 SEPMIN XCH Q # FINDS WHOLE MINUTES IN BIT13
015592,001629: 42,3345 54144 TS SEPMNRET # OF LOTEMOUT AND ABOVE.
015593,001630: 42,3346 31213 CA LOTEMOUT # REMOVES REST OF SECONDS.
015594,001631: 42,3347 00006 EXTEND # LEAVES FRACT MIN/60 IN MPAC+1.
015595,001632: 42,3350 74766 MP BIT3 # LEAVES WHOLE HOURS IN MPAC.
015596,001633: 42,3351 00006 EXTEND # SR 12, THROW AWAY LP.
015597,001634: 42,3352 74754 MP BIT13 # SR 2, TAKE FROM LP. = SL 12.
015598,001635: 42,3353 22155 LXCH MPAC +1 # THIS FORCES BITS 12-1 TO 0 IF +,
015599,001636: # FORCES BITS 12-1 TO 1 IF -.
015600,001637: 42,3354 31212 CA HITEMOUT
015601,001638: 42,3355 54154 TS MPAC
015602,001639: 42,3356 07052 TC DMP # MULT BY 1/15
015603,001640: 42,3357 03204 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
015604,001641: 42,3360 00144 ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
015605,001642:
015606,001643: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
015607,001644: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
![]() |
Page 352 |
015609,001646: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
015610,001647: # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE
015611,001648: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
015612,001649: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
015613,001650:
015614,001651: 40,2000 SETLOC PINBALL1
015615,001652: 40,2000 BANK
015616,001653: 40,2657 COUNT* $$/PIN
015617,001654: 40,2657 50140 DSPDPDEC INDEX MIXBR
015618,001655: 40,2660 02660 TC +0
015619,001656: 40,2661 02663 TC +2 # NORMAL NOUN
015620,001657: 40,2662 03261 TC DSPALARM
015621,001658: 40,2663 00006 EXTEND
015622,001659: 40,2664 50145 INDEX NOUNADD
015623,001660: 40,2665 30001 DCA 0
015624,001661: 40,2666 52155 DXCH MPAC
015625,001662: 40,2667 34321 CAF R1D1
015626,001663: 40,2670 55202 TS DSPCOUNT
015627,001664: 40,2671 07224 TC DPAGREE
015628,001665: 40,2672 03133 TC DSP2DEC
015629,001666: 40,2673 00136 ENDDPDEC TC ENTEXIT
015630,001667:
![]() |
Page 353 |
015632,001669: # LOAD VERBS IF ALARM CONDITION IS DETECTED DURING EXECUTE,
015633,001670: # CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
015634,001671: # DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
015635,001672: # TO EXECUTE OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY 1) DECIMAL MACHINE
015636,001673: # CADR 2) MIXTURE OF OCTAL/DECIMAL DATA 3) OCTAL DATA INTO DECIMAL
015637,001674: # ONLY NOUN 4) DEC DATA INTO OCT ONLY NOUN 5) DATA TOO LARGE FOR SCALE
015638,001675: # 6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8 (2)-(6) ALARM
015639,001676: # AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
015640,001677: # ENTER OF CADR.
015641,001678:
015642,001679: 41,2000 SETLOC PINBALL2
015643,001680: 41,2000 BANK
015644,001681: 41,2611 COUNT* $$/PIN
015645,001682: 41,2611 44767 ABCLOAD CS TWO
015646,001683: 41,2612 02423 TC COMPTEST
015647,001684: 41,2613 02453 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
015648,001685: 41,2614 34353 CAF VBSP1LD
015649,001686: 41,2615 02336 TC UPDATVB -1
015650,001687: 41,2616 02300 TC REQDATX
015651,001688: 41,2617 34354 CAF VBSP2LD
015652,001689: 41,2620 02336 TC UPDATVB -1
015653,001690: 41,2621 02302 TC REQDATY
015654,001691: 41,2622 34615 CAF VBSP3LD
015655,001692: 41,2623 02336 TC UPDATVB -1
015656,001693: 41,2624 02304 TC REQDATZ
015657,001694:
015658,001695: 41,2625 46211 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
015659,001696: 41,2626 03011 TC ALLDC/OC # ALL DEC OR ALL OCT.
015660,001697: 41,2627 00006 EXTEND
015661,001698: 41,2630 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015662,001699: 41,2631 52006 DXCH Z # ROUTINE.
015663,001700: 41,2632 34772 CAF ZERO # X COMP
015664,001701: 41,2633 03071 TC PUTCOM
015665,001702: 41,2634 50145 INDEX NOUNADD
015666,001703: 41,2635 54000 TS 0
015667,001704: 41,2636 34770 CAF ONE # Y COMP
015668,001705: 41,2637 03071 TC PUTCOM
015669,001706: 41,2640 50145 INDEX NOUNADD
015670,001707: 41,2641 54001 TS 1
015671,001708: 41,2642 34767 CAF TWO # Z COMP
015672,001709: 41,2643 03071 TC PUTCOM
015673,001710: 41,2644 50145 INDEX NOUNADD
015674,001711: 41,2645 54002 TS 2
015675,001712: 41,2646 44774 CS SEVEN # IF NOUN 7 HAS JUST BEEN LOADED, SET
015676,001713: 41,2647 61205 AD NOUNREG # FLAG BITS AS SPECIFIED.
015677,001714: 41,2650 00006 EXTEND
015678,001715: 41,2651 12653 BZF +2
015679,001716: 41,2652 03001 TC LOADLV
![]() |
Page 354 |
015681,001718: 41,2653 00004 INHINT
015682,001719: 41,2654 45001 CS OCT30 # IS IT A CHANNEL (30 OR UNDER)
015683,001720: 41,2655 61206 AD XREG
015684,001721: 41,2656 00006 EXTEND
015685,001722: 41,2657 62667 BZMF CHANBITS # YES
015686,001723:
015687,001724: 41,2660 31206 CA XREG # ECADR OF ERASABLE CELL
015688,001725: 41,2661 04306 TC SETNCADR +1 # SET EBANK, NOUNADD
015689,001726:
015690,001727: 41,2662 50145 INDEX NOUNADD
015691,001728: 41,2663 30000 CA 0
015692,001729: 41,2664 54001 TS L
015693,001730: 41,2665 34770 CAF ONE
015694,001731: 41,2666 55206 TS XREG # MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
015695,001732:
015696,001733: 41,2667 64352 CHANBITS AD OCT21
015697,001734: 41,2670 00006 EXTEND
015698,001735: 41,2671 12714 BZF BITSOFF2 # DONT TOUCH CHAN7 (SUPERBANK)
015699,001736:
015700,001737: 41,2672 31210 CA ZREG
015701,001738: 41,2673 00006 EXTEND
015702,001739: 41,2674 62702 BZMF BITSOFF # R3 IS ZERO FOR OFF, NONZERO FOR ON
015703,001740:
015704,001741: 41,2675 31207 CA YREG
015705,001742: 41,2676 00006 EXTEND
015706,001743: 41,2677 51206 INDEX XREG
015707,001744: 41,2700 05000 WOR 0
015708,001745: 41,2701 12706 TCF BITSOFF1
015709,001746:
015710,001747: 41,2702 41207 BITSOFF CS YREG
015711,001748: 41,2703 00006 EXTEND
015712,001749: 41,2704 51206 INDEX XREG
015713,001750: 41,2705 03000 WAND 0
015714,001751:
015715,001752: 41,2706 11206 BITSOFF1 CCS XREG # WAS IT REALLY A CHANNEL
015716,001753: 41,2707 10000 CCS A
015717,001754: 41,2710 12714 TCF BITSOFF2 # YES
015718,001755:
015719,001756: 41,2711 22000 LXCH A
015720,001757: 41,2712 50145 -2 INDEX NOUNADD
015721,001758: 41,2713 54000 TS 0
015722,001759: 41,2714 00003 BITSOFF2 RELINT
015723,001760: 41,2715 03001 TC LOADLV
015724,001761:
015725,001762: 41,2716 5001 OCT30 = BITS4&5
015726,001763: 41,2716 4352 OCT21 = ND1
015727,001764:
015728,001765: 41,2716 44770 ABLOAD CS ONE
015729,001766: 41,2717 02423 TC COMPTEST
015730,001767: 41,2720 02453 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
![]() |
Page 355 |
015732,001769: 41,2721 34353 CAF VBSP1LD
015733,001770: 41,2722 02336 TC UPDATVB -1
015734,001771: 41,2723 02300 TC REQDATX
015735,001772: 41,2724 34354 CAF VBSP2LD
015736,001773: 41,2725 02336 TC UPDATVB -1
015737,001774: 41,2726 02302 TC REQDATY
015738,001775: 41,2727 44773 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
015739,001776: 41,2730 03011 TC ALLDC/OC # ALL DEC OR ALL OCT.
015740,001777: 41,2731 00006 EXTEND
015741,001778: 41,2732 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015742,001779: 41,2733 52006 DXCH Z # ROUTINE.
015743,001780: 41,2734 34772 CAF ZERO # X COMP
015744,001781: 41,2735 03071 TC PUTCOM
015745,001782: 41,2736 50145 INDEX NOUNADD
015746,001783: 41,2737 54000 TS 0
015747,001784: 41,2740 12760 TCF COMBLOAD # Y COMP
015748,001785: 41,2741 02300 ALOAD TC REQDATX
015749,001786: 41,2742 00006 EXTEND
015750,001787: 41,2743 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015751,001788: 41,2744 52006 DXCH Z # ROUTINE.
015752,001789: 41,2745 34772 CAF ZERO # X COMP
015753,001790: 41,2746 03071 TC PUTCOM
015754,001791: 41,2747 12712 TCF BITSOFF2 -2
015755,001792: 41,2750 44770 BLOAD CS ONE
015756,001793: 41,2751 02423 TC COMPTEST
015757,001794: 41,2752 34752 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
015758,001795: 41,2753 55220 TS CLPASS
015759,001796: 41,2754 02302 TC REQDATY
015760,001797: 41,2755 00006 EXTEND
015761,001798: 41,2756 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015762,001799: 41,2757 52006 DXCH Z # ROUTINE.
015763,001800: 41,2760 34770 COMBLOAD CAF ONE
015764,001801: 41,2761 03071 TC PUTCOM
015765,001802: 41,2762 50145 INDEX NOUNADD
015766,001803: 41,2763 54001 TS 1
015767,001804: 41,2764 03001 TC LOADLV
015768,001805:
015769,001806: 41,2765 44767 CLOAD CS TWO
015770,001807: 41,2766 02423 TC COMPTEST
015771,001808: 41,2767 34752 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
015772,001809: 41,2770 55220 TS CLPASS
015773,001810: 41,2771 02304 TC REQDATZ
015774,001811: 41,2772 00006 EXTEND
015775,001812: 41,2773 32115 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
015776,001813: 41,2774 52006 DXCH Z # ROUTINE.
015777,001814: 41,2775 34767 CAF TWO
015778,001815: 41,2776 03071 TC PUTCOM
015779,001816: 41,2777 50145 INDEX NOUNADD
015780,001817: 41,3000 54002 TS 2
015781,001818: 41,3001 34772 LOADLV CAF ZERO
![]() |
Page 356 |
015783,001820: 41,3002 55203 TS DECBRNCH
015784,001821: 41,3003 44772 CS ZERO
015785,001822: 41,3004 55217 TS LOADSTAT
![]() |
Restored trailing period in the following line. — RSB 2017. |
015787,001824: 41,3005 04432 TC RELDSP # RELEASE FOR PRIORITY DISPLAY PROBLEM.
015788,001825: 41,3006 04261 TC -VD1SET
015789,001826: 41,3007 04655 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
015790,001827: 41,3010 61412 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
015791,001828:
015792,001829: 41,3011 54117 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
015793,001830: 41,3012 41203 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
015794,001831: 41,3013 54021 TS SR
015795,001832: 41,3014 40021 CS SR
015796,001833: 41,3015 40021 CS SR # SHIFTED RIGHT 2
015797,001834: 41,3016 10000 CCS A # DEC COMP BITS IN LOW 3
015798,001835: 41,3017 13021 TCF +2 # SOME ONES IN LOW 3
015799,001836: 41,3020 00002 GOQ TC Q # ALL ZEROS. ALL OCTAL. OK.
015800,001837: 41,3021 60117 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
015801,001838: 41,3022 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
015802,001839: 41,3023 16711 BZF TCQ # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP
015803,001840: 41,3024 04173 TC ALMCYCLE # ALARM AND RECYCLE.
015804,001841: 41,3025 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
015805,001842: 41,3026 54114 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
015806,001843: 41,3027 34343 CAF MID5
015807,001844: 41,3030 70147 MASK NNTYPTEM
015808,001845: 41,3031 04324 TC RIGHT5
015809,001846: 41,3032 00114 TC EXITEM # SF ROUTINE NUMBER IN A
015810,001847:
015811,001848: 41,3033 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
015812,001849: 41,3034 54114 TS EXITEM
015813,001850: 41,3035 03063 TC GETTCRLQ
015814,001851: 41,3036 70153 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
015815,001852: 41,3037 50001 INDEX L
015816,001853: 41,3040 00000 TC 0
015817,001854: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015818,001855: 41,3041 00114 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
015819,001856:
015820,001857: 41,3042 56002 SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER)
015821,001858: 41,3043 54114 TS EXITEM
015822,001859: 41,3044 50140 INDEX MIXBR
015823,001860: 41,3045 03045 TC +0
015824,001861: 41,3046 03060 TC CONUMNOR # NORMAL NOUN
015825,001862: 41,3047 03063 TC GETTCRLQ
015826,001863: 41,3050 70147 MASK NNTYPTEM
015827,001864: 41,3051 50001 INDEX L
015828,001865: 41,3052 00000 TC 0
015829,001866: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
015830,001867: 41,3053 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A
015831,001868: 41,3054 00114 TC EXITEM
015832,001869:
015833,001870: 41,3055 03020 DISPLACE TC GOQ
![]() |
Page 357 |
015835,001872: 41,3056 04324 TC RIGHT5
015836,001873: 41,3057 04333 TC LEFT5
015837,001874:
015838,001875: 41,3060 34342 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
015839,001876: 41,3061 70147 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
015840,001877: 41,3062 13053 TCF SFRET
015841,001878: 41,3063 50117 GETTCRLQ INDEX DECOUNT
015842,001879: 41,3064 33055 CAF DISPLACE
015843,001880: 41,3065 54001 TS L # PUT TC GOQ, TC RIGHT5, TC LEFT5 IN L
015844,001881: 41,3066 50117 INDEX DECOUNT
015845,001882: 41,3067 34342 CAF LOW5 # LOW5, MID5, HI5 IN A
015846,001883: 41,3070 00002 TC Q
015847,001884: 41,3071 54117 PUTCOM TS DECOUNT
015848,001885: 41,3072 56002 XCH Q
015849,001886: 41,3073 54115 TS DECRET
015850,001887: 41,3074 34772 CAF ZERO
015851,001888: 41,3075 54162 TS MPAC+6
015852,001889: 41,3076 50117 INDEX DECOUNT
015853,001890: 41,3077 57211 XCH XREGLP
015854,001891: 41,3100 54155 TS MPAC +1
015855,001892: 41,3101 50117 INDEX DECOUNT
015856,001893: 41,3102 57206 XCH XREG
015857,001894: 41,3103 54154 TS MPAC
015858,001895: 41,3104 50140 INDEX MIXBR
015859,001896: 41,3105 03105 TC +0
015860,001897: 41,3106 03133 TC PUTNORM # NORMAL NOUN
015861,001898: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
015862,001899: 41,3107 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
015863,001900: 41,3110 30150 CA IDAD1TEM # OF NOUN.
015864,001901: 41,3111 74347 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
015865,001902: 41,3112 04305 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
015866,001903: 41,3113 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
015867,001904: 41,3114 60117 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
015868,001905: 41,3115 54145 TS NOUNADD
015869,001906: 41,3116 11203 CCS DECBRNCH
015870,001907: 41,3117 03170 TC PUTDECSF # + DEC
015871,001908: 41,3120 02445 TC DCTSTCYC # +0 OCTAL
015872,001909: 41,3121 03033 TC SFRUTMIX # TEST IF DEC ONLY BIT = 1. IF SO,
015873,001910: 41,3122 02260 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
015874,001911: 41,3123 03151 TC PUTCOM2 # NO DP
015875,001912: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
015876,001913: # +0 INTO MAJOR PART. SET NOUNADD FOR
![]() |
Restored trailing period in the following line. — RSB 2017. |
015878,001915: # LOADING OCTAL WORD INTO MINOR PART.
015879,001916: 41,3124 24145 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
015880,001917: 41,3125 30145 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
015881,001918: 41,3126 26117 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
015882,001919: 41,3127 34772 CAF ZERO # NOUNADD SET FOR MINOR PART
015883,001920: 41,3130 50117 INDEX DECOUNT
015884,001921: 41,3131 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
015885,001922: 41,3132 03151 TC PUTCOM2
015886,001923:
![]() |
Page 358 |
015888,001925: 41,3133 04313 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
015889,001926: 41,3134 11203 CCS DECBRNCH
015890,001927: 41,3135 03170 TC PUTDECSF # + DEC
015891,001928: 41,3136 02445 TC DCTSTCYC # +0 OCTAL
015892,001929: 41,3137 03025 TC SFRUTNOR # TEST IF DEC ONLY BIT = 1. IF SO,
015893,001930: 41,3140 02260 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
015894,001931: 41,3141 03145 TC PUTCOM2 -4 # NO DP
015895,001932: 41,3142 34772 CAF ZERO # DP
015896,001933: 41,3143 54117 TS DECOUNT
015897,001934: 41,3144 03124 TC PUTDPCOM
015898,001935:
015899,001936: 41,3145 30146 -4 CA NNADTEM
015900,001937: 41,3146 64770 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
015901,001938: 41,3147 00006 EXTEND
015902,001939: 41,3150 13155 BZF CHANLOAD
015903,001940: 41,3151 56154 PUTCOM2 XCH MPAC
015904,001941: 41,3152 00115 TC DECRET
015905,001942:
015906,001943: 41,3153 1202 EBANK= DSPCOUNT
015907,001944: 41,3153 02122 64102 GTSFINLC 2CADR GTSFIN
015908,001945:
![]() |
Restored trailing period in the following line. — RSB 2017. |
015910,001947: 41,3155 44774 CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
015911,001948: 41,3156 61222 AD NOUNCADR
015912,001949: 41,3157 00006 EXTEND
015913,001950: 41,3160 13001 BZF LOADLV
015914,001951: 41,3161 31222 CA NOUNCADR
015915,001952: 41,3162 75021 MASK LOW9
015916,001953: 41,3163 56154 XCH MPAC
015917,001954: 41,3164 00006 EXTEND
015918,001955: 41,3165 50154 INDEX MPAC
015919,001956: 41,3166 01000 WRITE 0
015920,001957: 41,3167 03001 TC LOADLV
015921,001958:
015922,001959: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
015923,001960:
015924,001961: 41,3170 03042 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
015925,001962: 41,3171 54123 TS SFTEMP1
015926,001963: 41,3172 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
015927,001964: 41,3173 33154 DCA GTSFINLC # READING ROUTINE.
015928,001965: 41,3174 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
015929,001966: 41,3175 50140 INDEX MIXBR
015930,001967: 41,3176 03176 TC +0
015931,001968: 41,3177 03202 TC PUTSFNOR
015932,001969: 41,3200 03033 TC SFRUTMIX
015933,001970: 41,3201 03203 TC PUTDCSF2
015934,001971: 41,3202 03025 PUTSFNOR TC SFRUTNOR
015935,001972:
![]() |
Page 359 |
015937,001974: 41,3203 50000 PUTDCSF2 INDEX A
015938,001975: 41,3204 33206 CAF SFINTABR
015939,001976: 41,3205 04660 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
015940,001977: 41,3206 62347 SFINTABR CADR GOALMCYC # ALARM AND RECYCLE IF DEC LOAD
015941,001978: # WITH OCTAL ONLY NOUN.
015942,001979: 41,3207 60753 CADR BINROUND
015943,001980: 41,3210 60674 CADR DEGINSF
015944,001981: 41,3211 60743 CADR ARTHINSF
015945,001982: 41,3212 60776 CADR DPINSF
015946,001983: 41,3213 61023 CADR DPINSF2
015947,001984: 41,3214 60761 CADR OPTDEGIN
015948,001985: 41,3215 60776 CADR DPINSF # SAME AS ARITHDP1
015949,001986: 41,3216 65361 CADR HMSIN
015950,001987: 41,3217 61261 CADR DSPALARM # MIN/SEC CANT BE LOADED.
015951,001988: 41,3220 61027 CADR DPINSF4
015952,001989: 41,3221 60756 CADR ARTIN1SF
015953,001990: 41,3222 61261 CADR DSPALARM # 2INTOUT CANT BE LOADED.
015954,001991: 41,3223 61007 CADR DPFRACIN
015955,001992:
015956,001993: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
015957,001994: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
015958,001995:
015959,001996: 40,2000 SETLOC PINBALL1
015960,001997: 40,2000 BANK
015961,001998: 40,2674 COUNT* $$/PIN
015962,001999:
015963,002000: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
015964,002001:
015965,002002: 40,2674 07052 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
015966,002003: 40,2675 02737 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
015967,002004: 40,2676 10155 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
015968,002005: 40,2677 34756 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
015969,002006: 40,2700 02702 TC +2 # WHEN SHIFTED LEFT AND ALARM.
015970,002007: 40,2701 44756 CS BIT11
015971,002008: 40,2702 60155 AD MPAC +1
015972,002009: 40,2703 03046 TC 2ROUND +2
015973,002010: 40,2704 04372 TC TPSL1 # LEFT 1
015974,002011: 40,2705 04372 DEGINSF2 TC TPSL1 # LEFT 2
015975,002012: 40,2706 03051 TC TESTOFUF
015976,002013: 40,2707 04372 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
015977,002014: 40,2710 10154 CCS MPAC
015978,002015: 40,2711 02715 TC SIGNFIX # IF +, GO TO SIGNFIX
015979,002016: 40,2712 02715 TC SIGNFIX # IF +0, GO TO SIGNFIX
015980,002017: 40,2713 40000 COM # IF -, USE -MAGNITUDE +1
015981,002018: 40,2714 54154 TS MPAC # IF -0, USE +0
015982,002019: 40,2715 10162 SIGNFIX CCS MPAC+6
015983,002020: 40,2716 02733 TC SGNTO1 # IF OVERFLOW
015984,002021: 40,2717 02727 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
015985,002022: 40,2720 10154 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
015986,002023: 40,2721 04151 MONADR GENADR PASTEVB # CANNOT GET HERE
015987,002024: 40,2722 02731 TC NEG180
![]() |
Page 360 |
015989,002026: 40,2723 02724 TC +1
015990,002027: 40,2724 56154 XCH MPAC
015991,002028: 40,2725 74750 MASK POSMAX
015992,002029: 40,2726 54154 -1 TS MPAC
015993,002030: 40,2727 04655 ENDSCALE TC POSTJUMP
015994,002031: 40,2730 63151 CADR PUTCOM2
015995,002032:
015996,002033: 40,2731 44750 NEG180 CS POSMAX
015997,002034: 40,2732 02726 TC ENDSCALE -1
015998,002035:
015999,002036: 40,2733 40154 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
016000,002037: 40,2734 74750 MASK POSMAX
016001,002038: 40,2735 40000 CS A
016002,002039: 40,2736 02726 TC ENDSCALE -1
016003,002040:
016004,002041: 40,2737 26161 30707 DEGCON1 2DEC 5.555555555 B-3
016005,002042:
016006,002043: 40,2741 21616 07071 DEGCON2 2DEC 2.222222222 B-2
016007,002044:
016008,002045: 40,2743 07052 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016009,002046: 40,2744 00123 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
016010,002047: 40,2745 56156 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
016011,002048: 40,2746 56155 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
016012,002049: 40,2747 56154 XCH MPAC
016013,002050: 40,2750 00006 EXTEND
016014,002051: 40,2751 12753 BZF BINROUND
016015,002052: 40,2752 04173 TC ALMCYCLE # TOO LARGE A LOAD. ALARM AND RECYCLE.
016016,002053: 40,2753 03044 BINROUND TC 2ROUND
016017,002054: 40,2754 03051 TC TESTOFUF
016018,002055: 40,2755 02727 TC ENDSCALE # RETURNS IF NO OF/UF
016019,002056:
016020,002057: 40,2756 07052 ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
016021,002058: 40,2757 00123 ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
016022,002059: 40,2760 02753 TC BINROUND
016023,002060:
016024,002061: 40,2761 10154 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
016025,002062: 40,2762 02766 TC +4
016026,002063: 40,2763 02766 TC +3
016027,002064: 40,2764 04173 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
016028,002065: 40,2765 04173 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
016029,002066: 40,2766 32525 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
016030,002067: 40,2767 26154 ADS MPAC # SUBTRACT BIAS
016031,002068: 40,2770 07052 TC DMP # MULT BY 100 / 45 B-2
016032,002069: 40,2771 02741 ADRES DEGCON2
016033,002070: 40,2772 34755 CAF BIT12 # ROUND AS IN DEGINSF
016034,002071: 40,2773 60155 AD MPAC +1
016035,002072: 40,2774 03046 TC 2ROUND +2
![]() |
Page 361 |
016037,002074: 40,2775 02705 TC DEGINSF2
016038,002075:
016039,002076: 40,2776 07052 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
016040,002077: 40,2777 00123 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
016041,002078: 40,3000 56156 +2 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
016042,002079: 40,3001 60000 DOUBLE
016043,002080: 40,3002 54156 TS MPAC +2
016044,002081: 40,3003 34772 CAF ZERO
016045,002082: 40,3004 60155 AD MPAC +1
016046,002083: 40,3005 03046 TC 2ROUND +2
016047,002084: 40,3006 03051 TC TESTOFUF
016048,002085: 40,3007 50140 DPFRACIN INDEX MIXBR # RETURNS IF NO OF/UF
016049,002086: 40,3010 03010 TC +0
016050,002087: 40,3011 03021 TC DPINORM
016051,002088: 40,3012 30117 CA DECOUNT # MIXED NOUN
016052,002089: 40,3013 60145 DPINCOM AD NOUNADD # MIXED NORMAL
016053,002090: 40,3014 54002 TS Q # E SUBK E
016054,002091: 40,3015 56155 XCH MPAC +1
016055,002092: 40,3016 50002 INDEX Q
016056,002093: 40,3017 54001 TS 1 # PLACE LOW PART IN
016057,002094: 40,3020 02727 TC ENDSCALE # (E SUBK) +1 MIXED
016058,002095: 40,3021 34772 DPINORM CAF ZERO # E +1 NORMAL
016059,002096: 40,3022 03013 TC DPINCOM
016060,002097:
016061,002098: 40,3023 07052 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
016062,002099: 40,3024 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016063,002100: 40,3025 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
016064,002101: 40,3026 13032 TCF +4 # SHIFT LEFT 7
016065,002102: 40,3027 07052 DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
016066,002103: 40,3030 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
016067,002104: 40,3031 34767 CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
016068,002105: 40,3032 03034 TC TPLEFTN # SHIFT LEFT 3.
016069,002106: 40,3033 03000 TC DPINSF +2
016070,002107:
016071,002108: 40,3034 56002 TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
016072,002109: 40,3035 54124 TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
016073,002110: 40,3036 56002 XCH Q # CALL WITH N-1 IN A.
016074,002111: 40,3037 54123 LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
016075,002112: 40,3040 04372 TC TPSL1
016076,002113: 40,3041 10123 CCS SFTEMP1
016077,002114: 40,3042 03037 TC LEFTNCOM
016078,002115: 40,3043 00124 TC SFTEMP2
016079,002116:
016080,002117: 40,3044 56155 2ROUND XCH MPAC +1
016081,002118: 40,3045 60000 DOUBLE
016082,002119: 40,3046 54155 +2 TS MPAC +1
016083,002120: 40,3047 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
![]() |
Page 362 |
016085,002122: 40,3050 14376 TCF TPSL1 +4 # CHECK FOR MPAC OF/UF
016086,002123: 40,3051 30162 TESTOFUF CA MPAC+6 # RETURNS IF NO OF/UF
016087,002124: 40,3052 00006 EXTEND
016088,002125: 40,3053 16711 BZF TCQ
016089,002126: 40,3054 04173 TC ALMCYCLE # UF ALARM AND RECYCLE.
016090,002127:
016091,002128: 42,2000 SETLOC PINBALL3
016092,002129: 42,2000 BANK
016093,002130: 42,3361 COUNT* $$/PIN
016094,002131: 42,3361 41203 HMSIN CS DECBRNCH # CHECK FOR ALL 3.COMPS DEC
016095,002132: 42,3362 74172 MASK OCT34 # BITS 3,4,5
016096,002133: 42,3363 10000 CCS A
016097,002134: 42,3364 03501 TC FORCEV25
016098,002135: 42,3365 07052 TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
016099,002136: 42,3366 03444 ADRES WHOLECON # INTO MPAC, MPAC+1.
![]() |
Restored trailing period in the following two lines. — RSB 2017. |
016101,002138: 42,3367 03453 TC RND/TST # ROUND OFF TO WHOLE HRS IN MPAC+1.
016102,002139: 42,3370 34772 CAF ZERO # ALARM IF MPAC NON ZERO (G/ 16383).
016103,002140: 42,3371 54156 TS MPAC +2
016104,002141: 42,3372 33446 CAF HRCON
016105,002142: 42,3373 54154 TS MPAC
016106,002143: 42,3374 33447 CAF HRCON +1
016107,002144: 42,3375 56155 XCH MPAC +1
016108,002145: 42,3376 07256 TC SHORTMP
016109,002146: 42,3377 03464 TC MPACTST # ALARM IF MPAC NON ZERO (G/ 745)
016110,002147: 42,3400 52156 DXCH MPAC +1 # STORE HOURS CONTRIBUTION
016111,002148: 42,3401 52124 DXCH HITEMIN
016112,002149: 42,3402 31207 CA YREG # PUT YREG, YREGLP INTO MPAC, +1.
016113,002150: 42,3403 23212 LXCH YREGLP
016114,002151: 42,3404 52155 DXCH MPAC
016115,002152: 42,3405 07052 TC DMP
016116,002153: 42,3406 03444 ADRES WHOLECON
016117,002154: 42,3407 03453 TC RND/TST # ROUND OFF TO WHOLE MIN IN MPAC+1
016118,002155: 42,3410 43451 CS 59MIN # ALARM IF MPAC NON ZERO (G/16383)
016119,002156: 42,3411 03470 TC SIZETST # ALARM IF MPAC+1 G/ 59MIN
016120,002157: 42,3412 56155 XCH MPAC +1
016121,002158: 42,3413 00006 EXTEND
016122,002159: 42,3414 73450 MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
016123,002160: 42,3415 20124 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
016124,002161: 42,3416 00006 EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
016125,002162: 42,3417 13421 BZF +2
016126,002163: 42,3420 04173 TC ALMCYCLE
016127,002164: 42,3421 31210 CA ZREG # PUT ZREG, ZREGLP INTO MPAC, +1.
016128,002165: 42,3422 23213 LXCH ZREGLP
016129,002166: 42,3423 52155 DXCH MPAC
016130,002167: 42,3424 07052 TC DMP
016131,002168: 42,3425 03444 ADRES WHOLECON
016132,002169: 42,3426 03453 TC RND/TST # ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
016133,002170: 42,3427 43452 CS 59.99SEC # ALARM IF MPAC NON ZERO (G/163.83 SEC)
016134,002171: 42,3430 03470 TC SIZETST # ALARM IF MPAC+1 G/59.99 SEC
![]() |
Page 363 |
016136,002173: 42,3431 52124 DXCH HITEMIN # ADD IN SECONDS CONTRIBUTION
016137,002174: 42,3432 20155 DAS MPAC # IF THIS DAS OVERFLOWS,
016138,002175: 42,3433 00006 EXTEND # G/ 745 HR, 39 MIN, 14.55 SEC.
016139,002176: 42,3434 13436 BZF +2
016140,002177: 42,3435 04173 TC ALMCYCLE # ALARM AND RECYCLE
016141,002178: 42,3436 07224 TC DPAGREE
016142,002179: 42,3437 52155 DXCH MPAC
016143,002180: 42,3440 50145 INDEX NOUNADD
016144,002181: 42,3441 52001 DXCH 0
016145,002182: 42,3442 04655 TC POSTJUMP
016146,002183: 42,3443 63001 CADR LOADLV
016147,002184:
016148,002185: 42,3444 00006 WHOLECON OCT 00006 # (10EXP5/2EXP14)2EXP14
016149,002186: 42,3445 03240 OCT 03240
016150,002187: 42,3446 00025 HRCON OCT 00025 # 1 HOUR IN CENTI-SEC
016151,002188: 42,3447 37100 +1 OCT 37100
016152,002189: 42,3450 13560 MINCON OCT 13560 # 1 MINUTE IN CENTI-SEC
016153,002190: 42,3451 00073 59MIN OCT 00073 # 59 AS WHOLE
016154,002191: 42,3452 13557 59.99SEC OCT 13557 # 5999 CENTI-SEC
016155,002192:
016156,002193: 42,3453 56156 RND/TST XCH MPAC +2 # ROUNDS MPAC+2 INTO MPAC+1.
016157,002194: 42,3454 60000 DOUBLE # ALARMS IF MPAC NOT 0
016158,002195: 42,3455 54156 TS MPAC +2
016159,002196: 42,3456 34772 CAF ZERO
016160,002197: 42,3457 60155 AD MPAC +1
016161,002198: 42,3460 54155 TS MPAC +1
016162,002199: 42,3461 34772 CAF ZERO
016163,002200: 42,3462 60154 AD MPAC # CANT OVFLOW
016164,002201: 42,3463 56154 XCH MPAC
016165,002202: 42,3464 30154 MPACTST CA MPAC # ALARM IF MPAC NON ZERO
016166,002203: 42,3465 00006 EXTEND
016167,002204: 42,3466 16711 BZF TCQ
016168,002205: 42,3467 04173 TC ALMCYCLE # ALARM AND RECYCLE.
016169,002206: 42,3470 54156 SIZETST TS MPAC +2 # CALLED WITH - CON IN A
016170,002207: 42,3471 10155 CCS MPAC +1 # GET MAG OF MPAC+1
016171,002208: 42,3472 64770 AD ONE
016172,002209: 42,3473 13475 TCF +2
016173,002210: 42,3474 64770 AD ONE
016174,002211: 42,3475 60156 AD MPAC +2
016175,002212: 42,3476 00006 EXTEND # MAG OF MPAC+1 - CON
016176,002213: 42,3477 66711 BZMF TCQ
016177,002214: 42,3500 04173 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
016178,002215: 42,3501 44125 FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
016179,002216: 42,3502 55244 TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
016180,002217: 42,3503 04173 TC ALMCYCLE # VERB. ALARM AND RECYCLE.
016181,002218:
![]() |
Page 364 |
016183,002220:
016184,002221: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
016185,002222: # VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
016186,002223: # ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
016187,002224: # THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
016188,002225: # HE HAS INITIATED THROUGH THE KEYBOARD).
016189,002226:
016190,002227: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
016191,002228: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
016192,002229: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
016193,002230: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
016194,002231: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
016195,002232: # INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
016196,002233: # MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
016197,002234:
016198,002235: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
016199,002236: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
016200,002237: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
016201,002238:
016202,002239: # NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
016203,002240: # VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
016204,002241:
016205,002242: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
016206,002243: # AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
016207,002244:
016208,002245: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
016209,002246:
016210,002247: 41,2000 SETLOC PINBALL2
016211,002248: 41,2000 BANK
016212,002249: 41,3224 COUNT* $$/PIN
016213,002250: 41,3224 44076 MONITOR CS BIT15/14
016214,002251: 41,3225 71222 MASK NOUNCADR
016215,002252: 41,3226 54155 MONIT1 TS MPAC +1 # TEMP STORAGE
016216,002253: 41,3227 40136 CS ENTEXIT
016217,002254: 41,3230 64170 AD ENDINST
016218,002255: 41,3231 10000 CCS A
016219,002256: 41,3232 03241 TC MONIT2
016220,002257: 41,3233 75377 MONREF OCT 75377 # -DEC10,STARTING IN BIT8. CANNOT GET HERE
016221,002258: 41,3234 03241 TC MONIT2
016222,002259: 41,3235 34753 CAF BIT14 # EXTERNALLY INITIATED MONITOR,
016223,002260: 41,3236 26155 ADS MPAC +1 # SET BIT 14 FOR MONSAVE1.
016224,002261: 41,3237 34772 CAF ZERO
016225,002262: 41,3240 55225 TS MONSAVE2 # ZERO NVMONOPT OPTIONS
016226,002263: 41,3241 36043 MONIT2 CAF LOW7
016227,002264: 41,3242 71204 MASK VERBREG
016228,002265: 41,3243 04333 TC LEFT5
016229,002266: 41,3244 54022 TS CYL
016230,002267: 41,3245 40022 CS CYL
016231,002268: 41,3246 56022 XCH CYL
016232,002269: 41,3247 61205 AD NOUNREG
016233,002270: 41,3250 54154 TS MPAC # TEMP STORAGE
016234,002271: 41,3251 34772 CAF ZERO
![]() |
Page 365 |
016236,002273: 41,3252 55215 TS DSPLOCK # +0 INTO DSPLOCK SO MONITOR CAN RUN.
016237,002274: 41,3253 11245 CCS CADRSTOR # TURN OFF KR LITE IF CADRSTOR AND DSPLIST
016238,002275: 41,3254 03256 TC +2 # ARE BOTH EMPTY. (LITE COMES ON IF NEW
016239,002276: 41,3255 04455 TC RELDSP1 # MONITOR IS KEYED IN OVER OLD MONITOR.)
016240,002277: 41,3256 00004 INHINT
016241,002278: 41,3257 11223 CCS MONSAVE
016242,002279: 41,3260 03263 TC +3 # IF MONSAVE WAS +, NO REQUEST
016243,002280: 41,3261 05222 TC TWIDBIT1 # IF MONSAVE WAS 0, REQUEST MONREQ
016244,002281: 41,3262 03267 ADRES MONREQ
016245,002282: 41,3263 52155 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
016246,002283: 41,3264 53224 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
016247,002284: 41,3265 00003 RELINT # SET UP EXTERNAL MONITOR BIT
016248,002285: 41,3266 00136 TC ENTRET
016249,002286:
016250,002287: 41,3267 04366 MONREQ TC LODSAMPT # CALLED BY WAITLIST
016251,002288: 41,3270 03307 TC B15MONCK # CHECK FOR KILLER BIT
016252,002289: 41,3271 03303 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
016253,002290: 41,3272 35016 CAF MONDEL
016254,002291: 41,3273 05233 TCWAIT TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
016255,002292: 41,3274 1202 EBANK= DSPCOUNT
016256,002293: 41,3274 03267 62102 2CADR MONREQ
016257,002294:
016258,002295: 41,3276 34346 CAF CHRPRIO
016259,002296: 41,3277 05121 TCNOVAC TC NOVAC # ENTER EXEC REQUEST FOR MONDO
016260,002297: 41,3300 1202 EBANK= DSPCOUNT
016261,002298: 41,3300 03314 62102 2CADR MONDO
016262,002299:
016263,002300: 41,3302 05314 TC TASKOVER
016264,002301:
016265,002302: 41,3303 34772 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
016266,002303: 41,3304 55223 TS MONSAVE
016267,002304: 41,3305 55224 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
016268,002305: 41,3306 05314 TC TASKOVER # TURN OFF EXTERNAL MONITOR BIT.
016269,002306: 41,3307 5016 MONDEL EQUALS 1SEC
016270,002307: 41,3307 11224 B15MONCK CCS MONSAVE1 # CHECK FOR KILLER BIT=1
016271,002308: 41,3310 13311 TCF +1 # =0
016272,002309: 41,3311 24002 INCR Q # =0
016273,002310: 41,3312 00002 TC Q # =1
016274,002311: 41,3313 00002 TC Q # =1
016275,002312: 41,3314 03307 MONDO TC B15MONCK # CHECK FOR KILLER BIT
016276,002313: 41,3315 05205 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
016277,002314: 41,3316 11215 CCS DSPLOCK
016278,002315: 41,3317 03337 TC MONBUSY # NVSUB IS BUSY
016279,002316: 41,3320 36043 CAF LOW7
016280,002317: 41,3321 71223 MASK MONSAVE
016281,002318: 41,3322 02315 TC UPDATNN -1 # PLACE NOUN INTO NOUNREG AND DISPLAY IT
016282,002319: 41,3323 34171 CAF MID7
016283,002320: 41,3324 71223 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
016284,002321: 41,3325 63233 AD MONREF # -DEC10, STARTING IN BIT8
![]() |
Page 366 |
016286,002323: 41,3326 54023 TS EDOP # RIGHT 7
016287,002324: 41,3327 30023 CA EDOP
016288,002325: 41,3330 55204 TS VERBREG
016289,002326: 41,3331 32433 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
016290,002327: 41,3332 54136 TS ENTRET
016291,002328: 41,3333 44076 CS BIT15/14
016292,002329: 41,3334 71224 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
016293,002330: 41,3335 54156 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
016294,002331: 41,3336 02050 ENDMONDO TC TESTNN # EBANK.
016295,002332:
016296,002333: 41,3337 4076 BIT15/14 EQUALS RELTAB11 # OCT 60000
016297,002334: 4000 SETLOC FFTAG8
016298,002335: 4000 BANK
016299,002336:
016300,002337: 4151 COUNT* $$/PIN
016301,002338: 4151 34171 PASTEVB CAF MID7
016302,002339: 4152 71225 MASK MONSAVE2 # NVMONOPT PASTE OPTION
016303,002340: 4153 00006 EXTEND
016304,002341: 4154 14156 BZF +2
016305,002342: 4155 04157 TC PASTEOPT # PASTE PLEASE VERB FOR NVMONOPT
016306,002343: 4156 31223 CA MONSAVE # PASTE MONITOR VERB - PASTE OPTION IS 0
016307,002344: 4157 54023 PASTEOPT TS EDOP # RIGHT 7
016308,002345: 4160 30023 CA EDOP # PLACE MONITOR VERB OR PLEASE VERB INTO
016309,002346: 4161 04636 TC BANKCALL # VERBREG AND DISPLAY IT.
016310,002347: 4162 62336 CADR UPDATVB -1
016311,002348: 4163 34772 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
016312,002349: 4164 55216 TS REQRET # BE EXECUTED BY OPERATOR.
016313,002350: 4165 31225 CA MONSAVE2
016314,002351: 4166 04264 TC BLANKSUB # PROCESS NVMONOPT BLANK OPTION IF ANY
016315,002352: 4167 04170 TC +1
016316,002353: 4170 05205 ENDPASTE TC ENDOFJOB
016317,002354:
016318,002355: 4171 4170 ENDINST EQUALS ENDPASTE
016319,002356:
016320,002357: 4171 37600 MID7 OCT 37600
016321,002358:
016322,002359: 4172 00034 OCT34 OCT 34
016323,002360: 41,2000 SETLOC PINBALL2
016324,002361: 41,2000 BANK
016325,002362: 41,3337 COUNT* $$/PIN
016326,002363: 41,3337 04356 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
016327,002364: 41,3340 05205 TC ENDOFJOB
016328,002365:
016329,002366: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
016330,002367: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
016331,002368: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
016332,002369:
016333,002370: # FOR BANKS L/E 27, THIS IS ENOUGH.
![]() |
Page 367 |
016335,002372:
016336,002373: # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
016337,002374: # MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
016338,002375: # V23N26 SHOULD BE USED.
016339,002376:
016340,002377: # SUMMARY
016341,002378: # FOR BANKS L/E 27, V27N01E(FCADR)E
016342,002379: # FOR BANKS G/E 30, V23N26E(SUPERBITS)E V27N01E(FCADR)E
016343,002380:
016344,002381: 41,3341 34321 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
016345,002382: 41,3342 55202 TS DSPCOUNT
016346,002383: 41,3343 31252 CA DSPTEM1 +2 # SUPERBANK BITS WERE PRELOADED INTO
016347,002384: 41,3344 54001 TS L # 3RD COMPONENT OF NOUN 26.
016348,002385: 41,3345 31222 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
016349,002386: 41,3346 04671 TC SUPDACAL # CALL WITH FCADR IN A, SUPERBITS IN L.
016350,002387: 41,3347 03351 TC DSPOCTWD
016351,002388: 41,3350 05205 ENDSPF TC ENDOFJOB
016352,002389:
![]() |
Page 368 |
016354,002391: # WORD DISPLAY ROUTINES
016355,002392: 40,2000 SETLOC PINBALL1
016356,002393: 40,2000 BANK
016357,002394: 40,3055 COUNT* $$/PIN
016358,002395: 40,3055 56002 DSPSIGN XCH Q
016359,002396: 40,3056 54144 TS DSPWDRET
016360,002397: 40,3057 10154 CCS MPAC
016361,002398: 40,3060 13070 TCF TCPLON
016362,002399: 40,3061 13070 TCF TCPLON
016363,002400: 40,3062 64770 AD ONE
016364,002401: 40,3063 54154 TS MPAC
016365,002402: 40,3064 02330 TC -ON
016366,002403: 40,3065 40155 CS MPAC +1
016367,002404: 40,3066 54155 TS MPAC +1
016368,002405: 40,3067 00144 TC DSPWDRET
016369,002406: 40,3070 02310 TCPLON TC +ON
016370,002407: 40,3071 00144 TC DSPWDRET
016371,002408:
016372,002409: # DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
016373,002410: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
016374,002411:
016375,002412: 40,3072 56002 DSPDECWD XCH Q
016376,002413: 40,3073 54115 TS WDRET
016377,002414: 40,3074 03055 TC DSPSIGN
016378,002415: 40,3075 00006 EXTEND # ROUND BY 5 EXP-6
016379,002416: 40,3076 32343 DCA DECROUND -1
016380,002417: 40,3077 20155 DAS MPAC
016381,002418: 40,3100 00006 EXTEND
016382,002419: 40,3101 13105 BZF +4
016383,002420: 40,3102 00006 EXTEND
016384,002421: 40,3103 34750 DCA DPOSMAX
016385,002422: 40,3104 52155 DXCH MPAC
016386,002423: 40,3105 34766 CAF FOUR
016387,002424: 40,3106 54137 DSPDCWD1 TS WDCNT
016388,002425: 40,3107 34355 CAF BINCON
016389,002426: 40,3110 07256 TC SHORTMP
016390,002427: 40,3111 30154 CA MPAC
016391,002428: 40,3112 04423 TC CODSTOR
016392,002429: 40,3113 34772 CAF ZERO
016393,002430: 40,3114 56156 XCH MPAC +2
016394,002431: 40,3115 56155 XCH MPAC +1
016395,002432: 40,3116 54154 TS MPAC
016396,002433: 40,3117 10143 CCS COUNT
016397,002434: 40,3120 55202 TS DSPCOUNT
016398,002435: 40,3121 03161 TC DSPIN
016399,002436: 40,3122 10137 CCS WDCNT
016400,002437: 40,3123 03106 TC DSPDCWD1
016401,002438: 40,3124 04261 TC -VD1SET
016402,002439: 40,3125 00115 TC WDRET
016403,002440:
![]() |
Page 369 |
016405,002442:
016406,002443: # DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
016407,002444: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
016408,002445:
016409,002446: 40,3126 56002 DSPDC2NR XCH Q
016410,002447: 40,3127 54115 TS WDRET
016411,002448: 40,3130 03055 TC DSPSIGN
016412,002449: 40,3131 34770 +3 CAF ONE
016413,002450: 40,3132 03106 TC DSPDCWD1
016414,002451:
016415,002452: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
016416,002453: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
016417,002454:
016418,002455: 40,3133 56002 DSP2DEC XCH Q
016419,002456: 40,3134 54115 TS WDRET
016420,002457: 40,3135 34772 CAF ZERO
016421,002458: 40,3136 54124 TS CODE
016422,002459: 40,3137 36214 CAF THREE
016423,002460: 40,3140 03247 TC 11DSPIN # -R2 OFF
016424,002461: 40,3141 34766 CAF FOUR
016425,002462: 40,3142 03247 TC 11DSPIN # +R2 OFF
016426,002463: 40,3143 03055 TC DSPSIGN
016427,002464: 40,3144 34322 CAF R2D1
016428,002465: 40,3145 03106 END2DEC TC DSPDCWD1
016429,002466:
016430,002467: # DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
016431,002468: # DSP LOC SPECIFIED IN DSPCOUNT.
016432,002469: # C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
016433,002470: # DISPLAY CONVERSION.
016434,002471:
016435,002472: 40,3146 00006 DSPDECVN EXTEND
016436,002473: 40,3147 72244 MP VNDSPCON # MULT BY .01
016437,002474: 40,3150 22154 LXCH MPAC # TAKE RESULTS FROM L. (MULT BY 2EXP14).
016438,002475: 40,3151 34772 CAF ZERO
016439,002476: 40,3152 54155 TS MPAC +1
016440,002477: 40,3153 56002 XCH Q
016441,002478: 40,3154 54115 TS WDRET
016442,002479: 40,3155 03131 TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
016443,002480:
016444,002481: 40,3156 03146 GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
016445,002482: 40,3157 04655 TC POSTJUMP # OF UPDATVB.
016446,002483: 40,3160 62346 CADR UPDAT1 +2
016447,002484:
016448,002485: 41,2000 SETLOC PINBALL2
016449,002486: 41,2000 BANK
016450,002487: 41,3351 COUNT* $$/PIN
016451,002488:
016452,002489: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
016453,002490: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
![]() |
Page 370 |
016455,002492:
016456,002493: 41,3351 54022 DSPOCTWD TS CYL
016457,002494: 41,3352 56002 XCH Q
016458,002495: 41,3353 54115 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
016459,002496: 41,3354 34753 CAF BIT14 # TO BLANK SIGNS
016460,002497: 41,3355 27202 ADS DSPCOUNT
016461,002498: 41,3356 34766 CAF FOUR
016462,002499: 41,3357 54137 WDAGAIN TS WDCNT
016463,002500: 41,3360 40022 CS CYL
016464,002501: 41,3361 40022 CS CYL
016465,002502: 41,3362 40022 CS CYL
016466,002503: 41,3363 40000 CS A
016467,002504: 41,3364 74774 MASK DSPMSK
016468,002505: 41,3365 04423 TC CODSTOR
016469,002506: 41,3366 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
016470,002507: 41,3367 55202 TS DSPCOUNT
016471,002508: 41,3370 04655 TC POSTJUMP
016472,002509: 41,3371 61255 CADR DSPOCTIN
016473,002510: 41,3372 10137 OCTBACK CCS WDCNT
016474,002511: 41,3373 03357 TC WDAGAIN # +
016475,002512: 41,3374 04261 DSPLV TC -VD1SET
016476,002513: 41,3375 00115 TC WDRET
016477,002514:
016478,002515: 41,3376 4774 DSPMSK = SEVEN
016479,002516:
016480,002517: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
016481,002518: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
016482,002519: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
016483,002520: # DSPTAB ENTRY INTO DSREL.
016484,002521:
016485,002522: 40,2000 SETLOC PINBALL1
016486,002523: 40,2000 BANK
016487,002524: 40,3161 COUNT* $$/PIN
016488,002525: 40,3161 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
016489,002526: 40,3162 54114 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
016490,002527: 40,3163 34342 CAF LOW5
016491,002528: 40,3164 70143 MASK COUNT
016492,002529: 40,3165 54021 TS SR
016493,002530: 40,3166 56021 XCH SR
016494,002531: 40,3167 54141 TS DSREL
016495,002532: 40,3170 34770 CAF BIT1
016496,002533: 40,3171 70143 MASK COUNT
016497,002534: 40,3172 10000 CCS A
016498,002535: 40,3173 03175 TC +2 # LEFT IF COUNT IS ODD
016499,002536: 40,3174 03211 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
016500,002537: 40,3175 56124 XCH CODE
016501,002538: 40,3176 60000 DOUBLE
016502,002539: 40,3177 60000 DOUBLE
016503,002540: 40,3200 60000 DOUBLE
016504,002541: 40,3201 60000 DOUBLE
![]() |
Page 371 |
016506,002543: 40,3202 60000 DOUBLE
016507,002544: 40,3203 54124 TS CODE
016508,002545: 40,3204 34753 CAF BIT14
016509,002546: 40,3205 70143 MASK COUNT
016510,002547: 40,3206 10000 CCS A
016511,002548: 40,3207 34767 CAF TWO # BIT14 = 1, BLANK SIGN
016512,002549: 40,3210 64770 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
016513,002550: 40,3211 54143 -1 TS COUNT # +0 INTO COUNT FOR RIGHT
016514,002551: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
016515,002552: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
016516,002553: 40,3212 00004 DSPIN1 INHINT
016517,002554: 40,3213 50141 INDEX DSREL
016518,002555: 40,3214 11226 CCS DSPTAB
016519,002556: 40,3215 03217 TC +2 # IF +
016520,002557: 40,3216 00104 ERCON OCT 104 # CHAN 11, BITS 3,7. CANNOT GET HERE
016521,002558: 40,3217 64770 AD ONE # IF -
016522,002559: 40,3220 54142 TS DSMAG
016523,002560: 40,3221 50143 INDEX COUNT
016524,002561: 40,3222 73243 MASK DSMSK
016525,002562: 40,3223 00006 EXTEND
016526,002563: 40,3224 60124 SU CODE
016527,002564: 40,3225 00006 EXTEND
016528,002565: 40,3226 13241 BZF DSLV # SAME
016529,002566: 40,3227 50143 DFRNT INDEX COUNT
016530,002567: 40,3230 43243 CS DSMSK # MASK WITH 77740,76037,75777, OR 74037
016531,002568: 40,3231 70142 MASK DSMAG
016532,002569: 40,3232 60124 AD CODE
016533,002570: 40,3233 40000 CS A
016534,002571: 40,3234 50141 INDEX DSREL
016535,002572: 40,3235 57226 XCH DSPTAB
016536,002573: 40,3236 00006 EXTEND
016537,002574: 40,3237 63241 BZMF DSLV # DSPTAB ENTRY WAS -
016538,002575: 40,3240 25221 INCR NOUT # DSPTAB ENTRY WAS +
016539,002576: 40,3241 00003 DSLV RELINT
016540,002577: 40,3242 00114 TC DSEXIT
016541,002578:
016542,002579: 40,3243 00037 DSMSK OCT 37
016543,002580: 40,3244 01740 OCT 1740
016544,002581: 40,3245 02000 OCT 2000
016545,002582: 40,3246 03740 OCT 3740
016546,002583:
016547,002584: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
016548,002585: # BIT11 OF CODE.
016549,002586:
016550,002587: 40,3247 54141 11DSPIN TS DSREL
016551,002588: 40,3250 34767 CAF TWO
016552,002589: 40,3251 54143 TS COUNT
016553,002590: 40,3252 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
016554,002591: 40,3253 54114 TS DSEXIT
![]() |
Page 372 |
016556,002593: 40,3254 03212 TC DSPIN1
016557,002594:
016558,002595: 40,3255 03161 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
016559,002596: 40,3256 04655 TC POSTJUMP
016560,002597: 40,3257 63372 ENDSPOCT CADR OCTBACK
016561,002598:
016562,002599: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
016563,002600: # ABORT WITH 21501
016564,002601: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
016565,002602: # DO TC ENTRET.
016566,002603:
016567,002604: 40,3260 04261 PREDSPAL TC -VD1SET
016568,002605: 40,3261 43431 DSPALARM CS NVSBENDL
016569,002606: 40,3262 60136 AD ENTEXIT
016570,002607: 40,3263 00006 EXTEND
016571,002608: 40,3264 13277 BZF CHARALRM +2
016572,002609: 40,3265 42721 CS MONADR # IF THIS IS A MONITOR, KILL IT
016573,002610: 40,3266 60136 AD ENTEXIT
016574,002611: 40,3267 00006 EXTEND
016575,002612: 40,3270 13272 BZF +2
016576,002613: 40,3271 03275 TC CHARALRM
016577,002614: 40,3272 04235 TC KILMONON
016578,002615: 40,3273 04362 TC FALTON
016579,002616: 40,3274 04151 TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
016580,002617: 40,3275 04362 CHARALRM TC FALTON # NOT NVSUB INITIATED. TURN ON OPR ERROR
016581,002618: 40,3276 05205 TC ENDOFJOB
016582,002619: 40,3277 05726 +2 TC POODOO
016583,002620: 40,3300 21501 OCT 21501 # KEYBOARD + ALARM DISPLAY DURING NVSUB.
016584,002621:
016585,002622: # ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
016586,002623: # WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
016587,002624: # THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
016588,002625: # MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
016589,002626: # FOR MM CODE.
016590,002627:
016591,002628: 4000 SETLOC FFTAG8
016592,002629: 4000 BANK
016593,002630: 4173 COUNT* $$/PIN
016594,002631: 4173 04362 ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
016595,002632: 4174 41244 CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
016596,002633: 4175 55216 TS REQRET # SET FOR ENTPAS0
016597,002634: 4176 04636 TC BANKCALL # PUTS ORIGINAL VERB INTO VERBREG AND
016598,002635: 4177 62336 CADR UPDATVB -1 # DISPLAYS IT IN VERB LIGHTS.
016599,002636: 4200 04655 ENTERJMP TC POSTJUMP
016600,002637: 4201 62000 ENDALM CADR ENTER
016601,002638:
016602,002639: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
![]() |
Page 373 |
016604,002641: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
016605,002642: # MM LIGHTS.
016606,002643: # IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
016607,002644: # IF NOT, IT RECYCLES.
016608,002645:
016609,002646: 41,2000 SETLOC PINBALL2
016610,002647: 41,2000 BANK
016611,002648: 41,3376 COUNT* $$/PIN
016612,002649: 41,3376 03417 MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
016613,002650: # IF THIS MOVES AT ALL, MUST CHANGE
016614,002651: # MMADREF AT ENTPASHI.
016615,002652: 41,3377 34764 +1 CAF BIT5 # OCT20 = ND2.
016616,002653: 41,3400 61202 AD DSPCOUNT # DSPCOUNT MUST = -ND2.
016617,002654: 41,3401 00006 EXTEND # DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
016618,002655: 41,3402 13404 BZF +2
016619,002656: 41,3403 04173 TC ALMCYCLE # DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
016620,002657: 41,3404 34772 CAF ZERO # DSPCOUNT = -ND2.
016621,002658: 41,3405 57205 XCH NOUNREG
016622,002659: 41,3406 54154 TS MPAC
016623,002660: 41,3407 34352 CAF ND1
016624,002661: 41,3410 55202 TS DSPCOUNT
016625,002662: 41,3411 04636 TC BANKCALL
016626,002663: 41,3412 60473 CADR 2BLANK
016627,002664: 41,3413 04261 TC -VD1SET
016628,002665: 41,3414 30154 CA MPAC
016629,002666: 41,3415 04655 TC POSTJUMP
016630,002667: 41,3416 10007 CADR MODROUTB # GO THRU STANDARD LOC.
016631,002668:
016632,002669: 41,3417 04,2007 MODROUTB = V37
016633,002670: 41,3417 40002 REQMM CS Q
016634,002671: 41,3420 55216 TS REQRET
016635,002672: 41,3421 34352 CAF ND1
016636,002673: 41,3422 55202 TS DSPCOUNT
016637,002674: 41,3423 34772 CAF ZERO
016638,002675: 41,3424 55205 TS NOUNREG
016639,002676: 41,3425 04636 TC BANKCALL
016640,002677: 41,3426 60473 CADR 2BLANK
016641,002678: 41,3427 04360 TC FLASHON
016642,002679: 41,3430 34770 CAF ONE
016643,002680: 41,3431 55203 TS DECBRNCH # SET FOR DEC
016644,002681: 41,3432 00136 TC ENTEXIT
016645,002682:
016646,002683: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
016647,002684: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016648,002685: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016649,002686: # COMPONENT 1 PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
016650,002687: # COMPONENT 2 JOB ADRES (12 BIT)
016651,002688: # COMPONENT 3 BBCON
016652,002689:
![]() |
Page 374 |
016654,002691:
016655,002692: 41,3433 34770 VBRQEXEC CAF BIT1
016656,002693: 41,3434 71016 MASK N26/PRI
016657,002694: 41,3435 10000 CCS A
016658,002695: 41,3436 03460 TC SETVAC # IF BIT1 = 1, FINDVAC
016659,002696: 41,3437 33277 CAF TCNOVAC # IF BIT1 = 0, NOVAC
016660,002697: 41,3440 54154 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
016661,002698: 41,3441 37660 CA PRIO37
016662,002699: 41,3442 71016 MASK N26/PRI
016663,002700: 41,3443 54160 -1 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
016664,002701: 41,3444 04432 REQUESTC TC RELDSP
016665,002702: 41,3445 31016 CA N26/PRI
016666,002703: 41,3446 00006 EXTEND
016667,002704: 41,3447 12350 BZF GODSPALM # OP ERROR AND EOJ IF R1 OF N26 = 0
016668,002705: 41,3450 34170 CA ENDINST
016669,002706: 41,3451 54157 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
016670,002707: 41,3452 00006 EXTEND
016671,002708: 41,3453 31020 DCA N26/2CAD # JOB ADRES INTO MPAC+1
016672,002709: 41,3454 52156 DXCH MPAC +1 # BBCON INTO MPAC+2
016673,002710: 41,3455 30160 CA MPAC +4 # PRIO IN A
016674,002711: 41,3456 00004 INHINT
016675,002712: 41,3457 00154 TC MPAC
016676,002713:
016677,002714: 41,3460 34345 SETVAC CAF TCFINDVC
016678,002715: 41,3461 03440 TC REQEX1
016679,002716:
016680,002717: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
016681,002718: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
016682,002719: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
016683,002720: # COMPONENT 1 DELAY (LOW BITS)
016684,002721: # COMPONENT 2 TASK ADRES (12 BIT)
016685,002722: # COMPONENT 3 BBCON
016686,002723:
016687,002724: 41,3462 33273 VBRQWAIT CAF TCWAIT
016688,002725: 41,3463 54154 TS MPAC # TC WAITLIST INTO MPAC
016689,002726: 41,3464 31016 CA N26/PRI # TIME DELAY
016690,002727: 41,3465 03443 ENDRQWT TC REQUESTC -1
016691,002728:
016692,002729: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
016693,002730: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
016694,002731: # LEAVE IT IN A, INHINT AND TC MPAC.
016695,002732:
016696,002733: 40,2000 SETLOC PINBALL1
016697,002734: 40,2000 BANK
016698,002735: 40,3301 COUNT* $$/PIN
016699,002736: 40,3301 44770 VBPROC CS ONE
016700,002737: 40,3302 55217 +1 TS LOADSTAT
016701,002738: 40,3303 04235 TC KILMONON # TURN ON KILL MONITOR BIT
016702,002739: 40,3304 04432 TC RELDSP
016703,002740: 40,3305 04417 TC FLASHOFF
![]() |
Page 375 |
016705,002742: 40,3306 03412 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
016706,002743:
016707,002744: 40,3307 44767 VBTERM CS TWO
016708,002745: 40,3310 03302 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
016709,002746:
016710,002747: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
016711,002748: # EXECUTIVE CONTROL, WITH CHRPRIO.
016712,002749:
016713,002750: 40,3311 41204 PROCKEY CS VERBREG # DONT ALLOW PROCEED DURING LOAD.
016714,002751: 40,3312 64354 AD VBSP2LD
016715,002752: 40,3313 00006 EXTEND
016716,002753: 40,3314 26000 DIM A
016717,002754: 40,3315 00006 EXTEND
016718,002755: 40,3316 13275 BZF CHARALRM
016719,002756: 40,3317 34772 PROCKEY1 CAF ZERO # SET REQRET FOR ENTER PASS 0.
016720,002757: 40,3320 55216 TS REQRET
016721,002758: 40,3321 04261 TC -VD1SET
016722,002759: 40,3322 03301 TC VBPROC
016723,002760:
016724,002761: # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
016725,002762: # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
016726,002763: # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
016727,002764: # OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
016728,002765:
016729,002766: 40,3323 44772 VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
016730,002767: 40,3324 03302 TC VBPROC +1
016731,002768:
016732,002769: # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
016733,002770: # END OF LOAD.
016734,002771:
![]() |
Page 376 |
016736,002773:
016737,002774: # KEY RELEASE ROUTINE
016738,002775:
016739,002776: # THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
016740,002777:
016741,002778: # THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
016742,002779: # UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
016743,002780: # THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
016744,002781: # THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
016745,002782:
016746,002783: # IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
016747,002784: # AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
016748,002785: # USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
016749,002786:
016750,002787: # IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
016751,002788: # TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
016752,002789: # NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
016753,002790: # THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
016754,002791: # RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
016755,002792: # OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
016756,002793: # INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
016757,002794: # RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
016758,002795: # THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
016759,002796: # INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
016760,002797: # SUBROUTINES.
016761,002798:
016762,002799: 40,3325 44766 VBRELDSP CS BIT3
016763,002800: 40,3326 00006 EXTEND
016764,002801: 40,3327 03011 WAND DSALMOUT # TURN OFF UPACT LITE
016765,002802: 40,3330 10115 CCS 21/22REG # OLD DSPLOCK
016766,002803: 40,3331 34753 CAF BIT14
016767,002804: 40,3332 71224 MASK MONSAVE1 # EXTERNAL MONITOR BIT (EMB)
016768,002805: 40,3333 10000 CCS A
016769,002806: 40,3334 03343 TC UNSUSPEN # OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
016770,002807: 40,3335 04432 TSTLTS4 TC RELDSP # NOT UNSUSPENDING EXTERNAL MONITOR,
016771,002808: 40,3336 11245 CCS CADRSTOR # RELEASE DISPLAY SYSTEM AND
016772,002809: 40,3337 03341 TC +2 # DO RE-ESTABLISH IF CADRSTOR IS FULL.
016773,002810: 40,3340 05205 TC ENDOFJOB
016774,002811: 40,3341 04655 TC POSTJUMP
016775,002812: 40,3342 21275 CADR PINBRNCH
016776,002813: 40,3343 34772 UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
016777,002814: 40,3344 55215 TS DSPLOCK # JUST UNSUSPEND IT BY CLEARING DSPLOCK.
016778,002815: 40,3345 11245 CCS CADRSTOR # TURN KEY RELEASE LIGHT OFF IF BOTH
016779,002816: 40,3346 05205 TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
016780,002817: 40,3347 04455 TC RELDSP1
016781,002818: 40,3350 05205 TC ENDOFJOB
016782,002819:
![]() |
Page 377 |
016784,002821:
016785,002822: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
016786,002823: # USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
016787,002824: # TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
016788,002825: # PLACE 0VVVVVVVNNNNNNN INTO A.
016789,002826: # V-S ARE THE 7 BIT VERB CODE. N-S ARE THE 7 BIT NOUN CODE.
016790,002827:
016791,002828: # IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
016792,002829: # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
016793,002830: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016794,002831:
016795,002832: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
016796,002833: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
016797,002834:
016798,002835: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
016799,002836: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
016800,002837: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
016801,002838: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
016802,002839: # FURTHER ACTION).
016803,002840:
016804,002841: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
016805,002842: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
016806,002843: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
016807,002844: # ALARM CONDITION BEFORE RETURN TO CALLER.
016808,002845:
016809,002846: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
016810,002847: # KEY, EXCEPT ERROR LIGHT RESET
016811,002848: # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
016812,002849: # PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
016813,002850: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
016814,002851: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
016815,002852: # MONITOR SET UP.
016816,002853:
016817,002854: # THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
016818,002855: # INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
016819,002856:
016820,002857: # A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
016821,002858: # MONITOR.
016822,002859:
016823,002860: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
016824,002861: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
016825,002862:
016826,002863: # NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
016827,002864: # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
016828,002865: # ACTION IS DESIRED OF OPERATOR INTO THE REGISTERS REFERRED TO BY THE
016829,002866: # :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
016830,002867: # NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
016831,002868: # LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
016832,002869: # LIGHTS.
016833,002870:
016834,002871: # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
![]() |
Page 378 |
016836,002873: # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
016837,002874: # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
016838,002875: # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
016839,002876: # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
016840,002877: # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
016841,002878: # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
016842,002879: # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
016843,002880: # BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
016844,002881: # THE PARAMETER IN L HAS NO EFFECT.
016845,002882:
016846,002883: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
016847,002884: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
016848,002885:
016849,002886: 4000 SETLOC FFTAG8
016850,002887: 4000 BANK
016851,002888: 4202 COUNT* $$/PIN
016852,002889: 4202 22007 NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
016853,002890: 4203 54123 NVMONOPT TS NVTEMP
016854,002891: 4204 23242 LXCH NVQTEM
016855,002892: 4205 22002 LXCH Q
016856,002893: 4206 04226 TC EMBDSPCK # CHECK FOR DSP SYST AVAILABLE
016857,002894: 4207 23242 LXCH NVQTEM # 2+ CALLING LOC INTO NVQTEM
016858,002895: 4210 23225 LXCH MONSAVE2 # STORE NVMONOPT OPTIONS
016859,002896: 4211 04235 TC KILMONON # TURN ON KILL MONITOR BIT
016860,002897: 4212 34223 NVSUBCOM CAF NVSBBBNK
016861,002898:
016862,002899: 4213 56006 XCH BBANK
016863,002900: 4214 00006 EXTEND # SAVE OLD SUPERBITS
016864,002901: 4215 04007 ROR SUPERBNK
016865,002902: 4216 55243 TS NVBNKTEM
016866,002903: 4217 34223 CAF PINSUPBT
016867,002904: 4220 00006 EXTEND
016868,002905: 4221 01007 WRITE SUPERBNK
016869,002906: 4222 03513 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
016870,002907: 4223 1202 EBANK= DSPCOUNT
016871,002908: 4223 62102 NVSBBBNK BBCON NVSUB1
016872,002909:
016873,002910: 4224 4223 PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
016874,002911:
016875,002912: 4224 53243 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
016876,002913: 4225 05214 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
016877,002914:
016878,002915: 4226 34753 EMBDSPCK CAF BIT14
016879,002916: 4227 71224 MASK MONSAVE1 # EXTERNAL MONITOR BIT
016880,002917: 4230 61215 AD DSPLOCK
016881,002918: 4231 10000 CCS A
016882,002919: 4232 00001 TC L # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016883,002920: 4233 24001 INCR L # DSP SYST OK. SET RET TO 2+ CALLING LOC
016884,002921: 4234 00002 TC Q
016885,002922: 41,2000 SETLOC PINBALL2
![]() |
Page 379 |
016887,002924:
016888,002925: 41,2000 COUNT* $$/PIN
016889,002926: 41,2000 BANK
016890,002927:
016891,002928: # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
016892,002929: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
016893,002930:
016894,002931: 41,3466 64774 BLANKDSP AD SEVEN # 7,8,9,OR 10 (A HAD 0,1,2,OR 3)
016895,002932: 41,3467 00004 INHINT
016896,002933: 41,3470 54124 +2 TS CODE # BLANK SPECIFIED DSPTABS
016897,002934: 41,3471 44755 CS BIT12
016898,002935: 41,3472 50124 INDEX CODE
016899,002936: 41,3473 57226 XCH DSPTAB
016900,002937: 41,3474 10000 CCS A
016901,002938: 41,3475 25221 INCR NOUT
016902,002939: 41,3476 03477 TC +1
016903,002940: 41,3477 10124 CCS CODE
016904,002941: 41,3500 03470 TC BLANKDSP +2
016905,002942: 41,3501 00003 RELINT
016906,002943: 41,3502 50123 INDEX NVTEMP
016907,002944: 41,3503 03510 TC +5
016908,002945: 41,3504 03505 TC +1 # NVTEMP HAS -4 (NEVER TOUCH MODREG)
016909,002946: 41,3505 55204 TS VERBREG # -3
016910,002947: 41,3506 55205 TS NOUNREG # -2
016911,002948: 41,3507 55220 TS CLPASS # -1
016912,002949: 41,3510 04261 TC -VD1SET
016913,002950: 41,3511 04417 TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
016914,002951: 41,3512 03534 TC ENTSET -2 # ZEROS REQRET
016915,002952:
016916,002953: 41,3513 33536 NVSUB1 CAF ENTSET # IN BANK
016917,002954: 41,3514 54136 TS ENTRET # SET RETURN TO NVSUBEND
016918,002955: 41,3515 10123 CCS NVTEMP # WHAT NOW
016919,002956: 41,3516 03522 TC +4 # NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016920,002957: 41,3517 02350 TC GODSPALM
016921,002958: 41,3520 03466 TC BLANKDSP # BLANK DISPLAY AS SPECIFIED
016922,002959: 41,3521 02350 TC GODSPALM
016923,002960: 41,3522 36043 CAF LOW7
016924,002961: 41,3523 70123 MASK NVTEMP
016925,002962: 41,3524 54157 TS MPAC +3 # TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
016926,002963: 41,3525 30123 CA NVTEMP # USES MPAC, +1, +2
016927,002964: 41,3526 54023 TS EDOP # RIGHT 7
016928,002965: 41,3527 30023 CA EDOP
016929,002966: 41,3530 54160 TS MPAC +4 # TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
016930,002967: # USES MPAC, +1, +2).
016931,002968: 41,3531 10157 CCS MPAC +3 # TEST NOUN
016932,002969: 41,3532 03537 TC NVSUB2 # IF NOUN NOT +0, GO ON
016933,002970: 41,3533 02335 TC UPDATVB -2 # IF NOUN=+0, DISPLAY VERB, THEN RETURN
016934,002971: 41,3534 34772 -2 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
016935,002972: 41,3535 55216 TS REQRET # BE EXECUTED BY OPERATOR.
016936,002973: 41,3536 04224 ENTSET TC NVSUBEND
016937,002974: 41,3537 10160 NVSUB2 CCS MPAC +4 # TEST VERB
016938,002975: 41,3540 13543 TCF +3 # IF VERB NOT +0, GO ON
![]() |
Page 380 |
016940,002977: 41,3541 02314 TC UPDATNN -2 # IF VERB=+0, DISPLAY NOUN. THEN RETURN
016941,002978: 41,3542 04224 TC NVSUBEND
016942,002979: 41,3543 30156 CA MPAC +2 # TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
016943,002980: 41,3544 54161 TS MPAC +5 # USES MPAC, +1, +2)
016944,002981: 41,3545 02335 TC UPDATVB -2 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
016945,002982: 41,3546 02314 TC UPDATNN -2 # BOTH AND GO TO ENTPAS0.
016946,002983: 41,3547 34772 CAF ZERO
016947,002984: 41,3550 55217 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
016948,002985: 41,3551 55220 TS CLPASS
016949,002986: 41,3552 55216 TS REQRET # SET REQRET FOR PASS 0.
016950,002987: 41,3553 30161 CA MPAC +5 # RESTORES MACH CADR TO BE SPEC TO MPAC+2
016951,002988: 41,3554 54156 TS MPAC +2 # FOR USE IN INTMCTBS (IN ENTPAS0).
016952,002989: 41,3555 02040 ENDNVSB1 TC ENTPAS0
016953,002990:
016954,002991: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016955,002992: # NOUNCADR IN ENTPAS0 (INTMCTBS).
016956,002993:
016957,002994: 4000 SETLOC FFTAG8
016958,002995: 4000 BANK
016959,002996: 4235 COUNT* $$/PIN
016960,002997: # FORCE BIT 15 OF MONSAVE1 TO 1.
016961,002998: 4235 34752 KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
016962,002999: 4236 55224 TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
016963,003000: # MONITOR BIT.
016964,003001: 4237 00002 TC Q
016965,003002:
016966,003003: # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
016967,003004: # +1 PROCEED NO DATA SET BY V33 OR PROCEED
016968,003005: # -1 TERMINATE SET BY V34
016969,003006: # -0 DATA IN SET BY END OF LOAD ROUTINE
016970,003007: # OR RESEQUENCE SET BY VERB 32
016971,003008:
016972,003009: # L TC ENDIDLE (FIXED FIXED)
016973,003010: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016974,003011: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016975,003012: # ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016976,003013: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016977,003014: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016978,003015: # L+1 FOR TERMINATE, PROCEED WITHOUT DATA, DATA IN, OR RESEQUENCE
016979,003016: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016980,003017:
016981,003018: # ENDIDLE ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016982,003019: # IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016983,003020: # 1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016984,003021: # EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
![]() |
Page 381 |
016986,003023: # 2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016987,003024: # NVSUBUSY.
016988,003025:
016989,003026: # ENDIDLE MOVED TO DISPLAY INTERFACE ROUTINES
016990,003027:
016991,003028: 4240 11245 ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016992,003029: 4241 04245 TC DSPABORT # RETURNS IF CADRSTOR = +0.
016993,003030: 4242 11246 CCS DSPLIST # ABORT (CODE 01206) IF DSPLIST NOT = +0.
016994,003031: 4243 04245 TC DSPABORT
016995,003032: 4244 00002 TC Q
016996,003033: 4245 05726 DSPABORT TC POODOO
016997,003034: 4246 21206 OCT 21206 # SECOND JOB TRYING TO GO TO SLEEP
016998,003035:
016999,003036: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
017000,003037: # IT DOES ENDOFJOB.
017001,003038:
017002,003039: 4247 34223 JAMTERM CAF PINSUPBT
017003,003040: 4250 00006 EXTEND
017004,003041: 4251 01007 WRITE SUPERBNK
017005,003042: 4252 34260 CAF 34DEC
017006,003043: 4253 55216 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
017007,003044: 4254 55204 TS VERBREG
017008,003045: 4255 04261 TC -VD1SET
017009,003046: 4256 04655 TC POSTJUMP
017010,003047: 4257 61307 CADR VBTERM
017011,003048:
017012,003049: 4260 00042 34DEC DEC 34 B-14
017013,003050:
017014,003051: 4261 44351 -VD1SET CS VD1
017015,003052: 4262 55202 TS DSPCOUNT
017016,003053: 4263 00002 TC Q
017017,003054:
017018,003055: # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
017019,003056: # CALL WITH BLANKING CODE IN A.
017020,003057: # BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
017021,003058: # ANY COMBINATION OF THESE BITS IS ACCEPTED.
017022,003059:
017023,003060: # DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
017024,003061:
017025,003062: 4264 74774 BLANKSUB MASK SEVEN
017026,003063: 4265 54123 TS NVTEMP # STORE BLANKING CODE IN NVTEMP.
017027,003064: 4266 22002 LXCH Q
017028,003065: 4267 04226 TC EMBDSPCK # CHECK FOR DSP SYST AVAILABLE
017029,003066: 4270 10123 CCS NVTEMP
017030,003067: 4271 14273 TCF +2
017031,003068: 4272 00001 TC L # NOTHING TO BLANK. RET TO 2+ CALLING LOC
017032,003069: 4273 34304 CAF BLNKBBNK
017033,003070: 4274 56006 XCH BBANK
017034,003071: 4275 00006 EXTEND
017035,003072: 4276 04007 ROR SUPERBNK # SAVE OLD SUPERBITS.
017036,003073: 4277 52131 DXCH BUF
![]() |
Page 382 |
017038,003075: 4300 34223 CAF PINSUPBT
017039,003076: 4301 00006 EXTEND
017040,003077: 4302 01007 WRITE SUPERBNK
017041,003078: 4303 03351 TC BLNKSUB1
017042,003079:
017043,003080: 4304 1202 EBANK= DSPCOUNT
017044,003081: 4304 60102 BLNKBBNK BBCON BLNKSUB1
017045,003082: 4305 ENDBLFF EQUALS
017046,003083:
017047,003084: 40,2000 SETLOC PINBALL1
017048,003085: 40,2000 BANK
017049,003086: 40,3351 COUNT* $$/PIN
017050,003087: 40,3351 31202 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
017051,003088: 40,3352 54132 TS BUF +2
017052,003089: 40,3353 34770 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
017053,003090: 40,3354 03373 TC TESTBIT
017054,003091: 40,3355 34321 CAF R1D1
017055,003092: 40,3356 02430 TC 5BLANK -1
017056,003093: 40,3357 34767 CAF BIT2 # TEST BIT 2. SEE IF R2 TO BE BLANKED.
017057,003094: 40,3360 03373 TC TESTBIT
017058,003095: 40,3361 34322 CAF R2D1
017059,003096: 40,3362 02430 TC 5BLANK -1
017060,003097: 40,3363 34766 CAF BIT3 # TEST BIT3. SEE IF R3 TO BE BLANKED.
017061,003098: 40,3364 03373 TC TESTBIT
017062,003099: 40,3365 34323 CAF R3D1
017063,003100: 40,3366 02430 TC 5BLANK -1
017064,003101: 40,3367 30132 CA BUF +2 # RESTORE DSPCOUNT TO STATE IT HAD
017065,003102: 40,3370 55202 TS DSPCOUNT # BEFORE BLANKSUB.
017066,003103: 40,3371 52131 DXCH BUF # CALL L+2 DIRECTLY.
017067,003104: 40,3372 05215 TC SUPDXCHZ +1 # DTCB WITH SUPERBIT SWITCHING
017068,003105:
017069,003106: 40,3373 70123 TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
017070,003107: 40,3374 10000 CCS A
017071,003108: 40,3375 00002 TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
017072,003109: 40,3376 16710 TCF Q+2 # IF CURRENT BIT = 0, RETURN TO L+3
017073,003110: 40,3377 34353 DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
017074,003111: 40,3400 57202 XCH DSPCOUNT
017075,003112: 40,3401 54140 TS DSPMMTEM # SAVE DSPCOUNT
017076,003113: 40,3402 11214 CCS MODREG
017077,003114: 40,3403 64770 AD ONE
017078,003115: 40,3404 03146 TC DSPDECVN # IF MODREG IS + OR +0, DISPLAY MODREG
017079,003116: 40,3405 03407 TC +2 # IF MODREG IS -NZ, DO NOTHING
017080,003117: 40,3406 02473 TC 2BLANK # IF MODREG IS -0, BLANK MM
017081,003118: 40,3407 56140 XCH DSPMMTEM # RESTORE DSPCOUNT
017082,003119: 40,3410 55202 TS DSPCOUNT
017083,003120: 40,3411 05205 TC ENDOFJOB
017084,003121:
017085,003122: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
017086,003123: # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
![]() |
Page 383 |
017088,003125: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
017089,003126:
017090,003127: # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
017091,003128: # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
017092,003129:
017093,003130: 40,3412 11245 RECALTST CCS CADRSTOR
017094,003131: 40,3413 03415 TC RECAL1
017095,003132: 40,3414 05205 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
017096,003133: 40,3415 34772 RECAL1 CAF ZERO
017097,003134: 40,3416 57245 XCH CADRSTOR
017098,003135: 40,3417 00004 INHINT
017099,003136: 40,3420 05167 TC JOBWAKE
017100,003137: 40,3421 31205 CA NOUNREG # SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
017101,003138: 40,3422 54001 TS L # TIME OF RESPONSE TO ENDIDLE FOR
017102,003139: 40,3423 31204 CA VERBREG # POSSIBLE LATER TESTING BY JOB THAT HAS
017103,003140: 40,3424 50064 INDEX LOCCTR # BEEN WAKED UP.
017104,003141: 40,3425 52155 DXCH MPAC
017105,003142: 40,3426 00003 RELINT
017106,003143: 40,3427 04432 RECAL3 TC RELDSP
017107,003144: 40,3430 05205 TC ENDOFJOB
017108,003145:
017109,003146: 40,3431 04224 NVSBENDL TC NVSUBEND
017110,003147: 40,3432 30,2000 SBANK= LOWSUPER
017111,003148:
![]() |
Page 384 |
017113,003150:
017114,003151: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
017115,003152:
017116,003153: 4000 SETLOC FFTAG8
017117,003154: 4000 BANK
017118,003155: 4305 COUNT* $$/PIN
017119,003156:
017120,003157: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
017121,003158: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
017122,003159:
017123,003160: 4305 55222 SETNCADR TS NOUNCADR # STORE ECADR
017124,003161: 4306 54003 +1 TS EBANK # SET EBANK BITS
017125,003162: 4307 74350 MASK LOW8
017126,003163: 4310 65024 AD OCT1400
017127,003164: 4311 54145 TS NOUNADD # PUT E ADRES INTO NOUNADD
017128,003165: 4312 00002 TC Q
017129,003166:
017130,003167: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
017131,003168: # E ADRES AND PUTS IT INTO NOUNADD.
017132,003169:
017133,003170: 4313 31222 SETNADD CA NOUNCADR
017134,003171: 4314 14306 TCF SETNCADR +1
017135,003172:
017136,003173: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
017137,003174: # DERIVED AND LEFT IN A.
017138,003175:
017139,003176: 4315 54003 SETEBANK TS EBANK # SET EBANK BITS
017140,003177: 4316 74350 MASK LOW8
017141,003178: 4317 65024 AD OCT1400 # E ADRES LEFT IN A
017142,003179: 4320 00002 TC Q
017143,003180:
017144,003181: 4321 00016 R1D1 OCT 16 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017145,003182: 4322 00011 R2D1 OCT 11 # DONT SEPARATE.
017146,003183: 4323 00004 R3D1 OCT 4
017147,003184:
017148,003185: 4324 54020 RIGHT5 TS CYR
017149,003186: 4325 40020 CS CYR
017150,003187: 4326 40020 CS CYR
017151,003188: 4327 40020 CS CYR
017152,003189: 4330 40020 CS CYR
017153,003190: 4331 56020 XCH CYR
017154,003191: 4332 00002 TC Q
017155,003192:
017156,003193: 4333 54022 LEFT5 TS CYL
017157,003194: 4334 40022 CS CYL
017158,003195: 4335 40022 CS CYL
017159,003196: 4336 40022 CS CYL
017160,003197: 4337 40022 CS CYL
![]() |
Page 385 |
017162,003199: 4340 56022 XCH CYL
017163,003200: 4341 00002 TC Q
017164,003201:
017165,003202: 4342 00037 LOW5 OCT 37 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017166,003203: 4343 01740 MID5 OCT 1740 # DONT SEPARATE.
017167,003204: 4344 76000 HI5 OCT 76000 # MUST STAY HERE
017168,003205:
017169,003206: 4345 5313 TCTSKOVR EQUALS TSKOVCDR
017170,003207: 4345 05135 TCFINDVC TC FINDVAC
017171,003208:
017172,003209: 4346 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
017173,003210:
017174,003211: 4347 03777 LOW11 OCT 3777
017175,003212: 4350 00377 LOW8 OCT 377
017176,003213:
017177,003214: 4351 00023 VD1 OCT 23 # THESE 3 CONSTANTS FORM A PACKED TABLE.
017178,003215: 4352 00021 ND1 OCT 21 # DONT SEPARATE.
017179,003216: 4353 00025 MD1 OCT 25
017180,003217:
017181,003218: 4354 4353 VBSP1LD EQUALS MD1 # VB21 = ALOAD
017182,003219: 4354 00026 VBSP2LD DEC 22 B-14 # VB22 = BLOAD
017183,003220: 4355 4615 VBSP3LD EQUALS DEC23 # VB23 = CLOAD
017184,003221: 4355 00012 BINCON DEC 10 B-14
017185,003222:
017186,003223: 4356 34764 RELDSPON CAF BIT5
017187,003224: 4357 14363 TCF +4
017188,003225: 4360 34763 FLASHON CAF BIT6
017189,003226: 4361 14363 TCF +2
017190,003227: 4362 34762 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
017191,003228: 4363 00006 EXTEND
017192,003229: 4364 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
017193,003230: 4365 00002 TC Q
017194,003231:
017195,003232: 4366 00006 LODSAMPT EXTEND
017196,003233: 4367 30025 DCA TIME2
017197,003234: 4370 52014 DXCH SAMPTIME
017198,003235: 4371 00002 TC Q
017199,003236:
017200,003237: 4372 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
017201,003238: 4373 30156 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
017202,003239: 4374 20156 DAS MPAC +1
017203,003240: 4375 60154 AD MPAC
017204,003241: 4376 26154 +4 ADS MPAC
017205,003242: 4377 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
017206,003243: 4400 00002 TC Q # NO NET OF/UF
017207,003244: 4401 54162 TS MPAC+6 # MPAC +6 SET TO +/-1 FOR OF/UF
![]() |
Page 386 |
017209,003246: 4402 00002 TC Q
017210,003247:
017211,003248: # IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
017212,003249: # IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
017213,003250: # PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
017214,003251: # SETTING RESULT TO -0.
017215,003252: # (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
017216,003253: # WHEN THEY CONTAIN THE SF CONSTANTS.)
017217,003254:
017218,003255: 4403 54135 PRSHRTMP TS MPTEMP
017219,003256: 4404 10000 CCS A
017220,003257: 4405 30135 CA MPTEMP # C(A) +, DO REGULAR SHORTMP
017221,003258: 4406 17257 TCF SHORTMP +1 # C(A) +0, DO REGULAR SHORTMP
017222,003259: 4407 14405 TCF -2 # C(A) -, DO REGULAR SHORTMP
017223,003260: 4410 44772 CS ZERO # C(A) -0, FORCE RESULT TO -0 AND RETURN.
017224,003261: 4411 54154 TS MPAC
017225,003262: 4412 54155 TS MPAC +1
017226,003263: 4413 54156 TS MPAC +2
017227,003264: 4414 00002 TC Q
017228,003265:
017229,003266: 4415 44766 UPACTOFF CS BIT3 # TURN OFF UPLINK ACTIVITY
017230,003267: 4416 14420 TCF +2
017231,003268:
017232,003269: 4417 44763 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
017233,003270: 4420 00006 EXTEND
017234,003271: 4421 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
017235,003272: 4422 00002 TC Q
017236,003273:
017237,003274: 4423 50000 CODSTOR INDEX A
017238,003275: 4424 34063 CAF RELTAB
017239,003276: 4425 74342 MASK LOW5
017240,003277: 4426 54124 TS CODE
017241,003278: 4427 31202 CA DSPCOUNT
017242,003279: 4430 54143 TS COUNT
017243,003280: 4431 00002 TC Q
017244,003281:
![]() |
Page 387 |
017246,003283: # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
017247,003284:
017248,003285: # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
017249,003286: # CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
017250,003287: # HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
017251,003288: # OFFERED.
017252,003289:
017253,003290: # THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
017254,003291: # PROGRAM. 1) BY ENDIDLE
017255,003292: # 2) BY NVSUBUSY
017256,003293: # THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
017257,003294: # THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
017258,003295: # SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
017259,003296: # PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
017260,003297:
017261,003298: # THE CALLING SEQUENCE FOR NVSUB IS
017262,003299: # CAF V/N
017263,003300: # L TC NVSUB
017264,003301: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
017265,003302: # L+2 RETURN HERE AFTER EXECUTION
017266,003303:
017267,003304: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
017268,003305: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
017269,003306: # SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
017270,003307: # NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
017271,003308: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
017272,003309:
017273,003310: # THE CALLING SEQUENCE IS
017274,003311: # CAF WAKEFCADR
017275,003312: # TC NVSUBUSY
017276,003313: # .
017277,003314:
017278,003315: # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
017279,003316: # IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
017280,003317: # NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
017281,003318: # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
017282,003319:
017283,003320: # NVSUBUSY ABORTS (WITH CODE 21206) IF A SECOND JOB ATTEMPTS TO GO TO
017284,003321: # SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
017285,003322: # WHEN
017286,003323: # 1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
017287,003324: # IS EXCEEDED.
017288,003325: # 2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
![]() |
Page 388 |
017290,003327: # ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
017291,003328:
017292,003329: # NVSUBUSY MOVED TO DISPLAY INTERFACE ROUTINES
017293,003330:
017294,003331: # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
017295,003332: # VERB DISPATCHER, VBRESEQ, RECALTST.
017296,003333: # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
017297,003334:
017298,003335: 4432 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
017299,003336: 4433 54144 TS RELRET # OFF, SEARCH DSPLIST
017300,003337: 4434 44753 CS BIT14
017301,003338: 4435 00004 INHINT
017302,003339: 4436 71224 MASK MONSAVE1
017303,003340: 4437 55224 TS MONSAVE1 # TURN OFF EXTERNAL MONITOR BIT
017304,003341: 4440 11246 CCS DSPLIST
017305,003342: 4441 04443 TC +2
017306,003343: 4442 04446 TC RELDSP2 # LIST EMPTY
017307,003344: 4443 34772 CAF ZERO
017308,003345: 4444 57246 XCH DSPLIST
017309,003346: 4445 05167 TC JOBWAKE
017310,003347: 4446 00003 RELDSP2 RELINT
017311,003348: 4447 44764 CS BIT5 # TURN OFF KEY RELEASE LIGHT
017312,003349: 4450 00006 EXTEND # (BIT 5 OF CHANNEL 11)
017313,003350: 4451 03011 WAND DSALMOUT
017314,003351: 4452 34772 +4 CAF ZERO
017315,003352: 4453 55215 TS DSPLOCK
017316,003353: 4454 00144 TC RELRET
017317,003354: 4455 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
017318,003355: 4456 54144 TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
017319,003356: # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
017320,003357: # DSPLIST IS NOT EMPTY.
017321,003358: 4457 11246 CCS DSPLIST
017322,003359: 4460 04462 TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
017323,003360: 4461 04446 TC RELDSP2 # +0 EMPTY. TURN OFF KEY RLSE LIGHT
017324,003361: 4462 14452 TCF RELDSP2 +4 # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
017325,003362: 4463 ENDPINBF EQUALS
017326,003363:
![]() |
Page 389 |
017328,003365: # PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
017329,003366:
017330,003367: 4463 43,2002 PINTEST EQUALS LST2FAN
017331,003368:
![]() |
Page 390 |
017333,003370: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
017334,003371: # OFF THE CAUTION AND STATUS LIGHTS.
017335,003372:
017336,003373: 40,2000 SETLOC PINBALL1
017337,003374: 40,2000 BANK
017338,003375: 40,3432 COUNT* $$/PIN
017339,003376: 40,3432 04636 VBTSTLTS TC BANKCALL
017340,003377: 40,3433 66714 CADR CHKPOOH
017341,003378:
017342,003379: 40,3434 00004 INHINT
017343,003380: 40,3435 41334 CS IMODES33 # SET BIT 1 OF IMODES33 SO IMUMON WONT
017344,003381: 40,3436 74770 MASK LMPTSTBT # TURN OUT ANY LAMPS.
017345,003382: 40,3437 27334 ADS IMODES33
017346,003383: 40,3440 33550 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
017347,003384: 40,3441 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
017348,003385: 40,3442 05011 WOR DSALMOUT
017349,003386: 40,3443 33551 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
017350,003387: 40,3444 55241 TS DSPTAB +11D # PROG ALM.
017351,003388: 40,3445 34757 CAF BIT10 # TURN ON TEST ALARM OUTBIT
017352,003389: 40,3446 00006 EXTEND
017353,003390: 40,3447 05013 WOR CHAN13
017354,003391: 40,3450 34355 CAF TEN
017355,003392: 40,3451 54117 TSTLTS1 TS ERCNT
017356,003393: 40,3452 43546 CS FULLDSP
017357,003394: 40,3453 50117 INDEX ERCNT
017358,003395: 40,3454 55226 TS DSPTAB
017359,003396: 40,3455 10117 CCS ERCNT
017360,003397: 40,3456 03451 TC TSTLTS1
017361,003398: 40,3457 43547 CS FULLDSP1
017362,003399: 40,3460 55227 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
017363,003400: 40,3461 55232 TS DSPTAB +4
017364,003401: 40,3462 55234 TS DSPTAB +6
017365,003402: 40,3463 34775 CAF ELEVEN
017366,003403: 40,3464 55221 TS NOUT
017367,003404: 40,3465 37704 CAF SHOLTS
017368,003405: 40,3466 04636 TC BANKCALL
017369,003406: 40,3467 01731 CADR DELAYJOB
017370,003407: # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
017371,003408: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
017372,003409: # LIGHTS TEST WILL BE SEEN.
017373,003410:
017374,003411: 40,3470 7704 SHOLTS = DEC500 # 5 SEC
017375,003412: 40,3470 43552 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
017376,003413: 40,3471 00004 INHINT
017377,003414: 40,3472 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
017378,003415: 40,3473 03011 WAND DSALMOUT # OPERATOR ERROR.
017379,003416: 40,3474 44757 CS BIT10 # TURN OFF TEST ALARM OUTBIT
017380,003417: 40,3475 00006 EXTEND
017381,003418: 40,3476 03013 WAND CHAN13
![]() |
Page 391 |
017383,003420: 40,3477 34765 CAF BIT4 # MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
017384,003421: 40,3500 00006 EXTEND # (NO ATT LIGHT ON IF IN COARSE ALIGN)
017385,003422: 40,3501 02012 RAND CHAN12
017386,003423: 40,3502 64752 AD BIT15 # TURN OFF AUTO, HOLD, FREE, SPARE,
017387,003424: 40,3503 55241 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
017388,003425: 40,3504 44770 CS LMPTSTBT
017389,003426: 40,3505 71334 MASK IMODES33
017390,003427: 40,3506 55334 TS IMODES33
017391,003428: 40,3507 40000 COM
017392,003429: 40,3510 74754 MASK PIP2FLBT
017393,003430: 40,3511 27334 ADS IMODES33
017394,003431: 40,3512 40000 COM
017395,003432: 40,3513 74755 MASK DNLKFAIL
017396,003433: 40,3514 27334 ADS IMODES33
017397,003434: 40,3515 40000 COM
017398,003435: 40,3516 74756 MASK UPLKFAIL
017399,003436: 40,3517 27334 ADS IMODES33
017400,003437: 40,3520 44752 CS TLIMBIT
017401,003438: 40,3521 71333 MASK IMODES30
017402,003439: 40,3522 55333 TS IMODES30
017403,003440: 40,3523 40000 COM
017404,003441: 40,3524 74754 MASK IMUFLBIT
017405,003442: 40,3525 27333 ADS IMODES30
017406,003443: 40,3526 40000 COM
017407,003444: 40,3527 74755 MASK ICDUFLBT
017408,003445: 40,3530 27333 ADS IMODES30
017409,003446: 40,3531 40000 COM
017410,003447: 40,3532 74757 MASK PIPAFLBT
017411,003448: 40,3533 27333 ADS IMODES30
017412,003449: 40,3534 41337 CS OPTMODES
017413,003450: 40,3535 74762 MASK OCDUFBIT
017414,003451: 40,3536 27337 ADS OPTMODES
017415,003452: 40,3537 00003 RELINT
017416,003453:
017417,003454: 40,3540 05120 TC NOVAC30
017418,003455: 40,3541 1202 EBANK= DSPCOUNT
017419,003456: 40,3541 03377 60102 2CADR DSPMMJOB
017420,003457:
017421,003458: 40,3543 04235 TC KILMONON # TURN ON KILL MONITOR BIT.
017422,003459: 40,3544 04417 TC FLASHOFF # TURN OFF V/N FLASH.
017423,003460: 40,3545 13335 TCF TSTLTS4
017424,003461: 40,3546 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
017425,003462: 40,3547 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
017426,003463: 40,3550 00175 TSTCON1 OCT 00175
017427,003464: # UPLINK ACTIVITY, TEMP, KEY RLSE,
017428,003465: # V/N FLASH, OPERATOR ERROR.
017429,003466: 40,3551 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
017430,003467: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
017431,003468: 40,3552 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
017432,003469: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
![]() |
Page 392 |
017434,003471:
017435,003472: # ERROR LIGHT RESET (RSET) TURNS OFF,
017436,003473: # UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
017437,003474: # PROG ALM, TRACKER FAIL.
017438,003475: # LEAVES GIMBAL LOCK AND NO ATT ALONE.
017439,003476: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
017440,003477: # IT ALSO SETS :CAUTION RESET: TO 1.
017441,003478: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
017442,003479:
017443,003480: 40,2000 SETLOC PINBALL1
017444,003481: 40,2000 BANK
017445,003482: 40,3553 COUNT* $$/PIN
017446,003483: 40,3553 56115 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
017447,003484: 40,3554 55215 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
017448,003485: 40,3555 00004 INHINT
017449,003486: 40,3556 34757 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
017450,003487: 40,3557 00006 EXTEND
017451,003488: 40,3560 05011 WOR DSALMOUT # BIT10 CHAN 11
017452,003489: 40,3561 35004 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
017453,003490: 40,3562 71241 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
017454,003491: 40,3563 64752 AD BIT15 # PROG ALARM, AND TRACKER.
017455,003492: 40,3564 55241 TS DSPTAB +11D
017456,003493: 40,3565 41334 CS IMODES33 # RESET FAIL BITS WHICH GENERATE PROG
017457,003494: 40,3566 75055 MASK PRIO16 # ALARM SO THAT IF THE FAILURE STILL
017458,003495: 40,3567 27334 ADS IMODES33 # EXISTS, THE ALARM WILL COME BACK ON
017459,003496: 40,3570 41333 CS IMODES30
017460,003497: 40,3571 74757 MASK PIPAFLBT
017461,003498: 40,3572 27333 ADS IMODES30
017462,003499:
017463,003500: 40,3573 41337 CS OPTMODES
017464,003501: 40,3574 74762 MASK OCDUFBIT
017465,003502: 40,3575 27337 ADS OPTMODES
017466,003503: 40,3576 04542 TC C13STALL
017467,003504: 40,3577 44757 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
017468,003505: 40,3600 00006 EXTEND
017469,003506: 40,3601 03013 WAND CHAN13
017470,003507: 40,3602 43216 CS ERCON # TURN OFF UPLINK ACTIVITY,
017471,003508: 40,3603 00006 EXTEND # OPERATOR ERROR.
017472,003509: 40,3604 03011 WAND DSALMOUT
017473,003510: 40,3605 34355 TSTAB CAF BINCON # (DEC 10)
017474,003511: 40,3606 54117 +1 TS ERCNT # ERCNT = COUNT
017475,003512: 40,3607 00004 INHINT
017476,003513: 40,3610 50117 INDEX ERCNT
017477,003514: 40,3611 11226 CCS DSPTAB
017478,003515: 40,3612 64770 AD ONE
017479,003516: 40,3613 03620 TC ERPLUS
017480,003517: 40,3614 64770 AD ONE
017481,003518: 40,3615 40000 ERMINUS CS A
017482,003519: 40,3616 77674 MASK NOTBIT12
017483,003520: 40,3617 03623 TC ERCOM
017484,003521: 40,3620 40000 ERPLUS CS A
![]() |
Page 393 |
017486,003523: 40,3621 77674 MASK NOTBIT12
017487,003524: 40,3622 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
017488,003525: 40,3623 50117 ERCOM INDEX ERCNT # ETC.
017489,003526: 40,3624 55226 TS DSPTAB
017490,003527: 40,3625 00003 RELINT
017491,003528: 40,3626 10117 CCS ERCNT
017492,003529: 40,3627 03606 TC TSTAB +1
017493,003530: 40,3630 54375 TS FAILREG
017494,003531: 40,3631 54376 TS FAILREG +1
017495,003532: 40,3632 55357 TS SFAIL
017496,003533: 40,3633 05205 TC ENDOFJOB
017497,003534:
017498,003535: 40,3634 55000 OCT55000 OCT 55000
017499,003536: 40,3635 16001 13-11,1 OCT 16001
017500,003537: 40,3636 5004 GL+NOATT EQUALS OCT50 # NO ATT AND GIMBAL LOCK LAMPS
017501,003538: 40,3636 7674 NOTBIT12 EQUALS -1/8
017502,003539: 40,3636 ENDPINS1 EQUALS
017503,003540:
017504,003541: 40,3636 30,2000 SBANK= LOWSUPER
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc