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