mirror of
https://github.com/cc65/cc65.git
synced 2025-02-02 00:35:32 +00:00
Use a destructor instead of atexit
git-svn-id: svn://svn.cc65.org/cc65/trunk@515 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
parent
b46dab6d44
commit
e02b3e91c8
@ -6,8 +6,8 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
.include "apple2.inc"
|
||||
|
||||
@ -43,10 +43,6 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
@ -59,11 +55,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
@ -102,8 +100,8 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
ldx _brk_x
|
||||
ldy _brk_y
|
||||
lda _brk_a
|
||||
|
||||
|
||||
rti ; Jump back...
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
.include "atari.inc"
|
||||
|
||||
@ -43,10 +43,6 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
lda VBREAK+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta VBREAK
|
||||
lda #>brk_handler
|
||||
@ -59,11 +55,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta VBREAK
|
||||
lda oldvec+1
|
||||
sta VBREAK+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta VBREAK
|
||||
stx VBREAK+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
.importzp ptr1
|
||||
|
||||
.include "c128.inc"
|
||||
@ -54,10 +54,6 @@ L1: lda brk_stub,y
|
||||
dey
|
||||
bpl L1
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L2: lda #<stub_addr ; Set the break vector to our stub
|
||||
sta BRKVec
|
||||
lda #>stub_addr
|
||||
@ -70,11 +66,13 @@ L2: lda #<stub_addr ; Set the break vector to our stub
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
@ -6,24 +6,24 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
.include "c64.inc"
|
||||
|
||||
|
||||
.bss
|
||||
_brk_a: .res 1
|
||||
_brk_x: .res 1
|
||||
_brk_y: .res 1
|
||||
_brk_sr: .res 1
|
||||
_brk_pc: .res 2
|
||||
_brk_a: .res 1
|
||||
_brk_x: .res 1
|
||||
_brk_y: .res 1
|
||||
_brk_sr: .res 1
|
||||
_brk_pc: .res 2
|
||||
|
||||
oldvec: .res 2 ; Old vector
|
||||
|
||||
|
||||
.data
|
||||
uservec: jmp $FFFF ; Patched at runtime
|
||||
uservec: jmp $FFFF ; Patched at runtime
|
||||
|
||||
|
||||
.code
|
||||
@ -31,26 +31,22 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
; Set the break vector
|
||||
.proc _set_brk
|
||||
|
||||
sta uservec+1
|
||||
stx uservec+2 ; Set the user vector
|
||||
sta uservec+1
|
||||
stx uservec+2 ; Set the user vector
|
||||
|
||||
lda oldvec
|
||||
ora oldvec+1 ; Did we save the vector already?
|
||||
bne L1 ; Jump if we installed the handler already
|
||||
lda oldvec
|
||||
ora oldvec+1 ; Did we save the vector already?
|
||||
bne L1 ; Jump if we installed the handler already
|
||||
|
||||
lda BRKVec
|
||||
lda BRKVec
|
||||
sta oldvec
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
sta BRKVec+1
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
sta BRKVec+1
|
||||
rts
|
||||
|
||||
.endproc
|
||||
@ -59,11 +55,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
.export _set_brk, _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "page3.inc"
|
||||
|
||||
@ -45,10 +45,6 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
@ -61,11 +57,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
.include "pet.inc"
|
||||
|
||||
@ -43,10 +43,6 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
@ -59,11 +55,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
@ -106,4 +104,4 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
.endproc
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@
|
||||
;
|
||||
|
||||
.export _set_brk, _reset_brk
|
||||
.destructor _reset_brk
|
||||
.export _brk_a, _brk_x, _brk_y, _brk_sr, _brk_pc
|
||||
.import _atexit
|
||||
|
||||
.include "plus4.inc"
|
||||
|
||||
@ -43,10 +43,6 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
lda BRKVec+1
|
||||
sta oldvec+1 ; Save the old vector
|
||||
|
||||
lda #<_reset_brk
|
||||
ldx #>_reset_brk
|
||||
jsr _atexit ; Install an exit handler
|
||||
|
||||
L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
sta BRKVec
|
||||
lda #>brk_handler
|
||||
@ -59,11 +55,13 @@ L1: lda #<brk_handler ; Set the break vector to our routine
|
||||
; Reset the break vector
|
||||
.proc _reset_brk
|
||||
|
||||
lda oldvec
|
||||
sta BRKVec
|
||||
lda oldvec+1
|
||||
sta BRKVec+1
|
||||
rts
|
||||
lda oldvec
|
||||
bne @L1
|
||||
ldx oldvec
|
||||
beq @L9 ; Jump if vector not installed
|
||||
@L1: sta BRKVec
|
||||
stx BRKVec+1
|
||||
@L9: rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user