home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / ASM / BCDASM.ZIP / BCDASM / EXAMPLES / EXASM.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-06-03  |  961 b   |  35 lines
  1.         .model  small, stdcall
  2.         .186
  3. ;
  4. ; Sample assembly language DOS app using BCDASM routines
  5. ;
  6.  
  7.         include bcd.asi         ; BCDASM interface
  8.         include consolio.ash    ; I/O prototypes
  9.         .stack  0200h
  10.  
  11.         BCDSZ = 10
  12.         BUFSZ = 256
  13.         .data
  14. msghi   db "Hello from BCDASM: ",0
  15. bnum    dt 61728394506172839
  16.         .data?
  17. buf     db BUFSZ dup (?)
  18.  
  19.         .code
  20. begin:  .startup
  21.         ; STDCALL preserves SI and DI
  22.         call  WriteZStr, offset msghi
  23.         lea   si, [bnum]
  24.         call  bcdAdd, si, si, BCDSZ     ; Add to self
  25.         call  bcdNeg, si, BCDSZ         ; Reverse sign
  26.         lea   di, [buf]                 ; Convert BCD to Ascii
  27.         call  bcdFmt, di, BUFSZ, si, BCDSZ, \
  28.                   32,-1,-1,-1, -1,-1,-1,-1
  29.         call  WriteZStr, di             ; Output Ascii string
  30.         call  WriteNL
  31.         mov   ax, 4c00h
  32.         int   21h
  33.  
  34.         END   begin
  35.