Commit | Line | Data |
---|---|---|
1 | * TELETYPE LOW LEVEL I/O | |
2 | * | |
3 | * CALL TT$IN(BUFFER,COUNT) | |
4 | * | |
5 | SUBR TT$IN,KRD | |
6 | * | |
7 | * | |
8 | REL | |
9 | ORG 0 | |
10 | KRD DAC * | |
11 | LDA* KRD GET POINTER | |
12 | STA PTR | |
13 | IRS KRD | |
14 | LDA* KRD | |
15 | STA CNT | |
16 | IRS KRD | |
17 | IRS KRD | |
18 | * | |
19 | OCP 4 | |
20 | * | |
21 | ********* | |
22 | LOOP JST GETC | |
23 | STA HI | |
24 | ANA ='177 | |
25 | SUB =13 | |
26 | SNZ | |
27 | JMP EHI | |
28 | JST GETC | |
29 | STA LO | |
30 | ANA ='177 | |
31 | SUB =13 | |
32 | SNZ | |
33 | JMP ELO | |
34 | IRS* CNT | |
35 | IRS* CNT | |
36 | LDA HI | |
37 | ALS 8 | |
38 | ADD LO | |
39 | STA* PTR | |
40 | IRS PTR | |
41 | JMP LOOP | |
42 | *********** | |
43 | EHI CRA | |
44 | STA* PTR | |
45 | IRS PTR | |
46 | STA* PTR | |
47 | JMP* KRD | |
48 | * | |
49 | ELO LDA HI | |
50 | ALS 8 | |
51 | STA* PTR | |
52 | IRS PTR | |
53 | CRA | |
54 | STA* PTR | |
55 | IRS* CNT | |
56 | JMP* KRD | |
57 | * | |
58 | PTR DAC ** | |
59 | CNT DAC ** | |
60 | HI DAC 0 | |
61 | LO DAC 0 | |
62 | * | |
63 | ****** | |
64 | GETC DAC * | |
65 | INA '1004 | |
66 | JMP *-1 | |
67 | JMP* GETC | |
68 | ****** | |
69 | END |