home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLSYS.ZIP / TBOL.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  937 b   |  62 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *     Turbo Pascal Run-time Library                   *
  5. ; *    Textfile Boolean I/O                *
  6. ; *                            *
  7. ; *     Copyright (c) 1988,92 Borland International     *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    TBOL
  12.  
  13.     INCLUDE    SE.ASM
  14.  
  15. CONST    SEGMENT    WORD PUBLIC
  16.  
  17. ; TRUE and FALSE strings
  18.  
  19. TrueStr        DB    4,'TRUE'
  20. FalseStr    DB    5,'FALSE'
  21.  
  22. CONST    ENDS
  23.  
  24. CODE    SEGMENT    BYTE PUBLIC
  25.  
  26.     ASSUME    CS:CODE,DS:CONST
  27.  
  28. ; Externals
  29.  
  30.     EXTRN    WriteStr:NEAR
  31.  
  32. ; Publics
  33.  
  34.     PUBLIC    WriteBool
  35.  
  36. ; Write standard procedure (Boolean)
  37.  
  38. WriteBool:
  39.  
  40.     ARG    FileP,DWORD,1
  41.     ARG    Value,BYTE,2
  42.     ARG    Width,WORD,1
  43.  
  44.     ENTRY    WINFAR
  45.     PUSH    FileP.seg
  46.     PUSH    FileP.ofs
  47.     MOV    AX,OFFSET DS:TrueStr
  48.     CMP    Value,0
  49.     JNE    @@1
  50.     MOV    AX,OFFSET DS:FalseStr
  51. @@1:    PUSH    DS
  52.     PUSH    AX
  53.     PUSH    Width
  54.     PUSH    CS
  55.     CALL    WriteStr
  56.     ADD    SP,4
  57.     EXIT    4
  58.  
  59. CODE    ENDS
  60.  
  61.     END
  62.