GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note 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 scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
057784,000002: ## Copyright: Public domain.
057785,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
057786,000004: ## Purpose: The main source file for Luminary revision 069.
057787,000005: ## It is part of the source code for the original release
057788,000006: ## of the flight software for the Lunar Module's (LM) Apollo
057789,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
057790,000008: ## version was Luminary 69 revision 2, which included a
057791,000009: ## newer lunar gravity model and only affected module 2.
057792,000010: ## This file is intended to be a faithful transcription, except
057793,000011: ## that the code format has been changed to conform to the
057794,000012: ## requirements of the yaYUL assembler rather than the
057795,000013: ## original YUL assembler.
057796,000014: ## Reference: pp. 1335-1367
057797,000015: ## Assembler: yaYUL
057798,000016: ## Contact: Ron Burkey <info@sandroid.org>.
057799,000017: ## Website: www.ibiblio.org/apollo/index.html
057800,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
057801,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
057802,000020: ## 2017-01-16 MAS Updated for Luminary 69.
057803,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
057804,000022: ## but no errors found.
057805,000023: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
057806,000024: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
057807,000025: ## side-by-side diff of Luminary 69/99/116/131/210.
057808,000026:
|
|
Page 1335 |
057810,000028: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
057811,000029:
057812,000030: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
057813,000031: # OUT UNDER CRITICAL ALARM CONDITIONS.
057814,000032: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
057815,000033: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
057816,000034: # SEQUENCE OF EVENTS.
057817,000035: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
057818,000036: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
057819,000037:
057820,000038:
057821,000039: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
057822,000040: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
057823,000041:
057824,000042: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
057825,000043: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
057826,000044: # BUT NOT WAITING FOR A RESPONSE.
057827,000045: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
057828,000046: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
057829,000047: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
057830,000048: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
057831,000049: # HAS INFO SAVED FOR RESTART PURPOSES.
057832,000050:
057833,000051:
057834,000052: # DISPLAY PRIORITIES WORK AS FOLLOWS-
057835,000053:
057836,000054: # INTERRUPTS-
057837,000055: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
057838,000056: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
057839,000057: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
057840,000058: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
057841,000059: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
057842,000060: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
057843,000061:
057844,000062: # ORDER OF WAITING DISPLAYS-
057845,000063: # 1. ASTRONAUT EXTERNAL USE
057846,000064: # 2. PRIORITY
057847,000065: # 3. INTERRUPTED MARK
057848,000066: # 4. INTERRUPTED NORMAL
057849,000067:
057850,000068: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
057851,000069: # 6. MARK WAITING
057852,000070: # 7. NORMAL WAITING
057853,000071:
|
|
Page 1336 |
057855,000073: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
057856,000074: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
057857,000075: # WILL FOLLOW LATER):
057858,000076:
057859,000077: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
057860,000078: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
057861,000079: # IS TO THE USERS CALLING LOC +1.
057862,000080: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
057863,000081: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
057864,000082: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
057865,000083: # USERS JOB.
057866,000084: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
057867,000085: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
057868,000086: # DESCRIPTION OF RESTARTS).
057869,000087: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
057870,000088: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
057871,000089: # (V32) BRANCHES TO THE USERS CALL CADR +3.
057872,000090: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
057873,000091:
057874,000092: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
057875,000093:
057876,000094: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057877,000095:
057878,000096: # 1. GODSP IS NOT RESTARTABLE
057879,000097: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
057880,000098: # CAF VXXNYY
057881,000099: # TC BANKCALL
057882,000100: # CADR GODSP
057883,000101:
057884,000102: # VXXNYY OCT 0XXYY
057885,000103:
057886,000104: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
057887,000105:
057888,000106: # CAF VXXNYY
057889,000107: # TC BANKCALL
057890,000108: # CADR GODSPR
057891,000109:
057892,000110: # ... ... IMMEDIATE RETURN OF GODSPR
057893,000111:
057894,000112: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057895,000113: # THE ASTRONAUT (SEE NO. 7 ABOVE).
057896,000114:
057897,000115: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
057898,000116: # TC BANKCALL
057899,000117: # CADR GOFLASH
057900,000118: # ... ... TERMINATE RETURN
057901,000119: # ... ... PROCEED RETURN
057902,000120: # ... ... ENTER OR RECYCLE RETURN
057903,000121:
057904,000122: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
|
|
Page 1337 |
057906,000124: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
057907,000125: # USER (SEE NO. 7 ABOVE).
057908,000126:
057909,000127: # GOPERF1 BLANKS REGISTERS R2 AND R3
057910,000128: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
057911,000129: # TC BANKCALL
057912,000130: # CADR GOPERF1
057913,000131: # ... ... TERMINATE RETURN
057914,000132: # ... ... PROCEED RETURN
057915,000133: # ... ... ENTER RETURN
057916,000134:
057917,000135: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
057918,000136: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
057919,000137: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057920,000138:
057921,000139: # GOPERF2 DOES NOT BLANK ANY REGISTERS
057922,000140:
057923,000141: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
057924,000142: # TC BANKCALL
057925,000143: # CADR GOPERF2
057926,000144: # ... ... TERMINATE RETURN
057927,000145: # ... ... PROCEED RETURN
057928,000146: # ... ... ENTER RETURN
057929,000147:
057930,000148: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
057931,000149: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057932,000150: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
057933,000151:
057934,000152: # GOPERF3 BLANKS REGISTERS R2 AND R3
057935,000153:
057936,000154: # CAF DECXX REQUEST PERFORM ON PXX
057937,000155: # TC BANKCALL
057938,000156: # CADR GOPERF3
057939,000157: # ... ... TERMINATE RETURN
057940,000158: # ... ... PROCEED RETURN
057941,000159: # ... ... ENTER RETURN
057942,000160:
057943,000161: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057944,000162: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
057945,000163: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057946,000164:
057947,000165: # CAF OCTXX REQUEST PERFORM ON OPTION XX
057948,000166: # TC BANKCALL
057949,000167: # CADR GOPERF4
057950,000168: # ... ... TERMINATE RETURN
057951,000169: # ... ... PROCEED RETURN
057952,000170: # ... ... ENTER RETURN
057953,000171:
057954,000172: # GOPERF4 BLANKS REGISTER R3
057955,000173:
|
|
Page 1338 |
057957,000175: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057958,000176: # OUT.
057959,000177:
057960,000178: # CAF VXXNYY
057961,000179: # TC BANKCALL
057962,000180: # CADR GODSPRET
057963,000181: # ... ... RETURN TO USER
057964,000182:
057965,000183: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057966,000184: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057967,000185:
057968,000186: # CAF VXXNYY
057969,000187: # TC BANKCALL
057970,000188: # CADR REGODSP
057971,000189:
057972,000190: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057973,000191:
057974,000192: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
057975,000193: # TC BANKCALL
057976,000194: # CADR REFLASH
057977,000195: # ... ... TERMINATE RETURN
057978,000196: # ... ... PROCEED RETURN
057979,000197: # ... ... ENTER RETURN
057980,000198:
057981,000199: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057982,000200:
057983,000201: # CAF VXXNYY
057984,000202: # TC BANKCALL
057985,000203: # CADR GOFLASHR
057986,000204: # ... ... TERMINATE RETURN
057987,000205: # ... ... PROCEED RETURN
057988,000206: # ... ... ENTER OR RECYCLE RETURN
057989,000207:
057990,000208: # ... ... IMMEDIATE RETURN FROM GOFLASHR
057991,000209:
057992,000210: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
057993,000211:
057994,000212: # GOPERF1R BLANKS REGISTERS R2 AND R3
057995,000213:
057996,000214: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
057997,000215: # TC BANKCALL
057998,000216: # CADR GOPERF1R
057999,000217: # ... ... TERMINATE RETURN
058000,000218: # ... ... PROCEED RETURN
058001,000219: # ... ... ENTER RETURN
058002,000220:
058003,000221: # ... ... IMMEDIATE RETURN FROM GOPERF1R
058004,000222:
058005,000223: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058006,000224:
|
|
Page 1339 |
058008,000226: # GOPERF2R DOES NOT BLANK ANY REGISTERS
058009,000227:
058010,000228: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
058011,000229: # TC BANKCALL
058012,000230: # CADR GOPERF2R
058013,000231: # ... ... TERMINATE RETURN
058014,000232: # ... ... PROCEED RETURN
058015,000233: # ... ... ENTER RETURN
058016,000234:
058017,000235: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
058018,000236:
058019,000237: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058020,000238:
058021,000239: # GOPERF3R BLANKS REGISTERS R2 AND R3
058022,000240:
058023,000241: # CAF PROGXX PERFORM PROGRAM XX
058024,000242: # TC BANKCALL
058025,000243: # CADR GOPERF3R
058026,000244: # ... ... TERMINATE RETURN
058027,000245: # ... ... PROCEED RETURN
058028,000246: # ... ... ENTER RETURN
058029,000247:
058030,000248: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
058031,000249:
058032,000250: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058033,000251:
058034,000252: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
058035,000253: # TC BANKCALL
058036,000254: # CADR GOPERF4R
058037,000255: # ... ... TERMINATE RETURN
058038,000256: # ... ... PROCEED RETURN
058039,000257: # ... ... ENTER RETURN
058040,000258:
058041,000259: # ... ... IMMEDIATE RETURN TO USER
058042,000260:
058043,000261: # GOPERF4R BLANKS REGISTER R3
058044,000262:
058045,000263: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058046,000264:
058047,000265: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058048,000266: # TC BANKCALL
058049,000267: # CADR REFLASHR
058050,000268: # ... ... TERMINATE RETURN
058051,000269: # ... ... PROCEED RETURN
058052,000270: # ... ... ENTER RETURN
058053,000271:
058054,000272: # ... ... IMMEDIATE RETURN TO USER
058055,000273:
058056,000274: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
058057,000275:
|
|
Page 1340 |
058059,000277: # CAF VXXNYY
058060,000278: # TC BANKCALL
058061,000279: # CADR REGODSPR
058062,000280: # ... ... IMMEDIATE RETURN TO USER
|
|
Page 1341 |
058064,000282: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058065,000283:
058066,000284: # GOXDSP = GOMARK
058067,000285:
058068,000286: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
058069,000287: # TC BANKCALL
058070,000288: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
058071,000289:
058072,000290: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058073,000291:
058074,000292: # GOXDSPR = GOMARKR
058075,000293:
058076,000294: # CAF VXXNYY
058077,000295: # TC BANKCALL
058078,000296: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
058079,000297:
058080,000298: # ... ... IMMEDIATE RETURN OF GOMARKR
058081,000299:
058082,000300: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058083,000301: # THE ASTRONAUT (SEE NO. 7 ABOVE ).
058084,000302:
058085,000303: # GOXDSPF = GOMARKF
058086,000304:
058087,000305: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
058088,000306: # TC BANKCALL
058089,000307: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
058090,000308: # ... ... TERMINATE RETURN
058091,000309: # ... ... PROCEED RETURN
058092,000310: # ... ... ENTER OR RECYCLE RETURN
058093,000311:
058094,000312: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058095,000313:
058096,000314: # GOXDSPFR = GOMARKFR
058097,000315:
058098,000316: # CAF VXXNYY FLASHING MARK VERB NOUN
058099,000317: # TC BANKCALL
058100,000318: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
058101,000319: # ... ... TERMINATE RETURN
058102,000320: # ... ... PROCEED RETURN
058103,000321: # ... ... ENTER OR RECYCLE RETURN
058104,000322:
058105,000323: # ... ... IMMEDIATE RETURN TO THE USER
058106,000324:
058107,000325: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058108,000326: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058109,000327: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058110,000328: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058111,000329:
058112,000330: # CAF V5XNYY X=1,2,3,4 Y=NOUN
058113,000331: # TC BANKCALL
|
|
Page 1342 |
058115,000333: # CADR GOMARK1
058116,000334:
058117,000335: # ... ... ENTER RETURN
058118,000336:
058119,000337: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058120,000338:
058121,000339: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058122,000340: # CAF V5XNYY X=1,2,3,4 YY = NOUN
058123,000341: # TC BANKCALL
058124,000342: # CADR GOMARK1R
058125,000343:
058126,000344: # ... ... ASTRONAUT ENTER RETURN
058127,000345: # ... ... IMMEDIATE RETURN TO USER
058128,000346:
058129,000347: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058130,000348: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058131,000349: # TC BANKCALL
058132,000350: # CADR GOMARK2
058133,000351: # ... ... TERMINATE RETURN
058134,000352: # ... ... PROCEED RETURN
058135,000353: # ... ... ENTER RETURN
058136,000354: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058137,000355:
058138,000356: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
058139,000357: # TC BANKCALL
058140,000358: # CADR GOMARK2R
058141,000359: # ... ... TERMINATE RETURN
058142,000360: # ... ... PROCEED RETURN
058143,000361: # ... ... ENTER RETURN
058144,000362:
058145,000363: # ... ... IMMEDIATE RETURN TO THE USER
058146,000364:
058147,000365: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058148,000366: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058149,000367: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058150,000368:
058151,000369: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
058152,000370: # TC BANKCALL
058153,000371: # CADR GOMARK3
058154,000372: # ... ... TERMINATE RETURN
058155,000373: # ... ... PROCEED RETURN
058156,000374: # ... ... ENTER RETURN
058157,000375:
058158,000376: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058159,000377:
058160,000378: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058161,000379: # TC BANKCALL
058162,000380: # CADR GOMARK4
058163,000381: # ... ... TERMINATE RETURN
058164,000382: # ... ... PROCEED RETURN
|
|
Page 1343 |
058166,000384: # ... ... ENTER RETURN
058167,000385:
058168,000386: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058169,000387: # SENT OUT.
058170,000388: # CAF VXXNYY
058171,000389: # TC BANKCALL
058172,000390: # CADR EXDSPRET
058173,000391:
058174,000392: # ... ... RETURN TO USER
058175,000393:
058176,000394: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058177,000395: # HAVE BEEN CLEANED OUT.
058178,000396:
058179,000397: # TC BANKCALL
058180,000398: # CADR KLEENEX
058181,000399:
058182,000400: # ... ... RETURN TO USER
058183,000401:
058184,000402: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058185,000403:
058186,000404: # TC BANKCALL
058187,000405: # CADR MARKBRAN
058188,000406:
058189,000407: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
058190,000408:
058191,000409: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058192,000410: # LAST FLASHING MARK R ROUTINE)
058193,000411:
058194,000412: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058195,000413: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058196,000414:
058197,000415: # TC POSTJUMP
058198,000416: # CADR PINBRNCH
058199,000417:
058200,000418: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058201,000419: # THE ASTRONAUT(SEE NO.7 ABOVE).
058202,000420:
058203,000421: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058204,000422: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058205,000423: # IS RESPONDED TO BY THE ASTRONAUT.
058206,000424:
058207,000425: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058208,000426: # PRIO DISPLAY.
058209,000427:
058210,000428: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058211,000429: # TC BANKCALL
058212,000430: # CADR PRIODSP
058213,000431: # ... ... TERMINATE RETURN
058214,000432: # ... ... PROCEED RETURN
|
|
Page 1344 |
058216,000434: # ... ... ENTER OR RECYCLE RETURN
058217,000435:
058218,000436: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058219,000437:
058220,000438: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058221,000439: # TC BANKCALL
058222,000440: # CADR PRIODSPR
058223,000441: # ... ... TERMINATE RETURN
058224,000442: # ... ... PROCEED RETURN
058225,000443: # ... ... ENTER OR RECYCLE RETURN
058226,000444:
058227,000445: # ... ... IMMEDIATE RETURN
058228,000446:
058229,000447: # PRIOLARM DOES A V05N09 PRIODSPR.
058230,000448: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058231,000449: # DISPLAYS ARE CLEANED OUT.
058232,000450: # TC BANKCALL
058233,000451: # CADR CLEANDSP
058234,000452:
058235,000453: # ... ... RETURN TO USER
058236,000454:
|
|
Page 1345 |
058238,000456:
058239,000457: # GENERAL INFORMATION
058240,000458: # ------- -----------
058241,000459:
058242,000460:
058243,000461: # ALARM OR ABORT EXIT MODES--
058244,000462:
058245,000463: # PRIOBORT TC ABORT
058246,000464: # OCT 1502
058247,000465:
058248,000466: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058249,000467: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058250,000468: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058251,000469:
058252,000470:
058253,000471: # ERASABLE INITIALIZATION REQUIRED--
058254,000472:
058255,000473: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058256,000474: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
058257,000475: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058258,000476:
058259,000477:
058260,000478: # 5. R1SAVE = MARKBRAN CONTROL WORD
058261,000479: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058262,000480:
058263,000481: # OUTPUT --
058264,000482:
058265,000483: # NVWORD = PRIO VERB AND NOUN
058266,000484: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
058267,000485: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058268,000486:
058269,000487: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058270,000488: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058271,000489: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058272,000490:
058273,000491: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058274,000492: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058275,000493: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058276,000494:
058277,000495: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058278,000496: # OPTION1 = DESIRED OPTION FROM GOPERF4
058279,000497: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058280,000498: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058281,000499: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058282,000500: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058283,000501: # DEBRIS-- (STORED INTO)
058284,000502:
058285,000503: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058286,000504: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
058287,000505: # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058288,000506:
058289,000507: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
|
|
Page 1346 |
058291,000509: # R1SAVE, MARK2PAC,
058292,000510:
058293,000511:
058294,000512: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058295,000513: # FLAGWORD DESCRIPTIONS--
058296,000514: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058297,000515:
058298,000516: # DSPFLG, DSPFLG+1, DSPFLG +2-
058299,000517: # ----------------------------
058300,000518: # BITS 1 BLANK R1
058301,000519: # 2 BLANK R2
058302,000520: # 3 BLANK R3
058303,000521: # 4 FLASHING DISPLAY REQUESTED
058304,000522: # 5 PERFORM DISPLAY REQUESTED
058305,000523: # 6 ----- EXDSPRET GODSPRET
058306,000524: # 7 PRIO DISPLAY ----- -----
058307,000525: # 8 ----- DEC MARK PERFORM -----
058308,000526: # 9 EBANK
058309,000527: # 10 EBANK
058310,000528: # 11 EBANK
058311,000529: # 12 ----- ----- V99PASTE
058312,000530: # 13 2ND PART OF PERFORM
058313,000531: # 15 REFLASH OR REDO ----- REFLASH OR REDO
058314,000532: # 15 ----- MARK REQUEST -----
058315,000533: # RESTARTING DISPLAYS--
058316,000534:
058317,000535: # RULES FOR THE DSKY OPERATOR--
058318,000536:
058319,000537: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
058320,000538: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058321,000539: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058322,000540: # WITH PROCEED AND TERMINATE FOR THIS REASON.
058323,000541: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
058324,000542: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058325,000543: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058326,000544: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
058327,000545: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
058328,000546: # CONSIDERATION.
058329,000547: # 3. KEY RELEASE BUTTON-
058330,000548: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058331,000549: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058332,000550: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058333,000551: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058334,000552: # KEY RELEASE BUTTON MAY BE NECESSARY.
058335,000553: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058336,000554: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058337,000555: # OVER AGAIN.
058338,000556:
058339,000557:
058340,000558: # SPECIAL CONSIDERATIONS--
|
|
Page 1347 |
058342,000560: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
058343,000561: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058344,000562: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058345,000563: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058346,000564: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058347,000565: # BY A .1 RESTART PHASE CHANGE.
058348,000566: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058349,000567: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058350,000568: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
058351,000569:
|
|
Page 1348 |
058353,000571: # CALLING SEQUENCE FOR BLANKING
058354,000572: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058355,000573: # TC BLANKET
058356,000574: # ... ... RETURN TO USER HERE
058357,000575:
058358,000576: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058359,000577: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
058360,000578:
058361,000579: 5464 BLOCK 02
058362,000580: 4000 SETLOC FFTAG4
058363,000581: 4000 BANK
058364,000582:
058365,000583: 5464 COUNT* $$/DSPLA
058366,000584: 5464 54162 BLANKET TS MPAC +6
058367,000585: 5465 40160 CS PLAYTEM4
058368,000586: 5466 70162 MASK MPAC +6
058369,000587: 5467 50161 INDEX MPAC +5
058370,000588: 5470 26160 ADS PLAYTEM4
058371,000589:
058372,000590: 5471 00002 TC Q
058373,000591:
058374,000592: 5472 04635 ENDMARK TC POSTJUMP
058375,000593: 5473 20204 CADR MARKEND
058376,000594:
058377,000595: 5474 34755 CLEARMRK CAF ZERO
058378,000596: 5475 55044 TS EXTVBACT
058379,000597:
058380,000598: 5476 00004 INHINT
058381,000599: 5477 44753 CS BIT1
058382,000600: 5500 70100 MASK FLAGWRD4
058383,000601: 5501 54100 TS FLAGWRD4
058384,000602:
058385,000603: 5502 00003 RELINT
058386,000604: 5503 00002 TC Q
058387,000605: # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058388,000606: # FINISHED.
058389,000607:
058390,000608: 10,2204 BANK 10
058391,000609: 10,2000 SETLOC DISPLAYS
058392,000610: 10,2000 BANK
058393,000611:
058394,000612: 10,2204 COUNT* $$/DSPLA
058395,000613: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058396,000614: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058397,000615:
058398,000616: 10,2204 05474 MARKEND TC CLEARMRK
058399,000617: 10,2205 13274 TCF MARKOVER
058400,000618:
058401,000619: 10,2206 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
|
|
Page 1349 |
058403,000621: 10,2207 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
058404,000622: 10,2210 12353 TCF GOFLASH2
058405,000623:
058406,000624: 10,2211 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
058407,000625: 10,2212 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
058408,000626:
058409,000627: 10,2213 32704 CAF MARKFMSK # MARK,FLASH
058410,000628: 10,2214 12353 TCF GOFLASH2
058411,000629:
058412,000630: 10,2215 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
058413,000631: 10,2216 33373 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
058414,000632: 10,2217 12353 TCF GOFLASH2
058415,000633:
058416,000634: 10,2220 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
058417,000635: 10,2221 33360 CAF MARK3MSK
058418,000636: 10,2222 12353 TCF GOFLASH2
058419,000637:
058420,000638: 10,2223 54155 GOMARK4 TS PLAYTEM1
058421,000639: 10,2224 33361 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
058422,000640: 10,2225 12353 TCF GOFLASH2
058423,000641:
058424,000642: 10,2226 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
058425,000643:
058426,000644: 10,2227 34735 CAF BIT15
058427,000645: 10,2230 12331 TCF GODSPR2
058428,000646:
058429,000647: 10,2231 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
058430,000648:
058431,000649: 10,2232 32704 CAF MARKFMSK
058432,000650: 10,2233 12512 TCF GODSPRS
058433,000651:
058434,000652: 10,2234 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058435,000653: 10,2235 33373 CAF MPERFMSK # MARK, PERFORM, FLASH
058436,000654: 10,2236 12512 TCF GODSPRS
058437,000655:
058438,000656: 10,2237 54155 GOMARK3R TS PLAYTEM1
058439,000657: 10,2240 33360 CAF MARK3MSK
058440,000658: 10,2241 12512 TCF GODSPRS
058441,000659:
058442,000660: 10,2242 34753 MAKEMARK CAF ONE
058443,000661: 10,2243 02610 TC COPIES
058444,000662:
058445,000663: 10,2244 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
058446,000664: 10,2245 73374 MASK OCT34300
058447,000665: 10,2246 10000 CCS A
058448,000666: 10,2247 12305 TCF CHKPRIO
058449,000667:
058450,000668: 10,2250 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
058451,000669: 10,2251 74743 MASK MRKNVBIT
058452,000670:
058453,000671: 10,2252 00006 EXTEND
|
|
Page 1350 |
058455,000673: 10,2253 12255 BZF MARKPLAY # NO
058456,000674:
058457,000675: 10,2254 15155 TCF ENDOFJOB
058458,000676:
058459,000677: 10,2255 00004 MARKPLAY INHINT
058460,000678: 10,2256 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
058461,000679: 10,2257 70100 MASK FLAGWRD4
058462,000680: 10,2260 64753 AD ONE
058463,000681: 10,2261 54100 TS FLAGWRD4
058464,000682: 10,2262 00003 RELINT
058465,000683:
058466,000684: 10,2263 41071 GOGOMARK CS MARKFLAG # PERFORM
058467,000685: 10,2264 74747 MASK BIT5
058468,000686: 10,2265 10000 CCS A
058469,000687: 10,2266 12271 TCF MARKCOP
058470,000688: 10,2267 40370 CS MARKNV
058471,000689: 10,2270 54370 TS MARKNV
058472,000690:
058473,000691: 10,2271 34753 MARKCOP CAF ONE # MARK INDEX
058474,000692: 10,2272 12471 TCF PRIOPLAY
058475,000693:
058476,000694: 10,2273 30165 COPYTOGO CA MPAC2SAV
058477,000695: 10,2274 54156 TS MPAC +2
058478,000696:
058479,000697: 10,2275 50164 COPYPACS INDEX COPINDEX
058480,000698: 10,2276 33404 CAF PRIOOCT
058481,000699: 10,2277 54162 TS GENMASK
058482,000700:
058483,000701: 10,2300 50164 INDEX COPINDEX
058484,000702: 10,2301 31070 CAF EBANKSAV
058485,000703: 10,2302 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
058486,000704:
058487,000705: 10,2303 54003 TS EBANK
058488,000706:
058489,000707: 10,2304 00002 TC Q
058490,000708:
058491,000709: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058492,000710: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058493,000711: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058494,000712: # UNTIL ALL MARKING IS FINISHED.
058495,000713:
058496,000714: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058497,000715: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058498,000716:
058499,000717: 10,2305 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
058500,000718: 10,2306 73127 MASK OCT24100
058501,000719: 10,2307 10000 CCS A
058502,000720: 10,2310 13327 TCF MARSLEEP
058503,000721:
058504,000722: 10,2311 40100 CS FLAGWRD4
|
|
Page 1351 |
058506,000724: 10,2312 74751 MASK MKOVBIT # SET MARK OVER NORM
058507,000725: 10,2313 00004 INHINT
058508,000726: 10,2314 26100 ADS FLAGWRD4
058509,000727:
058510,000728: 10,2315 12407 TCF SETNORM
058511,000729:
058512,000730: 10,2316 30370 MARKPERF CA MARKNV
058513,000731: 10,2317 74144 MASK VERBMASK
058514,000732: 10,2320 12773 TCF NV50DSP
058515,000733:
058516,000734: 10,2321 54155 GODSP TS PLAYTEM1
058517,000735:
058518,000736: 10,2322 34755 GODSP2 CAF ZERO
058519,000737: 10,2323 12353 TCF GOFLASH2
058520,000738:
058521,000739: 10,2324 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
058522,000740:
058523,000741: 10,2325 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
058524,000742: 10,2326 12353 TCF GOFLASH2
058525,000743:
058526,000744: 10,2327 54155 GODSPR TS PLAYTEM1
058527,000745:
058528,000746: 10,2330 34755 GODSPR1 CAF ZERO
058529,000747: 10,2331 54160 GODSPR2 TS PLAYTEM4
058530,000748:
058531,000749: 10,2332 34755 CAF ZERO # * DONT MOVE
058532,000750: 10,2333 12514 TCF GODSPRS1
058533,000751:
058534,000752: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058535,000753: # SET UP TO BE STARTED OR RESTARTED.
058536,000754:
058537,000755: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058538,000756: # OLD DISPLAY.
058539,000757:
058540,000758: # CALLING SEQUENCE FOR CLEANDSP-
058541,000759:
058542,000760: # TC BANKCALL
058543,000761: # CADR CLEANDSP
058544,000762:
058545,000763: 10,2334 34755 CLEANDSP CAF ZERO
058546,000764: 10,2335 54155 REFLASH TS PLAYTEM1
058547,000765:
058548,000766: 10,2336 33357 CAF REDOMASK # FLASH AND PERMIT
058549,000767: 10,2337 12353 TCF GOFLASH2
058550,000768:
058551,000769: 10,2340 54155 REFLASHR TS PLAYTEM1
058552,000770:
058553,000771: 10,2341 33357 CAF REDOMASK # FLASH AND PERMIT
058554,000772: 10,2342 12512 TCF GODSPRS
058555,000773:
|
|
Page 1352 |
058557,000775: 10,2343 54155 REGODSP TS PLAYTEM1
058558,000776:
058559,000777: 10,2344 34736 CAF BIT14
058560,000778: 10,2345 12353 TCF GOFLASH2
058561,000779:
058562,000780: 10,2346 54155 REGODSPR TS PLAYTEM1
058563,000781:
058564,000782: 10,2347 34736 CAF BIT14
058565,000783: 10,2350 12331 TCF GODSPR2
058566,000784:
058567,000785: 10,2351 54155 GOFLASH TS PLAYTEM1
058568,000786:
058569,000787: 10,2352 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
058570,000788: 10,2353 54160 GOFLASH2 TS PLAYTEM4
058571,000789:
058572,000790: 10,2354 02575 TC SAVELOCS
058573,000791:
058574,000792: 10,2355 00003 RELINT
058575,000793:
058576,000794: 10,2356 12421 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
058577,000795:
058578,000796: 10,2357 54155 PRIODSPR TS PLAYTEM1
058579,000797:
058580,000798: 10,2360 33376 CAF BITS7+4
058581,000799: 10,2361 12512 TCF GODSPRS
058582,000800:
058583,000801: 10,2362 54155 PRIODSP TS PLAYTEM1
058584,000802:
058585,000803: 10,2363 33376 SETPRIO CAF BITS7+4
058586,000804: 10,2364 12353 TCF GOFLASH2
058587,000805:
058588,000806: 10,2365 34755 MAKEPRIO CAF ZERO
058589,000807: 10,2366 54164 TS COPINDEX
058590,000808:
058591,000809: 10,2367 03247 TC LINUSCHR
058592,000810: 10,2370 12375 TCF HIPRIO # LINUS RETURN
058593,000811: 10,2371 30100 CA FLAGWRD4
058594,000812: 10,2372 73415 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
058595,000813: 10,2373 10000 CCS A
058596,000814: 10,2374 12450 TCF PRIOBORT # YES, ABORT
058597,000815:
058598,000816: 10,2375 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
058599,000817: 10,2376 75642 MASK OCT40400
058600,000818: 10,2377 00006 EXTEND
058601,000819: 10,2400 12403 BZF ASKIFNRM # NO
058602,000820:
058603,000821: 10,2401 34755 SETMARK CAF ZERO
058604,000822: 10,2402 12647 TCF JOBXCHS
058605,000823:
058606,000824: 10,2403 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
|
|
Page 1353 |
058608,000826: 10,2404 73413 MASK OCT10200 # BITS 13+8
058609,000827: 10,2405 00006 EXTEND
058610,000828: 10,2406 12411 BZF OKTOCOPY # NO
058611,000829:
058612,000830: 10,2407 34753 SETNORM CAF ONE
058613,000831: 10,2410 12647 TCF JOBXCHS
058614,000832:
058615,000833: 10,2411 02607 OKTOCOPY TC COPYNORM
058616,000834: 10,2412 03060 TC WITCHONE
058617,000835:
058618,000836: 10,2413 05137 TC JOBWAKE
058619,000837:
058620,000838: 10,2414 03075 TC XCHTOEND
058621,000839:
058622,000840: 10,2415 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
058623,000841: 10,2416 55165 TS PRIOTIME
058624,000842:
058625,000843: 10,2417 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
058626,000844: 10,2420 12471 TCF PRIOPLAY
058627,000845:
058628,000846: 10,2421 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
058629,000847: 10,2422 77724 MASK PRIO37
058630,000848: 10,2423 54163 TS USERPRIO
058631,000849:
058632,000850: 10,2424 37720 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058633,000851: 10,2425 05146 TC PRIOCHNG
058634,000852:
058635,000853: 10,2426 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
058636,000854: 10,2427 73375 MASK BITS15+7
058637,000855: 10,2430 10000 CCS A
058638,000856: 10,2431 12365 TCF MAKEPRIO # ITS PRIO
058639,000857: 10,2432 12434 TCF IFLEGAL
058640,000858: 10,2433 12242 TCF MAKEMARK # ITS MARK
058641,000859:
058642,000860: 10,2434 34752 IFLEGAL CAF TWO
058643,000861: 10,2435 54164 TS COPINDEX
058644,000862:
058645,000863: 10,2436 03247 TC LINUSCHR
058646,000864:
058647,000865: 10,2437 12452 TCF OKTOPLAY # LINUS RETURN
058648,000866: 10,2440 41072 CS EBANKTEM
058649,000867: 10,2441 74750 MASK BIT4
058650,000868: 10,2442 10000 CCS A
058651,000869: 10,2443 12452 TCF OKTOPLAY # NO
058652,000870:
058653,000871: 10,2444 30100 CA FLAGWRD4 # WAS NORM ASLEEP
058654,000872: 10,2445 73366 MASK NBUSMASK # ARE ANY NORMS ASLEEP
058655,000873: 10,2446 00006 EXTEND
058656,000874: 10,2447 12452 BZF OKTOPLAY # NO
058657,000875:
|
|
Page 1354 |
058659,000877: 10,2450 05652 PRIOBORT TC POODOO
058660,000878: 10,2451 01502 OCT 1502
058661,000879:
058662,000880: 10,2452 02611 OKTOPLAY TC COPIES2
058663,000881:
058664,000882: 10,2453 30163 CA USERPRIO
058665,000883: 10,2454 00006 EXTEND
058666,000884: 10,2455 04007 ROR SUPERBNK
058667,000885: 10,2456 54366 TS RESTREG
058668,000886:
058669,000887: 10,2457 30100 CA FLAGWRD4 # PRIO OR MARK GOING
058670,000888: 10,2460 73367 MASK PMMASK
058671,000889: 10,2461 10000 CCS A
058672,000890: 10,2462 12627 TCF GOSLEEPS # YES
058673,000891:
058674,000892: 10,2463 12465 TCF +2
058675,000893: 10,2464 12627 TCF GOSLEEPS # MARK GOING
058676,000894:
058677,000895: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
058678,000896: 10,2465 03060 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
058679,000897: 10,2466 05137 TC JOBWAKE
058680,000898:
058681,000899: 10,2467 03075 TC XCHTOEND
058682,000900:
058683,000901: 10,2470 34752 PLAYJUM1 CAF TWO
058684,000902: 10,2471 54164 PRIOPLAY TS COPINDEX
058685,000903:
058686,000904: 10,2472 12743 TCF GOPLAY
058687,000905:
058688,000906: 10,2473 54155 EXDSPRET TS PLAYTEM1
058689,000907:
058690,000908: 10,2474 37733 CAF BIT15+6
058691,000909: 10,2475 12353 TCF GOFLASH2
058692,000910:
058693,000911: 10,2476 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
058694,000912: 10,2477 33351 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
058695,000913:
058696,000914: 10,2500 54155 GOPERFS TS PLAYTEM1
058697,000915:
058698,000916: 10,2501 33350 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058699,000917: 10,2502 12353 TCF GOFLASH2
058700,000918:
058701,000919: 10,2503 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058702,000920:
058703,000921: 10,2504 33354 CAF PERF2MSK
058704,000922: 10,2505 12353 TCF GOFLASH2
058705,000923:
058706,000924: 10,2506 02570 GOPERF4 TC PURRS4
058707,000925:
058708,000926: 10,2507 12353 TCF GOFLASH2
058709,000927:
|
|
Page 1355 |
058711,000929: 10,2510 54155 GOFLASHR TS PLAYTEM1
058712,000930:
058713,000931: 10,2511 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
058714,000932: 10,2512 54160 GODSPRS TS PLAYTEM4
058715,000933:
058716,000934: 10,2513 36244 CAF THREE
058717,000935:
058718,000936: 10,2514 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
058719,000937: 10,2515 54072 TS RUPTREG3
058720,000938:
058721,000939: 10,2516 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
058722,000940: 10,2517 77724 MASK PRIO37
058723,000941: 10,2520 54063 TS NEWPRIO
058724,000942:
058725,000943: 10,2521 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
058726,000944: 10,2522 74750 MASK BIT4
058727,000945: 10,2523 10000 CCS A
058728,000946: 10,2524 12532 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
058729,000947: 10,2525 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
058730,000948: 10,2526 05072 TC NOVAC
058731,000949: 10,2527 E7,1467 EBANK= WHOCARES
058732,000950: 10,2527 02421 20067 2CADR MAKEPLAY
058733,000951:
058734,000952: 10,2531 12540 TCF BOTHJOBS
058735,000953:
058736,000954: 10,2532 30006 VACDSP CA BBANK
058737,000955: 10,2533 00006 EXTEND
058738,000956: 10,2534 04007 ROR SUPERBNK
058739,000957: 10,2535 54001 TS L
058740,000958: 10,2536 33412 CAF MAKEGEN
058741,000959: 10,2537 05116 TC SPVAC
058742,000960:
058743,000961: 10,2540 02575 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
058744,000962:
058745,000963: 10,2541 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
058746,000964: 10,2542 30156 DCA MPAC +1
058747,000965: 10,2543 50064 INDEX LOCCTR
058748,000966: 10,2544 52156 DXCH MPAC +1
058749,000967:
058750,000968: 10,2545 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
058751,000969: 10,2546 30160 DCA MPAC +3
058752,000970: 10,2547 50064 INDEX LOCCTR
058753,000971: 10,2550 52160 DXCH MPAC +3
058754,000972:
058755,000973: 10,2551 30064 CA LOCCTR
058756,000974: 10,2552 54161 TS MPAC +5
058757,000975:
058758,000976: 10,2553 02602 TC SAVELOCR
058759,000977: 10,2554 00003 RELINT
058760,000978:
|
|
Page 1356 |
058762,000980: 10,2555 14640 TCF BANKJUMP # CALL CADR +4
058763,000981:
058764,000982: 10,2556 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
058765,000983:
058766,000984: 10,2557 33351 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
058767,000985:
058768,000986: 10,2560 54155 GOPERFRS TS PLAYTEM1
058769,000987:
058770,000988: 10,2561 33350 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058771,000989: 10,2562 12512 TCF GODSPRS
058772,000990:
058773,000991: 10,2563 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058774,000992:
058775,000993: 10,2564 33354 CAF PERF2MSK
058776,000994: 10,2565 12512 TCF GODSPRS
058777,000995:
058778,000996: 10,2566 02570 GOPERF4R TC PURRS4
058779,000997:
058780,000998: 10,2567 12512 TCF GODSPRS
058781,000999:
058782,001000: 10,2570 55144 PURRS4 TS OPTION1 # DESIRED OPTION CODE
058783,001001:
058784,001002: 10,2571 33355 CAF V04N06
058785,001003: 10,2572 54155 TS PLAYTEM1
058786,001004:
058787,001005: 10,2573 33356 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3
058788,001006: 10,2574 00002 TC Q
058789,001007:
058790,001008: 10,2575 00004 SAVELOCS INHINT
058791,001009:
058792,001010: 10,2576 43365 CS OCT3400 # EBANK BITS
058793,001011: 10,2577 70160 MASK PLAYTEM4
058794,001012: 10,2600 60003 AD EBANK
058795,001013: 10,2601 54160 TS PLAYTEM4
058796,001014:
058797,001015: 10,2602 22002 SAVELOCR LXCH Q
058798,001016:
058799,001017: 10,2603 04645 TC MAKECADR
058800,001018: 10,2604 54157 TS PLAYTEM3
058801,001019:
058802,001020: 10,2605 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
058803,001021: 10,2606 00001 TC L
058804,001022:
058805,001023: 10,2607 34755 COPYNORM CAF ZERO
058806,001024: 10,2610 54164 COPIES TS COPINDEX
058807,001025: 10,2611 00004 COPIES2 INHINT
058808,001026: 10,2612 30160 CA PLAYTEM4 # FLAGWORD
058809,001027: 10,2613 50164 INDEX COPINDEX
058810,001028: 10,2614 55070 TS EBANKSAV # EQUIV TO DSPFLG
058811,001029:
|
|
Page 1357 |
058813,001031: 10,2615 73403 MASK CADRMASK # FLASH AND GODSPRET
058814,001032: 10,2616 00006 EXTEND
058815,001033: 10,2617 12623 BZF SKIPADD
058816,001034:
058817,001035: 10,2620 30157 CA PLAYTEM3
058818,001036: 10,2621 50164 INDEX COPINDEX
058819,001037: 10,2622 54372 TS CADRFLSH
058820,001038:
058821,001039: 10,2623 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
058822,001040: 10,2624 50164 INDEX COPINDEX
058823,001041: 10,2625 54367 TS NVWORD
058824,001042:
058825,001043: 10,2626 13104 TCF RELINTQ
058826,001044:
058827,001045: 10,2627 50164 GOSLEEPS INDEX COPINDEX
058828,001046: 10,2630 33404 CA PRIOOCT
058829,001047: 10,2631 72633 MASK WAITMASK
058830,001048: 10,2632 03416 TC UPENT2
058831,001049: 10,2633 03004 WAITMASK OCT 3004
058832,001050: 10,2634 44753 CS ONE
058833,001051: 10,2635 60164 AD COPINDEX
058834,001052: 10,2636 54154 TS FACEREG
058835,001053:
058836,001054: 10,2637 50154 XCHSLEEP INDEX FACEREG
058837,001055: 10,2640 33363 CAF WAKECADR
058838,001056: 10,2641 00004 INHINT
058839,001057: 10,2642 05137 TC JOBWAKE # FIND CADR IN JOB AREA
058840,001058:
058841,001059: 10,2643 03075 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
058842,001060:
058843,001061: 10,2644 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
058844,001062: 10,2645 33363 CAF WAKECADR
058845,001063: 10,2646 15133 TCF JOBSLEEP
058846,001064:
058847,001065: 10,2647 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
058848,001066: 10,2650 03060 TC WITCHONE
058849,001067: 10,2651 05137 TC JOBWAKE
058850,001068: 10,2652 30154 CA FACEREG
058851,001069: 10,2653 50064 INDEX LOCCTR
058852,001070: 10,2654 54154 TS FACEREG
058853,001071:
058854,001072: 10,2655 32670 CAF XCHQADD
058855,001073: 10,2656 03076 TC XCHNYLOC
058856,001074:
058857,001075: 10,2657 50154 INDEX FACEREG
058858,001076: 10,2660 33405 CA MARKOCT
058859,001077: 10,2661 73407 MASK IDLESLEP
058860,001078: 10,2662 03434 TC DOWNENT2
058861,001079: 10,2663 74004 IDLEMASK OCT 74004 # * DONT MOVE
058862,001080:
|
|
Page 1358 |
058864,001082: 10,2664 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
058865,001083: 10,2665 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
058866,001084: 10,2666 64751 AD FOUR
058867,001085: 10,2667 03416 TC UPENT2 # FLAG ROUTINE DOES RELINT
058868,001086: 10,2670 02637 XCHQADD GENADR XCHSLEEP # * DONT MOVE
058869,001087: 10,2671 30100 CA FLAGWRD4
058870,001088: 10,2672 74751 MASK MKOVBIT # MARK OVER NORM ?
058871,001089: 10,2673 10000 CCS A
058872,001090: 10,2674 02255 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
058873,001091: 10,2675 12411 TCF OKTOCOPY
058874,001092:
058875,001093: 10,2676 34755 MARKWAKE CAF ZERO
058876,001094: 10,2677 54160 WAKEPLAY TS TEMPOR2
058877,001095:
058878,001096: 10,2700 50160 INDEX TEMPOR2
058879,001097: 10,2701 33377 CA BITS5+11
058880,001098: 10,2702 64751 AD FOUR
058881,001099: 10,2703 03434 TC DOWNENT2
058882,001100: 10,2704 40010 MARKFMSK OCT 40010 # ***DONT MOVE
058883,001101:
058884,001102: 10,2705 50160 INDEX TEMPOR2
058885,001103: 10,2706 33363 CAF WAKECADR
058886,001104: 10,2707 00004 INHINT
058887,001105: 10,2710 05137 TC JOBWAKE
058888,001106:
058889,001107: 10,2711 13210 TCF ENDRET
058890,001108:
058891,001109: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
058892,001110: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
058893,001111: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
058894,001112: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
058895,001113:
058896,001114: 10,2712 31072 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
058897,001115: 10,2713 54003 TS EBANK
058898,001116:
058899,001117: 10,2714 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
058900,001118: 10,2715 04727 TC SUPERSW # RESTORE SUPERBANK
058901,001119:
058902,001120: 10,2716 77724 MASK PRIO37
058903,001121: 10,2717 05146 TC PRIOCHNG
058904,001122:
058905,001123: 10,2720 46244 CS THREE
058906,001124: 10,2721 60374 AD TEMPFLSH
058907,001125: 10,2722 14640 TCF BANKJUMP
058908,001126:
058909,001127: 10,2723 00003 PINBRNCH RELINT # FOR GOPIN USERS
058910,001128: 10,2724 31073 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
058911,001129: 10,2725 54156 TS MPAC +2 # ONLY
058912,001130:
058913,001131: 10,2726 30100 CA FLAGWRD4 # PINBRANCH CONDITION
|
|
Page 1359 |
058915,001133: 10,2727 77737 MASK PINMASK
058916,001134: 10,2730 10000 CCS A
058917,001135: 10,2731 12734 TCF +3
058918,001136: 10,2732 13344 TCF ERASER # ** NOTHING IN ENDIDLE
058919,001137: 10,2733 12255 TCF MARKPLAY
058920,001138:
058921,001139: 10,2734 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
058922,001140: 10,2735 00105 ADRES PINBRFLG
058923,001141:
058924,001142: 10,2736 34736 CAF PRIODBIT # PRIO INTERRUPTED
058925,001143: 10,2737 70100 MASK FLAGWRD4
058926,001144: 10,2740 10000 CCS A
058927,001145: 10,2741 12417 TCF KEEPPRIO
058928,001146:
058929,001147: 10,2742 12470 TCF PLAYJUM1
058930,001148:
058931,001149: 10,2743 02275 NVDSP TC COPYPACS
058932,001150:
058933,001151: 10,2744 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
058934,001152: 10,2745 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
058935,001153: 10,2746 54001 TS L
058936,001154:
058937,001155: 10,2747 44737 CS BIT13
058938,001156: 10,2750 50164 INDEX COPINDEX
058939,001157: 10,2751 71070 MASK DSPFLG
058940,001158: 10,2752 50164 INDEX COPINDEX
058941,001159: 10,2753 55070 TS DSPFLG
058942,001160:
058943,001161: 10,2754 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
058944,001162: 10,2755 54141 TS TEM1
058945,001163:
058946,001164: 10,2756 30156 CA MPAC +2
058947,001165: 10,2757 54165 TS MPAC2SAV
058948,001166:
058949,001167: 10,2760 55073 TS MARK2PAC # * FOR DISK ONLY *
058950,001168: 10,2761 50164 INDEX COPINDEX
058951,001169: 10,2762 10367 CCS NVWORD
058952,001170: 10,2763 12772 TCF NVDSP1
058953,001171: 10,2764 13106 TCF CLEANEND
058954,001172: 10,2765 40370 CS MARKNV
058955,001173: 10,2766 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
058956,001174: 10,2767 76073 MASK LOW7
058957,001175: 10,2770 63370 AD V05N00M1
058958,001176: 10,2771 60141 AD TEM1
058959,001177: 10,2772 64753 NVDSP1 AD ONE
058960,001178: 10,2773 04155 NV50DSP TC NVMONOPT
058961,001179: 10,2774 13120 TCF REST # IF BUSY
058962,001180: 10,2775 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
058963,001181:
058964,001182: 10,2776 02273 TC COPYTOGO # MPACS DESTROYED BY NVSUB
|
|
Page 1360 |
058966,001184: 10,2777 05516 TC DOWNFLAG # UNSET SLEEPING BITS
058967,001185: 10,3000 00102 ADRES MRKNVFLG
058968,001186: 10,3001 05516 TC DOWNFLAG
058969,001187: 10,3002 00103 ADRES NRMNVFLG
058970,001188: 10,3003 05516 TC DOWNFLAG
058971,001189: 10,3004 00104 ADRES PRONVFLG
058972,001190: 10,3005 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
058973,001191: 10,3006 04255 TC BLANKSUB
058974,001192: 10,3007 12743 TCF NVDSP
058975,001193: 10,3010 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
058976,001194: 10,3011 70160 MASK TEMPOR2
058977,001195: 10,3012 10000 CCS A # IS THIS A GOPERF DISPLAY
058978,001196: 10,3013 13036 TCF 1STOR2ND # YES
058979,001197:
058980,001198: 10,3014 34750 GOANIDLE CAF BIT4
058981,001199: 10,3015 70160 MASK TEMPOR2
058982,001200: 10,3016 10000 CCS A
058983,001201: 10,3017 13133 TCF FLASHSUB # IT IS
058984,001202:
058985,001203: 10,3020 40160 CS TEMPOR2 # IS THIS A GODSPRET
058986,001204: 10,3021 74746 MASK BIT6
058987,001205: 10,3022 10000 CCS A
058988,001206: 10,3023 13030 TCF ISITN00
058989,001207:
058990,001208: 10,3024 50164 INDEX COPINDEX
058991,001209: 10,3025 30372 CA CADRFLSH
058992,001210: 10,3026 54157 TS MPAC +3
058993,001211: 10,3027 13226 TCF ENDIT
058994,001212:
058995,001213: 10,3030 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
058996,001214: 10,3031 30367 CA NVWORD
058997,001215: 10,3032 76073 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058998,001216: 10,3033 00006 EXTEND
058999,001217: 10,3034 13133 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
059000,001218:
059001,001219: 10,3035 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
059002,001220:
059003,001221: 10,3036 30160 1STOR2ND CA TEMPOR2
059004,001222: 10,3037 74737 MASK BIT13
059005,001223: 10,3040 10000 CCS A
059006,001224: 10,3041 13014 TCF GOANIDLE # SECOND
059007,001225:
059008,001226: 10,3042 34737 CA BIT13
059009,001227: 10,3043 50164 INDEX COPINDEX
059010,001228: 10,3044 27070 ADS DSPFLG
059011,001229:
059012,001230: 10,3045 22007 ZL
059013,001231: 10,3046 00006 EXTEND # IS IT MARK
059014,001232: 10,3047 62316 BZMF MARKPERF # YES
059015,001233:
|
|
Page 1361 |
059017,001235: 10,3050 74740 MASK BIT12
059018,001236: 10,3051 00006 EXTEND
059019,001237: 10,3052 13056 BZF V50PASTE
059020,001238: 10,3053 41067 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059021,001239: 10,3054 63414 AD V97N00
059022,001240: 10,3055 12773 TCF NV50DSP
059023,001241: 10,3056 33353 V50PASTE CAF V50N00
059024,001242: 10,3057 12773 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
059025,001243:
059026,001244: 10,3060 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
059027,001245: 10,3061 00006 EXTEND
059028,001246: 10,3062 03011 WAND DSALMOUT
059029,001247:
059030,001248: 10,3063 30100 CA FLAGWRD4
059031,001249: 10,3064 73371 MASK NVBUSMSK # IS IT NVSUB ASLEEP
059032,001250: 10,3065 10000 CCS A
059033,001251: 10,3066 34753 CAF ONE
059034,001252: 10,3067 54001 TS L
059035,001253: 10,3070 34755 CAF ZERO
059036,001254: 10,3071 50001 INDEX L
059037,001255: 10,3072 57042 XCH CADRSTOR
059038,001256:
059039,001257: 10,3073 00004 INHINT
059040,001258: 10,3074 00002 TC Q
059041,001259:
059042,001260: 10,3075 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
059043,001261: 10,3076 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
059044,001262: 10,3077 00006 EXTEND
059045,001263: 10,3100 63104 BZMF RELINTQ # NO
059046,001264: 10,3101 56064 XCH LOCCTR # YES
059047,001265: 10,3102 50064 INDEX LOCCTR
059048,001266: 10,3103 54164 TS LOC
059049,001267:
059050,001268: 10,3104 00003 RELINTQ RELINT
059051,001269: 10,3105 00002 TC Q # BACK TO USER
059052,001270:
059053,001271: 10,3106 37717 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
059054,001272: 10,3107 05105 TC FINDVAC
059055,001273: 10,3110 0371 EBANK= NVSAVE
059056,001274: 10,3110 04231 04060 2CADR JAMTERM
059057,001275:
059058,001276:
059059,001277: 10,3112 13134 TCF FLASHSUB +1
059060,001278:
059061,001279: 10,3113 30100 ISITPRIO CA FLAGWRD4
059062,001280: 10,3114 73141 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
059063,001281: 10,3115 00006 EXTEND
059064,001282: 10,3116 12450 BZF PRIOBORT
059065,001283: 10,3117 15155 TCF ENDOFJOB
059066,001284:
|
|
Page 1362 |
059068,001286: 10,3120 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
059069,001287: 10,3121 15155 TCF ENDOFJOB # YES
059070,001288: 10,3122 13124 TCF RESTSLEP
059071,001289:
059072,001290: 10,3123 15155 TCF ENDOFJOB
059073,001291:
059074,001292: 10,3124 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
059075,001293: 10,3125 73372 MASK ASTROMSK
059076,001294: 10,3126 03416 TC UPENT2
059077,001295: 10,3127 24100 OCT24100 OCT 24100 # *** DONT MOVE
059078,001296:
059079,001297: 10,3130 50164 INDEX COPINDEX
059080,001298: 10,3131 33362 CAF NVCADR
059081,001299: 10,3132 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
059082,001300:
059083,001301: 10,3133 04427 FLASHSUB TC FLASHON
059084,001302:
059085,001303: 10,3134 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
059086,001304: 10,3135 54157 TS COPMPAC
059087,001305:
059088,001306: 10,3136 30162 CA GENMASK
059089,001307: 10,3137 72663 MASK IDLEMASK
059090,001308: 10,3140 03416 TC UPENT2
059091,001309: 10,3141 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
059092,001310:
059093,001311: 10,3142 31074 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
059094,001312: 10,3143 50164 INDEX COPINDEX
059095,001313: 10,3144 74751 MASK BIT3
059096,001314: 10,3145 10000 CCS A
059097,001315: 10,3146 13233 TCF UNSETR1 # YES
059098,001316:
059099,001317: 10,3147 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
059100,001318: 10,3150 13113 TCF ISITPRIO
059101,001319: 10,3151 13153 TCF +2
059102,001320: 10,3152 13113 TCF ISITPRIO
059103,001321:
059104,001322: 10,3153 04207 TC ENDIDLE
059105,001323: 10,3154 13245 IDLERET1 TCF TERMATE
059106,001324:
059107,001325: 10,3155 13264 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
059108,001326:
059109,001327: 10,3156 43401 CS LOWLOAD
059110,001328: 10,3157 60154 AD MPAC # VERBREG
059111,001329: 10,3160 00006 EXTEND
059112,001330: 10,3161 26000 DIM A
059113,001331: 10,3162 00006 EXTEND
059114,001332: 10,3163 13334 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
059115,001333: 10,3164 34752 OKTOENT CAF TWO
059116,001334: 10,3165 54161 ENDOUT TS OUTHERE
059117,001335:
|
|
Page 1363 |
059119,001337: 10,3166 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
059120,001338: 10,3167 74101 MASK OCT60000
059121,001339: 10,3170 10000 CCS A
059122,001340: 10,3171 13174 TCF TIMECHEK # PRIO ENDIDLE RETURN
059123,001341: 10,3172 13302 TCF NORMRET # NORMAL ENDIDLE RETURN
059124,001342: 10,3173 13266 TCF MARKRET # MARK ENDIDLE RETURN
059125,001343:
059126,001344: 10,3174 40025 TIMECHEK CS TIME1
059127,001345: 10,3175 61165 AD PRIOTIME
059128,001346: 10,3176 10000 CCS A
059129,001347: 10,3177 40000 COM
059130,001348: 10,3200 67730 AD OCT37776
059131,001349: 10,3201 64753 AD ONE
059132,001350: 10,3202 63457 AD -2SEC
059133,001351: 10,3203 00006 EXTEND
059134,001352: 10,3204 62417 BZMF KEEPPRIO
059135,001353:
059136,001354: 10,3205 13302 TCF NORMRET
059137,001355:
059138,001356: 10,3206 34753 NORMWAKE CAF ONE
059139,001357: 10,3207 12677 TCF WAKEPLAY
059140,001358:
059141,001359: 10,3210 10161 ENDRET CCS OUTHERE
059142,001360: 10,3211 64753 AD ONE
059143,001361: 10,3212 13214 TCF +2 # NORMAL ENDIDLE EXIT
059144,001362: 10,3213 15155 TCF ENDOFJOB
059145,001363: 10,3214 50157 INDEX COPMPAC
059146,001364: 10,3215 60372 AD CADRFLSH
059147,001365: 10,3216 54157 TS MPAC +3
059148,001366:
059149,001367: 10,3217 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
059150,001368: 10,3220 73222 MASK PINIDMSK
059151,001369: 10,3221 03434 TC DOWNENT2
059152,001370: 10,3222 74044 PINIDMSK OCT 74044 # *** DONT MOVE
059153,001371:
059154,001372: 10,3223 46244 CS THREE # BLANK EVERYTHING EXCEPT MM
059155,001373: 10,3224 04154 TC NVSUB
059156,001374: 10,3225 13226 TCF +1
059157,001375:
059158,001376: 10,3226 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
059159,001377: 10,3227 77724 MASK PRIO37
059160,001378: 10,3230 05146 TC PRIOCHNG
059161,001379: 10,3231 30157 CA MPAC +3
059162,001380: 10,3232 14640 TCF BANKJUMP
059163,001381:
059164,001382: 10,3233 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
059165,001383: 10,3234 44751 CS BIT3
059166,001384: 10,3235 71074 MASK R1SAVE
059167,001385: 10,3236 55074 TS R1SAVE
059168,001386:
|
|
Page 1364 |
059170,001388: 10,3237 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
059171,001389: 10,3240 04727 TC SUPERSW # SUPERBANK 0
059172,001390:
059173,001391: 10,3241 36244 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
059174,001392: 10,3242 50164 IMMEDRET INDEX COPINDEX
059175,001393: 10,3243 60372 AD CADRFLSH
059176,001394: 10,3244 14640 TCF BANKJUMP
059177,001395:
059178,001396: 10,3245 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
059179,001397: 10,3246 13165 TCF ENDOUT
059180,001398:
059181,001399: 10,3247 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
059182,001400: 10,3250 74736 MASK BIT14
059183,001401: 10,3251 10000 CCS A
059184,001402: 10,3252 16736 TCF Q+1 # NO
059185,001403: 10,3253 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
059186,001404: 10,3254 50164 INDEX COPINDEX
059187,001405: 10,3255 60372 AD CADRFLSH
059188,001406: 10,3256 00006 EXTEND
059189,001407: 10,3257 13261 BZF +2 # YES
059190,001408:
059191,001409: 10,3260 00002 TC Q # NO
059192,001410: 10,3261 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
059193,001411: 10,3262 05155 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
059194,001412: 10,3263 00002 TC Q
059195,001413:
059196,001414: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059197,001415: 10,3264 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
059198,001416: 10,3265 13165 TCF ENDOUT
059199,001417:
059200,001418: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059201,001419: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059202,001420: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059203,001421:
059204,001422: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059205,001423: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059206,001424: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059207,001425: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059208,001426:
059209,001427: 10,3266 46241 MARKRET CS SIX
059210,001428: 10,3267 70100 MASK FLAGWRD4
059211,001429: 10,3270 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
059212,001430: 10,3271 54100 TS FLAGWRD4
059213,001431:
059214,001432: 10,3272 00003 RELINT # INHINT REALM
059215,001433: 10,3273 13210 TCF ENDRET
059216,001434:
059217,001435: 10,3274 37746 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059218,001436: 10,3275 54161 TS OUTHERE
059219,001437:
|
|
Page 1365 |
059221,001439: 10,3276 30100 CA FLAGWRD4 # IS ENDIDFLG SET
059222,001440: 10,3277 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
059223,001441: 10,3300 10000 CCS A
059224,001442: 10,3301 12734 TCF NORMBNCH
059225,001443:
059226,001444: 10,3302 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
059227,001445: 10,3303 73377 MASK BITS5+11 # OR WAITING
059228,001446: 10,3304 10000 CCS A
059229,001447: 10,3305 12676 TCF MARKWAKE
059230,001448:
059231,001449: 10,3306 30100 CA FLAGWRD4 # NO
059232,001450: 10,3307 73400 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
059233,001451: 10,3310 10000 CCS A
059234,001452: 10,3311 13206 TCF NORMWAKE # YES
059235,001453:
059236,001454: 10,3312 31072 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
059237,001455: 10,3313 74771 MASK OCT50 # OR A GODSPRET
059238,001456: 10,3314 10000 CCS A
059239,001457: 10,3315 13210 TCF ENDRET # YES
059240,001458: 10,3316 30371 CA NVSAVE
059241,001459: 10,3317 00006 EXTEND
059242,001460: 10,3320 13210 BZF ENDRET
059243,001461:
059244,001462: 10,3321 35025 CAF PRIO15
059245,001463: 10,3322 00004 INHINT
059246,001464: 10,3323 05072 TC NOVAC
059247,001465: 10,3324 0367 EBANK= NVWORD
059248,001466: 10,3324 02470 20060 2CADR PLAYJUM1
059249,001467:
059250,001468:
059251,001469: 10,3326 13210 TCF ENDRET
059252,001470:
059253,001471: 10,3327 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
059254,001472: 10,3330 73377 MASK BITS5+11
059255,001473: 10,3331 10000 CCS A
059256,001474: 10,3332 15155 TCF ENDOFJOB # YES
059257,001475: 10,3333 12627 TCF GOSLEEPS
059258,001476:
059259,001477: 10,3334 50157 LOADITIS INDEX COPMPAC
059260,001478: 10,3335 30367 CA NVWORD
059261,001479: 10,3336 76073 MASK LOW7
059262,001480: 10,3337 40000 COM
059263,001481: 10,3340 60155 AD MPAC +1 # NOUNREG
059264,001482: 10,3341 00006 EXTEND
059265,001483: 10,3342 13164 BZF OKTOENT # NO, THEN LOAD IS VALID
059266,001484: 10,3343 12723 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059267,001485:
059268,001486: 10,3344 46244 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
059269,001487: 10,3345 04154 TC NVSUB
059270,001488: 10,3346 15155 TCF ENDOFJOB
|
|
Page 1366 |
059272,001490: 10,3347 15155 TCF ENDOFJOB
059273,001491:
059274,001492: 10,3350 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
059275,001493: 10,3351 00231 V01N25 VN 00125
059276,001494: 10,3352 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
059277,001495: 10,3353 14400 V50N00 VN 5000
059278,001496: 10,3354 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
059279,001497: 10,3355 01006 V04N06 VN 00406
059280,001498: 10,3356 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
059281,001499: 10,3357 10,2723 GOAGIN EQUALS PINBRNCH
059282,001500: 10,3357 20010 REDOMASK OCT 20010 # BITS 4 AND 14
059283,001501: 10,3360 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
059284,001502: 10,3361 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
059285,001503: 10,3362 20415 NVCADR CADR REDOPRIO
059286,001504: 10,3363 20255 WAKECADR CADR MARKPLAY
059287,001505: 10,3364 20470 CADR PLAYJUM1
059288,001506:
059289,001507: 10,3365 03400 OCT3400 OCT 3400 # EBANK MASK
059290,001508: 10,3366 11210 NBUSMASK OCT 11210
059291,001509: 10,3367 66521 PMMASK OCT 66521
059292,001510: 10,3370 4144 VERBMASK = MID7 # (OCT 37600)
059293,001511: 10,3370 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
059294,001512: 10,3371 10,2206 GOXDSP EQUALS GOMARK
059295,001513: 10,3371 10,2226 GOXDSPR EQUALS GOMARKR
059296,001514: 10,3371 10,2212 GOXDSPF EQUALS GOMARKF
059297,001515: 10,3371 10,2231 GOXDSPFR EQUALS GOMARKFR
059298,001516: 10,3371 5472 ENDEXT EQUALS ENDMARK
059299,001517: 10,3371 0165 MPAC2SAV EQUALS BANKSET
059300,001518: 10,3371 00700 NVBUSMSK OCT 700
059301,001519: 10,3372 00704 ASTROMSK OCT 704
059302,001520: 10,3373 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
059303,001521: 10,3374 34300 OCT34300 OCT 34300
059304,001522: 10,3375 40100 BITS15+7 OCT 40100
059305,001523: 10,3376 00110 BITS7+4 OCT 110
059306,001524: 10,3377 1070 DSPFLG EQUALS EBANKSAV
059307,001525: 10,3377 1071 MARKFLAG EQUALS MARKEBAN
059308,001526: 10,3377 1072 SAVEFLAG EQUALS EBANKTEM
059309,001527: 10,3377 02020 BITS5+11 OCT 2020 # * DONT MOVE
059310,001528: 10,3400 01010 BITS4+10 OCT 1010 # * DONT MOVE
059311,001529: 10,3401 00026 LOWLOAD DEC 22 B-14
059312,001530: 10,3402 77730 BUSYMASK OCT 77730
059313,001531: 10,3403 00050 CADRMASK OCT 50
059314,001532: 10,3404 7737 PINMASK EQUALS 13,14,15
059315,001533: 10,3404 10,2743 GOPLAY EQUALS NVDSP
059316,001534: # PRIOSAVE EQUALS R1SAVE
059317,001535: 10,3404 0157 COPMPAC EQUALS MPAC +3
059318,001536: 10,3404 0160 TEMPOR2 EQUALS MPAC +4
059319,001537: 10,3404 0161 OUTHERE EQUALS MPAC +5
059320,001538: 10,3404 0164 COPINDEX EQUALS LOC
059321,001539: 10,3404 0163 USERPRIO EQUALS MODE
|
|
Page 1367 |
059323,001541: 10,3404 0162 GENMASK EQUALS MPAC +6
059324,001542: 10,3404 20144 PRIOOCT OCT 20144 # PRIO
059325,001543: 10,3405 42424 MARKOCT OCT 42424 # MARK
059326,001544: 10,3406 11254 OCT 11254 # NORM
059327,001545:
059328,001546: 10,3407 74704 IDLESLEP OCT 74704
059329,001547: 10,3410 67777 OCT67777 OCT 67777
059330,001548: 10,3411 5464 LINUS EQUALS BLANKET
059331,001549: 10,3411 0154 FACEREG EQUALS MPAC
059332,001550: 10,3411 0155 PLAYTEM1 EQUALS MPAC +1
059333,001551: 10,3411 0157 PLAYTEM3 EQUALS MPAC +3
059334,001552: 10,3411 0160 PLAYTEM4 EQUALS MPAC +4
059335,001553: 10,3411 40420 OCT40420 OCT 40420
059336,001554: 10,3412 02421 MAKEGEN GENADR MAKEPLAY
059337,001555: 10,3413 10200 OCT10200 OCT 10200
059338,001556: 10,3414 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
059339,001557: 10,3415 20100 OCT20100 OCT 20100
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc