84 lines
731 B
NASM
84 lines
731 B
NASM
echo START 0
|
|
LDA #65
|
|
JSUB char
|
|
JSUB nl
|
|
LDA #what
|
|
JSUB string
|
|
JSUB nl
|
|
LDA #123
|
|
JSUB num
|
|
JSUB nl
|
|
halt J halt
|
|
|
|
char WD dev
|
|
RSUB
|
|
|
|
nl STA a
|
|
LDA #10
|
|
WD dev
|
|
LDA a
|
|
RSUB
|
|
|
|
string STA a
|
|
STA b
|
|
strlp LDCH @a
|
|
COMP #0
|
|
JEQ strcup
|
|
WD dev
|
|
LDA #1
|
|
ADD a
|
|
STA a
|
|
J strlp
|
|
LDA b
|
|
strcup
|
|
RSUB
|
|
|
|
num STA aa
|
|
STA a
|
|
LDA #buffer
|
|
ADD #15
|
|
STA b
|
|
numlp LDA a
|
|
DIV #10
|
|
MUL #10
|
|
SUB a
|
|
MUL negone
|
|
COMP #0
|
|
JEQ numcup
|
|
ADD #48
|
|
STCH @b
|
|
LDA b
|
|
SUB #1
|
|
STA b
|
|
LDA a
|
|
DIV #10
|
|
STA a
|
|
J numlp
|
|
numcup LDA b
|
|
ADD #1
|
|
STA a
|
|
strll LDCH @a
|
|
COMP #0
|
|
JEQ strcul
|
|
WD dev
|
|
LDA #1
|
|
ADD a
|
|
STA a
|
|
J strll
|
|
LDA b
|
|
strcul
|
|
LDA aa
|
|
RSUB
|
|
|
|
|
|
dev BYTE 1
|
|
what BYTE C'word'
|
|
BYTE 0
|
|
buffer RESB 16
|
|
BYTE 0
|
|
a RESW 1
|
|
b RESW 1
|
|
aa RESW 1
|
|
negone WORD -1
|
|
|
|
END echo
|