LINK l1:CT
LINK l2:RDM
\oznaczenia rejestrow
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: 0000h
accept ip: 0010h

dw 00010h : 6F00h \rezerwacja pamieci
/zamiast tego 6F00h wstawiasz ze swojego wariantu
macro fl :{load rm, flags;}             \makra
macro dec reg:{sub reg, reg, z,z;fl;}
macro inc reg:{add reg, reg, 1, z;fl;}Z
macro mov reg1,reg2:{or reg1, reg2,z;}

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

\dekodowanie
{and rq, rr,FF00h;}
{xor nil,rq,6F00h;fl;} /tutaj tez ze swojego wariantu
{cjp RM_Z, roz_nop;}

wroc
{end;}

roz_nop
{jmap zapis_powrotny;}

zapis_powrotny
{add ip, ip, 1h, z;fl;} \zwiekszenie ip o 1h
{cjp rm_z, modyf_cs;}
{jmap odczyt_rozkazu;}

modyf_cs
{add cs, cs, 1000h, z;} \zmiana segmentu na nastepny
{jmap odczyt_rozkazu;}

obadrfiz \podprogram
{xor pom2, pom2, pom2;}
{load rm, z;}

\poczatek petli
{push nz, 3;}
{sll pom1;}
{sl.25 pom2;}
\koniec petli
{rfct;}
{add pom1, pom1, rq, z; LOAD RM, FLAGS;}
{add pom2, pom2, 0, RM_C;}
{load RM, z;}
{crtn nz;}