Subversion Repositories NedoOS

рёь шыш ЄюъхэшчрЄюЁ уы■ўшЄ:
cs0=8 ;=extH (CP/M)
(фєьрхЄ, ўЄю ";=extH" - яЁшётрштрэшх ьхЄъш)
Єръ эх уы■ўшЄ:
cs0=8 ;as extH (CP/M)


FUNC BOOL fread1blkq(FCB* pfcb, PBYTE pdesc)
єсштрхЄ уыюсры№эє■ яхЁхьхээє■ pdesc (эшцх юэр ёЄрэютшЄё  эх тшфэр)


юяЄшьшчрЎшш ЁрчьхЁр сшэрЁэшър:

#   plbl = &plbl[+sizeof(UINT)+1]; //skip string size
        LD HL,[dellbl.plbl]
        LD DE,2
        LD BC,1
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        ADD HL,DE
        LD [dellbl.plbl],HL 
ъръ ёфхырЄ№ ъюэёЄрэЄэюх т√Ёрцхэшх ё ЁрёъЁ√Єшхь sizeof?

#
юяЄшьшчшЁютрЄ№ while(+TRUE) - ёяхЎъюьрэфє LOOP?
ёфхырЄ№ continue?
╤─┼╦└═╬ яхЁхяшёры схёъюэхўэ√х Ўшъы√ ўхЁхч goto

# фюсртшЄ№ юяхЁрЎш■ POKEINC эр ЁрчьхЁ Єшяр

#
        LD HL,[asmloop.tempvalue.+2]
        LD DE,[asmloop.tempvalue.]
        LD A,0x07
        AND E
        LD L,0x03
        LD E,A
        PUSH DE
        LD D,H ;<= шч-чр Єюую, ўЄю regs эх чэрхЄ яЁю °шЁшэє, р тююс∙х ex de,hl яюьюу с√
        LD E,L
        POP HL
        CALL _SHLB 

#
        LD A,[_waseof.]
        OR A
        JP Z,asmloop.agq
        JP asmloop.agn
asmloop.agq:
        JP asmloop.agm
asmloop.agn: 

#
        LD BC,1
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        LD BC,_SIZEOF_LONG.
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        LD BC,[addlabel.freestart_index.]
        LD A,E
        SUB C
        LD E,A
        LD A,D
        SBC A,B
        LD D,A
        ADD HL,DE
        LD [_lenlabels.],HL 
(¤Єю с√ыр ёъюсър т т√Ёрцхэшш ёю ёыюцхэш ьш - ЁрёъЁ√ы)

#
POKE *(PUINT)(&_labelN[_LABELPAGEFREESTART]) = _plabel_index + 1/**flag*/ + _SIZEOF_LONG/**value*/;
        LD HL,[_labelN.]
        LD DE,_LABELPAGEFREESTART.
        ADD HL,DE
        LD DE,[_plabel_index.]
        LD BC,1
        EX DE,HL
        ADD HL,BC
          EX DE,HL
        LD BC,_SIZEOF_LONG.
          EX DE,HL
        ADD HL,BC
        EX DE,HL
        LD [HL],E
        INC HL
        LD [HL],D 
(єсЁры т√ўшёыхэшх ёяЁртр)

# яЁш ЄрщяърёЄх (long)uint
        LD HL,[asmloop.scale]
        LD DE,0
        LD BC,[asmloop.tempvalue+2]
        LD IX,[asmloop.tempvalue]
        PUSH DE
        PUSH HL
        PUSH BC
        PUSH IX
        POP IX
        POP BC
        POP DE
        POP HL
        CALL _MULLONG.
        LD A,[_token]
        SUB '0'
        LD C,A
        LD B,0
        LD IX,0
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        LD A,L
        ADC A,LX
        LD L,A
        LD A,H
        ADC A,HX
        LD H,A
        LD [asmloop.tempvalue],DE
        LD [asmloop.tempvalue+2],HL 
т regs фхырЄ№ ex de,hl эхїюЁю°ю

#
        LD HL,[asmloop.tempvalue+2]
        LD DE,[asmloop.tempvalue]
        LD A,0x07
        AND E
        LD L,0x03
        LD E,A
        PUSH DE
        LD D,H
        LD E,L
        POP HL
        CALL _SHLB.
        LD A,[_base]
        ADD A,L
        LD [_base],A 

