Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2025-01-02 16:32:32 +00:00
Code Issues Projects Releases Wiki Activity

Fix relocation

Browse Source
This commit is contained in:
Joshua Bell 2019-09-30 20:20:59 -07:00
parent 754d267c1e
commit ba0c5e53d3
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ram.drv.system.s
View File

@ -27,13 +27,14 @@
;;; Relocate from $2000 to $1000
.proc relocate
src := SYS_ADDR
src := reloc_start
dst := dst_addr
ldx #(sys_end - sys_start + $FF) / $100 ; pages
ldx #(reloc_end - reloc_start + $FF) / $100 ; pages
ldy #0
load: lda sys_start,y ; self-modified
load: lda src,y ; self-modified
load_hi := *-1
sta dst_addr,y ; self-modified
sta dst,y ; self-modified
store_hi := *-1
iny
bne load
@ -49,17 +50,16 @@ load: lda sys_start,y ; self-modified
;;; Start of relocated code
;;;
sys_start:
reloc_start := *
pushorg dst_addr
;;; ============================================================
;;; Main routine
;;; ============================================================
.proc main
jsr setup
jsr install_driver
jsr maybe_install_driver
jsr launch_next
brk
.endproc
@ -124,7 +124,7 @@ self_name: .res 16
.proc quit
MLI_CALL QUIT, quit_params
.byte 0 ; crash if QUIT fails
brk ; crash if QUIT fails
DEFINE_QUIT_PARAMS quit_params
.endproc
@ -255,7 +255,7 @@ next: lda ptr
bcs not_found
;; Set up pointers to entry
: lda #0
lda #0
sta num
lda #<(dir_buf + $04)
sta ptr
@ -354,7 +354,7 @@ found_self_flag:
;;; ============================================================
;;;
;;; Driver
;;; Driver Installer
;;;
;;; ============================================================
@ -381,7 +381,7 @@ unitnum: .byte $03 ; S3D1; could be $B for S3D2
;;; ============================================================
;;; Install the driver
.proc install_driver
.proc maybe_install_driver
sta CLR80COL
ldy #0
@ -735,7 +735,7 @@ finish: bit ROMIN2
stx $06
stx BANKSEL
stx vol_dir_header+VolumeDirectoryHeader::total_blocks
jmp install_driver ; retry???
jmp maybe_install_driver ; retry???
install_success:
sta ALTZPOFF
@ -1072,5 +1072,6 @@ stash_01 := *+2+$180 ; len: $80
;;; ============================================================
;;; End of relocated code
poporg
sys_end:
reloc_end := *