10 print"this program test LD operation at the start of drum"
22 restore120:fori=0to18:reada:poke&hc000+i,a:nexti:defusr=&hc000


20 out&hc6,5:out&hc7,3
30 'load instrument 11
35 out&h7e,&h50:out&h7f,&h7e
36 fori=0to100:nexti
40 out&h7e,32:out&h7f,&h52
41 out&h7e,&h38:out&h7f,&hf3
50 out&h7e,8:out&h7f,&h11
60 'NOP
70 a=usr(0)
90 fori=0to1000:nexti
100 out&h7e,&h68:out&h7f,0
120 data &hf3,&h3e,&h50,&hd3,&h7e,&h3e,&h00,&hd3,&h7f
130 data &h3e,&h68,&hd3,&h7e,&h3e,&h80,&hd3,&h7f,&hfb,&hc9