jmechner
100755 211 lines (158 sloc) 2.669 kb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
 lst off

 org $2000

*-------------------------------------------------
*
* 06/28/89 Prince of Persia boot code
* for rw18 3.5" version
*
* Last mod: 09/05/89
*

rw18 = $D000

slot = $FD

*-------------------------------------------------
*
* Tell RW18 which slot to use
*

start bit RW18temp

 ldx #$FF
 txs

 lda $43 ;ProDOS boot drive
 sta slot

* Clear screen, etc...

 jsr init

* Check system for 128k of RAM

 jsr check128k

* Determine if we are running on a GS
* and do GS specific stuff also...

 jsr setGSflag

* Move rw18 to its home

 jsr moverw18

* Start loading the game

 jsr rw18
 db 7,$A9 ;Bbund ID=$A9 for side one

 jsr rw18 ;"seek" track one
 db 2,0,1

 jsr rw18 ;read in $EE00-FFFF
 hex C3EE

 jmp $EE00

*-------------------------------------------------
text = $fb2f
home = $fc58
vtab = $FB5B
cout = $FDF0
normal = $fe84
pr0 = $fe93
in0 = $fe89

init ldx #$ff
 stx $4fb
 stx $3f3
 stx $3f4
 stx $c000 ;80store off
 stx $c002 ;RAMRD main
 stx $c004 ;RAMWRT main
 stx $c00c ;80col off
 stx $c00e ;Altcharset off
 stx $c081 ;write RAM, read ROM (2nd 4k bank)
 jsr text
 jsr home
 jsr normal
 jsr pr0
 jsr in0

 rts

*-------------------------------------------------
*
* Check to make sure //c or //e
* with 128k
*

check128k sta $C081

 lda $FBB3 ;Apple // family ID byte
 cmp #6
 bne NOT128K ;Must be e/c/GS

 bit $C017
 bmi NOT128K

 ldx #CHECKEND
:0 lda CHECKER,X
 sta $180,X
 dex
 bpl :0

 jsr $180
 bcs NOT128K

 rts

NOT128K jsr text
 jsr home
 lda #8
 jsr vtab

 ldy #0
:0 lda MEMTEXT,Y
 beq *
 jsr cout
 cmp #$8D
 bne :1
 lda #4
 sta $24
:1 iny
 bne :0

MEMTEXT hex 8D
 asc "REQUIRES A //C OR //E WITH 128K"
 hex 00

*-------------------------------------------------
* Check for AUX memory routine

CHECKER lda #$EE
 sta $C005
 sta $C003
 sta $0800
 lda $0C00
 cmp #$EE
 bne :0
 asl $0C00
 lda $0800
 cmp $0C00
 beq :1
:0 clc
:1 sta $C004
 sta $C002
 rts

CHECKEND = *-CHECKER

*------------------------------------------------- setGSflag
*
* Set the GS? flag in rw18
*

setGSflag sta $C081
 sec
 jsr $FE1F
 lda #$FF
 adc #0
 sta GS?
 bpl :notGS

* Set background color to black, text to white

 lda #$F0
 sta $C022

* Set border color to black

 lda $C034
 and #$F0
 sta $C034

:notGS rts

*------------------------------------------------- moverw18
*
* Move RW18 to it's final home in $D000
*

moverw18 bit $C08B
 bit $C08B

 ldy #0
:0 lda RW18temp,y
:1 sta $D000,y
 iny
 bne :0

 inc :0+2
 inc :1+2
 bne :0

 rts

*-------------------------------------------------

 sav popboot35

*------------------------------------------------- EOF
 dum *
RW18temp ds 3
GS? ds 1
 dend
*-------------------------------------------------
 lst off

Markdown Cheat Sheet

Format Text

Headers

# This is an <h1> tag
## This is an <h2> tag
###### This is an <h6> tag

Text styles

*This text will be italic*
_This will also be italic_
**This text will be bold**
__This will also be bold__

*You **can** combine them*

Lists

Unordered

* Item 1
* Item 2
  * Item 2a
  * Item 2b

Ordered

1. Item 1
2. Item 2
3. Item 3
   * Item 3a
   * Item 3b

Miscellaneous

Images

![GitHub Logo](/images/logo.png)
Format: ![Alt Text](url)

Links

http://github.com - automatic!
[GitHub](http://github.com)

Blockquotes

As Kanye West said:

> We're living the future so
> the present is our past.

Code Examples in Markdown

Syntax highlighting with GFM

```javascript
function fancyAlert(arg) {
  if(arg) {
    $.facebox({div:'#foo'})
  }
}
```

Or, indent your code 4 spaces

Here is a Python code example
without syntax highlighting:

    def foo:
      if not bar:
        return true

Inline code for comments

I think you should use an
`<addr>` element here instead.

Something went wrong with that request. Please try again. Dismiss

Looking for the GitHub logo?