annotate 3rdparty/drivers/disto/cc3disk_sc2_irq.asm @ 1366:770c350f4c15

More changes
author boisy
date Fri, 26 Sep 2003 12:43:30 +0000
parents ecc14d6a24af
children b8c7b7fbf3c9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
400
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
1 ********************************************************************
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
2 * CC3Disk - Disto No Halt Super Controller II disk driver
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
3 *
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
4 * This driver their interrupt driven driver. It is a no halt
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
5 * (multitasking) disk driver that uses interrupts. Care must be
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
6 * taken that no other hardware will conflict.
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
7 *
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
8 * $Id$
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
9 *
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
10 * Ed. Comments Who YY/MM/DD
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
11 * ------------------------------------------------------------------
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
12 * 02 Fist disassembled tjl 02/08/27
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
13
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
14 nam CC3Disk
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
15 ttl os9 device driver
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
16
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
17 * Disassembled 02/08/27 11:42:37 by Disasm v1.6 (C) 1988 by RML
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
18
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
19 * Disto's Super Controller II supports two locations for its
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
20 * registers: $FF74 and $FF58
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
21
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
22 nh_base equ $FF74
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
23 nh_stat equ nh_base
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
24 nh_data equ nh_base+2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
25
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
26 ifp1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
27 use os9defs
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
28 endc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
29 tylg set Drivr+Objct
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
30 atrv set ReEnt+rev
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
31 rev set $02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
32 mod eom,name,tylg,atrv,start,size
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
33 u0000 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
34 u0001 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
35 u0002 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
36 u0003 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
37 u0004 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
38 u0005 rmb 2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
39 u0007 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
40 u0008 rmb 2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
41 u000A rmb 4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
42 u000E rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
43 u000F rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
44 u0010 rmb 2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
45 u0012 rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
46 u0013 rmb 31
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
47 u0032 rmb 24
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
48 u004A rmb 6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
49 u0050 rmb 48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
50 u0080 rmb 10
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
51 u008A rmb 8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
52 u0092 rmb 16
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
53 u00A2 rmb 5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
54 u00A7 rmb 8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
55 u00AF rmb 2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
56 u00B1 rmb 11
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
57 u00BC rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
58 u00BD rmb 1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
59 size equ .
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
60 fcb $FF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
61 name equ *
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
62 fcs /CC3Disk/
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
63 fcb $A3 #
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
64 start equ *
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
65 lbra L0046
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
66 lbra L00BF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
67 lbra L013B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
68 lbra L00BC
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
69 lbra L0370
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
70 leay >u00B1,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
71 ldx #$0000
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
72 os9 F$VIRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
73 os9 F$IRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
74 ldy #nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
75 os9 F$IRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
76 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
77 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
78 stb <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
79 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
80 L0040 fcb $00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
81 fcb $01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
82 fcb $09
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
83 L0043 fcb $80 suba #$80 This doesn't make sense.
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
84 fcb $80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
85 fcb $10 fcb $10
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
86 L0046 clr >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
87 clr <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
88 ldx #$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
89 lda #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
90 sta ,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
91 lbsr L033A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
92 lda ,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
93 lda #$FF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
94 sta >u00A7,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
95 ldb #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
96 leax u000F,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
97 L0061 sta ,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
98 sta <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
99 leax <$26,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
100 decb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
101 bne L0061
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
102 leax >L023C,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
103 stx $FC
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
104 pshs u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
105 leau >u00A7,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
106 leay u000E,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
107 tfr y,d
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
108 leay >L0489,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
109 leax >L0040,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
110 os9 F$IRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
111 puls u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
112 bcs L00BD
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
113 lda >$FF7F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
114 sta >u00BC,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
115 ldd #nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
116 leay >L01F7,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
117 leax >L0043,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
118 os9 F$IRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
119 bcs L00BD
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
120 pshs cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
121 orcc #$50
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
122 lda >$FF23
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
123 anda #$FC
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
124 sta >$FF23
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
125 lda >$FF22
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
126 lda <u0092
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
127 ora #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
128 sta <u0092
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
129 sta >$FF92
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
130 puls cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
131 L00BC clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
132 L00BD rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
133 L00BE rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
134 L00BF lbsr L0263
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
135 clr u0003,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
136 ldd <u0010,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
137 bne L0113
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
138 bsr L0113
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
139 bcs L00BE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
140 lda <$23,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
141 bita #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
142 lbne L04B0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
143 ldx $08,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
144 pshs y,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
145 ldy <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
146 ldb #$14
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
147 L00E0 lda b,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
148 sta b,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
149 decb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
150 bpl L00E0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
151 lda <$10,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
152 ldy $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
153 ldb <$24,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
154 bita #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
155 beq L00F8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
156 bitb #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
157 beq L010E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
158 L00F8 bita #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
159 beq L0100
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
160 bitb #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
161 beq L010E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
162 L0100 bita #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
163 beq L010B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
164 lda <$27,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
165 suba #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
166 bcs L010E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
167 L010B clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
168 puls pc,y,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
169 L010E comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
170 ldb #$F9
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
171 puls pc,y,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
172 L0113 lbsr L02D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
173 bcs L00BE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
174 ldb #$80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
175 lda #$07
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
176 lbsr L0199
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
177 lbcs L025F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
178 ldx $08,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
179 ldb #$80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
180 tst u0003,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
181 bne L0138
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
182 pshs b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
183 L012D ldd >nh_stat
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
184 std ,x++
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
185 dec ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
186 bne L012D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
187 puls b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
188 L0138 andcc #$FE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
189 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
190 L013B lbsr L0263
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
191 L013E bsr L014D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
192 bcs L014C
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
193 tst <$28,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
194 bne L014B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
195 bsr L0171
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
196 bcs L013E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
197 L014B clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
198 L014C rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
199 L014D lbsr L02D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
200 bcs L014C
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
201 ldx $08,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
202 lda #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
203 sta >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
204 ldb #$80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
205 pshs b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
206 L015D ldd ,x++
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
207 std >nh_stat
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
208 dec ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
209 bne L015D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
210 puls b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
211 ldb #$A0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
212 lda #$06
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
213 bsr L0199
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
214 lbra L0240
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
215 L0171 lda u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
216 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
217 clr u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
218 lda #$FF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
219 sta u0003,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
220 lbsr L0113
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
221 bcs L0194
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
222 pshs b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
223 L0182 ldd >nh_stat
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
224 cmpd ,x++
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
225 bne L0190
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
226 dec ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
227 bne L0182
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
228 bra L0192
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
229 L0190 orcc #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
230 L0192 puls b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
231 L0194 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
232 sta u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
233 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
234 L0199 std u0008,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
235 L019B ldd u0008,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
236 bsr L01B8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
237 lbsr L0240
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
238 bcc L01B7
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
239 lda >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
240 bita #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
241 bne L01B6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
242 lsr u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
243 beq L01B6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
244 bcc L019B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
245 lbsr L0346
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
246 bra L019B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
247 L01B6 coma
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
248 L01B7 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
249 L01B8 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
250 lda <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
251 sta >-u00A2,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
252 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
253 stb >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
254 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
255 sta >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
256 ldb #$28
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
257 orb u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
258 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
259 pshs x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
260 bra L01E5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
261 L01D5 ldx <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
262 lda $0C,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
263 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
264 sta $0C,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
265 andcc #$AF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
266 ldx #$0001
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
267 lbsr L0424
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
268 L01E5 orcc #$50
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
269 lda >-u00A2,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
270 bne L01D5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
271 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
272 ldb #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
273 stb >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
274 andcc #$AF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
275 puls pc,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
276 L01F7 lda u0005,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
277 beq L0233
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
278 ldb >$FF7F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
279 stb >u00BD,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
280 ldb >u00BC,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
281 stb >$FF7F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
282 ldb #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
283 stb >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
284 ldb #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
285 stb >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
286 ldb <u00AF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
287 andb #$FE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
288 stb <u00AF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
289 ldb <u0092
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
290 andb #$FE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
291 stb >$FF92
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
292 orb #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
293 stb >$FF92
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
294 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
295 stb u0005,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
296 tfr d,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
297 lda $0C,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
298 anda #$F7
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
299 sta $0C,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
300 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
301 bra L0234
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
302 L0233 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
303 L0234 lda >u00BD,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
304 sta >$FF7F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
305 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
306 L023C leas $0C,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
307 puls y,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
308 L0240 ldb >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
309 clr >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
310 andb #$F8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
311 beq L0258
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
312 pshs x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
313 leax <L0259,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
314 L024F leax $01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
315 rolb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
316 bcc L024F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
317 ldb ,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
318 puls pc,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
319 L0258 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
320 L0259 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
321 fcb $F6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
322 fcb $F2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
323 fcb $F5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
324 fcb $F7
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
325 fcb $F3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
326 L025F comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
327 ldb #$F4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
328 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
329 L0263 leau >u00A7,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
330 clr u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
331 lda #$91
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
332 sta u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
333 tstb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
334 bne L027F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
335 tfr x,d
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
336 std <u0010,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
337 beq L02A1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
338 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
339 cmpd $01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
340 bcs L0285
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
341 L027F comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
342 ldb #$F1
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
343 leas $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
344 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
345 L0285 clr ,-s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
346 bra L028B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
347 L0289 inc ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
348 L028B subd <$11,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
349 bcc L0289
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
350 addd <$11,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
351 lda <$10,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
352 lsra
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
353 bcc L029F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
354 lsr ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
355 bcc L029F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
356 inc u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
357 L029F puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
358 L02A1 std u0005,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
359 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
360 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
361 L02A5 clr u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
362 lda <$21,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
363 cmpa #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
364 bcs L02B2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
365 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
366 ldb #$F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
367 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
368 L02B2 pshs x,b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
369 cmpa ,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
370 beq L02BA
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
371 com u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
372 L02BA sta ,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
373 leax <L02C8,pcr
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
374 ldb a,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
375 stb u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
376 lbsr L043E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
377 puls pc,x,b,a
678
ecc14d6a24af Cleaned up sources a little
boisy
parents: 400
diff changeset
378 L02C8 fcb $01,$02,$04,$40
400
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
379 L02CC pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
380 ldb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
381 bra L030A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
382 L02D3 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
383 bcs L032D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
384 ldd u0005,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
385 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
386 lda u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
387 beq L02E6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
388 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
389 ora #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
390 sta u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
391 L02E6 lda <$23,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
392 bita #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
393 bne L02EE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
394 incb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
395 L02EE stb >$FF4A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
396 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
397 ldb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
398 lda <$10,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
399 lsra
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
400 eora <$24,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
401 anda #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
402 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
403 lda $01,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
404 tst ,s+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
405 beq L030A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
406 lsla
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
407 lslb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
408 L030A stb >$FF49
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
409 tst u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
410 bne L0318
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
411 ldb ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
412 cmpb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
413 beq L0324
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
414 L0318 sta >$FF4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
415 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
416 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
417 eorb #$1B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
418 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
419 L0324 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
420 sta <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
421 sta >$FF49
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
422 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
423 L032D rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
424 L032E lda #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
425 lbsr L01B8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
426 lda >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
427 clr >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
428 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
429 L033A clr <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
430 inc <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
431 L0340 rol <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
432 bpl L0340
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
433 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
434 L0346 pshs x,b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
435 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
436 bcs L036E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
437 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
438 clr <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
439 lda #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
440 L0355 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
441 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
442 eorb #$4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
443 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
444 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
445 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
446 deca
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
447 bne L0355
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
448 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
449 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
450 eorb #$0B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
451 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
452 L036E puls pc,x,b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
453 L0370 leau >u00A7,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
454 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
455 ldb $02,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
456 cmpb #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
457 beq L0384
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
458 cmpb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
459 beq L0346
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
460 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
461 ldb #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
462 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
463 L0384 pshs u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
464 ldd #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
465 os9 F$SRqMem
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
466 lbcs L03E2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
467 ldx $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
468 stu <$13,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
469 ldx <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
470 lda $06,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
471 ldb $D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
472 ldy ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
473 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
474 ldx $04,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
475 ldy #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
476 os9 F$Move
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
477 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
478 puls u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
479 pshs u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
480 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
481 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
482 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
483 ldb $07,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
484 bitb #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
485 beq L03C4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
486 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
487 ora #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
488 sta u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
489 sta u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
490 L03C4 lda $09,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
491 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
492 lbsr L02CC
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
493 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
494 ldx <u0013,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
495 bsr L03E4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
496 L03D3 ldu $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
497 pshs b,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
498 ldu <u0013,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
499 ldd #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
500 os9 F$SRtMem
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
501 puls b,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
502 L03E2 puls pc,u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
503 L03E4 pshs y,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
504 orcc #$50
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
505 ldb #$F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
506 stb >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
507 ldy #$FFFF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
508 ldb #$28
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
509 orb u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
510 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
511 orb #$A8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
512 lda #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
513 lbsr L033A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
514 L03FF bita >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
515 bne L041A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
516 leay -$01,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
517 bne L03FF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
518 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
519 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
520 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
521 lda #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
522 sta >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
523 puls y,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
524 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
525 ldb #$F5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
526 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
527 L041A lda ,x+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
528 sta >$FF4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
529 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
530 bra L041A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
531 L0424 pshs b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
532 ldd <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
533 cmpd <u004A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
534 puls b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
535 beq L0433
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
536 os9 F$Sleep
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
537 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
538 L0433 ldx #$A000
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
539 L0436 nop
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
540 nop
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
541 nop
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
542 leax -$01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
543 bne L0436
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
544 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
545 L043E pshs y,x,b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
546 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
547 std u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
548 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
549 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
550 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
551 ldx #$0028
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
552 lda <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
553 bmi L046B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
554 beq L0469
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
555 tst u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
556 beq L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
557 lda <$23,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
558 bita #$10
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
559 beq L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
560 bsr L0424
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
561 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
562 std u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
563 bra L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
564 L0469 bsr L0424
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
565 L046B bsr L0470
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
566 L046D clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
567 puls pc,y,x,b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
568 L0470 lda #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
569 sta <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
570 ldx #$0001
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
571 leay u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
572 clr $04,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
573 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
574 os9 F$VIRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
575 bcc L0487
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
576 lda #$80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
577 sta <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
578 L0487 clra
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
579 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
580 L0489 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
581 lda >-u00A2,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
582 beq L049F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
583 ldb #$0C
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
584 stb >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
585 lda #$D8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
586 sta >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
587 clr u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
588 bra L04A3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
589 L049F lda <u008A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
590 beq L04A7
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
591 L04A3 bsr L0470
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
592 bra L04AE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
593 L04A7 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
594 clr u000E,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
595 clr <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
596 L04AE puls pc,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
597 L04B0 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
598 ldb #$14
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
599 L04B5 clr b,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
600 decb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
601 bpl L04B5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
602 ldb <$26,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
603 lda <$27,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
604 mul
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
605 subd #$0001
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
606 lda <$2A,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
607 sta $03,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
608 sta <$12,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
609 mul
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
610 addd <$2B,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
611 std $01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
612 lda #$07
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
613 sta $0D,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
614 lda <$24,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
615 lsla
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
616 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
617 lda <$27,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
618 deca
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
619 ora ,s+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
620 sta <$10,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
621 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
622 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
623 emod
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
624 eom equ *