Skip to content

Commit 13c249b

Browse files
committed
Fixes RTAB, reset print COLOR to 0.
Also, cleanup and clarifies the manual.
1 parent 66ba7f1 commit 13c249b

4 files changed

Lines changed: 8 additions & 5 deletions

File tree

manual.md

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1037,6 +1037,10 @@ Console Print and Input Statements
10371037
S = 1234
10381038
? #6, "SCORE: "; COLOR(32) S
10391039

1040+
Note that the color only applies to
1041+
one argument, and it is reset to 0
1042+
after a `;`, `,` or `TAB`.
1043+
10401044
The `TAB` function advances the
10411045
position to a column multiple of the
10421046
argument, so that `TAB(10)` is the

src/interp/atari/print_tab.asm

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -71,6 +71,7 @@ ok:
7171
jsr do_tab
7272

7373
inc sptr
74+
ldy #0 ; Print color = 0
7475
jmp print_str_tmp1 ; Print string in tmp1
7576
.endproc
7677

src/interp/print_str.asm

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -39,16 +39,14 @@
3939
inc sptr
4040
tay
4141
pla
42-
.byte $2C ; Skip 2 bytes over next "LDY"
42+
.byte $2C ; Skip 2 bytes over next "LDY"
4343
.endproc
44-
4544
.proc EXE_PRINT_STR ; PRINT string in AX
4645
ldy #0
47-
print_cont:
48-
sty tmp3
4946
sta tmp1
5047
stx tmp1+1
5148
ptmp: ; Prints string in TMP1
49+
sty tmp3
5250
ldy #0
5351
lda (tmp1), y ; LENGTH
5452
beq nil

version.mk

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
VERSION=4.6-b2
1+
VERSION=4.6

0 commit comments

Comments
 (0)