; FPU register test, 2023 by C. Masloch
; Public Domain

	cpu 8086
	org 256
start:
	mov dx, filename
	mov cx, 0
	mov ah, 3Ch
	int 21h
	jc error
	xchg bx, ax
	fsave [buffer]
	mov cx, buffer_size
	mov dx, buffer
	mov ah, 40h
	int 21h
	mov ah, 3Eh
	int 21h
	mov ax, 4C00h
	int 21h

error:
	mov ah, 09h
	mov dx, errormessage
	int 21h
	mov ax, 4CFFh
	int 21h

filename:	db "testfpur.dat",0
errormessage:	db "Error!",13,10,36

	align 16
buffer:
	times 512 db 0CCh
buffer_size equ $ - buffer