Re: Money wanted

[ld50macca@aol.com]

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.