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

Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-08-04 09:10:48 +02:00
parent 1e62efa9d7
commit dbea64256b
9 changed files with 113 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.woz
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

3
A2osX.S.txt
View File

@ -139,10 +139,7 @@ A2osX.RamDrv >LDYAI MSG.RAMDRV
*--------------------------------------
A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA
jsr EnumKM
bcs *
*--------------------------------------
A2osX.SetupQC lda RRAMWRAMBNK2
lda RRAMWRAMBNK2

69
BIN/ATBROWSE.S.txt
View File

@ -3,16 +3,21 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/ATBROWSE
.TF bin/atbrowse
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/APPLETALK.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.i
.INB inc/mli.e.i
.INB inc/appletalk.i
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPTR2 .BS 2
hBuf .BS 1
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -43,9 +48,7 @@ L.MSG.DUMP .DA MSG.DUMP
CS.INIT clc
rts
*--------------------------------------
CS.RUN >STZ.G P.GetInfo Sync
lda #ATGetInfo
CS.RUN lda #ATGetInfo
>STA.G P.GetInfo+1
>LEA.G P.GetInfo
@ -55,15 +58,15 @@ CS.RUN >STZ.G P.GetInfo Sync
pha
>LDYA L.MSG.NOATK
>SYSCALL PrintF
>SYSCALL puts
pla
sec
rts
CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
>PUSHA
CS.RUN.ATKOK >PUSHW L.MSG.NETNODE
>PUSHW.G P.GetInfo+$8 NET
>LDYA L.MSG.NETNODE
>PUSHB.G P.GetInfo+$E NODE
>PUSHBI 3
>SYSCALL PrintF
>STZ.G P.LookupName Sync
@ -77,13 +80,13 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
>STA.G P.LookupName+$D RetCnt
>LDYAI 1024
>STYA.G P.LookupName+$10 BufLen
>LDYAI 1024
>SYSCALL GetMem
bcs .99
>STYA.G P.LookupName+$12 BufPtr
>STYA ZPPTR1
txa
>STA.G hBuf
stx hBuf
lda #16
>STA.G P.LookupName+$16 MaxMatch
@ -96,10 +99,19 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
beq .8
>LDYA L.MSG.DUMP0
>SYSCALL PrintF
>SYSCALL puts
bcs .9
.1 lda ZPPTR1
.1 >PUSHW L.MSG.DUMP
ldy #0
.2 >PUSHB (ZPPTR1),y
iny
cpy #5
bne .2
lda ZPPTR1
clc
adc #5
sta ZPPTR2
@ -108,13 +120,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
sta ZPPTR2+2
>PUSHW ZPPTR2
ldy #4
.2 >PUSHB (ZPPTR1),y
dey
bpl .2
>LDYA L.MSG.DUMP
>PUSHBI 7
>SYSCALL PrintF
bcs .9
@ -126,7 +132,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
adc #0
sta ZPPTR1+1
>DEC.G P.LookupName+$17
bne .2
bne .1
lda #0
@ -136,7 +142,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT >LDA.G hBuf
CS.QUIT lda hBuf
beq .8
>SYSCALL FreeMem
@ -144,10 +150,10 @@ CS.QUIT >LDA.G hBuf
rts
*--------------------------------------
CS.END
MSG.NOATK .AZ "AppleTalk Not Loaded.\r\n"
MSG.NOATK .AZ "AppleTalk Not Loaded."
MSG.NETNODE .AZ "Network/Node:$%H/$%h\r\n"
SEARCH.STRING >PSTR "*:*@*"
MSG.DUMP0 .AZ "Net Nod SkT En# Name\r\n"
MSG.DUMP0 .AZ "Net Nod SkT En# Name"
MSG.DUMP .AZ "%H $%h $%h $%h %S\r\n"
*--------------------------------------
.DUMMY
@ -155,10 +161,9 @@ MSG.DUMP .AZ "%H $%h $%h $%h %S\r\n"
DS.START
P.GetInfo .BS $0F
P.LookupName .BS $17
hBuf .BS 1
DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/ATBROWSE.S
SAVE usr/src/bin/atbrowse.s
ASM

47
BIN/ATLOGON.S.txt
View File

@ -3,16 +3,20 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/ATLOGON
.TF bin/atlogon
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/APPLETALK.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.i
.INB inc/mli.e.i
.INB inc/appletalk.i
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPTR2 .BS 2
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -38,18 +42,25 @@ L.MSG.NOATK .DA MSG.NOATK
CS.INIT clc
rts
*--------------------------------------
CS.RUN stz K.MLI.PARAMS Sync
lda #ATGetInfo
sta K.MLI.PARAMS+1
>MLICALL MLIATALK
CS.RUN lda #ATGetInfo
>STA.G P.GetInfo+1
>LEA.G P.GetInfo
jsr A2osX.ATKCALL
bcc .10
pha
>LDYA L.MSG.NOATK
>SYSCALL PrintF
>SYSCALL puts
pla
sec
.99 rts
.10 lda #0
.10
lda #0
.8 sec
.9 rts
*--------------------------------------
@ -60,16 +71,16 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]\r\n"
MSG.NOATK .AZ "AppleTalk Not Loaded.\r\n"
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
MSG.NOATK .AZ "AppleTalk Not Loaded."
*--------------------------------------
.DUMMY
.OR 0
DS.START
hBuf .BS 1
P.GetInfo .BS $0F
DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/BIN/ATLOGON.S
SAVE usr/src/bin/atlogon.s
ASM

