(42S) Arabic to Roman

[Gerald H]

A programme to convert an Arabic decimal integer in stack level 1 to its Roman representation in alpha register.

The programme is a translation from the Prime programme here:

http://www.hpmuseum.org/forum/thread-5536.html

written by Didier Lachieze, thanks to him for the insightful analysis.

Improvements welcome.

Code:


0.    { 162-Byte Prgm }
1.    LBL “A→R”
2.    CLA
3.    1.013
4.    RCL ST Y
5.    LBL 00
6.    LBL 14
7.    XEQ IND ST Y
8.    X>Y?
9.    GTO 15
10.    –
11.    GTO 14
12.    LBL 15
13.    R↓
14.    ISG ST Y
15.    GTO 00
16.    RCL ST Z
17.    AVIEW
18.    RTN
19.    LBL 01
20.    1000
21.    X≤Y?
22.    ├”M”
23.    RTN
24.    LBL 02
25.    900
26.    X≤Y?
27.    ├”CM”
28.    RTN
29.    LBL 03
30.    500
31.    X≤Y?
32.    ├”D”
33.    RTN
34.    LBL 04
35.    400
36.    X≤Y?
37.    ├”CD”
38.    RTN
39.    LBL 05
40.    1E2
41.    X≤Y?
42.    ├”C”
43.    RTN
44.    LBL 06
45.    90
46.    X≤Y?
47.    ├”XC”
48.    RTN
49.    LBL 07
50.    50
51.    X≤Y?
52.    ├”L”
53.    RTN
54.    LBL 08
55.    40
56.    X≤Y?
57.    ├”XL”
58.    RTN
59.    LBL 09
60.    10
61.    X≤Y?
62.    ├”X”
63.    RTN
64.    LBL 10
65.    9
66.    X≤Y?
67.    ├”IX”
68.    RTN
69.    LBL 11
70.    5
71.    X≤Y?
72.    ├”V”
73.    RTN
74.    LBL 12
75.    4
76.    X≤Y?
77.    ├”IV”
78.    RTN
79.    LBL 13
80.    1
81.    X≤Y?
82.    ├”I”
83.    END

[d b]

I could use this right now