10 DATA 3E,00         :'F300  LD   A,Указатель слота
20 DATA 21,00,00      :'F302  LD   HL,Адрес читаемой ячейки
30 DATA CD,0C,00      :'F305  CALL RDSLT
40 DATA 32,10,F3      :'F308  ;Запись результата в доступную ячейку памяти (в нашем случае &HF310)
50 DATA C9            :'F30B  RET
60 CLEAR 200,&HF300:DEFUSR=&HF300
70 FOR T=0 TO 11:READ Z$:POKE &HF300+T,VAL("&h"+Z$):NEXT
80 INPUT"Номер первичного слота";N1
90 INPUT"Номер вторичного слота";N2
100 POKE &HF301,&H80+N2*4+N1 '░
W
W Указатель слота
110 INPUT"Адрес ячейки";AD%
120 POKE &HF303,PEEK(VARPTR(AD%)):POKE &HF304,PEEK(VARPTR(AD%)+1)
130 A=USR(A):PRINT"Вот Ваше число:";PEEK(&HF310)