|
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
|
|
|
12 * ifp1
|
|
|
13 use defsfile
|
|
|
14 * endc
|
|
|
15
|
|
|
16 *
|
|
|
17 * map extended rom on page 0x40-
|
|
|
18 * valid page started from 0x87cd
|
|
|
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
|
|
|
33 ldy #$40 page no.
|
|
|
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
|
|
16
|
42 std ,s size return as d
|
|
15
|
43 addb #$ff
|
|
16
|
44 adda #$2f request +0x2000
|
|
15
|
45 clrb
|
|
|
46 anda #$e0
|
|
16
|
47 addd #-1
|
|
15
|
48 os9 F$BtMem
|
|
14
|
49 bcs last
|
|
15
|
50 ** u points the memory
|
|
|
51 stu 2,s return as x
|
|
|
52 ldd ,s
|
|
|
53 ldx #0
|
|
|
54 pagel tfr d,y
|
|
|
55 lda 5,s
|
|
|
56 sta $ffa0
|
|
|
57 tfr y,d
|
|
|
58 loop ldy ,x++
|
|
|
59 sty ,u++
|
|
|
60 subb #2
|
|
|
61 sbca #0
|
|
|
62 cmpb #0
|
|
|
63 bne loop
|
|
|
64 bita #$1f
|
|
|
65 bne loop
|
|
|
66 tsta
|
|
|
67 beq last
|
|
|
68 clr $ffa0
|
|
|
69 ** 2k boundary
|
|
|
70 inc 5,s
|
|
|
71 ldx #0
|
|
|
72 bra pagel
|
|
|
73 last clr $ffa0
|
|
|
74 puls d,x,y,u,pc
|
|
14
|
75
|
|
|
76 emod
|
|
|
77 eom equ *
|
|
|
78 end
|
