Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-01-27 09:34:38 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-09-27 16:53:44 +02:00
parent 55ddec10bd
commit 1431388c45
7 changed files with 133 additions and 112 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.

18
INC/LIBPAK.I.txt
View File

@ -6,11 +6,13 @@ REPMAX .EQ 16
STRINGMAX .EQ 16
WSIZE .EQ 4096
*--------------------------------------
PAK.B.SHORT3 .EQ %0
PAK.B.SHORT4 .EQ %10
PAK.B.REPn .EQ %110
PAK.B.BACKLINK .EQ %1110
PAK.B.STOREn .EQ %1111
PAK.B.STOREn .EQ %0
PAK.B.BYTE8 .EQ %0
PAK.B.TOP8 .EQ %10
PAK.B.TOP16 .EQ %110
PAK.B.TOP24 .EQ %1110
PAK.B.REPn .EQ %1111
PAK.B.BACKLINK .EQ %1
*--------------------------------------
* STRINGn : 0 xxxx (1-16)
* {
@ -27,13 +29,15 @@ PAK.B.STOREn .EQ %1111
* !!! USED TO STOP UNPACK,NO EOF TOKEN!!!
*--------------------------------------
S.PAKSHNK.ULEN .EQ 0 Uncompressed length
S.PAKSHNK.TOPLEN .EQ 2
S.PAKSHNK.TOPCNT .EQ 2
S.PAKSHNK.TOPBYTES .EQ 3
* TOP Bytes ....
* DATA
S.PAKSHNK .EQ 2+1+24 Max
*--------------------------------------
S.PAKSTAT.PASS1 .EQ 0
S.PAKSTAT.PASS2 .EQ 2
S.PAKSTAT.STR .EQ 4
S.PAKSTAT.BYTE8 .EQ 4
S.PAKSTAT.TOP8 .EQ 6
S.PAKSTAT.TOP16 .EQ 8
S.PAKSTAT.TOP24 .EQ 10

4
LIB/LIBPAK.S.OUT.txt
View File

@ -83,9 +83,9 @@ Pak.Out.PutByte inc Pak.DstCnt
bne .2
inc ZPDstPtr+1
.7 inc Pak.Stat+S.PAKSTAT.PASS1,x
.7 inc Pak.Stat+S.PAKSTAT.PASS2,x
bne .8
inc Pak.Stat+S.PAKSTAT.PASS1+1,x
inc Pak.Stat+S.PAKSTAT.PASS2+1,x
.8 clc
rts

137
LIB/LIBPAK.S.txt
View File

@ -12,7 +12,7 @@ NEW
ZPSrcPtr .EQ ZPLIB
ZPSrcWPtr .EQ ZPLIB+2
ZPCnt .EQ ZPLIB+4
ZPHdrPtr .EQ ZPLIB+14
ZPDstPtr .EQ ZPLIB+16
ZPStatPtr .EQ ZPLIB+18
*--------------------------------------
@ -61,7 +61,7 @@ Pak >PULLW Pak.SrcPtr
inx
bne .1
* PASS #1 : REP & BL, no store, update byte counters
* PASS #1 : no store, update byte counters
stz Pak.bPass2
@ -70,9 +70,9 @@ Pak >PULLW Pak.SrcPtr
jsr Pak.Run
bcs .9
jsr Pak.BuildShortTable
jsr Pak.BuildTOPTable
* PASS #2 : REP & BL, store with S3,S4
* PASS #2 : store with TOP bytes
dec Pak.bPass2
@ -80,7 +80,7 @@ Pak >PULLW Pak.SrcPtr
jsr Pak.Out.Init Initialize properly for first "PutBit" Call
stz Pak.StoreCnt
stz Pak.StringLen
jsr Pak.Run
bcs .9
@ -88,7 +88,7 @@ Pak >PULLW Pak.SrcPtr
ldy #S.PAKSHNK-1
.2 lda Pak.Shnk,y
sta (ZPHdrPtr),y
dey
bpl .2
@ -118,10 +118,15 @@ Pak.InitPass >LDYA Pak.SrcPtr
eor #$ff
sta Pak.SrcCnt+1
lda #$ff RepChar invalid
sta Pak.RepCnt
stz Pak.RepCnt
stz Pak.LastByte
ldx #S.PAKSTAT.PASS2
ldx #S.PAKSTAT.PASS1
bit Pak.bPass2
bpl .1
inx
inx
.1 stz Pak.Stat,x Reset Stats
inx
@ -294,19 +299,28 @@ Pak.ScanBL stx Pak.WStrLen
.9 sec
rts
*--------------------------------------
Pak.BuildShortTable
Pak.BuildTOPTable
ldy #0
.6 stz Pak.Cnt Init best score to 0
.1 stz Pak.Cnt Init best score to 0
stz Pak.Cnt+1
sec
ror Pak.bStop
ldx #0
.7 lda Pak.Cnt
.2 lda Pak.Cnt
ora Pak.Cnt+1
beq .3
stz Pak.bStop
lda Pak.Cnt
cmp Pak.CntL,x is it better at X
lda Pak.Cnt+1
sbc Pak.CntH,x
bcs .8 not better or equal...
bcs .3 not better or equal...
stx Pak.In.Byte save new score index...
@ -315,18 +329,23 @@ Pak.BuildShortTable
lda Pak.CntH,x
sta Pak.Cnt+1
.8 inx
bne .7
.3 inx
bne .2
bit Pak.bStop
bmi .8
lda Pak.In.Byte
sta Pak.Shnk+S.PAKSHNK.SHORT3,y
sta Pak.Shnk+S.PAKSHNK.TOPBYTES,y
tax
stz Pak.CntL,x Discard this entry
stz Pak.CntH,x
iny
cpy #24
bne .6
bne .1
.8 sty Pak.TopCnt
rts
*--------------------------------------
Pak.PutA bit Pak.RepCnt
@ -347,7 +366,7 @@ Pak.PutA bit Pak.RepCnt
jsr Pak.PutA.1
bcs .9
ldx #S.PAKSTAT.REP
ldx #S.PAKSTAT.REPN
jsr Pak.UpdateStats
stz Pak.RepCnt
@ -367,7 +386,7 @@ Pak.PutA bit Pak.RepCnt
lda #1
sta Pak.RepCnt
ldx #S.PAKSTAT.REP
ldx #S.PAKSTAT.REPN
jsr Pak.UpdateStats
.8 clc
@ -389,53 +408,37 @@ Pak.PutA.1 bit Pak.bPass2
* Pak.PutA.1 PASS #2
.10 ldy #7
.10 ldy #S.PAKSHNK.TOPCNT
.1 cmp Pak.Shnk+S.PAKSHNK.SHORT3,y
.1 cmp Pak.Shnk+S.PAKSHNK.TOPBYTES-1,y
beq .3
dey
bpl .1
ldy #15
.2 cmp Pak.Shnk+S.PAKSHNK.SHORT4,y
beq .4
dey
bpl .2
bra .7
ldx #S.PAKSTAT.BYTE8
jsr Pak.UpdateStats
.3 tya
asl
asl
asl
asl
ora #PAK.B.SHORT3
ldy #4
ldx #S.PAKSTAT.S3
bra .8
.4 tya
asl
asl
ora #PAK.B.SHORT4
ldy #6
ldx #S.PAKSTAT.S4
bra .8
.7 ldx Pak.StoreCnt
sta Pak.StoreBuf,x
inx
cpx #STOREMAX
beq Pak.Flush
stx Pak.StoreCnt
clc
rts
jmp Pak.Out.PutCA
.8 jsr Pak.UpdateStats
.3 tya Range 0-23
lsr
lsr
lsr
tax
tya
and #7
ora TOP.Bits,x
ldy TOP.BitCnt,x
pha
lda TOP.Stat,x
tax
pla
jsr Pak.UpdateStats
jmp Pak.Out.PutYBits
*--------------------------------------
Pak.Flush ldx Pak.StoreCnt
Pak.Flush ldx Pak.StringLen
beq .8
lda #PAK.B.STOREn
@ -445,18 +448,18 @@ Pak.Flush ldx Pak.StoreCnt
ldx #0
.1 lda Pak.StoreBuf,x
.1 lda Pak.StringBuf,x
sta Pak.LastByte update last byte for REP
ldy #8
jsr Pak.Out.PutYBits
bcs .9
inc Pak.Stat+S.PAKSTAT.STORE
inc Pak.Stat+S.PAKSTAT.BYTE8
bne .2
inc Pak.Stat+S.PAKSTAT.STORE+1
inc Pak.Stat+S.PAKSTAT.BYTE8+1
.2 inx
dec Pak.StoreCnt
dec Pak.StringLen
bne .1
stz Pak.RepCnt Don't forget to set last byte valid
@ -473,6 +476,11 @@ Pak.UpdateStats inc Pak.Stat,x
.INB USR/SRC/LIB/LIBPAK.S.OUT
*--------------------------------------
CS.END
*--------------------------------------
TOP.Bits .DA #%10000,#%110000,#%1110000
TOP.BitCnt .DA #5,#6,#7
TOP.Stat .DA #S.PAKSTAT.TOP8,S.PAKSTAT.TOP16,S.PAKSTAT.TOP24
*--------------------------------------
Pak.SrcPtr .BS 2
Pak.SrcLen .BS 2
@ -482,11 +490,12 @@ Pak.DstCnt .BS 2
Pak.RepCnt .BS 1
Pak.LastByte .BS 1
Pak.StoreCnt .BS 1
Pak.StoreBuf .BS STOREMAX
Pak.StringLen .BS 1
Pak.StringBuf .BS STRINGMAX
Pak.TopCnt .BS 1
Pak.Cnt .BS 2
Pak.bStop .BS 1
Pak.bPass2 .BS 1
Pak.MaxReadAhead .BS 1

44
SBIN/KCONFIG.S.txt
View File

@ -10,8 +10,13 @@ AUTO 4,1
.INB INC/MLI.I
.INB INC/A2OSX.I
*--------------------------------------
ZPCfgPtr .EQ ZPBIN
ZPTmp1 .EQ ZPBIN+2
.DUMMY
.OR ZPBIN
ZS.START
ZPCfgPtr .BS 2
ZPTmp1 .BS 2
hFileBuf .BS 1
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -19,11 +24,12 @@ CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA 0
.DA CS.END-CS.START CS
.DA DS.END-DS.START DS
.DA #16 SS
.DA #4 ZP
.DA #S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data Segment Size
.DA #64 Stack Size
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
* Relocation Table
@ -47,6 +53,8 @@ L.MSG.DISABLED .DA MSG.DISABLED
L.MSG.ENABLED .DA MSG.ENABLED
L.MSG.SLOT .DA MSG.SLOT
L.MSG.QUIT .DA MSG.QUIT
L.MSG.QUIT.SAVED
.DA MSG.QUIT.SAVED
L.MSG.QUIT.ERR .DA MSG.QUIT.ERR
T.MSG.SLOT.DESC .DA MSG.SLOT.NODEV
.DA MSG.SLOT.Z80
@ -107,12 +115,17 @@ CS.RUN.Loop >SYSCALL GetChar
bne .1
jsr CS.RUN.Save
bcc .8
bcc .10
>PUSHA
>PUSHBI 1
>LDYA L.MSG.QUIT.ERR
bra .9
.10 >PUSHBI 1
>LDYA L.MSG.QUIT.SAVED
bra .9
.99 rts
.1 cmp #20 Ctrl-T
@ -149,7 +162,7 @@ CS.RUN.Loop >SYSCALL GetChar
and #3
inc
sta (ZPCfgPtr),y
bra CS.RUN.REPaint
jmp CS.RUN.REPaint
.5 cmp #'1'
bcc CS.RUN.Loop
@ -201,9 +214,9 @@ CS.RUN.Load >PUSHEA.G StatBuf
>LDYA L.FILENAME
>SYSCALL LoadFile
bcs .99
txa
>STA.G hFileBuf
stx hFileBuf
txa
>SYSCALL GetMemPtr
>STYA ZPCfgPtr
* clc
@ -214,8 +227,7 @@ CS.RUN.Load >PUSHEA.G StatBuf
>STYA ZPCfgPtr
txa
>STA.G hFileBuf
stx hFileBuf
ldy #15
@ -342,7 +354,7 @@ CS.RUN.DumpConfYA
CS.DOEVENT sec do not discard TIMER event
rts
*--------------------------------------
CS.QUIT >LDA.G hFileBuf
CS.QUIT lda hFileBuf
beq .8
>SYSCALL FreeMem
.8 clc
@ -391,12 +403,12 @@ MSG.SLOT.CLK .AZ "Clock Card"
MSG.SLOT.DIS .AZ "<Disabled>"
MSG.PROMPT .AZ "\e[24;80H"
MSG.QUIT .AZ "\ec"
MSG.QUIT.ERR .AZ "\ecError [$%h] While Writing KCONFIG File.\r\n\r\n"
MSG.QUIT.SAVED .AZ "\ecA2osX.KCONFIG file saved.\r\n\r\n"
MSG.QUIT.ERR .AZ "\ecError [$%h] while writing A2osX.KCONFIG file.\r\n\r\n"
*--------------------------------------
.DUMMY
.OR 0
DS.START
hFileBuf .BS 1
StatBuf .BS S.STAT
DS.END .ED
MAN

2
SYS/KERNEL.S.CORE.txt
View File

@ -204,7 +204,7 @@ CORE.GetEvents lda #Evt.Table
sta IRQ.Mode
ldx A2osX.ASCREEN
dex devID 1 is /DEV/CONSOLE
cpx #3 devID 3 is /DEV/CONSOLE
bne .22
sta SYS.BASL0+38

40
SYS/KERNEL.S.IRQ.txt
View File

@ -16,22 +16,16 @@ K.IrqHAuxLC.BRK jmp K.IrqHAuxLC.6
*--------------------------------------
K.IrqHAuxLC cld
sec
sta K.IrqHAuxLC.6+1
pla
pha
and #$10 BRK?
* bne K.IrqHAuxLC.BRK
bne *
stx K.IrqHAuxLC.5+1
sty K.IrqHAuxLC.4+1
* lda $fe Save 2 bytes in ZP
* pha
* lda $ff
* pha
lda RDPAGE2
pha
sta CLRPAGE2
@ -65,8 +59,9 @@ K.IrqHAuxLC.JSR jsr K.IrqH.DEV SELF MODIFIED
sta K.IrqHAuxLC.2+2
and #$F0
eor #$C0 ....mmm...not looking link Cn....
eor #$C0 ....mmm...not looking like Cn....
bne K.IrqHAuxLC.3
sta $CFFF Release $C800
K.IrqHAuxLC.2 lda $ff00 SELF MODIFIED
@ -86,22 +81,20 @@ K.IrqHAuxLC.3 pla Must keep Carry
sta SETPAGE2
.3
* pla
* sta $ff
* pla
* sta $fe
bvc K.IrqHAuxLC.4 if V, skip task switching
.3 bvc K.IrqHAuxLC.4 if V, skip task switching
bit IRQ.InLib
bmi K.IrqHAuxLC.4 we are in LIB, no switching
tsx
txa
eor #$FC Only LO,HI & P on stack
lda $103,x
and #$C0
eor #$C0
beq K.IrqHAuxLC.4 we are in kernel CORE.Run
* tsx
* txa
* eor #$FC Only LO,HI & P on stack
* beq K.IrqHAuxLC.4 we are in kernel CORE.Run
* >DEBUG
php
php make room for 2 additional bytes
@ -121,7 +114,7 @@ K.IrqHAuxLC.3 pla Must keep Carry
lda /A2osX.SLEEP with RTS=PC IRQ-1
sta $103,x
lda #$A0+'S
.5 lda #$80+'S'
eor SYS.BASL0+39
sta SYS.BASL0+39
@ -198,6 +191,9 @@ K.IrqH.Switch inc IRQ.Tick
eor #PS.DOEVENT Dont switch while DOEVENT
bne .9
lda IRQ.InLib
bmi .9 we are in LIB, no switching
.8 clc exit with V flag set
rts
*--------------------------------------