mirror of
https://github.com/simh/simh.git
synced 2026-04-24 19:33:40 +00:00
KA10: Added support for KL10A/B.
This commit is contained in:
Author: Richard Cornwell
committed by
Mark Pizzolato
Mark Pizzolato
parent
c7d529c4db
commit
c686f75894
669
PDP10/ka10_iii.c
Normal file
669
PDP10/ka10_iii.c
Normal file
@@ -0,0 +1,669 @@
|
||||
/* ka10_iii.c: Triple III display processor.
|
||||
|
||||
Copyright (c) 2019-2020, Richard Cornwell
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a
|
||||
copy of this software and associated documentation files (the "Software"),
|
||||
to deal in the Software without restriction, including without limitation
|
||||
the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||||
and/or sell copies of the Software, and to permit persons to whom the
|
||||
Software is furnished to do so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in
|
||||
all copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
RICHARD CORNWELL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
||||
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
||||
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
|
||||
Except as contained in this notice, the name of Richard Cornwell shall not be
|
||||
used in advertising or otherwise to promote the sale, use or other dealings
|
||||
in this Software without prior written authorization from Richard Cornwell
|
||||
|
||||
*/
|
||||
|
||||
#include "kx10_defs.h"
|
||||
#ifndef NUM_DEVS_III
|
||||
#define NUM_DEVS_III 0
|
||||
#endif
|
||||
|
||||
#if NUM_DEVS_III > 0
|
||||
#include "display/display.h"
|
||||
#include "display/iii.h"
|
||||
|
||||
#define III_DEVNUM 0430
|
||||
|
||||
#define STATUS u3
|
||||
#define MAR u4
|
||||
#define PIA u5
|
||||
#define POS u6
|
||||
|
||||
/* CONO Bits */
|
||||
#define SET_PIA 000000010 /* Set if this bit is zero */
|
||||
#define STOP 000000020 /* Stop processor after instruction */
|
||||
#define CONT 000000040 /* Start execution at address */
|
||||
#define F 000000100 /* Clear flags */
|
||||
#define SET_MSK 000360000 /* Set mask */
|
||||
#define RST_MSK 007400000 /* Reset mask */
|
||||
|
||||
/* CONI Bits */
|
||||
#define PIA_MSK 000000007
|
||||
#define INST_HLT 000000010 /* 32 - Halt instruction */
|
||||
#define WRAP_ENB 000000020 /* 31 - Wrap around mask */
|
||||
#define EDGE_ENB 000000040 /* 30 - Edge interrupt mask */
|
||||
#define LIGH_ENB 000000100 /* 29 - Light pen enable mask */
|
||||
#define CLK_STOP 000000200 /* 28 - Clock stop */
|
||||
/* 27 - Not used */
|
||||
#define CLK_BIT 000001000 /* 26 - Clock */
|
||||
#define NXM_BIT 000002000 /* 25 - Non-existent memory */
|
||||
#define IRQ_BIT 000004000 /* 24 - Interrupt pending */
|
||||
#define DATAO_LK 000010000 /* 23 - PDP10 gave DATAO when running */
|
||||
#define CONT_BIT 000020000 /* 22 - Control bit */
|
||||
#define LIGHT_FLG 000040000 /* 21 - Light pen flag */
|
||||
#define WRAP_FLG 000100000 /* 20 - Wrap around flag */
|
||||
#define EDGE_FLG 000200000 /* 19 - Edge overflow */
|
||||
#define HLT_FLG 000400000 /* 18 - Not running */
|
||||
|
||||
#define WRAP_MSK 00001
|
||||
#define EDGE_MSK 00002
|
||||
#define LIGH_MSK 00004
|
||||
#define HLT_MSK 00010
|
||||
#define WRP_FBIT 00020
|
||||
#define EDG_FBIT 00040
|
||||
#define LIT_FBIT 00100
|
||||
#define CTL_FBIT 00200
|
||||
#define HLT_FBIT 00400
|
||||
#define NXM_FLG 01000
|
||||
#define DATA_FLG 02000
|
||||
#define RUN_FLG 04000
|
||||
|
||||
#define TSS_INST 012 /* Test */
|
||||
#define LVW_INST 006 /* Long Vector */
|
||||
#define SVW_INST 002 /* Short vector */
|
||||
#define JMP_INST 000 /* Jump or Halt */
|
||||
#define JSR_INST 004 /* JSR(1) or JMS(0), SAVE(3) */
|
||||
#define RES_INST 014 /* Restore */
|
||||
#define SEL_INST 010 /* Select instruction */
|
||||
|
||||
#define POS_X 01777400000
|
||||
#define POS_Y 00000377700
|
||||
#define CBRT 00000000070 /* Current brightness */
|
||||
#define CSIZE 00000000007 /* Current char size */
|
||||
#define POS_X_V 16
|
||||
#define POS_Y_V 6
|
||||
#define CBRT_V 3
|
||||
#define CSIZE_V 0
|
||||
|
||||
/*
|
||||
* Character map.
|
||||
* M(x,y) moves pointer to x,y.
|
||||
* V(x,y) draws a vector between current pointer and x,y.
|
||||
* All characters start at 0,6 and end at 8,6.
|
||||
* In the map there are up to 18 points per character. For a character a M(0,0) indicates
|
||||
* that drawing is done and a move to 8,6 should be done.
|
||||
*/
|
||||
#define M(x,y) (x << 4)|y|0000
|
||||
#define V(x,y) (x << 4)|y|0200
|
||||
|
||||
uint8 map[128][18] = {
|
||||
/* Blank */ { 0 },
|
||||
/* Down */ { M(0,9), V(3,6), V(3,14), M(3,6), V(6,9) },
|
||||
/* Alpha */ { M(6,6), V(3,9), V(1,9), V(0,8), V(0,7), V(1,6), V(3,6), V(6,9) },
|
||||
/* Beta */ { V(2,8), V(2,13), V(3,14), V(5,14), V(6,13), V(6,12), V(5,11),
|
||||
V(2,11), M(5,11), V(6,10), V(6,9), V(5,8), V(3,8), V(2,9) },
|
||||
/* ^ */ { M(0,8), V(3,11), V(6,8) },
|
||||
/* Not */ { M(0,10), V(6,10), V(6,7) },
|
||||
/* Epsilon */ { M(3,9), V(2,10), V(1,10), V(0,9), V(0,7), V(1,6), V(2,6), V(3,7),
|
||||
M(2,8), V(0,8) },
|
||||
/* Pi */ { M(0,10), V(6,10), M(4,10), V(4,6), M(2,6), V(2,10) },
|
||||
/* Lambda */ { V(3,9), M(0,11), V(1,11), V(6,6) },
|
||||
/* ?? */ { M(0,11), V(1,12), V(2,12), V(5,9), V(5,7), V(4,6), V(3,6), V(2,7),
|
||||
V(2,8), V(6,12) },
|
||||
/* Delta */ { M(2,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7), V(4,9),
|
||||
V(3,10), V(2,10), V(2,12), V(4,12) },
|
||||
/* Integ */ { M(0,7), V(1,6), V(2,6), V(3,7), V(3,12), V(4,13), V(5,13), V(6,12) },
|
||||
/* PlusMinus */{ M(0,9), V(4,9), M(2,11), V(2,7), M(0,7), V(4,7) },
|
||||
/* Circross */ { M(0,8), V(0,7), V(1,6), V(3,6), V(4,7), V(4,9), V(3,10), V(1,10),
|
||||
V(0,9), V(0,8), V(4,8), M(2,10), V(2,6) },
|
||||
/* Sigma */ { M(0,10), V(1,9), V(2,9), V(4,11), V(5,11), V(6,10), V(5,9), V(4,9),
|
||||
V(2,11), V(1,11), V(0,10) },
|
||||
/* Union */ { M(4,8), V(3,9), V(1,9), V(0,8), V(0,7), V(1,6), V(3,6), V(4,7),
|
||||
V(4,10), V(2,12), V(1,12) },
|
||||
/* Intersect */{ M(3,11), V(1,11), V(0,10), V(0,8), V(1,7), V(3,7) },
|
||||
/* Cap */ { M(0,11), V(2,11), V(3,10), V(3,8), V(2,7), V(0,7) },
|
||||
/* Cup */ { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7) },
|
||||
/* A */ { M(0,10), V(0,8), V(1,7), V(3,7), V(4,8), V(4,10) },
|
||||
/* E */ { M(0,13), V(0,8), V(2,6), V(4,6), V(6,8), V(6,13), M(0,10), V(6,10) },
|
||||
/* cx */ { V(6,6), V(6,14), V(0,14), M(2,10), V(6,10) },
|
||||
{ V(4,10), M(0,10), V(4,6), M(3,6), V(1,6), V(0,7), V(0,9), V(1,10),
|
||||
V(3,10), V(4,9), V(4,7), V(3,6) },
|
||||
/* Dbl arrow */{ M(2,8), V(0,10), V(2,12), M(0,10), V(6,10), M(4,12), V(6,10),
|
||||
V(4,8)},
|
||||
/* Under */ { M(0,5), V(6,5) },
|
||||
{ M(0,10), V(6,10), M(3,13), V(6,10), V(3,7) },
|
||||
{ M(0,12), V(2,14), V(4,12), V(6,14) },
|
||||
{ V(6,12), M(0,10), V(6,10), M(0,8), V(6,8) },
|
||||
{ V(3,6), M(3,7), V(0,10), V(3,13) },
|
||||
{ V(3,6), M(0,7), V(3,10), V(0,13) },
|
||||
{ M(0,7), V(6,7), M(6,9), V(0,9), M(0,11), V(6,11) },
|
||||
{ M(0,11), V(3,8), V(6,11) },
|
||||
/* Blank */ { 0, },
|
||||
/* ! */ { M(2,6), V(2,7), M(2,8), V(2,13) },
|
||||
/* " */ { M(2,12), V(2,14), M(4,14), V(4,12) },
|
||||
/* # */ { M(2,7), V(2,13), M(4,13), V(4,7), M(6,9), V(0,9), M(0,11), V(6,11) },
|
||||
/* $ */ { M(0,8), V(2,6), V(4,6), V(6,8), V(4,10), V(2,10), V(0,12), V(2,14),
|
||||
V(4,14), V(6,12), M(4,14), V(4,6), M(2,6), V(2,14) },
|
||||
/* % */ { V(6,12), V(1,12), V(0,11), V(0,10), V(1,9), V(2,9), V(3,10), V(3,11),
|
||||
V(2,12), M(4,9), V(3,8), V(3,7), V(4,6), V(5,6), V(6,7), V(6,8),
|
||||
V(5,9), V(4,9) },
|
||||
/* & */ { M(6,6), V(1,11), V(1,13), V(2,14), V(3,14), V(4,13), V(0,9), V(0,7),
|
||||
V(1,6), V(3,6), V(5,8) },
|
||||
/* ' */ { M(2,12), V(4,14) },
|
||||
/* ( */ { M(2,6), V(0,8), V(0,12), V(2,14) },
|
||||
/* ) */ { V(2,8), V(2,12), V(0,14) },
|
||||
/* * */ { M(1,8), V(5,12), M(3,13), V(3,7), M(5,8), V(1,12), M(0,10),
|
||||
V(6,10) },
|
||||
/* + */ { M(2,7), V(2,11), M(0,9), V(4,9) },
|
||||
/* , */ { M(0,7), V(1,6), V(1,5), V(0,4) },
|
||||
/* - */ { M(0,9), V(4,9) },
|
||||
/* . */ { M(2,6), V(3,6), V(3,7), V(2,7), V(2,6) },
|
||||
/* / */ { V(6,12) },
|
||||
/* 0 */ { M(0,7), V(6,13), M(6,12), V(4,14), V(2,14), V(0,12), V(0,8), V(2,6),
|
||||
V(4,6), V(6,8), V(6,12) },
|
||||
/* 1 */ { M(1,12), V(3,14), V(3,6) },
|
||||
/* 2 */ { M(0,13), V(1,14), V(4,14), V(6,12), V(6,11), V(5,10), V(2,10),
|
||||
V(0,8), V(0,6), V(6,6) },
|
||||
/* 3 */ { M(0,14), V(6,14), V(6,12), V(4,10), V(5,10), V(6,9), V(6,7), V(5,6),
|
||||
V(0,6) },
|
||||
/* 4 */ { M(5,6), V(5,14), V(0,9), V(6,9) },
|
||||
/* 5 */ { M(0,7), V(1,6), V(4,6), V(6,8), V(6,9), V(5,10), V(1,10), V(0,9),
|
||||
V(0,14), V(6,14) },
|
||||
/* 6 */ { M(0,9), V(1,10), V(5,10), V(6,9), V(6,7), V(5,6), V(1,6), V(0,7),
|
||||
V(0,10), V(4,14) },
|
||||
/* 7 */ { V(6,12), V(6,14), V(0,14) },
|
||||
/* 8 */ { M(1,10), V(0,9), V(0,7), V(1,6), V(5,6), V(6,7), V(6,9), V(5,10),
|
||||
V(6,11), V(6,13), V(5,14), V(1,14), V(0,13), V(0,11), V(1,10),
|
||||
V(5,10) },
|
||||
/* 9 */ { M(2,6), V(6,10), V(6,13), V(5,14), V(1,14), V(0,13), V(0,11),
|
||||
V(1,10), V(5,10), V(6,11) },
|
||||
/* : */ { M(2,6), V(3,6), V(3,7), V(2,7), V(2,6), M(2,10), V(3,10), V(3,11),
|
||||
V(2,11), V(2,10) },
|
||||
/* ; */ { M(2,7), V(3,6), V(3,5), V(2,4), M(2,10), V(3,10), V(3,11), V(2,11),
|
||||
V(2,10) },
|
||||
/* < */ { M(3,7), V(0,10), V(3,13) },
|
||||
/* = */ { M(0,8), V(6,8), M(6,10), V(0,10) },
|
||||
/* > */ { M(0,7), V(3,10), V(0,13) },
|
||||
/* ? */ { M(0,13), V(1,14), V(2,13), V(2,12), V(1,11), V(1,8), M(1,7),
|
||||
V(1,6) },
|
||||
/* @ */ { M(1,6), V(0,7), V(0,11), V(1,12), V(5,12), V(6,11), V(6,8), V(5,7),
|
||||
V(4,8), V(4,11), M(4,10), V(3,11), V(2,11), V(1,10), V(1,9), V(2,8),
|
||||
V(3,8), V(4,9) },
|
||||
/* A */ { V(0,12), V(2,14), V(4,14), V(6,12), V(6,9), V(0,9), V(6,9), V(6,6) },
|
||||
/* B */ { V(0,14), V(5,14), V(6,13), V(6,11), V(5,10), V(0,10), V(5,10),
|
||||
V(6,9), V(6,7), V(5,6), V(0,6) },
|
||||
/* C */ { M(6,13), V(5,14), V(2,14), V(0,12), V(0,8), V(2,6), V(5,6), V(6,7) },
|
||||
/* D */ { V(0,14), V(4,14), V(6,12), V(6,8), V(4,6), V(0,6) },
|
||||
/* E */ { M(6,6), V(0,6), V(0,10), V(4,10), V(0,10), V(0,14), V(6,14) },
|
||||
/* F */ { V(0,10), V(4,10), V(0,10), V(0,14), V(6,14) },
|
||||
/* G */ { M(6,13), V(5,14), V(2,14), V(0,12), V(0,8), V(2,6), V(4,6), V(6,8),
|
||||
V(6,10), V(4,10) },
|
||||
/* H */ { V(0,14), V(0,10), V(6,10), V(6,14), V(6,6) },
|
||||
/* I */ { M(1,6), V(5,6), V(3,6), V(3,14), V(1,14), V(5,14) },
|
||||
/* J */ { M(1,9), V(1,7), V(2,6), V(3,6), V(4,7), V(4,14), V(2,14), V(6,14) },
|
||||
/* K */ { V(0,14), V(0,8), V(6,14), V(2,10), V(6,6) },
|
||||
/* L */ { M(0,14), V(0,6), V(6,6) },
|
||||
/* M */ { V(0,14), V(3,11), V(6,14), V(6,6) },
|
||||
/* N */ { V(0,14), V(0,13), V(6,7), V(6,6), V(6,14) },
|
||||
/* O */ { M(0,8), V(0,12), V(2,14), V(4,14), V(6,12), V(6,8), V(4,6), V(2,6),
|
||||
V(0,8) },
|
||||
/* P */ { V(0,14), V(5,14), V(6,13), V(6,11), V(5,10), V(0,10) },
|
||||
/* Q */ { M(0,8), V(0,12), V(2,14), V(4,14), V(6,12), V(6,8), V(4,6), V(2,6),
|
||||
V(0,8), M(3,9), V(6,6) },
|
||||
/* R */ { V(0,14), V(5,14), V(6,13), V(6,11), V(5,10), V(0,10), V(2,10),
|
||||
V(6,6) },
|
||||
/* S */ { M(0,8), V(2,6), V(4,6), V(6,8), V(4,10), V(2,10), V(0,12), V(2,14),
|
||||
V(4,14), V(6,12) },
|
||||
/* T */ { M(3,6), V(3,14), V(0,14), V(6,14) },
|
||||
/* U */ { M(0,14), V(0,7), V(1,6), V(5,6), V(6,7), V(6,14) },
|
||||
/* V */ { M(0,14), V(0,9), V(3,6), V(6,9), V(6,14) },
|
||||
/* W */ { M(0,14), V(0,6), V(3,9), V(6,6), V(6,14) },
|
||||
/* X */ { V(0,7), V(6,13), V(6,14), M(0,14), V(0,13), V(6,7), V(6,6) },
|
||||
/* Y */ { M(0,14), V(3,11), V(6,14), V(3,11), V(3,6) },
|
||||
/* Z */ { M(0,14), V(6,14), V(6,13), V(0,7), V(0,6), V(6,6) },
|
||||
/* [ */ { M(3,5), V(0,5), V(0,15), V(3,15) },
|
||||
/* \ */ { M(0,12), V(6,6) },
|
||||
/* ] */ { M(0,5), V(3,5), V(3,15), V(0,15) },
|
||||
/* up arrow */ { M(0,11), V(3,14), V(6,11), M(3,14), V(3,6) },
|
||||
/* left arrow*/{ M(3,7), V(0,10), V(3,13), M(0,10), V(6,10) },
|
||||
/* ` */ { M(2,14), V(4,12) },
|
||||
/* a */ { M(0,9), V(1,10), V(3,10), V(4,9), V(4,6), M(4,8), V(3,9), V(1,9),
|
||||
V(0,8), V(0,7), V(1,6), V(3,6), V(4,7) },
|
||||
/* b */ { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6),
|
||||
V(0,7) },
|
||||
/* c */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7) },
|
||||
/* d */ { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6),
|
||||
V(0,7), M(4,6), V(4,13) },
|
||||
/* e */ { M(4,7), V(3,6), V(1,6), V(0,7), V(0,9), V(1,10), V(3,10), V(4,9),
|
||||
V(4,8), V(0,8) },
|
||||
/* f */ { M(2,6), V(2,12), V(3,13), V(4,13), V(5,12), M(0,11), V(4,11) },
|
||||
/* g */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7),
|
||||
M(4,10), V(4,5), V(3,4), V(1,4), V(0,5) },
|
||||
/* h */ { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,6) },
|
||||
/* i */ { M(3,12), V(3,11), M(3,10), V(3,7), V(4,6), V(5,6) },
|
||||
/* k */ { M(3,12), V(3,11), M(3,10), V(3,5), V(2,4), V(1,3) },
|
||||
/* j */ { V(0,13), M(0,8), V(2,10), M(0,8), V(2,6) },
|
||||
/* l */ { M(2,6), V(2,13) },
|
||||
/* m */ { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6), M(3,9), V(4,10),
|
||||
V(5,10), V(6,9), V(6,6) },
|
||||
/* n */ { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6) },
|
||||
/* o */ { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6),
|
||||
V(0,7) },
|
||||
/* p */ { M(0,4), V(0,10), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6),
|
||||
V(1,6), V(0,7) },
|
||||
/* q */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7),
|
||||
M(4,10), V(4,4) },
|
||||
/* r */ { V(0,10), M(0,9), V(1,10), V(3,10), V(4,9) },
|
||||
/* s */ { M(0,7), V(1,6), V(3,6), V(4,7), V(3,8), V(1,8), V(0,9), V(1,10),
|
||||
V(3,10), V(4,9) },
|
||||
/* t */ { M(2,13), V(2,7), V(3,6), V(4,6), V(5,7), M(1,11), V(3,11) },
|
||||
/* u */ { M(0,10), V(0,7), V(1,6), V(3,6), V(4,7), V(4,10), V(4,6) },
|
||||
/* v */ { M(0,9), V(3,6), V(6,9) },
|
||||
/* w */ { M(0,10), V(0,6), V(2,8), V(4,6), V(4,10) },
|
||||
/* x */ { V(4,10), M(0,10), V(4,6) },
|
||||
/* y */ { M(0,9), V(3,6), M(6,9), V(1,4), V(0,4) },
|
||||
/* z */ { M(0,10), V(4,10), V(0,6), V(4,6) },
|
||||
/* { */ { M(3,15), V(2,14), V(2,12), V(0,10), V(2,8), V(2,6), V(3,5) },
|
||||
/* | */ { M(2,4), V(2,14) },
|
||||
/* diamon */ { M(3,6), V(0,9), V(3,12), V(6,9), V(3,6) },
|
||||
/* } */ { M(0,15), V(1,14), V(1,12), V(3,10), V(1,8), V(1,6), V(0,5) },
|
||||
/* \ */ { M(0,12), V(6,6) },
|
||||
};
|
||||
|
||||
float scale[] = { 1.0F,
|
||||
1.0F, /* 128 chars per line */
|
||||
1.3F, /* 96 chars per line */
|
||||
2.0F, /* 64 chars per line */
|
||||
2.5F, /* 48 chars per line */
|
||||
4.0F, /* 32 chars per line */
|
||||
5.3F, /* 24 chars per line */
|
||||
8.0F /* 16 chars per line */
|
||||
};
|
||||
|
||||
|
||||
uint64 iii_instr; /* Currently executing instruction */
|
||||
int iii_sel; /* Select mask */
|
||||
|
||||
t_stat iii_devio(uint32 dev, uint64 *data);
|
||||
t_stat iii_svc(UNIT *uptr);
|
||||
t_stat iii_reset(DEVICE *dptr);
|
||||
static void draw_point(int x, int y, int b, UNIT *uptr);
|
||||
static void draw_line(int x1, int y1, int x2, int y2, int b, UNIT *uptr);
|
||||
t_stat iii_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr);
|
||||
const char *iii_description (DEVICE *dptr);
|
||||
|
||||
DIB iii_dib = { III_DEVNUM, 1, iii_devio, NULL};
|
||||
|
||||
UNIT iii_unit[] = {
|
||||
{UDATA (&iii_svc, UNIT_IDLE, 0) },
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
|
||||
MTAB iii_mod[] = {
|
||||
{ 0 }
|
||||
};
|
||||
|
||||
DEVICE iii_dev = {
|
||||
"III", iii_unit, NULL, iii_mod,
|
||||
2, 10, 31, 1, 8, 8,
|
||||
NULL, NULL, iii_reset,
|
||||
NULL, NULL, NULL, &iii_dib, DEV_DEBUG | DEV_DISABLE | DEV_DIS, 0, dev_debug,
|
||||
NULL, NULL, &iii_help, NULL, NULL, &iii_description
|
||||
};
|
||||
|
||||
t_stat iii_devio(uint32 dev, uint64 *data) {
|
||||
UNIT *uptr = &iii_unit[0];
|
||||
switch(dev & 3) {
|
||||
case CONI:
|
||||
*data = (((uint64)iii_sel) << 18) | (uint64)(uptr->PIA);
|
||||
if ((iii_instr & 037) == 0)
|
||||
*data |= INST_HLT;
|
||||
*data |= (uptr->STATUS & 07) << 4;
|
||||
if (uptr->STATUS & NXM_FLG)
|
||||
*data |= NXM_BIT;
|
||||
if (uptr->STATUS & DATA_FLG)
|
||||
*data |= DATAO_LK;
|
||||
if ((uptr->STATUS & RUN_FLG) == 0)
|
||||
*data |= HLT_FLG;
|
||||
if (uptr->STATUS & CTL_FBIT)
|
||||
*data |= CONT_BIT;
|
||||
if (uptr->STATUS & WRP_FBIT)
|
||||
*data |= WRAP_FLG;
|
||||
if (uptr->STATUS & EDG_FBIT)
|
||||
*data |= EDGE_FLG;
|
||||
if (uptr->STATUS & LIT_FBIT)
|
||||
*data |= LIGHT_FLG;
|
||||
sim_debug(DEBUG_CONI, &iii_dev, "III %03o CONI %06o %06o\n", dev, (uint32)*data,
|
||||
PC);
|
||||
break;
|
||||
case CONO:
|
||||
clr_interrupt(III_DEVNUM);
|
||||
if (*data & SET_PIA)
|
||||
uptr->PIA = (int)(*data&PIA_MSK);
|
||||
if (*data & F)
|
||||
uptr->STATUS &= ~(WRP_FBIT|EDG_FBIT|LIT_FBIT|DATA_FLG|NXM_FLG);
|
||||
uptr->STATUS &= ~(017 & ((*data >> 14) ^ (*data >> 10)));
|
||||
uptr->STATUS ^= (017 & (*data >> 10));
|
||||
if (*data & STOP)
|
||||
uptr->STATUS &= ~RUN_FLG;
|
||||
if (*data & CONT) {
|
||||
uptr->STATUS |= RUN_FLG;
|
||||
iii_instr = M[uptr->MAR];
|
||||
sim_activate(uptr, 10);
|
||||
}
|
||||
if (((uptr->STATUS >> 3) & (uptr->STATUS & (WRAP_MSK|EDGE_MSK|LIGH_MSK))) != 0)
|
||||
set_interrupt(III_DEVNUM, uptr->PIA);
|
||||
if (uptr->STATUS & HLT_MSK)
|
||||
set_interrupt(III_DEVNUM, uptr->PIA);
|
||||
sim_debug(DEBUG_CONO, &iii_dev, "III %03o CONO %06o %06o\n", dev,
|
||||
(uint32)*data, PC);
|
||||
break;
|
||||
case DATAI:
|
||||
sim_debug(DEBUG_DATAIO, &iii_dev, "III %03o DATAI %06o\n", dev, (uint32)*data);
|
||||
break;
|
||||
case DATAO:
|
||||
if (uptr->STATUS & RUN_FLG)
|
||||
uptr->STATUS |= DATA_FLG;
|
||||
else {
|
||||
iii_instr = *data;
|
||||
sim_activate(uptr, 10);
|
||||
}
|
||||
sim_debug(DEBUG_DATAIO, &iii_dev, "III %03o DATAO %06o\n", dev, (uint32)*data);
|
||||
break;
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
t_stat
|
||||
iii_svc (UNIT *uptr)
|
||||
{
|
||||
uint64 temp;
|
||||
int A;
|
||||
int ox, oy, nx, ny, br, sz;
|
||||
int i, j, ch;
|
||||
float ch_sz;
|
||||
|
||||
iii_cycle(10, 0);
|
||||
|
||||
/* Extract X,Y,Bright and Size */
|
||||
sz = (uptr->POS & CSIZE) >> CSIZE_V;
|
||||
br = (uptr->POS & CBRT) >> CBRT_V;
|
||||
ox = (uptr->POS & POS_X) >> POS_X_V;
|
||||
oy = (uptr->POS & POS_Y) >> POS_Y_V;
|
||||
nx = ox = (ox ^ 02000) - 02000;
|
||||
ny = oy = (oy ^ 02000) - 02000;
|
||||
ch_sz = scale[sz];
|
||||
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: pos %d %d %d %d %o\n", ox, oy, br, sz,
|
||||
uptr->STATUS );
|
||||
switch(iii_instr & 017) {
|
||||
case 000: /* JMP and HLT */
|
||||
if (iii_instr & 020) {
|
||||
uptr->MAR = (iii_instr >> 18) & RMASK;
|
||||
} else {
|
||||
uptr->STATUS &= ~RUN_FLG;
|
||||
if (uptr->STATUS & HLT_MSK)
|
||||
set_interrupt(III_DEVNUM, uptr->PIA);
|
||||
return SCPE_OK;
|
||||
}
|
||||
goto skip_up;
|
||||
case 001:
|
||||
case 003:
|
||||
case 005:
|
||||
case 007:
|
||||
case 011:
|
||||
case 013:
|
||||
case 015:
|
||||
case 017: /* Draw 4 characters */
|
||||
for (i = 29; i >= 1; i -= 7) {
|
||||
/* Extract character and compute initial point */
|
||||
int cx, cy;
|
||||
int lx, ly;
|
||||
ch = (iii_instr >> i) & 0177;
|
||||
cx = 0;
|
||||
cy = (int)(6.0 * ch_sz);
|
||||
lx = ox;
|
||||
ly = oy + cy;
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: ch %d %d %o '%c' %o %o\n",
|
||||
lx, ly, ch, (ch < ' ')? '.' : ch, sz, br);
|
||||
if (ch == '\t' || ch == 0)
|
||||
continue;
|
||||
if (ch == '\r') {
|
||||
ox = -512;
|
||||
continue;
|
||||
}
|
||||
if (ch == '\n') {
|
||||
oy -= (int)(16.0 * ch_sz);
|
||||
continue;
|
||||
}
|
||||
/* Scan map and draw lines as needed */
|
||||
if ((iii_sel & 04000) != 0) {
|
||||
for(j = 0; j < 18; j++) {
|
||||
uint8 v = map[ch][j];
|
||||
if (v == 0)
|
||||
break;
|
||||
cx = (int)((float)((v >> 4) & 07) * ch_sz);
|
||||
cy = (int)((float)(v & 017) * ch_sz);
|
||||
nx = ox + cx;
|
||||
ny = oy + cy;
|
||||
sim_debug(DEBUG_DATA, &iii_dev, "III: map %d %d %d %d %02x\n",
|
||||
lx, ly, nx, ny, v);
|
||||
if (v & 0200)
|
||||
draw_line(lx, ly, nx, ny, br, uptr);
|
||||
lx = nx;
|
||||
ly = ny;
|
||||
}
|
||||
}
|
||||
ox += (int)(8.0 * ch_sz);
|
||||
}
|
||||
nx = ox;
|
||||
ny = oy;
|
||||
break;
|
||||
|
||||
case 002: /* Short Vector */
|
||||
if ((iii_sel & 04000) == 0)
|
||||
break;
|
||||
/* Do first point */
|
||||
nx = (iii_instr >> 26) & 077;
|
||||
ny = (iii_instr >> 20) & 077;
|
||||
/* Sign extend */
|
||||
nx = (nx ^ 040) - 040;
|
||||
ny = (ny ^ 040) - 040;
|
||||
/* Compute relative position. */
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: short %d %d %o %d\n",
|
||||
nx, ny, sz, br);
|
||||
nx += ox;
|
||||
ny += oy;
|
||||
if (nx < -512 || nx > 512 || ny < -512 || ny > 512)
|
||||
uptr->STATUS |= EDG_FBIT;
|
||||
i = (int)((iii_instr >> 18) & 3);
|
||||
if ((i & 02) == 0 && (iii_sel & 04000) != 0) { /* Check if visible */
|
||||
if ((i & 01) == 0) { /* Draw a line */
|
||||
draw_line(ox, oy, nx, ny, br, uptr);
|
||||
} else {
|
||||
draw_point(nx, ny, br, uptr);
|
||||
}
|
||||
}
|
||||
ox = nx;
|
||||
oy = ny;
|
||||
/* Do second point */
|
||||
nx = (iii_instr >> 12) & 0177;
|
||||
ny = (iii_instr >> 6) & 0177;
|
||||
/* Sign extend */
|
||||
nx = (nx ^ 040) - 040;
|
||||
ny = (ny ^ 040) - 040;
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: short2 %d %d %o %d\n",
|
||||
nx, ny, sz, br);
|
||||
/* Compute relative position. */
|
||||
nx += ox;
|
||||
ny += oy;
|
||||
if (nx < -512 || nx > 512 || ny < -512 || ny > 512)
|
||||
uptr->STATUS |= EDG_FBIT;
|
||||
/* Check if visible */
|
||||
if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) {
|
||||
if ((iii_instr & 020) == 0) { /* Draw a line */
|
||||
draw_line(ox, oy, nx, ny, br, uptr);
|
||||
} else {
|
||||
draw_point(nx, ny, br, uptr);
|
||||
}
|
||||
}
|
||||
break;
|
||||
|
||||
case 004: /* JSR, JMS, SAVE */
|
||||
temp = (((uint64)uptr->MAR) << 18) | 020 /* | CPC */;
|
||||
A = (iii_instr >> 18) & RMASK;
|
||||
if ((iii_instr & 030) != 030) {
|
||||
M[A] = temp;
|
||||
A++;
|
||||
}
|
||||
if ((iii_instr & 020) != 020) {
|
||||
temp = uptr->STATUS & 0377;
|
||||
temp |= ((uint64)uptr->POS) << 8;
|
||||
M[A] = temp;
|
||||
A++;
|
||||
}
|
||||
if ((iii_instr & 030) != 030) {
|
||||
uptr->MAR = A;
|
||||
}
|
||||
goto skip_up;
|
||||
|
||||
case 006: /* Long Vector */
|
||||
/* Update sizes if needed */
|
||||
if (((iii_instr >> 8) & CSIZE) != 0)
|
||||
sz = (iii_instr >> 8) & CSIZE;
|
||||
if (((iii_instr >> 11) & 7) != 0)
|
||||
br = (iii_instr > 11) & 7;
|
||||
nx = (iii_instr >> 25) & 03777;
|
||||
ny = (iii_instr >> 14) & 03777;
|
||||
nx = (nx ^ 02000) - 02000;
|
||||
ny = (ny ^ 02000) - 02000;
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: long %d %d %o %o\n",
|
||||
nx, ny, sz, br);
|
||||
if ((iii_instr & 0100) == 0) { /* Relative mode */
|
||||
nx += ox;
|
||||
ny += oy;
|
||||
if (nx < -512 || nx > 512 || ny < -512 || ny > 512)
|
||||
uptr->STATUS |= EDG_FBIT;
|
||||
}
|
||||
/* Check if visible */
|
||||
if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) {
|
||||
if ((iii_instr & 020) == 0) /* Draw a line */
|
||||
draw_line(ox, oy, nx, ny, br, uptr);
|
||||
else
|
||||
draw_point(nx, ny, br, uptr);
|
||||
}
|
||||
break;
|
||||
|
||||
case 010: /* Select instruction */
|
||||
i = (iii_instr >> 24) & 07777; /* Set mask */
|
||||
j = (iii_instr >> 12) & 07777; /* Reset mask */
|
||||
ch = i & j; /* Compliment mask */
|
||||
i &= ~ch;
|
||||
j &= ~ch;
|
||||
iii_sel = ((iii_sel | i) & ~j) ^ ch;
|
||||
goto skip_up;
|
||||
|
||||
case 012: /* Test instruction */
|
||||
A = (uptr->STATUS & (int32)(iii_instr >> 12) & 0377) != 0;
|
||||
j = (int)((iii_instr >> 20) & 0377); /* set mask */
|
||||
i = (int)((iii_instr >> 28) & 0377); /* Reset */
|
||||
uptr->STATUS &= ~(i ^ j);
|
||||
uptr->STATUS ^= j;
|
||||
if (A ^ ((iii_instr & 020) != 0))
|
||||
uptr->MAR++;
|
||||
goto skip_up;
|
||||
|
||||
case 014: /* Restore */
|
||||
A = (iii_instr >> 18) & RMASK;
|
||||
temp = M[A];
|
||||
if ((iii_instr & 020) != 0) {
|
||||
uptr->STATUS &= ~0377;
|
||||
uptr->STATUS |= temp & 0377;
|
||||
}
|
||||
if ((iii_instr & 040) != 0) {
|
||||
uptr->POS = (temp >> 8) & (POS_X|POS_Y|CBRT|CSIZE);
|
||||
}
|
||||
goto skip_up;
|
||||
|
||||
case 016: /* Nop */
|
||||
break;
|
||||
}
|
||||
/* Repack to new position. */
|
||||
sim_debug(DEBUG_DATA, &iii_dev, "III: update %d %d %8o ", nx, ny, uptr->POS);
|
||||
uptr->POS = (POS_X & ((nx & 03777) << POS_X_V)) |
|
||||
(POS_Y & ((ny & 03777) << POS_Y_V)) |
|
||||
(CBRT & (br << CBRT_V)) |
|
||||
(CSIZE & (sz << CSIZE_V));
|
||||
sim_debug(DEBUG_DATA, &iii_dev, "-> %8o\n", uptr->POS);
|
||||
skip_up:
|
||||
if (uptr->STATUS & RUN_FLG) {
|
||||
iii_instr = M[uptr->MAR];
|
||||
sim_debug(DEBUG_DETAIL, &iii_dev, "III: fetch %06o %012llo\n",
|
||||
uptr->MAR, iii_instr);
|
||||
uptr->MAR++;
|
||||
uptr->MAR &= RMASK;
|
||||
sim_activate(uptr, 50);
|
||||
}
|
||||
|
||||
if (((uptr->STATUS >> 3) & (uptr->STATUS & (WRAP_MSK|EDGE_MSK|LIGH_MSK))) != 0)
|
||||
set_interrupt(III_DEVNUM, uptr->PIA);
|
||||
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
t_stat iii_reset (DEVICE *dptr)
|
||||
{
|
||||
if (dptr->flags & DEV_DIS) {
|
||||
display_close(dptr);
|
||||
} else {
|
||||
display_reset();
|
||||
dptr->units[0].POS = 0;
|
||||
iii_init(dptr, 1);
|
||||
}
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
/* Draw a point at x,y with intensity b. */
|
||||
/* X and Y runs from -512 to 512. */
|
||||
static void
|
||||
draw_point(int x, int y, int b, UNIT *uptr)
|
||||
{
|
||||
if (x < -512 || x > 512 || y < -512 || y > 512)
|
||||
uptr->STATUS |= WRP_FBIT;
|
||||
iii_point(x, y, b);
|
||||
}
|
||||
|
||||
/* Draw a line between two points */
|
||||
static void
|
||||
draw_line(int x1, int y1, int x2, int y2, int b, UNIT *uptr)
|
||||
{
|
||||
if (x1 < -512 || x1 > 512 || y1 < -512 || y1 > 512)
|
||||
uptr->STATUS |= WRP_FBIT;
|
||||
if (x2 < -512 || x2 > 512 || y2 < -512 || y2 > 512)
|
||||
uptr->STATUS |= WRP_FBIT;
|
||||
iii_draw_line(x1, y1, x2, y2, b);
|
||||
}
|
||||
|
||||
t_stat iii_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr)
|
||||
{
|
||||
return SCPE_OK;
|
||||
}
|
||||
|
||||
const char *iii_description (DEVICE *dptr)
|
||||
{
|
||||
return "Triple III Display";
|
||||
}
|
||||
#endif
|
||||
Reference in New Issue
Block a user