10 CLEAR 200,&HD000
20 DEFUSR=&HD000
30 I=&HD000
40 READ A$:IF A$="z" THEN A=USR(0):PRINT PEEK(&H9000):END
60 POKE I,VAL("&h"+A$):I=I+1:GOTO 40
90  DATA 21,0A,00:'  LD   HL,000Ah  ; Загрузка регистра HL константой
100 DATA 11,04,00:'  LD   DE,0004h  ; Загрузка регистра DE константой
110 DATA CD,93,31:'  CALL 3193h     ; Вызов нужной подпрограммы	 
120 DATA 22,00,90:'  LD   (9000h),HL
130 DATA C9      :'  RET
140 DATA "z"     :'