Apple-2-SW
/
proboot
mirror of https://github.com/peterferrie/proboot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

smaller still

This commit is contained in:
Peter Ferrie 2018-07-14 12:14:35 -07:00
parent 11b0e148b8
commit a4874c7c72
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
proboot.s
View File

@ -51,7 +51,9 @@ filename_b !text "PROBOOT.SYSTEM" ;name your start-up file here, file size
filename_e filename_e
init init
- lda #$ff - txa
jsr scrn2p2
ora #$c0
sta $be30, y sta $be30, y
lda fakeMLI_e-$100, y lda fakeMLI_e-$100, y
sta $be00+fakeMLI_e-fakeMLI, y sta $be00+fakeMLI_e-fakeMLI, y
@ -70,7 +72,7 @@ firstent lda #>dirbuf
sta adrhi sta adrhi
sta A2H sta A2H
jsr seekread jsr seekread
lda #<(dirbuf+4) lda #4
sta A2L sta A2L
nextent ldy #0 nextent ldy #0
@ -94,10 +96,8 @@ nextent ldy #0
;there can be only one page crossed, so we can increment instead of adc ;there can be only one page crossed, so we can increment instead of adc
inc A2H inc A2H
+ cmp #<(dirbuf+$1ff) ;4+($27*$0d) + cmp #$ff ;4+($27*$0d)
lda A2H bne nextent
sbc #>(dirbuf+$1ff)
bcc nextent
;read next directory block when we reach the end of this block ;read next directory block when we reach the end of this block
@ -109,7 +109,7 @@ foundname iny
lda (A2L), y lda (A2L), y
dex dex
bne - bne -
stx blockind+1 stx $ff
;cache KEY_POINTER ;cache KEY_POINTER
@ -127,8 +127,8 @@ readfile jsr seekread
;fetch data block and read it ;fetch data block and read it
blockind ldy #$d1 blockind ldy $ff
inc blockind+1 inc $ff
ldx dirbuf, y ldx dirbuf, y
lda dirbuf+256, y lda dirbuf+256, y
tay tay