Kernel 0.92

This commit is contained in:
Rémy GIBERT 2018-11-27 21:16:32 +01:00
parent e92e9ed4d3
commit 360354a8a2
2 changed files with 11 additions and 4 deletions

Binary file not shown.

View File

@ -214,7 +214,14 @@ CS.RUN.GETLINE >LDA.G hFile
>SYSCALL fgets >SYSCALL fgets
bcs .9 bcs .9
ldy #$ff lda (ZPBufPtr)
cmp #C.LF
bne .11
lda #C.CR
sta (ZPBufPtr)
.11 ldy #$ff
.2 iny .2 iny
lda (ZPBufPtr),y lda (ZPBufPtr),y
@ -278,9 +285,9 @@ OptionVars .DA #bLineNum,#bLineNum,#bHelp,#bHelp,#bPage,#bPage
MSG.USAGE .AS "Usage : MORE <File>\r\n" MSG.USAGE .AS "Usage : MORE <File>\r\n"
.AS " -H : This help screen\r\n" .AS " -H : This help screen\r\n"
.AS " -N : Number all output lines\r\n" .AS " -N : Number all output lines\r\n"
.AS " -P : Page mode, no scroll" .AZ " -P : Page mode, no scroll\r\n"
MSG.NUMLINECR .AZ "%5D:%s\r" MSG.NUMLINECR .AZ "%5D:%s\r\n"
MSG.LINECR .AZ "%s\r" MSG.LINECR .AZ "%s\r\n"
MSG.Pause .AZ "\r\e[7m --- 'SPACE' for more, 'CR' one line, 'Q' to quit --- \e[0m" MSG.Pause .AZ "\r\e[7m --- 'SPACE' for more, 'CR' one line, 'Q' to quit --- \e[0m"
MSG.PauseErase .AZ "\r\e[2K" MSG.PauseErase .AZ "\r\e[2K"
*-------------------------------------- *--------------------------------------