\\JC Skok, jeżeli przeniesienie 72h
\\JZ Skok, jeżeli zero 74h
\\JNO Skok, jeżeli brak przepełnienia 71h

link l1: ct
link l2: rdm

link ra: 0,1,2,z
link rb: 8,9,10,z

equ ax:r0
equ cx:r1
equ dx:r2
equ bx:r3
equ sp:r4
equ bp:r5
equ si:r6
equ ddi:r7
equ cs:r8
equ ss:r9
equ ds:r10
equ es:r11
equ ip:r12
equ pom1:r13
equ pom2:r14
equ rr:r15

accept cs:4567h
accept ip:8000h

accept cx:0005h
accept dx:5200h
accept si:9600h
accept ax:0000h
accept bx:000Fh

accept ss:0002h
accept sp:0001h

accept bp:0000h

\69XX = nope \\1001 0001 0000 0010 // 5X - push 4X-INC 9X-XCHNG
dw 4D670h:6900h
, 40FFh
, 4BAAh
, E2FEh
, E302h
, 4100h
, 4100h
, 5000h
, 5300h
, 5100h
, 5800h
, 5B00h
, 5900h
, 9100h
, 4900h
, E3F6h
, 6900h

dw 00020h:ffffh,0021h,0001h
macro mov reg1,reg2:{or reg1,reg2,z;}\podres leszek jest reg2
macro inc reg1:{add reg1,0001h,reg1,z;  load rm,flags;}\podres leszek zdal +1
macro dec reg1:{sub reg1,reg1,0,z;  load rm,flags;}\podres leszek nie zdal -1
\\ 69 - nope 4(0-7) - inc  4(8-F)-dec  90-xchng 5(0-7)-push 5(8-F)-pop
\\72 jc  74 jz  E2 loop E3 JCXZ

odczyt
{mov pom1,cs;}
{mov rq,ip;}
{cjs nz,obadfiz;}
{and nil,pom1,pom1;oey;ewl;}
{and nil,pom2,pom2;oey;ewh;}
{R; or rr,bus_d,z;cjp rdm,cp;}
\\dekodowanie

\\nope czyli nic
{and rq,rr,FF00h;}
{xor nil,rq,6900h; load rm,flags;}
{cjp rm_z, nope;}

{and rq,rr,F800h;} \\ 1111 1000 0000 0000
{xor nil,rq,4000h; load rm,flags;}  \\ XXXX X000 0000 0000
{cjp rm_z, incc;} \\

{and rq,rr,F800h;} \\ 1111 1000 0000 0000
{xor nil,rq,4800h; load rm,flags;}  \\ XXXX X000 0000 0000
{cjp rm_z, decc;} \\

{and rq,rr,F800h;}
{xor nil,rq,9000h; load rm,flags;}
{cjp rm_z, xchng;}

{and rq,rr,F800h;}
{xor nil,rq,5000h; load rm,flags;}
{cjp rm_z, pusheen;}

{and rq,rr,F800h;}
{xor nil,rq,5800h; load rm,flags;}
{cjp rm_z, popeen;}

{and rq,rr,FF00h;}
{xor nil,rq,7200h; load rm,flags;}
{cjp rm_z, jc;}

{and rq,rr,FF00h;}
{xor nil,rq,7400h; load rm,flags;}
{cjp rm_z, jzz;}

{and rq,rr,FF00h;}
{xor nil,rq,7100h; load rm,flags;}
{cjp rm_z, jno;}

{and rq,rr,FF00h;}
{xor nil,rq,E200h; load rm,flags;}
{cjp rm_z, looper;}

{and rq,rr,FF00h;}
{xor nil,rq,E300h; load rm,flags;}
{cjp rm_z, JCXZ;}

{end;}
nope
{jmap zapispow;}

incc
{or nil,rr,rr;oey;ewb;}
{load rm,rn;}
{add rb,rb,z,nz;  load rm,flags;cem_c;}
{load rn,rm;}
{jmap zapispow;}

decc
{or nil,rr,rr;oey;ewb;}
{load rm,rn;}
{sub rb,rb,z,z;  load rm,flags;cem_c;}
{load rn,rm;}
{jmap zapispow;}

