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 as:r11
equ ip:r12

equ pom1: r13
equ pom2: r14
equ rr:r15

accept cs:5678h
accept ip:FFFDh

accept ss:0002h
accept sp:0001h

accept ax:2237h
accept dx:FF00h

dw 6677Dh:6D01h, 7D03h, 8D04h, 5200h, 4200h, 9200h, 4A00h

dw 00020h:FFFFh, AAAAh, 0001h

dw 6678Fh:FFFFh, AAAAh, 0001h


macro fl:{load rm, flags;}
macro dec reg:{sub reg, reg, z, z; fl;}
macro inc reg:{add reg, reg, 1, z; fl;}
macro mov reg1, reg2:{or reg1, reg2, z;}

odczyt_rozkazu
{mov pom1, cs;}
{mov rq, ip;}
{cjs nz, obadrfiz;}
{mov nil, pom1; oey; ewl;}
{mov nil, pom2; oey; ewh;}
{R; mov rr, bus_d; cjp rdm, cp;}

\dekodowanie
{mov pom1, cs;}
{and rq, rr, FF00h;}

{xor nil, rq, 6D00h;fl;}
{cjp RM_Z, roz_nop__dek2_wyk;}

{xor nil, rq, 7D00h;fl;}
{cjp RM_Z, roz_nop2__dek2_wyk;}

{xor nil, rq, 8D00h;fl;}
{cjp RM_Z, roz_nop3__dek2_wyk;}

{xor nil, rq, 5200h;fl;}
{cjp RM_Z, pushreg;}

{xor nil, rq, 4200h;fl;}
{cjp RM_Z, increg;}

{xor nil, rq, 9200h;fl;}
{cjp RM_Z, xchgregax;}

{xor nil, rq, 4A00h;fl;}
{cjp RM_Z, decreg;}

wroc
{end;}

roz_nop__dek2_wyk
{jmap zapis_powrotny;}

roz_nop2__dek2_wyk
{jmap zapis_powrotny;}

roz_nop3__dek2_wyk
{jmap zapis_powrotny;}

pushreg
{cjs nz, exposeram;}
{sub sp, sp, 1, nz; fl;}

{ADD rq,SP,0h;}
{ADD pom1,SS,0h;}
{cjs nz, obadrfiz;}
{mov nil, pom1; oey; ewl;}
{mov nil, pom2; oey; ewh;}
{W; mov nil, rb; oey; cjp rdm, cp;}
{jmap zapis_powrotny;}

increg
{cjs nz, exposeram;}
{add rb, rb, z, nz; load RN, flags;}
{jmap zapis_powrotny;}

decreg
{cjs nz, exposeram;}
{or rq,rb,z;}
{sub rq, rq, 1, nz; fl;}
{or rb, rq, z;}
{jmap zapis_powrotny;}

xchgregax
{cjs nz, exposeram;}

{or rq,rb,z;}
{XOR ax, ax, rq;fl;}
{XOR rq, ax, rq;fl;}
{XOR ax, ax, rq;fl;}
{or rb, rq, z;}
{jmap zapis_powrotny;}

exposeram
{mov nil, rq; ewb; oey;}
{crtn nz;}

zapis_powrotny
{add ip, ip, 1, z; fl;}
{cjp rm_z, modyf_cs;}
{jmap odczyt_rozkazu;}

modyf_cs
{add cs, cs, 1000h, z;}
{jmap odczyt_rozkazu;}

obadrstos
{mov pom1, ss;}
{mov rq, sp;}
{cjs nz, obadrfiz;}
{crtn nz;}

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