Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/abort.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 abort.r
2
3 section code
4
5 * OS-9 system function equates
6
7 F$Exit equ $06
8 I$Write equ $8a
9
10 abort: pshs d,x,y,u
11 leax >L0048,pcr
12 ldb #3
13 clra
14 pshs d
15 pshs x
16 lbsr creat
17 cmpd #-1
18 bne L001d
19 ldd errno,y
20 os9 F$Exit
21 L001d leas 4,s
22 pshs b
23 leax 1,s
24 ldd #$0010
25 bsr L004e
26 leax _cstart,pcr
27 ldd #etext
28 subd #_cstart
29 bsr L004e
30 tfr dp,a
31 clrb
32 tfr d,x
33 subd memend,x
34 nega
35 negb
36 sbca #0
37 bsr L004e
38 ldb #255
39 os9 F$Exit
40 L0048 com 15,s
41 fcb $72
42 fcb $65
43 bra L005b
44 L004e pshs d,x
45 lda 6,s
46 leax 2,s
47 ldy #2
48 os9 I$Write
49 L005b leax ,s
50 lda 6,s
51 ldy #2
52 os9 I$Write
53 puls y
54 puls x
55 cmpy #0
56 beq L0075
57 lda 2,s
58 os9 I$Write
59 L0075 rts
60
61 endsect
62