use smartport.aii
This commit is contained in:
parent
95aa4d8bd5
commit
dbfe66cc99
38
loader.aii
38
loader.aii
|
@ -18,6 +18,11 @@
|
|||
|
||||
__smartport__ set 1
|
||||
|
||||
|
||||
if __smartport__ then
|
||||
include 'smartport.aii'
|
||||
endif
|
||||
|
||||
buffer equ $3000
|
||||
|
||||
dp record 0
|
||||
|
@ -47,8 +52,8 @@ file_id ds.l 1
|
|||
pro record $42
|
||||
cmd ds.b 1
|
||||
unit ds.b 1
|
||||
buffer ds.b 2
|
||||
block ds.b 2
|
||||
dataBuffer ds.b 2
|
||||
blockNumber ds.b 2
|
||||
endr
|
||||
|
||||
endif
|
||||
|
@ -107,11 +112,10 @@ cat_str dcb.b 32, 0
|
|||
|
||||
if __smartport__ then
|
||||
sp record
|
||||
ReadBlock equ $01
|
||||
pcount dc.b 3
|
||||
pCount dc.b 3
|
||||
unit dc.b 1
|
||||
buffer dc.w $3000 ; name conflict...
|
||||
block dc.l 0 ; actually 24-bit
|
||||
dataBuffer dc.w $3000 ; name conflict...
|
||||
blockNumber dc.l 0 ; actually 24-bit
|
||||
endr
|
||||
endif
|
||||
|
||||
|
@ -136,7 +140,7 @@ getbootname proc
|
|||
; get the volume name from the HFS MDB....
|
||||
if not __smartport__ then
|
||||
lda #buffer
|
||||
sta pro.buffer
|
||||
sta pro.dataBuffer
|
||||
endif
|
||||
lda #2
|
||||
jsr read_block_abs
|
||||
|
@ -243,7 +247,7 @@ readfile proc
|
|||
|
||||
if not __smartport__ then
|
||||
lda #buffer
|
||||
sta pro.buffer
|
||||
sta pro.dataBuffer
|
||||
endif
|
||||
; need to re-set cmd/slot as well?
|
||||
|
||||
|
@ -982,7 +986,7 @@ startup proc
|
|||
|
||||
if not __smartport__ then
|
||||
lda #buffer
|
||||
sta pro.buffer
|
||||
sta pro.dataBuffer
|
||||
short m
|
||||
lda #1
|
||||
sta pro.cmd
|
||||
|
@ -1113,9 +1117,9 @@ read
|
|||
|
||||
lda #$6800
|
||||
if __smartport__ then
|
||||
sta sp.buffer
|
||||
sta sp.dataBuffer
|
||||
else
|
||||
sta pro.buffer
|
||||
sta pro.dataBuffer
|
||||
endif
|
||||
|
||||
@loop lda r0
|
||||
|
@ -1124,11 +1128,11 @@ read
|
|||
; clc
|
||||
lda #512
|
||||
if __smartport__ then
|
||||
adc sp.buffer
|
||||
sta sp.buffer
|
||||
adc sp.dataBuffer
|
||||
sta sp.dataBuffer
|
||||
else
|
||||
adc pro.buffer
|
||||
sta pro.buffer
|
||||
adc pro.dataBuffer
|
||||
sta pro.dataBuffer
|
||||
endif
|
||||
inc r0
|
||||
dec blocks
|
||||
|
@ -1140,9 +1144,9 @@ read
|
|||
|
||||
lda #buffer
|
||||
if __smartport__ then
|
||||
sta sp.buffer
|
||||
sta sp.dataBuffer
|
||||
else
|
||||
sta pro.buffer ; kind of important...
|
||||
sta pro.dataBuffer ; kind of important...
|
||||
endif
|
||||
|
||||
lda #0
|
||||
|
|
Loading…
Reference in New Issue