jepler/80columns
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

behavior fix

Browse source
This commit is contained in:
Michael Steil 2017-07-09 23:36:33 +02:00
parent 2f074f5952
commit 2332f3eb7d
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
80columns.s
View file

@ -415,13 +415,7 @@ move_csr_left:
@1: sta PNTR
@2: rts
; XXX behavioral difference: will do nothing if there is
; XXX a non-space at the very right
cmd_inst:
ldy #COLUMNS - 1
lda (PNT),y
cmp #' '
bne @3
lda PNTR
sta pntr2
lda #COLUMNS - 1
@ -439,7 +433,7 @@ cmd_inst:
ldx COLOR
jsr _draw_char_with_col
inc INSRT
@3: rts
rts
clr_curline:
jsr calc_pnt