GROUP DS U603: #55,#56,#57,#58,#59,#60,#61,#62; AD/M U700: #91/I,#92/I,#93/I,#95/I,#96/I,#97/I,#98/I,#99/I; CTRL_DA u603: #84,#83,#82,#81; CTRL_AD U603: #90,#87,#86; BEGIN LDI U603,EXTEST; LDI U700,SAMPLE; IRSHIFT; ENABLE (U603: #84,#83,#82,#81); ENABLE (U603: #55,#56,#57,#58,#59,#60,#61,#62); ENABLE (U603: #90,#87,#86); ENABLE (U700: #91,#92,#93,#95,#96,#97,#98,#99); LD DS,10100100b; drshift; LD CTRL_DA,0110b; drshift; wait 10; LD CTRL_DA,1111b; drshift; wait 10; LD CTRL_DA,1110b; drshift; wait 10; LD CTRL_DA,1100b; drshift; wait 10; LD CTRL_DA,1110b; drshift; wait 10; LD CTRL_DA,1111b; drshift; wait 10; LD CTRL_DA,1011b; drshift; wait 10; LD CTRL_DA,1111b; drshift; wait 10; LD CTRL_AD,000b; LD AD/e,10100100b; LD AD/MA,11111000b; drshift; writeln ('AD-muuntimelle meneva lukema: ',DS/B); writeln ('AD-muuntimelta lahteva lukema: ',AD/M/B); END.