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

Subversion Repositories wb_z80

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

Rev 32	Rev 36
Line 5822...	Line 5822...
`jr z,in_40`	`jr z,in_40`
`inc_error_cnt`	`inc_error_cnt`
`in_40: dec hl`	`in_40: dec hl`
`ld a,(hl)`	`ld a,(hl)`
`cp a,data_aa`	`cp a,data_aa`
	`jr z,in_41`
	`inc_error_cnt`
	`; 10,09,2007 Test for Howard Hart's IN bug`
	`in_41: ld hl, t_var1`
	`ld a, #34 ; something not in the input sequencer`
	`in a,(in_port)`
	`ld (hl), a ; 10/12/2007 previously this instruction got skipped`
	`ld a, #34`
	`ld a,(hl)`
	`cp a,data_7f`
`jr z,ldi_0`	`jr z,ldi_0`
`inc_error_cnt`	`inc_error_cnt`
`ldi_0: ld hl,t_var1`	`ldi_0: ld hl,t_var1`
`ld a,#12 ;bjp was >data_1234`	`ld a,#12 ;bjp was >data_1234`
`ld (hl),a`	`ld (hl),a`