forum.petersplus.com - Internet forum

; Расчитать число 16kB-страниц для загрузки файла
; (макс. размер файла 4 метра)
;
; вх: BDE = старший,средний,младший разряды (размер файла)
; вых: B = #00..#FF число страниц
AllocPages:
ld a,d
rla
rl b
rla
rl b
ld a,d
and 0x3F
or e
ret z
inc b
ret

; Сборка: ассемблер z80asm.exe
;
; Заполняет текст. строку данными, после за один
; вызов функции DSS выводит строку на экран.
;

test:
; push xx ; сохранить регистры
; push xx
; ...

ld hl,1234 ; число
push hl
ld hl,string ; строка
push hl
call printf
db "Строка: %s Число: %d\n",0
pop hl ; восст. баланс стека
pop hl ;

; ...
; pop xx ; восстановить регистры
; pop xx
ret

string: db "Hello world!",0

;[]=================================================[]
; Форматированный вывод
; Буфер выводимой строки 128 байт.
; (сохранять регистры до загрузки данных в стек)
; Первый выводимый %X сохр. последним в стеке.
; Младший разряд чисел сохр. последним в стеке.
; Форм. строка должна заканчиваться нулем.
; Не сохраняются регистры: AF,HL',HL,DE,BC,IX,IY
; Форматы:
; d - dec 16-bit
; l - dec 32-bit
; h - hex 16-bit
; u - hex 32-bit
; c - symbol
; s - string
; \n - new line
;
printf: ex (sp),hl
ld iy,2
add iy,sp
ld de,.fbuff ; буфер строки
.loop: ld a,(hl)
inc hl
or a
jr nz,.loc1
; выход (конец форм. строки)
ld (de),a ; ноль в буфер строки
ex (sp),hl ; (sp) = конец строки форматов + 1
; вывести готовую строку
ld hl,.fbuff
ld c,5Ch
rst 10h
ret
;
.loc1: cp "%" ; префикс форматов
jr z,.form
cp "\"
jr nz,.loc2
ld a,(hl)
inc hl
cp "n" ; \n новая строка
jr nz,.loc2
ld a,0Dh
ld (de),a
inc de
ld a,0Ah
.loc2: ld (de),a ; символ в буфер
inc de
jr .loop
;
.form: ld a,(hl)
inc hl
cp '%'
jr z,.loc2 ; вывести сам '%'
push hl
ld l,(iy+0)
inc iy
ld h,(iy+0)
inc iy
and 0x5F
cp "L" ; десятичный 32-bit
jr nz,.dec16
exx
ld l,(iy+0)
inc iy
ld h,(iy+0)
inc iy
call IntToChar32
inc de
jr .done
;
.dec16: cp "D" ; десятичный 16-bit
jr nz,.hex32
exx
ld hl,0
exx
ld ix,tmp1
res 7,(ix+0)
call IntToChar16
inc de
jr .done
;
.hex32: cp "U" ; hex 32-bit
jr nz,.hex16
push hl
ld l,(iy+0)
inc iy
ld h,(iy+0)
inc iy
call hex_hl
pop hl
call hex_hl
jr .done
;
.hex16: cp "H" ; hex 16-bit
jr nz,.string
call hex_hl
jr .done
;
.string:cp "S" ; вывод строки
jr nz,.symb
.str: ld a,(hl)
or a
jr z,.done
cp 0x0D
jr z,.done
ld (de),a ; копир. символы в буфер строки
inc de
inc hl
jr .str
;
.symb: cp 'C' ; вывод одиночного символа
jr nz,.done
ld a,(hl)
pop hl
jr .loc2 ; символ в буфер
;
.done: pop hl
jp .loop

.fbuff: times 128 db 0 ; буфер строки "printf"

