Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-05-01 15:35:41 +02:00
parent 110f37bd5f
commit 854d31e922
6 changed files with 67 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

28
A2osX.S.QC.txt
View File

@ -44,7 +44,13 @@ A2osX.QC.Start1 sei
sec
>LDYAI MSG.INIT1
jsr A2osX.QC.PrintYA
sec
>LDYAI A2osX.QC.BOOT
jsr A2osX.QC.PrintYA
sec
>LDYAI A2osX.QC.ROOT
jsr A2osX.QC.PrintYA
.3 jsr MLI
.DA #MLISETPREFIX
.DA MLISETPREFIX00
@ -63,17 +69,9 @@ A2osX.QC.Start1 sei
sec
jsr A2osX.QC.PrintYA
jsr A2osX.QC.KLoad
bcs *
* >LDYAI GO.Reset
* >STYA POWERUP
* bit RROMBNK1
* jsr SETPWRC
ldx A2osX.QC.BOOT
stx $280 For appending SYS/KERNEL
>DEBUG
stz $2C0,x
.5 lda A2osX.QC.BOOT,x
@ -89,18 +87,26 @@ A2osX.QC.Start1 sei
sta $2E0-1,x ROOT sz for KERNEL
dex
bpl .6
jsr A2osX.QC.KLoad
bcs *
.8 >LDYAI MSG.INIT1OK
sec
jsr A2osX.QC.PrintYA
* >LDYAI GO.Reset
* >STYA POWERUP
* bit RROMBNK1
* jsr SETPWRC
>DEBUGOA
jmp $2000
*--------------------------------------
A2osX.QC.KLoad >LDYAI MSG.KLOAD
clc
jsr A2osX.QC.PrintYA
>DEBUG
ldx $280
ldy #0

71
A2osX.S.txt
View File

@ -66,19 +66,37 @@ A2osX.Init1 ldx #$FF init 6502 stack to highest
lda MACHID
and #MACHID.M
cmp #MACHID.M.128
beq .1
beq A2osX.Init1.128
>LDYAI MSG.SYSMEM.KO
jsr PrintFYA
bra *
*--------------------------------------
.1 jsr A2osX.GetPrefix
A2osX.Init1.128 jsr MLI
.DA #MLIGETPREFIX
.DA MLIGETPREFIX01
bcs *
jsr A2osX.Screen80 Reset 80 col screen ($0C:HOME)
ldx Boot.Prefix
.1 lda Boot.Prefix,x
sta A2osX.QC.B.BOOT,x
sta A2osX.QC.B.ROOT,x
dex
bpl .1
jsr A2osX.Screen80
>LDYAI MSG.INIT0
jsr PrintFYA
lda #Boot.Prefix
pha
lda /Boot.Prefix
pha
>LDYAI MSG.BOOTPREFIX
jsr PrintFYA
>LDYAI MSG.SYSMEM
jsr PrintFYA
@ -101,8 +119,8 @@ A2osX.Init1 ldx #$FF init 6502 stack to highest
.2 >LDYAI MSG.CPU.OK
jsr PrintFYA
*--------------------------------------
A2osX.CloseAll stz LEVEL Back To FILE LEVEL 0
stz LEVEL Back To FILE LEVEL 0
jsr MLI Make sure all files are closed
.DA #MLICLOSE
@ -128,6 +146,11 @@ A2osX.RamDrv >LDYAI MSG.RAMDRV
.2 >LDYAI MSG.RAMDRV.OK
jsr PrintFYA
*--------------------------------------
A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA
jsr EnumKM
bcs *
*--------------------------------------
A2osX.SetupQC lda RRAMWRAMBNK2
lda RRAMWRAMBNK2
@ -144,47 +167,15 @@ A2osX.SetupQC lda RRAMWRAMBNK2
lda RROMBNK1
*--------------------------------------
A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA
jsr EnumKM
bcs *
*--------------------------------------
A2osX.MLIQuit >LDYAI MSG.INIT0OK
jsr PrintFYA
>DEBUGOA
jsr MLI
.DA #MLIQUIT
.DA MLIQUIT01
bra *
*--------------------------------------
A2osX.GetPrefix >LDYAI MSG.BOOTPREFIX
clc
jsr PrintFYA
jsr MLI
.DA #MLIGETPREFIX
.DA MLIGETPREFIX01
bcs *
>LDYAI Boot.Prefix
sec
jsr PrintFYA
ldx Boot.Prefix
stx A2osX.QC.B.BOOT
stx A2osX.QC.B.ROOT
.1 lda Boot.Prefix,x
sta A2osX.QC.B.BOOT,x
sta A2osX.QC.B.ROOT,x
dex
bne .1
rts
*--------------------------------------
A2osX.Screen80 lda #$8C
A2osX.Screen80 lda #$8C Reset 80 col screen ($0C:HOME)
jsr $C300
ldx Boot.Prefix
@ -543,7 +534,7 @@ MSG.RAMDRV.OK .AZ "Successfully Disabled.\n"
MSG.RAMDRV.KO0 .AZ "Not Detected.\n"
MSG.RAMDRV.KO1 .AZ "Uninstall Failed !!!\n"
MSG.BOOTPREFIX .AZ "Boot Prefix:"
MSG.BOOTPREFIX .AZ "Boot Prefix:%S\n"
MSG.KMENUM .AZ "Looking For Kernel Modules...\n"
MSG.KMLOAD .AZ "***Loading KM : %S\n"

