File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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
Original file line number Diff line number Diff line change 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
Original file line number Diff line number Diff line change 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
5148ptmp: ; Prints string in TMP1
49+ sty tmp3
5250 ldy # 0
5351 lda (tmp1) , y ; LENGTH
5452 beq nil
Original file line number Diff line number Diff line change 1- VERSION =4.6-b2
1+ VERSION =4.6
You can’t perform that action at this time.
0 commit comments