Пример "MD01\Lviv Studio\LS5"
Персонаж на поле. Работа с координатами. Анимация перемещения.
Code: //Пример "MD01\Lviv Studio\LS5"
// Урок 6. Персонаж на поле. Работа с координатами. Анимация перемещения.
// Подробное описание данного примера (начинается с)-
//https://www.old-games.ru/forum/threads/assembler-i8080-uroki-praktika-pk-01.50209/page-2#post-848916
//Код примера ( для Pretty 8080 Assembler) -
//https://www.old-games.ru/forum/threads/assembler-i8080-uroki-praktika-pk-01.50209/page-2#post-1085290
//Пример взят из примеров для "PC Lviv Studio" (Windows) на сайте
//https://www.old-games.ru/forum/threads/assembler-i8080-uroki-praktika-pk-01.50209/
// В теме "Ассемблер i8080: уроки, практика, ПК-01"
// Оригинал примера смотрите в этом файле после "END.".
// Скопируйте этот файл (Project.dpr) в каталог МАДЛа и запустите CompileFPC_RUN.bat
// результат компилирования будет файл _res.LVT
program Project; uses uMD01u in 'uMD01u.pas';
const ENEMY_X=$9C40; ENEMY_Y=$9C41; ENEMY_SPD_X=$9C42; ENEMY_SPD_Y=$9C43;
VAR
init1, init2, init_put127, init3, init5, init4, main_cycle, pause1, pause2, enemy_move,
en_mov_fin, enemy_speed, back_xy, back_y, speed_back, speed_back1, draw, draw_cycle
:TLabelLV;
BEGIN
INITCompiler;
SetAddrRAM($8000);
StartProgram;
Ar(4);_rA(ENEMY_X); Ar(3);_rA(ENEMY_Y);
Ar(1);_rA(ENEMY_SPD_X); Ar(1);_rA(ENEMY_SPD_Y);
Hr(33);
LabelA(init1);
Lr(33);
LabelA(init2);
PushHL;ArL;
Acmp(0);GotoUn0(init_put127);
Acmp(33);GotoUn0(init_put127);
ArH;
Acmp(0);GotoUn0(init_put127);
Acmp(33);GotoUn0(init_put127);
GOTO_(init3);
LabelA(init_put127);
mHLr($7F);
GOTO_(init4);
LabelA(init3);
mHLr($0F);
ArL;
Acmp(3);GotoUnm(init5);
Acmp(31);GotoUnp(init5);
ArH;
Acmp(3);GotoUnm(init5);
Acmp(31);GotoUnp(init5);
mHLr(0);
LabelA(init5);
CALL(draw);
LabelA(init4);
PopHL;
Lm1;GotoUnp(init2);
Hm1;GotoUnp(init1);
LabelA(main_cycle); Ar(20);
LabelA(pause1); Br(255);
LabelA(pause2); Bm1;GotoUnNot0(pause2);
Am1;GotoUnNot0(pause1);
CALL(enemy_move); GOTO_(main_cycle);
LabelA(enemy_move);
Ar_(ENEMY_X);LrA;
Ar_(ENEMY_Y);HrA;
mHLr(0);CALL(draw);
CALL(enemy_speed);ArmHL;Acmp(0);GotoUn0(en_mov_fin);
CALL(enemy_speed);ArmHL;Acmp(0);GotoUn0(en_mov_fin);
CALL(enemy_speed);ArmHL;Acmp(0);GotoUn0(en_mov_fin);
Ar_(ENEMY_X);LrA; Ar_(ENEMY_Y);HrA;
LabelA(en_mov_fin);
ArL;_rA(ENEMY_X);
ArH;_rA(ENEMY_Y);
mHLr(255);
CALL(draw);
RET;
LabelA(enemy_speed);
Ar_(ENEMY_X);LrA; Ar_(ENEMY_Y);HrA;
Ar_(ENEMY_SPD_X); ApL; LrA; Ar_(ENEMY_SPD_Y);
ApH; HrA; ArmHL;
Acmp(0);RetUn0;
DrL;
Ar_(ENEMY_X); LrA;
BrmHL;
LrD;
Ar_(ENEMY_Y); HrA;
CrmHL;
Ar_(ENEMY_X);
LrA;
ArB;
AcmpC; GotoUn0(back_xy);
Acmp(0); GotoUnNot0(back_y);
Ar_(ENEMY_SPD_X);
CALL(speed_back);
_rA(ENEMY_SPD_X);
ApL; LrA;
Ar_(ENEMY_SPD_Y);
ApH; HrA;
RET;
LabelA(back_xy);
Ar_(ENEMY_SPD_X);
CALL(speed_back);
_rA(ENEMY_SPD_X);
LabelA(back_y);
Ar_(ENEMY_SPD_Y);
CALL(speed_back);
_rA(ENEMY_SPD_Y);
ApH; HrA;
Ar_(ENEMY_SPD_X);
ApL;
LrA;
RET;
LabelA(speed_back);
Acmp(1);
GotoUnNot0(speed_back1);
Ar(255);
RET;
LabelA(speed_back1);
Ar(1);
RET;
LabelA(draw);
BrmHL;
Ar(0);OUT_($C2);// Video on
Lm1; Hm1;
ArL; shlA; LrA;
ArH; shlA; HrA;
Ar(64); ApH; HrA;
DEr(63);
Ar(8);
LabelA(draw_cycle);
mHLrB;
HLp1;
mHLrB;
HLpDE;
Am1;
GotoUnNot0(draw_cycle);
Ar(2);OUT_($C2);//;Video off
RET;
FINALCompiler;
END.
// оригинал примера
{
begin .equ 08000h ;start address
.org begin-16-6
.db "LVOV/2.0/"
.db 0D0h
.db "XONIX "
.dw begin,end-1,start
start:
ENEMY_X equ 9C40h ;40000
ENEMY_Y equ 9C41h ;40001
ENEMY_SPD_X equ 9C42h ;40002
ENEMY_SPD_Y equ 9C43h ;40003
MVI A, 4
STA ENEMY_X
MVI A, 3
STA ENEMY_Y
MVI A, 1
STA ENEMY_SPD_X
MVI A, 1
STA ENEMY_SPD_Y
MVI H,33
init1:
MVI L,33
init2: PUSH H
MOV A,L
CPI 0
JZ init_put127
CPI 33
JZ init_put127
MOV A,H
CPI 0
JZ init_put127
CPI 33
JZ init_put127
JMP init3
init_put127:
MVI M, 127 ;(7F)
JMP init4 ;Don't draw
init3:
MVI M,15 ;Temporary use 15 (0F)
MOV A,L
CPI 3
JM init5 ;Don't put 0
CPI 31
JP init5 ;Don't put 0
MOV A,H
CPI 3
JM init5 ;Don't put 0
CPI 31
JP init5 ;Don't put 0
MVI M, 0
init5:
CALL draw
init4: POP H
DCR L
JP init2
DCR H
JP init1
main_cycle:
MVI A, 20
pause1: MVI B, 255
pause2: DCR B
JNZ pause2
DCR A
JNZ pause1
CALL enemy_move
JMP main_cycle
enemy_move:
LDA ENEMY_X ;Draw empty
MOV L,A
LDA ENEMY_Y
MOV H,A
MVI M, 0
CALL draw
CALL enemy_speed ;First attempt to move
MOV A, M
CPI 0
JZ en_mov_fin
CALL enemy_speed ;Second attempt to move
MOV A, M
CPI 0
JZ en_mov_fin
CALL enemy_speed ;Third attempt to move
MOV A, M
CPI 0
JZ en_mov_fin
LDA ENEMY_X ;No move
MOV L,A
LDA ENEMY_Y
MOV H,A
en_mov_fin:
MOV A,L ;Save position. Draw enemy
STA ENEMY_X
MOV A,H
STA ENEMY_Y
MVI M, 255
CALL draw
RET
enemy_speed:
LDA ENEMY_X
MOV L,A
LDA ENEMY_Y
MOV H,A
LDA ENEMY_SPD_X
ADD L
MOV L, A
LDA ENEMY_SPD_Y
ADD H
MOV H, A
MOV A, M
CPI 0
RZ
MOV D,L
LDA ENEMY_X ;======
MOV L,A ;Store B
MOV B,M ;======
MOV L,D
LDA ENEMY_Y ;======
MOV H,A ;Store C
MOV C,M ;======
LDA ENEMY_X
MOV L,A
MOV A,B
CMP C
JZ back_xy
CPI 0
JNZ back_y
LDA ENEMY_SPD_X
CALL speed_back
STA ENEMY_SPD_X
ADD L
MOV L,A
LDA ENEMY_SPD_Y
ADD H
MOV H, A
RET
back_xy:
LDA ENEMY_SPD_X
CALL speed_back
STA ENEMY_SPD_X
back_y: LDA ENEMY_SPD_Y
CALL speed_back
STA ENEMY_SPD_Y
ADD H
MOV H,A
LDA ENEMY_SPD_X
ADD L
MOV L, A
RET
speed_back:
CPI 1
JNZ speed_back1
MVI A, 255
RET
speed_back1:
MVI A, 1
RET
draw:
MOV B, M
MVI A, 0 ;Video on
OUT 0C2h ;Video on
DCR L ;Coordinate -1
DCR H ;Coordinate -1
MOV A,L
RLC
MOV L,A
MOV A,H
RLC
MOV H,A
MVI A, 64
ADD H
MOV H,A
LXI D, 63
MVI A, 8
draw_cycle:
MOV M, B
INX H
MOV M, B
DAD D
DCR A
JNZ draw_cycle
MVI A, 2 ;Video off
OUT 0C2h ;Video off
RET
end:
}
|
то написав и выложив МАДЛ, я решил попробовать XDev, чтобы писать программы для ПК-01 "Львов". Создал тему посвященную этому "Учимся писать на Обероне"