FORTH & HP: where to start?

[floppy]

(05-17-2023 12:40 AM)dmh Wrote:  Check out NQueens in FORTH for the 71b here.

(05-16-2023 07:31 PM)floppy Wrote:  Has anybody few FORTH programs, in text form in the internet, which were running/tested on HP71B ?

wonderfull. a good thing in order to see if my debugger works.
What does mean "HP-41 Translator ROM Module HP-82490A" ? I dont understand since I dont see any RPN code in it.

Code:

 HP-71B / Forth / HP-41 Translator ROM Module HP-82490A
--------------------------------------------------------


 : NQUEENSF ;
 FVARIABLE TIMER
 : STARTTIMER CLOCK TIMER STO ;
 : DISPLAYTIMER CLOCK TIMER RCL F- STD F. ." SEC" ;
 8 CONSTANT RR
 VARIABLE SS
 VARIABLE XX
 VARIABLE YY
 CREATE AA RR 1 + ALLOT
 : RCLAA @ 2 * AA + C@ ;
 : STOAA @ 2 * AA + C! ;
 : NQCORE
   0 SS !
   0 XX !
   BEGIN
     1 XX +! RR XX STOAA
     BEGIN
       1 SS +!
       XX @ YY !
       BEGIN YY @ 1 > WHILE
         -1 YY +!
         XX RCLAA YY RCLAA - DUP
         0 = SWAP ABS XX @ YY @ - = OR IF
           0 YY !
           BEGIN XX RCLAA 1 - DUP XX STOAA 0 = WHILE
             -1 XX +!
           REPEAT
         THEN
       REPEAT
     YY @ 1 = UNTIL
   RR XX @ = UNTIL
 ;
 : NQUEENS
   STARTTIMER
   NQCORE
   ." S=" SS @ . ." IN "
   DISPLAYTIMER CR
 ;