Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-04-06 19:37:13 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: volume icon disasm tweaks

Browse Source
This commit is contained in:
Joshua Bell 2018-11-11 19:11:44 -08:00
parent 1692b4da42
commit e771d2cc63
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
desktop/desktop_main.s
View File

@ -8391,8 +8391,8 @@ gdi_data_buffer := $800
MLI_RELAY_CALL ON_LINE, on_line_params
beq success
retry: pha
ldy device_num
error: pha ; save error
ldy device_num ; remove unit from list
lda #0
sta devlst_copy,y
dec cached_window_icon_count
@ -8405,7 +8405,7 @@ success:
and #$0F ; mask off name len
bne create_icon
lda gdi_data_buffer+1 ; if name len is zero, second byte is error
jmp retry
jmp error
create_icon:
icon_ptr := $6
@ -8419,8 +8419,8 @@ create_icon:
;; Fill name with spaces
ldx #0
ldy #IconEntry::len
lda #$20 ; ??? space? shouldn't this be at +1 ?
ldy #IconEntry::name-1 ; why -1 ???
lda #' '
: sta (icon_ptr),y
iny
inx
@ -8472,8 +8472,8 @@ create_icon:
ora #$C0
sta load_CxFB
load_CxFB := *+2
lda $C7FB ; self-modified $Cx7B
and #$01 ; $Cx7B bit 1 = ProFile, apparently???
lda $C7FB ; self-modified $CxFB
and #$01 ; $CxFB bit 1 = ProFile, apparently???
beq use_profile_icon
;; fall through...

5
inc/prodos.inc
View File

@ -6,9 +6,12 @@
;;; Entry point / Global Page
MLI := $BF00 ; Entry point
DATETIME := $BF06 ; JMP to clock routine
DEVADR := $BF10 ; Device driver addresses ($BF10-$BF2F)
NODEV := $BF10 ; "No Device Connected" entry (slot 0)
DEVNUM := $BF30 ; Most recent accessed device
DEVCNT := $BF31 ; Number of on-line devices minus 1
DEVLST := $BF32 ; Up to 14 units
DEVLST := $BF32 ; Up to 14 units ($BF32-$BF3F)
BITMAP := $BF58 ; System memory bitmap
BITMAP_SIZE := $18 ; Bits for pages $00 to $BF
DATELO := $BF90 ; Date lo