Программирование на Ассемблере
l dosbase(PC),A6
jsr Write(A6)
movem.l (SP)+,D0-D7/A0-A6 ;восстанавливаем регистры
rts scankey: ;проверка нажатия клавиши
move.l conhandle(PC),D1
move.l #500,D2 ;время ожидания
move.l dosbase(PC),A6
jsr WaitForChar(A6)
tst.l D0
rts readln:
movem.l D0-D7/A0-A6,-(SP) ;сохраняем регистры
lea inline+2,A2 ;буфер ввода
clr.l (A2)
inplop:
bsr getchr
cmp.b #8,D0
beq.s backspace
cmp.b #127,D0 ;\"Delete\"?
beq.s backspace
bsr pchar
cmp.b #13,D0 ;\"Enter\"?
beq.s inputx
move.b D0,(A2)+
bra.s inplop
inputx:
clr.b (A2)+
sub.l #inline,A2
move A2,inline ;длина строки плюс 1
movem.l (SP)+,D0-D7/A0-A6 ;восстанавливаем регистры
rts backspace:
cmp.l #inline,A2 ;курсор в начале строки?
beq.s inplop ;да, не удалять
move.b #8,D0
bsr pchar ;курсор - влево
move #32,D0 ;пробел
bsr pchar
move #8,D0
bsr pchar ;\"забой\"
clr.b (A2)
subq.l #1,A2
bra inplop getchr: ;ввести один символ
move.l #1,D3
move.l conhandle(PC),D1
lea inbuff(PC),A1 ;буфер ввода
move.l A1,D2
move.l dosbase(PC),A6
jsr Read(A6)
moveq #0,D0
move.b inbuff(PC),D0 ;во
|