ф Disassembly test program 2 ф By J.G.Harston Ю ctrl% 32,data% 4 ( tot=0 2т_L <#с"Number of instructions: ";tot Fа PЭт_L ZX%=ctrl%:Y%=X%Ѓ256:A%=190 d?и"Intersperce index regs? "I$:з АI$,1)<>"Y" I$="N" ‹ I$="Y" nADDR=&8000 xг A=0 ё 255 ‚!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 J.!ctrl%=&502010:ctrl%!4=ADDR:ctrl%!8=!data% TЦ &FFF1:з(ctrl%?2 Ђ128)б ^ с;~ADDR;" ";:гz%=0ёctrl%?3-1 h3зdata%?z%<16 с" 0";~data%?z%; ‹ с" ";~data%?z%; rн |сЉ19);$(ctrl%+4) †з(ctrl%?2 Ђ 64):с ђADDR=ADDR+ctrl%?3:tot=tot+1 љб я