horses an water

I try again this seems to have gone through to the keeper
http://www.picbasic.co.uk/forum/showthread.php?t=20966


arrays and the ext modifier don't exist for no reason

Code:
data_block var byte[96]
i var byte
ch_max var word ext   ;accessable as ch_max[0] to ch_max[15]
ch_on  var word ext   ;accessable as ch_on[0] to ch_on[15]
ch_off var word ext   ;accessable as ch_off[0] to ch_off[15]

asm
ch_max =  data_block
ch_on  =  data_block+32
ch_off =  data_block+64
endasm
save_data:
for i = 0 to 95
write 8+i ,data_block[i]
next
return
read_data:
for i = 0 to 95
read 8+i ,data_block[i]
next
return

set_defaults:
for i=0 to 15
ch_max[i]= 3000
ch_on[i}= 1800
ch_off[i]=600
next
return