home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / praxis / test_co.asm < prev    next >
Encoding:
Assembly Source File  |  1990-09-18  |  1.6 KB  |  49 lines
  1. ;              ---------------
  2. ;--------------- TEST_CO.ASM -------------------------------
  3. ;--            ---------------                            --
  4. ;--      Autor: Ulrich Schmitz & toolbox 1990             --
  5. ;--  Assembler: Microsoft Assembler ab Version 5.1        --
  6. ;--     AUFRUF: byte coprozessor(void);                   --
  7. ;--    EINGABE: keine.                                    --
  8. ;--   RÜCKGABE: 0 --> kein Coprozessor vorhanden.         --
  9. ;--             1 --> Coprozessor installiert.            --
  10. ;--   Funktion: Prüft über den BIOS-Interrupt 11h sowie   --
  11. ;--             direkt, ob ein Coprozessor vorhanden ist. -- 
  12. ;-----------------------------------------------------------
  13. ;
  14. PUBLIC test_co, Start, No_Co, Co, next_test
  15. .MODEL SMALL, C
  16. .STACK
  17. .CODE
  18. ; 
  19. test_co PROC 
  20.         JMP Start
  21. Status  DW  '??'
  22.  
  23. ;-------- Test über Interrupt -----------------------------
  24. Start:
  25.         int 11h
  26.         mov Status, ax        ;System-Statuswort in ax
  27.         test ax, 2            ;Bit 1 gesetzt?
  28.         JZ next_test          ;nächster Test auf Coprozessor
  29.         mov al, 1             ;Coprozessor erkannt
  30.         jmp Ende
  31.  
  32. ;-------- direkter Test auf Coprozessor --------------------
  33. next_test:
  34.         FINIT
  35.         FSTSW Status 
  36.         MOV ax, Status
  37.         CMP Status, 0000h 
  38.         JNE No_Co             ;kein Coprozessor installiert
  39.    Co:
  40.         MOV al, 1             ;Coprozessor installiert
  41.         JMP Ende
  42. No_Co:
  43.         MOV al, 0 
  44. Ende:                
  45.         RET
  46. test_co ENDP
  47. END
  48. ;---------------  Ende TEST_CO.ASM -------------------------
  49.