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

More tidying, size assert

Browse Source
This commit is contained in:
Joshua Bell 2017-12-10 20:22:34 -08:00
parent 5e3d46373e
commit 6eb9613a28
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -3,7 +3,7 @@ CC65 = ~/dev/cc65/bin
CAFLAGS = --target apple2enh --list-bytes 0 CAFLAGS = --target apple2enh --list-bytes 0
CCFLAGS = --config apple2-asm.cfg CCFLAGS = --config apple2-asm.cfg
TARGETS = bbb.SYS TARGETS = bbb.system.SYS bbb2.system.SYS
.PHONY: clean all .PHONY: clean all
all: $(TARGETS) all: $(TARGETS)

19
bbb.s → bbb.system.s
View File

@ -103,15 +103,14 @@ ASCII_ESCAPE := $1B
num_entries := $68 ; length of |filenames| num_entries := $68 ; length of |filenames|
curr_len := $69 ; length of current entry name curr_len := $69 ; length of current entry name
curr_ptr := $6C ; address of current entry name (in |filenames|) curr_ptr := $6C ; address of current entry name (in |filenames|)
page_start := $73 ; index of first entry shown on screen
prefix_depth := $6B ; 0 = root 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 entry_num := $72
page_start := $73 ; index of first entry shown on screen
max_entries := 128 ; max # of entries; more are ignored max_entries := 128 ; max # of entries; more are ignored
types_table := $74 ; high bit clear = dir, set = sys types_table := $74 ; high bit clear = dir, set = sys
@ -128,8 +127,8 @@ ASCII_ESCAPE := $1B
stz RESETVEC stz RESETVEC
lda #>bbb lda #>bbb
sta RESETVEC+1 sta RESETVEC+1
jsr SETPWRC ; update validity check byte
jsr SETPWRC
lda #$A0 lda #$A0
jsr SLOT3 ; Activate 80-Column Firmware jsr SLOT3 ; Activate 80-Column Firmware
@ -144,7 +143,7 @@ ASCII_ESCAPE := $1B
;; Find device ;; Find device
lda #2 lda #2
sta $60 sta mark_params
ldx DEVCNT ; max device num ldx DEVCNT ; max device num
stx next_device_num stx next_device_num
lda DEVNUM lda DEVNUM
@ -213,7 +212,7 @@ check_device:
sta read_params_request sta read_params_request
lda #1 lda #1
sta entry_num ; ??? sta entry_num
stz mark_position+1 stz mark_position+1
stz mark_position+2 stz mark_position+2
@ -451,7 +450,7 @@ done: rts
next_drive: next_drive:
jmp next_device jmp next_device
dec_resize_prefix_and_open: inc_resize_prefix_and_open:
inx inx
resize_prefix_and_open_jmp: resize_prefix_and_open_jmp:
@ -476,7 +475,7 @@ resize_prefix_and_open_jmp:
ldy current_entry ldy current_entry
lda types_table,y lda types_table,y
bpl dec_resize_prefix_and_open ; is directory??? bpl inc_resize_prefix_and_open ; is directory???
;; nope, system file, so... ;; nope, system file, so...
;; fall through ;; fall through
@ -511,11 +510,11 @@ cout_string_hpos:
sta CH sta CH
.proc cout_string .proc cout_string
lda help_string,y loop: lda help_string,y
beq done beq done
jsr COUT jsr COUT
iny iny
bne cout_string bne loop
done: rts done: rts
.endproc .endproc
@ -650,6 +649,8 @@ trans: .word 0
read_params_ref_num := read_params::ref_num read_params_ref_num := read_params::ref_num
read_params_request := read_params::request read_params_request := read_params::request
.assert read_params::request - bbb <= $300, error, "Must fit in $300 bytes"
;;; ------------------------------------------------------------ ;;; ------------------------------------------------------------
.res $13FF-*-2, 0 .res $13FF-*-2, 0