repo.or.cz
/
fpgammix.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
initial
[fpgammix.git]
/
workloads
/
terminal.mms
blob
4b2ab0251397526bd4292e54ba2d4f897592b84a
1
% Grab bytes from rs232 input, echo them and store them in the frame buffer
2
3
iospace GREG
4
p GREG
5
c GREG
6
t GREG
7
8
LOC #100
9
Main SETH iospace,#1
10
SETMH p,#1
11
12
1H LDBU t,iospace,7
13
PBOD t,1B
14
SETL t,'O'
15
STBU t,iospace,7
16
17
1H LDBU t,iospace,7
18
PBOD t,1B
19
SETL t,'k'
20
STBU t,iospace,7
21
22
1H LDBU t,iospace,7
23
PBOD t,1B
24
SETL t,'$'
25
STBU t,iospace,7
26
27
GetCh LDT c,iospace,12
28
PBN c,GetCh
29
30
STBU c,p,0
31
INCL p,#1
32
33
34
1H LDBU t,iospace,7
35
PBOD t,1B
36
SETL t,'<'
37
STBU t,iospace,7
38
39
1H LDBU t,iospace,7
40
PBOD t,1B
41
STBU c,iospace,7
42
43
1H LDBU t,iospace,7
44
PBOD t,1B
45
SETL t,'>'
46
STBU t,iospace,7
47
48
JMP GetCh