nedoPC.org

Community of electronics hobbyists established in 2002
Atom Feed | View unanswered posts | View active topics It is currently 22 Jan 2022 23:37



Reply to topic  [ 53 posts ]  Go to page Previous  1, 2, 3, 4
Спринтер в Телеге 
Author Message
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
xdemox выложил в телеге свою сборку Sp2016s на БЕЛОЙ плате:


Attachments:
Sp2016white.jpg
Sp2016white.jpg [ 479.91 KiB | Viewed 1743 times ]

_________________
:eugeek: https://twitter.com/Shaos1973
25 Jun 2021 03:23
Profile WWW
Writer

Joined: 02 Dec 2020 15:53
Posts: 17
Reply with quote
Shaos wrote:
ты предложил алгоритм

а вот, кстати, "утерянный" код загрузчика первого автора :)
Code:
.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


25 Jun 2021 13:20
Profile WWW
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
Вот код который я в феврале предложил, когда подробности вышеизложенного алгоритма были ещё неизвестны (выше это то, что идёт после NEAR5):
Code:
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:
Quote:
в теории можно на 2 байта сократить, RRCA это же циклический сдвиг, значит в итоге сдвига 0 мы получим 0, а при сдвиге ну нуля - не нуль... имхо в B грузить и смысла нет

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

_________________
:eugeek: https://twitter.com/Shaos1973


25 Jun 2021 14:56
Profile WWW
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
Вчера счётчик подписантов в телеге превысил 100 :o

_________________
:eugeek: https://twitter.com/Shaos1973


28 Jun 2021 12:08
Profile WWW
Supreme God
User avatar

Joined: 21 Oct 2009 09:08
Posts: 7777
Location: Россия
Reply with quote
Это помогает популяризации Спринтера?

_________________
iLavr


28 Jun 2021 12:39
Profile
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
Lavr wrote:
Это помогает популяризации Спринтера?
Конечно - у основных производителей плат Спринтера разбрали все конструкторы и все платы. :mrgreen:
Народ кооперируется и заказывает платы самостоятельно (в Китае минимум 5 плат заказ). Ведётся разработка как минимум двух новых плат.

_________________
:eugeek: https://twitter.com/Shaos1973


28 Jun 2021 12:57
Profile WWW
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
В спринтеровской телеге уже 120 подписантов :mrgreen:

_________________
:eugeek: https://twitter.com/Shaos1973


21 Aug 2021 23:10
Profile WWW
Admin
User avatar

Joined: 09 Jan 2003 00:22
Posts: 20079
Location: Silicon Valley
Reply with quote
Sayman wrote:
Товарищи! Вступайте в ряды Спринтероводов! На нас лежит огромная ответственность! Мутанты... ээм, это не то...
Вчера была создана группа в телеграме по Спринтеру. https://t.me/zx_sprinter
Все Спринтероводы планеты, go туда!

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

_________________
:eugeek: https://twitter.com/Shaos1973


24 Nov 2021 20:31
Profile WWW
Display posts from previous:  Sort by  
Reply to topic   [ 53 posts ]  Go to page Previous  1, 2, 3, 4

Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  

Powered by phpBB® Forum Software © phpBB Group
Designed by ST Software.