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

correct comments, shave a byte

This commit is contained in:
Peter Ferrie 2017-01-02 20:36:53 -08:00
parent 2996000575
commit 6af166da2c
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
directi-dos.zip
View File

Binary file not shown.

13
fstbt.s
View File

@ -10,7 +10,7 @@
!byte 1 !byte 1
tay ;A is last read sector+1 on entry tay ;A is last read sector+1 on entry
lda $C081 ;bank in ROM while leaving RAM write-enabled if it was before lda $C081 ;bank in ROM
;check array before checking sector number ;check array before checking sector number
;allows us to avoid a redundant seek if all slots are full in a track, ;allows us to avoid a redundant seek if all slots are full in a track,
@ -23,7 +23,7 @@ adrindex
lda adrtable - 1 ;15 entries in first row, 16 entries thereafter lda adrtable - 1 ;15 entries in first row, 16 entries thereafter
sta $4FB ;set 80-column state (final store is an #$FF to disable it) sta $4FB ;set 80-column state (final store is an #$FF to disable it)
cmp #$FF cmp #$FF
beq jmpoep ;#$C0 means end of data beq jmpoep ;#$FF means end of data
sta $27 ;set high part of address sta $27 ;set high part of address
;2, 4, 6, 8, $0A, $0C, $0E ;2, 4, 6, 8, $0A, $0C, $0E
@ -57,10 +57,7 @@ setsector
;convert slot to PROM address ;convert slot to PROM address
txa txa
lsr jsr $F87B ;4xlsr
lsr
lsr
lsr
tay tay
ora #$C0 ora #$C0
pha pha
@ -68,6 +65,8 @@ setsector
pha pha
lda #2 lda #2
sta $478, y ;save current phase for DOS use when we exit sta $478, y ;save current phase for DOS use when we exit
writeenable
lda $C083 lda $C083
lda $C083 ;write-enable RAM and bank it in so read can decode lda $C083 ;write-enable RAM and bank it in so read can decode
rts ;return to PROM rts ;return to PROM
@ -98,7 +97,7 @@ jmpoep
jsr $FB2F ;text mode jsr $FB2F ;text mode
sta $C00C sta $C00C
sta $C00E ;clear 80-column mode sta $C00E ;clear 80-column mode
lda $C083 ;bank in our RAM, write-enabled jsr writeenable ;bank in our RAM, write-enabled
jmp $D000 ;jump to unpacker jmp $D000 ;jump to unpacker
adrtable adrtable