Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/cc/sources/abort.a @ 1942:b41df77588b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
printer is now scbbp sio is now scbbt All references changed in various files
author boisy
date Sat, 26 Nov 2005 22:51:50 +0000
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