Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-11 07:29:00 +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 ldy #1
lda (ZPPtr1),y lda (ZPPtr1),y
ldx OptionList ldx #OptionList.Cnt-1
.2 cmp OptionList,x .2 cmp OptionList,x
beq .3 beq .3
dex dex
bne .2 bpl .2
.99 >PUSHBI 0 .99 >PUSHBI 0
>LDYA L.MSG.USAGE >LDYA L.MSG.USAGE
>SYSCALL printf >SYSCALL printf
lda #E.SYN lda #E.SYN
sec sec
.9 rts .9 rts
.3 ldy OptionVars-1,x
.3 ldy OptionVars,x
lda #$80 lda #$80
sta 0,y sta 0,y
bra .1 bra .1
@ -227,7 +231,8 @@ CS.RUN.PRINT inc LineNum
bcs .9 bcs .9
.62 inc ByteIndex .62 inc ByteIndex
bne .4 bne .4
.7 >PUSHBI 2
.7 >PUSHBI 0
>LDYA L.MSG.CRLF >LDYA L.MSG.CRLF
>SYSCALL printf >SYSCALL printf
@ -260,7 +265,8 @@ CS.DOEVENT sec
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
OptionList >PSTR "ANSans" OptionList .AS "ANSans"
OptionList.Cnt .EQ *-OptionList
OptionVars .DA #bPrintAll,#bLineNum,#bSuppressBlankLine,#bPrintAll,#bLineNum,#bSuppressBlankLine OptionVars .DA #bPrintAll,#bLineNum,#bSuppressBlankLine,#bPrintAll,#bLineNum,#bSuppressBlankLine
*-------------------------------------- *--------------------------------------
MSG.USAGE .AS "Usage : CAT File1 [File2...]\r\n" MSG.USAGE .AS "Usage : CAT File1 [File2...]\r\n"