#atari8bitbot {A}SAVMSC = $58
MAXLEN = 100
STRP = $C0
OFFSET = $C2
ASC = $C4

START
LDA #0
JSR $EF9C
LDA SAVMSC
STA ASC
LDA SAVMSC+1
STA ASC+1

LDA #40
STA OFFSET
LDX #STR&255
LDY #STR/256
JSR PRINT

LDA #80
STA OFFSET
LDX #STR1&255
LDY #STR1/256
JSR PRINT

PAUSE JMP PAUSE

PRINT CLC
LDA SAVMSC
ADC OFFSET
STA ASC
STX STRP
STY STRP+1
LDY #0

PRN LDA (STRP),Y
CMP #$9B
BEQ PRE
SBC #31
STA (ASC),Y
INY
CPY #MAXLEN
BNE PRN
PRE RTS

STR
.BYTE $7C," THIS COMPUTER CAN'T RUN WIN11 ",$7C,$9B
STR1
.BYTE $7C," LEARN 6502 ASSEMBLER ",$7C,$9B

#atari8bitbot {A}SAVMSC = $58
MAXLEN = 100
STRP = $C0
OFFSET = $C2
ASC = $C4

START
LDA #1 ; gr mode
JSR $EF9C ;graphics mode

LDA SAVMSC
STA ASC
LDA SAVMSC+1
STA ASC+1

LDA #40
STA OFFSET
LDX #STR&255
LDY #STR/256
JSR PRINT

LDA #80
STA OFFSET
LDX #STR1&255
LDY #STR1/256
JSR PRINT
PAUSE JMP PAUSE

PRINT CLC
LDA SAVMSC
ADC OFFSET
STA ASC
STX STRP
STY STRP+1
LDY #0
PRN LDA (STRP),Y
CMP #$9B
BEQ PRE
CLC
SBC #31
STA (ASC),Y
INY
CPY #MAXLEN
BNE PRN
PRE RTS
STR
.BYTE "THIS COMPUTER CAN'T RUN WIN11",$9B
STR1
.BYTE "LEARN 6502 ASSEMBLER",$9B