Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/oscode.asm @ 1138:6264431d0c88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed dx.asm to ccdiskdesc.asm sysgo.asm now holds date of 3.1.1 release
author boisy
date Fri, 18 Apr 2003 16:29:09 +0000
parents dd89c62ea2ca
children 4e235f213651
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * oscode - OS-9 Level One V2 bootstrap code
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
201
668388823050 Fixed headers to be consistent
boisy
parents: 6
diff changeset
8 * From Tandy OS-9 Level One VR 02.00.00
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
9 * Also put in conditionals for the Dragon 64
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10
6
780d4dddd9a9 Wrapped ifp1/endc conditionals around use
boisy
parents: 0
diff changeset
11 ifp1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 use defsfile
6
780d4dddd9a9 Wrapped ifp1/endc conditionals around use
boisy
parents: 0
diff changeset
13 endc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
15 ScrnLoc equ $8000
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
16
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 * Initial code executed upon booting up to OS-9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 Start fcc /OS/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 bra L2620
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 fdb $1204
267
6992acfc221f Put back OS9 BOOT
boisy
parents: 261
diff changeset
23 BootMsg fcc /OSy/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 fcb $60
267
6992acfc221f Put back OS9 BOOT
boisy
parents: 261
diff changeset
25 fcc /BOOT/
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
26 BootMLen equ *-BootMsg
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 L2620 clr PIA.U4+3
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
29
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
30 ifne Dragon64
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
31 clr PIA.U4+1 added for Dragon, works on CoCo
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
32 endc
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
33
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 sta $FFDF turn off ROM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 * locate Boot Text Screen at $8000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 ldb #$06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 ldx #$FFC6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 L262B sta ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 bne L262B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 sta 1,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
43 * Clear VDG screen
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
44 ldx #ScrnLoc
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
45 ldy #512
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 lda #$60
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 L263B sta ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 leay -1,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 bne L263B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 * Copy "OS9 BOOT" to screen area
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
52 ldx #ScrnLoc+$10C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 leay <BootMsg,pcr
205
097a249c9665 Slight change to oscode
boisy
parents: 201
diff changeset
54 ldb #BootMLen
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 L2649 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 sta ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 bne L2649
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
60 ifne Dragon64
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
61 tst <$72
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
62 else
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 ldd #$1212
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 cmpd <$0078
235
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
65 endc
3fa31ecd389a Modified oscode to allow conditional assembly for Dragon 64
boisy
parents: 205
diff changeset
66
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 beq L266E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 leau >Start,pcr
977
dd89c62ea2ca os9.asm and oscode.asm now use BTStart symbolic from systype
boisy
parents: 267
diff changeset
69 ldx #$FE80-BTStart
dd89c62ea2ca os9.asm and oscode.asm now use BTStart symbolic from systype
boisy
parents: 267
diff changeset
70 ldy #BTStart
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 L2663 lda ,u+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 leax -1,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 bne L2663
977
dd89c62ea2ca os9.asm and oscode.asm now use BTStart symbolic from systype
boisy
parents: 267
diff changeset
75 jmp >BTStart+L266E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 L266E leax <eoc,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 ldd $09,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 jmp d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 eoc equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82