Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-11-30 17:00:36 +01:00
parent 6efb851d03
commit 1d907e3d9a
12 changed files with 68 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

28
A2osX.S.QC.txt
View File

@ -38,29 +38,29 @@ A2osX.QC.Start1 sei
lda #$CF protect zero page, stack and page 1
sta MEMTABL
lda #$8C Reset 80 col screen ($0C=FF=HOME)
jsr $C300
>LDYAI MSG.INIT1
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
.3 jsr MLI
.DA #MLISETPREFIX
.DA MLISETPREFIX00
bcc .4
>LDYAI MSG.SETPREFIXKO
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
>LDYAI A2osX.QC.Prefix
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
>DEBUG
bra .3
.4 >LDYAI MSG.SETPREFIXOK
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
jsr A2osX.QC.KLoad
bcs *
@ -71,13 +71,13 @@ A2osX.QC.Start1 sei
* jsr SETPWRC
.8 >LDYAI MSG.INIT1OK
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
>DEBUGOA
jmp $2000
*--------------------------------------
A2osX.QC.KLoad >LDYAI MSG.KLOAD
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
ldx A2osX.QC.Prefix
@ -93,7 +93,7 @@ A2osX.QC.KLoad >LDYAI MSG.KLOAD
stx A2osX.QC.Prefix
>LDYAI A2osX.QC.Prefix
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
jsr MLI
.DA #MLIOPEN
@ -121,18 +121,18 @@ A2osX.QC.KLoad >LDYAI MSG.KLOAD
.9 pha
>LDYAI MSG.KLOAD.KO
jsr A2osX.QC.PrintAX
jsr A2osX.QC.PrintYA
pla
jsr PRBYTE
.8 rts
*--------------------------------------
A2osX.QC.PrintAX
sta TmpPtr1
stx TmpPtr1+1
A2osX.QC.PrintYA
>STYA TmpPtr1
lda (TmpPtr1)
tax
beq .9
ldy #1
.1 lda (TmpPtr1),y

26
A2osX.S.txt
View File

@ -112,7 +112,9 @@ A2osX.Prefix >LDYAI MSG.BOOTPREFIX
bcs *
ldx Boot.Prefix
stx A2osX.QC.B.Start+4
ldy #1
.1 lda Boot.Prefix,y
sta A2osX.QC.B.Start+4,y
ora #$80
@ -160,10 +162,11 @@ A2osX.SetupQC lda RRAMWRAMBNK2
A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA
jsr EnumKM
bcs *
*--------------------------------------
A2osX.MLIQuit >LDYAI MSG.INIT0OK
jsr PrintFYA
>DEBUGOA
jsr MLI
.DA #MLIQUIT
@ -229,6 +232,7 @@ EnumKM.EL .EQ $27
*--------------------------------------
EnumKM ldx #0
ldy Boot.Prefix
.1 inx
lda SYS,x
sta Boot.Prefix+1,y
@ -242,7 +246,7 @@ EnumKM ldx #0
.DA #MLIOPEN
.DA MLIOPEN01
bcs .99
lda MLIOPEN01+5
sta MLIREAD01+1
sta MLICLOSE01+1
@ -259,20 +263,27 @@ EnumKM ldx #0
.3 >LDYA EnumKM.BPTR
>STYA TmpPtr1
lda (TmpPtr1)
and #$F0 Empty ?
beq .5 yes, skip
and #$C0 anything out of type 1,2 or 3 ?
bne .5 yes, skip
lda (TmpPtr1)
and #$0F
cmp KM.PREFIX at least enough chars for KM.*?
bcc .5 no, skip
ldy #$10 file type
lda (TmpPtr1),y
cmp #$06 'BIN'?
bne .5 skip
ldy KM.PREFIX
.4 lda (TmpPtr1),y
cmp KM.PREFIX,y
bne .5
@ -292,18 +303,19 @@ EnumKM ldx #0
bne .3
bra .2
.8 jsr MLI
.DA #MLICLOSE
.DA MLICLOSE01
rts
.98 cmp #MLI.E.EOF
beq .8
pha
jsr .8
pla
.99 sec
rts
.8 jsr MLI
.DA #MLICLOSE
.DA MLICLOSE01
rts
*--------------------------------------
EnumKM.EC .BS 1
EnumKM.BPTR .BS 2

6
BIN/SHELL.S.CMD.txt
View File

@ -26,12 +26,16 @@ CMD.Init >LDYAI 256
*--------------------------------------
CMD.Quit ldy #CMD.hArgVBuf
jsr .8
ldy #CMD.hCLBuf
jsr .8
ldy #hFileBuf
.8 lda (pData),y
.8 lda (pData),y
beq .9
>SYSCALL FreeMem
clc
.9 rts
*--------------------------------------
* Input : CMD.IntCmd,ZPArgVBuf

8
BIN/SHELL.S.txt
View File

@ -174,15 +174,9 @@ L.ERR.Messages .DA ERR.Messages
CS.INIT clc
CS.INIT.RTS rts
*--------------------------------------
CS.RUN lda #'1'
>SYSCALL putchar
jsr CMD.Init
CS.RUN jsr CMD.Init
bcs CS.INIT.RTS
lda #'2'
>SYSCALL putchar
ldy #S.PS.ARGC
lda (pPS),y
beq .1 no arg, continue starting interactive

8
SYS/KERNEL.S.PS.txt
View File

