Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Fig-<strong>Forth</strong> <strong>8086</strong>/88 Version 1.0 Notes<br />
P! ( n port# --- 1<br />
Stores (outputs) a 16-bit number "n" at the 1/0 port.<br />
PC @ ( port# --- C 1<br />
Fetches (inputs) an 8-bit value "c" from tne 1/0 port.<br />
PC! ( c port# --- .I<br />
Stores (outputs) an 8-bit number "c" at the 1/0 port.<br />
DRIVE ( --- addr )<br />
A variable that contains the current disk drive number.<br />
SEC ( --- addr )<br />
A variable that contains the current sector number.<br />
TRACK ( --- adds )<br />
A variable that contains the current track number.<br />
Page 3<br />
A constant that returns the number of disk buffers in the currznt<br />
For tn system.<br />
DENSITY<br />
( --- addr )<br />
A variable that contains the current disk density. Zero = single<br />
density (26 sectors/track). Non-zero = double density (52<br />
sectors/track). Sector size is 128 bytes in both densities.<br />
In CP/M the "BIOS" program must be modified<br />
to handle double density formats.<br />
DISK-ERROR ( --- addr )<br />
A variable that contains disk error status (non-zero indicates a<br />
disk error). The disk status is saved after each sector<br />
read/write but error trappi~g has not been im~lemented (the error<br />
status could be tested in "R/WH).
Change language