Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/p2mods/tsayhi.asm @ 147:e49fb6ad1be8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made the word "Dragon" an entity, thereby making it replacable with "Color"
author roug
date Sun, 07 Jul 2002 11:45:13 +0000
parents 6641a883d6b0
children b8c7b7fbf3c9
line wrap: on
line source

         ifp1
         use   os9defs
         endc

Type     set   Prgrm+Objct
Revs     set   ReEnt+1
edition  set   $01

         mod   OS9End,OS9Name,Type,Revs,start,256

OS9Name  fcs   "TSayHi"
         fcb   edition

F$SAYHI  equ   $25

* routine cold
start    equ   *
         lda   ,x
         cmpa  #$0D
         bne   SayHi
         ldx   #$0000
SayHi    os9   F$SAYHI
         bcs   error
         clrb
error    os9   F$Exit

         emod

OS9End   equ   *
         end