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. |
048145,000002: ## Copyright: Public domain.
048146,000003: ## Filename: WAITLIST.agc
048147,000004: ## Purpose: The main source file for Luminary revision 069.
048148,000005: ## It is part of the source code for the original release
048149,000006: ## of the flight software for the Lunar Module's (LM) Apollo
048150,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
048151,000008: ## version was Luminary 69 revision 2, which included a
048152,000009: ## newer lunar gravity model and only affected module 2.
048153,000010: ## This file is intended to be a faithful transcription, except
048154,000011: ## that the code format has been changed to conform to the
048155,000012: ## requirements of the yaYUL assembler rather than the
048156,000013: ## original YUL assembler.
048157,000014: ## Reference: pp. 1112-1127
048158,000015: ## Assembler: yaYUL
048159,000016: ## Contact: Ron Burkey <info@sandroid.org>.
048160,000017: ## Website: www.ibiblio.org/apollo/index.html
048161,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
048162,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
048163,000020: ## 2016-12-26 RRB Updated for Luminary 69.
048164,000021: ## 2017-01-28 RSB WTIH -> WITH.
048165,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
048166,000023: ## and fixed errors found.
048167,000024: ## 2017-02-09 RSB Comment-text fixes identified in proofing Artemis 72
048168,000025: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
048169,000026: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
048170,000027: ## side-by-side diff of Luminary 69/99/116/131/210.
048171,000028: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
048172,000029: ## side-by-side diff of Luminary 69/99/116/131/210.
048173,000030:
|
|
Page 1112 |
048175,000032: # PROGRAM DESCRIPTION DATE - 10 OCTOBER 1966
048176,000033: # MOD NO - 2 LOG SECTION - WAITLIST
048177,000034: # MOD BY - MILLER (DTMAX INCREASED TO 162.5 SEC) ASSEMBLY SUNBURST REV 5
048178,000035: # MOD 3 BY KERNAN (INHINT INSERTED AT WAITLIST) 2/28/68 SKIPPER REV 4
048179,000036: # MOD 4 BY KERNAN (TWIDDLE IN 54) 3/28/68 SKIPPER REV 13.
048180,000037:
048181,000038: # FUNCTIONAL DESCRIPTION -
048182,000039: # PART OF A SECTION OF PROGRAMS,- WAITLIST, TASKOVER, T3RUPT, USED TO CALL A PROGRAM, (CALLED A TASK),
048183,000040: # WHICH IS TO BEGIN IN C(A) CENTISECONDS. WAITLIST UPDATES TIME3, LST1 AND LST2. THE MEANING OF THESE LISTS
048184,000041: # FOLLOW.
048185,000042:
048186,000043: # C(TIME3) = 16384 -(T1-T) CENTISECONDS, (T=PRESENT TIME, T1-TIME FOR TASK1)
048187,000044:
048188,000045: # C(LST1) = -(T2-T1)+1
048189,000046: # C(LST1 +1) = -(T3-T2)+1
048190,000047: # C(LST1 +2) = -(T4-T3)+1
048191,000048: # .
048192,000049: # .
048193,000050: # C(LST1 +6) = -(T8-T7)+1
048194,000051: # C(LST1 +7) = -(T9-T8)+1
048195,000052:
048196,000053: # C(LST2) = 2CADR OF TASK1
048197,000054: # C(LST2 +2) = 2CADR OF TASK2
048198,000055: # .
048199,000056: # .
048200,000057: # C(LST2 +14)= 2CADR OF TASK8
048201,000058: # C(LST2 +16)= 2CADR OF TASK9
048202,000059:
048203,000060: # WARNINGS -
048204,000061: # --------
048205,000062: # 1) 1 <= C(A) <= 16250D (1 CENTISECOND TO 162.5 SEC)
048206,000063: # 2) 9 TASKS MAXIMUM
048207,000064: # 3) TASKS CALLED UNDER INTERRUPT INHIBITED
048208,000065: # 4) TASKS END BY TC TASKOVER
048209,000066:
048210,000067: # CALLING SEQUENCE -
048211,000068: # L-1 CA DELTAT (TIME IN CENTISECONDS TO TASK START)
048212,000069: # L TC WAITLIST
048213,000070: # L+1 2CADR DESIRED TASK
048214,000071: # L+2 (MINOR OF 2CADR)
048215,000072: # L+3 RELINT (RETURNS HERE)
048216,000073:
048217,000074: # TWIDDLE -
048218,000075: # -------
048219,000076: # TWIDDLE IS FOR USE WHEN THE TASK BEING SET UP IS IN THE SAME EBANK AND FBANK AS THE USER. IN
048220,000077: # SUCH CASES, IT IMPROVES UPON WAITLIST BY ELIMINATING THE NEED FOR THE BBCON HALF OF THE 2CADR,
|
|
Page 1113 |
048222,000079: # SAVING A WORD. TWIDDLE IS LIKE WAITLIST IN EVERY RESPECT EXCEPT CALLING SEQUENCE, TO WIT-
048223,000080: # L-1 CA DELTAT
048224,000081: # L TC TWIDDLE
048225,000082: # L+1 ADRES DESIRED TASK
048226,000083: # L+2 RELINT (RETURNS HERE)
048227,000084:
048228,000085: # NORMAL EXIT MODES -
048229,000086: # AT L+3 OF CALLING SEQUENCE
048230,000087:
048231,000088: # ALARM OR ABORT EXIT MODES -
048232,000089: # TC ABORT
048233,000090: # OCT 1203 (WAITLIST OVERFLOW - TOO MANY TASKS)
048234,000091:
048235,000092: # ERASABLE INITIALIZATION REQUIRED -
048236,000093: # ACCOMPLISHED BY FRESH START,--LST2, ..., LST2 +16 = ENDTASK
048237,000094: # LST1, ..., LST1 +7 = NEG1/2
048238,000095:
048239,000096: # OUTPUT --
048240,000097: # LST1 AND LST2 UPDATED WITH NEW TASK AND ASSOCIATED TIME.
048241,000098:
048242,000099: # DEBRIS -
048243,000100: # CENTRALS - A,Q,L
048244,000101: # OTHER - WAITEXIT, WAITADR, WAITTEMP, WAITBANK
048245,000102:
048246,000103: # DETAILED ANALYSIS OF TIMING -
048247,000104: # CONTROL WILL NOT BE RETURNED TO THE SPECIFIED ADDRESS (2CADR) IN EXACTLY DELTA T CENTISECONDS.
048248,000105: # THE APPROXIMATE TIME MAY BE CALCULATED AS FOLLOWS
048249,000106: # LET TO = THE TIME OF THE TC WAITLIST
048250,000107: # LET TS = TO +147U + COUNTER INCREMENTS (SET UP TIME)
048251,000108: # LET X = TS -(100TS)/100 (VARIANCE FROM COUNTERS)
048252,000109: # LET Y = LENGTH OF TIME OF INHIBIT INTERRUPT AFTER T3RUPT
048253,000110: # LET Z = LENGTH OF TIME TO PROCESS TASKS WHICH ARE DUE THIS T3RUPT BUT DISPATCHED EARLIER.
048254,000111: # (Z=0, USUALLY)
048255,000112: # LET DELTD = THE ACTUAL TIME TAKEN TO GIVE CONTROL TO 2CADR
048256,000113: # THEN DELTD = TS+DELTA T -X +Y +Z +1.05MS* +COUNTERS*
048257,000114: # *-THE TIME TAKEN BY WAITLIST ITSELF AND THE COUNTER TICKING DURING THIS WAITLIST TIME.
048258,000115: # IN SHORT, THE ACTUAL TIME TO RETURN CONTROL TO A 2CADR IS AUGMENTED BY THE TIME TO SET UP THE TASK:S
048259,000116: # INTERRUPT, ALL COUNTERS TICKING, THE T3RUPT PROCESSING TIME, THE WAITLIST PROCESSING TIME AND THE POSSIBILITY
048260,000117: # OF OTHER TASKS INHIBITING THE INTERRUPT.
048261,000118:
048262,000119: 5173 BLOCK 02
|
|
Page 1114 |
048264,000121: 5173 E3,1400 EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
048265,000122:
048266,000123: 5173 COUNT* $$/WAIT
048267,000124: 5173 00004 TWIDDLE INHINT
048268,000125: 5174 54001 TS L # SAVE DELAY TIME IN L
048269,000126: 5175 34733 CA POSMAX
048270,000127: 5176 26002 ADS Q # CREATING OVERFLOW AND Q-1 IN Q
048271,000128: 5177 30006 CA BBANK
048272,000129: 5200 00006 EXTEND
048273,000130: 5201 04007 ROR SUPERBNK
048274,000131: 5202 56001 XCH L
048275,000132:
048276,000133: 5203 00004 WAITLIST INHINT
048277,000134: 5204 56002 XCH Q # SAVE DELTA T IN Q AND RETURN IN
048278,000135: 5205 54061 TS WAITEXIT # WAITEXIT.
048279,000136: 5206 00006 EXTEND
048280,000137: 5207 50061 INDEX WAITEXIT # IF TWIDDLING, THE TS SKIPS TO HERE
048281,000138: 5210 30001 DCA 0 # PICK UP 2CADR OF TASK.
048282,000139: 5211 54063 -1 TS WAITADR # BBCON WILL REMAIN IN L
048283,000140: 5212 35220 DLY2 CAF WAITBB # ENTRY FROM FIXDELAY AND VARDELAY.
048284,000141: 5213 56006 XCH BBANK
048285,000142: 5214 13226 TCF WAIT2
048286,000143:
048287,000144: # RETURN TO CALLER AFTER TASK INSERTION:
048288,000145:
048289,000146: 5215 52062 LVWTLIST DXCH WAITEXIT
048290,000147: 5216 64752 AD TWO
048291,000148: 5217 52006 DTCB
048292,000149:
048293,000150: 5220 E3,1400 EBANK= LST1
048294,000151: 5220 02063 WAITBB BBCON WAIT2
048295,000152:
048296,000153: # RETURN TO CALLER +2 AFTER WAITING DT SPECIFIED AT CALLER +1.
048297,000154:
048298,000155: 5221 50002 FIXDELAY INDEX Q # BOTH ROUTINES MUST BE CALLED UNDER
048299,000156: 5222 30000 CAF 0 # WAITLIST CONTROL AND TERMINATE THE TASK
048300,000157: 5223 24002 INCR Q # IN WHICH THEY WERE CALLED.
048301,000158:
048302,000159: # RETURN TO CALLER +1 AFTER WAITING THE DT AS ARRIVING IN A.
048303,000160:
048304,000161: 5224 56002 VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR.
048305,000162: 5225 54063 TS WAITADR
048306,000163: 5226 30006 CA BBANK # BBANK IS SAVED DURING DELAY.
048307,000164: 5227 00006 EXTEND
048308,000165: 5230 04007 ROR SUPERBNK # ADD SBANK TO BBCON.
048309,000166: 5231 54001 TS L
048310,000167: 5232 35235 CAF DELAYEX
048311,000168: 5233 54061 TS WAITEXIT # GO TO TASKOVER AFTER TASK ENTRY.
048312,000169: 5234 15212 TCF DLY2
048313,000170:
|
|
Page 1115 |
048315,000172: 5235 15257 DELAYEX TCF TASKOVER -2 # RETURNS TO TASKOVER
048316,000173:
|
|
Page 1116 |
048318,000175: # ENDTASK MUST BE ENTERED IN FIXED-FIXED SO IT IS DISTINGUISHABLE BY ITS ADRES ALONE.
048319,000176:
048320,000177: 5236 E3,1400 EBANK= LST1
048321,000178: 5236 72537 73714 ENDTASK -2CADR SVCT3
048322,000179:
048323,000180: 5240 10076 SVCT3 CCS FLAGWRD2 # DRIFT FLAG
048324,000181: 5241 15261 TCF TASKOVER
048325,000182: 5242 15261 TCF TASKOVER
048326,000183: 5243 15244 TCF +1
048327,000184:
048328,000185: 5244 11304 CKIMUSE CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
048329,000186: 5245 15256 TCF SVCT3X # IMUSTALL.
048330,000187: 5246 15251 TCF +3
048331,000188: 5247 15256 TCF SVCT3X
048332,000189: 5250 15256 TCF SVCT3X
048333,000190:
048334,000191: 5251 37722 +3 CAF PRIO35 # COMPENSATE FOR NBD COEFFICIENTS ONLY.
048335,000192: 5252 05072 TC NOVAC # ENABLE EVERY 81.93 SECONDS
048336,000193: 5253 E3,1460 EBANK= NBDX
048337,000194: 5253 03555 14063 2CADR NBDONLY
048338,000195:
048339,000196: 5255 15261 TCF TASKOVER
048340,000197:
048341,000198: 5256 05221 SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO.
048342,000199: 5257 00764 DEC 500 B-14
048343,000200: 5260 05240 TC SVCT3 # CHECK DRIFT FLAG AGAIN.
048344,000201:
|
|
Page 1117 |
048346,000203: # BEGIN TASK INSERTION.
048347,000204:
048348,000205: 01,3226 BANK 01
048349,000206: 01,3226 COUNT* $$/WAIT
048350,000207: 01,3226 54062 WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
048351,000208: 01,3227 30002 CA Q
048352,000209: 01,3230 00006 EXTEND
048353,000210: 01,3231 63520 BZMF WAITPOOH
048354,000211:
048355,000212: 01,3232 40026 CS TIME3
048356,000213: 01,3233 64744 AD BIT8 # BIT 8 = OCT 200
048357,000214: 01,3234 10000 CCS A # TEST 200 - C(TIME3). IF POSITIVE,
048358,000215: # IT MEANS THAT TIME3 OVERFLOW HAS OCCURRED PRIOR TO CS TIME3 AND THAT
048359,000216: # C(TIME3) = T - T1, INSTEAD OF 1.0 - (T1 - T). THE FOLLOWING FOUR
048360,000217: # ORDERS SET C(A) = TD - T1 + 1 IN EITHER CASE.
048361,000218:
048362,000219: 01,3235 66106 AD OCT40001 # OVERFLOW HAS OCCURRED. SET C(A) =
048363,000220: 01,3236 40000 CS A # T - T1 + 1.0 - 201
048364,000221:
048365,000222: # NORMAL CASE (C(A) NNZ) YIELDS SAME C(A): -( -(1.0-(T1-T)) + 200) - 1
048366,000223:
048367,000224: 01,3237 63365 AD OCT40201
048368,000225: 01,3240 60002 AD Q # RESULT = TD - T1 + 1.
048369,000226:
048370,000227: 01,3241 10000 CCS A # TEST TD - T1 + 1
048371,000228:
048372,000229: 01,3242 61400 AD LST1 # IF TD - T1 POS, GO TO WTLST5 WITH
048373,000230: 01,3243 13305 TCF WTLST5 # C(A) = (TD - T1) + C(LST1) = TD-T2+1
048374,000231:
048375,000232: 01,3244 13245 NOOP
048376,000233: 01,3245 40002 CS Q
048377,000234:
048378,000235: # NOTE THAT THIS PROGRAM SECTION IS NEVER ENTERED WHEN T-T1 G/E -1,
048379,000236: # SINCE TD-T1+1 = (TD-T) + (T-T1+1), AND DELTA T = TD-T G/E +1. (G/E
048380,000237: # SYMBOL MEANS GREATER THAN OR EQUAL TO). THUS THERE NEED BE NO CON-
048381,000238: # CERN OVER A PREVIOUS OR IMMINENT OVERFLOW OF TIME3 HERE.
048382,000239:
048383,000240: 01,3246 64736 AD POS1/2 # WHEN TD IS NEXT, FORM QUANTITY
048384,000241: 01,3247 64736 AD POS1/2 # 1.0 - DELTA T = 1.0 - (TD - T)
048385,000242: 01,3250 56026 XCH TIME3
048386,000243: 01,3251 64735 AD NEGMAX
048387,000244: 01,3252 60002 AD Q # 1.0 - DELTAT T NOW COMPLETE.
048388,000245: 01,3253 00006 EXTEND # ZERO INDEX Q.
048389,000246: 01,3254 22007 QXCH 7 # (ZQ)
048390,000247:
|
|
Page 1118 |
048392,000249: 01,3255 57400 WTLST4 XCH LST1
048393,000250: 01,3256 57401 XCH LST1 +1
048394,000251: 01,3257 57402 XCH LST1 +2
048395,000252: 01,3260 57403 XCH LST1 +3
048396,000253: 01,3261 57404 XCH LST1 +4
048397,000254: 01,3262 57405 XCH LST1 +5
048398,000255: 01,3263 57406 XCH LST1 +6
048399,000256: 01,3264 57407 XCH LST1 +7
048400,000257:
048401,000258: 01,3265 30063 CA WAITADR # (MINOR PART OF TASK CADR HAS BEEN IN L.)
048402,000259: 01,3266 50002 INDEX Q
048403,000260: 01,3267 13270 TCF +1
048404,000261:
048405,000262: 01,3270 53411 DXCH LST2
048406,000263: 01,3271 53413 DXCH LST2 +2
048407,000264: 01,3272 53415 DXCH LST2 +4
048408,000265: 01,3273 53417 DXCH LST2 +6
048409,000266: 01,3274 53421 DXCH LST2 +8D
048410,000267: 01,3275 53423 DXCH LST2 +10D # AT END, CHECK THAT C(LST2 +10) IS STD
048411,000268: 01,3276 53425 DXCH LST2 +12D
048412,000269: 01,3277 53427 DXCH LST2 +14D
048413,000270: 01,3300 53431 DXCH LST2 +16D
048414,000271: 01,3301 65236 AD ENDTASK # END ITEM, AS CHECK FOR EXCEEDING
048415,000272: # THE LENGTH OF THE LIST.
048416,000273: 01,3302 00006 EXTEND # DUMMY TASK ADRES SHOULD BE IN FIXED-
048417,000274: 01,3303 15215 BZF LVWTLIST # FIXED SO ITS ADRES ALONE DISTINGUISHES
048418,000275: 01,3304 13360 TCF WTABORT # IT.
048419,000276:
|
|
Page 1119 |
048421,000278: 01,3305 10000 WTLST5 CCS A # TEST TD - T2 + 1
048422,000279: 01,3306 61401 AD LST1 +1
048423,000280: 01,3307 13313 TCF +4
048424,000281: 01,3310 64753 AD ONE
048425,000282: 01,3311 03371 TC WTLST2
048426,000283: 01,3312 00001 OCT 1
048427,000284:
048428,000285: 01,3313 10000 +4 CCS A # TEST TD - T3 + 1
048429,000286: 01,3314 61402 AD LST1 +2
048430,000287: 01,3315 13321 TCF +4
048431,000288: 01,3316 64753 AD ONE
048432,000289: 01,3317 03371 TC WTLST2
048433,000290: 01,3320 00002 OCT 2
048434,000291:
048435,000292: 01,3321 10000 +4 CCS A # TEST TD - T4 + 1
048436,000293: 01,3322 61403 AD LST1 +3
048437,000294: 01,3323 13327 TCF +4
048438,000295: 01,3324 64753 AD ONE
048439,000296: 01,3325 03371 TC WTLST2
048440,000297: 01,3326 00003 OCT 3
048441,000298:
048442,000299: 01,3327 10000 +4 CCS A # TEST TD - T5 + 1
048443,000300: 01,3330 61404 AD LST1 +4
048444,000301: 01,3331 13335 TCF +4
048445,000302: 01,3332 64753 AD ONE
048446,000303: 01,3333 03371 TC WTLST2
048447,000304: 01,3334 00004 OCT 4
048448,000305:
048449,000306: 01,3335 10000 +4 CCS A # TEST TD - T6 + 1
048450,000307: 01,3336 61405 AD LST1 +5
048451,000308: 01,3337 13343 TCF +4
048452,000309: 01,3340 64753 AD ONE
048453,000310: 01,3341 03371 TC WTLST2
048454,000311: 01,3342 00005 OCT 5
048455,000312:
048456,000313: 01,3343 10000 +4 CCS A # TEST TD - T7 + 1
048457,000314: 01,3344 61406 AD LST1 +6
048458,000315: 01,3345 13351 TCF +4
048459,000316: 01,3346 64753 AD ONE
048460,000317: 01,3347 03371 TC WTLST2
048461,000318: 01,3350 00006 OCT 6
048462,000319:
|
|
Page 1120 |
048464,000321: 01,3351 10000 +4 CCS A
048465,000322: 01,3352 61407 AD LST1 +7
048466,000323: 01,3353 13357 TCF +4
048467,000324: 01,3354 64753 AD ONE
048468,000325: 01,3355 03371 TC WTLST2
048469,000326: 01,3356 00007 OCT 7
048470,000327:
048471,000328: 01,3357 10000 +4 CCS A
048472,000329: 01,3360 03366 WTABORT TC FILLED
048473,000330: 01,3361 13362 NOOP # CAN'T GET HERE
048474,000331: 01,3362 64753 AD ONE
048475,000332: 01,3363 03371 TC WTLST2
048476,000333: 01,3364 00010 OCT 10
048477,000334:
048478,000335: 01,3365 40201 OCT40201 OCT 40201
048479,000336:
|
|
Page 1121 |
048481,000338: 01,3366 52062 FILLED DXCH WAITEXIT
048482,000339: 01,3367 05710 TC BAILOUT1 # NO ROOM IN THE INN
048483,000340: 01,3370 01203 OCT 01203
048484,000341:
|
|
Page 1122 |
048486,000343: # THE ENTRY TO WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
048487,000344: # N N+1
048488,000345: # (LE MEANS LESS THAN OR EQUAL TO). AT ENTRY, C(A) = -(TD - T + 1)
048489,000346: # N+1
048490,000347: # THE LST1 ENTRY -(T -T +1) IS TO BE REPLACED BY -(TD - T + 1), AND
048491,000348: # N+1 N N
048492,000349: # THE ENTRY -(T - TD + 1) IS TO BE INSERTED IMMEDIATELY FOLLOWING.
048493,000350: # N+1
048494,000351:
048495,000352: 01,3371 54064 WTLST2 TS WAITTEMP # C(A) = -(TD - T + 1)
048496,000353: 01,3372 50002 INDEX Q
048497,000354: 01,3373 30000 CAF 0
048498,000355: 01,3374 54002 TS Q # INDEX VALUE INTO Q.
048499,000356:
048500,000357: 01,3375 34753 CAF ONE
048501,000358: 01,3376 60064 AD WAITTEMP
048502,000359: 01,3377 50002 INDEX Q # C(A) = -(TD - T ) + 1.
048503,000360: 01,3400 27377 ADS LST1 -1 # N
048504,000361:
048505,000362: 01,3401 40064 CS WAITTEMP
048506,000363: 01,3402 50002 INDEX Q
048507,000364: 01,3403 13255 TCF WTLST4
048508,000365:
048509,000366: # C(TIME3) = 1.0 - (T1 - T)
048510,000367:
048511,000368: # C(LST1 ) = - (T2 - T1) + 1
048512,000369: # C(LST1+1) = - (T3 - T2) + 1
048513,000370: # C(LST1+2) = - (T4 - T3) + 1
048514,000371: # C(LST1+3) = - (T5 - T4) + 1
048515,000372: # C(LST1+4) = - (T6 - T5) + 1
048516,000373:
048517,000374: # C(LST2 ) = 2CADR TASK1
048518,000375: # C(LST2+2 ) = 2CADR TASK2
048519,000376: # C(LST2+4 ) = 2CADR TASK3
048520,000377: # C(LST2+6 ) = 2CADR TASK4
048521,000378: # C(LST2+8 ) = 2CADR TASK5
048522,000379: # C(LST2+10) = 2CADR TASK6
048523,000380:
|
|
Page 1123 |
048525,000382: # ENTERS HERE ON T3 RUPT TO DISPATCH WAITLISTED TASK.
048526,000383:
048527,000384: 01,3404 00006 T3RUPT EXTEND
048528,000385: 01,3405 04007 ROR SUPERBNK # READ CURRENT SUPERBANK VALUE AND
048529,000386: 01,3406 54016 TS BANKRUPT # SAVE WITH E AND F BANK VALUES.
048530,000387: 01,3407 00006 EXTEND
048531,000388: 01,3410 22012 QXCH QRUPT
048532,000389:
048533,000390: 01,3411 34734 T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK.
048534,000391: 01,3412 57407 XCH LST1 +7
048535,000392: 01,3413 57406 XCH LST1 +6
048536,000393: 01,3414 57405 XCH LST1 +5
048537,000394: 01,3415 57404 XCH LST1 +4 # 1. MOVE UP LST1 CONTENTS, ENTERING
048538,000395: 01,3416 57403 XCH LST1 +3 # A VALUE OF 1/2 +1 AT THE BOTTOM
048539,000396: 01,3417 57402 XCH LST1 +2 # FOR T6-T5, CORRESPONDING TO THE
048540,000397: 01,3420 57401 XCH LST1 +1 # INTERVAL 81.91 SEC FOR ENDTASK.
048541,000398: 01,3421 57400 XCH LST1
048542,000399: 01,3422 64733 AD POSMAX # 2. SET T3 = 1.0 - T2 - T USING LIST 1.
048543,000400: 01,3423 26026 ADS TIME3 # SO T3 WONT TICK DURING UPDATE.
048544,000401: 01,3424 54734 TS RUPTAGN
048545,000402: 01,3425 44755 CS ZERO
048546,000403: 01,3426 54734 TS RUPTAGN # SETS RUPTAGN TO +1 ON OVERFLOW.
048547,000404:
048548,000405: 01,3427 00006 EXTEND # DISPATCH TASK.
048549,000406: 01,3430 45237 DCS ENDTASK
048550,000407: 01,3431 53431 DXCH LST2 +16D
048551,000408: 01,3432 53427 DXCH LST2 +14D
048552,000409: 01,3433 53425 DXCH LST2 +12D
048553,000410: 01,3434 53423 DXCH LST2 +10D
048554,000411: 01,3435 53421 DXCH LST2 +8D
048555,000412: 01,3436 53417 DXCH LST2 +6
048556,000413: 01,3437 53415 DXCH LST2 +4
048557,000414: 01,3440 53413 DXCH LST2 +2
048558,000415: 01,3441 53411 DXCH LST2
048559,000416:
048560,000417: 01,3442 56001 XCH L
048561,000418: 01,3443 00006 EXTEND
048562,000419: 01,3444 01007 WRITE SUPERBNK # SET SUPERBANK FROM BBCON OF 2CADR
048563,000420: 01,3445 56001 XCH L # RESTORE TO L FOR DXCH Z.
048564,000421: 01,3446 52006 DTCB
048565,000422:
|
|
Page 1124 |
048567,000424: # RETURN, AFTER EXECUTION OF T3 OVERFLOW TASK:
048568,000425:
048569,000426: 5261 BLOCK 02
048570,000427: 5261 COUNT* $$/WAIT
048571,000428: 5261 10734 TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
048572,000429: 5262 35220 CAF WAITBB
048573,000430: 5263 54006 TS BBANK
048574,000431: 5264 13411 TCF T3RUPT2 # DISPATCH NEXT TASK IF IT WAS DUE.
048575,000432:
048576,000433: 5265 30016 CA BANKRUPT
048577,000434: 5266 00006 EXTEND
048578,000435: 5267 01007 WRITE SUPERBNK # RESTORE SUPERBANK BEFORE RESUME IS DONE
048579,000436:
048580,000437: 5270 00006 RESUME EXTEND
048581,000438: 5271 22012 QXCH QRUPT
048582,000439: 5272 30016 NOQRSM CA BANKRUPT
048583,000440: 5273 56006 XCH BBANK
048584,000441: 5274 52011 NOQBRSM DXCH ARUPT
048585,000442: 5275 00003 RELINT
048586,000443: 5276 50017 RESUME
048587,000444:
|
|
Page 1125 |
048589,000446: # LONGCALL
048590,000447: # PROGRAM DESCRIPTION DATE - 17 MARCH 1967
048591,000448: # PROGRAM WRITTEN BY W.H.VANDEVER LOG SECTION WAITLIST
048592,000449: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 100
048593,000450:
048594,000451: # FUNCTIONAL DESCRIPTION -
048595,000452: # LONGCALL IS CALLED WITH THE DELTA TIME ARRIVING IN A,L SCALED AS TIME2,TIME1 WITH THE 2CADR OF THE TASK
048596,000453: # IMMEDIATELY FOLLOWING THE TC LONGCALL. FOR EXAMPLE, IT MIGHT BE DONE AS FOLLOWS WHERE TIMELOC IS THE NAME OF
048597,000454: # A DP REGISTER CONTAINING A DELTA TIME AND WHERE TASKTODO IS THE NAME OF THE LOCATION AT WHICH LONGCALL IS TO
048598,000455: # START
048599,000456: # CALLING SEQUENCE -
048600,000457: # EXTEND
048601,000458: # DCA TIMELOC
048602,000459: # TC LONGCALL
048603,000460: # 2CADR TASKTODO
048604,000461: # NORMAL EXIT MODE -
048605,000462: # 1). TC WAITLIST
048606,000463: # 2). DTCB (TO L+3 OF CALLING ROUTINE 1ST PASS THRU LONGCYCL)
048607,000464: # 3). DTCB (TO TASKOVER ON SUBSEQUENT PASSES THRU LONGCYCL)
048608,000465: # ALARM OR ABORT EXIT MODE -
048609,000466: # NONE
048610,000467: # OUTPUT -
048611,000468: # LONGTIME AND LONGTIME+1 = DELTA TIME
048612,000469: # LONGEXIT AND LONGEXIT+1 = RETURN 2CADR
048613,000470: # LONGCADR AND LONGCADR+1 = TASK 2CADR
048614,000471: # A = SINGLE PRECISION TIME FOR WAITLIST
048615,000472: # ERASABLE INITIALIZATION -
048616,000473: # A = MOST SIGNIFICANT PART OF DELTA TIME
048617,000474: # L = LEAST SIGNIFICANT PART OF DELTA TIME
048618,000475: # Q = ADDRESS OF 2CADR TASK VALUE
048619,000476: # DEBRIS -
048620,000477: # A,Q,L
048621,000478: # LONGCADR AND LONGCADR+1
048622,000479: # LONGEXIT AND LONGEXIT+1
048623,000480: # LONGTIME AND LONGTIME+1
048624,000481: # *** THE FOLLOWING IS TO BE IN FIXED-FIXED AND UNSWITCHED ERRASIBLE ***
048625,000482:
048626,000483: 5277 BLOCK 02
048627,000484: 5277 E3,1400 EBANK= LST1
048628,000485: 5277 53154 LONGCALL DXCH LONGTIME # OBTAIN THE DELTA TIME
048629,000486:
048630,000487: 5300 00006 EXTEND # OBTAIN THE 2CADR
|
|
Page 1126 |
048632,000489: 5301 50002 NDX Q
048633,000490: 5302 30001 DCA 0
048634,000491: 5303 53150 DXCH LONGCADR
048635,000492:
048636,000493: 5304 00006 EXTEND # NOW GO TO THE APPROPRIATE SWITCHED BANK
048637,000494: 5305 35310 DCA LGCL2CDR # FOR THE REST OF LONGCALL
048638,000495: 5306 52006 DTCB
048639,000496:
048640,000497: 5307 E3,1400 EBANK= LST1
048641,000498: 5307 03447 02063 LGCL2CDR 2CADR LNGCALL2
048642,000499:
048643,000500: # *** THE FOLLOWING MAY BE IN A SWITCHED BANK, INCLUDING ITS ERASABLE ***
048644,000501:
048645,000502: 01,3447 BANK 01
048646,000503: 01,3447 COUNT* $$/WAIT
048647,000504: 01,3447 23435 LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
048648,000505: 01,3450 34752 CA TWO # OBTAIN THE RETURN ADDRESS
048649,000506: 01,3451 26002 ADS Q
048650,000507: 01,3452 55434 TS LONGEXIT
048651,000508:
048652,000509: 01,3453 31153 CA LONGTIME # CHECK FOR LEGITIMATE DELTA-TIME
048653,000510: 01,3454 10000 CCS A
048654,000511: 01,3455 13463 TCF LONGCYCL # HI-ORDER OK --> ALL IS OK.
048655,000512: 01,3456 13460 TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER.
048656,000513: 01,3457 13516 TCF LONGPOOH # HI-ORDER NEG. --> NEG. DT
048657,000514: 01,3460 31154 +2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE.
048658,000515: 01,3461 00006 EXTEND
048659,000516: 01,3462 63516 BZMF LONGPOOH # BAD DELTA-TIME. ABORT
048660,000517:
048661,000518: # *** WAITLIST TASK LONGCYCL ***
048662,000519:
048663,000520: 01,3463 00006 LONGCYCL EXTEND # CAN WE SUCCESFULLY TAKE ABOUT 1.25
048664,000521: 01,3464 43475 DCS DPBIT14 # MINUTES OFF OF LONGTIME
048665,000522: 01,3465 21154 DAS LONGTIME
048666,000523:
048667,000524: 01,3466 11154 CCS LONGTIME +1 # THE REASONIBG BEHIND THIS PART IS
048668,000525: 01,3467 13506 TCF MUCHTIME # INVOLVED, TAKING INTO ACCOUNT THAT THE
048669,000526: # WORDS MAY NOT BE SIGNED CORRECTED (DP
048670,000527: # BASIC INSTRUCTIONS
048671,000528: # DO NOT SIGN CORRECT) AND THAT WE SUBTRAC
048672,000529: # TED BIT14 (1 OVER HALF THE POS. VALUE
048673,000530: # REPRESENTIBLE IN SINGLE WORD)
048674,000531: 01,3470 13471 NOOP # CAN:T GET HERE **********
048675,000532: 01,3471 13472 TCF +1
048676,000533: 01,3472 11153 CCS LONGTIME
048677,000534: 01,3473 13506 TCF MUCHTIME
048678,000535: 01,3474 00000 DPBIT14 OCT 00000
048679,000536: 01,3475 20000 OCT 20000
048680,000537:
048681,000538: # LONGCALL
|
|
Page 1127 |
048683,000540: 01,3476 34736 LASTTIME CA BIT14 # GET BACK THE CORRECT DELTA TFOR WAITLIST
048684,000541: 01,3477 27154 ADS LONGTIME +1
048685,000542: 01,3500 05203 TC WAITLIST
048686,000543: 01,3501 E3,1400 EBANK= LST1
048687,000544: 01,3501 03513 02063 2CADR GETCADR # THE ENTRY TO OUR LONGCADR
048688,000545:
048689,000546: 01,3503 33515 LONGRTRN CA TSKOVCDR # SET IT UP SO THAT ONLY THE FIRST EXIT IS
048690,000547: 01,3504 53435 DXCH LONGEXIT # TO THE CALLER OF LONGCALL
048691,000548: 01,3505 52006 DTCB # THE REST ARE TO TASKOVER
048692,000549:
048693,000550: 01,3506 34736 MUCHTIME CA BIT14 # WE HAVE OVER OUR ABOUT 1.25 MINUTES
048694,000551: 01,3507 05203 TC WAITLIST # SO SET UP FOR ANOTHER CYCLE THROUGH HERE
048695,000552: 01,3510 E3,1400 EBANK= LST1
048696,000553: 01,3510 03463 02063 2CADR LONGCYCL
048697,000554:
048698,000555: 01,3512 13503 TCF LONGRTRN # NOW EXIT PROPERLY
048699,000556:
048700,000557: # *** WAITLIST TASK GETCADR ***
048701,000558:
048702,000559: 01,3513 53150 GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
048703,000560: 01,3514 52006 DTCB # AND TRANSFER CONTROL TO IT
048704,000561:
048705,000562: 01,3515 05261 TSKOVCDR GENADR TASKOVER
048706,000563: 01,3516 53435 LONGPOOH DXCH LONGEXIT
048707,000564: 01,3517 13521 TCF +2
048708,000565: 01,3520 52062 WAITPOOH DXCH WAITEXIT
048709,000566: 01,3521 05720 +2 TC POODOO1
048710,000567: 01,3522 01204 OCT 01204
048711,000568:
End of include-file WAITLIST.agc. Parent file is MAIN.agc