|
导读PROCEDURE ParkDisk; VAR Regs: Registers; BEGIN Regs.AL := 00; Intr(13,Regs); Assert... PROCEDURE ParkDisk; VAR Regs: Registers; BEGIN Regs.AL := $00; Intr($13,Regs); Assert((Regs.Flags AND FCarry) = 0, 'Error getting disk parameters - AL returns '+IntToStr (Regs.AL,0)); Regs.AH := $0C; Regs.DL := $80; Intr($13,Regs); Assert((Regs.Flags AND FCarry) = 0, 'Error parking disk - AL returns '+IntToStr(Regs.AL,0)); END; |
温馨提示:喜欢本站的话,请收藏一下本站!