dim temp_word as word at &hd0
dim low_byte as byte at &hd0 overlay
dim high_byte as byte at &hd1 overlay
dim eram_high_byte as eram byte
dim eram_low_byte as eram byte

' beim Start nach Reset z.B.

high_byte = eram_high_byte
low_byte = eram_low_byte

do

incr temp_word
print temp_word
eram_high_byte = high_byte
eram_low_byte = low_byte
wait 1
loop