- added

git-svn-id: http://moon:8086/svn/vhdl/trunk@1414 cc03376c-175c-47c8-b038-4cd826a8556b
2021-03-21 10:47:01 +00:00
parent 32440f7db9
commit ea60299d26
80 changed files with 37322 additions and 0 deletions
@@ -0,0 +1,188 @@
+;			PROJECT	"test"
+
+			data	10
+constant:	DROM	55, 33,3a,5b,01,4f
+rxbuf:		DRAM	16	
+txbuf:		DRAM	16	
+message:	DROM	12, 99, 45, 2a, 5c, 0, 0d, 0a
+
+reset:		jmp	start
+			inc	R14
+			mov	R8, R15
+			mov	R15, #00
+			add	R15, R14
+			mov	R15, R8
+			reti
+			nop
+			nop
+			nop	
+
+const1:		equ	01
+const2:		equ	02
+const3:		equ	03
+const4:		equ	EF
+const5:		equ	BE
+
+			org	10
+
+f1:	
+f2:			inc	R13
+			ret
+
+start:		mov	R11, message
+			nop
+; 	This is a comment: 
+			mov	R0, #00
+			mov	R1, const1
+			mov	R2, const2
+			mov	R3, const3
+			mov	R4, const4
+			mov	R5, const5
+			mov	R6, #06
+			mov	R7, #07
+			mov	R8, #08
+			mov	R9, #09
+			mov	R10, #10
+			mov	R11, #65
+			mov	R12, #12
+			mov	R13, #40
+			mov	R14, #00
+			mov	R15, #15
+			movx	(#21), R5
+			movx	(R14), #65
+			tst	R0
+			tst	R5
+			shr	R13
+			shr	R13
+			shl	R13
+			shl	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			ror	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			rol	R13
+			ror R15
+			ror R15
+			ror R15
+			ror R15
+			halt
+			nop
+			mov	R8, #80
+			mov	R15, #00
+			shl	R8
+			rolc	R15
+			rol	R15
+			rol	R15
+			rol	R15
+			rol	R15
+			rol	R15
+			rol	R15
+			rol	R15
+			
+			xor	R9, #08
+			or	R6, #50
+			and R15, #51
+
+			cmp R0, #00
+			jne	error
+			jlt	error
+			jgt	error
+			jne error
+			jeq ok10
+			jmp error
+ok10:
+			jle ok11
+			jmp error
+ok11:
+			jge ok12
+			jmp error
+ok12:
+
+			cmp R1, #00
+			jeq	error
+			jlt	error
+			jgt	ok20
+ok20:
+			jne ok21
+ok21:
+			jge ok22
+			jmp error
+ok22:
+
+			cmp R11 #64
+			jeq	error
+			cmp R11 #65
+			jle	ok30
+			jmp	error
+ok30:
+			jge	ok31
+			jmp	error
+ok31:
+			jgt error
+			jlt error
+		
+			cmp R11 #66
+			jle	ok40
+			jmp error
+ok40:	
+			jgt error
+			jge error
+			jlt label2
+			jmp error
+	
+label2:		movx	(const4), R10
+linit:		mov	R2, #10
+			mov	R1, #01
+loop:		sub	R2, R1
+			jnz	loop
+			jmp	sub
+
+sub:		mov	R15, #20
+			push	R15
+			mov	R8, #01
+			call	f1
+			call	f2
+			call	stub
+			mov	R7, const4
+			pop	R15
+			mov	R15, R7
+			jmp	linit
+
+			nop			
+			nop			
+			nop			
+
+stub:		mov	R0, #00
+L2:			movx	(R0), R7;
+			add	R0, #02
+			sub	R15, #01;	Subtract
+			jnz	L2		; exit, if zero
+
+			movx	R5, (#09)
+			movx	R7, (R0)	
+			ret
+
+error:
+			nop
+			jmp	error
+