Digital I/O Wildcard User Guide

HEX
4 USE.PAGE		\ Initialize the memory map.
15 WIDTH !		\ Avoid non-unique names.
ANEW DIO.CODE		\ Forget marker for easy re-loading.

C005	CONSTANT	DIRECTION_REGISTER

1	CONSTANT	NIBBLE_0	\ Lines 0-3
2	CONSTANT	NIBBLE_1	\ Lines 4-7
4	CONSTANT	NIBBLE_2	\ Lines 8-11
8	CONSTANT	NIBBLE_3	\ Lines 12-15

1	CONSTANT	OUTPUT
0	CONSTANT	INPUT

: Init_IO_Direction ( byte1\u\byte2 -- )
\ byte1 = module number, byte2 = nibble, byte3 = direction
\ Valid module numbers are 0-7. Valid nibbles are NIBBLE_0 to NIBBLE_3
\ Valid directions are INPUT or OUTPUT.
\ --------------------------------------------------------------------------
\ The module number depends on the module select jumpers. See Table 1 for
\ the jumper settings and associated addresses.
\ --------------------------------------------------------------------------
\ No error checking is done on the input parameters!
\ --------------------------------------------------------------------------
\ This routine initializes the direction of a nibble of I/O lines on the Digital I/O Wildcard.

locals{ &direction &nibble &module }

&direction
IF
&nibble DIRECTION_REGISTER &module SET.BITS \ set nibble as output
ELSE
&nibble DIRECTION_REGISTER &module CLEAR.BITS \ set nibble as input
ENDIF
;