Kod: Markera allt
ldl->b b11110000
ldl->c b00001111
pushb
pushc
pop->a
pop->a
Kod: Markera allt
ldl->c b10101010 % Ladda C-registret med 10101010
:again
notc->b % Lägg NOT C i B
movb->c % Och lägg tillbaka B i C
wrxy<-c % Skriv värdet i C till minnespositionen i XY (dvs till flipdoten)
incxy % Öka XY
sbr again % Kör igen
Kod: Markera allt
:start
calls func
sbr start
:func
incxy
calls func2
rets
:func2
movy->a
rets
Det ser riktigt bra ut! ser fram emot att implementera nått skojjigt, game of life på flip-dot:en kanske?nablaman skrev:Jag har pillat på en Zusie-simulator, byggd i javascript.
Den följer maskinens faktiska uppbyggnad så nära jag kunde.
Kod: Markera allt
ldl->c b10101010 % Ladda C-registret med 10101010
:again
notc->b % Lägg NOT C i B
movb->c % Och lägg tillbaka B i C
wrxy<-c % Skriv värdet i C till minnespositionen i XY (dvs till flipdoten)
incxy % Öka XY
sbr again % Kör igen
Kod: Markera allt
% If you load 0 into the A register, you should wind up at is_zero
ldl->a b00000000
% You can try uncommenting this line:
% If you load something else than 0 into the A register,
% you should wind up at not_zero
% ldl->a b00000001
% Load condition register from A
ldc<-a
% Uncomment these lines to try positive jump condition (jump on zero)
%sbrz is_zero
%sbr not_zero
% Uncomment these lines to try negative jump condition (jump on NOT zero)
sbrnz not_zero
sbr is_zero
:is_zero
ldl->b b00000001
sbr is_zero
:not_zero
ldl->b b10000000
sbr not_zero
)
Kod: Markera allt
%
% ZUSIE FLIPDISC FUN
% By Fredrik Andersson
%
% See comments at the bottom regarding different interesting logic functions you can use.
% Also load 1111 into X, or it won't work!
%
% Variables have the following uses
% A temporary scratch register
% B keeps track of direction. Most significant bit is horizontal
% and least significant is vertical.
% C the current bit pattern to write to the current column
% X MUST contain 1111 to address the flipdisc display
% Y keeps track of the current column
% Set starting column. Whatever will do.
ldl->a h03
mova->y
% Set starting row. Whatever will do.
ldl->c b00100000
% Keep track of direction in b
ldl->b h0
%-----------------------------------------------
% Main loop
%-----------------------------------------------
:again
%-----------------------------------------------
% Horizontal update
%-----------------------------------------------
% If b has the top bit set, then we decrement the horizontal
% position, otherwise we increment it
ldc<-b
sbrs decrementxy
incxy
sbr xydone
:decrementxy
decxy
:xydone
% Now for a little special complication: Memory position 8
% does not map to a flipdisc row. Detect this and do yet another round above.
pushb
pushc
movy->c
ldl->b b11111000 % 8 in complementary form
addbc->a
pop->c
pop->b
sbrz again
%-----------------------------------------------
% Vertical update
%-----------------------------------------------
% If b is non-zero (apart from the top bit),
% we go up, otherwise down
pushc
ldl->c b01111111
andbc->a
pop->c
sbrnz goup
% go down
src->a
mova->c
sbr cdone
% go up
:goup
addcc->a
mova->c
:cdone
%-----------------------------------------------
% Check for changed vertical
% direction from wall hit
%-----------------------------------------------
% If c has the highest bit set, we need to go down in next round
ldc<-c
sbrs change_to_down
% If c has the lowest bit set, we need to go up in next round
src->a
sbrs change_to_up
sbr done_up_down
:change_to_up
incb->a
mova->b
sbr done_up_down
:change_to_down
decb->a
mova->b
:done_up_down
%-----------------------------------------------
% Check for changed horizontal
% direction from wall hit
%-----------------------------------------------
% If y has the first bit set, we are at the leftmost
% column and must switch to right-going increments
% If y equals 15, we need to switch to left-going decrements
pushb
pushc
ldl->b b11110001 % This is 15 in complement form
movy->c
addbc->a
pop->c
pop->b
sbrz move_left
% If y equals 1, we need to switch to right-going increments
pushb
movy->b
decb->a
pop->b
sbrz move_right
sbr done
:move_left
pushc
ldl->c b10000000
orbc->a
mova->b
pop->c
sbr done
:move_right
pushc
ldl->c b01111111
andbc->a
mova->b
pop->c
sbr done
%-----------------------------------------------
% Write out the result to memory,
% i.e. the flipdisc
%-----------------------------------------------
% Note, you can try different operations here
% instead of XOR. Try OR for instance!
:done
rdxy->a
pushb
xorac->b % You can change this logic op for different effects!
movb->a
pop->b
wrxy<-a
sbr again
Du får väl göra en instruktion "Skip next instruction if not true" så kan man göra vad man vill i instruktionen efter. Jump, call, move...nablaman skrev: Conditional calls vore väldigt trevligt att ha. Nu har jag bara conditional jumps. Detta borde vara lätt att lägga till.
Iofs kunde ju assemblern välja lämplig instruktion åt en... Får se vilken variant jag använder.
