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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
I49printer.c
资源名称：tb_i86_wr_1019_1102.　[点击查看]
上传用户：super_houu
上传日期：2008-09-21
资源大小：4099k
文件大小：41k
源码类别：

DVD

开发平台：

Others

I49printer.c：源码内容
  1. /*
  2.  *      Paradigm C/C++ Run-Time Library - Version 5.0
  3.  *
  4.  *      Copyright (c) 1998 Paradigm Systems.  All rights reserved.
  5.  *      Portions Copyright (c) 1996 Borland International.
  6.  *
  7.  *      $Revision: 5 $
  8.  *      $Workfile: I49printer.c $
  9.  *
  10.  * function(s)
  11.  *        Hex4       - converts int to 4 hex digits
  12.  *        __vprinter - sends formatted output
  13.  */
  16. #include "Config.h" // Global Configuration - do not remove!
  18. #pragma  inline
  19. #include <stdio.h>
  21. #include "ServicesIncludeasmrules.h"
  22. #include "ServicesInclude_printf.h"
  24. #define I49_PRINTF 1
  27. #ifdef I49_PRINTF
  28. #pragma codeseg _TEXT "CODE"
  29. #include "cpuv186tv186t.h"
  30. #endif
  32. #define I asm
  34. #define BREAKPOINT      asm int 3
  36. #ifdef I49_PRINTF
  37. static const far char NullString[] = "(null)";
  38. #else
  39. static char NullString[] = "(null)";
  40. #endif
  41. /*-----------------------------------------------------------------------*
  43. Name            Hex4 - converts int to 4 hex digits
  45. Usage           static void near pascal Hex4( void )
  47. Description     Convert 16 bit parameter (in dx) to 4 hex digits at ES: [di].
  49.                 NOTE: TC does not realize that "stosb" implies DI, so DI is
  50.                 not pushed/popped.  That is nice, but one day it may cease
  51.                 to be true...
  53.                 The calling code expects di to be incremented by 4 as a
  54.                 side effect of this function.
  56. *------------------------------------------------------------------------*/
  57. I _TEXT    segment
  58. I  Hex4    proc near
  59. I          mov     al,dh
  60. I          call    Byte2Ascii
  61. I          mov     al,dl
  63. I Byte2Ascii:                         /* convert byte in al to ASCII */
  64. I          db      0d4h,10h           /* AAM trick to separate nibbles in al */
  65. I          xchg    ah,al
  66. I          call    Nibble2Ascii
  67. I          xchg    ah,al
  69. I Nibble2Ascii:                       /* convert hex digit in al to ASCII */
  70. I          add     al,90h
  71. I          daa
  72. I          adc     al,40h
  73. I          daa
  74. I          stosb
  75. I          ret
  76. I          endp
  77. I          ends
  79. /*-----------------------------------------------------------------------*
  81. __vprinter is a table-driven design, for speed and flexibility. There are
  82. two tables.  The first table classifies all 7-bit ASCII chars and then the
  83. second table is the switch table which points to the function blocks which
  84. handle the various classes of characters.
  86. All characters with the 8th bit set are currently classed as don't cares,
  87. which is the class of character also used for normal alphabetics.  All
  88. characters less than ' ' (0x20) are also classed as don't cares.
  90. *------------------------------------------------------------------------*/
  92. typedef
  93.         enum
  94.         {
  95.                 _si,    /* sign fill +/-        */
  96.                 _af,    /* alternate form       */
  97.                 _ar,    /* format (width or precision) by argument */
  98.                 _lj,    /* left justify         */
  100.                 _pr,    /* precision            */
  101.                 _nu,    /* numeral              */
  102.                 _lo,    /* long                 */
  103.                 _ld,    /* long double          */
  104.                 _sh,    /* short                */
  105.                 _fz,    /* fill zeros           */
  107.                 _de,    /* decimal              */
  108.                 _oc,    /* octal                */
  109.                 _un,    /* unsigned decimal     */
  110.                 _he,    /* hexadecimal          */
  112.                 _pt,    /* pointer              */
  113.                 _fl,    /* float                */
  114.                 _ch,    /* char                 */
  115.                 _st,    /* string               */
  117.                 _ns,    /* number sent          */
  118.                 _zz,    /* terminator           */
  119.                 _dc,    /* don't care           */
  120.                 _pc,    /* percent              */
  122.                 _ne,    /* near pointer         */
  123.                 _fa,    /* far pointer          */
  124.         } characterClass;
  126.         /*  Here is the table of classes, indexed by character. */
  128. #ifdef I49_PRINTF
  129. static const far unsigned char printCtype [96] =
  130. #else
  131. static unsigned char printCtype [96] =
  132. #endif
  133. {
  134. /*       SP   !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /  */
  135.         _si,_dc,_dc,_af,_dc,_pc,_dc,_dc,_dc,_dc,_ar,_si,_dc,_lj,_pr,_dc,
  137. /*        0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?  */
  138.         _fz,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_dc,_dc,_dc,_dc,_dc,_dc,
  140. /*        _   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O  */
  141.         _dc,_dc,_dc,_dc,_dc,_fl,_fa,_fl,_sh,_dc,_dc,_dc,_ld,_dc,_ne,_dc,
  143. /*        P   Q   R   S   T   U   V   W   X   Y   Z   [      ]   ^   _  */
  144.         _dc,_dc,_dc,_dc,_dc,_dc,_dc,_dc,_he,_dc,_dc,_dc,_dc,_dc,_dc,_dc,
  146. /*        `   a   b   c   d   e   f   g   h   i   j   k   l   m   n   o  */
  147.         _dc,_dc,_dc,_ch,_de,_fl,_fl,_fl,_sh,_de,_dc,_dc,_lo,_dc,_ns,_oc,
  149. /*        p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~ DEL  */
  150.         _pt,_dc,_dc,_st,_dc,_un,_dc,_dc,_he,_dc,_dc,_dc,_dc,_dc,_dc,_dc,
  151. };
  154. /*---------------------------------------------------------------------*
  156. Name            __vprinter - sends formatted output
  158. Usage           int   pascal __vprinter (putnF  *putter,
  159.                                          void   *outP,
  160.                                          const char   *formP,
  161.                                          void _ss *argP)
  163. Prototype in    _printf.h
  165. Description     The list of arguments *argP is combined with literal text in
  166.                 the format string *formP according to format specifications
  167.                 inside the format string.
  169.                 The supplied procedure *putter is used to generate the output.
  170.                 It is required to take the string S, which has been
  171.                 constructed by __vprinter, and copy it to the destination
  172.                 outP.  The destination may be a string, a FILE, or whatever
  173.                 other class of construct the caller requires.  It is possible
  174.                 for several calls to be made to *putter since the buffer S
  175.                 is of limited size.
  177.                 *putter is required to preserve  SI, DI.
  179.                 The only purpose of the outP argument is to be passed through
  180.                 to putter.
  182.                 The object at *argP is a record of unknown structure, which
  183.                 structure is interpreted with the aid of the format string.
  184.                 Each field of the structure may be an integer, long, double,
  185.                 or string (char *).  Chars may appear but occupy integer-sized
  186.                 cells.  Floats, character arrays, and structures may not
  187.                 appear.
  189. Return value    The result of the function is a count of the characters sent to
  190.                 *outP.
  192.                 There is no error indication.  When an incorrect conversion
  193.                 spec is encountered __vprinter copies the format as a literal
  194.                 (since it is assumed that alignment with the argument list has
  195.                 been lost), beginning with the '%' which introduced the bad
  196.                 format.
  198.                 If the destination outP is of limited size, for example a
  199.                 string or a full disk, __vprinter does not know.  Overflowing
  200.                 the destination causes undefined results.  In some cases
  201.                 *putter is able to handle overflows safely, but that is not
  202.                 the concern of __vprinter.
  204.                 The syntax of the format string is:
  206.                 format ::=      ([literal] ['%' conversion ])* ;
  208.                 conversion ::=  '%' | [flag]* [width] ['.' precision]
  209.                                       ['l'] type ;
  211.                 flag ::=        '-' | '+' | ' ' | '#' | '0' ;
  213.                 width ::=       '*' | number ;
  214.                 precision ::=   '.' ('*' | number) ;
  216.                 type ::=        'd'|'i'|'o'|'u'|'x'|'n'|'X'|'f'|'e'|'E'|
  217.                                 'g'|'G'|'c'|'s'|'p'|'N'|'F'
  219. *---------------------------------------------------------------------*/
  220. #ifdef I49_PRINTF
  221. int   pascal near __I49vprinter (const char *formP, void _ss   *argP)
  222. #else
  223. int   pascal near __vprinter (putnF near *putter,
  224.                               void       *outP,
  225.                               const char *formP,
  226.                               void _ss   *argP)
  227. #endif
  228. {
  231. #define Ssize 40
  233.         typedef
  234.                 enum
  235.                 {
  236.                 flagStage, fillzStage, wideStage, dotStage, precStage,
  237.                 ellStage, typeStage,
  238.                 } syntaxStages;
  240.         typedef
  241.                 enum
  242.                 {
  243.                 altFormatBit = 1,       /* the '#' flag                 */
  244.                 leftJustBit  = 2,       /* the '-' flag                 */
  245.                 notZeroBit   = 4,       /* 0 (octal) or 0x (hex) prefix */
  246.                 fillZerosBit = 8,       /* zero fill width              */
  247.                 isLongBit    = 16,      /* long-type argument           */
  248.                 farPtrBit    = 32,      /* far pointers                 */
  249.                 alt0xBit     = 64,      /* '#' confirmed for %x format  */
  250.                 floatBit     = 128,     /* float arg 4 bytes not 8!     */
  251.                 LongDoubleBit= 256      /* signal a long double argument*/
  252.                 } flagBits;
  254.         flagBits flagSet;
  256. #ifndef I49_PRINTF
  257.   /* do not buffer any data */
  258.         unsigned aP;
  259. #endif
  260.         char     fc;                    /* format char, from fmt string */
  261.         char     isSigned;              /* chooses signed/unsigned ints */
  262.         int      width;
  263.         int      precision;
  264.         char     plusSign;
  265.         int      leadZ;
  266.         unsigned abandonP;              /* posn of bad syntax in fmt str*/
  267.         char     tempStr [__CVTMAX__];  /* longest _realcvt or longtoa string*/
  268.         unsigned totalSent = 0;         /* characters sent to putter    */
  269. #ifndef I49_PRINTF
  270.   /* do not buffer any data */
  271.         unsigned Scount = Ssize;        /* free space remaining in S    */
  272.         char     S [Ssize];             /* temp working result buffer   */
  273. #endif
  274.         int      eof_error = 0;         /* flag, TRUE is EOF error      */
  276. #if 0   /* the remaining variables are held entirely in registers       */
  278.         char    hexCase;                /* upper/lower Hex alphabet     */
  279.         long    tempL;
  280.         syntaxStages    stage; -- CH
  281.         char            c;
  282.         char            *cP;
  283.         int             *iP;
  284. #endif
  286.         SaveSI
  287.         SaveDI
  288. /*
  289. General outline of the method:
  291. First the string is scanned, and conversion specifications detected.
  293. The preliminary fields of a conversion (flags, width, precision, long)
  294. are detected and noted.
  296. The argument is fetched and converted, under the optional guidance of
  297. the values of the preliminary fields.  With the sole exception of the
  298. 's' conversion, the converted strings are first placed in the tempStr
  299. buffer.
  301. The contents of the tempStr (or the argument string for 's') are copied
  302. to the output, following the guidance of the preliminary fields in
  303. matters such as zero fill, field width, and justification.
  304. */
  306. I       jmp short func_start    /* Skip over inline nested PROCs        */
  308. /***************************************************************************
  309.                 local, nested functions are placed here
  310.                 ES *must* be defined in all models.
  311. ***************************************************************************/
  313. #define RETN    db      0xC3    /* "RETN" is used to force a near ret   */
  315. /* Get length of string pointed to by ES:DI, return result in CX.       */
  317. I vpr_strlen LABEL NEAR         /* scan string ES: [DI] up to         */
  318. I       push    di
  319. I       mov     cx, -1          /*   count the string length.           */
  320. I       xor     al, al
  321. I       repne   scasb
  322. I       not     cx              /* (not CX) == (-1 -CX)                 */
  323. I       dec     cx              /* scasb overshoots                     */
  324. I       pop     di
  325. I       RETN
  327. /* call *putter to flush S */
  328. /* Put character to next position in S, check for S full */
  329. I vpr_PutToS LABEL NEAR
  330. #ifdef I49_PRINTF
  331. I       push dx
  332. I       push ax
  333. vpr_cput:
  334. I   mov  dx,SxSTS
  335. vpr_wait_empty:
  336. I       in  ax,dx   /* wait for empty transmit buffer */
  337. I       and ax,SER_THRE
  338. I       je vpr_wait_empty
  339. I   mov  dx,SxTBUF
  340. I   pop ax
  341. I   out  dx,ax
  342. I   cmp al,0x0A   /* if /n add /r */
  343. I   je vpr_carrige_return
  344. I   pop  dx
  345.         totalSent++;
  346. I       RETN
  347. vpr_carrige_return:
  348. I   push 0x0D
  349. I   jmp  vpr_cput
  350. #else
  351. I       mov     BY0 (ss:[di]), al
  352. I       inc     di
  353. I       dec     BY0 (Scount)
  354. I       jnz     exit_PutToS
  356. I vpr_CallPutter LABEL NEAR
  357. I       push    bx
  358. I       push    cx
  359. I       push    dx
  360. I       push    ES
  361. I       lea     ax, S
  362. I       sub     di, ax          /* count chars in S */
  364.         if( !putter (S, _DI, outP) )
  365.           {
  366.           eof_error = 1;
  367.           }
  369.         Scount = Ssize;
  370.         totalSent += _DI;
  372. I       lea     di, S
  373. I       pop     ES
  374. I       pop     dx
  375. I       pop     cx
  376. I       pop     bx
  377. exit_PutToS :
  378. I       RETN                    /* 'shared' RET for both PROCs */
  379. #endif
  381. /************************ end of embedded functions *******************/
  383. func_start:
  385. I       push    ES
  386. I       cld
  388. #ifndef I49_PRINTF
  389. I       lea     di, S
  390. I       mov     aP, di
  391. #endif
  393. /*
  394. This paragraph is arranged to give in-line flow to the most frequent
  395. case, literal transcription from *formP to *outP.
  396. */
  398. vpr_NEXTap:
  399. #ifndef I49_PRINTF
  400. I       mov     di, aP
  401. #endif
  403. vpr_NEXT:                       /* loop to here when DI still valid */
  404. I       LES_    si, formP
  406.         for (;;)                /* resume here from this literal/space */
  407.         {
  408. vpr_nextCh:
  409. I               lods    BY0 (ES_ [si])  /* if (pattern[x] == '')      */
  410. I               or      al, al          /*      goto exit               */
  411. I               jz      vpr_respondJmp
  413. I               cmp     al, '%'         /* '%' char begins a conversion */
  414. I               je      vpr_CONV
  416. vpr_literal:                            /* but "%%" is just a literal '%'. */
  417. #ifdef I49_PRINTF
  418. I call  vpr_PutToS
  419. I        jmp      vpr_nextCh      /*      continue;       */
  420. #else
  421. I               mov     ss:[di], al
  422. I               inc     di
  424. I               dec     BY0 (Scount)    /* if (--Scount)        */
  425. I               jg      vpr_nextCh      /*      continue;       */
  427. I               call    vpr_CallPutter  /* Compact way(smaller)         */
  428. #endif
  429.         }
  431. vpr_respondJmp:
  432. I       jmp     vpr_respond
  434. /* If arrived here then a conversion specification has been encountered. */
  436. vpr_CONV:
  437. I       mov     W0 (abandonP), si       /* abandon will print from here */
  439. I       lods    BY0 (ES_ [si])          /* AL <- char at ES:SI          */
  440. I       cmp     al, '%'                 /* %% really means %            */
  441. I       je      vpr_literal
  443. #ifndef I49_PRINTF
  444. I       mov     W0 (aP), di             /* keep result pointer safe     */
  445. #endif
  447. I       xor     cx, cx                  /* CH is flagStage              */
  448. I       mov     W0 (leadZ), cx          /* leadZ     <- 0               */
  449. #if LDATA
  450. I       mov     W0 (flagSet), farPtrBit /* flagSet   <- pointers are FAR*/
  451. #else
  452. I       mov     W0 (flagSet), cx        /* flagSet   <- 0               */
  453. #endif
  454. I       mov     BY0 (plusSign), cl      /* plusSign  <- 0               */
  455. I       mov     W0 (width), -1          /* width     <- default         */
  456. I       mov     W0 (precision), -1      /* precision <- default         */
  457. I       jmp     short vpr_doSwitch
  459.                 /*==================================*/
  460.                 /* loop to here when scanning flags */
  461.                 /*==================================*/
  463. vpr_nextSwitch:
  464. I       lods    BY0 (ES_ [si])          /* AL <- char at ES:SI          */
  466. /**************************************************************************
  467.  *                 Main character classification switch                   *
  468.  **************************************************************************/
  470. vpr_doSwitch:
  471. I       xor     ah, ah                  /* Remove any high order trash  */
  472. I       mov     dx, ax                  /* Duplicate original char in DL*/
  473. I       mov     bx, ax                  /* Duplicate original char in BL*/
  474. I       sub     bl, ' '                 /* Scale char in BL to 0-95     */
  475. I       cmp     bl, 128 - ' '           /* Weed out don't cares         */
  476. I       jae     vpr_jmpAbandon
  478. I   push  ES          /* preserve ES */
  479. I   push  seg printCtype
  480. I    pop  ES
  481. I       mov    bl, BY0 (ES_ printCtype [bx]) /* BL <- char type of the char*/
  482. I    pop  ES
  484.         switch  (_BX)                   /* =-=>  clobbers AX, BX  <=-=  */
  485.         {
  487. vpr_jmpAbandon:                         /* Extend local jump range      */
  488. I       jmp     vpr_abandon
  490. case (_af):                             /* when '#' was seen            */
  491. I       cmp     ch, flagStage
  492. I       ja      vpr_jmpAbandon
  493. I       or      W0 (flagSet), altFormatBit
  494. I       jmp     vpr_nextSwitch
  496. case (_lj):                             /* when '-' was seen            */
  497. I       cmp     ch, flagStage
  498. I       ja      vpr_jmpAbandon
  499. I       or      W0 (flagSet), leftJustBit
  500. I       jmp     vpr_nextSwitch
  502. case (_si):                             /* when ' ' or '+' was seen     */
  503. I       cmp     ch, flagStage
  504. I       ja      vpr_jmpAbandon
  505. I       cmp     BY0 (plusSign), 2Bh     /* '+'                          */
  506. I       je      gtvp_nxt_swit           /* ' ' ignored if '+' already   */
  507. I       mov     plusSign, dl
  509. gtvp_nxt_swit:
  510. I       jmp     vpr_nextSwitch
  512. case (_ne):                             /* near pointer                 */
  513. I       and     W0 (flagSet), NOT farPtrBit
  514. I       jmp     short ell_stagetail
  516. case (_fa):                             /* far pointer                  */
  517. I       or      W0 (flagSet), farPtrBit
  518. ell_stagetail:
  519. I       mov     ch, ellStage
  520. I       jmp     vpr_nextSwitch
  523. case (_fz):                             /* leading width '0' is a flag  */
  524. I       cmp     ch, flagStage
  525. I       ja      case_nu                 /*   else it is just a digit    */
  526. I       test    W0 (flagSet), leftJustBit
  527. I       jnz     short   vpr_nextSwitchJmp
  528. I       or      W0 (flagSet), fillZerosBit
  529. I       mov     ch, fillzStage          /*   but it must be part of width */
  530. I       jmp     vpr_nextSwitch
  532. vpr_abandonJmp:                         /* Extend local jump range      */
  533. I       jmp     vpr_abandon
  535. case (_ar):                             /* when '*' was seen it causes  */
  536. I       mov     di, argP
  537. I       mov     ax, ss:[di]             /*    the next argument to be   */
  538. I       add     W0 (argP), 2            /*       taken, depending on    */
  539. I       cmp     ch, wideStage           /*          the stage, as the   */
  540. I       jnb     vpr_argPrec             /*             width, or...     */
  542. I       or      ax,ax                   /* is the width negative?       */
  543. I       jns     vpr_pos
  544. I       neg     ax
  545. I       or      W0 (flagSet), leftJustBit
  547. vpr_pos:
  548. I       mov     width, ax
  549. I       mov     ch, wideStage + 1
  550. vpr_nextSwitchJmp:
  551. I       jmp     vpr_nextSwitch
  553. vpr_argPrec:
  554. I       cmp     ch, precStage
  555. I       jne     vpr_abandonJmp
  556. I       mov     precision, ax           /*             the precision.   */
  557. I       inc     ch
  558. I       jmp     vpr_nextSwitch
  560. case (_pr):                             /* when '.' is seen, precision  */
  561. I       cmp     ch, precStage
  562. I       jnb     vpr_abandonJmp
  563. I       mov     ch, precStage           /* should follow                */
  564. I       inc     W0 (precision)          /* if no digits, ANSI says zero */
  565. I       jmp     vpr_nextSwitch
  567. /*
  568.         When a numeral is seen, it may be either part of a width, or
  569.         part of the precision, depending on the stage.
  570. */
  571. case (_nu):                             /* when 0..9 seen               */
  572. case_nu:
  573. I       xchg    ax, dx                  /* move char back into AL       */
  574. I       sub     al, '0'                 /* turn '0'-'9' to 0-9          */
  575. I       cbw                             /* make it a word               */
  576. I       cmp     ch, wideStage           /* is it part of a width spec?  */
  577. I       ja      vpr_precNumeral         /* no, see if it's a precision  */
  579. I       mov     ch, wideStage
  580. I       xchg    ax, width
  581. I       or      ax, ax                  /* first width digit ?          */
  582. I       jl      vpr_nextSwitchJmp       /*   default width was -1       */
  583. I       shl     ax, 1                   /* *2                           */
  584. I       mov     dx, ax
  585. I       shl     ax, 1                   /* *4                           */
  586. I       shl     ax, 1                   /* *8                           */
  587. I       add     ax, dx                  /* (*2 + *8) = *10              */
  588. I       add     width, ax               /* width = (width * 10 + num)   */
  589. I       jmp     vpr_nextSwitch
  591. vpr_precNumeral:
  592. I       cmp     ch, precStage           /* is it part of precision spec */
  593. I       jne     vpr_abandonJmp          /* no, it's just a literal      */
  595. //  At this point we know that the precision specifier '.' has been seen,
  596. //  so we know that the precision is zero (set at '.') or greater.
  598. I       xchg    ax, precision           /* we only need to scale the    */
  599. I       or      ax, ax                  /* precision if it's non zero   */
  600. I       jz      vpr_nextSwitchJmp
  601. I       shl     ax, 1                   /* *2                           */
  602. I       mov     dx, ax
  603. I       shl     ax, 1                   /* *4                           */
  604. I       shl     ax, 1                   /* *8                           */
  605. I       add     ax, dx                  /* (*2 + *8) = *10              */
  606. I       add     precision, ax           /* prec = (prec * 10 + numeral) */
  607. I       jmp     vpr_nextSwitch
  610. case (_lo):                             /* 'l' was seen (long)          */
  611. I       or      W0 (flagSet), isLongBit
  612. I       jmp     ell_stagetail
  614. case (_ld):                             /* 'L' was seen (long double)   */
  615. I       or      W0 (flagSet), LongDoubleBit
  617. case (_sh):                             /* 'h' or 'H' was seen (short)  */
  618. I       and     W0 (flagSet), not isLongBit
  619. I       jmp     ell_stagetail
  621. /*--------------------------------------------------------------------------
  622. The previous cases covered all the possible flags.  Now the following
  623. cases deal with the different argument types.
  625. Remember DL contains a copy of the original character.
  626. --------------------------------------------------------------------------*/
  628.         /*==========================================================*/
  629.         /* The first group of cases is for the integer conversions. */
  630.         /*==========================================================*/
  632. case (_oc):                             /* octal                        */
  633. I       mov     bh, 8                   /* BH <- Base 8                 */
  634. I       jmp     short vpr_NoSign
  636. case (_un):                             /* unsigned                     */
  637. I       mov     bh, 10                  /* BH <- Base 10                */
  638. I       jmp     short vpr_NoSign
  641. case (_he):                             /* hex                          */
  642. I       mov     bh, 10h                 /* BH <- Base 16                */
  643. I       mov     bl, 'A' - 'X'
  644. I       add     bl, dl                  /* Adjust for aAbBcC etc later  */
  646. vpr_NoSign:
  647. I       mov     BY0 (plusSign), 0       /* It's an unsigned operand     */
  648. /*      jmp     short   vpr_UINT */
  650. #ifndef I49_PRINTF
  651. vpr_UINT:
  652. #endif
  653. I       mov     fc, dl                  /* 'fc' <- orig fmt char        */
  654. I       xor     dx, dx                  /* zero extend by default       */
  655. I       mov     BY0 (isSigned), dl
  656. I       mov     di, argP
  657. I       mov     ax, ss:[di]             /* AX <- word arg at SS:DI      */
  658. I       jmp     short vpr_toAscii
  661. case (_de):                             /* decimal                      */
  662. I       mov     bh, 10                  /* BH <- Base 10                */
  663. #ifndef I49_PRINTF
  664. vpr_INT:
  665. #endif
  666. I       mov     BY0 (isSigned), 1
  667. I       mov     fc, dl                  /* 'fc' <- orig fmt char        */
  669. I       mov     di, argP                /* SS:DI -> argument word[0]    */
  670. I       mov     ax, ss:[di]             /* AX <- word arg at SS:DI      */
  671. I       cwd                             /* sign-extend by default       */
  673. vpr_toAscii:
  674. I       inc     di                      /* SS:DI -> next arg word       */
  675. I       inc     di
  677. I       mov     formP, si               /* remember progress through format */
  679. I       test    W0 (flagSet),isLongBit  /* short or long int ?          */
  680. I       je      vpr_shortInt            /* If the operand is a long     */
  681. I       mov     dx, ss:[di]             /* DX:AX holds long argument    */
  682. I       inc     di                      /* SS:DI -> next arg word       */
  683. I       inc     di
  685. vpr_shortInt:
  686. I       mov     argP, di                /* Save arg list pointer        */
  688. I       lea     di, tempStr [1]         /* (SS) DI <- &tempStr[1]       */
  690. I       or      ax, ax                  /* Is the value zero?           */
  691. I       jnz     vpr_flag_nz             /* No,                          */
  692. I       or      dx, dx                  /* Is the value zero?           */
  693. I       jnz     vpr_flag_nz             /* No,                          */
  695. /*-----------------------------------------------------------------------
  696.         Check for the special ANSI case of a zero value with an explicit
  697.         precision of zero.
  698. ------------------------------------------------------------------------*/
  700. I       cmp     W0 (precision), 0       /* Is it the special case?      */
  701. I       jne     vpr_flag_zr             /* No, continue                 */
  702. I       mov     byte ptr SS:[di], 0     /* Otherwise, make empty string */
  703. I       mov     ax, di                  /* longtoa returns pointer      */
  704. I       jmp     vpr_converted
  707. /*-------------------------------------------------------------------------
  708.         "Normal" integer output cases wind up down here somewhere.
  709. -------------------------------------------------------------------------*/
  711. vpr_flag_nz:
  712. I       or      W0 (flagSet), notZeroBit /* flag non-zeroness           */
  713. vpr_flag_zr:
  715. #ifndef I49_PRINTF
  716. vpr_doLtoA:
  717. #endif
  718. I       push    dx                      /* Push long value (AX:DX)      */
  719. I       push    ax
  721. #if LDATA
  722. I       push    SS
  723. #endif
  724. I       push    di                      /*    ie. &tempStr[1]           */
  726. I       mov     al, bh                  /* AL <- numeric base/radix     */
  727. I       cbw                             /* Convert it to a word         */
  728. I       push    ax                      /* Push the radix               */
  730. I       mov     al, isSigned            /* Push the isSigned flag,      */
  731. I       push    ax                      /* AH should still be 0         */
  733. I       push    bx                      /* BL ==        , hexCase)      */
  735. /***    __longtoa(number, string, radix, signflag, hexcase)           ***/
  737. I       call    __longtoa               /* returns pointer to string    */
  739. vpr_converted:
  740. I       push    SS
  741. I       pop     ES                      /* ES_ [di] = cP == 1+tempStr   */
  742.                                         /* ES is needed in all models   */
  744. I       mov     dx, precision           /* Has precsion been set?       */
  745. I       or      dx, dx
  746. I       jge     vpr_countActualJmp      /* Yes.                         */
  747. I       jmp     vpr_testFillZeros       /* No.                          */
  749. vpr_countActualJmp:
  750. I       jmp     vpr_countActual
  752. /*
  753. The 'p' conversion takes either a near or a far pointer and puts
  754. it out in the usual Intel xxxx:xxxx hex style.
  755. */
  756. case (_pt):                             /* pointer      */
  757. I       mov     fc, dl                  /* remember the type character. */
  758. I       mov     formP, si               /* remember progress through format */
  759. I       lea     di, tempStr
  761. I       mov     bx, argP
  762. I       push    word ptr ss:[bx]        /* fetch the argument.w0 */
  763. I       inc     bx
  764. I       inc     bx
  765. I       mov     argP, bx
  767. I       test    W0 (flagSet), farPtrBit
  768. I       jz      vpr_ptrLSW
  770. I       mov     dx, ss:[bx]             /* fetch the argument.w1 */
  771. I       inc     bx
  772. I       inc     bx
  773. I       mov     argP, bx
  774. I       push    SS
  775. I       pop     ES
  776. I       call    Hex4
  778. /*      add     di, 4                   Hex4 does this          */
  780. I       mov     al, ':'
  781. I       stosb
  783. vpr_ptrLSW:
  784. I       push    SS
  785. I       pop     ES
  786. I       pop     dx
  787. I       call    Hex4
  789. /*      add     di, 4                   Hex4 does this          */
  791. I       mov     BY0 (ss:[di]), 0
  793. I       mov     BY0 (isSigned), 0
  794. I       and     W0 (flagSet), NOT notZeroBit
  796. I       lea     cx, tempStr
  797. I       sub     di, cx
  798. I       xchg    cx, di          /* CX = len,  DI = tempStr      */
  800. I       mov     dx, precision
  801. I       cmp     dx, cx
  802. I       jg      vpr_ptrEnd
  803. I       mov     dx, cx
  805. vpr_ptrEnd:
  806. I       jmp     vpr_testFillZeros
  809. /*
  810. The 'c' conversion takes a character as parameter.  Note, however,
  811. that the character occupies an (int) sized cell in the argument
  812. list.
  813. */
  815. case (_ch):                     /* char         */
  816. I       mov     formP, si       /* remember progress through format */
  817. I       mov     fc, dl          /* remember the type character */
  819. I       mov     di, argP
  820. I       mov     ax, ss:[di]
  821. I       add     W0 (argP), 2
  823. I       push    SS
  824. I       pop     ES
  825. I       lea     di, tempStr [1]
  826. I       xor     ah, ah          /* terminate the temporary string. */
  827. I       mov     ss:[di], ax
  828. I       mov     cx, 1
  829. I       jmp     vpr_CopyLen
  831. /*
  832. The 's' conversion takes a string (char *) as argument and copies
  833. the string to the output buffer.
  834. */
  836. case (_st):                     /* string       */
  837. I       mov     formP, si       /* remember progress through format */
  838. I       mov     fc, dl          /* remember the type character */
  840. I       mov     di, argP
  841. I       test    W0 (flagSet), farPtrBit
  842. I       jnz     vpr_farString
  843. #ifdef __HUGE__
  844. I       jmp     vpr_abandonJmp  /* DS can't be assumed in HUGE model */
  845. #else
  846. I       mov     di, ss:[di]     /* [di] = (DS:char *) *(argP++) */
  847. I       add     W0 (argP), 2
  848. I       push    DS
  849. I       pop     ES
  850. I       or      di, di
  851. I       jmp     short vpr_countString
  852. #endif
  853. vpr_farString:
  854. I       les     di, ss:[di]     /* ES: [di] = (char far *) *(argP++) */
  855. I       add     W0 (argP), 4
  856. I       mov     ax, es
  857. I       or      ax, di
  859. vpr_countString:
  860. I       jnz     NotaNullPtr
  862. #ifdef I49_PRINTF
  863. I   push  seg printCtype
  864. #else
  865. I       push    DS
  866. #endif
  867. I       pop     ES
  868. I       lea     di, NullString
  870. NotaNullPtr:
  871. I       call    vpr_strlen              /* CX = strlen (ES: [di]) */
  872. I       cmp     cx, precision
  873. I       jna     vpr_CopyLenJmp
  874. I       mov     cx, precision           /* precision may truncate string. */
  876. vpr_CopyLenJmp:
  877. I       jmp     vpr_CopyLen
  880. /* All real-number conversions are done by __realcvt. */
  882. case (_fl):                     /* float        */
  883. I       mov     formP, si       /* remember progress through format */
  884. I       mov     fc, dl          /* remember the type character */
  886. I       mov     di, argP
  888. I       mov     cx, precision
  889. I       or      cx, cx          /* is precision defaulted ? */
  890. I       jnl     vpr_cvtReal
  891. I       mov     cx, 6
  893. vpr_cvtReal:
  894. #if LDATA
  895. I       push    SS
  896. #endif
  897. I       push    di              /* (valueP */
  898. I       push    cx              /*      , ndec */
  899. #if LDATA
  900. I       push    SS
  901. #endif
  902. I       lea     bx, tempStr [1]
  903. I       push    bx                      /*      , cP */
  904. I       push    dx                      /*      , formCh */
  905. I       mov     ax, altFormatBit
  906. I       and     ax, W0 (flagSet)
  907. I       push    ax                      /*      , altFormat) */
  909. /*
  910.         Determine the argument type double/long double.
  911.         Save the size of the argument type.
  912. */
  913. I       mov     ax, W0 (flagSet)
  915. #ifndef I49_PRINTF
  916. try_long :
  917. #endif
  918. I       test    ax, LongDoubleBit
  919. I       jz      its_plain_double
  920. I       mov     ax, F_10byteFloat
  921. I       add     W0 (argP), 10           /* argP += sizeof(long double) */
  922. I       jmp     short push_argtype
  924. its_plain_double :
  925. I       add     W0 (argP), 8            /* argP += sizeof(double) */
  926. I       mov     ax, F_8byteFloat
  928. push_argtype :
  929. I       push    ax
  931. I       call    __realcvt
  933. I       push    SS
  934. I       pop     ES
  935. I       lea     di, tempStr [1]         /* ES_ [di] = cP == 1+tempStr */
  937. vpr_testFillZeros:
  938. I       test    W0 (flagSet), fillZerosBit
  939. I       jz      vpr_NUMERIC
  940. I       mov     dx, width
  941. I       or      dx, dx
  942. I       jng     vpr_NUMERIC
  944. vpr_countActual:                        /* Get strlen of result string  */
  945. I       call    vpr_strlen              /* CX <- strlen (ES:[DI])       */
  946. I       cmp     BY0 (ES: [di]), '-'
  947. I       jne     vpr_noSignAdjust
  948. I       dec     cx                      /* Length too long because '-'  */
  949. vpr_noSignAdjust:
  950. I       sub     dx, cx                  /* DX <- leading 0 count(if any)*/
  951. I       jng     vpr_NUMERIC             /* leadZ defaulted to 0 before  */
  952. I       mov     leadZ, dx               /* leadZ <- (width or prec-len) */
  954. /*
  955. If arrived here, then tempStr contains the result of a numeric
  956. conversion.  It may be necessary the prefix the number with
  957. a mandatory sign or space.
  958. */
  960. vpr_NUMERIC:                            /* ES must be well defined !    */
  961. I       cmp     BY0 (ES: [di]), '-'     /* If sign there then adjust    */
  962. I       je      vpr_AdjustLeadZ
  963. I       mov     al, plusSign            /* Do we need a sign?           */
  964. I       or      al, al
  965. I       jz      vpr_COPY                /* No, not required             */
  966. I       dec     di                      /* Back up 1 in the string      */
  967. I       mov     ES: [di], al            /*    and insert the sign       */
  968. vpr_AdjustLeadZ:
  969. I       cmp     W0 (leadZ), 0           /* If leadZ > 0 then leadZ--    */
  970. I       jle     vpr_COPY
  971. I       mov     cx, precision
  972. I       or      cx, cx
  973. I       jge     vpr_COPY                /* Don't adjust if precision set*/
  974. I       dec     W0 (leadZ)
  976. /*
  977. If arrived here then ES: [di] = cP points to the converted string,
  978. which must now be padded, aligned, and copied to the output.
  979. */
  981. vpr_COPY:
  982. I       call    vpr_strlen              /* CX = strlen (ES: [di])       */
  984. vpr_CopyLen:                            /* comes from %c or %s section  */
  985. I       mov     si, di                  /* cP <- ES: [si]               */
  986. #ifndef I49_PRINTF
  987. I       mov     di, aP
  988. #endif
  989. I       mov     bx, width               /* BX <- width                  */
  991. I       mov     ax, notZeroBit + altFormatBit
  992. I       and     ax, W0 (flagSet)
  993. I       cmp     ax, notZeroBit + altFormatBit
  994. I       jne     goto_doLead
  995. I       mov     ah, fc                  /* AH <- original format char   */
  997. I       cmp     ah, 'o'                 /* Is it alternate octal form?  */
  998. I       jne     vpr_maybeAltHex         /* No, try the next one         */
  999. I       cmp     W0 (leadZ), 0           /* Yes, alternate mode w/octal  */
  1000. I       jg      goto_doLead             /*   requires at least          */
  1001. I       mov     W0 (leadZ), 1           /*     one leading zero.        */
  1003. goto_doLead:
  1004. I       jmp     vpr_doLead;
  1006. vpr_maybeAltHex:
  1007. I       cmp     ah, 'x'                 /* Is it alternate hex form?    */
  1008. I       je      vpr_isAltHex            /* Yes, send                    */
  1009. I       cmp     ah, 'X'                 /*    "0x" or "0X" prefix.      */
  1010. I       jne     vpr_doLead              /* No, insert leading 0's       */
  1012. vpr_isAltHex:
  1013. I       or      W0 (flagSet), alt0xBit  /* flagSet |= alt0xBit;         */
  1014. I       dec     bx                      /* width -= 2;                  */
  1015. I       dec     bx
  1016. I       sub     W0 (leadZ), 2           /* leadZ -= 2;                  */
  1017. I       jnl     vpr_doLead              /* Still leading 0's?           */
  1018. I       mov     W0 (leadZ), 0           /* No more leading 0's          */
  1020. vpr_doLead:
  1021. I       add     cx, leadZ               /* CX <- len + leadZ            */
  1023.                 /* Is result to be left justified? */
  1025. I       test    W0 (flagSet), leftJustBit
  1026. I       jnz     vpr_check0x
  1027. I       jmp     short vpr_nextJust      /* (! leftJust) == leftFill */
  1029. vpr_justLoop:
  1030. I       mov     al, ' '
  1031. I       call    vpr_PutToS
  1032. I       dec     bx
  1034. vpr_nextJust:
  1035. I       cmp     bx, cx
  1036. I       jg      vpr_justLoop
  1038. vpr_check0x:
  1039. I       test    W0 (flagSet), alt0xBit  /* Need alternate hex form?     */
  1040. I       jz     vpr_checkLeadZ           /* No,                          */
  1042. I       mov     al, '0'                 /* Yes, Send "0x" or "0X"       */
  1043. I       call    vpr_PutToS
  1044. I       mov     al, fc                  /* original 'fc' is 'x' or 'X'  */
  1045. I       call    vpr_PutToS
  1047. vpr_checkLeadZ:                         /* leading zero fill required ? */
  1048. I       mov     dx, leadZ
  1049. I       or      dx, dx
  1050. I       jng     vpr_actualCopy
  1052. I       sub     cx, dx                  /* len -= leadZ */
  1053. I       sub     bx, dx                  /* width -= leadZ */
  1055. I       mov     al, ES: [si]            /* any leading sign must be */
  1056. I       cmp     al, '-'                 /*   copied before the      */
  1057. I       je      vpr_leadSign            /*     leading zeros.       */
  1058. I       cmp     al, ' '
  1059. I       je      vpr_leadSign
  1060. I       cmp     al, '+'
  1061. I       jne     vpr_signedLead
  1063. vpr_leadSign:
  1064. I       lods    BY0 (ES: [si])          /* Get the 'sign'               */
  1065. I       call    vpr_PutToS              /* Send the 'sign'              */
  1066. I       dec     cx
  1067. I       dec     bx                      /* anticipates actualCopy     */
  1069. vpr_signedLead:
  1070. I       xchg    cx, dx                  /* leading zeros follow sign */
  1071. I       jcxz    vpr_leadDone
  1073. vpr_leadZero:
  1074. I       mov     al, '0'
  1075. I       call    vpr_PutToS
  1076. I       loop    vpr_leadZero
  1078. vpr_leadDone:
  1079. I       xchg    cx, dx
  1082. /* Now we copy the actual converted string from tempStr to output. */
  1084. vpr_actualCopy:
  1086. I       jcxz    vpr_copied      /* Degenerate case?     */
  1087. I       sub     bx, cx          /* No, width -= len;    */
  1089. vpr_copyLoop:                   /* this is the high-point of __vprinter ! */
  1090. I       lods    BY0 (ES: [si])          /* ES:SI -> tempStr     */
  1091. #ifdef I49_PRINTF
  1092. I   call   vpr_PutToS
  1093. #else
  1094. I       mov     BY0 (SS: [di]), al      /* SS:DI -> S[xxx]      */
  1095. I       inc     di
  1096. I       dec     BY0 (Scount)
  1097. I       jg      vpr_loopTest
  1098. I       call    vpr_CallPutter
  1099. vpr_loopTest:
  1100. #endif
  1101. I       loop    vpr_copyLoop
  1104. vpr_copied:
  1106. /* Is the field to be right-filled ? */
  1108. I       or      bx, bx          /* any remaining width ? */
  1109. I       jng     vpr_done
  1110. I       mov     cx, bx
  1112. vpr_rightLoop:
  1113. I       mov     al, ' '
  1114. I       call    vpr_PutToS
  1115. I       loop    vpr_rightLoop
  1118. /* If arrive here, the conversion has been done and copied to output. */
  1120. vpr_done:
  1121. I       jmp     vpr_NEXT
  1124. case (_ns) :                 /* number sent */
  1125. I       mov     formP, si    /* remember progress through format */
  1127. I       mov     di, argP
  1128. I       test    W0 (flagSet), farPtrBit
  1129. I       jnz     vpr_farCount
  1130. #ifdef __HUGE__
  1131. I       jmp     vpr_abandonJmp  /* DS can't be assumed in HUGE model */
  1132. #else
  1133. I       mov     di, ss:[di]  /* [di]=(DS:char *) *((int _ss *)argP++)*/
  1134. I       add     W0 (argP), 2
  1135. I       push    DS
  1136. I       pop     ES
  1137. I       jmp     short vpr_makeCount
  1138. #endif
  1139. vpr_farCount:
  1140. I       les     di, ss:[di]  /* ES:[di] = (char far *) *((long _ss *)argP++) */
  1141. I       add     W0 (argP), 4
  1143. vpr_makeCount:
  1144. #ifdef I49_PRINTF
  1145. I   mov     ax, totalSent
  1146. #else
  1147. I       mov     ax, Ssize
  1148. I       sub     al, Scount
  1149. I       add     ax, totalSent
  1150. #endif
  1151. I       mov     ES: [di], ax
  1152. I       test    W0(flagSet),isLongBit
  1153. I       jz      vpr_shortN
  1154. I       inc     di
  1155. I       inc     di
  1156. I       mov     word ptr ES: [di], 0
  1157. vpr_shortN:
  1158. I       jmp     vpr_NEXTap
  1161. case (_zz):     /*  characters, unexpected end of format string       */
  1162. case (_dc):     /* ordinary "don't care" chars in the wrong position    */
  1163. case (_pc):     /* '%' percent characters in the wrong position         */
  1164. ;               /* goto vpr_abandon     */
  1165. }               /* end switch */
  1167. /*
  1168. If the format goes badly wrong, then copy it literally to the output
  1169. and abandon the conversion.
  1170. */
  1172. vpr_abandon:
  1173. I       mov     si, abandonP
  1174. #if LDATA
  1175. I       mov     ES, W1 (formP)
  1176. #endif
  1177. #ifndef I49_PRINTF
  1178. I       mov     di, aP
  1179. #endif
  1180. I       mov     al, '%'
  1182. vpr_abandLoop:
  1183. I       call    vpr_PutToS
  1184. I       lods    BY0 (ES_ [si])
  1185. I       or      al, al
  1186. I       jnz     vpr_abandLoop
  1187. /* If arrived here then the function has finished (either correctly or not). */
  1188. vpr_respond:
  1189. #ifndef I49_PRINTF
  1190. I       cmp     BY0 (Scount), Ssize     /* anything waiting to be written ? */
  1191. I       jnl     vpr_end
  1192. I       call    vpr_CallPutter
  1193. vpr_end:
  1194. #endif
  1195. I       pop     ES
  1197.     if( eof_error )  return( EOF );
  1198.     else             return( totalSent );
  1199. }