Спринтер в Телеге

[Shaos]

xdemox выложил в телеге свою сборку Sp2016s на БЕЛОЙ плате:

[RomanRom2]

ты предложил алгоритм

а вот, кстати, "утерянный" код загрузчика первого автора

Code: Select all

.ORG	#0000
	DI
	LD BC,#FFEE
	XOR A
	OUT (C),A
	INC C
	LD A,#04
	OUT (C),A
	DEC C
	DEC A
	OUT (C),A
	INC C
	OUT (C),A
	DEC C
	DEC A
	OUT (C),A
	INC C
	LD A,#FE
	OUT (C),A
	LD C,#19
	LD A,#05
	OUT (C),A
	LD A,#62
	OUT (C),A
	LD C,#1D
	LD A,#CF
	OUT (C),A
	XOR A
	OUT (C),A
	LD C,#1C
	LD A,#EA
	OUT (C),A
	JR, @NEAR1

	RST 38
	JP #0000	

NEAR1:	LD HL,#FEF0
	LD DE,#009E	; STRING "ACEX_30K_LOADING"
LOOP1:	LD A,(DE)
	CP (HL)
	JR NZ,@NEAR2
	INC E
	INC L
	JR NZ,@LOOP1
			
	LD BC,#FFEE
	LD A,#02
	OUT (C),A
	INC C
	LD A,#F0
	OUT (C),A
	LD C,#1C
	LD A,#62
	OUT (C),A
	LD HL,#1000
	JR,@NEAR3
			
NEAR2:	LD HL,#0100
NEAR3:	LD DE,#FE00
	LD A,(#FEE0)
	CP #49
	JR NZ,@NEAR4
	LD A,(#FEE1)
	CP #4D
	JR NZ,@NEAR4
	DEC D
NEAR4:	LD IY,#0107
	LD IX,#FFFD
	JR @NEAR5

NEAR5:	LD A,(HL)
	CP #00            ; если загруженный байт = 00
	JR NZ,@NEAR6
	INC HL            ; загружаем следующий - это количество идущих подряд нулей
	LD B,(HL)         ; и сохраняем в B - счетчик для DJNZ
NEAR6:	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	RRCA
	LD (DE),A
	CP #00          ; если отправляем байт 00,
	JR NZ,@NEAR7    
	DJNZ @NEAR6     ; то повторяем нужное уоличество раз
NEAR7:	INC E
	INC HL
	JR @NEAR5

	DI
	HALT

[Shaos]

Вот код который я в феврале предложил, когда подробности вышеизложенного алгоритма были ещё неизвестны (выше это то, что идёт после NEAR5):

Code: Select all

LOOP1:
        LD A,(HL)
        LD B,A ; save byte to B to check later if we worked with zero
        OR A
        JR NZ,LOOP1A
        INC HL
        LD C,(HL) ; set counter
LOOP1A:
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        RRCA
        LD (DE),A
        INC E

        LD A,B ; was it zero?
        OR A
        JR NZ,LOOP1E
        ; it was zero so we need to decrement counter
        DEC C
        JR NZ,LOOP1A
        ; end of the counter reached

LOOP1E:
        INC HL
        JR LOOP1

а вот предложение которое сделал Hard:

в теории можно на 2 байта сократить, RRCA это же циклический сдвиг, значит в итоге сдвига 0 мы получим 0, а при сдвиге ну нуля - не нуль... имхо в B грузить и смысла нет

P.S. "первый автор" буквально на днях нашёлся в телеге после того, как прочитал статью на Хабре

[Shaos]

Вчера счётчик подписантов в телеге превысил 100

[Lavr]

Это помогает популяризации Спринтера?

[Shaos]

Это помогает популяризации Спринтера?

Конечно - у основных производителей плат Спринтера разбрали все конструкторы и все платы.
Народ кооперируется и заказывает платы самостоятельно (в Китае минимум 5 плат заказ). Ведётся разработка как минимум двух новых плат.

[Shaos]

В спринтеровской телеге уже 120 подписантов

[Shaos]

Товарищи! Вступайте в ряды Спринтероводов! На нас лежит огромная ответственность! Мутанты... ээм, это не то...
Вчера была создана группа в телеграме по Спринтеру. https://t.me/zx_sprinter
Все Спринтероводы планеты, go туда!

Телеговскому чату - год (25 ноября 2020)
Сейчас в нём 186 человек зарегано

[Shaos]

Сегодня я удалил свою учётку в Телеграмме т.к. в последние пару недель телега превратилась в Zombyland...

[Xom]

Сегодня я удалил свою учётку в Телеграмме т.к. в последние пару недель телега превратилась в Zombyland...

Ну вот. А мы так хорошо общались. Теперь куда? SMS слать?

[Shaos]

Есть такое место, где я нахожусь постоянно вот уже почти 20 лет - http://nedopc.org/forum/

P.S. Ну и потом sprinternet.io на подходе

[Shaos]

По итогам бесед в телеге я купил домен http://sprinter.computer который пока ведёт на недовики раздел про Спринтер

Домен sprinter.computer отпущен - теперь основным линком на недовики "Sprinter Unofficial" (как и раньше) остаётся http://sprinter.nedopc.org

Ещё из новостей - Sprinter Team (к которой я уже почти год как не имею отношения) завела себе свой гитхаб: https://github.com/SprinterTeam