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