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

SED: Fix bug with handling of blank input lines.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-07-03 23:53:57 -04:00
parent 75ca6300b9
commit cc3624079f
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
BIN/SED.S.txt
View File

@ -1,5 +1,3 @@
NEW
AUTO 3,1
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
@ -253,6 +251,9 @@ CS.RUN.OPEN >PUSHYA
CS.RUN.PRINT >LDYA ZPBufPtr CS.RUN.PRINT >LDYA ZPBufPtr
>STYA ZPPtr1 >STYA ZPPtr1
lda (ZPPtr1) If null first time
beq .8
.1 lda (ZPPtr1) .1 lda (ZPPtr1)
beq .7 EOL. No match. beq .7 EOL. No match.
@ -290,11 +291,12 @@ CS.RUN.PRINT >LDYA ZPBufPtr
* Hit EOL but not end of pattern, return * Hit EOL but not end of pattern, return
.7 jsr CS.RUN.NoMatch .7 jsr CS.RUN.NoMatch
lda #C.CR .8 lda #C.CR
>SYSCALL PutChar >SYSCALL PutChar
lda #C.LF lda #C.LF
>SYSCALL PutChar >SYSCALL PutChar
clc
.9 clc
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.GotMatch phy CS.RUN.GotMatch phy
@ -377,6 +379,3 @@ MSG.CRLF .AZ "\r\n"
DS.START DS.START
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN
SAVE usr/src/bin/sed.s
ASM