Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | |
2 | ||
3 | KTURBO=6407 | |
4 | TTURBO=6417 | |
5 | KSF2=6401 | |
6 | *0 | |
7 | INT, 0 | |
8 | KSF2 | |
9 | HLT / NO KEYBOARD INTERRUPT! | |
10 | INT2, | |
11 | CLA CLL | |
12 | KTURBO | |
13 | JMP INTEX / NO DATA AVAILABLE, EXIT INTERRUPT | |
14 | TTURBO | |
15 | JMP .-1 | |
16 | CMA | |
17 | TTURBO | |
18 | JMP .-1 | |
19 | JMP INT2 | |
20 | ||
21 | INTEX, ION | |
22 | TAD K3333 | |
23 | JMP I INT | |
24 | ||
25 | K3333, 3333 | |
26 | ||
27 | XSTART, START | |
28 | ||
29 | *200 | |
30 | ||
31 | START, | |
32 | CLA CLL | |
33 | 6110 | |
34 | 6120 | |
35 | 6140 | |
36 | 6270 | |
37 | 6270 | |
38 | 6270 | |
39 | 6470 | |
40 | 6470 | |
41 | 6470 | |
42 | 6441 | |
43 | 6442 | |
44 | 6444 | |
45 | HLT | |
46 | CAF | |
47 | L1, KSF2 / READ EVERYTHING THAT COULD BE READ | |
48 | JMP S2 | |
49 | KTURBO | |
50 | HLT | |
51 | JMP L1 | |
52 | ||
53 | S2, CLA CLL | |
54 | ION | |
55 | TAD K2222 | |
56 | JMP . | |
57 | ||
58 | K2222, 2222 | |
59 | ||
60 | ||
61 | *7700 JMP I XSTART | |
62 | ||
63 | *400 / SEND OUT SWITCH REGISTER AND HALT | |
64 | KEY, LAS | |
65 | TTURBO | |
66 | JMP .-1 | |
67 | HLT | |
68 | JMP KEY | |
69 | ||
70 | *500 | |
71 | DISP, CLA CLL | |
72 | D2, KSF2 | |
73 | JMP .-1 | |
74 | 6406 | |
75 | JMP D2 | |
76 | ||
77 | $ |