diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 04644aef..4e9059da 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 3723f6b7..4b56db1c 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/SYS/KERNEL.S.ARG.txt b/SYS/KERNEL.S.ARG.txt index 4fcad76e..f47d41de 100644 --- a/SYS/KERNEL.S.ARG.txt +++ b/SYS/KERNEL.S.ARG.txt @@ -13,7 +13,7 @@ AUTO 4,1 *\-------------------------------------- K.GetArg pha save requested arg# - ldy #S.PS.hARGS + ldy #S.PS.hARGS lda (pPs),y jsr K.GetMemPtr diff --git a/SYS/KERNEL.S.BIN.txt b/SYS/KERNEL.S.BIN.txt index 0d93d206..a0adb27b 100644 --- a/SYS/KERNEL.S.BIN.txt +++ b/SYS/KERNEL.S.BIN.txt @@ -11,7 +11,7 @@ AUTO 4,1 K.LoadLib jsr BIN.FindLIB bcs .9 - jsr BIN.Load.YA Y,A = "/PATH/BIN" + jsr BIN.Load Y,A = "/PATH/BIN" bcs .9 stx .8+1 @@ -29,7 +29,7 @@ K.LoadLib jsr BIN.FindLIB .99 pha lda .8+1 - jsr K.FreeMem.A + jsr K.FreeMem pla sec @@ -63,7 +63,7 @@ K.UnloadLib pha ldx #LIBMGR.UNLOAD .2 jsr $ffff Self Modified, Call LIB.UNLOAD function pla - jmp K.FreeMem.A + jmp K.FreeMem */-------------------------------------- * # LoadDrv * ##ASM @@ -77,7 +77,7 @@ K.LoadDrv >STYA .2+1 Save "BIN\0ARGS\0\0" jsr BIN.FindDRV bcs .9 - jsr BIN.Load.YA Y,A = "/PATH/BIN" + jsr BIN.Load Y,A = "/PATH/BIN" bcs .9 >STYA pDrv @@ -111,7 +111,7 @@ K.LoadDrv >STYA .2+1 Save "BIN\0ARGS\0\0" .96 pha .97 lda #$ff - jsr K.FreeMem.A + jsr K.FreeMem pla sec rts @@ -244,11 +244,11 @@ BIN.Find.ENV.LIB .AZ "LIB" * Y,A = MEMPTR * X = hMem of Code Segment *-------------------------------------- -BIN.Load.YA >STYA BIN.CmdLine +BIN.Load >STYA BIN.CmdLine >STYA .2+1 ldx Mem.LastSlot - beq BIN.Load.YA.1 + beq BIN.Load.1 >LDYAI Mem.Table >STYA ZPPtr1 @@ -293,7 +293,7 @@ BIN.Load.YA >STYA BIN.CmdLine cpx Mem.LastSlot bne .1 *-------------------------------------- -BIN.Load.YA.1 >PUSHWI K.S.STAT +BIN.Load.1 >PUSHWI K.S.STAT >PUSHW BIN.CmdLine >SYSCALL STAT BANK1!!! Look for AUXTYPE bcs .9 diff --git a/SYS/KERNEL.S.CORE.txt b/SYS/KERNEL.S.CORE.txt index 0574c470..9abd6a65 100644 --- a/SYS/KERNEL.S.CORE.txt +++ b/SYS/KERNEL.S.CORE.txt @@ -20,7 +20,7 @@ CORE.Run lda CORE.PSCount ldy #S.PS.CPID lda (pPs),y - jsr CORE.GetPS.A + jsr CORE.GetPS bcc .8 yes, still running.... lda (pPs) get S.PS.F again @@ -290,7 +290,7 @@ CORE.Dispatch lda CORE.EvtCount * In : A = PID to free *-------------------------------------- CORE.PSFree.A sta .1+1 Save PS ID - jsr CORE.GetPSByID.A PS in ZPPtr1 + jsr CORE.GetPSByID PS in ZPPtr1 bcs .9 >STYA ZPPtr1 @@ -329,7 +329,7 @@ CORE.PSFree.A sta .1+1 Save PS ID .3 stz PS.Table.PID-1,x lda PS.TABLE.hMem-1,x stz PS.TABLE.hMem-1,x -.4 jmp K.FreeMem.A +.4 jmp K.FreeMem .8 lda (ZPPtr1),y bne .4 @@ -337,21 +337,20 @@ CORE.PSFree.A sta .1+1 Save PS ID *-------------------------------------- * X unmodofied *-------------------------------------- -CORE.GetPSByID.A - tay +CORE.GetPSByID tay bne .1 >LDYAI CORE.S.PS0 Select PS0 clc rts -.1 jsr CORE.GetPS.A +.1 jsr CORE.GetPS bcs .9 lda PS.TABLE.hMem-1,y beq * jmp K.GetMemPtr .9 rts *-------------------------------------- -CORE.GetPS.A ldy CORE.PSCount +CORE.GetPS ldy CORE.PSCount beq .9 .1 cmp PS.Table.PID-1,y @@ -393,7 +392,7 @@ CORE.ScrSel and #$0F >STYA .1+1 - ldx #DEVMGR.CONTROL + ldx #IOCTL.CONTROL .1 jmp $ffff SELF MODIFED .8 rts diff --git a/SYS/KERNEL.S.DIRENT.txt b/SYS/KERNEL.S.DIRENT.txt index 108b3ffc..0ce635fd 100644 --- a/SYS/KERNEL.S.DIRENT.txt +++ b/SYS/KERNEL.S.DIRENT.txt @@ -421,7 +421,7 @@ K.ReadDir.EXIT *-------------------------------------- K.ReadDir.CLN pha lda K.ReadDir.hMem - jsr K.FreeMem.A + jsr K.FreeMem pla rts *-------------------------------------- @@ -598,13 +598,13 @@ K.ReadDir.ConvertTime >SYSCALL PTime2Time rts */------------------------------------- -* # CloseDir.A +* # CloseDir * **In:** * A = hDIR * **Out:** * none, always succeed. *\------------------------------------- -K.CloseDir.A .EQ K.FClose.A +K.CloseDir .EQ K.FClose *-------------------------------------- MAN SAVE /A2OSX.SRC/SYS/KERNEL.S.DIRENT diff --git a/SYS/KERNEL.S.DRV.txt b/SYS/KERNEL.S.DRV.txt index 0286777b..98b0d6f3 100644 --- a/SYS/KERNEL.S.DRV.txt +++ b/SYS/KERNEL.S.DRV.txt @@ -25,12 +25,12 @@ DRV.DiskII cld .DA A2osX.BadCall .DA A2osX.BadCall *-------------------------------------- -DRV.DiskII.S >LDYAI A2osx.DII.Stat +DRV.DiskII.S >LDYAI DRV.DiskII.Stat clc rts *-------------------------------------- DRV.DiskII.RW >STYA A2osX.RW.SrcDst+1 - jsr A2osX.Blk.GetCmdAndDevAX + jsr DRV.BlkDevice.GetCmdAndDevAX *-------------------------------------- ldy #$D0 .HS 2C bit abs @@ -87,7 +87,7 @@ DRV.RamDrive cld .DA A2osX.BadCall .DA A2osX.BadCall *-------------------------------------- -DRV.RamDrive.S jsr A2osX.Blk.GetCmdAndDevAX +DRV.RamDrive.S jsr DRV.BlkDevice.GetCmdAndDevAX jsr GO.ProDOS stx $42 sta $43 @@ -97,12 +97,12 @@ DRV.RamDrive.S jsr A2osX.Blk.GetCmdAndDevAX stx DRV.RamDrive.Stat+S.DSTAT.SIZE sty DRV.RamDrive.Stat+S.DSTAT.SIZE+1 - >LDYAI A2osX.RamDrv.Stat + >LDYAI DRV.RamDrive.Stat clc .9 rts *-------------------------------------- DRV.RamDrive.RW >STYA A2osX.RW.SrcDst+1 - jsr A2osX.Blk.GetCmdAndDevAX + jsr DRV.BlkDevice.GetCmdAndDevAX bra A2osX.RamDrv.RW1 *-------------------------------------- DRV.RamDrive.Stat @@ -136,29 +136,29 @@ DRV.BlkDevice cld .DA A2osX.BadCall .DA A2osX.BadCall *-------------------------------------- -DRV.BlkDevice.S jsr A2osX.Blk.GetCmdAndDev +DRV.BlkDevice.S jsr DRV.BlkDevice.GetCmdAndDev - jsr A2osX.BlkDrv.Go + jsr DRV.BlkDevice.Go bcs .9 - stx A2osx.Blk.Stat+S.DSTAT.SIZE - sty A2osx.Blk.Stat+S.DSTAT.SIZE+1 + stx DRV.BlkDevice.Stat+S.DSTAT.SIZE + sty DRV.BlkDevice.Stat+S.DSTAT.SIZE+1 - >LDYAI A2osX.Blk.Stat + >LDYAI DRV.BlkDevice.Stat clc .9 rts *-------------------------------------- DRV.BlkDevice.RW - >STYA A2osX.Blk.GetParam.1+1 + >STYA DRV.BlkDevice.GetParam.1+1 - jsr A2osX.Blk.GetCmdAndDev + jsrDRV.BlkDevice.GetCmdAndDev - jsr A2osX.Blk.GetParam - bra A2osX.BlkDrv.Go + jsr DRV.BlkDevice.GetParam + bra DRV.BlkDevice.Go *-------------------------------------- -DRV.BlkDevice.F jsr A2osX.Blk.GetCmdAndDev +DRV.BlkDevice.F jsr DRV.BlkDevice.GetCmdAndDev DRV.BlkDevice.Go - ldy #S.DEV.ROM.JMP + ldy #S.NODE.DEV.ROMPTR lda (pDev),y sta .8+1 iny @@ -172,11 +172,11 @@ DRV.BlkDevice.GetParam.1 lda $ffff,y Self Modified sta $44,y dey - bpl A2osX.Blk.GetParam.1 + bpl DRV.BlkDevice.GetParam.1 rts *-------------------------------------- DRV.BlkDevice.GetCmdAndDev - jsr A2osX.Blk.GetCmdAndDevAX + jsr DRV.BlkDevice.GetCmdAndDevAX stx $42 sta $43 rts @@ -185,13 +185,13 @@ DRV.BlkDevice.GetCmdAndDevAX lsr tax CMD - ldy #S.DEV.DEVID Drive 1, or 2 + ldy #S.NODE.DEV.DEVID Drive 1, or 2 lda (pDev),y dec O or 1 lsr in Carry php - ldy #S.DEV.BUSID + ldy #S.NODE.DEV.BUSID lda (pDev),y asl asl @@ -226,23 +226,23 @@ DRV.SmartPort cld .DA DRV.SmartPort.P R .DA DRV.SmartPort.P W *-------------------------------------- -DRV.SmartPort.S jsr A2osX.PrtDrv.GetDev +DRV.SmartPort.S jsr DRV.SmartPort.GetDev >LDYAI K.S.DSTAT - >STYA K.SP.PARAMS+2 + >STYA K.S.IOCTL+2 lda #3 - sta K.SP.PARAMS+4 - jsr A2osX.PrtDrv.Go + sta K.S.IOCTL+4 + jsr DRV.SmartPort.Go bcs .9 >LDYAI K.S.DSTAT .9 rts *-------------------------------------- -DRV.SmartPort.P jsr A2osX.PrtDrv.GetParam - bra A2osX.PrtDrv.Go +DRV.SmartPort.P jsr DRV.SmartPort.GetParam + bra DRV.SmartPort.Go DRV.SmartPort.NP - jsr A2osX.PrtDrv.GetDev + jsr DRV.SmartPort.GetDev *-------------------------------------- DRV.SmartPort.Go - ldy #S.DEV.ROM.JMP + ldy #S.NODE.DEV.ROMPTR lda (pDev),y sta .8+1 iny @@ -252,17 +252,17 @@ DRV.SmartPort.Go .8 jsr $ffff DRV.SmartPort.Go.Cmd .BS 1 - .DA K.SP.PARAMS + .DA K.S.IOCTL rts *-------------------------------------- DRV.SmartPort.GetParam >STYA ZPDRV Get Ptr To ParamList - jsr A2osX.Blk.GetCmdAndDev + jsr DRV.BlkDevice.GetCmdAndDev ldy #7 .1 lda (ZPDRV),y - sta K.SP.PARAMS+2,y + sta K.S.IOCTL+2,y dey bpl .1 rts @@ -270,13 +270,13 @@ DRV.SmartPort.GetParam DRV.SmartPort.GetDev txa lsr - sta A2osX.PrtDrv.Go.Cmd + sta DRV.SmartPort.Go.Cmd tax - lda A2osX.PrtDrv.Cnt,x - sta K.SP.PARAMS + lda DRV.SmartPort.Cnt,x + sta K.S.IOCTL ldy #S.DEV.DEVID lda (pDev),y - sta K.SP.PARAMS+1 + sta K.S.IOCTL+1 rts DRV.SmartPort.Cnt .HS 03030301030101010404 @@ -301,7 +301,7 @@ DRV.NULL cld .8 clc rts *-------------------------------------- -.3 .DA #S.DEV.S.WRITE+S.DEV.S.READ +.3 .DA #S.DSTAT.S.WRITE+S.DSTAT.S.READ .DA #0,#0,#0 >PSTR "NULL DEVICE" .BS 5 @@ -328,7 +328,7 @@ DRV.SYS cld clc rts *-------------------------------------- -.3 .DA #S.DEV.S.WRITE+S.DEV.S.READ +.3 .DA #S.DSTAT.S.WRITE+S.DSTAT.S.READ .DA #0,#0,#0 >PSTR "A2osX SYS Screen" .DA #S.DSTAT.T.CHAR diff --git a/SYS/KERNEL.S.FIO.txt b/SYS/KERNEL.S.FIO.txt index 745be2b3..901e0966 100644 --- a/SYS/KERNEL.S.FIO.txt +++ b/SYS/KERNEL.S.FIO.txt @@ -88,12 +88,12 @@ K.LoadFile clc .98 pha lda .8+1 - jsr K.FreeMem.A + jsr K.FreeMem pla .99 pha lda FIO.hFile - jsr K.FClose.A + jsr K.FClose pla sec rts diff --git a/SYS/KERNEL.S.INIT.txt b/SYS/KERNEL.S.INIT.txt index 5ca5e98f..eee9577f 100644 --- a/SYS/KERNEL.S.INIT.txt +++ b/SYS/KERNEL.S.INIT.txt @@ -812,13 +812,13 @@ DevMgrInit >LDYAI MSG.DEV tax 000DSSS0 lsr 0000DSSS and #$7 - sta DEV.HEADER+S.DEV.BUSID + sta IOCTL.BDEV+S.NODE.DEV.BUSID lda DEVPTRS,x - sta DEV.HEADER+S.DEV.ROM.JMP - + sta IOCTL.BDEV+S.NODE.DEV.ROMPTR + lda DEVPTRS+1,x - sta DEV.HEADER+S.DEV.ROM.JMP+1 + sta IOCTL.BDEV+S.NODE.DEV.ROMPTR+1 sta ZPPtr1+1 stz ZPPtr1 @@ -826,7 +826,7 @@ DevMgrInit >LDYAI MSG.DEV plp lda #0 adc #1 Make DevID 1 or 2 - sta DEV.HEADER+S.DEV.DEVID + sta IOCTL.BDEV+S.NODE.DEV.DEVID lda ZPPtr1+1 @@ -846,29 +846,29 @@ DevMgrInit >LDYAI MSG.DEV cmp #$C0 beq .4 - jsr DevMgrInit.USR Outside ROM space, User loaded BLK dev + jsr DevMgrInit.USR Outside ROM space, User loaded BLK dev bra .8 .4 ldx #SmartPort.SIG-SmartPort.OFS-1 -.5 ldy SmartPort.OFS,x Check if there is a smartport firmware +.5 ldy SmartPort.OFS,x Check if there is a smartport firmware lda (ZPPtr1),y cmp SmartPort.SIG,x - bne .8 not a Disk Controller... + bne .8 not a Disk Controller... dex bpl .5 ldy #7 lda (ZPPtr1),y - bne .6 $Cn07=00 : SmartPort + bne .6 $Cn07=00 : SmartPort - lda ZPPtr1 get $Cn - and #$f get $0n - cmp DEV.HEADER+S.DEV.BUSID same as SSS ? + lda ZPPtr1 get $Cn + and #$f get $0n + cmp IOCTL.BDEV+S.NODE.DEV.DEVID same as SSS ? beq .51 - inc DEV.HEADER+S.DEV.DEVID Remapped SP devices.... - inc DEV.HEADER+S.DEV.DEVID Add 2 to DEVID (2 & 3) + inc IOCTL.BDEV+S.NODE.DEV.DEVID Remapped SP devices.... + inc IOCTL.BDEV+S.NODE.DEV.DEVID Add 2 to DEVID (2 & 3) .51 jsr DevMgrInit.SP lda #A2osX.S.SP @@ -877,7 +877,7 @@ DevMgrInit >LDYAI MSG.DEV .6 jsr DevMgrInit.BLK lda #A2osX.S.BLK -.7 ldx DEV.HEADER+S.DEV.BUSID +.7 ldx IOCTL.BDEV+S.NODE.DEV.DEVID sta A2osX.S,x .8 dec DevMgrInit.DEVCNT @@ -889,20 +889,20 @@ DevMgrInit >LDYAI MSG.DEV DevMgrInit.DEVCNT .BS 1 *-------------------------------------- -DevMgrInit.DII >LDYAI A2osX.DIIDrv +DevMgrInit.DII >LDYAI DRV.DiskII jmp DevMgrInit.AddDev *-------------------------------------- -DevMgrInit.RAM >LDYAI A2osX.RamDrv +DevMgrInit.RAM >LDYAI DRV.RamDrive jmp DevMgrInit.AddDev *-------------------------------------- -DevMgrInit.USR >LDYAI A2osX.BlkDrv +DevMgrInit.USR >LDYAI DRV.BlkDevice jmp DevMgrInit.AddDev *-------------------------------------- DevMgrInit.BLK ldy #$ff lda (ZPPtr1),y - sta DEV.HEADER+S.DEV.ROM.JMP + sta IOCTL.BDEV+S.NODE.DEV.ROMPTR - >LDYAI A2osX.BlkDrv + >LDYAI DRV.BlkDevice jmp DevMgrInit.AddDev *-------------------------------------- DevMgrInit.SP ldy #$ff @@ -914,7 +914,7 @@ DevMgrInit.SP ldy #$ff lda ZPPtr1+1 sta .1+2 - lda IOCTL.BDEV+S.DEV.DEVID + lda IOCTL.BDEV+S.NODE.DEV.DEVID sta SP.DEV.STATUS.DEVID .1 jsr $ffff Self Modified @@ -922,7 +922,7 @@ DevMgrInit.SP ldy #$ff .DA SP.DEV.STATUS bcs .9 - >LDYAI A2osX.PrtDrv + >LDYAI DRV.SmartPort jsr DevMgrInit.AddDev .9 rts @@ -991,7 +991,7 @@ TskMgrInit >LDYAI MSG.TSK jsr CORE.PSSelect0 >LDYAI K.ENV.SIZE get a buffer for ENV - >SYSCALL GetMem0.YA make sure blank!! + >SYSCALL GetMem0 make sure blank!! bcs .9 txa @@ -1006,7 +1006,7 @@ TskMgrInit >LDYAI MSG.TSK ldy K.Buf256 iny lda #0 - jsr K.GetMem.YA + jsr K.GetMem >STYA ZPPtr1 txa ldy #S.PS.hPREFIX @@ -1028,15 +1028,15 @@ TskMgrInit >LDYAI MSG.TSK bcs .9 >LDYAI I.ENV.PATH - >SYSCALL PutEnv.YA + >SYSCALL PutEnv bcs .9 >LDYAI I.ENV.LIB - >SYSCALL PutEnv.YA + >SYSCALL PutEnv bcs .9 >LDYAI I.ENV.DRV - >SYSCALL PutEnv.YA + >SYSCALL PutEnv .9 rts *-------------------------------------- MSG.Init2 .AZ "A2osX[Stage2]:Init\nInstalling KERNEL...\n" diff --git a/SYS/KERNEL.S.IO.txt b/SYS/KERNEL.S.IO.txt index 4ee31a79..9271bb1c 100644 --- a/SYS/KERNEL.S.IO.txt +++ b/SYS/KERNEL.S.IO.txt @@ -28,7 +28,7 @@ IO.WRITE.REG >PUSHW K.S.IOCTL+S.IOCTL.BUFPTR jmp K.FWrite *-------------------------------------- -IO.WRITE.CDEV ldy #S.NODE.DEV.JMP +IO.WRITE.CDEV ldy #S.NODE.DEV.DRVPTR lda (pNode),y sta .1+1 iny @@ -64,7 +64,7 @@ IO.WRITE.FIFO ldy #S.NODE.FIFO.S >STYA .1+2 ldy #S.NODE.FIFO.Head - lda (pNodae),y + lda (pNode),y inc dey #S.NODE.FIFO.Tail cmp (pNode),y diff --git a/SYS/KERNEL.S.STAT.txt b/SYS/KERNEL.S.STAT.txt index e52a0a99..c02c6729 100644 --- a/SYS/KERNEL.S.STAT.txt +++ b/SYS/KERNEL.S.STAT.txt @@ -120,7 +120,7 @@ K.MKDir jsr PFT.CheckPathYA * CC = OK, CS = ERROR * A = hFILE *\-------------------------------------- -K.MkNod jsr K.GetDevByName.YA Ptr1=NAME +K.MkNod jsr K.GetDevByName Ptr1=NAME bcs .9 >STYA .1+1 stx .2+1 @@ -198,7 +198,7 @@ K.MKFIFO >LDYAI 256 .9 pha save error code lda .1+1 get back FIFO buffer - jsr K.FreeMem.A + jsr K.FreeMem pla sec diff --git a/SYS/KERNEL.S.STDIO.txt b/SYS/KERNEL.S.STDIO.txt index 075ece9d..f8a3863b 100644 --- a/SYS/KERNEL.S.STDIO.txt +++ b/SYS/KERNEL.S.STDIO.txt @@ -39,7 +39,7 @@ K.PutChar.1 jsr IO.SELECT K.PutChar.X >LDYAI K.IOBuf >STYA K.S.IOCTL+S.IOCTL.BUFPTR stx K.S.IOCTL+S.IOCTL.BYTECNT - stz K.S.IOCTL+S.IOCTL.BYTECNT.1 + stz K.S.IOCTL+S.IOCTL.BYTECNT+1 jmp IO.WRITE */-------------------------------------- * # PutS @@ -97,7 +97,7 @@ K.FPutS.I jsr IO.SELECT bra .1 .2 sty K.S.IOCTL+S.IOCTL.BYTECNT - stx K.S.IOCTL+S.IOCTL.BYTECNT.1 + stx K.S.IOCTL+S.IOCTL.BYTECNT+1 jmp IO.WRITE */-------------------------------------- * # PrintF/SPrintF/FPrintF @@ -542,9 +542,9 @@ PrintF.SS ldy #$00 PSTR *-------------------------------------- PrintF.COut phy - ldy STDIO.Out.Cnt + ldy S.IOCTL.BYTECNT sta (pIOBuf),y - inc STDIO.Out.Cnt + inc S.IOCTL.BYTECNT bne .8 lda pIOBuf+1 @@ -553,19 +553,19 @@ PrintF.COut phy * we are printing to IObuf, flush! - lda STDIO.Out.Cnt+1 + lda S.IOCTL.BYTECNT+1 pha lda #1 Flush $100 bytes - sta STDIO.Out.Cnt+1 + sta S.IOCTL.BYTECNT+1 pla inc - sta STDIO.Out.Cnt+1 + sta S.IOCTL.BYTECNT+1 .7 inc pIOBuf+1 - inc STDIO.Out.Cnt+1 + inc S.IOCTL.BYTECNT+1 .8 ply clc @@ -898,7 +898,7 @@ K.FOpen.10 >LDYAI S.NODE.REG .98 pha save MLI error lda .8+1 - jsr K.FClose.A + jsr K.FClose pla get back MLI error sec rts @@ -907,14 +907,14 @@ K.FOpen.MODE .BS 1 K.FOpen.TYPE .BS 1 K.FOpen.AUXTYPE .BS 2 */-------------------------------------- -* # FClose.A +* # FClose * Close a file * **In:** * A = hFILE * **Out:** *\-------------------------------------- -K.FClose.A jsr PFT.CheckNodeA - sta K.FClose.A.8+1 +K.FClose jsr PFT.CheckNodeA + sta K.FClose.8+1 jsr K.GetMemPtr >STYA ZPPtr1 @@ -925,12 +925,12 @@ K.FClose.A jsr PFT.CheckNodeA tax jmp (.1,x) -.1 .DA K.FClose.A.REG - .DA K.FClose.A.DIR - .DA K.FClose.A.CDEV +.1 .DA K.FClose.REG + .DA K.FClose.DIR + .DA K.FClose.CDEV -K.FClose.A.REG -K.FClose.A.DIR ldy #S.NODE.REG.REF +K.FClose.REG +K.FClose.DIR ldy #S.NODE.REG.REF lda (ZPPtr1),y beq .1 sta K.MLI.PARAMS+1 @@ -938,19 +938,19 @@ K.FClose.A.DIR ldy #S.NODE.REG.REF .1 ldy #S.NODE.REG.IOBUF lda (ZPPtr1),y - beq K.FClose.A.8 + beq K.FClose.8 - jsr K.FreeMem.A - bra K.FClose.A.8 + jsr K.FreeMem + bra K.FClose.8 -K.FClose.A.CDEV ldy #S.NODE.DEV.ID +K.FClose.CDEV ldy #S.NODE.DEV.ID lda (ZPPtr1),y - jsr K.DevClose.A - bcs K.FClose.A.9 + jsr K.DevClose + bcs K.FClose.9 -K.FClose.A.8 lda #$ff Self Modified - jmp K.FreeMem.A -K.FClose.A.9 rts +K.FClose.8 lda #$ff Self Modified + jmp K.FreeMem +K.FClose.9 rts */-------------------------------------- * # FRead * int fread ( void * ptr, int count, FILE * stream ); @@ -991,11 +991,11 @@ K.FReadWrite.1 >PULLA >LDYA K.MLI.PARAMS+6 .9 rts */-------------------------------------- -* # FFlush.A +* # FFlush * **In:** * A = hFILE *\-------------------------------------- -K.FFlush.A jsr PFT.CheckNodeA +K.FFlush jsr PFT.CheckNodeA jsr STDIO.GetRefNum >MLICALL MLIFLUSH rts @@ -1069,7 +1069,7 @@ K.FSeek jsr PFT.CheckNodeSTK sec rts */-------------------------------------- -* # FEOF.A +* # FEOF * Test the end-of-file indicator for hFILE * **In:** * A = hFILE @@ -1079,7 +1079,7 @@ K.FSeek jsr PFT.CheckNodeSTK * A !=0 NOT EOF * CS : *\-------------------------------------- -K.FEOF.A jsr PFT.CheckNodeA +K.FEOF jsr PFT.CheckNodeA jsr STDIO.GetRefNum >MLICALL MLIGETMARK @@ -1088,7 +1088,7 @@ K.FEOF.A jsr PFT.CheckNodeA ldy #2 .1 lda K.MLI.PARAMS+2,y - sta K.FEOF.A.MARK,y + sta K.FEOF.MARK,y dey bpl .1 @@ -1098,7 +1098,7 @@ K.FEOF.A jsr PFT.CheckNodeA ldy #2 .2 lda K.MLI.PARAMS+2,y - eor K.FEOF.A.MARK,y + eor K.FEOF.MARK,y bne .8 dey bpl .2 @@ -1106,7 +1106,7 @@ K.FEOF.A jsr PFT.CheckNodeA .8 clc .9 rts -K.FEOF.A.MARK .BS 3 +K.FEOF.MARK .BS 3 */-------------------------------------- * # FTell * Return the current value of the file-position indicator @@ -1137,9 +1137,9 @@ K.FTell jsr PFT.CheckNodeSTK .9 rts */-------------------------------------- -* # Remove.YA +* # Remove *\-------------------------------------- -K.Remove.YA jsr PFT.CheckPathYA +K.Remove jsr PFT.CheckPathYA jsr STDIO.SetMLIPathYA >MLICALL MLIDESTROY rts