LF only, more FS fixes
This commit is contained in:
1 parent
566db4a550
commit
a0cabac399
14 files changed
+130
-85
No files matched your search
+5
-5
@@ -12,7 +12,7 @@ IN = $0200 ; Input buffer
|
||||
RESET:
|
||||
LDA #$1B ; Begin with escape.
|
||||
|
||||
NOTCR:
|
||||
NOTLF:
|
||||
CMP #$08 ; Backspace key?
|
||||
BEQ BACKSPACE ; Yes.
|
||||
CMP #$1B ; ESC?
|
||||
@@ -37,8 +37,8 @@ NEXTCHAR:
|
||||
BMI NEXTCHAR ; Loop until ready.
|
||||
STA IN,Y ; Add to text buffer.
|
||||
JSR ECHO ; Display character.
|
||||
CMP #$0D ; CR?
|
||||
BNE NOTCR ; No.
|
||||
CMP #LF ; LF?
|
||||
BNE NOTLF ; No.
|
||||
|
||||
LDY #$FF ; Reset text index.
|
||||
LDA #$00 ; For XAM mode.
|
||||
@@ -52,7 +52,7 @@ BLSKIP:
|
||||
INY ; Advance text index.
|
||||
NEXTITEM:
|
||||
LDA IN,Y ; Get character.
|
||||
CMP #$0D ; CR?
|
||||
CMP #LF ; LF?
|
||||
BEQ GETLINE ; Yes, done this line.
|
||||
CMP #$2E ; "."?
|
||||
BCC BLSKIP ; Skip delimiter.
|
||||
@@ -118,7 +118,7 @@ SETADR: LDA L-1,X ; Copy hex data to
|
||||
|
||||
NXTPRNT:
|
||||
BNE PRDATA ; NE means no address to print.
|
||||
LDA #$0A ; LF.
|
||||
LDA #LF ; LF.
|
||||
JSR ECHO ; Output it.
|
||||
LDA XAMH ; 'Examine index' high-order byte.
|
||||
JSR PRBYTE ; Output it in hex format.
|
||||
|
||||
Reference in new issue
Block a user