*** empty log message ***
[h316.git] / lib / hachti / src / tt$low.asm
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