Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-23 12:18:11 +02:00
parent ce13c00070
commit dcbcb8d00e
12 changed files with 48 additions and 48 deletions

Binary file not shown.

Binary file not shown.

View File

@ -43,7 +43,7 @@ CS.START cld
L.DEVNAME.GFX .DA DEVNAME.GFX
L.FONTFILE .DA FONTFILE
L.FONTFILEB .DA FONTFILEB
L.PIXFILE .DA PIXFILE
L.MARILYNFILE .DA MARILYNFILE
L.LOGOFILE .DA LOGOFILE
L.PALETTEFILE .DA PALETTEFILE
L.CB.RECT .DA CB.RECT
@ -302,7 +302,7 @@ LoadResources >PUSHW L.FONTFILE
bcs .99
stx hFontb
>PUSHW L.PIXFILE
>PUSHW L.MARILYNFILE
>PUSHBI O.RDONLY
>PUSHBI $CB Type
>PUSHWZ Aux type
@ -347,10 +347,10 @@ CS.END
DEVNAME.GFX .AZ "/dev/gfx"
FONTFILE .AZ "${ROOT}sbin/sysx7"
FONTFILEB .AZ "${ROOT}sbin/sysx7b"
PIXFILE .AZ "${ROOT}root/guitest/marilyn"
MARILYNFILE .AZ "${ROOT}root/bmp/MARILYN"
*LOGOFILE .AZ "${ROOT}A2osX.logo"
LOGOFILE .AZ "${ROOT}root/BMP/A2OSX.LOGO"
PALETTEFILE .AZ "${ROOT}root/BMP/PALETTE"
LOGOFILE .AZ "${ROOT}root/bmp/A2OSX.LOGO"
PALETTEFILE .AZ "${ROOT}root/bmp/PALETTE"
MESSAGEB .AZ " DHGR Driver & OSD 'Off-Screen Driver' Test (SYSX7B Font, Inverse) "
MESSAGE .AZ " 1234567890 abcdefghijklmnopqrstuvwxyz { + - * / } (SYSX7 Font, Normal) "

View File

@ -206,17 +206,18 @@ BuildProDOSCat >PULLW ZPPtr1 DstBuf
eor #$20
pha
lda LC.BitMap,y
cpy #8
bcs .31
tsb VolDirHdr.VER
lda LC.BitMap,y
tsb VolDirHdr.MVER
bra .32
.31 tsb VolDirHdr.MVER
.31 lda LC.BitMap-8,y
tsb VolDirHdr.VER
.32 lda #$80
tsb VolDirHdr.VER
tsb VolDirHdr.MVER
pla
@ -502,7 +503,7 @@ FC2Nib .HS 96
.HS 010303FE
.HS 030303FF
*--------------------------------------
LC.BitMap .HS 80402010080402018040201008040201
LC.BitMap .HS 8040201008040201
*--------------------------------------
ProDOS.Boot .HS 01.38.b0.03.4c.32.a1.86.43.c9.03.08.8a.29.70.4a
.HS 4a.4a.4a.09.c0.85.49.a0.ff.84.48.28.c8.b1.48.d0

View File

@ -276,7 +276,7 @@ cmpname inx (first) next letter index
phy
cpy #8 CS if MIN_VERSION to use
ldy #$1C VERSION
ldy #$1D MIN_VERSION
lda (zpt),y
bpl .4 no lowercase information
@ -288,7 +288,7 @@ cmpname inx (first) next letter index
bra .2
.1 iny MIN_VERSION
.1 dey VERSION
lda (zpt),y
ply
@ -562,7 +562,7 @@ L3A90 sec indicate not found
rts
L3A92 .DO LOWERCASE=1
lda gbuf+$20 VERSION
lda gbuf+$21 MIN_VERSION
bpl .8
cpx #8
@ -572,7 +572,7 @@ L3A92 .DO LOWERCASE=1
beq .8
bra .2
.1 lda gbuf+$21 MIN_VERSION
.1 lda gbuf+$20 VERSION
and whichbit-8,x
beq .8

View File

@ -814,14 +814,14 @@ XDOS.UpdateHdr .DO LOWERCASE=1
bcs .2
lda whichbit,x
tsb gbuf+$20
tsb gbuf+$21
bra .3
.2 lda whichbit-8,x
tsb gbuf+$21
tsb gbuf+$20
.3 lda #$80
tsb gbuf+$20
tsb gbuf+$21
pla
eor #$20

View File

