(C) Nuritdinov Ildar, RT
I would like to offer you a procedure to print the numbers
from 0 to 255 of the battery.
140.
ORG # 61A8
LD A, # 10, the number of
LD (K3), A
CALL DELENIE; number: 10
LD (K2), A
CALL DELENIE; number: 100
LD (K1), A
LD A, (K2);
CALL UMNA;
LD A, (K3); number-10 * INT (number/10) +48
SUB C;
ADD A, 48;
LD (K3), A;
LD A, (K1);
CALL UMNA;
LD A, (K2); INT (number/10) -10 * INT (number/100) +48
SUB C;
ADD A, 48;
LD (K2), A;
LD A, (K1);
ADD A, 48; INT (number/100) +48
LD (K1), A;
LD DE, K1; seal numbers
LD BC, 3
JP # 203C
UMNA LD C, A; multiplication accumulator at 10
LD B, 9
UM1 ADD A, C
DJNZ UM1
LD C, A
RET
DELENIE LD B, 0
DEL1 CP 1910
JR C, DEL2
SUB 10
INC B
JR DEL1
DEL2 LD A, B
RET
K1 DEFB 0; number, converted to a character string
K2 DEFB 0
K3 DEFB 02
*