@ -15,12 +15,10 @@ PS.ArgV .BS 2
* ## RETURN VALUE
* A = Child PSID
*\--------------------------------------
K.ExecL >DEBUG
sty .1+1
K.ExecL sty .1+1
sta .2+1
>PULLB PS.Flags
lda #'1'
>SYSCALL putchar
>LDYAI 256
jsr K.GetMem
bcs .99
@ -34,8 +32,6 @@ K.ExecL >DEBUG
jsr K.Args2ArgV
bcs .9
lda #'2'
>SYSCALL putchar
jsr PS.Exec

29
SYS/KERNEL.S.STDIO.txt
View File

@ -11,6 +11,7 @@ HEXBUF .EQ FAC
K.PrintF.PadL .EQ FAC+4
K.PrintF.PadC .EQ FAC+5
BCDBUF .EQ ARG
HEXBUF.Signed .EQ ARG.SIGN
*/--------------------------------------
* # PutChar
* Print A (char) to StdOut
@ -332,20 +333,25 @@ PrintF.B.1 ldx #8
PrintF.I sec signed short
.HS 90 BCC
PrintF.D clc unsigned short (BYTE)
ldx #0 one byte
ror HEXBUF.Signed
jsr PrintF.GetByte
bcs PrintF.BB.RTS
sta HEXBUF
stz HEXBUF+1
ldx #0 one byte
bra PrintF.DD.1
PrintF.II sec signed int
.HS 90 BCC
PrintF.DD clc unsigned int (WORD)
ldx #1 two bytes
ror HEXBUF.Signed
jsr PrintF.GetByte
bcs PrintF.BB.RTS
sta HEXBUF
@ -354,6 +360,8 @@ PrintF.DD clc unsigned int (WORD)
bcs PrintF.BB.RTS
sta HEXBUF+1
ldx #1 two bytes
PrintF.DD.1 stz HEXBUF+2
stz HEXBUF+3
bra PrintF.U.1
@ -362,6 +370,8 @@ PrintF.L sec signed long
.HS 90 BCC
PrintF.U clc unsigned long (DWORD)
ror HEXBUF.Signed
ldx #$ff
.1 jsr PrintF.GetByte
@ -374,12 +384,14 @@ PrintF.U clc unsigned long (DWORD)
* ldx #3 4 bytes
PrintF.U.1 bcc PrintF.Hex2Dec unsigned, nothing to check
PrintF.U.1 clc
bit HEXBUF.Signed
bpl PrintF.Hex2Dec unsigned, nothing to check
lda HEXBUF,x get sign
bpl PrintF.Hex2Dec
* sec
sec
ldy #0
@ -395,7 +407,7 @@ PrintF.U.1 bcc PrintF.Hex2Dec unsigned, nothing to check
*--------------------------------------
* Convert HEXBUF to ASCBUF decimal padded with 0
*--------------------------------------
PrintF.Hex2Dec ror .31+1
PrintF.Hex2Dec ror HEXBUF.Signed
ldx #4
@ -425,8 +437,9 @@ PrintF.Hex2Dec ror .31+1
cld
.31 bit #$ff SELF MODIFIED -sign to print before digits ?
bit HEXBUF.Signed
bpl .9
lda #'-'
jsr PrintF.COut

4
SYS/KM.APPLETALK.S.txt
View File

@ -4,7 +4,7 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF SYS/KM.APPLETALK
.TF SYS/ATK/KM.APPLETALK
*--------------------------------------
.INB INC/MACROS.I
.INB INC/IO.I
@ -162,5 +162,5 @@ MLIGETPREFIX.PARAMS
.DA BUF.PREFIX
*--------------------------------------
MAN
SAVE USR/SRC/SYS/ATK/KM.APPLETALK.S
SAVE USR/SRC/SYS/KM.APPLETALK.S
ASM

2
SYS/KM.NSC.S.txt
View File

@ -299,5 +299,5 @@ NSCDRV.SIZE .EQ *-NSCDRV.B.START
.FIN
*--------------------------------------
MAN
SAVE USR/SRC/BIN/SYS/KM.NSC.S
SAVE USR/SRC/SYS/KM.NSC.S
ASM

4
SYS/KM.RAMWORKS.S.txt
View File

@ -377,7 +377,7 @@ RW.BLOCK2.CT .BS 4 Creation time
RW.BLOCK2.TB .BS 2 Total Blocks
RW.BLOCK2.END .EQ *
*--------------------------------------
.INB USR/SRC/BIN/X.PRINTF.S
.INB USR/SRC/X.PRINTF.S
*--------------------------------------
RW.MSG .AZ "RAMWorks (I,II,III,z-Ram) Driver For A2osX\n"
RW.MSG.OK .AZ "/RAM3 Device Already Installed.\n"
@ -662,5 +662,5 @@ RWDRVX.SIZE .EQ RWDRVX.B.END-RWDRVX.B.START
.FIN
*--------------------------------------
MAN
SAVE USR/SRC/BIN/SYS/KM.RAMWORKS.S
SAVE USR/SRC/SYS/KM.RAMWORKS.S
ASM

2
X.PRINTF.S.txt
View File

@ -225,4 +225,4 @@ X.DigitCount .BS 1
X.DigitBuffer .BS 6
*--------------------------------------
MAN
SAVE USR/SRC/BIN/X.PRINTF.S
SAVE USR/SRC/X.PRINTF.S