mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
35 lines
227 B
NASM
35 lines
227 B
NASM
.P816
|
|
.ORG $4000
|
|
|
|
S1: SEI
|
|
SEP #$30
|
|
SEC
|
|
XCE
|
|
S2:
|
|
LDA #'a'
|
|
|
|
loop:
|
|
CLC
|
|
XCE
|
|
REP #$30
|
|
|
|
CLI
|
|
JSL $E063
|
|
|
|
SEI
|
|
SEP #$30
|
|
SEC
|
|
XCE
|
|
|
|
CLC
|
|
ADC #1
|
|
CMP #'z'+1
|
|
BNE loop
|
|
|
|
CLC
|
|
XCE
|
|
REP #$30
|
|
|
|
done: JML $E066
|
|
RTL
|