version 1.5, 2000/07/31 19:56:08
|
version 1.9, 2001/08/25 21:12:24
|
Line 18
|
Line 18
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
\ |
\ |
\ The syntax is reverse polish. Source and destination are |
\ The syntax is reverse polish. Source and destination are |
\ reversed. Size prefixes are used instead of AX/EAX. Example: |
\ reversed. Size prefixes are used instead of AX/EAX. Example: |
Line 54 base @ get-current ALSO ASSEMBLER DEFINI
|
Line 54 base @ get-current ALSO ASSEMBLER DEFINI
|
|
|
Variable >codes |
Variable >codes |
: (+rel ; |
: (+rel ; |
Create nrc ] c, here allot c! (+rel [ |
Create nrc ' c, A, ' here A, ' allot A, ' c! A, ' (+rel A, |
|
|
: nonrelocate nrc >codes ! ; nonrelocate |
: nonrelocate nrc >codes ! ; nonrelocate |
|
|
Line 300 $27 bc: DAA $2F bc: DAS $37 bc:
|
Line 300 $27 bc: DAA $2F bc: DAS $37 bc:
|
: aa: Create c, |
: aa: Create c, |
DOES> ( -- ) c@ |
DOES> ( -- ) c@ |
imm# @ 0= IF &10 imm ! THEN 1 imm# ! finish ; |
imm# @ 0= IF &10 imm ! THEN 1 imm# ! finish ; |
$D4 aa: AAM $D5 aa: AAD $D7 bc: XLAT |
$D4 aa: AAM $D5 aa: AAD $D6 bc: SALC $D7 bc: XLAT |
|
|
$60 bc: PUSHA $61 bc: POPA |
$60 bc: PUSHA $61 bc: POPA |
$90 bc: NOP |
$90 bc: NOP |
Line 594 $BB 3Dnow: PSWABD : SFENCE
|
Line 594 $BB 3Dnow: PSWABD : SFENCE
|
: makeflag [A] ~cond AL swap setIF 1 # AX and AX dec [F] ; |
: makeflag [A] ~cond AL swap setIF 1 # AX and AX dec [F] ; |
|
|
|
|
previous set-current decimal base ! |
previous previous set-current decimal base ! |
|
|