akcs.dnickel@hpcvbbs.UUCP (Derek Scott Nickel) (12/29/90)
Here is an updated copy of my string reversing routine. REV takes one
arguement, the string to reverse. (Use ASC\-> to decode).
Derek S. Nickel
%%HP: T(3)A(R)F(.);
"D9D20D29512BF81D0040D9D208813063650FD5502C230F6E30C1C1632230CCD2
0940008F146608FB9760CC4C2147134169174147C2C213517914F14C1611C1CC
51F8D34150B9F06B2130B213063F9"
========================================================================
REV
80000: 02D9D ! Program
80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
8000A: 18FB2 ; Check arguments for type
8000F: 0400D ; <3h>
80014: 02D9D ! Program
80019: 03188 ; Internal DUP
8001E: 05636 ; Internal SIZE (1:String) -> System Binary
80023: 055DF ; ""
80028: 032C2 ; Internal OVER
8002D: 03E6F ; Internal multiply by 2 (1:System Binary)
80032: 61C1C ; allocate nibbles (2:sized object,1:System Binary)
80037: 03223 ; Internal SWAP
8003C: 02DCC ! Code
80041: 00049 ! 73 nibbles (next RPL at 8008A)
80046: 8F14660 GOSBVL 06641 ; MC: pop TOS (System Binary)
into A.A
8004D: 8FB9760 GOSBVL 0679B ; MC: save D0,D1,B,D (uses C,D0),
clear carry
80054: CC A=A-1 A ; set-up loop, etc (size-1)
80056: 4C2 GOC 80083 ; exit if null string
80059: 147 C=DAT1 A ; D1: ptr to new str data
8005C: 134 D0=C ; ...
8005F: 169 D0=D0+ 10 ; ...
80062: 174 D1=D1+ 5 ; D0: ptr to last char of orig
str data
80065: 147 C=DAT1 A ; ...
80068: C2 C=C+A A ; ...
8006A: C2 C=C+A A ; ...
8006C: 135 D1=C ; ...
8006F: 179 D1=D1+ 10 ; ...
80072: 14F C=DAT1 B ; get character from orig string
80075: 14C DAT0=C B ; put character to new string
80078: 161 D0=D0+ 2 ; next character
8007B: 1C1 D1=D1- 2 ; ...
8007E: CC A=A-1 A ; ...
80080: 51F GONC 80072 ; go if more
80083: 8D34150 GOVLNG 05143 ; MC: restore D,B,D1,D0 (C=D0),
clear carry and continue RPL
. . . . . . ! End of Code
8008A: 60F9B ; drop level two object
8008F: 0312B ! End Marker
80094: 0312B ! End Markerakcs.dnickel@hpcvbbs.UUCP (Derek Scott Nickel) (12/29/90)
Oh, by the way: I posted REV as an example of MCODE/ML programming, not
that it's an earth shaking achivement (but it is small and should be easy
to follow (maybe?)
Any questions?
Derek S. Nickel