How do I write the JMP command in a program?

[Dieter]

(12-11-2014 01:40 PM)Roger Ward Wrote:  I'm not a programmer so this is all new to me.

OK, in this case a complete "translation" may be helpful. There are some other lines that have to be entered differently from what the assembler-generated listing says.

Code:


LBL'IED' 
WSIZE 64
SIGNMT
DBLON
INTM?
GTO B

LBL A
LocR 001
CLα
x=0?
GTO 01
SPEC?
GTO 02
ENTER
ABS
LOG_2
FLOOR
# 010
2^x
DEC X
x<? Y
ERR 08
+/-
MAX
STO .00
# 052
x<> Y
-
# 179
# 006
x
MIN
2^x
x
ROUNDI
RCL .00
BASE 16
# 010
2^x
DEC X
+
CF .00
x=0?
SF .00
SL 52
x<> Y
MASKR 52
+/-
AND
OR
FC? .00
RTN
α"Den"
α"orm"
VWα+ X
RTN

LBL 01
CF .01
x=-0?
SF .01
BASE 16
FS? .01
SB 63
RTN

LBL 02
∞ ?
GTO 03
BASE 16
MASKR 12
SL 51
α'NaN'
VWα+ X
RTN

LBL 03
CF .01
x<0?
SF .01
BASE 16
MASKR 11
SL 52
FS? .01
SB 63
RTN

LBL B
LocR 001
CLα
x=0?
GTO 04
ENTER
CB 63
SR 52
# 011
2^x
DEC X
x=? Y
GTO 05
DROP
CF .00
x=0?
SF .00
# 001
MAX
# 010
2^x
DEC X
-
x<> Y
MASKR 11
SL 52
NOT
AND
FC? .00
SB 52
DECM
x<> Y 
# 052
x<> Y
-
2^x
/
FC? .00
RTN
α"Den"
α"orm"
VWα+ X
RTN

LBL 04
CF .01
x=-0?
SF .01
DECM
FC? .01
RTN
α"Neg"
α" 0"
0
+/-
VWα+ X
RTN

LBL 05
DROP
DROP
ENTER
MASKR 52
AND
x=0?
GTO 06
DECM
# NaN
RTN

LBL 06
DROP
CF .01
x<0?
SF .01
DECM
# ∞
FS? .01
+/-
RTN

END

This should look close to what you see in the display.

Dieter