mirror of https://git.sr.ht/~rabbits/uxnlin
Fixed issue with MS line-endings
This commit is contained in:
parent
5bda31d762
commit
35bce0158b
|
@ -72,12 +72,8 @@
|
|||
DEI STH
|
||||
DEI2 STH2
|
||||
|
||||
( MS Line-endings )
|
||||
( this should not throw warnings )
|
||||
SUB #0f GTH #50 SFT ( h )
|
||||
STHr ORA
|
||||
#40
|
||||
ORA
|
||||
( catch as static )
|
||||
#0102 ADD
|
||||
|
||||
BRK
|
||||
|
||||
|
|
|
@ -54,7 +54,7 @@ JMP2
|
|||
|
||||
@walk ( char -- )
|
||||
|
||||
( msline ) DUP #0d EQU #1b MUL ADD
|
||||
( msline to space ) DUP #0d EQU #13 MUL ADD
|
||||
|
||||
#0a EQUk NIP ,&line JCN
|
||||
LIT "( EQUk NIP ,&toggle-sleep JCN
|
||||
|
@ -73,20 +73,19 @@ JMP2r
|
|||
&toggle-mute LIT "[ EQU ,parse/mute STR ;token/last ;sclr JSR2 JMP2r
|
||||
&line .stats/lines LDZ2k INC2 ROT STZ2 ( , )
|
||||
|
||||
@parse ( char -- recipe* )
|
||||
@parse ( char -- )
|
||||
|
||||
( char ) POP
|
||||
( is mute ) [ LIT &mute $1 ] ;&ignore JCN2
|
||||
( is blank ) ;token LDA #00 EQU ;&ignore JCN2
|
||||
( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
|
||||
|
||||
( token length )
|
||||
|
||||
;token ;slen JSR2 #0019 LTH2 ,&no-clip JCN
|
||||
;tokenlen ;print-warn JSR2
|
||||
&no-clip
|
||||
|
||||
( chain include )
|
||||
|
||||
;token LDA LIT "~ NEQ ,&no-inc JCN
|
||||
;src
|
||||
DUP2 ;sclr JSR2
|
||||
|
@ -126,9 +125,6 @@ JMP2r
|
|||
;token ;is-arithmetic JSR2 #00 EQU ,&no-ari JCN
|
||||
;token/last ;is-static JSR2 #00 EQU ,&no-ari JCN
|
||||
;token/last2 ;is-static JSR2 #00 EQU ,&no-ari JCN
|
||||
|
||||
;token/last ;pstr JSR2 #2018 DEO
|
||||
;token/last2 ;pstr JSR2 #2018 DEO
|
||||
;static ;print-warn2 JSR2
|
||||
&no-ari
|
||||
|
||||
|
|
Loading…
Reference in New Issue