(41) Star Wars HP-41C (italian)

[SlideRule]

An extract from mc Microcomputer, MC software RPN, Star Wars HP-41C, , Anno 3 - numero 18, aprile 1983, pgs. 59-61

" Da parecchio tempo seguo la rubrica di RPN, sempre colma di naovi programmi e naqve idee, che ritengo veramente ben fatta e ben curata. Con la speranza di poterne essere all altezza ho inviato questo mio programma di simulazione che ho battezzato "Star Wars HP-41C", dal film al quale mi sono ispirato.

For a long time I have followed the RPN column, always full of new programs and ideas, which I think is really well made and well cared for. With the hope of being able to live up to it, I sent this simulation program of mine that I christened "Star Wars HP-41C", from the film I was inspired by. … "

BEST!
SlideRule

[Ángel Martin]

Hi, the link doesn't seem to work for me (it jut creates a new thread) - any advise? It'll be great to add this one to the games Library.// Best, ÁM

[Massimo Gnerucci]

(05-15-2020 08:14 AM)Ángel Martin Wrote:  Hi, the link doesn't seem to work for me (it jut creates a new thread) - any advise? It'll be great to add this one to the games Library.// Best, ÁM

You can find every past issue (20 years) of MC microcomputer with all HP related articles, tests and listings here.
I once had all of those on paper, just a few by now.

Direct link to the magazine scan.
Link to contents of all issues.

There was also another italian magazine "micro&personal computer" that predates MC, whence many MC authors came from.
Also had all of them on paper...

Many interesting listings (I remember one for perspective projection drawings for the 41) but you have to translate their descriptions from italian.

[SlideRule]

The LINK is 'amended', & should work (at least it appears to on my system). NO signup, etc required to view / download.

SlideRule

[Ángel Martin]

(05-15-2020 09:52 AM)Massimo Gnerucci Wrote:  There was also another italian magazine "micro&personal computer" that predates MC, whence many MC authors came from.

so it was its predator? ;-)

Thanks for the links and details !

[Massimo Gnerucci]

(05-16-2020 05:55 AM)Ángel Martin Wrote:  

(05-15-2020 09:52 AM)Massimo Gnerucci Wrote:  There was also another italian magazine "micro&personal computer" that predates MC, whence many MC authors came from.

so it was its predator? ;-)

Quite the contrary ;-)

(05-16-2020 05:55 AM)Ángel Martin Wrote:  Thanks for the links and details !

You are welcome.

[Ángel Martin]

Here's the raw file and my transcription of the code so far. Not quite working as advertized though

I can't figure out the following steps in the program listing, can you guys with better eyesight provide some guesses:

Step 02 - is it LBL 00?
Step 11 - it is "LBL B", right?
Step 93 - missing in the original?
Step 183 - is it ST+ 03 ?
and a few other ones taken "by context"

Code:

   8:04AM 17.05
 01*LBL "STARW"
 02*LBL 00
 03 CLRG
 04 "SEED=?"
 05 PROMPT
 06 STO 00
 07 FIX 0
 08 CF 29
 09 SF 27
 10 GTO 01
 11*LBL B
 12 ST+ 05
 13 ST+ 06
 14 GTO 01
 15*LBL C
 16 ST+ 06
 17 GTO 01
 18*LBL D
 19 ST- 05
 20 ST* 06
 21 GTO 01
 22*LBL G
 23 ST+ 05
 24 GTO 01
 25*LBL I
 26 STO 05
 27 GTO 01
 28*LBL "K"
 29 ST+ 05
 30 ST- 06
 31 GTO 01
 32*LBL "L"
 33 ST- 06
 34 GTO 01
 35*LBL "M"
 36 ST- 05
 37 ST- 06
 38 GTO 01
 39*LBL "N"
 40 TONE 3
 41 TONE 3
 42 RCL 01
 43 RCL 05
 44 X#Y?
 45 GTO 03
 46 RCL 02
 47 RCL 06
 48 X#Y?
 49 GTO 03
 50 CLA
 51 "POSITIVE"
 52 AVIEW
 53 TONE 2
 54 "TIME  "
 55 ARCL 00
 56 FIX 4
 57 CF 27
 58 SF 29
 59 PROMPT
 60 GTO 00
 61*LBL 03
 62 "NEGATIVE"
 63 AVIEW
 64 PSE
 65*LBL 01
 66 CF 00
 67 CLA
 68 AVIEW
 69 XEQ 02
 70 ST+ 02
 71 XEQ 02
 72 ST+ 01
 73 5
 74 RCL 01
 75 RCL 05
 76 -
 77 STO 07
 78 X>0?
 79 "("
 80 X=0?
 81 "!"
 82 X<0?
 83 ")"
 84 ASTO 04
 85 X>Y?
 86 SF 09
 87 CHS
 88 X<>Y
 89 X<=Y?
 90 SF 09
 91 RCL 02
 92 RCL 06
 93 -
 94 X>0?
 95 SF 06
 96 X=0?
 97 SF 07
 98 X<0?
 99 SF 08
100 ABS
101 STO 03
102 1
103 ST+ 03
104 "H"
105 ASTO X
106 CLA
107 ARCL 06
108 FS?C 09
109 "`   * *   "
110 FS?C 07
111 "`   - -   "
112 FS?C 06
113 "`   _ _   "
114 RCL 07
115 FS?C 07
116 GTO 04
117 5
118 -
119 CHS
120 RCL d
121 SCI IND Y
122 ARCL Y
123 RCL ^
124 STO L
125 CLX
126 X<> ]
127 "`^"
128 X<> T
129 X<> ]
130 "`=*****"
131 CLX
132 X<> \
133 STO [
134 CLX
135 X<> ]
136 STO \
137 X<> T
138 X<> ]
139 LASTX
140 X<> ^
141 X<> T
142 9
143 -
144 CHS
145 FIX 0
146 RND
147 10^X
148 ARCL X
149 R^
150 STO d
151 CLX
152 X<> ]
153 STO [
154 CLX
155 X<> ^
156 STO \
157*LBL 04
158 ARCL 06
159 ARCL 03
160 AVIEW
161 1
162 TONE 0
163 SF 00
164 PSE
165 GTO 01
166*LBL 02
167 RCL 00
168 9021
169 *
170 .211327
171 +
172 FRC
173 STO 00
174 .5
175 -
176 4
177 *
178 RND
179 END

[Massimo Gnerucci]

(05-17-2020 06:12 AM)Ángel Martin Wrote:  I can't figure out the following steps in the program listing, can you guys with better eyesight provide some guesses:

Step 02 - is it LBL 00?
Step 11 - it is "LBL B", right?
Step 93 - missing in the original?
Step 183 - is it ST+ 03 ?
and a few other ones taken "by context"

Step 02: Yes
Step 11: Yes
Step 26: ST- 05
Step 55: ARCL 08
Step 93: a minus sign
Cannot find step 183, the end is on step 180. If you meant step 103 it is a ST+ 08
Step 107: ARCL 04
Step 108: FS?C 08
Step 115: FS?C 09
Step 130: "`======"
Step 158: ARCL 04
Step 168: 9821
Step 179: RTN
Step 180: END

HTH

[Ángel Martin]

Bellissimo Massimo, grazie mille!!

Updated raw file included.

[Massimo Gnerucci]

(05-17-2020 01:43 PM)Ángel Martin Wrote:  Bellissimo Massimo, grazie mille!!

Updated raw file included.

Thank you, Ángel.
It's you that took the time to punch all those instructions!