home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG031P.ASM < prev    next >
Assembly Source File  |  1988-04-17  |  905b  |  29 lines
  1.  
  2. ;************************************************************************
  3. ; Determine primary adapter from BIOS variable in segment        *
  4. ; zero and return value in AX                        *
  5. ; Exit: AX - Primary adapter type                    *
  6. ;    1 => EGA is primary                        *
  7. ;    2 => CGA is primary                        *
  8. ;    3 => MDA or Hercules is primary                 *
  9. ;************************************************************************
  10.  
  11.     PUBLIC    Get_Primary
  12.  
  13. Get_Primary    PROC FAR
  14.     PUSH    ES            ;Preserve ES
  15.     XOR    AX,AX            ;Move segment zero into ES
  16.     MOV    ES,AX
  17.     MOV    BL,ES:[BIOS_Equipment]    ;Fetch info byte
  18.     MOV    AX,1            ;Assume EGA is primary
  19.     TEST    BL,08H            ;Is EGA primary?
  20.     JZ    Primary_Found        ;...Yes, we are done
  21.     MOV    AX,2            ;...No, assume CGA is primary
  22.     TEST    BL,02H            ;Is mono attached to EGA?
  23.     JNZ    Primary_Found        ;...Yes, we are done
  24.     MOV    AX,3            ;...No, must set AX to MDA
  25. Primary_Found:
  26.     POP    ES            ;Restore ES
  27.     RET
  28. Get_Primary    ENDP
  29.