A large commit.
[pdp8.git] / sw / src / omni_usb / test.pa
CommitLineData
81e70d48
PH
1
2
3 KTURBO=6407
4 TTURBO=6417
5 KSF2=6401
6*0
7INT, 0
8 KSF2
9 HLT / NO KEYBOARD INTERRUPT!
10INT2,
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
21INTEX, ION
22 TAD K3333
23 JMP I INT
24
25K3333, 3333
26
27XSTART, START
28
29*200
30
31START,
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
47L1, KSF2 / READ EVERYTHING THAT COULD BE READ
48 JMP S2
49 KTURBO
50 HLT
51 JMP L1
52
53S2, CLA CLL
54 ION
55 TAD K2222
56 JMP .
57
58K2222, 2222
59
60
61*7700 JMP I XSTART
62
63*400 / SEND OUT SWITCH REGISTER AND HALT
64KEY, LAS
65 TTURBO
66 JMP .-1
67 HLT
68 JMP KEY
69
70*500
71DISP, CLA CLL
72D2, KSF2
73 JMP .-1
74 6406
75 JMP D2
76
77$