workloads/terminal.mms

   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