Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | / Serial Port Test |
2 | / | |
3 | / This program will read characters from the serial port and write them | |
4 | / to memory starting at address 0. If you use the sendtape program with | |
5 | / the files sertest.dat you should have the following pattern in memory | |
6 | / Addr Value | |
7 | / 0 1 | |
8 | / 1 2 | |
9 | / 2 3 | |
10 | / 3 4 | |
11 | / 4 10 | |
12 | / 5 20 | |
13 | / 6 40 | |
14 | / 7 100 | |
15 | / 10 200 | |
16 | / 11 0 | |
17 | / 12 377 | |
18 | / 13 376 | |
19 | / 14 375 | |
20 | / 16 367 | |
21 | / 17 16 (Address of characters received) | |
22 | / | |
23 | / To run start at 0200. | |
24 | / Program will not halt | |
25 | ||
26 | INAD=030 / Address of serial input, 30 for console | |
27 | KCF2=6000 INAD | |
28 | KSF2=6001 INAD | |
29 | KCC2=6002 INAD | |
30 | KRS2=6004 INAD | |
31 | KIE2=6005 INAD | |
32 | KRB2=6006 INAD | |
33 | ||
34 | OUTAD=040 / Address of serial output, 40 for console | |
35 | TFL2=6000 OUTAD | |
36 | TSF2=6001 OUTAD | |
37 | TCF2=6002 OUTAD | |
38 | TPC2=6004 OUTAD | |
39 | TSK2=6005 OUTAD | |
40 | TLS2=6006 OUTAD | |
41 | ||
42 | *17 | |
43 | BUFLOC, 7777 / Address to store next word received | |
44 | ||
45 | *200 | |
46 | START, CLA CLL CMA / Init all our variables | |
47 | DCA BUFLOC | |
48 | ||
49 | READ, KSF2 / Have character waiting | |
50 | JMP .-1 / No | |
51 | CLA | |
52 | KRB2 / Get character | |
53 | DCA I BUFLOC / Save through auto increment location | |
54 | JMP READ | |
55 | $ |