language: Forth (gforth-0.7.0)
date: 230 days 4 hours ago
link:
visibility: public
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
52
53
54
55
56
57
58
lda #$0e
sta $0400
asl
eor #$2d
sta $0404
sec
adc #$03
sta $0407
lda #$ff
and #$32
sta $0402
tay
sec
adc $0407
sbc #$30
sta $0409
pha
clc
ror
and #$11
ora #$25
sta $0401
lda $0407
sta $0405
sec
sbc #$07
sta $0406
ldx #$30
inx
txa
sta $0408
pla
sta $0413
tax
dex
stx $040e
sec
adc #$f8
sta $040c
pha
ora #$05
and #$45
sta $040b
lda $0408
sta $0410
tya
sta $0415
pla
sta $040d
rol
sec
sbc #$33
sta $0412
lda #$31
sta $0411
iny
iny
sty $0414