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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图象 > 查看源码
BWPRINT.ASM
资源名称：2drot.zip　[点击查看]
上传用户：connie
上传日期：2007-01-08
资源大小：8k
文件大小：2k
源码类别：

图形图象

开发平台：

Asm

BWPRINT.ASM：源码内容
  1.     DOSSEG
  3.     .MODEL SMALL
  4.     .386
  5.     .CODE
  7.     GLOBAL  PrintByte:PROC, PrintWord:PROC, PrintBig:PROC
  9.     TextNumBIG  db  "00000"
  10.     TextNum     db  "00000"
  11.     TextNumEnd  db  0,"$"
  12.     
  13. BinToAscII PROC
  14.         mov     bx,10
  15.         mov     si,SEG TextNum
  16.         mov     es,si
  17.         mov     si,offset textnumend-1
  18.         mov     cx,5
  19. DivLoop:
  20.         sub     dx,dx
  21.         div     bx
  22.         add     dl,'0'
  23.         mov     es:[si],dl
  24.         dec     si
  25.         loop    DivLoop
  26.         ret
  27. ENDP BinToAscII
  29. B2ABig PROC
  30.         mov     ebx,10
  31.         mov     si,SEG TextNum
  32.         mov     es,si
  33.         mov     si,offset textnumend-1
  34.         mov     cx,10
  35. DLBig:
  36.         sub     edx,edx
  37.         div     ebx
  38.         add     dl,'0'
  39.         mov     es:[si],dl
  40.         dec     si
  41.         loop    DLBig
  42.         ret
  43. ENDP B2ABig
  45. PrintBig PROC
  46.     pushad
  48.     call    b2aBig
  49.     mov     ax,SEG TextNumBig
  50.     mov     ds,ax
  51.     mov     dx,offset textnumBig
  52.     mov     ah,9
  53.     int     21h
  55.     popad
  56.     ret
  57. ENDP PrintBig
  59. PrintByte PROC
  60.     pusha
  61.     jnc     skipsignb
  62.     xor     ah,ah
  63.     test    al,10000000b
  64.     jz      skipsignb
  65.     neg     al
  66.     push    ax
  67.     mov     ah,2
  68.     mov     dl,"-"
  69.     int     21h
  70.     pop     ax
  71.     jmp     skipb
  73. skipsignb:
  74.     xor     ah,ah
  75.     push    ax
  76.     mov     ah,2
  77.     mov     dl," "
  78.     int     21h
  79.     pop     ax
  80. skipb:
  81.     call    bintoascii
  82.     mov     ax,SEG TextNum
  83.     mov     ds,ax
  84.     mov     dx,offset textnum+2
  85.     mov     ah,9
  86.     int     21h
  87.     popa
  88.     ret
  89. ENDP PrintByte
  91. PrintWord PROC
  92.     pusha
  93.     jnc     skipsignw
  94.     test    ah,10000000b
  95.     jz      skipsignw
  96.     neg     ax
  97.     push    ax
  98.     mov     ah,2
  99.     mov     dl,"-"
  100.     int     21h
  101.     pop     ax
  102.     jmp     skipw
  103. Skipsignw:        
  104.     push    ax
  105.     mov     ah,2
  106.     mov     dl," "
  107.     int     21h
  108.     pop     ax
  109. Skipw:
  110.     call    bintoascii
  111.     mov     ax,SEG TextNum
  112.     mov     ds,ax
  113.     mov     dx,offset textnum
  114.     mov     ah,9
  115.     int     21h
  116.     popa
  117.     ret
  118. ENDP PrintWord
  120.     END
  121.