Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-06 12:29:02 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-11-17 16:28:24 +01:00
parent 7966543112
commit 7f593583f4
2 changed files with 11 additions and 5 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.

16
BIN/CAT.S.txt
View File

@ -72,18 +72,22 @@ CS.RUN
ldy #1
lda (ZPPtr1),y
ldx OptionList
ldx #OptionList.Cnt-1
.2 cmp OptionList,x
beq .3
dex
bne .2
bpl .2
.99 >PUSHBI 0
>LDYA L.MSG.USAGE
>SYSCALL printf
lda #E.SYN
sec
.9 rts
.3 ldy OptionVars-1,x
.3 ldy OptionVars,x
lda #$80
sta 0,y
bra .1
@ -227,7 +231,8 @@ CS.RUN.PRINT inc LineNum
bcs .9
.62 inc ByteIndex
bne .4
.7 >PUSHBI 2
.7 >PUSHBI 0
>LDYA L.MSG.CRLF
>SYSCALL printf
@ -260,7 +265,8 @@ CS.DOEVENT sec
*--------------------------------------
CS.END
*--------------------------------------
OptionList >PSTR "ANSans"
OptionList .AS "ANSans"
OptionList.Cnt .EQ *-OptionList
OptionVars .DA #bPrintAll,#bLineNum,#bSuppressBlankLine,#bPrintAll,#bLineNum,#bSuppressBlankLine
*--------------------------------------
MSG.USAGE .AS "Usage : CAT File1 [File2...]\r\n"