Mercurial > hg > Members > kono > nitros9-code
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 |
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 | 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 * |