home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
cbin
/
inter.prg
< prev
next >
Wrap
Text File
|
1987-07-06
|
618b
|
30 lines
* inter.prg
* prg front-end to inter.bin
* AS 7/4/87
* e.g., do inter with 33,8*256,0,0,0
proc inter
param intno,ax,bx,cx,dx
private cmd
* call the BIN routine
cmd = ltrim(str(intno)+str(ax)+str(bx)+str(cx)+str(dx))+space(10)
call inter with cmd
* parse return string into registers
ax=int(val(substr(cmd,1,5)))
bx=int(val(substr(cmd,7,5)))
cx=int(val(substr(cmd,13,5)))
dx=int(val(substr(cmd,19,5)))
* get hiword and loword of registers
ah=int(ax/256)
al=int(mod(ax,256))
bh=int(bx/256)
bl=int(mod(bx,256))
ch=int(cx/256)
cl=int(mod(cx,256))
dh=int(dx/256)
dl=int(mod(dx,256))
return