SwapSet

**Dart Alver** · 19.09.2025, 00:24

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

2. Суммарный overhead
Параметр Прерывание SwapSet
Частота вызова 50 раз/сек (кадр) или 1000+ раз/сек (таймер) Несколько раз за программу
Суммарные траты 7 500 тактов/сек (50 Гц) или 150 000 тактов/сек (1 кГц) ~1000 тактов за всё время работы

Здесь всё очевидно: прерывания стабильно «съедают» тысячи тактов каждую секунду, SwapSet же — копейки за весь прогон программы.

Господи, ну что за глупости вы пишете!

Ну во первых Прерывание != сохранение+смена регистров. Обработка прерывания это цельный набор программ обслуживающий периферию и также могущий дополнительно выполнять какие-либо специфические задачи прописанные программистом. И оно запросто может утянуть и 2000 тактов и больше за 1 фрейм и это нормально (Может и меньше конечно, это что подвешено и для чего). Но суть то не в этом, а в том что сравнивать обработку прерывания с локальным сохранением регистров как минимум некорректно.

А во вторых - что значит несколько раз за программу ? Как это вообще согласуется с :

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

4. Цель SwapSet
SwapSet — не для tight loop и не для экономии каждого такта. Его задача:
• изолировать функции друг от друга;
• дать каждой задаче «свои регистры»;
• сделать код предсказуемым и модульным.

Цена в 192 такта оправдана, если цель — ясность и надёжность архитектуры.

Т.е. скажем в небольшой ассемблерной програмке из 30-40 процедур SwapSet будет использовать максимум штуки 3 и то может быть раза 2 и то врят-ли ? Тогда о какой изоляции, модульности, предсказуемости кода вообще может идти речь, если во всех остальных функциях будут теже самые попы и пуши ?
Чтобы ваша так сказать "цель" выполнялась, больше половины процедур должны задействовать swapset, иначе нет смысла огород вообще городить.

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

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

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

А про умение писать программы напомнило: "Чукча не ~~читатель~~ программист - чукча ~~писатель~~ идеолог программирования"

**Advertiser** · 19.09.2025, 00:24

**jim** · 20.09.2025, 12:22

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

Давай, в качестве доказательства работы твоего гениального метода, ты напишешь простейший "Hello, world" на асме, без использования функций из пзу.

Сообщение от Dart Alver

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

А про умение писать программы напомнило: "Чукча не читатель программист - чукча писатель идеолог программирования"

Наивная реализация Hello World

Код:

	org	0x8000

	ld	hl,0x4000
	ld	(hl),l
	ld	de,0x4001
	ld	bc,0x7ff
	ldir

//H
	ld	hl,0x4100
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x7e
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
//E
	ld	hl,0x4101
	ld	(hl),0x7E
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x7e
//L
	ld	hl,0x4102
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x7e
//L
	ld	hl,0x4103
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x7e
//O
	ld	hl,0x4104
	ld	(hl),0x3c
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x3c
//W
	ld	hl,0x4106
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x5a
	inc	h
	ld	(hl),0x24
//O
	ld	hl,0x4107
	ld	(hl),0x3c
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x3c
//R
	ld	hl,0x4108
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x44
	inc	h
	ld	(hl),0x42
//L
	ld	hl,0x4109
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x40
	inc	h
	ld	(hl),0x7e
//D
	ld	hl,0x410a
	ld	(hl),0x78
	inc	h
	ld	(hl),0x44
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x42
	inc	h
	ld	(hl),0x44
	inc	h
	ld	(hl),0x78
//!
	ld	hl,0x410b
	ld	(hl),0x10
	inc	h
	ld	(hl),0x10
	inc	h
	ld	(hl),0x10
	inc	h
	ld	(hl),0x10
	inc	h
	inc	h
	ld	(hl),0x10
//
	ld	hl,0x400c
	ld	(hl),0x38
	inc	h
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x54
	inc	h
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x44
	inc	h
	ld	(hl),0x6c
	inc	h
	ld	(hl),0x7c
	inc	h
	ld	(hl),0x38
	ret

**Lethargeek** · 20.09.2025, 14:18

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

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

