adapted fakfp.s

This commit is contained in:
ceriel 1987-10-14 13:22:57 +00:00
parent 8d35578ad2
commit 772ead2f9e

View file

@ -1,45 +1,39 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define .adf4, .adf8, .sbf4, .sbf8, .mlf4, .mlf8, .dvf4, .dvf8
.define .ngf4, .ngf8, .fif4, .fif8, .fef4, .fef8
.define .cif4, .cif8, .cuf4, .cuf8, .cfi, .cfu, .cff4, .cff8
.define .cmf4, .cmf8
.sect .text
.define .mlf,.dvf,.ngf,.adf,.sbf,.cmf,.zrf,.fif,.fef
.define .mlf8,.dvf8,.ngf8,.adf8,.sbf8,.cmf8,.zrf8,.fif8,.fef8
.define .mlf4,.dvf4,.ngf4,.adf4,.sbf4,.cmf4,.zrf4,.fif4,.fef4
.define .cif,.cfi,.cuf,.cfu,.cff
.sect .rom
.sect .data
.sect .bss
.mlf:
.dvf:
.ngf:
.adf:
.sbf:
.cmf:
.zrf:
.fif:
.fef:
.mlf4:
.dvf4:
.ngf4:
! $Header$
.sect .text
.adf4:
.sbf4:
.cmf4:
.zrf4:
.fif4:
.fef4:
.mlf8:
.dvf8:
.ngf8:
.adf8:
.sbf4:
.sbf8:
.cmf8:
.zrf8:
.mlf4:
.mlf8:
.dvf4:
.dvf8:
.ngf4:
.ngf8:
.fif4:
.fif8:
.fef4:
.fef8:
.cif:
.cif4:
.cif8:
.cuf4:
.cuf8:
.cfi:
.cuf:
.cfu:
.cff:
pop bx ! return address
.extern EILLINS
.extern .fat
mov ax,EILLINS
push ax
jmp .fat
.cff4:
.cff8:
.cmf4:
.cmf8:
mov ax,18 ! illegal instruction EILLINS
call .trp
ret