Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/ccompiler/sources/abort.a @ 3257:987f995993c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
co80: Use HW port address from descriptor (via SCF and VTIO) Change the driver code to not use a hardcoded address. Change the value in the descriptor to the previously hardcoded value in the driver. Looks like someone was debugging a WordPak prototype using the cartridge ROM enable output...
author Tormod Volden <debian.tormod@gmail.com>
date Wed, 29 Aug 2018 08:49:13 +0200
parents 734862561313
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