62
BIN/FORMAT.S.txt
View File

@ -409,8 +409,15 @@ CS.RUN.LL.DISKII.V
>SYSCALL PrintF
lda hTrackBuf
>SYSCALL GetMemPtr
>STYA.G IOCTL+S.IOCTL.BUFPTR
bne .10
>LDYAI 512
>SYSCALL GetMem
bcs .99
stx hTrackBuf
bra .11
.10 >SYSCALL GetMemPtr
.11 >STYA.G IOCTL+S.IOCTL.BUFPTR
>LDYA BlkCnt
>STYA.G IOCTL+S.IOCTL.BLKNUM
@ -424,24 +431,18 @@ CS.RUN.LL.DISKII.V
lda TrkCnt
sta Counter
.1 ldx #8
.1 ldx #0
.2 jsr CS.RUN.CheckCtrlC
bcs .9
phx
jsr CS.RUN.LL.DISKII.VP
plx
bcs .9
jsr CS.RUN.LL.DISKII.VBLK
.99 bcs .9
phx
jsr CS.RUN.LL.DISKII.VR
plx
bcs .9
>INCW.G IOCTL+S.IOCTL.BLKNUM
dex
inx
cpx #8
bne .2
inc CurTrack
@ -451,24 +452,20 @@ CS.RUN.LL.DISKII.V
lda TrkCnt
sta Counter
.3 ldx #8
.3 ldx #7
dec CurTrack
.4 >DECW.G IOCTL+S.IOCTL.BLKNUM
phx
jsr CS.RUN.LL.DISKII.VP
plx
.4 jsr CS.RUN.CheckCtrlC
bcs .9
phx
jsr CS.RUN.LL.DISKII.VR
plx
>DECW.G IOCTL+S.IOCTL.BLKNUM
jsr CS.RUN.LL.DISKII.VBLK
bcs .9
dex
bne .4
bpl .4
dec Counter
bne .3
@ -479,15 +476,17 @@ CS.RUN.LL.DISKII.V
.9 rts
*--------------------------------------
CS.RUN.LL.DISKII.VP
CS.RUN.LL.DISKII.VBLK
phx
>PUSHW L.MSG.VERIFY
>PUSHB CurTrack
pla
pha
>PUSHA
>PUSHW.G IOCTL+S.IOCTL.BLKNUM
>PUSHBI 3
>PUSHBI 4
>SYSCALL PrintF
rts
*--------------------------------------
CS.RUN.LL.DISKII.VR
>PUSHB hDevID
>PUSHBI IOCTL.READBLOCK
>PUSHEA.G IOCTL
@ -502,7 +501,8 @@ CS.RUN.LL.DISKII.VR
>PUSHBI 1
>SYSCALL PrintF
.8 rts
.8 plx
rts
*--------------------------------------
CS.RUN.MotorOn sec
.HS 90 BCC
@ -710,7 +710,7 @@ MSG.NOSIZE .AZ "Unable to get media size."
MSG.INIT .AZ "Formatting %s, Volname:%s\r\n"
MSG.LL .AZ "Low Level Format %D Blks\r\n"
MSG.LLDISK2 .AZ "\rWriting Track %02d (%02d/%02d)..."
MSG.VERIFY .AZ "\rVerifying Track %02d, Block %05D..."
MSG.VERIFY .AZ "\rVerifying Track %02d, Sector %02d, Block %05D..."
MSG.WRITECAT .AZ "Writing Catalog..."
FMT.BLANK .AZ "BLANK%H%H"
*--------------------------------------

2
SBIN/NETWORKD.S.txt
View File

@ -6,7 +6,7 @@ NEW
.TF sbin/networkd
*--------------------------------------
LIB.MAX .EQ 4
DBG .EQ 1
DBG .EQ 0
*--------------------------------------
.INB inc/macros.i
.INB inc/a2osx.i

16
SYS/KERNEL.S.TIMEX.txt
View File

@ -167,8 +167,22 @@ TIMEX.MON >PSTR "???"
>PSTR "November"
>PSTR "December"
*--------------------------------------
TIMEX.PTime2Time.BAD
sec
rts
TIMEX.PTime2Time
ldy #1
ldy #3
jsr SHARED.TXTPTR.GetY
and #%11100000
bne TIMEX.PTime2Time.BAD
dey
jsr SHARED.TXTPTR.GetY
and #%11000000
bne TIMEX.PTime2Time.BAD
dey ldy #1
jsr SHARED.TXTPTR.GetY Get Year
lsr C is high bit of month
ldy #S.Time.YEAR