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.
|
056867,000002: ## Copyright: Public domain.
056868,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
056869,000004: ## Purpose: A section of Luminary revision 178.
056870,000005: ## It is part of the reconstructed source code for the final
056871,000006: ## release of the flight software for the Lunar Module's
056872,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
056873,000008: ## code has been recreated from copies of Zerlina 56, Luminary
056874,000009: ## 210, and Luminary 131, as well as many Luminary memos.
056875,000010: ## It has been adapted such that the resulting bugger words
056876,000011: ## exactly match those specified for Luminary 178 in NASA
056877,000012: ## drawing 2021152N, which gives relatively high confidence
056878,000013: ## that the reconstruction is correct.
056879,000014: ## Reference: pp. 1330-1361
056880,000015: ## Assembler: yaYUL
056881,000016: ## Contact: Ron Burkey <info@sandroid.org>.
056882,000017: ## Website: www.ibiblio.org/apollo/index.html
056883,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
056884,000019: ## 2019-09-15 MAS Restored definitions for erasables DSPFLG,
056885,000020: ## MARKFLAG, and SAVEFLAG. Put back in code
056886,000021: ## that uses R1SAVE.
056887,000022:
|
|
Page 1330
|
056889,000024: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
056890,000025:
056891,000026: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
056892,000027: # OUT UNDER CRITICAL ALARM CONDITIONS.
056893,000028: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
056894,000029: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
056895,000030: # SEQUENCE OF EVENTS.
056896,000031: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
056897,000032: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
056898,000033:
056899,000034:
056900,000035: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
056901,000036: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
056902,000037:
056903,000038: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
056904,000039: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
056905,000040: # BUT NOT WAITING FOR A RESPONSE.
056906,000041: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
056907,000042: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
056908,000043: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
056909,000044: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
056910,000045: # HAS INFO SAVED FOR RESTART PURPOSES.
056911,000046:
056912,000047:
056913,000048: # DISPLAY PRIORITIES WORK AS FOLLOWS-
056914,000049:
056915,000050: # INTERRUPTS-
056916,000051: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
056917,000052: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
056918,000053: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
056919,000054: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
056920,000055: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
056921,000056: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
056922,000057:
056923,000058: # ORDER OF WAITING DISPLAYS-
056924,000059: # 1. ASTRONAUT EXTERNAL USE
056925,000060: # 2. PRIORITY
056926,000061: # 3. INTERRUPTED MARK
056927,000062: # 4. INTERRUPTED NORMAL
056928,000063:
056929,000064: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
056930,000065: # 6. MARK WAITING
056931,000066: # 7. NORMAL WAITING
056932,000067:
|
|
Page 1331
|
056934,000069: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
056935,000070: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
056936,000071: # WILL FOLLOW LATER):
056937,000072:
056938,000073: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
056939,000074: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
056940,000075: # IS TO THE USERS CALLING LOC +1.
056941,000076: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
056942,000077: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
056943,000078: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
056944,000079: # USERS JOB.
056945,000080: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
056946,000081: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
056947,000082: # DESCRIPTION OF RESTARTS).
056948,000083: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
056949,000084: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
056950,000085: # (V32) BRANCHES TO THE USERS CALL CADR +3.
056951,000086: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
056952,000087:
056953,000088: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
056954,000089:
056955,000090: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
056956,000091:
056957,000092: # 1. GODSP IS NOT RESTARTABLE
056958,000093: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
056959,000094: # CAF VXXNYY
056960,000095: # TC BANKCALL
056961,000096: # CADR GODSP
056962,000097:
056963,000098: # VXXNYY OCT 0XXYY
056964,000099: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
056965,000100:
056966,000101: # CAF VXXNYY
056967,000102: # TC BANKCALL
056968,000103: # CADR GODSPR
056969,000104:
056970,000105: # ... ... IMMEDIATE RETURN OF GODSPR
056971,000106:
056972,000107: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
056973,000108: # THE ASTRONAUT (SEE NO. 7 ABOVE).
056974,000109:
056975,000110: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
056976,000111: # TC BANKCALL
056977,000112: # CADR GOFLASH
056978,000113: # ... ... TERMINATE RETURN
056979,000114: # ... ... PROCEED RETURN
056980,000115: # ... ... ENTER OR RECYCLE RETURN
056981,000116: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
|
|
Page 1332
|
056983,000118: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
056984,000119: # USER (SEE NO. 7 ABOVE).
056985,000120:
056986,000121: # GOPERF1 BLANKS REGISTERS R2 AND R3
056987,000122:
056988,000123: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
056989,000124: # TC BANKCALL
056990,000125: # CADR GOPERF1
056991,000126: # ... ... TERMINATE RETURN
056992,000127: # ... ... PROCEED RETURN
056993,000128: # ... ... ENTER RETURN
056994,000129:
056995,000130: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
056996,000131: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
056997,000132: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
056998,000133:
056999,000134: # GOPERF2 DOES NOT BLANK ANY REGISTERS
057000,000135:
057001,000136: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
057002,000137: # TC BANKCALL
057003,000138: # CADR GOPERF2
057004,000139: # ... ... TERMINATE RETURN
057005,000140: # ... ... PROCEED RETURN
057006,000141: # ... ... ENTER RETURN
057007,000142:
057008,000143: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
057009,000144: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057010,000145: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
057011,000146:
057012,000147: # GOPERF3 BLANKS REGISTERS R2 AND R3
057013,000148:
057014,000149: # CAF DECXX REQUEST PERFORM ON PXX
057015,000150: # TC BANKCALL
057016,000151: # CADR GOPERF3
057017,000152: # ... ... TERMINATE RETURN
057018,000153: # ... ... PROCEED RETURN
057019,000154: # ... ... ENTER RETURN
057020,000155:
057021,000156: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057022,000157: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
057023,000158: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057024,000159:
057025,000160: # CAF OCTXX REQUEST PERFORM ON OPTION XX
057026,000161: # TC BANKCALL
057027,000162: # CADR GOPERF4
057028,000163: # ... ... TERMINATE RETURN
057029,000164: # ... ... PROCEED RETURN
057030,000165: # ... ... ENTER RETURN
057031,000166: # GOPERF4 BLANKS REGISTER R3
057032,000167:
|
|
Page 1333
|
057034,000169: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057035,000170: # OUT.
057036,000171:
057037,000172: # CAF VXXNYY
057038,000173: # TC BANKCALL
057039,000174: # CADR GODSPRET
057040,000175: # ... ... RETURN TO USER
057041,000176:
057042,000177: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057043,000178: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057044,000179:
057045,000180: # CAF VXXNYY
057046,000181: # TC BANKCALL
057047,000182: # CADR REGODSP
057048,000183:
057049,000184: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057050,000185:
057051,000186: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
057052,000187: # TC BANKCALL
057053,000188: # CADR REFLASH
057054,000189: # ... ... TERMINATE RETURN
057055,000190: # ... ... PROCEED RETURN
057056,000191: # ... ... ENTER RETURN
057057,000192:
057058,000193: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057059,000194:
057060,000195: # CAF VXXNYY
057061,000196: # TC BANKCALL
057062,000197: # CADR GOFLASHR
057063,000198: # ... ... TERMINATE RETURN
057064,000199: # ... ... PROCEED RETURN
057065,000200: # ... ... ENTER OR RECYCLE RETURN
057066,000201:
057067,000202: # ... ... IMMEDIATE RETURN FROM GOFLASHR
057068,000203:
057069,000204: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
057070,000205:
057071,000206: # GOPERF1R BLANKS REGISTERS R2 AND R3
057072,000207:
057073,000208: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
057074,000209: # TC BANKCALL
057075,000210: # CADR GOPERF1R
057076,000211: # ... ... TERMINATE RETURN
057077,000212: # ... ... PROCEED RETURN
057078,000213: # ... ... ENTER RETURN
057079,000214:
057080,000215: # ... ... IMMEDIATE RETURN FROM GOPERF1R
057081,000216:
057082,000217: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057083,000218:
|
|
Page 1334
|
057085,000220: # GOPERF2R DOES NOT BLANK ANY REGISTERS
057086,000221:
057087,000222: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
057088,000223: # TC BANKCALL
057089,000224: # CADR GOPERF2R
057090,000225: # ... ... TERMINATE RETURN
057091,000226: # ... ... PROCEED RETURN
057092,000227: # ... ... ENTER RETURN
057093,000228:
057094,000229: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
057095,000230:
057096,000231: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057097,000232:
057098,000233: # GOPERF3R BLANKS REGISTERS R2 AND R3
057099,000234:
057100,000235: # CAF PROGXX PERFORM PROGRAM XX
057101,000236: # TC BANKCALL
057102,000237: # CADR GOPERF3R
057103,000238: # ... ... TERMINATE RETURN
057104,000239: # ... ... PROCEED RETURN
057105,000240: # ... ... ENTER RETURN
057106,000241:
057107,000242: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
057108,000243:
057109,000244: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057110,000245:
057111,000246: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
057112,000247: # TC BANKCALL
057113,000248: # CADR GOPERF4R
057114,000249: # ... ... TERMINATE RETURN
057115,000250: # ... ... PROCEED RETURN
057116,000251: # ... ... ENTER RETURN
057117,000252:
057118,000253: # ... ... IMMEDIATE RETURN TO USER
057119,000254:
057120,000255: # GOPERF4R BLANKS REGISTER R3
057121,000256:
057122,000257: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057123,000258:
057124,000259: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
057125,000260: # TC BANKCALL
057126,000261: # CADR REFLASHR
057127,000262: # ... ... TERMINATE RETURN
057128,000263: # ... ... PROCEED RETURN
057129,000264: # ... ... ENTER RETURN
057130,000265:
057131,000266: # ... ... IMMEDIATE RETURN TO USER
057132,000267:
057133,000268: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
057134,000269:
|
|
Page 1335
|
057136,000271: # CAF VXXNYY
057137,000272: # TC BANKCALL
057138,000273: # CADR REGODSPR
057139,000274:
057140,000275: # ... ... IMMEDIATE RETURN TO USER
057141,000276:
|
|
Page 1336
|
057143,000278: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057144,000279:
057145,000280: # GOXDSP = GOMARK
057146,000281:
057147,000282: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
057148,000283: # TC BANKCALL
057149,000284: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
057150,000285:
057151,000286: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
057152,000287:
057153,000288: # GOXDSPR = GOMARKR
057154,000289:
057155,000290: # CAF VXXNYY
057156,000291: # TC BANKCALL
057157,000292: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
057158,000293:
057159,000294: # ... ... IMMEDIATE RETURN OF GOMARKR
057160,000295:
057161,000296: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057162,000297: # THE ASTRONAUT (SEE NO. 7 ABOVE ).
057163,000298:
057164,000299: # GOXDSPF = GOMARKF
057165,000300:
057166,000301: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
057167,000302: # TC BANKCALL
057168,000303: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
057169,000304: # ... ... TERMINATE RETURN
057170,000305: # ... ... PROCEED RETURN
057171,000306: # ... ... ENTER OR RECYCLE RETURN
057172,000307:
057173,000308: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
057174,000309:
057175,000310: # GOXDSPFR = GOMARKFR
057176,000311:
057177,000312: # CAF VXXNYY FLASHING MARK VERB NOUN
057178,000313: # TC BANKCALL
057179,000314: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
057180,000315: # ... ... TERMINATE RETURN
057181,000316: # ... ... PROCEED RETURN
057182,000317: # ... ... ENTER OR RECYCLE RETURN
057183,000318:
057184,000319: # ... ... IMMEDIATE RETURN TO THE USER
057185,000320:
057186,000321: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
057187,000322: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
057188,000323: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
057189,000324: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
057190,000325:
057191,000326: # CAF V5XNYY X=1,2,3,4 Y= NOUN
057192,000327: # TC BANKCALL
|
|
Page 1337
|
057194,000329: # CADR GOMARK1
057195,000330:
057196,000331: # ... ... ENTER RETURN
057197,000332:
057198,000333: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
057199,000334:
057200,000335:
057201,000336: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
057202,000337: # CAF V5XNYY X=1,2,3,4 YY = NOUN
057203,000338: # TC BANKCALL
057204,000339: # CADR GOMARK1R
057205,000340:
057206,000341: # ... ... ASTRONAUT ENTER RETURN
057207,000342: # ... ... IMMEDIATE RETURN TO USER
057208,000343:
057209,000344: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
057210,000345: # CAF V5XNYY X=1,2,3,4 YY=NOUN
057211,000346: # TC BANKCALL
057212,000347: # CADR GOMARK2
057213,000348: # ... ... TERMINATE RETURN
057214,000349: # ... ... PROCEED RETURN
057215,000350: # ... ... ENTER RETURN
057216,000351: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
057217,000352:
057218,000353: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
057219,000354: # TC BANKCALL
057220,000355: # CADR GOMARK2R
057221,000356: # ... ... TERMINATE RETURN
057222,000357: # ... ... PROCEED RETURN
057223,000358: # ... ... ENTER RETURN
057224,000359:
057225,000360: # ... ... IMMEDIATE RETURN TO THE USER
057226,000361:
057227,000362: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
057228,000363: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
057229,000364: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
057230,000365:
057231,000366: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
057232,000367: # TC BANKCALL
057233,000368: # CADR GOMARK3
057234,000369: # ... ... TERMINATE RETURN
057235,000370: # ... ... PROCEED RETURN
057236,000371: # ... ... ENTER RETURN
057237,000372:
057238,000373: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
057239,000374:
057240,000375: # CAF V5XNYY X=1,2,3,4 YY=NOUN
057241,000376: # TC BANKCALL
057242,000377: # CADR GOMARK4
057243,000378: # ... ... TERMINATE RETURN
057244,000379: # ... ... PROCEED RETURN
|
|
Page 1338
|
057246,000381: # ... ... ENTER RETURN
057247,000382:
057248,000383: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
057249,000384: # SENT OUT.
057250,000385:
057251,000386: # CAF VXXNYY
057252,000387: # TC BANKCALL
057253,000388: # CADR EXDSPRET
057254,000389:
057255,000390: # ... ... RETURN TO USER
057256,000391:
057257,000392: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
057258,000393: # HAVE BEEN CLEANED OUT.
057259,000394:
057260,000395: # TC BANKCALL
057261,000396: # CADR KLEENEX
057262,000397:
057263,000398: # ... ... RETURN TO USER
057264,000399:
057265,000400: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
057266,000401:
057267,000402: # TC BANKCALL
057268,000403: # CADR MARKBRAN
057269,000404:
057270,000405: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
057271,000406:
057272,000407: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
057273,000408: # LAST FLASHING MARK R ROUTINE)
057274,000409:
057275,000410: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
057276,000411: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
057277,000412:
057278,000413: # TC POSTJUMP
057279,000414: # CADR PINBRNCH
057280,000415:
057281,000416: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
057282,000417: # THE ASTRONAUT(SEE NO.7 ABOVE).
057283,000418:
057284,000419: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
057285,000420: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
057286,000421: # IS RESPONDED TO BY THE ASTRONAUT.
057287,000422:
057288,000423: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
057289,000424: # PRIO DISPLAY.
057290,000425:
057291,000426: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
057292,000427: # TC BANKCALL
057293,000428: # CADR PRIODSP
057294,000429: # ... ... TERMINATE RETURN
057295,000430: # ... ... PROCEED RETURN
|
|
Page 1339
|
057297,000432: # ... ... ENTER OR RECYCLE RETURN
057298,000433:
057299,000434: # PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057300,000435:
057301,000436: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
057302,000437: # TC BANKCALL
057303,000438: # CADR PRIODSPR
057304,000439: # ... ... TERMINATE RETURN
057305,000440: # ... ... PROCEED RETURN
057306,000441: # ... ... ENTER OR RECYCLE RETURN
057307,000442:
057308,000443: # ... ... IMMEDIATE RETURN
057309,000444:
057310,000445: # PRIOLARM DOES A V05N09 PRIODSPR.
057311,000446: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
057312,000447: # DISPLAYS ARE CLEANED OUT.
057313,000448:
057314,000449: # TC BANKCALL
057315,000450: # CADR CLEANDSP
057316,000451:
057317,000452: # ... ... RETURN TO USER
057318,000453:
|
|
Page 1340
|
057320,000455: # GENERAL INFORMATION
057321,000456: # ------- -----------
057322,000457:
057323,000458:
057324,000459: # ALARM OR ABORT EXIT MODES--
057325,000460: # PRIOBORT TC ABORT
057326,000461: # OCT 1502
057327,000462:
057328,000463: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
057329,000464: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
057330,000465: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
057331,000466:
057332,000467:
057333,000468: # ERASABLE INITIALIZATION REQUIRED--
057334,000469:
057335,000470: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
057336,000471: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
057337,000472: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
057338,000473:
057339,000474:
057340,000475: # 5. R1SAVE = MARKBRAN CONTROL WORD
057341,000476: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
057342,000477: # OUTPUT--
057343,000478:
057344,000479: # NVWORD = PRIO VERB AND NOUN
057345,000480: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
057346,000481: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
057347,000482:
057348,000483: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
057349,000484: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
057350,000485: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
057351,000486:
057352,000487: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
057353,000488: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
057354,000489: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
057355,000490:
057356,000491: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
057357,000492: # OPTION1 = DESIRED OPTION FROM GOPERF4
057358,000493: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
057359,000494: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
057360,000495: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
057361,000496: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
057362,000497: # DEBRIS-- (STORED INTO)
057363,000498:
057364,000499: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
057365,000500: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
057366,000501: # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
057367,000502:
057368,000503: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
|
|
Page 1341
|
057370,000505: # R1SAVE, MARK2PAC,
057371,000506:
057372,000507:
057373,000508: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
057374,000509: # FLAGWORD DESCRIPTIONS--
057375,000510: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
057376,000511:
057377,000512: # DSPFLG, DSPFLG+1, DSPFLG +2-
057378,000513: # ----------------------------
057379,000514: # BITS 1 BLANK R1
057380,000515: # 2 BLANK R2
057381,000516: # 3 BLANK R3
057382,000517: # 4 FLASHING DISPLAY REQUESTED
057383,000518: # 5 PERFORM DISPLAY REQUESTED
057384,000519: # 6 ----- EXDSPRET GODSPRET
057385,000520: # 7 PRIO DISPLAY ----- -----
057386,000521: # 8 ----- DEC MARK PERFORM -----
057387,000522: # 9 EBANK
057388,000523: # 10 EBANK
057389,000524: # 11 EBANK
057390,000525: # 12 ----- ----- V99PASTE
057391,000526: # 13 2ND PART OF PERFORM
057392,000527: # 14 REFLASH OR REDO ----- REFLASH OR REDO
057393,000528: # 15 ----- MARK REQUEST -----
057394,000529: # RESTARTING DISPLAYS--
057395,000530:
057396,000531: # RULES FOR THE DSKY OPERATOR--
057397,000532:
057398,000533: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
057399,000534: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
057400,000535: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
057401,000536: # WITH PROCEED AND TERMINATE FOR THIS REASON.
057402,000537: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
057403,000538: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
057404,000539: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
057405,000540: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
057406,000541: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
057407,000542: # CONSIDERATION.
057408,000543: # 3. KEY RELEASE BUTTON-
057409,000544: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
057410,000545: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
057411,000546: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
057412,000547: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
057413,000548: # KEY RELEASE BUTTON MAY BE NECESSARY.
057414,000549: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
057415,000550: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
057416,000551: # OVER AGAIN.
057417,000552:
057418,000553:
057419,000554: # SPECIAL CONSIDERATIONS--
057420,000555:
|
|
Page 1342
|
057422,000557: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
057423,000558: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
057424,000559: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
057425,000560: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
057426,000561: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
057427,000562: # BY A .1 RESTART PHASE CHANGE.
057428,000563: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
057429,000564: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
057430,000565: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
057431,000566:
|
|
Page 1343
|
057433,000568: # CALLING SEQUENCE FOR BLANKING
057434,000569: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
057435,000570: # TC BLANKET
057436,000571: # ... ... RETURN TO USER HERE
057437,000572:
057438,000573: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
057439,000574: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
057440,000575:
057441,000576: 5475 BLOCK 02
057442,000577: 4000 SETLOC FFTAG4
057443,000578: 4000 BANK
057444,000579:
057445,000580: 5475 COUNT* $$/DSPLA
057446,000581: 5475 54162 BLANKET TS MPAC +6
057447,000582: 5476 40160 CS PLAYTEM4
057448,000583: 5477 70162 MASK MPAC +6
057449,000584: 5500 50161 INDEX MPAC +5
057450,000585: 5501 26160 ADS PLAYTEM4
057451,000586:
057452,000587: 5502 00002 TC Q
057453,000588:
057454,000589: 5503 04635 ENDMARK TC POSTJUMP
057455,000590: 5504 20326 CADR MARKEND
057456,000591:
057457,000592: 5505 34755 CLEARMRK CAF ZERO
057458,000593: 5506 55043 TS EXTVBACT
057459,000594:
057460,000595: 5507 00004 +2 INHINT
057461,000596: 5510 44753 CS XDSPBIT
057462,000597: 5511 70100 MASK FLAGWRD4
057463,000598: 5512 54100 TS FLAGWRD4
057464,000599:
057465,000600: 5513 00003 RELINT
057466,000601: 5514 00002 TC Q
057467,000602: # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
057468,000603: # FINISHED.
057469,000604:
057470,000605: 10,2326 BANK 10
057471,000606: 10,2000 SETLOC DISPLAYS
057472,000607: 10,2000 BANK
057473,000608:
057474,000609: 10,2326 COUNT* $$/DSPLA
057475,000610: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
057476,000611: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
057477,000612:
057478,000613: 10,2326 05505 MARKEND TC CLEARMRK
057479,000614: 10,2327 13422 TCF MARKOVER
057480,000615:
057481,000616: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
|
|
Page 1344
|
057483,000618: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
057484,000619: 10,2332 12501 TCF GOFLASH2
057485,000620:
057486,000621: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
057487,000622: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
057488,000623:
057489,000624: 10,2335 33032 CAF MARKFMSK # MARK,FLASH
057490,000625: 10,2336 12501 TCF GOFLASH2
057491,000626:
057492,000627: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
057493,000628: 10,2340 33521 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
057494,000629: 10,2341 12501 TCF GOFLASH2
057495,000630:
057496,000631: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
057497,000632: 10,2343 33506 CAF MARK3MSK
057498,000633: 10,2344 12501 TCF GOFLASH2
057499,000634:
057500,000635: 10,2345 54155 GOMARK4 TS PLAYTEM1
057501,000636: 10,2346 33507 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
057502,000637: 10,2347 12501 TCF GOFLASH2
057503,000638:
057504,000639: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
057505,000640:
057506,000641: 10,2351 34735 CAF BIT15
057507,000642: 10,2352 12454 TCF GODSPR2
057508,000643:
057509,000644: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
057510,000645:
057511,000646: 10,2354 33032 CAF MARKFMSK
057512,000647: 10,2355 12640 TCF GODSPRS
057513,000648:
057514,000649: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
057515,000650: 10,2357 33521 CAF MPERFMSK # MARK, PERFORM, FLASH
057516,000651: 10,2360 12640 TCF GODSPRS
057517,000652:
057518,000653: 10,2361 65023 -1 AD PRIO13
057519,000654: 10,2362 54155 GOMARK3R TS PLAYTEM1
057520,000655: 10,2363 33506 CAF MARK3MSK
057521,000656: 10,2364 12640 TCF GODSPRS
057522,000657:
057523,000658: 10,2365 34753 MAKEMARK CAF ONE
057524,000659: 10,2366 02736 TC COPIES
057525,000660:
057526,000661: 10,2367 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
057527,000662: 10,2370 73522 MASK OCT34300
057528,000663: 10,2371 10000 CCS A
057529,000664: 10,2372 12430 TCF CHKPRIO
057530,000665:
057531,000666: 10,2373 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
057532,000667: 10,2374 74743 MASK MRKNVBIT
|
|
Page 1345
|
057534,000669: 10,2375 00006 EXTEND
057535,000670: 10,2376 12400 BZF MARKPLAY # NO
057536,000671:
057537,000672: 10,2377 15155 TCF ENDOFJOB
057538,000673:
057539,000674: 10,2400 00004 MARKPLAY INHINT
057540,000675: 10,2401 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
057541,000676: 10,2402 70100 MASK FLAGWRD4
057542,000677: 10,2403 64753 AD ONE
057543,000678: 10,2404 54100 TS FLAGWRD4
057544,000679: 10,2405 00003 RELINT
057545,000680:
057546,000681: 10,2406 41070 GOGOMARK CS MARKFLAG # PERFORM
057547,000682: 10,2407 74747 MASK BIT5
057548,000683: 10,2410 10000 CCS A
057549,000684: 10,2411 12414 TCF MARKCOP
057550,000685: 10,2412 40370 CS MARKNV
057551,000686: 10,2413 54370 TS MARKNV
057552,000687:
057553,000688: 10,2414 34753 MARKCOP CAF ONE # MARK INDEX
057554,000689: 10,2415 12617 TCF PRIOPLAY
057555,000690:
057556,000691: 10,2416 30165 COPYTOGO CA MPAC2SAV
057557,000692: 10,2417 54156 TS MPAC +2
057558,000693:
057559,000694: 10,2420 50164 COPYPACS INDEX COPINDEX
057560,000695: 10,2421 33532 CAF PRIOOCT
057561,000696: 10,2422 54162 TS GENMASK
057562,000697:
057563,000698: 10,2423 50164 INDEX COPINDEX
057564,000699: 10,2424 31067 CAF EBANKSAV
057565,000700: 10,2425 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
057566,000701:
057567,000702: 10,2426 54003 TS EBANK
057568,000703:
057569,000704: 10,2427 00002 TC Q
057570,000705:
057571,000706: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
057572,000707: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
057573,000708: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
057574,000709: # UNTIL ALL MARKING IS FINISHED.
057575,000710:
057576,000711: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
057577,000712: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
057578,000713:
057579,000714: 10,2430 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
057580,000715: 10,2431 73255 MASK OCT24100
057581,000716: 10,2432 10000 CCS A
057582,000717: 10,2433 13455 TCF MARSLEEP
057583,000718:
|
|
Page 1346
|
057585,000720: 10,2434 40100 CS FLAGWRD4
057586,000721: 10,2435 74751 MASK MKOVBIT # SET MARK OVER NORM
057587,000722: 10,2436 00004 INHINT
057588,000723: 10,2437 26100 ADS FLAGWRD4
057589,000724:
057590,000725: 10,2440 12535 TCF SETNORM
057591,000726:
057592,000727: 10,2441 30370 MARKPERF CA MARKNV
057593,000728: 10,2442 74144 MASK VERBMASK
057594,000729: 10,2443 13121 TCF NV50DSP
057595,000730:
057596,000731: 10,2444 54155 GODSP TS PLAYTEM1
057597,000732:
057598,000733: 10,2445 34755 GODSP2 CAF ZERO
057599,000734: 10,2446 12501 TCF GOFLASH2
057600,000735:
057601,000736: 10,2447 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
057602,000737:
057603,000738: 10,2450 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
057604,000739: 10,2451 12501 TCF GOFLASH2
057605,000740:
057606,000741: 10,2452 54155 GODSPR TS PLAYTEM1
057607,000742:
057608,000743: 10,2453 34755 GODSPR1 CAF ZERO
057609,000744: 10,2454 54160 GODSPR2 TS PLAYTEM4
057610,000745:
057611,000746: 10,2455 34755 CAF ZERO # * DONT MOVE
057612,000747: 10,2456 12642 TCF GODSPRS1
057613,000748:
057614,000749: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
057615,000750: # SET UP TO BE STARTED OR RESTARTED.
057616,000751:
057617,000752: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
057618,000753: # OLD DISPLAY.
057619,000754:
057620,000755: # CALLING SEQUENCE FOR CLEANDSP-
057621,000756:
057622,000757: # TC BANKCALL
057623,000758: # CADR CLEANDSP
057624,000759:
057625,000760: 10,2457 34755 CLEANDSP CAF ZERO
057626,000761: 10,2460 54155 REFLASH TS PLAYTEM1
057627,000762:
057628,000763: 10,2461 33505 CAF REDOMASK # FLASH AND PERMIT
057629,000764: 10,2462 12501 TCF GOFLASH2
057630,000765:
057631,000766: 10,2463 54155 REFLASHR TS PLAYTEM1
057632,000767:
057633,000768: 10,2464 33505 CAF REDOMASK # FLASH AND PERMIT
057634,000769: 10,2465 12640 TCF GODSPRS
057635,000770:
|
|
Page 1347
|
057637,000772: 10,2466 54155 REGODSP TS PLAYTEM1
057638,000773:
057639,000774: 10,2467 34736 CAF BIT14
057640,000775: 10,2470 12501 TCF GOFLASH2
057641,000776:
057642,000777: 10,2471 54155 REGODSPR TS PLAYTEM1
057643,000778:
057644,000779: 10,2472 34736 CAF BIT14
057645,000780: 10,2473 12454 TCF GODSPR2
057646,000781:
057647,000782: 10,2474 54155 CLOCPLAY TS PLAYTEM1
057648,000783: 10,2475 33544 CAF CLOCKCON
057649,000784: 10,2476 12501 TCF GOFLASH2
057650,000785:
057651,000786: 10,2477 54155 GOFLASH TS PLAYTEM1
057652,000787:
057653,000788: 10,2500 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
057654,000789: 10,2501 54160 GOFLASH2 TS PLAYTEM4
057655,000790:
057656,000791: 10,2502 02723 TC SAVELOCS
057657,000792:
057658,000793: 10,2503 00003 RELINT
057659,000794:
057660,000795: 10,2504 12547 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
057661,000796:
057662,000797: 10,2505 54155 PRIODSPR TS PLAYTEM1
057663,000798:
057664,000799: 10,2506 33524 CAF BITS7+4
057665,000800: 10,2507 12640 TCF GODSPRS
057666,000801:
057667,000802: 10,2510 54155 PRIODSP TS PLAYTEM1
057668,000803:
057669,000804: 10,2511 33524 SETPRIO CAF BITS7+4
057670,000805: 10,2512 12501 TCF GOFLASH2
057671,000806:
057672,000807: 10,2513 34755 MAKEPRIO CAF ZERO
057673,000808: 10,2514 54164 TS COPINDEX
057674,000809:
057675,000810: 10,2515 03375 TC LINUSCHR
057676,000811: 10,2516 12523 TCF HIPRIO # LINUS RETURN
057677,000812: 10,2517 30100 CA FLAGWRD4
057678,000813: 10,2520 73543 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
057679,000814: 10,2521 10000 CCS A
057680,000815: 10,2522 12576 TCF PRIOBORT # YES, ABORT
057681,000816:
057682,000817: 10,2523 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
057683,000818: 10,2524 75643 MASK OCT40400
057684,000819: 10,2525 00006 EXTEND
057685,000820: 10,2526 12531 BZF ASKIFNRM # NO
057686,000821:
|
|
Page 1348
|
057688,000823: 10,2527 34755 SETMARK CAF ZERO
057689,000824: 10,2530 12775 TCF JOBXCHS
057690,000825:
057691,000826: 10,2531 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
057692,000827: 10,2532 73541 MASK OCT10200 # BITS 13+8
057693,000828: 10,2533 00006 EXTEND
057694,000829: 10,2534 12537 BZF OKTOCOPY # NO
057695,000830:
057696,000831: 10,2535 34753 SETNORM CAF ONE
057697,000832: 10,2536 12775 TCF JOBXCHS
057698,000833:
057699,000834: 10,2537 02735 OKTOCOPY TC COPYNORM
057700,000835: 10,2540 03206 TC WITCHONE
057701,000836:
057702,000837: 10,2541 05137 TC JOBWAKE
057703,000838:
057704,000839: 10,2542 03223 TC XCHTOEND
057705,000840:
057706,000841: 10,2543 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
057707,000842: 10,2544 55164 TS PRIOTIME
057708,000843:
057709,000844: 10,2545 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
057710,000845: 10,2546 12617 TCF PRIOPLAY
057711,000846:
057712,000847: 10,2547 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
057713,000848: 10,2550 77730 MASK PRIO37
057714,000849: 10,2551 54163 TS USERPRIO
057715,000850:
057716,000851: 10,2552 37724 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
057717,000852: 10,2553 05146 TC PRIOCHNG
057718,000853:
057719,000854: 10,2554 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
057720,000855: 10,2555 73523 MASK BITS15+7
057721,000856: 10,2556 10000 CCS A
057722,000857: 10,2557 12513 TCF MAKEPRIO # ITS PRIO
057723,000858: 10,2560 12562 TCF IFLEGAL
057724,000859: 10,2561 12365 TCF MAKEMARK # ITS MARK
057725,000860:
057726,000861: 10,2562 34752 IFLEGAL CAF TWO
057727,000862: 10,2563 54164 TS COPINDEX
057728,000863:
057729,000864: 10,2564 03375 TC LINUSCHR
057730,000865:
057731,000866: 10,2565 12600 TCF OKTOPLAY # LINUS RETURN
057732,000867: 10,2566 41071 CS EBANKTEM
057733,000868: 10,2567 74750 MASK BIT4
057734,000869: 10,2570 10000 CCS A
057735,000870: 10,2571 12600 TCF OKTOPLAY # NO
057736,000871:
057737,000872: 10,2572 30100 CA FLAGWRD4 # WAS NORM ASLEEP
|
|
Page 1349
|
057739,000874: 10,2573 73514 MASK NBUSMASK # ARE ANY NORMS ASLEEP
057740,000875: 10,2574 00006 EXTEND
057741,000876: 10,2575 12600 BZF OKTOPLAY # NO
057742,000877:
057743,000878: 10,2576 05635 PRIOBORT TC BAILOUT
057744,000879: 10,2577 31502 OCT 31502
057745,000880:
057746,000881: 10,2600 02737 OKTOPLAY TC COPIES2
057747,000882:
057748,000883: 10,2601 30163 CA USERPRIO
057749,000884: 10,2602 00006 EXTEND
057750,000885: 10,2603 04007 ROR SUPERBNK
057751,000886: 10,2604 54366 TS RESTREG
057752,000887:
057753,000888: 10,2605 30100 CA FLAGWRD4 # PRIO OR MARK GOING
057754,000889: 10,2606 73515 MASK PMMASK
057755,000890: 10,2607 10000 CCS A
057756,000891: 10,2610 12755 TCF GOSLEEPS # YES
057757,000892:
057758,000893: 10,2611 12613 TCF +2
057759,000894: 10,2612 12755 TCF GOSLEEPS # MARK GOING
057760,000895:
057761,000896: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
057762,000897: 10,2613 03206 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
057763,000898: 10,2614 05137 TC JOBWAKE
057764,000899:
057765,000900: 10,2615 03223 TC XCHTOEND
057766,000901:
057767,000902: 10,2616 34752 PLAYJUM1 CAF TWO
057768,000903: 10,2617 54164 PRIOPLAY TS COPINDEX
057769,000904:
057770,000905: 10,2620 13071 TCF GOPLAY
057771,000906:
057772,000907: 10,2621 54155 EXDSPRET TS PLAYTEM1
057773,000908:
057774,000909: 10,2622 37737 CAF BIT15+6
057775,000910: 10,2623 12501 TCF GOFLASH2
057776,000911:
057777,000912: 10,2624 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
057778,000913: 10,2625 33477 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
057779,000914:
057780,000915: 10,2626 54155 GOPERFS TS PLAYTEM1
057781,000916:
057782,000917: 10,2627 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057783,000918: 10,2630 12501 TCF GOFLASH2
057784,000919:
057785,000920: 10,2631 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057786,000921:
057787,000922: 10,2632 33502 CAF PERF2MSK
057788,000923: 10,2633 12501 TCF GOFLASH2
057789,000924:
|
|
Page 1350
|
057791,000926: 10,2634 02716 GOPERF4 TC PURRS4
057792,000927:
057793,000928: 10,2635 12501 TCF GOFLASH2
057794,000929:
057795,000930: 10,2636 54155 GOFLASHR TS PLAYTEM1
057796,000931:
057797,000932: 10,2637 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
057798,000933: 10,2640 54160 GODSPRS TS PLAYTEM4
057799,000934:
057800,000935: 10,2641 36250 CAF THREE
057801,000936:
057802,000937: 10,2642 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
057803,000938: 10,2643 54072 TS RUPTREG3
057804,000939:
057805,000940: 10,2644 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
057806,000941: 10,2645 77730 MASK PRIO37
057807,000942: 10,2646 54063 TS NEWPRIO
057808,000943:
057809,000944: 10,2647 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
057810,000945: 10,2650 74750 MASK BIT4
057811,000946: 10,2651 10000 CCS A
057812,000947: 10,2652 12660 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
057813,000948: 10,2653 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
057814,000949: 10,2654 05072 TC NOVAC
057815,000950: 10,2655 E7,1471 EBANK= WHOCARES
057816,000951: 10,2655 02547 20067 2CADR MAKEPLAY
057817,000952:
057818,000953: 10,2657 12666 TCF BOTHJOBS
057819,000954:
057820,000955: 10,2660 30006 VACDSP CA BBANK
057821,000956: 10,2661 00006 EXTEND
057822,000957: 10,2662 04007 ROR SUPERBNK
057823,000958: 10,2663 54001 TS L
057824,000959: 10,2664 33540 CAF MAKEGEN
057825,000960: 10,2665 05116 TC SPVAC
057826,000961:
057827,000962: 10,2666 02723 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
057828,000963:
057829,000964: 10,2667 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
057830,000965: 10,2670 30156 DCA MPAC +1
057831,000966: 10,2671 50064 INDEX LOCCTR
057832,000967: 10,2672 52156 DXCH MPAC +1
057833,000968:
057834,000969: 10,2673 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
057835,000970: 10,2674 30160 DCA MPAC +3
057836,000971: 10,2675 50064 INDEX LOCCTR
057837,000972: 10,2676 52160 DXCH MPAC +3
057838,000973:
057839,000974: 10,2677 30064 CA LOCCTR
057840,000975: 10,2700 54161 TS MPAC +5
057841,000976:
|
|
Page 1351
|
057843,000978: 10,2701 02730 TC SAVELOCR
057844,000979: 10,2702 00003 RELINT
057845,000980:
057846,000981: 10,2703 14640 TCF BANKJUMP # CALL CADR +4
057847,000982:
057848,000983: 10,2704 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
057849,000984:
057850,000985: 10,2705 33477 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
057851,000986:
057852,000987: 10,2706 54155 GOPERFRS TS PLAYTEM1
057853,000988:
057854,000989: 10,2707 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057855,000990: 10,2710 12640 TCF GODSPRS
057856,000991:
057857,000992: 10,2711 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057858,000993:
057859,000994: 10,2712 33502 CAF PERF2MSK
057860,000995: 10,2713 12640 TCF GODSPRS
057861,000996:
057862,000997: 10,2714 02716 GOPERF4R TC PURRS4
057863,000998:
057864,000999: 10,2715 12640 TCF GODSPRS
057865,001000:
057866,001001: 10,2716 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE
057867,001002:
057868,001003: 10,2717 33503 CAF V04N06
057869,001004: 10,2720 54155 TS PLAYTEM1
057870,001005:
057871,001006: 10,2721 33504 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3
057872,001007: 10,2722 00002 TC Q
057873,001008:
057874,001009: 10,2723 00004 SAVELOCS INHINT
057875,001010:
057876,001011: 10,2724 43513 CS OCT3400 # EBANK BITS
057877,001012: 10,2725 70160 MASK PLAYTEM4
057878,001013: 10,2726 60003 AD EBANK
057879,001014: 10,2727 54160 TS PLAYTEM4
057880,001015:
057881,001016: 10,2730 22002 SAVELOCR LXCH Q
057882,001017:
057883,001018: 10,2731 04645 TC MAKECADR
057884,001019: 10,2732 54157 TS PLAYTEM3
057885,001020:
057886,001021: 10,2733 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
057887,001022: 10,2734 00001 TC L
057888,001023:
057889,001024: 10,2735 34755 COPYNORM CAF ZERO
057890,001025: 10,2736 54164 COPIES TS COPINDEX
057891,001026: 10,2737 00004 COPIES2 INHINT
057892,001027: 10,2740 30160 CA PLAYTEM4 # FLAGWORD
|
|
Page 1352
|
057894,001029: 10,2741 50164 INDEX COPINDEX
057895,001030: 10,2742 55067 TS EBANKSAV # EQUIV TO DSPFLG
057896,001031:
057897,001032: 10,2743 73531 MASK CADRMASK # FLASH AND GODSPRET
057898,001033: 10,2744 00006 EXTEND
057899,001034: 10,2745 12751 BZF SKIPADD
057900,001035:
057901,001036: 10,2746 30157 CA PLAYTEM3
057902,001037: 10,2747 50164 INDEX COPINDEX
057903,001038: 10,2750 54372 TS CADRFLSH
057904,001039:
057905,001040: 10,2751 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
057906,001041: 10,2752 50164 INDEX COPINDEX
057907,001042: 10,2753 54367 TS NVWORD
057908,001043:
057909,001044: 10,2754 13232 TCF RELINTQ
057910,001045:
057911,001046: 10,2755 50164 GOSLEEPS INDEX COPINDEX
057912,001047: 10,2756 33532 CA PRIOOCT
057913,001048: 10,2757 72761 MASK WAITMASK
057914,001049: 10,2760 03545 TC UPENT2
057915,001050: 10,2761 03004 WAITMASK OCT 3004
057916,001051: 10,2762 44753 CS ONE
057917,001052: 10,2763 60164 AD COPINDEX
057918,001053: 10,2764 54154 TS FACEREG
057919,001054:
057920,001055: 10,2765 50154 XCHSLEEP INDEX FACEREG
057921,001056: 10,2766 33511 CAF WAKECADR
057922,001057: 10,2767 00004 INHINT
057923,001058: 10,2770 05137 TC JOBWAKE # FIND CADR IN JOB AREA
057924,001059:
057925,001060: 10,2771 03223 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
057926,001061:
057927,001062: 10,2772 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
057928,001063: 10,2773 33511 CAF WAKECADR
057929,001064: 10,2774 15133 TCF JOBSLEEP
057930,001065:
057931,001066: 10,2775 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
057932,001067: 10,2776 03206 TC WITCHONE
057933,001068: 10,2777 05137 TC JOBWAKE
057934,001069: 10,3000 30154 CA FACEREG
057935,001070: 10,3001 50064 INDEX LOCCTR
057936,001071: 10,3002 54154 TS FACEREG
057937,001072:
057938,001073: 10,3003 33016 CAF XCHQADD
057939,001074: 10,3004 03224 TC XCHNYLOC
057940,001075:
057941,001076: 10,3005 50154 INDEX FACEREG
057942,001077: 10,3006 33533 CA MARKOCT
057943,001078: 10,3007 73535 MASK IDLESLEP
|
|
Page 1353
|
057945,001080: 10,3010 03555 TC DOWNENT2
057946,001081: 10,3011 74004 IDLEMASK OCT 74004 # * DONT MOVE
057947,001082:
057948,001083: 10,3012 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
057949,001084: 10,3013 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
057950,001085: 10,3014 64751 AD FOUR
057951,001086: 10,3015 03545 TC UPENT2 # FLAG ROUTINE DOES RELINT
057952,001087: 10,3016 02765 XCHQADD GENADR XCHSLEEP # * DONT MOVE
057953,001088: 10,3017 30100 CA FLAGWRD4
057954,001089: 10,3020 74751 MASK MKOVBIT # MARK OVER NORM ?
057955,001090: 10,3021 10000 CCS A
057956,001091: 10,3022 02400 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
057957,001092: 10,3023 12537 TCF OKTOCOPY
057958,001093:
057959,001094: 10,3024 34755 MARKWAKE CAF ZERO
057960,001095: 10,3025 54160 WAKEPLAY TS TEMPOR2
057961,001096:
057962,001097: 10,3026 50160 INDEX TEMPOR2
057963,001098: 10,3027 33525 CA BITS5+11
057964,001099: 10,3030 64751 AD FOUR
057965,001100: 10,3031 03555 TC DOWNENT2
057966,001101: 10,3032 40010 MARKFMSK OCT 40010 # ***DONT MOVE
057967,001102:
057968,001103: 10,3033 50160 INDEX TEMPOR2
057969,001104: 10,3034 33511 CAF WAKECADR
057970,001105: 10,3035 00004 INHINT
057971,001106: 10,3036 05137 TC JOBWAKE
057972,001107:
057973,001108: 10,3037 13336 TCF ENDRET
057974,001109:
057975,001110: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
057976,001111: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
057977,001112: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
057978,001113: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
057979,001114:
057980,001115: 10,3040 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
057981,001116: 10,3041 54003 TS EBANK
057982,001117:
057983,001118: 10,3042 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
057984,001119: 10,3043 04727 TC SUPERSW # RESTORE SUPERBANK
057985,001120:
057986,001121: 10,3044 77730 MASK PRIO37
057987,001122: 10,3045 05146 TC PRIOCHNG
057988,001123:
057989,001124: 10,3046 46250 CS THREE
057990,001125: 10,3047 60374 AD TEMPFLSH
057991,001126: 10,3050 14640 TCF BANKJUMP
057992,001127:
057993,001128: 10,3051 00003 PINBRNCH RELINT # FOR GOPIN USERS
057994,001129: 10,3052 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
|
|
Page 1354
|
057996,001131: 10,3053 54156 TS MPAC +2 # ONLY
057997,001132:
057998,001133: 10,3054 30100 CA FLAGWRD4 # PINBRANCH CONDITION
057999,001134: 10,3055 77743 MASK PINMASK
058000,001135: 10,3056 10000 CCS A
058001,001136: 10,3057 13062 TCF +3
058002,001137: 10,3060 13472 TCF ERASER # ** NOTHING IN ENDIDLE
058003,001138: 10,3061 12400 TCF MARKPLAY
058004,001139:
058005,001140: 10,3062 05515 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
058006,001141: 10,3063 00105 ADRES PINBRFLG
058007,001142:
058008,001143: 10,3064 34736 CAF PRIODBIT # PRIO INTERRUPTED
058009,001144: 10,3065 70100 MASK FLAGWRD4
058010,001145: 10,3066 10000 CCS A
058011,001146: 10,3067 12545 TCF KEEPPRIO
058012,001147:
058013,001148: 10,3070 12616 TCF PLAYJUM1
058014,001149:
058015,001150: 10,3071 02420 NVDSP TC COPYPACS
058016,001151:
058017,001152: 10,3072 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
058018,001153: 10,3073 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
058019,001154: 10,3074 54001 TS L
058020,001155:
058021,001156: 10,3075 44737 CS BIT13
058022,001157: 10,3076 50164 INDEX COPINDEX
058023,001158: 10,3077 71067 MASK DSPFLG
058024,001159: 10,3100 50164 INDEX COPINDEX
058025,001160: 10,3101 55067 TS DSPFLG
058026,001161:
058027,001162: 10,3102 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
058028,001163: 10,3103 54141 TS TEM1
058029,001164:
058030,001165: 10,3104 30156 CA MPAC +2
058031,001166: 10,3105 54165 TS MPAC2SAV
058032,001167:
058033,001168: 10,3106 55072 TS MARK2PAC # * FOR DISK ONLY *
058034,001169: 10,3107 50164 INDEX COPINDEX
058035,001170: 10,3110 10367 CCS NVWORD
058036,001171: 10,3111 13120 TCF NVDSP1
058037,001172: 10,3112 13234 TCF CLEANEND
058038,001173: 10,3113 40370 CS MARKNV
058039,001174: 10,3114 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
058040,001175: 10,3115 76077 MASK LOW7
058041,001176: 10,3116 63516 AD V05N00M1
058042,001177: 10,3117 60141 AD TEM1
058043,001178: 10,3120 64753 NVDSP1 AD ONE
058044,001179: 10,3121 04155 NV50DSP TC NVMONOPT
058045,001180: 10,3122 13246 TCF REST # IF BUSY
|
|
Page 1355
|
058047,001182: 10,3123 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
058048,001183:
058049,001184: 10,3124 02416 TC COPYTOGO # MPACS DESTROYED BY NVSUB
058050,001185: 10,3125 05527 TC DOWNFLAG # UNSET SLEEPING BITS
058051,001186: 10,3126 00102 ADRES MRKNVFLG
058052,001187: 10,3127 05527 TC DOWNFLAG
058053,001188: 10,3130 00103 ADRES NRMNVFLG
058054,001189: 10,3131 05527 TC DOWNFLAG
058055,001190: 10,3132 00104 ADRES PRONVFLG
058056,001191: 10,3133 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
058057,001192: 10,3134 04255 TC BLANKSUB
058058,001193: 10,3135 13071 TCF NVDSP
058059,001194: 10,3136 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
058060,001195: 10,3137 70160 MASK TEMPOR2
058061,001196: 10,3140 10000 CCS A # IS THIS A GOPERF DISPLAY
058062,001197: 10,3141 13164 TCF 1STOR2ND # YES
058063,001198:
058064,001199: 10,3142 34750 GOANIDLE CAF BIT4
058065,001200: 10,3143 70160 MASK TEMPOR2
058066,001201: 10,3144 10000 CCS A
058067,001202: 10,3145 13261 TCF FLASHSUB # IT IS
058068,001203:
058069,001204: 10,3146 40160 CS TEMPOR2 # IS THIS A GODSPRET
058070,001205: 10,3147 74746 MASK BIT6
058071,001206: 10,3150 10000 CCS A
058072,001207: 10,3151 13156 TCF ISITN00
058073,001208:
058074,001209: 10,3152 50164 INDEX COPINDEX
058075,001210: 10,3153 30372 CA CADRFLSH
058076,001211: 10,3154 54157 TS MPAC +3
058077,001212: 10,3155 13354 TCF ENDIT
058078,001213:
058079,001214: 10,3156 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
058080,001215: 10,3157 30367 CA NVWORD
058081,001216: 10,3160 76077 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058082,001217: 10,3161 00006 EXTEND
058083,001218: 10,3162 13261 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
058084,001219:
058085,001220: 10,3163 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
058086,001221:
058087,001222: 10,3164 30160 1STOR2ND CA TEMPOR2
058088,001223: 10,3165 74737 MASK BIT13
058089,001224: 10,3166 10000 CCS A
058090,001225: 10,3167 13142 TCF GOANIDLE # SECOND
058091,001226:
058092,001227: 10,3170 34737 CA BIT13
058093,001228: 10,3171 50164 INDEX COPINDEX
058094,001229: 10,3172 27067 ADS DSPFLG
058095,001230:
058096,001231: 10,3173 22007 ZL
|
|
Page 1356
|
058098,001233: 10,3174 00006 EXTEND # IS IT MARK
058099,001234: 10,3175 62441 BZMF MARKPERF # YES
058100,001235:
058101,001236: 10,3176 74740 MASK BIT12
058102,001237: 10,3177 00006 EXTEND
058103,001238: 10,3200 13204 BZF V50PASTE
058104,001239: 10,3201 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
058105,001240: 10,3202 63542 AD V97N00
058106,001241: 10,3203 13121 TCF NV50DSP
058107,001242: 10,3204 33501 V50PASTE CAF V50N00
058108,001243: 10,3205 13121 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
058109,001244:
058110,001245: 10,3206 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
058111,001246: 10,3207 00006 EXTEND
058112,001247: 10,3210 03011 WAND DSALMOUT
058113,001248:
058114,001249: 10,3211 30100 CA FLAGWRD4
058115,001250: 10,3212 73517 MASK NVBUSMSK # IS IT NVSUB ASLEEP
058116,001251: 10,3213 10000 CCS A
058117,001252: 10,3214 34753 CAF ONE
058118,001253: 10,3215 54001 TS L
058119,001254: 10,3216 34755 CAF ZERO
058120,001255: 10,3217 50001 INDEX L
058121,001256: 10,3220 57041 XCH CADRSTOR
058122,001257:
058123,001258: 10,3221 00004 INHINT
058124,001259: 10,3222 00002 TC Q
058125,001260:
058126,001261: 10,3223 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
058127,001262: 10,3224 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
058128,001263: 10,3225 00006 EXTEND
058129,001264: 10,3226 63232 BZMF RELINTQ # NO
058130,001265: 10,3227 56064 XCH LOCCTR # YES
058131,001266: 10,3230 50064 INDEX LOCCTR
058132,001267: 10,3231 54164 TS LOC
058133,001268:
058134,001269: 10,3232 00003 RELINTQ RELINT
058135,001270: 10,3233 00002 TC Q # BACK TO USER
058136,001271:
058137,001272: 10,3234 37723 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
058138,001273: 10,3235 05105 TC FINDVAC
058139,001274: 10,3236 0371 EBANK= NVSAVE
058140,001275: 10,3236 04231 04060 2CADR JAMTERM
058141,001276:
058142,001277:
058143,001278: 10,3240 13262 TCF FLASHSUB +1
058144,001279:
058145,001280: 10,3241 30100 ISITPRIO CA FLAGWRD4
058146,001281: 10,3242 73267 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
058147,001282: 10,3243 00006 EXTEND
|
|
Page 1357
|
058149,001284: 10,3244 12576 BZF PRIOBORT
058150,001285: 10,3245 15155 TCF ENDOFJOB
058151,001286:
058152,001287: 10,3246 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
058153,001288: 10,3247 15155 TCF ENDOFJOB # YES
058154,001289: 10,3250 13252 TCF RESTSLEP
058155,001290:
058156,001291: 10,3251 15155 TCF ENDOFJOB
058157,001292:
058158,001293: 10,3252 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
058159,001294: 10,3253 73520 MASK ASTROMSK
058160,001295: 10,3254 03545 TC UPENT2
058161,001296: 10,3255 24100 OCT24100 OCT 24100 # *** DONT MOVE
058162,001297:
058163,001298: 10,3256 50164 INDEX COPINDEX
058164,001299: 10,3257 33510 CAF NVCADR
058165,001300: 10,3260 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
058166,001301:
058167,001302: 10,3261 04427 FLASHSUB TC FLASHON
058168,001303:
058169,001304: 10,3262 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
058170,001305: 10,3263 54157 TS COPMPAC
058171,001306:
058172,001307: 10,3264 30162 CA GENMASK
058173,001308: 10,3265 73011 MASK IDLEMASK
058174,001309: 10,3266 03545 TC UPENT2
058175,001310: 10,3267 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
058176,001311:
058177,001312: 10,3270 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
058178,001313: 10,3271 50164 INDEX COPINDEX
058179,001314: 10,3272 74751 MASK BIT3
058180,001315: 10,3273 10000 CCS A
058181,001316: 10,3274 13361 TCF UNSETR1 # YES
058182,001317:
058183,001318: 10,3275 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
058184,001319: 10,3276 13241 TCF ISITPRIO
058185,001320: 10,3277 13301 TCF +2
058186,001321: 10,3300 13241 TCF ISITPRIO
058187,001322:
058188,001323: 10,3301 04207 TC ENDIDLE
058189,001324: 10,3302 13373 IDLERET1 TCF TERMATE
058190,001325:
058191,001326: 10,3303 13412 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
058192,001327:
058193,001328: 10,3304 43527 CS LOWLOAD
058194,001329: 10,3305 60154 AD MPAC # VERBREG
058195,001330: 10,3306 00006 EXTEND
058196,001331: 10,3307 26000 DIM A
058197,001332: 10,3310 00006 EXTEND
058198,001333: 10,3311 13462 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
058199,001334: 10,3312 34752 OKTOENT CAF TWO
058200,001335: 10,3313 54161 ENDOUT TS OUTHERE
058201,001336:
058202,001337: 10,3314 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
058203,001338: 10,3315 74101 MASK OCT60000
058204,001339: 10,3316 10000 CCS A
|
|
Page 1358
|
058206,001341: 10,3317 13322 TCF TIMECHEK # PRIO ENDIDLE RETURN
058207,001342: 10,3320 13430 TCF NORMRET # NORMAL ENDIDLE RETURN
058208,001343: 10,3321 13414 TCF MARKRET # MARK ENDIDLE RETURN
058209,001344:
058210,001345: 10,3322 40025 TIMECHEK CS TIME1
058211,001346: 10,3323 61164 AD PRIOTIME
058212,001347: 10,3324 10000 CCS A
058213,001348: 10,3325 40000 COM
058214,001349: 10,3326 67734 AD OCT37776
058215,001350: 10,3327 64753 AD ONE
058216,001351: 10,3330 63571 AD -2SEC
058217,001352: 10,3331 00006 EXTEND
058218,001353: 10,3332 62545 BZMF KEEPPRIO
058219,001354:
058220,001355: 10,3333 13430 TCF NORMRET
058221,001356:
058222,001357: 10,3334 34753 NORMWAKE CAF ONE
058223,001358: 10,3335 13025 TCF WAKEPLAY
058224,001359:
058225,001360: 10,3336 10161 ENDRET CCS OUTHERE
058226,001361: 10,3337 64753 AD ONE
058227,001362: 10,3340 13342 TCF +2 # NORMAL ENDIDLE EXIT
058228,001363: 10,3341 15155 TCF ENDOFJOB
058229,001364: 10,3342 50157 INDEX COPMPAC
058230,001365: 10,3343 60372 AD CADRFLSH
058231,001366: 10,3344 54157 TS MPAC +3
058232,001367:
058233,001368: 10,3345 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
058234,001369: 10,3346 73350 MASK PINIDMSK
058235,001370: 10,3347 03555 TC DOWNENT2
058236,001371: 10,3350 74044 PINIDMSK OCT 74044 # *** DONT MOVE
058237,001372:
058238,001373: 10,3351 46250 CS THREE # BLANK EVERYTHING EXCEPT MM
058239,001374: 10,3352 04154 TC NVSUB
058240,001375: 10,3353 13354 TCF +1
058241,001376:
058242,001377: 10,3354 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
058243,001378: 10,3355 77730 MASK PRIO37
058244,001379: 10,3356 05146 TC PRIOCHNG
058245,001380: 10,3357 30157 CA MPAC +3
058246,001381: 10,3360 14640 TCF BANKJUMP
058247,001382:
058248,001383: 10,3361 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
058249,001384: 10,3362 44751 CS BIT3
058250,001385:
058251,001386: 10,3363 71073 MASK R1SAVE
058252,001387: 10,3364 55073 TS R1SAVE
058253,001388:
058254,001389: 10,3365 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
058255,001390: 10,3366 04727 TC SUPERSW # SUPERBANK 0
058256,001391:
058257,001392: 10,3367 36250 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
058258,001393: 10,3370 50164 IMMEDRET INDEX COPINDEX
058259,001394: 10,3371 60372 AD CADRFLSH
058260,001395: 10,3372 14640 TCF BANKJUMP
058261,001396:
058262,001397: 10,3373 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
058263,001398: 10,3374 13313 TCF ENDOUT
058264,001399:
058265,001400: 10,3375 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
058266,001401: 10,3376 74736 MASK BIT14
058267,001402: 10,3377 10000 CCS A
058268,001403: 10,3400 16742 TCF Q+1 # NO
058269,001404: 10,3401 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
|
|
Page 1359
|
058271,001406: 10,3402 50164 INDEX COPINDEX
058272,001407: 10,3403 60372 AD CADRFLSH
058273,001408: 10,3404 00006 EXTEND
058274,001409: 10,3405 13407 BZF +2 # YES
058275,001410:
058276,001411: 10,3406 00002 TC Q # NO
058277,001412: 10,3407 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY
058278,001413: 10,3410 05155 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
058279,001414: 10,3411 00002 TC Q
058280,001415:
058281,001416: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
058282,001417: 10,3412 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
058283,001418: 10,3413 13313 TCF ENDOUT
058284,001419:
058285,001420: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
058286,001421: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
058287,001422: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
058288,001423:
058289,001424: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
058290,001425: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
058291,001426: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
058292,001427: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
058293,001428:
058294,001429: 10,3414 46245 MARKRET CS SIX
058295,001430: 10,3415 70100 MASK FLAGWRD4
058296,001431: 10,3416 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
058297,001432: 10,3417 54100 TS FLAGWRD4
058298,001433:
058299,001434: 10,3420 00003 RELINT # INHINT REALM
058300,001435: 10,3421 13336 TCF ENDRET
058301,001436:
058302,001437: 10,3422 37752 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
058303,001438: 10,3423 54161 TS OUTHERE
058304,001439:
058305,001440: 10,3424 30100 CA FLAGWRD4 # IS ENDIDFLG SET
058306,001441: 10,3425 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
058307,001442: 10,3426 10000 CCS A
058308,001443: 10,3427 13062 TCF NORMBNCH
058309,001444:
058310,001445: 10,3430 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
058311,001446: 10,3431 73525 MASK BITS5+11 # OR WAITING
058312,001447: 10,3432 10000 CCS A
058313,001448: 10,3433 13024 TCF MARKWAKE
058314,001449:
058315,001450: 10,3434 30100 CA FLAGWRD4 # NO
058316,001451: 10,3435 73526 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
058317,001452: 10,3436 10000 CCS A
058318,001453: 10,3437 13334 TCF NORMWAKE # YES
058319,001454:
058320,001455: 10,3440 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
|
|
Page 1360
|
058322,001457: 10,3441 74771 MASK OCT50 # OR A GODSPRET
058323,001458: 10,3442 10000 CCS A
058324,001459: 10,3443 13336 TCF ENDRET # YES
058325,001460: 10,3444 30371 CA NVSAVE
058326,001461: 10,3445 00006 EXTEND
058327,001462: 10,3446 13336 BZF ENDRET
058328,001463:
058329,001464: 10,3447 35025 CAF PRIO15
058330,001465: 10,3450 00004 INHINT
058331,001466: 10,3451 05072 TC NOVAC
058332,001467: 10,3452 0367 EBANK= NVWORD
058333,001468: 10,3452 02616 20060 2CADR PLAYJUM1
058334,001469:
058335,001470:
058336,001471: 10,3454 13336 TCF ENDRET
058337,001472:
058338,001473: 10,3455 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
058339,001474: 10,3456 73525 MASK BITS5+11
058340,001475: 10,3457 10000 CCS A
058341,001476: 10,3460 15155 TCF ENDOFJOB # YES
058342,001477: 10,3461 12755 TCF GOSLEEPS
058343,001478:
058344,001479: 10,3462 50157 LOADITIS INDEX COPMPAC
058345,001480: 10,3463 30367 CA NVWORD
058346,001481: 10,3464 76077 MASK LOW7
058347,001482: 10,3465 40000 COM
058348,001483: 10,3466 60155 AD MPAC +1 # NOUNREG
058349,001484: 10,3467 00006 EXTEND
058350,001485: 10,3470 13312 BZF OKTOENT # NO, THEN LOAD IS VALID
058351,001486: 10,3471 13051 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
058352,001487:
058353,001488: 10,3472 46250 ERASER CS THREE # BLANK EVERYTHINGEXCEPT MM
058354,001489: 10,3473 04154 TC NVSUB
058355,001490: 10,3474 15155 TCF ENDOFJOB
058356,001491: 10,3475 15155 TCF ENDOFJOB
058357,001492:
058358,001493: 10,3476 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
058359,001494: 10,3477 00231 V01N25 VN 00125
058360,001495: 10,3500 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
058361,001496: 10,3501 14400 V50N00 VN 5000
058362,001497: 10,3502 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
058363,001498: 10,3503 01006 V04N06 VN 00406
058364,001499: 10,3504 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
058365,001500: 10,3505 10,3051 GOAGIN EQUALS PINBRNCH
058366,001501: 10,3505 20010 REDOMASK OCT 20010 # BITS 4 AND 14
058367,001502: 10,3506 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
058368,001503: 10,3507 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
058369,001504: 10,3510 20543 NVCADR CADR REDOPRIO
058370,001505: 10,3511 20400 WAKECADR CADR MARKPLAY
058371,001506: 10,3512 20616 CADR PLAYJUM1
058372,001507:
|
|
Page 1361
|
058374,001509: 10,3513 03400 OCT3400 OCT 3400 # EBANK MASK
058375,001510: 10,3514 11210 NBUSMASK OCT 11210
058376,001511: 10,3515 66521 PMMASK OCT 66521
058377,001512: 10,3516 4144 VERBMASK = MID7 # (OCT 37600)
058378,001513: 10,3516 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
058379,001514: 10,3517 10,2330 GOXDSP EQUALS GOMARK
058380,001515: 10,3517 10,2350 GOXDSPR EQUALS GOMARKR
058381,001516: 10,3517 10,2334 GOXDSPF EQUALS GOMARKF
058382,001517: 10,3517 10,2353 GOXDSPFR EQUALS GOMARKFR
058383,001518: 10,3517 5503 ENDEXT EQUALS ENDMARK
058384,001519: 10,3517 0165 MPAC2SAV EQUALS BANKSET
058385,001520: 10,3517 00700 NVBUSMSK OCT 700
058386,001521: 10,3520 00704 ASTROMSK OCT 704
058387,001522: 10,3521 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
058388,001523: 10,3522 34300 OCT34300 OCT 34300
058389,001524: 10,3523 40100 BITS15+7 OCT 40100
058390,001525: 10,3524 00110 BITS7+4 OCT 110
058391,001526: 10,3525 1067 DSPFLG EQUALS EBANKSAV
058392,001527: 10,3525 1070 MARKFLAG EQUALS MARKEBAN
058393,001528: 10,3525 1071 SAVEFLAG EQUALS EBANKTEM
058394,001529: 10,3525 02020 BITS5+11 OCT 2020 # * DONT MOVE
058395,001530: 10,3526 01010 BITS4+10 OCT 1010 # * DONT MOVE
058396,001531: 10,3527 00026 LOWLOAD DEC 22 B-14
058397,001532: 10,3530 77730 BUSYMASK OCT 77730
058398,001533: 10,3531 00050 CADRMASK OCT 50
058399,001534: 10,3532 7743 PINMASK EQUALS 13,14,15
058400,001535: 10,3532 10,3071 GOPLAY EQUALS NVDSP
058401,001536: # PRIOSAVE EQUALS R1SAVE
058402,001537: 10,3532 0157 COPMPAC EQUALS MPAC +3
058403,001538: 10,3532 0160 TEMPOR2 EQUALS MPAC +4
058404,001539: 10,3532 0161 OUTHERE EQUALS MPAC +5
058405,001540: 10,3532 0164 COPINDEX EQUALS LOC
058406,001541: 10,3532 0163 USERPRIO EQUALS MODE
058407,001542: 10,3532 0162 GENMASK EQUALS MPAC +6
058408,001543: 10,3532 20144 PRIOOCT OCT 20144 # PRIO
058409,001544: 10,3533 42424 MARKOCT OCT 42424 # MARK
058410,001545: 10,3534 11254 OCT 11254 # NORM
058411,001546:
058412,001547: 10,3535 74704 IDLESLEP OCT 74704
058413,001548: 10,3536 67777 OCT67777 OCT 67777
058414,001549: 10,3537 5475 LINUS EQUALS BLANKET
058415,001550: 10,3537 0154 FACEREG EQUALS MPAC
058416,001551: 10,3537 0155 PLAYTEM1 EQUALS MPAC +1
058417,001552: 10,3537 0157 PLAYTEM3 EQUALS MPAC +3
058418,001553: 10,3537 0160 PLAYTEM4 EQUALS MPAC +4
058419,001554: 10,3537 40420 OCT40420 OCT 40420
058420,001555: 10,3540 02547 MAKEGEN GENADR MAKEPLAY
058421,001556: 10,3541 10200 OCT10200 OCT 10200
058422,001557: 10,3542 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
058423,001558: 10,3543 20100 OCT20100 OCT 20100
058424,001559: 10,3544 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc