|
2824
|
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
|
