home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / mesij.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.0 KB  |  32 lines
  1. ********************************************************************
  2.  
  3. *                          MESIJ                                   *
  4.  
  5. ********************************************************************
  6.  
  7.                   name mesij
  8.                   entry mesij
  9.                   ext chrout
  10.  
  11. ;FUNCTION:prints on console the message whose start address
  12. ;         is transmitted to MESIJ in X.
  13. ;CALLS: CHROUT
  14.  
  15. mesij:            push psw        ;
  16.                   push x          ;
  17.                   push h          ;
  18. loop:             mov a,0(x)      ;put i'th byte in A.
  19.                   cpi 24h          ;24('$')=end/message.
  20.                   jz fini         ;
  21.                   call CHROUT    ;output byte,
  22.                   inx x           ;bump pointer,
  23.                   jmp loop        ;& repeat.
  24. fini:             pop h           ;
  25.                   pop x           ;
  26.                   pop psw         ;
  27.                   ret
  28.  
  29.                   end mesij
  30.  
  31. ********************************************************************
  32.