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

Subversion Repositories wb_z80

[/] [wb_z80/] [trunk/] [asm/] [BJS80TST.ASM] - Diff between revs 30 and 32

Rev 30	Rev 32
Line 1047...	Line 1047...
`cp l`	`cp l`
`jr z,push_20`	`jr z,push_20`
`inc_error_cnt`	`inc_error_cnt`
`push_20: ld sp,stack_end`	`push_20: ld sp,stack_end`
`ex_0: ld de,data_1234`	`ex_0: ld de,data_1234`
`ld hl,data_ffff`	`ld hl,data_55aa ; 10/2/2007 was ffff need to check all bytes (missed a bug)`
`ex de,hl`	`ex de,hl`
`ld a,data_ff`	`ld a,data_55`
`cp d`	`cp d`
`jr z,ex_1`	`jr z,ex_1`
`inc_error_cnt`	`inc_error_cnt`
`ex_1: cp e`	`ex_1: ld a,data_aa`
	`cp e`
`jr z,ex_2`	`jr z,ex_2`
`inc_error_cnt`	`inc_error_cnt`
`ex_2: ld a,#12 ;bjp was >data_1234`	`ex_2: ld a,#12 ;bjp was >data_1234`
`cp h`	`cp h`
`jr z,ex_3`	`jr z,ex_3`
Line 6092...	Line 6093...
`cpdr`	`cpdr`
`jp po,cpdr_9`	`jp po,cpdr_9`
`inc_error_cnt`	`inc_error_cnt`
`cpdr_9: jr nz,cpdr_10`	`cpdr_9: jr nz,cpdr_10`
`inc_error_cnt`	`inc_error_cnt`
`cpdr_10: jp m,out_0`	`cpdr_10: jp m,c_ret_f`
`inc_error_cnt`	`inc_error_cnt`

	`;add a test for the Stephen Warren bug`
	`; first cut didn't do it. Lots of insts actually work. Gotta be something`
	`; basically executed from ir1 - like push`
	`c_ret_f: di`
	`ld de, #1122`
	`push de`
	`pop af`
	`ld hl, 0xaa55`
	`ld a,7`
	`cp 0`
	`ret z`
	`push hl`
	`pop af`
	`cp a, data_aa`
	`jp z, out_0`
	`inc_error_cnt`



`;`	`;`
`;the file portfe.xxx must be examined to see if the proper output is generated`	`;the file portfe.xxx must be examined to see if the proper output is generated`
`;`	`;`
`out_0: di ; interrupts are tested, don't muck up output`	`out_0: di ; interrupts are tested, don't muck up output`
`ld a,#30`	`ld a,#30`