Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/boot_1773.asm @ 1575:8cc9bf35384f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
term renamed
author boisy
date Tue, 18 May 2004 02:57:00 +0000
parents d669aab7d6d8
children 1e026af2217c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
1 ********************************************************************
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
2 * Boot - WD1773 Boot module
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
3 *
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
4 * $Id$
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
5 *
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
7 * Comment
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
8 * ------------------------------------------------------------------
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
9 * 4 1985/??/??
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
10 * Original Tandy distribution version.
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
11 *
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
12 * 6 1998/10/12 Boisy G. Pitre
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
13 * Obtained from L2 Upgrade archive, has 6ms step rate and disk timeout
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
14 * changes.
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
15 *
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
16 * 6r2 2003/05/18 Boisy G. Pitre
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
17 * Added '.' output for each sector for OS-9 L2 and NitrOS9 for
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
18 * Mark Marlette (a special request :).
1291
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
19 *
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
20 * 6r3 2003/08/31 Robert Gault
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
21 * Put BLOB-stop code in place, changed orb #$30 to orb #$28
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
22 *
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
23 * 6r4 2004/02/17 Rodney Hamilton
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
24 * Minor optimizations, improvements in source comments
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
25
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
26 nam Boot
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
27 ttl WD1773 Boot module
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
29 IFP1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 use defsfile
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
31 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
33 * FDC Control Register bits at $FF40
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
34 HALTENA equ %10000000
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
35 SIDESEL equ %01000000 DRVSEL3 if no DS drives
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
36 DDEN equ %00100000
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
37 READY equ %00010000 READY for Tandy WD1773-based controllers
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
38 MOTON equ %00001000
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
39 DRVSEL2 equ %00000100
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
40 DRVSEL1 equ %00000010
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
41 DRVSEL0 equ %00000001
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
42
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
43 * Default Boot Drive is /d0
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
44 BootDr set DRVSEL0
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
45
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
46 * WD17x3 DPort offsets
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
47 CONTROL equ 0
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
48 CMDREG equ 8+0 write-only
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
49 STATREG equ CMDREG read-only
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
50 TRACKREG equ 8+1
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
51 SECTREG equ 8+2
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
52 DATAREG equ 8+3
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
53
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
54 * Sector Size
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
55 SECTSIZE equ 256
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
56
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
57 * Step Rates:
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
58 * $00 = 6ms
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
59 * $01 = 12ms
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
60 * $02 = 20ms
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
61 * $03 = 30ms
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 1166
diff changeset
62 STEP set $00
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
63
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
64 tylg set Systm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 atrv set ReEnt+rev
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
66 rev set $04
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
67 edition set 6
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
68
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 mod eom,name,tylg,atrv,start,size
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
70
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
71 * NOTE: these are U-stack offsets, not DP
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
72 drvsel rmb 1
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
73 buffptr rmb 2
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
74 currtrak rmb 1
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
75 *ddfmt rmb 1
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
76 ddtks rmb 1 no. of sectors per track
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
77 *ddtot rmb 1
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
78 dblsided rmb 1
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
79 side rmb 1 side 2 flag
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 name fcs /Boot/
230
3d2fa54fe8fb Source changes
boisy
parents: 210
diff changeset
83 fcb edition
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
85 start clra clear A
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
86 ldb #size get our 'stack' size
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
87 MakeStak pshs a save 0 on stack
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
88 decb and continue...
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
89 bne MakeStak until we've created our stack
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
91 tfr s,u put 'stack statics' in U
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
92 * ldx #DPort
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
93 lda #%11010000 ($D0) Force Interrupt (stops any command in progress)
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
94 sta >DPort+CMDREG write command to command register
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
95 * sta CMDREG,x write command to command register
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
96 lbsr Delay2 delay 54~
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
97 lda >DPort+STATREG clear status register
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
98 * lda STATREG,x read status register
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 lda #$FF
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
100 sta currtrak,u set current track to 255
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
101 leax >NMIRtn,pcr point to NMI routine
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
102 IFGT Level-1
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
103 stx <D.NMI save address
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
104 ELSE
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
105 stx >D.XNMI+1 save address
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 lda #$7E
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 1166
diff changeset
107 sta >D.XNMI
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
108 ENDC
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
109 lda #MOTON+BootDr turn on drive motor
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
110 sta >DPort+CONTROL
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
111
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
112 * MOTOR ON spin-up delay loop (~307 mSec)
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
113 IFGT Level-1
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
114 ldd #50000
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
115 ELSE
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
116 ldd #25000
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
117 ENDC
1363
53c50c807d55 Major move to new NitrOS-9 project
boisy
parents: 1308
diff changeset
118 IFNE H6309
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
119 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
120 ENDC
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
121 L003A nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
122 nop
1363
53c50c807d55 Major move to new NitrOS-9 project
boisy
parents: 1308
diff changeset
123 IFNE H6309
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
124 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
125 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
126 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
127 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 subd #$0001
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
129 bne L003A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
131 * search for memory to use as a sector buffer
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
132 pshs u,y,x,b,a save regs
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
133 ldd #SECTSIZE get sector size in D
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
134 os9 F$SRqMem request that much memory
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
135 bcs L00AA branch if there is an error
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
136 tfr u,d move pointer to D temporarily
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
137 ldu $06,s restore U (saved earlier)
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
138 std buffptr,u save alloced mem pointer in statics
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
139 clrb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 * go get LSN0
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
142 ldx #$0000 we want LSN0
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
143 bsr ReadSect go get it
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
144 bcs L00AA branch if error
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
146 * From LSN0, we get various pieces of info.
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
147 * ldd DD.TOT+1,y
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
148 * std ddtot,u
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
149 lda <DD.FMT,y get format byte of LSN0
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
150 * sta ddfmt,u save it for ???
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
151 anda #FMT.SIDE keep side bit
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
152 sta dblsided,u and save it
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
153 lda DD.TKS,y get sectors per track
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
154 sta ddtks,u and save
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
155 ldd <DD.BSZ,y get bootfile size
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
156 std ,s save on stack
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
157 ldx <DD.BT+1,y get start sector of bootfile
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
158 pshs x push on the stack
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
159 ldd #SECTSIZE load D with sector size
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
160 ldu buffptr,u and point to the buffer pointer
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
161 os9 F$SRtMem return the memory
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
162 ldd $02,s get the bootfile size
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
163 IFGT Level-1
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
164 os9 F$BtMem
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
165 ELSE
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
166 os9 F$SRqMem get the memory from the system
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
167 ENDC
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
168 puls x pull bootfile start sector off stack
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
169 bcs L00AA branch if error
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
170 stu 2,s save pointer to bootfile mem on stack
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
171 stu 8+buffptr,s also save to buffptr,u
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
172 ldu 6,s reload original U
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
173 * ldd 2,s get pointer to bootfile mem
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
174 * std buffptr,u and save pointer
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
175 ldd ,s get bootfile size
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
176 beq L00A3 branch if zero
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 * this loop reads a sector at a time from the bootfile
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
179 * X = start sector
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
180 * D = bootfile size
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
181 L0091 pshs x,b,a save params
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
182 clrb
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
183 bsr ReadSect read sector
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
184 bcs L00A8 branch if error
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
185 IFGT Level-1
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
186 lda #'. dump out a period for boot debugging
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
187 jsr <D.BtBug do the debug stuff
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
188 ENDC
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
189 puls x,b,a restore params
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
190 * RVH NOTE: the next 3 lines assume sector size=256=LSN size?
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
191 inc buffptr,u point to next 256 bytes
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
192 leax 1,x move to next sector
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
193 subd #SECTSIZE subtract sector bytes from size
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
194 bhi L0091 continue if more space
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
195 L00A3 clrb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 puls b,a
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
197 bra L00AC
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
198 L00A8 leas $04,s
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
199 L00AA leas $02,s
1295
cbe5b5313422 Removed poke to FFD9 for CoCo 3 since this is done by rel
boisy
parents: 1291
diff changeset
200 L00AC puls u,y,x
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
201 leas size,s clean up stack
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
202 clr >DPort+CONTROL shut off floppy disk
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
203 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
205 L00B7 lda #DDEN+MOTON+BootDr permit alternate drives
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
206 sta drvsel,u save drive selection byte
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
207 clr currtrak,u clear current track
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 lda #$05
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
209 lbsr L0170
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
210 ldb #0+STEP RESTORE cmd
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
211 lbra L0195
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
213 * Read a sector from the 1773
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
214 * Entry: X = LSN to read
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
215 ReadSect lda #$91
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
216 cmpx #$0000 LSN0?
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
217 bne L00DF branch if not
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
218 bsr L00DF else branch subroutine
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
219 bcs L00D6 branch if error
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
220 ldy buffptr,u get buffer pointer in Y for caller
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
221 clrb
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
222 L00D6 rts
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
223
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
224 L00D7 bcc L00DF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 pshs x,b,a
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
226 bsr L00B7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 puls x,b,a
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
228 L00DF pshs x,b,a save LSN, command
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
229 bsr L00EA
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
230 puls x,b,a restore LSN, command
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
231 bcc L00D6 branch if OK
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
232 lsra
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
233 bne L00D7
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
234 L00EA bsr L013C
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
235 bcs L00D6 if error, return to caller
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
236 ldx buffptr,u get address of buffer to fill
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
237 orcc #IntMasks mask interrupts
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
238 pshs y save Y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 ldy #$FFFF
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
240 ldb #%10000000 ($80) READ SECTOR command
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
241 stb >DPort+CMDREG write to command register
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
242 ldb drvsel,u (DDEN+MOTORON+BootDr)
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
243 * NOTE: The 1773 FDC multiplexes the write precomp enable and ready
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
244 * signals on the ENP/RDY pin, so the READY bit must always be ON for
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
245 * read and seek commands. (from the FD502 FDC Service Manual)
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
246 orb #DDEN+READY set DDEN+READY bits ($30)
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
247 tst side,u are we on side 2?
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
248 beq L0107
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
249 orb #SIDESEL set side 2 bit
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
250 L0107 stb >DPort+CONTROL
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
251 lbsr Delay2 delay 54~
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
252 orb #HALTENA HALT enable ($80)
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
253 * lda #%00000010 RESTORE cmd ($02)
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
254 *L0111 bita >DPort+STATREG
1291
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
255 * bne L0123
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
256 * leay -$01,y
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
257 * bne L0111
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
258 * lda drvsel,u
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
259 * sta >DPort+CONTROL
1291
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
260 * puls y
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
261 * bra L0138
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
262 stb >DPort+CONTROL
1291
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
263 nop
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
264 nop
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
265 bra L0123
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
266
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
267 * Sector READ Loop
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
268 L0123 lda >DPort+DATAREG read from WD DATA register
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 sta ,x+
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
270 * stb >DPort+CONTROL
1291
92e9f7416fc9 Added BLOB-stop fix, changed one line as per Robert Gault's suggestion
boisy
parents: 1287
diff changeset
271 nop
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
272 bra L0123
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
273 * RVH NOTE: This ONLY works for double density boot disks! The Tandy
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
274 * controllers internally gate HALT enable with the DDEN bit, which
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
275 * means that reading a single-density boot disk will not generate the
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
276 * NMI signal needed to exit the read loop! Single-density disks must
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
277 * use a polled I/O loop instead.
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
278
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
279 NMIRtn leas R$Size,s adjust stack
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 puls y
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
281 ldb >DPort+STATREG read WD STATUS register
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
282 bitb #$9C any errors?
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
283 * bitb #$04 LOST DATA bit set?
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
284 beq RetOK branch if not
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
285 * beq ChkErr branch if not
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
286 L0138 comb else we will return error
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
287 ldb #E$Read
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
288 RetOK rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
290 L013C lda #MOTON+BootDr permit alternate drives
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
291 sta drvsel,u save byte to static mem
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
292 clr side,u start on side 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 cmpd #$0000
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
295 beq L016C
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
296 clr ,-s clear space on stack
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
297 tst dblsided,u double sided disk?
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
298 beq L0162 branch if not
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
299 bra L0158
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
300 * Double-sided code
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
301 L0152 com side,u flag side 2
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
302 bne L0158
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
303 inc ,s
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
304 L0158 subb ddtks,u
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
305 sbca #$00
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
306 bcc L0152
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
307 bra L0168
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
308 L0160 inc ,s
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
309 L0162 subb ddtks,u
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
310 sbca #$00
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
311 bcc L0160
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
312 L0168 addb #18 add sectors per track
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
313 puls a get current track indicator off of stack
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
314 L016C incb
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
315 stb >DPort+SECTREG save in sector register
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
316 L0170 ldb currtrak,u get current track in B
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
317 stb >DPort+TRACKREG save in track register
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
318 cmpa currtrak,u same as A?
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
319 beq L018D branch if so
1514
b7d6cb1df834 added comments
boisy
parents: 1463
diff changeset
320 sta currtrak,u
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
321 sta >DPort+DATAREG
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
322 ldb #$10+STEP SEEK command
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
323 bsr L0195 send command to controller
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 pshs x
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
325 * Seek Delay
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
326 ldx #$222E delay ~39 mSec (78mS L1)
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
327 L0187 leax -$01,x
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
328 bne L0187
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 puls x
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
330 L018D clrb
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
331 rts
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
332
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
333 *ChkErr bitb #$98 evaluate WD status (READY, RNF, CRC err)
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
334 * bne L0138
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
335 * clrb
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
336 * rts
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
337
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
338 L0195 bsr L01A8 issue FDC cmd, wait 54~
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
339 L0197 ldb >DPort+STATREG
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
340 bitb #$01 still BUSY?
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
341 bne L0197 loop until command completes
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
342 rts
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
343
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
344 * Entry: B = command byte
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
345 L019F lda drvsel,u
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
346 sta >DPort+CONTROL
1516
9a9734ef451c Added comments, symbolics, optimized code slightly
boisy
parents: 1515
diff changeset
347 stb >DPort+CMDREG
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
348 rts
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
349
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
350 * issue command and wait 54 clocks
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
351 * Controller requires a min delay of 14uS (DD) or 28uS (SD)
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
352 * following a command write before status register is valid
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
353 L01A8
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
354 bsr L019F
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
355 * Delay branches
1520
5ff76789bec2 Updated boot_1773.asm from Rodney H.
boisy
parents: 1516
diff changeset
356 * 54 clock delay including bsr (=30uS/L2,60us/L1)
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
357 Delay2
1363
53c50c807d55 Major move to new NitrOS-9 project
boisy
parents: 1308
diff changeset
358 IFNE H6309
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
359 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
360 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
361 ENDC
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
362 lbsr Delay3
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
363 Delay3
1363
53c50c807d55 Major move to new NitrOS-9 project
boisy
parents: 1308
diff changeset
364 IFNE H6309
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
365 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
366 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
367 ENDC
1515
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
368 lbsr Delay4
30c1d42f3913 Added comments, slow optimization progress
boisy
parents: 1514
diff changeset
369 Delay4
1363
53c50c807d55 Major move to new NitrOS-9 project
boisy
parents: 1308
diff changeset
370 IFNE H6309
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
371 nop
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
372 ENDC
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
373 rts
210
6bf55704c623 Boot is adapted from OS-9 Level Two boot module, now boots from
boisy
parents: 201
diff changeset
374
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
375 IFGT Level-1
1287
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
376 * Filler to get $1D0
10957d54bf16 Made all modules rev 0
boisy
parents: 1213
diff changeset
377 Filler fill $39,$1D0-3-*
1166
bb618bed0bdc Miscellaneous source improvements
boisy
parents: 249
diff changeset
378 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 eom equ *
48
cdfe69117a2f Cleaned up source
boisy
parents: 0
diff changeset
382 end