@ -624,14 +624,14 @@ XDOS.LC2UCBM stz d_sosver
bcs .2
lda whichbit,y
tsb d_sosver
tsb d_comp
bra .3
.2 lda whichbit-8,y
tsb d_comp
tsb d_sosver
.3 lda #$80
tsb d_sosver
tsb d_comp
.4 dey
bne .1
@ -669,19 +669,19 @@ XDOS.IsValidFirstChar.SEC
*--------------------------------------
.DO LOWERCASE=1
XDOS.GetVolNameCharGBufY
bit gbuf+$20 VERSION
bit gbuf+$21
bpl .8
cpy #8
bcs .2
lda whichbit,y
bit gbuf+$20
bit gbuf+$21
beq .8
bra .7
.2 lda whichbit-8,y
bit gbuf+$21
bit gbuf+$20
beq .8
.7 lda gbuf+4,y

View File

@ -423,12 +423,12 @@ K.ReadDir.ADD..
jmp K.ReadDir.AddToBuf Add Ending 0
*--------------------------------------
K.ReadDir.AddFNToBuf
ldy #$1C version/min_version for lowercase bitmap
ldy #$1D version/min_version for lowercase bitmap
lda (ZPPtr3),y check bxxxxxxx.xxxxxxxx...
bpl .7 not set, no lowercase bitmap present
pha
iny
dey
lda (ZPPtr3),y
pha

View File

@ -1187,7 +1187,6 @@ MSG.IRQ.POLL .AZ " Polling Mode."
MSG.EVT .AZ "Event Manager..."
MSG.TSK .AZ "Task Manager..."
MSG.PWD .AZ "Password Manager..."
MSG.CTRLR .AZ "Ctrl-R Pressed, entering ROOT mode..."
MSG.EXEC .AZ "Executing %s..."
MSG.StartupErr .AZ "Failed : [$%h]\r\n"
MSG.Init3.OK .AZ "OK\r\nA2osX[Stage3]:Complete.\r\n"

View File

@ -4,12 +4,12 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF SYS/KM/KM.APPLETALK
.TF sys/km/km.appletalk
*--------------------------------------
.INB INC/MACROS.I
.INB INC/IO.I
.INB INC/MONITOR.I
.INB INC/MLI.I
.INB inc/macros.i
.INB inc/io.i
.INB inc/monitor.i
.INB inc/mli.i
*--------------------------------------
TmpPtr1 .EQ $0
*--------------------------------------
@ -122,7 +122,7 @@ AT.INIT >LDYAI MSG.INIT
GO.WSCARD jmp $ffff SELF MODIFIED
GO.OLDMLI jmp $ffff SELF MODIFIED
*--------------------------------------
.INB USR/SRC/SHARED/X.PRINTF.S
.INB usr/src/shared/x.printf.s
*--------------------------------------
MSG.INIT .AZ "AppleTalk Driver For A2osX\n"
MSG.FAILED .AZ "AppleTalk Workstation Card Failed Power Up Diagnostics : EC=%h.\n"
@ -158,5 +158,5 @@ MLIGETPREFIX.PARAMS
.DA BUF.PREFIX
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KM.APPLETALK.S
SAVE usr/src/sys/km.appletalk.s
ASM

View File

@ -4,12 +4,12 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF SYS/KM/KM.NSC
.TF sys/km/km.nsc
*--------------------------------------
.INB INC/MACROS.I
.INB INC/IO.I
.INB INC/MONITOR.I
.INB INC/MLI.I
.INB inc/macros.i
.INB inc/io.i
.INB inc/monitor.i
.INB inc/mli.i
*--------------------------------------
TmpPtr1 .EQ $0
TmpPtr2 .EQ $2
@ -259,5 +259,5 @@ NSCDRV.SIZE .EQ *-NSCDRV.B.START
.FIN
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KM.NSC.S
SAVE usr/src/sys/km.nsc.s
ASM

View File

@ -4,14 +4,14 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF SYS/KM/KM.VSDRIVE
.TF sys/km/km.vsdrive
*--------------------------------------
.INB INC/MACROS.I
.INB INC/IO.I
.INB INC/MONITOR.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB INC/COM.6551.I
.INB inc/macros.i
.INB inc/io.i
.INB inc/monitor.i
.INB inc/mli.i
.INB inc/mli.e.i
.INB inc/com.6551.i
*--------------------------------------
TmpPtr1 .EQ $0
ADT.CMD.VSD .EQ $C5 "E": Virtual Drive Command Envelope
@ -265,7 +265,7 @@ VSDRIVE.Install ldx #PATCH.SIZE
clc
rts
*--------------------------------------
.INB USR/SRC/SHARED/X.PRINTF.S
.INB usr/src/shared/x.printf.s
*--------------------------------------
DEVSIG.Offset .HS 05070B0C
DEVSIG.Value .HS 38180131
@ -478,5 +478,5 @@ DRV.SIZE .EQ *-DRV
.FIN
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KM.VSDRIVE.S
SAVE usr/src/sys/km.vsdrive.s
ASM