6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

added some comments; new ft_flag bit #4: fd was opened by program

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1891 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2003-01-05 23:33:38 +00:00
parent b45445d047
commit d25ea2001b
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libsrc/atari/fdtable.s
View File

@ -42,7 +42,7 @@
cmp fd_table+ft_iocb,x ; entry in use?
beq inval ; no, return error
lda fd_table+ft_usa,x ; get usage counter
beq ok_notlast ; 0?
beq ok_notlast ; 0? (shouldn't happen)
sec
sbc #1 ; decr usage counter
sta fd_table+ft_usa,x
@ -53,10 +53,11 @@ retiocb:php
tax
plp
bne cont
php
lda #$ff
sta fd_table+ft_iocb,y ; clear table entry
plp
lda fd_table+ft_flag,y
and #16 ; opened by app?
eor #16 ; return set Z if yes
cont: rts
ok_notlast:
@ -251,7 +252,7 @@ do_open:lda tmp1
ldy #$ff
srchfree:
tya
cmp fd_table,x
cmp fd_table,x ; check ft_iocb field for $ff
beq freefnd ; found a free slot
txa
clc
@ -289,7 +290,8 @@ l2: sta fd_table+ft_dev,x ; set device
lda loc_Y
sta fd_table+ft_iocb,x ; set iocb index
lda loc_devnum
and #7 ; only 3 bits
and #7 ; device number is 3 bits
ora #16 ; indicated a fd actively opened by the app
sta fd_table+ft_flag,x
lda tmp2
jsr fdt_to_fdi ; get new index