misc/cpv.s- Source code ソースコード - XEiJ - STUDIO KAMADA
misc/cpv.s

    ;experiment to trigger error $000D on X68030+6888x
    	.include	doscall.mac
    	.include	iocscall.mac
    	.cpu	68030
    	lea.l	$0CBD.w,a1
    	IOCS	_B_BPEEK
    	tst.b	d0
    	beq	30f		;no fpcp
    	lea.l	40f(pc),a1
    	IOCS	_HSYNCST
    	tst.l	d0
    	bne	30f		;HSYNC in use
    	move.w	#1000-1,d0
    10:	fmovecr.x	#50,fp0	;sin(1)
    	fsin.x	fp0,fp0
    	dbra	d0,10b
    20:	suba.l	a1,a1
    	IOCS	_HSYNCST
    	fnop			;protocol violation
    30:	DOS	_EXIT
    40:	cmpi.w	#$9000,6(sp)	;mid-instruction
    	bhs	50f
    	rte
    50:	andi.w	#$F8FF,sr
    	bra	20b

STUDIO KAMADA
Copyright © 1999-2026 Makoto Kamada