Mercurial > hg > Members > kono > nitros9-code

view level1/modules/dwinit.asm @ 3132:9bb0c42d9fc6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename remaining Makefiles to makefile for consistency
author Neal Crook <foofoobedoo@gmail.com>
date Fri, 13 Jan 2017 19:52:26 +0000
parents ce3dba57003b
children c505ae3120c4
line wrap: on
line source

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

DWInit
               IFNE     ARDUINO

* setup PIA PORTA (read)
               clr       $FF51
               clr       $FF50
               lda       #$2C
               sta       $FF51

* setup PIA PORTB (write)
               clr       $FF53
               lda       #$FF
               sta       $FF52
               lda       #$2C
               sta       $FF53
               rts

               ELSE

               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

               ENDC