;------------------------------------------------------------------------------
; CLI-Commando: MOUSE <on/off>
; (c) 1994 by Markt & Technik. Coded by Koppensteiner Peter.
; 1.3/2.x/3.x. Assembled mit ASM_One v1.0 / 168 Bytes
;------------------------------------------------------------------------------
; Schaltet den MousePointer ein/aus
;------------------------------------------------------------------------------


beg:	moveq	#$20,d0			;Sprite-DMA off
	cmp.w	#'of',(a0)		;Befehl -> aus ?
	beq.s	ok			;ja, setze DMA
	add.w	#$8000,d0		;Sprite-DMA on
	cmp.w	#'on',(a0)		;Befehl -> ein ?
	beq.s	ok			;ja, setze DMA
	move.l	264(a2),a4		;Output (DOS)
	moveq	#$c,d0			;Int.Dos
	jsr	(a5)			;Find Outputhandle
	lea	tex(pc),a0		;Adresse Text
	move.l	a0,d2			;-> d2
	moveq	#[end-tex],d3		;Länge Text
	move.l	-24(a2),a4		;Write (DOS)
	jmp	(a5)			;schreibe Text & zurück

ok:	move.w	d0,$dff096		;allow sprite-dma
	moveq	#0,d0
	rts

tex:	dc.b	'MOUSE <on> <off> v1.0 by Markt & Technik',$a
	dc.b	'Coded by Peter Koppensteiner in 1994 !!!',$a
end: