;
;    Copyright (c) 2009 by Michal Hucik <http://www.ordoz.com>
;
;    This program is free software; you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation; either version 2 of the License, or
;    (at your option) any later version.
;
;    MZ-800 Unicard is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.
;
;    You should have received a copy of the GNU General Public License
;    along with MZ-800 Unicard; if not, write to the Free Software
;    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
;

; Ver.: 1.1
;
; Unicard Example2:
;		Cteni revize firmware unikarty jinym zpusobem.
;
;

; porty
CMDPORT		equ	0x50
DATAPORT	equ	0x51

; prikazy
cmdRESET	equ	0x00
cmdSHASCII	equ	0x02
cmdREV		equ	0x05

; kde bude nas program
prg_begin:	equ	0x2000

	org	prg_begin - 0x80

; MZF header
	db	0x01
	db	"UNICARD EXAMPLE2",0x0d
	dw	prg_end - prg_begin
	dw	prg_start
	dw	prg_begin
	db	"                "
	db	"                "
	db	"                "
	db	"                "
	db	"                "
	db	"                "
	db	"        "


prg_start:

	call 0xEA59		; smazat obrazovku


	;
	; Zavolanim resetu provedeme stejnou proceduru,
	; ktera se vola pri startu STM32 v unikarte.
	;
	; Pozaviraji se vsechny soubory. Ukonci vsechny vstupy a vystupy.
	; CDW se nastavi na korenovy adresar "/".
	; Vypne se konverze SharpASCII.
	;
	ld a, cmdRESET
	out (CMDPORT), a


	; Chceme pouzivat vypisovaci rutiny v ROM, takze si prepneme
	; komunikaci do SharpASCII
	ld a, cmdSHASCII
	out (CMDPORT), a


	; Zjistime verzi firmware.
	ld a, cmdREV
	out (CMDPORT), a


	ld hl, data		; Sem si ulozime info o revizi
	ld c, DATAPORT	


	; cti dokud unikarta rika, ze pro nas ma data
rdbyte:
	in a, (CMDPORT)		; Precteme prvni bajt statusu
	and 0x02		; pokud je nastaven 1. bit,
				; tak to znamena, ze pro nas ma unikarta
				; nejaka vystupni data z posledniho prikazu.

	jp z, zobrazit_revizi	; Uz jsme precetli vsechno? Pokud ano, tak
				; to jdeme to zobrazit.

	ini			; Precti bajt z DATA portu do (HL), inc HL

	jr rdbyte		; Opakuj...


zobrazit_revizi:

	ld de, data		; revizi firmware vypsat na obrazovku
	call 0x0015		

	; zastavit, stat, raz, dva...
	di
	halt

data:

prg_end: