Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Sundial E, the final release of the Block II Command Module (CM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum.

Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

014378,000002: 014379,000003: 014380,000004: 014381,000005: 014382,000006: 014383,000007: 014384,000008: 014385,000009: 014386,000010: 014387,000011: 014388,000012: 014389,000013: 014390,000014: 014391,000015: 014392,000016: 014393,000017: 014394,000018: 07,2720 014395,000019: 07,2720 E4,1407 014396,000020: 014397,000021: 014398,000022: 014399,000023: 014400,000024: 014401,000025: 014402,000026: 014403,000027: 014404,000028: 014405,000029: 014406,000030: 014407,000031: < < 014667,000291: 07,3241 014668,000292: 07,3242 014669,000293: 07,3243 014670,000294: 07,3244 014671,000295: 07,3245 014672,000296: 07,3246 014673,000297: 07,3247 014674,000298: 07,3250 014675,000299: 07,3251 014676,000300: 07,3252 014677,000301: 07,3253 014678,000302: ## Copyright: Public domain. ## Filename: CSM_AND_SATURN_INTEGRATED_TESTS.agc ## Purpose: A section of Sundial E. ## It is part of the reconstructed source code for the final ## release of the Block II Command Module system test software. No ## original listings of this program are available; instead, this ## file was created via disassembly of dumps of Sundial core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-22 MAS Created from Aurora 12. ## 2023-06-30 MAS Updated for Sundial E. SETLOC ENDINFSS EBANK= JETSTEP # CSM & SATURN TESTS ENTRY AND INITIALIZATION JOB. # THIS JOB INITIALIZES THE ERASABLE TABLES FOR THE CSM AND SATURN TESTS AND PUTS THE # FOLLOWING PROGRAMS UNDER WAITLIST CONTROL. # (1) RCS JET SET TASK # (2) ENGINE ON - OFF TASK # (3) SPS ENGINE GIMBAL TRIM TASK # (4) SATURN STEERING TASK # (5) INTERFACE CHANNEL LOOK TASK 254">014408,000032: 07,2720 05550 CSISTART TC GRABWAIT # SO NOTHING DISRUPTS THE LOAD. 33155 CAF JSTEPADR # THE START OF THE LIST. 54003 TS EBANK >014411,000035: 07,2723 10000 CSI3 CCS A 54142 TS MPAC +2 >014413,000037: 07,2725 33163 CSI2 CAF V04N01K # DISPLAY PRESENT CONTENTS IN R2. 05563 TC NVSBWAIT 24142 INCR MPAC +2 33156 CAF V21N02K 05563 TC NVSBWAIT # IN CASE IT,S BUSY BUT IT SHOULDN,T BE. 04724 TC ENDIDLE # WHILE LOADING. 02736 TC +3 # V34E. TERMINATE LOAD OF THIS LIST # SECTION, GO TO NEW SECTION OR TO TEST. 02735 TC +1 # V33E. PRESENT CONTENTS OK, PROCEED TO # NEXT LOCATION IN LIST. 02725 TC CSI2 33157 CAF V21N30K 05563 TC NVSBWAIT 04724 TC ENDIDLE 04352 TC EJFREE 02745 TC CSI4 30333 CAE DSPTEM1 # NEW ADDRESS. 02723 TC CSI3 >014431,000055: 07,2745 47651 CSI4 CS TWO 61547 AD TESTIDX 00006 EXTEND 62752 BZMF +2 03152 TC TIDXALRM 51547 INDEX TESTIDX 02754 TC +1 03114 TC CSITEST0 02757 TC CSITEST1 03054 TC CSITEST2 431">014443,000067: 07,2757 37650 CSITEST1 CAF BIT3 00006 EXTEND 02030 RAND 30 10000 CCS A 02765 TC +2 02770 TC CMCCHECK 33162 CAF OCT400 03032 TC PERFORM 02770 TC CMCCHECK 34B">014454,000078: 07,2770 00006 CMCCHECK EXTEND 00031 READ 31 10000 CCS A 03002 TC NOOPTCHK 03002 TC NOOPTCHK 02776 TC +1 33163 CAF OCT401 03032 TC PERFORM 02770 TC CMCCHECK 03050 TC PERFFAIL 84B">014465,000089: 07,3002 37646 NOOPTCHK CAF BIT5 00006 EXTEND 02033 RAND 33 10000 CCS A 03013 TC CSI1STRT 33165 CAF OCT403 03032 TC PERFORM 03002 TC NOOPTCHK 03050 TC PERFFAIL 254">014475,000099: 07,3013 37660 CSI1STRT CAF NEG0 54350 TS OPTIND 47651 CS BIT2 00006 EXTEND 03012 WAND 12 37657 CAF ZERO 54053 TS OPTYCMD 54054 TS OPTXCMD 00004 INHINT 37652 CAF ONE 04451 TC WAITLIST 03363 16004 2CADR TRIMTOP 00003 RELINT 03114 TC CSITEST0 D">014495,000119: 07,3032 54333 PERFORM TS DSPTEM1 00006 EXTEND 23400 QXCH QCSI 33161 CAF V01N25K 05563 TC NVSBWAIT 34420 CAF VB50 # PLEASE PERFORM. 05563 TC NVSBWAIT 05525 TC FLASHON # ANY RESPONSE TURNS IT OFF. 04724 TC ENDIDLE # WAIT FOR SOMEONE TO DO SOMETHING. 04352 TC EJFREE # V34E. TERMINATE THE TASK. 03046 TC +2 # V33E. RETURN TO Q +1. 01400 TC QCSI # ENTER. RETURN TO Q. 51400 INDEX QCSI 00001 TC 1 94C">014510,000134: 07,3050 05644 PERFFAIL TC ALARM 01404 OCT 01404 05474 TC FALTON 04352 TC EJFREE 432">014517,000141: 07,3054 03136 CSITEST2 TC ICDUCHK 03057 TC +2 04352 TC EJFREE 37641 CAF BIT10 00006 EXTEND 02030 RAND 30 10000 CCS A 03065 TC +2 03071 TC CSI2STRT 33164 CAF OCT402 03032 TC PERFORM 03054 TC CSITEST2 03050 TC PERFFAIL 254">014533,000157: 07,3071 11561 CSI2STRT CCS NOSIVBNJ 03076 TC +4 37636 CAF BIT13 00006 EXTEND 05012 WOR 12 47645 CS BIT6 00006 EXTEND 03012 WAND 12 00004 INHINT 33166 CAF .5SEC 04451 TC WAITLIST 03522 16004 2CADR SATSTART 00003 RELINT 37657 CAF ZERO 54050 TS CDUXCMD 54051 TS CDUYCMD 54052 TS CDUZCMD 03126 TC CSITEST3 430">014557,000181: 07,3114 00004 CSITEST0 INHINT 37651 CAF TWO 04451 TC WAITLIST 03213 16004 2CADR JETSTART 37652 CAF ONE 04451 TC WAITLIST 03272 16004 2CADR ENGSTART 00003 RELINT 433">014568,000192: 07,3126 37227 CSITEST3 CAF FIVE 00004 INHINT 04451 TC WAITLIST 03755 16004 2CADR LOOKTOP 33160 CAF V47K 05563 TC NVSBWAIT 04352 TC EJFREE B">014577,000201: 07,3136 00006 ICDUCHK EXTEND 23400 QXCH QCSI 37666 CAF OCTHIRTY 00006 EXTEND 02012 RAND 12 10000 CCS A 03146 TC +2 01400 TC QCSI 05644 TC ALARM 01405 OCT 01405 51400 INDEX QCSI 00001 TC 1 24D">014591,000215: 07,3152 05644 TIDXALRM TC ALARM 01401 OCT 01401 04352 TC EJFREE 452">014595,000219: 07,3155 02007 JSTEPADR ECADR JETSTEP B">014596,000220: 07,3156 02102 V21N02K OCT 02102 B">014597,000221: 07,3157 02130 V21N30K OCT 02130 >014598,000222: 07,3160 04700 V47K OCT 04700 B">014599,000223: 07,3161 00125 V01N25K OCT 00125 >014600,000224: 07,3162 00400 OCT400 OCT 400 >014601,000225: 07,3163 00401 OCT401 OCT 401 B">014602,000226: 07,3164 07,3163 V04N01K = OCT401 >014603,000227: 07,3164 00402 OCT402 OCT 402 >014604,000228: 07,3165 00403 OCT403 OCT 403 /a>014605,000229: 07,3166 00062 .5SEC DEC 50 B-14 B">014606,000230: 07,3167 70000 SATMASK OCT 70000 # CSM & SATURN TESTS RCS JETSET TASK # THIS JOB ISSUES A PROFILE OF JET ON-OFF SIGNALS AS DETERMINED BY THE CONSTANTS IN A SET OF SIX REGISTERS. # THE SIX REGISTERS ARE, (1) NTIMES, THE NUMBER OF TIMES A PARTICULAR STEP WILL BE PERFORMED. (2) NEXTTIME, THE # TIME BETWEEN STEPS, A MAXIMUM OF 2 MINUTES, (3) JETONTM, THE TIME TO TURN THE JETS ON, SCALED FOR T3, (4) JET- # OFFTM, THE TIME AFTER ONTM TO TURN THE JETS OFF, (5) XJETS, THE PARTICULAR X JETS TO BE TURNED ON AND OFF # DURING EACH REPEAT OF A STEP, AND (6) YZJETS,, THE Y AND Z JETS TO BE TURNED ON AND OFF DURING EACH REPEAT OF A # STEP. XJETS AND YZJETS MUST BE IN THE SAME FORMAT AS CHANNELS 5 AND6 RESPECTIVELY. THERE ARE EIGHT SETS OF # THESE SIX REGISTERS. # THE REGISTER JETSTEP IS USED TO INDEX THE 8 SETS OF REGISTERS, THE ALLOWABLE VALUES OF JETSTEP ARE +0 THRU 7 # THIS JOB WILL BE ENTERED BUT IMMEDIATELY ENDED IF THE INITIAL VALUES OF JETSTEP AND NTIMES ARE +0. 84B">014619,000243: 07,3170 00006 JTENGCHK EXTEND 63173 BZMF JTENGALM 00002 TC Q C4D">014622,000246: 07,3173 05644 JTENGALM TC ALARM 01402 OCT 1402 04505 TC TASKOVER 84B">014626,000250: 07,3176 00006 STEERCHK EXTEND 63201 BZMF STEERALM 00002 TC Q C4D">014629,000253: 07,3201 05644 STEERALM TC ALARM 01403 OCT 1403 51547 INDEX TESTIDX 00000 TC 0 03466 TC TRIMSTOP 03667 TC SATSTOP 4">014636,000260: 07,3207 11407 NEXTSET CCS JETSTEP # IT MAY BE ZERO. 03212 TC +2 # NOPE 04505 TC TASKOVER # IT IS SO WE ARE DONE WITH THIS TASK. 55407 TS JETSTEP 254">014641,000265: 07,3213 47656 JETSTART CS SEVEN 61407 AD JETSTEP 00006 EXTEND 63220 BZMF +2 03173 TC JTENGALM 51407 NDX JETSTEP # ENTER HERE. 11410 CCS NTIMES # SEE IF THIS STEP IS FINISHED. 03224 TC +2 # NO 03207 TC NEXTSET # YES 51407 NDX JETSTEP 31420 CAE NEXTTIME # MUST BE SCALED FOR T3. REMEMBER TO BIAS # THIS FOR ON TIME. 03170 TC JTENGCHK 04472 TC VARDELAY >014657,000281: 07,3230 51407 JTOP NDX JETSTEP 11410 CCS NTIMES # FOR LOOPING. 03234 TC +2 03207 TC NEXTSET 51407 NDX JETSTEP 31430 CAE JETONTM # SCALED FOR T3. TIME FOR JETS ON. 03170 TC JTENGCHK 04472 TC VARDELAY /a>014666,000290: 07,3240 51407 JETON NDX JETSTEP 31440 CAE XJETS # MUST BE IN CHANNEL 5 FORMAT. 00006 EXTEND 01005 WRITE 5 51407 NDX JETSTEP 31450 CAE YZJETS # MUST BE IN CHANNEL 6 FORMAT. 00006 EXTEND 01006 WRITE 6 51407 NDX JETSTEP 31460 CAE JETOFFTM 03170 TC JTENGCHK 04472 TC VARDELAY >014679,000303: 07,3254 37657 JETOFF CAF ZERO 00006 EXTEND 01005 WRITE 5 00006 EXTEND 01006 WRITE 6 51407 NDX JETSTEP 11410 CCS NTIMES 51407 NDX JETSTEP 55410 TS NTIMES # ONE LESS TIME. 03230 TC JTOP # CSM & SATURN TESTS ENGINE ON - OFF TASK # THIS TASK TURNS THE CSM SPS ENGINE ON AND OFF ACCORDING TO THE CONSTANTS STORED IN THE FIVE SETS OF # REGISTERS, (1) CYLTIMES, WHICH CONTAINS THE NUMBER OF TIMES A PARTICULARSTEP WILL BE REPEATED, (2) NEXTCYLT, # WHICH CONTAINS THE TIME BETWEEN STEPS SCALED FOR T3, (3) ONTIME, WHICH CONTAINS THE TIME TO TURN THE ENGINE ON # WHICH ALSO DETERMINES THE LENGTH OF TIME THE ENGIME WILL BE OFF WITHIN A SERIES OF ON:OFF CYCLES, (4) OFFTIME, # WHICH CONTAINS THE NUMBER OF 2 MINUTES BEFORE THE ENGINE WILL BE TURNED OFF, AND (5) OFFTIMER, WHICH # CONTAINS THE RESIDUAL TIME BEFORE THE ENGINE WILL BE TURNED OFF. OFFTIME AND OFFTIMER DETERMINE THE LENGTH # OF TIME THE ENGINE WILL BE ON IN ANY ONE CYCLE. THERE ARE THREE SETS OF THESE REGISTERS. # THE ENGSTEP REGISTER IS USED AS AN INDEX TO PICK UP A PARTICULAR SET OF THE ABOVE 5 REGISTERS. THIS TASK # WILL BE ENTERED BUT IMMEDIATELY ENDED IF ENGSTEP AND CYLTIMES = +0. THE ALLOWABLE VALUES OF ENGSTEP ARE +0, # 1 AND 2. 646">014702,000326: 07,3266 11470 NXTONOFF CCS ENGSTEP 03271 TC +2 04505 TC TASKOVER # EXIT HERE WHEN STEP AND CYL ARE +0. 55470 TS ENGSTEP # ONE LESS. 254">014707,000331: 07,3272 37662 ENGSTART CAF NEG2 61470 AD ENGSTEP 00006 EXTEND 63277 BZMF +2 03173 TC JTENGALM 51470 NDX ENGSTEP # ENTER HERE. 11471 CCS CYLTIMES # NUM OF EACH ON/OFF SET 03303 TC +2 03266 TC NXTONOFF # NO MORE OF THIS SET 51470 NDX ENGSTEP 31474 CAE NEXTCYLT # START OF NEXT CYCLE. 03170 TC JTENGCHK 04472 TC VARDELAY D">014722,000346: 07,3307 51470 ENGONTM NDX ENGSTEP 31502 CAE OFFTIME 55406 TS OFFTMBUF 51470 NDX ENGSTEP 31477 CAE ONTIME 03170 TC JTENGCHK 04472 TC VARDELAY >014730,000354: 07,3316 44441 ENGSET CS PRIO30 00006 EXTEND 02011 RAND 11 67636 AD BIT13 00006 EXTEND 01011 WRITE 11 # ENG ON = 1, ENG OFF = 0. >014736,000360: 07,3324 11406 ENGRST CCS OFFTMBUF 03351 TC LTIMEON # AT LEAST 2MIN. BEFORE ENGINE OFF. 51470 NDX ENGSTEP 31505 CAE OFFTIMER # LESS THAN 2MIN. TO ENGINE OFF. 03170 TC JTENGCHK 04472 TC VARDELAY 554">014743,000367: 07,3332 44441 ENGRESET CS PRIO30 # BITS 13 AND 14. 00006 EXTEND 02011 RAND 11 67635 AD BIT14 00006 EXTEND 01011 WRITE 11 # ENG ON = 0, ENG OFF = 1. 51470 NDX ENGSTEP 11471 CCS CYLTIMES 10000 CCS A 03345 TC +2 03266 TC NXTONOFF # WAS ONE. 67652 AD ONE # WAS MORE THAN ONE. 51470 NDX ENGSTEP 55471 TS CYLTIMES 03307 TC ENGONTM E">014759,000383: 07,3351 11406 LTIMEON CCS OFFTMBUF # IS THERE ANY MORE. 03354 TC +2 # YES. 03324 TC ENGRST # NO. 55406 TS OFFTMBUF 33362 CAF 2MIN 04451 TC WAITLIST EBANK= ENGSTEP 03351 16004 2CADR LTIMEON 04505 TC TASKOVER >014770,000394: 07,3362 27340 2MIN DEC 12000 B-14 # CSM & SATURN TESTS TRIM TASK # THIS PROGRAM ISSUES A PROFILE OF PITCH AND ROLL TRIM COMMANDS TO THE SPS ENGINE GIMBAL IN ACCORDANCEWITH # THE VALUE S IN THE TRIMSTEP REGISTER AND THE 12 SETS OF 5 REGISTERS CALLED NUMTIMES, STEPDLYT, TRIMONT, TRIMOFFT # AND TRIMIND. TRIMSTEP IS USED TO PICK UP A PARTICULAR SET OF THE 5 REGISTERS AND HAS ALLOWABLE VALUES FROM +0 # THROUGH +11 DECIMAL. THE 5 REGISTERS IN EACH SET ARE DEFINED AS FOLLOWS # (1) NUMTIMES DETERMINES THE NUMBER OF TIMES THE COMMAND IN TRIMIND WILL BE ISSUED. VALUES FROM +0 TO # OCT 37777 ARE PERMITTED. # (2) STEPDLYT DETERMINES THE TIME BETWEEN THE START OF A STEP AND THE BEGINNING OF TRIMONT. STEPDLYT MUST BE # FORMATTED FOR T3, ITS MAXIMUM VALUE IS 2 MINUTES. # (3) TRIMONT DETERMINES THE TIME BETWEEN THE END OF STEPDLYT OR TRIMOFFT AND THE TIME THE TRIM COMMANDS ARE # ISSUED. IT MUST BE FORMATTED FOR T3. # (4) TRIMOFFT DETERMINES THE LENGTH OF TIME THE TRIM COMMAND WILL BE ON, FORMATTED FOR T3. # (5) TRIMIND DETERMINES THE PITCH AND ROLL COMMAND TO BE ISSUED. THE FORMAT IS, BIT9=1=+ PITCH COMMAND, # BIT10=1=-PITCH, BIT11=1= +ROLL, BIT12=1= -ROLL. A BIT=0 INDICATES NO COMMAND. ANY COMBINATION OF COMMANDS IS # PERMITTED. # THIS TASK WILL BE ENTERED BUT IMMEDIATELY ENDED IF TRIMSTEP AND NUMTIMES = +0. 0">014789,000413: 07,3363 37643 TRIMTOP CAF BIT8 # ENTER HERE. 00006 EXTEND 05012 WOR 12 37227 CAF FIVE 04472 TC VARDELAY 37651 CAF BIT2 00006 EXTEND 05012 WOR 12 33166 CAF .5SEC 04472 TC VARDELAY 031">014802,000426: 07,3375 47227 TRIMTOP1 CS FIVE 61510 AD TRIMSTEP 00006 EXTEND 63402 BZMF +2 03201 TC STEERALM 51510 NDX TRIMSTEP 11511 CCS NUMTIMES 03406 TC +2 03515 TC NEXTTRIM 51510 NDX TRIMSTEP 31517 CAE STEPDLYT 03176 TC STEERCHK 04472 TC VARDELAY 4">014817,000441: 07,3412 51510 TRIMSET NDX TRIMSTEP 31525 CAE TRIMONT 03176 TC STEERCHK 04472 TC VARDELAY >014822,000446: 07,3416 51510 TRIMON NDX TRIMSTEP 31533 CAE TRIMPTCH 54054 TS OPTXCMD 51510 NDX TRIMSTEP 31541 CAE TRIMYAW 54053 TS OPTYCMD 00006 EXTEND 63427 BZMF +2 03430 TC +2 40000 COM 55405 TS TRIMYBUF 40054 CS OPTXCMD 00006 EXTEND 63435 BZMF +2 03436 TC +2 40000 COM 00006 EXTEND 61405 SU TRIMYBUF 10000 CCS A 03445 TC +4 03453 TC TRIMUSEY 03453 TC TRIMUSEY 03453 TC TRIMUSEY 40054 CS OPTXCMD 00006 EXTEND 63451 BZMF +2 03454 TC TRIMUSEP 40000 COM 03454 TC TRIMUSEP 559">014855,000479: 07,3453 31405 TRIMUSEY CA TRIMYBUF 550">014857,000481: 07,3454 00006 TRIMUSEP EXTEND 77641 MP BIT10 63166 AD .5SEC 04451 TC WAITLIST 03504 16004 2CADR NUMSTEP 34421 CAF 11,12 00006 EXTEND 05014 WOR 14 # TRIM STARTS. 04505 TC TASKOVER F50">014869,000493: 07,3466 47643 TRIMSTOP CS BIT8 # TRIM GOES OFF. 00006 EXTEND 03012 WAND 12 37227 CAF FIVE 04472 TC VARDELAY 47651 CS BIT2 00006 EXTEND 03012 WAND 12 37657 CAF ZERO 54054 TS OPTXCMD 54053 TS OPTYCMD 37661 CAF NEGONE 54350 TS OPTIND 04505 TC TASKOVER 0">014888,000512: 07,3504 51510 NUMSTEP NDX TRIMSTEP 11511 CCS NUMTIMES 10000 CCS A 03511 TC +2 03515 TC NEXTTRIM # WAS ONE. 67652 AD ONE 51510 NDX TRIMSTEP 55511 TS NUMTIMES 03412 TC TRIMSET 94D">014898,000522: 07,3515 11510 NEXTTRIM CCS TRIMSTEP 03520 TC +2 03466 TC TRIMSTOP # EXIT HERE. 55510 TS TRIMSTEP # LESS ONE. 03375 TC TRIMTOP1 254">014904,000528: 07,3522 37642 SATSTART CAF BIT9 00006 EXTEND 05012 WOR 12 47636 CS BIT13 00006 EXTEND 03012 WAND 12 37227 CAF FIVE 04472 TC VARDELAY 37645 CAF BIT6 00006 EXTEND 05012 WOR 12 33166 CAF .5SEC 04472 TC VARDELAY 431">014922,000546: 07,3537 47655 SATSTRT1 CS NINE 61562 AD SATSTEP 00006 EXTEND 63544 BZMF +2 03201 TC STEERALM 51562 NDX SATSTEP 11563 CCS SATTIMES 03550 TC +2 03725 TC NEXTSAT 51562 NDX SATSTEP 31575 CAE SATDELAY 03176 TC STEERCHK 04472 TC VARDELAY >014937,000561: 07,3554 51562 SATSET NDX SATSTEP 31607 CAE SATONT 03176 TC STEERCHK 04472 TC VARDELAY 03136 TC ICDUCHK 03563 TC +2 03667 TC SATSTOP 51562 NDX SATSTEP 31621 CAE SATPITCH 54051 TS CDUYCMD 51562 NDX SATSTEP 31633 CAE SATYAW 54052 TS CDUZCMD 51562 NDX SATSTEP 31645 CAE SATROLL 54050 TS CDUXCMD 00006 EXTEND 63577 BZMF +2 03600 TC +2 40000 COM 55403 TS SATRBUF 30051 CA CDUYCMD 00006 EXTEND 63605 BZMF +2 03606 TC +2 40000 COM 55401 TS SATPBUF 00006 EXTEND 61403 SU SATRBUF 10000 CCS A 03616 TC +4 03633 TC SATCHKRY 03633 TC SATCHKRY 03633 TC SATCHKRY 30052 CA CDUZCMD 00006 EXTEND 63622 BZMF +2 03623 TC +2 40000 COM 55402 TS SATYBUF 00006 EXTEND 61401 SU SATPBUF 10000 CCS A 03654 TC SATUSEY 03650 TC SATUSEP 03650 TC SATUSEP 03650 TC SATUSEP 259">014990,000614: 07,3633 30052 SATCHKRY CA CDUZCMD 00006 EXTEND 63637 BZMF +2 03640 TC +2 40000 COM 55402 TS SATYBUF 00006 EXTEND 61403 SU SATRBUF 10000 CCS A 03654 TC SATUSEY 03652 TC SATUSER 03652 TC SATUSER 03652 TC SATUSER 0">015005,000629: 07,3650 31401 SATUSEP CA SATPBUF 03655 TC SATSTEER 2">015008,000632: 07,3652 31403 SATUSER CA SATRBUF 03655 TC SATSTEER 9">015011,000635: 07,3654 31402 SATUSEY CA SATYBUF 552">015013,000637: 07,3655 00006 SATSTEER EXTEND 77641 MP BIT10 63166 AD .5SEC 04451 TC WAITLIST 03714 16004 2CADR STEERSTP 33167 CAF SATMASK 00006 EXTEND 05014 WOR 14 04505 TC TASKOVER 0">015024,000648: 07,3667 47642 SATSTOP CS BIT9 00006 EXTEND 03012 WAND 12 37227 CAF FIVE 04472 TC VARDELAY 47645 CS BIT6 00006 EXTEND 03012 WAND 12 37657 CAF ZERO 54050 TS CDUXCMD 54051 TS CDUYCMD 54052 TS CDUZCMD 37635 CAF BIT14 00006 EXTEND 05012 WOR 12 33166 CAF .5SEC 04472 TC VARDELAY 47635 CS BIT14 00006 EXTEND 03012 WAND 12 04505 TC TASKOVER 450">015053,000677: 07,3714 51562 STEERSTP NDX SATSTEP 11563 CCS SATTIMES 10000 CCS A 03721 TC +2 03725 TC NEXTSAT 67652 AD ONE 51562 NDX SATSTEP 55563 TS SATTIMES 03554 TC SATSET 4">015063,000687: 07,3725 11562 NEXTSAT CCS SATSTEP 03730 TC +2 03667 TC SATSTOP 55562 TS SATSTEP 03537 TC SATSTRT1 # CSM & SATURN TESTS INTERFACE LOOK TASK. # THIS PROGRAM KEEPS A RUNNING HISTORY OF THE STATE OF ALL THE BITS IN INPUT CHANNELS 30, 31, 32 AND 33. # IT DOES THIS BY DETECTING A CHANGE OF AN INPUT BIT FROM AN INITIAL ONE STATE TO A ZERO STATE OR FROM AN INITIAL # ZERO TO A ONE. THE HISTORY IS MAINTAINED IN TWO BUFFER REGISTERS FOR EACH CHANNEL, ONE FOR STORING ONE TO ZERO # CHANGES (30BUF1, +1, +2, AND +3) AND ONE FOR ZERO TO ONE CHANGES (30BUF0, +1 +2 AND +3). THE OPERATOR MUST # LOAD THE INITIAL STATES OF THE INPUT CHANNELS INTO THEIR RESPECTIVE BUFFER REGISTERS BEFORE THIS PROGRAM IS IN- # ITIATED. # TO ALLOW THIS PROGRAM TO RUN C(QUITLOOK) MUST BE SET GREATER THAN +0 BEFORE IT IS STARTED. IF THE OPERATOR # DOES NOT DESIRE THIS PROGRAM TO RUN HE SHOULD SET C(QUITLOOK)=+0 BEFORE STARTING THE FCS TEST. AFTER THIS TASK # IS RUNNING THE OPERATOR CAN STOP IT BY SETTING C(QUITLOOK) = +0. # NO DISPLAYS OF EITHER THE BUFFER REGISTERS OR CHANNELS ARE INCORPORATED INTO THIS PROGRAM. THIS WAS DONE TO # ALLOW THE TEST OPERATOR MONITORING FLEXIBILITY. FOR REAL TIME MONITORING IT IS SUGGESTED THAT THE BUFFER # REGISTERS BE DISPLAYED WITH THE MONITOR VERBS (11 THROUGH 15). ON THE OTHER HAND, THE OPERATOR MAY ELECT TO # PERFORM NO REAL TIME MONITORING UNTIL THE TEST IS COMPLETED, WHEN THE BUFFER REGISTERS WOULD BE CALLED FOR # DISPLAY (VERB 01) AND RECORDED. F50">015087,000711: 07,3732 55404 LOOKLOOP TS CHCNTR # 3, 2, 1, 0. 51404 NDX CHCNTR 31550 CAE 30BUF1 00006 EXTEND 51404 NDX CHCNTR 02030 RAND 30 # DETECTS CHANGES FROM 1 TO 0. 51404 NDX CHCNTR 57550 XCH 30BUF1 # STORE NEW ZEROS. 51404 NDX CHCNTR 31554 CAE 30BUF0 00006 EXTEND 51404 NDX CHCNTR 04030 ROR 30 # DETECTS CHANGES FROM 0 TO 1. 51404 NDX CHCNTR 57554 XCH 30BUF0 # STORE NEW ONES. 11404 CCS CHCNTR # IS THIS SCAN DONE. 03732 TC LOOKLOOP # NO. 37654 CAF TEN # YES. 100MS RECALL. 04472 TC VARDELAY 0">015107,000731: 07,3755 11560 LOOKTOP CCS QUITLOOK # IS THIS TASK WANTED. 03760 TC +2 # YES. 04505 TC TASKOVER # NO. 36165 CAF THREE # START SCAN OF CHANNELS. 03732 TC LOOKLOOP 453">015113,000737: 07,3762 ENDCSITS = CSM_AND_SATURN_INTEGRATED_TESTS.agc. Parent file is MAIN.agc