Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
058119,000002: ## Copyright: Public domain.
058120,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
058121,000004: ## Purpose: A log section of Zerlina 56, the final revision of
058122,000005: ## Don Eyles's offline development program for the variable
058123,000006: ## guidance period servicer. It also includes a new P66 with LPD
058124,000007: ## (Landing Point Designator) capability, based on an idea of John
058125,000008: ## Young's. Neither of these advanced features were actually flown,
058126,000009: ## but Zerlina was also the birthplace of other big improvements to
058127,000010: ## Luminary including the terrain model and new (Luminary 1E)
058128,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
058129,000012: ## and revision 56 includes all changes up to and including Luminary
058130,000013: ## 183. It is therefore quite close to the Apollo 14 program,
058131,000014: ## Luminary 178, where not modified with new features.
058132,000015: ## Reference: pp. 1330-1361
058133,000016: ## Assembler: yaYUL
058134,000017: ## Contact: Ron Burkey <info@sandroid.org>.
058135,000018: ## Website: www.ibiblio.org/apollo/index.html
058136,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
058137,000020: ## 2017-08-23 MAS Updated for Zerlina 56.
058138,000021: ## 2017-08-24 MAS Replaced an incorrect ADS with a TS.
058139,000022:
![]() |
Page 1330 |
058141,000024: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
058142,000025:
058143,000026: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
058144,000027: # OUT UNDER CRITICAL ALARM CONDITIONS.
058145,000028: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
058146,000029: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
058147,000030: # SEQUENCE OF EVENTS.
058148,000031: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
058149,000032: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
058150,000033:
058151,000034:
058152,000035: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
058153,000036: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
058154,000037:
058155,000038: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
058156,000039: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
058157,000040: # BUT NOT WAITING FOR A RESPONSE.
058158,000041: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
058159,000042: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
058160,000043: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
058161,000044: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
058162,000045: # HAS INFO SAVED FOR RESTART PURPOSES.
058163,000046:
058164,000047:
058165,000048: # DISPLAY PRIORITIES WORK AS FOLLOWS-
058166,000049:
058167,000050: # INTERRUPTS-
058168,000051: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
058169,000052: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
058170,000053: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
058171,000054: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
058172,000055: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
058173,000056: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
058174,000057:
058175,000058: # ORDER OF WAITING DISPLAYS-
058176,000059: # 1. ASTRONAUT EXTERNAL USE
058177,000060: # 2. PRIORITY
058178,000061: # 3. INTERRUPTED MARK
058179,000062: # 4. INTERRUPTED NORMAL
058180,000063:
058181,000064: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
058182,000065: # 6. MARK WAITING
058183,000066: # 7. NORMAL WAITING
058184,000067:
![]() |
Page 1331 |
058186,000069: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
058187,000070: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
058188,000071: # WILL FOLLOW LATER):
058189,000072:
058190,000073: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
058191,000074: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
058192,000075: # IS TO THE USERS CALLING LOC +1.
058193,000076: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
058194,000077: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
058195,000078: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
058196,000079: # USERS JOB.
058197,000080: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
058198,000081: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
058199,000082: # DESCRIPTION OF RESTARTS).
058200,000083: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
058201,000084: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
058202,000085: # (V32) BRANCHES TO THE USERS CALL CADR +3.
058203,000086: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
058204,000087:
058205,000088: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
058206,000089:
058207,000090: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058208,000091:
058209,000092: # 1. GODSP IS NOT RESTARTABLE
058210,000093: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
058211,000094: # CAF VXXNYY
058212,000095: # TC BANKCALL
058213,000096: # CADR GODSP
058214,000097:
058215,000098: # VXXNYY OCT 0XXYY
058216,000099: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
058217,000100:
058218,000101: # CAF VXXNYY
058219,000102: # TC BANKCALL
058220,000103: # CADR GODSPR
058221,000104:
058222,000105: # ... ... IMMEDIATE RETURN OF GODSPR
058223,000106:
058224,000107: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058225,000108: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058226,000109:
058227,000110: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
058228,000111: # TC BANKCALL
058229,000112: # CADR GOFLASH
058230,000113: # ... ... TERMINATE RETURN
058231,000114: # ... ... PROCEED RETURN
058232,000115: # ... ... ENTER OR RECYCLE RETURN
058233,000116: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
![]() |
Page 1332 |
058235,000118: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
058236,000119: # USER (SEE NO. 7 ABOVE).
058237,000120:
058238,000121: # GOPERF1 BLANKS REGISTERS R2 AND R3
058239,000122:
058240,000123: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
058241,000124: # TC BANKCALL
058242,000125: # CADR GOPERF1
058243,000126: # ... ... TERMINATE RETURN
058244,000127: # ... ... PROCEED RETURN
058245,000128: # ... ... ENTER RETURN
058246,000129:
058247,000130: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
058248,000131: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
058249,000132: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058250,000133:
058251,000134: # GOPERF2 DOES NOT BLANK ANY REGISTERS
058252,000135:
058253,000136: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
058254,000137: # TC BANKCALL
058255,000138: # CADR GOPERF2
058256,000139: # ... ... TERMINATE RETURN
058257,000140: # ... ... PROCEED RETURN
058258,000141: # ... ... ENTER RETURN
058259,000142:
058260,000143: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
058261,000144: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
058262,000145: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
058263,000146:
058264,000147: # GOPERF3 BLANKS REGISTERS R2 AND R3
058265,000148:
058266,000149: # CAF DECXX REQUEST PERFORM ON PXX
058267,000150: # TC BANKCALL
058268,000151: # CADR GOPERF3
058269,000152: # ... ... TERMINATE RETURN
058270,000153: # ... ... PROCEED RETURN
058271,000154: # ... ... ENTER RETURN
058272,000155:
058273,000156: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
058274,000157: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
058275,000158: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058276,000159:
058277,000160: # CAF OCTXX REQUEST PERFORM ON OPTION XX
058278,000161: # TC BANKCALL
058279,000162: # CADR GOPERF4
058280,000163: # ... ... TERMINATE RETURN
058281,000164: # ... ... PROCEED RETURN
058282,000165: # ... ... ENTER RETURN
058283,000166: # GOPERF4 BLANKS REGISTER R3
058284,000167:
![]() |
Page 1333 |
058286,000169: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
058287,000170: # OUT.
058288,000171:
058289,000172: # CAF VXXNYY
058290,000173: # TC BANKCALL
058291,000174: # CADR GODSPRET
058292,000175: # ... ... RETURN TO USER
058293,000176:
058294,000177: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
058295,000178: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058296,000179:
058297,000180: # CAF VXXNYY
058298,000181: # TC BANKCALL
058299,000182: # CADR REGODSP
058300,000183:
058301,000184: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058302,000185:
058303,000186: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058304,000187: # TC BANKCALL
058305,000188: # CADR REFLASH
058306,000189: # ... ... TERMINATE RETURN
058307,000190: # ... ... PROCEED RETURN
058308,000191: # ... ... ENTER RETURN
058309,000192:
058310,000193: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058311,000194:
058312,000195: # CAF VXXNYY
058313,000196: # TC BANKCALL
058314,000197: # CADR GOFLASHR
058315,000198: # ... ... TERMINATE RETURN
058316,000199: # ... ... PROCEED RETURN
058317,000200: # ... ... ENTER OR RECYCLE RETURN
058318,000201:
058319,000202: # ... ... IMMEDIATE RETURN FROM GOFLASHR
058320,000203:
058321,000204: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
058322,000205:
058323,000206: # GOPERF1R BLANKS REGISTERS R2 AND R3
058324,000207:
058325,000208: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
058326,000209: # TC BANKCALL
058327,000210: # CADR GOPERF1R
058328,000211: # ... ... TERMINATE RETURN
058329,000212: # ... ... PROCEED RETURN
058330,000213: # ... ... ENTER RETURN
058331,000214:
058332,000215: # ... ... IMMEDIATE RETURN FROM GOPERF1R
058333,000216:
058334,000217: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058335,000218:
![]() |
Page 1334 |
058337,000220: # GOPERF2R DOES NOT BLANK ANY REGISTERS
058338,000221:
058339,000222: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
058340,000223: # TC BANKCALL
058341,000224: # CADR GOPERF2R
058342,000225: # ... ... TERMINATE RETURN
058343,000226: # ... ... PROCEED RETURN
058344,000227: # ... ... ENTER RETURN
058345,000228:
058346,000229: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
058347,000230:
058348,000231: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058349,000232:
058350,000233: # GOPERF3R BLANKS REGISTERS R2 AND R3
058351,000234:
058352,000235: # CAF PROGXX PERFORM PROGRAM XX
058353,000236: # TC BANKCALL
058354,000237: # CADR GOPERF3R
058355,000238: # ... ... TERMINATE RETURN
058356,000239: # ... ... PROCEED RETURN
058357,000240: # ... ... ENTER RETURN
058358,000241:
058359,000242: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
058360,000243:
058361,000244: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058362,000245:
058363,000246: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
058364,000247: # TC BANKCALL
058365,000248: # CADR GOPERF4R
058366,000249: # ... ... TERMINATE RETURN
058367,000250: # ... ... PROCEED RETURN
058368,000251: # ... ... ENTER RETURN
058369,000252:
058370,000253: # ... ... IMMEDIATE RETURN TO USER
058371,000254:
058372,000255: # GOPERF4R BLANKS REGISTER R3
058373,000256:
058374,000257: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058375,000258:
058376,000259: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058377,000260: # TC BANKCALL
058378,000261: # CADR REFLASHR
058379,000262: # ... ... TERMINATE RETURN
058380,000263: # ... ... PROCEED RETURN
058381,000264: # ... ... ENTER RETURN
058382,000265:
058383,000266: # ... ... IMMEDIATE RETURN TO USER
058384,000267:
058385,000268: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
058386,000269:
![]() |
Page 1335 |
058388,000271: # CAF VXXNYY
058389,000272: # TC BANKCALL
058390,000273: # CADR REGODSPR
058391,000274:
058392,000275: # ... ... IMMEDIATE RETURN TO USER
058393,000276:
![]() |
Page 1336 |
058395,000278: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058396,000279:
058397,000280: # GOXDSP = GOMARK
058398,000281:
058399,000282: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
058400,000283: # TC BANKCALL
058401,000284: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
058402,000285:
058403,000286: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058404,000287:
058405,000288: # GOXDSPR = GOMARKR
058406,000289:
058407,000290: # CAF VXXNYY
058408,000291: # TC BANKCALL
058409,000292: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
058410,000293:
058411,000294: # ... ... IMMEDIATE RETURN OF GOMARKR
058412,000295:
058413,000296: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058414,000297: # THE ASTRONAUT (SEE NO. 7 ABOVE ).
058415,000298:
058416,000299: # GOXDSPF = GOMARKF
058417,000300:
058418,000301: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
058419,000302: # TC BANKCALL
058420,000303: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
058421,000304: # ... ... TERMINATE RETURN
058422,000305: # ... ... PROCEED RETURN
058423,000306: # ... ... ENTER OR RECYCLE RETURN
058424,000307:
058425,000308: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058426,000309:
058427,000310: # GOXDSPFR = GOMARKFR
058428,000311:
058429,000312: # CAF VXXNYY FLASHING MARK VERB NOUN
058430,000313: # TC BANKCALL
058431,000314: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
058432,000315: # ... ... TERMINATE RETURN
058433,000316: # ... ... PROCEED RETURN
058434,000317: # ... ... ENTER OR RECYCLE RETURN
058435,000318:
058436,000319: # ... ... IMMEDIATE RETURN TO THE USER
058437,000320:
058438,000321: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058439,000322: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058440,000323: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058441,000324: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058442,000325:
058443,000326: # CAF V5XNYY X=1,2,3,4 Y= NOUN
058444,000327: # TC BANKCALL
![]() |
Page 1337 |
058446,000329: # CADR GOMARK1
058447,000330:
058448,000331: # ... ... ENTER RETURN
058449,000332:
058450,000333: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058451,000334:
058452,000335:
058453,000336: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058454,000337: # CAF V5XNYY X=1,2,3,4 YY = NOUN
058455,000338: # TC BANKCALL
058456,000339: # CADR GOMARK1R
058457,000340:
058458,000341: # ... ... ASTRONAUT ENTER RETURN
058459,000342: # ... ... IMMEDIATE RETURN TO USER
058460,000343:
058461,000344: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058462,000345: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058463,000346: # TC BANKCALL
058464,000347: # CADR GOMARK2
058465,000348: # ... ... TERMINATE RETURN
058466,000349: # ... ... PROCEED RETURN
058467,000350: # ... ... ENTER RETURN
058468,000351: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058469,000352:
058470,000353: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
058471,000354: # TC BANKCALL
058472,000355: # CADR GOMARK2R
058473,000356: # ... ... TERMINATE RETURN
058474,000357: # ... ... PROCEED RETURN
058475,000358: # ... ... ENTER RETURN
058476,000359:
058477,000360: # ... ... IMMEDIATE RETURN TO THE USER
058478,000361:
058479,000362: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058480,000363: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058481,000364: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058482,000365:
058483,000366: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
058484,000367: # TC BANKCALL
058485,000368: # CADR GOMARK3
058486,000369: # ... ... TERMINATE RETURN
058487,000370: # ... ... PROCEED RETURN
058488,000371: # ... ... ENTER RETURN
058489,000372:
058490,000373: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058491,000374:
058492,000375: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058493,000376: # TC BANKCALL
058494,000377: # CADR GOMARK4
058495,000378: # ... ... TERMINATE RETURN
058496,000379: # ... ... PROCEED RETURN
![]() |
Page 1338 |
058498,000381: # ... ... ENTER RETURN
058499,000382:
058500,000383: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058501,000384: # SENT OUT.
058502,000385:
058503,000386: # CAF VXXNYY
058504,000387: # TC BANKCALL
058505,000388: # CADR EXDSPRET
058506,000389:
058507,000390: # ... ... RETURN TO USER
058508,000391:
058509,000392: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058510,000393: # HAVE BEEN CLEANED OUT.
058511,000394:
058512,000395: # TC BANKCALL
058513,000396: # CADR KLEENEX
058514,000397:
058515,000398: # ... ... RETURN TO USER
058516,000399:
058517,000400: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058518,000401:
058519,000402: # TC BANKCALL
058520,000403: # CADR MARKBRAN
058521,000404:
058522,000405: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
058523,000406:
058524,000407: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058525,000408: # LAST FLASHING MARK R ROUTINE)
058526,000409:
058527,000410: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058528,000411: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058529,000412:
058530,000413: # TC POSTJUMP
058531,000414: # CADR PINBRNCH
058532,000415:
058533,000416: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058534,000417: # THE ASTRONAUT(SEE NO.7 ABOVE).
058535,000418:
058536,000419: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058537,000420: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058538,000421: # IS RESPONDED TO BY THE ASTRONAUT.
058539,000422:
058540,000423: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058541,000424: # PRIO DISPLAY.
058542,000425:
058543,000426: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058544,000427: # TC BANKCALL
058545,000428: # CADR PRIODSP
058546,000429: # ... ... TERMINATE RETURN
058547,000430: # ... ... PROCEED RETURN
![]() |
Page 1339 |
058549,000432: # ... ... ENTER OR RECYCLE RETURN
058550,000433:
058551,000434: # PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058552,000435:
058553,000436: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058554,000437: # TC BANKCALL
058555,000438: # CADR PRIODSPR
058556,000439: # ... ... TERMINATE RETURN
058557,000440: # ... ... PROCEED RETURN
058558,000441: # ... ... ENTER OR RECYCLE RETURN
058559,000442:
058560,000443: # ... ... IMMEDIATE RETURN
058561,000444:
058562,000445: # PRIOLARM DOES A V05N09 PRIODSPR.
058563,000446: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058564,000447: # DISPLAYS ARE CLEANED OUT.
058565,000448:
058566,000449: # TC BANKCALL
058567,000450: # CADR CLEANDSP
058568,000451:
058569,000452: # ... ... RETURN TO USER
058570,000453:
![]() |
Page 1340 |
058572,000455: # GENERAL INFORMATION
058573,000456: # ------- -----------
058574,000457:
058575,000458:
058576,000459: # ALARM OR ABORT EXIT MODES--
058577,000460: # PRIOBORT TC ABORT
058578,000461: # OCT 1502
058579,000462:
058580,000463: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058581,000464: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058582,000465: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058583,000466:
058584,000467:
058585,000468: # ERASABLE INITIALIZATION REQUIRED--
058586,000469:
058587,000470: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058588,000471: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
058589,000472: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058590,000473:
058591,000474:
058592,000475: # 5. R1SAVE = MARKBRAN CONTROL WORD
058593,000476: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058594,000477: # OUTPUT--
058595,000478:
058596,000479: # NVWORD = PRIO VERB AND NOUN
058597,000480: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
058598,000481: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058599,000482:
058600,000483: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058601,000484: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058602,000485: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058603,000486:
058604,000487: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058605,000488: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058606,000489: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058607,000490:
058608,000491: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058609,000492: # OPTION1 = DESIRED OPTION FROM GOPERF4
058610,000493: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058611,000494: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058612,000495: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058613,000496: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058614,000497: # DEBRIS-- (STORED INTO)
058615,000498:
058616,000499: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058617,000500: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
058618,000501: # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058619,000502:
058620,000503: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
![]() |
Page 1341 |
058622,000505: # R1SAVE, MARK2PAC,
058623,000506:
058624,000507:
058625,000508: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058626,000509: # FLAGWORD DESCRIPTIONS--
058627,000510: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058628,000511:
058629,000512: # DSPFLG, DSPFLG+1, DSPFLG +2-
058630,000513: # ----------------------------
058631,000514: # BITS 1 BLANK R1
058632,000515: # 2 BLANK R2
058633,000516: # 3 BLANK R3
058634,000517: # 4 FLASHING DISPLAY REQUESTED
058635,000518: # 5 PERFORM DISPLAY REQUESTED
058636,000519: # 6 ----- EXDSPRET GODSPRET
058637,000520: # 7 PRIO DISPLAY ----- -----
058638,000521: # 8 ----- DEC MARK PERFORM -----
058639,000522: # 9 EBANK
058640,000523: # 10 EBANK
058641,000524: # 11 EBANK
058642,000525: # 12 ----- ----- V99PASTE
058643,000526: # 13 2ND PART OF PERFORM
058644,000527: # 14 REFLASH OR REDO ----- REFLASH OR REDO
058645,000528: # 15 ----- MARK REQUEST -----
058646,000529: # RESTARTING DISPLAYS--
058647,000530:
058648,000531: # RULES FOR THE DSKY OPERATOR--
058649,000532:
058650,000533: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
058651,000534: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058652,000535: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058653,000536: # WITH PROCEED AND TERMINATE FOR THIS REASON.
058654,000537: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
058655,000538: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058656,000539: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058657,000540: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
058658,000541: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
058659,000542: # CONSIDERATION.
058660,000543: # 3. KEY RELEASE BUTTON-
058661,000544: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058662,000545: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058663,000546: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058664,000547: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058665,000548: # KEY RELEASE BUTTON MAY BE NECESSARY.
058666,000549: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058667,000550: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058668,000551: # OVER AGAIN.
058669,000552:
058670,000553:
058671,000554: # SPECIAL CONSIDERATIONS--
058672,000555:
![]() |
Page 1342 |
058674,000557: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
058675,000558: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058676,000559: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058677,000560: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058678,000561: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058679,000562: # BY A .1 RESTART PHASE CHANGE.
058680,000563: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058681,000564: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058682,000565: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
058683,000566:
![]() |
Page 1343 |
058685,000568: # CALLING SEQUENCE FOR BLANKING
058686,000569: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058687,000570: # TC BLANKET
058688,000571: # ... ... RETURN TO USER HERE
058689,000572:
058690,000573: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058691,000574: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
058692,000575:
058693,000576: 5475 BLOCK 02
058694,000577: 4000 SETLOC FFTAG4
058695,000578: 4000 BANK
058696,000579:
058697,000580: 5475 COUNT* $$/DSPLA
058698,000581: 5475 54162 BLANKET TS MPAC +6
058699,000582: 5476 40160 CS PLAYTEM4
058700,000583: 5477 70162 MASK MPAC +6
058701,000584: 5500 50161 INDEX MPAC +5
058702,000585: 5501 26160 ADS PLAYTEM4
058703,000586:
058704,000587: 5502 00002 TC Q
058705,000588:
058706,000589: 5503 04635 ENDMARK TC POSTJUMP
058707,000590: 5504 20326 CADR MARKEND
058708,000591:
058709,000592: 5505 34755 CLEARMRK CAF ZERO
058710,000593: 5506 55043 TS EXTVBACT
058711,000594:
058712,000595: 5507 00004 +2 INHINT
058713,000596: 5510 44753 CS XDSPBIT
058714,000597: 5511 70100 MASK FLAGWRD4
058715,000598: 5512 54100 TS FLAGWRD4
058716,000599:
058717,000600: 5513 00003 RELINT
058718,000601: 5514 00002 TC Q
058719,000602: # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058720,000603: # FINISHED.
058721,000604:
058722,000605: 10,2326 BANK 10
058723,000606: 10,2000 SETLOC DISPLAYS
058724,000607: 10,2000 BANK
058725,000608:
058726,000609: 10,2326 COUNT* $$/DSPLA
058727,000610: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058728,000611: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058729,000612:
058730,000613: 10,2326 05505 MARKEND TC CLEARMRK
058731,000614: 10,2327 13403 TCF MARKOVER
058732,000615:
058733,000616: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
![]() |
Page 1344 |
058735,000618: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
058736,000619: 10,2332 12501 TCF GOFLASH2
058737,000620:
058738,000621: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
058739,000622: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
058740,000623:
058741,000624: 10,2335 33032 CAF MARKFMSK # MARK,FLASH
058742,000625: 10,2336 12501 TCF GOFLASH2
058743,000626:
058744,000627: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
058745,000628: 10,2340 33502 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
058746,000629: 10,2341 12501 TCF GOFLASH2
058747,000630:
058748,000631: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
058749,000632: 10,2343 33467 CAF MARK3MSK
058750,000633: 10,2344 12501 TCF GOFLASH2
058751,000634:
058752,000635: 10,2345 54155 GOMARK4 TS PLAYTEM1
058753,000636: 10,2346 33470 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
058754,000637: 10,2347 12501 TCF GOFLASH2
058755,000638:
058756,000639: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
058757,000640:
058758,000641: 10,2351 34735 CAF BIT15
058759,000642: 10,2352 12454 TCF GODSPR2
058760,000643:
058761,000644: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
058762,000645:
058763,000646: 10,2354 33032 CAF MARKFMSK
058764,000647: 10,2355 12640 TCF GODSPRS
058765,000648:
058766,000649: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058767,000650: 10,2357 33502 CAF MPERFMSK # MARK, PERFORM, FLASH
058768,000651: 10,2360 12640 TCF GODSPRS
058769,000652:
058770,000653: 10,2361 65023 -1 AD PRIO13
058771,000654: 10,2362 54155 GOMARK3R TS PLAYTEM1
058772,000655: 10,2363 33467 CAF MARK3MSK
058773,000656: 10,2364 12640 TCF GODSPRS
058774,000657:
058775,000658: 10,2365 34753 MAKEMARK CAF ONE
058776,000659: 10,2366 02736 TC COPIES
058777,000660:
058778,000661: 10,2367 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
058779,000662: 10,2370 73503 MASK OCT34300
058780,000663: 10,2371 10000 CCS A
058781,000664: 10,2372 12430 TCF CHKPRIO
058782,000665:
058783,000666: 10,2373 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
058784,000667: 10,2374 74743 MASK MRKNVBIT
![]() |
Page 1345 |
058786,000669: 10,2375 00006 EXTEND
058787,000670: 10,2376 12400 BZF MARKPLAY # NO
058788,000671:
058789,000672: 10,2377 15155 TCF ENDOFJOB
058790,000673:
058791,000674: 10,2400 00004 MARKPLAY INHINT
058792,000675: 10,2401 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
058793,000676: 10,2402 70100 MASK FLAGWRD4
058794,000677: 10,2403 64753 AD ONE
058795,000678: 10,2404 54100 TS FLAGWRD4
058796,000679: 10,2405 00003 RELINT
058797,000680:
058798,000681: 10,2406 41070 GOGOMARK CS MARKFLAG # PERFORM
058799,000682: 10,2407 74747 MASK BIT5
058800,000683: 10,2410 10000 CCS A
058801,000684: 10,2411 12414 TCF MARKCOP
058802,000685: 10,2412 40370 CS MARKNV
058803,000686: 10,2413 54370 TS MARKNV
058804,000687:
058805,000688: 10,2414 34753 MARKCOP CAF ONE # MARK INDEX
058806,000689: 10,2415 12617 TCF PRIOPLAY
058807,000690:
058808,000691: 10,2416 30165 COPYTOGO CA MPAC2SAV
058809,000692: 10,2417 54156 TS MPAC +2
058810,000693:
058811,000694: 10,2420 50164 COPYPACS INDEX COPINDEX
058812,000695: 10,2421 33513 CAF PRIOOCT
058813,000696: 10,2422 54162 TS GENMASK
058814,000697:
058815,000698: 10,2423 50164 INDEX COPINDEX
058816,000699: 10,2424 31067 CAF EBANKSAV
058817,000700: 10,2425 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
058818,000701:
058819,000702: 10,2426 54003 TS EBANK
058820,000703:
058821,000704: 10,2427 00002 TC Q
058822,000705:
058823,000706: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058824,000707: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058825,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
058826,000709: # UNTIL ALL MARKING IS FINISHED.
058827,000710:
058828,000711: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058829,000712: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058830,000713:
058831,000714: 10,2430 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
058832,000715: 10,2431 73255 MASK OCT24100
058833,000716: 10,2432 10000 CCS A
058834,000717: 10,2433 13436 TCF MARSLEEP
058835,000718:
![]() |
Page 1346 |
058837,000720: 10,2434 40100 CS FLAGWRD4
058838,000721: 10,2435 74751 MASK MKOVBIT # SET MARK OVER NORM
058839,000722: 10,2436 00004 INHINT
058840,000723: 10,2437 26100 ADS FLAGWRD4
058841,000724:
058842,000725: 10,2440 12535 TCF SETNORM
058843,000726:
058844,000727: 10,2441 30370 MARKPERF CA MARKNV
058845,000728: 10,2442 74144 MASK VERBMASK
058846,000729: 10,2443 13121 TCF NV50DSP
058847,000730:
058848,000731: 10,2444 54155 GODSP TS PLAYTEM1
058849,000732:
058850,000733: 10,2445 34755 GODSP2 CAF ZERO
058851,000734: 10,2446 12501 TCF GOFLASH2
058852,000735:
058853,000736: 10,2447 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
058854,000737:
058855,000738: 10,2450 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
058856,000739: 10,2451 12501 TCF GOFLASH2
058857,000740:
058858,000741: 10,2452 54155 GODSPR TS PLAYTEM1
058859,000742:
058860,000743: 10,2453 34755 GODSPR1 CAF ZERO
058861,000744: 10,2454 54160 GODSPR2 TS PLAYTEM4
058862,000745:
058863,000746: 10,2455 34755 CAF ZERO # * DONT MOVE
058864,000747: 10,2456 12642 TCF GODSPRS1
058865,000748:
058866,000749: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058867,000750: # SET UP TO BE STARTED OR RESTARTED.
058868,000751:
058869,000752: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058870,000753: # OLD DISPLAY.
058871,000754:
058872,000755: # CALLING SEQUENCE FOR CLEANDSP-
058873,000756:
058874,000757: # TC BANKCALL
058875,000758: # CADR CLEANDSP
058876,000759:
058877,000760: 10,2457 34755 CLEANDSP CAF ZERO
058878,000761: 10,2460 54155 REFLASH TS PLAYTEM1
058879,000762:
058880,000763: 10,2461 33466 CAF REDOMASK # FLASH AND PERMIT
058881,000764: 10,2462 12501 TCF GOFLASH2
058882,000765:
058883,000766: 10,2463 54155 REFLASHR TS PLAYTEM1
058884,000767:
058885,000768: 10,2464 33466 CAF REDOMASK # FLASH AND PERMIT
058886,000769: 10,2465 12640 TCF GODSPRS
058887,000770:
![]() |
Page 1347 |
058889,000772: 10,2466 54155 REGODSP TS PLAYTEM1
058890,000773:
058891,000774: 10,2467 34736 CAF BIT14
058892,000775: 10,2470 12501 TCF GOFLASH2
058893,000776:
058894,000777: 10,2471 54155 REGODSPR TS PLAYTEM1
058895,000778:
058896,000779: 10,2472 34736 CAF BIT14
058897,000780: 10,2473 12454 TCF GODSPR2
058898,000781:
058899,000782: 10,2474 54155 CLOCPLAY TS PLAYTEM1
058900,000783: 10,2475 33525 CAF CLOCKCON
058901,000784: 10,2476 12501 TCF GOFLASH2
058902,000785:
058903,000786: 10,2477 54155 GOFLASH TS PLAYTEM1
058904,000787:
058905,000788: 10,2500 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
058906,000789: 10,2501 54160 GOFLASH2 TS PLAYTEM4
058907,000790:
058908,000791: 10,2502 02723 TC SAVELOCS
058909,000792:
058910,000793: 10,2503 00003 RELINT
058911,000794:
058912,000795: 10,2504 12547 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
058913,000796:
058914,000797: 10,2505 54155 PRIODSPR TS PLAYTEM1
058915,000798:
058916,000799: 10,2506 33505 CAF BITS7+4
058917,000800: 10,2507 12640 TCF GODSPRS
058918,000801:
058919,000802: 10,2510 54155 PRIODSP TS PLAYTEM1
058920,000803:
058921,000804: 10,2511 33505 SETPRIO CAF BITS7+4
058922,000805: 10,2512 12501 TCF GOFLASH2
058923,000806:
058924,000807: 10,2513 34755 MAKEPRIO CAF ZERO
058925,000808: 10,2514 54164 TS COPINDEX
058926,000809:
058927,000810: 10,2515 03356 TC LINUSCHR
058928,000811: 10,2516 12523 TCF HIPRIO # LINUS RETURN
058929,000812: 10,2517 30100 CA FLAGWRD4
058930,000813: 10,2520 73524 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
058931,000814: 10,2521 10000 CCS A
058932,000815: 10,2522 12576 TCF PRIOBORT # YES, ABORT
058933,000816:
058934,000817: 10,2523 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
058935,000818: 10,2524 75643 MASK OCT40400
058936,000819: 10,2525 00006 EXTEND
058937,000820: 10,2526 12531 BZF ASKIFNRM # NO
058938,000821:
![]() |
Page 1348 |
058940,000823: 10,2527 34755 SETMARK CAF ZERO
058941,000824: 10,2530 12775 TCF JOBXCHS
058942,000825:
058943,000826: 10,2531 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
058944,000827: 10,2532 73522 MASK OCT10200 # BITS 13+8
058945,000828: 10,2533 00006 EXTEND
058946,000829: 10,2534 12537 BZF OKTOCOPY # NO
058947,000830:
058948,000831: 10,2535 34753 SETNORM CAF ONE
058949,000832: 10,2536 12775 TCF JOBXCHS
058950,000833:
058951,000834: 10,2537 02735 OKTOCOPY TC COPYNORM
058952,000835: 10,2540 03206 TC WITCHONE
058953,000836:
058954,000837: 10,2541 05137 TC JOBWAKE
058955,000838:
058956,000839: 10,2542 03223 TC XCHTOEND
058957,000840:
058958,000841: 10,2543 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
058959,000842: 10,2544 55164 TS PRIOTIME
058960,000843:
058961,000844: 10,2545 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
058962,000845: 10,2546 12617 TCF PRIOPLAY
058963,000846:
058964,000847: 10,2547 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
058965,000848: 10,2550 77737 MASK PRIO37
058966,000849: 10,2551 54163 TS USERPRIO
058967,000850:
058968,000851: 10,2552 37733 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058969,000852: 10,2553 05146 TC PRIOCHNG
058970,000853:
058971,000854: 10,2554 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
058972,000855: 10,2555 73504 MASK BITS15+7
058973,000856: 10,2556 10000 CCS A
058974,000857: 10,2557 12513 TCF MAKEPRIO # ITS PRIO
058975,000858: 10,2560 12562 TCF IFLEGAL
058976,000859: 10,2561 12365 TCF MAKEMARK # ITS MARK
058977,000860:
058978,000861: 10,2562 34752 IFLEGAL CAF TWO
058979,000862: 10,2563 54164 TS COPINDEX
058980,000863:
058981,000864: 10,2564 03356 TC LINUSCHR
058982,000865:
058983,000866: 10,2565 12600 TCF OKTOPLAY # LINUS RETURN
058984,000867: 10,2566 41071 CS EBANKTEM
058985,000868: 10,2567 74750 MASK BIT4
058986,000869: 10,2570 10000 CCS A
058987,000870: 10,2571 12600 TCF OKTOPLAY # NO
058988,000871:
058989,000872: 10,2572 30100 CA FLAGWRD4 # WAS NORM ASLEEP
![]() |
Page 1349 |
058991,000874: 10,2573 73475 MASK NBUSMASK # ARE ANY NORMS ASLEEP
058992,000875: 10,2574 00006 EXTEND
058993,000876: 10,2575 12600 BZF OKTOPLAY # NO
058994,000877:
058995,000878: 10,2576 05635 PRIOBORT TC BAILOUT
058996,000879: 10,2577 31502 OCT 31502
058997,000880:
058998,000881: 10,2600 02737 OKTOPLAY TC COPIES2
058999,000882:
059000,000883: 10,2601 30163 CA USERPRIO
059001,000884: 10,2602 00006 EXTEND
059002,000885: 10,2603 04007 ROR SUPERBNK
059003,000886: 10,2604 54366 TS RESTREG
059004,000887:
059005,000888: 10,2605 30100 CA FLAGWRD4 # PRIO OR MARK GOING
059006,000889: 10,2606 73476 MASK PMMASK
059007,000890: 10,2607 10000 CCS A
059008,000891: 10,2610 12755 TCF GOSLEEPS # YES
059009,000892:
059010,000893: 10,2611 12613 TCF +2
059011,000894: 10,2612 12755 TCF GOSLEEPS # MARK GOING
059012,000895:
059013,000896: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
059014,000897: 10,2613 03206 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
059015,000898: 10,2614 05137 TC JOBWAKE
059016,000899:
059017,000900: 10,2615 03223 TC XCHTOEND
059018,000901:
059019,000902: 10,2616 34752 PLAYJUM1 CAF TWO
059020,000903: 10,2617 54164 PRIOPLAY TS COPINDEX
059021,000904:
059022,000905: 10,2620 13071 TCF GOPLAY
059023,000906:
059024,000907: 10,2621 54155 EXDSPRET TS PLAYTEM1
059025,000908:
059026,000909: 10,2622 37746 CAF BIT15+6
059027,000910: 10,2623 12501 TCF GOFLASH2
059028,000911:
059029,000912: 10,2624 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
059030,000913: 10,2625 33460 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
059031,000914:
059032,000915: 10,2626 54155 GOPERFS TS PLAYTEM1
059033,000916:
059034,000917: 10,2627 33457 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
059035,000918: 10,2630 12501 TCF GOFLASH2
059036,000919:
059037,000920: 10,2631 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059038,000921:
059039,000922: 10,2632 33463 CAF PERF2MSK
059040,000923: 10,2633 12501 TCF GOFLASH2
059041,000924:
![]() |
Page 1350 |
059043,000926: 10,2634 02716 GOPERF4 TC PURRS4
059044,000927:
059045,000928: 10,2635 12501 TCF GOFLASH2
059046,000929:
059047,000930: 10,2636 54155 GOFLASHR TS PLAYTEM1
059048,000931:
059049,000932: 10,2637 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
059050,000933: 10,2640 54160 GODSPRS TS PLAYTEM4
059051,000934:
059052,000935: 10,2641 36257 CAF THREE
059053,000936:
059054,000937: 10,2642 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
059055,000938: 10,2643 54072 TS RUPTREG3
059056,000939:
059057,000940: 10,2644 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
059058,000941: 10,2645 77737 MASK PRIO37
059059,000942: 10,2646 54063 TS NEWPRIO
059060,000943:
059061,000944: 10,2647 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
059062,000945: 10,2650 74750 MASK BIT4
059063,000946: 10,2651 10000 CCS A
059064,000947: 10,2652 12660 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
059065,000948: 10,2653 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
059066,000949: 10,2654 05072 TC NOVAC
059067,000950: 10,2655 E7,1471 EBANK= WHOCARES
059068,000951: 10,2655 02547 20067 2CADR MAKEPLAY
059069,000952:
059070,000953: 10,2657 12666 TCF BOTHJOBS
059071,000954:
059072,000955: 10,2660 30006 VACDSP CA BBANK
059073,000956: 10,2661 00006 EXTEND
059074,000957: 10,2662 04007 ROR SUPERBNK
059075,000958: 10,2663 54001 TS L
059076,000959: 10,2664 33521 CAF MAKEGEN
059077,000960: 10,2665 05116 TC SPVAC
059078,000961:
059079,000962: 10,2666 02723 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
059080,000963:
059081,000964: 10,2667 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
059082,000965: 10,2670 30156 DCA MPAC +1
059083,000966: 10,2671 50064 INDEX LOCCTR
059084,000967: 10,2672 52156 DXCH MPAC +1
059085,000968:
059086,000969: 10,2673 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
059087,000970: 10,2674 30160 DCA MPAC +3
059088,000971: 10,2675 50064 INDEX LOCCTR
059089,000972: 10,2676 52160 DXCH MPAC +3
059090,000973:
059091,000974: 10,2677 30064 CA LOCCTR
059092,000975: 10,2700 54161 TS MPAC +5
059093,000976:
![]() |
Page 1351 |
059095,000978: 10,2701 02730 TC SAVELOCR
059096,000979: 10,2702 00003 RELINT
059097,000980:
059098,000981: 10,2703 14640 TCF BANKJUMP # CALL CADR +4
059099,000982:
059100,000983: 10,2704 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
059101,000984:
059102,000985: 10,2705 33460 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
059103,000986:
059104,000987: 10,2706 54155 GOPERFRS TS PLAYTEM1
059105,000988:
059106,000989: 10,2707 33457 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
059107,000990: 10,2710 12640 TCF GODSPRS
059108,000991:
059109,000992: 10,2711 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059110,000993:
059111,000994: 10,2712 33463 CAF PERF2MSK
059112,000995: 10,2713 12640 TCF GODSPRS
059113,000996:
059114,000997: 10,2714 02716 GOPERF4R TC PURRS4
059115,000998:
059116,000999: 10,2715 12640 TCF GODSPRS
059117,001000:
059118,001001: 10,2716 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE
059119,001002:
059120,001003: 10,2717 33464 CAF V04N06
059121,001004: 10,2720 54155 TS PLAYTEM1
059122,001005:
059123,001006: 10,2721 33465 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3
059124,001007: 10,2722 00002 TC Q
059125,001008:
059126,001009: 10,2723 00004 SAVELOCS INHINT
059127,001010:
059128,001011: 10,2724 43474 CS OCT3400 # EBANK BITS
059129,001012: 10,2725 70160 MASK PLAYTEM4
059130,001013: 10,2726 60003 AD EBANK
059131,001014: 10,2727 54160 TS PLAYTEM4
059132,001015:
059133,001016: 10,2730 22002 SAVELOCR LXCH Q
059134,001017:
059135,001018: 10,2731 04645 TC MAKECADR
059136,001019: 10,2732 54157 TS PLAYTEM3
059137,001020:
059138,001021: 10,2733 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
059139,001022: 10,2734 00001 TC L
059140,001023:
059141,001024: 10,2735 34755 COPYNORM CAF ZERO
059142,001025: 10,2736 54164 COPIES TS COPINDEX
059143,001026: 10,2737 00004 COPIES2 INHINT
059144,001027: 10,2740 30160 CA PLAYTEM4 # FLAGWORD
![]() |
Page 1352 |
059146,001029: 10,2741 50164 INDEX COPINDEX
059147,001030: 10,2742 55067 TS EBANKSAV # EQUIV TO DSPFLG
059148,001031:
059149,001032: 10,2743 73512 MASK CADRMASK # FLASH AND GODSPRET
059150,001033: 10,2744 00006 EXTEND
059151,001034: 10,2745 12751 BZF SKIPADD
059152,001035:
059153,001036: 10,2746 30157 CA PLAYTEM3
059154,001037: 10,2747 50164 INDEX COPINDEX
059155,001038: 10,2750 54372 TS CADRFLSH
059156,001039:
059157,001040: 10,2751 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
059158,001041: 10,2752 50164 INDEX COPINDEX
059159,001042: 10,2753 54367 TS NVWORD
059160,001043:
059161,001044: 10,2754 13232 TCF RELINTQ
059162,001045:
059163,001046: 10,2755 50164 GOSLEEPS INDEX COPINDEX
059164,001047: 10,2756 33513 CA PRIOOCT
059165,001048: 10,2757 72761 MASK WAITMASK
059166,001049: 10,2760 03526 TC UPENT2
059167,001050: 10,2761 03004 WAITMASK OCT 3004
059168,001051: 10,2762 44753 CS ONE
059169,001052: 10,2763 60164 AD COPINDEX
059170,001053: 10,2764 54154 TS FACEREG
059171,001054:
059172,001055: 10,2765 50154 XCHSLEEP INDEX FACEREG
059173,001056: 10,2766 33472 CAF WAKECADR
059174,001057: 10,2767 00004 INHINT
059175,001058: 10,2770 05137 TC JOBWAKE # FIND CADR IN JOB AREA
059176,001059:
059177,001060: 10,2771 03223 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
059178,001061:
059179,001062: 10,2772 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
059180,001063: 10,2773 33472 CAF WAKECADR
059181,001064: 10,2774 15133 TCF JOBSLEEP
059182,001065:
059183,001066: 10,2775 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
059184,001067: 10,2776 03206 TC WITCHONE
059185,001068: 10,2777 05137 TC JOBWAKE
059186,001069: 10,3000 30154 CA FACEREG
059187,001070: 10,3001 50064 INDEX LOCCTR
059188,001071: 10,3002 54154 TS FACEREG
059189,001072:
059190,001073: 10,3003 33016 CAF XCHQADD
059191,001074: 10,3004 03224 TC XCHNYLOC
059192,001075:
059193,001076: 10,3005 50154 INDEX FACEREG
059194,001077: 10,3006 33514 CA MARKOCT
059195,001078: 10,3007 73516 MASK IDLESLEP
![]() |
Page 1353 |
059197,001080: 10,3010 03536 TC DOWNENT2
059198,001081: 10,3011 74004 IDLEMASK OCT 74004 # * DONT MOVE
059199,001082:
059200,001083: 10,3012 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
059201,001084: 10,3013 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
059202,001085: 10,3014 64751 AD FOUR
059203,001086: 10,3015 03526 TC UPENT2 # FLAG ROUTINE DOES RELINT
059204,001087: 10,3016 02765 XCHQADD GENADR XCHSLEEP # * DONT MOVE
059205,001088: 10,3017 30100 CA FLAGWRD4
059206,001089: 10,3020 74751 MASK MKOVBIT # MARK OVER NORM ?
059207,001090: 10,3021 10000 CCS A
059208,001091: 10,3022 02400 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
059209,001092: 10,3023 12537 TCF OKTOCOPY
059210,001093:
059211,001094: 10,3024 34755 MARKWAKE CAF ZERO
059212,001095: 10,3025 54160 WAKEPLAY TS TEMPOR2
059213,001096:
059214,001097: 10,3026 50160 INDEX TEMPOR2
059215,001098: 10,3027 33506 CA BITS5+11
059216,001099: 10,3030 64751 AD FOUR
059217,001100: 10,3031 03536 TC DOWNENT2
059218,001101: 10,3032 40010 MARKFMSK OCT 40010 # ***DONT MOVE
059219,001102:
059220,001103: 10,3033 50160 INDEX TEMPOR2
059221,001104: 10,3034 33472 CAF WAKECADR
059222,001105: 10,3035 00004 INHINT
059223,001106: 10,3036 05137 TC JOBWAKE
059224,001107:
059225,001108: 10,3037 13331 TCF ENDRET
059226,001109:
059227,001110: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
059228,001111: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
059229,001112: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
059230,001113: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
059231,001114:
059232,001115: 10,3040 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
059233,001116: 10,3041 54003 TS EBANK
059234,001117:
059235,001118: 10,3042 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
059236,001119: 10,3043 04727 TC SUPERSW # RESTORE SUPERBANK
059237,001120:
059238,001121: 10,3044 77737 MASK PRIO37
059239,001122: 10,3045 05146 TC PRIOCHNG
059240,001123:
059241,001124: 10,3046 46257 CS THREE
059242,001125: 10,3047 60374 AD TEMPFLSH
059243,001126: 10,3050 14640 TCF BANKJUMP
059244,001127:
059245,001128: 10,3051 00003 PINBRNCH RELINT # FOR GOPIN USERS
059246,001129: 10,3052 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
![]() |
Page 1354 |
059248,001131: 10,3053 54156 TS MPAC +2 # ONLY
059249,001132:
059250,001133: 10,3054 30100 CA FLAGWRD4 # PINBRANCH CONDITION
059251,001134: 10,3055 77752 MASK PINMASK
059252,001135: 10,3056 10000 CCS A
059253,001136: 10,3057 13062 TCF +3
059254,001137: 10,3060 13453 TCF ERASER # ** NOTHING IN ENDIDLE
059255,001138: 10,3061 12400 TCF MARKPLAY
059256,001139:
059257,001140: 10,3062 05515 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
059258,001141: 10,3063 00105 ADRES PINBRFLG
059259,001142:
059260,001143: 10,3064 34736 CAF PRIODBIT # PRIO INTERRUPTED
059261,001144: 10,3065 70100 MASK FLAGWRD4
059262,001145: 10,3066 10000 CCS A
059263,001146: 10,3067 12545 TCF KEEPPRIO
059264,001147:
059265,001148: 10,3070 12616 TCF PLAYJUM1
059266,001149:
059267,001150: 10,3071 02420 NVDSP TC COPYPACS
059268,001151:
059269,001152: 10,3072 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
059270,001153: 10,3073 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
059271,001154: 10,3074 54001 TS L
059272,001155:
059273,001156: 10,3075 44737 CS BIT13
059274,001157: 10,3076 50164 INDEX COPINDEX
059275,001158: 10,3077 71067 MASK DSPFLG
059276,001159: 10,3100 50164 INDEX COPINDEX
059277,001160: 10,3101 55067 TS DSPFLG
059278,001161:
059279,001162: 10,3102 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
059280,001163: 10,3103 54141 TS TEM1
059281,001164:
059282,001165: 10,3104 30156 CA MPAC +2
059283,001166: 10,3105 54165 TS MPAC2SAV
059284,001167:
059285,001168: 10,3106 55072 TS MARK2PAC # * FOR DISK ONLY *
059286,001169: 10,3107 50164 INDEX COPINDEX
059287,001170: 10,3110 10367 CCS NVWORD
059288,001171: 10,3111 13120 TCF NVDSP1
059289,001172: 10,3112 13234 TCF CLEANEND
059290,001173: 10,3113 40370 CS MARKNV
059291,001174: 10,3114 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
059292,001175: 10,3115 76106 MASK LOW7
059293,001176: 10,3116 63477 AD V05N00M1
059294,001177: 10,3117 60141 AD TEM1
059295,001178: 10,3120 64753 NVDSP1 AD ONE
059296,001179: 10,3121 04155 NV50DSP TC NVMONOPT
059297,001180: 10,3122 13246 TCF REST # IF BUSY
![]() |
Page 1355 |
059299,001182: 10,3123 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
059300,001183:
059301,001184: 10,3124 02416 TC COPYTOGO # MPACS DESTROYED BY NVSUB
059302,001185: 10,3125 05527 TC DOWNFLAG # UNSET SLEEPING BITS
059303,001186: 10,3126 00102 ADRES MRKNVFLG
059304,001187: 10,3127 05527 TC DOWNFLAG
059305,001188: 10,3130 00103 ADRES NRMNVFLG
059306,001189: 10,3131 05527 TC DOWNFLAG
059307,001190: 10,3132 00104 ADRES PRONVFLG
059308,001191: 10,3133 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
059309,001192: 10,3134 04255 TC BLANKSUB
059310,001193: 10,3135 13071 TCF NVDSP
059311,001194: 10,3136 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
059312,001195: 10,3137 70160 MASK TEMPOR2
059313,001196: 10,3140 10000 CCS A # IS THIS A GOPERF DISPLAY
059314,001197: 10,3141 13164 TCF 1STOR2ND # YES
059315,001198:
059316,001199: 10,3142 34750 GOANIDLE CAF BIT4
059317,001200: 10,3143 70160 MASK TEMPOR2
059318,001201: 10,3144 10000 CCS A
059319,001202: 10,3145 13261 TCF FLASHSUB # IT IS
059320,001203:
059321,001204: 10,3146 40160 CS TEMPOR2 # IS THIS A GODSPRET
059322,001205: 10,3147 74746 MASK BIT6
059323,001206: 10,3150 10000 CCS A
059324,001207: 10,3151 13156 TCF ISITN00
059325,001208:
059326,001209: 10,3152 50164 INDEX COPINDEX
059327,001210: 10,3153 30372 CA CADRFLSH
059328,001211: 10,3154 54157 TS MPAC +3
059329,001212: 10,3155 13347 TCF ENDIT
059330,001213:
059331,001214: 10,3156 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
059332,001215: 10,3157 30367 CA NVWORD
059333,001216: 10,3160 76106 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
059334,001217: 10,3161 00006 EXTEND
059335,001218: 10,3162 13261 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
059336,001219:
059337,001220: 10,3163 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
059338,001221:
059339,001222: 10,3164 30160 1STOR2ND CA TEMPOR2
059340,001223: 10,3165 74737 MASK BIT13
059341,001224: 10,3166 10000 CCS A
059342,001225: 10,3167 13142 TCF GOANIDLE # SECOND
059343,001226:
059344,001227: 10,3170 34737 CA BIT13
059345,001228: 10,3171 50164 INDEX COPINDEX
059346,001229: 10,3172 27067 ADS DSPFLG
059347,001230:
059348,001231: 10,3173 22007 ZL
![]() |
Page 1356 |
059350,001233: 10,3174 00006 EXTEND # IS IT MARK
059351,001234: 10,3175 62441 BZMF MARKPERF # YES
059352,001235:
059353,001236: 10,3176 74740 MASK BIT12
059354,001237: 10,3177 00006 EXTEND
059355,001238: 10,3200 13204 BZF V50PASTE
059356,001239: 10,3201 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059357,001240: 10,3202 63523 AD V97N00
059358,001241: 10,3203 13121 TCF NV50DSP
059359,001242: 10,3204 33462 V50PASTE CAF V50N00
059360,001243: 10,3205 13121 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
059361,001244:
059362,001245: 10,3206 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
059363,001246: 10,3207 00006 EXTEND
059364,001247: 10,3210 03011 WAND DSALMOUT
059365,001248:
059366,001249: 10,3211 30100 CA FLAGWRD4
059367,001250: 10,3212 73500 MASK NVBUSMSK # IS IT NVSUB ASLEEP
059368,001251: 10,3213 10000 CCS A
059369,001252: 10,3214 34753 CAF ONE
059370,001253: 10,3215 54001 TS L
059371,001254: 10,3216 34755 CAF ZERO
059372,001255: 10,3217 50001 INDEX L
059373,001256: 10,3220 57041 XCH CADRSTOR
059374,001257:
059375,001258: 10,3221 00004 INHINT
059376,001259: 10,3222 00002 TC Q
059377,001260:
059378,001261: 10,3223 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
059379,001262: 10,3224 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
059380,001263: 10,3225 00006 EXTEND
059381,001264: 10,3226 63232 BZMF RELINTQ # NO
059382,001265: 10,3227 56064 XCH LOCCTR # YES
059383,001266: 10,3230 50064 INDEX LOCCTR
059384,001267: 10,3231 54164 TS LOC
059385,001268:
059386,001269: 10,3232 00003 RELINTQ RELINT
059387,001270: 10,3233 00002 TC Q # BACK TO USER
059388,001271:
059389,001272: 10,3234 37732 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
059390,001273: 10,3235 05105 TC FINDVAC
059391,001274: 10,3236 0371 EBANK= NVSAVE
059392,001275: 10,3236 04231 04060 2CADR JAMTERM
059393,001276:
059394,001277:
059395,001278: 10,3240 13262 TCF FLASHSUB +1
059396,001279:
059397,001280: 10,3241 30100 ISITPRIO CA FLAGWRD4
059398,001281: 10,3242 73267 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
059399,001282: 10,3243 00006 EXTEND
![]() |
Page 1357 |
059401,001284: 10,3244 12576 BZF PRIOBORT
059402,001285: 10,3245 15155 TCF ENDOFJOB
059403,001286:
059404,001287: 10,3246 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
059405,001288: 10,3247 15155 TCF ENDOFJOB # YES
059406,001289: 10,3250 13252 TCF RESTSLEP
059407,001290:
059408,001291: 10,3251 15155 TCF ENDOFJOB
059409,001292:
059410,001293: 10,3252 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
059411,001294: 10,3253 73501 MASK ASTROMSK
059412,001295: 10,3254 03526 TC UPENT2
059413,001296: 10,3255 24100 OCT24100 OCT 24100 # *** DONT MOVE
059414,001297:
059415,001298: 10,3256 50164 INDEX COPINDEX
059416,001299: 10,3257 33471 CAF NVCADR
059417,001300: 10,3260 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
059418,001301:
059419,001302: 10,3261 04427 FLASHSUB TC FLASHON
059420,001303:
059421,001304: 10,3262 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
059422,001305: 10,3263 54157 TS COPMPAC
059423,001306:
059424,001307: 10,3264 30162 CA GENMASK
059425,001308: 10,3265 73011 MASK IDLEMASK
059426,001309: 10,3266 03526 TC UPENT2
059427,001310: 10,3267 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
059428,001311:
059429,001312: 10,3270 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
059430,001313: 10,3271 13241 TCF ISITPRIO
059431,001314: 10,3272 13274 TCF +2
059432,001315: 10,3273 13241 TCF ISITPRIO
059433,001316:
059434,001317: 10,3274 04207 TC ENDIDLE
059435,001318: 10,3275 13354 IDLERET1 TCF TERMATE
059436,001319:
059437,001320: 10,3276 13373 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
059438,001321:
059439,001322: 10,3277 43510 CS LOWLOAD
059440,001323: 10,3300 60154 AD MPAC # VERBREG
059441,001324: 10,3301 00006 EXTEND
059442,001325: 10,3302 26000 DIM A
059443,001326: 10,3303 00006 EXTEND
059444,001327: 10,3304 13443 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
059445,001328: 10,3305 34752 OKTOENT CAF TWO
059446,001329: 10,3306 54161 ENDOUT TS OUTHERE
059447,001330:
059448,001331: 10,3307 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
059449,001332: 10,3310 74101 MASK OCT60000
059450,001333: 10,3311 10000 CCS A
![]() |
Page 1358 |
059452,001335: 10,3312 13315 TCF TIMECHEK # PRIO ENDIDLE RETURN
059453,001336: 10,3313 13411 TCF NORMRET # NORMAL ENDIDLE RETURN
059454,001337: 10,3314 13375 TCF MARKRET # MARK ENDIDLE RETURN
059455,001338:
059456,001339: 10,3315 40025 TIMECHEK CS TIME1
059457,001340: 10,3316 61164 AD PRIOTIME
059458,001341: 10,3317 10000 CCS A
059459,001342: 10,3320 40000 COM
059460,001343: 10,3321 67743 AD OCT37776
059461,001344: 10,3322 64753 AD ONE
059462,001345: 10,3323 63552 AD -2SEC
059463,001346: 10,3324 00006 EXTEND
059464,001347: 10,3325 62545 BZMF KEEPPRIO
059465,001348:
059466,001349: 10,3326 13411 TCF NORMRET
059467,001350:
059468,001351: 10,3327 34753 NORMWAKE CAF ONE
059469,001352: 10,3330 13025 TCF WAKEPLAY
059470,001353:
059471,001354: 10,3331 10161 ENDRET CCS OUTHERE
059472,001355: 10,3332 64753 AD ONE
059473,001356: 10,3333 13335 TCF +2 # NORMAL ENDIDLE EXIT
059474,001357: 10,3334 15155 TCF ENDOFJOB
059475,001358: 10,3335 50157 INDEX COPMPAC
059476,001359: 10,3336 60372 AD CADRFLSH
059477,001360: 10,3337 54157 TS MPAC +3
059478,001361:
059479,001362: 10,3340 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
059480,001363: 10,3341 73343 MASK PINIDMSK
059481,001364: 10,3342 03536 TC DOWNENT2
059482,001365: 10,3343 74044 PINIDMSK OCT 74044 # *** DONT MOVE
059483,001366:
059484,001367: 10,3344 46257 CS THREE # BLANK EVERYTHING EXCEPT MM
059485,001368: 10,3345 04154 TC NVSUB
059486,001369: 10,3346 13347 TCF +1
059487,001370:
059488,001371: 10,3347 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
059489,001372: 10,3350 77737 MASK PRIO37
059490,001373: 10,3351 05146 TC PRIOCHNG
059491,001374: 10,3352 30157 CA MPAC +3
059492,001375: 10,3353 14640 TCF BANKJUMP
059493,001376:
059494,001377: 10,3354 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
059495,001378: 10,3355 13306 TCF ENDOUT
059496,001379:
059497,001380: 10,3356 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
059498,001381: 10,3357 74736 MASK BIT14
059499,001382: 10,3360 10000 CCS A
059500,001383: 10,3361 16751 TCF Q+1 # NO
059501,001384: 10,3362 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
![]() |
Page 1359 |
059503,001386: 10,3363 50164 INDEX COPINDEX
059504,001387: 10,3364 60372 AD CADRFLSH
059505,001388: 10,3365 00006 EXTEND
059506,001389: 10,3366 13370 BZF +2 # YES
059507,001390:
059508,001391: 10,3367 00002 TC Q # NO
059509,001392: 10,3370 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY
059510,001393: 10,3371 05155 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
059511,001394: 10,3372 00002 TC Q
059512,001395:
059513,001396: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059514,001397: 10,3373 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
059515,001398: 10,3374 13306 TCF ENDOUT
059516,001399:
059517,001400: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059518,001401: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059519,001402: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059520,001403:
059521,001404: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059522,001405: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059523,001406: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059524,001407: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059525,001408:
059526,001409: 10,3375 46254 MARKRET CS SIX
059527,001410: 10,3376 70100 MASK FLAGWRD4
059528,001411: 10,3377 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
059529,001412: 10,3400 54100 TS FLAGWRD4
059530,001413:
059531,001414: 10,3401 00003 RELINT # INHINT REALM
059532,001415: 10,3402 13331 TCF ENDRET
059533,001416:
059534,001417: 10,3403 37761 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059535,001418: 10,3404 54161 TS OUTHERE
059536,001419:
059537,001420: 10,3405 30100 CA FLAGWRD4 # IS ENDIDFLG SET
059538,001421: 10,3406 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
059539,001422: 10,3407 10000 CCS A
059540,001423: 10,3410 13062 TCF NORMBNCH
059541,001424:
059542,001425: 10,3411 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
059543,001426: 10,3412 73506 MASK BITS5+11 # OR WAITING
059544,001427: 10,3413 10000 CCS A
059545,001428: 10,3414 13024 TCF MARKWAKE
059546,001429:
059547,001430: 10,3415 30100 CA FLAGWRD4 # NO
059548,001431: 10,3416 73507 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
059549,001432: 10,3417 10000 CCS A
059550,001433: 10,3420 13327 TCF NORMWAKE # YES
059551,001434:
059552,001435: 10,3421 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
![]() |
Page 1360 |
059554,001437: 10,3422 74771 MASK OCT50 # OR A GODSPRET
059555,001438: 10,3423 10000 CCS A
059556,001439: 10,3424 13331 TCF ENDRET # YES
059557,001440: 10,3425 30371 CA NVSAVE
059558,001441: 10,3426 00006 EXTEND
059559,001442: 10,3427 13331 BZF ENDRET
059560,001443:
059561,001444: 10,3430 35025 CAF PRIO15
059562,001445: 10,3431 00004 INHINT
059563,001446: 10,3432 05072 TC NOVAC
059564,001447: 10,3433 0367 EBANK= NVWORD
059565,001448: 10,3433 02616 20060 2CADR PLAYJUM1
059566,001449:
059567,001450:
059568,001451: 10,3435 13331 TCF ENDRET
059569,001452:
059570,001453: 10,3436 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
059571,001454: 10,3437 73506 MASK BITS5+11
059572,001455: 10,3440 10000 CCS A
059573,001456: 10,3441 15155 TCF ENDOFJOB # YES
059574,001457: 10,3442 12755 TCF GOSLEEPS
059575,001458:
059576,001459: 10,3443 50157 LOADITIS INDEX COPMPAC
059577,001460: 10,3444 30367 CA NVWORD
059578,001461: 10,3445 76106 MASK LOW7
059579,001462: 10,3446 40000 COM
059580,001463: 10,3447 60155 AD MPAC +1 # NOUNREG
059581,001464: 10,3450 00006 EXTEND
059582,001465: 10,3451 13305 BZF OKTOENT # NO, THEN LOAD IS VALID
059583,001466: 10,3452 13051 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059584,001467:
059585,001468: 10,3453 46257 ERASER CS THREE # BLANK EVERYTHINGEXCEPT MM
059586,001469: 10,3454 04154 TC NVSUB
059587,001470: 10,3455 15155 TCF ENDOFJOB
059588,001471: 10,3456 15155 TCF ENDOFJOB
059589,001472:
059590,001473: 10,3457 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
059591,001474: 10,3460 00231 V01N25 VN 00125
059592,001475: 10,3461 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
059593,001476: 10,3462 14400 V50N00 VN 5000
059594,001477: 10,3463 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
059595,001478: 10,3464 01006 V04N06 VN 00406
059596,001479: 10,3465 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
059597,001480: 10,3466 10,3051 GOAGIN EQUALS PINBRNCH
059598,001481: 10,3466 20010 REDOMASK OCT 20010 # BITS 4 AND 14
059599,001482: 10,3467 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
059600,001483: 10,3470 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
059601,001484: 10,3471 20543 NVCADR CADR REDOPRIO
059602,001485: 10,3472 20400 WAKECADR CADR MARKPLAY
059603,001486: 10,3473 20616 CADR PLAYJUM1
059604,001487:
![]() |
Page 1361 |
059606,001489: 10,3474 03400 OCT3400 OCT 3400 # EBANK MASK
059607,001490: 10,3475 11210 NBUSMASK OCT 11210
059608,001491: 10,3476 66521 PMMASK OCT 66521
059609,001492: 10,3477 4144 VERBMASK = MID7 # (OCT 37600)
059610,001493: 10,3477 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
059611,001494: 10,3500 10,2330 GOXDSP EQUALS GOMARK
059612,001495: 10,3500 10,2350 GOXDSPR EQUALS GOMARKR
059613,001496: 10,3500 10,2334 GOXDSPF EQUALS GOMARKF
059614,001497: 10,3500 10,2353 GOXDSPFR EQUALS GOMARKFR
059615,001498: 10,3500 5503 ENDEXT EQUALS ENDMARK
059616,001499: 10,3500 0165 MPAC2SAV EQUALS BANKSET
059617,001500: 10,3500 00700 NVBUSMSK OCT 700
059618,001501: 10,3501 00704 ASTROMSK OCT 704
059619,001502: 10,3502 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
059620,001503: 10,3503 34300 OCT34300 OCT 34300
059621,001504: 10,3504 40100 BITS15+7 OCT 40100
059622,001505: 10,3505 00110 BITS7+4 OCT 110
059623,001506: 10,3506 02020 BITS5+11 OCT 2020 # * DONT MOVE
059624,001507: 10,3507 01010 BITS4+10 OCT 1010 # * DONT MOVE
059625,001508: 10,3510 00026 LOWLOAD DEC 22 B-14
059626,001509: 10,3511 77730 BUSYMASK OCT 77730
059627,001510: 10,3512 00050 CADRMASK OCT 50
059628,001511: 10,3513 7752 PINMASK EQUALS 13,14,15
059629,001512: 10,3513 10,3071 GOPLAY EQUALS NVDSP
059630,001513: # PRIOSAVE EQUALS R1SAVE
059631,001514: 10,3513 0157 COPMPAC EQUALS MPAC +3
059632,001515: 10,3513 0160 TEMPOR2 EQUALS MPAC +4
059633,001516: 10,3513 0161 OUTHERE EQUALS MPAC +5
059634,001517: 10,3513 0164 COPINDEX EQUALS LOC
059635,001518: 10,3513 0163 USERPRIO EQUALS MODE
059636,001519: 10,3513 0162 GENMASK EQUALS MPAC +6
059637,001520: 10,3513 20144 PRIOOCT OCT 20144 # PRIO
059638,001521: 10,3514 42424 MARKOCT OCT 42424 # MARK
059639,001522: 10,3515 11254 OCT 11254 # NORM
059640,001523:
059641,001524: 10,3516 74704 IDLESLEP OCT 74704
059642,001525: 10,3517 67777 OCT67777 OCT 67777
059643,001526: 10,3520 5475 LINUS EQUALS BLANKET
059644,001527: 10,3520 0154 FACEREG EQUALS MPAC
059645,001528: 10,3520 0155 PLAYTEM1 EQUALS MPAC +1
059646,001529: 10,3520 0157 PLAYTEM3 EQUALS MPAC +3
059647,001530: 10,3520 0160 PLAYTEM4 EQUALS MPAC +4
059648,001531: 10,3520 40420 OCT40420 OCT 40420
059649,001532: 10,3521 02547 MAKEGEN GENADR MAKEPLAY
059650,001533: 10,3522 10200 OCT10200 OCT 10200
059651,001534: 10,3523 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
059652,001535: 10,3524 20100 OCT20100 OCT 20100
059653,001536: 10,3525 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc