Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!think.com!mintaka!ai-lab!rice-chex!bson
From: bson@rice-chex.ai.mit.edu (Jan Brittenson)
Newsgroups: comp.sys.handhelds
Subject: Re: 48sx STAR help
Message-ID: <13038@life.ai.mit.edu>
Date: 29 Jan 91 00:41:47 GMT
References: <1991Jan25.174158.18885@truevision.com>
Sender: news@ai.mit.edu
Organization: nil
Lines: 45

In a posting of [25 Jan 91 17:41:58 GMT]
   billr@truevision.com (Bill Romanowski) writes:

 > do you have one or two STAR code examples?

   Here is a simple example. It takes an address on the stack and
replaces it with the object at that address. No type checking or
anything; use with care.

   If this works for you, then your code is at fault. If it doesn't
work, then your kermit is probably at fault.


;++
;
; PUSH -- Push object onto stack
;
; In:
;   1: address.short
;
; Out:
;   1: object at address
;
; Assemble with hp48.star
;
;--

	header			; Kermit header

getshort = 0x6641
pusha_cont = 0x6102c

	code			; Code object

	  call  getshort	; Get short -> A
	  jump  pusha_cont	; Push A onto stack

	endcode			; End code object

	end

						-- Jan Brittenson
						   bson@ai.mit.edu

;; "Make sure the brain is connected before the mouth is started."