mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-15 00:29:33 +00:00
nearly ok
This commit is contained in:
parent
12000aa96b
commit
e965b23186
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -1010,6 +1010,7 @@ at_4 stx len_max
|
||||||
inx
|
inx
|
||||||
cpx len_max
|
cpx len_max
|
||||||
bcc ]lp
|
bcc ]lp
|
||||||
|
beq ]lp
|
||||||
|
|
||||||
rep #$20
|
rep #$20
|
||||||
lda #max_colonnes
|
lda #max_colonnes
|
||||||
|
@ -1045,7 +1046,7 @@ at_case1 ldx i ; on utilise X pour
|
||||||
* DEC return% - useless
|
* DEC return% - useless
|
||||||
|
|
||||||
at_default
|
at_default
|
||||||
* dec return
|
dec return
|
||||||
|
|
||||||
* ligne_max$=LEFT$(return$,return%)
|
* ligne_max$=LEFT$(return$,return%)
|
||||||
|
|
||||||
|
@ -1062,6 +1063,7 @@ at_default
|
||||||
lda #max_colonnes
|
lda #max_colonnes
|
||||||
sec
|
sec
|
||||||
sbc return
|
sbc return
|
||||||
|
inc
|
||||||
tax
|
tax
|
||||||
sep #$20
|
sep #$20
|
||||||
jsr set_space
|
jsr set_space
|
||||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user