test/lex.s


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51


; aaaaaaaaaaaaaaaaa

SYM  = $10
SYM1 = 10
SYM2 = %00000010

.org $A000
; String Literals/Constants.
tok:
	.byte "dab"
msg:
	.byte "oof, you divided a, and b on me.\n"
string:
	.byte "Please, type something.\n"
string2:
	.byte "You typed, "

.org $1000
lex:
	.byte $0
.org $2000
lex2:
	.qword lex
cmd_buf:
	.word $0

.org $8000
reset:
	cps		; cool, and eboc
	lda #SYM	; nice symbols
	sta lex		; great label
	sta (lex2), y	; the pointers are cia niggers
	sta (lex2, x)	; >mfw pointer to array is accessed as a pointer array
	sta (lex2)	; normal pointer
	sta lex, y	; arrays are good
	sta lex, x	; same with this one
	sta $1000	; lol
	lda.w #cmd_buf+8;
	lda 'a'		; cool.
	lda ' '		; cool.
	lda '\n'	; cool.
	lda '\r'	; cool.
	lda '\b'	; cool.
	lda '\\'	; cool.
	lda '\''	; cool.

l
a
.org $8000
v
q