Kernel 0.92+

This commit is contained in:
Rémy GIBERT 2019-02-14 16:38:36 +00:00
parent b889c4778e
commit 6165f24951
3 changed files with 13 additions and 0 deletions

Binary file not shown.

View File

@ -35,6 +35,7 @@ CS.START cld
.DA CS.DOEVENT .DA CS.DOEVENT
.DA CS.QUIT .DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE L.MSG.USAGE .DA MSG.USAGE
L.MSG.Init .DA MSG.Init
L.MSG.LINENUM .DA MSG.LINENUM L.MSG.LINENUM .DA MSG.LINENUM
L.MSG.CTRLCHAR .DA MSG.CTRLCHAR L.MSG.CTRLCHAR .DA MSG.CTRLCHAR
L.ASCII .DA ASCII L.ASCII .DA ASCII
@ -88,6 +89,11 @@ CS.INIT
txa txa
>STA.G hBuf >STA.G hBuf
>PUSHBI 0
>LDYA L.MSG.Init
>SYSCALL printf
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -294,6 +300,7 @@ MSG.USAGE .AS "Usage : CAT File1 [File2...]\r\n"
.AS " -A : Show All non printable caracters\r\n" .AS " -A : Show All non printable caracters\r\n"
.AS " -N : Number all output lines\r\n" .AS " -N : Number all output lines\r\n"
.AZ " -S : Suppress repeated empty output lines\r\n" .AZ " -S : Suppress repeated empty output lines\r\n"
MSG.Init .AZ "\e[7l"
MSG.LINENUM .AZ "%5D:" MSG.LINENUM .AZ "%5D:"
MSG.CTRLCHAR .AZ "[%S]" MSG.CTRLCHAR .AZ "[%S]"
*-------------------------------------- *--------------------------------------

View File

@ -42,6 +42,7 @@ CS.START cld
.DA CS.DOEVENT .DA CS.DOEVENT
.DA CS.QUIT .DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE L.MSG.USAGE .DA MSG.USAGE
L.MSG.Init .DA MSG.Init
L.MSG.NUMLINE .DA MSG.NUMLINE L.MSG.NUMLINE .DA MSG.NUMLINE
L.MSG.CRLF .DA MSG.CRLF L.MSG.CRLF .DA MSG.CRLF
L.MSG.Pause .DA MSG.Pause L.MSG.Pause .DA MSG.Pause
@ -107,6 +108,10 @@ CS.RUN
txa txa
>STA.G hBuf >STA.G hBuf
>PUSHBI 0
>LDYA L.MSG.Init
>SYSCALL printf
CS.RUN.LOOP >SLEEP CS.RUN.LOOP >SLEEP
jsr CS.RUN.GETLINE jsr CS.RUN.GETLINE
@ -310,6 +315,7 @@ MSG.USAGE .AS "Usage : MORE <File>\r\n"
.AS " -N : Number all output lines\r\n" .AS " -N : Number all output lines\r\n"
.AS " -P : Page mode, no scroll\r\n" .AS " -P : Page mode, no scroll\r\n"
.AZ " -S : Process ESC codes\r\n" .AZ " -S : Process ESC codes\r\n"
MSG.Init .AZ "\e[7l"
MSG.NUMLINE .AZ "%5D:" MSG.NUMLINE .AZ "%5D:"
MSG.CRLF .AZ "\r\n" MSG.CRLF .AZ "\r\n"
MSG.Pause .AZ "\r\e[7m --- 'SPACE' for more, 'CR' one line, 'Q/q' to quit --- \e[0m" MSG.Pause .AZ "\r\e[7m --- 'SPACE' for more, 'CR' one line, 'Q/q' to quit --- \e[0m"