перевод: "не умею в макросы, и поэтому любой развёрнутый код нечитаем и тяжело поддерживается, адназначна!"

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

Не вижу смысла программировать в таком стиле.

а хто видит?

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

Компьютеры созданы для людей а не для процессоров.

для решения задач они созданы

**Hunta** · 20.09.2025, 15:21

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

умею в макросы

Код:

  PROCEDURE MULBLK
  BEGIN
    LET R0     := BLKBEG
    LET R2     := CAPTR
    LET R3     := ACTCNT

    THRU R3					; blocks count

      ; INIT
      LET R4 := (R2)				; block words count
      IF RESULT IS NE THEN
        LET R5 := 2(R2)				; first word command pointer
        THRU R4
          LET (R0)+ := (R5)+			; copy next block
        END
      ELSE
        LET (R0)+ := #NOP
      END

      IF APHASE NE #0				; if not init calculating

        ; ACTION
        LET R4 := 4(R2)
        IF RESULT IS NE THEN
          LET R5 := 6(R2)			; first word command pointer
          THRU R4
            LET (R0)+ := (R5)+			; copy next block
          END
        END

      END

    END

    LET (R0)+ := (PC) 				; and return at end
    RETURN
  END MULBLK

Язык ассемблера + макросы. Транслируется стандартным макросассемблером PDP-11

**ZXPIRATE** · 20.09.2025, 16:51

А где же твой гениальный метод swapset ? что, и без него может программа работать?

**jim** · 21.09.2025, 11:56

Just for those who are interested!
Bots (Haters), please do not disturb!!!

Код:

////	ExtSwapSet.asm
//	v.2.0
//	9/21/2025
//
//	Needs 8 bytes per structure:
//
//	RegSet	dw	0	//AF
//		dw	0	//BC
//		dw	0	//DE
//		dw	0	//HL
//	End
//
//	The CurrentSet variable must be initialized
//	prior to first use for the mechanism to function correctly.
//

InitSwapSet
	ld	ix,RegSet0+8
	ld	(CurrentSet),ix
	ld	ix,RegSet0

//in ix- register set address

SwitchContext
SwapSet	di
	ld	(StoreSP),sp
//SaveSet
	ld	sp,(CurrentSet)	// Current Set StackEnd
	push	hl
	push	de
	push	bc
	push	af
//LoadSet
	ld	sp,ix		//Address New Set
	pop	af
	pop	bc
	pop	de
	pop	hl
	ld	(CurrentSet),sp

	ld	sp,(StoreSP)
	ei
	ret

//------------------------------------------------

SwapSet0	ld	ix,RegSet0
	jr	SwapSet

SwapSet1	ld	ix,RegSet1
	jr	SwapSet

SwapSet2	ld	ix,RegSet2
	jr	SwapSet

SwapSet3	ld	ix,RegSet3
	jr	SwapSet


//------------------------------------------------
//Setters:

PutA	ld	(ix+1),a
	ret

PutBC	ld	(ix+2),c
	ld	(ix+3),b
	ret

PutDE	ld	(ix+4),e
	ld	(ix+5),d
	ret

PutHL	ld	(ix+6),l
	ld	(ix+7),h
	ret

//---------------------------------------
	MACRO	Put_A
	ld	(ix+1),a
	ENDM

	MACRO	Put_B
	ld	(ix+3),b
	ENDM

	MACRO	Put_C
	ld	(ix+2),c
	ENDM

	MACRO	Put_D
	ld	(ix+5),d
	ENDM

	MACRO	Put_E
	ld	(ix+4),e
	ENDM

	MACRO	Put_H
	ld	(ix+7),h
	ENDM

	MACRO	Put_L
	ld	(ix+6),l
	ENDM

	MACRO	Put_BC
	ld	(ix+3),b
	ld	(ix+2),c
	ENDM

	MACRO	Put_DE
	ld	(ix+5),d
	ld	(ix+4),e
	ENDM

	MACRO	Put_HL
	ld	(ix+7),h
	ld	(ix+6),l
	ENDM

//---------------------------------------

//Getters:

GetA	ld	a,(ix+1)
	ret

