; 50hz.as - set PAL mode (50Hz)
; Copyright (C) 2001 ag0ny@ag0ny.com

; RAM copy of VDP registers
; vdpregs0 -> R#0..R#7 (MSX)
; vdpregs1 -> R#8..R#23 (MSX2)
;
vdpregs0	equ	0f3dfh
vdpregs1	equ	0ffe7h-8

; VDP ports
;
vdpport0	equ	098h	; VRAM read/write
vdpport1	equ	099h	; VDP registers read/write
vdpport2	equ	09ah	; Palette registers write
vdpport3	equ	09bh	; Indirect register write

; vdp - send value in A to VDP register
; syntax:	vdp	reg#
; modifies:	A
; note:		**** INTERRUPTS MUST BE DISABLED ****
;
vdp		macro	reg
		out	(vdpport1),a
		ld	a,reg or 080h
		out	(vdpport1),a
		endm

; ***********************
; * program starts here *
; ***********************

start:		di

		ld	a,(vdpregs1+9)
		or	000000010b
		ld	(vdpregs1+9),a
		vdp	9

		ei

		ret
gram starts here *
; ***********************

start:		di

		rdvdp	9
		and	011111101b
		vdp	9

		ei

		ret