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.QUIT
L.MSG.USAGE .DA MSG.USAGE
L.MSG.Init .DA MSG.Init
L.MSG.LINENUM .DA MSG.LINENUM
L.MSG.CTRLCHAR .DA MSG.CTRLCHAR
L.ASCII .DA ASCII
@ -88,6 +89,11 @@ CS.INIT
txa
>STA.G hBuf
>PUSHBI 0
>LDYA L.MSG.Init
>SYSCALL printf
clc
.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 " -N : Number all output lines\r\n"
.AZ " -S : Suppress repeated empty output lines\r\n"
MSG.Init .AZ "\e[7l"
MSG.LINENUM .AZ "%5D:"
MSG.CTRLCHAR .AZ "[%S]"
*--------------------------------------

View File

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