Category : C Source Code
Archive   : PCC-FNCT.ZIP
Filename : EQUIP.A

; Copyright (c) 1985 Martin Nohr and Tom Serface
; All Rights Reserved
;
;Revision Date Description
;-------- --------- --------------------------------------------

; Interrupt and codes for the keyboard interface.
DOSINT equ 21h ;call to ibm dos function

cseg

;Equip Get Equipment Status
;
; Call as stuff = Equip();
; Where: stuff is and int.
;unsigned Equip();
;unsighned stuff;

public Equip_
Equip_:
push bp
int 11h ;Get Equipment Status
pop bp
ret

;Hdisk How many hard disks on the system
; Returns number of fixed disks
;
; Call as disks = Hdisk()
;int Hdisk();
;int disks;

public Hdisk_
Hdisk_:
push bp
mov bx,40H
mov es,bx
mov al,es:[75H] ;number of Fixed Disks
xor ah,ah
pop bp
ret