ACTION! ist jetzt freigegeben...

mistmist · 3. August 2015

Hallo, guten Tag.

ACTION! ist jetzt freigegeben...
http://wiki.strotmann.de/wiki/Wiki.jsp?page=ACTION

Man braucht jetzt keine Runtime mehr basteln für ACTION!. Jeder Nutzer kann jetzt selber sein ACTION!-Modul brennen oder das Software-ACTION!-Modul für den MIST, Chameleon oder andere FPGA nutzen. Man braucht jetzt kein Speicher-RAM mehr verschwenden für dieses Runtime. Es war für die gedacht, die ein ACTION!-Code hatten , aber sich das teure Modul nicht kaufen konnten um den Code zum laufen zu bringen.

Runtime ade....

Gruss

Tom Phobos · 6. August 2015

Ah, das ist ja cool Ich habe ACTION!, BASIC XL, MAC/65 und Co schon für mein MyIDE, das ist auch schon klasse. Ein offizielles File für den MiST hat natürlich auch was Und Carsten Strotmanns Seite ist für ACTION!-Fans wirklich ne wahre Goldgrube

mistmist · 7. August 2015

Ja, ich bastele mit dem ACTION! und auch neuerdings mit dem "MAD Pascal".

Für "MAD Pascal" habe ich schon einige kleine Programme erstellt, um mal zu testen wie das "MAD Pascal" ist.
http://atariage.com/forums/for…i-5200-8-bit-programming/
Mir gefällt an MAD Pascal , das ich diese Zahlentypen habe:
BYTE (0..255)
WORD (0..65535)
CARDINAL (0..4294967295)
REAL (-8388607..8388607)

Cardinal und Real vermisse ich in ACTION! als Grundroutinen.
Auch Sinus und Cosinus, welches man braucht um auch mal PM kreisen zu lassen.

Diese beiden Sprachen benutze ich auf dem MIST-Atari800 / ALTIRRA.
Das FORTH habe ich erstmal zu den Akten gelegt. Da gibt es zu wenig Interessenten.

Gruss

Tom Phobos · 7. August 2015

Gerade wenn Du aus prozedualen Sprachen wie Pascal kommst ist FORTH auch eine krass Umstellung. Komplett stackorientiert und jede Menge eigener Konzepte (Mischung aus Betriebssystem und Sprache, Block-Editor, erweiterbare Syntax etc.). Da tut man sich dann mit Pascal (und auch mit ACTION!) erheblich leichter.

mistmist · 8. August 2015

Ja Forth ist schon gewöhnungsbedürftig.
Bei XFORTH gibt es keinen Blockeditor mehr, man kann die Forth-Programme laden wie in Basic.

Hier wird eine Displaylist angelegt (160x96) mit 4 Farben.
Dann wird ein Grafikbild (3840 Byte) geladen und eine PM erstellt mit Collision.
Mit dem Joystick kann man dann die PM bewegen und wenn sie eine Farbe berührt prallt die PM ab.

Gruss

Dieses ist das XFORTH :

Code

