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