Home Page Forums MAME MAME 8bit Apples - Apple I, II, /// and the 16 bit GS

c800: 48        pha
c801: a9 00     lda #$00
c803: 99 88 c0  sta $c088, y

0000-07ff is bank 00
0800-0fff is bank 80
1000-17ff is bank 40
1800-1fff is bank c0
2000-27ff is bank 20
2800-2fff is bank a0
3000-37ff is bank 60
3800-3fff is bank e0

reading from cffc will tell you the current bank:

hexdump fingerprint_gplus_27c128.u1 | grep "000.[7f]f0"

00007f0 c080 eaea 80ad 9903 c088 ff60 ff00 0fff    <=== bank = 00
0000ff0 c080 eaea 80ad 9903 c088 ff60 ff80 0fff    <=== bank = 80
00017f0 c080 eaea 80ad 9903 c088 ff60 ff40 0fff    <=== bank = 40
0001ff0 c080 eaea 80ad 9903 c088 ff60 ffc0 0fff
00027f0 c080 eaea 80ad 9903 c088 ff60 ff20 0fff
0002ff0 c080 eaea 80ad 9903 c088 ff60 ffa0 0fff
00037f0 c080 eaea 80ad 9903 c088 ff60 ff60 0fff
0003ff0 c080 eaea 80ad 9903 c088 ff60 ffe0 0fff    

bit 7 is +800         8
bit 6 is +1000        4
bit 5 is +2000        2        

ROM_START(fingerprint_gplus_rom)
	ROM_REGION(0x4000, "prom", 0)
	ROM_LOAD( "fingerprint_gplus_27c128.u1", 0x0000, 0x4000, CRC(90bdec85) SHA1(7218016ad00b2d65a3ff473b6950d1e6e047f717) )
ROM_END


void a2bus_fingerprint_gplus_device::write_c0nx(u8 offset, u8 data)
{

	switch (offset)
	{
...		
	case 8U:
		bank_base_address = (data & 0x80 ? 0x800 : 0) + (data & 0x40 ? 0x1000 : 0) + (data & 0x20 ? 0x2000 : 0);
		printf("bank base address = %x\n",bank_base_address);
	}
}

uint8_t a2bus_fingerprint_gplus_device::read_c800(uint16_t offset)
{
	return m_prom[offset + bank_base_address];
}

d71c: a2 c7     ldx #$c7      c7 is slot address
d71e: a0 70     ldy #$70     70 is slot offset
d720: 84 26     sty $26
d722: 8e f8 07  stx $07f8
d725: a9 00     lda #$00
d727: 8d ff cf  sta $cfff
d72a: 99 88 c0  sta $c088, y    reset the bank to zero

f = io.open("fingerprint_gplus_27c128.u1")  a=f:read("*a") print(a:len()) for i=0,a:len()-1 do c = a:byte(i+1) if (i%64 == 0) then print() io.write(string.format("%4x",i)..": ") end c = c % 128 if c>=32 and c<=126 then io.write(string.char(c)) else io.write(".") end if c==0x1b then io.write("ESC") end end print()

for j=0,6 do o0=0x3100 o1=0x3100 + j*0x100 for i=0,255 do if a:byte(i+1+o0) ~= a:byte(i+1+o1) then print(i,string.format("%x",i+o1),string.format("%x",a:byte(i+1+o0)),string.format("%x",a:byte(i+1+o1))) end end end
29	321d	c1	c2
31	321f	10	20
29	331d	c1	c3
31	331f	10	30
29	341d	c1	c4
31	341f	10	40
29	351d	c1	c5
31	351f	10	50
29	361d	c1	c6
31	361f	10	60
29	371d	c1	c7

> for j=0,6 do o0=0x3900 o1=0x3900 + j*0x100 for i=0,255 do if a:byte(i+1+o0) ~= a:byte(i+1+o1) then print(i,string.format("%x",i+o1),string.format("%x",a:byte(i+1+o0)),string.format("%x",a:byte(i+1+o1))) end end end
29	3a1d	c1	c2
31	3a1f	10	20
29	3b1d	c1	c3
31	3b1f	10	30
29	3c1d	c1	c4
31	3c1f	10	40
29	3d1d	c1	c5
31	3d1f	10	50
29	3e1d	c1	c6
31	3e1f	10	60
29	3f1d	c1	c7
31	3f1f	10	70

> for j=0,6 do o0=0x3100 o1=0x3900 + j*0x100 for i=0,255 do if a:byte(i+1+o0) ~= a:byte(i+1+o1) then print(i,string.format("%x",i+o1),string.format("%x",a:byte(i+1+o0)),string.format("%x",a:byte(i+1+o1))) end end end
129	3981	fe	27
131	3983	fe	0
193	39c1	fe	27
195	39c3	fe	0
29	3a1d	c1	c2
31	3a1f	10	20
129	3a81	fe	27
131	3a83	fe	0
193	3ac1	fe	27
195	3ac3	fe	0
29	3b1d	c1	c3
31	3b1f	10	30
129	3b81	fe	27
131	3b83	fe	0
193	3bc1	fe	27
195	3bc3	fe	0

u8 a2bus_fingerprint_gplus_device::read_cnxx(u8 offset)
{
	return m_prom[offset+0x3000+0x100*slotno()];
}

INPUT_PORTS_START(bufgrapplerplus)
        PORT_INCLUDE(grapplerplus)

        PORT_START("CNF")
        PORT_CONFNAME(0xff, 0x00, "RAM Size")
        PORT_CONFSETTING(   0xfc, "16K (2 chips)")
        PORT_CONFSETTING(   0xf0, "32K (4 chips)")
        PORT_CONFSETTING(   0x00, "64K (8 chips)")

        PORT_START("Reset")
        PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Reset") PORT_CODE(KEYCODE_DEL_PAD)
INPUT_PORTS_END



added this in device_add_mconfig:

 m_mcu->p2_in_cb().set(FUNC(a2bus_buf_grapplerplus_device::mcu_p2_r));



u8 a2bus_buf_grapplerplus_device::mcu_p2_r()
{
int   retval = (m_mcu_p2 & 0x7f) | 0x4 |  ((machine().time().as_double() < (2.0/60)) ? 0x0 : (ioport("Reset")->read() ? 0x80 : 0x0));    // bit 2 is always 1 since +5 I think

        printf("retval = %x     time=%f\n",retval,machine().time().as_double());

        return retval;

}

0:330: 0a     in   a,p2     get value of p2
0:331: f2 47  jb7  $347      bit 7 = reset    'reset active low so jump to 347 and set the flag if reset isn't pressed
0:333: ff     mov  a,r7     -- I think r6 and r5 are a "countdown timer"        <<<<< this should be  fe instead of ff  mov a,r6 since the jnz responds to the accumulator only
0:334: ce     dec  r6
0:335: 96 38  jnz  $338     test if r6 is nonzero
0:337: cd     dec  r5
0:338: fd     mov  a,r5
0:339: 4e     orl  a,r6
0:33a: 96 00  jnz  $300    if r5/r6 are nonzero then jump to refresh ram
0:33c: 0a     in   a,p2   (once we get here, we keep spinning until the reset button is released)
0:33d: f2 41  jb7  $341
0:33f: 64 3c  jmp  $33C      -- spin again
0:341: 76 4f  jf1  $34F   -- flag1 set, jump to 34f
0:343: c5     sel  rb0
0:344: 34 8e  call $18E     self test
0:346: d5     sel  rb1
0:347: a5     clr  f1
0:348: b5     cpl  f1                   set f1