10 CLEAR 200,&HA000
20 INPUT A,B:POKE &HA100,A:POKE &HA101,B 'Ввод начальных данных
30 FOR I=0 TO 15:READ R$:POKE &HA000+I,VAL("&h"+R$):NEXT
40 DEFUSR=&HA000:Z=USR(0)
50 PRINT PEEK(&HA102)
60 DATA 3A,00,A1     :'  LD    A,(A100h)
70 DATA 47           :'  LD    B,A
80 DATA 05           :'  DEC   B
90 DATA 3A,01,A1     :'  LD    A,(A101h)
100 DATA 57          :'  LD    D,A
110 DATA 82          :'  ADD   A,D ░
W
W
W
W
Y
120 DATA 10,FD       :'  DJNZ  $-1  
W
W
W
W
[
130 DATA 32,02,A1    :'  LD    (A102h),A
150 DATA C9          :'  RET