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

[denpopov]

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

---------- Post added at 07:03 ---------- Previous post was at 06:07 ----------

получаю вот такую ошибку:

SjASMPlus Z80 Cross-Assembler v1.07 RC7 (build 02-04-2008)
mkscl.asm(23): error: [IF] Forward reference
mkscl.asm(29): error: [IF] Forward reference
Pass 1 complete (2 errors)
Pass 2 complete (2 errors)
Pass 3 complete
Errors: 2, warnings: 0, compiled: 145 lines, work time: 0.000 seconds

код поправил с учетом пожеланий:

	device zxspectrum128

	macro	sectors datab,datae

 IF low datae-datab=0
   db high (datae-datab)
 ELSE
   db (1+high (datae-datab))
 ENDIF

	endm

	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
 sectors begin,end;db 4;sectors
;-2nd
;    12345678t
 db "abstractB"
 dw basic_e-basic_b-4;size of basic
 dw basic_e-basic_b-4;size of basic
 sectors basic_b,basic_e;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]