PR#3 PREFIX /A2OSX.BUILD LOMEM $A00 INC 1 AUTO 6 */-------------------------------------- * # OpenDir.YA * ## In: * Y,A = PATH (C-String) * ## Out: * CC : success * A = hDIR * CS : error * A = EC *\-------------------------------------- K.OpenDir.YA jsr PFT.CheckPathYA >STYA ZPPtr2 jsr STDIO.SetMLIPathYA For GETFILEINFO,MLIOPEN >LDYAI S.NODE.DIR jsr K.GetMem0.YA bcs .99 >STYA ZPPtr1 stx .8+1 ldy #1 lda (ZPPtr2),y One char ? beq .8 No, Go open dir.... .7 >MLICALL MLIGETFILEINFO bcs .98 file/dir does not exists....quit lda K.MLI.PARAMS+4 cmp #$0F Directory ? bne .98 jsr STDIO.SetIOBUF bcs .98 >MLICALL MLIOPEN bcs .98 lda K.MLI.PARAMS+5 get ref_num ldy #S.NODE.DIR.REF sta (ZPPtr1),y .8 lda #$ff Self Modified clc rts .98 pha save MLI error lda .8+1 jsr K.CloseDir.A.1 pla get back MLI error sec .99 rts */-------------------------------------- * # ReadDir.A * ## In: * A = hDIR * ## Out: * CC : success * X = hDIRENT * Y,A = PTR to S.DIRENT * CS : error * A = EC * note : A = 0 means no more entry *\-------------------------------------- K.ReadDir.A.hDir .BS 1 K.ReadDir.A.hMem .BS 1 K.ReadDir.A.BufSize .BS 2 K.ReadDir.A.ECIB .BS 1 *--S.DIR Cache ------------------------ K.ReadDir.A.EL .BS 1 K.ReadDir.A.EPB .BS 1 K.ReadDir.A.EC .BS 2 *-------------------------------------- K.ReadDir.A jsr PFT.CheckNodeA sta K.ReadDir.A.hDir jsr K.GetMemPtr.A >STYA ZPPtr1 ldy #S.NODE.DIR.REF lda (ZPPtr1),y beq K.ReadDir.A.ROOT jmp K.ReadDir.A.DIR K.ReadDir.A.NoMore lda #0 sec CS,A=0 no more entry rts *-------------------------------------- K.ReadDir.A.ROOT ldy #S.NODE.DIR.FC did we already returned something ? lda (ZPPtr1),y bne K.ReadDir.A.NoMore stz K.MLI.PARAMS+1 All Volumes >LDYAI K.Buf256 >STYA K.MLI.PARAMS+2 >STYA ZPPtr2 >MLICALL MLIONLINE bcc .10 sec .99 rts * pass #1 compute BufSize..... .10 lda #1 +1 for Ending 0 sta K.ReadDir.A.BufSize stz K.ReadDir.A.BufSize+1 stz K.ReadDir.A.EC ldy #0 .1 lda (ZPPtr2),y and #$0F beq .2 inc K.ReadDir.A.EC increase entry count sec Add Filelen +1 adc #S.STAT will ends with CC adc K.ReadDir.A.BufSize sta K.ReadDir.A.BufSize bcc .2 inc K.ReadDir.A.BufSize+1 .2 tya clc adc #16 tay bcc .1 loop until 256 bytes scanned * pass #2 Fill Buffer... jsr K.ReadDir.A.GetBuf bcs .99 .3 lda (ZPPtr2) and #$0F beq .88 tax inc sta K.MLI.PATH lda #'/' sta K.MLI.PATH+1 ldy #1 .4 lda (ZPPtr2),y sta K.MLI.PATH+1,y jsr K.ReadDir.A.AddToBuf iny dex bne .4 txa Add ending 0 for C String jsr K.ReadDir.A.AddToBuf jsr K.ReadDir.A.ClrStat lda (ZPPtr2) asl DRIVE in Carry pha lda #0 rol inc sta K.S.STAT+S.STAT.P.DRIVE pla lsr CC lsr lsr lsr lsr sta K.S.STAT+S.STAT.P.SLOT >LDYAI K.MLI.PATH >STYA K.MLI.PARAMS+1 >MLICALL MLIGETFILEINFO sta K.S.STAT+S.STAT.P.DEVSTATUS bcs .80 >LDYA K.MLI.PARAMS+5 AUXTYPE=TOTAL BLOCKS >STYA K.S.STAT+S.STAT.P.DEVBLOCKS >LDYA K.MLI.PARAMS+8 >STYA K.S.STAT+S.STAT.BLOCKS .80 jsr K.ReadDir.A.ADDSTAT .88 lda ZPPtr2 clc adc #16 sta ZPPtr2 bcc .89 inc ZPPtr2+1 .89 dec K.ReadDir.A.EC bne .3 * lda #0 done by S.MEM.F.INIT0 * sta (ZPPtr4) Ending 0 ldy #S.NODE.DIR.FC lda #16 sta (ZPPtr1),y Flag that we returned somthing for next time jmp K.ReadDir.A.EXIT *-------------------------------------- K.ReadDir.A.DIR sta K.MLI.PARAMS+1 A=#S.DIR.PRODOS.REF >LDYAI 512 Get a 512 bytes buffer for reading dir... jsr K.GetMem.YA bcs .99 stx K.ReadDir.A.hMem >STYA K.MLI.PARAMS+2 For reading pha tya * clc CC from K.GetMem adc #4 Skip 4 bytes linked list sta ZPPtr2 PTR to Buffer for PASS #1 sta ZPPtr3 PTR to Buffer for PASS #2 pla adc #0 sta ZPPtr2+1 PTR to Buffer for PASS #1 sta ZPPtr3+1 PTR to Buffer for PASS #2 >LDYAI 512 >STYA K.MLI.PARAMS+4 >MLICALL MLIREAD Read A block from directory bcs .98 ldy #S.NODE.DIR.EL Check if first run.... lda (ZPPtr1),y bne .2 no, we have all we need.... ldy #$1f+3 ldx #3 .1 lda (ZPPtr2),y Get K.ReadDir.A.EL.... From Block sta K.ReadDir.A.EL,x dey dex bpl .1 inc K.ReadDir.A.EC Add one to EC because we include VOL/DIR Header bne .4 inc K.ReadDir.A.EC+1 ...and ProDOS does NOT include header entry in EC bra .4 .98 jsr K.ReadDir.A.CLN sec .99 rts .2 ldy #S.NODE.DIR.EL+3 ldx #3 .3 lda (ZPPtr1),y get this session parameters from S.DIR sta K.ReadDir.A.EL,x dey dex bpl .3 .4 lda K.ReadDir.A.EC eor #$ff tax lda K.ReadDir.A.EC+1 eor #$ff tay inx Any entry remaining ? bne .5 iny beq .98 no...exit * pass #1 compute BufSize... .5 lda K.ReadDir.A.EPB sta K.ReadDir.A.ECIB lda #1 For Ending 0 sta K.ReadDir.A.BufSize stz K.ReadDir.A.BufSize+1 K.ReadDir.A.DIR1 lda (ZPPtr2) X = EntryCount In This Block beq .7 Free slot....goto next and #$F0 get storage_type cmp #$F0 Volume header ? beq .1 cmp #$E0 directory header ? beq .2 lda (ZPPtr2) regular DIR or File, get LEN and #$F compute filename len sec add "#" + S.STAT adc #S.STAT .HS 2C bit abs .1 lda #2+S.STAT add "1." string + S.STAT .HS 2C bit abs .2 lda #2+S.STAT+3+S.STAT add "1." + S.STAT + "2.." + S.STAT... clc adc K.ReadDir.A.BufSize sta K.ReadDir.A.BufSize bcc .3 inc K.ReadDir.A.BufSize+1 .3 inx bne .7 iny bra K.ReadDir.A.DIR2 we reached last entry in whole DIR .7 lda ZPPtr2 clc adc K.ReadDir.A.EL sta ZPPtr2 bcc .8 inc ZPPtr2+1 .8 dec K.ReadDir.A.ECIB bne K.ReadDir.A.DIR1 * pass #2 Fill Buffer...(ZPPtr1 & Ptr2 can now be trashed) K.ReadDir.A.DIR2 jsr K.ReadDir.A.GetBuf bcs .9 lda K.ReadDir.A.EPB sta K.ReadDir.A.ECIB .1 lda (ZPPtr3) beq .7 Empty slot, skip and #$F0 cmp #$F0 Vol Header ? bne .2 jsr K.ReadDir.A.ADD. bra .6 .2 cmp #$E0 Dir Header ? bne .3 jsr K.ReadDir.A.ADD. jsr K.ReadDir.A.ADD.. bra .6 .3 jsr K.ReadDir.A.AddFNToBuf jsr K.ReadDir.A.ClrStat lda (ZPPtr3) and #$F0 cmp #$D0 Directory ? bne .5 jsr K.ReadDir.A.ADDD bra .6 .5 jsr K.ReadDir.A.ADDF .6 lda K.ReadDir.A.EC decrease global counter... sec sbc #1 sta K.ReadDir.A.EC lda K.ReadDir.A.EC+1 sbc #0 sta K.ReadDir.A.EC+1 ora K.ReadDir.A.EC beq .8 0! no more files in DIR .7 dec K.ReadDir.A.ECIB 0! no more file in block beq .8 lda ZPPtr3 clc adc K.ReadDir.A.EL sta ZPPtr3 bcc .1 inc ZPPtr3+1 bra .1 .9 jsr K.ReadDir.A.CLN sec rts .8 * lda #0 S.MEM.F.INIT0 already did this * sta (ZPPtr4) Ending 0 lda K.ReadDir.A.hDir Restore ZPPtr1 trashed by STR API calls jsr K.GetMemPtr.A >STYA ZPPtr1 ldx #3 ldy #S.NODE.DIR.EL+3 .81 lda K.ReadDir.A.EL,x Store back this session prameters to S.DIR sta (ZPPtr1),y dey dex bpl .81 jsr K.ReadDir.A.CLN Discard READBUFFER K.ReadDir.A.EXIT ldx #$ff Self Modified : hDIRENT txa jmp K.GetMemPtr.A *-------------------------------------- K.ReadDir.A.CLN pha lda K.ReadDir.A.hMem jsr K.FreeMem.A pla rts *-------------------------------------- K.ReadDir.A.GetBuf >LDYA K.ReadDir.A.BufSize Get a BufSize bytes buffer for storing results jsr K.GetMem0.YA make sure 0 filled bcs .9 stx K.ReadDir.A.EXIT+1 >STYA ZPPtr4 .9 rts *-------------------------------------- K.ReadDir.A.ADD. ldx #1 filename="1." .HS 2C bit abs K.ReadDir.A.ADD.. ldx #2 filename="2.." lda #'.' .1 jsr K.ReadDir.A.AddToBuf Add X dot(s) dex bne .1 txa jsr K.ReadDir.A.AddToBuf Add Ending 0 jsr K.ReadDir.A.ClrStat * ldy #$25 total_blocks * lda (ZPPtr3),y * sta K.S.STAT+S.STAT.BLOCKS * iny * lda (ZPPtr3),y * sta K.S.STAT+S.STAT.BLOCKS+1 *-------------------------------------- K.ReadDir.A.ADDD lda #$0F sta K.S.STAT+S.STAT.P.TYPE lda /S.STAT.MODE.DIR sta K.S.STAT+S.STAT.MODE+1 bra K.ReadDir.A.AddAccess *-------------------------------------- K.ReadDir.A.ADDF lda /S.STAT.MODE.REG sta K.S.STAT+S.STAT.MODE+1 ldx #ADDF.DST-ADDF.SRC .1 ldy ADDF.SRC-1,x lda (ZPPtr3),y ldy ADDF.DST-1,x sta K.S.STAT,y dex bne .1 *-------------------------------------- K.ReadDir.A.AddAccess ldy #$1E ProDOS Access lda (ZPPtr3),y ldx #0 bit #$01 ProDOS R beq .2 ldx #S.STAT.MODE.RO .2 bit #$C2 ProDOS D,Rn,W beq .3 txa ora #S.STAT.MODE.XO+S.STAT.MODE.WO .HS 89 bit imm to skip txa .3 txa sta K.S.STAT+S.STAT.MODE *-------------------------------------- K.ReadDir.A.AddTime >PUSHWI K.S.STAT+S.STAT.CTIME lda #$18 creation Date/time jsr K.ReadDir.A.ConvertTime >PUSHWI K.S.STAT+S.STAT.MTIME lda #$21 mod Date/time jsr K.ReadDir.A.ConvertTime *-------------------------------------- K.ReadDir.A.AddStat ldy #S.STAT-1 .1 lda K.S.STAT,y sta (ZPPtr4),y dey bpl .1 lda ZPPtr4 clc adc #S.STAT sta ZPPtr4 bcc .8 inc ZPPtr4+1 .8 rts *-------------------------------------- ADDF.SRC .HS 1013141516171f20 ADDF.DST .DA #S.STAT.P.TYPE,#S.STAT.BLOCKS,#S.STAT.BLOCKS+1 .DA #S.STAT.SIZE,#S.STAT.SIZE+1,#S.STAT.SIZE+2 .DA #S.STAT.P.AUXTYPE,#S.STAT.P.AUXTYPE+1 *-------------------------------------- K.ReadDir.A.ClrStat ldx #S.STAT-1 .1 stz K.S.STAT,x dex bpl .1 rts *-------------------------------------- K.ReadDir.A.AddFNToBuf ldy #$1C version/min_version for lowercase bitmap lda (ZPPtr3),y check bxxxxxxx.xxxxxxxx... bpl .7 not set, no lowercase bitmap present pha iny lda (ZPPtr3),y pha lda #$1 sta .2+1 ldy #15 .1 pla .2 bit #$ff pha beq .3 lda (ZPPtr3),y ora #$20 convert a-z to A-Z adding from $4x to $6x sta (ZPPtr3),y .3 asl .2+1 bne .4 rol .2+1 pla .4 dey bne .1 pla .7 lda (ZPPtr3) and #$0F get filename len tax ldy #1 .8 lda (ZPPtr3),y jsr K.ReadDir.A.AddToBuf iny dex bne .8 txa jsr K.ReadDir.A.AddToBuf rts *-------------------------------------- K.ReadDir.A.AddToBuf sta (ZPPtr4) inc ZPPtr4 bne .8 inc ZPPtr4+1 .8 rts *-------------------------------------- K.ReadDir.A.ConvertTime clc adc ZPPtr3 tay lda ZPPtr3+1 adc #0 >PUSHYA >SYSCALL PTime2Time rts */------------------------------------- * # CloseDir.A * ## In: * A = hDIR * ## Out: * none, always succeed. *\------------------------------------- K.CloseDir.A .EQ K.FClose.A K.CloseDir.A.1 .EQ K.FClose.A.1 *-------------------------------------- MAN SAVE /A2OSX.SRC/SYS/KERNEL.S.DIRENT LOAD /A2OSX.SRC/SYS/KERNEL.S ASM