|
0
|
1 ifp1
|
|
|
2 use os9defs
|
|
|
3 endc
|
|
|
4
|
|
|
5 Type set Prgrm+Objct
|
|
|
6 Revs set ReEnt+1
|
|
|
7 edition set $01
|
|
|
8
|
|
|
9 mod OS9End,OS9Name,Type,Revs,Cold,256
|
|
|
10
|
|
|
11 OS9Name fcs "SayHi"
|
|
|
12 fcb edition
|
|
|
13
|
|
|
14 * routine cold
|
|
|
15 Cold equ *
|
|
|
16 * The following three instructions are important. They cause the link
|
|
|
17 * count of this module to increase by 1. This insures that the module
|
|
|
18 * stays in memory, even if forked from disk.
|
|
|
19 leax OS9Name,pcr
|
|
|
20 clra
|
|
|
21 os9 F$Link
|
|
|
22
|
|
|
23 leay SvcTbl,pcr
|
|
|
24 os9 F$SSvc
|
|
|
25 bcs Exit
|
|
|
26 clrb
|
|
|
27 Exit os9 F$Exit
|
|
|
28
|
|
|
29 F$SAYHI equ $25
|
|
|
30
|
|
|
31 SvcTbl equ *
|
|
|
32 fcb F$SAYHI
|
|
|
33 fdb SayHi-*-2
|
|
|
34 fcb $80
|
|
|
35
|
|
|
36 * Entry point to F$SAYHI system call
|
|
|
37 SayHi ldx R$X,u
|
|
|
38 bne SayHi6
|
|
|
39 leax Hello,pcr
|
|
|
40 SayHi6 ldy #40
|
|
|
41 ldu D.Proc
|
|
|
42 lda P$PATH+2,u
|
|
|
43 os9 I$WritLn
|
|
|
44 rts
|
|
|
45
|
|
|
46 Hello fcc "Hello there user."
|
|
|
47 fcb $0D
|
|
|
48
|
|
|
49 emod
|
|
|
50
|
|
|
51 OS9End equ *
|
|
|
52 end
|
