mirror of
https://github.com/cc65/cc65.git
synced 2024-06-15 17:30:06 +00:00
22 lines
484 B
ArmAsm
22 lines
484 B
ArmAsm
|
;
|
||
|
|
; Oliver Schmidt, 2016-06-05
|
||
|
|
;
|
||
|
|
; unsigned char doesclrscrafterexit (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _doesclrscrafterexit
|
||
|
|
.import done
|
||
|
|
|
||
|
|
.include "apple2.inc"
|
||
|
|
|
||
|
|
_doesclrscrafterexit:
|
||
|
|
; If the page we jump to when done equals the page
|
||
|
|
; of the warmstart vector we'll return to BASIC so
|
||
|
|
; there's no implicit clrscr() after exit().
|
||
|
|
lda done+2
|
||
|
|
sec
|
||
|
|
sbc #>DOSWARM
|
||
|
|
|
||
|
|
ldx #>$0000
|
||
|
|
rts
|