Mercurial > hg > Members > kono > os9 > sbc09
diff os9/level2/vrbf.asm @ 47:15f1e1b49928
open dir worked ?
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 20 Jul 2018 17:04:49 +0900 |
| parents | ec9f494497e1 |
| children | ea1b17311bf3 |
line wrap: on
line diff
--- a/os9/level2/vrbf.asm Fri Jul 20 11:48:19 2018 +0900 +++ b/os9/level2/vrbf.asm Fri Jul 20 17:04:49 2018 +0900 @@ -95,8 +95,8 @@ orcc #IntMasks bsr setuppd ldb #$d2 - stb ,u - ldb ,u + stb ,x + ldb ,x cmpb #0 beq ok00 bra er00 @@ -110,24 +110,24 @@ * PD.DRV,y drive number setuppd ldx #$FFc0 vdisk port + sty 7,x path descriptor stu 5,x caller stack lda <PD.DRV,y sta 1,x clra - ldx <D.Proc get process pointer - cmpx <D.SysPrc + ldy <D.Proc get process pointer + cmpy <D.SysPrc beq sysmode lda #1 sysmode sta 2,x lda R$A,u bita #EXEC. bne usechx - ldd P$DIO+4,x get curwdir #pdnumber + ldd P$DIO+4,y get curwdir #pdnumber bra s1 -usechx ldd P$DIO+10,x get curxdir #pdnumber +usechx ldd P$DIO+10,y get curxdir #pdnumber s1 - ldu #$FFc0 - std 3,u + std 3,x rts er00 puls y,u,cc @@ -149,8 +149,8 @@ orcc #IntMasks bsr setuppd ldb #$d3 - stb ,u - ldb ,u + stb ,x + ldb ,x cmpb #0 beq ok00 bra er00 @@ -169,8 +169,8 @@ orcc #IntMasks bsr setuppd ldb #$db - stb ,u - ldb ,u + stb ,x + ldb ,x cmpb #0 beq ok00 bra er00 @@ -189,8 +189,10 @@ orcc #IntMasks bsr setuppd ldb #$d4 - stb ,u - ldb ,u + stb ,x + ldb ,x + ldy 1,s + ldx <D.Proc get process pointer ldu PD.RGS,y lda R$A,u ldb PD.MOD,y get current file mode @@ -221,8 +223,8 @@ orcc #IntMasks lbsr setuppd ldb #$d5 - stb ,u - ldb ,u + stb ,x + ldb ,x cmpb #0 beq ok01 bra er01 @@ -241,8 +243,8 @@ orcc #IntMasks lbsr setuppd ldb #$d6 - stb ,u - ldb ,u + stb ,x + ldb ,x cmpb #0 beq ok01 bra er01 @@ -261,8 +263,8 @@ orcc #IntMasks lbsr setuppd ldb #$d7 - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 bra er01 @@ -280,8 +282,8 @@ orcc #IntMasks lbsr setuppd ldb #$d8 - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 bra er01 @@ -300,8 +302,8 @@ orcc #IntMasks lbsr setuppd ldb #$d9 - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 bra er01 @@ -319,8 +321,8 @@ orcc #IntMasks lbsr setuppd ldb #$da - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 er01 puls y,u,cc orcc #Carry @@ -342,8 +344,8 @@ ldb R$B,u get function code lbsr setuppd ldb #$dc - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 bra er01 @@ -363,8 +365,8 @@ ldb R$B,u get function code lbsr setuppd ldb #$dd - stb ,u - ldb ,u + stb ,x + ldb ,x beq ok01 bra er01