/*      $NetBSD: machdep.c,v 1.16 2023/01/15 06:19:46 tsutsui Exp $     */

/*
 * Copyright (c) 1988 University of Utah.
 * Copyright (c) 1982, 1986, 1990, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * the Systems Programming Group of the University of Utah Computer
 * Science Department.
 *
 * 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. 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.
 *
 * from: Utah $Hdr: machdep.c 1.10 92/06/18
 *
 *      @(#)machdep.c   8.1 (Berkeley) 6/10/93
 */

#include <sys/param.h>
#include <lib/libsa/stand.h>
#include <hp300/stand/common/samachdep.h>

char *
getmachineid(void)
{
        extern int machineid;
        char *cp;

        switch (machineid) {
        case HP_320:
                cp = "320"; break;
        case HP_330:
                cp = "318/319/330"; break;
        case HP_340:
                cp = "340"; break;
        case HP_345:
                cp = "345"; break;
        case HP_350:
                cp = "350"; break;
        case HP_360:
                cp = "360"; break;
        case HP_362:
                cp = "362"; break;
        case HP_370:
                cp = "370"; break;
        case HP_375:
                cp = "375"; break;
        case HP_380:
                cp = "380"; break;
        case HP_382:
                cp = "382"; break;
        case HP_385:
                cp = "385"; break;
        case HP_400:
                cp = "400"; break;
        case HP_425:
                switch (mmuid) {
                case MMUID_425_T:
                        cp = "425t"; break;
                case MMUID_425_S:
                        cp = "425s"; break;
                case MMUID_425_E:
                        cp = "425e"; break;
                default:
                        cp = "425"; break;
                }
                break;
        case HP_433:
                switch (mmuid) {
                case MMUID_433_T:
                        cp = "433t"; break;
                case MMUID_433_S:
                        cp = "433s"; break;
                default:
                        cp = "433"; break;
                }
                break;
        default:
                cp = "???"; break;
        }
        return cp;
}

int userom;

int
trap(struct trapframe *fp)
{
        static int intrap = 0;

        if (intrap)
                return 0;
        intrap = 1;

#if 0
        userom = 1;
#endif

        printf("Got unexpected trap: format=%x vector=%x ps=%x pc=%x\n",
                  fp->tf_format, fp->tf_format, fp->tf_sr, fp->tf_pc);
        printf("dregs: %x %x %x %x %x %x %x %x\n",
               fp->tf_regs[0], fp->tf_regs[1],
               fp->tf_regs[2], fp->tf_regs[3],
               fp->tf_regs[4], fp->tf_regs[5],
               fp->tf_regs[6], fp->tf_regs[7]);
        printf("aregs: %x %x %x %x %x %x %x %x\n",
               fp->tf_regs[8], fp->tf_regs[9],
               fp->tf_regs[10], fp->tf_regs[11],
               fp->tf_regs[12], fp->tf_regs[13],
               fp->tf_regs[14], fp->tf_regs[15]);

#if 0
        userom = 0;
#endif

        intrap = 0;
        return 0;
}

#define ROWS    24
#define COLS    80

void
romputchar(int c)
{
        static char buf[COLS];
        static int col = 0, row = 0;
        int i;

        switch (c) {
        case '\0':
                break;
        case '\r':
                break;  /* ignore */
        case '\n':
                for (i = col; i < COLS-1; i++)
                        buf[i] = ' ';
                buf[i] = '\0';
                romout(row, buf);
                col = 0;
                if (++row == ROWS)
                        row = 0;
                break;

        case '\t':
                do {
                        romputchar(' ');
                } while (col & 7);
                break;

        default:
                buf[col] = c;
                if (++col == COLS-1)
                        romputchar('\n');
                break;
        }
}

void
machdep_start(char *entry, int howto, char *loadaddr, char *ssym, char *esym)
{

        /* Adjust entry point. */
        transfer(entry, howto, opendev, cons_scode, loadaddr, esym);
}

void
transfer(char *entry, int howto, int od, int csc, char *lr, char *es)
{

        printf("Entry point: 0x%lx\n", (u_long)entry);

#ifdef EXEC_DEBUG
        printf("\n\nReturn to boot...\n");
        (void)getchar();
#endif

        _transfer(entry, howto, od, csc, lr, es);
}