prodos-drivers/util/me.first.system.s

49 lines
1.2 KiB
ArmAsm
Raw Normal View History

2022-02-04 04:14:10 +00:00
.setcpu "6502"
.linecont +
.feature string_escapes
.include "apple2.inc"
.include "apple2.mac"
.include "../inc/apple2.inc"
.include "../inc/macros.inc"
.include "../inc/prodos.inc"
;;; ************************************************************
.include "../inc/driver_preamble.inc"
;;; ************************************************************
.proc maybe_install_driver
;; Find the current device's index in the list
ldx #0
: lda DEVLST,x
and #$F0
cmp DEVNUM
beq found
inx
cpx DEVCNT
bcc :-
bcs exit ; last one or not found
;; Save it
found: ldy DEVLST,x
;; Move everything up
: lda DEVLST+1,x
sta DEVLST,x
inx
cpx DEVCNT
bne :-
;; Place it at the end
tya
sta DEVLST,x
exit: rts
.endproc
;;; ************************************************************
.include "../inc/driver_postamble.inc"
;;; ************************************************************