naloga1

echo.asm

@@ -0,0 +1,84 @@
+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