How do I create a Subroutine using System RPL?

[wmundstock]

(09-30-2022 03:55 PM)DavidM Wrote:  Hope this helps!

You have been super helpful! Thank you, again, for takig the time to answer my questions.

In the process of trying Named and Unnamed LAMs I wanted to display a message. I was sucessful using FlashWarning, but I had issues with the FlashMsg.

From documentation FlashMsg should display a message in the status area, it seems to clear that out but it does NOT display the message.

This does not work.

Code:

::
    "Hello World"
    FlashMsg
;

As per documentation, FlashMsg implicitly calls DISPSTATUS2, so I tried code below which works.

Code:

::
    "Hello World"
    DISPSTATUS2
    SetDA1Temp
;

I used Nosy to check what FlashMsg does, and here it is:

Code:

::
    Save16Patch_
    SWAP
    PTR 11C27->DISPSTATUS2
    BINT80
    ZERO_DO
    SLOW
    LOOP
    Rest16Patch_
;

Documentation does not list the entry Save16Patch but seems like it saves the screen as a grob. Then it does a SWAP which would bring my string back to level 1 and then it does the DISPSTATUS2.
The rest of the code seems to be a simple Sleep to wait some time before moving on. The the Rest16Patch will then restore the previous screen.

Not sure what could be wrong here. Any suggestion?