Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-14 18:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
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 A2osX.EnumKM >LDYAI MSG.KMENUM
jsr PrintFYA jsr PrintFYA
jsr EnumKM jsr EnumKM
bcs *
*-------------------------------------- *--------------------------------------
A2osX.SetupQC lda RRAMWRAMBNK2 A2osX.SetupQC lda RRAMWRAMBNK2
lda RRAMWRAMBNK2 lda RRAMWRAMBNK2

69
BIN/ATBROWSE.S.txt
View File

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

47
BIN/ATLOGON.S.txt
View File

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

62
BIN/FORMAT.S.txt
View File

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

2
SBIN/NETWORKD.S.txt
View File

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

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

@ -167,8 +167,22 @@ TIMEX.MON >PSTR "???"
>PSTR "November" >PSTR "November"
>PSTR "December" >PSTR "December"
*-------------------------------------- *--------------------------------------
TIMEX.PTime2Time.BAD
sec
rts
TIMEX.PTime2Time 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 jsr SHARED.TXTPTR.GetY Get Year
lsr C is high bit of month lsr C is high bit of month
ldy #S.Time.YEAR ldy #S.Time.YEAR