6
BIN/TELNET.S.txt
View File

@ -29,7 +29,7 @@ CS.START cld
.DA #0
.DA CS.END-CS.START Code Length To Relocate
.DA DS.END-DS.START Data Segment to Allocate
.DA #16 SS
.DA #64 SS
.DA #6 ZP
.DA 0
*--------------------------------------
@ -192,10 +192,10 @@ CS.RUN.LOOP >SLEEP
lda (pPs),y
>SYSCALL feof
bcs CS.RUN.IOERR
bcs .11 CS.RUN.IOERR
tay
beq CS.RUN.LOOP no char from STDIN
>PUSHWI BUFSIZE
>PUSHW ZPBufPtr
ldy #S.PS.hStdIn

10
LIB/LIBTCPIP.S.SKT.txt
View File

@ -392,8 +392,8 @@ SKT.Read jsr SKT.PullhFDDataInPtrLen
jsr SKT.EOF.I
bcs .9 I/O error
tay
beq .9 exit with CC,Y,A = 0
* tay
* beq .9 exit with CC,Y,A = 0
jmp SKT.GetDataFromSktIn
@ -640,6 +640,8 @@ SKT.EOF.I ldy #S.SOCKET.TCP.INUSED
bcs .9
lda #0 no DATA
sec
rts
.8 clc
.9 rts
@ -657,10 +659,10 @@ SKT.CheckStream ldy #S.SOCKET.T
ldy #S.SOCKET.TCP.S
lda (ZPPtrSKT),y
cmp #S.SOCKET.TCP.S.ESTBLSH
bcc .91
bcc .8
cmp #S.SOCKET.TCP.S.CLWAIT
bcs .91
rts CC=ESTBLSH...or less
.8 rts CC=ESTBLSH...or less
.91 lda #MLI.E.IO
sec

13
SBIN/GETTY.S.txt
View File

@ -127,17 +127,24 @@ CS.RUN.LOOP1 >SLEEP
lda (pPS),y
>SYSCALL feof
bcs CS.RUN.9
bcs CS.RUN.9 I/O error
tay
beq .1
beq .1 no char
lda #0
>SYSCALL GetChar
bcs CS.RUN.9
cmp #IAC
beq CS.RUN.IACMODE
>SYSCALL PutChar
* cmp #$6f
* bne .44
* >DEBUG
.44 >SYSCALL PutChar
bcs CS.RUN.EXIT
bra CS.RUN.LOOP1