home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / praxis / m.asm < prev    next >
Assembly Source File  |  1990-07-24  |  902b  |  33 lines
  1. ;* ------------------------------------------------------- *
  2. ;*                        M.ASM                            *
  3. ;*           Test auf mathemetischen Coprozessor           *
  4. ;*              (c) 1990 W.Rinke & TOOLBOX                 *
  5. ;* ------------------------------------------------------- *
  6. CODE    SEGMENT BYTE PUBLIC 'CODE'
  7. ASSUME  CS:CODE, DS:CODE, ES:NOTHING, SS:NOTHING
  8.  
  9. P00100  PROC
  10.         ORG     0100h
  11.  
  12. H00100: JMP     Start
  13.  
  14. Status  DW      "??"
  15.  
  16. Start:  FINIT
  17.         FSTSW    Status
  18.         MOV      AX,Status
  19.         CMP      Status,0000h
  20.         JE       ok
  21.         MOV      AL,0
  22.         JMP      Ende
  23. ok:     MOV      AL,1
  24. Ende:   MOV      AH,4Ch
  25.         INT      21h
  26.  
  27. P00100  ENDP
  28.  
  29. CODE    ENDS
  30.         END     H00100
  31. ;* ------------------------------------------------------- *
  32. ;*                   Ende von M.ASM                        *
  33.