Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-07-20 16:10:10 +02:00
parent a9b2c41a33
commit 9de817d12d
20 changed files with 57 additions and 56 deletions

Binary file not shown.

Binary file not shown.

View File

@ -201,7 +201,7 @@ CS.DOEVENT lda (pEvent)
rts
*--------------------------------------
CS.QUIT lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -237,7 +237,7 @@ CS.RUN.GetFilePath
>SYSCALL GetMemPtr
>PUSHYA
>PUSHW ZPFullPath
>LDYA ZPFullPath
>SYSCALL StrCpy

View File

@ -141,7 +141,7 @@ CS.EVENT sec
rts
*--------------------------------------
CS.QUIT lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -85,7 +85,7 @@ CS.INIT ldy #S.PS.ARGC
bne .5 Already have a dev name...go get VolName
>LDYA ZPPtr1
>SYSCALL GetDevByName.YA
>SYSCALL GetDevByName
bcs .99
txa
>STA.G hDev
@ -101,7 +101,7 @@ CS.INIT ldy #S.PS.ARGC
beq .99 VolName too long
.61 >PUSHW ZPPtr1
>PUSHEA.G VolName
>LEA.G VolName
>SYSCALL StrCpy
jmp .1 success, scan for any other args
@ -200,32 +200,25 @@ CS.RUN.InitCat >LDA.G CatSize
.8 clc
rts
*--------------------------------------
CS.RUN.BuildCat >LDA.G hDev
CS.RUN.BuildCat >PUSHEA.G DIB
>LDA.G hDev
>SYSCALL GetDevStatus
bcs .99
>STYA ZPPtr1
ldy #S.DIB.SIZE
lda (ZPPtr1),y
>STA.G SizeInBlocks
ldy #S.DIB.SIZE+1
lda (ZPPtr1),y
>STA.G SizeInBlocks+1
>LDA.G hDev
>SYSCALL GetDevByID
bcs .99
pha
tya
adc #S.DEV.NAME
adc #S.FD.DEV.NAME
sta ZPPtr2
pla
adc /S.DEV.NAME
adc /S.FD.DEV.NAME
sta ZPPtr2+1
>PUSHEA.G VolName
>PUSHW.G SizeInBlocks
>PUSHW.G DIB+S.DIB.SIZE
>PUSHW ZPPtr2
>LDYA L.MSG.INIT
@ -248,38 +241,38 @@ CS.RUN.BuildCat >LDA.G hDev
bcs .9
phx
>STYA.G BlkParams.Ptr
>STYA.G IOCTL+S.IOCTL.BUFPTR
pla
>STA.G hBuf
jsr .7
>PUSHEA.G VolName
>PUSHW.G BlkParams.Ptr
>PUSHW.G IOCTL+S.IOCTL.BUFPTR
>LIBCALL hLIBBLKDEV,LIBBLKDEV.BuildProDOSCat
.9 rts
.7 >PUSHW.G SizeInBlocks
.7 >PUSHW.G DIB+S.DIB.SIZE
>PUSHB.G CatSize
>PUSHB.G CatOptions
rts
*--------------------------------------
CS.RUN.WriteCat >PUSHB.G hDev
>PUSHBI DEVMGR.WRITEBLOCK
>PUSHEA.G BlkParams.Ptr
CS.RUN.WriteCat >PUSHEA.G IOCTL
>PUSHBI IOCTL.WRITEBLOCK
>LDA.G hDev
>SYSCALL IOCTL
bcs .9
lda #'.'
>SYSCALL PutChar
>LDA.G BlkParams.Ptr+1
clc
adc #2
>LDA.G IOCTL+S.IOCTL.BUFPTR+1
inc
inc
sta (pData),y
>INC.G BlkParams.Num
>INC.G IOCTL+S.IOCTL.BLKNUM
>SLEEP
@ -297,7 +290,7 @@ CS.QUIT >LDA.G hBuf
.1 lda hLIBBLKDEV
beq .8
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
.8 clc
rts
@ -343,13 +336,12 @@ ArgIndex .BS 1
bLL .BS 1
VolName .BS 16
hDev .BS 5
SizeInBlocks .BS 2
CatSize .BS 1
CatOptions .BS 1
BlkCnt .BS 1
BlkParams.Ptr .BS 2
BlkParams.Num .BS 2
IOCTL .BS S.IOCTL
hBuf .BS 1
DIB .BS S.DIB
DS.END .ED
*--------------------------------------
MAN

View File

@ -248,7 +248,7 @@ CS.DOEVENT sec
*--------------------------------------
CS.QUIT lda hLIBTCPIP
beq .8
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
.8 clc
rts

View File

@ -210,7 +210,7 @@ CS.QUIT >LDA.G hFullPath
.7 lda hLIBCRYPT
beq .8
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
.8 clc
rts

View File

@ -122,7 +122,7 @@ CS.DOEVENT sec
*--------------------------------------
CS.QUIT lda hLIBTCPIP
beq .8
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
.8 clc
rts

View File

@ -303,7 +303,7 @@ CS.QUIT ldy #hFrame
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.CLOSEA
lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -180,7 +180,7 @@ CS.QUIT ldy #hSocket
.1 lda hLIBTCPIP
beq .8
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
.8 clc
rts

View File