\\JCXZ
JCXZ
{xor nil,cx,0000h; load rm,flags;}
{cjp rm_z, JCXZc;}
{jmap zapispow;}
JCXZc
{and rq,rr,0080h;}
{xor nil,rq,0080h; load rm,flags;}
{cjp rm_z, JCXZp;}
{jmap JCXZm;}
JCXZp
{and rq,rr,00FFh;}
{or rq,rq,FF00h;}
{add ip,ip,rq,z;}
{jmap odczyt;}
JCXZm
{and rq,rr,00FFh;}
{add ip,ip,rq,z;}
{jmap odczyt;}
\\

\\looper
looper
{dec cx;}
{xor nil,cx,0000h; load rm,flags;}
{cjp !rm_z, looperc;}
{jmap zapispow;}
looperc
{and rq,rr,0080h;}
{xor nil,rq,0080h; load rm,flags;}
{cjp rm_z, looperp;}
{jmap looperm;}
looperp
{and rq,rr,00FFh;}
{or rq,rq,FF00h;}
{add ip,ip,rq,z;}
{jmap odczyt;}
looperm
{and rq,rr,00FFh;}
{add ip,ip,rq,z;}
{jmap odczyt;}
\\

\\ jc
jc
{cjp rn_c, jcc;}
{jmap zapispow;}
jcc
{and rq,rr,0080h;}
{xor nil,rq,0080h; load rm,flags;}
{cjp rm_z, jcp;}
{jmap jcm;}
jcp
{and rq,rr,00FFh;}
{or rq,rq,FF00h;}
{add ip,ip,rq,z;}
{jmap odczyt;}
jcm
{and rq,rr,00FFh;}
{add ip,ip,rq,z;}
{jmap odczyt;}
\\end jc

\\ jzz
jzz
{cjp rn_c, jzzc;}
{jmap zapispow;}
jzzc
{and rq,rr,0080h;}
{xor nil,rq,0080h; load rm,flags;}
{cjp rm_z, jzzp;}
{jmap jzzm;}
jzzp
{and rq,rr,00FFh;}
{or rq,rq,FF00h;}
{add ip,ip,rq,z;}
{jmap odczyt;}
jzzm
{and rq,rr,00FFh;}
{add ip,ip,rq,z;}
{jmap odczyt;}
\\end jc

\\ jno
jno
{cjp !rn_v, jnoc;}
{jmap zapispow;}
jnoc
{and rq,rr,0080h;}
{xor nil,rq,0080h; load rm,flags;}
{cjp rm_z, jnop;}
{jmap jnom;}
jnop
{and rq,rr,00FFh;}
{or rq,rq,FF00h;}
{add ip,ip,rq,z;}
{jmap odczyt;}
jnom
{and rq,rr,00FFh;}
{add ip,ip,rq,z;}
{jmap odczyt;}
\\end jc

xchng
{or nil,rr,rr;oey;ewb;}
{or rq,rb,z;}
{or rb,ax,z;}
{or ax,rq,z;}
{jmap zapispow;}

pusheen
{or nil,rr,rr;oey;ewb;}
{dec sp;}
{cjs rm_c, heilss;}
{mov pom1,ss;}
{mov rq,sp;}
{cjs nz,obadfiz;}
{and nil,pom1,pom1;oey;ewl;}
{and nil,pom2,pom2;oey;ewh;}
{W ; or nil,z,rb;oey;cjp rdm,cp;}
{jmap zapispow;}

popeen
{or nil,rr,rr;oey;ewb;}
{mov pom1,ss;}
{mov rq,sp;}
{cjs nz,obadfiz;}
{and nil,pom1,pom1;oey;ewl;}
{and nil,pom2,pom2;oey;ewh;}
{R; or rb,bus_d,z;cjp rdm,cp;}
{inc sp;}
{cjs rm_z, heilss2;}
{jmap zapispow;}

heilss
{dec ss;}
{and sp,sp,000Fh;}
{crtn nz;}

heilss2
{add ss,1000h,ss,z;  load rm,flags;}
{crtn nz;}

zapispow
{inc ip;}
{cjs rm_z,poprawcs; }
{jmap odczyt;}

poprawcs
{add cs,cs,1000h,z;}
{crtn nz;}

obadfiz
{load rm,z;}
{and pom2,pom2,z;}
{push nz,3;}
{sll pom1,pom1;}
{sl.25 pom2,pom2;}
{rfct;}
{load rm,z;}
{add pom1,pom1,rq,z; load rm,flags;}
{add pom2,pom2,0,rm_c;}
{load rm,z;}
{crtn nz;}