#
        LD [_t.],A
        LD A,[_t.]
        LD L,A
        LD A,[_curfunct.]
        LD C,_T_RECURSIVE.
        LD E,A
        LD A,C
        CPL
        AND E
        SUB L
        JP NZ,eat_return.avg 

# с√ыю:
        LD A,[eat_let.t.]
        LD L,A
        LD A,[_t.]
        SUB L
        LD L,0
        JR Z,$+2+1
        DEC L
        LD A,[eat_let.t.]
        LD C,_T_POINTER.
        AND C
        LD C,0x00
        SUB C
        LD E,0
        JR Z,$+2+1
        DEC E
        LD A,[_t.]
        LD LX,_T_POINTER.
        AND LX
        LD LX,0x00
        SUB LX
        LD C,0
        JR Z,$+2+1
        DEC C
        LD A,E
        AND C
        CPL
        AND L
        JP Z,eat_let.ash 
╙┴╨└═╬, р Єръ тююс∙х ¤Єю тё╕ с√ юяЄшьшчшЁютрыюё№

# ьюцэю эр тхЁїэхь єЁютэх фртрЄ№ яюфёърчъє фы  pushnum - яЁюъёшЄ№ шыш эх яЁюъёшЄ№, ўЄюс√ шчсхцрЄ№ Єръюую:
        LD A,0x0b
        LD L,A
        LD A,[_reg.]
        ADD A,L
        LD [asmbyte.aaa],A 
эю яЁш ¤Єюь тё╕ Ёртэю эх яюыєўшЄё  add a,0x0b.
фы  ърцфюую ЁхушёЄЁр Їыру, ўЄю юэ їЁрэшЄ ъюэёЄрэЄє?
яЁю∙х яхЁхёЄртшЄ№ _reg+0x0b - ╤─┼╦└═╬

# ўЄюс√ юяЄшьшчшЁютрЄ№ call-ret, эрфю яхЁхф ърцфющ(!) юяхЁрЎшхщ т√ч√трЄ№ gencall, р фы  ret яЁютхЁшЄ№ Їыру ш т√ч√трЄ№ ышсю genjp, ышсю genret

# єсЁрЄ№ тЄюЁющ jp (юЄ if) т Єръшї ёыєўр ї:
asmcompileloop.j#_ASMFMT_DIR=$
        LD A,[_curdir.]
        LD E,_ASMDIR_LABEL.
        SUB E
        JP Z,asmcompileloop.adb
        CALL asmfmt_dir_label.
        JP asmcompileloop.loop.
        JP asmcompileloop.adc 

# хёыш тЄюЁющ рЁуєьхэЄ юяхЁрЎшш ъюэёЄрэЄр, эю эх эрфю хую яшїрЄ№ яЁхфтрЁшЄхы№эю т ЁхушёЄЁ, р т√ч√трЄ№ ъюэёЄрэЄэє■ тхЁёш■ ёююЄтхЄёЄтє■∙хую cemit
шыш фхырЄ№ юЄыюцхээ√х ld reg,NNN: ухэхЁшЄ№ Єюы№ъю тЁхьхээє■ ьхЄъє, р ld фхырЄ№ яЁш шёяюы№чютрэшш шыш эх фхырЄ№
╤─┼╦└═╬ фы  +, -

# юўхэ№ ьэюую ьхёЄр чрэшьр■Є юсюЁюЄ√ Єшяр
IF ( (partype==_T_INT)||(partype==_T_UINT)||((partype&_T_POINTER)!=0x00) )
хёыш фхырЄ№ ьрёъш Єшяют, Єю 8 сшЄ эх їтрЄшЄ
эрфю шьхээю яюьэшЄ№ partype т ЁхушёЄЁх
ъръ???
╤─┼╦└═╬ ўхЁхч фышэє Єшяр

# ъръ х∙╕ ёфхырЄ№ яхЁхфрўє ўхЁхч ЁхушёЄЁ√? фы  ¤Єюую яЁюЎхфєЁр фюыцэр єьхЄ№ ёъшф√трЄ№ ЁхушёЄЁ√ т яхЁхьхээ√х, хёыш ЁхушёЄЁют эх їтрЄрхЄ

# jr тьхёЄю jp, р рёь сєфхЄ Ёрё°шЁ Є№ jr фю jp, хёыш эх ыхчхЄ???

