[comp.sys.handhelds] ASC for HP-48

akcs.falco@hpcvbbs.UUCP (Andrey Dolgachev) (01/23/91)

O.K., due to popular demand, here's the version of ASC which I use, this
should work with no problems, since it's my origninal text versions of
it.  Just download the programs and use ASC-> for the machine-code ones
(just kidding)
-------------------tear here-----------
DIR
P1   
+
  IF DUP TYPE 2 == NOT
  THEN "Not A String" DOERR
  END RCWS 
 ws
  + 16 STWS
    #0 NEWOB SWAP DUP SIZE
    IF DUP 4 <
    THEN DROP SWAP DROP "Invalid String" DOERR
    END 
    DUP 65 / IP - 4 - # 18CEAh SYSEVAL 
    "" OVER # 61C1Ch SYSEVAL
    SWAP # 6641F8000AF02DCCh
    # 130480679BF8CC0h # 518Ah SYSEVAL
    # 19610313418D7EA4h # 518Ah SYSEVAL
    # 7134147114103123h # 518Ah SYSEVAL
    # 5F6A971131607414h # 518Ah SYSEVAL
    # 12EA1717EA3F130Ch # 518Ah SYSEVAL
    # 280826B3012808F4h # 518Ah SYSEVAL
    # 6B7028080BEE9091h # 518Ah SYSEVAL
    # BE5DC1710610C512h # 518Ah SYSEVAL
    # 705D00003431A078h # 518Ah SYSEVAL
    # 3D8FA26058961431h # 518Ah SYSEVAL
    # 312B0514h # 518Ah SYSEVAL 
    # 18F23h SYSEVAL 
    DUP BYTES DROP 4 ROLL
    IF ==
    THEN SWAP DROP
    ELSE DROP "Invalid String" DOERR
    END ws STWS
;
;

P2   
"D9D20D29512BF81D0040D9D20E4A209000000007566074726636508813011920
140007FE30B9F060ED3071040CA1304EC3039916D9D2085230B9F06C2A201200
094E66716C696460235472796E676933A1B21300ED30FD5502C230C1C1632230
CCD20FA0008F14660CC8FB97608403104AE7D814313016913213014117414317
414706131179A6F5C031F3AE7171AE214F8082103B6280821909EEB0808207B6
215C0160171CD5EB870A13430000D50713416985062AF8D341508813044950B9
F06BBF06EFC36B9F0644230C2A201200094E66716C696460235472796E676933
A1B2130B21300373"

P3  
"D9D20D2951881304495032230FD5502C230A752688130ADB467FE30322306AC3
0CB916E0E30CBD30F6E30C1C1632230CCD20DC0008F14660CC8FB97608403104
AE7D8143130169174147061741431311534AC6B4415141534946908D9B026155
4A6F53131F3AE731A014C161AE215F08082103A6280821939EEC08082170A621
4C161170CD56B870A18503430000D5071351796A9F8D2D02639916D9D2085230
C2A209100025F4D402F426A6563647933A1B2130A2116B213033C0"

SETUP  
+ P2 P1 'ASC
' STO
    P3 ASC
 '
ASC' STO
    { P1 P2 P3 SETUP } PURGE
;
----------------cut again---------
well, actually, you do use ASC-> to get ASC->.  just press setup and you
will get ->ASC and ASC->/

EWLARSON@MTUS5.BITNET (01/24/91)

When I attempted to download this version of ASC I continually get a response
from the Calculator to the extent of 'Invalid Syntax' and the transfer ends.
Please inform me if I am improperly transfering this to my Calc or if there
actualy is a problem with the prog.


                                   Erik W. Larson
                                   EWLARSON@MTUS5

akcs.falco@hpcvbbs.UUCP (Andrey Dolgachev) (01/26/91)

Well, after I posted this version, there were more messages posted to
the effect of where's ASC.  And, since there appears to be some problems
iwth this one, I'll post a definitive version again.
       ---Falco

akcs.falco@hpcvbbs.UUCP (Andrey Dolgachev) (01/26/91)

O.K., since there is a never-ending demand for the ASC program, here it
is again.  Simply transfer to HP via text (of course) and press setup. 
It then automatically makes ->ASC and ASC->.  I tranfered this from my
computer to my 48, and then back into my computer with trans of 3, so it
should work again.  I'm sure that after I post this, people will still
complain that it is not around, but we can always hope.

%%HP: T(3)A(D)F(.);
DIR
  P1
    \<<
      IF DUP TYPE 2
== NOT
      THEN
"Not A String"
DOERR
      END RCWS \-> ws
      \<< 16 STWS
# 0h NEWOB SWAP DUP
SIZE
        IF DUP 4 <
        THEN DROP
SWAP DROP
"Invalid String"
DOERR
        END DUP 65
/ IP - 4 - # 18CEAh
SYSEVAL "" OVER
# 61C1Ch SYSEVAL
SWAP
# 6641F8000AF02DCCh
# 130480679BF8CC0h
# 518Ah SYSEVAL
# 19610313418D7EA4h
# 518Ah SYSEVAL
# 7134147114103123h
# 518Ah SYSEVAL
# 5F6A971131607414h
# 518Ah SYSEVAL
# 12EA1717EA3F130Ch
# 518Ah SYSEVAL
# 280826B3012808F4h
# 518Ah SYSEVAL
# 6B7028080BEE9091h
# 518Ah SYSEVAL
# BE5DC1710610C512h
# 518Ah SYSEVAL
# 705D00003431A078h
# 518Ah SYSEVAL
# 3D8FA26058961431h
# 518Ah SYSEVAL
# 312B0514h # 518Ah
SYSEVAL # 18F23h
SYSEVAL DUP BYTES
DROP 4 ROLL
        IF ==
        THEN SWAP
DROP
        ELSE DROP
"Invalid String"
DOERR
        END ws STWS
      \>>
    \>>
  P2
"D9D20D29512BF81D0040D9D20E4A209000000007566074726636508813011920
140007FE30B9F060ED3071040CA1304EC3039916D9D2085230B9F06C2A201200
094E66716C696460235472796E676933A1B21300ED30FD5502C230C1C1632230
CCD20FA0008F14660CC8FB97608403104AE7D814313016913213014117414317
414706131179A6F5C031F3AE7171AE214F8082103B6280821909EEB0808207B6
215C0160171CD5EB870A13430000D50713416985062AF8D341508813044950B9
F06BBF06EFC36B9F0644230C2A201200094E66716C696460235472796E676933
A1B2130B21300373"
  P3
"D9D20D2951881304495032230FD5502C230A752688130ADB467FE30322306AC3
0CB916E0E30CBD30F6E30C1C1632230CCD20DC0008F14660CC8FB97608403104
AE7D8143130169174147061741431311534AC6B4415141534946908D9B026155
4A6F53131F3AE731A014C161AE215F08082103A6280821939EEC08082170A621
4C161170CD56B870A18503430000D5071351796A9F8D2D02639916D9D2085230
C2A209100025F4D402F426A6563647933A1B2130A2116B213033C0"
  SETUP
    \<< P2 P1 'ASC\->'
STO P3 ASC\-> '\->ASC'
STO { P1 P2 P3
SETUP } PURGE
    \>>

akcs.pepper@hpcvbbs.UUCP (Maurice C. Henrichsen) (02/15/91)

Thank you, 
Thank you,
Thank you,
The mystery is over.

Maury Henrichsen