|
14
|
1 ********************************************************************
|
|
|
2 * Boot - V09 Boot module
|
|
|
3 *
|
|
|
4 * $Id: boot_1773.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8
|
|
|
9 nam Boot
|
|
|
10 ttl v09 Boot module
|
|
|
11
|
|
24
|
12 ifp1
|
|
14
|
13 use defsfile
|
|
24
|
14 endc
|
|
14
|
15
|
|
|
16 *
|
|
|
17 * map extended rom on page 0x40-
|
|
24
|
18 * first two bytes are extra rom module size
|
|
14
|
19
|
|
|
20 tylg set Systm+Objct
|
|
|
21 atrv set ReEnt+rev
|
|
|
22 rev set $01
|
|
|
23 edition set 1
|
|
|
24
|
|
|
25 mod eom,name,tylg,atrv,start,size
|
|
|
26
|
|
|
27 size equ .
|
|
|
28
|
|
|
29 name fcs /Boot/
|
|
|
30 fcb edition
|
|
|
31
|
|
15
|
32 start
|
|
24
|
33 ldy #$40 extended rom page no.
|
|
15
|
34 clra
|
|
|
35 clrb
|
|
|
36 pshs d,x,y,u
|
|
|
37 tfr d,x
|
|
|
38 leay 4,s pointer to page no
|
|
|
39 ** read boot rom file size
|
|
|
40 os9 F$LDDDXY
|
|
14
|
41 bcs last
|
|
27
|
42 addb #$ff
|
|
|
43 adca #0
|
|
|
44 clrb
|
|
16
|
45 std ,s size return as d
|
|
30
|
46 ** OS9 lv2 use $a000-$dfff as a temporary page
|
|
|
47 ** demand at least that size ( ROM start at $ed00 )
|
|
|
48 cmpa #$ed-$a0
|
|
|
49 bhi ok
|
|
|
50 lda #$ed-$a0
|
|
|
51 ok
|
|
15
|
52 os9 F$BtMem
|
|
14
|
53 bcs last
|
|
15
|
54 ** u points the memory
|
|
|
55 stu 2,s return as x
|
|
|
56 ldd ,s
|
|
|
57 ldx #0
|
|
24
|
58 ** copy to Bt BtRAM
|
|
15
|
59 pagel tfr d,y
|
|
|
60 lda 5,s
|
|
|
61 sta $ffa0
|
|
|
62 tfr y,d
|
|
|
63 loop ldy ,x++
|
|
|
64 sty ,u++
|
|
|
65 subb #2
|
|
|
66 sbca #0
|
|
24
|
67 cmpb #0 $100 transfered?
|
|
15
|
68 bne loop
|
|
|
69 bita #$1f
|
|
|
70 bne loop
|
|
|
71 tsta
|
|
24
|
72 beq last all transfered
|
|
|
73 clr $ffa0 back to system map
|
|
15
|
74 ** 2k boundary
|
|
|
75 inc 5,s
|
|
|
76 ldx #0
|
|
|
77 bra pagel
|
|
|
78 last clr $ffa0
|
|
|
79 puls d,x,y,u,pc
|
|
14
|
80
|
|
|
81 emod
|
|
|
82 eom equ *
|
|
|
83 end
|
