Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

Make /RAM restoration consistent. Fixes #96

Browse Source
This commit is contained in:
Joshua Bell 2018-12-27 12:42:48 -08:00
parent cb5cc42c6e
commit cb99c2c9c9
1 changed files with 21 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
desktop/desktop_main.s
View File

@ -684,8 +684,6 @@ append: lda DEVLST,y ; add it to the list
inx
sta removable_device_table,x
bne next ; always
rts ; remove ???
.endproc
;;; ============================================================
@ -2148,15 +2146,13 @@ start:
MLI_RELAY_CALL READ, read_params
MLI_RELAY_CALL CLOSE, close_params
jsr restore_device_list
;; Restore machine to text state
sta ALTZPOFF
jsr exit_dhr_mode
;; S3D2 /RAM driver still in place?
RAMSLOT := DEVADR + $10 + 3*2 ; Slot 3, Drive 2
cmp16 RAMSLOT, NODEV
beq quit ; No, so give up
jsr reinstall_ram
jsr maybe_reformat_ram
quit: jmp quit_code_addr
@ -3474,6 +3470,7 @@ check_drive_flags:
.proc reset_and_invoke
sta ALTZPOFF
jsr exit_dhr_mode
jsr maybe_reformat_ram
;; also used by launcher code
target := *+1
@ -12066,36 +12063,34 @@ do_on_line:
.assert * = $A4D0, error, "Segment length mismatch"
;;; ============================================================
;;; Reinstall /RAM (Slot 3, Drive 2)
;;; TODO: Do everything correcly per ProDOS TRM
;;; http://www.easy68k.com/paulrsm/6502/PDOS8TRM.HTM#5.2.2.4
.proc reinstall_ram
php
sei ; Disable interrupts
;;; ============================================================
;;; Reformat /RAM (Slot 3, Drive 2) if present
;;; Assumes ROM is banked in, restores it when complete. Also
;;; assumes hires screen (main and aux) are safe to destroy.
.proc maybe_reformat_ram
ram_unit_number = (1<<7 | 3<<4 | DT_RAM)
;; Append unit number
inc DEVCNT
;; Search DEVLST to see if S3D2 RAM was restored
ldx DEVCNT
lda #ram_unit_number ; Slot 3, Drive 2
sta DEVLST,x
: lda DEVLST,x
cmp #ram_unit_number
beq format
dex
bpl :-
rts
;; NOTE: Assumes driver (in DEVADR) was not modified
;; when detached.
;; NOTE: Assumes driver (in DEVADR) was not modified
;; when detached.
;; /RAM FORMAT call
copy #DRIVER_COMMAND_FORMAT, DRIVER_COMMAND
;; /RAM FORMAT call; see ProDOS 8 TRM 5.2.2.4 for details
format: copy #DRIVER_COMMAND_FORMAT, DRIVER_COMMAND
copy #ram_unit_number, DRIVER_UNIT_NUMBER
copy16 #$2000, DRIVER_BUFFER
lda LCBANK1
lda LCBANK1
jsr driver
plp ; Restore interrupts
sta ROMIN2
rts
RAMSLOT := DEVADR + $16 ; Slot 3, Drive 2