🚀 go-pugleaf

Checksum:  138615446 (verify with brik -cv)
Submitted-by: Mike Morgan <m00012@KANGA.STCLOUD.MSUS.EDU>
Posting-number: Volume 7, Info 1
Archive-name: tvrex_mm

BEGIN_DOC tvrex.doc
                    ***system RPL tutorial***

TVREX:  (Named) Temporary variable example

"I DON'T CARE-WARE"

This is a simple example illustrating the use of named
temporary variables in system RPL.

INSTRUCTIONS:
1.  Create text file TVREX.S
2.  execute: RPLCOMP TVREX.S TVREX.A
3.  execute: SASM TVREX.A
4.  Create loader control file TVREX.M
5.  Execute SLOAD -H TVREX.M
6.  Download the binary, TVREX to your HP 48 and try it out.

OTHERWISE, download the asc version and just use mine.

Mike Morgan
M00012@KANGA.STCLOUD.MSUS.EDU

P.S.  I will answer any questions...but chances are that I won't
      know the answer.
END_DOC

BEGIN_SRC tvrex.s
* This program reorders the first six stack levels:
*
*       ABCDEF>FEDCBA
*
* A simple named temp. variable example....
*
*
ASSEMBLE
        NIBASC   /HPHP48-E/
RPL
::
  DEPTH         ( ob1...obn --> ob1...obn #n )
  SIX           ( #110b )
  #<            ( Is the stack depth less than 6? )
  caseDoBadKey  ( *If true, do bad key and exit, else continue )
  {
     LAM aa
     LAM bb
     LAM cc
     LAM dd
     LAM ee
     LAM ff
  }
  BIND          ( lvl 6 to aa...lvl 1 to f )
  LAM ff        ( Recall ff)
  LAM ee
  LAM dd
  LAM cc
  LAM bb
  LAM aa
;
END_SRC

BEGIN_SRC tvrex.m
TITLE Temp. variable example
OUTPUT TVREX
LLIST TVREX.LR
SUPPRESS XREF
SEARCH c:/tools/ENTRIES.O
REL TVREX.O
END
END_SRC

BEGIN_ASC tvrex.asc
%%HP: T(1)A(R)F(.); @ tasc v2.52 file
"D9D20C4130B20404EC30BEB3647A20D6E20201616D6E20202626D6E20203636D
6E20204646D6E20205656D6E20206666B21300D470D6E20206666D6E20205656
D6E20204646D6E20203636D6E20202626D6E20201616B21300DBB"
@ BYTES: #BBD0h 88.5
END_ASC


BYTES: #BBD0h 88.5

BEGIN_UU tvrex.uue
begin 644 tvrex
M2%!(4#0X+46=+<`4`RM`0,X#ZSM&IP)M+B`0%M;F`@)B8FTN(#`VUN8"`F1D
M;2X@4%;6Y@("9F8K,0!-!VTN(&!FUN8"`F5E;2X@0$;6Y@("8V-M+B`@)M;F
'`@)A82LQ`"LQ
`
end
sum -r/size 42992/160 section (from "begin" to "end")
sum -r/size 8220/97 entire input file
END_UU