SOS! CÉÎÔÅÚÁÔÏÒ ÒÅÞÉ [3/6]

SET LD BC,256
LD HL,IN_BUF
LD DE,$T_ADR
GET LD A,(HL)
JR ANALIZ
ONECH LD (DE),A
INC DE
INC HL
DEC BC
PROWER LD A,C
OR B
RET Z
JR GET
ANALIZ CP #F6 ; I ีหา
JP Z,MIN173
CP #F7 ; i ีหา
JP Z,MIN174
CP "า" ;E0
JP NC,RUSL2
CP "ม" ;A0
JP NC,RUSL1 ; RUS UP CASE
CP "a" ;61
JP NC,LATL ; LAT UP CASE
CP #20
JP C,PRB
CP "0"
JP Z,NIL
CP "1"
JP Z,ONE
CP "2"
JP Z,TWO
CP "3"
JP Z,TRE
CP "4"
JP Z,FOR
CP "5"
JP Z,FIV
CP "6"
JP Z,SIX
CP "7"
JP Z,SEV
CP "8"
JP Z,EIT
CP "9"
JP Z,NIN
JP ONECH
NIL LD A,"N"
LD (DE),A
INC DE
LD A,"O"
LD (DE),A
INC DE
LD A,"L"
LD (DE),A
INC DE
LD A,"I"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
ONE LD A,"O"
LD (DE),A
INC DE
LD A,"D"
LD (DE),A
INC DE
LD A,"I"
LD (DE),A
INC DE
LD A,"N"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
TWO LD A,"D"
LD (DE),A
INC DE
LD A,"V"
LD (DE),A
INC DE
LD A,"A"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
TRE LD A,"T"
LD (DE),A
INC DE
LD A,"R"
LD (DE),A
INC DE
LD A,"I"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
FOR LD A,"C"
LD (DE),A
INC DE
LD A,"H"
LD (DE),A
INC DE
LD A,"O"
LD (DE),A
INC DE
LD A,"T"
LD (DE),A
INC DE
LD A,"Y"
LD (DE),A
INC DE
LD A,"R"
LD (DE),A
INC DE
LD A,"Y"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
FIV LD A,"P"
LD (DE),A
INC DE
LD A,"Y"
LD (DE),A
INC DE
LD A,"A"
LD (DE),A
INC DE
LD A,"T"
LD (DE),A
INC DE
LD A,"'"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER
SIX LD A,"C"
LD (DE),A
INC DE
LD A,"H"
LD (DE),A
INC DE
LD A,"I"
LD (DE),A
INC DE
LD A,"S"
LD (DE),A
INC DE
LD A,"T"
LD (DE),A
INC DE
LD A,"'"
LD (DE),A
INC HL
INC DE
DEC BC
JP PROWER

=== Cut ===