# фюсртшЄ№ ifnot, whilenot, untilnot, ўЄюс√ шёъы■ўшЄ№ Єръюх:
        LD A,[_inprime.]
        LD L,A
        LD A,[_indblquote.]
        OR L
        CPL
        OR A
        JP Z,rdch.h 

# ??? т ёЄЁюърї тьхёЄю фышэ√ шёяюы№чютрЄ№ єърчрЄхы№ эр ъюэхЎ ш єърчрЄхы№ эр яЁхфхы (ўшёыю ярЁрьхЄЁют эх єьхэ№°рхЄё : _endtextword = strjoin(_endtextword, _limittextword, _newword); ), єсЁрЄ№ stringclear (_endtextword = _textword), stringclose - шэырщэюь (POKE *(PCHAR)(_endtextword) = '\0';).

# POKE *(PUINT)(plbl) = _lblshift[_lblhash];
        LD HL,[addlbl.plbl]
        LD DE,_lblshift
        LD A,[_lblhash]
        LD C,A
        LD B,0
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        EX DE,HL
        ADD HL,BC
        EX DE,HL
        LD A,[DE]
        INC DE
        EX AF,AF'
        LD A,[DE]
        LD D,A
        EX AF,AF'
        LD E,A
        LD [HL],E
        INC HL
        LD [HL],D 
¤Єю шч-чр т√ўшёыхэш  яЁртюую т√Ёрцхэш  яюёых т√ўшёыхэш  ыхтюую, яюэрфюсшыё  ыш°эшщ ЁхушёЄЁ
ъръ яхЁхёЄртшЄ№???
эю хёыш plbl сєфхЄ т ЁхушёЄЁх, Єю эх ё¤ъюэюьшЄ№



ёт чъш эр ёюёхфэшї ёЄЁюўърї:
- ╤─┼╦└═╬ ld rb,N:sub rb (эрфю яЁхфёърч√трЄ№ тяхЁ╕ф? шыш т√ч√трЄ№ ъюэёЄрэЄэ√х яЁшьшЄшт√?)
ьюцэю чряюьэшЄ№ т pushnum, ўЄю с√ыр ъюэёЄрэЄр (тьхёЄю Єюую, ўЄюс√ х╕ ухэхЁшЄ№) ш х╕ ЄхъёЄ
Єюуфр эрфю тю тёхї яЁшьшЄштрї (тъы■ўр  put ш return) єьхЄ№ шёяюы№чютрЄ№ ъюэёЄрэЄє, хёыш тючьюцэю
рёьюяЁшьшЄшт√ эх ьюуєЄ чрърч√трЄ№ ЁхушёЄЁ - ъръ цх юэш ёфхыр■Є юс√ўэ√щ ёЎхэрЁшщ шёяюы№чютрэш  ъюэёЄрэЄ√ (эряЁшьхЁ, т add)?
чэрўшЄ, эрфю яЁютхЁ Є№ ъюэёЄрэЄє т яЁшьшЄштрї т√ёюъюую єЁютэ , р рёьюяЁшьшЄшт√ фхырЄ№ т фтєї трЁшрэЄрї
эр яЁръЄшъх эєцэю т юёэютэюь sub N ё Їыруюь Z (==, !=)
яхЁхїтрЄ эх ёЁрсрЄ√трхЄ эр cstr == +(BYTE)'#' ш Є.я. ═рфю яшёрЄ№ +(CHAR)cstr=='#'. ═ю эхы№ч  ёЁртэштрЄ№ CHAR ўхЁхч > <
- jp:jp (тЄюЁющ ьюцэю яЁютхЁшЄ№ яю эюьхЁє ёЄЁюъш яюёыхфэхую jp)
- jp nz:jp - яєёЄр  тхЄър if шыш if()break шыш if()goto
- ld (),reg:ld reg,() (эюьхЁ ёЄЁюъш яюёыхфэхую popvar (шыш put) ш joined==wasjoined, эрфю х∙╕ юсЁрЄшью єэшўЄюцрЄ№ ЁхушёЄЁ)
- ld (),a:ld a,() (эюьхЁ ёЄЁюъш яюёыхфэхую popvar (шыш put) ш joined==wasjoined, эрфю х∙╕ юсЁрЄшью єэшўЄюцрЄ№ ЁхушёЄЁ ш proxy) (шыш юЄъырф√трЄ№ юётюсюцфхэшх ЁхушёЄЁр ш яюьэшЄ№ wasput)
- call:ret (ЄєЄ эрфю яЁхфёърч√трЄ№ тяхЁ╕ф шыш т√ч√трЄ№ ухэхЁрЄюЁ call эр ърцфющ ъюьрэфх)
- ╙┴╨└═╬ ld l,(hl):ld a,l - Єръшї ьхэ№°х яюыютшэ√ тёхї ld l,(hl), эю хёыш яюёўшЄрЄ№ ъюЄюЁ√х юяЄшьшчшЁє■Єё  яЁш ld a,(hl), Єю (яю тёхьє compile):
юяЄшьшчшЁє■Єё : iiiiiiiiiiiiiiiiiiiiiiiiiiiii
єїєф°рЄё :      iiiiii
юёЄрэєЄё :      iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii (эхъюЄюЁ√х юяЄшьшчшЁє■Єё  яЁш cp N, ўЄю ёхщўрё эхтючьюцэю)
- ld a,N:ld rb,a (эрфю яЁхфёърч√трЄ№ тяхЁ╕ф?) (эшўхую эх фрёЄ - Єръшх ёыєўрш эх эрїюф Єё )
- label:ret (эрфю яЁхфёърч√трЄ№ ╤╚╦▄═╬ тяхЁ╕ф шыш ёьюЄЁхЄ№ фхЁхтю ЁрчсюЁр шыш ЁрчЁх°шЄ№ return схч ярЁрьхЄЁр (ъръ ret, яюыэ√щ return эх ёюфхЁцшЄ ret) шч ёхЁхфшэ√)












