; BContrast 1.0
; ^ 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:

	jsr		flib[clr_scr]
	SetFont		#2
	WriteStr	#10,#10,#1,bcon
	SetFont		#1
	WriteStr	#10,#30,#1,upstr
	WriteStr	#10,#40,#1,downstr
	WriteStr	#10,#50,#1,exitstr
	SetFont		#0
	WriteStr	#10,#70,#1,info1
	WriteStr	#10,#80,#1,info2
	WriteStr	#10,#90,#1,tim
	
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
;	rts			; return to calling prog
	bra wait

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

exit:
	rts
prog_name:
                dc.b    "BContrast 1.0",0
bcon		dc.b	"BContrast 1.0",0
upstr		dc.b	"Up = Contrast up",0
downstr		dc.b	"Down = Contrast down",0
exitstr		dc.b	"ESC = Exit",0
info1		dc.b	"BContrast 1.0 by Billy Davidson",0
info2		dc.b	"http://www.geocities.com/SiliconValley/Heights/8349/",0
tim		dc.b	"Special thanks to Tim Gerla",0

        reloc_open
	add_library	romlib
        add_library     flib
        reloc_close
        end