.text; .even; .globl _ReadExpansionByte

_ReadExpansionByte:
	movel a6,sp@-
	movel a4@(_ExpansionBase:W),a6
	movel sp@(8),a0
	movel sp@(12),d0
#APP
	jsr a6@(-0x60)
#NO_APP
	andl #0xFF,d0
	movel sp@+,a6
	rts