PureBoard

Code: Alles auswählen

;biosdump $F0000-$FFFFF To c:\biosimage.tmp 
;tested on xp/sp2 

Procedure.l Ansi2Uni(ansi.s) 
SHStrDup_(@ansi,@memziel) 
ProcedureReturn memziel 
EndProcedure 

#OBJ_CASE_INSENSITIVE = $40 

#SECTION_MAP_READ = $4 

#PAGE_READONLY = 2 

#VIEW_SHARE = 1 

Structure UNICODE_lSTRING 
  usLength.w 
  usMaximumLength.w 
  usBuffer.l 
EndStructure 

Structure OBJECT_ATTRIBUTES 
    Length.l 
    RootDirectory.l 
    ObjectName.l 
    Attributes.l 
    SecurityDescriptor.l 
    SecurityQualityOfService.l 
EndStructure 

Structure PHYSICAL_ADDRESS 
    lowpart.l 
    highpart.l 
EndStructure 

status.l 
ia.OBJECT_ATTRIBUTES 
hdlPhysMem.l 
    
mydevice.s="\device\physicalmemory" 

usDevName.UNICODE_lSTRING 
usDevName\usBuffer = Ansi2Uni(mydevice)  
usDevName\usMaximumLength = (Len(mydevice) * 2) + 2 
usDevName\usLength = Len(mydevice) * 2 

ia\Length = SizeOf(OBJECT_ATTRIBUTES) 
ia\ObjectName = @usDevName 
ia\Attributes  = #OBJ_CASE_INSENSITIVE 
ia\SecurityDescriptor = 0 
ia\RootDirectory = 0 
ia\SecurityQualityOfService = 0 
  
status = NtOpenSection_(@hdlPhysMem, #SECTION_MAP_READ, @ia) 
    
If status<>0 
Debug "error" 
End 
EndIf 
    
memVirtualAddress.l 
memLen.l 
    
viewBase.PHYSICAL_ADDRESS 
viewBase\highpart = 0 
viewBase\lowpart = $F0000 
memLen = $FFFF 
    
status = NtMapViewOfSection_(hdlPhysMem, -1, @memVirtualAddress,0, memLen, @viewbase, @memLen, #VIEW_SHARE, 0, #PAGE_READONLY) 
    
If status<>0 
Debug "error" 
End 
EndIf 
    
OpenFile(1,"c:\biosimage.tmp") 
For i=0 To memLen-1 
WriteByte(PeekB(memVirtualAddress + i)) 
Next 
CloseFile(1) 

status = NtUnmapViewOfSection_(-1, memVirtualAddress) 
status = CloseHandle_(hdlPhysMem) 
End