URL https://opencores.org/ocsvn/t400/t400/trunk

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [casc/] [test.asm] - Diff between revs 2 and 23

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 2	Rev 23
Line 1...	Line 1...
`;; *******************************************************************`	`;; *******************************************************************`
`;; $Id: test.asm,v 1.1.1.1 2006-05-06 01:56:45 arniml Exp $`	`;; $Id: test.asm,v 1.2 2006-05-16 07:57:23 arniml Exp $`
`;;`	`;;`
`;; Checks the CASC instruction.`	`;; Checks the CASC instruction.`
`;;`	`;;`

`;; the cpu type is defined on asl's command line`	`;; the cpu type is defined on asl's command line`

`org 0x00`	`org 0x00`
`clra`	`clra`

`;; preload M0 with 0xa`	`;; preload M0 with 0x5`
`smb 0x3`	`rmb 0x3`
`rmb 0x2`	`smb 0x2`
`smb 0x1`	`rmb 0x1`
`rmb 0x0`	`smb 0x0`

`rc`	`rc`
`asc 0xf`	`aisc 0xf`
`;; test a15 + m5 + c0`	`;; test /(a15) + m5 + c0`
`casc`	`casc`
`jmp ok_a15_m5_c0_carry`	`jmp ok_a15_m5_c0_carry`
`jmp fail`	`jmp fail`
`ok_a15_m5_c0_carry:`	`ok_a15_m5_c0_carry:`
`skc`	`skc`
`jmp ok_a15_m5_c0_c`	`jmp ok_a15_m5_c0_c`
`jmp fail`	`jmp fail`
`ok_a15_m5_c0_c:`	`ok_a15_m5_c0_c:`
	`;; expect 0x5 as result`
	`ske`
	`jmp fail`

	`sc`
	`clra`
	`aisc 0xa`
	`;; test /(a10) + m5 + c1`
	`casc`
	`jmp ok_a10_m5_c1_carry`
	`jmp fail`
	`ok_a10_m5_c1_carry:`
	`skc`
	`jmp ok_a10_m5_c1_c`
	`jmp fail`
	`ok_a10_m5_c1_c:`
	`;; expect 0xb as result`
	`aisc 0xa`
	`nop`
	`ske`
	`jmp fail`

	`;; preload M0 with 0xa`
	`smb 0x3`
	`rmb 0x2`
	`smb 0x1`
	`rmb 0x0`
	`;;`
	`rc`
	`clra`
	`aisc 0x5`
	`;; test /(a5) + m10 + c0`
	`casc`
	`jmp fail`
	`skc`
	`jmp fail`
	`;; expect 0x4 as result`
	`aisc 0x6`
	`ske`
	`jmp fail`

	`;; preload M0 with 0xf`
	`smb 0x3`
	`smb 0x2`
	`smb 0x1`
	`smb 0x0`
	`;;`
	`sc`
	`clra`
	`;; test /(a0) + m15 + c1`
	`casc`
	`jmp fail`
	`skc`
	`jmp fail`
	`;; expect 0xf as result`
`ske`	`ske`
`jmp fail`	`jmp fail`


`jmp pass`	`jmp pass`

Browse

Tools

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [black_box/] [casc/] [test.asm] - Diff between revs 2 and 23