#!/bin/rc
fn crt {
	io -w 0x3D4 $1
	io -w 0x3D5 $2
}
#a=(5F 4F 50 82 54 80 0B 3E 80 40 00 00 00 00 00 00 EA 0C DF 50 00 E7 04 E3 FF)
a=(5F 4F 50 82 51 9E 0B 3E 80 40 00 00 00 00 00 00 E9 8B DF 28 00 E7 04 C3 FF)
i=0
for(j in $a) {
	crt $i 0x$j
	i=`{echo $i+1 | bc}
}