SjASMPlus от z00m

[NEO SPECTRUMAN]

лично мне в sjasm/sjasmplus всегда не хватало библиотек, как это было, к примеру, у M80. Т.е. код чтобы собрать не в бинарь, а в некую либу, по мотивам всяких компиляторов си или тот же M80. А потом можно было бы прилинковывать из этой библиотеки функции/процедуры. Было бы удобно очень.

	org $8000

l0

	call dup3
	call dup2
	

l1	di
	halt


	ifused dup3
dup3
	dup 3
	ld a,a
	ret
	edup
	endif

	ifused dup2
dup2
	dup 2
	ld b,b
	ret
	edup
	endif

	ifused dup1
dup1
	dup 5
	ld c,c
	ret
	edup
	endif

17   0000             	org $8000
18   8000             
19   8000             l0
20   8000             
21   8000 CD 08 80    	call dup3
22   8003 CD 0E 80    	call dup2
23   8006             	
24   8006             
25   8006 F3          l1	di
26   8007 76          	halt
27   8008             
28   8008             
29   8008             	ifused dup3
30   8008             dup3
31   8008             	dup 3
32   8008 7F          >	ld a,a
33   8009 C9          >	ret
32   800A 7F          >	ld a,a
33   800B C9          >	ret
32   800C 7F          >	ld a,a
33   800D C9          >	ret
35   800E             	endif
36   800E             
37   800E             	ifused dup2
38   800E             dup2
39   800E             	dup 2
40   800E 40          >	ld b,b
41   800F C9          >	ret
40   8010 40          >	ld b,b
41   8011 C9          >	ret
43   8012             	endif
44   8012             
45   8012             	ifused dup1
46   8012~            dup1
47   8012~            	dup 5
48   8012~            	ld c,c
49   8012~            	ret
50   8012~            	edup
51   8012             	endif