durexforth port?

[Steve Mynott]

Has anyone looked at porting durexforth from the C64?

 

Cheers Steve

[funkheld]

Durexforth for Atari800 does not exist.

I know the XFORTH. It is wonderful and has no more Block Editor.

It can use the files are loaded with INCLUDE "test.f".

XFORTH.ASM (source) can be recompiled with atasm.exe.

http://wiki.strotmann.de/wiki/Wiki.jsp?page=X-FORTH

PM-Collison with ASCII-SCREEN in XFORTH , PM rebounds from ASCII with 3 Points :

HEX

 

00 VARIABLE XPOS

00 VARIABLE YPOS

00 VARIABLE ZEIT

 

9060 CONSTANT SCREEN

022F CONSTANT SDMCTL

D000 CONSTANT HPOS0

D01D CONSTANT GRACTL

D407 CONSTANT PMBASE

230  CONSTANT SDLSTL

0278 CONSTANT STICK0

D004 CONSTANT P0PF

D01E CONSTANT HITCLR

 

2C0 CONSTANT PM0C

 

00 VARIABLE DLIST -2 ALLOT

70 C, 70 C, 70 C,

42 C, 9060 ,

0202 , 0202 , 0202 , 0202 ,

0202 , 0202 , 0202 , 0202 ,

0202 , 0202 , 0202 , 02 C,

41 C, DLIST ,

 

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

 

: DELAY

ZEIT @ 0 DO

LOOP ;

  

: INITPM

2E SDMCTL C!

3 GRACTL C!

A8 PMBASE C! ;

 

: PM0POS

AA00 80 0 FILL

SPRITE0 AA00 YPOS C@ + 9 CMOVE

XPOS C@ HPOS0 C! ;

 

: BEWEGE

BEGIN

DELAY

STICK0 C@

    

DUP 0E = IF 

    YPOS C@ 1 - YPOS C! PM0POS 

    P0PF C@ 0 > IF YPOS C@ 3 + YPOS C! PM0POS THEN

    THEN

    

DUP 0D = IF 

    YPOS C@ 1 + YPOS C! PM0POS 

    P0PF C@ 0 > IF YPOS C@ 3 - YPOS C! PM0POS THEN

    THEN

    

DUP 07 = IF 

    XPOS C@ 1 + XPOS C! PM0POS 

    P0PF C@ 0 > IF XPOS C@ 3 - XPOS C! PM0POS THEN

    THEN

   

    0B = IF 

    XPOS C@ 1 - XPOS C! PM0POS 

    P0PF C@ 0 > IF XPOS C@ 3 + XPOS C! PM0POS THEN

    THEN

 

1 HITCLR C!

0 1 = UNTIL ;

 

: INIT

DLIST SDLSTL ! 

INITPM

20 SCREEN C!  21 SCREEN FF + C! 

2C PM0C C!

32 XPOS C! 32 YPOS C! PM0POS

FF ZEIT !

BEWEGE ;

salute

Edited August 20, 2015 by funkheld