GetBC	ld	c,(ix+2)
	ld	b,(ix+3)
	ret

GetDE	ld	e,(ix+4)
	ld	d,(ix+5)
	ret

GetHL	ld	l,(ix+6)
	ld	h,(ix+7)
	ret
//---------------------------------------

	MACRO	Get_A
	ld	a,(ix+1)
	ENDM

	MACRO	Get_B
	ld	b,(ix+3)
	ENDM

	MACRO	Get_C
	ld	c,(ix+2)
	ENDM

	MACRO	Get_D
	ld	d,(ix+5)
	ENDM

	MACRO	Get_E
	ld	e,(ix+4)
	ENDM

	MACRO	Get_H
	ld	h,(ix+7)
	ENDM

	MACRO	Get_L
	ld	l,(ix+6)
	ENDM

	MACRO	Get_BC
	ld	b,(ix+3)
	ld	c,(ix+2)
	ENDM

	MACRO	Get_DE
	ld	d,(ix+5)
	ld	e,(ix+4)
	ENDM

	MACRO	Get_HL
	ld	h,(ix+7)
	ld	l,(ix+6)
	ENDM

//---------------------------------------
Init
SaveSet	ld	(ix+0),0
	ld	(ix+1),a
	ld	(ix+2),c
	ld	(ix+3),b
	ld	(ix+4),e
	ld	(ix+5),d
	ld	(ix+6),l
	ld	(ix+7),h
	ret
//---------------------------------------
Return
LoadSet	di
	ld	(StoreSP),sp
	ld	sp,ix
	pop	af
	pop	bc
	pop	de
	pop	hl
	ld	sp,(StoreSP)
	ei
	ret

Return2
LoadSet2	ld	a,(ix+1)
	ld	c,(ix+2)
	ld	b,(ix+3)
	ld	e,(ix+4)
	ld	d,(ix+5)
	ld	l,(ix+6)
	ld	h,(ix+7)
	ret

StoreSP	dw	0
CurrentSet	dw	RegSet0+8

//---------------------------------------
RegSet0	dw	0	//AF
	dw	0	//BC
	dw	0	//DE
	dw	0	//HL

RegSet1	ds	8
RegSet2	ds	8
RegSet3	ds	8

Код:

	org	0x8000

	jp	main

	include	"conio32.asm"
	include	"math.asm"
	include	"ExtSwapSet.asm"
fnt	incbin	"slim.fnt"

//Isolated putch:

IPutch	push	af
	push	bc
	push	de
	push	hl
	call	putch
	pop	hl
	pop	de
	pop	bc
	pop	af
	ret


//---------------------------------------

main	ld	hl,fnt
	call	setfont
	ld	a,0x07
	call	setcolor
	call	clrscr


	ld	a,"A"
	ld	b,"B"
	ld	c,"C"
	ld	d,"D"
	ld	e,"E"
	ld	h,"H"
	ld	l,"L"
	ld	ix,TestSet1
	call	SaveSet

	ld	a,"0"
	ld	b,"1"
	ld	c,"2"
	ld	d,"3"
	ld	e,"4"
	ld	h,"5"
	ld	l,"6"
	ld	ix,TestSet2
	call	SaveSet

//Print Registers
//Classical solution:

//A
	call	IPutch
//B
	ld	a,b
	call	IPutch
//C
	ld	a,c
	call	IPutch
//D
	ld	a,d
	call	IPutch
//E
	ld	a,e
	call	IPutch
//H
	ld	a,h
	call	IPutch
//L
	ld	a,l
	call	IPutch
	call	putcr


//Print Registers
//SwapSet method:

	ld	ix,TestSet1
//A
	call	LoadSet
	call	putch
//B
	call	LoadSet
	ld	a,b
	call	putch
//C
	call	LoadSet
	ld	a,c
	call	putch
//D
	call	LoadSet
	ld	a,d
	call	putch
//E
	call	LoadSet
	ld	a,e
	call	putch
//H
	call	LoadSet
	ld	a,h
	call	putch
//L
	call	LoadSet
	ld	a,l
	call	putch
	call	putcr


	ld	ix,TestSet2
	call	LoadSet


