[8]?
?
Example?Initialization?Program?
?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?
Sub?Command?
?Reset?P3.7?
?Reset?P3.4?
?For?Writecount?=?1?To?8?
??Rotate?A?,?Left?,?1?
??Reset?P3.1?
??P1?=?A?
??Set?P3.1?
?Next?Writecount?
?Set?P3.7?
End?Sub?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?
Sub?Write?
?Reset?P3.7?
?Set?P3.4?
?For?Writecount?=?1?To?8?
??Rotate?A?,?Left?,?1?
??Reset?P3.1?
??P1?=?A?
??Set?P3.1?
?Next?Writecount?
?Set?P3.7?
End?Sub?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?
Sub?Init?
?Waitms?100?
?A?=?&HA0?
?Call?Command?
?A?=?&HAE?
?Call?Command?
?A?=?&HC0?
?Call?Command?
?A?=?&HA2?
?Call?Command?
?A?=?&H2F?
?Call?Command?
?A?=?&H26?
?Call?Command?
?A?=?&H81?
?Call?Command?
?A?=?&H11?
?Call?Command?
?A?=?&HAF?
?Call?Command?
End?Sub?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?
?
?
?
?
?
?