Threaded Mode | Linear Mode

floppy · (This post was last modified: 06-18-2024 06:36 PM by floppy.)

(06-18-2024 04:29 AM)Garth Wilson Wrote: It's VLIST, on p.32 of the 82441A manual from April 1984.

Thanks. Output of it is below (if need of anybody in a text form).
However, the entry points E717A and E71A5 and E7320 are not seen: in a readable assembler code like in the IDS V3.. My new path: I will have a look now how to dump the module then to print the assembler in a readable form.
VLIST

Code:

"

(

?

:

]

;

*

#

.

[

/

,

3

2

1

0

@

!

>

<

=

-

+

J

I

'

L

T

Z

Y

X

S<

S=

S!

C,

U.

<>

M*

D<

<#

#>

#S

CR

*/

D.

M/

S0

.(

."

DO

IF

C!

C@

BL

D+

D-

U<

0>

0<

1-

2-

1+

2+

5-

5+

2/

2*

+!

0=

OR

R@

>R

R>

OF

F/

F*

F-

F+

N!

N@

F.

LN

H.

.S

IP

FP

ASC

VAL

POS

EOF

MAX

MIN

D.R

MOD

PAD

KEY

BYE

>IN

BLK

USE

TIB

RP0

SP0

ABS

NOT

XOR

AND

ROT

DUP

RP!

RP@

SP!

C@+

SP@

RDN

RUP

E^X

Y^X

1/X

X^2

TAN

COS

SIN

ENG

SCI

FIX

STD

RCL

STO

[']

UM*

CHS

LGT

HEX

4N@

S>&

S<&

END$

CHR$

STR$

SUB$

+BUF

TYPE

CASE

SIGN

?DUP

HOLD

/MOD

HERE

EMIT

WORD

QUIT

FIND

ROLL

LOOP

ELSE

THEN

BASE

PREV

WARN

S->D

DABS

FILL

2DUP

OVER

PICK

SWAP

DROP

GROW

10^X

X<>Y

ATAN

ACOS

ASIN

EXIT

SPAN

#TIB

FTOI

ITOF

SQRT

X#Y?

X=Y?

X>Y?

X=0?

X<Y?

CRLF

FABS

LEFT$

SMOVE

NULL$

OPENF

LOADF

BLOCK

ENDOF

M/MOD

*/MOD

DEPTH

SPACE

ABORT

?COMP

ALLOT

QUERY

CMOVE

+LOOP

WHILE

UNTIL

BEGIN

DOES>

LEAVE

LINE#

LIMIT

FIRST

STATE

ONERR

OKFLG

FENCE

WIDTH

COUNT

2SWAP

DIGIT

2DROP

NMOVE

2OVER

ENTER

LASTX

>BODY

FLUSH

EXPBF

CONBF

X>=Y?

X<=Y?

FINDF

FDROP

VARID

FSTR$

NFILL

RIGHT$

MAXLEN

STRING

CLOSEF

SMUDGE

SPACES

ABORT"

NUMBER

TOGGLE

LATEST

?STACK

FORGET

REPEAT

CREATE

SCRFIB

NMOVE>

CMOVE>

NEGATE

SHRINK

OUTPUT

BASICX

FENTER

UM/MOD

KILLBF

FINDBF

MAKEBF

BASIC$

BASICF

BASICI

NALLOT

ADJUSTF

SYNTAXF

CREATEF

ENDCASE

COMPILE

LITERAL

'STREAM

ENCLOSE

CONVERT

DECIMAL

CURRENT

CONTEXT

DNEGATE

DEGREES

RADIANS

EXECUTE

PRIMARY

LISTING

CLOSEALL

DLITERAL

TRAVERSE

EXPECT96

VARIABLE

CONSTANT

FLITERAL

PAGESIZE

ASSEMBLE

IMMEDIATE

-TRAILING

INTERPRET

[COMPILE]

SECONDARY

FVARIABLE

FCONSTANT

?TERMINAL

VOCABULARY

DEFINITIONS

STRING-ARRAY

Are the entries listed above in the post top, the CFA address of some words?
when I see the "lift floating point stack" then I was thinking about FENTER. Then I tried to find it.. but it shows E4C0F. Then perhaps thats not the correct way.
" FENTER" S. . 2- FIND S. . HEX .
[ 35491 6 ] 6 [ E4C0F FFFFF ] -1 -1B3F1 OK { 0 }
UN: FENTER show.
Word: FENTER
LFA: E4BFC Link: E4B8A
NFA: E4C01 686454E445542D
CFA: E4C0F Primitive
OK { 0 }
Now I will scan the other Forth words till I find the searched entry points.

UPDATE/CLOSURE: the Forth entry points are found in the 71ForthASM_IMS_IDS.pdf (entry point E7320 found in page 298 of the pdf file).