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 Marker