Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 10-31-2017 10:05 PM by Gene.)

I have found a programme that apparently does

Code:

::

ZINT 2

FPTR2 ^ZQUOText

;

faster for input > 10^10.

Could someone please verify the assembly code as its analysis is beyond my capabilities.

Also does anyone know the source of the programme?

Code:

::

  CK1&Dispatch

  # FF

  ::

    DUP

    FPTR2 ^ZAbs

    FPTR2 ^QIsZero?

    ?SEMI

    TOTEMPOB

    CODE

    %FFD5B

    GOSBVL =SAVPTR

    A=DAT1  A 

    R0=A  A 

    D0=A 

    D0+5

    C=DAT0  A 

    D0+5

    C-7 A 

    P=C   0

    CSR    A 

    D1=C 

    A=0    B 

    C=DAT0  WP

    SETDEC

    D=C    WP

    C=C+C  WP

    GONC FFDA8

    A+2 B 

    *FFDA8 C=C+C  WP

    GONC FFDB1

    A=A+1  B 

    *FFDB1 C=C+D  WP

    GONC FFDBA

    A=A+1  B 

    *FFDBA SETHEX

    ?P=   0 ->  FFDD5

    CSR    WP

    P=P-1 

    DAT0=C  WP

    CD0EX

    C+P+1 

    P=0

    CD0EX

    *FFDD5 B=0    W 

    D1-1

    GOC  FFE29

    *FFDDE SETDEC

    D0+1

    C=DAT0 16

    D0-1

    B=A    P 

    A=0    P 

    D=C    W 

    C=C+C  W 

    GONC FFDFF

    A+2 B 

    *FFDFF C=C+C  W 

    GONC FFE08

    A=A+1  B 

    *FFE08 C=C+D  W 

    GONC FFE11

    A=A+1  B 

    *FFE11 C=C+B  W 

    GONC FFE1A

    A=A+1  B 

    *FFE1A SETHEX

    DAT0=C 16

    D0+16

    D1-1

    GONC FFDDE

    *FFE29 ?A=0  P  ->  FFE39

    DAT0=A  P 

    D0+2

    GOTO  FFE4D

    *FFE39 C=DAT0  B 

    CSR    B 

    DAT0=C  P 

    D0+1

    GOSBVL =Shrink$

    *FFE4D GOVLNG =GETPTRLOOP

    ENDCODE

  ;

;