Граф.редактор Picture Composer I для УК-НЦ.

**S_V_B** · 19.02.2020, 17:06

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

А тебе и не надо, ты же на МАКРО-11 пишешь )

Я на MACRO не пишу, единственное Макро у меня это .EXIT

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

Шаг первый = готовим спрайты в твоём редакторе и сохраняем в формате МАКРО-11 для УК-НЦ,

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

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

, а поскольку у тебя уже "полуготовый" редактор...

1. Редактор делается под мой проект и как ты понимаешь будет делаться в первую очередь.
2. Чтобы отладить библиотеку мне нужно будет соприкасаться с паскалем, а я его на дух не переношу. +еще разобраться как эта балалайка на УКНЦ работает.
3. Все равно нужно будет придумывать примитивный формат хранения спрайтов для взаимодействия с паскалем (все не так просто как ты описал.. BABA, MUZIK

)
4. Библиотека должна содержать кучу низкоуровневых функций (и это уже целый проект) в котором паскаль может оказаться лишним
В итоге проще будет в винде написать что-то вроде GameMaker`а который на выходе будет давать готовый SAV файл.

**Advertiser** · 19.02.2020, 17:06

**S_V_B** · 19.02.2020, 17:52

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

Я про PCX сказал, если что - как читаешь я не понимаю? )))

PCX-это пол часа работы.

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

никто не мешает этот движок использовать в программах на ассемблере...
что значит лишним! ты гонишь, тебе по приколу? Ты там чего - прошлогоднюю яму раскопал и накурился???

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

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

да на фига он нужен, нужен ПО для натива, винда идёт лесом )

Учи ассемблер.

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

Пользуйся, ты же сам все знаешь как в МАКРО прикрутить:
(делов-то)

Код:

;------------------------------------------------------------------------------------------------------------------
; 	R0, R1 - рабочие регистры
; 	R2 - буфер для маски стирания спрайта
; 	R3 - счетчик столбцов
; 	R4 - сдвиг
; 	R5 - указатель на спрайт
;------------------------------------------------------------------------------------------------------------------
PTSPR:
	MOV	R0,-(SP)
	MOV	R1,-(SP)
	MOV	R2,-(SP)
1$:
4$:	CALL	XYTOSC   ; R3 адрес видеобуф. R4.. сдвиг
	MOV	R3, @#176640
	MOV	(R5)+,R0; размеры спрайта
	CLR	R1
	BISB	R0,R1           ; ширина спр
	BIC	#177400, R1
	SWAB	R0
	BIC	#177400, R0	;высота спр
	MOV	R3,(R2)+	;адрес для стирания
	MOV	R1,(R2)+	;ШИРИНА
	MOV	R0,(R2)+	;

	MOV	R1,R3
	MOV	R0,3$+2
	MOV	R4,R0
	ADD	R0,R0
	ADD	#MASK,R0
	MOV	(R0),5$+2
22$:	MOV	R3,-(SP)			; Сохранить R3 на стеке
	MOV	@#176640,-(SP)			; Сохранить регистр адреса планов 1,2 на стеке
11$:	
	CLR	R0				; R0 = 0
	MOV	(R5)+,R1			; (R5)+ -> R1
	ASHC	R4,R0				; R0.R1 << R4
	BIS	R0,R1				; R1 = (R5)+ rol R4
	MOV	R1,R0				;
5$:	BIC	#7417,R0			; Оставить старшие части сдвинутых байт  0x0f0f
	BIS	R0,@#176642			; (план 1,2) = (план 1,2) | R0
	MOV	R0,(R2)+			; R0 -> (R2)+
	INC	@#176640			; Прирастить регистр адреса планов 1,2
;	XOR	R0,R1				; Оставить младшие части сдвинутых байт
	BIC	R0,R1				; Оставить младшие части сдвинутых байт
	SWAB	R1
	BIS	R1,@#176642			; (план 1,2) = (план 1,2) | R1
	MOV	R1,(R2)+			; R1 -> (R2)+
	SOB	R3,11$				; Цикл на R3 итераций
	MOV	(SP)+,@#176640			
	ADD	#80.,@#176640
	MOV	(SP)+,R3
3$:	DEC	#0
 	BNE	22$;        SOB	R2,22$
6$:;	MOV	(SP)+,R5
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	RETURN
;-------------------------------------------------------------------
MASK:  
	.WORD	^B0000000000000000
	.WORD	^B0000000100000001
	.WORD	^B0000001100000011
	.WORD	^B0000011100000111
	.WORD	^B0000111100001111
	.WORD	^B0001111100011111
	.WORD	^B0011111100111111
	.WORD	^B0111111101111111
	.WORD	^B1111111111111111
	
;-------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------------------------------
; Подпрограмма: преобразовать координаты X,Y в адрес на экране R3 и смещение R4
;     Вход:  R3 = Y  R4=X)
;     Выход: R3 = адрес на экране, R4 = смещение 0..7
;----------------------------------------------------------------------------------------------------------------------------
XYTOSC:
	MOV	R0,-(SP)
	MOV	R2,-(SP)
	MOV	@#SCRADR,R0  ;начало видеопамяти
2$:	MOV	R4, R2		; берём X
	ASR	R2
	ASR	R2
	ASR	R2		; получаем номер байта в строке
	ADD	R2, R0		; получили готовый адрес на экране
	BIC	#177770, R4	; оставляем только смещение 0..7
	MOV	R3,R2
	BIC	#177400, R3	; байт Y теперь в нижнем байте R3
	 MUL	#80.,R2
	ADD	R0,R3
1$:
	MOV	(SP)+,R2
	MOV	(SP)+,R0
	RETURN
;----------------------------------------------------------------------------------------------------------------------------

**hobot** · 20.02.2020, 09:31

@S_V_B , шикарная шпора, которая вряд ли будет интересна только мне, ведь УК-НЦ очень мощная для
программирования как хобби, "домашнего" система, а обладателей машинки и пользователей эмулятора
за последнее время выросло. Поэтому я бы попросил модераторов, твой пост со шпаргалкой перенести
в тему https://zx-pk.ru/threads/15587-progr...uknts-kak.html

Тут лучше придерживаться обсуждения нативного редактора и картинок с ним и форматом PCX связанных.
И по поводу ассемблера и паскаля

можно не читать

1. Напомню всем кто не безразличен к Паскалю, что есть тема соответствующая
https://zx-pk.ru/threads/20444-pasca...knts-dvk).html
2. На уровне хобби ПКМ каждый волен заниматься тем, от чего испытывает удовольствие,
к чему лежит душа, мозг и руки. Мне низкоуровневое программирование никогда не
давалось, вся эта регистровая математика (ощущение как будто кушаешь бумагу), но
даже я впечатлён обаянием Макро-11, но не сложные подпрограммы на асме как
вставки в программы на паскале мой предел.
3. Ты абсолютно прав! Мне нужен "чёрный ящик" со входящими параметрами для вывода
спрайтов : режим вывода на экран, экранные координаты левого верхнего угла спрайта,
номер спрайта в таблице (перечне). И что то типа INITа какого то там в самом начале и
возможно ещё что то по мелочи (типа гашение курсора, управление экраном(цвета,разрешение,очистка),
в утерянном движке были ещё такие мощные вещи, как драйвер клавиатуры, переключение страниц,
управление палитрой экрана (действовала на весь экран), проигрывание музыки из музреда через бипер,
это всё есть в UKLOAD, но это неправильное решение. И к тому движку прилагался 4-х цветный редактор спрайтов с трансляцией спрайтов в ассемблер с глобальной меткой (под схему описанную тут на форуме многократно). Мне просто нравиться паскалить, и допустим какой-то микромирок создавать, глядеть как
псевдорандомно он живёт своей жизнью, попутно (возможно) какой-то незамысловатый сюжетец рассказать
игроку, а не считать полукадры и прочую муть (мне это не интересно, я не программист, это не моё).
Вот простой пример: если я закрою глаза и начну обдумывать часть программы на паскале, я буду довольно
чётко манипулировать операторами добиваясь определённого изящества и оптимизации, в плане ассемблера
ничего подобного (чёткого понимания всех возможностей куда чего где как сдвинуть передвинуть - кошмар!)
конечно у меня нет. Но у каждого своё хобби же!

[свернуть]

По поводу твоего проекта касаемо редактора - редактор спрайтов для УК-НЦ очень нужен!
Именно такой, который в асм картинки сохранит...

**S_V_B** · 20.02.2020, 11:38

Вьювер PCX.SAV:

файл:
https://yadi.sk/d/Uogy7-ozVb0L8w

файл:
https://yadi.sk/d/9bPKSv6s9xrPNw

файл:
https://yadi.sk/d/IUTACk9MClbdHg

**S_V_B** · 20.02.2020, 17:41

На реале смотрится ещё лучше

**hobot** · 20.02.2020, 23:42

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

На реале смотрится ещё лучше

так сделал бы фотку - раз красиво - реального экранчика

**S_V_B** · 21.02.2020, 06:17

Под вендой не пытайся открывать, только на УКНЦ.

**hobot** · 21.02.2020, 20:23

Код:

;    Pcx8
    .IDENT    /V01.01/
    .TITLE    PCX8
DRSPAC=END
NULBLK=DRSPAC+4000
BUF=NULBLK+1000
MEMORY=BUF+<1000*BLKS>

BLKS=80.
BS=BLKS+1
    .ASECT
    .MCALL    .EXIT,.PRINT,.PURGE,.READW,.CSIGEN,.SERR,.CSTAT,.TTYIN,.TTYOUT
    .MCALL    .LOCK,.SETTOP
    .=40
    BEG,1000
    .=1000
NSCR:    100000
S0$:    .ASCIZ    '?PCX-'<200>
S1$:    .ASCIZ    'U-Error reading file'
S2$:    .ASCIZ    'Viewer PCX-files, 8 colors.'
S3$:    .ASCIZ    'F-Not enough memory in CP RAM'
S4$:    .ASCIZ    'I-Invalid PCX-format'
    .EVEN
EXTS$:    .RAD50    /PCXPCXPCXPCX/
BLOK$:    .BLKW    10
    .ENABL    LSB
BEG:    .LOCK
    .SETTOP    #MEMORY
    CMP    %0,#MEMORY
    BHIS    BEGIN
    .PRINT    #S0$
    .PRINT    #S3$
    .EXIT
BEGIN:    .PRINT    #S2$
    .SERR
    .CSIGEN    #DRSPAC,#EXTS$
    BCC    1$
    .EXIT
1$:    .CSTAT    #BLOK$,#3,#BLOK$
    BCS    BEGIN
    .TTYOUT    #14
    .READW    #BLOK$,#3,#NULBLK,#BS*400,#0
    BCC    3$
ER$:    .PRINT    #S0$
    .PRINT    #S1$
    BR    BEGIN
3$:    122737,12,NULBLK
    BEQ    77$
    .PRINT    #S0$
    .PRINT    #S4$
    BR    BEGIN
77$:    12727,BLKS+1
BLK$:    ,12727,NULBLK+200
REG5$:    ,5001,5002
6$:    4737,RBYTE$,10027
4$:    ,105100,32700,300
    BEQ    7$
    12703,1,13700,4$
    BR    8$
7$:    13703,4$,42703,177700,4737,RBYTE$
8$:    42700,177400,10146,10001,5000,71027,32.,12601
9$:    4737,PST$,5201,20137,NULBLK+102,1002,5202,5001
    SOB    %3,9$
    20237,NULBLK+12
    BLOS    6$
    .TTYIN    %0
    BR    BEGIN
    .DSABL    LSB

    .ENABL    LSB
RBYTE$:    10146,10246,10346,10446,10546,13705,REG5$,20527,BUF+<BLKS*1000>
    BHIS    1$
3$:    112500,42700,177400
    BR    100$
1$:    12705,BUF
    .READW    #BLOK$,#3,#BUF,#BLKS*400,BLK$
    BCC    2$
    JMP    ER$
2$:    62737,BLKS,BLK$
    BR    3$
100$:    10537,REG5$,12605,12604,12603,12602,12601,207

MP1$:    10000,32,77500,PROG$,PROGE$-PROG$
MP2$:    14000,32,77500
PROG$:    12737
AD$:    ,177010,52737
MASK$:    ,177024,12737
COLOR$:    ,177016,12737,GOT$/2,177010,5037,177014,207,
PROGE$:
PST$:    10046,10146,10246,10346,10446,10546,10037,COLOR$,5000,71027,10
    10203,70327,120,60003,52703,100000,10337,AD$,12700,1,5701,1402
    6300,77102,10037,MASK$,12700,MP1$,10737,GOT$,4737,CH$,300,4737,CH$
    12700,377,4737,CH$,4737,CH$,12700,MP2$,4737,CH$,300,4737,CH$
    12700,377,4737,CH$,4737,CH$,5727
GOT$:    ,1375,12605,12604,12603,12602,12601,12600,207
CH$:    105737,176674,100375,110037,176676,207
END:    
.END

Код:

;    Pcx64
    .IDENT    /V01.01/
    .TITLE    PCX64
DRSPAC=END
NULBLK=DRSPAC+4000
BUF=NULBLK+1000
MEMORY=BUF+<1000*BLKS>

BLKS=80.
BS=BLKS+1
    .ASECT
    .MCALL    .EXIT,.PRINT,.PURGE,.READW,.CSIGEN,.SERR,.CSTAT,.TTYIN,.TTYOUT
    .MCALL    .LOCK,.SETTOP
    .=40
    BEG,1000
    .=1000
NSCR:    100000
S0$:    .ASCIZ    '?PCX-'<200>
S1$:    .ASCIZ    'U-Error reading file'
S2$:    .ASCIZ    'Viewer PCX-files, 64 colors.8*8'
S3$:    .ASCIZ    'F-Not enough memory in CP RAM'
S4$:    .ASCIZ    'I-Invalid PCX-format'
    .EVEN
EXTS$:    .RAD50    /PCXPCXPCXPCX/
BLOK$:    .BLKW    10
    .ENABL    LSB
BEG:    .LOCK
    .SETTOP    #MEMORY
    CMP    %0,#MEMORY
    BHIS    BEGIN
    .PRINT    #S0$
    .PRINT    #S3$
    .EXIT
BEGIN:    .PRINT    #S2$
    .SERR
    .CSIGEN    #DRSPAC,#EXTS$
    BCC    1$
    .EXIT
1$:    .CSTAT    #BLOK$,#3,#BLOK$
    BCS    BEGIN
    .TTYOUT    #14
    .READW    #BLOK$,#3,#NULBLK,#BS*400,#0
    BCC    3$
ER$:    .PRINT    #S0$
    .PRINT    #S1$
    BR    BEGIN
3$:    122737,12,NULBLK
    BEQ    77$
    .PRINT    #S0$
    .PRINT    #S4$
    BR    BEGIN
77$:    12727,BLKS+1
BLK$:    ,12727,NULBLK+200
REG5$:    ,5001,5002
6$:    4737,RBYTE$,10027
4$:    ,105100,32700,300
    BEQ    7$
    12703,1,13700,4$
    BR    8$
7$:    13703,4$,42703,177700,4737,RBYTE$
8$:    42700,177400,10146,10001,5000,71027,4.,12601
9$:    4737,PST$,5201,20137,NULBLK+102,1002,5202,5001
    SOB    %3,9$
    20237,NULBLK+12
    BLOS    6$
    .TTYIN    %0
    BR    BEGIN
    .DSABL    LSB

    .ENABL    LSB
RBYTE$:    10146,10246,10346,10446,10546,13705,REG5$,20527,BUF+<BLKS*1000>
    BHIS    1$
3$:    112500,42700,177400
    BR    100$
1$:    12705,BUF
    .READW    #BLOK$,#3,#BUF,#BLKS*400,BLK$
    BCC    2$
    JMP    ER$
2$:    62737,BLKS,BLK$
    BR    3$
100$:    10537,REG5$,12605,12604,12603,12602,12601,207

MP1$:    10000,32,77500,PROG$,PROGE$-PROG$
MP2$:    14000,32,77500
PROG$:    12737
AD$:    ,177010,52737
MASK$:    ,177024,12737
COLOR$:    ,177016,12737,GOT$/2,177010,5037,177014,207,
PROGE$:
PSET:    10046,10146,10246,10346,10446,10546,10037,COLOR$,5000,71027,10
    10203,70327,120,60003,52703,100000,10337,AD$,12700,1,5701,1402
    6300,77102,10037,MASK$,12700,MP1$,10737,GOT$,4737,CH$,300,4737,CH$
    12700,377,4737,CH$,4737,CH$,12700,MP2$,4737,CH$,300,4737,CH$
    12700,377,4737,CH$,4737,CH$,5727
GOT$:    ,1375,12605,12604,12603,12602,12601,12600,207
CH$:    105737,176674,100375,110037,176676,207
MAS$:    ,,,2,2
PST$:    10046,10146,10246,10346,10446,10546,6301,6302,12705,MAS$,10546,10025
    10125,10225,12605,4737,LINEBF,12605,12604,12603,12602,12601,12600,207
MPSET:    10046,10046,72027,-3,42700,177770,300,52600,42700,374,32701,1,1401,300
    CALL    PSET
    12600,207
    .ENABL    LSB
LINEBF:    11500,16504,10,16502,4
1$:    16503,6,16501,2
2$:    CALL    MPSET
    5201
    SOB    %3,2$
    5202
    SOB    %4,1$
3$:    207
    .DSABL    LSB
END:
    .END

Код:

                                   ЛАT                                          
                                                                     
WD0>R PCX8                                                                      
Viewer PCX-files, 8 colors.                                                     
*                                                                               
WD0>R PCX64                                                                     
Viewer PCX-files, 64 colors.8*8                                                 
*                                                                               
RT-11SJ (S) V05.00 [WD0]

**S_V_B** · 21.02.2020, 20:26

Бред какой-то....

**Hunta** · 21.02.2020, 20:28

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

Код:

Эт чё - недодезассемблировали? сил не хватило?

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

Или типа крутая защита от копирования?

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

User Tag List

Тема: Граф.редактор Picture Composer I для УК-НЦ.

Опции темы

Отображение

можно не читать

Этот пользователь поблагодарил hobot за это полезное сообщение:

Этот пользователь поблагодарил S_V_B за это полезное сообщение:

Этот пользователь поблагодарил S_V_B за это полезное сообщение:

(PCX8, PCX64).MAC

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

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

Похожие темы

Какой есть софт под граф.режим 512*192

multiArtist - Граф. редактор на ПЦ для мультигигаскрина

Редактор для GS

Муз. редактор

Редактор

Ваши права