Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72
source code was then modified by incorporating changes known from contemporary documentation to have
been made between revisions 72 and 72/3. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72/3 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
012726,000002: ## Copyright: Public domain.
012727,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
012728,000004: ## Purpose: A section of Manche72 revision 3.
012729,000005: ## It is part of the reconstructed source code for the final, flown
012730,000006: ## release of the software for the Command Module's (CM) Apollo
012731,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
012732,000008: ## of this program are available; instead, this file was recreated
012733,000009: ## from a reconstructed copy of Comanche 072. It has been adapted
012734,000010: ## such that the resulting bugger words exactly match those
012735,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G,
012736,000012: ## which gives relatively high confidence that the reconstruction
012737,000013: ## is correct.
012738,000014: ## Assembler: yaYUL
012739,000015: ## Contact: Ron Burkey <info@sandroid.org>.
012740,000016: ## Website: www.ibiblio.org/apollo/index.html
012741,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072.
012742,000018:
012743,000019: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
012744,000020: # MOD NO - 4 DATE - 27 APRIL 1967 ASSEMBLY - PINDISK REV 17
012745,000021: # MOD BY - FILENE
012746,000022: # LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
012747,000023:
012748,000024: # FUNCTIONAL DESCRIPTION-
012749,000025:
012750,000026: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
012751,000027: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
012752,000028: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
012753,000029: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
012754,000030:
012755,000031: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
012756,000032: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
012757,000033: # DECIMAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
012758,000034: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
012759,000035: # REFER TO A GROUP OF ERASABLE REGISTERS.
012760,000036:
012761,000037: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
012762,000038: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS (THESE
012763,000039: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
012764,000040: # :EXTENDED VERBS:).
012765,000041:
012766,000042: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
012767,000043: # OPERATION INFORMATION:.
012768,000044:
012769,000045: # CALLING SEQUENCES-
012770,000046:
012771,000047: # KEYBOARD:
012772,000048: # EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
012773,000049: # INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
012774,000050: # CHANNEL 15 (CHANNEL 16). KEYRUPT1 (KEYRUPT2) PLACES THE KEY
012775,000051: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
012776,000052: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
012777,000053:
012778,000054: # UPLINK:
012779,000055: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
012780,000056: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
012781,000057: # KEYBOARD AND DISPLAY PROGRAM (AT :CHARIN:) AND EXECUTES A RESUME.
012782,000058:
012783,000059: # INTERNAL PROGRAMS:
012784,000060: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
012785,000061: # CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB). DETAILS
012786,000062: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
012787,000063: # SYMBOL TABLE FOR PAGE NUMBERS).
012788,000064:
012789,000065: # NORMAL EXIT MODES-
012790,000066:
012791,000067: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
012792,000068: # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
012793,000069: # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
012794,000070: # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
012795,000071: # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
012796,000072: # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
012797,000073: # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
012798,000074: # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
012799,000075: # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
012800,000076: # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
012801,000077: # 4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
012802,000078: # ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
012803,000079: # THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
012804,000080:
012805,000081: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
012806,000082: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
012807,000083: # :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
012808,000084:
012809,000085: # ALARM OR ABORT EXIT MODES-
012810,000086:
012811,000087: # EXTERNAL INITIATION:
012812,000088: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
012813,000089: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
012814,000090:
012815,000091: # INTERNAL PROGRAM INITIATION:
012816,000092: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
012817,000093: # (WITH OCTAL 01501).
012818,000094: # IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
012819,000095: # CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
012820,000096: # 1) ENDIDLE OR DATAWAIT.
012821,000097: # 2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
012822,000098:
012823,000099: # CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
012824,000100: # E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
012825,000101:
012826,000102: # OUTPUT-
012827,000103:
012828,000104: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
012829,000105: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
012830,000106: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
012831,000107: # IN INTERRUPT.
012832,000108:
012833,000109: # ERASABLE INITIALIZATION-
012834,000110:
012835,000111: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
012836,000112: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
012837,000113: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
012838,000114: # DSPCOUNT, NOUT.
012839,000115:
012840,000116: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
012841,000117: # PINBALL IS GIVEN BELOW.
012842,000118:
012843,000119: # THE FOLLOWING ARE OF GENERAL INTEREST-
012844,000120:
012845,000121: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
012846,000122: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
012847,000123:
012848,000124: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
012849,000125: # OF RELATED INTEREST NVSBWAIT
012850,000126: # NVSUBUSY
012851,000127: # PRENVBSY
012852,000128:
012853,000129: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
012854,000130: # AWAITING OPERATORS RESPONSE.
012855,000131:
012856,000132: # DSPMM ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
012857,000133: # PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
012858,000134: # (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
012859,000135: # FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
012860,000136:
012861,000137: # BLANKSUB ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
012862,000138: # COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
012863,000139:
012864,000140: # JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
012865,000141: # JAMPROC TERMINATE (V 34) OR PROCEED (V33) FUNCTION.
012866,000142:
012867,000143: # MONITOR VERBS FOR PERIODIC (1 PER SEC) DISPLAY.
012868,000144:
012869,000145: # PLEASE PERFORM, PLEASE MARK SITUATIONS
012870,000146: # REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
012871,000147: # THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
012872,000148: # SYMBOL TABLE FOR PAGE NUMBER).
012873,000149:
012874,000150: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
012875,000151: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
012876,000152:
012877,000153: # THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
012878,000154: # TABLES:.
012879,000155:
012880,000156: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
012881,000157: # PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
012882,000158: # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
012883,000159:
012884,000160: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
012885,000161:
012886,000162: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
012887,000163: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
012888,000164: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
012889,000165: # HENRY 6, ACT 2, SCENE 4
012890,000166:
012891,000167: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
012892,000168:
012893,000169: # RESERVED FOR PINBALL EXECUTIVE ACTION
012894,000170:
012895,000171: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
012896,000172: # DECBRNCH ERASE +DEC, -DEC, OCT INDICATOR
012897,000173: # VERBREG ERASE VERB CODE
012898,000174: # NOUNREG ERASE NOUN CODE
012899,000175: # XREG ERASE R1 INPUT BUFFER
012900,000176: # YREG ERASE R2 INPUT BUFFER
012901,000177: # ZREG ERASE R3 INPUT BUFFER
012902,000178: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
012903,000179: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
012904,000180: # HITEMOUT = YREGLP TEMP FOR DISPLAY OF HRS,MIN,SEC
012905,000181: # MUST = LOTEMOUT-1.
012906,000182: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
012907,000183: # LOTEMOUT = ZREGLP TEMP FOR DISPLAY OF HRS,MIN,SEC
012908,000184: # MUST = HITEMOUT+1.
012909,000185: # MODREG ERASE MODE CODE
012910,000186: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
012911,000187: # REQRET ERASE RETURN REGISTER FOR LOAD
012912,000188: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
012913,000189: # CLPASS ERASE PASS INDICATOR CLEAR
012914,000190: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
012915,000191: # NOUNCADR ERASE MACHINE CADR FOR NOUN
012916,000192: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
012917,000193: # MONSAVE1 ERASE NOUNCADR FOR MONITOR(MATBS) = MONSAVE+1
012918,000194: # MONSAVE2 ERASE NVMONOPT OPTIONS
012919,000195: # DSPTAB ERASE +13D 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
012920,000196: # CADRSTOR ERASE ENDIDLE STORAGE
012921,000197: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
012922,000198: # MUST = NVBNKTEM-1
012923,000199: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
012924,000200: # MUST = NVQTEM+1
012925,000201: # VERBSAVE ERASE NEEDED FOR RECYCLE
012926,000202: # DSPLIST ERASE WAITING REG FOR DSP SYST INTERNAL USE
012927,000203: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
012928,000204: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
012929,000205: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
012930,000206:
012931,000207: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
012932,000208:
012933,000209: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
012934,000210: # DSEXIT = INTB15+ RETURN FOR DSPIN
012935,000211: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
012936,000212: # BLANKRET = INTB15+ RETURN FOR 2BLANK
012937,000213: # WRDRET = INTBIT15 RETURN FOR 5BLANK
012938,000214: # WDRET = INTBIT15 RETURN FOR DSPWD
012939,000215: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
012940,000216: # 21/22REG = INTBIT15 TEMP FOR CHARIN
012941,000217: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
012942,000218: # CHAR = POLISH TEMP FOR CHARIN
012943,000219: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
012944,000220: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
012945,000221: # SGNON = VBUF TEMP FOR +,- ON
012946,000222: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
012947,000223: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
012948,000224: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
012949,000225: # SGNOFF = VBUF +1 TEMP FOR +,- ON
012950,000226: # NVTEMP = VBUF +1 TEMP FOR NVSUB
012951,000227: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
012952,000228: # HITEMIN = VBUF +1 TEMP FOR LOAD OF HRS,MIN,SEC
012953,000229: # MUST = LOTEMIN-1.
012954,000230: # CODE = VBUF +2 FOR DSPIN
012955,000231: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
012956,000232: # LOTEMIN = VBUF +2 TEMP FOR LOAD OF HRS,MIN,SEC
012957,000233: # MUST = HITEMIN+1.
012958,000234: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
012959,000235: # SIGNRET = VBUF +3 RETURN FOR +,- ON
012960,000236: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
012961,000237: # ENTRET = DOTINC EXIT FROM ENTER
012962,000238: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
012963,000239: # INREL = DOTRET INPUT BUFFER SELECTOR (X,Y,Z, REG )
012964,000240: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
012965,000241: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
012966,000242: # TEM1 ERASE EXEC TEMP
012967,000243: # DSREL = TEM1 REL ADDRESS FOR DSPIN
012968,000244: # TEM2 ERASE EXEC TEMP
012969,000245: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
012970,000246: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
012971,000247: # TEM3 ERASE EXEC TEMP
012972,000248: # COUNT = TEM3 FOR DSPIN
012973,000249: # TEM4 ERASE EXEC TEMP
012974,000250: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
012975,000251: # RELRET = TEM4 RETURN FOR RELDSP
012976,000252: # FREERET = TEM4 RETURN FOR FREEDSP
012977,000253: # DSPWDRET = TEM4 RETURN FOR DSPSIGN
012978,000254: # SEPSCRET = TEM4 RETURN FOR SEPSEC
012979,000255: # SEPMNRET = TEM4 RETURN FOR SEPMIN
012980,000256: # TEM5 ERASE EXEC TEMP
012981,000257: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
012982,000258: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
012983,000259: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
012984,000260: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
012985,000261: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
012986,000262: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
012987,000263: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
012988,000264: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
012989,000265: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
012990,000266: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
012991,000267:
012992,000268: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
012993,000269:
012994,000270: # ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
012995,000271:
012996,000272: # MPAC, THRU MPAC +6
012997,000273: # BUF, +1, +2
012998,000274: # BUF2, +1, +2
012999,000275: # MPTEMP
013000,000276: # ADDRWD
013001,000277:
013002,000278: # END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
013003,000279:
013004,000280: # RESERVED FOR PINBALL INTERRUPT ACTION
013005,000281:
013006,000282: # DSPCNT ERASE COUNTER FOR DSPOUT
013007,000283: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
013008,000284: # RECEPTION OF A BAD MESSAGE IN UPLINK)
013009,000285:
013010,000286: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
013011,000287:
013012,000288: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
013013,000289:
013014,000290: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
013015,000291: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
013016,000292: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
013017,000293:
013018,000294: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
013019,000295:
013020,000296: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
013021,000297: # 0 10000
013022,000298: # 1 00001
013023,000299: # 9 01001
013024,000300: # VERB 10001
013025,000301: # ERROR RES 10010
013026,000302: # KEY RLSE 11001
013027,000303: # + 11010
013028,000304: # - 11011
013029,000305: # ENTER 11100
013030,000306: # CLEAR 11110
013031,000307: # NOUN 11111
013032,000308:
013033,000309: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
013034,000310: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
013035,000311: # ENERGIZED.
013036,000312: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
013037,000313: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
013038,000314: # D-S 5 BIT RELAY CODE FOR RIGHT CHAR OF PAIR SELECTED BY RELAYWORD.
013039,000315:
013040,000316: # THE PANEL APPEARS AS FOLLOWS,
013041,000317: # MD1 MD2 (MAJOR MODE)
013042,000318: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
013043,000319: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
013044,000320: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
013045,000321: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
013046,000322:
013047,000323: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
013048,000324:
013049,000325: # MD1 25 R2D1 11 ALL ARE OCTAL
013050,000326: # MD2 24 R2D2 10
013051,000327: # VD1 23 R2D3 7
013052,000328: # VD2 22 R2D4 6
013053,000329: # ND1 21 R2D5 5
013054,000330: # ND2 20 R3D1 4
013055,000331: # R1D1 16 R3D2 3
013056,000332: # R1D2 15 R3D3 2
013057,000333: # R1D3 14 R3D4 1
013058,000334: # R1D4 13 R3D5 0
013059,000335: # R1D5 12
013060,000336:
013061,000337: # THERE IS AN 11REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
013062,000338:
013063,000339: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
013064,000340: # RELADD
013065,000341: # 10 1011 MD1 (25) MD2 (24)
013066,000342: # 9 1010 VD1 (23) VD2 (22)
013067,000343: # 8 1001 ND1 (21) ND2 (20)
013068,000344: # 7 1000 R1D1 (16)
013069,000345: # 6 0111 +R1 R1D2 (15) R1D3 (14)
013070,000346: # 5 0110 -R1 R1D4 (13) R1D5 (12)
013071,000347: # 4 0101 +R2 R2D1 (11) R2D2 (10)
013072,000348: # 3 0100 -R2 R2D3 (7) R2D4 (6)
013073,000349: # 2 0011 R2D5 (5) R3D1 (4)
013074,000350: # 1 0010 +R3 R3D2 (3) R3D3 (2)
013075,000351: # 0 0001 -R3 R3D4 (1) R3D5 (0)
013076,000352: # 0000 NO RELAYWORD
013077,000353:
013078,000354: # THE 5 BIT OUTPUT RELAY CODES ARE:
013079,000355:
013080,000356: # BLANK 00000
013081,000357: # 0 10101
013082,000358: # 1 00011
013083,000359: # 2 11001
013084,000360: # 3 11011
013085,000361: # 4 01111
013086,000362: # 5 11110
013087,000363: # 6 11100
013088,000364: # 7 10011
013089,000365: # 8 11101
013090,000366: # 9 11111
013091,000367:
013092,000368: # OUTPUT BITS USED BY PINBALL:
013093,000369:
013094,000370: # KEY RELEASE LIGHT - BIT 5 OF CHANNEL 11
013095,000371: # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
013096,000372: # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
013097,000373:
013098,000374: # START OF EXECUTIVE SECTION OF PINBALL
013099,000375:
013100,000376: 40,2000 BANK 40
013101,000377: 40,2000 SETLOC PINBALL1
013102,000378: 40,2000 BANK
013103,000379:
013104,000380: 40,2000 COUNT 40/PIN
013105,000381:
013106,000382: 40,2000 35033 CHARIN CAF ONE # BLOCK DISPLAY SYST
013107,000383: 40,2001 57012 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
013108,000384: 40,2002 54115 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
013109,000385: 40,2003 11042 CCS CADRSTOR # ALL KEYS EXCEPT ER TURN ON KR LITE IF
013110,000386: 40,2004 02006 TC +2 # CADRSTOR IS FULL. THIS REMINDS OPERATOR
013111,000387: 40,2005 02013 TC CHARIN2 # TO RE-ESTABLISH A FLASHING DISPLAY
013112,000388: 40,2006 42057 CS ELRCODE1 # WHICH HE HAS OBSCURED WITH DISPLAYS OF
013113,000389: 40,2007 60154 AD MPAC # HIS OWN (SEE REMARKS PRECEDING ROUTINE
013114,000390: 40,2010 00006 EXTEND # VBRELDSP).
013115,000391: 40,2011 12013 BZF CHARIN2
013116,000392: 40,2012 04410 TC RELDSPON
013117,000393: 40,2013 56154 CHARIN2 XCH MPAC
013118,000394: 40,2014 54117 TS CHAR
013119,000395: 40,2015 50000 INDEX A
013120,000396: 40,2016 02017 TC +1 # INPUT CODE FUNCTION
013121,000397: 40,2017 03341 TC CHARALRM # 0
013122,000398: 40,2020 02076 TC NUM # 1
013123,000399: 40,2021 02076 TC NUM # 2
013124,000400: 40,2022 02076 TC NUM # 3
013125,000401: 40,2023 02076 TC NUM # 4
013126,000402: 40,2024 02076 TC NUM # 5
013127,000403: 40,2025 02076 TC NUM # 6
013128,000404: 40,2026 02076 TC NUM # 7
013129,000405: 40,2027 02062 TC 89TEST # 10 8
013130,000406: 40,2030 02062 TC 89TEST # 11 9
013131,000407: 40,2031 03341 TC CHARALRM # 12
013132,000408: 40,2032 03341 TC CHARALRM # 13
013133,000409: 40,2033 03341 TC CHARALRM # 14
013134,000410: 40,2034 03341 TC CHARALRM # 15
013135,000411: 40,2035 03341 TC CHARALRM # 16
013136,000412: 40,2036 03341 TC CHARALRM # 17
013137,000413: 40,2037 02074 TC NUM -2 # 20 0
013138,000414: 40,2040 02255 TC VERB # 21 VERB
013139,000415: 40,2041 03517 TC ERROR # 22 ERROR LIGHT RESET
013140,000416: 40,2042 03341 TC CHARALRM # 23
013141,000417: 40,2043 03341 TC CHARALRM # 24
013142,000418: 40,2044 03341 TC CHARALRM # 25
013143,000419: 40,2045 03341 TC CHARALRM # 26
013144,000420: 40,2046 03341 TC CHARALRM # 27
013145,000421: 40,2047 03341 TC CHARALRM # 30
013146,000422: 40,2050 03375 TC VBRELDSP # 31 KEY RELEASE
013147,000423: 40,2051 02310 TC POSGN # 32 +
013148,000424: 40,2052 02275 TC NEGSGN # 33 -
013149,000425: 40,2053 02060 TC ENTERJMP # 34 ENTER
013150,000426: 40,2054 03341 TC CHARALRM # 35
013151,000427: 40,2055 02370 TC CLEAR # 36 CLEAR
013152,000428: 40,2056 02271 TC NOUN # 37 NOUN
013153,000429:
013154,000430: 40,2057 00022 ELRCODE1 OCT 22
013155,000431: 40,2060 04715 ENTERJMP TC POSTJUMP
013156,000432: 40,2061 62002 CADR ENTER
013157,000433:
013158,000434: 40,2062 10777 89TEST CCS DSPCOUNT
013159,000435: 40,2063 02067 TC +4 # +
013160,000436: 40,2064 02067 TC +3 # +0
013161,000437: 40,2065 05233 TC ENDOFJOB # - BLOCK DATA IN IF DSPCOUNT IS - OR -0
013162,000438: 40,2066 05233 TC ENDOFJOB # -0
013163,000439: 40,2067 36214 CAF THREE
013164,000440: 40,2070 71000 MASK DECBRNCH
013165,000441: 40,2071 10000 CCS A
013166,000442: 40,2072 02076 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
013167,000443: 40,2073 03341 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
013168,000444:
013169,000445: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
013170,000446: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
013171,000447: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
013172,000448: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
013173,000449: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
013174,000450: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
013175,000451:
013176,000452: 40,2074 35035 CAF ZERO
013177,000453: 40,2075 54117 TS CHAR
013178,000454: 40,2076 10777 NUM CCS DSPCOUNT
013179,000455: 40,2077 02103 TC +4 # +
013180,000456: 40,2100 02103 TC +3 # +0
013181,000457: 40,2101 02102 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
013182,000458: 40,2102 05233 TC ENDOFJOB # -0
013183,000459: 40,2103 02225 TC GETINREL
013184,000460: 40,2104 11015 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
013185,000461: 40,2105 35035 CAF ZERO
013186,000462: 40,2106 55015 TS CLPASS
013187,000463: 40,2107 02110 TC +1
013188,000464: 40,2110 50117 INDEX CHAR
013189,000465: 40,2111 34072 CAF RELTAB
013190,000466: 40,2112 74362 MASK LOW5
013191,000467: 40,2113 54124 TS CODE
013192,000468: 40,2114 30777 CA DSPCOUNT
013193,000469: 40,2115 54143 TS COUNT
013194,000470: 40,2116 03227 TC DSPIN
013195,000471: 40,2117 36214 CAF THREE
013196,000472: 40,2120 71000 MASK DECBRNCH
013197,000473: 40,2121 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
013198,000474: 40,2122 02133 TC DECTOBIN # +
013199,000475: 40,2123 50137 INDEX INREL # +0 OCTAL
013200,000476: 40,2124 57001 XCH VERBREG
013201,000477: 40,2125 54022 TS CYL
013202,000478: 40,2126 40022 CS CYL
013203,000479: 40,2127 40022 CS CYL
013204,000480: 40,2130 56022 XCH CYL
013205,000481: 40,2131 60117 AD CHAR
013206,000482: 40,2132 02150 TC ENDNMTST
013207,000483: 40,2133 50137 DECTOBIN INDEX INREL
013208,000484: 40,2134 57001 XCH VERBREG
013209,000485: 40,2135 54154 TS MPAC # SUM X 2EXP-14 IN MPAC
013210,000486: 40,2136 35035 CAF ZERO
013211,000487: 40,2137 54155 TS MPAC +1
013212,000488: 40,2140 34377 CAF TEN # 10 X 2EXP-14
013213,000489: 40,2141 07256 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
013214,000490: 40,2142 56155 XCH MPAC +1
013215,000491: 40,2143 60117 AD CHAR
013216,000492: 40,2144 54155 TS MPAC +1
013217,000493: 40,2145 02150 TC ENDNMTST # NO OF
013218,000494: 40,2146 26154 ADS MPAC # OF MUST BE 5TH CHAR
013219,000495: 40,2147 02166 TC DECEND
013220,000496: 40,2150 50137 ENDNMTST INDEX INREL
013221,000497: 40,2151 55001 TS VERBREG
013222,000498: 40,2152 40777 CS DSPCOUNT
013223,000499: 40,2153 50137 INDEX INREL
013224,000500: 40,2154 62216 AD CRITCON
013225,000501: 40,2155 00006 EXTEND
013226,000502: 40,2156 12160 BZF ENDNUM # -0, DSPCOUNT = CRITCON
013227,000503: 40,2157 02213 TC MORNUM # -, DSPCOUNT G/ CRITCON
013228,000504: 40,2160 36214 ENDNUM CAF THREE
013229,000505: 40,2161 71000 MASK DECBRNCH
013230,000506: 40,2162 10000 CCS A
013231,000507: 40,2163 02166 TC DECEND
013232,000508: 40,2164 40777 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
013233,000509: 40,2165 02214 TC MORNUM +1 # NEGATIVELY
013234,000510: 40,2166 45033 DECEND CS ONE
013235,000511: 40,2167 60137 AD INREL
013236,000512: 40,2170 00006 EXTEND
013237,000513: 40,2171 62164 BZMF ENDALL # IF INREL=0,1 (VBREG,NNREG), LEAVE WHOLE
013238,000514: 40,2172 07052 TC DMP # IF INREL=2,3,4 (R1,R2,R3), CONVERT TO FRAC
013239,000515: # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
013240,000516: 40,2173 02223 ADRES DECON # 2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
013241,000517: 40,2174 36214 CAF THREE # IN MPAC, +1, +2.
013242,000518: 40,2175 71000 MASK DECBRNCH
013243,000519: 40,2176 50000 INDEX A
013244,000520: 40,2177 02177 TC +0
013245,000521: 40,2200 02204 TC +DECSGN
013246,000522: 40,2201 00006 EXTEND # - CASE
013247,000523: 40,2202 40156 DCS MPAC +1
013248,000524: 40,2203 52156 DXCH MPAC +1
013249,000525: 40,2204 56156 +DECSGN XCH MPAC +2
013250,000526: 40,2205 50137 INDEX INREL
013251,000527: 40,2206 55004 TS XREGLP -2
013252,000528: 40,2207 56155 XCH MPAC +1
013253,000529: 40,2210 50137 INDEX INREL
013254,000530: 40,2211 55001 TS VERBREG
013255,000531: 40,2212 02164 TC ENDALL
013256,000532: 40,2213 10777 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
013257,000533: 40,2214 54777 TS DSPCOUNT
013258,000534: 40,2215 05233 TC ENDOFJOB
013259,000535:
013260,000536: 40,2216 00022 CRITCON OCT 22 # (DEC 18)
013261,000537: 40,2217 00020 OCT 20 # (DEC 16)
013262,000538: 40,2220 00012 OCT 12 # (DEC 10)
013263,000539: 40,2221 00005 OCT 5
013264,000540: 40,2222 00000 OCT 0
013265,000541:
013266,000542: 40,2223 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
013267,000543:
013268,000544: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
013269,000545: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
013270,000546:
013271,000547: 40,2225 50777 GETINREL INDEX DSPCOUNT
013272,000548: 40,2226 32231 CAF INRELTAB
013273,000549: 40,2227 54137 TS INREL # (A TEMP, REG)
013274,000550: 40,2230 00002 TC Q
013275,000551:
013276,000552: 40,2231 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
013277,000553: 40,2232 00004 OCT 4 # R3D4 =(1)
013278,000554: 40,2233 00004 OCT 4 # R3D3 =(2)
013279,000555: 40,2234 00004 OCT 4 # R3D2 =(3)
013280,000556: 40,2235 00004 OCT 4 # R3D1 =(4)
013281,000557: 40,2236 00003 OCT 3 # R2D5 =(5)
013282,000558: 40,2237 00003 OCT 3 # R2D4 =(6)
013283,000559: 40,2240 00003 OCT 3 # R2D3 =(7)
013284,000560: 40,2241 00003 OCT 3 # R2D2 =(8D)
013285,000561: 40,2242 00003 OCT 3 # R2D1 =(9D)
013286,000562: 40,2243 00002 OCT 2 # R1D5 =(10D)
013287,000563: 40,2244 00002 OCT 2 # R1D4 =(11D)
013288,000564: 40,2245 00002 OCT 2 # R1D3 =(12D)
013289,000565: 40,2246 00002 OCT 2 # R1D2 =(13D)
013290,000566: 40,2247 00002 OCT 2 # R1D1 =(14D)
013291,000567: 40,2250 05753 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
013292,000568: 40,2251 00001 OCT 1 # ND2 =(16D)
013293,000569: 40,2252 00001 OCT 1 # ND1 =(17D)
013294,000570: 40,2253 00000 OCT 0 # VD2 =(18D)
013295,000571: 40,2254 00000 OCT 0 # VD1 =(19D)
013296,000572:
013297,000573: 40,2255 35035 VERB CAF ZERO
013298,000574: 40,2256 55001 TS VERBREG
013299,000575: 40,2257 34374 CAF VD1
013300,000576: 40,2260 54777 NVCOM TS DSPCOUNT
013301,000577: 40,2261 02502 TC 2BLANK
013302,000578: 40,2262 35033 CAF ONE
013303,000579: 40,2263 55000 TS DECBRNCH # SET FOR DEC V/N CODE
013304,000580: 40,2264 35035 CAF ZERO
013305,000581: 40,2265 55013 TS REQRET # SET FOR ENTPAS0
013306,000582: 40,2266 34233 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
013307,000583: 40,2267 54136 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
013308,000584: # TO TC ENDOFJOB
013309,000585: 40,2270 05233 TC ENDOFJOB
013310,000586: 40,2271 35035 NOUN CAF ZERO
013311,000587: 40,2272 55002 TS NOUNREG
013312,000588: 40,2273 34375 CAF ND1 # ND1, OCT 21 (DEC 17)
013313,000589: 40,2274 02260 TC NVCOM
013314,000590:
013315,000591: 40,2275 02347 NEGSGN TC SIGNTEST
013316,000592: 40,2276 02334 TC -ON
013317,000593: 40,2277 35032 CAF TWO
013318,000594: 40,2300 50137 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
013319,000595: 40,2301 65025 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
013320,000596: 40,2302 27000 ADS DECBRNCH # BIT 3 FOR R3.
013321,000597: 40,2303 11015 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
013322,000598: 40,2304 35035 CAF ZERO
013323,000599: 40,2305 55015 TS CLPASS
013324,000600: 40,2306 02307 TC +1
013325,000601: 40,2307 05233 TC ENDOFJOB
013326,000602:
013327,000603: 40,2310 02347 POSGN TC SIGNTEST
013328,000604: 40,2311 02314 TC +ON
013329,000605: 40,2312 35033 CAF ONE
013330,000606: 40,2313 02300 TC BOTHSGN
013331,000607:
013332,000608: 40,2314 22002 +ON LXCH Q
013333,000609: 40,2315 02225 TC GETINREL
013334,000610: 40,2316 50137 INDEX INREL
013335,000611: 40,2317 32342 CAF SGNTAB -2
013336,000612: 40,2320 54123 TS SGNOFF
013337,000613: 40,2321 65033 AD ONE
013338,000614: 40,2322 54122 TS SGNON
013339,000615: 40,2323 35035 SGNCOM CAF ZERO
013340,000616: 40,2324 54124 TS CODE
013341,000617: 40,2325 56123 XCH SGNOFF
013342,000618: 40,2326 03311 TC 11DSPIN
013343,000619: 40,2327 35021 CAF BIT11
013344,000620: 40,2330 54124 TS CODE
013345,000621: 40,2331 56122 XCH SGNON
013346,000622: 40,2332 03311 TC 11DSPIN
013347,000623: 40,2333 00001 TC L
013348,000624: 40,2334 22002 -ON LXCH Q
013349,000625: 40,2335 02225 TC GETINREL
013350,000626: 40,2336 50137 INDEX INREL
013351,000627: 40,2337 32342 CAF SGNTAB -2
013352,000628: 40,2340 54122 TS SGNON
013353,000629: 40,2341 65033 AD ONE
013354,000630: 40,2342 54123 TS SGNOFF
013355,000631: 40,2343 02323 TC SGNCOM
013356,000632:
013357,000633: 40,2344 00005 SGNTAB OCT 5 # -R1
013358,000634: 40,2345 00003 OCT 3 # -R2
013359,000635: 40,2346 00000 OCT 0 # -R3
013360,000636:
013361,000637: 40,2347 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
013362,000638: 40,2350 36214 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
013363,000639: 40,2351 71000 MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
013364,000640: 40,2352 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
013365,000641: 40,2353 05233 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
013366,000642: 40,2354 44333 CS R1D1
013367,000643: 40,2355 02363 TC SGNTST1
013368,000644: 40,2356 44334 CS R2D1
013369,000645: 40,2357 02363 TC SGNTST1
013370,000646: 40,2360 44335 CS R3D1
013371,000647: 40,2361 02363 TC SGNTST1
013372,000648: 40,2362 05233 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
013373,000649: 40,2363 60777 SGNTST1 AD DSPCOUNT
013374,000650: 40,2364 00006 EXTEND
013375,000651: 40,2365 12367 BZF +2 # MATCH FOUND
013376,000652: 40,2366 00002 TC Q
013377,000653: 40,2367 00001 TC L # SIGN LEGAL
013378,000654:
013379,000655: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
013380,000656: # NT XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
013381,000657: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
013382,000658:
013383,000659: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
013384,000660: # APPROPRIATE TO BE CLEARED.
013385,000661:
013386,000662: # CLPASS +0 PASS0, CAN BE BACKED UP
013387,000663: # +NZ HIPASS, CAN BE BACKED UP
013388,000664: # -NZ PASS0, CANNOT BE BACKED UP
013389,000665: 40,2370 10777 CLEAR CCS DSPCOUNT
013390,000666: 40,2371 65033 AD ONE
013391,000667: 40,2372 02374 TC +2
013392,000668: 40,2373 65033 AD ONE
013393,000669: 40,2374 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
013394,000670: 40,2375 32231 CAF INRELTAB # FAIL LEGALTST.
013395,000671: 40,2376 54137 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
013396,000672: 40,2377 11015 CCS CLPASS
013397,000673: 40,2400 02406 TC CLPASHI # +
013398,000674: 40,2401 02403 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
013399,000675: 40,2402 02403 TC +1 # -
013400,000676: 40,2403 30137 CA INREL
013401,000677: 40,2404 02430 TC LEGALTST
013402,000678: 40,2405 02423 TC CLEAR1
013403,000679: 40,2406 10137 CLPASHI CCS INREL
013404,000680: 40,2407 54137 TS INREL
013405,000681: 40,2410 02430 TC LEGALTST
013406,000682: 40,2411 32500 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
013407,000683: 40,2412 27013 ADS REQRET
013408,000684: 40,2413 30137 CA INREL
013409,000685: 40,2414 54125 TS MIXTEMP # TEMP STORAGE FOR INREL
013410,000686: 40,2415 00006 EXTEND
013411,000687: 40,2416 27001 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
013412,000688: 40,2417 04676 TC BANKCALL
013413,000689: 40,2420 62340 CADR UPDATVB
013414,000690: 40,2421 30125 CA MIXTEMP
013415,000691: 40,2422 54137 TS INREL # RESTORE INREL
013416,000692: 40,2423 02426 CLEAR1 TC CLR5
013417,000693: 40,2424 25015 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
013418,000694: 40,2425 05233 TC ENDOFJOB # SET FOR HIGHER PASS.
013419,000695: 40,2426 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
013420,000696: 40,2427 02441 TC 5BLANK +2
013421,000697: 40,2430 67715 LEGALTST AD NEG2
013422,000698: 40,2431 10000 CCS A
013423,000699: 40,2432 00002 TC Q # LEGAL INREL G/2
013424,000700: 40,2433 05753 TC CCSHOLE
013425,000701: 40,2434 05233 TC ENDOFJOB # ILLEGAL INREL=0,1
013426,000702: 40,2435 00002 TC Q # LEGAL INREL=2
013427,000703:
013428,000704: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
013429,000705: # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
013430,000706: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
013431,000707:
013432,000708: 40,2436 54777 TS DSPCOUNT # NEEDED FOR BLANKSUB
013433,000709: 40,2437 22002 5BLANK LXCH Q
013434,000710: 40,2440 02225 TC GETINREL
013435,000711: 40,2441 35035 CAF ZERO
013436,000712: 40,2442 50137 INDEX INREL
013437,000713: 40,2443 55001 TS VERBREG # ZERO X, Y, Z REG.
013438,000714: 40,2444 50137 INDEX INREL
013439,000715: 40,2445 55004 TS XREGLP -2
013440,000716: 40,2446 54124 TS CODE
013441,000717: 40,2447 50137 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
013442,000718: 40,2450 45025 CS BIT7 # PROTECT OTHERS
013443,000719: 40,2451 71000 MASK DECBRNCH
013444,000720: 40,2452 72501 MASK BRNCHCON # ZERO LOW 2 BITS.
013445,000721: 40,2453 55000 TS DECBRNCH
013446,000722: 40,2454 50137 INDEX INREL
013447,000723: 40,2455 32471 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
013448,000724: 40,2456 54143 TS COUNT
013449,000725: 40,2457 03227 TC DSPIN
013450,000726: 40,2460 50137 5BLANK1 INDEX INREL
013451,000727: 40,2461 32474 CAF DOUBLK -2
013452,000728: 40,2462 54777 TS DSPCOUNT
013453,000729: 40,2463 02502 TC 2BLANK
013454,000730: 40,2464 45032 CS TWO
013455,000731: 40,2465 26777 ADS DSPCOUNT
013456,000732: 40,2466 02502 TC 2BLANK
013457,000733: 40,2467 50137 INDEX INREL
013458,000734: 40,2470 34331 CAF R1D1 -2
013459,000735: 40,2471 54777 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
013460,000736: 40,2472 00001 TC L # OF REG. JUST BLANKED
013461,000737:
013462,000738: 40,2473 00016 SINBLANK OCT 16 # DEC 14
013463,000739: 40,2474 00005 OCT 5
013464,000740: 40,2475 00004 OCT 4
013465,000741: 40,2476 00015 DOUBLK OCT 15 # DEC 13
013466,000742: 40,2477 00011 OCT 11 # DEC 9
013467,000743: 40,2500 00003 OCT 3
013468,000744:
013469,000745: 40,2501 77774 BRNCHCON OCT 77774
013470,000746:
013471,000747: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
013472,000748: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
013473,000749:
013474,000750: 40,2502 30777 2BLANK CA DSPCOUNT
013475,000751: 40,2503 54021 TS SR
013476,000752: 40,2504 42515 CS BLANKCON
013477,000753: 40,2505 00004 INHINT
013478,000754: 40,2506 50021 INDEX SR
013479,000755: 40,2507 57023 XCH DSPTAB
013480,000756: 40,2510 00006 EXTEND
013481,000757: 40,2511 62513 BZMF +2 # IF OLD CONTENTS -, NOUT OK
013482,000758: 40,2512 25016 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
013483,000759: 40,2513 00003 RELINT # IF -, NOUT OK
013484,000760: 40,2514 00002 TC Q
013485,000761: 40,2515 04000 BLANKCON OCT 4000
013486,000762:
013487,000763: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
013488,000764: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0, - FOR HIGHER
013489,000765: # PASSES.
013490,000766:
013491,000767: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
013492,000768: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
013493,000769: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
013494,000770:
013495,000771: 41,2000 BANK 41
013496,000772: 41,2000 SETLOC PINBALL2
013497,000773: 41,2000 BANK
013498,000774:
013499,000775: 41,2000 COUNT 41/PIN
013500,000776:
013501,000777: 41,2000 03551 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
013502,000778: 41,2001 03014 LOADLV1 TC LOADLV
013503,000779:
013504,000780: # END OF STANDARD LEAD INS.
013505,000781:
013506,000782: 41,2002 35035 ENTER CAF ZERO
013507,000783: 41,2003 55015 TS CLPASS
013508,000784: 41,2004 34233 CAF ENDINST
013509,000785: 41,2005 54136 TS ENTRET
013510,000786: 41,2006 11013 CCS REQRET
013511,000787: 41,2007 02035 TC ENTPAS0 # IF +, PASS 0
013512,000788: 41,2010 02035 TC ENTPAS0 # IF +, PASS 0
013513,000789: 41,2011 02012 TC +1 # IF -, NOT PASS 0
013514,000790: 41,2012 32033 ENTPASHI CAF MMADREF
013515,000791: 41,2013 61013 AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
013516,000792: 41,2014 00006 EXTEND # AND RECYCLE (DECIDE AT MMCHANG+1).
013517,000793: 41,2015 12027 BZF ACCEPTWD
013518,000794: 41,2016 36214 CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
013519,000795: 41,2017 71000 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
013520,000796: 41,2020 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
013521,000797: 41,2021 02023 TC +2 # CHARACTERS AND CONTINUE.
013522,000798: 41,2022 02027 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
013523,000799: 41,2023 10777 CCS DSPCOUNT
013524,000800: 41,2024 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013525,000801: 41,2025 02351 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013526,000802: 41,2026 02027 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
013527,000803: 41,2027 41013 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
013528,000804: 41,2030 55013 TS REQRET # SET REQRET +.
013529,000805: 41,2031 04447 TC FLASHOFF
013530,000806: 41,2032 01013 TC REQRET
013531,000807:
013532,000808: 41,2033 0136 ENTEXIT = ENTRET
013533,000809:
013534,000810: 41,2033 03436 MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
013535,000811:
013536,000812: 41,2034 00034 LOWVERB DEC 28 B-14 # LOWER VERB THAT AVOIDS NOUN TEST.
013537,000813:
013538,000814: 41,2035 35035 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
013539,000815: 41,2036 55000 TS DECBRNCH
013540,000816: 41,2037 44374 CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY
013541,000817: 41,2040 54777 TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS.
013542,000818: 41,2041 41001 TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
013543,000819: 41,2042 55041 TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
013544,000820: 41,2043 62034 AD LOWVERB # LOWVERB - VB
013545,000821: 41,2044 00006 EXTEND
013546,000822: 41,2045 62133 BZMF VERBFAN # VERB G/ E LOWVERB
013547,000823: 41,2046 00006 TESTNN EXTEND # VERB L/ LOWVERB
013548,000824: 41,2047 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
013549,000825: 41,2050 52006 DXCH Z # ROUTINE.
013550,000826: 41,2051 50140 INDEX MIXBR
013551,000827: 41,2052 02052 TC +0
013552,000828: 41,2053 02055 TC +2 # NORMAL
013553,000829: 41,2054 02221 TC MIXNOUN # MIXED
013554,000830: 41,2055 10146 CCS NNADTEM # NORMAL
013555,000831: 41,2056 02131 TC VERBFAN -2 # NORMAL IF +
013556,000832: 41,2057 02351 TC GODSPALM # NOT IN USE IF +0
013557,000833: 41,2060 02064 TC REQADD # SPECIFY MACHINE CADR IF -
013558,000834: 41,2061 25017 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
013559,000835: 41,2062 04325 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
013560,000836: 41,2063 02120 TC INTMCTBS +2
013561,000837: 41,2064 35015 REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY
013562,000838: 41,2065 55015 TS CLPASS
013563,000839: 41,2066 44233 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
013564,000840: 41,2067 60136 AD ENTEXIT # FROM EXTERNAL
013565,000841: 41,2070 00006 EXTEND
013566,000842: 41,2071 12073 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
013567,000843: 41,2072 02116 TC INTMCTBS
013568,000844: 41,2073 02307 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
013569,000845: 41,2074 11000 CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
013570,000846: 41,2075 04161 TC ALMCYCLE # FOR MCTBS.
013571,000847: 41,2076 44374 CS VD1 # OCTAL USED OK
013572,000848: 41,2077 54777 TS DSPCOUNT # BLOCK NUM CHAR IN
013573,000849: 41,2100 11042 CCS CADRSTOR
013574,000850: 41,2101 02104 TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
013575,000851: 41,2102 02105 TC USEADD # ON IF ENDIDLE NOT = +0.
013576,000852: 41,2103 02104 TC +1
013577,000853: 41,2104 04443 TC FLASHON
013578,000854: 41,2105 57005 USEADD XCH ZREG
013579,000855: 41,2106 04317 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
013580,000856: 41,2107 00006 EXTEND
013581,000857: 41,2110 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
013582,000858: 41,2111 52006 DXCH Z # ROUTINE.
013583,000859: 41,2112 02133 TC VERBFAN
013584,000860:
013585,000861: 41,2113 0777 EBANK= DSPCOUNT
013586,000862: 41,2113 02062 64101 LODNNLOC 2CADR LODNNTAB
013587,000863:
013588,000864: 41,2115 77772 NEG5 OCT 77772
013589,000865:
013590,000866: 41,2116 30156 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
013591,000867: 41,2117 04317 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
013592,000868: 41,2120 45036 CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
013593,000869: 41,2121 61001 AD VERBREG # CADR TO BE SPECIFIED.
013594,000870: 41,2122 00006 EXTEND
013595,000871: 41,2123 12133 BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
013596,000872: 41,2124 34335 CAF R3D1 # VB NOT = 05. DISPLAY CADR.
013597,000873: 41,2125 54777 TS DSPCOUNT
013598,000874: 41,2126 31017 CA NOUNCADR
013599,000875: 41,2127 03402 TC DSPOCTWD
013600,000876: 41,2130 02133 TC VERBFAN
013601,000877:
013602,000878: 41,2131 65033 AD ONE
013603,000879: 41,2132 04317 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013604,000880: 41,2133 42145 VERBFAN CS LST2CON
013605,000881: 41,2134 61001 AD VERBREG # VERB-LST2CON
013606,000882: 41,2135 10000 CCS A
013607,000883: 41,2136 65033 AD ONE # VERB G/ LST2CON
013608,000884: 41,2137 02141 TC +2
013609,000885: 41,2140 02146 TC VBFANDIR # VERB L/ LST2CON
013610,000886: 41,2141 54154 TS MPAC
013611,000887: 41,2142 04473 TC RELDSP # RELEASE DISPLAY SYST
013612,000888: 41,2143 04715 TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
013613,000889: 41,2144 66000 CADR GOEXTVB
013614,000890: 41,2145 00050 LST2CON DEC 40 B-14 # FIRST LIST2 VERB (EXTENDED VERB)
013615,000891:
013616,000892: 41,2146 51001 VBFANDIR INDEX VERBREG
013617,000893: 41,2147 32151 CAF VERBTAB
013618,000894: 41,2150 04720 TC BANKJUMP
013619,000895:
013620,000896: 41,2151 62351 VERBTAB CADR GODSPALM # VB00 ILLEGAL
013621,000897: 41,2152 62365 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
013622,000898: 41,2153 62373 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
013623,000899: 41,2154 62400 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
013624,000900: 41,2155 62360 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
013625,000901: 41,2156 62353 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
013626,000902: 41,2157 62523 CADR DECDSP # VB06 DECIMAL DISPLAY
013627,000903: 41,2160 60677 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
013628,000904: 41,2161 62351 CADR GODSPALM # VB08 SPARE
013629,000905: 41,2162 62351 CADR GODSPALM # VB09 SPARE
013630,000906: 41,2163 61325 CADR DSPALARM # VB10 SPARE
013631,000907: 41,2164 63247 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
013632,000908: 41,2165 63247 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
013633,000909: 41,2166 63247 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
013634,000910: 41,2167 63247 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
013635,000911: 41,2170 63247 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
013636,000912: 41,2171 63247 CADR MONITOR # VB16 MONITOR DECIMAL
013637,000913: 41,2172 63247 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
013638,000914: 41,2173 62351 CADR GODSPALM # VB18 SPARE
013639,000915: 41,2174 62351 CADR GODSPALM # VB19 SPARE
013640,000916: 41,2175 62351 CADR GODSPALM # VB20 SPARE
013641,000917: 41,2176 62751 CADR ALOAD # VB21 LOAD COMP 1 (R1)
013642,000918: 41,2177 62762 CADR BLOAD # VB22 LOAD COMP 2 (R2)
013643,000919: 41,2200 62777 CADR CLOAD # VB23 LOAD COMP 3 (R3)
013644,000920: 41,2201 62722 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
013645,000921: 41,2202 62616 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
013646,000922: 41,2203 62351 CADR GODSPALM # VB26 SPARE
013647,000923: 41,2204 63372 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
013648,000924: # THE FOLLOWING VERBS MAKE NO NOUN TEST
013649,000925: 41,2205 62351 CADR GODSPALM # VB28 SPARE
013650,000926: 41,2206 62351 CADR GODSPALM # VB29 SPARE
013651,000927: 41,2207 63473 REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
013652,000928: 41,2210 63517 CADR VBRQWAIT # VB31 REQUEST WAITLIST
013653,000929: 41,2211 61373 CADR VBRESEQ # VB32 RESEQUENCE
013654,000930: 41,2212 61347 CADR VBPROC # VB33 PROCEED WITHOUT DATA
013655,000931: 41,2213 61355 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
013656,000932: 41,2214 63620 CADR VBTSTLTS # VB35 TEST LIGHTS
013657,000933: 41,2215 12342 CADR SLAP1 # VB36 FRESH START
013658,000934: 41,2216 63435 CADR MMCHANG # VB37 CHANGE MAJOR MODE
013659,000935: 41,2217 62351 CADR GODSPALM # VB38 SPARE
013660,000936: 41,2220 62351 CADR GODSPALM # VB39 SPARE
013661,000937:
013662,000938: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
013663,000939: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
013664,000940: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
013665,000941: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
013666,000942: # MIXTEMP.
013667,000943:
013668,000944: 41,2221 10146 MIXNOUN CCS NNADTEM
013669,000945: 41,2222 02226 TC +4 # + IN USE
013670,000946: 41,2223 02351 TC GODSPALM # +0 NOT IN USE
013671,000947: 41,2224 02226 TC +2 # - IN USE
013672,000948: 41,2225 02226 TC +1 # -0 IN USE
013673,000949: 41,2226 46211 CS SIX
013674,000950: 41,2227 61001 AD VERBREG
013675,000951: 41,2230 00006 EXTEND
013676,000952: 41,2231 62233 BZMF +2 # VERB L/E 6
013677,000953: 41,2232 02133 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
013678,000954: 41,2233 35032 CAF TWO
013679,000955: 41,2234 54117 MIXNN1 TS DECOUNT
013680,000956: 41,2235 62260 AD MIXAD
013681,000957: 41,2236 54145 TS NOUNADD # SET NOUNADD TO MIXTEMP +K
013682,000958: 41,2237 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
013683,000959: 41,2240 30150 CA IDAD1TEM # OF NOUN.
013684,000960: 41,2241 54122 TS NOUNTEM
013685,000961: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
013686,000962: # MINOR PART ONLY.
013687,000963: 41,2242 03053 TC SFRUTMIX # GET SF ROUT NUMBER IN A
013688,000964: 41,2243 02261 TC DPTEST
013689,000965: 41,2244 02246 TC MIXNN2 # NO DP
013690,000966: 41,2245 24122 INCR NOUNTEM # DP GET MINOR PART
013691,000967: 41,2246 30122 MIXNN2 CA NOUNTEM
013692,000968: 41,2247 74372 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
013693,000969: 41,2250 04327 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
013694,000970: 41,2251 50000 INDEX A # PICK UP C(ESUBK) NOT DP
013695,000971: 41,2252 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
013696,000972: 41,2253 50145 INDEX NOUNADD
013697,000973: 41,2254 56000 XCH 0 # STORE IN MIXTEM + K
013698,000974: 41,2255 10117 CCS DECOUNT
013699,000975: 41,2256 02234 TC MIXNN1
013700,000976: 41,2257 02133 TC VERBFAN
013701,000977:
013702,000978: 41,2260 00125 MIXAD TC MIXTEMP
013703,000979:
013704,000980: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
013705,000981: # RETURNS TO L+1 IF NO DP.
013706,000982: # RETURNS TO L+2 IF DP.
013707,000983:
013708,000984: 41,2261 50000 DPTEST INDEX A
013709,000985: 41,2262 12263 TCF +1
013710,000986: 41,2263 00002 TC Q # OCTAL ONLY NO DP
013711,000987: 41,2264 00002 TC Q # FRACT NO DP
013712,000988: 41,2265 00002 TC Q # DEG NO DP
013713,000989: 41,2266 00002 TC Q # ARITH NO DP
013714,000990: 41,2267 12301 TCF DPTEST1 # DP1OUT
013715,000991: 41,2270 12301 TCF DPTEST1 # DP2OUT
013716,000992: 41,2271 00002 TC Q # OPDEG NO DP
013717,000993: 41,2272 12301 TCF DPTEST1 # DP3OUT
013718,000994: 41,2273 00002 TC Q # HMS NO DP
013719,000995: 41,2274 00002 TC Q # M/S NO DP
013720,000996: 41,2275 12301 TCF DPTEST1 # DP4OUT
013721,000997: 41,2276 00002 TC Q # ARITH1 NO DP
013722,000998: 41,2277 00002 TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
013723,000999: 41,2300 12301 TCF DPTEST1 # DPFRACOT
013724,001000: 41,2301 50002 DPTEST1 INDEX Q
013725,001001: 41,2302 00001 TC 1 # RETURN TO L+2
013726,001002:
013727,001003: 41,2303 34333 REQDATX CAF R1D1
013728,001004: 41,2304 12310 TCF REQCOM
013729,001005: 41,2305 34334 REQDATY CAF R2D1
013730,001006: 41,2306 12310 TCF REQCOM
013731,001007: 41,2307 34335 REQDATZ CAF R3D1
013732,001008: 41,2310 54777 REQCOM TS DSPCOUNT
013733,001009: 41,2311 40002 CS Q
013734,001010: 41,2312 55013 TS REQRET
013735,001011: 41,2313 04676 TC BANKCALL
013736,001012: 41,2314 60437 CADR 5BLANK
013737,001013: 41,2315 04443 TC FLASHON
013738,001014: 41,2316 00136 ENDRQDAT TC ENTEXIT
013739,001015:
013740,001016: 41,2317 55002 TS NOUNREG
013741,001017: 41,2320 56002 UPDATNN XCH Q
013742,001018: 41,2321 54117 TS UPDATRET
013743,001019: 41,2322 00006 EXTEND
013744,001020: 41,2323 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
013745,001021: 41,2324 52006 DXCH Z # ROUTINE.
013746,001022: 41,2325 10146 CCS NNADTEM
013747,001023: 41,2326 65033 AD ONE # NORMAL
013748,001024: 41,2327 12332 TCF PUTADD
013749,001025: 41,2330 12333 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
013750,001026: 41,2331 12333 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
013751,001027: 41,2332 04317 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013752,001028: 41,2333 34375 CAF ND1
013753,001029: 41,2334 54777 TS DSPCOUNT
013754,001030: 41,2335 31002 CA NOUNREG
013755,001031: 41,2336 12345 TCF UPDAT1
013756,001032:
013757,001033: 41,2337 55001 TS VERBREG
013758,001034: 41,2340 56002 UPDATVB XCH Q
013759,001035: 41,2341 54117 TS UPDATRET
013760,001036: 41,2342 34374 CAF VD1
013761,001037: 41,2343 54777 TS DSPCOUNT
013762,001038: 41,2344 31001 CA VERBREG
013763,001039: 41,2345 04715 UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN, SINCE
013764,001040: 41,2346 61224 CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
013765,001041: 41,2347 00117 TC UPDATRET
013766,001042:
013767,001043: 41,2350 04161 GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
013768,001044:
013769,001045: 41,2351 04715 GODSPALM TC POSTJUMP
013770,001046: 41,2352 61325 CADR DSPALARM
013771,001047:
013772,001048: # NOUN TABLES
013773,001049:
013774,001050: # NOUN CODE L/40, NORMAL NOUN CASE. NOUN CODE G/E 40, MIXED NOUN CASE.
013775,001051: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
013776,001052: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR (E OR F) TO
013777,001053: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
013778,001054: # OF LAST MACHINE CADR SUPPLIED.
013779,001055:
013780,001056: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS (IDADDREL) IN LOW
013781,001057: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
013782,001058:
013783,001059: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
013784,001060:
013785,001061: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
013786,001062: # N-S ARE THE SF ROUTINE CODE NUMBER.
013787,001063: # P-S ARE THE SF CONSTANT CODE NUMBER.
013788,001064:
013789,001065: # MIXED CASE, M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
013790,001066: # N-S ARE THE SF CONSTANT2 CODE NUMBER
013791,001067: # P-S ARE THE SF CONSTANT1 CODE NUMBER
013792,001068: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
013793,001069: # P-S ARE THE SF CONSTANT1 CODE NUMBER
013794,001070: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
013795,001071:
013796,001072: # THERE IS ALSO AN INDIRECT ADDRESS TABLE (IDADDTAB) FOR MIXED CASE ONLY.
013797,001073: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
013798,001074: # THE FIRST OF THESE ENTRIES.
013799,001075:
013800,001076: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
013801,001077: # THEY ARE LISTED IN ORDER OF ASCENDING K.
013802,001078:
013803,001079: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE (RUTMXTAB) FOR MIXED
013804,001080: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
013805,001081:
013806,001082: # QQQQQRRRRRSSSSS
013807,001083:
013808,001084: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
013809,001085: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
013810,001086: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
013811,001087: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
013812,001088: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
013813,001089:
013814,001090: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
013815,001091: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
013816,001092: # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
013817,001093:
013818,001094: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
013819,001095: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
013820,001096:
013821,001097: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
013822,001098: # BEFORE EACH ENTER. IF NOT, ALARM.
013823,001099:
013824,001100: # DISPLAY VERBS
013825,001101:
013826,001102: 41,2353 45032 DSPABC CS TWO
013827,001103: 41,2354 02424 TC COMPTEST
013828,001104: 41,2355 50145 INDEX NOUNADD
013829,001105: 41,2356 40002 CS 2
013830,001106: 41,2357 56132 XCH BUF +2
013831,001107: 41,2360 45033 DSPAB CS ONE
013832,001108: 41,2361 02424 TC COMPTEST
013833,001109: 41,2362 50145 INDEX NOUNADD
013834,001110: 41,2363 40001 CS 1
013835,001111: 41,2364 56131 XCH BUF +1
013836,001112: 41,2365 02443 DSPA TC DECTEST
013837,001113: 41,2366 02466 TC TSTFORDP
013838,001114: 41,2367 50145 INDEX NOUNADD
013839,001115: 41,2370 40000 CS 0
013840,001116: 41,2371 56130 DSPCOM1 XCH BUF
013841,001117: 41,2372 02405 TC DSPCOM2
013842,001118: 41,2373 45033 DSPB CS ONE
013843,001119: 41,2374 02437 TC DCOMPTST
013844,001120: 41,2375 50145 INDEX NOUNADD
013845,001121: 41,2376 40001 CS 1
013846,001122: 41,2377 02371 TC DSPCOM1
013847,001123: 41,2400 45032 DSPC CS TWO
013848,001124: 41,2401 02437 TC DCOMPTST
013849,001125: 41,2402 50145 INDEX NOUNADD
013850,001126: 41,2403 40002 CS 2
013851,001127: 41,2404 02371 TC DSPCOM1
013852,001128: 41,2405 45032 DSPCOM2 CS TWO # A B C AB ABC
013853,001129: 41,2406 61001 AD VERBREG # -1 -0 +1 +2 +3 IN A
013854,001130: 41,2407 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
013855,001131: 41,2410 02413 TC DSPCOM3
013856,001132: 41,2411 00136 TC ENTEXIT
013857,001133: 41,2412 02413 TC +1
013858,001134: 41,2413 54122 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
013859,001135: 41,2414 50000 INDEX A
013860,001136: 41,2415 34333 CAF R1D1
013861,001137: 41,2416 54777 TS DSPCOUNT
013862,001138: 41,2417 50122 INDEX DISTEM
013863,001139: 41,2420 40130 CS BUF
013864,001140: 41,2421 03402 TC DSPOCTWD
013865,001141: 41,2422 56122 XCH DISTEM
013866,001142: 41,2423 02407 TC DSPCOM2 +2
013867,001143:
013868,001144: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
013869,001145: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
013870,001146:
013871,001147: 41,2424 54123 COMPTEST TS SFTEMP1 # - VERB COMP
013872,001148: 41,2425 22002 LXCH Q
013873,001149: 41,2426 02515 COMPTST1 TC GETCOMP
013874,001150: 41,2427 04345 TC LEFT5
013875,001151: 41,2430 76214 MASK THREE # NOUN COMP
013876,001152: 41,2431 60123 AD SFTEMP1 # NOUN COMP - VERB COMP
013877,001153: 41,2432 10000 CCS A
013878,001154: 41,2433 00001 TC L # NOUN COMP G/ VERB COMP
013879,001155: 41,2434 05753 TC CCSHOLE
013880,001156: 41,2435 02351 TC GODSPALM # NOUN COMP L/ VERB COMP
013881,001157: 41,2436 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
013882,001158:
013883,001159: # DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
013884,001160: # IF NOT, IT PERFORMS REGULAR COMPTEST.
013885,001161:
013886,001162: 41,2437 54123 DCOMPTST TS SFTEMP1 # - VERB COMP
013887,001163: 41,2440 22002 LXCH Q
013888,001164: 41,2441 02443 TC DECTEST
013889,001165: 41,2442 02426 TC COMPTST1
013890,001166:
013891,001167: 41,2443 00006 DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
013892,001168: 41,2444 22156 QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
013893,001169: 41,2445 02515 TC GETCOMP
013894,001170: 41,2446 75016 MASK BIT14
013895,001171: 41,2447 10000 CCS A
013896,001172: 41,2450 02351 TC GODSPALM
013897,001173: 41,2451 00156 TC MPAC +2
013898,001174:
013899,001175: 41,2452 22002 DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
013900,001176: 41,2453 02515 TC GETCOMP # (BIT4 OF COMP CODE NUMBER). RETURNS
013901,001177: 41,2454 75016 MASK BIT14 # IF NOT. USED BY LOAD VERBS.
013902,001178: 41,2455 10000 CCS A
013903,001179: 41,2456 04161 TC ALMCYCLE
013904,001180: 41,2457 00001 TC L
013905,001181:
013906,001182: # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
013907,001183: # IF NOT, IT RETURNS.
013908,001184:
013909,001185: 41,2460 22002 NOUNTEST LXCH Q
013910,001186: 41,2461 02515 TC GETCOMP
013911,001187: 41,2462 10000 CCS A
013912,001188: 41,2463 00001 TC L
013913,001189: 41,2464 00001 TC L
013914,001190: 41,2465 02351 TC GODSPALM
013915,001191:
013916,001192: 41,2466 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
013917,001193: 41,2467 30146 CA NNADTEM
013918,001194: 41,2470 65033 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
013919,001195: 41,2471 00006 EXTEND
013920,001196: 41,2472 12504 BZF CHANDSP
013921,001197: 41,2473 50140 INDEX MIXBR
013922,001198: 41,2474 02474 TC +0
013923,001199: 41,2475 02477 TC +2 # NORMAL
013924,001200: 41,2476 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
013925,001201: 41,2477 03045 TC SFRUTNOR
013926,001202: 41,2500 02261 TC DPTEST
013927,001203: 41,2501 00001 TC L # NO DP
013928,001204: 41,2502 24145 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
013929,001205: 41,2503 00001 TC L
013930,001206:
013931,001207: 41,2504 31017 CHANDSP CA NOUNCADR
013932,001208: 41,2505 75062 MASK LOW9
013933,001209: 41,2506 00006 EXTEND
013934,001210: 41,2507 50000 INDEX A
013935,001211: 41,2510 00000 READ 0
013936,001212: 41,2511 40000 CS A
013937,001213: 41,2512 12371 TCF DSPCOM1
013938,001214:
013939,001215: 41,2513 00147 COMPICK ADRES NNTYPTEM
013940,001216: 41,2514 00146 ADRES NNADTEM
013941,001217:
013942,001218: 41,2515 50140 GETCOMP INDEX MIXBR # NORMAL MIXED
013943,001219: 41,2516 32512 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
013944,001220: 41,2517 50000 INDEX A
013945,001221: 41,2520 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
013946,001222: 41,2521 74364 MASK HI5 # GET HI5 OF NNTYPTAB (NORM) OF NNADTAB (MIX)
013947,001223: 41,2522 00002 TC Q
013948,001224:
013949,001225: 41,2523 02515 DECDSP TC GETCOMP
013950,001226: 41,2524 04345 TC LEFT5
013951,001227: 41,2525 76214 MASK THREE
013952,001228: 41,2526 54117 TS DECOUNT # COMP NUMBER INTO DECOUNT
013953,001229: 41,2527 54122 DSPDCGET TS DECTEM # PICKS UP DATA
013954,001230: 41,2530 60145 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
013955,001231: 41,2531 50000 INDEX A
013956,001232: 41,2532 40000 CS 0
013957,001233: 41,2533 50122 INDEX DECTEM
013958,001234: 41,2534 57003 XCH XREG # CANT USE BUF SINCE DMP USES IT.
013959,001235: 41,2535 10122 CCS DECTEM
013960,001236: 41,2536 02527 TC DSPDCGET # MORE TO GET
013961,001237: 41,2537 35035 DSPDCPUT CAF ZERO # DISPLAYS DATA
013962,001238: 41,2540 54155 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
013963,001239: 41,2541 54156 TS MPAC +2
013964,001240: 41,2542 50117 INDEX DECOUNT
013965,001241: 41,2543 34333 CAF R1D1
013966,001242: 41,2544 54777 TS DSPCOUNT
013967,001243: 41,2545 50117 INDEX DECOUNT
013968,001244: 41,2546 41003 CS XREG
013969,001245: 41,2547 54154 TS MPAC
013970,001246: 41,2550 03066 TC SFCONUM # 2X (SF CON NUMB) IN A
013971,001247: 41,2551 54123 TS SFTEMP1
013972,001248: 41,2552 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
013973,001249: 41,2553 32565 DCA GTSFOUTL # READING ROUTINE.
013974,001250: 41,2554 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
013975,001251: 41,2555 50140 INDEX MIXBR
013976,001252: 41,2556 02556 TC +0
013977,001253: 41,2557 02562 TC DSPSFNOR
013978,001254: 41,2560 03053 TC SFRUTMIX
013979,001255: 41,2561 02575 TC DECDSP3
013980,001256:
013981,001257: 41,2562 03045 DSPSFNOR TC SFRUTNOR
013982,001258: 41,2563 02575 TC DECDSP3
013983,001259:
013984,001260: 41,2564 0777 EBANK= DSPCOUNT
013985,001261: 41,2564 02120 64101 GTSFOUTL 2CADR GTSFOUT
013986,001262:
013987,001263: 41,2566 04676 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
013988,001264: 41,2567 61133 CADR DSPDECWD
013989,001265: 41,2570 10117 CCS DECOUNT
013990,001266: 41,2571 02573 TC +2
013991,001267: 41,2572 00136 TC ENTEXIT
013992,001268: 41,2573 54117 TS DECOUNT
013993,001269: 41,2574 02537 TC DSPDCPUT # MORE TO DISPLAY
013994,001270:
013995,001271: 41,2575 50000 DECDSP3 INDEX A
013996,001272: 41,2576 32600 CAF SFOUTABR
013997,001273: 41,2577 04720 TC BANKJUMP
013998,001274:
013999,001275: 41,2600 61323 SFOUTABR CADR PREDSPAL # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
014000,001276: 41,2601 62566 CADR DSPDCEND
014001,001277: 41,2602 60516 CADR DEGOUTSF
014002,001278: 41,2603 60603 CADR ARTOUTSF
014003,001279: 41,2604 60614 CADR DP1OUTSF
014004,001280: 41,2605 60621 CADR DP2OUTSF
014005,001281: 41,2606 60524 CADR OPDEGOUT
014006,001282: 41,2607 60623 CADR DP3OUTSF
014007,001283: 41,2610 65143 CADR HMSOUT
014008,001284: 41,2611 65216 CADR M/SOUT
014009,001285: 41,2612 60621 CADR DP2OUTSF
014010,001286: 41,2613 60610 CADR AROUT1SF
014011,001287: 41,2614 60636 CADR 2INTOUT
014012,001288: 41,2615 60653 CADR DPFRACOT
014013,001289: 41,2616 ENDRTOUT EQUALS
014014,001290:
014015,001291: # THE FOLLOWING IS ATYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
014016,001292: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
014017,001293:
014018,001294:
014019,001295: 40,2516 SETLOC BLANKCON +1
014020,001296:
014021,001297: 40,2516 COUNT 40/PIN
014022,001298: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
014023,001299: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
014024,001300:
014025,001301: 40,2516 35035 DEGOUTSF CAF ZERO
014026,001302: 40,2517 54156 TS MPAC +2 # SET INDEX FOR FULL SCALE
014027,001303: 40,2520 02555 TC FIXRANGE
014028,001304: 40,2521 02523 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
014029,001305: 40,2522 02550 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
014030,001306: 40,2523 02566 TC DEGCOM
014031,001307:
014032,001308: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
014033,001309:
014034,001310: 40,2524 10154 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
014035,001311: 40,2525 56154 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
014036,001312: 40,2526 02531 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
014037,001313: 40,2527 02540 TC NEGOPT # IF NEG NON ZERO
014038,001314: 40,2530 67716 AD NEG1 # IF NEG ZERO SUBTRACT 1
014039,001315: 40,2531 62602 AD 20BIAS
014040,001316: 40,2532 54154 BIASCOM TS MPAC # TEST FOR OVERFLOW
014041,001317: 40,2533 02536 TC +3 # NO OVFLOW
014042,001318: 40,2534 35015 CAF BIT15 # IF OVFLOW
014043,001319: 40,2535 26154 ADS MPAC
014044,001320: 40,2536 35032 CAF TWO # SET MULTIPLIER TO .45
014045,001321: 40,2537 02517 TC DEGOUTSF +1
014046,001322:
014047,001323: 40,2540 56154 NEGOPT XCH MPAC # NEGATIVE CASE
014048,001324: 40,2541 62602 AD 20BIAS
014049,001325: 40,2542 10000 CCS A
014050,001326: 40,2543 02532 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
014051,001327: 40,2544 05753 TC CCSHOLE
014052,001328: 40,2545 65033 AD ONE # IF NEG RESTORE SUM
014053,001329: 40,2546 40000 COM # IF NEG 0 LEAVE NEG 0
014054,001330: 40,2547 02532 TC BIASCOM
014055,001331:
014056,001332: 40,2550 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
014057,001333: 40,2551 50156 INDEX MPAC +2 # DP AUGMENTER CONSTANT
014058,001334: 40,2552 32577 DCA DEGTAB
014059,001335: 40,2553 52124 DXCH SFTEMP1
014060,001336: 40,2554 00002 TC Q
014061,001337:
014062,001338: 40,2555 10154 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
014063,001339: 40,2556 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
014064,001340: 40,2557 00002 TC Q # MASKING OUT THE SIGN BIT
014065,001341: 40,2560 12561 TCF +1
014066,001342: 40,2561 45015 CS BIT15
014067,001343: 40,2562 70154 MASK MPAC
014068,001344: 40,2563 54154 TS MPAC
014069,001345: 40,2564 50002 INDEX Q
014070,001346: 40,2565 00001 TC 1
014071,001347:
014072,001348: 40,2566 00006 DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
014073,001349: 40,2567 50156 INDEX MPAC +2 # ADDS AUGMENTER.
014074,001350: 40,2570 32577 DCA DEGTAB
014075,001351: 40,2571 52155 DXCH MPAC # ADJUSTED ANGLE IN A
014076,001352: 40,2572 07256 TC SHORTMP
014077,001353: 40,2573 52124 DXCH SFTEMP1
014078,001354: 40,2574 20155 DAS MPAC
014079,001355: 40,2575 02606 TC SCOUTEND
014080,001356:
014081,001357: 40,2576 05605 DEGTAB OCT 05605 # HI PART OF .18
014082,001358: 40,2577 03656 OCT 03656 # LOW PART OF .18
014083,001359: 40,2600 16314 OCT 16314 # HI PART OF .45
014084,001360: 40,2601 31463 OCT 31463 # LO PART OF .45
014085,001361:
014086,001362: 40,2602 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
014087,001363:
014088,001364: 40,2603 52124 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
014089,001365: 40,2604 52155 DXCH MPAC
014090,001366: 40,2605 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014091,001367: 40,2606 04715 SCOUTEND TC POSTJUMP
014092,001368: 40,2607 62566 CADR DSPDCEND
014093,001369:
014094,001370: 40,2610 52124 AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
014095,001371: 40,2611 52155 DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
014096,001372: 40,2612 04431 TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
014097,001373: 40,2613 02615 TC L14/OUT
014098,001374:
014099,001375: 40,2614 02627 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014100,001376: 40,2615 56156 L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
014101,001377: 40,2616 56155 XCH MPAC +1 # BY B14.
014102,001378: 40,2617 54154 TS MPAC
014103,001379: 40,2620 02606 TC SCOUTEND
014104,001380:
014105,001381: 40,2621 02627 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014106,001382: 40,2622 02606 TC SCOUTEND
014107,001383:
014108,001384: 40,2623 02627 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014109,001385: 40,2624 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
014110,001386: 40,2625 03060 TC TPLEFTN # SHIFT LEFT 7.
014111,001387: 40,2626 02606 TC SCOUTEND
014112,001388:
014113,001389:
014114,001390: 40,2627 0162 MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
014115,001391:
014116,001392: 40,2627 56002 DPOUT XCH Q
014117,001393: 40,2630 54162 TS MPAC+6
014118,001394: 40,2631 02655 TC READLO # GET FRESH DATA FOR BOTH HI AND LO.
014119,001395: 40,2632 07226 TC TPAGREE # MAKE DP DATA AGREE
014120,001396: 40,2633 07052 TC DMP
014121,001397: 40,2634 00123 ADRES SFTEMP1
014122,001398: 40,2635 00162 TC MPAC+6
014123,001399:
014124,001400: # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
014125,001401: # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
014126,001402: # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
014127,001403: # RXD1-RXD2.
014128,001404:
014129,001405: 40,2636 02437 2INTOUT TC 5BLANK # TO BLANK RXD3
014130,001406: 40,2637 02314 TC +ON # TURN ON + SIGN
014131,001407: 40,2640 30154 CA MPAC
014132,001408: 40,2641 03213 TC DSPDECVN # DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
014133,001409: 40,2642 46214 CS THREE
014134,001410: 40,2643 50117 INDEX DECOUNT
014135,001411: 40,2644 64333 AD R1D1 # RXD4
014136,001412: 40,2645 54777 TS DSPCOUNT
014137,001413: 40,2646 02655 TC READLO # GET 2ND INTEGER
014138,001414: 40,2647 30155 CA MPAC +1
014139,001415: 40,2650 03213 TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
014140,001416: 40,2651 04715 TC POSTJUMP
014141,001417: 40,2652 62570 CADR DSPDCEND +2
014142,001418:
014143,001419: 40,2653 02655 DPFRACOT TC READLO # DP FRACTION TO MPAC,+1
014144,001420: 40,2654 02606 TC SCOUTEND
014145,001421:
014146,001422: # READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN
014147,001423: # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
014148,001424: # DOES NOT FORCE TPAGREE.
014149,001425:
014150,001426: 40,2655 56002 READLO XCH Q
014151,001427: 40,2656 54144 TS TEM4
014152,001428: 40,2657 50140 INDEX MIXBR
014153,001429: 40,2660 02660 TC +0
014154,001430: 40,2661 02675 TC RDLONOR
014155,001431: 40,2662 50117 INDEX DECOUNT
014156,001432: 40,2663 30150 CA IDAD1TEM # GET IDADDTAB ENTRY FOR COMP K OF NOUN.
014157,001433: 40,2664 74372 MASK LOW11 # E SUBK
014158,001434: 40,2665 04327 TC SETEBANK # SET EB, LEAVE EADRES IN A.
014159,001435: 40,2666 00006 READLO1 EXTEND # MIXED NORMAL
014160,001436: 40,2667 50000 INDEX A # C(ESUBK) C(E)
014161,001437: 40,2670 30001 DCA 0 # C((E SUBK)+1) C(E+1)
014162,001438: 40,2671 52155 DXCH MPAC
014163,001439: 40,2672 35035 CAF ZERO
014164,001440: 40,2673 54156 TS MPAC +2
014165,001441: 40,2674 00144 TC TEM4
014166,001442:
014167,001443: 40,2675 30145 RDLONOR CA NOUNADD # E
014168,001444: 40,2676 02666 ENDRDLO TC READLO1
014169,001445:
014170,001446: 42,3143 BANK 42
014171,001447: 42,2000 SETLOC PINBALL3
014172,001448: 42,2000 BANK
014173,001449:
014174,001450: 42,3143 COUNT 42/PIN
014175,001451:
014176,001452: 42,3143 04676 HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
014177,001453: 42,3144 60655 CADR READLO # MPAC+1.
014178,001454: 42,3145 07226 TC TPAGREE # MAKE DP DATA AGREE
014179,001455: 42,3146 03332 TC SEPSECNR # LEAVE FRACT SEC/60 IN MPAC, MPAC+1. LEAVE
014180,001456: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014181,001457: 42,3147 07052 TC DMP # USE ONLY FRACT SEC/60 MOD 60
014182,001458: 42,3150 03204 ADRES SECON2 # MULT BY .06
014183,001459: 42,3151 34335 CAF R3D1 # GIVES CENTI-SEC/10EXP5 MOD 60
014184,001460: 42,3152 54777 TS DSPCOUNT
014185,001461: 42,3153 04676 TC BANKCALL # DISPLAY SEC MOD 60
014186,001462: 42,3154 61133 CADR DSPDECWD
014187,001463: 42,3155 03350 TC SEPMIN # REMOVE REST OF SECONDS
014188,001464: 42,3156 33206 CAF MINCON2 # LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
014189,001465: 42,3157 56154 XCH MPAC # WHOLE HOURS IN MPAC.
014190,001466: 42,3160 55007 TS HITEMOUT # SAVE WHOLE HOURS.
014191,001467: 42,3161 33207 CAF MINCON2 +1
014192,001468: 42,3162 56155 XCH MPAC +1 # USE ONLY FRACT MIN/60 MOD 60
014193,001469: 42,3163 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014194,001470: # MULT BY .0006
014195,001471: 42,3164 34334 CAF R2D1 # GIVES MIN/10EXP5 MOD 60
014196,001472: 42,3165 54777 TS DSPCOUNT
014197,001473: 42,3166 04676 TC BANKCALL # DISPLAY MIN MOD 60
014198,001474: 42,3167 61133 CADR DSPDECWD
014199,001475: 42,3170 00006 EXTEND # MINUTES, SECONDS HAVE BEEN REMOVED
014200,001476: 42,3171 33213 DCA HRCON1
014201,001477: 42,3172 52155 DXCH MPAC
014202,001478: 42,3173 31007 CA HITEMOUT # USE WHOLE HOURS
014203,001479: 42,3174 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014204,001480: # MULT BY .16384
014205,001481: 42,3175 34333 CAF R1D1 # GIVES HOURS/10EXP5
014206,001482: 42,3176 54777 TS DSPCOUNT
014207,001483: 42,3177 04676 TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
014208,001484: 42,3200 61133 CADR DSPDECWD
014209,001485: 42,3201 00136 TC ENTEXIT
014210,001486:
014211,001487: 42,3202 25660 31742 SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
014212,001488: 42,3204 01727 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
014213,001489: 42,3205 01217 OCT 01217
014214,001490: 42,3206 00011 MINCON2 OCT 00011 # .0006 FOR MINUTES DISLPAY
014215,001491: 42,3207 32445 OCT 32445
014216,001492: 42,3210 02104 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
014217,001493: 42,3211 10422 OCT 10422
014218,001494: 42,3212 05174 13261 HRCON1 2DEC .16384
014219,001495: 42,3214 00000 OCT 00000
014220,001496: 42,3215 00062 RNDCON OCT 00062 # .5 SEC
014221,001497:
014222,001498: 42,3216 04676 M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
014223,001499: 42,3217 60655 CADR READLO # MPAC+1.
014224,001500: 42,3220 07226 TC TPAGREE # MAKE DP DATA AGREE
014225,001501: 42,3221 10154 CCS MPAC # IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
014226,001502: 42,3222 03224 TC +2 # DISPLAY 59B59, WITH PROPER SIGN.
014227,001503: 42,3223 03255 TC M/SNORM # MPAC = +0. L/ 59M58.5S
014228,001504: 42,3224 63312 AD M/SCON1 # - HI PART OF (59M58.5S) +1 FOR CCS
014229,001505: 42,3225 10000 CCS A # MAG OF MPAC - HI PART OF (59M58.5S)
014230,001506: 42,3226 03241 TC M/SLIMIT # G/ 59M58.5S
014231,001507: 42,3227 03255 TC M/SNORM # ORIGINAL MPAC = -0. L/59M58.5S
014232,001508: 42,3230 03255 TC M/SNORM # L/ 59M58.5S
014233,001509: 42,3231 10155 CCS MPAC +1 # MAG OF MPAC = HI PART OF 59M58.5S
014234,001510: 42,3232 03234 TC +2
014235,001511: 42,3233 03255 TC M/SNORM # MPAC+1 = +0. L/ 59M58.5S
014236,001512: 42,3234 63313 AD M/SCON2 # - LO PART OF (59M58.5S) +1 FOR CCS
014237,001513: 42,3235 10000 CCS A # MAG OF MPAC+1 - LO PART OF (59M58.5S)
014238,001514: 42,3236 03241 TC M/SLIMIT # G/ 59M58.5S
014239,001515: 42,3237 03255 TC M/SNORM # ORIGINAL MPAC+1 = -0. L/ 59M58.5S
014240,001516: 42,3240 03255 TC M/SNORM # L/ 59M58.5S
014241,001517: 42,3241 10154 M/SLIMIT CCS MPAC # = 59M58.5S LIMIT
014242,001518: 42,3242 33315 CAF M/SCON3 # MPAC CANNOT BE +/- 0 AT THIS POINT.
014243,001519: 42,3243 03252 TC +LIMIT # FORCE MPAC, MPAC+1 TO +/- 59M59.5S
014244,001520: 42,3244 43315 CS M/SCON3
014245,001521: 42,3245 54154 TS MPAC # WILL DISPLAY 59M59S IN DSPDECNR
014246,001522: 42,3246 43316 CS M/SCON3 +1
014247,001523: 42,3247 54155 LIMITCOM TS MPAC +1
014248,001524: 42,3250 33314 CAF NORMADR # SET RETURN TO M/SNORM+1.
014249,001525: 42,3251 03333 TC SEPSECNR +1
014250,001526: 42,3252 54154 +LIMIT TS MPAC
014251,001527: 42,3253 33316 CAF M/SCON3 +1
014252,001528: 42,3254 03247 TC LIMITCOM
014253,001529: 42,3255 03317 M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
014254,001530: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014255,001531: 42,3256 33310 CAF HISECON # USE ONLY FRACT SEC/60 MOD 60
014256,001532: 42,3257 07256 TC SHORTMP # MULT BY .6 + 2EXP-14
014257,001533: 42,3260 46214 CS THREE # GIVES SEC/100 MOD 60
014258,001534: 42,3261 26777 ADS DSPCOUNT # DSPCOUNT ALREADY SET TO RXD1
014259,001535: 42,3262 04676 TC BANKCALL # DISPLAY SEC MOD 60 IN D4D5.
014260,001536: 42,3263 61173 CADR DSPDC2NR
014261,001537: 42,3264 35035 CAF ZERO
014262,001538: 42,3265 54124 TS CODE
014263,001539: 42,3266 45032 CS TWO
014264,001540: 42,3267 50117 INDEX DECOUNT
014265,001541: 42,3270 64333 AD R1D1 # RXD3
014266,001542: 42,3271 54143 TS COUNT
014267,001543: 42,3272 04676 TC BANKCALL # BLANK MIDDLE CHAR
014268,001544: 42,3273 61227 CADR DSPIN
014269,001545: 42,3274 03350 TC SEPMIN # REMOVE REST OF SECONDS
014270,001546: 42,3275 56155 XCH MPAC +1 # LEAVE FRACT MIN/60 IN MPAC+1
014271,001547: 42,3276 00006 EXTEND # USE ONLY FRACT MIN/60 MOD 60
014272,001548: 42,3277 73311 MP HIMINCON # MULT BY .6 + 2EXP-7
014273,001549: 42,3300 52155 DXCH MPAC # GIVES MIN/100 MOD 60
014274,001550: 42,3301 50117 INDEX DECOUNT
014275,001551: 42,3302 34333 CAF R1D1 # RXD1
014276,001552: 42,3303 54777 TS DSPCOUNT
014277,001553: 42,3304 04676 TC BANKCALL # DISPLAY MIN MOD 60 IN D1D2.
014278,001554: 42,3305 61173 CADR DSPDC2NR
014279,001555: 42,3306 04715 TC POSTJUMP
014280,001556: 42,3307 62570 CADR DSPDCEND +2
014281,001557:
014282,001558: 42,3310 23147 HISECON OCT 23147 # .6 + 2EXP-14
014283,001559: 42,3311 23346 HIMINCON OCT 23346 # .6 + 2EXP-7
014284,001560:
014285,001561: 42,3312 77753 M/SCON1 OCT 77753 # - HI PART OF (59M58.5S) +1
014286,001562: 42,3313 41126 M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
014287,001563: 42,3314 03256 NORMADR ADRES M/SNORM +1
014288,001564: 42,3315 00025 M/SCON3 OCT 00025 # 59M 59.5S
014289,001565: 42,3316 37016 OCT 37016
014290,001566:
014291,001567: 42,3317 10155 SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
014292,001568: 42,3320 13327 TCF POSEC # IF -, ROUND BY SUBTRACTING .5 SEC
014293,001569: 42,3321 13327 TCF POSEC # FINDS TIME IN MPAC, MPAC+1
014294,001570: 42,3322 13323 TCF +1 # ROUNDS OFF BY +/- .5 SEC
014295,001571: 42,3323 00006 EXTEND # LEAVES WHOLE MIN IN BIT13 OF
014296,001572: 42,3324 43215 DCS RNDCON -1 # LOTEMOUT AND ABOVE.
014297,001573: 42,3325 20155 SEPSEC1 DAS MPAC # LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
014298,001574: 42,3326 13332 TCF SEPSECNR
014299,001575: 42,3327 00006 POSEC EXTEND
014300,001576: 42,3330 33215 DCA RNDCON -1
014301,001577: 42,3331 13325 TCF SEPSEC1
014302,001578: 42,3332 56002 SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
014303,001579: 42,3333 54144 TS SEPSCRET
014304,001580: 42,3334 07052 TC DMP # MULT BY 2EXP12/6000
014305,001581: 42,3335 03202 ADRES SECON1 # GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
014306,001582: 42,3336 00006 EXTEND # AND BELOW.
014307,001583: 42,3337 30155 DCA MPAC # SAVE MINUTES AND HOURS
014308,001584: 42,3340 53010 DXCH HITEMOUT
014309,001585: 42,3341 04420 TC TPSL1
014310,001586: 42,3342 04420 TC TPSL1 # GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
014311,001587: 42,3343 35035 CAF ZERO
014312,001588: 42,3344 56156 XCH MPAC +2 # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
014313,001589: 42,3345 56155 XCH MPAC +1
014314,001590: 42,3346 56154 XCH MPAC
014315,001591: 42,3347 00144 TC SEPSCRET
014316,001592:
014317,001593: 42,3350 56002 SEPMIN XCH Q # FINDS WHOLE MINUTES IN BIT13
014318,001594: 42,3351 54144 TS SEPMNRET # OF LOTEMOUT AND ABOVE.
014319,001595: 42,3352 31010 CA LOTEMOUT # REMOVES REST OF SECONDS.
014320,001596: 42,3353 00006 EXTEND # LEAVES FRACT MIN/60 IN MPAC+1.
014321,001597: 42,3354 75031 MP BIT3 # LEAVES WHOLE HOURS IN MPAC.
014322,001598: 42,3355 00006 EXTEND # SR 12, THROW AWAY LP.
014323,001599: 42,3356 75017 MP BIT13 # SR 2, TAKE FROM LP. = SL 12.
014324,001600: 42,3357 22155 LXCH MPAC +1 # THIS FORCES BITS 12-1 TO 0 IF +,
014325,001601: # FORCES BITS 12-1 TO 1 IF -.
014326,001602: 42,3360 31007 CA HITEMOUT
014327,001603: 42,3361 54154 TS MPAC
014328,001604: 42,3362 07052 TC DMP # MULT BY 1/15
014329,001605: 42,3363 03210 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
014330,001606: 42,3364 00144 ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
014331,001607:
014332,001608: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
014333,001609: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
014334,001610: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
014335,001611: # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE
014336,001612: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
014337,001613: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
014338,001614:
014339,001615: 40,2677 SETLOC ENDRDLO +1
014340,001616:
014341,001617: 40,2677 COUNT 40/PIN
014342,001618:
014343,001619: 40,2677 50140 DSPDPDEC INDEX MIXBR
014344,001620: 40,2700 02700 TC +0
014345,001621: 40,2701 02703 TC +2 # NORMAL NOUN
014346,001622: 40,2702 03325 TC DSPALARM
014347,001623: 40,2703 00006 EXTEND
014348,001624: 40,2704 50145 INDEX NOUNADD
014349,001625: 40,2705 30001 DCA 0
014350,001626: 40,2706 52155 DXCH MPAC
014351,001627: 40,2707 34333 CAF R1D1
014352,001628: 40,2710 54777 TS DSPCOUNT
014353,001629: 40,2711 35035 CAF ZERO
014354,001630: 40,2712 54156 TS MPAC +2
014355,001631: 40,2713 07226 TC TPAGREE
014356,001632: 40,2714 03200 TC DSP2DEC
014357,001633: 40,2715 00136 ENDDPDEC TC ENTEXIT
014358,001634:
014359,001635:
014360,001636: # LOAD VERBS IF ALARM CONDITION IS DETECTED DURING EXECUTE,
014361,001637: # CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
014362,001638: # DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
014363,001639: # TO EXECUTE OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY 1) DECIMAL MACHINE
014364,001640: # CADR 2) MIXTURE OF OCTAL/DECIMAL DATA 3) OCTAL DATA INTO DECIMAL
014365,001641: # ONLY NOUN 4) DEC DATA INTO OCT ONLY NOUN 5) DATA TOO LARGE FOR SCALE
014366,001642: # 6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8 (2)-(6) ALARM
014367,001643: # AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
014368,001644: # ENTER OF CADR.
014369,001645:
014370,001646: 41,2616 SETLOC ENDRTOUT
014371,001647:
014372,001648: 41,2616 COUNT 41/PIN
014373,001649:
014374,001650: 41,2616 45032 ABCLOAD CS TWO
014375,001651: 41,2617 02424 TC COMPTEST
014376,001652: 41,2620 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
014377,001653: 41,2621 33025 CAF VBSP1LD
014378,001654: 41,2622 02337 TC UPDATVB -1
014379,001655: 41,2623 02303 TC REQDATX
014380,001656: 41,2624 33026 CAF VBSP2LD
014381,001657: 41,2625 02337 TC UPDATVB -1
014382,001658: 41,2626 02305 TC REQDATY
014383,001659: 41,2627 33027 CAF VBSP3LD
014384,001660: 41,2630 02337 TC UPDATVB -1
014385,001661: 41,2631 02307 TC REQDATZ
014386,001662:
014387,001663: 41,2632 46211 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
014388,001664: 41,2633 03030 TC ALLDC/OC # ALL DEC OR ALL OCT.
014389,001665: 41,2634 00006 EXTEND
014390,001666: 41,2635 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014391,001667: 41,2636 52006 DXCH Z # ROUTINE.
014392,001668: 41,2637 35035 CAF ZERO # X COMP
014393,001669: 41,2640 03114 TC PUTCOM
014394,001670: 41,2641 50145 INDEX NOUNADD
014395,001671: 41,2642 54000 TS 0
014396,001672: 41,2643 35033 CAF ONE # Y COMP
014397,001673: 41,2644 03114 TC PUTCOM
014398,001674: 41,2645 50145 INDEX NOUNADD
014399,001675: 41,2646 54001 TS 1
014400,001676: 41,2647 35032 CAF TWO # Z COMP
014401,001677: 41,2650 03114 TC PUTCOM
014402,001678: 41,2651 50145 INDEX NOUNADD
014403,001679: 41,2652 54002 TS 2
014404,001680: 41,2653 45037 CS SEVEN # IF NOUN 7 HAS JUST BEEN LOADED, SET
014405,001681: 41,2654 61002 AD NOUNREG # FLAG BITS AS SPECIFIED.
014406,001682: 41,2655 00006 EXTEND
014407,001683: 41,2656 12660 BZF +2
014408,001684: 41,2657 03014 TC LOADLV
|
|
Reconstruction: The following code, down to ABLOAD, was completely
rewritten in Comanche 72 as part of PCR-806.1, "Allow N07 to address output
channels".
|
014412,001688: 41,2660 00004 INHINT
014413,001689: 41,2661 45043 CS OCT30 # IS IT A CHANNEL (30 OR UNDER)
014414,001690: 41,2662 61003 AD XREG
014415,001691: 41,2663 00006 EXTEND
014416,001692: 41,2664 62674 BZMF CHANBITS # YES
014417,001693:
014418,001694: 41,2665 31003 CA XREG # ECADR OF ERASABLE CELL
014419,001695: 41,2666 04320 TC SETNCADR +1 # SET EBANK, NOUNADD
014420,001696:
014421,001697: 41,2667 50145 INDEX NOUNADD
014422,001698: 41,2670 30000 CA 0
014423,001699: 41,2671 54001 TS L
014424,001700: 41,2672 35033 CAF ONE
014425,001701: 41,2673 55003 TS XREG # MAKE IT LOOK LIKE A CHANNEL FOR A WHILE
014426,001702:
014427,001703: 41,2674 64375 CHANBITS AD OCT21
014428,001704: 41,2675 00006 EXTEND
014429,001705: 41,2676 12720 BZF BITSOFF2 # DONT TOUCH CHAN7 (SUPERBANK)
014430,001706:
014431,001707: 41,2677 31005 CA ZREG
014432,001708: 41,2700 00006 EXTEND
014433,001709: 41,2701 62707 BZMF BITSOFF # R3 IS ZERO FOR OFF, NONZERO FOR ON
014434,001710:
014435,001711: 41,2702 31004 CA YREG
014436,001712: 41,2703 00006 EXTEND
014437,001713: 41,2704 51003 INDEX XREG
014438,001714: 41,2705 05000 WOR 0
014439,001715: 41,2706 12713 TCF BITSOFF1
014440,001716:
014441,001717: 41,2707 41004 BITSOFF CS YREG
014442,001718: 41,2710 00006 EXTEND
014443,001719: 41,2711 51003 INDEX XREG
014444,001720: 41,2712 03000 WAND 0
014445,001721:
014446,001722: 41,2713 11003 BITSOFF1 CCS XREG # WAS IT REALLY A CHANNEL
014447,001723: 41,2714 10000 CCS A
014448,001724: 41,2715 12720 TCF BITSOFF2 # YES
014449,001725:
014450,001726: 41,2716 50145 INDEX NOUNADD
014451,001727: 41,2717 22000 LXCH 0
014452,001728:
014453,001729: 41,2720 00003 BITSOFF2 RELINT
014454,001730: 41,2721 03014 TC LOADLV
014455,001731:
014456,001732: 41,2722 5043 OCT30 = BITS4&5
014457,001733: 41,2722 4375 OCT21 = ND1
014458,001734:
014459,001735: 41,2722 45033 ABLOAD CS ONE
014460,001736: 41,2723 02424 TC COMPTEST
014461,001737: 41,2724 02460 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
014462,001738: 41,2725 33025 CAF VBSP1LD
014463,001739: 41,2726 02337 TC UPDATVB -1
014464,001740: 41,2727 02303 TC REQDATX
014465,001741: 41,2730 33026 CAF VBSP2LD
014466,001742: 41,2731 02337 TC UPDATVB -1
014467,001743: 41,2732 02305 TC REQDATY
014468,001744: 41,2733 45036 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
014469,001745: 41,2734 03030 TC ALLDC/OC # ALL DEC OR ALL OCT.
014470,001746: 41,2735 00006 EXTEND
014471,001747: 41,2736 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014472,001748: 41,2737 52006 DXCH Z # ROUTINE.
014473,001749: 41,2740 35035 CAF ZERO # X COMP
014474,001750: 41,2741 03114 TC PUTCOM
014475,001751: 41,2742 50145 INDEX NOUNADD
014476,001752: 41,2743 54000 TS 0
014477,001753: 41,2744 35033 CAF ONE # Y COMP
014478,001754: 41,2745 03114 TC PUTCOM
014479,001755: 41,2746 50145 INDEX NOUNADD
014480,001756: 41,2747 54001 TS 1
014481,001757: 41,2750 03014 TC LOADLV
014482,001758:
014483,001759: 41,2751 02303 ALOAD TC REQDATX
014484,001760: 41,2752 00006 EXTEND
014485,001761: 41,2753 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014486,001762: 41,2754 52006 DXCH Z # ROUTINE.
014487,001763: 41,2755 35035 CAF ZERO # X COMP
014488,001764: 41,2756 03114 TC PUTCOM
014489,001765: 41,2757 50145 INDEX NOUNADD
014490,001766: 41,2760 54000 TS 0
014491,001767: 41,2761 03014 TC LOADLV
014492,001768:
014493,001769: 41,2762 45033 BLOAD CS ONE
014494,001770: 41,2763 02424 TC COMPTEST
014495,001771: 41,2764 35015 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
014496,001772: 41,2765 55015 TS CLPASS
014497,001773: 41,2766 02305 TC REQDATY
014498,001774: 41,2767 00006 EXTEND
014499,001775: 41,2770 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014500,001776: 41,2771 52006 DXCH Z # ROUTINE.
014501,001777: 41,2772 35033 CAF ONE
014502,001778: 41,2773 03114 TC PUTCOM
014503,001779: 41,2774 50145 INDEX NOUNADD
014504,001780: 41,2775 54001 TS 1
014505,001781: 41,2776 03014 TC LOADLV
014506,001782:
014507,001783: 41,2777 45032 CLOAD CS TWO
014508,001784: 41,3000 02424 TC COMPTEST
014509,001785: 41,3001 35015 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
014510,001786: 41,3002 55015 TS CLPASS
014511,001787: 41,3003 02307 TC REQDATZ
014512,001788: 41,3004 00006 EXTEND
014513,001789: 41,3005 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014514,001790: 41,3006 52006 DXCH Z # ROUTINE.
014515,001791: 41,3007 35032 CAF TWO
014516,001792: 41,3010 03114 TC PUTCOM
014517,001793: 41,3011 50145 INDEX NOUNADD
014518,001794: 41,3012 54002 TS 2
014519,001795: 41,3013 03014 TC LOADLV
014520,001796:
014521,001797: 41,3014 35035 LOADLV CAF ZERO
014522,001798: 41,3015 55000 TS DECBRNCH
014523,001799: 41,3016 45035 CS ZERO
014524,001800: 41,3017 55014 TS LOADSTAT
014525,001801: 41,3020 04473 TC RELDSP # RELEASE FOR PRIORITY DISPLAY PROBLEM.
014526,001802: 41,3021 44374 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
014527,001803: 41,3022 54777 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
014528,001804: 41,3023 04715 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
014529,001805: 41,3024 61463 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
014530,001806:
014531,001807: 41,3025 00025 VBSP1LD DEC 21 B-14 # VB21 = ALOAD
014532,001808: 41,3026 00026 VBSP2LD DEC 22 B-14 # VB22 = BLOAD
014533,001809: 41,3027 00027 VBSP3LD DEC 23 B-14 # VB23 = CLOAD
014534,001810:
014535,001811: 41,3030 54117 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
014536,001812: 41,3031 41000 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
014537,001813: 41,3032 54021 TS SR
014538,001814: 41,3033 40021 CS SR
014539,001815: 41,3034 40021 CS SR # SHIFTED RIGHT 2
014540,001816: 41,3035 10000 CCS A # DEC COMP BITS IN LOW 3
014541,001817: 41,3036 13040 TCF +2 # SOME ONES IN LOW 3
014542,001818: 41,3037 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
014543,001819: 41,3040 60117 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
014544,001820: 41,3041 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
014545,001821: 41,3042 13044 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
014546,001822: 41,3043 04161 TC ALMCYCLE # ALARM AND RECYCLE.
014547,001823: 41,3044 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
014548,001824:
014549,001825: 41,3045 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
014550,001826: 41,3046 54114 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
014551,001827: 41,3047 34363 CAF MID5
014552,001828: 41,3050 70147 MASK NNTYPTEM
014553,001829: 41,3051 04336 TC RIGHT5
014554,001830: 41,3052 00114 TC EXITEM # SF ROUTINE NUMBER IN A
014555,001831:
014556,001832: 41,3053 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
014557,001833: 41,3054 54114 TS EXITEM
014558,001834: 41,3055 50117 INDEX DECOUNT
014559,001835: 41,3056 33105 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014560,001836: 41,3057 54001 TS L
014561,001837: 41,3060 50117 INDEX DECOUNT
014562,001838: 41,3061 34362 CAF LOW5 # LOW5, MID5, OR HI5 IN A
014563,001839: 41,3062 70153 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
014564,001840: 41,3063 50001 INDEX L
014565,001841: 41,3064 00000 TC 0
014566,001842:
014567,001843: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014568,001844:
014569,001845: 41,3065 00114 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
014570,001846:
014571,001847: 41,3066 56002 SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER)
014572,001848: 41,3067 54114 TS EXITEM
014573,001849: 41,3070 50140 INDEX MIXBR
014574,001850: 41,3071 03071 TC +0
014575,001851: 41,3072 03110 TC CONUMNOR # NORMAL NOUN
014576,001852: 41,3073 50117 INDEX DECOUNT # MIXED NOUN
014577,001853: 41,3074 33105 CAF DISPLACE
014578,001854: 41,3075 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014579,001855: 41,3076 50117 INDEX DECOUNT
014580,001856: 41,3077 34362 CAF LOW5
014581,001857: 41,3100 70147 MASK NNTYPTEM
014582,001858: 41,3101 50001 INDEX L
014583,001859: 41,3102 00000 TC 0
014584,001860:
014585,001861: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014586,001862:
014587,001863: 41,3103 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A
014588,001864: 41,3104 00114 TC EXITEM
014589,001865:
014590,001866:
014591,001867: 41,3105 03044 DISPLACE TC GOQ
014592,001868: 41,3106 04336 TC RIGHT5
014593,001869: 41,3107 04345 TC LEFT5
014594,001870:
014595,001871: 41,3110 34362 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
014596,001872: 41,3111 70147 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
014597,001873: 41,3112 60000 DOUBLE
014598,001874: 41,3113 00114 TC EXITEM # 2X(SF CONSTANT NUMBER) IN A
014599,001875:
014600,001876: 41,3114 54117 PUTCOM TS DECOUNT
014601,001877: 41,3115 56002 XCH Q
014602,001878: 41,3116 54115 TS DECRET
014603,001879: 41,3117 35035 CAF ZERO
014604,001880: 41,3120 54162 TS MPAC+6
014605,001881: 41,3121 50117 INDEX DECOUNT
014606,001882: 41,3122 57006 XCH XREGLP
014607,001883: 41,3123 54155 TS MPAC +1
014608,001884: 41,3124 50117 INDEX DECOUNT
014609,001885: 41,3125 57003 XCH XREG
014610,001886: 41,3126 54154 TS MPAC
014611,001887: 41,3127 50140 INDEX MIXBR
014612,001888: 41,3130 03130 TC +0
014613,001889: 41,3131 03156 TC PUTNORM # NORMAL NOUN
014614,001890:
014615,001891: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
014616,001892:
014617,001893: 41,3132 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
014618,001894: 41,3133 30150 CA IDAD1TEM # OF NOUN.
014619,001895: 41,3134 74372 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
014620,001896: 41,3135 04317 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014621,001897: 41,3136 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
014622,001898: 41,3137 60117 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
014623,001899: 41,3140 54145 TS NOUNADD
014624,001900: 41,3141 11000 CCS DECBRNCH
014625,001901: 41,3142 03213 TC PUTDECSF # + DEC
014626,001902: 41,3143 02452 TC DCTSTCYC # +0 OCTAL
014627,001903: 41,3144 03053 TC SFRUTMIX # TEST IF DEC ONLY BIT = 1. IF SO,
014628,001904: 41,3145 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
014629,001905: 41,3146 03174 TC PUTCOM2 # NO DP
014630,001906: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
014631,001907: # +0 INTO MAJOR PART. SET NOUNADD FOR
014632,001908: # LOADING OCTAL WORD INTO MINOR PART.
014633,001909: 41,3147 24145 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
014634,001910: 41,3150 30145 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
014635,001911: 41,3151 26117 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
014636,001912: 41,3152 35035 CAF ZERO # NOUNADD SET FOR MINOR PART
014637,001913: 41,3153 50117 INDEX DECOUNT
014638,001914: 41,3154 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
014639,001915: 41,3155 03174 TC PUTCOM2
014640,001916:
014641,001917: 41,3156 04325 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014642,001918: 41,3157 11000 CCS DECBRNCH
014643,001919: 41,3160 03213 TC PUTDECSF # + DEC
014644,001920: 41,3161 02452 TC DCTSTCYC # +0 OCTAL
014645,001921: 41,3162 03045 TC SFRUTNOR # TEST IF DEC ONLY BIT = 1. IF SO,
014646,001922: 41,3163 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
014647,001923: 41,3164 03170 TC PUTCOM2 -4 # NO DP
014648,001924: 41,3165 35035 CAF ZERO # DP
014649,001925: 41,3166 54117 TS DECOUNT
014650,001926: 41,3167 03147 TC PUTDPCOM
014651,001927:
014652,001928: 41,3170 30146 CA NNADTEM
014653,001929: 41,3171 65033 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014654,001930: 41,3172 00006 EXTEND
014655,001931: 41,3173 13200 BZF CHANLOAD
014656,001932: 41,3174 56154 PUTCOM2 XCH MPAC
014657,001933: 41,3175 00115 TC DECRET
014658,001934:
014659,001935: 41,3176 0777 EBANK= DSPCOUNT
014660,001936: 41,3176 02126 64101 GTSFINLC 2CADR GTSFIN
014661,001937:
014662,001938: 41,3200 45037 CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
014663,001939: 41,3201 61017 AD NOUNCADR
014664,001940: 41,3202 00006 EXTEND
014665,001941: 41,3203 13014 BZF LOADLV
014666,001942: 41,3204 31017 CA NOUNCADR
014667,001943: 41,3205 75062 MASK LOW9
014668,001944: 41,3206 56154 XCH MPAC
014669,001945: 41,3207 00006 EXTEND
014670,001946: 41,3210 50154 INDEX MPAC
014671,001947: 41,3211 01000 WRITE 0
014672,001948: 41,3212 03014 TC LOADLV
014673,001949:
014674,001950: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
014675,001951:
014676,001952: 41,3213 03066 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
014677,001953: 41,3214 54123 TS SFTEMP1
014678,001954: 41,3215 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
014679,001955: 41,3216 33177 DCA GTSFINLC # READING ROUTINE.
014680,001956: 41,3217 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
014681,001957: 41,3220 50140 INDEX MIXBR
014682,001958: 41,3221 03221 TC +0
014683,001959: 41,3222 03225 TC PUTSFNOR
014684,001960: 41,3223 03053 TC SFRUTMIX
014685,001961: 41,3224 03226 TC PUTDCSF2
014686,001962: 41,3225 03045 PUTSFNOR TC SFRUTNOR
014687,001963:
014688,001964: 41,3226 50000 PUTDCSF2 INDEX A
014689,001965: 41,3227 33231 CAF SFINTABR
014690,001966: 41,3230 04720 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
014691,001967: 41,3231 62350 SFINTABR CADR GOALMCYC # ALARM AND RECYCLE IF DEC LOAD
014692,001968: # WITH OCTAL ONLY NOUN.
014693,001969: 41,3232 60776 CADR BINROUND
014694,001970: 41,3233 60716 CADR DEGINSF
014695,001971: 41,3234 60766 CADR ARTHINSF
014696,001972: 41,3235 61021 CADR DPINSF
014697,001973: 41,3236 61046 CADR DPINSF2
014698,001974: 41,3237 61004 CADR OPTDEGIN
014699,001975: 41,3240 61021 CADR DPINSF # SAME AS ARITHDP1
014700,001976: 41,3241 65365 CADR HMSIN
014701,001977: 41,3242 61325 CADR DSPALARM # MIN/SEC CANT BE LOADED.
014702,001978: 41,3243 61053 CADR DPINSF4
014703,001979: 41,3244 61001 CADR ARTIN1SF
014704,001980: 41,3245 61325 CADR DSPALARM # 2INTOUT CANT BE LOADED.
014705,001981: 41,3246 61032 CADR DPFRACIN
014706,001982: 41,3247 ENDRUTIN EQUALS
014707,001983:
014708,001984: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
014709,001985: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
014710,001986:
014711,001987: 40,2716 SETLOC ENDDPDEC +1
014712,001988:
014713,001989: 40,2716 COUNT 40/PIN
014714,001990:
014715,001991: # DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
014716,001992:
014717,001993: 40,2716 07052 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
014718,001994: 40,2717 02761 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
014719,001995: 40,2720 10155 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
014720,001996: 40,2721 35021 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
014721,001997: 40,2722 02724 TC +2 # WHEN SHIFTED LEFT AND ALARM.
014722,001998: 40,2723 45021 CS BIT11
014723,001999: 40,2724 60155 AD MPAC +1
014724,002000: 40,2725 03072 TC 2ROUND +2
014725,002001: 40,2726 04420 TC TPSL1 # LEFT 1
014726,002002: 40,2727 04420 DEGINSF2 TC TPSL1 # LEFT 2
014727,002003: 40,2730 03101 TC TESTOFUF
014728,002004: 40,2731 04420 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
014729,002005: 40,2732 10154 CCS MPAC
014730,002006: 40,2733 02737 TC SIGNFIX # IF +, GO TO SIGNFIX
014731,002007: 40,2734 02737 TC SIGNFIX # IF +0, GO TO SIGNFIX
014732,002008: 40,2735 40000 COM # IF -, USE -MAGNITUDE +1
014733,002009: 40,2736 54154 TS MPAC # IF -0, USE +0
014734,002010: 40,2737 10162 SIGNFIX CCS MPAC+6
014735,002011: 40,2740 02755 TC SGNTO1 # IF OVERFLOW
014736,002012: 40,2741 02751 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
014737,002013: 40,2742 10154 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
014738,002014: 40,2743 05753 TC CCSHOLE
014739,002015: 40,2744 02753 TC NEG180
014740,002016: 40,2745 02746 TC +1
014741,002017: 40,2746 56154 XCH MPAC
014742,002018: 40,2747 75013 MASK POSMAX
014743,002019: 40,2750 54154 TS MPAC
014744,002020: 40,2751 04715 ENDSCALE TC POSTJUMP
014745,002021: 40,2752 63174 CADR PUTCOM2
014746,002022:
014747,002023: 40,2753 45013 NEG180 CS POSMAX
014748,002024: 40,2754 02750 TC ENDSCALE -1
014749,002025:
014750,002026: 40,2755 40154 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
014751,002027: 40,2756 75013 MASK POSMAX
014752,002028: 40,2757 40000 CS A
014753,002029: 40,2760 02750 TC ENDSCALE -1
014754,002030:
014755,002031: 40,2761 26161 30707 DEGCON1 2DEC 5.555555555 B-3
014756,002032:
014757,002033: 40,2763 21616 07071 DEGCON2 2DEC 2.222222222 B-2
014758,002034:
014759,002035: 40,2765 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
014760,002036:
014761,002037: 40,2766 07052 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
014762,002038: 40,2767 00123 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
014763,002039: 40,2770 56156 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
014764,002040: 40,2771 56155 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
014765,002041: 40,2772 56154 XCH MPAC
014766,002042: 40,2773 00006 EXTEND
014767,002043: 40,2774 12776 BZF BINROUND
014768,002044: 40,2775 04161 TC ALMCYCLE # TOO LARGE A LOAD. ALARM AND RECYCLE.
014769,002045: 40,2776 03070 BINROUND TC 2ROUND
014770,002046: 40,2777 03101 TC TESTOFUF
014771,002047: 40,3000 02751 TC ENDSCALE # RETURNS IF NO OF/UF
014772,002048:
014773,002049: 40,3001 07052 ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
014774,002050: 40,3002 00123 ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
014775,002051: 40,3003 02776 TC BINROUND
014776,002052:
014777,002053: 40,3004 10154 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
014778,002054: 40,3005 03011 TC +4
014779,002055: 40,3006 03011 TC +3
014780,002056: 40,3007 04161 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
014781,002057: 40,3010 04161 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
014782,002058: 40,3011 32765 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
014783,002059: 40,3012 26154 ADS MPAC # SUBTRACT BIAS
014784,002060: 40,3013 07052 TC DMP # MULT BY 100 / 45 B-2
014785,002061: 40,3014 02763 ADRES DEGCON2
014786,002062: 40,3015 35020 CAF BIT12 # ROUND AS IN DEGINSF
014787,002063: 40,3016 60155 AD MPAC +1
014788,002064: 40,3017 03072 TC 2ROUND +2
014789,002065: 40,3020 02727 TC DEGINSF2
014790,002066:
014791,002067: 40,3021 07052 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
014792,002068: 40,3022 00123 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
014793,002069: 40,3023 56156 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
014794,002070: 40,3024 60000 DOUBLE
014795,002071: 40,3025 54156 TS MPAC +2
014796,002072: 40,3026 35035 CAF ZERO
014797,002073: 40,3027 60155 AD MPAC +1
014798,002074: 40,3030 03072 TC 2ROUND +2
014799,002075: 40,3031 03101 TC TESTOFUF
014800,002076: 40,3032 50140 DPFRACIN INDEX MIXBR # RETURNS IF NO OF/UF
014801,002077: 40,3033 03033 TC +0
014802,002078: 40,3034 03044 TC DPINORM
014803,002079: 40,3035 30117 CA DECOUNT # MIXED NOUN
014804,002080: 40,3036 60145 DPINCOM AD NOUNADD # MIXED NORMAL
014805,002081: 40,3037 54002 TS Q # E SUBK E
014806,002082: 40,3040 56155 XCH MPAC +1
014807,002083: 40,3041 50002 INDEX Q
014808,002084: 40,3042 54001 TS 1 # PLACE LOW PART IN
014809,002085: 40,3043 02751 TC ENDSCALE # (E SUBK) +1 MIXED
014810,002086:
014811,002087: 40,3044 35035 DPINORM CAF ZERO # E +1 NORMAL
014812,002088: 40,3045 03036 TC DPINCOM
014813,002089:
014814,002090: 40,3046 07052 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014815,002091: 40,3047 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
014816,002092: 40,3050 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
014817,002093: 40,3051 03060 TC TPLEFTN # SHIFT LEFT 7.
014818,002094: 40,3052 03023 TC DPINSF +2
014819,002095:
014820,002096: 40,3053 07052 DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
014821,002097: 40,3054 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
014822,002098: 40,3055 35032 CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
014823,002099: 40,3056 03060 TC TPLEFTN # SHIFT LEFT 3.
014824,002100: 40,3057 03023 TC DPINSF +2
014825,002101:
014826,002102: 40,3060 56002 TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
014827,002103: 40,3061 54124 TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
014828,002104: 40,3062 56002 XCH Q # CALL WITH N-1 IN A.
014829,002105: 40,3063 54123 LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
014830,002106: 40,3064 04420 TC TPSL1
014831,002107: 40,3065 10123 CCS SFTEMP1
014832,002108: 40,3066 03063 TC LEFTNCOM
014833,002109: 40,3067 00124 TC SFTEMP2
014834,002110:
014835,002111: 40,3070 56155 2ROUND XCH MPAC +1
014836,002112: 40,3071 60000 DOUBLE
014837,002113: 40,3072 54155 TS MPAC +1
014838,002114: 40,3073 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
014839,002115: 40,3074 60154 AD MPAC
014840,002116: 40,3075 54154 TS MPAC
014841,002117: 40,3076 00002 TC Q # IF MPAC DOES NOT OF/UF
014842,002118: 40,3077 54162 TS MPAC+6
014843,002119: 40,3100 00002 2RNDEND TC Q
014844,002120:
014845,002121: 40,3101 10162 TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
014846,002122: 40,3102 04161 TC ALMCYCLE # OF ALARM AND RECYCLE.
014847,002123: 40,3103 00002 TC Q
014848,002124: 40,3104 04161 TC ALMCYCLE # UF ALARM AND RECYCLE.
014849,002125:
014850,002126: 42,3365 SETLOC ENDSPMIN +1
014851,002127:
014852,002128: 42,3365 COUNT 42/PIN
014853,002129:
014854,002130: 42,3365 03506 HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
014855,002131: 42,3366 07052 TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
014856,002132: 42,3367 03447 ADRES WHOLECON # INTO MPAC, MPAC+1.
014857,002133: 42,3370 03456 TC RND/TST # ROUND OFF TO WHOLE HRS IN MPAC+1.
014858,002134: 42,3371 35035 CAF ZERO # ALARM IF MPAC NON ZERO (G/ 16383).
014859,002135: 42,3372 54156 TS MPAC +2
014860,002136: 42,3373 33451 CAF HRCON
014861,002137: 42,3374 54154 TS MPAC
014862,002138: 42,3375 33452 CAF HRCON +1
014863,002139: 42,3376 56155 XCH MPAC +1
014864,002140: 42,3377 07256 TC SHORTMP
014865,002141: 42,3400 03467 TC MPACTST # ALARM IF MPAC NON ZERO (G/ 745)
014866,002142: 42,3401 52156 DXCH MPAC +1 # STORE HOURS CONTRIBUTION
014867,002143: 42,3402 52124 DXCH HITEMIN
014868,002144: 42,3403 31004 CA YREG # PUT YREG, YREGLP INTO MPAC, +1.
014869,002145: 42,3404 23007 LXCH YREGLP
014870,002146: 42,3405 52155 DXCH MPAC
014871,002147: 42,3406 07052 TC DMP
014872,002148: 42,3407 03447 ADRES WHOLECON
014873,002149: 42,3410 03456 TC RND/TST # ROUND OFF TO WHOLE MIN IN MPAC+1
014874,002150: 42,3411 43454 CS 59MIN # ALARM IF MPAC NON ZERO (G/16383)
014875,002151: 42,3412 03474 TC SIZETST # ALARM IF MPAC+1 G/ 59MIN
014876,002152: 42,3413 56155 XCH MPAC +1
014877,002153: 42,3414 00006 EXTEND
014878,002154: 42,3415 73453 MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
014879,002155: 42,3416 20124 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
014880,002156: 42,3417 00006 EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN
014881,002157: 42,3420 13422 BZF +2
014882,002158: 42,3421 04161 TC ALMCYCLE
014883,002159: 42,3422 31005 CA ZREG # PUT ZREG, ZREGLP INTO MPAC, +1.
014884,002160: 42,3423 23010 LXCH ZREGLP
014885,002161: 42,3424 52155 DXCH MPAC
014886,002162: 42,3425 07052 TC DMP
014887,002163: 42,3426 03447 ADRES WHOLECON
014888,002164: 42,3427 03456 TC RND/TST # ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
014889,002165: 42,3430 43455 CS 59.99SEC # ALARM IF MPAC NON ZERO (G/163.83 SEC)
014890,002166: 42,3431 03474 TC SIZETST # ALARM IF MPAC+1 G/59.99 SEC
014891,002167: 42,3432 52124 DXCH HITEMIN # ADD IN SECONDS CONTRIBUTION
014892,002168: 42,3433 20155 DAS MPAC # IF THIS DAS OVERFLOWS,
014893,002169: 42,3434 00006 EXTEND # G/ 745 HR, 39 MIN, 14.55 SEC.
014894,002170: 42,3435 13437 BZF +2
014895,002171: 42,3436 04161 TC ALMCYCLE # ALARM AND RECYCLE
014896,002172: 42,3437 35035 CAF ZERO
014897,002173: 42,3440 54156 TS MPAC +2
014898,002174: 42,3441 07226 TC TPAGREE
014899,002175: 42,3442 52155 DXCH MPAC
014900,002176: 42,3443 50145 INDEX NOUNADD
014901,002177: 42,3444 52001 DXCH 0
014902,002178: 42,3445 04715 TC POSTJUMP
014903,002179: 42,3446 63014 CADR LOADLV
014904,002180:
014905,002181: 42,3447 00006 WHOLECON OCT 00006 # (10EXP5/2EXP14)2EXP14
014906,002182: 42,3450 03240 OCT 03240
014907,002183: 42,3451 00025 HRCON OCT 00025 # 1 HOUR IN CENTI-SEC
014908,002184: 42,3452 37100 OCT 37100
014909,002185: 42,3453 13560 MINCON OCT 13560 # 1 MINUTE IN CENTI-SEC
014910,002186: 42,3454 00073 59MIN OCT 00073 # 59 AS WHOLE
014911,002187: 42,3455 13557 59.99SEC OCT 13557 # 5999 CENTI-SEC
014912,002188:
014913,002189: 42,3456 56156 RND/TST XCH MPAC +2 # ROUNDS MPAC+2 INTO MPAC+1.
014914,002190: 42,3457 60000 DOUBLE # ALARMS IF MPAC NOT 0
014915,002191: 42,3460 54156 TS MPAC +2
014916,002192: 42,3461 35035 CAF ZERO
014917,002193: 42,3462 60155 AD MPAC +1
014918,002194: 42,3463 54155 TS MPAC +1
014919,002195: 42,3464 35035 CAF ZERO
014920,002196: 42,3465 60154 AD MPAC # CANT OVFLOW
014921,002197: 42,3466 56154 XCH MPAC
014922,002198: 42,3467 10154 MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
014923,002199: 42,3470 04161 TC ALMCYCLE # ALARM AND RECYCLE.
014924,002200: 42,3471 00002 TC Q
014925,002201: 42,3472 04161 TC ALMCYCLE # ALARM AND RECYCLE.
014926,002202: 42,3473 00002 TC Q
014927,002203:
014928,002204:
014929,002205: 42,3474 54156 SIZETST TS MPAC +2 # CALLED WITH - CON IN A
014930,002206: 42,3475 10155 CCS MPAC +1 # GET MAG OF MPAC+1
014931,002207: 42,3476 65033 AD ONE
014932,002208: 42,3477 13501 TCF +2
014933,002209: 42,3500 65033 AD ONE
014934,002210: 42,3501 60156 AD MPAC +2
014935,002211: 42,3502 00006 EXTEND # MAG OF MPAC+1 - CON
014936,002212: 42,3503 63505 BZMF +2
014937,002213: 42,3504 04161 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
014938,002214: 42,3505 00002 TC Q # MAG OF MPAC+1 L/= CON
014939,002215:
014940,002216: # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
014941,002217: # ALARM IF NOT.(TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
014942,002218:
014943,002219: 42,3506 43513 ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
014944,002220: 42,3507 71000 MASK DECBRNCH # GET BITS 3,4,5 OF DECBRNCH IN A
014945,002221: 42,3510 63513 AD OCT34BAR # BITS 3,4,5 OF DECBRNCH MUST ALL = 1
014946,002222: 42,3511 10000 CCS A
014947,002223: 42,3512 03516 TC FORCEV25
014948,002224: 42,3513 77743 OCT34BAR OCT 77743
014949,002225: 42,3514 03516 TC FORCEV25
014950,002226: 42,3515 00002 TC Q
014951,002227:
014952,002228: 42,3516 44113 FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
014953,002229: 42,3517 55041 TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
014954,002230: 42,3520 04161 TC ALMCYCLE # VERB. ALARM AND RECYCLE.
014955,002231: 42,3521 ENDHMSS EQUALS
014956,002232:
014957,002233: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
014958,002234: # VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
014959,002235: # ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
014960,002236: # THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
014961,002237: # HE HAS INITIATED THROUGH THE KEYBOARD).
014962,002238:
014963,002239: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
014964,002240: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
014965,002241: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
014966,002242: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
014967,002243: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
014968,002244: # INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
014969,002245: # MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
014970,002246:
014971,002247: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
014972,002248: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
014973,002249: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
014974,002250:
014975,002251: # NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
014976,002252: # VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
014977,002253:
014978,002254: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
014979,002255: # AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
014980,002256:
014981,002257: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
014982,002258:
014983,002259: 41,3247 SETLOC ENDRUTIN
014984,002260:
014985,002261: 41,3247 COUNT 41/PIN
014986,002262:
014987,002263: 41,3247 43256 MONITOR CS BIT15/14
014988,002264: 41,3250 71017 MASK NOUNCADR
014989,002265: 41,3251 54155 MONIT1 TS MPAC +1 # TEMP STORAGE
014990,002266: 41,3252 40136 CS ENTEXIT
014991,002267: 41,3253 64233 AD ENDINST
014992,002268: 41,3254 10000 CCS A
014993,002269: 41,3255 03264 TC MONIT2
014994,002270: 41,3256 60000 BIT15/14 OCT 60000
014995,002271: 41,3257 03264 TC MONIT2
014996,002272: 41,3260 35016 CAF BIT14 # EXTERNALLY INITIATED MONITOR,
014997,002273: 41,3261 26155 ADS MPAC +1 # SET BIT 14 FOR MONSAVE1.
014998,002274: 41,3262 35035 CAF ZERO
014999,002275: 41,3263 55022 TS MONSAVE2 # ZERO NVMONOPT OPTIONS
015000,002276: 41,3264 36043 MONIT2 CAF LOW7
015001,002277: 41,3265 71001 MASK VERBREG
015002,002278: 41,3266 04345 TC LEFT5
015003,002279: 41,3267 54022 TS CYL
015004,002280: 41,3270 40022 CS CYL
015005,002281: 41,3271 56022 XCH CYL
015006,002282: 41,3272 61002 AD NOUNREG
015007,002283: 41,3273 54154 TS MPAC # TEMP STORAGE
015008,002284: 41,3274 35035 CAF ZERO
015009,002285: 41,3275 55012 TS DSPLOCK # +0 INTO DSPLOCK SO MONITOR CAN RUN.
015010,002286: 41,3276 11042 CCS CADRSTOR # TURN OFF KR LITE IF CADRSTOR AND DSPLIST
015011,002287: 41,3277 03301 TC +2 # ARE BOTH EMPTY. (LITE COMES ON IF NEW
015012,002288: 41,3300 04516 TC RELDSP1 # MONITOR IS KEYED IN OVER OLD MONITOR.)
015013,002289: 41,3301 00004 INHINT
015014,002290: 41,3302 11020 CCS MONSAVE
015015,002291: 41,3303 03310 TC +5 # IF MONSAVE WAS +, NO REQUEST
015016,002292: 41,3304 35033 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
015017,002293: 41,3305 05261 TC WAITLIST
015018,002294: 41,3306 0777 EBANK= DSPCOUNT
015019,002295: 41,3306 03314 62101 2CADR MONREQ
015020,002296:
015021,002297: 41,3310 52155 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
015022,002298: 41,3311 53021 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
015023,002299: 41,3312 00003 RELINT # SET UP EXTERNAL MONITOR BIT
015024,002300: 41,3313 00136 TC ENTRET
015025,002301:
015026,002302: 41,3314 04414 MONREQ TC LODSAMPT # CALLED BY WAITLIST
015027,002303: 41,3315 11021 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
015028,002304: 41,3316 03322 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
015029,002305: 41,3317 03322 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
015030,002306: 41,3320 03333 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
015031,002307: 41,3321 03333 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
015032,002308: 41,3322 33337 CAF MONDEL
015033,002309: 41,3323 05261 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
015034,002310: 41,3324 0777 EBANK= DSPCOUNT
015035,002311: 41,3324 03314 62101 2CADR MONREQ
015036,002312:
015037,002313: 41,3326 34371 CAF CHRPRIO
015038,002314: 41,3327 05150 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
015039,002315: 41,3330 0777 EBANK= DSPCOUNT
015040,002316: 41,3330 03340 62101 2CADR MONDO
015041,002317:
015042,002318: 41,3332 05340 TC TASKOVER
015043,002319:
015044,002320: 41,3333 35035 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
015045,002321: 41,3334 55020 TS MONSAVE
015046,002322: 41,3335 55021 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
015047,002323: 41,3336 05340 TC TASKOVER # TURN OFF EXTERNAL MONITOR BIT.
015048,002324: 41,3337 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
015049,002325:
015050,002326: 41,3340 11021 MONDO CCS MONSAVE1 # CALLED BY EXEC
015051,002327: 41,3341 03345 TC +4 # IF KILLER BIT = 0, CONTINUE
015052,002328: 41,3342 03345 TC +3 # IF KILLER BIT = 0, CONTINUE
015053,002329: 41,3343 05233 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
015054,002330: 41,3344 05233 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
015055,002331: 41,3345 11012 CCS DSPLOCK
015056,002332: 41,3346 03370 TC MONBUSY # NVSUB IS BUSY
015057,002333: 41,3347 36043 CAF LOW7
015058,002334: 41,3350 71020 MASK MONSAVE
015059,002335: 41,3351 02317 TC UPDATNN -1 # PLACE NOUN INTO NOUNREG AND DISPLAY IT
015060,002336: 41,3352 34160 CAF MID7
015061,002337: 41,3353 71020 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
015062,002338: 41,3354 63366 AD MONREF # -DEC10, STARTING IN BIT8
015063,002339: 41,3355 54023 TS EDOP # RIGHT 7
015064,002340: 41,3356 30023 CA EDOP
015065,002341: 41,3357 55001 TS VERBREG
015066,002342: 41,3360 33367 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
015067,002343: 41,3361 54136 TS ENTRET
015068,002344: 41,3362 43256 CS BIT15/14
015069,002345: 41,3363 71021 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
015070,002346: 41,3364 54156 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
015071,002347: 41,3365 02046 ENDMONDO TC TESTNN # EBANK.
015072,002348:
015073,002349: 4140 BLOCK 2
015074,002350:
015075,002351: 4000 SETLOC FFTAG8
015076,002352: 4000 BANK
015077,002353:
015078,002354: 4140 COUNT 02/PIN
015079,002355:
015080,002356: 4140 34160 PASTEVB CAF MID7
015081,002357: 4141 71022 MASK MONSAVE2 # NVMONOPT PASTE OPTION
015082,002358: 4142 00006 EXTEND
015083,002359: 4143 14145 BZF +2
015084,002360: 4144 04146 TC PASTEOPT # PASTE PLEASE VERB FOR NVMONOPT
015085,002361: 4145 31020 CA MONSAVE # PASTE MONITOR VERB - PASTE OPTION IS 0
015086,002362: 4146 54023 PASTEOPT TS EDOP # RIGHT 7
015087,002363: 4147 30023 CA EDOP # PLACE MONITOR VERB OR PLEASE VERB INTO
015088,002364: 4150 04676 TC BANKCALL # VERBREG AND DISPLAY IT.
015089,002365: 4151 62337 CADR UPDATVB -1
015090,002366: 4152 35035 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
015091,002367: 4153 55013 TS REQRET # BE EXECUTED BY OPERATOR.
015092,002368: 4154 31022 CA MONSAVE2
015093,002369: 4155 04271 TC BLANKSUB # PROCESS NVMONOPT BLANK OPTION IF ANY
015094,002370: 4156 04157 TC +1
015095,002371: 4157 05233 ENDPASTE TC ENDOFJOB
015096,002372:
015097,002373: 4160 37600 MID7 OCT 37600
015098,002374:
015099,002375: 41,3366 SETLOC ENDMONDO +1
015100,002376: 41,3366 COUNT 41/PIN
015101,002377:
015102,002378: 41,3366 75377 MONREF OCT 75377 # -DEC10, STARTING IN BIT8
015103,002379: 41,3367 04140 MONBACK ADRES PASTEVB
015104,002380:
015105,002381: 41,3370 04410 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
015106,002382: 41,3371 05233 TC ENDOFJOB
015107,002383:
015108,002384: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
015109,002385: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
015110,002386: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
015111,002387: #
015112,002388: # FOR BANKS L/E 27, THIS IS ENOUGH.
015113,002389:
015114,002390: # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
015115,002391: # MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
015116,002392: # V23N26 SHOULD BE USED.
015117,002393:
015118,002394: # SUMMARY
015119,002395: # FOR BANKS L/E 27, V27N01E(FCADR)E
015120,002396: # FOR BANKS G/E 30, V23N26E(SUPERBITS)E V27N01E(FCADR)E
015121,002397:
015122,002398: 41,3372 34333 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
015123,002399: 41,3373 54777 TS DSPCOUNT
015124,002400: 41,3374 31047 CA DSPTEM1 +2 # SUPERBANK BITS WERE PRELOADED INTO
015125,002401: 41,3375 54001 TS L # 3RD COMPONENT OF NOUN 26.
015126,002402: 41,3376 31017 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
015127,002403: 41,3377 04731 TC SUPDACAL # CALL WITH FCADR IN A, SUPERBITS IN L.
015128,002404: 41,3400 03402 TC DSPOCTWD
015129,002405: 41,3401 05233 ENDSPF TC ENDOFJOB
015130,002406:
015131,002407: # WORD DISPLAY ROUTINES
015132,002408: 40,3105 SETLOC TESTOFUF +4
015133,002409: 40,3105 COUNT 40/PIN
015134,002410:
015135,002411: 40,3105 56002 DSPSIGN XCH Q
015136,002412: 40,3106 54144 TS DSPWDRET
015137,002413: 40,3107 10154 CCS MPAC
015138,002414: 40,3110 03120 TC +8D
015139,002415: 40,3111 03120 TC +7
015140,002416: 40,3112 65033 AD ONE
015141,002417: 40,3113 54154 TS MPAC
015142,002418: 40,3114 02334 TC -ON
015143,002419: 40,3115 40155 CS MPAC +1
015144,002420: 40,3116 54155 TS MPAC +1
015145,002421: 40,3117 00144 TC DSPWDRET
015146,002422: 40,3120 02314 TC +ON
015147,002423: 40,3121 00144 TC DSPWDRET
015148,002424:
015149,002425: 40,3122 00006 DSPRND EXTEND # ROUND BY 5 EXP-6
015150,002426: 40,3123 33166 DCA DECROUND -1
015151,002427: 40,3124 20155 DAS MPAC
015152,002428: 40,3125 00006 EXTEND
015153,002429: 40,3126 13132 BZF +4
015154,002430: 40,3127 00006 EXTEND
015155,002431: 40,3130 35013 DCA DPOSMAX
015156,002432: 40,3131 52155 DXCH MPAC
015157,002433: 40,3132 00002 TC Q
015158,002434:
015159,002435: # DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015160,002436: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
015161,002437:
015162,002438: 40,3133 56002 DSPDECWD XCH Q
015163,002439: 40,3134 54115 TS WDRET
015164,002440: 40,3135 03105 TC DSPSIGN
015165,002441: 40,3136 03122 TC DSPRND
015166,002442: 40,3137 35031 CAF FOUR
015167,002443: 40,3140 54137 DSPDCWD1 TS WDCNT
015168,002444: 40,3141 34377 CAF BINCON
015169,002445: 40,3142 07256 TC SHORTMP
015170,002446: 40,3143 50154 TRACE1 INDEX MPAC
015171,002447: 40,3144 34072 CAF RELTAB
015172,002448: 40,3145 74362 MASK LOW5
015173,002449: 40,3146 54124 TS CODE
015174,002450: 40,3147 35035 CAF ZERO
015175,002451: 40,3150 56156 XCH MPAC +2
015176,002452: 40,3151 56155 XCH MPAC +1
015177,002453: 40,3152 54154 TS MPAC
015178,002454: 40,3153 56777 XCH DSPCOUNT
015179,002455: 40,3154 54143 TRACE1S TS COUNT
015180,002456: 40,3155 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
015181,002457: 40,3156 54777 TS DSPCOUNT
015182,002458: 40,3157 03227 TC DSPIN
015183,002459: 40,3160 10137 CCS WDCNT
015184,002460: 40,3161 03140 TC DSPDCWD1
015185,002461: 40,3162 44374 CS VD1
015186,002462: 40,3163 54777 TS DSPCOUNT
015187,002463: 40,3164 00115 TC WDRET
015188,002464:
015189,002465: 40,3165 00000 OCT 00000
015190,002466: 40,3166 02476 DECROUND OCT 02476
015191,002467:
015192,002468: # DSPDECNR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015193,002469: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015194,002470:
015195,002471: 40,3167 56002 DSPDECNR XCH Q
015196,002472: 40,3170 54115 TS WDRET
015197,002473: 40,3171 03105 TC DSPSIGN
015198,002474: 40,3172 03137 TC DSPDCWD1 -1
015199,002475:
015200,002476: # DSPDC2NR CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
015201,002477: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015202,002478:
015203,002479: 40,3173 56002 DSPDC2NR XCH Q
015204,002480: 40,3174 54115 TS WDRET
015205,002481: 40,3175 03105 TC DSPSIGN
015206,002482: 40,3176 35033 CAF ONE
015207,002483: 40,3177 03140 TC DSPDCWD1
015208,002484:
015209,002485: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
015210,002486: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
015211,002487:
015212,002488: 40,3200 56002 DSP2DEC XCH Q
015213,002489: 40,3201 54115 TS WDRET
015214,002490: 40,3202 35035 CAF ZERO
015215,002491: 40,3203 54124 TS CODE
015216,002492: 40,3204 36214 CAF THREE
015217,002493: 40,3205 03311 TC 11DSPIN # -R2 OFF
015218,002494: 40,3206 35031 CAF FOUR
015219,002495: 40,3207 03311 TC 11DSPIN # +R2 OFF
015220,002496: 40,3210 03105 TC DSPSIGN
015221,002497: 40,3211 34334 CAF R2D1
015222,002498: 40,3212 03140 END2DEC TC DSPDCWD1
015223,002499:
015224,002500: # DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
015225,002501: # DSP LOC SPECIFIED IN DSPCOUNT.
015226,002502:
015227,002503: # C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
015228,002504: # DISPLAY CONVERSION.
015229,002505:
015230,002506: 40,3213 00006 DSPDECVN EXTEND
015231,002507: 40,3214 73223 MP VNDSPCON # MULT BY .01
015232,002508: 40,3215 22154 LXCH MPAC # TAKE RESULTS FROM L. (MULT BY 2EXP14).
015233,002509: 40,3216 35035 CAF ZERO
015234,002510: 40,3217 54155 TS MPAC +1
015235,002511: 40,3220 56002 XCH Q
015236,002512: 40,3221 54115 TS WDRET
015237,002513: 40,3222 03176 TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
015238,002514:
015239,002515: 40,3223 00244 VNDSPCON OCT 00244 # .01 ROUNDED UP
015240,002516:
015241,002517: 40,3224 03213 GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
015242,002518: 40,3225 04715 TC POSTJUMP # OF UPDATVB.
015243,002519: 40,3226 62347 CADR UPDAT1 +2
015244,002520:
015245,002521: 40,3227 ENDECVN EQUALS
015246,002522:
015247,002523: 41,3402 SETLOC ENDSPF +1
015248,002524: 41,3402 COUNT 41/PIN
015249,002525:
015250,002526: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
015251,002527: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
015252,002528:
015253,002529: 41,3402 54022 DSPOCTWD TS CYL
015254,002530: 41,3403 56002 XCH Q
015255,002531: 41,3404 54115 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
015256,002532: 41,3405 35016 CAF BIT14 # TO BLANK SIGNS
015257,002533: 41,3406 26777 ADS DSPCOUNT
015258,002534: 41,3407 35031 CAF FOUR
015259,002535: 41,3410 54137 WDAGAIN TS WDCNT
015260,002536: 41,3411 40022 CS CYL
015261,002537: 41,3412 40022 CS CYL
015262,002538: 41,3413 40022 CS CYL
015263,002539: 41,3414 40000 CS A
015264,002540: 41,3415 75037 MASK DSPMSK
015265,002541: 41,3416 50000 INDEX A
015266,002542: 41,3417 34072 CAF RELTAB
015267,002543: 41,3420 74362 MASK LOW5
015268,002544: 41,3421 54124 TS CODE
015269,002545: 41,3422 56777 XCH DSPCOUNT
015270,002546: 41,3423 54143 TS COUNT
015271,002547: 41,3424 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
015272,002548: 41,3425 54777 TS DSPCOUNT
015273,002549: 41,3426 04715 TC POSTJUMP
015274,002550: 41,3427 61317 CADR DSPOCTIN
015275,002551: 41,3430 10137 OCTBACK CCS WDCNT
015276,002552: 41,3431 03410 TC WDAGAIN # +
015277,002553: 41,3432 44374 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
015278,002554: 41,3433 54777 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
015279,002555: 41,3434 00115 TC WDRET
015280,002556:
015281,002557: 41,3435 5037 DSPMSK = SEVEN
015282,002558:
|
|
Reconstruction: Comanche 67 and earlier defined the routine DSP2BIT
here. It was deleted in Comanche 72 under ACB-99, "Remove DSP2BIT in PINBALL
GAME BUTTONS AND LIGHTS", in order to make room for PCR-806.1.
|
015286,002562:
015287,002563: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
015288,002564: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
015289,002565: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
015290,002566: # DSPTAB ENTRY INTO DSREL.
015291,002567:
015292,002568: 40,3227 SETLOC ENDECVN
015293,002569:
015294,002570: 40,3227 COUNT 40/PIN
015295,002571:
015296,002572: 40,3227 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
015297,002573: 40,3230 54114 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
015298,002574: 40,3231 34362 CAF LOW5
015299,002575: 40,3232 70143 MASK COUNT
015300,002576: 40,3233 54021 TS SR
015301,002577: 40,3234 56021 XCH SR
015302,002578: 40,3235 54141 TS DSREL
015303,002579: 40,3236 35033 CAF BIT1
015304,002580: 40,3237 70143 MASK COUNT
015305,002581: 40,3240 10000 CCS A
015306,002582: 40,3241 03243 TC +2 # LEFT IF COUNT IS ODD
015307,002583: 40,3242 03253 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
015308,002584: 40,3243 56124 XCH CODE
015309,002585: 40,3244 04354 TC SLEFT5 # DOES NOT USE CYL
015310,002586: 40,3245 54124 TS CODE
015311,002587: 40,3246 35016 CAF BIT14
015312,002588: 40,3247 70143 MASK COUNT
015313,002589: 40,3250 10000 CCS A
015314,002590: 40,3251 35032 CAF TWO # BIT14 = 1, BLANK SIGN
015315,002591: 40,3252 65033 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
015316,002592: 40,3253 54143 TS COUNT # +0 INTO COUNT FOR RIGHT
015317,002593: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
015318,002594: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
015319,002595: 40,3254 00004 DSPIN1 INHINT
015320,002596: 40,3255 50141 INDEX DSREL
015321,002597: 40,3256 11023 CCS DSPTAB
015322,002598: 40,3257 03261 TC +2 # IF +
015323,002599: 40,3260 05753 TC CCSHOLE
015324,002600: 40,3261 65033 AD ONE # IF -
015325,002601: 40,3262 54142 TS DSMAG
015326,002602: 40,3263 50143 INDEX COUNT
015327,002603: 40,3264 73305 MASK DSMSK
015328,002604: 40,3265 00006 EXTEND
015329,002605: 40,3266 60124 SU CODE
015330,002606: 40,3267 00006 EXTEND
015331,002607: 40,3270 13303 BZF DSLV # SAME
015332,002608: 40,3271 50143 DFRNT INDEX COUNT
015333,002609: 40,3272 43305 CS DSMSK # MASK WITH 77740, 76037, 75777, OR 74037
015334,002610: 40,3273 70142 MASK DSMAG
015335,002611: 40,3274 60124 AD CODE
015336,002612: 40,3275 40000 CS A
015337,002613: 40,3276 50141 INDEX DSREL
015338,002614: 40,3277 57023 XCH DSPTAB
015339,002615: 40,3300 00006 EXTEND
015340,002616: 40,3301 63303 BZMF DSLV # DSPTAB ENTRY WAS -
015341,002617: 40,3302 25016 INCR NOUT # DSPTAB ENTRY WAS +
015342,002618: 40,3303 00003 DSLV RELINT
015343,002619: 40,3304 00114 TC DSEXIT
015344,002620:
015345,002621: 40,3305 00037 DSMSK OCT 37
015346,002622: 40,3306 01740 OCT 1740
015347,002623: 40,3307 02000 OCT 2000
015348,002624: 40,3310 03740 OCT 3740
015349,002625:
015350,002626: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
015351,002627: # BIT11 OF CODE.
015352,002628:
015353,002629: 40,3311 54141 11DSPIN TS DSREL
015354,002630: 40,3312 35032 CAF TWO
015355,002631: 40,3313 54143 TS COUNT
015356,002632: 40,3314 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
015357,002633: 40,3315 54114 TS DSEXIT
015358,002634: 40,3316 03254 TC DSPIN1
015359,002635:
015360,002636: 40,3317 03227 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
015361,002637: 40,3320 33322 CAF +2
015362,002638: 40,3321 04720 TC BANKJUMP
015363,002639: 40,3322 63430 ENDSPOCT CADR OCTBACK
015364,002640:
015365,002641: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
015366,002642: # ABORT WITH 01501.
015367,002643:
015368,002644: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
015369,002645: # DO TC ENTRET.
015370,002646:
015371,002647: 40,3323 44374 PREDSPAL CS VD1
015372,002648: 40,3324 54777 TS DSPCOUNT
015373,002649: 40,3325 43346 DSPALARM CS NVSBENDL
015374,002650: 40,3326 60136 AD ENTEXIT
015375,002651: 40,3327 00006 EXTEND
015376,002652: 40,3330 13343 BZF CHARALRM +2
015377,002653: 40,3331 43345 CS MONADR # IF THIS IS A MONITOR, KILL IT
015378,002654: 40,3332 60136 AD ENTEXIT
015379,002655: 40,3333 00006 EXTEND
015380,002656: 40,3334 13336 BZF +2
015381,002657: 40,3335 03341 TC CHARALRM
015382,002658: 40,3336 04220 TC KILMONON
015383,002659: 40,3337 04400 TC FALTON
015384,002660: 40,3340 04140 TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
015385,002661: 40,3341 04400 CHARALRM TC FALTON # NOT NVSUB INITIATED. TURN ON OPR ERROR
015386,002662: 40,3342 05233 TC ENDOFJOB
015387,002663: 40,3343 05725 TC POODOO
015388,002664: 40,3344 21501 OCT 21501 # KEYBOARD + ALARM DISPLAY DURING NVSUB.
015389,002665: 40,3345 04140 MONADR GENADR PASTEVB
015390,002666: 40,3346 04216 NVSBENDL TC NVSUBEND
015391,002667:
015392,002668: # ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
015393,002669: # WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
015394,002670: # THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
015395,002671: # MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
015396,002672: # FOR MM CODE.
015397,002673:
015398,002674: 4161 SETLOC MID7 +1
015399,002675: 4161 COUNT 02/PIN
015400,002676:
015401,002677: 4161 04400 ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
015402,002678: 4162 41041 CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
015403,002679: 4163 55013 TS REQRET # SET FOR ENTPAS0
015404,002680: 4164 04676 TC BANKCALL # PUTS ORIGINAL VERB INTO VERBREG AND
015405,002681: 4165 62337 CADR UPDATVB -1 # DISPLAYS IT IN VERB LIGHTS.
015406,002682: 4166 04715 TC POSTJUMP
015407,002683: 4167 62002 ENDALM CADR ENTER
015408,002684:
015409,002685: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
015410,002686: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
015411,002687: # MM LIGHTS.
015412,002688:
015413,002689: # IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
015414,002690: # IF NOT, IT RECYCLES.
015415,002691:
|
|
Reconstruction: This SETLOC was to DSP2BIT +10D in earlier ropes, but
had to be changed due to ACB-99, "Remove DSP2BIT in PINBALL GAME BUTTONS AND
LIGHTS".
|
015419,002695: 41,3435 SETLOC DSPLV +3
015420,002696: 41,3435 COUNT 41/PIN
015421,002697:
015422,002698: 41,3435 03457 MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
015423,002699: # IF THIS MOVES AT ALL, MUST CHANGE
015424,002700: # MMADREF AT ENTPASHI.
015425,002701: 41,3436 35027 CAF BIT5 # OCT20 = ND2.
015426,002702: 41,3437 60777 AD DSPCOUNT # DSPCOUNT MUST = -ND2.
015427,002703: 41,3440 00006 EXTEND # DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
015428,002704: 41,3441 13443 BZF +2
015429,002705: 41,3442 04161 TC ALMCYCLE # DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
015430,002706: 41,3443 35035 CAF ZERO # DSPCOUNT = -ND2.
015431,002707: 41,3444 57002 XCH NOUNREG
015432,002708: 41,3445 54154 TS MPAC
015433,002709: 41,3446 34375 CAF ND1
015434,002710: 41,3447 54777 TS DSPCOUNT
015435,002711: 41,3450 04676 TC BANKCALL
015436,002712: 41,3451 60502 CADR 2BLANK
015437,002713: 41,3452 44374 CS VD1 # BLOCK NUM CHAR IN
015438,002714: 41,3453 54777 TS DSPCOUNT
015439,002715: 41,3454 30154 CA MPAC
015440,002716: 41,3455 04715 TC POSTJUMP
015441,002717: 41,3456 10011 CADR MODROUTB # GO THRU STANDARD LOC.
015442,002718:
015443,002719: 41,3457 04,2011 MODROUTB = V37
015444,002720: 41,3457 40002 REQMM CS Q
015445,002721: 41,3460 55013 TS REQRET
015446,002722: 41,3461 34375 CAF ND1
015447,002723: 41,3462 54777 TS DSPCOUNT
015448,002724: 41,3463 35035 CAF ZERO
015449,002725: 41,3464 55002 TS NOUNREG
015450,002726: 41,3465 04676 TC BANKCALL
015451,002727: 41,3466 60502 CADR 2BLANK
015452,002728: 41,3467 04443 TC FLASHON
015453,002729: 41,3470 35033 CAF ONE
015454,002730: 41,3471 55000 TS DECBRNCH # SET FOR DEC
015455,002731: 41,3472 00136 TC ENTEXIT
015456,002732:
015457,002733: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
015458,002734: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
015459,002735: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015460,002736: # COMPONENT 1 PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
015461,002737: # COMPONENT 2 JOB ADRES (12 BIT)
015462,002738: # COMPONENT 3 BBCON
015463,002739:
015464,002740: 41,3473 35033 VBRQEXEC CAF BIT1
015465,002741: 41,3474 71045 MASK DSPTEM1
015466,002742: 41,3475 10000 CCS A
015467,002743: 41,3476 03515 TC SETVAC # IF BIT1 = 1, FINDVAC
015468,002744: 41,3477 34365 CAF TCNOVAC # IF BIT1 = 0, NOVAC
015469,002745: 41,3500 54154 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
015470,002746: 41,3501 45033 CS BIT1
015471,002747: 41,3502 71045 MASK DSPTEM1
015472,002748: 41,3503 54160 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
015473,002749: 41,3504 04473 REQUESTC TC RELDSP
015474,002750: 41,3505 34233 CA ENDINST
015475,002751: 41,3506 54157 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
015476,002752: 41,3507 00006 EXTEND
015477,002753: 41,3510 31047 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
015478,002754: 41,3511 52156 DXCH MPAC +1 # BBCON INTO MPAC+2
015479,002755: 41,3512 30160 CA MPAC +4 # PRIO IN A
015480,002756: 41,3513 00004 INHINT
015481,002757: 41,3514 00154 TC MPAC
015482,002758:
015483,002759: 41,3515 34370 SETVAC CAF TCFINDVC
015484,002760: 41,3516 03500 TC REQEX1
015485,002761:
015486,002762: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
015487,002763: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
015488,002764: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015489,002765: # COMPONENT 1 DELAY (LOW BITS)
015490,002766: # COMPONENT 2 TASK ADRES (12 BIT)
015491,002767: # COMPONENT 3 BBCON
015492,002768:
015493,002769: 41,3517 34366 VBRQWAIT CAF TCWAIT
015494,002770: 41,3520 54154 TS MPAC # TC WAITLIST INTO MPAC
015495,002771: 41,3521 31045 CA DSPTEM1 # TIME DELAY
015496,002772: 41,3522 03503 ENDRQWT TC REQUESTC -1
015497,002773:
015498,002774: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
015499,002775: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
015500,002776: # LEAVE IT IN A, INHINT AND TC MPAC.
015501,002777:
015502,002778: 40,3347 SETLOC NVSBENDL +1
015503,002779: 40,3347 COUNT 40/PIN
015504,002780:
015505,002781: 40,3347 35033 VBPROC CAF ONE # PROCEED WITHOUT DATA
015506,002782: 40,3350 55014 TS LOADSTAT
015507,002783: 40,3351 04220 TC KILMONON # TURN ON KILL MONITOR BIT
015508,002784: 40,3352 04473 TC RELDSP
015509,002785: 40,3353 04447 TC FLASHOFF
015510,002786: 40,3354 03463 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
015511,002787:
015512,002788: 40,3355 45033 VBTERM CS ONE
015513,002789: 40,3356 03350 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
015514,002790:
015515,002791: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
015516,002792: # EXECUTIVE CONTROL, WITH CHRPRIO.
015517,002793:
|
|
Reconstruction: In Comanche 67, the load verb check below branched
to ALMCYCLE upon failure instead of CHARALRM. The branch target was changed
under ACB-91, "V2X proceed response currently destroys content of R1, R2, R3
and returns to the V21 point of load".
|
015522,002798: 40,3357 41001 PROCKEY CS VERBREG # DONT ALLOW PROCEED DURING LOAD.
015523,002799: 40,3360 63372 AD VBSP2LD* # DEC 22
015524,002800: 40,3361 00006 EXTEND
015525,002801: 40,3362 26000 DIM A
015526,002802: 40,3363 00006 EXTEND
015527,002803: 40,3364 13341 BZF CHARALRM
015528,002804: 40,3365 35035 PROCKEY1 CAF ZERO # SET REQRET FOR ENTER PASS 0.
015529,002805: 40,3366 55013 TS REQRET
015530,002806: 40,3367 44374 CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
015531,002807: 40,3370 54777 TS DSPCOUNT
015532,002808: 40,3371 03347 TC VBPROC
015533,002809:
015534,002810: 40,3372 00026 VBSP2LD* DEC 22 B-14 # VB22 = BLOAD
015535,002811:
015536,002812: # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
015537,002813: # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
015538,002814: # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
015539,002815: # OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
015540,002816:
015541,002817: 40,3373 45035 VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
015542,002818: 40,3374 03350 TC VBPROC +1
015543,002819:
015544,002820: # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
015545,002821: # END OF LOAD.
015546,002822:
015547,002823: # KEY RELEASE ROUTINE
015548,002824:
015549,002825: # THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
015550,002826:
015551,002827: # THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
015552,002828: # UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
015553,002829: # THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
015554,002830: # THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
015555,002831:
015556,002832: # IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
015557,002833: # AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
015558,002834: # USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
015559,002835:
015560,002836: # IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
015561,002837: # TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
015562,002838: # NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
015563,002839: # THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
015564,002840: # RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
015565,002841: # OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
015566,002842: # INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEYRLSE WILL
015567,002843: # RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
015568,002844: # THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
015569,002845: # INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
015570,002846: # SUBROUTINES.
015571,002847:
015572,002848: 40,3375 45031 VBRELDSP CS BIT3
015573,002849: 40,3376 00006 EXTEND
015574,002850: 40,3377 03011 WAND DSALMOUT # TURN OFF UPACT LITE
015575,002851: 40,3400 10115 CCS 21/22REG # OLD DSPLOCK
015576,002852: 40,3401 35016 CAF BIT14
015577,002853: 40,3402 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT (EMB)
015578,002854: 40,3403 10000 CCS A
015579,002855: 40,3404 03413 TC UNSUSPEN # OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
015580,002856: 40,3405 04473 TSTLTS4 TC RELDSP # NOT UNSUSPENDING EXTERNAL MONITOR,
015581,002857: 40,3406 11042 CCS CADRSTOR # RELEASE DISPLAY SYSTEM AND
015582,002858: 40,3407 03411 TC +2 # DO RE-ESTABLISH IF CADRSTOR IS FULL.
015583,002859: 40,3410 05233 TC ENDOFJOB
015584,002860: 40,3411 04715 TC POSTJUMP
015585,002861: 40,3412 21272 CADR PINBRNCH
015586,002862: 40,3413 35035 UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
015587,002863: 40,3414 55012 TS DSPLOCK # JUST UNSUSPEND IT BY CLEARING DSPLOCK.
015588,002864: 40,3415 11042 CCS CADRSTOR # TURN KEY RELEASE LIGHT OFF IF BOTH
015589,002865: 40,3416 05233 TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
015590,002866: 40,3417 04516 TC RELDSP1
015591,002867: 40,3420 05233 TC ENDOFJOB
015592,002868:
015593,002869: 40,3421 ENDRELDS EQUALS
015594,002870:
015595,002871: # NVSUB IS USED FOR SUBROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
015596,002872: # USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
015597,002873: # TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
015598,002874: # PLACE 0VVVVVVVNNNNNNN INTO A.
015599,002875: # V-S ARE THE 7 BIT VERB CODE. N-S ARE THE 7 BIT NOUN CODE.
015600,002876:
015601,002877: # IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
015602,002878: # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
015603,002879: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015604,002880:
015605,002881: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
015606,002882: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
015607,002883:
015608,002884: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
015609,002885: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
015610,002886: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY (RETURN WITH NO FURTHER
015611,002887: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY (RETURN WITH NO
015612,002888: # FURTHER ACTION).
015613,002889:
015614,002890: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
015615,002891: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
015616,002892: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
015617,002893: # ALARM CONDITION BEFORE RETURN TO CALLER.
015618,002894:
015619,002895: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
015620,002896: # KEY, EXCEPT ERROR LIGHT RESET
015621,002897: # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
015622,002898: # PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
015623,002899: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
015624,002900: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
015625,002901: # MONITOR SET UP.
015626,002902:
015627,002903: # THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
015628,002904: # INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
015629,002905:
015630,002906: # A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
015631,002907: # MONITOR.
015632,002908:
015633,002909: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
015634,002910: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
015635,002911:
015636,002912: # NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
015637,002913: # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
015638,002914: # ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
015639,002915: # :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
015640,002916: # NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
015641,002917: # LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
015642,002918: # LIGHTS.
015643,002919:
015644,002920: # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
015645,002921: # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
015646,002922: # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
015647,002923: # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
015648,002924: # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
015649,002925: # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
015650,002926: # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
015651,002927: # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
015652,002928: # BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
015653,002929: # THE PARAMETER IN L HAS NO EFFECT.
015654,002930:
015655,002931: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
015656,002932: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
015657,002933:
015658,002934: 4170 SETLOC ENDALM +1
015659,002935:
015660,002936: 4170 COUNT 02/PIN
015661,002937:
015662,002938: 4170 22007 NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
015663,002939: 4171 54123 NVMONOPT TS NVTEMP
015664,002940: 4172 35016 CAF BIT14
015665,002941: 4173 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
015666,002942: 4174 61012 AD DSPLOCK
015667,002943: 4175 10000 CCS A
015668,002944: 4176 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
015669,002945: 4177 35033 CAF ONE # DSP SYST AVAILABLE
015670,002946: 4200 60002 NVSBCOM AD Q
015671,002947: 4201 55037 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
015672,002948: 4202 23022 LXCH MONSAVE2 # STORE NVMONOPT OPTIONS
015673,002949: 4203 04220 TC KILMONON # TURN ON KILL MONITOR BIT
015674,002950: 4204 34215 NVSUBCOM CAF NVSBBBNK
015675,002951:
015676,002952: 4205 56006 XCH BBANK
015677,002953: 4206 00006 EXTEND # SAVE OLD SUPERBITS
015678,002954: 4207 04007 ROR SUPERBNK
015679,002955: 4210 55040 TS NVBNKTEM
015680,002956: 4211 34215 CAF PINSUPBT
015681,002957: 4212 00006 EXTEND
015682,002958: 4213 01007 WRITE SUPERBNK
015683,002959: 4214 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
015684,002960: 4215 0777 EBANK= DSPCOUNT
015685,002961: 4215 62101 NVSBBBNK BBCON NVSUB1
015686,002962:
015687,002963: 4216 4215 PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
015688,002964:
015689,002965: 4216 53040 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
015690,002966: 4217 05243 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
015691,002967:
015692,002968: 41,3523 SETLOC ENDRQWT +1
015693,002969:
015694,002970: 41,3523 COUNT 41/PIN
015695,002971:
015696,002972: # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
015697,002973: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015698,002974:
015699,002975: 41,3523 65037 BLANKDSP AD SEVEN # 7,8,9, OR 10 (A HAD 0,1,2,OR 3)
015700,002976: 41,3524 00004 INHINT
015701,002977: 41,3525 54124 TS CODE # BLANK SPECIFIED DSPTABS
015702,002978: 41,3526 45020 CS BIT12
015703,002979: 41,3527 50124 INDEX CODE
015704,002980: 41,3530 57023 XCH DSPTAB
015705,002981: 41,3531 10000 CCS A
015706,002982: 41,3532 25016 INCR NOUT
015707,002983: 41,3533 03534 TC +1
015708,002984: 41,3534 10124 CCS CODE
015709,002985: 41,3535 03525 TC BLANKDSP +2
015710,002986: 41,3536 00003 RELINT
015711,002987: 41,3537 50123 INDEX NVTEMP
015712,002988: 41,3540 03545 TC +5
015713,002989: 41,3541 03542 TC +1 # NVTEMP HAS -4 (NEVER TOUCH MODREG)
015714,002990: 41,3542 55001 TS VERBREG # -3
015715,002991: 41,3543 55002 TS NOUNREG # -2
015716,002992: 41,3544 55015 TS CLPASS # -1
015717,002993: 41,3545 44374 CS VD1
015718,002994: 41,3546 54777 TS DSPCOUNT
015719,002995: 41,3547 04447 TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
015720,002996: 41,3550 03573 TC ENTSET -2 # ZEROS REQRET
015721,002997:
015722,002998: 41,3551 33575 NVSUB1 CAF ENTSET # IN BANK
015723,002999: 41,3552 54136 TS ENTRET # SET RETURN TO NVSUBEND
015724,003000: 41,3553 10123 CCS NVTEMP # WHAT NOW
015725,003001: 41,3554 03560 TC +4 # NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
015726,003002: 41,3555 02351 TC GODSPALM
015727,003003: 41,3556 03523 TC BLANKDSP # BLANK DISPLAY AS SPECIFIED
015728,003004: 41,3557 02351 TC GODSPALM
015729,003005: 41,3560 36043 CAF LOW7
015730,003006: 41,3561 70123 MASK NVTEMP
015731,003007: 41,3562 54157 TS MPAC +3 # TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
015732,003008: 41,3563 30123 CA NVTEMP # USES MPAC, +1, +2
015733,003009: 41,3564 54023 TS EDOP # RIGHT 7
015734,003010: 41,3565 30023 CA EDOP
015735,003011: 41,3566 54160 TS MPAC +4 # TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
015736,003012: # USES MPAC, +1, +2).
015737,003013: 41,3567 10157 CCS MPAC +3 # TEST NOUN
015738,003014: 41,3570 03576 TC NVSUB2 # IF NOUN NOT +0, GO ON
015739,003015: 41,3571 30160 CA MPAC +4
015740,003016: 41,3572 02337 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB. THEN RETURN
015741,003017: 41,3573 35035 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
015742,003018: 41,3574 55013 TS REQRET # BE EXECUTED BY OPERATOR.
015743,003019: 41,3575 04216 ENTSET TC NVSUBEND
015744,003020: 41,3576 10160 NVSUB2 CCS MPAC +4 # TEST VERB
015745,003021: 41,3577 03603 TC +4 # IF VERB NOT +0, GO ON
015746,003022: 41,3600 30157 CA MPAC +3
015747,003023: 41,3601 02317 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
015748,003024: 41,3602 04216 TC NVSUBEND
015749,003025: 41,3603 30156 CA MPAC +2 # TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
015750,003026: 41,3604 54161 TS MPAC +5 # USES MPAC, +1, +2)
015751,003027: 41,3605 30160 CA MPAC +4
015752,003028: 41,3606 02337 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
015753,003029: 41,3607 30157 CA MPAC +3 # BOTH AND GO TO ENTPAS0.
015754,003030: 41,3610 02317 TC UPDATNN -1
015755,003031: 41,3611 35035 CAF ZERO
015756,003032: 41,3612 55014 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
015757,003033: 41,3613 55015 TS CLPASS
015758,003034: 41,3614 55013 TS REQRET # SET REQRET FOR PASS 0.
015759,003035: 41,3615 30161 CA MPAC +5 # RESTORES MACH CADR TO BE SPEC TO MPAC+2
015760,003036: 41,3616 54156 TS MPAC +2 # FOR USE IN INTMCTBS (IN ENTPAS0).
015761,003037: 41,3617 02035 ENDNVSB1 TC ENTPAS0
015762,003038:
015763,003039: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
015764,003040: # NOUNCADR IN ENTPAS0 (INTMCTBS).
015765,003041:
015766,003042: 4220 SETLOC NVSUBEND +2
015767,003043: 4220 COUNT 02/PIN
015768,003044: # FORCE BIT 15 OF MONSAVE1 TO 1.
015769,003045: 4220 35015 KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
015770,003046: 4221 55021 TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
015771,003047: # MONITOR BIT.
015772,003048: 4222 00002 TC Q
015773,003049:
015774,003050: # LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
015775,003051: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
015776,003052: # -1 TERMINATE SET BY SPECIAL VERB
015777,003053: # -0 DATA IN SET BY END OF LOAD ROUTINE
015778,003054: # OR RESEQUENCE SET BY VERB 32
015779,003055:
015780,003056: # L TC ENDIDLE (FIXED FIXED)
015781,003057: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
015782,003058: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
015783,003059: # ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
015784,003060: # SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
015785,003061: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
015786,003062: # L+1 FOR TERMINATE
015787,003063: # L+2 FOR PROCEED WITHOUT DATA
015788,003064: # L+3 FOR DATA IN, OR RESEQUENCE
015789,003065: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
015790,003066:
015791,003067: # ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
015792,003068: # IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
015793,003069: # 1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
015794,003070: # EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
015795,003071: # 2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
015796,003072: # NVSUBUSY.
015797,003073:
015798,003074: 4223 22002 ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
015799,003075: 4224 04234 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0
015800,003076: 4225 04240 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0
015801,003077: 4226 30001 CA L # DONT SET DSPLOCK TO 1 SO CAN USE
015802,003078: 4227 75070 MASK LOW10 # ENDIDLE WITH NVSUB INITIATED MONITOR.
015803,003079: 4230 60004 AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
015804,003080: 4231 55042 TS CADRSTOR
015805,003081: 4232 05211 TC JOBSLEEP
015806,003082:
015807,003083: 4233 05233 ENDINST TC ENDOFJOB
015808,003084:
015809,003085: 4234 11042 ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
015810,003086: 4235 04243 TC DSPABORT # RETURNS IF CADRSTOR = +0.
015811,003087: 4236 00002 TC Q
015812,003088: 4237 04243 TC DSPABORT
015813,003089:
015814,003090: 4240 11043 ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
015815,003091: 4241 04243 TC DSPABORT # RETURNS IF DSPLIST = +0.
015816,003092: 4242 00002 TC Q
015817,003093: 4243 05725 DSPABORT TC POODOO
015818,003094: 4244 21206 OCT 21206 # SECOND JOB TRYING TO GO TO SLEEP
015819,003095:
015820,003096: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
015821,003097: # IT DOES ENDOFJOB.
015822,003098:
015823,003099: 4245 34215 JAMTERM CAF PINSUPBT
015824,003100: 4246 00006 EXTEND
015825,003101: 4247 01007 WRITE SUPERBNK
015826,003102: 4250 34256 CAF 34DEC
015827,003103: 4251 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
015828,003104: 4252 44374 CS VD1
015829,003105: 4253 54777 TS DSPCOUNT
015830,003106: 4254 04715 TC POSTJUMP
015831,003107: 4255 61355 CADR VBTERM
015832,003108:
015833,003109: 4256 00042 34DEC DEC 34 B-14
015834,003110:
015835,003111: # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
015836,003112: # FUNCTION. IT DOES ENDOFJOB.
015837,003113:
015838,003114: 4257 34215 JAMPROC CAF PINSUPBT
015839,003115: 4260 00006 EXTEND
015840,003116: 4261 01007 WRITE SUPERBNK
015841,003117: 4262 34270 CAF 33DEC
015842,003118: 4263 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
015843,003119: 4264 44374 CS VD1
015844,003120: 4265 54777 TS DSPCOUNT
015845,003121: 4266 04715 TC POSTJUMP
015846,003122: 4267 61347 CADR VBPROC
015847,003123:
015848,003124: 4270 00041 33DEC DEC 33 B-14
015849,003125:
015850,003126: # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
015851,003127: # CALL WITH BLANKING CODE IN A.
015852,003128: # BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
015853,003129: # ANY COMBINATION OF THESE BITS IS ACCEPTED.
015854,003130:
015855,003131: # DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
015856,003132:
015857,003133: 4271 75037 BLANKSUB MASK SEVEN
015858,003134: 4272 54123 TS NVTEMP # STORE BLANKING CODE IN NVTEMP.
015859,003135: 4273 35016 CAF BIT14
015860,003136: 4274 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
015861,003137: 4275 61012 AD DSPLOCK
015862,003138: 4276 10000 CCS A
015863,003139: 4277 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
015864,003140: 4300 24002 INCR Q # DSP SYST AVAILABLE
015865,003141: # SET RETURN FOR 2+ CALLING LOC
015866,003142: 4301 10123 CCS NVTEMP
015867,003143: 4302 14304 TCF +2
015868,003144: 4303 00002 TC Q # NOTHING TO BLANK. RET TO 2+ CALLING LOC
015869,003145: 4304 22002 LXCH Q # SET RETURN FOR 2 + CALLING LOC
015870,003146: 4305 34316 CAF BLNKBBNK
015871,003147: 4306 56006 XCH BBANK
015872,003148: 4307 00006 EXTEND
015873,003149: 4310 04007 ROR SUPERBNK # SAVE OLD SUPERBITS.
015874,003150: 4311 52131 DXCH BUF
015875,003151: 4312 34215 CAF PINSUPBT
015876,003152: 4313 00006 EXTEND
015877,003153: 4314 01007 WRITE SUPERBNK
015878,003154: 4315 03421 TC BLNKSUB1
015879,003155:
015880,003156: 4316 0777 EBANK= DSPCOUNT
015881,003157: 4316 60101 BLNKBBNK BBCON BLNKSUB1
015882,003158: 4317 ENDBLFF EQUALS
015883,003159:
015884,003160: 40,3421 SETLOC ENDRELDS
015885,003161: 40,3421 COUNT 40/PIN
015886,003162:
015887,003163: 40,3421 30777 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
015888,003164: 40,3422 54132 TS BUF +2
015889,003165: 40,3423 35033 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
015890,003166: 40,3424 03443 TC TESTBIT
015891,003167: 40,3425 34333 CAF R1D1
015892,003168: 40,3426 02436 TC 5BLANK -1
015893,003169: 40,3427 35032 CAF BIT2 # TEST BIT2. SEE IF R2 TO BE BLANKED.
015894,003170: 40,3430 03443 TC TESTBIT
015895,003171: 40,3431 34334 CAF R2D1
015896,003172: 40,3432 02436 TC 5BLANK -1
015897,003173: 40,3433 35031 CAF BIT3 # TEST BIT3. SEE IF R3 TO BE BLANKED.
015898,003174: 40,3434 03443 TC TESTBIT
015899,003175: 40,3435 34335 CAF R3D1
015900,003176: 40,3436 02436 TC 5BLANK -1
015901,003177: 40,3437 30132 CA BUF +2 # RESTORE DSPCOUNT TO STATE IT HAD
015902,003178: 40,3440 54777 TS DSPCOUNT # BEFORE BLANKSUB.
015903,003179: 40,3441 52131 DXCH BUF # CALL L+2 DIRECTLY.
015904,003180: 40,3442 05244 TC SUPDXCHZ +1 # DTCB WITH SUPERBIT SWITCHING
015905,003181:
015906,003182: 40,3443 70123 TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
015907,003183: 40,3444 10000 CCS A
015908,003184: 40,3445 00002 TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
015909,003185: 40,3446 50002 INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
015910,003186: 40,3447 00002 TC 2
015911,003187:
015912,003188: 40,3450 ENDBSUB1 EQUALS
015913,003189:
015914,003190: # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
015915,003191: # PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
015916,003192:
015917,003193: # IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
015918,003194:
015919,003195: # DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
015920,003196:
015921,003197: 07,2441 BANK 7
015922,003198: 04,2000 SETLOC PINBALL4
015923,003199: 04,2000 BANK
015924,003200:
015925,003201: 04,2566 COUNT 07/PIN
015926,003202:
015927,003203: 04,2566 56002 DSPMM XCH Q
015928,003204: 04,2567 54154 TS MPAC
015929,003205: 04,2570 00004 INHINT
015930,003206: 04,2571 34371 CAF CHRPRIO
015931,003207: 04,2572 05150 TC NOVAC
015932,003208: 04,2573 0777 EBANK= DSPCOUNT
015933,003209: 04,2573 03450 60101 2CADR DSPMMJB
015934,003210:
015935,003211: 04,2575 00003 RELINT
015936,003212: 04,2576 00154 ENDSPMM TC MPAC
015937,003213:
015938,003214: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
015939,003215:
015940,003216: 40,3450 SETLOC ENDBSUB1
015941,003217:
015942,003218: 40,3450 COUNT 40/PIN
015943,003219:
015944,003220: 40,3450 34376 DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
015945,003221: 40,3451 56777 XCH DSPCOUNT
015946,003222: 40,3452 54140 TS DSPMMTEM # SAVE DSPCOUNT
015947,003223: 40,3453 11011 CCS MODREG
015948,003224: 40,3454 65033 AD ONE
015949,003225: 40,3455 03213 TC DSPDECVN # IF MODREG IS + OR +0, DISPLAY MODREG
015950,003226: 40,3456 03460 TC +2 # IF MODREG IS -NZ, DO NOTHING
015951,003227: 40,3457 02502 TC 2BLANK # IF MODREG IS -0, BLANK MM
015952,003228: 40,3460 56140 XCH DSPMMTEM # RESTORE DSPCOUNT
015953,003229: 40,3461 54777 TS DSPCOUNT
015954,003230: 40,3462 05233 TC ENDOFJOB
015955,003231:
015956,003232: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
015957,003233: # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
015958,003234: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
015959,003235: #
015960,003236: # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
015961,003237: # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
015962,003238:
015963,003239: 40,3463 11042 RECALTST CCS CADRSTOR
015964,003240: 40,3464 03466 TC RECAL1
015965,003241: 40,3465 05233 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
015966,003242: 40,3466 35035 RECAL1 CAF ZERO
015967,003243: 40,3467 57042 XCH CADRSTOR
015968,003244: 40,3470 00004 INHINT
015969,003245: 40,3471 05215 TC JOBWAKE
015970,003246: 40,3472 11014 CCS LOADSTAT
015971,003247: 40,3473 03515 TC DOPROC # + PROCEED WITHOUT DATA
015972,003248: 40,3474 05233 TC ENDOFJOB # PATHALOGICAL CASE EXIT
015973,003249: 40,3475 03513 TC DOTERM # - TERMINATE
015974,003250: 40,3476 35032 CAF TWO # -0 DATA IN OR RESEQUENCE
015975,003251: 40,3477 50064 RECAL2 INDEX LOCCTR
015976,003252: 40,3500 60164 AD LOC # LOC IS + FOR BASIC JOBS
015977,003253: 40,3501 50064 INDEX LOCCTR
015978,003254: 40,3502 54164 TS LOC
015979,003255: 40,3503 31002 CA NOUNREG # SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
015980,003256: 40,3504 54001 TS L # TIME OF RESPONSE TO ENDIDLE FOR
015981,003257: 40,3505 31001 CA VERBREG # POSSIBLE LATER TESTING BY JOB THAT HAS
015982,003258: 40,3506 50064 INDEX LOCCTR # BEEN WAKED UP.
015983,003259: 40,3507 52155 DXCH MPAC
015984,003260: 40,3510 00003 RELINT
015985,003261: 40,3511 04473 RECAL3 TC RELDSP
015986,003262: 40,3512 05233 TC ENDOFJOB
015987,003263:
015988,003264: 40,3513 35035 DOTERM CAF ZERO
015989,003265: 40,3514 03477 TC RECAL2
015990,003266:
015991,003267: 40,3515 35033 DOPROC CAF ONE
015992,003268: 40,3516 03477 TC RECAL2
015993,003269:
015994,003270: 40,3517 30,2000 SBANK= LOWSUPER
015995,003271: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
015996,003272:
015997,003273: 4317 SETLOC ENDBLFF
015998,003274:
015999,003275: 4317 COUNT 02/PIN
016000,003276:
016001,003277: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
016002,003278: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
016003,003279:
016004,003280: 4317 55017 SETNCADR TS NOUNCADR # STORE ECADR
016005,003281: 4320 54003 TS EBANK # SET EBANK BITS
016006,003282: 4321 74373 MASK LOW8
016007,003283: 4322 65065 AD OCT1400
016008,003284: 4323 54145 TS NOUNADD # PUT E ADRES INTO NOUNADD
016009,003285: 4324 00002 TC Q
016010,003286:
016011,003287: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
016012,003288: # E ADRES AND PUTS IT INTO NOUNADD.
016013,003289:
016014,003290: 4325 31017 SETNADD CA NOUNCADR
016015,003291: 4326 14320 TCF SETNCADR +1
016016,003292:
016017,003293: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
016018,003294: # DERIVED AND LEFT IN A.
016019,003295:
016020,003296: 4327 54003 SETEBANK TS EBANK # SET EBANK BITS
016021,003297: 4330 74373 MASK LOW8
016022,003298: 4331 65065 AD OCT1400 # E ADRES LEFT IN A
016023,003299: 4332 00002 TC Q
016024,003300:
016025,003301: 4333 00016 R1D1 OCT 16 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016026,003302: 4334 00011 R2D1 OCT 11 # DONT SEPARATE.
016027,003303: 4335 00004 R3D1 OCT 4
016028,003304:
016029,003305: 4336 54020 RIGHT5 TS CYR
016030,003306: 4337 40020 CS CYR
016031,003307: 4340 40020 CS CYR
016032,003308: 4341 40020 CS CYR
016033,003309: 4342 40020 CS CYR
016034,003310: 4343 56020 XCH CYR
016035,003311: 4344 00002 TC Q
016036,003312:
016037,003313: 4345 54022 LEFT5 TS CYL
016038,003314: 4346 40022 CS CYL
016039,003315: 4347 40022 CS CYL
016040,003316: 4350 40022 CS CYL
016041,003317: 4351 40022 CS CYL
016042,003318: 4352 56022 XCH CYL
016043,003319: 4353 00002 TC Q
016044,003320:
016045,003321: 4354 60000 SLEFT5 DOUBLE
016046,003322: 4355 60000 DOUBLE
016047,003323: 4356 60000 DOUBLE
016048,003324: 4357 60000 DOUBLE
016049,003325: 4360 60000 DOUBLE
016050,003326: 4361 00002 TC Q
016051,003327:
016052,003328: 4362 00037 LOW5 OCT 37 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016053,003329: 4363 01740 MID5 OCT 1740 # DONT SEPARATE.
016054,003330: 4364 76000 HI5 OCT 76000 # MUST STAY HERE
016055,003331:
016056,003332: 4365 05150 TCNOVAC TC NOVAC
016057,003333: 4366 05261 TCWAIT TC WAITLIST
016058,003334: 4367 05340 TCTSKOVR TC TASKOVER
016059,003335: 4370 05163 TCFINDVC TC FINDVAC
016060,003336:
016061,003337: 4371 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
016062,003338:
016063,003339: 4372 03777 LOW11 OCT 3777
016064,003340: 4373 4372 B12-1 EQUALS LOW11
016065,003341: 4373 00377 LOW8 OCT 377
016066,003342:
016067,003343: 4374 00023 VD1 OCT 23 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016068,003344: 4375 00021 ND1 OCT 21 # DONT SEPARATE.
016069,003345: 4376 00025 MD1 OCT 25
016070,003346:
016071,003347: 4377 00012 BINCON DEC 10 B-14
016072,003348:
016073,003349: 4400 35025 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
016074,003350: 4401 00006 EXTEND
016075,003351: 4402 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
016076,003352: 4403 00002 TC Q
016077,003353:
016078,003354: 4404 45025 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
016079,003355: 4405 00006 EXTEND
016080,003356: 4406 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
016081,003357: 4407 00002 TC Q
016082,003358:
016083,003359: 4410 35027 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
016084,003360: 4411 00006 EXTEND
016085,003361: 4412 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
016086,003362: 4413 00002 TC Q
016087,003363:
016088,003364: 4414 00006 LODSAMPT EXTEND
016089,003365: 4415 30025 DCA TIME2
016090,003366: 4416 52014 DXCH SAMPTIME
016091,003367: 4417 00002 TC Q
016092,003368:
016093,003369: 4420 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
016094,003370: 4421 30156 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
016095,003371: 4422 20156 DAS MPAC +1
016096,003372: 4423 60154 AD MPAC
016097,003373: 4424 26154 ADS MPAC
016098,003374: 4425 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
016099,003375: 4426 00002 TC Q # NO NET OF/UF
016100,003376: 4427 54162 TS MPAC+6 # MPAC +6 SET TO +/- 1 FOR OF/UF
016101,003377: 4430 00002 TC Q
016102,003378:
016103,003379: # IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
016104,003380: # IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
016105,003381: # PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
016106,003382: # SETTING RESULT TO -0.
016107,003383:
016108,003384: # (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
016109,003385: # WHEN THEY CONTAIN THE SF CONSTANTS.)
016110,003386:
016111,003387: 4431 54135 PRSHRTMP TS MPTEMP
016112,003388: 4432 10000 CCS A
016113,003389: 4433 30135 CA MPTEMP # C(A) +, DO REGULAR SHORTMP
016114,003390: 4434 17257 TCF SHORTMP +1 # C(A) +0, DO REGULAR SHORTMP
016115,003391: 4435 14433 TCF -2 # C(A) -, DO REGULAR SHORTMP
016116,003392: 4436 45035 CS ZERO # C(A) -0, FORCE RESULT TO -0 AND RETURN.
016117,003393: 4437 54154 TS MPAC
016118,003394: 4440 54155 TS MPAC +1
016119,003395: 4441 54156 TS MPAC +2
016120,003396: 4442 00002 TC Q
016121,003397:
016122,003398: 4443 35026 FLASHON CAF BIT6 # TURN ON V/N FLASH
016123,003399: 4444 00006 EXTEND # BIT 6 OF CHANNEL 11
016124,003400: 4445 05011 WOR DSALMOUT
016125,003401: 4446 00002 TC Q
016126,003402:
016127,003403: 4447 45026 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
016128,003404: 4450 00006 EXTEND
016129,003405: 4451 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
016130,003406: 4452 00002 TC Q
016131,003407:
016132,003408: # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
016133,003409:
016134,003410: # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
016135,003411: # CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
016136,003412: # HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
016137,003413: # OFFERED.
016138,003414:
016139,003415: # THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
016140,003416: # PROGRAM. 1) BY ENDIDLE
016141,003417: # 2) BY NVSUBUSY
016142,003418: # THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
016143,003419: # THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
016144,003420: # SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY AJOB ASLEEP THAT WAS
016145,003421: # PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
016146,003422:
016147,003423: # THE CALLING SEQUENCE FOR NVSUB IS
016148,003424: # CAF V/N
016149,003425: # L TC NVSUB
016150,003426: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
016151,003427: # L+2 RETURN HERE AFTER EXECUTION
016152,003428:
016153,003429: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
016154,003430: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
016155,003431: # SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
016156,003432: # NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016157,003433: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016158,003434:
016159,003435: # THE CALLING SEQUENCE IS
016160,003436: # CAF WAKEFCADR
016161,003437: # TC NVSUBUSY
016162,003438: # .
016163,003439:
016164,003440: # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
016165,003441: # IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
016166,003442: # NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
016167,003443: # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
016168,003444:
016169,003445: # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
016170,003446: # SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
016171,003447: # WHEN
016172,003448:
016173,003449: # 1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
016174,003450: # IS EXCEEDED.
016175,003451: # 2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
016176,003452: # ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016177,003453:
016178,003454: 4453 44460 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
016179,003455: 4454 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF (LOC
016180,003456: 4455 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
016181,003457: 4456 04715 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
016182,003458: 4457 10577 CADR NVSUBSY1
016183,003459: 4460 02003 2K+3 OCT 2003
016184,003460:
016185,003461: # NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
016186,003462: # WITH HIS PROPER SUPERBITS.
016187,003463:
016188,003464: 04,2577 SETLOC ENDSPMM +1
016189,003465: 04,2577 COUNT 07/PIN
016190,003466:
016191,003467: 04,2577 54001 NVSUBSY1 TS L
016192,003468: 04,2600 04234 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0.
016193,003469: 04,2601 04240 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0.
016194,003470: 04,2602 04410 TC RELDSPON
016195,003471: 04,2603 30001 CA L
016196,003472: 04,2604 55043 TS DSPLIST
016197,003473: 04,2605 05211 ENDNVBSY TC JOBSLEEP
016198,003474:
016199,003475: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
016200,003476: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
016201,003477: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
016202,003478: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
016203,003479: # IS NOT BUSY.
016204,003480:
016205,003481: 4461 SETLOC NVSUBUSY +3
016206,003482: 4461 COUNT 02/PIN
016207,003483:
016208,003484: 4461 22007 NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
016209,003485: 4462 54123 TS NVTEMP
016210,003486: 4463 35016 CAF BIT14
016211,003487: 4464 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
016212,003488: 4465 61012 AD DSPLOCK
016213,003489: 4466 10000 CCS A
016214,003490: 4467 14471 TCF NVSBWT1 # BUSY
016215,003491: 4470 14200 TCF NVSBCOM # FREE. NVSUB WILL SAVE L+1 FOR RETURN
016216,003492: # AFTER EXECUTION.
016217,003493: 4471 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
016218,003494: 4472 14453 TCF PRENVBSY # GO TO SLEEP.
016219,003495:
016220,003496: # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
016221,003497: # VERB DISPATCHER, VBRESEQ, RECALTST.
016222,003498:
016223,003499: # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
016224,003500:
016225,003501: 4473 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
016226,003502: 4474 54144 TS RELRET # OFF, SEARCH DSPLIST
016227,003503: 4475 45016 CS BIT14
016228,003504: 4476 00004 INHINT
016229,003505: 4477 71021 MASK MONSAVE1
016230,003506: 4500 55021 TS MONSAVE1 # TURN OFF EXTERNAL MONITOR BIT
016231,003507: 4501 11043 CCS DSPLIST
016232,003508: 4502 04504 TC +2
016233,003509: 4503 04507 TC RELDSP2 # LIST EMPTY
016234,003510: 4504 35035 CAF ZERO
016235,003511: 4505 57043 XCH DSPLIST
016236,003512: 4506 05215 TC JOBWAKE
016237,003513: 4507 00003 RELDSP2 RELINT
016238,003514: 4510 45027 CS BIT5 # TURN OFF KEY RELEASE LIGHT
016239,003515: 4511 00006 EXTEND # (BIT 5 OF CHANNEL 11)
016240,003516: 4512 03011 WAND DSALMOUT
016241,003517: 4513 35035 CAF ZERO
016242,003518: 4514 55012 TS DSPLOCK
016243,003519: 4515 00144 TC RELRET
016244,003520: 4516 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
016245,003521: 4517 54144 TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
016246,003522: # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
016247,003523: # DSPLIST IS NOT EMPTY.
016248,003524: 4520 11043 CCS DSPLIST
016249,003525: 4521 04523 TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016250,003526: 4522 04507 TC RELDSP2 # +0 EMPTY. TURN OFF KEY RLSE LIGHT
016251,003527: 4523 35035 CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016252,003528: 4524 55012 TS DSPLOCK
016253,003529: 4525 00144 TC RELRET
016254,003530:
016255,003531: 4526 ENDPINBF EQUALS
016256,003532:
016257,003533: # PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
016258,003534:
016259,003535: 4526 43,2002 PINTEST EQUALS LST2FAN
016260,003536:
016261,003537: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
016262,003538: # OFF THE CAUTION AND STATUS LIGHTS.
016263,003539:
016264,003540: 41,3620 SETLOC ENDNVSB1 +1
016265,003541:
016266,003542: 41,3620 COUNT 41/PIN
016267,003543:
016268,003544: 41,3620 04676 VBTSTLTS TC BANKCALL
016269,003545: 41,3621 66727 CADR CHKPOOH
016270,003546:
016271,003547: 41,3622 00004 INHINT
016272,003548: 41,3623 45033 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
016273,003549: 41,3624 71321 MASK IMODES33 # TURN OUT ANY LAMPS.
016274,003550: 41,3625 65033 AD BIT1
016275,003551: 41,3626 55321 TS IMODES33
016276,003552:
016277,003553: 41,3627 33663 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
016278,003554: 41,3630 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
016279,003555: 41,3631 05011 WOR DSALMOUT
016280,003556: 41,3632 33664 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
016281,003557: 41,3633 55036 TS DSPTAB +11D # PROG ALM.
016282,003558: 41,3634 35022 CAF BIT10 # TURN ON TEST ALARM OUTBIT
016283,003559: 41,3635 00006 EXTEND
016284,003560: 41,3636 05013 WOR CHAN13
016285,003561: 41,3637 34377 CAF TEN
016286,003562: 41,3640 54117 TSTLTS1 TS ERCNT
016287,003563: 41,3641 43661 CS FULLDSP
016288,003564: 41,3642 50117 INDEX ERCNT
016289,003565: 41,3643 55023 TS DSPTAB
016290,003566: 41,3644 10117 CCS ERCNT
016291,003567: 41,3645 03640 TC TSTLTS1
016292,003568: 41,3646 43662 CS FULLDSP1
016293,003569: 41,3647 55024 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
016294,003570: 41,3650 55027 TS DSPTAB +4
016295,003571: 41,3651 55031 TS DSPTAB +6
016296,003572: 41,3652 35040 CAF ELEVEN
016297,003573: 41,3653 55016 TS NOUT
016298,003574: 41,3654 33666 CAF SHOLTS
016299,003575: 41,3655 05261 TC WAITLIST
016300,003576: 41,3656 1023 EBANK= DSPTAB
016301,003577: 41,3656 03667 62102 2CADR TSTLTS2
016302,003578:
016303,003579: 41,3660 05233 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
016304,003580: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
016305,003581: # LIGHTS TEST WILL BE SEEN.
016306,003582:
016307,003583: 41,3661 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
016308,003584: 41,3662 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
016309,003585: 41,3663 00175 TSTCON1 OCT 00175
016310,003586: # UPLINK ACTIVITY, TEMP, KEY RLSE,
016311,003587: # V/N FLASH, OPERATOR ERROR.
016312,003588: 41,3664 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
016313,003589: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
016314,003590: 41,3665 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
016315,003591: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
016316,003592: 41,3666 00764 SHOLTS OCT 764 # 5 SEC
016317,003593:
016318,003594: 41,3667 34371 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
016319,003595: 41,3670 05150 TC NOVAC
016320,003596: 41,3671 1023 EBANK= DSPTAB
016321,003597: 41,3671 03674 62102 2CADR TSTLTS3
016322,003598:
016323,003599: 41,3673 05340 TC TASKOVER
016324,003600:
016325,003601: 41,3674 43665 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
016326,003602: 41,3675 00004 INHINT
016327,003603: 41,3676 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
016328,003604: 41,3677 03011 WAND DSALMOUT # OPERATOR ERROR.
016329,003605: 41,3700 45022 CS BIT10 # TURN OFF TEST ALARM OUTBIT
016330,003606: 41,3701 00006 EXTEND
016331,003607: 41,3702 03013 WAND CHAN13
016332,003608: 41,3703 35030 CAF BIT4 # MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
016333,003609: 41,3704 00006 EXTEND # (NO ATT LIGHT ON IF IN COARSE ALIGN)
016334,003610: 41,3705 02012 RAND CHAN12
016335,003611: 41,3706 65015 AD BIT15 # TURN OFF AUTO, HOLD, FREE, SPARE,
016336,003612: 41,3707 55036 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
016337,003613: 41,3710 43732 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
016338,003614: 41,3711 71321 MASK IMODES33 # LIGHTS COMPLETE.
016339,003615: 41,3712 65104 AD PRIO16
016340,003616: 41,3713 55321 TS IMODES33
016341,003617:
016342,003618: 41,3714 43733 CS OCT55000
016343,003619: 41,3715 71320 MASK IMODES30
016344,003620: 41,3716 65103 AD PRIO15 # 15000.
016345,003621: 41,3717 55320 TS IMODES30
016346,003622:
016347,003623: 41,3720 41331 CS OPTMODES
016348,003624: 41,3721 75025 MASK BIT7
016349,003625: 41,3722 27331 ADS OPTMODES
016350,003626: 41,3723 00003 RELINT
016351,003627:
016352,003628: 41,3724 04676 TC BANKCALL # REDISPLAY C(MODREG)
016353,003629: 41,3725 10566 CADR DSPMM
016354,003630: 41,3726 04220 TC KILMONON # TURN ON KILL MONITOR BIT.
016355,003631: 41,3727 04447 TC FLASHOFF # TURN OFF V/N FLASH.
016356,003632: 41,3730 04715 TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF
016357,003633: 41,3731 61405 CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE.
016358,003634: 41,3732 16001 13-11,1 OCT 16001
016359,003635: 41,3733 55000 OCT55000 OCT 55000
016360,003636: 41,3734 ENDPINS2 EQUALS
016361,003637:
016362,003638: # ERROR LIGHT RESET (RSET) TURNS OFF,
016363,003639: # UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
016364,003640: # PROG ALM, TRACKER FAIL.
016365,003641:
016366,003642: # LEAVES GIMBAL LOCK AND NO ATT ALONE.
016367,003643: #
016368,003644: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY, RESTART.
016369,003645: # IT ALSO SETS :CAUTION RESET: TO 1.
016370,003646: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
016371,003647:
016372,003648: 40,3517 SETLOC DOPROC +2
016373,003649: 40,3517 COUNT 40/PIN
016374,003650:
016375,003651: 40,3517 56115 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
016376,003652: 40,3520 55012 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
016377,003653: 40,3521 00004 INHINT
016378,003654: 40,3522 35022 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
016379,003655: 40,3523 00006 EXTEND
016380,003656: 40,3524 05011 WOR DSALMOUT # BIT10 CHAN 11
016381,003657: 40,3525 33604 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
016382,003658: 40,3526 71036 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
016383,003659: 40,3527 65015 AD BIT15 # PROG ALARM, AND TRACKER.
016384,003660: 40,3530 55036 TS DSPTAB +11D
016385,003661: 40,3531 45104 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
016386,003662: 40,3532 71321 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
016387,003663: 40,3533 65104 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
016388,003664: 40,3534 55321 TS IMODES33
016389,003665: 40,3535 45022 CS BIT10
016390,003666: 40,3536 71320 MASK IMODES30
016391,003667: 40,3537 65022 AD BIT10
016392,003668: 40,3540 55320 TS IMODES30
016393,003669:
016394,003670: 40,3541 41331 CS OPTMODES
016395,003671: 40,3542 75025 MASK BIT7
016396,003672: 40,3543 27331 ADS OPTMODES
016397,003673: 40,3544 45022 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
016398,003674: 40,3545 00006 EXTEND
016399,003675: 40,3546 03013 WAND CHAN13
016400,003676: 40,3547 43602 CS ERCON # TURN OFF UPLINK ACTIVITY,
016401,003677: 40,3550 00006 EXTEND # OPERATOR ERROR.
016402,003678: 40,3551 03011 WAND DSALMOUT
016403,003679: 40,3552 34377 TSTAB CAF BINCON # (DEC 10)
016404,003680: 40,3553 54117 TS ERCNT # ERCNT = COUNT
016405,003681: 40,3554 00004 INHINT
016406,003682: 40,3555 50117 INDEX ERCNT
016407,003683: 40,3556 11023 CCS DSPTAB
016408,003684: 40,3557 65033 AD ONE
016409,003685: 40,3560 03565 TC ERPLUS
016410,003686: 40,3561 65033 AD ONE
016411,003687: 40,3562 40000 ERMINUS CS A
016412,003688: 40,3563 73605 MASK NOTBIT12
016413,003689: 40,3564 03570 TC ERCOM
016414,003690: 40,3565 40000 ERPLUS CS A
016415,003691: 40,3566 73605 MASK NOTBIT12
016416,003692: 40,3567 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
016417,003693: 40,3570 50117 ERCOM INDEX ERCNT # ETC.
016418,003694: 40,3571 55023 TS DSPTAB
016419,003695: 40,3572 00003 RELINT
016420,003696: 40,3573 10117 CCS ERCNT
016421,003697: 40,3574 03553 TC TSTAB +1
016422,003698: 40,3575 35035 CAF ZERO
016423,003699: 40,3576 54374 TS FAILREG
016424,003700: 40,3577 54375 TS FAILREG +1
016425,003701: 40,3600 55357 TS SFAIL
016426,003702: 40,3601 05233 TC ENDOFJOB
016427,003703:
016428,003704: 40,3602 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
016429,003705: # UPLINK ACTIVITY, AND OPERATOR ERROR.
016430,003706: 40,3603 00240 BITS6,8 OCT 240
016431,003707: 40,3604 00050 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
016432,003708: 40,3605 73777 NOTBIT12 OCT 73777
016433,003709:
016434,003710: 40,3606 ENDPINS1 EQUALS
016435,003711:
016436,003712: 40,3606 30,2000 SBANK= LOWSUPER
016437,003713:
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc