Code: Select all
рабочее название: Why F@CKING IAR does not work?
IAR 'из коробки' совершенно не подходит для Спекки и спектрумиста.
В нём нет библиотек для Спектрума, он стоит бешеных денег, им не удастся скомпилировать бинарь одной строчкой в cmd,
и он не умеет генерировать tdr\tap\scl etc.
Но всё-таки попробуем его осилить.
С чего начать? Создадим директорию "IAR" и скопируем в неё папку "z80" из архива с ИАРом.
Скачиваем свежий xlink.exe, с официального сайта IARа, в директорию "z80\bin\" .
Теперь создадим в директории "IAR" папочку с проектом "lesson1", а в ней директорию 'list' для всякого полезного мусора.
Скопируем дефолтный cstartup.s01 из ИАРа(\z80\iccz80\) в директорию со своим проектом.
В нем нас интересует два момента, первый это начало бинарника, он же старт программы:
ASEG
ORG 0
Соответственно меняем на свой адрес, допустим ORG 0x6000:
ASEG
ORG 0x6000
Второй момент, запретим прерывания сразу после метки init_C:
init_C
DI
LD SP,.SFE.(CSTACK-1) ; from high to low address
На этом изменения закончены.
Теперь нам нужно создать файл Lnk.xcl, пустой, в нем пропишем строчки:
-cZ80 //процессор, под который собираем
-Z(CODE)RCODE,CODE,CDATA0,CONST,CSTR,CCSTR=6000-BFFE //сегменты памяти с константами и кодом
-Z(DATA)INTVEC=BFFF-C000 //сегмент с таблицей для прерываний im2
-Z(DATA)DATA0,IDATA0,UDATA0,ECSTR,ALIGN8|8,CSTACK+200=C001-FFFF //сегменты стека, переменных и т.п.
-e_medium_write=_formatted_write //конфигурация printf/sprintf
-e_medium_read=_formatted_read //конфигурация scanf/sscanf
cstartup //линкуем наш стартап
-C ../z80/lib/clz80 //подключаем библиотеку, опция '-C' позволит нам прилинковать свой cstartup
-Fraw-binary //собрать чистый бинарь
-l list/cout.html
-o code.cou //имя бинарника
-xehinms //включим всё для полноты картины
Сохраняем, закрываем. Если что-то не понятно, то всегда можно заглянуть в документацию, там всё подробно описано.
Создадим файл main.c:
//тут всё банально
void main(void)
{
}
Создадим батник 'make_c.bat', опять же не поленитесь прочитать описание опций в документации:
..\z80\bin\iccz80 -v0 -ml -uua -q -e -K -gA -s9 -t4 -T -Llist\ -Alist\ -I"../z80/inc/" main.c
..\z80\bin\az80 Cstartup.s01
..\z80\bin\xlink main -f Lnk.xcl
del *.r01
И запустим его. У нас скомпилировался "голый" бинарь code.cou(если вы не забыли скачать свежий xlink), который можно загрузить и запустить с адреса 0x6000
Так же в папке list появился файл main.s01 с чистым асмом и файл cout.html с картой адресов, эти файлы могут пригодится для отладки.
При использовании оператора '?'(тернарную условную операцию) со сложными выражениями, очень рекомендую оптимизацию не выше 7(-s7 либо -z7), так как замечены баги.
Текущий проект будем использовать как шаблон.
Для создания образа дискеты можно воспользоватся утилитой trdtool, добавив в конец батника:
..\z80\bin\trdtool # test.scl
..\z80\bin\trdtool + test.scl boot.b
..\z80\bin\trdtool + test.scl code.cou
Нда, наблюдать чистый экран очень интересно.
Тут два варианта, писать всё на Си, либо создать библиотеку на асме. Рассмотрим первый вариант.
Скопируем шаблонный проект.
Нам нужны инициализация экрана, печать символа и статичная переменная с текущим адресом знакоместа:
#include <string.h>
#include <intrz80.h>
#include <stdio.h>
static union {char * w;char b[2];}scrxy;
void scr_init(char a){
*((char *)0x5800)=a;
output8(0xfe,a>>3);
memcpy((void *)0x5801, (void *)0x5800, 32*24-1);
scrxy.w=(void *)0x4000;
*((char *)0x4000)=0;
memcpy((void *)0x4001, (void *)0x4000, (unsigned int)256*192/8-1);
}
int putchar(int ch){
switch(ch){
case '\n':
scrxy.b[0]+=32;
case '\r':
scrxy.b[0]&=0xe0;
break;
default:{
char* s=(char*)((ch<<3)+0x3c00);
unsigned char i=8;
while(i--){
*scrxy.w=*(s++);
scrxy.b[1]++;
}
}
scrxy.w-=0x07ff;
break;
}
if(!scrxy.b[0]){
if((scrxy.b[1]+=8)==0x58) scrxy.b[1]=0x40;
}
return 1;
}
void main(void){
scr_init(0x07<<3);
puts("Hello World!");
while(1) printf("Keyboard scan: 0x%02X\r",input(0x00fe));
}
Комментировать код нет смысла, т.к. это типичная печаталка символов, наш putchar подменит собой библиотечный,
который используют puts, printf и т.п.
Что бы каждый раз это не компилировать, нужно скомпилировать исходник как библиотеку.
Удалите функцию main(), и переименуйте исходник в 'mylib.c'. Так же переименуем директорию проекта в 'mylib'.
Удалите из проекта все файлы, кроме 'mylib.c'. Создадим файл 'make_c.bat' и пропишем в него следующую строчку:
..\z80\bin\iccz80 -v0 -ml -uua -b -q -x -K -gA -z9 -t4 -T -Llist\ -Alist\ -I"../z80/inc/" mylib.c
И запустим его, у нас скомпилировалась библиотека 'mylib.r01'.
Создадим заголовочный файл 'mylib.h' со строкой:
void scr_init(char a);
Теперь откроем файл 'Lnk.xcl' из нашего шаблонного проекта и перед строчкой "-C ../z80/lib/clz80" добавим
строку "../mylib/mylib". Должно получиться:
...
cstartup //линкуем наш стартап
../mylib/mylib //линкуем собственную библиотеку
-C ../z80/lib/clz80 //подключаем библиотеку ИАРа, опция '-C' позволит нам прилинковать свой cstartup.s01
...
Можно проверить нашу библиотеку создав новый проект и скомпилировав строчки:
#include <stdio.h>
#include <intrz80.h>
#include "../mylib/mylib.h"
void main(void){
scr_init(0x07<<3);
puts("Hello World!");
while(1) printf("Keyboard scan: 0x%02X\r",input(0x00fe));
}
Функции IO обычно пишутся на асме, поэтому следующую функцию будем писать на нём.
Каждую функцию желательно оборачивать в модули, что бы при линковке цеплялись только используемые модули:
MODULE mymod1
...
ENDMOD
MODULE mymod2
...
ENDMOD
MODULE mymod3
...
END ;последний, в файле, модуль заканчивается именно так, а не ENDMOD
Создадим, в проекте mylib, файл graf.s01, с кодом:
MODULE fast_set_pix
PUBLIC fast_set_pix,fast_set_pix_table
RSEG CODE
fast_set_pix ;http://zxdn.narod.ru/coding/zg1etud2.txt
push bc
push de
ld l,c
LD H,HIGH(fast_set_pix_table)
LD D,HIGH(fast_set_pix_table)+2
LD A,(DE)
INC D
OR (HL)
INC H
LD H,(HL)
LD L,A
LD A,(DE)
OR (HL)
LD (HL),A
pop de
pop bc
ret
RSEG ALIGN8
fast_set_pix_table
DEFS 1024
ENDMOD
MODULE fast_set_pix_init
PUBLIC fast_set_pix_init
EXTERN fast_set_pix_table
RSEG CODE
fast_set_pix_init
push bc
push de
LD HL,fast_set_pix_table+256
LD DE,0x4000
GEN0
LD (HL),D
DEC H
LD (HL),E
INC H
INC D
LD A,D
AND 7
JR NZ,LABEL
LD A,E
SUB 0xE0
LD E,A
SBC A,A
AND -8
ADD A,D
LD D,A
LABEL
LD A,D
SUB 88
JR NZ,$+3
LD D,A
INC L
JR NZ,GEN0
INC H
LD A,128
GEN1
LD (HL),E
INC H
LD (HL),A
DEC H
RRCA
JR NC,$+3
INC E
INC L
JR NZ,GEN1
pop de
pop bc
ret
ENDMOD
MODULE little_set_pix
PUBLIC little_set_pix
RSEG CODE
little_set_pix
ld a,c
and 0x07
or 0x40
ld h,a
ld a,c
rrca
rrca
rrca
ld l,a
and %00011000
or h
ld h,a
ld a,l
ld l,e
rrca
rr l
rra
rr l
rra
rr l
rra
rrca
rrca
and %00111000
xor %11111110
ld (l2+1),a ;конечно так нельзя делать в либах
l2 set 0,(hl)
ret
END
Здесь у нас две типичные рисовалки точки, одна побыстрее, вторая покороче.
Уточнить про параметры, при вызове функций, можно в документации, раздел "Assembly language interface".
Что бы не плодить библиотеки, будем собирать их в одну.
В новом файле с именем mylib.xlib запишем строчки:
fetch-modules graf.r01 mylib.r01
list-modules mylib.r01
quit
После строчки 'quit' обязательно должна быть пустая строка, т.к. xlib ругается на отсутствующий EOF.
Это скрипт для сборщика библиотек, он объединит две либы в одну.
Добавим в 'make_c.bat' строку компиляции graf.c и соберём либу в один файл. Батник будет выглядеть:
..\z80\bin\iccz80 -v0 -ml -uua -b -q -x -K -gA -z9 -t4 -T -Llist\ -Alist\ -I"../z80/inc/" mylib.c
..\z80\bin\az80 -uu -b -v0 graf.s01
..\z80\bin\xlib mylib.xlib
Соответственно в заголовочный файл mylib.h добавьте:
void fast_set_pix_init(void);
void fast_set_pix(unsigned char x,unsigned char y);
void little_set_pix(unsigned char x,unsigned char y);
#ifdef FASTPIXEL
#define set_pix fast_set_pix
#define set_pix_init fast_set_pix_init
#else
#define set_pix_init()
#define set_pix little_set_pix
#endif
Теперь запустим батник и проверим библиотеку:
#include <math.h>
//#define FASTPIXEL
#include "../mylib/mylib.h"
void main(void){
unsigned char x=0;
scr_init(0x07<<3);
set_pix_init();
do{
set_pix(x,(sin((double)x/20)*20+95));
}while(++x);
}
На фоне вычислений даблов и синусов, быстрый и маленький пиксели практически не отличимые по скорости, только по размеру занимаемой памяти.
Ну и напоследок освоим прерывания(данный код не будет работать на машинах, у которых мусор на шине данных):
#include <intrz80.h>
unsigned int int_count=0;
interrupt[0] void myint(void){
int_count++;
output8(0xfe,((unsigned char)int_count&0x70)>>4);
}
C_task void main(void){
load_I_register(0xbf);
interrupt_mode_2();
enable_interrupt();
}
Для ‘мусорных’ шин красивого решения я не знаю.
Как вариант выделить сегмент памяти под таблицу прерываний(INTTABLE) и сегмент с ‘зеркальным’(0xbfbf,0x8181 и т.п.) адресом под JP:
-Z(CODE)RCODE,CODE,CDATA0,CONST,CSTR,CCSTR=6000-BEBD //сегменты памяти с константами и кодом
-Z(DATA)INTJP=BEBE-BEC0 //сегмент с JP для прерываний im2
-Z(DATA)DATA0,IDATA0,UDATA0,ECSTR,ALIGN8|8,INTTABLE|8,CSTACK+200=BEC1-FFFF //сегменты стека, переменных и т.п.
В проект mylib добавим myim2.s01, в котором разместим JP на обработчик прерывания, таблицу векторов и инициализацию:
MODULE my_im2
PUBLIC my_im2_init
RSEG INTJP
DEFS 3
RSEG INTTABLE
DEFS 257
RSEG CODE
my_im2_init
di
ld a,0xc3
ld (SFB(INTJP)),a
ld (SFB(INTJP)+1),de
ld a,HIGH(SFB(INTTABLE))
ld i,a
inc a
ld hl,SFB(INTTABLE)-1
tloop
inc hl
ld (hl),HIGH(SFB(INTJP))
cp h
jr nz,tloop
im 2
ret
END
Строка компиляции в батнике:
...
..\z80\bin\az80 -uu -b -v0 myim2.s01
...
Строка в mylib.xlib:
...
fetch-modules myim2.r01 mylib.r01
...
Соответственно в mylib.h добавим:
extern void my_im2_init(void *);
И собственно пример использования:
#include <intrz80.h>
#include "../mylib/mylib.h"
unsigned int int_count=0;
interrupt void myint(void){
int_count++;
output8(0xfe,((unsigned char)int_count&0x70)>>4);
}
C_task void main(void){
my_im2_init(myint);
enable_interrupt();
}
Ну типа, чтобы на ide-шину выдавать разные комбинации кодов и тестить их соответствие образцовым. Спаяй гирлянду светодиодов и повесь на ide-порт 
