Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/p2mods/os9p3_sayhi.asm @ 3226:9749d0dfc4a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed a puls PC to rts to save cycles
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 19:32:22 -0600
parents 1f8438c88938
children
line wrap: on
line source

         ifp1
         use   defsfile
         endc

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

         mod   OS9End,OS9Name,Type,Revs,Cold,256

OS9Name  fcs   "OS9p3"
         fcb   $01

* routine cold
Cold     leay  SvcTbl,pcr
         os9   F$SSvc
         rts

F$SAYHI  equ   $25

SvcTbl   equ   *
         fcb   F$SAYHI
         fdb   SayHi-*-2
         fcb   $80

SayHi    ldx   R$X,u
         bne   SayHi6
         ldy   D.Proc
         ldu   P$SP,y
         leau  -40,u
         lda   D.SysTsk
         ldb   P$TASK,y
         ldy   #40
         leax  Hello,pcr
         os9   F$Move
         leax  0,u
SayHi6   ldy   #40
         ldu   D.Proc
         lda   P$PATH+2,u
         os9   I$WritLn
         rts

Hello    fcc   "Hello there user."
         fcb   $0D

         emod
OS9End   equ   *
         end