/*#include "romhdr.S"*/
#include "hw.S"

.global _start
_start:
	;mov a, #'a'
	;call !!0xeffa1
	;ret

;	call !hw_init

;1:	call !glitch_mainloop
;	br $1b

;1:	br $1b

hw_init:
	di

	clrb !CRC0CTL
	clrb !IAWCTL
	;CRC0CTL = 0 ; f02f0
	;IAWCTL = 0 ; f0078

	; CSC=fffa1
	; CKC=fffa4
	;CMC = 0 ; 0xfffa0
	;MSTOP = 1 ; CSC.7
	;MCM0 = 0 ; CKC.4
	;XTSTOP = 0 ; CSC.6
	;OSMC = 0 ; f00f3
	;CSS = 0 ; CKC.6 ;!
	set1 CKC.6
	;HIOSTOP = 0 ; CSC.0

	mov !ADPC, #1
	;ADPC = 1 ; f0076
	mov PM2, #0

	clrb !PMC2
	clrb !PIOR0
	clrb !PIOR1
	clrb !PIOR2
	clrb !PIOR3

	mov P2, #0
;	ret

	/* DUMPS EVERYTHING */


	/* LONG WAITCODE THAT DOESNT DO ANYTHING */

/*	mov c, #0xff
	mov b, #0xff

1:	dec c
	bnz $1b
	mov c, #0xff
	dec b
	bnz $1b
	xor P2, #0xff

	br $1b*/

	/* GLITCH TESTING CODE */


	/* TODO: how many segments do we need? */
	mov  es, #0
	call !dump_segment

1:	br $1b

dump_segment:
	movw hl, #0
1:	mov  a, es:[hl]
	push hl
	call !!tool_tx
	pop  hl
	incw hl
	movw ax, hl
	cmpw ax, #0
	bnz  $1b
	mov  es, #0xf
	ret

/*
glitch_mainloop:
	mov P2, #0xff

	movw ax, #0xfa00
	movw hl, ax

	mov c, #0
2:	mov b, #0xff
	mov a, #0
1:	inc a
	dec b
	bnz $1b
	dec c
	mov [hl+c], a
	bnz $2b

	mov P2, #0

	; wait a bit
	mov c, #0x18
4:	mov b, #0xff
5:	dec b
	bnz $5b
	dec c
	bnz $4b

	mov a, #'H'
	call !!tool_tx
	mov a, #'i'
	call !!tool_tx

	mov x, #0xaa
	mov c, #0
3:	dec c
	mov a, [hl+c]
	xor a, x
	call !!tool_tx
	cmp0 c
	bnz $3b

	br $glitch_mainloop

	;ret

;data:
*/