mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-13 13:29:04 +00:00
Kernel 0.93+
This commit is contained in:
parent
9db2372429
commit
244d1e59c7
Binary file not shown.
@ -500,8 +500,8 @@ ToUpperCase cmp #'a'
|
|||||||
CS.END
|
CS.END
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.GREETINGS .AZ "\r\nA2osX-SH %d.%d\r\n\r\n"
|
MSG.GREETINGS .AZ "\r\nA2osX-SH %d.%d\r\n\r\n"
|
||||||
MSG.PROMPT .AZ "\e[?7h$ " Enable Line Wrap
|
MSG.PROMPT .AZ "\e[7h$ " Enable Line Wrap
|
||||||
MSG.PROMPTCRLF .AZ "\e[?7l\r\n" Disable Line Wrap
|
MSG.PROMPTCRLF .AZ "\e[7l\r\n" Disable Line Wrap
|
||||||
MSG.TRACE .AS ">"
|
MSG.TRACE .AS ">"
|
||||||
MSG.BATCHLINE .AZ "%s\r\n"
|
MSG.BATCHLINE .AZ "%s\r\n"
|
||||||
MSG.BATCHERR .AZ "%s^\r\nLine #%D:"
|
MSG.BATCHERR .AZ "%s^\r\nLine #%D:"
|
||||||
|
@ -2,7 +2,8 @@ NEW
|
|||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
REP.MAX .EQ 1+1254
|
TOP.MAX .EQ 32
|
||||||
|
REP.MAX .EQ 1+254
|
||||||
BL.MIN .EQ 3
|
BL.MIN .EQ 3
|
||||||
BL.MAX .EQ 3+63
|
BL.MAX .EQ 3+63
|
||||||
|
|
||||||
@ -11,17 +12,20 @@ STR.MAX .EQ 3+15
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PAK.B.BYTE8.W .EQ 1
|
PAK.B.BYTE8.W .EQ 1
|
||||||
PAK.B.BYTE8 .EQ %0
|
PAK.B.BYTE8 .EQ %0
|
||||||
|
|
||||||
PAK.B.TOP8.W .EQ 5
|
PAK.B.TOP8.W .EQ 5
|
||||||
PAK.B.TOP8 .EQ %10.000
|
PAK.B.TOP8 .EQ %10.000
|
||||||
PAK.B.TOP16.W .EQ 6
|
PAK.B.TOP16.W .EQ 6
|
||||||
PAK.B.TOP16 .EQ %110.000
|
PAK.B.TOP16 .EQ %110.000
|
||||||
PAK.B.TOP24.W .EQ 7
|
PAK.B.TOP24.W .EQ 7
|
||||||
PAK.B.TOP24 .EQ %1110.000
|
PAK.B.TOP24 .EQ %1110.000
|
||||||
|
PAK.B.TOP32.W .EQ 8
|
||||||
|
PAK.B.TOP32 .EQ %11110.000
|
||||||
|
|
||||||
PAK.B.REP.W .EQ 5
|
PAK.B.REP.W .EQ 6
|
||||||
PAK.B.REP .EQ %11110
|
PAK.B.REP .EQ %111110
|
||||||
PAK.B.BL.W .EQ 5
|
PAK.B.BL.W .EQ 6
|
||||||
PAK.B.BL .EQ %11111
|
PAK.B.BL .EQ %111111
|
||||||
|
|
||||||
PAK.B.STR.W .EQ 6 DISABLED
|
PAK.B.STR.W .EQ 6 DISABLED
|
||||||
PAK.B.STR .EQ %01.0000
|
PAK.B.STR .EQ %01.0000
|
||||||
@ -36,19 +40,20 @@ S.PAKSHNK.TOPCNT .EQ 3
|
|||||||
S.PAKSHNK.TOPBYTES .EQ 4
|
S.PAKSHNK.TOPBYTES .EQ 4
|
||||||
* TOP Bytes ....
|
* TOP Bytes ....
|
||||||
* DATA
|
* DATA
|
||||||
S.PAKSHNK .EQ 2+1+1+24 Max
|
S.PAKSHNK .EQ 2+1+1+TOP.MAX
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
S.PAKSTAT.PASS1 .EQ 0
|
S.PAKSTAT.PASS1 .EQ 0
|
||||||
S.PAKSTAT.PASS2 .EQ 2
|
S.PAKSTAT.PASS2 .EQ 2
|
||||||
S.PAKSTAT.TOP8 .EQ 4
|
S.PAKSTAT.TOP8 .EQ 4
|
||||||
S.PAKSTAT.TOP16 .EQ 6
|
S.PAKSTAT.TOP16 .EQ 6
|
||||||
S.PAKSTAT.TOP24 .EQ 8
|
S.PAKSTAT.TOP24 .EQ 8
|
||||||
S.PAKSTAT.BYTE8 .EQ 10
|
S.PAKSTAT.TOP32 .EQ 10
|
||||||
S.PAKSTAT.STR .EQ 12
|
S.PAKSTAT.BYTE8 .EQ 12
|
||||||
S.PAKSTAT.REPN .EQ 14
|
S.PAKSTAT.STR .EQ 14
|
||||||
S.PAKSTAT.BL .EQ 16
|
S.PAKSTAT.REPN .EQ 16
|
||||||
|
S.PAKSTAT.BL .EQ 18
|
||||||
*
|
*
|
||||||
S.PAKSTAT .EQ 18
|
S.PAKSTAT .EQ 20
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LIBPAK.Pak .EQ 4
|
LIBPAK.Pak .EQ 4
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -37,7 +37,7 @@ CS.START cld
|
|||||||
.DA LIB.UNLOAD
|
.DA LIB.UNLOAD
|
||||||
.DA Pak
|
.DA Pak
|
||||||
L.MSG.Stats .DA MSG.Stats
|
L.MSG.Stats .DA MSG.Stats
|
||||||
L.MSG.Top24 .DA MSG.Top24
|
L.MSG.TopBytes .DA MSG.TopBytes
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LIB.LOAD
|
LIB.LOAD
|
||||||
@ -98,9 +98,7 @@ Pak >PULLW Pak.SrcPtr
|
|||||||
sta (ZPStatPtr),y
|
sta (ZPStatPtr),y
|
||||||
dey
|
dey
|
||||||
bpl .7
|
bpl .7
|
||||||
|
|
||||||
* >DEBUG
|
|
||||||
|
|
||||||
>LDYA Pak.Stat+S.PAKSTAT.PASS2
|
>LDYA Pak.Stat+S.PAKSTAT.PASS2
|
||||||
clc
|
clc
|
||||||
|
|
||||||
@ -407,7 +405,7 @@ Pak.BuildTOPTable
|
|||||||
stz Pak.CntL,x Discard this entry
|
stz Pak.CntL,x Discard this entry
|
||||||
stz Pak.CntH,x
|
stz Pak.CntH,x
|
||||||
iny
|
iny
|
||||||
cpy #24
|
cpy #TOP.MAX
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.8 sty Pak.Shnk+S.PAKSHNK.TOPCNT
|
.8 sty Pak.Shnk+S.PAKSHNK.TOPCNT
|
||||||
@ -756,18 +754,18 @@ Pak.PrintStats lda Pak.BL.OfsBitsL
|
|||||||
dex
|
dex
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
>PUSHBI 26
|
>PUSHBI 28
|
||||||
>LDYA L.MSG.Stats
|
>LDYA L.MSG.Stats
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
ldx #24
|
ldx #TOP.MAX
|
||||||
|
|
||||||
.2 >PUSHB Pak.Shnk+S.PAKSHNK.TOPCNT,x
|
.2 >PUSHB Pak.Shnk+S.PAKSHNK.TOPCNT,x
|
||||||
dex
|
dex
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
>PUSHBI 25
|
>PUSHBI TOP.MAX+1
|
||||||
>LDYA L.MSG.Top24
|
>LDYA L.MSG.TopBytes
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -809,14 +807,15 @@ MSG.Stats .AS "\r\nPass 1 : %5D\r\n"
|
|||||||
.AS "Top 8 : %5D\r\n"
|
.AS "Top 8 : %5D\r\n"
|
||||||
.AS "Top 16 : %5D\r\n"
|
.AS "Top 16 : %5D\r\n"
|
||||||
.AS "Top 24 : %5D\r\n"
|
.AS "Top 24 : %5D\r\n"
|
||||||
|
.AS "Top 32 : %5D\r\n"
|
||||||
.AS "Byte 8 : %5D\r\n"
|
.AS "Byte 8 : %5D\r\n"
|
||||||
.AS "String : %5D, Longest : %d\r\n"
|
.AS "String : %5D, Longest : %d\r\n"
|
||||||
.AS "Rep : %5D, Longest : %d (%d bits)\r\n"
|
.AS "Rep : %5D, Longest : %d (%d bits)\r\n"
|
||||||
.AZ "BL : %5D, Longest : %d (%d bits), Farest : %D (%d bits)\r\n"
|
.AZ "BL : %5D, Longest : %d (%d bits), Farest : %D (%d bits)\r\n"
|
||||||
MSG.Top24 .AZ "Top : %5d, %h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h\r\n"
|
MSG.TopBytes .AZ "Top : %5d, %h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h%h\r\n"
|
||||||
TOP.Bits .DA #PAK.B.TOP8,PAK.B.TOP16,PAK.B.TOP24
|
TOP.Bits .DA #PAK.B.TOP8,#PAK.B.TOP16,#PAK.B.TOP24,#PAK.B.TOP32
|
||||||
TOP.BitCnt .DA #PAK.B.TOP8.W,#PAK.B.TOP16.W,#PAK.B.TOP24.W
|
TOP.BitCnt .DA #PAK.B.TOP8.W,#PAK.B.TOP16.W,#PAK.B.TOP24.W,#PAK.B.TOP32.W
|
||||||
TOP.Stat .DA #S.PAKSTAT.TOP8,#S.PAKSTAT.TOP16,#S.PAKSTAT.TOP24
|
TOP.Stat .DA #S.PAKSTAT.TOP8,#S.PAKSTAT.TOP16,#S.PAKSTAT.TOP24,#S.PAKSTAT.TOP32
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Pak.SrcPtr .BS 2
|
Pak.SrcPtr .BS 2
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user