@ -325,7 +325,7 @@ S.IOCTL.BLKNUM .EQ 4 3 BYTES
S.IOCTL.BYTECNT .EQ 4 2 BYTES
S.IOCTL.ADDRPTR .EQ 6 3 BYTES
*
S.IOCTRL .EQ 9
S.IOCTL .EQ 9
*--------------------------------------
S.DIB.S .EQ 0
S.DIB.S.BLOCK .EQ %10000000

View File

@ -4,12 +4,12 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF /A2OSX.BUILD/LIB/LIBBLKDEV.O
.TF LIB/LIBBLKDEV.O
*--------------------------------------
.INB /A2OSX.BUILD/INC/MACROS.I
.INB /A2OSX.BUILD/INC/A2OSX.I
.INB /A2OSX.BUILD/INC/PRODOS.I
.INB /A2OSX.BUILD/INC/LIBBLKDEV.I
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/PRODOS.I
.INB INC/LIBBLKDEV.I
*--------------------------------------
* NIBBLE track len = $1A00 (6656) bytes:
*
@ -79,6 +79,9 @@ LIB.UNLOAD clc
*/--------------------------------------
* # GetProDOSCatSize
* Compute space needed for ProDOS Catalog
* ## C
* int getprodoscatsize (short int options, short int catsize, int devsize );
* ## ASM
* **In:**
* PUSHW = DevSize (in 512b blocks)
* PUSHB = Catalog Size (in blocks)

View File

@ -8,17 +8,22 @@
+ **A2OSX.BOOT.po** : **(0.9.1)** 140k BOOT disk image with all binaries
+ **A2OSX.DEV.po** : **(0.9.1)** 140k disk image with ASM binaries, Debug Tools & INClude files
+ **A2OSX.BUILD.po** : **(0.9.2)** 800k BOOT disk image with S-C MASM 3.0 and all binaries (BOOT+DEV)
+ **A2OSX.SRC.po** : **(0.9.2)** 800k disk image with all sources
+ **A2OSX.BUILD.po** : **(0.92)** 800k BOOT disk image with S-C MASM 3.0 and all binaries (BOOT+DEV)
+ **A2OSX.SRC.po** : **(0.92)** 800k disk image with all sources
## Latest News 2018-06-17
## Latest News 2018-07-20
Kernel & some BINs/SBINs migrated to 0.92.
A2OSX.BOOT.po 0.92 coming soon ...
## News 2018-06-17
Ok, as i'm still the lone developer here, i decided to break the kernel, HAHAHAHAHAHA!!!!
I updated the Calling Convention (see projects), i now setup the header in each KERNEL.S.* file accordingly to generate doc, then i change the code...
So ....nothing works anymore on the A2OSX.BUILD media...
## Latest News 2018-06-13
## News 2018-06-13
Previous (relatively!) stable version 0.9.1 has been archived, see link above.
@ -54,7 +59,7 @@ I need :
+ someone able to build a test plan
+ ....ideas...help....support....beer, or something stronger!
## Latest News 2018-05-29
## News 2018-05-29
Time to work on STDIO :
@ -322,7 +327,9 @@ note : '$VAR' does NOT expand Variable
| | | -N : Number all output lines | |
| | | -S : Suppress repeated empty output lines | |
| EDIT | Working | still missing : find/replace | 0.92 |
| CHTYP | Working | -C : Continue On Error | 0.9.1 |
| FORMAT | In Progress | -L : Low-Level Format | 0.92 |
| | | -1..9 : Catalog Size (block count) | |
| CHTYP | Working | -C : Continue On Error | 0.92 |
| | | -R : Recurse subdirectories | |
| CHMOD | In Progress | -C : Continue On Error | 0.9 |
| | | -R : Recurse subdirectories | |
@ -330,8 +337,6 @@ note : '$VAR' does NOT expand Variable
| | | -R : Recurse subdirectories | |
| CHGRP | In Progress | -C : Continue On Error | 0.9 |
| | | -R : Recurse subdirectories | |
| FORMAT | In Progress | -L : Low-Level Format | 0.9.1 |
| | | -1..9 : Catalog Size (block count) | |
| MD5 | In Progress | -D : String Input | 0.9.1 |
| NSCUTIL | Working | Tool for setting time in NSC/DL1216E | 0.9 |

View File

@ -244,7 +244,7 @@ CS.QUIT ldy #hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.CloseA
.1 lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -239,7 +239,7 @@ CS.QUIT ldx #CONN.MAX
>SYSCALL FreeMem
.3 lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -156,7 +156,7 @@ CS.QUIT >LDA.G hDev
>SYSCALL IOCTL
.1 lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -250,7 +250,7 @@ CS.QUIT ldx #CONN.MAX
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.CLOSEA
.3 lda hLIBTCPIP
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------

View File

@ -53,6 +53,7 @@ A2osX.E0 .PH $E000
.INB /A2OSX.SRC/SYS/KERNEL.S.IRQ
.INB /A2OSX.SRC/SYS/KERNEL.S.MEM
.INB /A2OSX.SRC/SYS/KERNEL.S.IO
********* TMP ***** go to A2osX.D1
.INB /A2OSX.SRC/SYS/KERNEL.S.FIO
DevMgr.FreeMem .EQ *
.EP

View File

@ -398,7 +398,7 @@ CS.QUIT >LDA.G PAK.hFileName
>SYSCALL FreeMem
.8 lda hLIBPAK
>SYSCALL UnloadLib.A
>SYSCALL UnloadLib
clc
rts
*--------------------------------------