Mercurial > hg > Members > kono > nitros9-code
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