From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a0b5ae1c26aae4ca
X-Google-Attributes: gid103376,public
From: ld50macca@aol.com
Subject: Re: Money wanted
Date: 1996/12/28
Message-ID: <19961228140100.JAA10350@ladder01.news.aol.com>#1/1
X-Deja-AN: 206402343
references: <f4c_9612272359@exonet.nl>
organization: AOL, http://www.aol.co.uk
newsgroups: comp.lang.ada
x-admin: news@aol.com
Date: 1996-12-28T00:00:00+00:00
List-Id: <comp.lang.ada>


For greater efficiency, try:

print nogen
earner start 0
begin balr 12,0
         using here,12,11,10,9
here lm 9,11,baseaddr
       b moremony
baseaddr dc a(here+12288,here+8192,here+4096)
moremony equ *
       l  4,0                              * set infinite loop
forever equ *
       l  3,24                             * set hours in day loop 
       get coffecup,hand
       put self,street      
daily equ *
       pause 3600                     * wait one hour
       balr 3,daily                      * decrement hours in day loop
       balr 4,forever                   * decrement days loop
       b nicetry


Yes, I know it won't work but it is the first assembler 370 I've written
in 14 years plus.