Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/cc/sources/abort.a @ 2609:9dd4f422aac7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added NitrOS-9 ROM Kit from Cloud-9
author Boisy Pitre <boisy.pitre@nuance.com>
date Tue, 31 Jan 2012 13:57:35 -0600
parents 0198655f2552
children
line wrap: on
line source

 use ..../defs/os9defs.a

 psect abort,0,0,1,0,0
abort: pshs d,x,y,u
 leax core,pcr
 ldb #3
 clra
 pshs d
 pshs x
 lbsr creat

 cmpd #-1
 bne abort10
 ldd errno,y
 os9 F$EXIT

abort10 leas 4,s
 pshs b

 leax 1,s
 ldd #16
 bsr doabort

 leax _cstart,pcr
 ldd #etext
 subd #_cstart
 bsr doabort

 tfr dp,a
 clrb
 tfr d,x
 subd memend,x
 nega
 negb
 sbca #0
 bsr doabort

 ldb #255
 os9 F$EXIT

core fcc "core "
 fcb $0d

doabort pshs d,x
 lda 6,s
 leax 2,s
 ldy #2
 os9 I$WRITE

 leax 0,s
 lda 6,s
 ldy #2
 os9 I$WRITE

 puls y
 puls x
 cmpy #0
 beq abort20
 lda 2,s
 os9 I$WRITE
abort20 rts
 endsect