forked from virtualagc/virtualagc
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAOTMARK.agc
383 lines (342 loc) · 17.2 KB
/
AOTMARK.agc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: AOTMARK.agc
## Purpose: Part of the source code for Aurora (revision 12).
## Assembler: yaYUL
## Contact: Ron Burkey <[email protected]>.
## Website: https://www.ibiblio.org/apollo.
## Pages: 218-226
## Mod history: 2016-09-20 JL Created.
## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
## but no errors found.
## This source code has been transcribed or otherwise adapted from
## digitized images of a hardcopy from the private collection of
## Don Eyles. The digitization was performed by archive.org.
## Notations on the hardcopy document read, in part:
## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
## NOV 10, 1966
## [Note that this is the date the hardcopy was made, not the
## date of the program revision or the assembly.]
## The scan images (with suitable reduction in storage size and consequent
## reduction in image quality) are available online at
## https://www.ibiblio.org/apollo.
## The original high-quality digital images are available at archive.org:
## https://archive.org/details/aurora00dapg
## Page 218
SETLOC ENDIMODS
EBANK= AOTAZ
AOTMARK INHINT
TS RUPTREG2 # BIT14=INFLIGHT 0=NONFLIGHT
CCS MARKSTAT # ARE MARKS BUTTONS IN USE
TC +2 # MARKS BUTTONS NOT AVAILABLE
TC MKVAC # FIND A VAC AREA
TC ALARM
OCT 00105
TC ENDOFJOB
MKVAC CCS VAC1USE
TC MKVACFND
CCS VAC2USE
TC MKVACFND
CCS VAC3USE
TC MKVACFND
CCS VAC4USE
TC MKVACFND
CCS VAC5USE
TC MKVACFND
TC ABORT # VAC AREAS OCCUPIED
OCT 01207
MKVACFND AD TWO
TS MARKSTAT
CAF ZERO
TS XYMARK # INITIALIZE MARK ID REGISTER
INDEX MARKSTAT
TS 0 -1 # SHOW VAC OCCUPIED
CA RUPTREG2
ADS MARKSTAT
CAF PRIO32
TC NOVAC
2CADR GETMKS
TC MODEEXIT
MKRELEAS CAF ZERO
XCH MARKSTAT # SET MARKSTAT ZERO
CCS A
INDEX A
TS 0 # SHOW VAC AREA AVAILABLE
TC SWRETURN
## Page 219
GETMKS CAF ZERO
TS XYMARK
CAF BIT14 # FIND IF IN-FLIGHT OR NON-FLIGHT
MASK MARKSTAT
CCS A
TC MKVB53 # IN-FLIGHT
CS BIT11 # NON-FLIGHT, SET Y MARK =1
MASK MARKSTAT
AD BIT11
TS MARKSTAT
CAF VB51 # REQUEST X MARK
TC +2
MKVB53 CAF VB53 # REQUEST X AND Y MARKS
TC NVSBWAIT
TC FLASHON
TC ENDIDLE
TC GETMKS +1
TC GETMKS +1
MKCHEK CAF BIT10 # WAS X MARK MADE
MASK MARKSTAT
CCS A
TC +2 # X MARK MADE-LOOK AT Y MARK
TC MKALARM
CAF BIT11
MASK MARKSTAT
CCS A
TC GETDET # BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
MKALARM TC ALARM # IF EITHER MARK IS MISSING AFTER ENTER
OCT 111
CS PRIO17 # SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
MASK MARKSTAT
TS MARKSTAT
TC GETMKS # GETMKS AGAIN
GETDET CS BIT12
MASK MARKSTAT
AD BIT12 # SET BIT12=1 TO SHOW MARKS ACCEPTED
TS MARKSTAT
DETVB21 CAF V21N43E
TC NVSBWAIT
TC ENDIDLE
TC DETVB21
TC DETVB21
CS OCT3
MASK DETCODE
CCS A
TC DETVB21 # BAD CODE, REQUEST AGAIN
## Page 220
TC +3 # LOOKS GOOD BUT COULD BE ZERO
TC +1
TC DETVB21
CAF OCT3
MASK DETCODE # SEE IF ZERO
CCS A
TC +2 # GOOD CODE-STORE ANGLES
TC DETVB21 # ZERO-BAD CODE-REQUEST AGAIN
CAF LOW9
MASK MARKSTAT
TS BASVAC # STORE VAC AREA ADDRESS
INDEX DETCODE
CA AOTEL -1
INDEX BASVAC
TS 9D # STORE ELV ANGLE IN VAC +9
INDEX DETCODE
CA AOTAZ -1
INDEX BASVAC
TS 8D # STORE AZIMUTH IN VAC +8
CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
MASK MARKSTAT
CCS A
TC MKOUT # IN-FLIGHT, NO MORE DATA NEEDED
TC ROTVB24 # NON-FLIGHT, GET ROTATION ANGLES
ROTVB24 CAF V24N42E # REQUEST RETICLE ROTATION ANGLES
TC NVSBWAIT
TC ENDIDLE
TC ROTVB24
TC ROTVB24
CAF LOW9
MASK MARKSTAT
TS BASVAC
CA DSPTEM2 # YROT
INDEX BASVAC
TS 3 # STORE Y RETICLE ROT ANGLE IN VAC +3
CA DSPTEM2 +1 # SROT
INDEX BASVAC
TS 5 # STORE SPIRAL ROT ANGLE VAC +5
MKOUT CAF LOW9
MASK MARKSTAT
TS MARKSTAT # SET HI5 ZERO
INHINT
CAF ONE
TC WAITLIST
## Page 221
2CADR ENDMARKS
TC ENDOFJOB
ENDMARKS CAF ONE
TCF GOODEND
## Page 222
MARKRUPT TS BANKRUPT
CA CDUY # STORE CDU DATA AND TIME IN TEMP
TS RUPTSTOR +2
CA CDUZ
TS RUPTSTOR +4
CA CDUX
TS RUPTSTOR +6
EXTEND
DCA TIME2
DXCH RUPTSTOR
XCH Q
TS QRUPT
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
EXTEND
RAND NAVKEYIN
CCS A
TC +2 # ITS A LIVE ONE-CHECK FOR ACCEPT
TC SOMEKEY # SOME OTHER KEY
CAF BIT12 # HAVE MARKS BEEN ACCEPTED
MASK MARKSTAT
CCS A
TC RESUME # MARKS MADE AND ACCEPTED - DO NOTHING
CCS MARKSTAT # ARE MARKS BEING ACCEPTED
TC FINDKEY
TC ALARM # MARKS NOT BEING ACCEPTED
OCT 112
TC RESUME
FINDKEY CAF BIT5
EXTEND
RAND NAVKEYIN # CHANNEL 16
CCS A
TC MKREJ # ITS A MARK REJECT
CAF BIT4
EXTEND
RAND NAVKEYIN
CCS A
TC YMKRUPT # ITS A Y MARK
CAF BIT3
EXTEND
RAND NAVKEYIN
CCS A
TC XMKRUPT # ITS AN X MARK
SOMEKEY CAF OCT140 # NOT MARK OR MARK REJECT
EXTEND
RAND NAVKEYIN
## Page 223
EXTEND
BZF +3 # IF NO INBITS.
TC POSTJUMP # IF DESCENT BITS.
CADR DESCBITS
+3 TC ALARM
OCT 113
TC RESUME
XMKRUPT CAF ZERO
TS ITEMP1
CAF BIT10
TC +4
YMKRUPT CAF ONE
TS ITEMP1
CAF BIT11
TS XYMARK # SET MARK ID
MASK MARKSTAT
CCS A
TC +2 # MARK MADE BUT NOT DESIRED
TC VACSTOR # MARK DESIRED AND MADE-STORE CDUS
TC ALARM
OCT 114
TC REMARK # RENEW REQUEST
VACSTOR CAF LOW9 # STORE TIME AND CDUS IN VAC AREA
MASK MARKSTAT
TS ITEMP2
EXTEND
DCA RUPTSTOR
INDEX ITEMP2
DXCH 0 # STORE TIME1 AND TIME2 IN VAC
CA ITEMP2
ADS ITEMP1
CA RUPTSTOR +2
INDEX ITEMP1
TS 2
CA RUPTSTOR +4
INDEX ITEMP1
TS 4
CA RUPTSTOR +6
INDEX ITEMP1
TS 6
CAF BIT13
AD XYMARK
COM
MASK MARKSTAT
## Page 224
AD XYMARK # SET MARK MADE BIT IN MARKSTAT=1
TS MARKSTAT # AND SET BIT13 ZERO TO SHOW MARK
TC REMARK # MADE BEFORE A REJECT - GO REMARK
## Page 225
REMARK CAF ZERO
TS MKDEX # MKDEX=0
CAF BIT11 # LOOK A Y MARK
MASK MARKSTAT
CCS A
TC +3 # Y MARK MADE
CAF BIT8 # Y MARK REQUIRED
TS MKDEX
CAF BIT10 # LOOK AT X MARK
MASK MARKSTAT
CCS A
TC MKJOB
CAF BIT7 # X MARK REQUIRED
ADS MKDEX
MKJOB CAF PRIO32
TC NOVAC # ENTER JOB TO PASTE VERB
2CADR CHANGVB
CA RUPTREG4
INDEX LOCCTR
TS MPAC
TC RESUME
CHANGVB CCS MPAC
TC SHOWVB
CAF VB21N30E
TC SHOWVB +2
SHOWVB CAF VB50
AD MPAC
TS NVTEMP
CA CADRSTOR # NVSUB CLOBBERS THIS-USE LOC AS TEMP
TS LOC
TC NVSUB +3
VB51 OCT 5100
CA LOC # RESTORE CADRSTOR
TS CADRSTOR
TC ENDOFJOB
MKREJ CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
MASK MARKSTAT
CCS A
TC REJIN # IN-FLIGHT
CAF BIT10 # NON-FLIGHT, SEE IF X MARK MADE
MASK MARKSTAT
CCS A
TC REJECT2 # XMARK MADE-REJECT IT
TC REJALARM # X MARK NOT MADE-ALARM-NO MARKS TO REJ
## Page 226
REJIN CAF PRIO3 # WERE IN-FLIGHT MARKS MADE
MASK MARKSTAT
CCS A
TC REJECT # MARKS MADE-REJECT ONE
REJALARM TC ALARM # NO MARKS MADE TO REJECT-GET MARKS
OCT 115
TC REJECT2
REJECT CS BIT13 # SHOW MKREJECT AND SEE MARK MADE
MASK MARKSTAT # SINCE LAST REJECT
AD BIT13
XCH MARKSTAT
MASK BIT13
CCS A
TC REJECT2 # ANOTHER REJECT
CS XYMARK # MARK MADE SINCE LAST REJECT-REJECT IT
MASK MARKSTAT
TS MARKSTAT
TC REMARK # GO REQUEST MARKS
REJECT2 CS PRIO3 # NO MARKS SINCE LAST REJECT SO SET
MASK MARKSTAT # MARKSTAT TO WANT X AND Y MARKS
XCH MARKSTAT
MASK BIT14 # IN-FLIGHT OR NON-FLIGHT
CCS A
TC REMARK # IN-FLIGHT, GO GET MARKS
CAF BIT11 # NON-FLIGHT, STILL REQUEST X MARK ONLY
ADS MARKSTAT
TC REMARK # GO GET X MARK
OCT3 EQUALS THREE
OCT34 OCT 00034
OCT140 OCT 00140
V21N43E OCT 2143
V24N42E OCT 2442
VB53 OCT 5300
MKDEX EQUALS RUPTREG4
DETCODE EQUALS XYMARK
BASVAC EQUALS Q
VB21N30E OCT 2130
VB50 OCT 5000
ENDAMODS EQUALS