Вид для печати
Скачал журнал, поковырялся - распаковал заново (вроде бы вот этим распаковщиком ). Покоцанные файлы приобрели нормальный логический вид (надеюсь все). ZASMом пока не проверял и на PC не вытаскивал пока. Влоом !!! :DЦитата:
Сообщение от DragonsLord
Попозже попробую на чешский ужасм перевести. А пока трдшные распаковки зипов из этого крика...
- - - Добавлено - - -
Проверил в ZASMе - скомпилировалось, работает. Но боже - это трэшъ угар и содомия ))
Давай скорее под sjasm версию! Хочется уже трэшануть и угарнуть! Не говоря уже про содомию!
:v2_dizzy_punk:
А научи конверить из ZXASM в sjasm. А то мне надо уже сильно. :)Цитата:
Попозже попробую на чешский ужасм перевести.
Как-то надо было не так давно сконвертить в текст (чтобы потом в сжасм) исходники из XASа. Перепробовал три (вроде) конвертера и BestView. Если коротко, то пришлось использовать их в комплексе, и кое-что ручками доконверчивать. А BestView неожиданно разочаровал, он просто молча конвертил КУСОК текста, а не весь, если текст был слишком большим.
Ага люблю учить тому чего сам не умею )) Хотя тут наука то не велика на самом деле. Возни только много без конвертера ))Цитата:
Сообщение от DragonsLord
Во первых перекодируем ZASMовские исходники в обычный текст без упаковки пробелов. Я делал средствами самого ZASMа и вытаскивал на ПЦ. Если файл был сильно большой для конверсии - делил пополам.
Во вторых уже на ПЦ переписываем макросы засма в макросы ужасма )))
Пример:
ZASM
Код:MACROS_MAC_INCLUDED
;ISR_ENTER OLD_SP,JUMP_ADR,ISR_SP
ISR_ENTER MACRO:EX (SP),HL:LD (=1),HL:EX (SP),HL:INC SP,SP:LD (=2),SP
LD SP,=3:PUSHA:EXX:EXA:PUSHA:PUSH IX,IY:LD A,(PAGE):PUSH AF:ENDM
;ISR_LEAVE
ISR_LEAVE MACRO:POP AF:CALL LKL:POP IY,IX:POPA:EXX:EXA:POPA:ENDM
GETA MACRO:DEC SP:POP AF:ENDM
NEGHL MACRO:XOR A:SUB L:LD L,A:SBC A,H:SUB L:LD H,A:ENDM
NEGDE MACRO:XOR A:SUB E:LD E,A:SBC A,D:SUB E:LD D,A:ENDM
NEGBC MACRO:XOR A:SUB C:LD C,A:SBC A,B:SUB C:LD B,A:ENDM
STA MACRO:LD (HL),A:INC HL:ENDM
STDE MACRO:LD (HL),E:INC HL:LD (HL),D:INC HL:ENDM
STBC MACRO:LD (HL),C:INC HL:LD (HL),B:INC HL:ENDM
STB MACRO:LD (HL),=1:INC HL:ENDM
STW MACRO:STB =1:STB =1.h:ENDM
LODBC MACRO:LD C,(HL):INC HL:LD B,(HL):INC HL:ENDM
LODDE MACRO:LD E,(HL):INC HL:LD D,(HL):INC HL:ENDM
LODA MACRO:LD A,(HL):INC HL:ENDM
GENASN MACRO:LD D,=1.h:CALL GENASN_:ENDM
GENXX MACRO:LD D,=1.h:CALL GENXX_:ENDM
INISIN MACRO:LD D,=1.h:CALL INISIN_:ENDM
PUSHA MACRO:PUSH AF,BC,DE,HL:ENDM
POPA MACRO:POP HL,DE,BC,AF:ENDM
POPLD MACRO:POP HL:LD (#2222),HL:ENDM
DEPSCRA MACRO:LD HL,=1:LD DE,=2:LD BC,=3:SCF:CALL _DEPSCR:ENDM
DEPSCR MACRO:LD HL,=1:LD DE,=2:LD BC,=3:OR A:CALL _DEPSCR:ENDM
LDHLDE MACRO:LD H,D:LD L,E:ENDM
LDDEHL MACRO:LD D,H:LD E,L:ENDM
LDCOUNT MACRO:LD BC,=1.b*256+((=1.b+255).h)+=1.h:ENDM
LOOP MACRO:DJNZ =1:DEC C:JRNZ =1:ENDM
[свернуть]
SjASMplus может и с ошибками ))
Код:MACROS_MAC_INCLUDED
MACRO PUSHA : PUSH AF,BC,DE,HL : ENDM
MACRO POPA : POP HL,DE,BC,AF : ENDM
;ISR_ENTER OLD_SP,JUMP_ADR,ISR_SP
MACRO ISR_ENTER OLD_SP_, JUMP_ADR_, ISR_SP_
EX (SP),HL : LD (OLD_SP_),HL : EX (SP),HL : INC SP: INC SP : LD (JUMP_ADR_),SP
LD SP,ISR_SP_ : PUSH AF : EXX : EXA : PUSHA : PUSH IX,IY : LD A,(PAGE) : PUSH AF
ENDM
;ISR_LEAVE
MACRO ISR_LEAVE : POP AF : CALL LKL : POP IY,IX : POPA : EXX : EXA : POPA : ENDM
MACRO GETA : DEC SP : POP AF : ENDM
MACRO NEGHL : XOR A : SUB L : LD L,A : SBC A,H : SUB L : LD H,A : ENDM
MACRO NEGDE : XOR A : SUB E : LD E,A : SBC A,D : SUB E : LD D,A : ENDM
MACRO NEGBC : XOR A : SUB C : LD C,A : SBC A,B : SUB C : LD B,A : ENDM
MACRO STA : LD (HL),A : INC HL : ENDM
MACRO STDE : LD (HL),E : INC HL : LD (HL),D : INC HL : ENDM
MACRO STBC : LD (HL),C : INC HL : LD (HL),B : INC HL : ENDM
MACRO STB b1 : LD (HL),b1 : INC HL : ENDM
MACRO STW w1 : STB low w1 : STB high w1 : ENDM
MACRO LODBC : LD C,(HL) : INC HL : LD B,(HL) : INC HL : ENDM
MACRO LODDE : LD E,(HL) : INC HL : LD D,(HL) : INC HL : ENDM
MACRO LODA : LD A,(HL) : INC HL : ENDM
MACRO GENASN h1 : LD D, high h1 : CALL GENASN_ : ENDM
MACRO GENXX h1 : LD D, high h1 : CALL GENXX_ : ENDM
MACRO INISIN h1 : LD D, high h1 : CALL INISIN_ : ENDM
MACRO POPLD : POP HL : LD (#2222),HL : ENDM
MACRO DEPSCRA a1, a2 ;, a3 :
LD HL,a1 : LD DE,a2 ; : LD BC,a3 :
SCF : CALL _DEPSCR : ENDM
MACRO DEPSCR a1, a2 ;, a3 :
LD HL,a1 : LD DE,a2 ; : LD BC,a3 :
OR A : CALL _DEPSCR : ENDM
MACRO LDHLDE : LD H,D : LD L,E : ENDM
MACRO LDDEHL : LD D,H : LD E,L : ENDM
MACRO LDCOUNT a1 : LD BC, ( low a1 )*256+( high (( low a1 )+255)+(high a1) :ENDM
MACRO LOOP retadr : DJNZ retadr : DEC C : JRNZ retadr : ENDM
[свернуть]
Тут есть моменты:
1) Ужасм не умеет постопределений, поэтому скажем POPA, PUSHA надо вытащить вверх.
2) .h , .b и т.п. выполняются через функции high и low
3) Да х.з.
В третьих - условная компиляция.
У ужасма используется раздельное поле адресов меток и определений и те условия которые ZASM использует для меток - SjASMplus будет пытаться применить для определений. Более того аналог условия существования метки появился только в чешской версии ужасма 1.18.2
ZASM
SjASMplus 1.18.2Код:IFNDEF PG0
INCLUDE "E:PAGES.asm"
ENDIF
Ну и в четвёртых ручками подправляем засмовские сокращённые мнемоники в человеческий вид. ))Код:IFN exist PG0
INCLUDE "PAGES.asm"
ENDIF
А да ещё забыл - в начало основного файла добавить device zxspectrum128 а в конец сохранение файла в нужном формате ))
если нужно именно по меткам, то можно IFUSED использовать.Цитата:
Сообщение от Dart Alver
По описанию это совсем разные вещи.Цитата:
Сообщение от Sayman
IF exist - определяет определена ли метка.
IFUSED - используется ли метка в коде.
ну я могу тут в чём то ошибиться, но по логике приведённой выше, файл PAGES.asm будет инклудится если не была "объявлена" метка PG0. по такой же логике, если идёт обращение к данной метке, но в основном коде её нет, то можно подгрузить. определить обращение к ней через IFUSED. таким образом, если кодер не обращается к метке (процедуре) PG0, то файл не будет инклуден. всё вроде логично. Мы можем метку определить, но при этом можем не обращаться к ней. любое обращение PG0 приведёт к подгрузке ещё одного файла.Цитата:
Сообщение от Dart Alver
Обращается.Цитата:
Сообщение от Sayman
IFUSED срабатывает если в любой части текста найдётся обращение к метке (не определение) и в данном случае (если файл уже был подгружен и метка определена) PAGES.asm подгрузится 2 раза 2 раза ))Цитата:
Сообщение от Sayman
...Пардон там же наоборот лолжен был быть IFNUSED - значит наоборот если файл не был подгружен а обращение есть, то он и не подгрузится ))
Наверно поковырявшись можно перекроить исходник так чтобы использовать IFUSED или вообще убрать условную компиляцию, но это уже другая тема . Тем более что в исходнике это не единственная условная компиляция.
ну вот, если есть обращение, то по условию IFUSED файл будет загружен, код с меткой PG0 будет использован. а если нет обращение, то и загружать его не зачем.Цитата:
Сообщение от Dart Alver
но загружен он будет 1 раз)) дериктиву IFUSED сам активно пользую.