64-сшЄэ√х ўшёыр эх шёяюы№чютрышё№ т FatFS, эю т exFAT ьюуыш яю тшЄ№ё  (DimkaM)
т сшыышрЁфх Єюцх эхЄ ш эх с√ыю 64-сшЄэ√ї




# SDCC 2.9.0 шэшЎшрышчшЁєхЄ ъюэёЄрэЄэ√х ьрёёшт√ тЁєўэє■. SDCC 3.4.0 эхЄ - тё╕ ўхЁхч ".area _INITIALIZER" (фрцх эхЄ LDIR ш яюыэюёЄ№■ юЄёєЄёЄтєхЄ ъюф шэшЎшрышчрЎшш)

# SDCC 2.9.0 ухэхЁшЁєхЄ ъюф stack frame фы  яєёЄ√ї яЁюЎхфєЁ. SDCC 3.4.0 єцх эхЄ. ьющ ъюфюухэхЁрЄюЁ Єюцх эхЄ.
IAR ухэхЁшЁєхЄ push-pop ЁхушёЄЁют т яюыєяєёЄ√ї яЁюЎхфєЁрї эхяюэ Єэю чрўхь.
SDCC 3.6.0 яЁш opt-size тьхёЄю push ix:ld ix,0:add ix,sp яш°хЄ call ___sdcc_enter_ix (яю¤Єюьє эрфю opt-speed).
х∙╕ яЁш opt-size яю ты хЄё  ыш°эшщ inc sp:pop af т ъюэЎх emitinvreg, emitnegreg.
х∙╕ яЁш opt-size (р SDCC 3.4.0 тёхуфр) ёўшЄрхЄ REGNAME[rnew] яю юфэюьє Ёрчє (єьххЄ фрцх push-pop шэюуфр, яЁш --all-callee-saves ўр∙х).   Єръ эх ёьюує.
эшъръшї фЁєушї Ёрчышўшщ т SDCC 3.6.0 ьхцфє opt-size ш opt-speed эх чрьхўхэю (фрцх юёЄр■Єё  inc sp..dec sp фы  8-сшЄэ√ї ярЁрьхЄЁют).