//Print Registers
//Using Getters:

	ld	ix,TestSet1
//A
	call	GetA
	call	putch
//B
	call	GetBC
	ld	a,b
	call	putch
//C
	call	GetBC
	ld	a,c
	call	putch
//D
	call	GetDE
	ld	a,d
	call	putch
//E
	call	GetDE
	ld	a,e
	call	putch
//H
	call	GetHL
	ld	a,h
	call	putch
//L
	call	GetHL
	ld	a,l
	call	putch
	call	putcr

//Print Registers
//Using Macro for Getters:

	ld	ix,TestSet2
//A
	Get_A
	call	putch
//B
	Get_B
	ld	a,b
	call	putch
//C
	Get_C
	ld	a,c
	call	putch
//D
	Get_D
	ld	a,d
	call	putch
//E
	Get_E
	ld	a,e
	call	putch
//H
	Get_H
	ld	a,h
	call	putch
//L
	Get_L
	ld	a,l
	call	putch
	call	putcr

	ret


//Sets
TestSet1	ds	8
TestSet2	ds	8

**jim** · 21.09.2025, 15:37

Код:

	org	0x8000

	jp	main

	include	"conio32.asm"
	include	"math.asm"
	include	"ExtSwapSet.asm"
fnt	incbin	"slim.fnt"

//---------------------------------------

main	ld	hl,fnt
	call	setfont
	ld	a,0x07
	call	setcolor
	call	clrscr


	ld	a,"H"
	ld	b,"E"
	ld	c,"L"
	ld	d,"L"
	ld	e,"O"
	ld	ix,TestSet1
	call	SaveSet

	ld	a,"W"
	ld	b,"O"
	ld	c,"R"
	ld	d,"L"
	ld	e,"D"
	ld	h,"!"
	ld	ix,TestSet2
	call	SaveSet

//Print Registers
//Using Macro for Getters:

	ld	ix,TestSet1
//A
	Get_A
	call	putch
//B
	Get_B
	ld	a,b
	call	putch
//C
	Get_C
	ld	a,c
	call	putch
//D
	Get_D
	ld	a,d
	call	putch
//E
	Get_E
	ld	a,e
	call	putch
	call	putcr


	ld	ix,TestSet2
//A
	Get_A
	call	putch
//B
	Get_B
	ld	a,b
	call	putch
//C
	Get_C
	ld	a,c
	call	putch
//D
	Get_D
	ld	a,d
	call	putch
//E
	Get_E
	ld	a,e
	call	putch
//H
	Get_H
	ld	a,h
	call	putch
	call	putcr

	ret


//Sets
TestSet1	ds	8
TestSet2	ds	8

))

**Lethargeek** · 21.09.2025, 20:54

**jim** · 23.09.2025, 15:41

Код:

; Универсальный макрос для вызова ЛЮБОЙ изолированной функции
MACRO CALL_ISOLATED function_name
    push    ix                 ; 1. Сохраняем указатель на текущий контекст
    ld      ix, function_name##_Set  ; 2. Указываем на контекст функции
    call    SwitchContext             ; 3. Переключаемся 
    ; После возврата управления здесь
    ; IX автоматически восстановится при выходе из функции
ENDM

; Макрос для возврата из функции
MACRO RET_ISOLATED
    pop     ix                 ; Достаём указатель на контекст caller'а
    jp      SwitchContext      ; Возвращаемся
ENDM

**jim** · 23.09.2025, 21:08

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

А форум - наш!

А ZX-Spectrum - Свободная платформа! :-D

Мы все здесь потому, что любим Spectrum за его свободу — так давайте не будем ограничивать друг друга в том, как мы эту свободу используем.

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

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

А где же твой гениальный метод swapset ? что, и без него может программа работать?

Конечно может. Но SwapSet(SwitchContext) имеет HumanityOverhead > 0. А в наивном коде HO == 0

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

User Tag List

Тема: SwapSet

Опции темы

Отображение

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

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

Эти 3 пользователя(ей) поблагодарили Lethargeek за это полезное сообщение:

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

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

Ваши права