1 line
27 KiB
Plaintext
1 line
27 KiB
Plaintext
|
\ 8086 assembler - information An 8086 Forth assembler for DX-FORTH Based on F83 assembler \ load block forth definitions hex sys @ system warning @ warning off marker -ASM cr .( loading 8086 Assembler ) 2 #screens 1- thru forth definitions decimal warning ! sys ! \ vocabularies vocabulary ASSEMBLER assembler definitions vocabulary HIDDEN hidden definitions chain assembler 2variable avoc : big? ( n -- flag ) 80 -80 within ; : rel ( a1 a2 -- offs ) 1+ - dup big? abort" branch out of range" ; \ labels #20 constant ml \ max labels #25 constant mf \ max forward references \ arrays :noname ( n -- adr ) count rot * + ; ( xt) dup build lt 1 cells dup c, ml * allot \ labels build ft 2 cells dup c, mf * allot \ fwd refs \ reset labels : !lb ( -- ) 0 lt [ ml cells ] literal erase 0 ft [ mf cells 2* ] literal erase ; !lb
|