Re: LF: Still: fargo programming

To: list-fargo@lists.ticalc.org
Subject: Re: LF: Still: fargo programming
From: "Bryan Christopher Turner" <bcturner@eos.ncsu.edu>
Date: Wed, 18 Jun 1997 17:41:24 -0400
In-Reply-To: Shawn Walker <swalker@joe.math.uga.edu> "Re: LF: Still: fargo programming" (Jun 18, 3:55pm)
References: <Pine.SOL.3.93.970618154857.1167B-100000@joe.math.uga.edu>
Reply-To: list-fargo@lists.ticalc.org


Try this:

> >
> >     @Program          prog_code,prog_name
> >
> >
> > prog_code:
> >
> >     jsr flib[clr_scr]
> >
> > main:
> >     pea      ess        ; Loads "ess" adress in the stack
> >     bsr      affich     ; Pushes 4 *MORE* bytes on stack too!
        addq     #4,a7      ; Pop stuff back off stack
> >     rts
> >
> > affich:
> >     move.l   4(a7),A1   ; gets back the param in A1 (the return addr is
			    ;   on top, then the stuff you pushed.
> >     ;  DON'T MESS WITH STACK, the return addr is on top!!
> >     move.w   #4,-(A7)   ;
> >     move.l	 a1,-(a7)   ;   push actual data in A1 : the pointer to text
> >     move.w   #10,-(A7)  ;
> >     move.w   #10,-(A7)  ;
> >     jsr      romlib[puttext]
> >     lea      10(A7),A7
> >     rts
> >
> >
> > ess: dc.b "coucou",0,0  ; **** MUST HAVE ANOTHER ZERO HERE - strings must
                            ;   always be an even number of bytes (including
                            ;   zero termination).
> >
> > prog_name:
> >   dc.b "essai",0        ; This string OK - already even number of bytes..
> >
> >          reloc_open
> >          add_library romlib
> >          add_library flib
> >          reloc_close
> >          end


--Bryan
bcturner@eos.ncsu.edu

References:

Re: LF: Still: fargo programming

From: Shawn Walker <swalker@joe.math.uga.edu>

From:

Prev: LF: External files in programs - how?
Next: LF: Arrays
Index(es):
- Main
- Thread