home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / MSDOS / WATTCP / WNWATTCP.ZIP / ELIB / OUTCH.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-09-20  |  781 b   |  53 lines
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;  outch.asm
  11. ;
  12. ;  print a character to stdio, ttymode, does \n to \n\r
  13. ;
  14. ;
  15. ;  Usage :
  16. ;        outch( ch )
  17. ;
  18. ;  (c) 1990 University of Waterloo,
  19. ;           Faculty of Engineering,
  20. ;           Engineering Microcomputer Network Development Office
  21. ;
  22. ;  version
  23. ;
  24. ;    0.1    7-Nov -1990   E. P. Engelke
  25. ;
  26. ;
  27.     include masmdefs.hsm
  28.     include    model.hsm
  29.  
  30. codedef OUTCH
  31. datadef
  32.  
  33. cstart  OUTCH
  34. cpublic outch
  35.         push    BP
  36.     push    BX
  37.         mov     BL, 1           ; colour
  38.         mov     AL, +@AB [BP]   ; character
  39.         mov     AH, 0eh
  40.         int     10h
  41.  
  42.     pop    BX
  43.         pop     BP
  44.  
  45. ;        mov     DL, +@AB [BP]
  46. ;        mov     AH, 2
  47. ;        int     21h
  48.  
  49. creturn    outch
  50. cend    OUTCH
  51.         end
  52.  
  53.