OUTCH.ASM
上传用户:sunrenlu
上传日期:2022-06-13
资源大小:1419k
文件大小:1k
源码类别:

操作系统开发

开发平台:

DOS

  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 nr
  13. ;
  14. ;
  15. ;  Usage :
  16. ;     outch( ch )
  17. ;
  18. ;  (c) 1990 Erick Engelke
  19. ;
  20. ;  version
  21. ;
  22. ;    0.1    7-Nov -1990   E. P. Engelke
  23. ;
  24. ;
  25. include masmdefs.hsm
  26. include model.hsm
  27. codedef OUTCH
  28. datadef
  29. cstart  OUTCH
  30. cpublic outch
  31.         push    BP
  32.         mov     BL, 1           ; colour
  33.         mov     AL, +@AB [BP]   ; character
  34.         mov     AH, 0eh
  35.         int     10h
  36.         pop     BP
  37. ;        mov     DL, +@AB [BP]
  38. ;        mov     AH, 2
  39. ;        int     21h
  40. creturn outch
  41. cend    OUTCH
  42.         end