10 AD=&HD000:DEFUSR=&HD000
20 READ A$:IF A$="Z" THEN A=USR(0):END
30 POKE AD,VAL("&h"+A$)
40 AD=AD+1:GOTO 20
50 DATA  3E,ED     :' LD   A,ED
60 DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
70 DATA  3E,C9     :' LD   A,C9
80 DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
90 DATA  3E,DB     :' LD   A,DB
100 DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
110 DATA 3E,C1     :' LD   A,C1
120 DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
130 DATA C9        :' RET
140 DATA "Z"       :' К о н е ц