home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-2.ZIP / GFUNC / MACHINE.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-05-30  |  760 b   |  42 lines
  1.         page    58,132
  2. ;
  3. ; machine.asm
  4. ; contains: machine()
  5. ;
  6. ;
  7.         include    model.h
  8.         include    prologue.h
  9.         name    machine
  10.         pseg    machine
  11.  
  12. ;==>--    unsigned machine(void)
  13. ;
  14. ;;    DESCRIPTION:
  15. ;      Read and return the machine type byte at FFFF:E as documented
  16. ;      in the IBM Personal Computer AT Technical Reference Manual.
  17. ;
  18. ;;    RETURNS:
  19. ;
  20. ;      0x00ff  =    IBM Personal Computer
  21. ;      0x00fe  =    IBM Personal Computer XT
  22. ;      0x00fd  =    IBM PC/jr
  23. ;      0x00fc  =    IBM Personal Computer AT
  24. ;
  25. ;;    AUTHOR:
  26. ;     ""
  27. ;      Copyright (C)1987-1990 Greenleaf Software Inc. All Rights Reserved.
  28. ;;;
  29.     cproc    machine
  30.     push    ds
  31.     push    bx
  32.     mov    bx,0ffffh
  33.     mov    ds,bx
  34.     mov    bx,0eh        ;ds:bx = ffff:e
  35.     mov    al,[bx]        ;get value to al
  36.     pop    bx
  37.     pop    ds
  38.     xor    ah,ah
  39.     cproce
  40.     endps
  41.     end
  42.