Язык Assembler.
Microprocessor simulator 5.0
DB 20
DB 30
START:
MOV AL, FF
OUT 04
MOV AL,4F
OUT 04
OUT 04
OUT 04
MOV AL, 8F
OUT 04
OUT 04
OUT 04
STI
INT 03
JMP START
ORG 20
IRET
ORG 30
CLI
MOV AL,FF
OUT 02
MOV AL,FE
OUT 02
MOV CL,0
REP:
CMP CL,14
JNZ EXIT
JMP STOP
EXIT:
NOP
INC CL
JMP REP
STOP:
MOV AL,1
OUT 02
MOV AL,0
OUT 02
IRET
END