home *** CD-ROM | disk | FTP | other *** search
/ Computer Tool Software / soft.iso / UCDOS70 / 5 / SRC.ZIP / TX / PRG / TESTTX.ASM < prev    next >
Encoding:
Assembly Source File  |  1996-09-25  |  858 b   |  44 lines
  1. ;-----------------------------------------------------------------------------
  2. ;        ╘┌ Foxbase ╗≥ Foxpro ╓╨╝∞▓Θ╠╪╩Γ╧╘╩╛─ú┐Θ╘╦╨╨╫┤╠¼│╠╨≥
  3. ;▒α╥δ╣²│╠:
  4. ;    TASM    TESTTX
  5. ;    TLINK    /t/x        TESTTX
  6. ;    REN    TESTTX.COM    TESTTX.BIN
  7. ;╩╣╙├╖╜╖¿:
  8. ;    LOAD    "TESTTX"
  9. ;    _TX    =        '0'
  10. ;    CALL    "TESTTX"    WITH        _TX
  11. ;    IF    LEFT(_TX,0)    =        '1'        &&╠╪╧╘╘╦╨╨┴╦
  12. ;        .
  13. ;        .
  14. ;        .
  15. ;    ELSE                            &&╠╪╧╘├╗╙╨╘╦╨╨
  16. ;        .
  17. ;        .
  18. ;        .
  19. ;    ENDIF
  20. ;-----------------------------------------------------------------------------
  21. code        segment
  22.         org    100h
  23.         assume    cs:code,ds:code,es:code,ss:code
  24. start:
  25.         mov    si,bx
  26.         mov    byte ptr ds:[si],'0'
  27.  
  28.         mov    ax,0db00h
  29.         int    2fh
  30.         cmp    al,0ffh
  31.         jnz    Exit            ;├╗╙╨╘╦╨╨║║╫╓╧╡═│
  32.         cmp    bx,5450h
  33.         jnz    Exit            ;╖╟ UCDOS
  34.  
  35.         mov    ax,11h
  36.         int    79h
  37.         jnz    Exit            ;├╗╙╨╘╦╨╨╠╪╩Γ╧╘╩╛
  38.  
  39.         mov    byte ptr ds:[si],'1'    ;╘╦╨╨┴╦╠╪╩Γ╧╘╩╛
  40. Exit:
  41.         retf
  42. code        ends
  43.         end    start
  44.