annotate 3rdparty/drivers/disto/cc3disk_sc2_irq.asm @ 401:bc2fb1daef5d

Added disto's no halt floppy controller drivers.
author tlindner
date Wed, 28 Aug 2002 04:58:36 +0000
parents 15d9dbd6a0e4
children ecc14d6a24af
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
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
378 L02C8 oim #$02,<u0004
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
379 nega
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
380 L02CC pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
381 ldb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
382 bra L030A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
383 L02D3 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
384 bcs L032D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
385 ldd u0005,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
386 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
387 lda u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
388 beq L02E6
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
389 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
390 ora #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
391 sta u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
392 L02E6 lda <$23,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
393 bita #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
394 bne L02EE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
395 incb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
396 L02EE stb >$FF4A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
397 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
398 ldb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
399 lda <$10,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
400 lsra
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
401 eora <$24,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
402 anda #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
403 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
404 lda $01,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
405 tst ,s+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
406 beq L030A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
407 lsla
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
408 lslb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
409 L030A stb >$FF49
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
410 tst u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
411 bne L0318
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
412 ldb ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
413 cmpb <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
414 beq L0324
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
415 L0318 sta >$FF4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
416 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
417 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
418 eorb #$1B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
419 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
420 L0324 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
421 sta <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
422 sta >$FF49
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
423 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
424 L032D rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
425 L032E lda #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
426 lbsr L01B8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
427 lda >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
428 clr >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
429 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
430 L033A clr <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
431 inc <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
432 L0340 rol <u0012,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
433 bpl L0340
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
434 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
435 L0346 pshs x,b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
436 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
437 bcs L036E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
438 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
439 clr <$15,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
440 lda #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
441 L0355 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
442 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
443 eorb #$4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
444 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
445 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
446 puls a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
447 deca
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
448 bne L0355
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
449 ldb <$22,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
450 andb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
451 eorb #$0B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
452 bsr L032E
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
453 L036E puls pc,x,b
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
454 L0370 leau >u00A7,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
455 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
456 ldb $02,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
457 cmpb #$04
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
458 beq L0384
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
459 cmpb #$03
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
460 beq L0346
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
461 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
462 ldb #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
463 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
464 L0384 pshs u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
465 ldd #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
466 os9 F$SRqMem
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
467 lbcs L03E2
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
468 ldx $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
469 stu <$13,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
470 ldx <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
471 lda $06,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
472 ldb $D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
473 ldy ,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
474 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
475 ldx $04,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
476 ldy #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
477 os9 F$Move
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
478 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
479 puls u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
480 pshs u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
481 lbsr L02A5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
482 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
483 ldx $06,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
484 ldb $07,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
485 bitb #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
486 beq L03C4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
487 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
488 ora #$40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
489 sta u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
490 sta u0007,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
491 L03C4 lda $09,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
492 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
493 lbsr L02CC
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
494 bcs L03D3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
495 ldx <u0013,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
496 bsr L03E4
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
497 L03D3 ldu $02,s
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
498 pshs b,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
499 ldu <u0013,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
500 ldd #$1A00
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
501 os9 F$SRtMem
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
502 puls b,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
503 L03E2 puls pc,u,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
504 L03E4 pshs y,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
505 orcc #$50
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
506 ldb #$F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
507 stb >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
508 ldy #$FFFF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
509 ldb #$28
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
510 orb u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
511 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
512 orb #$A8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
513 lda #$02
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
514 lbsr L033A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
515 L03FF bita >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
516 bne L041A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
517 leay -$01,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
518 bne L03FF
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
519 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
520 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
521 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
522 lda #$D0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
523 sta >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
524 puls y,cc
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
525 comb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
526 ldb #$F5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
527 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
528 L041A lda ,x+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
529 sta >$FF4B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
530 stb >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
531 bra L041A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
532 L0424 pshs b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
533 ldd <u0050
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
534 cmpd <u004A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
535 puls b,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
536 beq L0433
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
537 os9 F$Sleep
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
538 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
539 L0433 ldx #$A000
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
540 L0436 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 nop
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
543 leax -$01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
544 bne L0436
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
545 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
546 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
547 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
548 std u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
549 lda u0001,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
550 ora #$08
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
551 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
552 ldx #$0028
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
553 lda <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
554 bmi L046B
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
555 beq L0469
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
556 tst u0002,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
557 beq L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
558 lda <$23,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
559 bita #$10
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
560 beq L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
561 bsr L0424
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
562 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
563 std u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
564 bra L046D
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
565 L0469 bsr L0424
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
566 L046B bsr L0470
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
567 L046D clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
568 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
569 L0470 lda #$01
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
570 sta <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
571 ldx #$0001
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
572 leay u000A,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
573 clr $04,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
574 ldd #$00F0
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
575 os9 F$VIRQ
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
576 bcc L0487
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
577 lda #$80
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
578 sta <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
579 L0487 clra
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
580 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
581 L0489 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
582 lda >-u00A2,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
583 beq L049F
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
584 ldb #$0C
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
585 stb >nh_data
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
586 lda #$D8
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
587 sta >$FF48
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
588 clr u0004,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
589 bra L04A3
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
590 L049F lda <u008A
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
591 beq L04A7
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
592 L04A3 bsr L0470
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
593 bra L04AE
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
594 L04A7 sta >$FF40
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
595 clr u000E,u
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
596 clr <u0032
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
597 L04AE puls pc,a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
598 L04B0 ldx <$1E,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
599 ldb #$14
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
600 L04B5 clr b,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
601 decb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
602 bpl L04B5
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
603 ldb <$26,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
604 lda <$27,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
605 mul
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
606 subd #$0001
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
607 lda <$2A,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
608 sta $03,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
609 sta <$12,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
610 mul
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
611 addd <$2B,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
612 std $01,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
613 lda #$07
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
614 sta $0D,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
615 lda <$24,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
616 lsla
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
617 pshs a
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
618 lda <$27,y
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
619 deca
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
620 ora ,s+
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
621 sta <$10,x
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
622 clrb
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
623 rts
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
624 emod
15d9dbd6a0e4 Added IRQ and sleep versions of Disto's no halt floppy controller's drvier.
tlindner
parents:
diff changeset
625 eom equ *