home *** CD-ROM | disk | FTP | other *** search
/ Golden Seven Gentlemen / SOFTWARE.iso / UCDOS70 / 5 / SRC.ZIP / TX / BAS / TXBASIC.ASM < prev    next >
Encoding:
Assembly Source File  |  1996-09-25  |  1.1 KB  |  42 lines
  1. ;-----------------------------------------------------------------------------
  2. ;               ╘┌ Quick BASIC╓╨╝∞▓Θ╩╟╖±╘╦╨╨┴╦UCDOS╡─╠╪╩Γ╧╘╩╛│╠╨≥
  3. ;▒α╥δ╣²│╠:
  4. ;       TASM    TXBASIC
  5. ;       TLINK   /t/x            TXBASIC
  6. ;       REN     TESTTX.COM      TXBASIC.BIN
  7. ;╩╣╙├╖╜╖¿:
  8. ;       ╜½TXBASIC.BIN╡──┌╚▌╢¿╥σ╬¬BASIC╡─╩²╛▌,╘┌BASIC╓╨╫░╚δ╩²╛▌,▓ó╓├╖╡╗╪╓╡
  9. ;       ╡─╡╪╓╖. ╡≈╙├╒Γ╕÷│╠╨≥, ╖╡╗╪╓╡╬¬0╩▒▓╗╓º│╓, ╬¬1╩▒╓º│╓.
  10. ;       ╟δ▓╬╝√BASIC╡─╠╪╧╘╩╛└²│╠╨≥TXDEMO1.BAS
  11. ;-----------------------------------------------------------------------------
  12. code        segment
  13.         org    100h
  14.         assume    cs:code,ds:code,es:code,ss:code
  15. start:
  16.                 push    ax
  17.                 push    bx
  18.                 push    si
  19.                 mov     si,0
  20.                 mov     word ptr cs:[si],0
  21.  
  22.         mov    ax,0db00h
  23.         int    2fh
  24.         cmp    al,0ffh
  25.         jnz    Exit            ;├╗╙╨╘╦╨╨║║╫╓╧╡═│
  26.         cmp    bx,5450h
  27.         jnz    Exit            ;╖╟ UCDOS
  28.  
  29.         mov    ax,11h
  30.         int    79h
  31.         jnz    Exit            ;├╗╙╨╘╦╨╨╠╪╩Γ╧╘╩╛
  32.  
  33.                 mov     word ptr cs:[si],1      ;╘╦╨╨┴╦╠╪╩Γ╧╘╩╛
  34. Exit:
  35.                 pop     si
  36.                 pop     bx
  37.                 pop     ax
  38.                 retf
  39. code        ends
  40.         end    start
  41.  
  42.