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