开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
OUTHEX.ASM
资源名称：ertos.rar　[点击查看]
上传用户：sunrenlu
上传日期：2022-06-13
资源大小：1419k
文件大小：1k
源码类别：

操作系统开发

开发平台：

DOS

OUTHEX.ASM：源码内容
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;  outhex.asm
  11. ;
  12. ;  print a hex byte to standard out
  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
  28. codedef OUTHEX
  29. datadef
  31.         cextrn outch
  33. cstart  OUTHEX
  35. h1      proc near
  36.         mov     AL, +@AB [BP]    ; get byte
  37.         and     AL, 0fh
  38.         cmp     AL, 9
  39.         jle     @1
  40.         add     AL, 'A' - '9' - 1
  41. @1:     add     AL, '0'
  42. ;
  43. ;        mov     AH, 2
  44. ;        int     21h
  45.         push    AX
  46.         ccall    outch
  47.         pop     AX
  48.         ret
  49. h1      endp
  51. cpublic outhex
  52.         mov     AL, +@AB [BP]
  53.         mov     CL, 4
  54.         shr     AL, CL
  56.         mov     DL, AL
  57.         call    h1
  58.         mov     AL, +@AB [BP]
  59.         call    h1
  60. creturn outhex
  61. cend    OUTHEX
  62.         end