Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement