10 CLEAR 100,&HD000    'Очистка памяти
20 POKE &HD000,9       'Запись в память первого операнда
30 POKE &HD001,9       'Запись в память второго операнда
40 AD=&HD003           'Адрес начала подпрограммы
50 READ T$:IF T$="z" THEN 90
70 POKE AD,VAL("&h"+T$):AD=AD+1:GOTO 50
90 DEFUSR=&HD003:H=USR(0)
105 PRINT PEEK(&HD002)  'Печать результата
110 DATA 3A,00,D0      :'LD   A,(D000) ;  (D000h) 
W
W▐  А 
120 DATA 47            :'LD   B,A      ;  (A)     
W
W▐  B  
130 DATA 3A,01,D0      :'LD   A,(D001) ;  (D001h) 
W
W▐  А 
140 DATA 80            :'ADD  A,B      ;  (A)+(B) 
W
W▐  A 
150 DATA 32,02,D0      :'LD   (D002),A ;  (А)     
W
W▐ (D002h)
160 DATA C9,"z"        :'RET           ;  Возврат из подпрограммы