Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 (Tek) 9/26/83; site tekgvs.UUCP
Path: utzoo!watmath!clyde!floyd!vax135!cornell!uw-beaver!tektronix!tekchips!tekgvs!paulba
From: paulba@tekgvs.UUCP (Paul Barton)
Newsgroups: net.micro.6809
Subject: More than standard tracks ...
Message-ID: <36@tekgvs.UUCP>
Date: Mon, 12-Mar-84 13:15:10 EST
Article-I.D.: tekgvs.36
Posted: Mon Mar 12 13:15:10 1984
Date-Received: Wed, 14-Mar-84 09:13:35 EST
Organization: Tektronix, Beaverton OR
Lines: 37


Here is a way to specify more than 36 tracks for coco drives ...

         FFDF       allram equ   $FFDF
         FFDE       ramrom equ   $FFDE
         D572       pat1   equ   $D572    * for dskini
         D595       pat2   equ   $D595    * for dskini
         D446       pat3   equ   $D446    * for dski, dsko
           26       traks  equ   38       * two more tracks
                    * My (Mark's) RS drive won't work if i specify 40
                    * maybe yours will
                    *
0000 1A50           begin  orcc  #$50      * disable interrupts
0002 CE8000                ldu   #$8000
0005 B7FFDE         loop   sta   ramrom
0008 ECC4                  ldd   ,u
000A B7FFDF                sta   allram
000D EDC1                  std   ,u++
000F 1183F000              cmpu  #$F000
0013 23F0                  bls   loop
                    *
                    * Basic is now in ram
                    * Now do patches
                    *
0015 8626                  lda   #traks
0017 B7D572                sta   pat1
001A B7D595                sta   pat2
001D 4A                    deca
001E B7D446                sta   pat3
0021 1CAF                  andcc #$AF
0023 39                    rts
            0              end   begin

			sent for Mark Kimball
			by       Paul T. Barton
			         paulba@tektronix