Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/signal.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
comparison
equal deleted inserted replaced
2823:ad769d2a03e4 2824:1647f1874cdf
1 * Disassembly by Os9disasm of signal.r
2
3 * OS-9 system function equates
4
5 F$Exit equ $06
6 F$Icpt equ $09
7
8 section bss
9
10 * Uninitialized data (class B)
11 B0000 rmb 60
12 B003c rmb 1
13 * Initialized Data (class G)
14
15 endsect
16
17 section code
18
19 _sigint: ldd 2,s
20 tstb
21 beq L000c
22 tsta
23 bne L000c
24 bsr L003c
25 bne L0010
26 L000c ldd #-1
27 rts
28 L0010 ldd 1,x
29 pshs d
30 ldd 6,s
31 std 1,x
32 bne L001e
33 clr ,x
34 L001c puls d,pc
35 L001e ldb 5,s
36 stb ,x
37 tst B003c,y
38 bne L001c
39 exg y,u
40 leax >L006a,pcr
41 os9 F$Icpt
42 exg y,u
43 puls d
44 bcs L000c
45 inc B003c,y
46 rts
47 L003c clr ,-s
48 clr ,-s
49 leax B003c,y
50 pshs x
51 leax B0000,y
52 L004a cmpx ,s
53 beq L0065
54 cmpb ,x
55 bne L0057
56 leas 4,s
57 andcc #251
58 rts
59 L0057 lda ,x
60 ora 2,s
61 ora 3,s
62 bne L0061
63 stx 2,s
64 L0061 leax 3,x
65 bra L004a
66 L0065 ldx 2,s
67 leas 4,s
68 rts
69 L006a leay ,u
70 bsr L003c
71 beq L0076
72 pshs x
73 ldx 1,x
74 bne L0081
75 L0076 os9 F$Exit
76 cmpx #1
77 bne L0081
78 leas 2,s
79 rti
80 L0081 clra
81 pshs d
82 jsr ,x
83 puls d,x
84 clra
85 clrb
86 sta ,x
87 std 1,x
88 rti
89
90 endsect
91