Benchmarks 71B versus 48GX

[KimH]

This is so cool, thanks J-F

(06-17-2020 08:44 PM)J-F Garnier Wrote:  Forth/assembler needed to enter and assemble the CPUV keyword.

Code:

       LEX 'CPUVER'
       ID #5C
       MSG 0
       POLL 0
       ENTRY CPUV
       CHAR #F
       KEY 'CPUV'
       TOKEN 1
       ENDTXT

FNRTN1 EQU #0F216
FUNCR0 EQU #2F89B

       NIBHEX 00
CPUV
* install hook
       GOSUB IHOOK 
HOOK   
       P= 14
       C=C+1 P   * return 1 if PC=(A) was effective
       GOTO ret

* set FUNCR0 to point to HOOK       
IHOOK  C=RSTK
       AD0EX          * save D0
       D0=(5) =FUNCR0
       DAT0=C A
* now set A[A] to point to FUNCR0
       AD0EX          * and restore D0
* prepare C
       C=0 W
* try PC=(A) 
       NIBHEX 808C     PC=(A)
* return 0 if nop
       C=0 W
       C=0 W
* return to Basic
ret    GOVLNG FNRTN1
       
       END

J-F