Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
058573,000002: ## Copyright: Public domain.
058574,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
058575,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
058576,000005: ## otherwise known as Luminary Rev 99, the second release
058577,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
058578,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
058579,000008: ## placement of a single label. The corrections shown here have
058580,000009: ## been verified to have the same bank checksums as AGC developer
058581,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
058582,000011: ## to be accurate. This file is intended to be a faithful
058583,000012: ## recreation, except that the code format has been changed to
058584,000013: ## conform to the requirements of the yaYUL assembler rather than
058585,000014: ## the original YUL assembler.
058586,000015: ##
058587,000016: ## Assembler: yaYUL
058588,000017: ## Contact: Ron Burkey <info@sandroid.org>.
058589,000018: ## Website: www.ibiblio.org/apollo.
058590,000019: ## Pages: 1341-1373
058591,000020: ## Mod history: 2009-05-27 RSB Adapted from the corresponding
058592,000021: ## Luminary131 file, using page
058593,000022: ## images from Luminary 1A.
058594,000023: ## 2011-01-06 JL Fixed pseudo-label indentation.
058595,000024: ## 2011-05-08 JL Removed workaround.
058596,000025: ## 2016-12-18 RSB Proofed text comments with octopus/ProoferComments
058597,000026: ## and corrected the errors found.
058598,000027: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
058599,000028: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
058600,000029: ## side-by-side diff of Luminary 69/99/116/131/210.
058601,000030: ## 2017-08-01 MAS Created from LMY99 Rev 1.
058602,000031:
058603,000032: ## This source code has been transcribed or otherwise adapted from
058604,000033: ## digitized images of a hardcopy from the MIT Museum. The digitization
058605,000034: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
058606,000035: ## the Museum. Many thanks to both. The images (with suitable reduction
058607,000036: ## in storage size and consequent reduction in image quality as well) are
058608,000037: ## available online at www.ibiblio.org/apollo. If for some reason you
058609,000038: ## find that the images are illegible, contact me at info@sandroid.org
058610,000039: ## about getting access to the (much) higher-quality images which Paul
058611,000040: ## actually created.
058612,000041: ##
058613,000042: ## The code has been modified to match LMY99 Revision 0, otherwise
058614,000043: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
058615,000044: ## the listing from which it was transcribed. It has been verified to
058616,000045: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
058617,000046: ## of Luminary Revision 99 (for which we do not have scans).
058618,000047: ##
058619,000048: ## Notations on Allan Klumpp's listing read, in part:
058620,000049: ##
058621,000050: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
058622,000051:
![]() |
Page 1341 |
058624,000053: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
058625,000054: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
058626,000055: # OUT UNDER CRITICAL ALARM CONDITIONS.
058627,000056: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
058628,000057: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
058629,000058: # SEQUENCE OF EVENTS.
058630,000059: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
058631,000060: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
058632,000061: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
058633,000062:
058634,000063: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
058635,000064: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
058636,000065: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
058637,000066: # BUT NOT WAITING FOR A RESPONSE.
058638,000067: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
058639,000068: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
058640,000069: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
058641,000070: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
058642,000071: # HAS INFO SAVED FOR RESTART PURPOSES.
058643,000072:
058644,000073: # DISPLAY PRIORITIES WORK AS FOLLOWS -
058645,000074: # INTERRUPTS -
058646,000075: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
058647,000076: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
058648,000077: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
058649,000078: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
058650,000079: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
058651,000080: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
058652,000081:
058653,000082: # ORDER OF WAITING DISPLAYS -
058654,000083: # 1. ASTRONAUT EXTERNAL USE
058655,000084: # 2. PRIORITY
058656,000085: # 3. INTERRUPTED MARK
058657,000086: # 4. INTERRUPTED NORMAL
058658,000087: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
058659,000088: # 6. MARK WAITING
058660,000089: # 7. NORMAL WAITING
058661,000090:
![]() |
Page 1342 |
058663,000092: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
058664,000093: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
058665,000094: # WILL FOLLOW LATER):
058666,000095: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
058667,000096: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
058668,000097: # IS TO THE USERS CALLING LOC +1.
058669,000098: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
058670,000099: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
058671,000100: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
058672,000101: # USERS JOB.
058673,000102: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
058674,000103: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
058675,000104: # DESCRIPTION OF RESTARTS).
058676,000105: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
058677,000106: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
058678,000107: # (V32) BRANCHES TO THE USERS CALL CADR +3.
058679,000108: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
058680,000109:
058681,000110: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
058682,000111: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058683,000112: # 1. GODSP IS NOT RESTARTABLE
058684,000113: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
058685,000114: # CAF VXXNYY
058686,000115: # TC BANKCALL
058687,000116: # CADR GODSP
058688,000117: # VXXNYY OCT 0XXYY
058689,000118: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
058690,000119: # CAF VXXNYY
058691,000120: # TC BANKCALL
058692,000121: # CADR GODSPR
058693,000122: # ... ... IMMEDIATE RETURN OF GODSPR
058694,000123: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058695,000124: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058696,000125: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
058697,000126: # TC BANKCALL
058698,000127: # CADR GOFLASH
058699,000128: # ... ... TERMINATE RETURN
058700,000129: # ... ... PROCEED RETURN
058701,000130: # ... ... ENTER OR RECYCLE RETURN
058702,000131: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
![]() |
Page 1343 |
058704,000133: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
058705,000134: # USER (SEE NO. 7 ABOVE).
058706,000135: # GOPERF1 BLANKS REGISTERS R2 AND R3
058707,000136: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
058708,000137: # TC BANKCALL
058709,000138: # CADR GOPERF1
058710,000139: # ... ... TERMINATE RETURN
058711,000140: # ... ... PROCEED RETURN
058712,000141: # ... ... ENTER RETURN
058713,000142: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
058714,000143: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
058715,000144: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058716,000145: # GOPERF2 DOES NOT BLANK ANY REGISTERS
058717,000146: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
058718,000147: # TC BANKCALL
058719,000148: # CADR GOPERF2
058720,000149: # ... ... TERMINATE RETURN
058721,000150: # ... ... PROCEED RETURN
058722,000151: # ... ... ENTER RETURN
058723,000152: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
058724,000153: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
058725,000154: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
058726,000155: # GOPERF3 BLANKS REGISTERS R2 AND R3
058727,000156: # CAF DECXX REQUEST PERFORM ON PXX
058728,000157: # TC BANKCALL
058729,000158: # CADR GOPERF3
058730,000159: # ... ... TERMINATE RETURN
058731,000160: # ... ... PROCEED RETURN
058732,000161: # ... ... ENTER RETURN
058733,000162: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
058734,000163: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
058735,000164: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058736,000165: # CAF OCTXX REQUEST PERFORM ON OPTION XX
058737,000166: # TC BANKCALL
058738,000167: # CADR GOPERF4
058739,000168: # ... ... TERMINATE RETURN
058740,000169: # ... ... PROCEED RETURN
058741,000170: # ... ... ENTER RETURN
058742,000171: # GOPERF4 BLANKS REGISTER R3
![]() |
Page 1344 |
058744,000173: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
058745,000174: # OUT.
058746,000175: # CAF VXXNYY
058747,000176: # TC BANKCALL
058748,000177: # CADR GODSPRET
058749,000178: # ... ... RETURN TO USER
058750,000179: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
058751,000180: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058752,000181: # CAF VXXNYY
058753,000182: # TC BANKCALL
058754,000183: # CADR REGODSP
058755,000184: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058756,000185: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058757,000186: # TC BANKCALL
058758,000187: # CADR REFLASH
058759,000188: # ... ... TERMINATE RETURN
058760,000189: # ... ... PROCEED RETURN
058761,000190: # ... ... ENTER RETURN
058762,000191: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058763,000192: # CAF VXXNYY
058764,000193: # TC BANKCALL
058765,000194: # CADR GOFLASHR
058766,000195: # ... ... TERMINATE RETURN
058767,000196: # ... ... PROCEED RETURN
058768,000197: # ... ... ENTER OR RECYCLE RETURN
058769,000198: # ... ... IMMEDIATE RETURN FROM GOFLASHR
058770,000199: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
058771,000200: # GOPERF1R BLANKS REGISTERS R2 AND R3
058772,000201: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
058773,000202: # TC BANKCALL
058774,000203: # CADR GOPERF1R
058775,000204: # ... ... TERMINATE RETURN
058776,000205: # ... ... PROCEED RETURN
058777,000206: # ... ... ENTER RETURN
058778,000207: # ... ... IMMEDIATE RETURN FROM GOPERF1R
058779,000208: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
![]() |
Page 1345 |
058781,000210: # GOPERF2R DOES NOT BLANK ANY REGISTERS
058782,000211: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
058783,000212: # TC BANKCALL
058784,000213: # CADR GOPERF2R
058785,000214: # ... ... TERMINATE RETURN
058786,000215: # ... ... PROCEED RETURN
058787,000216: # ... ... ENTER RETURN
058788,000217: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
058789,000218: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058790,000219: # GOPERF3R BLANKS REGISTERS R2 AND R3
058791,000220: # CAF PROGXX PERFORM PROGRAM XX
058792,000221: # TC BANKCALL
058793,000222: # CADR GOPERF3R
058794,000223: # ... ... TERMINATE RETURN
058795,000224: # ... ... PROCEED RETURN
058796,000225: # ... ... ENTER RETURN
058797,000226: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
058798,000227: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058799,000228: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
058800,000229: # TC BANKCALL
058801,000230: # CADR GOPERF4R
058802,000231: # ... ... TERMINATE RETURN
058803,000232: # ... ... PROCEED RETURN
058804,000233: # ... ... ENTER RETURN
058805,000234: # ... ... IMMEDIATE RETURN TO USER
058806,000235: # GOPERF4R BLANKS REGISTER R3
058807,000236: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058808,000237: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058809,000238: # TC BANKCALL
058810,000239: # CADR REFLASHR
058811,000240: # ... ... TERMINATE RETURN
058812,000241: # ... ... PROCEED RETURN
058813,000242: # ... ... ENTER RETURN
058814,000243: # ... ... IMMEDIATE RETURN TO USER
058815,000244: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
![]() |
Page 1346 |
058817,000246: # CAF VXXNYY
058818,000247: # TC BANKCALL
058819,000248: # CADR REGODSPR
058820,000249: # ... ... IMMEDIATE RETURN TO USER
![]() |
Page 1347 |
058822,000251: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058823,000252: # GOXDSP = GOMARK
058824,000253: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
058825,000254: # TC BANKCALL
058826,000255: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
058827,000256: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058828,000257: # GOXDSPR = GOMARKR
058829,000258: # CAF VXXNYY
058830,000259: # TC BANKCALL
058831,000260: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
058832,000261: # ... ... IMMEDIATE RETURN OF GOMARKR
058833,000262: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058834,000263: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058835,000264: # GOXDSPF = GOMARKF
058836,000265: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
058837,000266: # TC BANKCALL
058838,000267: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
058839,000268: # ... ... TERMINATE RETURN
058840,000269: # ... ... PROCEED RETURN
058841,000270: # ... ... ENTER OR RECYCLE RETURN
058842,000271: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058843,000272: # GOXDSPFR = GOMARKFR
058844,000273: # CAF VXXNYY FLASHING MARK VERB NOUN
058845,000274: # TC BANKCALL
058846,000275: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
058847,000276: # ... ... TERMINATE RETURN
058848,000277: # ... ... PROCEED RETURN
058849,000278: # ... ... ENTER OR RECYCLE RETURN
058850,000279: # ... ... IMMEDIATE RETURN TO THE USER
058851,000280: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058852,000281: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058853,000282: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058854,000283: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058855,000284: # CAF V5XNYY X=1,2,3,4 Y=NOUN
058856,000285: # TC BANKCALL
![]() |
Page 1348 |
058858,000287: # CADR GOMARK1
058859,000288: # ... ... ENTER RETURN
058860,000289: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058861,000290:
058862,000291: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058863,000292: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058864,000293: # TC BANKCALL
058865,000294: # CADR GOMARK1R
058866,000295: # ... ... ASTRONAUT ENTER RETURN
058867,000296: # ... ... IMMEDIATE RETURN TO USER
058868,000297: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058869,000298: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058870,000299: # TC BANKCALL
058871,000300: # CADR GOMARK2
058872,000301: # ... ... TERMINATE RETURN
058873,000302: # ... ... PROCEED RETURN
058874,000303: # ... ... ENTER RETURN
058875,000304: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058876,000305: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
058877,000306: # TC BANKCALL
058878,000307: # CADR GOMARK2R
058879,000308: # ... ... TERMINATE RETURN
058880,000309: # ... ... PROCEED RETURN
058881,000310: # ... ... ENTER RETURN
058882,000311: # ... ... IMMEDIATE RETURN TO THE USER
058883,000312: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058884,000313: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058885,000314: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058886,000315: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058887,000316: # TC BANKCALL
058888,000317: # CADR GOMARK3
058889,000318: # ... ... TERMINATE RETURN
058890,000319: # ... ... PROCEED RETURN
058891,000320: # ... ... ENTER RETURN
058892,000321: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058893,000322: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058894,000323: # TC BANKCALL
058895,000324: # CADR GOMARK4
058896,000325: # ... ... TERMINATE RETURN
058897,000326: # ... ... PROCEED RETURN
![]() |
Page 1349 |
058899,000328: # ... ... ENTER RETURN
058900,000329: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058901,000330: # SENT OUT.
058902,000331: # CAF VXXNYY
058903,000332: # TC BANKCALL
058904,000333: # CADR EXDSPRET
058905,000334: # ... ... RETURN TO USER
058906,000335: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058907,000336: # HAVE BEEN CLEANED OUT.
058908,000337: # TC BANKCALL
058909,000338: # CADR KLEENEX
058910,000339: # ... ... RETURN TO USER
058911,000340: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058912,000341: # TC BANKCALL
058913,000342: # CADR MARKBRAN
058914,000343: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
058915,000344: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058916,000345: # LAST FLASHING MARK R ROUTINE)
058917,000346: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058918,000347: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058919,000348: # TC POSTJUMP
058920,000349: # CADR PINBRNCH
058921,000350: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058922,000351: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058923,000352: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058924,000353: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058925,000354: # IS RESPONDED TO BY THE ASTRONAUT.
058926,000355: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058927,000356: # PRIO DISPLAY.
058928,000357: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058929,000358: # TC BANKCALL
058930,000359: # CADR PRIODSP
058931,000360: # ... ... TERMINATE RETURN
058932,000361: # ... ... PROCEED RETURN
![]() |
Page 1350 |
058934,000363: # ... ... ENTER OR RECYCLE RETURN
058935,000364: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058936,000365: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058937,000366: # TC BANKCALL
058938,000367: # CADR PRIODSPR
058939,000368: # ... ... TERMINATE RETURN
058940,000369: # ... ... PROCEED RETURN
058941,000370: # ... ... ENTER OR RECYCLE RETURN
058942,000371: # ... ... IMMEDIATE RETURN
058943,000372: # PRIOLARM DOES A V05N09 PRIODSPR.
058944,000373:
058945,000374: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058946,000375: # DISPLAYS ARE CLEANED OUT.
058947,000376: # TC BANKCALL
058948,000377: # CADR CLEANDSP
058949,000378: # ... ... RETURN TO USER
![]() |
Page 1351 |
058951,000380:
058952,000381: # GENERAL INFORMATION
058953,000382: # ------- -----------
058954,000383:
058955,000384: # ALARM OR ABORT EXIT MODES --
058956,000385: # PRIOBORT TC ABORT
058957,000386: # OCT 1502
058958,000387:
058959,000388: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058960,000389: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058961,000390: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058962,000391:
058963,000392: # ERASABLE INITIALIZATION REQUIRED --
058964,000393: # ACCOMPLISHED BY FRESH START - 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058965,000394: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
058966,000395: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
058967,000396: # 5. R1SAVE = MARKBRAN CONTROL WORD
058968,000397: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058969,000398:
058970,000399: # OUTPUT --
058971,000400: # NVWORD = PRIO VERB AND NOUN
058972,000401: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
058973,000402: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
058974,000403: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058975,000404: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058976,000405: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058977,000406:
058978,000407: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058979,000408: # CADRFLSH +1 (MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058980,000409: # CADRFLSH +2 (TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058981,000410: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058982,000411: # OPTION1 = DESIRED OPTION FROM GOPERF4
058983,000412: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058984,000413: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
058985,000414:
058986,000415: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058987,000416: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058988,000417:
058989,000418: # DEBRIS -- (STORED INTO)
058990,000419: # TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058991,000420: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
058992,000421: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058993,000422: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
![]() |
Page 1352 |
058995,000424: # R1SAVE, MARK2PAC,
058996,000425:
058997,000426: # DEBRIS -- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
058998,000427:
058999,000428: # FLAGWORD DESCRIPTIONS --
059000,000429: # FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
059001,000430:
059002,000431: # DSPFLG, DSPFLG+1, DSPFLG +2-
059003,000432: # ----------------------------
059004,000433: # BITS 1 BLANK R1
059005,000434: # 2 BLANK R2
059006,000435: # 3 BLANK R3
059007,000436: # 4 FLASHING DISPLAY REQUESTED
059008,000437: # 5 PERFORM DISPLAY REQUESTED
059009,000438: # 6 ----- EXDSPRET GODSPRET
059010,000439: # 7 PRIO DISPLAY ----- -----
059011,000440: # 8 ----- DEC MARK PERFORM -----
059012,000441: # 9 EBANK
059013,000442: # 10 EBANK
059014,000443: # 11 EBANK
059015,000444: # 12 ----- ----- V99PASTE
059016,000445: # 13 2ND PART OF PERFORM
059017,000446: # 15 REFLASH OR REDO ----- REFLASH OR REDO
059018,000447: # 15 ----- MARK REQUEST -----
059019,000448:
059020,000449: # RESTARTING DISPLAYS --
059021,000450:
059022,000451: # RULES FOR THE DSKY OPERATOR --
059023,000452: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
059024,000453: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
059025,000454: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
059026,000455: # WITH PROCEED AND TERMINATE FOR THIS REASON.
059027,000456: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
059028,000457: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
059029,000458: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
059030,000459: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
059031,000460: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
059032,000461: # CONSIDERATION.
059033,000462: # 3. KEY RELEASE BUTTON -
059034,000463: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
059035,000464: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
059036,000465: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
059037,000466: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
059038,000467: # KEY RELEASE BUTTON MAY BE NECESSARY.
059039,000468: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
059040,000469: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
059041,000470: # OVER AGAIN.
059042,000471:
059043,000472: # SPECIAL CONSIDERATIONS--
![]() |
Page 1353 |
059045,000474: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
059046,000475: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
059047,000476: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
059048,000477: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
059049,000478: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
059050,000479: # BY A .1 RESTART PHASE CHANGE.
059051,000480: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
059052,000481: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
059053,000482: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
059054,000483:
![]() |
Page 1354 |
059056,000485: # CALLING SEQUENCE FOR BLANKING
059057,000486: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
059058,000487: # TC BLANKET
059059,000488: # ... ... RETURN TO USER HERE
059060,000489: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
059061,000490: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
059062,000491: 5464 BLOCK 02
059063,000492: 4000 SETLOC FFTAG4
059064,000493: 4000 BANK
059065,000494:
059066,000495: 5464 COUNT* $$/DSPLA
059067,000496: 5464 54162 BLANKET TS MPAC +6
059068,000497: 5465 40160 CS PLAYTEM4
059069,000498: 5466 70162 MASK MPAC +6
059070,000499: 5467 50161 INDEX MPAC +5
059071,000500: 5470 26160 ADS PLAYTEM4
059072,000501:
059073,000502: 5471 00002 TC Q
059074,000503:
059075,000504: 5472 04635 ENDMARK TC POSTJUMP
059076,000505: 5473 20326 CADR MARKEND
059077,000506:
059078,000507: 5474 34755 CLEARMRK CAF ZERO
059079,000508: 5475 55044 TS EXTVBACT
059080,000509:
059081,000510: 5476 00004 +2 INHINT
059082,000511: 5477 44753 CS XDSPBIT
059083,000512: 5500 70100 MASK FLAGWRD4
059084,000513: 5501 54100 TS FLAGWRD4
059085,000514:
059086,000515: 5502 00003 RELINT
059087,000516: 5503 00002 TC Q
059088,000517:
059089,000518: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
059090,000519: # FINISHED.
059091,000520:
059092,000521: 10,2326 BANK 10
059093,000522: 10,2000 SETLOC DISPLAYS
059094,000523: 10,2000 BANK
059095,000524:
059096,000525: 10,2326 COUNT* $$/DSPLA
059097,000526:
059098,000527: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
059099,000528: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
059100,000529:
059101,000530: 10,2326 05474 MARKEND TC CLEARMRK
059102,000531: 10,2327 13421 TCF MARKOVER
059103,000532:
059104,000533: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
![]() |
Page 1355 |
059106,000535: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
059107,000536: 10,2332 12500 TCF GOFLASH2
059108,000537:
059109,000538: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
059110,000539: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
059111,000540:
059112,000541: 10,2335 33031 CAF MARKFMSK # MARK, FLASH
059113,000542: 10,2336 12500 TCF GOFLASH2
059114,000543:
059115,000544: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
059116,000545: 10,2340 33520 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
059117,000546: 10,2341 12500 TCF GOFLASH2
059118,000547:
059119,000548: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
059120,000549: 10,2343 33505 CAF MARK3MSK
059121,000550: 10,2344 12500 TCF GOFLASH2
059122,000551:
059123,000552: 10,2345 54155 GOMARK4 TS PLAYTEM1
059124,000553: 10,2346 33506 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
059125,000554: 10,2347 12500 TCF GOFLASH2
059126,000555:
059127,000556: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
059128,000557:
059129,000558: 10,2351 34735 CAF BIT15
059130,000559: 10,2352 12453 TCF GODSPR2
059131,000560:
059132,000561: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
059133,000562:
059134,000563: 10,2354 33031 CAF MARKFMSK
059135,000564: 10,2355 12637 TCF GODSPRS
059136,000565:
059137,000566: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
059138,000567: 10,2357 33520 CAF MPERFMSK # MARK, PERFORM, FLASH
059139,000568: 10,2360 12637 TCF GODSPRS
059140,000569:
059141,000570: 10,2361 54155 GOMARK3R TS PLAYTEM1
059142,000571: 10,2362 33505 CAF MARK3MSK
059143,000572: 10,2363 12637 TCF GODSPRS
059144,000573:
059145,000574: 10,2364 34753 MAKEMARK CAF ONE
059146,000575: 10,2365 02735 TC COPIES
059147,000576:
059148,000577: 10,2366 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
059149,000578: 10,2367 73521 MASK OCT34300
059150,000579: 10,2370 10000 CCS A
059151,000580: 10,2371 12427 TCF CHKPRIO
059152,000581:
059153,000582: 10,2372 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
059154,000583: 10,2373 74743 MASK MRKNVBIT
059155,000584:
059156,000585: 10,2374 00006 EXTEND
![]() |
Page 1356 |
059158,000587: 10,2375 12377 BZF MARKPLAY # NO
059159,000588:
059160,000589: 10,2376 15155 TCF ENDOFJOB
059161,000590:
059162,000591: 10,2377 00004 MARKPLAY INHINT
059163,000592: 10,2400 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
059164,000593: 10,2401 70100 MASK FLAGWRD4
059165,000594: 10,2402 64753 AD ONE
059166,000595: 10,2403 54100 TS FLAGWRD4
059167,000596: 10,2404 00003 RELINT
059168,000597:
059169,000598: 10,2405 41071 GOGOMARK CS MARKFLAG # PERFORM
059170,000599: 10,2406 74747 MASK BIT5
059171,000600: 10,2407 10000 CCS A
059172,000601: 10,2410 12413 TCF MARKCOP
059173,000602: 10,2411 40370 CS MARKNV
059174,000603: 10,2412 54370 TS MARKNV
059175,000604:
059176,000605: 10,2413 34753 MARKCOP CAF ONE # MARK INDEX
059177,000606: 10,2414 12616 TCF PRIOPLAY
059178,000607:
059179,000608: 10,2415 30165 COPYTOGO CA MPAC2SAV
059180,000609: 10,2416 54156 TS MPAC +2
059181,000610:
059182,000611: 10,2417 50164 COPYPACS INDEX COPINDEX
059183,000612: 10,2420 33531 CAF PRIOOCT
059184,000613: 10,2421 54162 TS GENMASK
059185,000614:
059186,000615: 10,2422 50164 INDEX COPINDEX
059187,000616: 10,2423 31070 CAF EBANKSAV
059188,000617: 10,2424 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
059189,000618:
059190,000619: 10,2425 54003 TS EBANK
059191,000620:
059192,000621: 10,2426 00002 TC Q
059193,000622:
059194,000623: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
059195,000624: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
059196,000625: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
059197,000626: # UNTIL ALL MARKING IS FINISHED.
059198,000627:
059199,000628: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
059200,000629: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
059201,000630:
059202,000631: 10,2427 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
059203,000632: 10,2430 73254 MASK OCT24100
059204,000633: 10,2431 10000 CCS A
059205,000634: 10,2432 13454 TCF MARSLEEP
059206,000635:
059207,000636: 10,2433 40100 CS FLAGWRD4
![]() |
Page 1357 |
059209,000638: 10,2434 74751 MASK MKOVBIT # SET MARK OVER NORM
059210,000639: 10,2435 00004 INHINT
059211,000640: 10,2436 26100 ADS FLAGWRD4
059212,000641:
059213,000642: 10,2437 12534 TCF SETNORM
059214,000643:
059215,000644: 10,2440 30370 MARKPERF CA MARKNV
059216,000645: 10,2441 74144 MASK VERBMASK
059217,000646: 10,2442 13120 TCF NV50DSP
059218,000647:
059219,000648: 10,2443 54155 GODSP TS PLAYTEM1
059220,000649:
059221,000650: 10,2444 34755 GODSP2 CAF ZERO
059222,000651: 10,2445 12500 TCF GOFLASH2
059223,000652:
059224,000653: 10,2446 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
059225,000654:
059226,000655: 10,2447 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
059227,000656: 10,2450 12500 TCF GOFLASH2
059228,000657:
059229,000658: 10,2451 54155 GODSPR TS PLAYTEM1
059230,000659:
059231,000660: 10,2452 34755 GODSPR1 CAF ZERO
059232,000661: 10,2453 54160 GODSPR2 TS PLAYTEM4
059233,000662:
059234,000663: 10,2454 34755 CAF ZERO # * DONT MOVE
059235,000664: 10,2455 12641 TCF GODSPRS1
059236,000665:
059237,000666: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
059238,000667: # SET UP TO BE STARTED OR RESTARTED.
059239,000668:
059240,000669: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
059241,000670: # OLD DISPLAY.
059242,000671:
059243,000672: # CALLING SEQUENCE FOR CLEANDSP -
059244,000673:
059245,000674: # TC BANKCALL
059246,000675: # CADR CLEANDSP
059247,000676:
059248,000677: 10,2456 34755 CLEANDSP CAF ZERO
059249,000678: 10,2457 54155 REFLASH TS PLAYTEM1
059250,000679:
059251,000680: 10,2460 33504 CAF REDOMASK # FLASH AND PERMIT
059252,000681: 10,2461 12500 TCF GOFLASH2
059253,000682:
059254,000683: 10,2462 54155 REFLASHR TS PLAYTEM1
059255,000684:
059256,000685: 10,2463 33504 CAF REDOMASK # FLASH AND PERMIT
059257,000686: 10,2464 12637 TCF GODSPRS
059258,000687:
![]() |
Page 1358 |
059260,000689: 10,2465 54155 REGODSP TS PLAYTEM1
059261,000690:
059262,000691: 10,2466 34736 CAF BIT14
059263,000692: 10,2467 12500 TCF GOFLASH2
059264,000693:
059265,000694: 10,2470 54155 REGODSPR TS PLAYTEM1
059266,000695:
059267,000696: 10,2471 34736 CAF BIT14
059268,000697: 10,2472 12453 TCF GODSPR2
059269,000698:
059270,000699: 10,2473 54155 CLOCPLAY TS PLAYTEM1
059271,000700: 10,2474 33543 CAF CLOCKCON
059272,000701: 10,2475 12500 TCF GOFLASH2
059273,000702:
059274,000703: 10,2476 54155 GOFLASH TS PLAYTEM1
059275,000704:
059276,000705: 10,2477 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
059277,000706: 10,2500 54160 GOFLASH2 TS PLAYTEM4
059278,000707:
059279,000708: 10,2501 02722 TC SAVELOCS
059280,000709:
059281,000710: 10,2502 00003 RELINT
059282,000711:
059283,000712: 10,2503 12546 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
059284,000713:
059285,000714: 10,2504 54155 PRIODSPR TS PLAYTEM1
059286,000715:
059287,000716: 10,2505 33523 CAF BITS7+4
059288,000717: 10,2506 12637 TCF GODSPRS
059289,000718:
059290,000719: 10,2507 54155 PRIODSP TS PLAYTEM1
059291,000720:
059292,000721: 10,2510 33523 SETPRIO CAF BITS7+4
059293,000722: 10,2511 12500 TCF GOFLASH2
059294,000723:
059295,000724: 10,2512 34755 MAKEPRIO CAF ZERO
059296,000725: 10,2513 54164 TS COPINDEX
059297,000726:
059298,000727: 10,2514 03374 TC LINUSCHR
059299,000728: 10,2515 12522 TCF HIPRIO # LINUS RETURN
059300,000729: 10,2516 30100 CA FLAGWRD4
059301,000730: 10,2517 73542 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
059302,000731: 10,2520 10000 CCS A
059303,000732: 10,2521 12575 TCF PRIOBORT # YES, ABORT
059304,000733:
059305,000734: 10,2522 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
059306,000735: 10,2523 75642 MASK OCT40400
059307,000736: 10,2524 00006 EXTEND
059308,000737: 10,2525 12530 BZF ASKIFNRM # NO
059309,000738:
![]() |
Page 1359 |
059311,000740: 10,2526 34755 SETMARK CAF ZERO
059312,000741: 10,2527 12774 TCF JOBXCHS
059313,000742:
059314,000743: 10,2530 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
059315,000744: 10,2531 73540 MASK OCT10200 # BITS 13+8
059316,000745: 10,2532 00006 EXTEND
059317,000746: 10,2533 12536 BZF OKTOCOPY # NO
059318,000747:
059319,000748: 10,2534 34753 SETNORM CAF ONE
059320,000749: 10,2535 12774 TCF JOBXCHS
059321,000750:
059322,000751: 10,2536 02734 OKTOCOPY TC COPYNORM
059323,000752: 10,2537 03205 TC WITCHONE
059324,000753:
059325,000754: 10,2540 05137 TC JOBWAKE
059326,000755:
059327,000756: 10,2541 03222 TC XCHTOEND
059328,000757:
059329,000758: 10,2542 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
059330,000759: 10,2543 55165 TS PRIOTIME
059331,000760:
059332,000761: 10,2544 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
059333,000762: 10,2545 12616 TCF PRIOPLAY
059334,000763:
059335,000764: 10,2546 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
059336,000765: 10,2547 77725 MASK PRIO37
059337,000766: 10,2550 54163 TS USERPRIO
059338,000767:
059339,000768: 10,2551 37721 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
059340,000769: 10,2552 05146 TC PRIOCHNG
059341,000770:
059342,000771: 10,2553 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
059343,000772: 10,2554 73522 MASK BITS15+7
059344,000773: 10,2555 10000 CCS A
059345,000774: 10,2556 12512 TCF MAKEPRIO # ITS PRIO
059346,000775: 10,2557 12561 TCF IFLEGAL
059347,000776: 10,2560 12364 TCF MAKEMARK # ITS MARK
059348,000777:
059349,000778: 10,2561 34752 IFLEGAL CAF TWO
059350,000779: 10,2562 54164 TS COPINDEX
059351,000780:
059352,000781: 10,2563 03374 TC LINUSCHR
059353,000782:
059354,000783: 10,2564 12577 TCF OKTOPLAY # LINUS RETURN
059355,000784: 10,2565 41072 CS EBANKTEM
059356,000785: 10,2566 74750 MASK BIT4
059357,000786: 10,2567 10000 CCS A
059358,000787: 10,2570 12577 TCF OKTOPLAY # NO
059359,000788:
059360,000789: 10,2571 30100 CA FLAGWRD4 # WAS NORM ASLEEP
![]() |
Page 1360 |
059362,000791: 10,2572 73513 MASK NBUSMASK # ARE ANY NORMS ASLEEP
059363,000792: 10,2573 00006 EXTEND
059364,000793: 10,2574 12577 BZF OKTOPLAY # NO
059365,000794:
059366,000795: 10,2575 05652 PRIOBORT TC POODOO
059367,000796: 10,2576 01502 OCT 1502
059368,000797:
059369,000798: 10,2577 02736 OKTOPLAY TC COPIES2
059370,000799:
059371,000800: 10,2600 30163 CA USERPRIO
059372,000801: 10,2601 00006 EXTEND
059373,000802: 10,2602 04007 ROR SUPERBNK
059374,000803: 10,2603 54366 TS RESTREG
059375,000804:
059376,000805: 10,2604 30100 CA FLAGWRD4 # PRIO OR MARK GOING
059377,000806: 10,2605 73514 MASK PMMASK
059378,000807: 10,2606 10000 CCS A
059379,000808: 10,2607 12754 TCF GOSLEEPS # YES
059380,000809:
059381,000810: 10,2610 12612 TCF +2
059382,000811: 10,2611 12754 TCF GOSLEEPS # MARK GOING
059383,000812:
059384,000813: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
059385,000814:
059386,000815: 10,2612 03205 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
059387,000816: 10,2613 05137 TC JOBWAKE
059388,000817:
059389,000818: 10,2614 03222 TC XCHTOEND
059390,000819:
059391,000820: 10,2615 34752 PLAYJUM1 CAF TWO
059392,000821: 10,2616 54164 PRIOPLAY TS COPINDEX
059393,000822:
059394,000823: 10,2617 13070 TCF GOPLAY
059395,000824:
059396,000825: 10,2620 54155 EXDSPRET TS PLAYTEM1
059397,000826:
059398,000827: 10,2621 37734 CAF BIT15+6
059399,000828: 10,2622 12500 TCF GOFLASH2
059400,000829:
059401,000830: 10,2623 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
059402,000831: 10,2624 33476 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
059403,000832:
059404,000833: 10,2625 54155 GOPERFS TS PLAYTEM1
059405,000834:
059406,000835: 10,2626 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
059407,000836: 10,2627 12500 TCF GOFLASH2
059408,000837:
059409,000838: 10,2630 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059410,000839:
059411,000840: 10,2631 33501 CAF PERF2MSK
059412,000841: 10,2632 12500 TCF GOFLASH2
059413,000842:
![]() |
Page 1361 |
059415,000844: 10,2633 02715 GOPERF4 TC PURRS4
059416,000845:
059417,000846: 10,2634 12500 TCF GOFLASH2
059418,000847:
059419,000848: 10,2635 54155 GOFLASHR TS PLAYTEM1
059420,000849:
059421,000850: 10,2636 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
059422,000851: 10,2637 54160 GODSPRS TS PLAYTEM4
059423,000852:
059424,000853: 10,2640 36245 CAF THREE
059425,000854:
059426,000855: 10,2641 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
059427,000856: 10,2642 54072 TS RUPTREG3
059428,000857:
059429,000858: 10,2643 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
059430,000859: 10,2644 77725 MASK PRIO37
059431,000860: 10,2645 54063 TS NEWPRIO
059432,000861:
059433,000862: 10,2646 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
059434,000863: 10,2647 74750 MASK BIT4
059435,000864: 10,2650 10000 CCS A
059436,000865: 10,2651 12657 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
059437,000866: 10,2652 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
059438,000867: 10,2653 05072 TC NOVAC
059439,000868: 10,2654 E7,1471 EBANK= WHOCARES
059440,000869: 10,2654 02546 20067 2CADR MAKEPLAY
059441,000870:
059442,000871: 10,2656 12665 TCF BOTHJOBS
059443,000872:
059444,000873: 10,2657 30006 VACDSP CA BBANK
059445,000874: 10,2660 00006 EXTEND
059446,000875: 10,2661 04007 ROR SUPERBNK
059447,000876: 10,2662 54001 TS L
059448,000877: 10,2663 33537 CAF MAKEGEN
059449,000878: 10,2664 05116 TC SPVAC
059450,000879:
059451,000880: 10,2665 02722 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
059452,000881:
059453,000882: 10,2666 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
059454,000883: 10,2667 30156 DCA MPAC +1
059455,000884: 10,2670 50064 INDEX LOCCTR
059456,000885: 10,2671 52156 DXCH MPAC +1
059457,000886:
059458,000887: 10,2672 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
059459,000888: 10,2673 30160 DCA MPAC +3
059460,000889: 10,2674 50064 INDEX LOCCTR
059461,000890: 10,2675 52160 DXCH MPAC +3
059462,000891:
059463,000892: 10,2676 30064 CA LOCCTR
059464,000893: 10,2677 54161 TS MPAC +5
![]() |
Page 1362 |
059466,000895: 10,2700 02727 TC SAVELOCR
059467,000896: 10,2701 00003 RELINT
059468,000897:
059469,000898: 10,2702 14640 TCF BANKJUMP # CALL CADR +4
059470,000899:
059471,000900: 10,2703 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
059472,000901:
059473,000902: 10,2704 33476 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
059474,000903:
059475,000904: 10,2705 54155 GOPERFRS TS PLAYTEM1
059476,000905:
059477,000906: 10,2706 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
059478,000907: 10,2707 12637 TCF GODSPRS
059479,000908:
059480,000909: 10,2710 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059481,000910:
059482,000911: 10,2711 33501 CAF PERF2MSK
059483,000912: 10,2712 12637 TCF GODSPRS
059484,000913:
059485,000914: 10,2713 02715 GOPERF4R TC PURRS4
059486,000915:
059487,000916: 10,2714 12637 TCF GODSPRS
059488,000917:
059489,000918: 10,2715 55144 PURRS4 TS OPTION1 # DESIRED OPTION CODE
059490,000919:
059491,000920: 10,2716 33502 CAF V04N06
059492,000921: 10,2717 54155 TS PLAYTEM1
059493,000922:
059494,000923: 10,2720 33503 CAF PERF4MSK # FLASH, PERFORM AND BLANK R3
059495,000924: 10,2721 00002 TC Q
059496,000925:
059497,000926: 10,2722 00004 SAVELOCS INHINT
059498,000927:
059499,000928: 10,2723 43512 CS OCT3400 # EBANK BITS
059500,000929: 10,2724 70160 MASK PLAYTEM4
059501,000930: 10,2725 60003 AD EBANK
059502,000931: 10,2726 54160 TS PLAYTEM4
059503,000932:
059504,000933: 10,2727 22002 SAVELOCR LXCH Q
059505,000934:
059506,000935: 10,2730 04645 TC MAKECADR
059507,000936: 10,2731 54157 TS PLAYTEM3
059508,000937:
059509,000938: 10,2732 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
059510,000939: 10,2733 00001 TC L
059511,000940:
059512,000941: 10,2734 34755 COPYNORM CAF ZERO
059513,000942: 10,2735 54164 COPIES TS COPINDEX
059514,000943: 10,2736 00004 COPIES2 INHINT
059515,000944: 10,2737 30160 CA PLAYTEM4 # FLAGWORD
059516,000945:
![]() |
Page 1363 |
059518,000947: 10,2740 50164 INDEX COPINDEX
059519,000948: 10,2741 55070 TS EBANKSAV # EQUIV TO DSPFLG
059520,000949:
059521,000950: 10,2742 73530 MASK CADRMASK # FLASH AND GODSPRET
059522,000951: 10,2743 00006 EXTEND
059523,000952: 10,2744 12750 BZF SKIPADD
059524,000953:
059525,000954: 10,2745 30157 CA PLAYTEM3
059526,000955: 10,2746 50164 INDEX COPINDEX
059527,000956: 10,2747 54372 TS CADRFLSH
059528,000957:
059529,000958: 10,2750 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
059530,000959: 10,2751 50164 INDEX COPINDEX
059531,000960: 10,2752 54367 TS NVWORD
059532,000961:
059533,000962: 10,2753 13231 TCF RELINTQ
059534,000963:
059535,000964: 10,2754 50164 GOSLEEPS INDEX COPINDEX
059536,000965: 10,2755 33531 CA PRIOOCT
059537,000966: 10,2756 72760 MASK WAITMASK
059538,000967: 10,2757 03544 TC UPENT2
059539,000968: 10,2760 03004 WAITMASK OCT 3004
059540,000969: 10,2761 44753 CS ONE
059541,000970: 10,2762 60164 AD COPINDEX
059542,000971: 10,2763 54154 TS FACEREG
059543,000972:
059544,000973: 10,2764 50154 XCHSLEEP INDEX FACEREG
059545,000974: 10,2765 33510 CAF WAKECADR
059546,000975: 10,2766 00004 INHINT
059547,000976: 10,2767 05137 TC JOBWAKE # FIND CADR IN JOB AREA
059548,000977:
059549,000978: 10,2770 03222 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
059550,000979:
059551,000980: 10,2771 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
059552,000981: 10,2772 33510 CAF WAKECADR
059553,000982: 10,2773 15133 TCF JOBSLEEP
059554,000983:
059555,000984: 10,2774 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
059556,000985: 10,2775 03205 TC WITCHONE
059557,000986: 10,2776 05137 TC JOBWAKE
059558,000987: 10,2777 30154 CA FACEREG
059559,000988: 10,3000 50064 INDEX LOCCTR
059560,000989: 10,3001 54154 TS FACEREG
059561,000990:
059562,000991: 10,3002 33015 CAF XCHQADD
059563,000992: 10,3003 03223 TC XCHNYLOC
059564,000993:
059565,000994: 10,3004 50154 INDEX FACEREG
059566,000995: 10,3005 33532 CA MARKOCT
059567,000996: 10,3006 73534 MASK IDLESLEP
059568,000997:
![]() |
Page 1364 |
059570,000999: 10,3007 03554 TC DOWNENT2
059571,001000: 10,3010 74004 IDLEMASK OCT 74004 # * DONT MOVE
059572,001001:
059573,001002: 10,3011 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
059574,001003: 10,3012 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
059575,001004: 10,3013 64751 AD FOUR
059576,001005: 10,3014 03544 TC UPENT2 # FLAG ROUTINE DOES RELINT
059577,001006: 10,3015 02764 XCHQADD GENADR XCHSLEEP # * DONT MOVE
059578,001007: 10,3016 30100 CA FLAGWRD4
059579,001008: 10,3017 74751 MASK MKOVBIT # MARK OVER NORM?
059580,001009: 10,3020 10000 CCS A
059581,001010: 10,3021 02377 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
059582,001011: 10,3022 12536 TCF OKTOCOPY
059583,001012:
059584,001013: 10,3023 34755 MARKWAKE CAF ZERO
059585,001014: 10,3024 54160 WAKEPLAY TS TEMPOR2
059586,001015:
059587,001016: 10,3025 50160 INDEX TEMPOR2
059588,001017: 10,3026 33524 CA BITS5+11
059589,001018: 10,3027 64751 AD FOUR
059590,001019: 10,3030 03554 TC DOWNENT2
059591,001020: 10,3031 40010 MARKFMSK OCT 40010 # ***DONT MOVE
059592,001021:
059593,001022: 10,3032 50160 INDEX TEMPOR2
059594,001023: 10,3033 33510 CAF WAKECADR
059595,001024: 10,3034 00004 INHINT
059596,001025: 10,3035 05137 TC JOBWAKE
059597,001026:
059598,001027: 10,3036 13335 TCF ENDRET
059599,001028:
059600,001029: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
059601,001030: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
059602,001031:
059603,001032: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
059604,001033: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
059605,001034:
059606,001035: 10,3037 31072 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
059607,001036: 10,3040 54003 TS EBANK
059608,001037:
059609,001038: 10,3041 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
059610,001039: 10,3042 04727 TC SUPERSW # RESTORE SUPERBANK
059611,001040:
059612,001041: 10,3043 77725 MASK PRIO37
059613,001042: 10,3044 05146 TC PRIOCHNG
059614,001043:
059615,001044: 10,3045 46245 CS THREE
059616,001045: 10,3046 60374 AD TEMPFLSH
059617,001046: 10,3047 14640 TCF BANKJUMP
059618,001047:
059619,001048: 10,3050 00003 PINBRNCH RELINT # FOR GOPIN USERS
059620,001049: 10,3051 31073 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
![]() |
Page 1365 |
059622,001051: 10,3052 54156 TS MPAC +2 # ONLY
059623,001052:
059624,001053: 10,3053 30100 CA FLAGWRD4 # PINBRANCH CONDITION
059625,001054: 10,3054 77740 MASK PINMASK
059626,001055: 10,3055 10000 CCS A
059627,001056: 10,3056 13061 TCF +3
059628,001057: 10,3057 13471 TCF ERASER # ** NOTHING IN ENDIDLE
059629,001058: 10,3060 12377 TCF MARKPLAY
059630,001059:
059631,001060: 10,3061 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
059632,001061: 10,3062 00105 ADRES PINBRFLG
059633,001062:
059634,001063: 10,3063 34736 CAF PRIODBIT # PRIO INTERRUPTED
059635,001064: 10,3064 70100 MASK FLAGWRD4
059636,001065: 10,3065 10000 CCS A
059637,001066: 10,3066 12544 TCF KEEPPRIO
059638,001067:
059639,001068: 10,3067 12615 TCF PLAYJUM1
059640,001069:
059641,001070: 10,3070 02417 NVDSP TC COPYPACS
059642,001071:
059643,001072: 10,3071 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
059644,001073: 10,3072 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
059645,001074: 10,3073 54001 TS L
059646,001075:
059647,001076: 10,3074 44737 CS BIT13
059648,001077: 10,3075 50164 INDEX COPINDEX
059649,001078: 10,3076 71070 MASK DSPFLG
059650,001079: 10,3077 50164 INDEX COPINDEX
059651,001080: 10,3100 55070 TS DSPFLG
059652,001081:
059653,001082: 10,3101 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
059654,001083: 10,3102 54141 TS TEM1
059655,001084:
059656,001085: 10,3103 30156 CA MPAC +2
059657,001086: 10,3104 54165 TS MPAC2SAV
059658,001087:
059659,001088: 10,3105 55073 TS MARK2PAC # * FOR DISK ONLY *
059660,001089: 10,3106 50164 INDEX COPINDEX
059661,001090: 10,3107 10367 CCS NVWORD
059662,001091: 10,3110 13117 TCF NVDSP1
059663,001092: 10,3111 13233 TCF CLEANEND
059664,001093: 10,3112 40370 CS MARKNV
059665,001094: 10,3113 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
059666,001095: 10,3114 76074 MASK LOW7
059667,001096: 10,3115 63515 AD V05N00M1
059668,001097: 10,3116 60141 AD TEM1
059669,001098: 10,3117 64753 NVDSP1 AD ONE
059670,001099: 10,3120 04155 NV50DSP TC NVMONOPT
059671,001100: 10,3121 13245 TCF REST # IF BUSY
059672,001101:
![]() |
Page 1366 |
059674,001103: 10,3122 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
059675,001104:
059676,001105: 10,3123 02415 TC COPYTOGO # MPACS DESTROYED BY NVSUB
059677,001106: 10,3124 05516 TC DOWNFLAG # UNSET SLEEPING BITS
059678,001107: 10,3125 00102 ADRES MRKNVFLG
059679,001108: 10,3126 05516 TC DOWNFLAG
059680,001109: 10,3127 00103 ADRES NRMNVFLG
059681,001110: 10,3130 05516 TC DOWNFLAG
059682,001111: 10,3131 00104 ADRES PRONVFLG
059683,001112: 10,3132 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
059684,001113: 10,3133 04255 TC BLANKSUB
059685,001114: 10,3134 13070 TCF NVDSP
059686,001115: 10,3135 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
059687,001116: 10,3136 70160 MASK TEMPOR2
059688,001117: 10,3137 10000 CCS A # IS THIS A GOPERF DISPLAY
059689,001118: 10,3140 13163 TCF 1STOR2ND # YES
059690,001119:
059691,001120: 10,3141 34750 GOANIDLE CAF BIT4
059692,001121: 10,3142 70160 MASK TEMPOR2
059693,001122: 10,3143 10000 CCS A
059694,001123: 10,3144 13260 TCF FLASHSUB # IT IS
059695,001124:
059696,001125: 10,3145 40160 CS TEMPOR2 # IS THIS A GODSPRET
059697,001126: 10,3146 74746 MASK BIT6
059698,001127: 10,3147 10000 CCS A
059699,001128: 10,3150 13155 TCF ISITN00
059700,001129:
059701,001130: 10,3151 50164 INDEX COPINDEX
059702,001131: 10,3152 30372 CA CADRFLSH
059703,001132: 10,3153 54157 TS MPAC +3
059704,001133: 10,3154 13353 TCF ENDIT
059705,001134:
059706,001135: 10,3155 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
059707,001136: 10,3156 30367 CA NVWORD
059708,001137: 10,3157 76074 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
059709,001138: 10,3160 00006 EXTEND
059710,001139: 10,3161 13260 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
059711,001140:
059712,001141: 10,3162 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
059713,001142:
059714,001143: 10,3163 30160 1STOR2ND CA TEMPOR2
059715,001144: 10,3164 74737 MASK BIT13
059716,001145: 10,3165 10000 CCS A
059717,001146: 10,3166 13141 TCF GOANIDLE # SECOND
059718,001147:
059719,001148: 10,3167 34737 CA BIT13
059720,001149: 10,3170 50164 INDEX COPINDEX
059721,001150: 10,3171 27070 ADS DSPFLG
059722,001151:
059723,001152: 10,3172 22007 ZL
![]() |
Page 1367 |
059725,001154: 10,3173 00006 EXTEND # IS IT MARK
059726,001155: 10,3174 62440 BZMF MARKPERF # YES
059727,001156:
059728,001157: 10,3175 74740 MASK BIT12
059729,001158: 10,3176 00006 EXTEND
059730,001159: 10,3177 13203 BZF V50PASTE
059731,001160: 10,3200 41067 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059732,001161: 10,3201 63541 AD V97N00
059733,001162: 10,3202 13120 TCF NV50DSP
059734,001163: 10,3203 33500 V50PASTE CAF V50N00
059735,001164: 10,3204 13120 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
059736,001165:
059737,001166: 10,3205 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
059738,001167: 10,3206 00006 EXTEND
059739,001168: 10,3207 03011 WAND DSALMOUT
059740,001169:
059741,001170: 10,3210 30100 CA FLAGWRD4
059742,001171: 10,3211 73516 MASK NVBUSMSK # IS IT NVSUB ASLEEP
059743,001172: 10,3212 10000 CCS A
059744,001173: 10,3213 34753 CAF ONE
059745,001174: 10,3214 54001 TS L
059746,001175: 10,3215 34755 CAF ZERO
059747,001176: 10,3216 50001 INDEX L
059748,001177: 10,3217 57042 XCH CADRSTOR
059749,001178:
059750,001179: 10,3220 00004 INHINT
059751,001180: 10,3221 00002 TC Q
059752,001181:
059753,001182: 10,3222 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
059754,001183: 10,3223 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
059755,001184: 10,3224 00006 EXTEND
059756,001185: 10,3225 63231 BZMF RELINTQ # NO
059757,001186: 10,3226 56064 XCH LOCCTR # YES
059758,001187: 10,3227 50064 INDEX LOCCTR
059759,001188: 10,3230 54164 TS LOC
059760,001189:
059761,001190: 10,3231 00003 RELINTQ RELINT
059762,001191: 10,3232 00002 TC Q # BACK TO USER
059763,001192:
059764,001193: 10,3233 37720 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
059765,001194: 10,3234 05105 TC FINDVAC
059766,001195: 10,3235 0371 EBANK= NVSAVE
059767,001196: 10,3235 04231 04060 2CADR JAMTERM
059768,001197:
059769,001198: 10,3237 13261 TCF FLASHSUB +1
059770,001199:
059771,001200: 10,3240 30100 ISITPRIO CA FLAGWRD4
059772,001201: 10,3241 73266 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
059773,001202: 10,3242 00006 EXTEND
![]() |
Page 1368 |
059775,001204: 10,3243 12575 BZF PRIOBORT
059776,001205: 10,3244 15155 TCF ENDOFJOB
059777,001206:
059778,001207: 10,3245 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
059779,001208: 10,3246 15155 TCF ENDOFJOB # YES
059780,001209: 10,3247 13251 TCF RESTSLEP
059781,001210:
059782,001211: 10,3250 15155 TCF ENDOFJOB
059783,001212:
059784,001213: 10,3251 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
059785,001214: 10,3252 73517 MASK ASTROMSK
059786,001215: 10,3253 03544 TC UPENT2
059787,001216: 10,3254 24100 OCT24100 OCT 24100 # ***DONT MOVE
059788,001217:
059789,001218: 10,3255 50164 INDEX COPINDEX
059790,001219: 10,3256 33507 CAF NVCADR
059791,001220: 10,3257 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
059792,001221:
059793,001222: 10,3260 04427 FLASHSUB TC FLASHON
059794,001223:
059795,001224: 10,3261 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
059796,001225: 10,3262 54157 TS COPMPAC
059797,001226:
059798,001227: 10,3263 30162 CA GENMASK
059799,001228: 10,3264 73010 MASK IDLEMASK
059800,001229: 10,3265 03544 TC UPENT2
059801,001230: 10,3266 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
059802,001231:
059803,001232: 10,3267 31074 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
059804,001233: 10,3270 50164 INDEX COPINDEX
059805,001234: 10,3271 74751 MASK BIT3
059806,001235: 10,3272 10000 CCS A
059807,001236: 10,3273 13360 TCF UNSETR1 # YES
059808,001237:
059809,001238: 10,3274 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
059810,001239: 10,3275 13240 TCF ISITPRIO
059811,001240: 10,3276 13300 TCF +2
059812,001241: 10,3277 13240 TCF ISITPRIO
059813,001242:
059814,001243: 10,3300 04207 TC ENDIDLE
059815,001244: 10,3301 13372 IDLERET1 TCF TERMATE
059816,001245:
059817,001246: 10,3302 13411 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
059818,001247:
059819,001248: 10,3303 43526 CS LOWLOAD
059820,001249: 10,3304 60154 AD MPAC # VERBREG
059821,001250: 10,3305 00006 EXTEND
059822,001251: 10,3306 26000 DIM A
059823,001252: 10,3307 00006 EXTEND
059824,001253: 10,3310 13461 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
059825,001254:
![]() |
Page 1369 |
059827,001256: 10,3311 34752 OKTOENT CAF TWO
059828,001257: 10,3312 54161 ENDOUT TS OUTHERE
059829,001258:
059830,001259: 10,3313 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
059831,001260: 10,3314 74101 MASK OCT60000
059832,001261: 10,3315 10000 CCS A
059833,001262: 10,3316 13321 TCF TIMECHEK # PRIO ENDIDLE RETURN
059834,001263: 10,3317 13427 TCF NORMRET # NORMAL ENDIDLE RETURN
059835,001264: 10,3320 13413 TCF MARKRET # MARK ENDIDLE RETURN
059836,001265:
059837,001266: 10,3321 40025 TIMECHEK CS TIME1
059838,001267: 10,3322 61165 AD PRIOTIME
059839,001268: 10,3323 10000 CCS A
059840,001269: 10,3324 40000 COM
059841,001270: 10,3325 67731 AD OCT37776
059842,001271: 10,3326 64753 AD ONE
059843,001272: 10,3327 63570 AD -2SEC
059844,001273: 10,3330 00006 EXTEND
059845,001274: 10,3331 62544 BZMF KEEPPRIO
059846,001275:
059847,001276: 10,3332 13427 TCF NORMRET
059848,001277:
059849,001278: 10,3333 34753 NORMWAKE CAF ONE
059850,001279: 10,3334 13024 TCF WAKEPLAY
059851,001280:
059852,001281: 10,3335 10161 ENDRET CCS OUTHERE
059853,001282: 10,3336 64753 AD ONE
059854,001283: 10,3337 13341 TCF +2 # NORMAL ENDIDLE EXIT
059855,001284: 10,3340 15155 TCF ENDOFJOB
059856,001285: 10,3341 50157 INDEX COPMPAC
059857,001286: 10,3342 60372 AD CADRFLSH
059858,001287: 10,3343 54157 TS MPAC +3
059859,001288:
059860,001289: 10,3344 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
059861,001290: 10,3345 73347 MASK PINIDMSK
059862,001291: 10,3346 03554 TC DOWNENT2
059863,001292: 10,3347 74044 PINIDMSK OCT 74044 # *** DONT MOVE
059864,001293:
059865,001294: 10,3350 46245 CS THREE # BLANK EVERYTHING EXCEPT MM
059866,001295: 10,3351 04154 TC NVSUB
059867,001296: 10,3352 13353 TCF +1
059868,001297:
059869,001298: 10,3353 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
059870,001299: 10,3354 77725 MASK PRIO37
059871,001300: 10,3355 05146 TC PRIOCHNG
059872,001301: 10,3356 30157 CA MPAC +3
059873,001302: 10,3357 14640 TCF BANKJUMP
059874,001303:
059875,001304: 10,3360 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
059876,001305: 10,3361 44751 CS BIT3
![]() |
Page 1370 |
059878,001307: 10,3362 71074 MASK R1SAVE
059879,001308: 10,3363 55074 TS R1SAVE
059880,001309:
059881,001310: 10,3364 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
059882,001311: 10,3365 04727 TC SUPERSW # SUPERBANK 0
059883,001312:
059884,001313: 10,3366 36245 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
059885,001314: 10,3367 50164 IMMEDRET INDEX COPINDEX
059886,001315: 10,3370 60372 AD CADRFLSH
059887,001316: 10,3371 14640 TCF BANKJUMP
059888,001317:
059889,001318: 10,3372 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
059890,001319: 10,3373 13312 TCF ENDOUT
059891,001320:
059892,001321: 10,3374 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
059893,001322: 10,3375 74736 MASK BIT14
059894,001323: 10,3376 10000 CCS A
059895,001324: 10,3377 16737 TCF Q+1 # NO
059896,001325: 10,3400 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
059897,001326: 10,3401 50164 INDEX COPINDEX
059898,001327: 10,3402 60372 AD CADRFLSH
059899,001328: 10,3403 00006 EXTEND
059900,001329: 10,3404 13406 BZF +2 # YES
059901,001330:
059902,001331: 10,3405 00002 TC Q # NO
059903,001332: 10,3406 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
059904,001333: 10,3407 05155 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
059905,001334: 10,3410 00002 TC Q
059906,001335:
059907,001336: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059908,001337:
059909,001338: 10,3411 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
059910,001339: 10,3412 13312 TCF ENDOUT
059911,001340:
059912,001341: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059913,001342: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059914,001343: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059915,001344:
059916,001345: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059917,001346: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059918,001347: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE (DURING A
059919,001348: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059920,001349:
059921,001350: 10,3413 46242 MARKRET CS SIX
059922,001351: 10,3414 70100 MASK FLAGWRD4
059923,001352: 10,3415 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
059924,001353: 10,3416 54100 TS FLAGWRD4
059925,001354:
059926,001355: 10,3417 00003 RELINT # INHINT REALM
059927,001356: 10,3420 13335 TCF ENDRET
059928,001357:
![]() |
Page 1371 |
059930,001359: 10,3421 37747 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059931,001360: 10,3422 54161 TS OUTHERE
059932,001361:
059933,001362: 10,3423 30100 CA FLAGWRD4 # IS ENDIDFLG SET
059934,001363: 10,3424 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
059935,001364: 10,3425 10000 CCS A
059936,001365: 10,3426 13061 TCF NORMBNCH
059937,001366:
059938,001367: 10,3427 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
059939,001368: 10,3430 73524 MASK BITS5+11 # OR WAITING
059940,001369: 10,3431 10000 CCS A
059941,001370: 10,3432 13023 TCF MARKWAKE
059942,001371:
059943,001372: 10,3433 30100 CA FLAGWRD4 # NO
059944,001373: 10,3434 73525 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
059945,001374: 10,3435 10000 CCS A
059946,001375: 10,3436 13333 TCF NORMWAKE # YES
059947,001376:
059948,001377: 10,3437 31072 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
059949,001378: 10,3440 74771 MASK OCT50 # OR A GODSPRET
059950,001379: 10,3441 10000 CCS A
059951,001380: 10,3442 13335 TCF ENDRET # YES
059952,001381: 10,3443 30371 CA NVSAVE
059953,001382: 10,3444 00006 EXTEND
059954,001383: 10,3445 13335 BZF ENDRET
059955,001384:
059956,001385: 10,3446 35025 CAF PRIO15
059957,001386: 10,3447 00004 INHINT
059958,001387: 10,3450 05072 TC NOVAC
059959,001388: 10,3451 0367 EBANK= NVWORD
059960,001389: 10,3451 02615 20060 2CADR PLAYJUM1
059961,001390:
059962,001391: 10,3453 13335 TCF ENDRET
059963,001392:
059964,001393: 10,3454 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
059965,001394: 10,3455 73524 MASK BITS5+11
059966,001395: 10,3456 10000 CCS A
059967,001396: 10,3457 15155 TCF ENDOFJOB # YES
059968,001397: 10,3460 12754 TCF GOSLEEPS
059969,001398:
059970,001399: 10,3461 50157 LOADITIS INDEX COPMPAC
059971,001400: 10,3462 30367 CA NVWORD
059972,001401: 10,3463 76074 MASK LOW7
059973,001402: 10,3464 40000 COM
059974,001403: 10,3465 60155 AD MPAC +1 # NOUNREG
059975,001404: 10,3466 00006 EXTEND
059976,001405: 10,3467 13311 BZF OKTOENT # NO, THEN LOAD IS VALID
059977,001406: 10,3470 13050 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059978,001407:
![]() |
Page 1372 |
059980,001409: 10,3471 46245 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
059981,001410: 10,3472 04154 TC NVSUB
059982,001411: 10,3473 15155 TCF ENDOFJOB
059983,001412: 10,3474 15155 TCF ENDOFJOB
059984,001413:
059985,001414: 10,3475 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
059986,001415: 10,3476 00231 V01N25 VN 00125
059987,001416: 10,3477 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
059988,001417: 10,3500 14400 V50N00 VN 5000
059989,001418: 10,3501 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
059990,001419: 10,3502 01006 V04N06 VN 00406
059991,001420: 10,3503 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
059992,001421: 10,3504 10,3050 GOAGIN EQUALS PINBRNCH
059993,001422: 10,3504 20010 REDOMASK OCT 20010 # BITS 4 AND 14
059994,001423: 10,3505 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
059995,001424: 10,3506 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
059996,001425: 10,3507 20542 NVCADR CADR REDOPRIO
059997,001426: 10,3510 20377 WAKECADR CADR MARKPLAY
059998,001427: 10,3511 20615 CADR PLAYJUM1
059999,001428:
060000,001429: 10,3512 03400 OCT3400 OCT 3400 # EBANK MASK
060001,001430: 10,3513 11210 NBUSMASK OCT 11210
060002,001431: 10,3514 66521 PMMASK OCT 66521
060003,001432: 10,3515 4144 VERBMASK = MID7 # (OCT 37600)
060004,001433: 10,3515 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
060005,001434: 10,3516 10,2330 GOXDSP EQUALS GOMARK
060006,001435: 10,3516 10,2350 GOXDSPR EQUALS GOMARKR
060007,001436: 10,3516 10,2334 GOXDSPF EQUALS GOMARKF
060008,001437: 10,3516 10,2353 GOXDSPFR EQUALS GOMARKFR
060009,001438: 10,3516 5472 ENDEXT EQUALS ENDMARK
060010,001439: 10,3516 0165 MPAC2SAV EQUALS BANKSET
060011,001440: 10,3516 00700 NVBUSMSK OCT 700
060012,001441: 10,3517 00704 ASTROMSK OCT 704
060013,001442: 10,3520 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
060014,001443: 10,3521 34300 OCT34300 OCT 34300
060015,001444: 10,3522 40100 BITS15+7 OCT 40100
060016,001445: 10,3523 00110 BITS7+4 OCT 110
060017,001446: 10,3524 1070 DSPFLG EQUALS EBANKSAV
060018,001447: 10,3524 1071 MARKFLAG EQUALS MARKEBAN
060019,001448: 10,3524 1072 SAVEFLAG EQUALS EBANKTEM
060020,001449: 10,3524 02020 BITS5+11 OCT 2020 # * DONT MOVE
060021,001450: 10,3525 01010 BITS4+10 OCT 1010 # * DONT MOVE
060022,001451: 10,3526 00026 LOWLOAD DEC 22 B-14
060023,001452: 10,3527 77730 BUSYMASK OCT 77730
060024,001453: 10,3530 00050 CADRMASK OCT 50
060025,001454: 10,3531 7740 PINMASK EQUALS 13,14,15
060026,001455: 10,3531 10,3070 GOPLAY EQUALS NVDSP
060027,001456: # PRIOSAVE EQUALS R1SAVE
060028,001457: 10,3531 0157 COPMPAC EQUALS MPAC +3
060029,001458: 10,3531 0160 TEMPOR2 EQUALS MPAC +4
060030,001459:
![]() |
Page 1373 |
060032,001461: 10,3531 0161 OUTHERE EQUALS MPAC +5
060033,001462: 10,3531 0164 COPINDEX EQUALS LOC
060034,001463: 10,3531 0163 USERPRIO EQUALS MODE
060035,001464: 10,3531 0162 GENMASK EQUALS MPAC +6
060036,001465: 10,3531 20144 PRIOOCT OCT 20144 # PRIO
060037,001466: 10,3532 42424 MARKOCT OCT 42424 # MARK
060038,001467: 10,3533 11254 OCT 11254 # NORM
060039,001468:
060040,001469: 10,3534 74704 IDLESLEP OCT 74704
060041,001470: 10,3535 67777 OCT67777 OCT 67777
060042,001471: 10,3536 5464 LINUS EQUALS BLANKET
060043,001472: 10,3536 0154 FACEREG EQUALS MPAC
060044,001473: 10,3536 0155 PLAYTEM1 EQUALS MPAC +1
060045,001474: 10,3536 0157 PLAYTEM3 EQUALS MPAC +3
060046,001475: 10,3536 0160 PLAYTEM4 EQUALS MPAC +4
060047,001476: 10,3536 40420 OCT40420 OCT 40420
060048,001477: 10,3537 02546 MAKEGEN GENADR MAKEPLAY
060049,001478: 10,3540 10200 OCT10200 OCT 10200
060050,001479: 10,3541 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
060051,001480: 10,3542 20100 OCT20100 OCT 20100
060052,001481: 10,3543 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE, REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc