;------------T-------T-------T-------T-------T-------T-------T-------T-------T
; A fenti sor arra jó, hogy saját tabulátorpozíciókat határozzunk meg vele az
; AsmOne-ban. Ahol a nagy T betűk vannak, ott lesznek a tabulátor pozíciók.

_LVOLoadView	EQU	-222
_LVOWaitTOF	EQU	-270
_LVOOldOpenLibrary	EQU	-408
_LVOCloseLibrary	EQU	-414
_LVORethinkDisplay	EQU	-390


	section	code,code

s:
	move.l	4.w,a6
	lea	gfxname,a1
	jsr	_LVOOldOpenLibrary(a6)
	move.l	d0,a6
	sub.l	a1,a1
	jsr	_LVOLoadView(a6)
	jsr	_LVOWaitTOF(a6)
	jsr	_LVOWaitTOF(a6)
	move.l	a6,a1
	move.l	4.w,a6
	jsr	_LVOCloseLibrary(a6)


	lea	$dff000,a6		; bazis
	move.w	$2(a6),-(a7)
	move.w	$1c(a6),-(a7)
	move.w	#$7fff,$9a(a6)
	move.w	#$7fff,$96(a6)
	move.l	#copperlist,$80(a6)
	move.w	#$8280,$96(a6)		; DMACON

;----------------------------

pang:	btst	#6,$bfe001	; leftclick->zar
	bne.b	pang		; ha nem, vissza

;----------------------------

	lea	$dff000,a6		; bazis
	move.w	#$7fff,$9a(a6)
	move.w	#$7fff,$96(a6)
	or.l	#$80008000,(a7)
	move.w	(a7)+,$9a(a6)
	move.w	(a7)+,$96(a6)

	move.l	4.w,a5		; execbase
	move.l	$9c(a5),a5	; search for
	move.l	38(a5),$80(a6)	; oldcopper, and reset.

	move.l	4.w,a6
	lea	intname,a1
	jsr	_LVOOldOpenLibrary(a6)
	move.l	d0,a6
	jsr	_LVORethinkDisplay(a6)
	move.l	a6,a1
	move.l	4.w,a6
	jsr	_LVOCloseLibrary(a6)

	moveq	#0,d0
	rts

gfxname:	dc.b	'graphics.library',0
intname:	dc.b	'intuition.library',0
	even

;----------------------------

	section	copper,data_c

copperlist:
	dc.w $3007,$fffe
	dc.w $0180,$0200
	dc.w $3107,$fffe
	dc.w $0180,$0400
	dc.w $3207,$fffe
	dc.w $0180,$0600
	dc.w $3307,$fffe
	dc.w $0180,$0800
	dc.w $3407,$fffe
	dc.w $0180,$0a00
	dc.w $3507,$fffe
	dc.w $0180,$0c00
	dc.w $3607,$fffe
	dc.w $0180,$0e00
	dc.w $3707,$fffe
	dc.w $0180,$0c00
	dc.w $3807,$fffe
	dc.w $0180,$0a00
	dc.w $3907,$fffe
	dc.w $0180,$0800
	dc.w $3a07,$fffe
	dc.w $0180,$0600
	dc.w $3b07,$fffe
	dc.w $0180,$0400
	dc.w $3c07,$fffe
	dc.w $0180,$0200
	dc.w $3d07,$fffe
	dc.w $0180,$0000
	dc.w $3e07,$fffe

	dc.w $4007,$fffe
	dc.w $0180,$0222
	dc.w $4107,$fffe
	dc.w $0180,$0444
	dc.w $4207,$fffe
	dc.w $0180,$0666
	dc.w $4307,$fffe
	dc.w $0180,$0888
	dc.w $4407,$fffe
	dc.w $0180,$0aaa
	dc.w $4507,$fffe
	dc.w $0180,$0ccc
	dc.w $4607,$fffe
	dc.w $0180,$0eee
	dc.w $4707,$fffe
	dc.w $0180,$0ccc
	dc.w $4807,$fffe
	dc.w $0180,$0aaa
	dc.w $4907,$fffe
	dc.w $0180,$0888
	dc.w $4a07,$fffe
	dc.w $0180,$0666
	dc.w $4b07,$fffe
	dc.w $0180,$0444
	dc.w $4c07,$fffe
	dc.w $0180,$0222
	dc.w $4d07,$fffe
	dc.w $0180,$0000
	dc.w $4e07,$fffe

	dc.w $5007,$fffe
	dc.w $0180,$0020
	dc.w $5107,$fffe
	dc.w $0180,$0040
	dc.w $5207,$fffe
	dc.w $0180,$0060
	dc.w $5307,$fffe
	dc.w $0180,$0080
	dc.w $5407,$fffe
	dc.w $0180,$00a0
	dc.w $5507,$fffe
	dc.w $0180,$00c0
	dc.w $5607,$fffe
	dc.w $0180,$00e0
	dc.w $5707,$fffe
	dc.w $0180,$00c0
	dc.w $5807,$fffe
	dc.w $0180,$00a0
	dc.w $5907,$fffe
	dc.w $0180,$0080
	dc.w $5a07,$fffe
	dc.w $0180,$0060
	dc.w $5b07,$fffe
	dc.w $0180,$0040
	dc.w $5c07,$fffe
	dc.w $0180,$0020
	dc.w $5d07,$fffe
	dc.w $0180,$0000
	dc.w $5e07,$fffe

	dc.w $ffff,$fffe ; COPEND - End of Copperlist 

	END