Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!thunder.mcrcim.mcgill.edu!snorkelwacker.mit.edu!hsdndev!wuarchive!zaphod.mps.ohio-state.edu!casbah.acns.nwu.edu!ucsd!mvb.saic.com!ncr-sd!sdd.hp.com!hp-pcd!hpcvra.cv.hp.com!rnews!hpcvbbs!akcs.dnickel
From: akcs.dnickel@hpcvbbs.UUCP (Derek Scott Nickel)
Newsgroups: comp.sys.handhelds
Subject: upload test (ASC\-> unthreaded)
Message-ID: <277440fd:1502comp.sys.handhelds@hpcvbbs.UUCP>
Date: 23 Dec 90 05:40:07 GMT
Lines: 46

well, now that I've said that its to hard to upload to this conf, I
though that I should try again.  If all goes well, the rest of this note
will contain an unthreaded ASC\->...

        Derek S. Nickel

                                    ASC\->

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: [...] ! # 0000h
80027: 06657 ; Internal NEWOB
8002C: 62747 ; Internal SWAP and DUP
80031 60F9B ; drop level two object
80077: [...] ! "Invalid String"
8009D: 1A339 ; DOERR (XLIB 2 42)
800A2: 0312B ! End Marker
800A7: 03DE0 ; Internal - (2:System Binary,1:System Binary)
800AC: 055DF ; ""
800B1: 032C2 ; Internal OVER
800B6: 61C1C ; allocate nibbles (2:sized object,1:System Binary)
800BB: 03223 ; Internal SWAP
; ***D8         B=A    A              ; B.A = size-1
800E6: 143        A=DAT1 A              ; A.A = adr of alloc str
800E9: 130        D0=A                  ; D0 = adr of alloc str
800EC: 169        D0=D0+ 10             ; D0 = adr of new object (alloc
str data)
800EF: 132        AD0EX                 ; A.A = adr of new object
800F2: 130        D0=A                  ; ...
800F5: 141        DAT1=A A              ; adjust stack to new object
800F8: 174        D1=D1+ 5              ; A = adr of orig 03188 ;
Internal DUP
80179: 05944 ; Internal BYTES (non-ROM objects) -> (2:System
Binary,1:Binary Integer)
8017E: 60F9B ; drop level two object
80183: 60FBB ; Internal 4 ROLL
80188: 63CFE ; if SAME, then do next/return, else skip next
8018D: 60F9B ; drop level two object
80192: 03244 ; Internal DROP
80197: [...] ! "Invalid String"
801BD: 1A339 ; DOERR (XLIB 2 42)
801C2: 0312B ! End Marker
801C7: 0312B ! End Marker