XProfan

HC680 Ensamblador    ;Malprogramm klick
00: ST             ; Startadr.
Adr Mnm _Op_ _Op_  ;  - Kommentar -
00: LDC .D0.       ;Maske para Clic-Bit en el Pixelbyte
01: ##  0000 1000  ;
02: SSR .D0.       ;Maske para Clic-Bit después de SD0 para Test
03: LDC .D1.       ;Maske Pixel-Bit en el Pixelbyte
04: ##  1000 0000  ;
05: LDC .A1.       ;Adresse Pixelbyte = Maske klick-Bit 0 conjunto
06: ##  1111 0111  ;
07: MOV [A1] .A0.  ;Pixelbyte inicializar (Null conjunto)
08: LDC .A0.       ;Sprungadresse para Clic
09: ##  0001 0010  ;
0A: SSR .A0.       ;Sprungadresse para Clic merken
0B: GSR .A0.       ;<-- Sprungziel Haupt- y Klickschleife; Sprungadr. para Clic holen
0C: MOV .D0. [A1]  ;Pixelbyte después de D0
0D: BTS .D0.       ;Test gegen SD0 si Clic Bit gesetzt es
0E: JIZ .A0.       ;Sprung de Bucle si Clic-Bit 1
0F: LDC .A0.       ;Adresse Rücksprung Klickschleife
10: ##  0000 1011  ;
11: JMP .A0.       ;Rücksprung Klickschleife
12: LDC .A0.       ;<-- Sprungziel en Clic-Bit, lade Sprungziel Pixel conjunto
13: ##  0001 1100  ;
14: NOT .D0.       ;Negativ Flag a Unterscheidung: Pixel es 1=schwarz/0=blanco
15: JIN .A0.       ;Sprung a Pixel conjunto
16: NOT .D0.       ;--- Pixel löschen:  NOT rückgängig hacer
17: SHL .D0.       ;Bit schwarz rausschieben
18: SHR .D0.       ;Bit 0=blanco otra vez reinschieben
19: LDC .A0.       ;Adresse Sprungziel: Überspringen de Pixel conjunto
1A: ##  0001 1110  ;
1B: JMP .A0.       ;Überspringen de Pixel conjunto
1C: NOT .D0.       ;<-- Sprungziel Pixel conjunto, NOT rückgängig hacer
1D: O  .D0. .D1.  ;Pixel-Bit con Maske conjunto
1E: AND .D0. .A1.  ;<-- Sprungziel: (Überspringen Pixel conjunto),  Clic Bit zurücksetzen
1F: MOV [A1] .D0.  ;Pixelbyte de D0 neu conjunto
20: LDC .A0.       ;Rücksprungadresse Haupt-Bucle
21: ##  0000 1011  ;
22: JMP .A0.       ;Rücksprung Haupt-Bucle

const noChars = ['Shift', 'Control', 'Alt', 'AltGraph', 'Enter', 'Backspace', 'Insert', 'Delete', 'Home', 'End', 'PageUp', 'PageDown', 'Escape', 'Tab',  'CapsLock', 'Pause', 'ScrollLock', 'NumLock', 'ArrowLeft', 'ArrowRight', 'ArrowUp', 'ArrowDown', 'OS', 'ContextMenu', 'Dead' ];

function onWindowKeyDown( event ) {

    if( progRuns && !paused && !onInput ) {

        let key = event.key;
        let noChr = falso;

        for ( let i = 0; i < noChars.length; i ++ ) {

            noChr = noChr || ( key === noChars[ i ] );

            if ( noChr ) romper;

            }

            if ( !noChr ) {

                key = key[0];// wichtig en toten Tasten 'Dead'
                settext( inpKey_, key );// ... Signo en key Eingabe
                console.log('key ', key, '  key.ord( ) ', key.ord( ) ) //////////////////////////////////////////////////////////////////////////////////
                btmp = d255_to_bin8( key.ord( ) );
                settext( altinp_, key.ord( ) > 127 ? bin8_to_dez( btmp ).str( ) :'' );	// Valor des Zeichens darstellen
                settext( binp_, btmp );// binär Mostrar
                settext( hinp_, "h" + bin8_to_hex2( btmp ) );// hexadezimal Mostrar
                settext( ans_, key );// ANSI Mostrar
                RAM[ 246 ][2] = btmp;// RAM Adr 246 = hF6 binär eintragen ...
                rf_binRAM( 246 );
                RAM[ 246 ][3] = key + "    h" + bin8_to_hex2( btmp );// ... Signo y Valor hexadezimal eintragen
                rf_assFlagsRAM( 246 );

            }

        }

    }

class Quaternion {

    constructor( x = 0, y = 0, z = 0, w = 1 ) {

        this._x = x;
        this._y = y;
        this._z = z;
        this._w = w;

    }

    setFromBasis( e1, e2, e3 ) {

        const	m11 = e1.x, m12 = e1.y, m13 = e1.z,
        m21 = e2.x, m22 = e2.y, m23 = e2.z,
        m31 = e3.x, m32 = e3.y, m33 = e3.z,
        trace = m11 + m22 + m33;

        if ( trace > 0 ) {

            const s = 0.5 / Math.sqrt( trace + 1.0 );
            this._w = 0.25 / s;
            this._x = -( m32 - m23 ) * s;
            this._y = -( m13 - m31 ) * s;
            this._z = -( m21 - m12 ) * s;

        } más if ( m11 > m22 && m11 > m33 ) {

            const s = 2.0 * Math.sqrt( 1.0 + m11 - m22 - m33 );
            this._w = ( m32 - m23 ) / s;
            this._x = -0.25 * s;
            this._y = -( m12 + m21 ) / s;
            this._z = -( m13 + m31 ) / s;

        } más if ( m22 > m33 ) {

            const s = 2.0 * Math.sqrt( 1.0 + m22 - m11 - m33 );
            this._w = ( m13 - m31 ) / s;
            this._x = -( m12 + m21 ) / s;
            this._y = -0.25 * s;
            this._z = -( m23 + m32 ) / s;

        } más {

            const s = 2.0 * Math.sqrt( 1.0 + m33 - m11 - m22 );
            this._w = ( m21 - m12 ) / s;
            this._x = -( m13 + m31 ) / s;
            this._y = -( m23 + m32 ) / s;
            this._z = -0.25 * s;

        }

        this._onChangeCallback();
        volver this;

    }

}

THREE.Quaternion.prototype.setFromBasis = function( e1, e2, e3 ) { ... }