Язык Assembler.
Microprocessor simulator 5.0
db 60; таймер
db 00; клавиатура
db "go"
db "stop"
start:
mov cl,02
mov bl,c0
get:
in 00
mov [bl],al
inc bl
dec cl
jnz get
mov bl,[c0]
sub bl,67
jnz no1
mov bl,[c1]
sub bl,6f
jz pusk
no1:
jmp stop
pusk:
sti
mov al,11
go_r:
ror al
out 05
cmp cl,01
jz stop
jmp go_r
stop:
;================
org 60
nop
iret
;==============
end