home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / snip0693.zip / LANTAST.ASM < prev    next >
Assembly Source File  |  1993-03-13  |  1KB  |  44 lines
  1. ;FUNCTION LANTASTIC()
  2. ;--------------------------------------------------:
  3. ; CLIPPER OBJECT file to return the boolean status :
  4. ; of Lantastic operating. C. Cremer, 19-Feb-1993   :
  5. ;--------------------------------------------------:
  6. public       LANTASTIC           ; For linker to see it
  7. extrn        __retl:far          ; reference to Clipper extend system
  8. DGROUP       GROUP   DATASG
  9. DATASG       SEGMENT PUBLIC  '_DATA'
  10. ; no data
  11. DATASG       ENDS
  12.  
  13. LANTAST_TEXT SEGMENT 'CODE'
  14.              ASSUME  CS:LANTAST_TEXT,DS:DGROUP
  15. LANTASTIC    PROC    FAR
  16.              push    BP          ; preserve return address,
  17.              mov     BP,SP       ; base ptr, segment, & index regs
  18.              push    DS
  19.              push    ES
  20.              push    SI
  21.              push    DI
  22.  
  23.              xor     AX,AX
  24.              int     2Ah
  25.              or      AH,AH       ; set flags for AH
  26.              jz      no_lan
  27.              mov     AX,1        ; ax=True
  28.              jmp short popregs
  29. no_lan:      xor     AX,AX       ; ax=False
  30.  
  31. popregs:     pop     DI
  32.              pop     SI
  33.              pop     ES          ; restore registers
  34.              pop     DS
  35.              pop     BP
  36. ;  Return the status
  37.              push    AX
  38.              call    __retl      ; pass logical ret to Clipper
  39.              add     SP,2        ; fix up stack
  40.              ret                 ; far return
  41. LANTASTIC    ENDP
  42. LANTAST_TEXT ENDS
  43.              END
  44.