# т IAR тёх т√Ёрцхэш  ё && || ёўшЄр■Єё  рЁшЇьхЄшўхёъш (т IAR эхЄ). ёрьюьє сєфхЄ ёыюцэю яЁхюсЁрчютрЄ№
ышсю эрфю фхырЄ№ and if, or else, ышсю ъєўє тхЄюъ т єёыютшш, ышсю islalpha... фхырЄ№ эр ьрёёштх (шэшЎшрышчшЁютрЄ№ хую тЁєўэє■?)
хёыш ЁрчсшЄ№ эр ўрёЄш Єшяр a&&b (¤Єю эх фр╕Є яЁюшуЁ√°р т IAR), Єю SDCC яхЁхтюфшЄ && т фцрья√ (3.6.0 фрцх т return a&&b) - ъръ Єръюх яютЄюЁшЄ№?
хёыш ЁрчсшЄ№ || эр ўрёЄш Єшяр if (a) else if (b) else if (c) ё юфшэръютющ ъюьрэфющ, Єю SDCC х╕ эх юс·хфшэ хЄ (IAR юс·хфшэ хЄ), эю ЁрсюЄрЄ№ фюыцэю с√ёЄЁхх (т IAR ъюф тююс∙х эх шчьхэшыё )
хёыш ёфхырЄ№ тьхёЄю ¤Єюую if (!a) if (!b) if (!c), Єю т SDCC ъюф ыєў°х, т IAR яюўЄш шфхры№э√щ (Єюы№ъю ёю ёЄЁрээ√ь т√сюЁюь ЁхушёЄЁют)
т√Ёрцхэш  Єшяр (c<='z') т IAR ъюьяшышЁє■Єё  эхт√уюфэю (эх ъръ c<('z'+1)). яхЁхяшёрЄ№ ўхЁхч +1? ьющ Єхъє∙шщ ъюфюухэхЁрЄюЁ эх яюыєўшЄ т√шуЁ√°р, Є.ъ. эх єьххЄ CP

# є сюы№°шэёЄтр яЁюЎхфєЁ хёЄ№ ярЁрьхЄЁ /єцх эх є сюы№°шэёЄтр?/. IAR яхЁхфр╕Є юфшэ ярЁрьхЄЁ т ЁхушёЄЁх (SDCC эхЄ). юёюсхээю чрьхЄэю эр яхўрЄш ўшёыр (тяЁюўхь, ¤Єю юЄырфюўэр  яЁюЎхфєЁр).
ёфхырЄ№ Єръ цх юфшэ ярЁрьхЄЁ т ЁхушёЄЁх? (эю фы  ¤Єюую эрфю єьхЄ№ їЁрэшЄ№ яхЁхьхээє■ т ЁхушёЄЁх!)
шэюуфр ьюцэю єсЁрЄ№ юфшэ ярЁрьхЄЁ, хёыш isfunc юс·хфшэшЄ№ ё functype
SDCC 3.4.0 фюёЄр╕Є яхЁт√щ ярЁрьхЄЁ ўхЁхч pop:pop:push:push, ¤Єю т√уюфэю яЁш юЄёєЄёЄтшш ёЄхъЇЁхщьр т ix. эю ыєў°х ўхЁхч ЁхушёЄЁ.

# яЁш ЁрсюЄх ёю ёЄЁюърьш эрфю юфэютЁхьхээю ъюэЄхъёЄ√ 8 сшЄ ш ёыют
эряшёрЄ№ тхё№ ьюфєы№ syscalls эр рёёхьсыхЁх?

# яЁш ЁрсюЄх ёю ёЄЁюърьш (юэш ъръ ьрёёшт√) ухэхЁшЁєхЄё  єцрё. ттхёЄш єърчрЄхыш? ш їЁрэшЄ№ єърчрЄхыш т ЁхушёЄЁрї? ъръ юяЁхфхышЄ№, уфх ўЄю їЁрэшЄ№? ёыютю register?
эряшёрЄ№ тхё№ ьюфєы№ syscalls эр рёёхьсыхЁх? эю ёЄЁюъш х∙╕ шёяюы№чє■Єё  т compiler (юсъєё√трэшх title, чряшё№/ўЄхэшх ьхЄюъ)

# SDCC ш IAR юяЄшьшчшЁє■Є CALL:RET фю JP. ъръ ёфхырЄ№ Єръ цх?
ыхэшт√щ CALL? (эх яюыєўшЄё  яЁш CALL т ыюърых - р схч ыюърыр эрфю тхЁэєЄ№ чряшё№ ёЄЁюъ т ёЄхъ!)
SDCC 3.4.0 ухэхЁшЁєхЄ jr:ret (getnothingword), Ёрэ№°х с√ы яЁюёЄю jr. ┬ SDCC 3.6.0 шёяЁртыхэю.

