Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

CUT:bugfix

This commit is contained in:
burniouf 2024-01-30 07:51:52 +01:00
parent 249e90c102
commit 16e3760c4b
2 changed files with 6 additions and 4 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.

10
BIN/CUT.S.txt
View File

@ -18,7 +18,7 @@ ZPPtr1 .BS 2
ZPBuf .BS 2 ZPBuf .BS 2
ZPBufPtr .BS 2 ZPBufPtr .BS 2
ArgIndex .BS 1 ArgIndex .BS 1
ArgFile .BS 1 ArgLine .BS 1
OptionIdx .BS 1 OptionIdx .BS 1
hBuf .BS 1 hBuf .BS 1
FieldNum .BS 1 FieldNum .BS 1
@ -66,7 +66,7 @@ CS.RUN lda #C.SPACE
beq .1 beq .1
lda ArgIndex lda ArgIndex
sta ArgFile sta ArgLine
bra .10 bra .10
.1 ldy #1 .1 ldy #1
@ -81,6 +81,7 @@ CS.RUN lda #C.SPACE
bpl .2 bpl .2
.97 lda #E.SYN .97 lda #E.SYN
.98 pha .98 pha
>LDYA L.MSG.USAGE >LDYA L.MSG.USAGE
>SYSCALL PutS >SYSCALL PutS
@ -125,10 +126,11 @@ CS.RUN lda #C.SPACE
>STYA ZPBufPtr >STYA ZPBufPtr
stx hBuf stx hBuf
lda ArgFile lda ArgLine
beq .80 beq .80
>PUSHW ZPBufPtr >PUSHW ZPBufPtr
lda ArgLine
>SYSCALL ArgV >SYSCALL ArgV
>PUSHYA >PUSHYA
>SYSCALL StrCpy >SYSCALL StrCpy
@ -310,7 +312,7 @@ CS.END
OptionList .AS "HhFfMmNnSs" OptionList .AS "HhFfMmNnSs"
OptionList.Cnt .EQ *-OptionList OptionList.Cnt .EQ *-OptionList
*-------------------------------------- *--------------------------------------
MSG.USAGE .CS "Usage : CUT "line of text"\r\n" MSG.USAGE .CS 'Usage : CUT "line of text"\r\n'
.CS " -H : This help screen\r\n" .CS " -H : This help screen\r\n"
.CS " -F nn : Output field nn\r\n" .CS " -F nn : Output field nn\r\n"
.CS " -M nn : Output starting at nn\r\n" .CS " -M nn : Output starting at nn\r\n"