NetBSD/x68k boot loader. The xxboot now can boot NetBSD from
1. >1GB SCSI disks, 2. any of the top 7 partitions on disks, and 3. any SCSI interface.
This commit is contained in:
itohy
parent
ecc30b1784
commit
f9175d6bc7
|
|
@ -0,0 +1,69 @@
|
||||||
|
# $NetBSD: Makefile,v 1.1 1998/09/01 20:02:32 itohy Exp $
|
||||||
|
|
||||||
|
BOOT= xxboot
|
||||||
|
VERSION=0.3
|
||||||
|
|
||||||
|
# text and bss addresses in hex
|
||||||
|
TEXT= 3f0000
|
||||||
|
BSS= 3f2000
|
||||||
|
|
||||||
|
PROG= $(BOOT)
|
||||||
|
BINDIR= /usr/mdec
|
||||||
|
PROGNAME= sdboot
|
||||||
|
LINKS= ${BINDIR}/sdboot ${BINDIR}/fdboot
|
||||||
|
STRIPFLAG=
|
||||||
|
BINMODE= 444
|
||||||
|
SCRIPTSMODE= 555
|
||||||
|
SCRIPTS= installboot.sh
|
||||||
|
NOMAN= noman
|
||||||
|
|
||||||
|
STRIP?= strip
|
||||||
|
|
||||||
|
SRCS= xxboot.S bootufs.c unzip.c
|
||||||
|
.PATH: ${.CURDIR}/gunzip
|
||||||
|
|
||||||
|
CFLAGS= -O -fomit-frame-pointer
|
||||||
|
CFLAGS+= -W -Wall -Wconversion -Wstrict-prototypes -Wmissing-prototypes
|
||||||
|
CFLAGS+= -DTEXTADDR="0x$(TEXT)" -DBOOT=\"$(BOOT)\" -DBOOT_VERS=\"$(VERSION)\"
|
||||||
|
CFLAGS+= -DGZIP -DSCSI_ADHOC_BOOTPART
|
||||||
|
CFLAGS+= -DTITLE_IMAGE -DIMAGE_EXTRA=100
|
||||||
|
#CFLAGS+= -DBOOT_DEBUG
|
||||||
|
AFLAGS= ${CFLAGS:M-[ID]*}
|
||||||
|
LDFLAGS=-n -Bstatic -T $(TEXT)
|
||||||
|
#LDADD= -lc
|
||||||
|
|
||||||
|
CLEANFILES= $(BOOT).x s.x x.s x.o
|
||||||
|
CLEANFILES+= ej2sjesc.lo ej2sjesc *.o.c *.o.s *.o.o
|
||||||
|
|
||||||
|
.c.o:
|
||||||
|
./ej2sjesc ${.IMPSRC} ${.TARGET}.c
|
||||||
|
@echo '${CC} -fall-bsr ${CFLAGS} ${CPPFLAGS} -o ${.TARGET} -c ${.TARGET}.c'
|
||||||
|
@${CC} ${CFLAGS} ${CPPFLAGS} -S ${.TARGET}.c -o ${.TARGET}.s
|
||||||
|
@${CC} -c -o ${.TARGET}.o ${.TARGET}.s
|
||||||
|
@${NM} ${.TARGET}.o | ${.CURDIR}/all_bsr.sh ${.TARGET}.s | ${AS} -o ${.TARGET}
|
||||||
|
@rm -f ${.TARGET}.c ${.TARGET}.s ${.TARGET}.o
|
||||||
|
|
||||||
|
$(BOOT): $(OBJS)
|
||||||
|
$(LD) $(LDFLAGS) -o $(BOOT).x $(OBJS) $(LDADD)
|
||||||
|
@$(NM) $(BOOT).x | sed -n '/T first_kbyte/p'
|
||||||
|
@if [ `(echo ibase=16; \
|
||||||
|
$(NM) $(BOOT).x | sed -n 's/T first_kbyte/-$(TEXT)-400/p' | \
|
||||||
|
tr a-f A-F) | bc` -gt 0 ];\
|
||||||
|
then echo '$(BOOT): first_kbyte exceeds the first killobyte'; exit 1; fi
|
||||||
|
@$(SIZE) $(BOOT).x
|
||||||
|
@if [ `(echo ibase=16; \
|
||||||
|
$(NM) $(BOOT).x | sed -n 's/D _edata/-$(BSS)/p' | tr a-f A-F) |\
|
||||||
|
bc` -gt 0 ];\
|
||||||
|
then echo '$(BOOT): text+data is too large'; exit 1; fi
|
||||||
|
@cp $(BOOT).x s.x
|
||||||
|
@$(STRIP) s.x
|
||||||
|
@dd bs=32 skip=1 count=256 if=s.x of=$(BOOT) 2>/dev/null
|
||||||
|
@rm s.x
|
||||||
|
|
||||||
|
bootufs.o unzip.o: ej2sjesc
|
||||||
|
|
||||||
|
# helper program running on the host
|
||||||
|
ej2sjesc: ej2sjesc.lo
|
||||||
|
${HOST_LINK.c} -o ${.TARGET} ${.ALLSRC}
|
||||||
|
|
||||||
|
.include <bsd.prog.mk>
|
||||||
|
|
@ -0,0 +1,58 @@
|
||||||
|
# $NetBSD: README.sdboot,v 1.1 1998/09/01 20:02:33 itohy Exp $
|
||||||
|
|
||||||
|
Mon Aug 1st 1994
|
||||||
|
README.sdboot (*euc-japan*)
|
||||||
|
author:chapuni
|
||||||
|
GBA02750@niftyserve.or.jp
|
||||||
|
|
||||||
|
|
||||||
|
久しくバージョンアップを怠っていた sdboot を、ちょっと使いやすくして
|
||||||
|
みました。sdboot とは、 NetBSD 用のブートプログラムで、これを HDD に書
|
||||||
|
き込むことにより、NetBSD を HDD より起動することが可能となります。
|
||||||
|
|
||||||
|
|
||||||
|
install
|
||||||
|
~~~~~~~~~
|
||||||
|
もし、御使用の HDD の SCSI ID が 0 であれば、
|
||||||
|
|
||||||
|
$ make install
|
||||||
|
|
||||||
|
でオーケーです。
|
||||||
|
|
||||||
|
そうでない場合は、Makefile の
|
||||||
|
|
||||||
|
$ cat sdboot > /dev/rsd0a
|
||||||
|
~
|
||||||
|
0 の部分を、インストール先の ID に修正してください。/kern を覗けばど
|
||||||
|
のデバイスから起動したのかがわかるので、これは手抜きですね。
|
||||||
|
|
||||||
|
|
||||||
|
usage
|
||||||
|
~~~~~~~
|
||||||
|
SHIFT キーを押しながら起動すると、カーネル選択の画面に移行します。こ
|
||||||
|
こでは、vmunix, netbsd で始まる名前のファイルが列挙されます。
|
||||||
|
|
||||||
|
カーネル選択の画面にて、さらに SHIFT キーを押すことによって、カーネ
|
||||||
|
ル起動時のシングルユーザ／マルチユーザ状態を制御することができます。カー
|
||||||
|
ソル上下キー、SHIFT キーで選択したら、リターンキーでカーネルの起動が行な
|
||||||
|
われます。
|
||||||
|
|
||||||
|
「ひらがな」LED が点灯している状態では、カーネルデバッガを起動しよう
|
||||||
|
とします。
|
||||||
|
|
||||||
|
progression
|
||||||
|
~~~~~~~~~~~~~
|
||||||
|
前回のバージョン（沖さんがリリースしたバージョン）からの改善点／改良
|
||||||
|
点は以下の通りです。
|
||||||
|
|
||||||
|
・起動するカーネルが選択できるようになりました。
|
||||||
|
・カーネルデバッガ（ふつうは ddb）の起動を指定できるようになりました。
|
||||||
|
・SHIFT キーの押下判定を緩めました。
|
||||||
|
・読み込み速度を高速にしました。
|
||||||
|
|
||||||
|
改悪点は以下の通りです。
|
||||||
|
|
||||||
|
・メッセージ「まじかよ？」その他がなくなった。
|
||||||
|
|
||||||
|
|
||||||
|
- 以上 -
|
||||||
|
|
@ -0,0 +1,301 @@
|
||||||
|
# $NetBSD: README.xxboot,v 1.1 1998/09/01 20:02:33 itohy Exp $
|
||||||
|
|
||||||
|
xxboot version 0.3
|
||||||
|
|
||||||
|
xxboot は:
|
||||||
|
|
||||||
|
NetBSD/x68k を起動するためのブートプログラムです。
|
||||||
|
次のデバイスからのブートに対応しています。
|
||||||
|
|
||||||
|
o SCSI ディスクの先頭 7 パーティション
|
||||||
|
o フロッピーディスクの次の物理フォーマットのもの
|
||||||
|
1232KB (1024byte/sector, 8sector/track): X68k 標準フォーマット
|
||||||
|
1200KB (512byte/sector, 15sector/track): 俗に 2HC とかいうやつ
|
||||||
|
|
||||||
|
注意: 現在のところ、1232KB フォーマットのディスク上には
|
||||||
|
正常にファイルシステムが構築できませんので、root ファイルシステム
|
||||||
|
などをこのフォーマットのディスクに置くことはできません。
|
||||||
|
ただし、ファイルシステムを一旦 vnode disk driver (vnd) 上に作成して
|
||||||
|
からフロッピーに書き込むことにより、memory disk (md) を root として
|
||||||
|
起動するブートディスクを作成することは可能です。
|
||||||
|
|
||||||
|
|
||||||
|
sdboot, fdboot との違い:
|
||||||
|
|
||||||
|
xxboot は、NetBSD 1.2 に含まれている sdboot (chapuni氏作) や fdboot と
|
||||||
|
同じような機能を持っています。主な機能的な違いは次のようなものです。
|
||||||
|
|
||||||
|
o SCSI ディスクとフロッピーとで同じバイナリを使う。
|
||||||
|
|
||||||
|
o gzip で圧縮されたカーネルを読み込むことができる。
|
||||||
|
それにともない、デフォルトで読み込むカーネルのファイル名
|
||||||
|
として、netbsd のほかに netbsd.gz が加えられた。
|
||||||
|
|
||||||
|
要するに、sdboot, fdboot, gunzip をつぎはぎしたもですね。
|
||||||
|
|
||||||
|
|
||||||
|
install:
|
||||||
|
|
||||||
|
1. make します
|
||||||
|
% make
|
||||||
|
|
||||||
|
2. /usr/mdec に置きます。
|
||||||
|
# make install
|
||||||
|
|
||||||
|
|
||||||
|
ディスクへの書き込み:
|
||||||
|
|
||||||
|
a. フロッピー
|
||||||
|
予め disklabel を書いたディスクに対して installboot で書き込みます。
|
||||||
|
# /usr/mdec/installboot /usr/mdec/fdboot /dev/rfd0c
|
||||||
|
^^
|
||||||
|
^^ の部分は書き込み先によって変更します。
|
||||||
|
|
||||||
|
b. SCSI ディスク
|
||||||
|
# /usr/mdec/installboot /usr/mdec/sdboot /dev/rsd0a
|
||||||
|
^^
|
||||||
|
^^ の部分は書き込み先によって変更します。
|
||||||
|
|
||||||
|
|
||||||
|
使いかたなど:
|
||||||
|
|
||||||
|
sdboot と全く同じです。README.sdboot などを参照してください。
|
||||||
|
(ああなんて手抜き)
|
||||||
|
|
||||||
|
カーネルを gzip で圧縮して使用する場合は、
|
||||||
|
あらかじめ、圧縮しない状態で、一度マルチユーザブートするか、
|
||||||
|
kvm_mkdb を実行して /var/db/kvm.db を作成しておくと、
|
||||||
|
ps などのカーネルを参照するコマンドも正常に動作するようです。
|
||||||
|
|
||||||
|
|
||||||
|
エラー:
|
||||||
|
|
||||||
|
xxboot は、エラーを検出すると、
|
||||||
|
|
||||||
|
xxboot: unsupported boot device
|
||||||
|
[Hit key to reboot]
|
||||||
|
|
||||||
|
のような表示をしてキー入力待ちになります。
|
||||||
|
ここで何かキーを押すとソフトウェアリセットがかかって再起動します。
|
||||||
|
エラーには次のようなものがあります:
|
||||||
|
|
||||||
|
"4MB RAM required"
|
||||||
|
主記憶が 4MB より少ないので xxboot をロードできません。
|
||||||
|
4MB 以上実装してあるのにこれが表示される時は、switch.x で
|
||||||
|
メモリスイッチを確認してください。
|
||||||
|
|
||||||
|
"MPU 68000?"
|
||||||
|
68000, 68008, 68010 でブートしようとしました。
|
||||||
|
|
||||||
|
"unsupported boot device"
|
||||||
|
現在のところ、このデバイスからのブートはできません。
|
||||||
|
きっと SASI HD か SRAM から起動しようとしたのでしょう。
|
||||||
|
|
||||||
|
"READ ID failed"
|
||||||
|
フロッピーのフォーマットを判定するための READ ID が失敗しました。
|
||||||
|
|
||||||
|
"READCAP failed"
|
||||||
|
SCSI HD のブロック長を調べるための READCAP が失敗しました。
|
||||||
|
|
||||||
|
"read error"
|
||||||
|
SCSI HD またはフロッピーの読み込みに失敗しました。
|
||||||
|
|
||||||
|
"read half of block"
|
||||||
|
ディスクのブロック(セクタ)よりファイルシステムのブロックが短いと
|
||||||
|
このエラーになることがあります。
|
||||||
|
|
||||||
|
"Can't boot from this partition"
|
||||||
|
先頭 7 個以外のパーティションから起動しようとしました。
|
||||||
|
あるいは、起動パーティションの特定に失敗しました。
|
||||||
|
|
||||||
|
"bogus super block: ルートファイルシステムが壊れています！"
|
||||||
|
正常なスーパーブロックが読めませんでした。
|
||||||
|
|
||||||
|
"improper file format: 実行不可能です。"
|
||||||
|
カーネルとして読み込んだファイルの形式が異常です。
|
||||||
|
|
||||||
|
"invalid compressed data"
|
||||||
|
"out of memory"
|
||||||
|
"unknown compression method"
|
||||||
|
"unsupported compression flag"
|
||||||
|
gzip 圧縮されたデータが異常です。
|
||||||
|
|
||||||
|
|
||||||
|
プログラムについて:
|
||||||
|
|
||||||
|
ブートプログラムの大部分は chapuni さんが書いたものです。
|
||||||
|
gzip の展開部分 (gunzip/inflate.c) は、gzip-1.2.4 の
|
||||||
|
Not copyrighted なコードから拝借しました。
|
||||||
|
Copyright のある部分は使用せずに私が書き直しましたので、
|
||||||
|
GPL に従う必要はありません。
|
||||||
|
私の作成/変更した部分について、(怪し気なスクリプトも含め)
|
||||||
|
著作権を主張するつもりはありません。
|
||||||
|
|
||||||
|
タイトルとして使っている BSD Daemon の著作権は、
|
||||||
|
Marshall Kirk McKusick 氏(mckusick@mckusick.com)が保持しています。
|
||||||
|
NetBSD/x68k の boot プログラムに使用して、Berkeley ライセンスで
|
||||||
|
配布するための許可を頂きました。
|
||||||
|
容量が残っていれば、バイナリにも "Copyright 1988 McKusick" のような
|
||||||
|
著作権表示を残してほしい(ただし必須ではない)とのことです。
|
||||||
|
他に転用する場合は、McKusick 氏に許可を求めてください。
|
||||||
|
|
||||||
|
BSD Daemon Copyright 1988 by Marshall Kirk McKusick.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Permission to use the daemon may be obtained from:
|
||||||
|
Marshall Kirk McKusick
|
||||||
|
1614 Oxford St
|
||||||
|
Berkeley, CA 94709-1608
|
||||||
|
USA
|
||||||
|
or via email at mckusick@mckusick.com
|
||||||
|
|
||||||
|
|
||||||
|
変更履歴:
|
||||||
|
ver 0.3
|
||||||
|
o 1GB 以上の SCSI ディスクからもブートできるようにした。
|
||||||
|
|
||||||
|
o SCSI ディスクの先頭以外のパーティションからもブートできるようにした。
|
||||||
|
|
||||||
|
o エラーチェックを大幅に強化した。
|
||||||
|
また、エラー時にキー入力を待って reboot するようにした。
|
||||||
|
|
||||||
|
o 内蔵、純正 SCSI ボード(またはその互換ボード)、満開 Mach-2 の
|
||||||
|
どれからブートしたかを調べてカーネルに渡すようにした。
|
||||||
|
|
||||||
|
o loadbsd.x と共通のカーネル転送コードを使うようにした。
|
||||||
|
|
||||||
|
o chapuni 氏の野望を引き継ぎ、無意味にグラフィカルにした。
|
||||||
|
|
||||||
|
o さらに、タイトルの絵を差し替えられるツールをこっそり
|
||||||
|
img ディレクトリに置いた。
|
||||||
|
|
||||||
|
ver 0.2
|
||||||
|
o タイマ、外部 power on の場合に、正常に動かない不具合を修正した。
|
||||||
|
|
||||||
|
o ソースを一部整理し、また、コードサイズを減らした。
|
||||||
|
|
||||||
|
ver 0.1
|
||||||
|
o make depend がうまく動くように xxboot.s → xxboot.S に
|
||||||
|
ファイル名を変更した。
|
||||||
|
|
||||||
|
o GPL なコードを排除した。
|
||||||
|
副作用として、100byte ほどコードが減った。
|
||||||
|
|
||||||
|
|
||||||
|
以下はソースを読む人向けです。
|
||||||
|
|
||||||
|
ソースについて:
|
||||||
|
ブートプログラム本体は、text+data を 8KB に、bss を 56KB に
|
||||||
|
収める必要があります。
|
||||||
|
8KB におさめるために、あちらこちらで変なことをしています。
|
||||||
|
ちなみに、もうほとんど容量が残っていません。
|
||||||
|
gunzip/inflate.c で malloc() を使っていたのですが、
|
||||||
|
malloc()/free() のパタンの性質を使って、にせものの
|
||||||
|
malloc をでっち上げてあります。malloc() 用のバッファは
|
||||||
|
bss ではなくスタックから取っています(bss も残り少ないから)。
|
||||||
|
|
||||||
|
bootufs.c ブートプログラム本体
|
||||||
|
xxboot.S アセンブリで書いた部分
|
||||||
|
chkfmt.s フロッピーのフォーマットを調べる部分
|
||||||
|
iocscall.h アセンブラ用ヘッダ
|
||||||
|
xxboot.h C 用ヘッダ
|
||||||
|
gunzip/* gzip の展開ルーチン asm() に注意
|
||||||
|
|
||||||
|
|
||||||
|
メモリマップ:
|
||||||
|
000000 |-----------------------------|
|
||||||
|
| 最終的にカーネルは 0 番地に |
|
||||||
|
| 転送される |
|
||||||
|
| ↓ |
|
||||||
|
002000 |-----------------------------|
|
||||||
|
|xxboot が最初に読まれる(FD) |
|
||||||
|
002400 |-----------------------------|
|
||||||
|
|xxboot が最初に読まれる(SCSI)|
|
||||||
|
002800 |-----------------------------|
|
||||||
|
| |
|
||||||
|
| |
|
||||||
|
100000 |-----------------------------|
|
||||||
|
| カーネル読み込みバッファ |
|
||||||
|
| ↓ |
|
||||||
|
| |
|
||||||
|
: :
|
||||||
|
| |
|
||||||
|
| ↑ |
|
||||||
|
| gzip の展開に使う |
|
||||||
|
3E8000 |-----------------------------|
|
||||||
|
| ↑ |
|
||||||
|
| xxboot のスタック |
|
||||||
|
3F0000 |-----------------------------|
|
||||||
|
| xxboot の text + data (8KB) |
|
||||||
|
3F2000 |-----------------------------|
|
||||||
|
| xxboot の bss (56KB) |
|
||||||
|
3FFFFF |-----------------------------| 4MB マシンの主記憶の上限
|
||||||
|
|
||||||
|
|
||||||
|
ブート動作:
|
||||||
|
1. まず、IOCS や SCSI の IPL により、xxboot の先頭 1KB が、
|
||||||
|
0x002000 (フロッピー), 0x002400 (SCSI) に読み込まれ、
|
||||||
|
先頭アドレスが実行されます。
|
||||||
|
|
||||||
|
2. xxboot は、ブートデバイスを調べ、自分自身の全体 (8KB) を
|
||||||
|
0x3F0000- にロードし、実行します。
|
||||||
|
|
||||||
|
3. SHIFT キーが押されていれば 5. へ。
|
||||||
|
|
||||||
|
4. ルートディレクトリから "netbsd" という名前のファイルを探し、
|
||||||
|
0x100000- に読み込みます。"netbsd" が見つからなければ "netbsd.gz"
|
||||||
|
も探します。読み込むことができれば 6. へ。
|
||||||
|
|
||||||
|
5. ルートディレクトリから、"netbsd" あるいは "vmunix" で始まる
|
||||||
|
ファイルのリストを作成し、ユーザに選択させます。
|
||||||
|
ユーザが選んだファイルを 0x100000- に読み込みます。
|
||||||
|
|
||||||
|
6. 0x100000- に読み込んだファイルが gzip で圧縮されていれば、
|
||||||
|
そのファイルを一旦 ??????-0x3E7FFF に転送し、0x100000 が
|
||||||
|
先頭になるように展開しなおします。
|
||||||
|
|
||||||
|
7. 0x100000- に読み込んだファイルが NetBSD/m68k の NMAGIC の
|
||||||
|
実行ファイルでなければエラーとします。
|
||||||
|
|
||||||
|
8. 割り込みを禁止します。
|
||||||
|
IOCS が低位アドレスをワークとして使っているためです。
|
||||||
|
|
||||||
|
9. 読み込んだファイルの text, data, bss セグメントを
|
||||||
|
0x000000- に転送/作成します。
|
||||||
|
|
||||||
|
10. 読み込んだファイルにシンボルテーブルがあれば、
|
||||||
|
シンボルテーブル、ストリングテーブルを転送します。
|
||||||
|
|
||||||
|
11. レジスタ、引数を設定し、カーネルを実行します。
|
||||||
|
|
||||||
|
|
||||||
|
SCSI ディスクの起動パーティション決定アルゴリズム:
|
||||||
|
xxboot の起動時の d2 の値が非零であれば、それをキロバイト単位の
|
||||||
|
パーティション先頭位置として使う。
|
||||||
|
d2 の値が 0 であれば、起動時の a0 がパーティションテーブルを
|
||||||
|
指しているとして、(a2 + 8):l & 0x00FFFFFF をキロバイト単位の
|
||||||
|
パーティションの先頭位置とする。
|
||||||
|
|
||||||
|
以上の方法で、純正 IPL, SxSI の IPL, BOOT MENU (Ver. 2.22)では
|
||||||
|
パーティションの先頭が見つけられるようです。
|
||||||
|
|
||||||
|
Makefile に書かれているコンパイルオプションの -DSCSI_ADHOC_BOOTPART
|
||||||
|
を外すと、従来通り先頭パーティション固定になります。
|
||||||
|
|
||||||
|
|
||||||
|
デバッグしたところ:
|
||||||
|
シンボルテーブルが無いカーネルでもストリングテーブル
|
||||||
|
(シンボル名のテーブル) を転送しようとしていたところを直した。
|
||||||
|
(電源投入直後だけフロッピーブートで 暴はる(京ことば) という
|
||||||
|
症状に悩まされていた。)
|
||||||
|
|
||||||
|
|
||||||
|
TODO:
|
||||||
|
o 1440KB フォーマットのフロッピーからもブートしたいんですが、
|
||||||
|
そうすると IOCS が使えないので、自前で読まなければならない
|
||||||
|
ことになります。…で、8KB におさまりそうにないですねえ。
|
||||||
|
|
||||||
|
o SASI とか、SASI ポート付きマシンを持っている人におまかせ
|
||||||
|
しましょう :-)。あ、NetBSD のデバイスドライバもね。
|
||||||
|
|
||||||
|
---written by Yasha (ITOH Yasufumi)
|
||||||
|
|
@ -0,0 +1,40 @@
|
||||||
|
#!/bin/sh
|
||||||
|
# convert "jbsr" for external symbol to "bsr"
|
||||||
|
# --written by Yasha
|
||||||
|
#
|
||||||
|
# usage: nm foo.o | sh all_bsr.sh foo.s >foo_new.s
|
||||||
|
#
|
||||||
|
# $NetBSD: all_bsr.sh,v 1.1 1998/09/01 20:02:33 itohy Exp $
|
||||||
|
|
||||||
|
src="$1"
|
||||||
|
case "$src" in
|
||||||
|
'')
|
||||||
|
echo 'Convert "jbsr" for external symbol to "bsr"' >&2
|
||||||
|
echo "usage: nm foo.o | $0 foo.s >foo_new.s" >&2
|
||||||
|
exit 1;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
exts=
|
||||||
|
while read line
|
||||||
|
do
|
||||||
|
set - $line
|
||||||
|
case "$1" in
|
||||||
|
U) exts="$exts $2";;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
|
||||||
|
# m68k gcc sometimes emits nops. why?
|
||||||
|
sed '
|
||||||
|
/^[ ]*nop[ ]*$/d
|
||||||
|
/jbsr[ ]/{
|
||||||
|
h
|
||||||
|
s/.*jbsr[ ]*//
|
||||||
|
s/$/:'"$exts"' /
|
||||||
|
/^\([^:]*\):.* \1 /{
|
||||||
|
g
|
||||||
|
s/jbsr[ ]/bsr /
|
||||||
|
p
|
||||||
|
d
|
||||||
|
}
|
||||||
|
g
|
||||||
|
}' "$src"
|
||||||
|
|
@ -0,0 +1,773 @@
|
||||||
|
/* $NetBSD: bootufs.c,v 1.1 1998/09/01 20:02:34 itohy Exp $ */
|
||||||
|
|
||||||
|
/*-
|
||||||
|
* Copyright (c) 1993, 1994 Takumi Nakamura.
|
||||||
|
*
|
||||||
|
* Redistribution and use in source and binary forms, with or without
|
||||||
|
* modification, are permitted provided that the following conditions
|
||||||
|
* are met:
|
||||||
|
* 1. Redistributions of source code must retain the above copyright
|
||||||
|
* notice, this list of conditions and the following disclaimer.
|
||||||
|
* 2. Redistributions in binary form must reproduce the above copyright
|
||||||
|
* notice, this list of conditions and the following disclaimer in the
|
||||||
|
* documentation and/or other materials provided with the distribution.
|
||||||
|
* 3. All advertising materials mentioning features or use of this software
|
||||||
|
* must display the following acknowledgement:
|
||||||
|
* This product includes software developed by Takumi Nakamura.
|
||||||
|
* 4. Neither the name of the University nor the names of its contributors
|
||||||
|
* may be used to endorse or promote products derived from this software
|
||||||
|
* without specific prior written permission.
|
||||||
|
*
|
||||||
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
||||||
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||||
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||||
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
||||||
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||||
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||||
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||||
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||||
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||||
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||||
|
* SUCH DAMAGE.
|
||||||
|
*/
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* file: bootufs.c
|
||||||
|
*
|
||||||
|
* author: chapuni(GBA02750@niftyserve.or.jp)
|
||||||
|
*
|
||||||
|
* 参考にしたもの: UNIX C PROGRAMMING (NUTSHELL)
|
||||||
|
* (俗に言うライオン本)
|
||||||
|
*
|
||||||
|
* これからの野望;
|
||||||
|
* ・意味もなくグラフィカルにしてみよう。
|
||||||
|
* ・ufs アクセスモジュールは、/sys/lib/libsa のものが
|
||||||
|
* 使えるハズなので、ぜひともそれを使うようにしよう。
|
||||||
|
* ・将来きっと FD DRIVER が出来上がるハズなので、それに
|
||||||
|
* いち早く対応しよう。
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <sys/param.h>
|
||||||
|
#include <sys/reboot.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
#include <ufs/ufs/dinode.h>
|
||||||
|
#include <ufs/ffs/fs.h>
|
||||||
|
#include <ufs/ufs/dir.h>
|
||||||
|
#include <a.out.h>
|
||||||
|
#include <machine/bootinfo.h>
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
#include <machine/disklabel.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include "xxboot.h"
|
||||||
|
#include "../../x68k/iodevice.h"
|
||||||
|
#include "../common/execkern.h"
|
||||||
|
#ifdef GZIP
|
||||||
|
#include "gunzip/gzip.h"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* assertion of sector size == 512 */
|
||||||
|
#if !(defined(DEV_BSHIFT) && defined(DEV_BSIZE) && defined(dbtob) \
|
||||||
|
&& DEV_BSHIFT == 9 && DEV_BSIZE == 512 && dbtob(1) == 512)
|
||||||
|
#error You must make changes to pass sector size to RAW_READ or 64bit-ise it.
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define alloca __builtin_alloca
|
||||||
|
#define memcpy __builtin_memcpy
|
||||||
|
|
||||||
|
static inline void memset __P((void *p, int v, size_t len));
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
static int get_scsi_part __P((void));
|
||||||
|
#endif
|
||||||
|
static int get_scsi_host_adapter __P((void));
|
||||||
|
|
||||||
|
static inline int
|
||||||
|
strcmp(a, b)
|
||||||
|
const char *a;
|
||||||
|
const char *b;
|
||||||
|
{
|
||||||
|
|
||||||
|
while (*a && *a == *b)
|
||||||
|
a++, b++;
|
||||||
|
return (*a != *b);
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline int
|
||||||
|
memcmp(a, b, n)
|
||||||
|
const char *a;
|
||||||
|
const char *b;
|
||||||
|
int n;
|
||||||
|
{
|
||||||
|
|
||||||
|
while (*a == *b && --n)
|
||||||
|
a++, b++;
|
||||||
|
return (*a != *b);
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline void
|
||||||
|
memset(p, v, len)
|
||||||
|
void *p;
|
||||||
|
int v;
|
||||||
|
size_t len;
|
||||||
|
{
|
||||||
|
|
||||||
|
while (len--)
|
||||||
|
*(char *)p++ = v;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* for debug */
|
||||||
|
#ifdef DEBUG_WITH_STDIO
|
||||||
|
extern int printf __P((const char *, ...));
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define IODEVbase ((volatile struct IODEVICE *)PHYS_IODEV)
|
||||||
|
|
||||||
|
union {
|
||||||
|
struct fs superblk; /* ホンモノ */
|
||||||
|
unsigned char buf[SBSIZE]; /* サイズ合わせ */
|
||||||
|
} superblk_buf;
|
||||||
|
|
||||||
|
#define sblock superblk_buf.superblk
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* ディレクトリエントリをため込むバッファ
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define N_VMUNIX 24
|
||||||
|
|
||||||
|
struct {
|
||||||
|
ino_t ino; /* inode */
|
||||||
|
char name[60];
|
||||||
|
} vmunix_dirent[N_VMUNIX];
|
||||||
|
|
||||||
|
char *lowram;
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* ブロックの連続読みを試みる。
|
||||||
|
* length = 0 のときは、単にバッファをフラッシュする
|
||||||
|
* だけとなる。
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
void *s_buf;
|
||||||
|
u_int32_t s_blkpos;
|
||||||
|
size_t s_len;
|
||||||
|
|
||||||
|
int
|
||||||
|
raw_read_queue(buf, blkpos, len)
|
||||||
|
void *buf;
|
||||||
|
u_int32_t blkpos;
|
||||||
|
size_t len;
|
||||||
|
{
|
||||||
|
int r = 0;
|
||||||
|
|
||||||
|
/* さいしょは何もしない */
|
||||||
|
if (s_len == 0) {
|
||||||
|
s_buf = buf;
|
||||||
|
s_blkpos = blkpos;
|
||||||
|
s_len = len;
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
/* 前のセクタと連続しているとき */
|
||||||
|
if (len > 0 && s_blkpos + btodb(s_len) == blkpos) {
|
||||||
|
s_len += len;
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
/* これまで溜っていたものを読む */
|
||||||
|
r = RAW_READ(s_buf, s_blkpos, s_len);
|
||||||
|
s_buf = buf;
|
||||||
|
s_blkpos = blkpos;
|
||||||
|
s_len = len;
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* スーパーブロックを読みこむ
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
get_superblk()
|
||||||
|
{
|
||||||
|
|
||||||
|
RAW_READ(&superblk_buf.buf, SBLOCK, SBSIZE);
|
||||||
|
#ifdef DEBUG_WITH_STDIO
|
||||||
|
printf("fs_magic=%08lx\n", sblock.fs_magic);
|
||||||
|
printf("fs_ipg=%08lx\n", sblock.fs_ipg);
|
||||||
|
printf("fs_ncg=%08lx\n", sblock.fs_ncg);
|
||||||
|
printf("fs_bsize=%08lx\n", sblock.fs_bsize);
|
||||||
|
printf("fs_fsize=%08lx\n", sblock.fs_fsize);
|
||||||
|
printf("INOPB=%08lx\n", INOPB(&sblock));
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* inode を取ってくる
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
int
|
||||||
|
get_inode(ino, pino)
|
||||||
|
ino_t ino;
|
||||||
|
struct dinode *pino;
|
||||||
|
{
|
||||||
|
struct dinode *buf = alloca((size_t) sblock.fs_bsize);
|
||||||
|
|
||||||
|
RAW_READ(buf,
|
||||||
|
fsbtodb(&sblock, (u_int32_t) ino_to_fsba(&sblock, ino)),
|
||||||
|
(size_t) sblock.fs_bsize);
|
||||||
|
*pino = buf[ino_to_fsbo(&sblock, ino)];
|
||||||
|
#ifdef DEBUG_WITH_STDIO
|
||||||
|
printf("%d)permission=%06ho\n", ino, pino->di_mode);
|
||||||
|
printf("%d)nlink=%4d\n", ino, pino->di_nlink);
|
||||||
|
printf("%d)uid=%4d\n", ino, pino->di_uid);
|
||||||
|
printf("%d)gid=%4d\n", ino, pino->di_gid);
|
||||||
|
printf("%d)size=%ld\n", ino, pino->di_size);
|
||||||
|
#endif
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* inode の指しているブロックを取ってくる
|
||||||
|
*
|
||||||
|
* NutShell ライオン本よりのパクり
|
||||||
|
*
|
||||||
|
* buf にはデータを読んでくるアドレスをセットして
|
||||||
|
* おいてほしいなあ。できればブロックを切りあげて
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
int
|
||||||
|
read_indirect(blkno, level, buf, count)
|
||||||
|
ufs_daddr_t blkno;
|
||||||
|
int level;
|
||||||
|
void **buf;
|
||||||
|
int count;
|
||||||
|
{
|
||||||
|
ufs_daddr_t idblk[MAXBSIZE / sizeof(ufs_daddr_t)];
|
||||||
|
int i;
|
||||||
|
|
||||||
|
RAW_READ(idblk,
|
||||||
|
fsbtodb(&sblock, (u_int32_t) blkno),
|
||||||
|
(size_t) sblock.fs_bsize);
|
||||||
|
|
||||||
|
for (i = 0; i < NINDIR(&sblock) && count > 0; i++) {
|
||||||
|
if (level) {
|
||||||
|
/* さらに間接ブロックを読ませる */
|
||||||
|
count = read_indirect(idblk[i], level - 1, buf, count);
|
||||||
|
} else {
|
||||||
|
/* データを読む */
|
||||||
|
#ifdef DEBUG_WITH_STDIO
|
||||||
|
printf("%d%4d\n", level, idblk[i]);
|
||||||
|
#endif
|
||||||
|
raw_read_queue(*buf,
|
||||||
|
fsbtodb(&sblock, (u_int32_t) idblk[i]),
|
||||||
|
(size_t) sblock.fs_bsize);
|
||||||
|
*buf += sblock.fs_bsize;
|
||||||
|
count -= sblock.fs_bsize;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return count;
|
||||||
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
read_blocks(dp, buf, count)
|
||||||
|
struct dinode *dp;
|
||||||
|
void *buf;
|
||||||
|
int count;
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
if (dp->di_size < (unsigned) count)
|
||||||
|
count = dp->di_size;
|
||||||
|
|
||||||
|
s_len = 0;
|
||||||
|
|
||||||
|
/* direct block を読む */
|
||||||
|
for (i = 0; i < NDADDR && count > 0; i++) {
|
||||||
|
#ifdef DEBUG_WITH_STDIO
|
||||||
|
printf(" %4d\n", dp->di_db[i]);
|
||||||
|
#endif
|
||||||
|
raw_read_queue(buf,
|
||||||
|
fsbtodb(&sblock, (u_int32_t) dp->di_db[i]),
|
||||||
|
(size_t) sblock.fs_bsize);
|
||||||
|
buf += sblock.fs_bsize;
|
||||||
|
count -= sblock.fs_bsize;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* indirect block を読む */
|
||||||
|
for (i = 0; i < NIADDR && count > 0; i++) {
|
||||||
|
count = read_indirect(dp->di_ib[i], i, &buf, count);
|
||||||
|
}
|
||||||
|
/* バッファのフラッシュ */
|
||||||
|
raw_read_queue(NULL, (u_int32_t) 0, (size_t) 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* 指定されたファイルの inode を求める
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
ino_t
|
||||||
|
search_file(dirino, filename)
|
||||||
|
ino_t dirino; /* ディレクトリの位置 */
|
||||||
|
const char *filename; /* ファイル名 */
|
||||||
|
{
|
||||||
|
void *dirp;
|
||||||
|
struct dinode dinode;
|
||||||
|
struct direct *dir;
|
||||||
|
|
||||||
|
get_inode(dirino, &dinode);
|
||||||
|
dirp = alloca((size_t) (dinode.di_size + MAXBSIZE - 1) & ~((unsigned) MAXBSIZE - 1));
|
||||||
|
read_blocks(&dinode, dirp, (int) dinode.di_size);
|
||||||
|
|
||||||
|
while (dir = dirp, dir->d_ino != 0) {
|
||||||
|
if (!strcmp(dir->d_name, filename))
|
||||||
|
return dir->d_ino;
|
||||||
|
dirp += dir->d_reclen;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* 指定されたファイルを読み込んでくる
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
unsigned
|
||||||
|
load_ino(buf, ino, filename)
|
||||||
|
void *buf;
|
||||||
|
ino_t ino;
|
||||||
|
const char *filename;
|
||||||
|
{
|
||||||
|
struct dinode dinode;
|
||||||
|
|
||||||
|
B_PRINT("loading ");
|
||||||
|
B_PRINT(filename);
|
||||||
|
B_PRINT("...");
|
||||||
|
get_inode(ino, &dinode);
|
||||||
|
read_blocks(&dinode, buf, (int) dinode.di_size);
|
||||||
|
return dinode.di_size;
|
||||||
|
}
|
||||||
|
|
||||||
|
unsigned
|
||||||
|
load_name(buf, dirino, filename)
|
||||||
|
void *buf; /* 読み込み先 */
|
||||||
|
ino_t dirino; /* 該当ディレクトリの inode 番号 */
|
||||||
|
const char *filename; /* ファイル名 */
|
||||||
|
{
|
||||||
|
ino_t ino;
|
||||||
|
|
||||||
|
ino = search_file(dirino, filename);
|
||||||
|
return ino ? load_ino(buf, ino, filename) : 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* for test
|
||||||
|
*
|
||||||
|
* 今のところ、vmunix はシンボリックリンクは許されて
|
||||||
|
* いないが、将来的にはどうにかなるかもしれん
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
print_hex(x, l)
|
||||||
|
unsigned x; /* 表示する数字 */
|
||||||
|
int l; /* 表示する桁数 */
|
||||||
|
{
|
||||||
|
|
||||||
|
if (l > 0) {
|
||||||
|
print_hex(x >> 4, l - 1);
|
||||||
|
x &= 0x0F;
|
||||||
|
if (x > 9)
|
||||||
|
x += 7;
|
||||||
|
B_PUTC('0' + x);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* vmunix.* netbsd.* のリストをつくり出す
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
pickup_list(dirino)
|
||||||
|
ino_t dirino;
|
||||||
|
{
|
||||||
|
void *dirp;
|
||||||
|
struct dinode dinode;
|
||||||
|
struct direct *dir;
|
||||||
|
int n = 0;
|
||||||
|
|
||||||
|
get_inode(dirino, &dinode);
|
||||||
|
dirp = alloca((size_t) (dinode.di_size + MAXBSIZE - 1) & ~((unsigned) MAXBSIZE - 1));
|
||||||
|
read_blocks(&dinode, dirp, (int) dinode.di_size);
|
||||||
|
|
||||||
|
while (dir = dirp, dir->d_ino != 0) {
|
||||||
|
if (!memcmp(dir->d_name, "vmunix", 6)
|
||||||
|
|| !memcmp(dir->d_name, "netbsd", 6)) {
|
||||||
|
vmunix_dirent[n].ino = dir->d_ino;
|
||||||
|
memcpy(vmunix_dirent[n].name, dir->d_name, 60);
|
||||||
|
if (++n >= N_VMUNIX)
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
dirp += dir->d_reclen;
|
||||||
|
}
|
||||||
|
while (n < N_VMUNIX)
|
||||||
|
vmunix_dirent[n++].ino = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* vmunix_dirent[] のレコードを表示する
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
void
|
||||||
|
print_list(n, active, boothowto)
|
||||||
|
int n;
|
||||||
|
int active;
|
||||||
|
unsigned boothowto;
|
||||||
|
{
|
||||||
|
|
||||||
|
if (!vmunix_dirent[n].ino)
|
||||||
|
return;
|
||||||
|
B_LOCATE(0, 7 + n);
|
||||||
|
B_PRINT(active && (boothowto & RB_SINGLE)
|
||||||
|
? "SINGLE "
|
||||||
|
: " ");
|
||||||
|
print_hex(vmunix_dirent[n].ino, 8);
|
||||||
|
B_PRINT(" ");
|
||||||
|
if (active)
|
||||||
|
B_COLOR(0x0F);
|
||||||
|
B_PRINT(vmunix_dirent[n].name);
|
||||||
|
B_COLOR(0x03);
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
/*
|
||||||
|
* get partition # from partition start position
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define NPART 15
|
||||||
|
#define PARTTBL_TOP ((unsigned)4) /* pos of part inf in 512byte-blocks */
|
||||||
|
#define MAXPART 6
|
||||||
|
const unsigned char partition_conv[MAXPART + 1] = { 0, 1, 3, 4, 5, 6, 7 };
|
||||||
|
|
||||||
|
static int
|
||||||
|
get_scsi_part()
|
||||||
|
{
|
||||||
|
struct {
|
||||||
|
u_int32_t magic; /* 0x5836384B ("X68K") */
|
||||||
|
u_int32_t parttotal;
|
||||||
|
u_int32_t diskblocks;
|
||||||
|
u_int32_t diskblocks2; /* backup? */
|
||||||
|
struct dos_partition parttbl[NPART];
|
||||||
|
unsigned char formatstr[256];
|
||||||
|
unsigned char rest[512];
|
||||||
|
} partbuf;
|
||||||
|
int i;
|
||||||
|
u_int32_t part_top;
|
||||||
|
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("seclen: ");
|
||||||
|
print_hex(SCSI_BLKLEN, 8); /* 0: 256, 1: 512, 2: 1024 */
|
||||||
|
B_PRINT(", topsec: ");
|
||||||
|
print_hex(SCSI_PARTTOP, 8); /* partition top in sector */
|
||||||
|
#endif
|
||||||
|
/*
|
||||||
|
* read partition table
|
||||||
|
*/
|
||||||
|
RAW_READ0(&partbuf, PARTTBL_TOP, sizeof partbuf);
|
||||||
|
|
||||||
|
part_top = SCSI_PARTTOP >> (2 - SCSI_BLKLEN);
|
||||||
|
for (i = 0; i < MAXPART; i++)
|
||||||
|
if ((u_int32_t) partbuf.parttbl[i].dp_start == part_top)
|
||||||
|
goto found;
|
||||||
|
|
||||||
|
BOOT_ERROR("Can't boot from this partition");
|
||||||
|
/* NOTREACHED */
|
||||||
|
found:
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("; sd");
|
||||||
|
B_PUTC((unsigned)ID + '0'); /* SCSI ID (not NetBSD unit #) */
|
||||||
|
B_PUTC((unsigned)partition_conv[i] + 'a');
|
||||||
|
#endif
|
||||||
|
return partition_conv[i];
|
||||||
|
}
|
||||||
|
#endif /* SCSI_ADHOC_BOOTPART */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Check the type of SCSI interface
|
||||||
|
*/
|
||||||
|
static int
|
||||||
|
get_scsi_host_adapter()
|
||||||
|
{
|
||||||
|
char *bootrom;
|
||||||
|
int ha;
|
||||||
|
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT(" at ");
|
||||||
|
#endif
|
||||||
|
bootrom = (char *) (BOOT_INFO & 0x00ffffe0);
|
||||||
|
if (!memcmp(bootrom + 0x24, "SCSIIN", 6)) {
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("spc0");
|
||||||
|
#endif
|
||||||
|
ha = (X68K_BOOT_SCSIIF_SPC << 4) | 0;
|
||||||
|
} else if (badbaddr(&IODEVbase->io_exspc.bdid)) {
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("mha0");
|
||||||
|
#endif
|
||||||
|
ha = (X68K_BOOT_SCSIIF_MHA << 4) | 0;
|
||||||
|
} else {
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("spc1");
|
||||||
|
#endif
|
||||||
|
ha = (X68K_BOOT_SCSIIF_SPC << 4) | 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
return ha;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* まじかよ？
|
||||||
|
*
|
||||||
|
* すべての IPL モジュールを読み込んできたあとは、
|
||||||
|
* ここに飛んでくる。「コアの転送」が終了するまでは、
|
||||||
|
* x68k IOCS は生きています。割り込みをマスクするまでは
|
||||||
|
* 大丈夫でしょう。
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
volatile void
|
||||||
|
bootufs()
|
||||||
|
{
|
||||||
|
unsigned long boothowto;
|
||||||
|
unsigned long esym;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
/* これは 0x100000 から存在しているもの */
|
||||||
|
extern struct exec header;
|
||||||
|
extern char image[];
|
||||||
|
/* これはコピー品 */
|
||||||
|
struct execkern_arg execinfo;
|
||||||
|
|
||||||
|
int bootdev;
|
||||||
|
unsigned short SFT;
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
/* for debug; 起動時のレジスタが入っている */
|
||||||
|
extern unsigned startregs[16];
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* MPU チェック */
|
||||||
|
#if 0
|
||||||
|
int sys_stat;
|
||||||
|
|
||||||
|
sys_stat = SYS_STAT(0);
|
||||||
|
if ((sys_stat & 255) == 0 ||
|
||||||
|
(getcpu() != 4 && !(sys_stat & (1 << 14)))) {
|
||||||
|
BOOT_ERROR("MMU がないため、NetBSD を起動できません。");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
/* for debug; レジスタの状態をプリントする */
|
||||||
|
for (i = 0; i < 16; i++) {
|
||||||
|
print_hex(startregs[i], 8);
|
||||||
|
B_PRINT((i & 7) == 7 ? "\r\n" : " ");
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/*
|
||||||
|
* get boot device
|
||||||
|
*/
|
||||||
|
if (BINF_ISFD(&BOOT_INFO)) {
|
||||||
|
/* floppy */
|
||||||
|
bootdev = X68K_MAKEBOOTDEV(X68K_MAJOR_FD, BOOT_INFO & 3,
|
||||||
|
(FDSECMINMAX.minsec.N == 3) ? 0 : 2);
|
||||||
|
} else {
|
||||||
|
/* SCSI */
|
||||||
|
int part, ha;
|
||||||
|
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
part = get_scsi_part();
|
||||||
|
#else
|
||||||
|
part = 0; /* sd?a only */
|
||||||
|
#endif
|
||||||
|
ha = get_scsi_host_adapter();
|
||||||
|
bootdev = X68K_MAKESCSIBOOTDEV(X68K_MAJOR_SD, ha >> 4, ha & 15,
|
||||||
|
ID & 7, 0, part);
|
||||||
|
}
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
B_PRINT("\r\nbootdev: ");
|
||||||
|
print_hex((unsigned) bootdev, 8);
|
||||||
|
B_PRINT("\r\nhit key\r\n");
|
||||||
|
(void) B_KEYINP(); /* wait key input */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* boothowto をセット */
|
||||||
|
boothowto = RB_AUTOBOOT;
|
||||||
|
|
||||||
|
/* シフトキーが押されていたら */
|
||||||
|
SFT = B_SFTSNS();
|
||||||
|
if (SFT & 0x01)
|
||||||
|
boothowto |= RB_SINGLE;
|
||||||
|
|
||||||
|
/* vmunix を読み込んでくる */
|
||||||
|
get_superblk();
|
||||||
|
if (sblock.fs_magic != FS_MAGIC) {
|
||||||
|
BOOT_ERROR("bogus super block: "
|
||||||
|
"ルートファイルシステムが壊れています！");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
|
||||||
|
if (boothowto == RB_AUTOBOOT) {
|
||||||
|
esym = load_name(&header, ROOTINO, "netbsd");
|
||||||
|
#ifdef GZIP
|
||||||
|
if (!esym)
|
||||||
|
esym = load_name(&header, ROOTINO, "netbsd.gz");
|
||||||
|
#endif
|
||||||
|
|
||||||
|
SFT = B_SFTSNS();
|
||||||
|
if (SFT & 0x0001)
|
||||||
|
boothowto |= RB_SINGLE;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (boothowto != RB_AUTOBOOT || !esym) {
|
||||||
|
int x = 0;
|
||||||
|
|
||||||
|
printtitle();
|
||||||
|
B_PRINT("....どのカーネルを読み込みますか？\r\n"
|
||||||
|
"SHIFT で RB_SINGLE がトグルします。\r\n");
|
||||||
|
|
||||||
|
/* ルートディレクトリを解析する */
|
||||||
|
pickup_list(ROOTINO);
|
||||||
|
|
||||||
|
/* 表示する */
|
||||||
|
for (i = 0; i < N_VMUNIX; i++) {
|
||||||
|
if (!memcmp(vmunix_dirent[i].name, "netbsd", 7)) {
|
||||||
|
print_list(x, 0, boothowto);
|
||||||
|
x = i;
|
||||||
|
}
|
||||||
|
print_list(i, i == x, boothowto);
|
||||||
|
}
|
||||||
|
|
||||||
|
wait_shift_release:
|
||||||
|
while (B_SFTSNS() & 0x0001)
|
||||||
|
;
|
||||||
|
|
||||||
|
/* 入力待ちループする */
|
||||||
|
for (;;) {
|
||||||
|
switch ((B_KEYINP() >> 8) & 0xFF) {
|
||||||
|
case 0x3C: /* UP */
|
||||||
|
if (x > 0) {
|
||||||
|
print_list(--x, 1, boothowto);
|
||||||
|
print_list(x + 1, 0, boothowto);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 0x3E: /* DOWN */
|
||||||
|
if (x < N_VMUNIX - 1
|
||||||
|
&& vmunix_dirent[x + 1].ino) {
|
||||||
|
print_list(++x, 1, boothowto);
|
||||||
|
print_list(x - 1, 0, boothowto);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 0x70: /* SHIFT */
|
||||||
|
boothowto ^= RB_SINGLE;
|
||||||
|
print_list(x, 1, boothowto);
|
||||||
|
goto wait_shift_release;
|
||||||
|
case 0x1D: /* CR */
|
||||||
|
case 0x4E: /* ENTER */
|
||||||
|
goto exit_loop;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
exit_loop:
|
||||||
|
printtitle();
|
||||||
|
esym = load_ino(&header,
|
||||||
|
vmunix_dirent[x].ino, vmunix_dirent[x].name);
|
||||||
|
}
|
||||||
|
#ifdef GZIP
|
||||||
|
load_done:
|
||||||
|
#endif
|
||||||
|
B_PRINT("done.\r\n");
|
||||||
|
|
||||||
|
#ifdef GZIP
|
||||||
|
/*
|
||||||
|
* Check if the file is gzip'ed
|
||||||
|
*/
|
||||||
|
if (check_gzip_magic((char *) &header)) {
|
||||||
|
/*
|
||||||
|
* uncompress
|
||||||
|
*/
|
||||||
|
char *ctop; /* gzip'ed top */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* transfer loaded file to safe? area
|
||||||
|
*
|
||||||
|
* 0x3F0000 - SIZE_ALLOC_BUF - ?
|
||||||
|
* (stack bottom) (see inflate.c)
|
||||||
|
*/
|
||||||
|
ctop = (char *) 0x3e8000 - esym;
|
||||||
|
memcpy(ctop, &header, esym);
|
||||||
|
|
||||||
|
B_PRINT("decompressing...");
|
||||||
|
|
||||||
|
/* unzip() doesn't return on failure */
|
||||||
|
esym = unzip(ctop, (char *) &header);
|
||||||
|
|
||||||
|
goto load_done;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* 「ひらがな」で、ddb を起こす */
|
||||||
|
SFT = B_SFTSNS();
|
||||||
|
if (SFT & 0x2000)
|
||||||
|
boothowto |= RB_KDB;
|
||||||
|
|
||||||
|
/* ヘッダをコピーする */
|
||||||
|
execinfo.image_top = image;
|
||||||
|
execinfo.load_addr = 0;
|
||||||
|
execinfo.text_size = header.a_text;
|
||||||
|
execinfo.data_size = header.a_data;
|
||||||
|
execinfo.bss_size = header.a_bss;
|
||||||
|
execinfo.symbol_size = header.a_syms;
|
||||||
|
execinfo.d5 = BOOT_INFO; /* unused for now */
|
||||||
|
execinfo.rootdev = bootdev;
|
||||||
|
execinfo.boothowto = boothowto;
|
||||||
|
execinfo.entry_addr = header.a_entry;
|
||||||
|
|
||||||
|
/* 本体をコアへ load する */
|
||||||
|
if (N_GETMID(header) == MID_M68K
|
||||||
|
&& N_GETMAGIC(header) == NMAGIC) {
|
||||||
|
|
||||||
|
/*
|
||||||
|
* ここから先は割り込み禁止である。
|
||||||
|
* 気をつけてくれ。
|
||||||
|
*/
|
||||||
|
asm("oriw #0x0700,sr");
|
||||||
|
|
||||||
|
/* 実行 */
|
||||||
|
exec_kernel(&execinfo);
|
||||||
|
/* NOTREACHED */
|
||||||
|
} else {
|
||||||
|
BOOT_ERROR("improper file format: 実行不可能です。");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* eof */
|
||||||
|
|
@ -0,0 +1,148 @@
|
||||||
|
|
|
||||||
|
| check FD format
|
||||||
|
|
|
||||||
|
| Written by Yasha (ITOH Yasufumi)
|
||||||
|
| This code is in the public domain
|
||||||
|
|
|
||||||
|
| $NetBSD: chkfmt.s,v 1.1 1998/09/01 20:02:34 itohy Exp $
|
||||||
|
|
||||||
|
/* FDC address */
|
||||||
|
#define FDC_STATUS 0xE94001 /* status register */
|
||||||
|
#define FDC_DATA 0xE94003 /* data register */
|
||||||
|
|
||||||
|
#define INT_STAT 0xE9C001 /* interrupt control */
|
||||||
|
#define INT_FDC_BIT 2
|
||||||
|
|
||||||
|
/* Status Register */
|
||||||
|
#define NE7ST_CB_BIT 4 /* FDC busy */
|
||||||
|
#define NE7ST_DIO_BIT 6 /* data input/output */
|
||||||
|
#define NE7ST_RQM_BIT 7 /* request for master */
|
||||||
|
|
||||||
|
/* FDC command */
|
||||||
|
#define NE7CMD_READID 0x4A /* READ ID */
|
||||||
|
|
||||||
|
|
|
||||||
|
| Read ID of all sectors in current track.
|
||||||
|
| This routine expects that motor on, drive selection
|
||||||
|
| and seek is already done.
|
||||||
|
|
|
||||||
|
| input: d0.b: 0 0 0 0 0 HD US1 US0 (binary)
|
||||||
|
| output: d0.l: min # sector (N C H R (2hex))
|
||||||
|
| d1.l: max # sector (N C H R (2hex))
|
||||||
|
| destroy:
|
||||||
|
| d0, d1
|
||||||
|
|
|
||||||
|
.text
|
||||||
|
.even
|
||||||
|
.globl check_fd_format
|
||||||
|
check_fd_format:
|
||||||
|
moveml d2-d7/a1-a3,sp@-
|
||||||
|
|
||||||
|
moveb d0,d6 | head, drive
|
||||||
|
|
||||||
|
lea FDC_STATUS:l,a1
|
||||||
|
lea a1@(FDC_DATA-FDC_STATUS),a2 | FDC_DATA
|
||||||
|
lea a2@(INT_STAT-FDC_DATA),a3 | INT_STAT
|
||||||
|
|
||||||
|
movew sr,sp@-
|
||||||
|
oriw #0x0700,sr | keep out interrupts
|
||||||
|
bclr #INT_FDC_BIT,a3@ | disable FDC interrupt
|
||||||
|
|
||||||
|
jbsr read_id_sub
|
||||||
|
jne exit_check_format
|
||||||
|
movel d3,d2 | first sector
|
||||||
|
movel d3,d0 | sector min
|
||||||
|
movel d3,d1 | sector max
|
||||||
|
|
||||||
|
loop_read_id:
|
||||||
|
jbsr read_id_sub
|
||||||
|
jne exit_check_format
|
||||||
|
cmpl d0,d3
|
||||||
|
jcc sector_not_min
|
||||||
|
movel d3,d0
|
||||||
|
sector_not_min:
|
||||||
|
cmpl d3,d1
|
||||||
|
jcc sector_not_max
|
||||||
|
movel d3,d1
|
||||||
|
sector_not_max:
|
||||||
|
cmpl d2,d3
|
||||||
|
jne loop_read_id
|
||||||
|
|
||||||
|
exit_check_format:
|
||||||
|
bset #INT_FDC_BIT,a3@ | enable FDC interrupt
|
||||||
|
movew a7@+,sr
|
||||||
|
|
||||||
|
tstl d7
|
||||||
|
moveml a7@+,d2-d7/a1-a3
|
||||||
|
jne _err_read_id
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| input: d6.b: 0 0 0 0 0 HD US1 US0 (binary)
|
||||||
|
| a1: FDC status addr
|
||||||
|
| a2: FDC data addr
|
||||||
|
| interrupt must be disabled
|
||||||
|
| output: d3.l: sector information: N C H R (2hex)
|
||||||
|
| d7.l: status (nonzero if error)
|
||||||
|
| Z flag: true if no error, false if error
|
||||||
|
| destroy:
|
||||||
|
| d3-d5, d7
|
||||||
|
|
|
||||||
|
read_id_sub:
|
||||||
|
| wait for FDC ready
|
||||||
|
fdc_wait_ready:
|
||||||
|
btst #NE7ST_CB_BIT,a1@
|
||||||
|
jne fdc_wait_ready
|
||||||
|
|
||||||
|
| send READ ID command
|
||||||
|
moveq #NE7CMD_READID,d4
|
||||||
|
jbsr fdc_send_command
|
||||||
|
moveb d6,d4 | X X X X X HD US1 US0 (binary)
|
||||||
|
jbsr fdc_send_command
|
||||||
|
|
||||||
|
| receive data
|
||||||
|
moveq #2,d4
|
||||||
|
jbsr fdc_read_bytes
|
||||||
|
movel d3,d7 | d7: FDC status: X ST0 ST1 ST2 (2hex)
|
||||||
|
moveq #3,d4
|
||||||
|
jbsr fdc_read_bytes | d3: sector info: C H R N (2hex)
|
||||||
|
rorl #8,d3 | d3: sector info: N C H R (2hex)
|
||||||
|
|
||||||
|
andil #0x00f8ffff,d7 | check status (must be zero)
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| send one byte of command
|
||||||
|
|
|
||||||
|
fdc_send_command:
|
||||||
|
jbsr fdc_wait_rqm
|
||||||
|
jne fdc_send_command
|
||||||
|
moveb d4,a2@
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| receive d4:w+1 bytes from FDC
|
||||||
|
|
|
||||||
|
fdc_read_bytes:
|
||||||
|
asll #8,d3
|
||||||
|
fdc_read_loop:
|
||||||
|
jbsr fdc_wait_rqm
|
||||||
|
jeq fdc_read_loop
|
||||||
|
moveb a2@,d3
|
||||||
|
dbra d4,fdc_read_bytes
|
||||||
|
rts
|
||||||
|
|
||||||
|
fdc_wait_rqm:
|
||||||
|
moveb a1@,d5
|
||||||
|
| btst #NE7ST_RQM_BIT,d5
|
||||||
|
| jeq fdc_wait_rqm
|
||||||
|
jpl fdc_wait_rqm | NE7ST_RQM_BIT = 7: sign bit
|
||||||
|
btst #NE7ST_DIO_BIT,d5
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| error
|
||||||
|
|
|
||||||
|
_err_read_id:
|
||||||
|
BOOT_ERROR("READ ID failed")
|
||||||
|
|
@ -0,0 +1,132 @@
|
||||||
|
/*
|
||||||
|
* Convert an EUC-Japanese code C source file to Shift-JIS
|
||||||
|
* and to \xxx escape sequences (X680x0 IOCS uses Shift-JIS code)
|
||||||
|
*
|
||||||
|
* This is compiled and executed on the host, and should be portable
|
||||||
|
*
|
||||||
|
* Written by Yasha (ITOH Yasufumi)
|
||||||
|
* This code is in the public domain
|
||||||
|
*
|
||||||
|
* $NetBSD: ej2sjesc.c,v 1.1 1998/09/01 20:02:34 itohy Exp $
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#ifndef __P
|
||||||
|
# ifdef __STDC__
|
||||||
|
# define __P(x) x
|
||||||
|
# else
|
||||||
|
# define __P(x) ()
|
||||||
|
# endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
void euc_to_sjis __P((int *ph, int *pl));
|
||||||
|
int xfclose __P((FILE *fp));
|
||||||
|
int main __P((int argc, char *argv[]));
|
||||||
|
|
||||||
|
#define ISEUC1(c) ((unsigned char)(c) & 0x80)
|
||||||
|
#define ISEUC2(c) ((unsigned char)(c) & 0x80)
|
||||||
|
|
||||||
|
#define EUC2JIS(c) ((unsigned char)(c) & 0x7f)
|
||||||
|
|
||||||
|
void
|
||||||
|
euc_to_sjis(ph, pl)
|
||||||
|
int *ph, *pl;
|
||||||
|
{
|
||||||
|
int hi = EUC2JIS(*ph);
|
||||||
|
int lo = EUC2JIS(*pl);
|
||||||
|
|
||||||
|
lo += (hi % 2) ? 0x1f : 0x7d;
|
||||||
|
if (lo >= 0x7f)
|
||||||
|
lo++;
|
||||||
|
hi = (hi - 0x21)/2 + 0x81;
|
||||||
|
if (hi > 0x9f)
|
||||||
|
hi += 0x40;
|
||||||
|
*ph = hi;
|
||||||
|
*pl = lo;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* I hear that closing stdin/stdout/stderr crashes exit(3) on some old BSDs
|
||||||
|
* (?? is it true?)
|
||||||
|
*/
|
||||||
|
int
|
||||||
|
xfclose(fp)
|
||||||
|
FILE *fp;
|
||||||
|
{
|
||||||
|
|
||||||
|
if (fp == stdin)
|
||||||
|
return 0; /* do nothing */
|
||||||
|
|
||||||
|
if (fp == stdout || fp == stderr)
|
||||||
|
return fflush(fp); /* complete write but not close */
|
||||||
|
|
||||||
|
return fclose(fp);
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char *argv[];
|
||||||
|
{
|
||||||
|
FILE *in, *out;
|
||||||
|
int c;
|
||||||
|
int error = 0;
|
||||||
|
|
||||||
|
if (argc != 3) {
|
||||||
|
fprintf(stderr, "usage: %s infile outfile\n", argv[0]);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!strcmp(argv[1], "-"))
|
||||||
|
in = stdin;
|
||||||
|
else if (!(in = fopen(argv[1], "r"))) {
|
||||||
|
perror(argv[1]);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!strcmp(argv[2], "-"))
|
||||||
|
out = stdout;
|
||||||
|
else if (!(out = fopen(argv[2], "w"))) {
|
||||||
|
perror(argv[2]);
|
||||||
|
xfclose(in);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* notify the original filname to the C compiler */
|
||||||
|
fprintf(out, "#line 1 \"%s\"\n", argv[1]);
|
||||||
|
|
||||||
|
while ((c = getc(in)) != EOF) {
|
||||||
|
if (ISEUC1(c)) {
|
||||||
|
int hi = c, lo = getc(in);
|
||||||
|
|
||||||
|
if (!ISEUC2(lo)) {
|
||||||
|
fprintf(stderr, "%s: not in EUC code\n",
|
||||||
|
argv[1]);
|
||||||
|
error = 1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
euc_to_sjis(&hi, &lo);
|
||||||
|
#if 0 /* for debug */
|
||||||
|
putc(hi, out);
|
||||||
|
putc(lo, out);
|
||||||
|
#else
|
||||||
|
fprintf(out, "\\%03o\\%03o", hi, lo);
|
||||||
|
#endif
|
||||||
|
} else
|
||||||
|
putc(c, out);
|
||||||
|
}
|
||||||
|
if (ferror(in) || xfclose(in)) {
|
||||||
|
perror(argv[1]);
|
||||||
|
error = 1;
|
||||||
|
}
|
||||||
|
if (ferror(out) || xfclose(out)) {
|
||||||
|
perror(argv[2]);
|
||||||
|
error = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (error)
|
||||||
|
remove(argv[2]);
|
||||||
|
|
||||||
|
return error;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,7 @@
|
||||||
|
# $NetBSD: MANIFEST,v 1.1 1998/09/01 20:03:45 itohy Exp $
|
||||||
|
#
|
||||||
|
Makefile.test test Makefile for Berkeley make
|
||||||
|
main.c test main() routine
|
||||||
|
gzip.h header file
|
||||||
|
inflate.c decompression routine (originally written by Mark Adler)
|
||||||
|
unzip.c interface routine
|
||||||
|
|
@ -0,0 +1,11 @@
|
||||||
|
# $NetBSD: Makefile.test,v 1.1 1998/09/01 20:03:46 itohy Exp $
|
||||||
|
#
|
||||||
|
# Makefile for test
|
||||||
|
|
||||||
|
PROG= zcat
|
||||||
|
SRCS= main.c unzip.c inflate.c
|
||||||
|
NOMAN= noman
|
||||||
|
CFLAGS= -Wall -O -fomit-frame-pointer -DBOOT -DTEST
|
||||||
|
LDFLAGS= -static -N
|
||||||
|
|
||||||
|
.include <bsd.prog.mk>
|
||||||
|
|
@ -0,0 +1,81 @@
|
||||||
|
/* $NetBSD: gzip.h,v 1.1 1998/09/01 20:03:46 itohy Exp $ */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Interface for extracting gzip'ed data
|
||||||
|
*
|
||||||
|
* Written by Yasha (ITOH Yasufumi)
|
||||||
|
* This code is in the public domain.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef GZIP_H
|
||||||
|
#define GZIP_H
|
||||||
|
|
||||||
|
#ifdef __STDC__
|
||||||
|
# define OF(p) p
|
||||||
|
#else
|
||||||
|
# define const
|
||||||
|
# define OF(p) ()
|
||||||
|
#endif
|
||||||
|
|
||||||
|
typedef unsigned int uint32;
|
||||||
|
typedef unsigned short uint16;
|
||||||
|
typedef unsigned char uch;
|
||||||
|
typedef unsigned short ush;
|
||||||
|
typedef unsigned long ulg;
|
||||||
|
typedef void *voidp;
|
||||||
|
|
||||||
|
/* magic number for gzip */
|
||||||
|
#define GZIP_MAGIC1 037
|
||||||
|
#define GZIP_MAGIC2 0213
|
||||||
|
#define GZIP_MAGIC2_OLD 0236 /* gzip 0.5 */
|
||||||
|
|
||||||
|
/* check gzip magic number */
|
||||||
|
#define check_gzip_magic(top) \
|
||||||
|
({ register const uch *t = top; \
|
||||||
|
*t++ == GZIP_MAGIC1 && (*t == GZIP_MAGIC2 || *t == GZIP_MAGIC2_OLD);})
|
||||||
|
|
||||||
|
/* gzip compression method */
|
||||||
|
#define GZIP_METHOD_DEFLATED 8
|
||||||
|
|
||||||
|
/* gzip flags */
|
||||||
|
#define GZIP_FLAG_ASCII 0001
|
||||||
|
#define GZIP_FLAG_MULTIPART 0002
|
||||||
|
#define GZIP_FLAG_EXTRA 0004
|
||||||
|
#define GZIP_FLAG_FILE_NAME 0010
|
||||||
|
#define GZIP_FLAG_COMMENT 0020
|
||||||
|
#define GZIP_FLAG_ENCRYPTED 0040
|
||||||
|
#define GZIP_FLAGS_RESERVED 0300
|
||||||
|
|
||||||
|
/* the window size */
|
||||||
|
#define WSIZE 32768
|
||||||
|
|
||||||
|
extern const uch *csrc; /* compressed data */
|
||||||
|
extern uch *udst; /* uncompressed data */
|
||||||
|
extern long udst_cnt;
|
||||||
|
extern unsigned outcnt;
|
||||||
|
extern uch window[WSIZE];
|
||||||
|
|
||||||
|
long unzip OF((const uch *src, uch *dst));
|
||||||
|
#ifdef TEST
|
||||||
|
int inflate OF((void));
|
||||||
|
#endif
|
||||||
|
void flush_window OF((void));
|
||||||
|
|
||||||
|
#if !defined(__GNUC__) || __GNUC__ < 2 || (__GNUC__ == 2 && __GNUC_MINOR__ < 5)
|
||||||
|
#define __attribute__(x)
|
||||||
|
#if defined(__GNUC__) && !defined(__STRICT_ANSI__)
|
||||||
|
__volatile
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
void BOOT_ERROR OF((const char *)) __attribute__((noreturn));
|
||||||
|
|
||||||
|
#define error(m) BOOT_ERROR(m)
|
||||||
|
|
||||||
|
#define Tracecv(a, b)
|
||||||
|
#define Tracevv(a)
|
||||||
|
|
||||||
|
#ifndef NULL
|
||||||
|
# define NULL 0
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#endif /* GZIP_H */
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,42 @@
|
||||||
|
/* $NetBSD: main.c,v 1.1 1998/09/01 20:03:47 itohy Exp $ */
|
||||||
|
|
||||||
|
#include <unistd.h>
|
||||||
|
#include "gzip.h"
|
||||||
|
|
||||||
|
#ifdef BOOT
|
||||||
|
static char src[1024*1024];
|
||||||
|
static char dst[2048*1024];
|
||||||
|
|
||||||
|
#ifdef __GNUC__
|
||||||
|
volatile
|
||||||
|
#endif
|
||||||
|
void
|
||||||
|
BOOT_ERROR(m)
|
||||||
|
const char *m;
|
||||||
|
{
|
||||||
|
write(2, m, strlen(m));
|
||||||
|
write(2, "\n", 1);
|
||||||
|
_exit(1);
|
||||||
|
for(;;); /* make gcc happy */
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* for debug */
|
||||||
|
int
|
||||||
|
main()
|
||||||
|
{
|
||||||
|
#ifdef BOOT
|
||||||
|
char *p;
|
||||||
|
int len;
|
||||||
|
|
||||||
|
for (p = src; (len = read(0, p, src + sizeof src - p)) > 0; p += len)
|
||||||
|
;
|
||||||
|
unzip(src, dst);
|
||||||
|
#else
|
||||||
|
unzip(0,0);
|
||||||
|
#endif
|
||||||
|
#ifdef BOOT
|
||||||
|
write (1, dst, udst_cnt);
|
||||||
|
#endif
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,161 @@
|
||||||
|
/* $NetBSD: unzip.c,v 1.1 1998/09/01 20:03:47 itohy Exp $ */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Extract gzip'ed data on the memory
|
||||||
|
*
|
||||||
|
* Written by Yasha (ITOH Yasufumi)
|
||||||
|
* This code is in the public domain.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include "gzip.h"
|
||||||
|
|
||||||
|
const uch *csrc; /* compressed data */
|
||||||
|
uch *udst; /* uncompressed data */
|
||||||
|
long udst_cnt; /* output byte counter */
|
||||||
|
|
||||||
|
unsigned outcnt; /* data length to be flushed */
|
||||||
|
|
||||||
|
void
|
||||||
|
flush_window()
|
||||||
|
{
|
||||||
|
#if defined(__GNUC__) && defined(__m68k__)
|
||||||
|
asm("lea _outcnt,a0\n\
|
||||||
|
movel a0@,d0\n\
|
||||||
|
addl d0,_udst_cnt\n\
|
||||||
|
movel d0,sp@-\n\
|
||||||
|
pea _window\n\
|
||||||
|
lea _udst,a1\n\
|
||||||
|
movel a1@,sp@-\n\
|
||||||
|
addl d0,a1@\n\
|
||||||
|
clrl a0@\n\
|
||||||
|
jbsr _memcpy\n\
|
||||||
|
lea sp@(12),sp");
|
||||||
|
#else
|
||||||
|
register unsigned cnt = outcnt;
|
||||||
|
|
||||||
|
udst_cnt += cnt;
|
||||||
|
memcpy(udst, window, cnt);
|
||||||
|
udst += cnt;
|
||||||
|
outcnt = 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifndef TEST
|
||||||
|
#include "inflate.c"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/*
|
||||||
|
* decompress gzip'ed data
|
||||||
|
*
|
||||||
|
* src: compressed data area for input
|
||||||
|
* dst: decompressed data area for output
|
||||||
|
*/
|
||||||
|
long
|
||||||
|
unzip(src, dst)
|
||||||
|
const uch *src;
|
||||||
|
uch *dst;
|
||||||
|
{
|
||||||
|
uch flags;
|
||||||
|
|
||||||
|
udst_cnt = 0;
|
||||||
|
udst = dst;
|
||||||
|
|
||||||
|
/* skip magic (must be checked before) */
|
||||||
|
src += 2;
|
||||||
|
|
||||||
|
/* check compression method */
|
||||||
|
if (*src++ != GZIP_METHOD_DEFLATED) {
|
||||||
|
error("unknown compression method");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
|
||||||
|
/* check flags */
|
||||||
|
flags = *src++;
|
||||||
|
if (flags &
|
||||||
|
(GZIP_FLAG_MULTIPART | GZIP_FLAG_ENCRYPTED | GZIP_FLAGS_RESERVED)) {
|
||||||
|
error("unsupported compression flag");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
|
||||||
|
/* skip mod time (4bytes), extra flags, operating system */
|
||||||
|
src += (4 + 1 + 1);
|
||||||
|
|
||||||
|
/* part number (2bytes) may exist here but not supported */
|
||||||
|
|
||||||
|
/* skip extra field if present */
|
||||||
|
if (flags & GZIP_FLAG_EXTRA) {
|
||||||
|
/* its length (LSB first) */
|
||||||
|
unsigned extralen;
|
||||||
|
#if defined(__GNUC__) && defined(__m68k__)
|
||||||
|
/*
|
||||||
|
* This doesn't work on 68000/010 since it does an unaligned access.
|
||||||
|
*/
|
||||||
|
asm("movew %1@+,%0\n\
|
||||||
|
rolw #8,%0" : "=d" (extralen), "=a" (src) : "0" (0), "1" (src));
|
||||||
|
#else
|
||||||
|
extralen = *src++;
|
||||||
|
extralen += (*src++ << 8);
|
||||||
|
#endif
|
||||||
|
src += extralen;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* skip original file name if present */
|
||||||
|
if (flags & GZIP_FLAG_FILE_NAME)
|
||||||
|
while (*src++)
|
||||||
|
;
|
||||||
|
|
||||||
|
/* skip file comment if present */
|
||||||
|
if (flags & GZIP_FLAG_COMMENT)
|
||||||
|
while (*src++)
|
||||||
|
;
|
||||||
|
|
||||||
|
/* encryption header (12bytes) may exist here but not supported */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Here must exist compressed data...
|
||||||
|
*/
|
||||||
|
csrc = src;
|
||||||
|
|
||||||
|
switch (inflate()) {
|
||||||
|
case 0:
|
||||||
|
/* no error */
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
error("out of memory");
|
||||||
|
/* NOTREACHED */
|
||||||
|
default:
|
||||||
|
invdata:
|
||||||
|
error("invalid compressed data");
|
||||||
|
/* NOTREACHED */
|
||||||
|
}
|
||||||
|
|
||||||
|
src = csrc;
|
||||||
|
|
||||||
|
/* 32bit CRC is not checked --- skip */
|
||||||
|
src += 4;
|
||||||
|
|
||||||
|
/* check uncompressed input size (LSB first) */
|
||||||
|
{
|
||||||
|
uint32 len;
|
||||||
|
|
||||||
|
#if defined(__GNUC__) && defined(__m68k__)
|
||||||
|
/*
|
||||||
|
* I think this is the smallest for MC68020 and later
|
||||||
|
* This doesn't work on 68000/010 since it does an unaligned access.
|
||||||
|
*/
|
||||||
|
asm("rolw #8,%0\n\
|
||||||
|
swap %0\n\
|
||||||
|
rolw #8,%0" : "=d" (len) : "0" (*(uint32 *)src));
|
||||||
|
#else
|
||||||
|
len = *src++;
|
||||||
|
len += *src++ << 8;
|
||||||
|
len += *src++ << 16;
|
||||||
|
len += *src << 24;
|
||||||
|
#endif
|
||||||
|
if (len != (uint32) udst_cnt)
|
||||||
|
goto invdata;
|
||||||
|
}
|
||||||
|
|
||||||
|
return udst_cnt;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,5 @@
|
||||||
|
# $NetBSD: MANIFEST,v 1.1 1998/09/01 20:04:04 itohy Exp $
|
||||||
|
|
||||||
|
netbsd.xpm Default boot image. The BSD Daemon is used by permission.
|
||||||
|
xpm2bootimg.c Convert *.xpm to boot title image format.
|
||||||
|
setbootimg.c Change boot title image of specified boot block (or file).
|
||||||
|
|
@ -0,0 +1,80 @@
|
||||||
|
/* XPM */
|
||||||
|
static char *netbsd[] = {
|
||||||
|
/* width height num_colors chars_per_pixel */
|
||||||
|
"56 52 5 1 XPMEXT",
|
||||||
|
/* colors */
|
||||||
|
" c None",
|
||||||
|
"# c #000000",
|
||||||
|
"* c #555555",
|
||||||
|
"+ c #aaaaaa",
|
||||||
|
". c #ffffff",
|
||||||
|
/* pixels */
|
||||||
|
" +. + ",
|
||||||
|
" *.. . ",
|
||||||
|
" *..+ ++ ",
|
||||||
|
" +..* +.* ",
|
||||||
|
" *..+** *++* ",
|
||||||
|
" +.+**.+** ++++ *.+** ",
|
||||||
|
" ..+**##*.*+++++++ *.+** ",
|
||||||
|
" ..**++##.+++##**** *...+** ",
|
||||||
|
" *..+##.#..##..##*****...++** ",
|
||||||
|
" *+#..#..#..##.##++.....++** ",
|
||||||
|
" +#...#.##....#.#*+.....++*# ",
|
||||||
|
" #....#.#.....#....+...++**# ",
|
||||||
|
" +#....#.#......#.+++++++**# ",
|
||||||
|
" #..##.#.###....#..++*****# ",
|
||||||
|
" #.####.#####...#...+++**# ",
|
||||||
|
" +#.#.##.##.##...#...++++* ",
|
||||||
|
" .#.#+##.##.##...#....+++** ",
|
||||||
|
" . +.*###########..#.....+++** ",
|
||||||
|
" .+ ...*###...###..#*.....+++*# ",
|
||||||
|
" + +.....#.....####*+++...+++*# ",
|
||||||
|
" .. ++ +.....#....#*.........+++** ",
|
||||||
|
" . + +.##..####**.........+++*# ",
|
||||||
|
" + . +..##........#####.+++** ",
|
||||||
|
".+ +.. *.++#.....###++..+++**# ",
|
||||||
|
" . ++. *+++######++...+++**# ",
|
||||||
|
" + .+*+. *++++++++...+*****# ",
|
||||||
|
" +++ +*++.*# *+++*...+++++**# ",
|
||||||
|
" **...* *.........++** ",
|
||||||
|
" +..*.*#* +...........++** ",
|
||||||
|
" ...*##+** ++............+*** ",
|
||||||
|
" *.+*#*+++*#..####....+..++*** ",
|
||||||
|
" ####++*++##+..+########++** ",
|
||||||
|
" .... ....#**+**.....#.......##** ..... ........+ ",
|
||||||
|
" +.. #.#**++***.....#..###...## .. ... .. ... ",
|
||||||
|
" .... ..#*********####..#.+#..##.. . .. .. ",
|
||||||
|
" .... ..#*########.###..#++#..# .. . .. ...",
|
||||||
|
" +..... . ######..##...#+#...# ... ... ...",
|
||||||
|
" +. ... .. ...##.....#..###...## .... .. ...",
|
||||||
|
" .. .. .. .. #..##..###......##### .... .. ...",
|
||||||
|
" .. ... .. .. #..##..###..###..#***# .... .. .. ",
|
||||||
|
" +.. .... .. ..##...##...#+*#..##++# ... ... ... ",
|
||||||
|
" .. .... .... ##..###...#++#..#.#+++#.. .. ..+ ",
|
||||||
|
" .. ... .. .#..###..####...#.###.#..#.. .... ",
|
||||||
|
" .. .. ... . #..#.#..###...# ...##..##..# .... ",
|
||||||
|
".... . .... ##..#........## ......##.......##** ",
|
||||||
|
" ######+++###########*** ##+*#######+.++* ",
|
||||||
|
" ......+..######+++++++++*# #..#***.....+*",
|
||||||
|
" +.....+++#.....+...++++**** *+...# ####.++",
|
||||||
|
" +++++++#+....++++++++++*** *++....+++++++.+++",
|
||||||
|
" ****#*+#+++++++***++***# +.+....+***+++++++*",
|
||||||
|
" ##********# #**#*++###****#*#",
|
||||||
|
" ##*+# ### ",
|
||||||
|
"XPMEXT copyright",
|
||||||
|
"BSD Daemon Copyright 1988 by Marshall Kirk McKusick."
|
||||||
|
"XPMEXT copyright_long",
|
||||||
|
"BSD Daemon image, used for NetBSD boot by permission.",
|
||||||
|
"",
|
||||||
|
"BSD Daemon Copyright 1988 by Marshall Kirk McKusick.",
|
||||||
|
"All Rights Reserved.",
|
||||||
|
"",
|
||||||
|
"Permission to use the daemon may be obtained from:",
|
||||||
|
" Marshall Kirk McKusick",
|
||||||
|
" 1614 Oxford St",
|
||||||
|
" Berkeley, CA 94709-1608",
|
||||||
|
" USA",
|
||||||
|
"or via email at mckusick@mckusick.com",
|
||||||
|
"XPMEXT rcsid $NetBSD: netbsd.xpm,v 1.1 1998/09/01 20:04:04 itohy Exp $",
|
||||||
|
"XPMENDEXT"
|
||||||
|
};
|
||||||
|
|
@ -0,0 +1,241 @@
|
||||||
|
/* $NetBSD: setbootimg.c,v 1.1 1998/09/01 20:04:05 itohy Exp $ */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* set boot title image (converted by xpm2bootimg)
|
||||||
|
* to boot file or installed boot block
|
||||||
|
*
|
||||||
|
* use with care, not to destroy the existent boot or the disklabel
|
||||||
|
*
|
||||||
|
* written by Yasha (ITOH Yasufumi), public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <sys/types.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
#ifdef __NetBSD__
|
||||||
|
#include <err.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/*
|
||||||
|
* define here for cross env
|
||||||
|
*/
|
||||||
|
#define SIZE_BOOTBLK 8192 /* <ufs/ffs/fs.h> BBSIZE */
|
||||||
|
#define MAGIC_DISKLABEL 0x82564557 /* <sys/disklabel.h> DISKMAGIC */
|
||||||
|
#define X68K_LABELOFF 64 /* <x68k/disklabel.h> LABELOFFSET */
|
||||||
|
|
||||||
|
#ifdef __STDC__
|
||||||
|
# define PROTO(x) x
|
||||||
|
#else
|
||||||
|
# define PROTO(x) ()
|
||||||
|
# ifndef const
|
||||||
|
# define const
|
||||||
|
# endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
int main PROTO((int argc, char *argv[]));
|
||||||
|
static unsigned get_uint16 PROTO((void *));
|
||||||
|
static unsigned get_uint32 PROTO((void *));
|
||||||
|
|
||||||
|
#ifndef __NetBSD__
|
||||||
|
/* for cross env */
|
||||||
|
|
||||||
|
#ifdef __STDC__
|
||||||
|
# include <stdarg.h>
|
||||||
|
# define VA_START(a, v) va_start(a, v)
|
||||||
|
# include <errno.h>
|
||||||
|
#else
|
||||||
|
# include <varargs.h>
|
||||||
|
# define VA_START(a, v) va_start(a)
|
||||||
|
extern int errno;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static void err PROTO((int eval, const char *fmt, ...));
|
||||||
|
static void errx PROTO((int eval, const char *fmt, ...));
|
||||||
|
|
||||||
|
static void
|
||||||
|
#ifdef __STDC__
|
||||||
|
err(int eval, const char *fmt, ...)
|
||||||
|
#else
|
||||||
|
err(eval, fmt, va_alist)
|
||||||
|
int eval;
|
||||||
|
const char *fmt;
|
||||||
|
va_dcl
|
||||||
|
#endif
|
||||||
|
{
|
||||||
|
int e = errno;
|
||||||
|
va_list ap;
|
||||||
|
|
||||||
|
fprintf(stderr, "setbootimg: ");
|
||||||
|
if (fmt) {
|
||||||
|
VA_START(ap, fmt);
|
||||||
|
vfprintf(stderr, fmt, ap);
|
||||||
|
va_end(ap);
|
||||||
|
fprintf(stderr, ": ");
|
||||||
|
}
|
||||||
|
errno = e;
|
||||||
|
perror((char *) 0);
|
||||||
|
exit(eval);
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
#ifdef __STDC__
|
||||||
|
errx(int eval, const char *fmt, ...)
|
||||||
|
#else
|
||||||
|
errx(eval, fmt, va_alist)
|
||||||
|
int eval;
|
||||||
|
const char *fmt;
|
||||||
|
va_dcl
|
||||||
|
#endif
|
||||||
|
{
|
||||||
|
va_list ap;
|
||||||
|
|
||||||
|
fprintf(stderr, "setbootimg: ");
|
||||||
|
if (fmt) {
|
||||||
|
VA_START(ap, fmt);
|
||||||
|
vfprintf(stderr, fmt, ap);
|
||||||
|
va_end(ap);
|
||||||
|
}
|
||||||
|
fprintf(stderr, "\n");
|
||||||
|
exit(eval);
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static unsigned
|
||||||
|
get_uint16(p)
|
||||||
|
void *p;
|
||||||
|
{
|
||||||
|
unsigned char *q = p;
|
||||||
|
|
||||||
|
return q[0] << 8 | q[1];
|
||||||
|
}
|
||||||
|
|
||||||
|
static unsigned
|
||||||
|
get_uint32(p)
|
||||||
|
void *p;
|
||||||
|
{
|
||||||
|
unsigned char *q = p;
|
||||||
|
|
||||||
|
return q[0] << 24 | q[1] << 16 | q[2] << 8 | q[3];
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
static const char boottop[] = {
|
||||||
|
0x60, 0x24, 0x53, 0x48, 0x41, 0x52, 0x50, 0x2F,
|
||||||
|
0x58, 0x36, 0x38, 0x30, 0x78, 0x30, 0x81, 0x99,
|
||||||
|
0x94, 0xE6, 0x82, 0xEA, 0x82, 0xBD, 0x8E, 0x9E,
|
||||||
|
0x82, 0xC9, 0x82, 0xCD, 0x8C, 0xBB, 0x8E, 0xC0,
|
||||||
|
0x93, 0xA6, 0x94, 0xF0, 0x81, 0x49
|
||||||
|
};
|
||||||
|
|
||||||
|
int
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char *argv[];
|
||||||
|
{
|
||||||
|
char *imgfile, *bootfile;
|
||||||
|
char img[SIZE_BOOTBLK], boot[SIZE_BOOTBLK];
|
||||||
|
int size_img, size_boot;
|
||||||
|
int fd;
|
||||||
|
int labelstart, labelend, imgstart, imgend;
|
||||||
|
|
||||||
|
if (argc != 3) {
|
||||||
|
fprintf(stderr, "usage: %s image_file boot_block\n", argv[0]);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
imgfile = argv[1];
|
||||||
|
bootfile = argv[2];
|
||||||
|
|
||||||
|
/*
|
||||||
|
* read image
|
||||||
|
*/
|
||||||
|
if ((fd = open(imgfile, O_RDONLY)) < 0)
|
||||||
|
err(1, "%s", imgfile);
|
||||||
|
|
||||||
|
if ((size_img = read(fd, img, sizeof img)) < 0)
|
||||||
|
err(1, "%s", imgfile);
|
||||||
|
|
||||||
|
if (size_img >= (int) sizeof img)
|
||||||
|
errx(1, "%s: file too large", imgfile);
|
||||||
|
|
||||||
|
(void) close(fd);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* read boot block
|
||||||
|
*/
|
||||||
|
if ((fd = open(bootfile, O_RDWR)) < 0)
|
||||||
|
err(1, "%s", bootfile);
|
||||||
|
|
||||||
|
if ((size_boot = read(fd, boot, sizeof boot)) < 0)
|
||||||
|
err(1, "%s", bootfile);
|
||||||
|
|
||||||
|
if (lseek(fd, (off_t) 0, SEEK_SET))
|
||||||
|
err(1, "%s: lseek", bootfile);
|
||||||
|
|
||||||
|
if (size_boot < 4096) /* XXX */
|
||||||
|
errx(1, "%s: too short", bootfile);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* check boot block
|
||||||
|
*/
|
||||||
|
if (memcmp(boot, boottop, sizeof boottop))
|
||||||
|
errx(1, "%s: not a boot", bootfile);
|
||||||
|
|
||||||
|
labelstart = X68K_LABELOFF;
|
||||||
|
if (get_uint16(boot + labelstart - 4) != 0x6000) /* bra */
|
||||||
|
badboot: errx(1, "%s: wrong boot block", bootfile);
|
||||||
|
|
||||||
|
labelend = labelstart + get_uint16(boot + labelstart - 2) - 4;
|
||||||
|
if (labelend >= size_boot)
|
||||||
|
goto badboot;
|
||||||
|
|
||||||
|
imgstart = get_uint16(boot + labelend);
|
||||||
|
if (imgstart == 0)
|
||||||
|
errx(1, "%s: no image support by this boot", bootfile);
|
||||||
|
|
||||||
|
imgend = get_uint16(boot + imgstart);
|
||||||
|
imgstart += 2;
|
||||||
|
|
||||||
|
if (imgend < imgstart || imgend >= size_boot)
|
||||||
|
goto badboot;
|
||||||
|
|
||||||
|
/* disklabel exists? */
|
||||||
|
if (get_uint32(boot + labelstart) == MAGIC_DISKLABEL)
|
||||||
|
labelstart = labelend; /* don't destroy disklabel */
|
||||||
|
else
|
||||||
|
labelstart += 2;
|
||||||
|
|
||||||
|
/*
|
||||||
|
* the image fits this boot?
|
||||||
|
*/
|
||||||
|
if (size_img > (imgend - imgstart) + (labelend - labelstart))
|
||||||
|
errx(1, "%s: image doesn't fit (max %d bytes)",
|
||||||
|
imgfile, (imgend - imgstart) + (labelend - labelstart));
|
||||||
|
|
||||||
|
/*
|
||||||
|
* put image into boot
|
||||||
|
*/
|
||||||
|
if (size_img <= (imgend - imgstart)) {
|
||||||
|
memcpy(boot + imgstart, img, size_img);
|
||||||
|
} else {
|
||||||
|
memcpy(boot + imgstart, img, imgend - imgstart);
|
||||||
|
boot[labelstart - 2] = 'i';
|
||||||
|
boot[labelstart - 1] = 'm';
|
||||||
|
memcpy(boot + labelstart, img + (imgend - imgstart),
|
||||||
|
size_img - (imgend - imgstart));
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* write back boot block
|
||||||
|
*/
|
||||||
|
if (write(fd, boot, size_boot) != size_boot)
|
||||||
|
err(1, "%s: write back", bootfile);
|
||||||
|
|
||||||
|
if (close(fd))
|
||||||
|
err(1, "%s: close write", bootfile);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,439 @@
|
||||||
|
/* $NetBSD: xpm2bootimg.c,v 1.1 1998/09/01 20:04:05 itohy Exp $ */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* convert XPM format image to boot title format
|
||||||
|
*
|
||||||
|
* written by Yasha (ITOH Yasufumi), public domain
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
static int opt_ascii;
|
||||||
|
|
||||||
|
#define IMGWIDTH 56
|
||||||
|
#define IMGHEIGHT 52
|
||||||
|
|
||||||
|
/* if you change this, you must also make changes to the extraction code */
|
||||||
|
#define VALBIT 2
|
||||||
|
#define LENBIT 3
|
||||||
|
#define LENMAX (1<<LENBIT)
|
||||||
|
|
||||||
|
#if VALBIT + LENBIT > 8
|
||||||
|
#error too long encoding --- not portable between architectures in this code
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* this program may run on cross host, and should be portable */
|
||||||
|
#ifdef __STDC__
|
||||||
|
# define PROTO(x) x
|
||||||
|
#else
|
||||||
|
# define PROTO(x) ()
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static void putbyte PROTO((int c));
|
||||||
|
static void initdot PROTO((void));
|
||||||
|
static void putrun PROTO((int val, int len));
|
||||||
|
static void adddot PROTO((int val));
|
||||||
|
static void flushdot PROTO((void));
|
||||||
|
|
||||||
|
static unsigned rgb16b PROTO((int rgb));
|
||||||
|
static char *destring PROTO((char *str));
|
||||||
|
static char *getline PROTO((void));
|
||||||
|
static void error PROTO((char *msg));
|
||||||
|
int main PROTO((int argc, char *argv[]));
|
||||||
|
|
||||||
|
static int outbuf;
|
||||||
|
static int bufbits;
|
||||||
|
static int curval;
|
||||||
|
static int curlen;
|
||||||
|
|
||||||
|
static int obytes;
|
||||||
|
|
||||||
|
static void
|
||||||
|
putbyte(c)
|
||||||
|
int c;
|
||||||
|
{
|
||||||
|
static unsigned char wbuf;
|
||||||
|
|
||||||
|
if (c == -1) {
|
||||||
|
if (obytes % 16 && opt_ascii)
|
||||||
|
printf("\n");
|
||||||
|
if (obytes & 1) {
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("\t.byte\t0x%02x\n", wbuf);
|
||||||
|
else
|
||||||
|
putchar(wbuf);
|
||||||
|
}
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("| compressed image %d bytes\n", obytes);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (obytes % 16 == 0 && opt_ascii)
|
||||||
|
printf("\t.word\t");
|
||||||
|
|
||||||
|
obytes++;
|
||||||
|
if (obytes & 1)
|
||||||
|
wbuf = c;
|
||||||
|
else {
|
||||||
|
if (opt_ascii) {
|
||||||
|
if ((obytes >> 1) % 8 != 1)
|
||||||
|
printf(",");
|
||||||
|
printf("0x%04x", (wbuf << 8) | c);
|
||||||
|
} else
|
||||||
|
printf("%c%c", wbuf, c);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (obytes % 16 == 0 && opt_ascii)
|
||||||
|
printf("\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
initdot()
|
||||||
|
{
|
||||||
|
|
||||||
|
outbuf = bufbits = curval = curlen = obytes = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
static int put;
|
||||||
|
|
||||||
|
static void
|
||||||
|
putrun(val, len)
|
||||||
|
int val, len;
|
||||||
|
{
|
||||||
|
|
||||||
|
/* fprintf(stderr, "val %d, len %d\n", val, len);*/
|
||||||
|
outbuf <<= VALBIT;
|
||||||
|
outbuf |= val;
|
||||||
|
outbuf <<= LENBIT;
|
||||||
|
outbuf |= len - 1;
|
||||||
|
bufbits += VALBIT + LENBIT;
|
||||||
|
|
||||||
|
if (bufbits >= 8) {
|
||||||
|
putbyte((unsigned char) (outbuf >> (bufbits - 8)));
|
||||||
|
bufbits -= 8;
|
||||||
|
put = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
adddot(val)
|
||||||
|
int val;
|
||||||
|
{
|
||||||
|
|
||||||
|
if (curval != val) {
|
||||||
|
if (curlen)
|
||||||
|
putrun(curval, curlen);
|
||||||
|
curlen = 0;
|
||||||
|
curval = val;
|
||||||
|
}
|
||||||
|
curlen++;
|
||||||
|
if (curlen == LENMAX) {
|
||||||
|
putrun(val, LENMAX);
|
||||||
|
curlen = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
flushdot()
|
||||||
|
{
|
||||||
|
|
||||||
|
if (curlen) {
|
||||||
|
putrun(curval, curlen);
|
||||||
|
curlen = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (bufbits) {
|
||||||
|
/* make sure data drain */
|
||||||
|
put = 0;
|
||||||
|
while (put == 0)
|
||||||
|
putrun(curval, LENMAX);
|
||||||
|
}
|
||||||
|
putbyte(-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* convert r8g8b8 to g5r5b5i1
|
||||||
|
*/
|
||||||
|
static unsigned
|
||||||
|
rgb16b(rgb)
|
||||||
|
int rgb;
|
||||||
|
{
|
||||||
|
unsigned r = rgb >> 16, g = (rgb >> 8) & 0xff, b = rgb & 0xff;
|
||||||
|
unsigned rgb16;
|
||||||
|
|
||||||
|
rgb16 = (g << 8 & 0xf800) | (r << 3 & 0x7c0) | (b >> 2 & 0x3e);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* v v v v v i i i
|
||||||
|
* valid bits used for I bit
|
||||||
|
*/
|
||||||
|
if ((r & 7) + (g & 7) + (b & 7) >= 11)
|
||||||
|
rgb16 |= 1;
|
||||||
|
|
||||||
|
return rgb16;
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
destring(str)
|
||||||
|
char *str; /* must be writable */
|
||||||
|
{
|
||||||
|
size_t len;
|
||||||
|
char *p;
|
||||||
|
|
||||||
|
if (*str != '"' || (len = strlen(str)) < 2)
|
||||||
|
return NULL;
|
||||||
|
p = str + len - 1;
|
||||||
|
if (*p == ',') {
|
||||||
|
if (len < 3)
|
||||||
|
return NULL;
|
||||||
|
p--;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (*p != '"')
|
||||||
|
return NULL;
|
||||||
|
|
||||||
|
*p = '\0';
|
||||||
|
return str + 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *filename;
|
||||||
|
static FILE *infp;
|
||||||
|
static unsigned lineno;
|
||||||
|
|
||||||
|
static char *
|
||||||
|
getline()
|
||||||
|
{
|
||||||
|
static char buf[256];
|
||||||
|
char *p;
|
||||||
|
|
||||||
|
if (!fgets(buf, sizeof buf, infp)) {
|
||||||
|
if (ferror(infp)) {
|
||||||
|
perror(filename);
|
||||||
|
exit(1);
|
||||||
|
} else
|
||||||
|
return NULL; /* end of input */
|
||||||
|
}
|
||||||
|
lineno++;
|
||||||
|
if (!(p = strchr(buf, '\n'))) {
|
||||||
|
fprintf(stderr, "%s:%d: too long line\n", filename, lineno);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
*p = '\0';
|
||||||
|
|
||||||
|
return buf;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
error(msg)
|
||||||
|
char *msg;
|
||||||
|
{
|
||||||
|
if (!msg)
|
||||||
|
msg = "format error";
|
||||||
|
|
||||||
|
fprintf(stderr, "%s:%d: %s\n", filename, lineno, msg);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
static struct color {
|
||||||
|
int ch;
|
||||||
|
enum col {
|
||||||
|
COL_BLACK, COL_1, COL_2, COL_WHITE
|
||||||
|
} val;
|
||||||
|
} coltbl[32];
|
||||||
|
|
||||||
|
unsigned col1, col2;
|
||||||
|
|
||||||
|
enum col bitmap[IMGHEIGHT][IMGWIDTH];
|
||||||
|
|
||||||
|
int
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char *argv[];
|
||||||
|
{
|
||||||
|
char *p;
|
||||||
|
unsigned u, colors, xcol, x;
|
||||||
|
char buf[256];
|
||||||
|
int in_oc;
|
||||||
|
char *progname = argv[0];
|
||||||
|
|
||||||
|
/*
|
||||||
|
* parse arg
|
||||||
|
*/
|
||||||
|
if (argc > 1 && !strcmp(argv[1], "-s")) {
|
||||||
|
/*
|
||||||
|
* -s option: output assembler source
|
||||||
|
* (output binary otherwise)
|
||||||
|
*/
|
||||||
|
opt_ascii = 1;
|
||||||
|
argc--;
|
||||||
|
argv++;
|
||||||
|
}
|
||||||
|
if (argc == 1) {
|
||||||
|
infp = stdin;
|
||||||
|
filename = "stdin";
|
||||||
|
} else if (argc == 2) {
|
||||||
|
if ((infp = fopen(argv[1], "r")) == NULL) {
|
||||||
|
perror(argv[1]);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
filename = argv[1];
|
||||||
|
} else {
|
||||||
|
fprintf(stderr, "usage: %s [file.xpm]\n", progname);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* check XPM magic
|
||||||
|
*/
|
||||||
|
if (!(p = getline()))
|
||||||
|
error("short file");
|
||||||
|
|
||||||
|
if (strcmp(p, "/* XPM */"))
|
||||||
|
error((char *) NULL);
|
||||||
|
|
||||||
|
while ((p = getline()) && !(p = destring(p)))
|
||||||
|
;
|
||||||
|
if (!p)
|
||||||
|
error((char *) NULL);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* the first string must be
|
||||||
|
* "56 52 5 1 XPMEXT",
|
||||||
|
*/
|
||||||
|
{
|
||||||
|
unsigned w, h, cpp;
|
||||||
|
|
||||||
|
if (sscanf(p, "%u %u %u %u %s",
|
||||||
|
&w, &h, &colors, &cpp, buf) != 5)
|
||||||
|
error("must be \"56 52 * 1 XPMEXT\"");
|
||||||
|
|
||||||
|
if (w != IMGWIDTH)
|
||||||
|
error("image width must be 56");
|
||||||
|
if (h != IMGHEIGHT)
|
||||||
|
error("image height must be 52");
|
||||||
|
if (cpp != 1)
|
||||||
|
error("chars-per-pixel must be 1");
|
||||||
|
if (strcmp(buf, "XPMEXT"))
|
||||||
|
error("XPMEXT is required");
|
||||||
|
}
|
||||||
|
if (colors > sizeof coltbl / sizeof coltbl[0])
|
||||||
|
error("too many colors");
|
||||||
|
|
||||||
|
/*
|
||||||
|
* read colors
|
||||||
|
* ". c #ffffff",
|
||||||
|
*/
|
||||||
|
xcol = 0;
|
||||||
|
for (u = 0; u < colors; u++) {
|
||||||
|
while ((p = getline()) && !(p = destring(p)))
|
||||||
|
;
|
||||||
|
if (!p)
|
||||||
|
error((char *) NULL);
|
||||||
|
if (sscanf(p, "%c %c %s", buf, buf+1, buf+2) != 3)
|
||||||
|
error((char *) NULL);
|
||||||
|
|
||||||
|
coltbl[u].ch = buf[0];
|
||||||
|
if (buf[2] == '#') {
|
||||||
|
int v;
|
||||||
|
if (sscanf(buf+3, "%x", &v) != 1)
|
||||||
|
error((char *) NULL);
|
||||||
|
if (v == 0)
|
||||||
|
coltbl[u].val = COL_BLACK;
|
||||||
|
else if (v == 0xffffff)
|
||||||
|
coltbl[u].val = COL_WHITE;
|
||||||
|
else if (xcol == 0) {
|
||||||
|
coltbl[u].val = COL_1;
|
||||||
|
col1 = rgb16b(v);
|
||||||
|
xcol++;
|
||||||
|
} else if (xcol == 1) {
|
||||||
|
coltbl[u].val = COL_2;
|
||||||
|
col2 = rgb16b(v);
|
||||||
|
xcol++;
|
||||||
|
} else
|
||||||
|
error("too many colors");
|
||||||
|
} else if (!strcmp(buf+2, "None")) {
|
||||||
|
/*
|
||||||
|
* transparent color is treated as black
|
||||||
|
*/
|
||||||
|
coltbl[u].val = COL_BLACK;
|
||||||
|
} else
|
||||||
|
error("unknown color (symbolic name is not supported)");
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* read bitmaps
|
||||||
|
*/
|
||||||
|
for (u = 0; u < IMGHEIGHT; u++) {
|
||||||
|
|
||||||
|
while ((p = getline()) && !(p = destring(p)))
|
||||||
|
;
|
||||||
|
if (!p)
|
||||||
|
error((char *) NULL);
|
||||||
|
|
||||||
|
if (strlen(p) != IMGWIDTH)
|
||||||
|
error((char *) NULL);
|
||||||
|
|
||||||
|
for (x = 0; x < IMGWIDTH; x++, p++) {
|
||||||
|
unsigned i;
|
||||||
|
|
||||||
|
for (i = 0; i < colors; i++)
|
||||||
|
if (coltbl[i].ch == *p)
|
||||||
|
goto found_ch;
|
||||||
|
error("unknown character");
|
||||||
|
|
||||||
|
found_ch:
|
||||||
|
bitmap[u][x] = coltbl[i].val;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* read XPMEXTs and output copyright string
|
||||||
|
*/
|
||||||
|
in_oc = 0;
|
||||||
|
while ((p = getline()) && *p == '\"') {
|
||||||
|
if (!(p = destring(p)))
|
||||||
|
error((char *) NULL);
|
||||||
|
if (!strcmp(p, "XPMEXT copyright"))
|
||||||
|
in_oc = 1;
|
||||||
|
else if (!strncmp(p, "XPMENDEXT", 3))
|
||||||
|
break;
|
||||||
|
else if (!strncmp(p, "XPM", 3))
|
||||||
|
in_oc = 0;
|
||||||
|
else {
|
||||||
|
if (in_oc) {
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("\t.ascii\t\"\\n%s\"\n", p);
|
||||||
|
else
|
||||||
|
printf("\n%s", p);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* terminate string */
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("\t.byte\t0\n");
|
||||||
|
else
|
||||||
|
putchar('\0');
|
||||||
|
|
||||||
|
/* output color palette */
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("\t.word\t0x%x,0x%x\n", col1, col2);
|
||||||
|
else
|
||||||
|
printf("%c%c%c%c", col1 >> 8, col1, col2 >> 8, col2);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* scan bitmap and output
|
||||||
|
*/
|
||||||
|
initdot();
|
||||||
|
|
||||||
|
for (u = 0; u < IMGHEIGHT; u++)
|
||||||
|
for (x = 0; x < IMGWIDTH; x++)
|
||||||
|
adddot(bitmap[u][x]);
|
||||||
|
|
||||||
|
flushdot();
|
||||||
|
|
||||||
|
if (opt_ascii)
|
||||||
|
printf("\t.even\n");
|
||||||
|
|
||||||
|
return ferror(stdout);
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,170 @@
|
||||||
|
#! /bin/sh
|
||||||
|
#
|
||||||
|
# do like as disklabel -B
|
||||||
|
#
|
||||||
|
# usage: installboot <boot_file> <boot_device(raw)>
|
||||||
|
#
|
||||||
|
# requires /bin/sh /bin/dd /bin/mkdir /bin/rm /bin/test
|
||||||
|
# /sbin/disklabel /usr/bin/sed /usr/bin/od
|
||||||
|
#
|
||||||
|
# Public domain --written by Yasha (ITOH Yasufumi)
|
||||||
|
#
|
||||||
|
# $NetBSD: installboot.sh,v 1.1 1998/09/01 20:02:34 itohy Exp $
|
||||||
|
|
||||||
|
# disklabel magic (0x82564557) in target byte order
|
||||||
|
disklabelmagic='202 126 105 127' # target is Big endian
|
||||||
|
#disklabelmagic='127 105 126 202' # target is Little endian
|
||||||
|
#disklabelmagic='126 202 127 105' # target is PDP endian
|
||||||
|
|
||||||
|
usage='echo "usage: $0 [-nvf] /usr/mdec/xxboot /dev/rxx?a" >&2; exit 1'
|
||||||
|
|
||||||
|
blksz=1024
|
||||||
|
nblock=8 # boot block in $blksz (8KB)
|
||||||
|
rawpart=c
|
||||||
|
|
||||||
|
PATH=/bin:/sbin:/usr/bin
|
||||||
|
|
||||||
|
# parse options
|
||||||
|
dowrite=true
|
||||||
|
verbose=false
|
||||||
|
force=false
|
||||||
|
while (case "$1" in -*) ;; *) exit 1;; esac); do
|
||||||
|
case "$1" in
|
||||||
|
-[nvf]|-[nvf][nvf]|-[nvf][nvf][nvf]|-[nvf][nvf][nvf][nvf]) # enough?
|
||||||
|
case "$1" in *n*) dowrite=false;; esac
|
||||||
|
case "$1" in *v*) verbose=true;; esac
|
||||||
|
case "$1" in *f*) force=true;; esac
|
||||||
|
shift
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
eval $usage;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
|
||||||
|
case "$#" in
|
||||||
|
2) ;;
|
||||||
|
*) eval $usage;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
boot="$1"
|
||||||
|
rootdev="$2"
|
||||||
|
temp=/tmp/installboot$$
|
||||||
|
isafloppy=false
|
||||||
|
haslabel=false
|
||||||
|
|
||||||
|
# report error early
|
||||||
|
if test ! -f "$boot"; then
|
||||||
|
echo "$boot: file not found" >&2
|
||||||
|
eval $usage
|
||||||
|
fi
|
||||||
|
|
||||||
|
# check device so as not to destroy non-BSD partitions
|
||||||
|
if test -b "$rootdev"; then
|
||||||
|
echo "$rootdev: is a block special---specify a char special"
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
if test -c "$rootdev"; then
|
||||||
|
if $force; then :; else # check if not -f
|
||||||
|
case "$rootdev" in
|
||||||
|
/dev/rfd??) # floppies---check disklabel later
|
||||||
|
isafloppy=true;;
|
||||||
|
/dev/r*[a-h]) # SCSI disks
|
||||||
|
$verbose && echo "checking partition type..."
|
||||||
|
rawdev="`echo \"$rootdev\" | sed 's/.$/'$rawpart'/'`"
|
||||||
|
part="`echo \"$rootdev\" | sed 's/^.*\(.\)$/\1/'`"
|
||||||
|
pinfo="`disklabel \"$rawdev\" | sed '1,/^$/d' |
|
||||||
|
sed -n -e 's/^#.*/#/p' -e \"/^ $part/p\"`"
|
||||||
|
$verbose && echo "$pinfo" | sed '/^#/d'
|
||||||
|
case "$pinfo" in
|
||||||
|
'#'*' '$part:*4.2BSD*)
|
||||||
|
$verbose && echo "partition OK"
|
||||||
|
;;
|
||||||
|
'#') echo "$rootdev: no such partition" >&2
|
||||||
|
exit 1;;
|
||||||
|
'') echo "$rootdev: can't read disklabel" >&2
|
||||||
|
exit 1;;
|
||||||
|
*) echo "$rootdev: not a BSD filesystem" >&2
|
||||||
|
exit 1;;
|
||||||
|
esac
|
||||||
|
;;
|
||||||
|
/*) # ???
|
||||||
|
echo "$rootdev: can't install boot to this device" >&2
|
||||||
|
exit 1;;
|
||||||
|
*)
|
||||||
|
echo "$rootdev: not in the absolute path" >&2
|
||||||
|
exit 1;;
|
||||||
|
esac
|
||||||
|
fi
|
||||||
|
elif test ! -f "$rootdev"; then
|
||||||
|
echo "$rootdev: no such file or character special" >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
# check for disklabel
|
||||||
|
case "`(dd if=\"$rootdev\" bs=$blksz count=1 | dd bs=4 skip=16 count=1 |
|
||||||
|
od -b | sed 1q) 2>/dev/null`" in
|
||||||
|
'0000000 '*" $disklabelmagic"*)
|
||||||
|
$verbose && echo "$rootdev: disklabel exists---may be a floppy disk"
|
||||||
|
haslabel=true;;
|
||||||
|
'0000000 '*|'*')
|
||||||
|
if $isafloppy; then
|
||||||
|
echo "$rootdev: not a BSD floppy disk" >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
$verbose && echo "$rootdev: no disklabel in boot block---may be a SCSI disk"
|
||||||
|
;;
|
||||||
|
*) # error
|
||||||
|
if $force; then :; else # check if not -f
|
||||||
|
echo "$rootdev: can't read boot block" >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
# write boot block
|
||||||
|
if $haslabel; then
|
||||||
|
trap "rm -rf $temp; exit 1" 1 2 3 15
|
||||||
|
rm -rf $temp
|
||||||
|
mkdir $temp || exit 1
|
||||||
|
bootblk=$temp/bootblk
|
||||||
|
|
||||||
|
# read original disklabel and create new boot block
|
||||||
|
# with somewhat paranoid error checkings
|
||||||
|
$verbose && echo "extracting disklabel of $rootdev"
|
||||||
|
case `( ( dd if="$boot" bs=64 count=1 || echo boot >&3
|
||||||
|
(dd if="$rootdev" bs=$blksz count=1 || echo dev >&3) |
|
||||||
|
dd bs=4 skip=16 count=69 || echo label >&3
|
||||||
|
dd if="$boot" bs=340 skip=1 || echo boot >&3
|
||||||
|
) >$bootblk 2>/dev/null ) 3>&1` in
|
||||||
|
'') ;; # OK
|
||||||
|
*dev*) echo "$rootdev: can't read disklabel" >&2
|
||||||
|
rm -rf $temp; exit 1;;
|
||||||
|
*label*)
|
||||||
|
echo "can't create temporary file" >&2
|
||||||
|
rm -rf $temp; exit 1;;
|
||||||
|
boot*) echo "$boot: unreadable" >&2
|
||||||
|
rm -rf $temp; exit 1;;
|
||||||
|
*) echo "$boot: unreadable or can't write temporary file" >&2
|
||||||
|
rm -rf $temp; exit 1;;
|
||||||
|
esac
|
||||||
|
# check if the disklabel is correctly read
|
||||||
|
case "`(dd if=$bootblk bs=$blksz count=1 | dd bs=4 skip=16 count=1 |
|
||||||
|
od -b | sed 1q) 2>/dev/null`" in
|
||||||
|
'0000000 '*" $disklabelmagic"*) ;;
|
||||||
|
*) echo "failed to extract original disklabel" >&2
|
||||||
|
rm -rf $temp; exit 1;;
|
||||||
|
esac
|
||||||
|
|
||||||
|
$verbose && echo "writing $boot to $rootdev"
|
||||||
|
cmd="dd if=$bootblk bs=$blksz count=$nblock conv=sync,notrunc of=$rootdev"
|
||||||
|
$verbose && echo "$cmd"
|
||||||
|
if $dowrite; then $cmd; else :; fi
|
||||||
|
s=$?
|
||||||
|
rm -rf $temp
|
||||||
|
exit $s
|
||||||
|
else
|
||||||
|
$verbose && echo "writing $boot to $rootdev"
|
||||||
|
cmd="dd if=$boot bs=$blksz count=$nblock conv=sync,notrunc of=$rootdev"
|
||||||
|
$verbose && echo "$cmd"
|
||||||
|
if $dowrite; then $cmd; else :; fi
|
||||||
|
fi
|
||||||
|
|
@ -0,0 +1,44 @@
|
||||||
|
/* $NetBSD: iocscall.h,v 1.1 1998/09/01 20:02:34 itohy Exp $ */
|
||||||
|
|
||||||
|
/*
|
||||||
|
* IOCS call macros for X680x0
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef X68k_IOCSCALL_H
|
||||||
|
#define X68k_IOCSCALL_H
|
||||||
|
|
||||||
|
#ifdef __NeXT__
|
||||||
|
# define IMM \#
|
||||||
|
#else
|
||||||
|
# define IMM #
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define IOCS(n) \
|
||||||
|
moveq IMM n,d0;\
|
||||||
|
trap IMM 15
|
||||||
|
|
||||||
|
#define __B_KEYINP 0x00
|
||||||
|
#define __B_SFTSNS 0x02
|
||||||
|
#define __TPALET2 0x14
|
||||||
|
#define __TCOLOR 0x15
|
||||||
|
#define __TEXTPUT 0x1B
|
||||||
|
#define __B_PUTC 0x20
|
||||||
|
#define __B_PRINT 0x21
|
||||||
|
#define __B_COLOR 0x22
|
||||||
|
#define __B_LOCATE 0x23
|
||||||
|
#define __B_CLR_ST 0x2A
|
||||||
|
#define __B_READ 0x46
|
||||||
|
#define __BOOTINF 0xFFFFFF8E
|
||||||
|
#define __JISSFT 0xFFFFFFA1
|
||||||
|
#define __SYS_STAT 0xFFFFFFAC /* only for X68030 or Xellent */
|
||||||
|
#define __SCSIDRV 0xFFFFFFF5
|
||||||
|
|
||||||
|
#define SCSIIOCS(s) \
|
||||||
|
moveq IMM s,d1;\
|
||||||
|
IOCS(__SCSIDRV)
|
||||||
|
|
||||||
|
#define __S_READ 0x21
|
||||||
|
#define __S_READCAP 0x25
|
||||||
|
#define __S_READEXT 0x26
|
||||||
|
|
||||||
|
#endif /*X68k_IOCSCALL_H*/
|
||||||
|
|
@ -0,0 +1,815 @@
|
||||||
|
| file: boot.s
|
||||||
|
| author: chapuni(GBA02750@niftyserve.or.jp)
|
||||||
|
| Yasha
|
||||||
|
|
|
||||||
|
| $NetBSD: xxboot.S,v 1.1 1998/09/01 20:02:35 itohy Exp $
|
||||||
|
|
||||||
|
#include "iocscall.h"
|
||||||
|
|
||||||
|
#define BASEOFF 0x8000
|
||||||
|
#define BASEPTR_A (TEXTADDR+BASEOFF)
|
||||||
|
#define BASEPTR_R pc@(top+BASEOFF:W)
|
||||||
|
|
||||||
|
#define SRAM 0x00ED0000 /* SRAM stat addr */
|
||||||
|
#define SRAM_MEMSZ (SRAM + 8) /* (L) size of main memory */
|
||||||
|
#define MINMEM 0x00400000 /* at least 4MB required */
|
||||||
|
|
||||||
|
#define BOOT_ERROR(s) jbsr boot_error; .asciz s; .even
|
||||||
|
|
||||||
|
.globl _header
|
||||||
|
.globl _image
|
||||||
|
|
||||||
|
_header=0x100000 | まずは、このアドレスに
|
||||||
|
_image=_header+(8*4) | コアをロードします。
|
||||||
|
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
.globl _startregs
|
||||||
|
_startregs=0xb000 | chosen arbitrarily...
|
||||||
|
#endif
|
||||||
|
|
||||||
|
.globl _bootufs
|
||||||
|
.text
|
||||||
|
top:
|
||||||
|
bras entry0
|
||||||
|
.ascii "SHARP/"
|
||||||
|
.ascii "X680x0"
|
||||||
|
.word 0x8199,0x94e6,0x82ea,0x82bd
|
||||||
|
.word 0x8e9e,0x82c9,0x82cd,0x8cbb
|
||||||
|
.word 0x8ec0,0x93a6,0x94f0,0x8149
|
||||||
|
| 0x2000 (FD), 0x2400 (SASI/SCSI) (もしくは 0x3F0000)
|
||||||
|
| d4 にはすでに SCSI ID が入っている
|
||||||
|
| ここから jmp まではリロケータブルに書かねばならない。
|
||||||
|
entry0:
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
moveml d0-d7/a0-a7,_startregs
|
||||||
|
#endif
|
||||||
|
lea BASEPTR_A:l,a5 | set base ptr
|
||||||
|
#define RELOC(adr) a5@(((adr)-(BASEPTR_A&0xffff)):W)
|
||||||
|
|
||||||
|
lea RELOC(_edata),a1 | BSS start
|
||||||
|
movew #_end-1,d0 | BSS end (low word only)
|
||||||
|
|
||||||
|
#ifndef BOOT_DEBUG /* not enough space -- moved below */
|
||||||
|
| check memory size (high word)
|
||||||
|
cmpiw #MINMEM/0x10000,SRAM_MEMSZ
|
||||||
|
#endif
|
||||||
|
bra entry
|
||||||
|
|
||||||
|
| 0x40 (= LABELOFFSET in <machine/disklabel.h>)
|
||||||
|
| Here disklabel exists for floppy disk (276 bytes)
|
||||||
|
disklabel:
|
||||||
|
.space 300
|
||||||
|
|
||||||
|
#ifdef TITLE_IMAGE
|
||||||
|
.word img_title-top
|
||||||
|
#else
|
||||||
|
.word 0
|
||||||
|
#endif
|
||||||
|
entry:
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
| check memory size (high word)
|
||||||
|
cmpiw #MINMEM/0x10000,SRAM_MEMSZ
|
||||||
|
#endif
|
||||||
|
jcc memok | (continued from above) RAM >= 4MB
|
||||||
|
BOOT_ERROR("4MB RAM required")
|
||||||
|
memok:
|
||||||
|
| clear out BSS (must be <= 64KB)
|
||||||
|
subw a1,d0
|
||||||
|
clrbss: clrb a1@+
|
||||||
|
dbra d0,clrbss
|
||||||
|
|
||||||
|
| set system stack
|
||||||
|
lea RELOC(top),a1 | set stack pointer to 0x003F0000
|
||||||
|
lea a1@,sp | a1 will be used later for IOCS calls
|
||||||
|
|
||||||
|
| we use 68020 instructions, and check MPU beforehand
|
||||||
|
|
|
||||||
|
| here d1.w = -1, and the above "subw a1,d0" = 0x9049, and
|
||||||
|
| if MPU <= 010 loads 0x49,
|
||||||
|
| if MPU >= 020 loads 0x90.
|
||||||
|
| This is a move, not a tst instruction
|
||||||
|
| because pc-relative tsts are not availble on 000/010.
|
||||||
|
chkmpu: moveb pc@(clrbss-chkmpu-2:B,d0:W:2),d0 | 103B 02xx
|
||||||
|
jmi mpuok | MC68020 or later
|
||||||
|
BOOT_ERROR("MPU 68000?")
|
||||||
|
mpuok: | XXX check for MMU?
|
||||||
|
|
||||||
|
movel d4,RELOC(_ID) | SCSI ID (if booted from SCSI)
|
||||||
|
IOCS(__BOOTINF)
|
||||||
|
movel d0,RELOC(_BOOT_INFO)
|
||||||
|
lsll #8,d0 | clear MSByte
|
||||||
|
lsrl #8,d0 |
|
||||||
|
|
||||||
|
|
|
||||||
|
| 0x80...0x8F SASI
|
||||||
|
| 0x90...0x93 Floppy
|
||||||
|
| 0xED0000...0xED3FFE SRAM
|
||||||
|
| others ROM (SCSI?)
|
||||||
|
|
|
||||||
|
movel d0,d1
|
||||||
|
clrb d1
|
||||||
|
tstl d1
|
||||||
|
jne boot_ram_rom
|
||||||
|
|
|
||||||
|
| SASI or Floppy
|
||||||
|
|
|
||||||
|
movel d0,d2
|
||||||
|
andib #0xFC,d0
|
||||||
|
cmpib #0x90,d0
|
||||||
|
jne boot_dev_unsupported | boot from SASI?
|
||||||
|
|
|
||||||
|
| Floppy
|
||||||
|
|
|
||||||
|
moveb d2,d0
|
||||||
|
andib #0x03,d0 | drive # (head=0)
|
||||||
|
jbsr check_fd_format
|
||||||
|
moveml d0-d1,RELOC(_FDSECMINMAX) | min and max sec #
|
||||||
|
lslw #8,d2
|
||||||
|
moveq #0x70,d1
|
||||||
|
orw d2,d1 | PDA*256 + MODE
|
||||||
|
movel d1,RELOC(_FDMODE)
|
||||||
|
movel d0,d2 | read position (first sector)
|
||||||
|
movel #8192,d3 | read bytes
|
||||||
|
IOCS(__B_READ)
|
||||||
|
jra boot_read_done
|
||||||
|
|
||||||
|
#include "chkfmt.s"
|
||||||
|
|
||||||
|
boot_ram_rom:
|
||||||
|
movel d0,d1
|
||||||
|
swap d1
|
||||||
|
cmpiw #0x00ED,d1
|
||||||
|
jne boot_SCSI
|
||||||
|
| boot from SRAM?
|
||||||
|
|
||||||
|
boot_dev_unsupported:
|
||||||
|
BOOT_ERROR("unsupported boot device")
|
||||||
|
|
||||||
|
|
|
||||||
|
| volatile void BOOT_ERROR(const char *msg);
|
||||||
|
| print error message, wait for key press and reboot
|
||||||
|
|
|
||||||
|
booterr_msg: .ascii "\r\n\n"
|
||||||
|
.ascii BOOT
|
||||||
|
.asciz ": "
|
||||||
|
reboot_msg: .asciz "\r\n[Hit key to reboot]"
|
||||||
|
.even
|
||||||
|
|
||||||
|
.globl _BOOT_ERROR
|
||||||
|
_BOOT_ERROR: addql #4,sp
|
||||||
|
|
||||||
|
boot_error: lea pc@(booterr_msg),a1
|
||||||
|
IOCS(__B_PRINT)
|
||||||
|
moveal sp@+,a1
|
||||||
|
IOCS(__B_PRINT)
|
||||||
|
lea pc@(reboot_msg),a1
|
||||||
|
IOCS(__B_PRINT)
|
||||||
|
|
||||||
|
| wait for a key press (or release of a modifier)
|
||||||
|
IOCS(__B_KEYINP)
|
||||||
|
|
||||||
|
| issue software reset
|
||||||
|
trap #10
|
||||||
|
| NOTREACHED
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
| ROM boot ... probably from SCSI
|
||||||
|
|
|
||||||
|
boot_SCSI:
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
|
|
||||||
|
| Find out boot partition in an ad hoc manner.
|
||||||
|
|
|
||||||
|
|
||||||
|
| get block length of the SCSI disk
|
||||||
|
SCSIIOCS(__S_READCAP) | using buffer at a1
|
||||||
|
tstl d0
|
||||||
|
jeq 1f
|
||||||
|
BOOT_ERROR("READCAP failed")
|
||||||
|
1: moveq #0,d5
|
||||||
|
moveb a1@(6),d5 | 1: 256, 2: 512, 4: 1024
|
||||||
|
lsrb #1,d5 | 0: 256, 1: 512, 2: 1024
|
||||||
|
movel d5,RELOC(_SCSI_BLKLEN)
|
||||||
|
|
||||||
|
| find out the start position of the boot partition
|
||||||
|
| XXX VERY AD HOC
|
||||||
|
|
|
||||||
|
| SCSI IPLs (genuine and SxSI):
|
||||||
|
| pass read pos (in kilobytes) in d2
|
||||||
|
| partition table on the memory is destroyed
|
||||||
|
| BOOT MENU Ver.2.22:
|
||||||
|
| passes partition table entry address in a0
|
||||||
|
| d2 is cleared to zero
|
||||||
|
| No other IPL is supported. XXX FIXME
|
||||||
|
tstl d2
|
||||||
|
jne 1f
|
||||||
|
| no information in d2 -- probably from BOOT MENU
|
||||||
|
| a0 points the partiion table entry
|
||||||
|
movel a0@(0x0008),d2 | in KByte
|
||||||
|
1: lsll #8,d2 | clear MSByte
|
||||||
|
lsrl #6,d2 |
|
||||||
|
lsrl d5,d2 | in sector
|
||||||
|
movel d2,RELOC(_SCSI_PARTTOP)
|
||||||
|
|
||||||
|
| read entire boot
|
||||||
|
moveq #8192/256,d3 | size is 8KB
|
||||||
|
lsrl d5,d3 | in sector
|
||||||
|
jbsr scsiread | read at a1
|
||||||
|
#else
|
||||||
|
moveq #1,d5 | 512bytes/sec
|
||||||
|
moveq #8192/512,d3 | 読み込める最大サイズ
|
||||||
|
moveq #0x40,d2 | いわゆる決め打ち(sd*a のみ)
|
||||||
|
SCSIIOCS(__S_READ)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
boot_read_done:
|
||||||
|
|
||||||
|
| テキストパレットの初期化
|
||||||
|
moveq #15,d1
|
||||||
|
initpalet:
|
||||||
|
moveq #0,d2
|
||||||
|
subqw #1,d2 | movel #0xFFFF,d2
|
||||||
|
IOCS(__TPALET2)
|
||||||
|
subqw #1,d1
|
||||||
|
moveq #0,d2
|
||||||
|
IOCS(__TPALET2)
|
||||||
|
dbra d1,initpalet
|
||||||
|
|
||||||
|
jsr RELOC(_printtitle)
|
||||||
|
jmp RELOC(_bootufs) | 0x3Fxxxx に飛んでゆく
|
||||||
|
|
||||||
|
read_error: BOOT_ERROR("read error")
|
||||||
|
|
||||||
|
#undef RELOC /* base register a5 is no longer available */
|
||||||
|
|
||||||
|
|
|
||||||
|
| read SCSI
|
||||||
|
|
|
||||||
|
| input: d2.l: pos in sector
|
||||||
|
| d3.l: len in sector
|
||||||
|
| d4: target SCSI ID
|
||||||
|
| d5: sector length (0: 256, 1: 512, 2: 1024)
|
||||||
|
| a1: buffer address
|
||||||
|
| destroy:
|
||||||
|
| d0, d1, a1
|
||||||
|
|
|
||||||
|
scsiread:
|
||||||
|
moveml d2-d3/d6-d7/a2,sp@-
|
||||||
|
| if (pos >= 0x200000 || (len > 255 && pos + len >= 0x200000))
|
||||||
|
| use READEXT
|
||||||
|
| else
|
||||||
|
| use READ
|
||||||
|
moveq #0x20,d0
|
||||||
|
swap d0 | d0.l = 0x00200000
|
||||||
|
moveq #0,d6
|
||||||
|
subqb #1,d6 | d6.l = 255
|
||||||
|
moveq #8,d7
|
||||||
|
addb d5,d7 | d7.b = (sector length: 0-2) + 8
|
||||||
|
cmpl d0,d2
|
||||||
|
jcc scsiread_ext
|
||||||
|
moveq #__S_READ,d1
|
||||||
|
cmpl d3,d6
|
||||||
|
jcc scsiread_noext
|
||||||
|
subl d2,d0 | d0.0 = 0x200000 - pos
|
||||||
|
cmpl d0,d3 | <= len
|
||||||
|
jcs scsiread_noext | no
|
||||||
|
|
||||||
|
scsiread_ext: | use READEXT
|
||||||
|
extw d6 | d6.l = 65535
|
||||||
|
moveq #__S_READEXT,d1
|
||||||
|
|
||||||
|
scsiread_noext: | use READ
|
||||||
|
loop_scsiread:
|
||||||
|
| d1: SCSI IOCS call #
|
||||||
|
| d6: max sector count at a time
|
||||||
|
movel d3,a2 | save original len in a2
|
||||||
|
cmpl d3,d6
|
||||||
|
jcc 1f
|
||||||
|
movel d6,d3
|
||||||
|
1: IOCS(__SCSIDRV) | SCSIIOCS(d1)
|
||||||
|
tstl d0
|
||||||
|
jne read_error
|
||||||
|
movel d3,d0 | addr += read count << (8 + sec len)
|
||||||
|
asll d7,d0
|
||||||
|
addl d0,a1
|
||||||
|
exg d3,a2 | restore original len to d3
|
||||||
|
addl a2,d2 | pos += read count
|
||||||
|
subl a2,d3 | len -= read count
|
||||||
|
jne loop_scsiread
|
||||||
|
moveml sp@+,d2-d3/d6-d7/a2
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| The former part must reside in the first 1KB.
|
||||||
|
|
|
||||||
|
.globl first_kbyte
|
||||||
|
first_kbyte:
|
||||||
|
|--------------------------------------------------------------------------
|
||||||
|
|
|
||||||
|
| The latter text+data part is not accessible at the first boot time.
|
||||||
|
| PC-relative can be used from here.
|
||||||
|
|
|
||||||
|
|
||||||
|
| int badbaddr __P((caddr_t adr));
|
||||||
|
| check if the given address is valid for byte read
|
||||||
|
| return: 0: valid, 1: not valid
|
||||||
|
|
||||||
|
.globl _badbaddr
|
||||||
|
_badbaddr:
|
||||||
|
lea 0x0008:W,a1 | MPU Bus Error vector
|
||||||
|
moveq #1,d0
|
||||||
|
lea pc@(badr1),a0
|
||||||
|
movew sr,sp@-
|
||||||
|
oriw #0x0700,sr | keep out interrupts
|
||||||
|
movel a1@,sp@-
|
||||||
|
movel a0,a1@ | set bus error vector
|
||||||
|
movel sp,d1 | save sp
|
||||||
|
moveal sp@(10),a0
|
||||||
|
tstb a0@ | try read...
|
||||||
|
moveq #0,d0 | this is skipped on bus error
|
||||||
|
badr1: moveal d1,sp | restore sp
|
||||||
|
movel sp@+,a1@
|
||||||
|
movew sp@+,sr
|
||||||
|
rts
|
||||||
|
|
||||||
|
| void RAW_READ __P((void *buf, u_int32_t blkpos, size_t bytelen));
|
||||||
|
| inputs:
|
||||||
|
| buf: input buffer address
|
||||||
|
| blkpos: read start position in the partition in 512byte-blocks
|
||||||
|
| bytelen: read length in bytes
|
||||||
|
|
||||||
|
Lraw_read_buf=4+(4*11)
|
||||||
|
Lraw_read_pos_=Lraw_read_buf+4
|
||||||
|
Lraw_read_len=Lraw_read_buf+8
|
||||||
|
|
||||||
|
.globl _RAW_READ
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
.globl _RAW_READ0
|
||||||
|
| RAW_READ of physical disk
|
||||||
|
_RAW_READ0:
|
||||||
|
moveq #0,d0
|
||||||
|
jra raw_read1
|
||||||
|
#endif
|
||||||
|
_RAW_READ:
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
movel _SCSI_PARTTOP,d0
|
||||||
|
raw_read1:
|
||||||
|
#endif
|
||||||
|
moveml d2-d7/a2-a6,sp@-
|
||||||
|
moveml sp@(Lraw_read_buf),d1-d3
|
||||||
|
movel d1,a1
|
||||||
|
| d2.l: pos in 512byte-blocks
|
||||||
|
| d3.l: length in bytes
|
||||||
|
| a1 (=d1): buffer address
|
||||||
|
|
||||||
|
lea BASEPTR_R,a5 | set base ptr
|
||||||
|
#define RELOC(adr) a5@(((adr)-(BASEPTR_A&0xffff)):W)
|
||||||
|
|
||||||
|
tstb RELOC(_BOOT_INFO+1) | simple check. may be incorrect!
|
||||||
|
beqs raw_read_floppy
|
||||||
|
|
||||||
|
raw_read_scsi:
|
||||||
|
movel RELOC(_ID),d4 | SCSI ID
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
movel RELOC(_SCSI_BLKLEN),d5 | sector size: 0-2
|
||||||
|
| XXX length must be sector aligned
|
||||||
|
lsrl #8,d3 | size in 256byte-blocks
|
||||||
|
lsrl d5,d3 | size in sector
|
||||||
|
bcss read_half | minimal error check
|
||||||
|
lsll #1,d2 | X flag and d2: pos in 256byte-blocks
|
||||||
|
roxrl d5,d2 | pos in sector
|
||||||
|
addl d0,d2 | physical pos in sector
|
||||||
|
#else
|
||||||
|
moveq #1,d5 | 512bytes/sec
|
||||||
|
moveq #9,d0 | shift count
|
||||||
|
addl #511,d3
|
||||||
|
lsrl d0,d3
|
||||||
|
bcss read_half | minimal error check
|
||||||
|
|
||||||
|
addl #0x40,d2 | 'a' partition starts here
|
||||||
|
#endif
|
||||||
|
| jcc 1f
|
||||||
|
| BOOT_ERROR("out of seek") | pos exceeds 32bit
|
||||||
|
|1:
|
||||||
|
jbsr scsiread
|
||||||
|
bras raw_read_end
|
||||||
|
|
||||||
|
raw_read_floppy:
|
||||||
|
|
|
||||||
|
| Floppy read routine
|
||||||
|
|
|
||||||
|
|
||||||
|
| convert to seek position
|
||||||
|
|
||||||
|
asll #2,d2 | size in 128byte-blocks
|
||||||
|
|
||||||
|
| sec = raw_read_pos (d2)
|
||||||
|
| sec >>= 7 + (sector length: 0-3)
|
||||||
|
|
||||||
|
lea RELOC(_FDSECMINMAX),a0
|
||||||
|
moveq #0,d1
|
||||||
|
moveb a0@,d1 | d1: sector length (0-3)
|
||||||
|
lsrl d1,d2 | d2: pos in sector
|
||||||
|
bcss read_half | error check
|
||||||
|
|
||||||
|
| trk = sec / (# sectors)
|
||||||
|
| sec = sec % (# sectors)
|
||||||
|
|
||||||
|
moveb a0@(7),d1 | d1: max sector #
|
||||||
|
subb a0@(3),d1 | - min sector #
|
||||||
|
addqb #1,d1 | d1: # sectors
|
||||||
|
divu d1,d2 | d2: (sec << 16) | track
|
||||||
|
|
||||||
|
| position = (sec length << 24) | (track/2 << 16)
|
||||||
|
| | (track%2 << 8) | (min sec # + sec)
|
||||||
|
|
||||||
|
movel a0@,d0 | d0: (sec len << 24) | min sec #
|
||||||
|
lsrw #1,d2 | d2: (sec << 16) | (track / 2)
|
||||||
|
jcc 1f
|
||||||
|
bset #8,d0 | |= (track % 2) << 8
|
||||||
|
1: swap d2 | d2: ((track / 2) << 16) | sec
|
||||||
|
addl d0,d2 | d2: position
|
||||||
|
|
||||||
|
| read
|
||||||
|
movel RELOC(_FDMODE),d1 | PDA*256 + MODE
|
||||||
|
|
||||||
|
| B_READ (for floppy)
|
||||||
|
| d1.w: PDA x 256 + MODE
|
||||||
|
| PDA: 0x90 (drive 0) ... 0x93 (drive 3)
|
||||||
|
| MODE: bit6: MFM
|
||||||
|
| bit5: retry
|
||||||
|
| bit4: seek
|
||||||
|
| d2.l: position
|
||||||
|
| bit31-24: sector length (0: 128, 1: 256, 2: 512, 3: 1K)
|
||||||
|
| bit23-16: track # (0-79)
|
||||||
|
| bit15-08: side (0 or 1)
|
||||||
|
| bit07-00: sector # (1-)
|
||||||
|
| d3.l: read bytes
|
||||||
|
| a1: read address
|
||||||
|
| return:
|
||||||
|
| d0: bit 31-24 ST0
|
||||||
|
| bit 23-16 ST1
|
||||||
|
| bit 15- 8 ST2
|
||||||
|
| bit 7- 0 C
|
||||||
|
| -1 on parameter error
|
||||||
|
| destroy: d0, d2, d3, a1
|
||||||
|
IOCS(__B_READ)
|
||||||
|
andil #0xf8ffff00,d0 | check status (must be zero)
|
||||||
|
jne read_error
|
||||||
|
|
||||||
|
raw_read_end:
|
||||||
|
moveml sp@+,a2-a6/d2-d7
|
||||||
|
rts
|
||||||
|
#undef RELOC /* base register a5 is no longer available */
|
||||||
|
|
||||||
|
read_half: BOOT_ERROR("read half of block")
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
.globl _JISSFT
|
||||||
|
_JISSFT:
|
||||||
|
movel sp@(4),d1
|
||||||
|
IOCS(__JISSFT)
|
||||||
|
rts
|
||||||
|
#endif
|
||||||
|
|
||||||
|
.globl _B_SFTSNS
|
||||||
|
_B_SFTSNS:
|
||||||
|
IOCS(__B_SFTSNS)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_KEYINP
|
||||||
|
_B_KEYINP:
|
||||||
|
IOCS(__B_KEYINP)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_PUTC
|
||||||
|
_B_PUTC:
|
||||||
|
movel sp@(4),d1
|
||||||
|
IOCS(__B_PUTC)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_PRINT
|
||||||
|
_B_PRINT:
|
||||||
|
movel sp@(4),a1
|
||||||
|
IOCS(__B_PRINT)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_COLOR
|
||||||
|
_B_COLOR:
|
||||||
|
movel sp@(4),d1
|
||||||
|
IOCS(__B_COLOR)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_LOCATE
|
||||||
|
_B_LOCATE:
|
||||||
|
movel d2,sp@-
|
||||||
|
movel sp@(8),d1
|
||||||
|
movel sp@(12),d2
|
||||||
|
IOCS(__B_LOCATE)
|
||||||
|
movel sp@+,d2
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _B_CLR_ST
|
||||||
|
_B_CLR_ST:
|
||||||
|
movel sp@(4),d1
|
||||||
|
IOCS(__B_CLR_ST)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _printtitle
|
||||||
|
_printtitle:
|
||||||
|
lea pc@(msg_title),a1
|
||||||
|
IOCS(__B_PRINT)
|
||||||
|
#ifndef TITLE_IMAGE
|
||||||
|
rts
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TITLE_IMAGE
|
||||||
|
# define IMGXPOS 17
|
||||||
|
# define IMGYPOS 1
|
||||||
|
# define IMGWIDTH 56
|
||||||
|
# define IMGHEIGHT 52
|
||||||
|
|
|
||||||
|
| display title image
|
||||||
|
|
|
||||||
|
put_image: link a6,#-(IMGWIDTH*IMGHEIGHT/8*2+8) | make local buffer
|
||||||
|
moveal sp,a1 | buffer (plane #0) top
|
||||||
|
moveml d2-d7/a2-a4,sp@-
|
||||||
|
|
||||||
|
lea a1@(IMGWIDTH*IMGHEIGHT/8+4),a4 | buffer (plane #1) top
|
||||||
|
movel #IMGWIDTH*0x10000+IMGHEIGHT,a1@ | image size
|
||||||
|
movel a1@+,a4@+
|
||||||
|
|
||||||
|
lea pc@(img_title),a2
|
||||||
|
moveaw a2@+,a3 | only the lower word is valid
|
||||||
|
|
||||||
|
1: tstb a2@+ | skip human readable comment
|
||||||
|
jne 1b
|
||||||
|
lea a2@(4),a0 | image data here
|
||||||
|
|
||||||
|
moveq #0,d2 | (b) now have 0bit
|
||||||
|
moveq #0,d3 | (w) input bit buffer
|
||||||
|
|
||||||
|
moveq #16,d4 | (b) output bit count
|
||||||
|
moveq #IMGWIDTH*IMGHEIGHT/16+0xffffff00,d7
|
||||||
|
|
||||||
|
| d2.b: # bits in input buffer
|
||||||
|
| d3.w: input buffer
|
||||||
|
| d4.b: # bits in output buffer
|
||||||
|
| d5.w: output buffer for plane 0
|
||||||
|
| d6.w: output buffer for plane 1
|
||||||
|
| d7.b: size count
|
||||||
|
| a0: input data pointer
|
||||||
|
|
||||||
|
Lrunlen: | a run entry:
|
||||||
|
| value (2bit)
|
||||||
|
| length-1 (3bit)
|
||||||
|
subqb #5,d2 | have enough bits?
|
||||||
|
jcc Lhave5b | yes
|
||||||
|
| fill byte
|
||||||
|
cmpaw a0,a3 | the register order is significant
|
||||||
|
| for word comparison
|
||||||
|
jne 1f
|
||||||
|
lea pc@(disklabel),a0 | continue to disklabel area?
|
||||||
|
cmpiw #0x696d,a0@+ | check magic number
|
||||||
|
jne Lrxabort | no, abort (no image)
|
||||||
|
1: moveb a0@+,d0
|
||||||
|
addqb #8,d2 | d2: 3: have 0bit, ..., 7: have 4bit
|
||||||
|
lslw #8,d0 | clear unused bits
|
||||||
|
lsrw d2,d0
|
||||||
|
orw d0,d3
|
||||||
|
|
||||||
|
Lhave5b: | field# 19 20 21 22 23 24 25 26 27 28 29 30 31
|
||||||
|
| d3: ... v v l l l ? ? ? ? ? ? ? 0
|
||||||
|
bfexts d3{#19,#2},d0 | value
|
||||||
|
bfextu d3{#21,#3},d1 | length - 1
|
||||||
|
lslw #5,d3
|
||||||
|
|
||||||
|
Lrxloop: lslw #2,d6
|
||||||
|
bfins d0,d6{#30,#2}
|
||||||
|
roxrw #1,d6
|
||||||
|
roxlw #1,d5
|
||||||
|
subqb #1,d4
|
||||||
|
jne 1f
|
||||||
|
moveq #16,d4
|
||||||
|
movew d5,a1@+
|
||||||
|
movew d6,a4@+
|
||||||
|
subqb #1,d7 | end?
|
||||||
|
1: dbeq d1,Lrxloop | fall down if end
|
||||||
|
jne Lrunlen | fall down if end
|
||||||
|
|
||||||
|
moveq #1,d1
|
||||||
|
movew a2@+,d2
|
||||||
|
IOCS(__TPALET2)
|
||||||
|
moveq #2,d1
|
||||||
|
movew a2@,d2
|
||||||
|
IOCS(__TPALET2)
|
||||||
|
|
||||||
|
| moveq #0x02,d1 | plane 1 (already have it)
|
||||||
|
IOCS(__TCOLOR)
|
||||||
|
moveq #IMGXPOS,d1
|
||||||
|
moveq #IMGYPOS,d2
|
||||||
|
IOCS(__TEXTPUT)
|
||||||
|
moveq #0x01,d1 | plane 0
|
||||||
|
IOCS(__TCOLOR)
|
||||||
|
moveq #IMGXPOS,d1
|
||||||
|
lea a6@(-(IMGWIDTH*IMGHEIGHT/8*2+8)),a1
|
||||||
|
IOCS(__TEXTPUT)
|
||||||
|
|
||||||
|
Lrxabort: moveml sp@+,d2-d7/a2-a4
|
||||||
|
unlk a6
|
||||||
|
rts
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
|IOCS SYS_STAT $AC
|
||||||
|
|
|
||||||
|
|入力 d1.l=0 のとき d0.l に以下の値
|
||||||
|
| bit0～7 0:68000, 1:68010, 2:68020, 3:68030
|
||||||
|
| bit14 0:MMUなし, 1:MMUあり
|
||||||
|
| bit15 0:FPCPなし, 1:FPCPあり
|
||||||
|
| bit16～31 クロックスピード
|
||||||
|
|
|
||||||
|
| X68000 の IOCS には $AC はないのでエラーになりますが、Xellent30 の場合は
|
||||||
|
|起動時に SRAM で組み込んでくれます。
|
||||||
|
.globl _SYS_STAT
|
||||||
|
_SYS_STAT:
|
||||||
|
movel sp@(4),d1
|
||||||
|
IOCS(__SYS_STAT)
|
||||||
|
rts
|
||||||
|
|
||||||
|
.globl _getcpu
|
||||||
|
_getcpu:
|
||||||
|
movl #0x200,d0 | data freeze bit
|
||||||
|
movc d0,cacr | only exists on 68030
|
||||||
|
movc cacr,d0 | read it back
|
||||||
|
tstl d0 | zero?
|
||||||
|
jeq Lnot68030 | yes, we have 68020/68040
|
||||||
|
movq #3,d0 | 68030
|
||||||
|
rts
|
||||||
|
Lnot68030:
|
||||||
|
bset #31,d0 | data cache enable bit
|
||||||
|
movc d0,cacr | only exists on 68040
|
||||||
|
movc cacr,d0 | read it back
|
||||||
|
tstl d0 | zero?
|
||||||
|
jeq Lis68020 | yes, we have 68020
|
||||||
|
moveq #0,d0 | now turn it back off
|
||||||
|
movec d0,cacr | before we access any data
|
||||||
|
movq #4,d0 | 68040
|
||||||
|
rts
|
||||||
|
Lis68020:
|
||||||
|
movq #2,d0 | 68020
|
||||||
|
rts
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
|
||||||
|
| void memcpy(void *dst, const void *src, size_t count);
|
||||||
|
| void memmove(void *dst, const void *src, size_t count);
|
||||||
|
|
|
||||||
|
| small and slow memcpy...
|
||||||
|
| THIS FUNCTION DOES NOT CONFORM THE ANSI STANDARD
|
||||||
|
|
|
||||||
|
.globl _memcpy, _memmove
|
||||||
|
_memcpy:
|
||||||
|
_memmove:
|
||||||
|
lea sp@(12),a1
|
||||||
|
movel a1@,d1 | count
|
||||||
|
jeq Lmcpret
|
||||||
|
moveal a1@-,a0 | src
|
||||||
|
moveal a1@-,a1 | dest
|
||||||
|
cmpl a1,a0
|
||||||
|
jcc Lmcpfw
|
||||||
|
| copy backward
|
||||||
|
addal d1,a0
|
||||||
|
addal d1,a1
|
||||||
|
1: moveb a0@-,a1@-
|
||||||
|
subql #1,d1
|
||||||
|
jne 1b
|
||||||
|
jra Lmcpret
|
||||||
|
Lmcpfw: | copy forward
|
||||||
|
1: moveb a0@+,a1@+
|
||||||
|
subql #1,d1
|
||||||
|
jne 1b
|
||||||
|
Lmcpret:
|
||||||
|
| movel sp@(8),d0 | uncomment this to conform ANSI
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
|
||||||
|
| Copy and exec kernel
|
||||||
|
|
|
||||||
|
#include "../common/execkern.S"
|
||||||
|
|
||||||
|
|
|
||||||
|
| Title message
|
||||||
|
|
|
||||||
|
msg_title:
|
||||||
|
.byte 0x1a | clear screen and cursor home
|
||||||
|
.ascii "\033[3;4H" | move cursor to 4, 3
|
||||||
|
.ascii "\033[37m" | bold
|
||||||
|
.ascii "NetBSD boot"
|
||||||
|
.ascii "\033[m" | normal
|
||||||
|
.ascii " ("
|
||||||
|
.ascii BOOT
|
||||||
|
.ascii " "
|
||||||
|
.ascii BOOT_VERS
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
.ascii "/DEBUG"
|
||||||
|
#endif
|
||||||
|
#ifndef TITLE_IMAGE
|
||||||
|
.ascii "/no title image"
|
||||||
|
#endif
|
||||||
|
.ascii ")"
|
||||||
|
.asciz "\r\n\n"
|
||||||
|
.even
|
||||||
|
|
||||||
|
#ifdef TITLE_IMAGE
|
||||||
|
|
|
||||||
|
| Title Image
|
||||||
|
|
|
||||||
|
img_title:
|
||||||
|
.word imgend1
|
||||||
|
#ifdef BOOT_DEBUG
|
||||||
|
.space 200 | no space for BSD Daemon...
|
||||||
|
#else
|
||||||
|
| compressed image data
|
||||||
|
|
||||||
|
| BSD Daemon Image, used for NetBSD boot by permission.
|
||||||
|
| (Thanks for permission!)
|
||||||
|
|
||||||
|
| BSD Daemon Copyright 1988 by Marshall Kirk McKusick.
|
||||||
|
| All Rights Reserved.
|
||||||
|
|
|
||||||
|
| Permission to use the daemon may be obtained from:
|
||||||
|
| Marshall Kirk McKusick
|
||||||
|
| 1614 Oxford St
|
||||||
|
| Berkeley, CA 94709-1608
|
||||||
|
| USA
|
||||||
|
| or via email at mckusick@mckusick.com
|
||||||
|
|
||||||
|
| Human readable copyright notice to be found with strings(1).
|
||||||
|
| Terminate with a nul character.
|
||||||
|
|
||||||
|
.asciz "\nBSD Daemon Copyright 1988 by Marshall Kirk McKusick."
|
||||||
|
|
||||||
|
.word 0x5295,0xAD6A | palet1, palet2
|
||||||
|
.word 0x39c3,0x0c1c,0xd039,0xce71,0xa327,0x3830,0x739c,0xe146
|
||||||
|
.word 0x6073,0x8227,0x39ce,0x0865,0x0738,0x2184,0x1ce7,0x3233
|
||||||
|
.word 0x049c,0xe88a,0x0e73,0x9618,0x8271,0x0486,0x6646,0x2093
|
||||||
|
.word 0x9ce4,0xcc12,0x1461,0x1622,0x3104,0x9ce7,0x2653,0x10e2
|
||||||
|
.word 0x4158,0x91a8,0x24e7,0x38d1,0x9807,0x00c8,0x7216,0x6a29
|
||||||
|
.word 0x39ce,0x4440,0x1906,0x4190,0xe031,0xe452,0x739c,0x9006
|
||||||
|
.word 0x8180,0xec18,0x0221,0xc8a0,0xe739,0xb60c,0x0380,0xdc35
|
||||||
|
.word 0x149c,0xe724,0x01b0,0x601d,0x062c,0x939c,0xe6c8,0x700c
|
||||||
|
.word 0x0b60,0xcc58,0x739c,0xf81e,0x09a0,0x6a49,0x39ce,0x6803
|
||||||
|
.word 0x00c0,0x701c,0x0740,0xd4d0,0x739c,0xd806,0x0100,0xe038
|
||||||
|
.word 0x0e81,0xb924,0xe726,0x0d0c,0x20e2,0xc839,0x249c,0xe4c4
|
||||||
|
.word 0x0ba4,0x0b42,0xc811,0xc920,0xe73c,0x070e,0x0383,0x44b5
|
||||||
|
.word 0x241c,0xe3c8,0x6228,0x701b,0x023f,0x8924,0xe726,0x0501
|
||||||
|
.word 0xc301,0xc8d3,0xfc49,0x0739,0xa01c,0x1219,0x0fc9,0x8924
|
||||||
|
.word 0xe716,0x2028,0x64a8,0xc441,0xc147,0x3249,0xce4c,0x0e38
|
||||||
|
.word 0x2a24,0x58ea,0x4939,0xcd00,0xe208,0x860a,0x8bea,0x0c39
|
||||||
|
.word 0xce09,0x0608,0x8e10,0x3449,0x1aa2,0x4e73,0x9d3a,0x4111
|
||||||
|
.word 0xfc45,0x2739,0xcb0c,0xa308,0x0205,0x0fea,0x2939,0xce4d
|
||||||
|
.word 0x2030,0x4823,0xfdc1,0x4739,0xc68c,0x4100,0x4490,0x0c8f
|
||||||
|
.word 0x70cc,0x5473,0x9ce0,0x8a22,0x1866,0x078a,0x4e72,0x6c7b
|
||||||
|
.word 0x0260,0x9e03,0xc148,0x780f,0xc090,0xc970,0x04c5,0x5c06
|
||||||
|
.word 0x45a1,0x641a,0x0e47,0xa1ec,0x7903,0xd03c,0x8310,0x0643
|
||||||
|
.word 0x91e0,0x3926,0x47b1,0xe408,0x3e05,0x9044,0x190e,0x4780
|
||||||
|
.word 0xe49a,0x0c38,0x2c1c,0x390e,0x8100,0x683a,0x2689,0xa0c3
|
||||||
|
.word 0x00d0,0x722d,0x0780,0xc8b4,0x2d8f,0x25d0,0x721c,0x8720
|
||||||
|
.word 0xc872,0x1c8b,0xa5d8,0xb25d,0x0721,0xd032,0x0c87,0x21c8
|
||||||
|
.word 0xb22c,0x8141,0xd872,0x5c86,0x1916,0xc190,0xe43a,0x0e81
|
||||||
|
.word 0x0403,0x2188,0x740d,0x1341,0xc8f6,0x0d8f,0x22d0,0x220c
|
||||||
|
.word 0x8300,0x9032,0x0c97,0x300e,0x49a0,0x6478,0x0645,0x91e8
|
||||||
|
.word 0x1816,0x0190,0x647b,0x1649,0x90e8,0x380e,0x4180,0x645a
|
||||||
|
.word 0x0e83,0x90e4,0x3b1e,0xc981,0x6c79,0x07c5,0xd0f8,0x2939
|
||||||
|
.word 0xc523,0x8946,0x820d,0x0c45,0x070f,0x6192,0xde08,0x3832
|
||||||
|
.word 0x0572,0x083c,0x3920,0x721a,0x9ac8,0x8868,0xf889,0xc160
|
||||||
|
.word 0x4377,0x8a84,0x88ee,0xd891,0xc2b0,0x2200,0xb2a2,0xa1c3
|
||||||
|
.word 0x10dc,0x1564,0x1ce3,0x79c6,0x9022,0x2258,0x1073,0x9ce7
|
||||||
|
.word 0x2a20,0x701c
|
||||||
|
.even
|
||||||
|
.space IMAGE_EXTRA | allow larger image
|
||||||
|
.even
|
||||||
|
#endif
|
||||||
|
imgend1:
|
||||||
|
#endif /* TITLE_IMAGE */
|
||||||
|
|
||||||
|
|
|
||||||
|
| global variables
|
||||||
|
|
|
||||||
|
.comm _ID,4 | SCSI ID
|
||||||
|
.comm _BOOT_INFO,4 | result of IOCS(__BOOTINF)
|
||||||
|
.comm _FDMODE,4 | Floppy access mode: PDA x 256 + MODE
|
||||||
|
.comm _FDSECMINMAX,8 | +0: (min sector) sector length
|
||||||
|
| +1: (min sector) track #
|
||||||
|
| +2: (min sector) side
|
||||||
|
| +3: (min sector) sector #
|
||||||
|
| +4: (max sector) sector length
|
||||||
|
| +5: (max sector) track #
|
||||||
|
| +6: (max sector) side
|
||||||
|
| +7: (max sector) sector #
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
.comm _SCSI_PARTTOP,4 | top position of boot partition in sector
|
||||||
|
.comm _SCSI_BLKLEN,4 | sector len 0: 256, 1: 512, 2: 1024
|
||||||
|
#endif
|
||||||
|
|
@ -0,0 +1,68 @@
|
||||||
|
/* $NetBSD: xxboot.h,v 1.1 1998/09/01 20:02:35 itohy Exp $ */
|
||||||
|
|
||||||
|
/***************************************************************
|
||||||
|
*
|
||||||
|
* file: boot.h
|
||||||
|
*
|
||||||
|
* author: chapuni(GBA02750@niftyserve.or.jp)
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* xxboot.S */
|
||||||
|
__dead void BOOT_ERROR __P((const char *msg)) __attribute__((noreturn));
|
||||||
|
int badbaddr __P((volatile void *adr));
|
||||||
|
int RAW_READ __P((void *buf, u_int32_t blkpos, size_t bytelen));
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
int RAW_READ0 __P((void *buf, u_int32_t blkpos, size_t bytelen));
|
||||||
|
#endif
|
||||||
|
unsigned B_KEYINP __P((void));
|
||||||
|
void B_CLR_ST __P((unsigned x));
|
||||||
|
void B_PUTC __P((unsigned c));
|
||||||
|
void B_PRINT __P((const unsigned char *p));
|
||||||
|
unsigned B_COLOR __P((unsigned w));
|
||||||
|
unsigned B_LOCATE __P((int x, int y));
|
||||||
|
#if 0
|
||||||
|
unsigned JISSFT __P((unsigned c));
|
||||||
|
#endif
|
||||||
|
unsigned short B_SFTSNS __P((void));
|
||||||
|
void printtitle __P((void));
|
||||||
|
#if 0
|
||||||
|
int SYS_STAT __P((int flags));
|
||||||
|
int getcpu __P((void));
|
||||||
|
#endif
|
||||||
|
|
||||||
|
extern unsigned ID; /* target SCSI ID */
|
||||||
|
extern unsigned BOOT_INFO; /* result of IOCS(__BOOTINF) */
|
||||||
|
|
||||||
|
/* check whether the bootinf is SCSI or floppy */
|
||||||
|
#define BINF_ISFD(pbinf) (*((char *)(pbinf) + 1) == 0)
|
||||||
|
|
||||||
|
extern unsigned FDMODE; /* Floppy access mode: PDA x 256 + MODE */
|
||||||
|
extern struct fdfmt{
|
||||||
|
struct {
|
||||||
|
unsigned char N; /* sector length 0: 128, ..., 3: 1K */
|
||||||
|
unsigned char C; /* cylinder # */
|
||||||
|
unsigned char H; /* head # */
|
||||||
|
unsigned char R; /* sector # */
|
||||||
|
} minsec, maxsec;
|
||||||
|
} FDSECMINMAX; /* FD format type of the first track */
|
||||||
|
#ifdef SCSI_ADHOC_BOOTPART
|
||||||
|
extern u_int32_t SCSI_PARTTOP; /* top position of boot partition in sector */
|
||||||
|
extern u_int32_t SCSI_BLKLEN; /* sector len 0: 256, 1: 512, 2: 1024 */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* bootufs.c */
|
||||||
|
int raw_read_queue __P((void *buf, u_int32_t blkpos, size_t len));
|
||||||
|
void get_superblk __P((void));
|
||||||
|
int get_inode __P((ino_t ino, struct dinode *pino));
|
||||||
|
int read_indirect __P((ufs_daddr_t blkno, int level, void **buf, int count));
|
||||||
|
void read_blocks __P((struct dinode *dp, void *buf, int count));
|
||||||
|
ino_t search_file __P((ino_t dirino, const char *filename));
|
||||||
|
unsigned load_ino __P((void *buf, ino_t ino, const char *filename));
|
||||||
|
unsigned load_name __P((void *buf, ino_t dirino, const char *filename));
|
||||||
|
void print_hex __P((unsigned x, int l));
|
||||||
|
void pickup_list __P((ino_t dirino));
|
||||||
|
void print_list __P((int n, int active, unsigned boothowto));
|
||||||
|
volatile void bootufs __P((void));
|
||||||
|
|
||||||
|
/* eof */
|
||||||
Loading…
Reference in New Issue