; BContrast 1.5
; ^ Everyone was using "F," so I decided to be creative!
; By Billy Davidson
; http://www.geocities.com/SiliconValley/Heights/8349/
;
; Special thanks to Tim Gerla

        @program        prog_code,prog_name
	include		macros.h

prog_code:

	SetFont		#2
	WriteStr	#1,#1,#0,str1
	SetFont		#1
	WriteStr	#1,#11,#0,str2
	
wait:
	jsr		flib[idle_loop]
	cmp		#338,d0
	beq		c_up
	cmp		#344,d0
	beq		c_down
	cmp		#264,d0
	beq		exit
	bra		wait

c_up:
	move.w		#09,d0	; 9=contrast_up
	trap		#9	; trap
	jsr		(a0)	; call rom
	bra wait

c_down:
	move.w		#10,d0	; 10=contrast_down
	trap		#9
	jsr		(a0)
	bra		wait

exit:
	rts
prog_name:
                dc.b    "BContrast 1.5",0
str1		dc.b	" BContrast 1.5 ",0
str2		dc.b	" Use D-Pad to change contrast ",0

        reloc_open
	add_library	romlib
        add_library     flib
        reloc_close
        end