04-10-2018, 03:46 AM

Hi all,

I don't know if this is useful to anyone, but I uploaded to http://www.teenix.org, a utility program that can assemble text files into HP-9100B code.

Editing code using a 9100B is a bit difficult especially with large programs and changing GoTo's to + or - memory pages.

Here is a part example for the F(x) plotter program that was originally in the 9125A Plotter Programs Manual.

It will also create files for the marked card reader, magnetic program cards and assembled listing files which are compatible with the 9100B simulator.

cheers

Tony

// Initialise X to Yshift - deltaX and store

ACC+

PlotLoop: RCL

Add

Y->[e]

Shift Down

// subroutine calculate f(x)

Gosub FofX // do f(x)

// calculate Yplot = 500/Yscale x (y - Yshift)

d

Subtract

b

Multiply

// calculate Xplot = 500/Xscale x (x - Xshift)

e

Shift Up

c

Subtract

a

Divide

// plot the calculated line segment

Shift Down

FMT

Shift Down

GoTo PlotLoop // continue

// F(x) subroutine

FofX: Shift Up

SINx

x<->y

Divide

sub return

End

List file output example for the F(x) subroutine call

+3.5 44 GoTo fofx // do f(x)

+3.6 77 Sub Return

+3.7 04 4

+3.8 14 b

I don't know if this is useful to anyone, but I uploaded to http://www.teenix.org, a utility program that can assemble text files into HP-9100B code.

Editing code using a 9100B is a bit difficult especially with large programs and changing GoTo's to + or - memory pages.

Here is a part example for the F(x) plotter program that was originally in the 9125A Plotter Programs Manual.

It will also create files for the marked card reader, magnetic program cards and assembled listing files which are compatible with the 9100B simulator.

cheers

Tony

// Initialise X to Yshift - deltaX and store

ACC+

PlotLoop: RCL

Add

Y->[e]

Shift Down

// subroutine calculate f(x)

Gosub FofX // do f(x)

// calculate Yplot = 500/Yscale x (y - Yshift)

d

Subtract

b

Multiply

// calculate Xplot = 500/Xscale x (x - Xshift)

e

Shift Up

c

Subtract

a

Divide

// plot the calculated line segment

Shift Down

FMT

Shift Down

GoTo PlotLoop // continue

// F(x) subroutine

FofX: Shift Up

SINx

x<->y

Divide

sub return

End

List file output example for the F(x) subroutine call

+3.5 44 GoTo fofx // do f(x)

+3.6 77 Sub Return

+3.7 04 4

+3.8 14 b