labarch

LINK L3:CT
LINK L1:RDM

EQU AX:R0	\//Rejestr ogolnego przeznaczenia
EQU CX:R1	\//Rejestr ogolnego przeznaczenia
EQU DX:R2	\//Rejestr ogolnego przeznaczenia
EQU BX:R3	\//Rejestr ogolnego przeznaczenia
EQU SP:R4	\//Rejestr indeksowy
EQU BP:R5	\//Rejestr indeksowy
EQU SI:R6	\//Rejestr indeksowy
EQU DII:R7	\//Rejestr indeksowy
EQU CS:R8	\//Rejestr segmentowy
EQU SS:R9	\//Rejestr segmentowy
EQU DS:R10	\//Rejestr segmentowy
EQU IP:R15	\//Licznik rozkazow
EQU RR:R14	\//Rejestr rozkazow
EQU RP0:R11
EQU RP1:R12
EQU RP2:R13

ACCEPT CS:0000h
ACCEPT IP:0010h

macro INC reg:{ADD reg,1h;}
macro FLAGS:{LOAD Rm,FLAGS;}
macro ZERO arg:{XOR arg,arg;}
DW 00010h:6F00h,6F00h

ODCZYT
{ADD RP0,CS,0h,z;}
{PUSH nz,3;}
{SLL RP0;}
{SL.25 RP1;}
{RFCT;}

{ADD RP0,IP;LOAD RM,FLAGS;}
{ADD RP1,0h,RM_C;}
{ADD NIL,RP0,z;OEY;EWL;}
{ADD NIL,RP1,z;OEY;EWH;}
{R; ADD RR, BUS_D,z;}
{CJP RDM,cp;}	\//polecenie odczytu r-sygnal odczytu, dodawanie do rr stan magistrali danych, skok warunkowy do momentu odczytania danych z magistrali danych
{CJP nz, DEKODOWANIE;}

DEKODOWANIE
{AND RP0,RR,FF00h;}
{XOR RP0,6F00h;LOAD RM,FLAGS;}
{CJP RM_Z,NOP;}
{CJP nz,KONIEC;}

NOP
{INC IP; FLAGS;}
{CJP not RM_C,ODCZYT;}
{ADD CS,1000h;}
{CJP nz,ODCZYT;}

KONIEC
{end;}