Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/p2mods/os9p3_sayhi.asm @ 4:1f8438c88938

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added defsfile, changed source to use that defsfile
author boisy
date Fri, 05 Apr 2002 07:07:22 +0000
parents 6641a883d6b0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ifp1
4
1f8438c88938 added defsfile, changed source to use that defsfile
boisy
parents: 0
diff changeset
2 use defsfile
0
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