Post Reply 
Sea stack
11-02-2015, 08:56 PM
Post: #1
Sea stack
Hi,

Sometimes it is convenient to see what it is into stack, when no printer, to better programing.

Here is a little routine that I use always on my HP41, with WP34s, I use Printer virtual.

From PPC and HP41 examples book.

Wink Gérard.

Gérard.
Find all posts by this user
Quote this message in a reply
11-03-2015, 08:17 PM
Post: #2
RE: Sea stack
(11-02-2015 08:56 PM)ggauny@live.fr Wrote:  Here is a little routine that I use always on my HP41, with WP34s, I use Printer virtual.

The 34s has a SHOW command (g EXIT).
Try it (use the up and down arrows) and see what you get. ;-)

Dieter
Find all posts by this user
Quote this message in a reply
11-07-2015, 03:12 PM
Post: #3
RE: Sea stack
Thanks for posting the nifty little program.

Steve
In order of appearance: HP 41CV, CMT-MCGPS, HP 41CX, DM 41, DM 42
Find all posts by this user
Quote this message in a reply
11-07-2015, 03:52 PM
Post: #4
RE: Sea stack
Bonjour Gérard,
Merci pour ce petit programme.
J'aime particulièrement la ligne 18 qui permet au programme d'être très compact.
Cordialement,
Sylvain

----

Hello Gérard,
Thanks for this small program.
By removing the unnecessary RDN or RUP in the main body, step 18 make it very compact
Best regards,
Sylvain
Find all posts by this user
Quote this message in a reply
11-08-2015, 12:32 AM
Post: #5
RE: Sea stack
Loop-unrolling saves 3 bytes but makes it 2 lines longer:

Code:
 01 LBL "STKDISP"
 02 "L="
 03 ARCL L
 04 AVIEW
 05 PSE
 06 "X="
 07 ARCL X
 08 AVIEW
 09 PSE
 10 "Y="
 11 ARCL Y
 12 AVIEW
 13 PSE
 14 "Z="
 15 ARCL Z
 16 AVIEW
 17 PSE
 18 "T="
 19 ARCL T
 20 AVIEW
 21 END

Kind regards
Thomas
Find all posts by this user
Quote this message in a reply
11-08-2015, 02:38 AM
Post: #6
RE: Sea stack
(11-08-2015 12:32 AM)Thomas Klemm Wrote:  Loop-unrolling saves 3 bytes but makes it 2 lines longer:

Hello Thomas,
Actually, it is 4 bytes shorter and effectively 2 lines longer.
Kind regards,
Sylvain

Code:
 BB  LL  Thomas (48 Bytes)  BB  LL  Gérard (52 Bytes)
--------------------------- --------------------------- 
 11  01  LBL "STKDISP"      11  01  LBL "STKDISP"
 03  02  "L="               02  02  X<> L
 02  03  ARCL L             03  03  "L="
 01  04  AVIEW              03  04  XEQ 00
 01  05  PSE                01  05  RUP
 03  06  "X="               02  06  X<> L
 02  07  ARCL X             03  07  "X="
 01  08  AVIEW              03  08  XEQ 00
 01  09  PSE                03  09  "Y="
 03  10  "Y="               03  10  XEQ 00
 02  11  ARCL Y             03  11  "Z="
 01  12  AVIEW              03  12  XEQ 00
 01  13  PSE                03  13  "T="
 03  14  "Z="               01  14  LBL 00
 02  15  ARCL Z             02  15  ARCL X
 01  16  AVIEW              01  16  AVIEW
 01  17  PSE                01  17  PSE
 03  18  "T="               01  18  RDN
 02  19  ARCL T             03  19  END
 01  20  AVIEW              
 03  21  END
Find all posts by this user
Quote this message in a reply
11-08-2015, 02:50 AM
Post: #7
RE: Sea stack
(11-08-2015 02:38 AM)Sylvain Cote Wrote:  it is 4 bytes shorter

That's because I counted the bytes before removing the final PSE instruction. Thanks for the correction.

Cheers
Thomas
Find all posts by this user
Quote this message in a reply
11-08-2015, 11:02 AM
Post: #8
RE: Sea stack
Hi all,

Thank's for optimizations !

Gérard.

Gérard.
Find all posts by this user
Quote this message in a reply
11-08-2015, 12:57 PM
Post: #9
RE: Sea stack
(11-08-2015 11:02 AM)ggauny@live.fr Wrote:  Thank's for optimizations !

