home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / chrout.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  736 b   |  32 lines
  1. ;************************************************************
  2.  
  3. ;               CHROUT
  4.  
  5. ;************************************************************
  6.  
  7.                 NAME CHROUT
  8.                 ENTRY CHROUT
  9.  
  10. ;FUNCTION:prints on console the character whose ASCII is
  11. ;         transmitted to CHROUT in A.
  12.  
  13. BIOS equ 5
  14. OUTCOD equ 2
  15.  
  16. CHROUT:         push psw
  17.                 push b
  18.                 push d
  19.                 push h
  20.                 mov e,a      ;A->E,for BIOS
  21.                 mvi c,OUTCOD ;      "    "
  22.                 call BIOS
  23.                 pop h
  24.                 pop d
  25.                 pop b
  26.                 pop psw
  27.                 ret
  28.  
  29.                 END CHROUT
  30.  
  31. ;***********************************************************
  32.