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