Optimized? Here comes the definitely optimized version for the '41:

Code:
01 7PRSTK
02 VIEW L
03 END

OK, this requires a card reader... ;-)

Dieter
Find all posts by this user
Quote this message in a reply
11-08-2015, 01:37 PM
Post: #10
RE: Sea stack
(11-08-2015 12:57 PM)Dieter Wrote:  OK, this requires a card reader... ;-)

Dieter

Or, at least, its ROM.

Greetings,
    Massimo

-+×÷ ↔ left is right and right is wrong
Visit this user's website Find all posts by this user
Quote this message in a reply
11-09-2015, 06:41 PM
Post: #11
RE: Sea stack
Hi,

Code:

Or, at least, its ROM

Xrom 30.33 for emulator.

On real machine, without card reader, was....

Gérard.

Gérard.
Find all posts by this user
Quote this message in a reply
11-09-2015, 07:16 PM
Post: #12
RE: Sea stack
(11-09-2015 06:41 PM)ggauny@live.fr Wrote:  Hi,

Code:

Or, at least, its ROM

Xrom 30.33 for emulator.

On real machine, without card reader, was....

Gérard.

Yeah, you got it right (http://www.hpmuseum.org/software/xroms.htm).

Greetings,
    Massimo

-+×÷ ↔ left is right and right is wrong
Visit this user's website Find all posts by this user
Quote this message in a reply
11-10-2015, 06:42 PM
Post: #13
RE: Sea stack
Hi,

Thank but I have already two cards readers....

Gérard.

Gérard.
Find all posts by this user
Quote this message in a reply
11-10-2015, 08:01 PM
Post: #14
RE: Sea stack
(11-10-2015 06:42 PM)ggauny@live.fr Wrote:  Hi,

Thank but I have already two cards readers....

Gérard.

I don't even remember how many I have.

Greetings,
    Massimo

-+×÷ ↔ left is right and right is wrong
Visit this user's website Find all posts by this user
Quote this message in a reply
11-10-2015, 10:28 PM
Post: #15
RE: Sea stack
Hi,

How you don't remember of this ?

May I no good understand.

I tink when we have, we remember

Gérard.
Find all posts by this user
Quote this message in a reply
11-10-2015, 10:32 PM
Post: #16
RE: Sea stack
(11-10-2015 10:28 PM)ggauny@live.fr Wrote:  Hi,

How you don't remember of this ?

May I no good understand.

I tink when we have, we remember

When you got too many it is difficult to track everything.

Greetings,
    Massimo

-+×÷ ↔ left is right and right is wrong
Visit this user's website Find all posts by this user
Quote this message in a reply
11-10-2015, 10:38 PM
Post: #17
RE: Sea stack
I dont understand why you seem agressiv with me.
you have no understand my message.
surely I was not clear.
Yes i have two card reader for my 3 hp41( one C and two 41Cx)
It was ma passion expensive.
Really I dont understand your messages

Gérard.
Find all posts by this user
Quote this message in a reply
11-10-2015, 10:43 PM
Post: #18
RE: Sea stack
Again in Piave ?

Gérard.
Find all posts by this user
Quote this message in a reply
11-11-2015, 01:58 AM
Post: #19
RE: Sea stack
Salut Gérard,

Je pense qu'il y a un problème de compréhensions entre vous et Massimo.

Voici ma compréhension de vos échanges ...

Vous: vous avez deux lecteurs de carte magnétique.
Massimo: moi, je ne me souviens plus de comment j'en possède.
Vous: Comment pouvez-vous ne pas vous souvenir de la quantité que vous avez ?
Vous: Je n'ai probablement pas compris votre intervention.
Vous: Normalement on devrait se souvenir de ce qu'on possède.
Massimo: Lorsque tu en possèdes beaucoup, il arrive d'en perdre le décompte.

Je ne pense pas que Massimo n'a été en aucun moment agressif dans ces échanges.

Cordialement,

Sylvain
Find all posts by this user
Quote this message in a reply
11-11-2015, 06:34 AM
Post: #20
RE: Sea stack
Thanks Sylvain, and sorry Gérard: I didn't mean to sound offensive nor aggressive.
Actually I, sometimes, find difficult to fully understand what you mean. My fault, of course.

Massimo
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 3 Guest(s)