HEX
00 VARIABLE DLIST -2 ALLOT
70 C, 70 C, 70 C,
4D C, 9060 ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D0D ,
0D0D , 0D0D , 0D0D , 0D C,
41 C, DLIST ,
022F CONSTANT SDMCTL
026F CONSTANT GPRIOR
D000 CONSTANT HPOS0
D01D CONSTANT GRACTL
D407 CONSTANT PMBASE
230 CONSTANT SDLSTL
9060 CONSTANT SCREEN0
02C0 CONSTANT PCOLR0
02C4 CONSTANT COLOR0
02C5 CONSTANT COLOR1
02C6 CONSTANT COLOR2
02C8 CONSTANT COLOR4
0278 CONSTANT STICK0
D004 CONSTANT P0PF
D01E CONSTANT HITCLR
00 VARIABLE XPOS
00 VARIABLE YPOS
00 VARIABLE TESTXY
00 VARIABLE SPRITE0 -2 ALLOT
2 BASE !
11111111 C,
10000001 C,
10000001 C,
10000001 C,
11111111 C,
10000001 C,
10000001 C,
10000001 C,
11111111 C,
HEX
: INITPM
SDMCTL C@ 1C OR SDMCTL C!
3 GRACTL C!
A8 PMBASE C! ;
: PM0POS
AC00 80 0 FILL
SPRITE0 AC00 YPOS C@ + 9 CMOVE
XPOS C@ HPOS0 C! ;
: ["] ( -- addr len )
R COUNT DUP 1+ R> + >R ;
: " ( -- addr len )
22 STATE @ IF
COMPILE ["] WORD C@ 1+ ALLOT
ELSE
WORD DUP C@ 1+ PAD
SWAP CMOVE PAD COUNT
THEN ; IMMEDIATE
: READFILE
" D:MULBI.BIN" R/O OPEN-FILE
128 < IF
SOURCE-ID !
SCREEN0 F00 SOURCE-ID @ READ-FILE
SOURCE-ID @ CLOSE-FILE
0 SOURCE-ID !
ELSE
." Error open file"
THEN ;
: BEWEGE
BEGIN
STICK0 C@
DUP 0E = IF YPOS C@ 1 - YPOS C! 1 TESTXY C! PM0POS THEN
DUP 0D = IF YPOS C@ 1 + YPOS C! 2 TESTXY C! PM0POS THEN
DUP 07 = IF XPOS C@ 1 + XPOS C! 3 TESTXY C! PM0POS THEN
0B = IF XPOS C@ 1 - XPOS C! 4 TESTXY C! PM0POS THEN
P0PF C@ 0 > IF
TESTXY C@ 1 = IF YPOS C@ 4 + YPOS C! PM0POS THEN
TESTXY C@ 2 = IF YPOS C@ 4 - YPOS C! PM0POS THEN
TESTXY C@ 3 = IF XPOS C@ 4 - XPOS C! PM0POS THEN
TESTXY C@ 4 = IF XPOS C@ 4 + XPOS C! PM0POS THEN
THEN
1 HITCLR C!
0 TESTXY C!
0 1 = UNTIL ;
: INIT
INITPM
70 PCOLR0 C!
0C COLOR4 C!
94 COLOR2 C!
DLIST SDLSTL !
32 DUP XPOS C! YPOS C! PM0POS
READFILE
BEWEGE ;

Alles anzeigen

mistmist · 8. August 2015

Wenn man diese 3 Listing mit PM und Collision im Grafikbild sieht, muss man sich überlegen, was tue ich mir für eine Sprache an
um etwas auf dem Atari800 zu erschaffen.

Ich persönlich empfinde dieses MAD Pascal als übersichtlich.

PM mit Grafikbild-Collision und abprallen wie beim XFORT mit ACTION! :

Code

module
byte cio_status
byte ramtop=$6A
card dlist =560
byte array data =
[ 255 129 129 129 129 129 255 ]
byte dlst0= [ $70 $70 $70 $4D ]
card lms = [ 0 ]
byte dlst1= [ $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D
$0D $0D $0D $0D $0D $41 ]
card djmp= [ 0 ]
proc pm_init ()
byte sdmctl=$22F, gractl=$D01D,pmbase=$D407
card pmadr=$2D5
ramtop==-8
sdmctl==%$1C
pmadr=ramtop*$100+$400
pmbase=ramtop
gractl=3
zero (ramtop*$100,$800)
return
proc p_pos (byte num,xpos,ypos,card shape,byte len)
byte array hpos=$D000
card pmadr=$2D5,adr
adr=pmadr
adr==+num*$100+ypos
moveblock (adr,shape,len)
moveblock (adr+11,shape,len)
moveblock (adr+22,shape,len)
hpos(num)=xpos
return
proc p_size (byte num,size)
byte array ps=$D008
ps(num)=size
return
proc pm_col (byte num,hue,lum)
byte array pcol=$2C0
pcol (num)=hue*$10+lum
return
proc p_clear (byte num)
card pmadr=$2D5
zero (pmadr+num*$100,$100)
return
proc pm_restore ()
byte u
byte array hpos=$D000
for u=0 to 8
do
hpos(u)=0
od
return
char func cioq=*(byte dev, card addr, size, byte cmd, aux1, aux2)
[$29$F$85$A0$86$A1$A$A$A$A$AA$A5$A5
$9D$342$A5$A3$9D$348$A5$A4$9D$349
$A5$A6$F0$8$9D$34A$A5$A7$9D$34B$98
$9D$345$A5$A1$9D$344$20$E456
$8C cio_status$C0$88$D0$6$98$A4$A0
$99 eof$A085$60]
card func bget=*(byte dev, card addr, size)
[$48$A9$7$85$A5$A9$0$85$A6$A5$A3$5$A4
$D0$6$85$A0$85$A1$68$60$68$20 cioq
$BD$348$85$A0$BD$349$85$A1$60]
proc bput=*(byte dev, card addr, size)
[$48$A9$B$85$A5$A9$0$85$A6$A5$A3$5$A4
$D0$2$68$60$68$4C cioq]
proc delay(card z)
card i
for i=0 to z
do
od
return
proc main()
card shape, ramadr
byte joy0, x,y, testxy
byte p0pf=$D004, hitclr=$D01E
pm_init ()
ramtop==-22
ramadr=ramtop*$100
zero(ramadr,3840)
shape=data
pm_col (0,7,0)
djmp=@dlst0
dlist=@dlst0
lms=ramadr
poke(708,55)
poke(709,199)
poke(710,135)
poke(712,12)
close (1)
open(1,"D:mulbi.bin",4)
bget (1,ramadr,3840)
close (1)
x=50
y=50
p_clear (0)
p_pos (0,x,y,shape,7)
do
joy0=stick(0)
delay(500)
if joy0=14 then
testxy=1
y=y-1
p_clear (0)
p_pos (0,x,y,shape,7)
elseif joy0=13 then
testxy=2
y=y+1
p_clear (0)
p_pos (0,x,y,shape,7)
elseif joy0=7 then
testxy=3
x=x+1
p_clear (0)
p_pos (0,x,y,shape,7)
elseif joy0=11 then
testxy=4
x=x-1
p_clear (0)
p_pos (0,x,y,shape,7)
fi
if p0pf > 0 then
if testxy=1 then
y=y+2
p_clear (0)
p_pos (0,x,y,shape,7)
elseif testxy=2 then
y=y-2
p_clear (0)
p_pos (0,x,y,shape,7)
elseif testxy=3 then
x=x-2
p_clear (0)
p_pos (0,x,y,shape,7)
elseif testxy=4 then
x=x+2
p_clear (0)
p_pos (0,x,y,shape,7)
fi
testxy=0
hitclr=1
fi
od
return

Alles anzeigen

PM mit Grafikbild-Collision und abprallen wie beim XFORT mit MAD Pascal :

Code

const
_max = 7;
_speed = 200;
var
dlist: array [0..52] of word;
p0Data : array [0.._max] of byte;
px0 : byte;
py0 : byte;
pmgMem : Word;
i : Byte;
name: string;
scr,lenght,namew:word;
procedure InitDlist(a: word);
begin
dlist[0]:=$7070; dlist[1]:=$4d70;
dlist[2]:=$9060;
dlist[3]:=$0d0d; dlist[4]:=$0d0d; dlist[5]:=$0d0d; dlist[6]:=$0d0d;dlist[7]:=$0d0d;
dlist[8]:=$0d0d; dlist[9]:=$0d0d; dlist[10]:=$0d0d; dlist[11]:=$0d0d;dlist[12]:=$0d0d;
dlist[13]:=$0d0d; dlist[14]:=$0d0d; dlist[15]:=$0d0d; dlist[16]:=$0d0d;dlist[17]:=$0d0d;
dlist[18]:=$0d0d; dlist[19]:=$0d0d; dlist[20]:=$0d0d; dlist[21]:=$0d0d;dlist[22]:=$0d0d;
dlist[23]:=$0d0d; dlist[24]:=$0d0d; dlist[25]:=$0d0d; dlist[26]:=$0d0d;dlist[27]:=$0d0d;
dlist[28]:=$0d0d; dlist[29]:=$0d0d; dlist[30]:=$0d0d; dlist[31]:=$0d0d;dlist[32]:=$0d0d;
dlist[33]:=$0d0d; dlist[34]:=$0d0d; dlist[35]:=$0d0d; dlist[36]:=$0d0d;dlist[37]:=$0d0d;
dlist[38]:=$0d0d; dlist[39]:=$0d0d; dlist[40]:=$0d0d; dlist[41]:=$0d0d;dlist[42]:=$0d0d;
dlist[43]:=$0d0d; dlist[44]:=$0d0d; dlist[45]:=$0d0d; dlist[46]:=$0d0d;dlist[47]:=$0d0d;
dlist[48]:=$0d0d; dlist[49]:=$0d0d; dlist[50]:=$0d41;
dlist[51]:=a;
end;
procedure close;
begin
asm
{
stx @sp
ldx #$10
lda #12
sta iocom,x
jsr ciov
ldx @sp
rts
};
end;
procedure open(namew:word);
begin
asm
{
stx @sp
ldx #$10
lda #3
sta iocom,x
mwa namew ioadr,x
lda #4
sta ioaux1,x
jsr ciov
ldx @sp
rts
};
end;
procedure bget(scr,lenght:word);
begin
asm
{
stx @sp
ldx #$10
lda #7
sta iocom,x
mwa scr ioadr,x
mwa lenght iolen,x
jsr ciov
ldx @sp
rts
};
end;
begin
InitDlist(word(@dlist));
InitGraph(7);
DPoke(560,word(@dlist));
DPoke($58,36960);
name:='D:MULBI.BIN';
namew:=word(@name);
scr:=$9060;
lenght:=$f00;
open(namew);
bget(scr,lenght);
close;
// Initialize P/M graphics
Poke(53277, 3);
Poke(54279, 168);
pmgMem := 168 * 256;
Poke(559, 46);
px0 := 40; py0 := 40;
p0Data[0] := $ff;
p0Data[1] := $81;
p0Data[2] := $81;
p0Data[3] := $81;
p0Data[4] := $81;
p0Data[5] := $81;
p0Data[6] := $81;
p0Data[7] := $ff;
// Clear player 0 memory
fillchar(pointer(pmgMem+512), 128, 0);
// Vertical position of player 0
for i := 0 to _max do begin
Poke(pmgMem+512+py0+i, p0Data[i]);
end;
Poke(53277,3); // Turn on P/M graphics
Poke(53256,2); // Size of player 0 (normal size)
Poke(704,44); // Player 0 color
Poke(53248,px0); // Horizontal position of player 0
repeat
// Move player 0 left
if Peek(632)=11 then begin
Dec(px0);
if px0 < 45 then px0 := 45;
Poke(53248,px0);
Delay(_speed);
// Move player 0 right
end else if Peek(632)=7 then begin
Inc(px0);
if px0 > 203 then px0 := 203;
Poke(53248,px0);
Delay(_speed);
// Move player 0 up
end else if Peek(632)=14 then begin
Dec(py0);
if py0 < 16 then py0 := 16;
Poke(pmgMem+512+py0-1, 0);
Poke(pmgMem+512+py0+_max+1, 0);
Move(@p0Data, pointer(pmgMem+512+py0), _max+1);
Delay(_speed-8);
// Move player 0 down
end else if Peek(632)=13 then begin
Inc(py0);
if py0 > 97+8 then py0 := 97+8;
Poke(pmgMem+512+py0-1, 0);
Poke(pmgMem+512+py0+_max+1, 0);
Move(@p0Data, pointer(pmgMem+512+py0), _max+1);
Delay(_speed-8);
end;
if peek($D004) > 0 then begin
Poke($D01E,1);
fillchar(pointer(pmgMem+512), 128, 0);
px0 := 40; py0 := 40;
Move(@p0Data, pointer(pmgMem+512+py0), _max+1);
Poke(53248,px0);
end;
until keypressed;
InitGraph(0);
Poke(53277, 0);
end.

Alles anzeigen

Nur PM ohne Grafik und ohne Collision in Turbo Basic.
Es muss erst noch eine ASM erstellt werden um die Geschwindigkeit der PM von XFORTH oder
MAD Pascal zu errreichen:

Code

1000 RAMHIGH = $6A
1010 PMYPOS = $D0
1020 PMBASE = $D1
1030 PMSAVELO = $02
1040 PMSAVEHI = $03
1050 PMNUMBER = $CD
1060 FROMLO = $CE
1070 FROMHI = $CF
1080 *= $B000
1090 ;
1100 PLA
1110 CMP #$05
1120 BEQ RIGHT_AMOUNT
1130 TAY
1140 CLEANSTACK
1150 PLA
1160 PLA
1170 DEY
1180 BPL CLEANSTACK
1190 RTS
1200 RIGHT_AMOUNT
1210 PLA
1220 PLA
1230 CLC
1240 ADC #$03
1250 CMP #$08
1260 BCC NOCOMBO
1270 LDA #$03
1280 NOCOMBO
1290 TAY
1300 STA PMNUMBER
1310 CLC
1320 ADC $6A
1330 STA PMBASE
1340 PLA
1350 STA FROMHI
1360 PLA
1370 STA FROMLO
1380 TYA
1400 ASL A
1410 CLC
1420 ADC #$EC
1430 STA PMSAVELO
1440 LDA $6A
1450 CLC
1460 ADC #$02
1470 STA PMSAVEHI
1480 LDY #$00
1490 LDA (PMSAVELO),Y
1500 STA PMYPOS
1510 INY
1520 LDA (PMSAVELO),Y
1530 TAY
1540 LDA #$00
1550 CLEARLOOP
1560 STA (PMYPOS),Y
1570 DEY
1580 BPL CLEARLOOP
1590 PLA
1600 PLA
1610 LDY #$01
1620 STA (PMSAVELO),Y
1630 PLA
1640 PLA
1650 LDX PMNUMBER
1660 CPX #$04
1670 BCS COMBOSKIP
1680 LDX #$08
1690 CLC
1700 ADC #$08
1710 STA $CFFC,X
1720 SEC
1730 SBC #$02
1740 INX
1750 STA $CFFC,X
1760 SBC #$02
1770 INX
1780 STA $CFFC,X
1790 SBC #$02
1800 INX
1810 COMBOSKIP
1820 STA $CFFC,X
1830 PLA
1840 PLA
1850 STA PMYPOS
1860 LDY #$00
1870 STA (PMSAVELO),Y
1880 INY
1890 LDA (PMSAVELO),Y
1900 TAY
1910 DEY
1920 DRAWLOOP
1930 LDA (FROMLO),Y
1940 STA (PMYPOS),Y
1950 DEY
1960 BPL DRAWLOOP
1970 RTS
1980 ;
1990 ;
2000 ;
2010 PLA
2020 CMP #$02
2030 BEQ DOCLEAR
2040 TAY
2050 PGCLRSTK
2060 PLA
2070 PLA
2080 DEY
2090 BPL PGCLRSTK
2100 RTS
2110 DOCLEAR
2120 PAGEBASE = $D0
2130 PAGEBSHI = $D1
2140 PAGES = $CF
2150 PLA
2160 STA PAGEBSHI
2170 PLA
2180 STA PAGEBASE
2190 PLA
2200 PLA
2210 TAX
2220 NEXTPAGE
2230 LDY #$00
2240 TYA
2250 PGCLRLOOP
2260 STA (PAGEBASE),Y
2270 DEY
2280 BNE PGCLRLOOP
2290 INC PAGEBSHI
2300 DEX
2310 BNE PGCLRLOOP
2320 RTS

Alles anzeigen

Das Turbo-Basic-Listing, bei den Poke und For-Next-Schleifen bin ich nicht durchgestiegen :

Code

5 DIM X(5),Y(5),DX(5),DY(5)
10 EXEC INIT
20 FOR N=1 TO 5
30 X(N)=60+INT(RND*120):Y(N)=60+INT(RND*120):DX(N)=-1+INT(RND*2)*2:DY(N)=-1+INT(RND*2)*2
40 NEXT N
50 DO
60 FOR N=1 TO 5
70 Z=USR(PMMOVE,N,PMBASE,8,X(N),Y(N))
80 X(N)=X(N)+DX(N):IF X(N)<49 OR X(N)>199 THEN DX(N)=-DX(N)
90 Y(N)=Y(N)+DY(N):IF Y(N)<33 OR Y(N)>215 THEN DY(N)=-DY(N)
100 NEXT N
110 LOOP
8000 ------------------------------
8010 PROC INIT
8020 PMPAGE=184:POKE 106,PMPAGE:GRAPHICS 0:POKE 54279,PMPAGE:POKE 710,0:POKE 712,52
8030 BLOAD "D:PMMOVE.OBJ"
8040 PMBASE=PMPAGE*256
8050 POKE 559,62:POKE 623,17:POKE 704,68:POKE 705,24:POKE 706,136:POKE 707,212:POKE 711,170:POKE 53277,3
8060 PMMOVE=45056
8070 POKE PMBASE,0
8080 MOVE PMBASE,PMBASE+1,2047
8090 FOR N=PMBASE TO PMBASE+7
8100 READ A:POKE N,A
8110 NEXT N
8120 ENDPROC
8130 DATA 60,126,231,195,195,231,126,60

Alles anzeigen

ACTION! ist jetzt freigegeben...

Ähnliche Themen

Backup einer kompletten Floppy Sammlung

Atari800-Core auf dem MIST.