;[]=====================================[]
; Вывод в десятичном формате (32-bit)
; в буфер строки (рег."de")
; вход:
; hl = ст.разряд, hl'= мл.разряд
; de = буфер строки
IntToChar32:
exx
ld bc,0xCA00 ; 1.000.000.000
exx
ld bc,0x3B9A
exx
ld ix,tmp1
res 7,(ix+0)
call GetLen32
ld bc,0xE100 ; 100.000.000
exx
ld bc,0x05F5
exx
call GetLen32
ld bc,0x9680 ; 10.000.000
exx
ld bc,0x98
exx
call GetLen32
ld bc,0x4240 ; 1.000.000...9.999.999
exx
ld bc,0x0F
exx
call GetLen32
ld bc,0x86A0 ; 100.000...999.999
exx
ld bc,1
exx
call GetLen32
; вывод 16-bit (hl'= 0)
IntToChar16:
ld bc,10000 ; 10.000...99.999
exx
ld bc,0
exx
call GetLen32
ld bc,1000 ; 1.000..9.999
call GetLen16
DigitToChar:
ld bc,100 ; 100..999
call GetLen16
ld bc,10 ; 10..99
call GetLen16
ld a,l
add a,"0"
ld (de),a
ret

tmp1: db 0

GetLen32:
ld a,2Fh
or a
.loc1: inc a
sbc hl,bc
exx
sbc hl,bc
exx
jr nc,.loc1
add hl,bc
exx
adc hl,bc
exx
glen32: cp "0"
jr z,.loc1
set 7,(ix+0)
.loc1: bit 7,(ix+0)
ret z
ld (de),a
inc de
ret

GetLen16:
ld a,2Fh
or a
.loc1: inc a
sbc hl,bc
jr nc,.loc1
add hl,bc
jr glen32

;[]==============================[]
; Вывод в hex формате (16-bit)
; в буфер строки (рег."de")
; вход:
; hl = число
hex_hl: ld a,h
call .hex_a
ld a,l
; "a" в hex-формате
.hex_a: ld c,a
and 0xF0
rra
rra
rra
rra
call .loc1
ld a,c
and 0x0F
.loc1: cp 0x0A
sbc a,0x69
daa
ld (de),a ; символ в буфер строки
inc de
ret

> Извините, конечно, что встреваю.

Нам очень интересно услышать, новые идеи и свежий взгляд на проект. Политика компании всегда была направлена на максимальную открытость к различным пожеланиям по развитию.

> Так как популярность какой-либо аппаратной платформы в первую очередь определяется количеством и качеством софта, то, естественно, нужны предпосылки для его быстрой и эффективной разработки. Это, в первую очередь, стандарт операционной системы. Как я понял, в рамках Спринтера создается ОС Estex, и хотя я не в курсе ее архитектурных особенностей, будем считать, что этот компонет присутствует. Главный критерий - стандартный и удобный API. (Стандарты - это вообще полезная штука, дабы позволяет избежать дублирования, варения в собственном соку, неразберихи и пр.)

Изначально Sprinter имел BIOS со стандартизированным API, в которое входили функции различных низкоуровневых операций (чтение/запись секторов, вывод на текстовый экран, распределение памяти и т.п.)
Программы хранились в TRD-образах, на дискетах и винчестере.
Далее, при разработке ПО встал вопрос о полноценной работе с файловой системой. Нами к тому времени был разработам файловый менеджер работающий с дисками в формате MSDOS FAT. В его состав входил модуль работы с файловой системой (условно его можно назвать DSS0). На его основе мы начали разрабатывать свою дисковую операционную систему, были расширены файловые функции, добавился свой менеджер памяти совместимый с BIOS Memory Specification, была разработана спецификация на формат и загрузку приложений, а так же ряд других полезных функций. Затем была разработана спецификация на загрузку операционной системы и все необходимые загрузчики. Так появилась DSS1. Система получилась достаточно удачной, хотя и имела некоторые недостатки, но именно она была основной системой в течении нескольких лет. Система развивалась, исправлялись ошибки, добавлялись новые возможности. Последняя версия системы вышедшая в начале года - DSS1.60. Паралельно сейчас ведется работа над новым ядром дисковой подсистемы DSS2, которая и ляжет в основу операционной системы Estex.

> Далее - инструментарий разработки (компиляторы (Asm, C и т.д.) + стандартные библиотеки). Мне кажется ключевым моментом в данном случае являются стандартные библиотеки - совокупность API и его реализации охватывающая такие области, как менеджмент памяти, управление процессами, ввод-вывод, работа с ВУ. Я думаю, такая библиотека - первое, что нужно создать, дабы это будет базой для последующих разработок. Иначе можно получить то, что и было на обычном спектруме - кто в лес, кто по дрова - каждый пишет одни и те же функции для себя. В данном случае это будет непозволительной роскошью, так как времени не так уж и много, да и программистов тоже. Если что-то подобное уже реализовано - хорошо. То, что здесь предлагается (сбор полезных функций) это тоже неплохо, но, к сожалению, движется не в том ракурсе.

> Стандарты, стандарты и еще раз стандарты, хотя бы на базовую функциональность (API OS + API стандартной библиотеки) - это нужно сделать обязательно. И в первую очередь нужно формировать API - (в первом приближении - набор вызовов функций с определенными параметрами) (реализацию можно отложить на потом). Когда это будет реализовано, мне кажется, стоит говорить о чем-то высокоуровневом (сетевые взаимодействия, графический интерфейс (где собственно, тоже хорошо бы реализовать какой-то стандартный API), прикладные программы). Вот такие мои соображения.

Важность стандартизации мы осознали еще в самом начале и здесь многое уже сделано, получен богатый опыт, есть масса наработок и идей. Стандартных библиотек как таковых нет, но очень многое может заменить уже существующее API. Или же они могут быть разработаны за достаточно недолгий срок, что возможно удастся сделать в рамках фонда процедур. Основная проблема сейчас - время, поэтомы мы всегда рады людям которые подключаются к проекту помогая нам его развивать.

Denis Parinov
email: dp@petersplus.ru

; \0 - нуль (конец строки)
; \\ - символ \
; \' - угловая минута, апостроф, одиночная кавычка
; \" - угловая секунда, двойная кавычка
; \a - звонок (не работает)
; \b - backspace - шаг назад
; \n - новая строка
; \r - в начало строки
; \t - горизонтальная табуляция
; \v - вертикальная табуляция
; %% - символ %
; %c - произволный печатный символ
; %s - подстрока (адрес строки), может содержать всё контрольные коды
; %xb - hex байт (a...f)
; %xw - hex слово (a...f)
; %xl - hex длинное слово (a...f)
; %Xb - hex байт (A...F)
; %Xw - hex слово (A...F)
; %Xl - hex длинное слово (A...F)
; %ub - десятичный байт без знака
; %uw - десятичное слово без знака
; %ul - десятичное длинное слово без знака
; %db - десятичный байт со знаком
; %dw - десятичное слово со знаком
; %dl - десятичное длинное слово со знаком

Printf Push Hl
Printf_ Ld A,(Hl)
Inc Hl
Or A
Jr Nz,Printf_
Ex De,Hl
Pop Hl

__Printf Ld A,(Hl)
Inc Hl
Or A
Ret Z
Cp "\"
Jp Z,CtrlSymbol
Cp "%"
Jp Z,CtrlPrefix
Call OutputSymbl
Jp __Printf

CtrlSymbol Ld A,(Hl)
Inc Hl
Call CtrlSymbol_
Jp __Printf

CtrlSymbol_ Cp "\"
Jr Nz,CtrlSymbol0
Call OutputSymbl
Ret

CtrlSymbol0 Cp "n"
Jr Nz,CtrlSymbol1
Ld A,0x0D
Call OutputSymbl
Ld A,0x0A
Call OutputSymbl
Ret

CtrlSymbol1 Cp "t"
Jr Nz,CtrlSymbol2
Ld B,0x08
.CtrlSymbol Ld A,0x20
Call OutputSymbl
Djnz .CtrlSymbol
Ret

CtrlSymbol2 Cp 0x27
Jr Nz,CtrlSymbol3
Call OutputSymbl
Ret

CtrlSymbol3 Cp 0x22
Jr Nz,CtrlSymbol4
Call OutputSymbl
Ret

CtrlSymbol4 Cp "?"
Jr Nz,CtrlSymbol5
Call OutputSymbl
Ret

CtrlSymbol5 Cp "r"
Jr Nz,CtrlSymbol6
Ld A,0x0D
Call OutputSymbl
Ret

CtrlSymbol6 Cp "b"
Jr Nz,CtrlSymbol7
Push Bc
Push De
Push Hl
Ld Bc,0x0053
Rst 0x10
Ld A,E
Or A
Jr Z,.CtrlSymbol
Dec E
Ld Bc,0x0052
Rst 0x10
.CtrlSymbol Pop Hl
Pop De
Pop Bc
Ret

CtrlSymbol7 Cp "a"
Jr Nz,CtrlSymbol8
; Call Bell
Ret

CtrlSymbol8 Cp "0"
Jr Nz,CtrlSymbol9
Pop Af
Ret

CtrlSymbol9 Cp "v"
Ret Nz
Ld B,0x08
.CtrlSymbol Ld A,0x0A
Call OutputSymbl
Djnz .CtrlSymbol
Ret

CtrlPrefix Ld A,(Hl)
Inc Hl
Call CtrlPrefix_
Jp __Printf

CtrlPrefix_ Cp "%"
Jr Nz,CtrlPrefix0
Call OutputSymbl
Ret

CtrlPrefix0 Cp "c"
Jr Nz,CtrlPrefix1
Ld A,(De)
Inc De
Call OutputSymbl
Ret

CtrlPrefix1 Cp "s"
Jr Nz,CtrlPrefix2
Push Hl
Ex De,Hl
Ld E,(Hl)
Inc Hl
Ld D,(Hl)
Inc Hl
Ex De,Hl
Push De
Call Printf
Pop De
Pop Hl
Ret

CtrlPrefix2 Cp "x"
Jr Nz,CtrlPrefix3
Ld C,0x20
Ld A,(Hl)
Inc Hl
Cp "b"
Jr Nz,CtrlPrfx2_0
Call Byte2HEX
Inc De
Ret
CtrlPrfx2_0 Cp "w"
Jr nz,CtrlPrfx2_1
Call Word2HEX
Ret
CtrlPrfx2_1 Cp "l"
Jr Nz,CtrlPrfx2_2
Call Long2HEX
Ret
CtrlPrfx2_2 Dec Hl
Ret

CtrlPrefix3 Cp "X"
Jr Nz,CtrlPrefix4
Ld C,0x00
Ld A,(Hl)
Inc Hl
Cp "b"
Jr Nz,CtrlPrfx3_0
Call Byte2HEX
Inc De
Ret
CtrlPrfx3_0 Cp "w"
Jr nz,CtrlPrfx3_1
Call Word2HEX
Ret
CtrlPrfx3_1 Cp "l"
Jr Nz,CtrlPrfx3_2
Call Long2HEX
Ret
CtrlPrfx3_2 Dec Hl
Ret

CtrlPrefix4 Cp "d"
Jr Nz,CtrlPrefix5
Ld A,(Hl)
Inc Hl
Cp "b"
Jr Nz,CtrlPrfx4_0
Push Hl
Push De
Call Byte2DEC
Pop De
Inc De
Pop Hl
Ret
CtrlPrfx4_0 Cp "w"
Jr Nz,CtrlPrfx4_1
Push Hl
Push De
Call Word2DEC
Pop De
Inc De
Inc De
Pop Hl
Ret
CtrlPrfx4_1 Cp "l"
Jr Nz,CtrlPrfx4_2
Push Hl
Push De
Call Long2DEC
Pop De
Ld Hl,0x0004
Add Hl,De
Ex De,Hl
Pop Hl
Ret
CtrlPrfx4_2 Dec Hl
Ret

CtrlPrefix5 Cp "u"
Jr Nz,CtrlPrefix6
Ld A,(Hl)
Inc Hl
Cp "b"
Jr Nz,CtrlPrfx5_0
Push Hl
Push De
Call uByte2DEC
Pop De
Inc De
Pop Hl
Ret
CtrlPrfx5_0 Cp "w"
Jr Nz,CtrlPrfx5_1
Push Hl
Push De
Call uWord2DEC
Pop De
Inc De
Inc De
Pop Hl
Ret
CtrlPrfx5_1 Cp "l"
Jr Nz,CtrlPrfx5_2
Push Hl
Push De
Call uLong2DEC
Pop De
Ld Hl,0x0004
Add Hl,De
Ex De,Hl
Pop Hl
Ret
CtrlPrfx5_2 Dec Hl
Ret
CtrlPrefix6
Ret

Long2HEX Push De
Call Word2HEX
Pop De
Inc De
Inc De
Call Word2HEX
Ret
Word2HEX Inc De
Call Byte2HEX
Dec De
Call Byte2HEX
Inc De
Inc De
Ret
Byte2HEX Ld A,(De)
Push Af
And 0xF0
Rrca
Rrca
Rrca
Rrca
Call .Byte2HEX
Pop Af
.Byte2HEX And 0x0F
Cp 0x0A
Sbc A,0x69
Daa
Or C
Call OutputSymbl
Ret

Long2DEC Ld IX,Num2DEClong
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
Ld H,A
Push Hl
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
Bit 7,A
Jr Z,uLong2DEC_
Res 7,A
Push Af
Ld A,"-"
Call OutputSymbl
Pop Af
Jr uLong2DEC_

Word2DEC Ld IX,Num2DECword
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
Bit 7,A
Jr Z,uWord2DEC_
Res 7,A
Push Af
Ld A,"-"
Call OutputSymbl
Pop Af
Jr uWord2DEC_

Byte2DEC Ld IX,Num2DECbyte
Ld H,0x00
Ld A,(De)
Bit 7,A
Jr Z,uByte2DEC_
Res 7,A
Push Af
Ld A,"-"
Call OutputSymbl
Pop Af
Jr uByte2DEC_

uLong2DEC Ld IX,Num2DEClong
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
Ld H,A
Inc De
Push Hl
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
uLong2DEC_ Ld H,A
Exx
Pop Hl
Exx
Ld B,0x0A
uLong2DEC0 Push Bc
Call uByte2DEC0
Pop Bc
Djnz uLong2DEC0
Ret

uWord2DEC Ld IX,Num2DECword
Ld A,(De)
Ld L,A
Inc De
Ld A,(De)
uWord2DEC_ Ld H,A
Exx
Ld Hl,0x0000
Ld B,0x05
Jp uLong2DEC0

uByte2DEC Ld IX,Num2DECbyte
Ld H,0x00
Ld A,(De)
uByte2DEC_ Ld L,A
Exx
Ld Hl,0x0000
Call uByte2DEC0
Call uByte2DEC0
uByte2DEC0 Ld A,0x2F
Ld E,(IX+00)
Inc IX
Ld D,(IX+00)
Inc IX
Exx
Ld E,(IX+00)
Inc IX
Ld D,(IX+00)
Inc IX
And A
.uByte2DEC Inc A
Sbc Hl,De
Exx
Sbc Hl,De
Exx
Jr Nc,.uByte2DEC
Add Hl,De
Exx
Adc Hl,De

OutputSymbl Push Hl
Push De
Push Bc
Ld Bc,0x005B
Rst 0x10
Pop Bc
Pop De
Pop Hl
Ret

Num2DEClong dw 0x3B9A,0xCA00
dw 0x05F5,0xE100
dw 0x0098,0x9680
dw 0x000F,0x4240
dw 0x0001,0x86A0
Num2DECword dw 0x0000,0x2710
dw 0x0000,0x03E8
Num2DECbyte dw 0x0000,0x0064
dw 0x0000,0x000A
dw 0x0000,0x0001

; Подсчет CRC блока
;
; вход: de - начало блока
; bc - длина блока
; выход: de - сигнатура блока
crc: push af
push hl
; загоняем в "bc" конец блока
ld a,e
add a,c
ld c,a
ld a,d
adc a,b
ld b,a
sbc hl,hl ; обнуляем "hl"
crc1: push bc
crc2: ld a,(de)
scf
rra
ld b,a
crc3: ld a,l
rla
and 81h
xor h
add hl,hl
and 89h
jp pe,crc4
inc l
crc4: rr b
jr nz,crc3
inc de
ld a,e
sub c
jr nz,crc2
pop bc
or d
sub b
jr nz,crc1
ex de,hl
pop hl
pop af
ret