the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use symbolic names for all CIO commands.

Browse Source
This commit is contained in:
Christian Groessler
2013-06-08 00:35:07 +02:00
parent 6a92d8b987
commit b03913370c
5 changed files with 39 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/atari/initcwd.s
View File

@@ -11,7 +11,7 @@
jsr findfreeiocb
bne oserr
lda #48
lda #GETCWD
sta ICCOM,x
lda #<__cwd
sta ICBLL,x

10
libsrc/atari/lseek.s
View File

@@ -68,7 +68,7 @@ iocberr:jsr incsp6
; SEEK_CUR
cur: ldx tmp3
lda #38 ; NOTE
lda #NOTE
sta ICCOM,x
jsr CIOV ; read it
bmi xxerr
@@ -84,7 +84,7 @@ l01: lda ICAX3,x ; low byte of position
; SEEK_END
end: ldx tmp3
lda #39 ; get file size
lda #GETFL
sta ICCOM,x
jsr CIOV
bpl l01
@@ -126,7 +126,7 @@ ret: jsr incsp6
.if 0
; return exactly the position DOS has
ldx tmp3
lda #38 ; NOTE
lda #NOTE
sta ICCOM,x
jsr CIOV ; read it
bmi xxerr
@@ -168,7 +168,7 @@ seek: jsr ldax0sp ; get lower word of new offset
sta ICAX4,x
lda ptr4
sta ICAX5,x
lda #37 ;POINT
lda #POINT
sta ICCOM,x
jsr CIOV
bpl ret
@@ -201,7 +201,7 @@ chk_supp:
cmp #$40
bcs supp1 ; SD-X (ver 4.xx) supports seeking on all disks
ldx tmp3 ; iocb to use
lda #39 ; get file size
lda #GETFL
sta ICCOM,x
jsr CIOV
bmi notsupp ; error code ? should be 168 (invalid command)

4
libsrc/atari/syschdir.s
View File

@@ -58,9 +58,9 @@ ucok1:
lda __dos_type
cmp #SPARTADOS
beq :+
lda #41
lda #CHDIR_MYDOS
.byte $2C ; BIT <abs>
: lda #44
: lda #CHDIR_SPDOS
sta ICCOM,x
lda #0
sta ICAX1,x

2
libsrc/atari/sysmkdir.s
View File

@@ -61,7 +61,7 @@ ucok1:
sta ICBAH,y
tya
tax
lda #42
lda #MKDIR
sta ICCOM,x
lda #8
sta ICAX1,x