forked from virtualagc/virtualagc
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathASM.c
77 lines (55 loc) · 1.12 KB
/
ASM.c
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
/*
* Copyright: None, public domain
* Filename: GeminiCatchUpAndRendezvousProgram/ASM.c
* Purpose: Provides replacements for various IBM 7090/7094
* assembly-language sub-programs of the GEMINI
* catch-up and rendezvous simulation program.
* History: 2010-08-17 RSB Created in FORTRAN.
* 2010-09-04 RSB Replaced with C.
*/
// I have no idea what DSB and ENB were supposed to do. I expect
// they're some kind of disables/enables for some of the IBM
// 7090/7094 hardware. Ignore for now.
void
dsb_ (void)
{
}
void
enb_ (void)
{
}
// These set tapes A7/A9/B6 to high/low density. Obviously, we can
// simply ignore them.
void
hda7_ (void)
{
}
void
hda9_ (void)
{
}
void
ldb6_ (void)
{
}
// Some kind of keypad functions. Not sure yet how they work.
void
keycn_ (int *k)
{
}
void
keys_ (int *k, int *n)
{
}
// I believe that this skips files on the tape. Obviously irrelevant
// to us.
void
skpn_ (int *x, int *i, int *j)
{
}
// Generates a self-loading tape on drive A7. Not sure waht that
// means, but seems safe to ignore.
void
selfld_ (void)
{
}