Looking for manual to APX fig-FORTH.

[tschak909]

Does anyone know where I can find a manual to the fig-FORTH distributed by APX? Or perhaps QS Forth?

 

-Thom

[+Larry]

Poking around a bit relative to this, I ran across this thread that might be helpful.

 

http://www.atari8.com/node/121

 

-Larry

[tschak909]

I'm actually not sure whether there are bugs, or something I am not seeing...

 

According to this screen:

 

SCR # 18
 0 ( FULL LOAD ))))))))))))))))))))))))))))))))))))))))))))))))))))
 1 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 2
 3
 4 ( LOAD DEBUG )
 5    21 LOAD
 6
 7 ( LOAD EDITOR )
 8   27 LOAD
 9
10 ( LOAD ASSEMBLER )
11    39 LOAD
12
13 ;S
14
15

 

see the ))))))))))))))))))))))))))) ??? That seems _VERY_ odd, and causes a parsing error "))))))))))) .... ?"

 

if I deliberately do a 27 LOAD, it loads a few screens, until I get to screen 29:

 

SCR # 29
 0 ( EDITOR )
 1 : H LINE PAD 1+ C/L DUP PAD C!
 2	  CMOVE ;
 3 : E LINE C/L BLANKS UPDATE ;
 4 : S DUP 1 - 0E DO I LINE I 1+
 5	 -MOVE -1 +LOOP E ;
 6 : D DUP H 0F DUP ROT
 7	 DO I 1+ LINE I -MOVE LOOP E ;
 8
 9
10    -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
11 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
12
13
14
15

 

again, wtf is up with the padded >>>>>>>>>>>>>>>> ?! is this a bug?

 

The remaining screens show similar weird padding issues:

 

SCR # 30
 0 ( EDITOR )))))))))))))))))))))))))))))))))))))))))))))))))))))))
 1 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 2 : M   R# +! CR SPACE #LEAD TYPE
 3	   17 EMIT #LAG TYPE #LOCATE
 4	   . DROP ;
 5 : T   DUP C/L * R# ! DUP H 0 M ;
 6 : L   SCR @ LIST 0 M ;
 7 : R   PAD 1+ SWAP -MOVE ;
 8 : P   1 TEXT R ;
 9 : I   DUP S R ;
10 : TOP   0 R# ! ;
11
12
13   -->
14
15
SCR # 31
 0 ( EDITOR )))))))))))))))))))))))))))))))))))))))))))))))))))))))
 1 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
 2
 3 : CLEAR  SCR ! 10 0 DO FORTH I
 4		  EDITOR E LOOP ;
 5
 6
 7
 8
 9
10 : COPY   B/SCR * OFFSET @ + SWAP
11		  B/SCR * B/SCR OVER +
12		  SWAP DO DUP FORTH I
13		  BLOCK 2 - ! 1+ UPDATE
14		  LOOP DROP FLUSH ;
15   -->
SCR # 32
 0 ( EDITOR )
 1
 2 : 1LINE   #LAG PAD COUNT MATCH R#
 3		   +! ;
 4
 5
 6 : FIND   BEGIN 3FF R# @ < IF TOP
 7		  PAD HERE C/L 1+ CMOVE 0
 8		  ERROR ENDIF 1LINE UNTIL
 9		  ;
10
11 : DELETE   >R #LAG + FORTH R -
12	    #LAG R MINUS R# +! #LEAD
13	    + SWAP CMOVE R> BLANKS
14	    UPDATE ;
15 -->
SCR # 33
 0 ( EDITOR )
 1
 2 : N   FIND 0 M ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 4 : F   1 TEXT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
 5 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
 6 : B   PAD C@ MINUS M ;
 7
 8 : X   1 TEXT FIND PAD C@ DELETE
 9	   0 M ;
10
11 : TILL   #LEAD + 1 TEXT 1LINE 0=
12		  0 ?ERROR #LEAD + SWAP -
13		  DELETE 0 M ;
14
15 -->
SCR # 34
 0 ( END OF EDITOR )
 1
 2 : C   1 TEXT PAD COUNT #LAG ROT
 3	   OVER MIN >R FORTH R R# +!
 4	   R - >R DUP HERE R CMOVE
 5	   HERE #LEAD + R> CMOVE R>
 6	   CMOVE UPDATE 0 M ;
 7
 8
 9 FORTH DEFINITIONS DECIMAL
10
11 LATEST 12 +ORIGIN !
12 HERE 28 +ORIGIN !
13 HERE 30 +ORIGIN !
14 ' EDITOR 6 + 32 +ORIGIN !
15 HERE FENCE !    BASE !    ;S

 

Am I missing something here? This is the case on both versions of the APX extended fig forth that I've been able to find... *scratch-head*

[tschak909]

oh jeez, is this the result of xmodem padding out blocks for transmission?

 

sigh.

 

-Thom

[tschak909]

So, I've decided to basically bootstrap the editor on the disk manually into the forth environment.

 

I will save the resulting environment, and use that to recreate the screens correctly on the disk.

 

Thanks to carsten for dumping the screens to a web page so I can view them. It is making this process a LOT easier.

 

Yes, I know I could just use a disk editor to fix the errant code, but this way, the forth will be in my muscle memory.

 

-Thom

Edited February 17, 2012 by tschak909

[tschak909]

pic attached.

Edited February 17, 2012 by tschak909

[funkheld]

XFORTH is better !

XFORTH is more stable and upload files to the Forth has some

 

http://www.atariage....-in-the-xforth/

my grafik with XFORTH !

http://www.atariage....the-atari800xl/

Floating with Atari-Float

 

gruss

Edited February 21, 2012 by funkheld

[tschak909]

Dude, you are missing the point. I want a classic forth environment specifically for writing games etc that mix assembler and forth where needed, and can be easily saved as a boot image containing the whole environment. X-Forth is a file forth.

 

-Thom

 

XFORTH is better !

XFORTH is more stable and upload files to the Forth has some

 

http://www.atariage....-in-the-xforth/

my grafik with XFORTH !

http://www.atariage....the-atari800xl/

Floating with Atari-Float

 

gruss