initial
[fpgammix.git] / workloads / terminal.mms
blob4b2ab0251397526bd4292e54ba2d4f897592b84a
1 % Grab bytes from rs232 input, echo them and store them in the frame buffer
3 iospace GREG
4 p       GREG
5 c       GREG
6 t       GREG
8         LOC     #100
9 Main    SETH    iospace,#1
10         SETMH   p,#1
12 1H      LDBU    t,iospace,7
13         PBOD    t,1B
14         SETL    t,'O'
15         STBU    t,iospace,7
17 1H      LDBU    t,iospace,7
18         PBOD    t,1B
19         SETL    t,'k'
20         STBU    t,iospace,7
22 1H      LDBU    t,iospace,7
23         PBOD    t,1B
24         SETL    t,'$'
25         STBU    t,iospace,7
27 GetCh   LDT     c,iospace,12
28         PBN     c,GetCh
30         STBU    c,p,0
31         INCL    p,#1
34 1H      LDBU    t,iospace,7
35         PBOD    t,1B
36         SETL    t,'<'
37         STBU    t,iospace,7
39 1H      LDBU    t,iospace,7
40         PBOD    t,1B
41         STBU    c,iospace,7
43 1H      LDBU    t,iospace,7
44         PBOD    t,1B
45         SETL    t,'>'
46         STBU    t,iospace,7
48         JMP     GetCh