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

Reorder ZP uses

Browse Source
This commit is contained in:
Joshua Bell 2017-12-12 10:58:22 -08:00
parent 1acc9e5946
commit f0ceec0aea
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
bbb2.system.s
View File

@ -96,32 +96,33 @@ ASCII_ESCAPE := $1B
filenames := $1400 ; each is length + 15 bytes filenames := $1400 ; each is length + 15 bytes
read_buffer := $2000 ; Also, start location for launched SYS files read_buffer := $2000 ; Also, start location for launched SYS files
;; Device/Prefix enumeration
next_device_num := $65 ; next device number to try
prefix_depth := $6B ; 0 = root
;; Directory enumeration
entry_pointer := $60 ; 2 bytes entry_pointer := $60 ; 2 bytes
block_entries := $62 block_entries := $62
active_entries := $63 ; 2 bytes active_entries := $63 ; 2 bytes
next_device_num := $65 ; next device number to try
current_entry := $67 ; index of current entry
num_entries := $68 ; length of |filenames|
curr_len := $69 ; length of current entry name
curr_ptr := $6C ; address of current entry name (in |filenames|)
prefix_depth := $6B ; 0 = root
entry_length := $6E entry_length := $6E
entries_per_block := $6F entries_per_block := $6F
file_count := $70 ; 2 bytes file_count := $70 ; 2 bytes
entry_num := $72 ;; Found entries
page_start := $73 ; index of first entry shown on screen current_entry := $67 ; index of current entry
num_entries := $68 ; length of |filenames| (max 128)
max_entries := 128 ; max # of entries; more are ignored curr_len := $69 ; length of current entry name
curr_ptr := $6C ; address of current entry name (in |filenames|)
types_table := $74 ; high bit clear = dir, set = sys types_table := $74 ; high bit clear = dir, set = sys
;; Entry display
page_start := $73 ; index of first entry shown on screen
row_count := $6A ; number of rows in this page
top_row := 2 ; first row used on screen top_row := 2 ; first row used on screen
bottom_row := 21 ; last row used on screen bottom_row := 21 ; last row used on screen
;;; ------------------------------------------------------------ ;;; ------------------------------------------------------------
cld ; ProDOS protocol for QUIT routine cld ; ProDOS protocol for QUIT routine
@ -338,16 +339,14 @@ close_dir:
lda num_entries lda num_entries
beq keyboard_loop ; no entries (empty directory) beq keyboard_loop ; no entries (empty directory)
row_count := $6A
cmp #bottom_row ; more entries than fit? cmp #bottom_row ; more entries than fit?
bcc :+ bcc :+
lda #(bottom_row - top_row + 1) lda #(bottom_row - top_row + 1)
: sta row_count : sta row_count
lda #2 lda #top_row
sta WNDTOP sta WNDTOP
sta WNDLFT sta WNDLFT
lda #22 lda #bottom_row+1
sta WNDWDTH sta WNDWDTH
sta WNDBTM sta WNDBTM
loop: jsr draw_current_line loop: jsr draw_current_line