# Copyright: Public domain. # Filename: SXTMARK.agc # Purpose: Part of the source code for Comanche, build 055. It # is part of the source code for the Command Module's # (CM) Apollo Guidance Computer (AGC), Apollo 11. # Assembler: yaYUL # Reference: pp. 222-235 # Contact: Ron Burkey <info@sandroid.org>, # Fabrizio Bernardini <fabrizio@spacecraft.it> # Website: http://www.ibiblio.org/apollo. # Mod history: 16/05/09 FB Transcription Batch 2 Assignment. # # The contents of the "Comanche055" files, in general, are transcribed # from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA # 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # # Prepared by # Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # # under NASA contract NAS 9-4065. # # Refer directly to the online document mentioned above for further # information. Please report any errors to info@sandroid.org.
# Page 222 # PROGRAM NAME - SXTMARK DATE- 5 APRIL 1967 # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK # MOD BY- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
# FUNCTIONAL DESCRIPTION- # SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF # THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTION OF THE MKVB51 # ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE # USED. IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
# CALLING SEQUENCE-
# CAF (NO. MARK REQUESTS IN BITS 1-3 OF A) # TC BANKCALL # CADR SXTMARK
# NORMAL EXIT MODE- # SWRETURN
# ALARM OR ABORT EXIT MODE- # ABORT
# OUTPUT- # 1) MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS # 2) QPRET = VAC AREA POINTER VALUE # 3) 1ST WORD OF RESERVED VAC AREA SET TO +0 # 4) PRIO32 PLACED IN A REGISTER
# ERASABLE INITIALIZATION- # 1) BITS 1-3 OF A = NO. MARKS REQUESTED # 2) BITS 2,3 OF EXTVBACT =0 # 3) A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
# DEBRIS- # A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
BANK13 SETLOC SXTMARKE BANK
EBANK= MRKBUF1 COUNT07/SXTMK
SXTMARK INHINT TS RUPTREG1 # NUMBER OF MARKS WANTED
CAF SIX # BIT2 = MARKING SYSTEM IN USE MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS CCS A TC MKABORT # SET THEREFORE ABORT # Page 223 CAF BIT2 # NOT SET ADS EXTVBACT # SET IT, RESET IN ENDMARK TC MARKOK # YES, FIND VAC AREA
MKVACFND AD TWO # ADDRESS OF VAC AREA TS MARKSTAT INDEX A TS QPRET # STORE NEXT AVAILABLE MARK SLOT
CAF ZERO # STORE VAC AREA OCCUPIED INDEX MARKSTAT TS0 -1
TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
MM 53 TCF +2 TCF SWRETURN TC CHECKMM
MM 54 TCF +2 TCF SWRETURN CAF BIT12 # DESIRED NUMBER OF MARKS IN 12-14 EXTEND MP RUPTREG1 XCH L ADS MARKSTAT
CAF PRIO32 # ENTER MARK JOB TC NOVAC EBANK= MARKSTAT 2CADR MKVB51
RELINT TCF SWRETURN # SAME AS MODEEXIT
# Page 224 # PROGRAM NAME - MKRELEAS DATE- 5 APRIL 1967 # PROGRAM MODIFIED BY 248/278 PROGRAMMERS LOG SECTION SXTMARK # MOD BY- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
# FUNCTIONAL DESCRIPTION- # MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL # SYSTEM ROUTINES. IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
# CALLING SEQUENCE-
# TC BANKCALL # CADR MKRELEAS
# NORMAL EXIT MODE- # SWRETURN
# ALARM OR ABORT EXIT MODE- NONE
# OUTPUT- # 1) BIT9 OPTMODES SET TO 0 # 2) OPTIND SET TO -1 # 3) 1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY. # 4) MARKSTAT CLEARED # 5) BIT2 CHANNEL 12 SET TO 0
MKRELEAS CAF ZERO # SHOW MARK SYSTEM NOW AVAILABLE XCH MARKSTAT MASK LOW9 CCS A INDEX A TS0
MKRLEES INHINT CS BIT9 # COARSE OPTICS RETURN FLAG. MASK OPTMODES TS OPTMODES
RELINT TC SWRETURN # Page 225 # PROGRAM NAME - MARKRUPT DATE- 5 APRIL 1967 # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK # MOD BY- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
# FUNCTIONAL DESCRIPTION- # MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF # BITS IN CHANNEL 16 ARE SET AS REQUIRED.
# CALLING SEQUENCE- # ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
# NORMAL EXIT MODE- # MARKIT, MKREJECT, OR POSTJUMP ROUTINES (MARK,MARK REJECT, OR DSKY CODE)
# ERASABLE INITIALIZATION- # CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
# DEBRIS- # A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW CA CDUT TS MKCDUT CA CDUS TS MKCDUS CA CDUY TS MKCDUY CA CDUZ TS MKCDUZ CA CDUX TS MKCDUX EXTEND DCA TIME2 # GET TIME DXCH MKT2T1 EXTEND DCA MKT2T1 DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
XCH Q TS QRUPT
CAF BIT6 # SEE IF MARK OR MKREJECT # Page 226 EXTEND
RAND NAVKEYIN CCS A TC MARKIT # ITS A MARK
CAF BIT7 # NOT A MARK, SEE IF MKREJECT EXTEND
RAND NAVKEYIN CCS A TC MKREJECT # ITS A MARK REJECT
KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE EXTEND
RAND NAVKEYIN EXTEND BZF +3# IF NO INBITS TC POSTJUMP CADR KEYCOM # IT,S A KEY CODE, NOT A MARK.
+3TC ALARM # ALARM IF NO INBITS OCT113 TC RESUME
# Page 227 # PROGRAM NAME - MARKCONT DATE- 19 SEPT 1967
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK # MOD BY- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
# FUNCTIONAL DESCRIPTION- # MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR # TO PERFORM A MARK OF THE STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
# CALLING SEQUENCE- # FROM MARKDIF
# NORMAL EXIT MODE- # TASKOVER
# ALARM OR ABORT EXIT MODE- # ALARM AND TASKOVER
# OUTPUT- # 1) FOR R21- # EBANK=EBANK7 # MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION. # MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES. # 2) FOR SPECIAL DISPLAY JOB- # RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2 AND MRKBUF1 +1 = CDUT. # RUPTREG3 AND MRKBUF1 +2 = TIME2,RUPTREG4 AND MRKBUF1 +3 = TIME1 # 3) FOR NORMAL MARKING- # DECREMENT BITS14-12 OF MARKSTAT BY 1, # BIT10 MARKSTAT SET TO 1,INCREMENT QPRET BY 7, # STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
# ERASABLE INITIALIZATION- # 1) FOR R21- # BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3, # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 # 2) FOR SPECIAL DISPLAY JOB- # BIT14 OF STATE+2 =0,MARKSTAT =+0,RUPTREG1,RUPTREG2,RUPTREG3 # RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5, # BIT12 OF STATE+5 (V59 FLAG),MRKBUF1 THRU MRKBUF1+3 # 3) FOR NORMAL MARKING- # BIT14 OF STATE+2 =0,MARKSTAE =VAC ADDRESS, A REG, ITEMP1, RUPTREG3, # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4.
# DEBRIS- # 1) FOR R21- # A,ITEMP1,MRKBUF1,MRKBUF2 # 2) FOR SPECIAL DISPLAY JOB- # A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3 # 3) FOR NORMAL MARKING- # A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
# Page 228
MARKCONT CAF BIT14 MASK STATE +2# R21 MARK (SPECIAL MARKING FOR R21) EXTEND BZF MARKET # NOT SET THEREFORE REGULAR MARKING
MARKIT1 CAF SIX # SPECIAL FOR R21 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2 ADRES MRKBUF1 ADRES MRKBUF2
CAF SIX # TRANSFER CURRENT MARK DATA TO MARKBUF1 TC GENTRAN ADRES MKT2T1 ADRES MRKBUF1
TCF TASKOVER
MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR TC MARK2 # COLLECT MARKS
CAF TWO # IS MARKING SYSTEM IN USE (BIT2) MASK EXTVBACT EXTEND BZF MARKET3 # MARKING NOT CALLED FOR CAF BIT12 MASK STATE +5# V59FLAG EXTEND BZF MARKET3 # IF V59FLAG NOT SET-MARK UNCALLED FOR CAF PRIO5 # CALIBRATION MARK (SET) FOR P23 TC NOVAC # SPECIAL DISPLAY JOB EBANK= MRKBUF1 2CADR MARKDISP
CAF SIX TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN ADRES MKT2T1 ADRES MARKDOWN CAF SIX TC GENTRAN # TRANSFER MARK DATA TO MRKBUF1 FOR ADRES MKT2T1 # SPECIAL DISPLAY OF SHAFT AND TRUNNION ADRES MRKBUF1 # IF V59 ACTING TCF TASKOVER
MARKET3 TC ALARM OCT122# MARKING NOT CALLED FOR TCF TASKOVER 114ALM TC ALARM # MARK NOT WANTED OCT114 TCF TASKOVER
# Page 229 # STORE MARK DATA IN MKVAC AND INCREMENT POINTER
MARK2 AD74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED EXTEND BZMF114ALM # MARK NOT WANTED-ALARM TS MARKSTAT
COM MASK BIT10 # SET BIT10 TO ENABLE REJECT ADS MARKSTAT
MASK LOW9 TS ITEMP1 INDEX A XCH QPRET # PICK UP MARK SLOT-POINTER TS ITEMP2 # SAVE CURRENT POINTER AD SEVEN # INCREMENT POINTER INDEX ITEMP1 TS QPRET # STORE ADVANCED POINTER
VACSTOR EXTEND DCA MKT2T1 INDEX ITEMP2 DXCH0 CA MKCDUY INDEX ITEMP2 TS2 CA MKCDUS INDEX ITEMP2 TS3 CA MKCDUZ INDEX ITEMP2 TS4 CA MKCDUT INDEX ITEMP2 TS5 CA MKCDUX INDEX ITEMP2 TS6
CAF PRIO34 # IF ALL MARKS MADE FLASH VB50 MASK MARKSTAT EXTEND BZF +2 TCF TASKOVER CAF PRIO32 TC NOVAC EBANK= MARKSTAT 2CADR MKVB50
TCF TASKOVER
# Page 230 # PROGRAM NAME - MKREJECT DATE- 5 APRIL 1967 # PROGRAM MODIFIED BY 258/276 PROGRAMMERS LOG SECTION SXTMARK # MOD BY- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
# FUNCTIONAL DESCRIPTION- # ROUTINE ALLOWS OPEATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
# CALLING SEQUENCE- # FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
# NORMAL EXIT MODE- # RESUME
# ALARM OR ABORT EXIT MODE- # ALARM AND RESUME
# OUTPUT- # 1) FOR R21- # MRKRUP1 SET TO -1 # 2) FOR NORMAL MARKING- # BIT10 MARKSTAT =0,INCREMENT NO. MARKS BY 1,DECREMENT QPRET BY 7
# ERASABLE INITIALIZATION- # 1) FOR R21- # BIT14 OF STATE+2 SET TO 1 # 2) FOR NORMAL MARKING- # BIT14 OF STATE+2 SET TO 0, MARKSTAT,QPRET
# DEBRIS- # 1) FOR R21- # A,MARKSTAT,EBANK # 2) FOR NORMAL MARKING- # A,MARKSTAT,ITEMP1,QPRET
MKREJECT CAF BIT14 MASK STATE +2# R21 MARK (SPECIAL MARKING FOR R21) EXTEND BZF MRKREJCT # NOT SET THEREFORE REGULAR REJECT CA NEGONE # -1 (FOR R22) TS MRKBUF1 # -0 IN TIME IS FLAG TO R22 SIGNIFYING A TC RESUME # REJECTED MARK
MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED TC REJECT2 TC ALARM # MARKS NOT BEING ACCEPTED OCT112 TC RESUME
REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO XCH MARKSTAT # SHOW MARK REJECT # Page 231 MASK BIT10 CCS A TC REJECT3
TC ALARM # DONT ACCEPT TWO REJECTS TOGETHER OCT110 TC RESUME
REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK MASK MARKSTAT TS ITEMP1 CS SEVEN INDEX ITEMP1 ADS QPRET # NEW POINTER
CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO XCH MARKSTAT # INDICATE MORE MARKS WANTED MASK PRIO34 # INDICATE MORE MARKS WANTED CCS A TC RESUME CAF PRIO32 TC NOVAC EBANK= MARKSTAT 2CADR MKVB51
TC RESUME
# Page 232 # PROGRAM DESCRIPTION MKVB51 AND MKVB50
# AUTHOR-BARNERT DATE-2-15-67 MOD-0 # PURPOSE FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING, # AND V50N25 R1=16 TO REQUEST TERMINATE MARKING.
# CALLING SEQUENCE AS JOB WITHIN SXTMARK
# EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER # RECYCLES THE DISPLAY
# NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN # SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK # REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
TERMP03 TC UPFLAG ADRES TRM03FLG
ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF MASK MARKSTAT # MARKS MADE IN QPRET BEFORE LEAVING TS MARKSTAT # SXTMARK
COM INDEX MARKSTAT AD QPRET # Page 233 EXTEND BZMF JAMIT # NO MARKS MADE, SHOW IT IN QPRET, R53 EXTEND# WILL PICK IT UP AND RECYCLE MP BIT12 # THIS PUTS NUMBER MARKS-1 IN A AD ONE
JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE TS QPRET INHINT# SERVICE OPTSTALL INTERFACE WITH CAF FIVE TC WAITLIST EBANK= MARKSTAT 2CADR ENDMARKS
TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
ENDMARKS CAF ONE TC IBNKCALL CADR GOODEND
MKVB5X CAF PRIO34 MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED CCS A # AND VB50 IF ALL IN TCF MKVB51
MKVB50 CAF R1D1 # OCT 16 TS DSPTEM1 CAF V50N25 TCF MKVB51 +3
V50N25 VN5025
VB51 VN5100
OCT37 = LOW5
# PROGRAM NAME - MARKIT DATE- 19 SEPT 1967
# CALLING SEQUENCE # FROM MARKRUPT IF CHAN 16 BIT 6 = 1
# EXIT # RESUME
# INPUT # CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG,ACP MARK EXTEND BZMF MKACPT CS BIT1 TS MKNDX # SET INDEX -1 CA MKCDUX TC DIFCHK # SEE IF VEHICLE RATE TO MUCH AT MARK CA MKCDUY TC DIFCHK CA MKCDUZ TC DIFCHK
MKACPT TC IBNKCALL CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
DIFCHK INCR MKNDX # INCREMENT INDEX
EXTEND INDEX MKNDX # Page 235 MSU CDUX # GET MARK(ICDU) - CURRENT(ICDU) CCS A TCF +4 TC Q TCF +2 TC Q AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS EXTEND BZMF -3# NOT GREATER
TC ALARM # COUPLED WITH PROGRAM ALARM OCT00121
TCF TASKOVER # DO NOT ACCEPT
Messung V0.5 in Prozent
¤ Dauer der Verarbeitung: 0.14 Sekunden
(vorverarbeitet am 2026-10-12)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.
