home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol085 / pause.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  419 b   |  23 lines
  1. ; short routine to print a message to the console, wait
  2. ; for any keypressed then return immediately to cp/m.
  3. ; 05/14/82 - Raymond E. Penley
  4.  
  5.     org    0100h
  6.     ;
  7.     lxi    d,msg
  8.     mvi    c,09h    ;print string function code
  9.     call    5
  10.     ;
  11.     mvi    c,1    ;conin function code
  12.     call    5
  13.     ;
  14.     lxi    d,crlf    ;print a cr/lf
  15.     mvi    c,09h
  16.     call    5
  17.     ret        ;back to ccp
  18.     ;
  19. msg:    db    'Press any key to return to menu:$'
  20. crlf:    db    13h,0ah,'$'
  21.  
  22.     end
  23.