Программирование на УКНЦ как?

**gfd71** · 01.10.2017, 18:50

добрый вечер
есть очень маленькая программка и ведёт она себя непонятно
ввод 3 символов, запись их в буфер, печать буфера, возврат на ожидание ввода.

Код HTML:

        .MCALL  .TTYIN,.PRINT,.EXIT
			
TEST:	.TTYIN	BUFF1
        .TTYIN	BUFF1+1
        .TTYIN	BUFF1+2 		
	.PRINT	#BUFF1		
	BR	TEST
        .EXIT
BUFF1:	.BLKB	3
	.END	TEST

так выглядит запущенной, 000-111-222-444-введённые символы, остальное печать их, первая и четвёртая печать правильная.

Скрытый текст

Код HTML:

.SET EDIT K52

.SET SL ON

.DAY
Время           Дата
18:13:44        01-Окт-2017, Воскресенье

.R TST3
000
000
111

1
11
222

22
2

444
444

[свернуть]

окно дизассемблера, 1042 1043 1044-байты буфера. видно что в 1042 пишется 15 вместо 60 первый символ второго ввода, а вот почему непонятно.

Скрытый текст

Код:


	Код HTML:
	001000 [000004]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000004 -> 000776:001000
                                                      ;   PC  :001002 -> 000774:136530
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   060 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   060 -> 001043
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   R0  :   060 -> 001044
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   015 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   [B]R0  :   012 -> 001043[/B]
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   [B]R0  :   061 -> 001044[/B]
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   061 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   061 -> 001043
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   R0  :   015 -> 001044
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   012 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   062 -> 001043
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   R0  :   062 -> 001044
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   062 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   015 -> 001043
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   R0  :   012 -> 001044
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   064 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   064 -> 001043
001020 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001022 -> 000774:001012
                                                      ; 000030:143446 ->   PC
001022 [000000]        BCS   001020
001024 [000000]        MOVB  R0, 001044               ;   R0  :   064 -> 001044
001030 [000000]        MOV   #546., R0                ; 001032:001042 ->   R0
001034 [000000]        EMT   351
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001036 -> 000774:001022
                                                      ; 000030:143446 ->   PC
001036 [000000]        BR    001000

001000 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001002 -> 000774:001036
                                                      ; 000030:143446 ->   PC
001002 [000000]        BCS   001000
001004 [000000]        MOVB  R0, 001042               ;   R0  :   015 -> 001042
001010 [000000]        EMT   340
                                                      ; 000032:000000 ->   PSW
                                                      ;   PSW :000000 -> 000776:000000
                                                      ;   PC  :001012 -> 000774:001002
                                                      ; 000030:143446 ->   PC
001012 [000000]        BCS   001010
001014 [000000]        MOVB  R0, 001043               ;   R0  :   012 -> 001043
001020 [000000]        EMT   340

[свернуть]

**Advertiser** · 01.10.2017, 18:50

**form** · 01.10.2017, 18:56

Сообщение от gfd71

ведёт она себя непонятно

По умолчанию посимвольный ввод отключен, а эхо символов включено. Чтобы получить то, что хочется нужно установить биты TTSPC$ (10000) и TCBIT$ (100) в слове $JSW (44), например так:

Код:

        .ASECT
        .=44
        .WORD   10100
        .PSECT

TEST:   ...

- - - Добавлено - - -

Непонятно зачем .EXIT если до него дело не дойдет никогда, а так же буфер не годится для .PRINT - не зарезервировано место для завершающего нуля, и в теории строка может оказаться очень длинной (хотя в данном конкретном случае выравнивание автоматически зарезервирует этот байт)

**gfd71** · 01.10.2017, 19:07

спасибо, эхо нужно

Сообщение от form

Непонятно зачем .EXIT если до него дело не дойдет никогда

осталось от предыдущей версии программки

**form** · 01.10.2017, 19:10

Сообщение от gfd71

эхо нужно

Тогда TTSPC$ не нужно устанавливать, а TCBIT$ нужно.

ZXPRESS •	ZXART •
ZXTUNES •	ZX Spectrum Old Demos •
Virtual TR-DOS •	World of Spectrum •

User Tag List

Тема: Программирование на УКНЦ как?

Опции темы

Отображение

Комбинированный просмотр

Скрытый текст

Скрытый текст

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Программирование на Эмуляторе. Возможно ли это?

Программирование Altera и JTAG

Программирование и софтмейк на NES

Ваши права