paulba@tekgvs.UUCP (Paul Barton) (03/12/84)
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