Mercurial > hg > Members > kono > nitros9-code

view level1/modules/dwinit.asm @ 2705:79d307ddf47f lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wrapped around IFNDEF
author Boisy Pitre <boisy.pitre@nuance.com>
date Fri, 20 Jul 2012 16:14:05 -0500
parents 2a37d4530972
children ce3dba57003b
line wrap: on
line source

*******************************************************
*
* DWInit
*    Initialize DriveWire for CoCo Bit Banger

DWInit
			pshs		a,x
	ifdef PIA1Base
               ldx       #PIA1Base           $FF20
               clr       1,x                 clear CD
               lda       #%11111110
               sta       ,x
               lda       #%00110100
               sta       1,x
               lda       ,x
	endc
               puls		a,x,pc