2000-08-02 08:46:08 +00:00
|
|
|
# Copyright (c) KATO Takenori, 1999, 2000.
|
|
|
|
|
#
|
|
|
|
|
# All rights reserved. Unpublished rights reserved under the copyright
|
|
|
|
|
# laws of Japan.
|
|
|
|
|
#
|
|
|
|
|
# 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 as
|
|
|
|
|
# the first lines of this file unmodified.
|
|
|
|
|
# 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.
|
|
|
|
|
#
|
|
|
|
|
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
|
|
|
|
|
#
|
|
|
|
|
# $FreeBSD$
|
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
.code16
|
|
|
|
|
|
|
|
|
|
.text
|
|
|
|
|
#
|
|
|
|
|
# Display partition table.
|
|
|
|
|
#
|
|
|
|
|
showpartitions:
|
|
|
|
|
# Clear partion table area
|
|
|
|
|
movw $16, %cx
|
|
|
|
|
clear_part:
|
|
|
|
|
push %cx
|
|
|
|
|
movw %cx, %dx
|
|
|
|
|
decw %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
movw $20, %cx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw $msg_spc, %di
|
|
|
|
|
call sc_puts
|
|
|
|
|
pop %cx
|
|
|
|
|
loop clear_part
|
|
|
|
|
|
|
|
|
|
# Check `Exit' menu
|
|
|
|
|
movw curdevice, %ax
|
|
|
|
|
cmpw ndevice, %ax
|
|
|
|
|
je no_slice
|
|
|
|
|
|
|
|
|
|
# XXX Move this to a suitable place!
|
|
|
|
|
movw $22, %cx
|
|
|
|
|
movw $4, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw $msg_slice, %di
|
|
|
|
|
call sc_puts
|
|
|
|
|
|
|
|
|
|
# Check the number of partitions
|
|
|
|
|
movw npartition, %cx
|
|
|
|
|
orw %cx, %cx
|
|
|
|
|
jnz partitionexist
|
|
|
|
|
no_slice:
|
|
|
|
|
# Just show the `no slice' message.
|
|
|
|
|
movw $22, %cx
|
|
|
|
|
movw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw $msg_noslice, %di
|
|
|
|
|
call sc_puts
|
|
|
|
|
ret
|
|
|
|
|
partitionexist:
|
|
|
|
|
xorw %si, %si # %si = partition number
|
|
|
|
|
showpart_loop:
|
|
|
|
|
push %cx # %cx = number of partitions
|
|
|
|
|
movw $22, %cx
|
|
|
|
|
movw %si, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw %si, %di
|
|
|
|
|
movb $5, %cl
|
|
|
|
|
shlw %cl, %di
|
|
|
|
|
addw $0x10, %di # SYSM field
|
|
|
|
|
# SYSM: space filled string. Don't use sc_puts.
|
|
|
|
|
movw $16, %cx
|
|
|
|
|
showpart_name:
|
|
|
|
|
push %cx
|
|
|
|
|
movb parttable(%di), %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
incw %di
|
|
|
|
|
pop %cx
|
|
|
|
|
loop showpart_name
|
|
|
|
|
incw %si
|
|
|
|
|
pop %cx
|
|
|
|
|
loop showpart_loop
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Show default slice indicator
|
|
|
|
|
# If the default boot slice exists, `*' indicator will be showed.
|
|
|
|
|
#
|
|
|
|
|
showdefaultslicemark:
|
|
|
|
|
cmpb $0x80, defpartflag
|
|
|
|
|
je defpartexist
|
|
|
|
|
ret
|
|
|
|
|
defpartexist:
|
|
|
|
|
movw npartition, %cx
|
|
|
|
|
defslice_loop:
|
|
|
|
|
movw %cx, %bx
|
|
|
|
|
decw %bx
|
|
|
|
|
push %cx
|
|
|
|
|
push %bx
|
|
|
|
|
movw $40, %cx
|
|
|
|
|
movw %bx, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
|
|
|
|
|
pop %bx
|
|
|
|
|
pop %cx
|
|
|
|
|
movb defpartnum, %al
|
|
|
|
|
cmpb partnum(%bx), %al
|
|
|
|
|
jne nomatch
|
|
|
|
|
movb $'*', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
jmp defslice_done
|
|
|
|
|
nomatch:
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
defslice_done:
|
|
|
|
|
loop defslice_loop
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Hide default slice indicator
|
|
|
|
|
#
|
|
|
|
|
hidedefaultslicemark:
|
|
|
|
|
movw $16, %cx
|
|
|
|
|
hidedefslice_loop:
|
|
|
|
|
push %cx
|
|
|
|
|
movw %cx, %dx
|
|
|
|
|
addw $4, %dx
|
|
|
|
|
movw $40, %cx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
pop %cx
|
|
|
|
|
loop hidedefslice_loop
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Toggle default slice
|
|
|
|
|
#
|
|
|
|
|
toggle_default:
|
|
|
|
|
cmpb $0x80, defpartflag
|
|
|
|
|
jne set_default
|
|
|
|
|
# Clear default
|
|
|
|
|
movb $0, defpartflag
|
|
|
|
|
call write_ipl # Restore
|
|
|
|
|
call hidedefaultslicemark
|
|
|
|
|
ret
|
|
|
|
|
# Set default slice
|
|
|
|
|
set_default:
|
|
|
|
|
movw curpartition, %si
|
|
|
|
|
movb partnum(%si), %al # %al = real partition number
|
|
|
|
|
movb $5, %cl
|
|
|
|
|
shlw %cl, %si
|
|
|
|
|
# Default slice must be bootable
|
|
|
|
|
testb $0x80, parttable(%si)
|
|
|
|
|
jnz curpart_bootable
|
|
|
|
|
# Current partition is not bootable.
|
|
|
|
|
ret
|
|
|
|
|
curpart_bootable:
|
|
|
|
|
movb $0x80, defpartflag
|
|
|
|
|
movb %al, defpartnum
|
|
|
|
|
call write_ipl # Restore
|
|
|
|
|
call showdefaultslicemark
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Show/hide cursor
|
|
|
|
|
#
|
|
|
|
|
show_devcurs:
|
|
|
|
|
xorw %cx, %cx
|
|
|
|
|
movw curdevice, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $'>', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
movb $'>', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
hide_devcurs:
|
|
|
|
|
xorw %cx, %cx
|
|
|
|
|
movw curdevice, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
show_slicecurs:
|
|
|
|
|
movw $20, %cx
|
|
|
|
|
movw curpartition, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $'>', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
movb $'>', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
hide_slicecurs:
|
|
|
|
|
movw $20, %cx
|
|
|
|
|
movw curpartition, %dx
|
|
|
|
|
addw $5, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
movb $' ', %al
|
|
|
|
|
call sc_putc
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
isforceboot:
|
|
|
|
|
xorw %cx, %cx
|
|
|
|
|
movw $20, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw $msg_force, %di
|
|
|
|
|
call sc_puts
|
|
|
|
|
call sc_getc
|
|
|
|
|
push %ax
|
|
|
|
|
xorw %cx, %cx
|
|
|
|
|
movw $20, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movw $msg_forceclr, %di
|
|
|
|
|
call sc_puts
|
|
|
|
|
pop %ax
|
|
|
|
|
cmpb $0x15, %ah
|
|
|
|
|
je force_yes
|
|
|
|
|
xorw %ax, %ax
|
|
|
|
|
ret
|
|
|
|
|
force_yes:
|
|
|
|
|
movw $1, %ax
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Main loop for device mode
|
|
|
|
|
#
|
|
|
|
|
devmode:
|
|
|
|
|
call read_ipl
|
|
|
|
|
call hidedefaultslicemark
|
|
|
|
|
call showpartitions
|
|
|
|
|
call showdefaultslicemark
|
|
|
|
|
call show_devcurs
|
|
|
|
|
|
|
|
|
|
movw $2, %cx
|
|
|
|
|
movw $4, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe5, %al
|
|
|
|
|
movw $6, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $22, %cx
|
|
|
|
|
movw $4, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe1, %al
|
|
|
|
|
movw $5, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $44, %cx
|
|
|
|
|
movw $3, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe5, %al
|
|
|
|
|
movw $11, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $44, %cx
|
|
|
|
|
movw $7, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe1, %al
|
|
|
|
|
movw $10, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
|
|
|
|
|
devmode_loop:
|
|
|
|
|
call sc_getc
|
|
|
|
|
movw ndevice, %bx
|
|
|
|
|
cmpb $0x3a, %ah # UP
|
|
|
|
|
je dev_up
|
|
|
|
|
cmpb $0x3d, %ah # DOWN
|
|
|
|
|
je dev_down
|
|
|
|
|
cmpb $0x3c, %ah # RIGHT
|
|
|
|
|
je dev_right
|
|
|
|
|
cmpb $0x1c, %ah # RETURN
|
|
|
|
|
jne devmode_loop
|
|
|
|
|
cmpw curdevice, %bx
|
|
|
|
|
jne dev_right
|
|
|
|
|
movw $3, mode # N88-BASIC
|
|
|
|
|
ret
|
|
|
|
|
dev_up:
|
|
|
|
|
cmpw $0, curdevice
|
|
|
|
|
je devmode_loop
|
|
|
|
|
call hide_devcurs
|
|
|
|
|
decw curdevice
|
|
|
|
|
call read_ipl
|
|
|
|
|
call hidedefaultslicemark
|
|
|
|
|
call showpartitions
|
|
|
|
|
call showdefaultslicemark
|
|
|
|
|
call show_devcurs
|
|
|
|
|
jmp devmode_loop
|
|
|
|
|
dev_down:
|
|
|
|
|
cmpw curdevice, %bx
|
|
|
|
|
je devmode_loop
|
|
|
|
|
call hide_devcurs
|
|
|
|
|
incw curdevice
|
|
|
|
|
call read_ipl
|
|
|
|
|
call hidedefaultslicemark
|
|
|
|
|
call showpartitions
|
|
|
|
|
call showdefaultslicemark
|
|
|
|
|
call show_devcurs
|
|
|
|
|
jmp devmode_loop
|
|
|
|
|
dev_right:
|
|
|
|
|
cmpw curdevice, %bx
|
|
|
|
|
je devmode_loop
|
|
|
|
|
movw $1, mode # Slice mode
|
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# main loop for slice mode
|
|
|
|
|
#
|
|
|
|
|
slicemode:
|
|
|
|
|
movw $0, curpartition
|
|
|
|
|
call show_slicecurs
|
|
|
|
|
movw $2, %cx
|
|
|
|
|
movw $4, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe1, %al
|
|
|
|
|
movw $6, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $22, %cx
|
|
|
|
|
movw $4, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe5, %al
|
|
|
|
|
movw $5, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $44, %cx
|
|
|
|
|
movw $3, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe1, %al
|
|
|
|
|
movw $11, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
movw $44, %cx
|
|
|
|
|
movw $7, %dx
|
|
|
|
|
call sc_goto
|
|
|
|
|
movb $0xe5, %al
|
|
|
|
|
movw $10, %cx
|
|
|
|
|
call sc_setattr
|
|
|
|
|
|
|
|
|
|
slicemode_loop:
|
|
|
|
|
call sc_getc
|
|
|
|
|
cmpb $0x3a, %ah # UP
|
|
|
|
|
je slice_up
|
|
|
|
|
cmpb $0x3d, %ah # DOWN
|
|
|
|
|
je slice_down
|
|
|
|
|
cmpb $0x3b, %ah # LEFT
|
|
|
|
|
je slice_esc
|
|
|
|
|
cmpb $0x00, %ah # ESC
|
|
|
|
|
je slice_esc
|
|
|
|
|
cmpb $0x1c, %ah # RETURN
|
|
|
|
|
je slice_ret
|
|
|
|
|
cmpb $0x34, %ah # SPC
|
|
|
|
|
je slice_spc
|
|
|
|
|
cmpb $0x62, %ah # f1
|
|
|
|
|
je slice_spc
|
|
|
|
|
jmp slicemode_loop
|
|
|
|
|
slice_up:
|
|
|
|
|
cmpw $0, curpartition
|
|
|
|
|
je slicemode_loop
|
|
|
|
|
call hide_slicecurs
|
|
|
|
|
decw curpartition
|
|
|
|
|
call show_slicecurs
|
|
|
|
|
jmp slicemode_loop
|
|
|
|
|
slice_down:
|
|
|
|
|
movw curpartition, %bx
|
|
|
|
|
movw npartition, %ax
|
|
|
|
|
decw %ax
|
|
|
|
|
cmpw %bx, %ax
|
|
|
|
|
je slicemode_loop
|
|
|
|
|
call hide_slicecurs
|
|
|
|
|
incw curpartition
|
|
|
|
|
call show_slicecurs
|
|
|
|
|
jmp slicemode_loop
|
|
|
|
|
slice_esc:
|
|
|
|
|
movw $0, mode # Device mode
|
|
|
|
|
ret
|
|
|
|
|
slice_spc:
|
|
|
|
|
call toggle_default
|
|
|
|
|
jmp slicemode_loop
|
|
|
|
|
slice_ret:
|
|
|
|
|
# Test bit 7 of mid
|
|
|
|
|
movw curpartition, %si
|
|
|
|
|
movb $5, %cl
|
|
|
|
|
shlw %cl, %si
|
|
|
|
|
testb $0x80, parttable(%si)
|
|
|
|
|
jnz bootable_slice
|
|
|
|
|
call isforceboot
|
|
|
|
|
orw %ax, %ax
|
|
|
|
|
jz slicemode_loop
|
|
|
|
|
bootable_slice:
|
|
|
|
|
call boot
|
|
|
|
|
jmp slicemode_loop
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
|
# Main loop
|
|
|
|
|
#
|
|
|
|
|
.global selector
|
|
|
|
|
selector:
|
2000-08-06 14:35:37 +00:00
|
|
|
movw $0, curdevice # trydefault may change the curdevice.
|
2000-08-02 08:46:08 +00:00
|
|
|
movw $0, mode
|
|
|
|
|
|
|
|
|
|
selector_loop:
|
|
|
|
|
cmpw $0, mode
|
|
|
|
|
je status_dev
|
|
|
|
|
cmpw $1, mode
|
|
|
|
|
je status_slice
|
|
|
|
|
ret
|
|
|
|
|
status_dev:
|
|
|
|
|
call devmode
|
|
|
|
|
jmp selector_loop
|
|
|
|
|
status_slice:
|
|
|
|
|
call slicemode
|
|
|
|
|
jmp selector_loop
|
|
|
|
|
|
|
|
|
|
.data
|
|
|
|
|
.global curpartition
|
|
|
|
|
curpartition: .word 0 # current patition
|
|
|
|
|
mode: .word 0
|
|
|
|
|
|
|
|
|
|
msg_spc: .asciz " "
|
|
|
|
|
msg_slice: .asciz "Slice"
|
|
|
|
|
msg_noslice: .asciz "no slice"
|
|
|
|
|
msg_force: .asciz "This slice is not bootable. Continue? (Y / [N])"
|
|
|
|
|
msg_forceclr: .asciz " "
|
