Mercurial > hg > Members > kono > nitros9-code

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 1f8438c88938
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ifp1
2 use os9defs.l2v3
3 endc
4
5 Type set Systm+Objct
6 Revs set ReEnt+1
7 edition set $01
8
9 mod OS9End,OS9Name,Type,Revs,Cold,256
10
11 OS9Name fcs "OS9p3"
12 fcb $01
13
14 * routine cold
15 Cold leay SvcTbl,pcr
16 os9 F$SSvc
17 rts
18
19 F$SAYHI equ $25
20
21 SvcTbl equ *
22 fcb F$SAYHI
23 fdb SayHi-*-2
24 fcb $80
25
26 SayHi ldx R$X,u
27 bne SayHi6
28 ldy D.Proc
29 ldu P$SP,y
30 leau -40,u
31 lda D.SysTsk
32 ldb P$TASK,y
33 ldy #40
34 leax Hello,pcr
35 os9 F$Move
36 leax 0,u
37 SayHi6 ldy #40
38 ldu D.Proc
39 lda P$PATH+2,u
40 os9 I$WritLn
41 rts
42
43 Hello fcc "Hello there user."
44 fcb $0D
45
46 emod
47 OS9End equ *
48 end