Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-24 14:31:05 +00:00
Code Issues Projects Releases Wiki Activity

CUT:bugfix

Browse Source
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
ZPBufPtr .BS 2
ArgIndex .BS 1
ArgFile .BS 1
ArgLine .BS 1
OptionIdx .BS 1
hBuf .BS 1
FieldNum .BS 1
@ -66,7 +66,7 @@ CS.RUN lda #C.SPACE
beq .1
lda ArgIndex
sta ArgFile
sta ArgLine
bra .10
.1 ldy #1
@ -81,6 +81,7 @@ CS.RUN lda #C.SPACE
bpl .2
.97 lda #E.SYN
.98 pha
>LDYA L.MSG.USAGE
>SYSCALL PutS
@ -125,10 +126,11 @@ CS.RUN lda #C.SPACE
>STYA ZPBufPtr
stx hBuf
lda ArgFile
lda ArgLine
beq .80
>PUSHW ZPBufPtr
lda ArgLine
>SYSCALL ArgV
>PUSHYA
>SYSCALL StrCpy
@ -310,7 +312,7 @@ CS.END
OptionList .AS "HhFfMmNnSs"
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 " -F nn : Output field nn\r\n"
.CS " -M nn : Output starting at nn\r\n"