Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/boot_1773.asm @ 48:cdfe69117a2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleaned up source
author boisy
date Sat, 20 Apr 2002 13:39:53 +0000
parents 6641a883d6b0
children 668388823050
comparison
equal deleted inserted replaced
47:c1c7f1cb1560 48:cdfe69117a2f
28 size equ . 28 size equ .
29 29
30 name fcs /Boot/ 30 name fcs /Boot/
31 fcb edition 31 fcb edition
32 32
33 * First, we make a stack... (5 bytes deep) 33 * First, we make a stack...
34 start clra 34 start clra
35 ldb #$05 35 ldb #size
36 MakeStak pshs a 36 MakeStak pshs a
37 decb 37 decb
38 bne MakeStak 38 bne MakeStak
39 39
40 tfr s,u 40 tfr s,u
41 ldx #DPort 41 ldx #DPort
42 leax $08,x 42 leax $08,x
43 lda #$D0 43 lda #$D0
44 sta ,x 44 sta ,x
45 lbsr L0174 45 lbsr Delay
46 lda ,x 46 lda ,x
47 lda #$FF 47 lda #$FF
48 sta u0004,u 48 sta u0004,u
49 leax >L010E,pcr 49 leax >L010E,pcr
50 stx >$010A 50 stx >$010A
66 ldx <D.FMBM start of bitmap 66 ldx <D.FMBM start of bitmap
67 ldu <D.FMBM+2 end of bitmap 67 ldu <D.FMBM+2 end of bitmap
68 os9 F$SchBit 68 os9 F$SchBit
69 bcs L009B 69 bcs L009B
70 exg a,b 70 exg a,b
71 ldu $04,s 71 ldu $04,s get statics pointer
72 std u0002,u 72 std u0002,u
73 clrb 73 clrb
74 74
75 * go get LSN0 75 * go get LSN0
76 ldx #$0000 76 ldx #$0000
145 ldy #$FFFF 145 ldy #$FFFF
146 ldb #$80 146 ldb #$80
147 stb >DPort+8 147 stb >DPort+8
148 ldb #$39 148 ldb #$39
149 stb >DPort 149 stb >DPort
150 lbsr L0174 150 lbsr Delay
151 ldb #$B9 151 ldb #$B9
152 lda #$02 152 lda #$02
153 L00F2 bita >DPort+8 153 L00F2 bita >DPort+8
154 bne L0104 154 bne L0104
155 leay -$01,y 155 leay -$01,y
217 stb >DPort+8 217 stb >DPort+8
218 rts 218 rts
219 219
220 L0172 bsr L0169 220 L0172 bsr L0169
221 221
222 * Some type of delay?? 222 * Delay routine
223 L0174 lbsr L0177 223 Delay lbsr Delay2
224 L0177 lbsr L017A 224 Delay2 lbsr Delay3
225 L017A rts 225 Delay3 rts
226 226
227 emod 227 emod
228 eom equ * 228 eom equ *
229 end
230