ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris
2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
Comanche055/SXTMARK.agc
View File

@ -10,11 +10,11 @@
# 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.
# 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.
# 2021113-051. April 1, 1969.
#
# This AGC program shall also be referred to as Colossus 2A
#
@ -32,7 +32,7 @@
# 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
@ -74,13 +74,13 @@
BANK 13
SETLOC SXTMARKE
BANK
EBANK= MRKBUF1
COUNT 07/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
@ -89,7 +89,7 @@ SXTMARK INHINT
CAF BIT2 # NOT SET
ADS EXTVBACT # SET IT, RESET IN ENDMARK
TC MARKOK # YES, FIND VAC AREA
MKABORT TC BAILOUT
OCT 01211
MARKOK CCS VAC1USE # FIND VAC AREA
@ -104,16 +104,16 @@ MARKOK CCS VAC1USE # FIND VAC AREA
TC MKVACFND
TC BAILOUT
OCT 01207
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
TS 0 -1
TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
MM 53
TCF +2
@ -127,15 +127,15 @@ MKVACFND AD TWO # ADDRESS OF VAC AREA
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
@ -181,14 +181,14 @@ MKRLEES INHINT
CS BIT9 # COARSE OPTICS RETURN FLAG.
MASK OPTMODES
TS OPTMODES
CA NEGONE
TS OPTIND # KILL COARSE OPTICS
CS BIT2 # DISABLE OPTICS ERROR COUNTER
EXTEND
WAND CHAN12
RELINT
TC SWRETURN
# Page 225
@ -244,23 +244,23 @@ MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
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 # IT'S A MARK
CAF BIT7 # NOT A MARK, SEE IF MKREJECT
EXTEND
RAND NAVKEYIN
CCS A
TC MKREJECT # IT'S A MARK REJECT
KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
EXTEND
RAND NAVKEYIN
@ -268,11 +268,11 @@ KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
BZF +3 # IF NO INBITS
TC POSTJUMP
CADR KEYCOM # IT'S A KEY CODE, NOT A MARK.
+3 TC ALARM # ALARM IF NO INBITS
OCT 113
TC RESUME
# Page 227
# PROGRAM NAME: MARKCONT DATE: 19 SEPT 1967
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
@ -340,17 +340,17 @@ MARKIT1 CAF SIX # SPECIAL FOR R21
TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
ADRES MRKBUF1
ADRES MRKBUF2
CAF SIX # TRANSFER CURRENT MARK DATE 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
@ -363,7 +363,7 @@ MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
TC NOVAC # SPECIAL DISPLAY JOB
EBANK= MRKBUF1
2CADR MARKDISP
CAF SIX
TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN
ADRES MKT2T1
@ -379,7 +379,7 @@ MARKET3 TC ALARM
114ALM TC ALARM # MARK NOT WANTED
OCT 114
TCF TASKOVER
# Page 229
# STORE MARK DATA IN MKVAC AND INCREMENT POINTER
@ -390,7 +390,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
COM
MASK BIT10 # SET BIT10 TO ENABLE REJECT
ADS MARKSTAT
MASK LOW9
TS ITEMP1
INDEX A
@ -399,7 +399,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
AD SEVEN # INCREMENT POINTER
INDEX ITEMP1
TS QPRET # STORE ADVANCED POINTER
VACSTOR EXTEND
DCA MKT2T1
INDEX ITEMP2
@ -419,7 +419,7 @@ VACSTOR EXTEND
CA MKCDUX
INDEX ITEMP2
TS 6
CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
MASK MARKSTAT
EXTEND
@ -429,9 +429,9 @@ VACSTOR EXTEND
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
@ -486,7 +486,7 @@ MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED
TC ALARM # MARKS NOT BEING ACCEPTED
OCT 112
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
@ -494,18 +494,18 @@ REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
MASK BIT10
CCS A
TC REJECT3
TC ALARM # DON'T ACCEPT TWO REJECTS TOGETHER
OCT 110
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
@ -516,9 +516,9 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
TC NOVAC
EBANK= MARKSTAT
2CADR MKVB51
TC RESUME
# Page 232
# PROGRAM DESCRIPTION MKVB51 AND MKVB50
#
@ -553,7 +553,7 @@ MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
TCF TERMSXT # VB34-TERMINATE
TCF ENTANSWR # V33-PROCEED-MARKING DONE
TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
TC CHECKMM
@ -562,7 +562,7 @@ TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
TC TERMP03
TC POSTJUMP
CADR TERM52
TERMP03 TC UPFLAG
ADRES TRM03FLG
ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
@ -584,21 +584,21 @@ JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE
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
TCF MKVB51
MKVB50 CAF R1D1 # OCT 16
TS DSPTEM1
CAF V50N25
TCF MKVB51 +3
V50N25 VN 5025
VB51 VN 5100
OCT37 = LOW5
@ -634,14 +634,14 @@ MARKIT CCS CDUCHKWD
TC WAITLIST
EBANK= MRKBUF1
2CADR MARKDIF
TCF RESUME
SETLOC SXTMARK1
BANK
COUNT 20/SXTMK
# PROGRAM NAME: MARKDIF
#
# CALLING SEQUENCE
@ -675,10 +675,10 @@ MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
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
@ -693,10 +693,10 @@ DIFCHK INCR MKNDX # INCREMENT INDEX
AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
EXTEND
BZMF -3 # NOT GREATER
TC ALARM # COUPLED WITH PROGRAM ALARM
OCT 00121
TCF TASKOVER # DO NOT ACCEPT
TCF TASKOVER # DO NOT ACCEPT