5' Автор программы: Поляков С.,10-й класс. 14.01.89  
10 CLEAR 200,&HD000:AD=&HD000
30 READ A$:IF A$="z" THEN 60
50 A=VAL("&h"+A$):POKE AD,A:AD=AD+1:GOTO 30
60 DEFUSR=&HD000
70 PRINT"Введите десятичное трехзначное число от 0 до 255:"
80 A=USR(0):PRINT"Вы ввели число:"PEEK(&HB000):END
110 DATA F7,00,B4,00 :'RST  30[00/00B4];BIOS ввода строки
120 DATA 23          :'INC  HL
130 DATA 7E          :'LD   A,(HL)     ;В  А - код первого символа
140 DATA 06,63       :'LD   B,63h      ;Блок получения числа сотен
150 DATA D6,30       :'SUB  30h        ;;; В регистре А - число
160 DATA 57          :'LD   D,A        ;;;
170 DATA 8A          :'ADC  A,D        ;;;
180 DATA 10,FD       :'DJNZ $-1        ;;;
190 DATA 5F          :'LD   E,A        ;В регистрах А и Е  - число
200 DATA 16,00       :'LD   D,00h      ;сотен, умноженное на 100
210 DATA D5          :'PUSH DE         ;Результат - в регистре DE
220 DATA 23          :'INC  HL          
230 DATA 7E          :'LD   A,(HL)     ;В  А - код второго символа
240 DATA 06,09       :'LD   B,09h      ;Блок получения числа десятков
250 DATA D6,30       :'SUB  30h        ;;; В регистре А - число
260 DATA 57          :'LD   D,A        ;;;
270 DATA 8A          :'ADC  A,D        ;;;
280 DATA 10,FD       :'DJNZ $-1        ;;;
290 DATA D1          :'POP  DE         ;
300 DATA 8B          :'ADC  A,E        ;
310 DATA 5F          :'LD   E,A        ;В регистрах А и Е - сумма со-
320 DATA D5          :'PUSH DE         ;тен и десятков
330 DATA 23          :'INC  HL         ;
340 DATA 7E          :'LD   A,(HL)     ;В  А - код третьего символа
350 DATA D6,30       :'SUB  30h        ;В регистре А - число
360 DATA D1          :'POP  DE
370 DATA 8B          :'ADC  A,E        ;В  А - введенное нами число
380 DATA 6F          :'LD   L,A
390 DATA 26,00       :'LD   H,00
400 DATA 22,00,B0    :'LD   (B000h),HL
410 DATA C9          :'RET
420 DATA "z"