Complex

Complx.pt #

All Program List

P0

19 Min0F AC Min01 HLT
Min08 0 HLT
Min09

P1

1 Min00 - 1 = ISZ GOTO1
1 Min01
LBL1 GSBP9


P2

2 Min00 GSBP9


P3

3 Min00 GSBP9


P4

4 Min00 GSBP9


P5

MR09 IND Min0F 1 M-0F MR08 IND Min0F 1 M-0F MR00 IND Min0F 1 M-0F AC HLT
Min08 0 HLT
Min09

P6

MR08 Min05 MR09 Min06 1 M+0F IND MR0F Min00 1 M+0F IND MR0F Min08 1 M+0F IND MR0F Min09 1 Min01 GSBP9


P7

7 Min00 GSBP9


P8

2 Min00 1 Min01 X<>M08 Min05 AC X<>M09 Min06 GSBP9


P9

RAD MR01 X=0 GOTO0
0 Min01 MR06 IND GOTO0
LBL0 HLT
Min05 0 HLT
Min06 IND GOTO0
LBL7 1 Min01
LBL6 MR08 R>P MR09 = LN Min08 X<>Y Min09 MR01 X=0 GOTO9
MR06
LBL1 * MR09 +/- + MR08 * MR05 = X<>M08 * MR06 + MR09 * MR05 = Min09 MR01 X=0 GOTO9
LBL5 MR08 e^X * * MR09 COS = Min08 MR09 SIN = Min09 AC Min01 GOTO9
LBL2 X^2 + MR05 X^2 = Min00 MR09 * MR05 - MR08 * MR06 = / MR00 = X<>M09 * MR06 + MR08 * MR05 = / MR00 = Min08 GOTO9
LBL3 M+09 MR05 M+08 GOTO9
LBL4 M-09 MR05 M-08 GOTO9
LBL8 MR08 COS * MR09 HYPCOS = X<>M08 SIN +/- * MR09 HYPSIN = Min09
LBL9 DEG MR08 HLT
MR09

END

Author #

Peter Martin, Facebook, Homepage