# SDCC 3.4.0 (3.6.0 яЁш opt-size) ёўшЄрхЄ REGNAME[rnew] яю юфэюьє Ёрчє (єьххЄ фрцх push-pop шэюуфр, яЁш --all-callee-saves ўр∙х, фЁєушї Ёрчышўшщ эх тшфхы).   Єръ эх ёьюує.
todo яхЁхяшёрЄ№ шёїюфэшъ ўхЁхч яхЁхьхээє■ (ЄєЄ эрфю фтх, Є.ъ. фтх сєът√, р єърчрЄхыхщ эхЄ)

# stringappend (с√трхЄ Єюы№ъю фы  command ш joinwordsresult) эрфю inline, эю #define фы  шэырщэют є ьхэ  эхЄ

# read, write эрфю inline (Єюы№ъю syscalls шэырщэюь? шыш emits шэырщэюь? шыш юср? т яхЁёяхъЄштх юёЄрэхЄё  Єюы№ъю ёшёЄхьэ√щ ьръЁюё), эю #define фы  шэырщэют є ьхэ  эхЄ

# SDCC 3.6.0 тьхёЄю ld a,()...ld (),a ухэхЁшЁєхЄ ld iy:ld a,(iy)...ld (iy),a (readchar_skipdieresis_concat)
--reserve-regs-iy фхырхЄ ўхЁхч hl, эю тючтЁр∙рхЄ ёЄхъЇЁхщь√, уфх эх эрфю, ш яхЁхёЄр╕Є єьхЄ№ Єръюх:
        ld      hl,(_fin)
        push    hl
        call    _eof
тьхёЄю эхую ухэхЁшЄ:
        ld      hl,#_fin
        ld      c, (hl)
        inc     hl
        ld      b, (hl)
        push    bc
        call    _eof






IAR эхюяЄшьры№эюёЄш:
   \   0E49  3A1600            LD      A,(_T_BYTE)
   \   0E4C  47                LD      B,A
   \   0E4D  DD7D              LD      A,IXL
   \   0E4F  B8                CP      B
   \   0E50  2812              JR      Z,?0285
   \   0E52  3A1900            LD      A,(_T_CHAR)
   \   0E55  47                LD      B,A
   \   0E56  DD7D              LD      A,IXL
   \   0E58  B8                CP      B
   \   0E59  2809              JR      Z,?0285
   \   0E5B  3A1700            LD      A,(_T_BOOL)
   \   0E5E  47                LD      B,A
   \   0E5F  DD7D              LD      A,IXL
   \   0E61  B8                CP      B
   \   0E62  2012              JR      NZ,?0284
   \   0E64            ?0285:
ш Є.я.
   
   \   1100  CDDE0E            CALL    emitasm_regname
   \   1103  C9                RET
ш Є.я.

   \   438B  3A1E00            LD      A,(_T_RECURSIVE)
   \   438E  2F                CPL
   \   438F  DD45              LD      B,IXL
   \   4391  A0                AND     B
ш Є.я.

   \   4167  DD45              LD      B,IXL
   \   4169  04                INC     B
   \   416A  05                DEC     B
   \   416B  2004              JR      NZ,?1409
ш Є.я.

   \   1173  3ACF00            LD      A,(_jumpflag)
   \   1176  3D                DEC     A
   \   1177  3D                DEC     A
   \   1178  2005              JR      NZ,?0333
   \   117A            ?0332:
   \   117A  116801            LD      DE,?0334
   \   117D  1818              JR      ?1697
   \   117F            ?0333:
   \   117F  3ACF00            LD      A,(_jumpflag)
   \   1182  FE03              CP      3
   \   1184  2005              JR      NZ,?0337
   \   1186            ?0336:
   \   1186  116C01            LD      DE,?0338
   \   1189  180C              JR      ?1697
   \   118B            ?0337:
   \   118B  FE04              CP      4
   \   118D  2005              JR      NZ,?0341

   
   \   4455  56                LD      D,(HL)
   \   4456  CBEA              SET     5,D
   \   4458  7A                LD      A,D
   \   4459  321D2F            LD      (_c1small),A



IAR т√фхышы шэЄхЁхёэє■ яЁюЎхфєЁє:
   \   1354            ?2032:
   \   1354  CD2F0F            CALL    emitasm_hl
   \   1357  CDC60E            CALL    emitasm_comma
   \   135A  3AA200            LD      A,(_FASTREG)
   \   135D  47                LD      B,A
   \   135E  7B                LD      A,E
   \   135F  B8                CP      B
   \   1360  C9                RET