Сборка SCL из sjasm (не финальная)

[denpopov]

написал от безделья сборку в ужясме .SCL:

	device zxspectrum128

	org $8000-14*2-9;
scl_b:
;header_b:
 db "SINCLAIR"
 db 2;two! filez
;-1st
;    12345678t
 db "abstractC"
 dw $8000;start adres of code block
 dw end-begin;size of code
 db 4;sectors
;-2nd
;    12345678t
 db "abstractB"
 dw basic_e-basic_b;size of basic
 dw basic_e-basic_b;size of basic
 db 1;sectors
;header_e:
;        ORG #8000
begin
 ld hl,pack,de,$6100
 push de
 include "zx7.a80"
pack: incbin "test.bin.zx7"
end
 org $8400
basic_b:
 db #00,10;номер строки
 DW EndLine1 - Line1
Line1:

 db $FD;clear
 db $B0;val
 db $22,"24575",$22,":"
 db $F9;randomize
 db $C0;usr
 db $B0;val
 db $22,"15619",$22,":"
 db $EA;rem
 db ":"
 db $F7;run
 db $22,"abstract",$22
 db $AF;code
 db #0D
EndLine1:

 
 db #80;for autorun
 db #AA,10,0
basic_e:

scl_e:

	savebin "test.scl",scl_b,scl_e-scl_b

правда автозапуск строки не работает

[Advertiser]