vaje

rutine.asm

@@ -0,0 +1,16 @@
+.code
+
+rutina	START	0
+	
+	LDCH	#95
+	JSUB	print	
+
+halt	J	halt
+	END	rutina
+
+
+print	WD	#1
+	RSUB
+
+.data
+

vhod_izhod/cat.asm

@@ -0,0 +1,33 @@
+.code
+
+cat	START	0
+
+	CLEAR	X
+
+read	RD	#0
+	STCH	BUFF, X
+	COMP	#10	. \n
+	JEQ	cont
+	TIX	#bufflen
+	JLT	read
+
+
+cont 	CLEAR	X
+print	LDCH	BUFF, X
+	WD	#1
+	TIX	#bufflen
+	COMP	#0
+	JGT	print
+
+halt	J	halt
+
+
+.data
+	
+BUFF	RESB	128
+	BYTE	0
+buffend	EQU	*
+bufflen	EQU	buffend - BUFF - 1
+
+
+	END	cat

vhod_izhod/echo.asm

@@ -0,0 +1,11 @@
+.code
+echo	START	0
+
+
+
+halt	J	halt
+
+
+	END	echo
+
+

vhod_izhod/hello_world.asm

@@ -0,0 +1,35 @@
+.code
+
+hello	START	0
+	
+
+loop	LDCH	text, X
+	WD	#1
+	TIX	#textlen	. ker ni pomnilniska lokacija, ampak ker je eq, ker eq je tu kokr define
+	JLT	loop
+
+
+	CLEAR	X
+	LDA	#text
+	STA	textprt
+loop2	CLEAR	A
+	LDCH	@textprt
+	WD	#1
+	COMP	#0
+	LDA	textprt
+	ADD	#1
+	STA	textprt
+	JGT	loop2
+
+
+halt	J	halt
+	END	hello
+
+.data
+
+text	BYTE	C'Hello world!'
+	BYTE	0
+textend	EQU	*			./ trenutni naslov
+textlen	EQU	textend-text
+
+textprt	WORD	0

vhod_izhod/print.asm

@@ -0,0 +1,26 @@
+.code
+print	START	0
+
+	CLEAR	X
+loop	LDA	txt, X
+	COMP	NULL
+	JEQ	halt
+	WD	#AA
+
+
+
+
+halt	J	halt
+
+
+.data
+
+txt	BYTE	C'SIC/XE'
+NULL	BYTE	0
+textend	EQU	*			
+textlen	EQU	textend- text -1
+
+
+
+
+	END	print

zoge/zoge.asm

@@ -36,7 +36,7 @@ endCOMP	LDA		bColour,X
 
 		LDCH	BLACK		. clear screen
 		+STCH	SCREEN,X
-		LDX	INDEX	
+		LDX		INDEX	
 
 		LDA		ballX,X		.//calculae new X
 		LDT		bSpeedX,X