Hardware Reference
In-Depth Information
Figure 1.20
Output of the BIOS data program
print division$
Def Seg=&HF000
Print "Bios Date:
" Peek$(&H0FFF5,8)
'
' Retrieve and print the keyboard buffer
'
Def Seg = &H40
c$=""
fori%=0to31step 2
cb? = peek(&H1E + i%)
c$ = c$ + chr$(cb?)
next i%
print division$
print "Keyboard buffer
:
"; c$
print division$
'
' Get and display COM port addresses
'
num% = val("&B"+left$(right$(bin$(high%),4),3))
print "Serial ports
:
"num%
print division$
for temp=1 to 4
