1 line
10 KiB
Plaintext
1 line
10 KiB
Plaintext
|
\ 8087 support - information 8087 extensions for DX-FORTH assembler Based on Pollack 8087 assembler \ 8087 support - load block [undefined] ASSEMBLER [if] 1 fload ASM [then] forth definitions hex sys @ system warning @ warning off cr .( loading 8087 Assembler ) 2 #screens 1- thru forth definitions decimal warning ! sys ! \ 8087 support assembler hidden definitions forth 0 value fm \ 0=real32 1=int64 2=int32 3=bcd \ 4=real64 5=tmp80 6=int16 assembler definitions hidden : WORD 6 to fm ; : DWORD 0 to fm ; : QWORD 4 to fm ; : TBYTE 5 to fm ; \ 8087 support A00 constant ST aka ST ST(0) A01 constant ST(1) A02 constant ST(2) A03 constant ST(3) A04 constant ST(4) A05 constant ST(5) A06 constant ST(6) A07 constant ST(7) assembler hidden definitions forth : fst? ( r -- r f ) dup ST and ST = ; : st? ( r -- r f ) dup ST = ;
|