diff 3rdparty/p2mods/os9p3_sayhi.asm @ 0:6641a883d6b0

Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 1f8438c88938
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/p2mods/os9p3_sayhi.asm	Thu Apr 04 16:34:12 2002 +0000
@@ -0,0 +1,48 @@
+         ifp1
+         use   os9defs.l2v3
+         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