Jump to content
IGNORED

durexforth port?


Recommended Posts

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.






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 by funkheld
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...