Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/cc/sources/abort.a @ 1558:4a4ff4d844ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ccdisk.asm: this is "newdisk" found on google, replaces old ccdisk which had severe reliability problems. rbfdefs: since "newdisk" uses the same step codes as cc3disk, rbfdefs was modified to reflect this. sysgo.asm: Date changed to May 14, 2004 to reflect updated 03.02.01 release. ChangeLogs: reflect updated version info.
author boisy
date Thu, 13 May 2004 14:19:49 +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