Mercurial > hg > Members > kono > nitros9-code

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 use os9defs.l2v3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 Type set Systm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 Revs set ReEnt+1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 edition set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9 mod OS9End,OS9Name,Type,Revs,Cold,256
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 OS9Name fcs "OS9p3"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14 * routine cold
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 Cold leay SvcTbl,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 os9 F$SSvc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 F$SAYHI equ $25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 SvcTbl equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 fcb F$SAYHI
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 fdb SayHi-*-2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 SayHi ldx R$X,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 bne SayHi6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 ldy D.Proc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 ldu P$SP,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 leau -40,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 lda D.SysTsk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 ldb P$TASK,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 ldy #40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 leax Hello,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 os9 F$Move
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 leax 0,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 SayHi6 ldy #40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 ldu D.Proc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 lda P$PATH+2,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 Hello fcc "Hello there user."
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 fcb $0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 OS9End equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 end