SjASMPlus от z00m

[NEO SPECTRUMAN]

Ну эт как бы не к ассемблеру,

а почему это не к ассемблеру?
зачем нужно разводить 100500 утилит и плясать с бубном
когда все может делать и один ассемблер?
при том более гибко, чем твои тырдец батники и прочие свистелки

по привыкали понимаешь к сборщикам, компоновщикам, хрензнаетчтоновщикам

а потом хрен скомпилируешь чужой сорец
тк у аффтара там 100500 утилит хлама гофна в процессе использовано
при том только автору известно каких версий...

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

И да, как видите в моей сборке расширения имен файлов трехбуквенные, Ваш компилятор только одну букву разрешает

а tr-dos может больше чем одну букву?
правда я где то читал про 3-х буквенные расширения но подтверждения так и не видел

другой вопрос если может то куда?
под все отведено 9 байт
если хотим три буквы
то под имя останется 5 байт...
от сюда напрашивается вопрос зачем?

хотя в принципе начало расширения можно указать установкой 7-го бита
и тогда будет целых 6 букв под имя

ну или опять же лезть в не используемые сектора
в которых одни хранят папки
другие еще неизвестно что...
и не стандартизовано ничего...

BTW, I find creating BASIC in sjasmplus very cumbersome and tedious, I would rather suggest to use working ZX or emulator to create disc with your BASIC loader

да еще лишний раз запускать эмулятор
проще набрать ручками

	
tr_dos_var_current_track_sector = $5CF4


	emptytrd "disc.trd","TITLE"

		org $00FC
boot_start
	incbin "boot\small_mx.bin"
boot_end
	savetrd "disc.trd","boot.B",$FC,$FC



		org $0000

	
basic_start
	
	defb $00,00		;
	defw end_basic_line_0 - basic_line_0
basic_line_0
	defb $EA		;REM
	

		
		
		
		di
		xor a
		out (border),a		
	
	
		ld sp,$C000
		
			;	ld hl,$C9F1	;pop af : ret	!!!!!!!!!!!!!!
			;	ld ($5CC2),hl	;
		
		
			ld a,aaa_page_4_port		
			ld bc,$7FFD
			out (c),a
	
		ld bc,$2005				;$20 sect	05 mode
		ld de,(tr_dos_var_current_track_sector)
		ld hl,$C000
		di
		im 1 
		call $3D13
		di
		
				
			ld a,bbb_page_4_port		
			ld bc,$7FFD
			out (c),a
		ld bc,$1005				;$10 sect	05 mode
		ld de,(tr_dos_var_current_track_sector)
		ld hl,xxx
		di
		im 1 
		call $3D13
		di
				
			
			ld a,ccc_page_4_port	
			ld bc,$7FFD
			out (c),a
		ld bc,$4005				;$40 sect	05 mode
		ld de,(tr_dos_var_current_track_sector)
		ld hl,$C000
		di
		im 1 
		call $3D13	
		di


			ld a,ddd_page_4_port		
			ld bc,$7FFD
			out (c),a
		ld bc,$2505				;$25 sect	05 mode
		ld de,(tr_dos_var_current_track_sector)
		ld hl,$DB00				
		di
		im 1 
		call $3D13
		di
		
		
		jp start	
	
	
	
	
	
	
	
	
	defb $0D
	
end_basic_line_0
	
	
	defb $00,10
	defw end_basic_line_10 - basic_line_10
basic_line_10
	defb $FD,$B0				;CLEAR VAL
	defb $22,"24575",$22
	defb $3A					; :
	
	defb $F9,$C0				;RANDOMIZE USR
	defb $28				;(
	defb "5"				;5
	defb $0E,$00,$00,$05,$00,$00
	defb $2B				;+
	defb "256"				;256
	defb $0E,$00,$00,$00,$01,$00
	defb $2A				;*
	defb $BE,$B0				;PEEK VAL
	defb $22,"23636",$22			;"23636"
	defb $2B				;+
	defb $BE,$B0				;PEEK VAL
	defb $22,"23635",$22			;"23635"
	defb $29				;)
	defb $0D

end_basic_line_10


	defb $80		;autorun
	defb $AA,10,0

basic_end





	savetrd "disc.trd","vjdfvn.B",$0,basic_end-basic_start
	
	slot 3
	page aaa
	savetrd "disc.trd","vjdfvn_1.C",$C000,$2000	

	slot 3
	page bbb
	savetrd "disc.trd","vjdfvn_2.C",$D000,$1000	 

	slot 3
	page ccc
	savetrd "disc.trd","vjdfvn_3.C",$C000,$4000	 
	
	slot 3
	page ddd
	savetrd "disc.trd","vjdfvn_4.C",$DB00,$2500