Disassembly test program 2  By J.G.Harston + ctrl% 31,data% 3:X%=ctrl%:Y%=X% 256 ( tot=0 2_L <#"Number of instructions: ";tot F P_L:A%=190 Z?"Intersperce index regs? "I$: I$,1)<>"Y" I$="N" I$="Y" dADDR=&8000 n A=0 255 x!data%=&12345600+A:_P B I$="Y" !data%=&123400DD+A*256:_P:!data%=&123400FD+A*256:_P  A  A=0 255 !data%=&123400CB+A*256:_P J I$="Y" !data%=&0034CBDD:data%?3=A:_P:!data%=&0034CBFD:data%?3=A:_P  A  A=0 255 !data%=&123400ED+A*256:_P  A  I$="Y"  A=0 255 !data%=&123400DD+A*256:_P !data%=&123400FD+A*256:_P   A=0 255 A!data%=&0034CBDD:data%?3=A:_P:!data%=&0034CBFD:data%?3=A:_P " A , 6_P @%!X%=&502010:X%!4=ADDR:X%!8=!data% J &FFF1:(X%?2128): T;~ADDR;" ";:z%=0X%?3-1 ^" ";h0(data%?z%,2); h r19);$(X%+4) |(X%?264): ADDR=ADDR+X%?3:tot=tot+1  #ݤh0(A%,N%)="0000000"+~A%,N%)