XProfan

repeat' >>>>>>  Ereignisschleife  Halt/Weiter/Einzelschritt und MGA-Display >>>>>>>

    '-------                              (äussere Ereignisschleife)
    waitinput
    '-------
    ...

    repeat' innere Ereignisschleife

        '........
        waitinput' EREIGNISABFRAGE  für mögliche Aktionen:  X STOP Programm / weiter ausführen / einen Befehl weiter
        '........
        ...

function animate() {

    // t += 0.005;
    requestAnimationFrame( animate );

    for ( let i = 0; i < 8 ; i ++ ) {

        if ( oc$[i] ==='0' ) {

            visibilityRAM( iMeshRamDig0, coderow, i, visible );
            visibilityRAM( iMeshRamDig1, coderow, i, hidden );

        } else {// === '1'

            visibilityRAM( iMeshRamDig0, coderow, i, hidden );
            visibilityRAM( iMeshRamDig1, coderow, i, visible );

        }

'{--- Hilfsprozeduren Assembler ------

proc restore_instruction' Befehl (Eingabe)  mit Kommentar wiederherstellen

    settext mn% , left$( gettext$(RAM%, coderow%,3) , 3)' Mnemonic setzen
    settext op1%,  mid$( gettext$(RAM%, coderow%,3) , 5, 4)' Op 1 setzen
    settext op2%,  mid$( gettext$(RAM%, coderow%,3) ,10, 4)' Op 2 setzen
    settext opcomm%, trim$(mid$(comment$[coderow%],2,255))' Kommentar zum Befehlsetzen

endproc

proc restore_const' Konstante (Eingabe) mit Kommentar wiederherstellen

    settext coninp%, trim$( left$( gettext$(RAM%, conrow%,3) ,4) )
    settext concomm%, trim$(mid$(comment$[conrow%],2,255))

endproc

proc restore_from_RAM' Befehl oder Konstante aus RAM mit Kommentar wiederherstellen

    if (ramrow% > -1) AND (ramrow% < 128)' ramrow% ist -1 wenn auf "Teilzeile" am Ende der Gridbox geklickt wird!

        coderow% = ramrow%
        restore_instruction' Mnemonic Op1,2 und Kommentar in Eingabe-Edits setzen

    endif

    if (ramrow% > 127)  AND (ramrow% < 256)

        conrow%  = ramrow%
        restore_const' Konstante (Eingabe) mit Kommentar setzen

    endif

endproc

const canvasW = 1664;// canvasH * 13
const canvasH = 128;
const txtGeo = new THREE.PlaneBufferGeometry( 9.1, 0.7 );// 13 : 1

for ( let i = 0; i < 256 ; i ++ ) {

    canvas.push( document.createElement('canvas') );
    canvas[ i ].width = canvasW;
    canvas[ i ].height = canvasH;
    ctx.push( canvas[ i ].getContext('2d' ) );
    canvasTexture.push( new THREE.Texture( canvas[ i ] ) );
    canvasMaterial.push( new THREE.MeshBasicMaterial( { map: canvasTexture[ i ], side: THREE.DoubleSide } ) );
    txtMesh.push( new THREE.Mesh( txtGeo, canvasMaterial[ i ] ) );
    txtMesh[ i ].position.x = 18;
    txtMesh[ i ].position.y = - i + 12;
    //txtMesh[ i ].position.z = 0.11;  //   TEST ////////////////////
    RAM.add( txtMesh[ i ] );
    txtAss = RAM$[ i ][ 3 ].padEnd( 16 ) + RAM$[ i ][ 4 ];
    changeCanvas( canvasTexture[i], ctx[i], txtAss );

}

txtAss = RAM$[ coderow ][ 3 ].padEnd( 16 ) +'NZVC'; // RAM$[ coderow ][ 4 ];	 //!!!!!!! TEST  'NZVC' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
changeCanvas( canvasTexture[ coderow ], ctx[ coderow ], txtAss );

function changeCanvas( canvasTexture, ctx, txt ) {

    ctx.fillStyle = vSandy;
    ctx.fillRect( 0, 0, canvasW, canvasH );
    ctx.fillStyle = dGray;
    ctx.textAlign = "left";
    ctx.textBaseline = "middle";
    ctx.font ='bold 14vh Courier';
    ctx.fillText(  txt, 0, canvasH / 2 );
    canvasTexture.needsUpdate = true;

}

function selectrowcolor( row, color ) {

    txtAss = RAM$[ row ][ 3 ].padEnd( 16 ) + RAM$[ row ][ 4 ];
    canvasSet( cvAssTexture[ row ], ctxAss[ row ], color, cvAssW, cvAssH, txtAss );

}

selectstring(RAM%, -1, d255_to_bin8(coderow%))' aktuelle Befehlszeile im RAM markieren

var RAM%  = create("Gridbox", %hwnd, ramkopf$, 0, 4, 18, 379, 664)

const RAMup = new THREE.Group( );
const geoRAMupCyl = new THREE.CylinderBufferGeometry( 0.2, 0.2, 6, 6, 1 );
const meshRAMupCyl = new THREE.Mesh( geoRAMupCyl, matRAMupDown );
meshRAMupCyl.name ='up';
RAMup.add( meshRAMupCyl );
objectsToRaycast.push( meshRAMupCyl );
const geoRAMupCone = new THREE.CylinderBufferGeometry( 0, 0.4, 1.6, 6, 1 );
const meshRAMupCone = new THREE.Mesh( geoRAMupCone, matRAMupDown );
meshRAMupCone.name ='up';
meshRAMupCone.position.y = 3.8;
RAMup.add( meshRAMupCone );
objectsToRaycast.push( meshRAMupCone );
RAMup.position.x = 24.5;
RAMup.position.y = 4;
sceneRight.add( RAMup )

raycaster.setFromCamera( mouse, cameraRight );
intersects = raycaster.intersectObjects( objectsToRaycast );

if ( intersects.length > 0 ) {//  cutting object

    if (  intersects[0].object.name ==='up' ) {

        posRAMy  = posRAMy > 0 ? posRAMy - 16 : posRAMy;

    }

<script type="module">
// ----- import from the web -----
// current revision from the repository
/*
import * as THREE from 'https://threejs.org/build/three.module.js';
import { OrbitControls } from 'https://threejs.org/examples/jsm/controls/OrbitControls.js';
import { OBJLoader } from 'https://threejs.org/examples/jsm/loaders/OBJLoader.js';
import { MTLLoader } from 'https://threejs.org/examples/jsm/loaders/MTLLoader.js';
*/
// or a specific revision from a CDN ( Content Delivery Network, e.g.  https://www.jsdelivr.com/package/npm/three )
/*
import * as THREE from 'https://cdn.jsdelivr.net/npm/three@0.124.0/build/three.module.js';
import { OrbitControls } from 'https://cdn.jsdelivr.net/npm/three@0.124.0/examples/jsm/controls/OrbitControls.js';
import { OBJLoader } from 'https://cdn.jsdelivr.net/npm/three@0.124.0/examples/jsm/loaders/OBJLoader.js';
import { MTLLoader } from 'https://cdn.jsdelivr.net/npm/three@0.124.0/examples/jsm/loaders/MTLLoader.js';
*/
//  ----- import local -----
// NOTE! changed identifiers (.rev) and changed import statements at the beginning of the files
// https://hofk.de/main/discourse.threejs/Local%20use%20of%20the%20examples.pdf
// see https://hofk.de/main/discourse.threejs/Module%20usage.pdf
import * as THREE from'../jsm/three.module.124.js'; //
import { OrbitControls } from'../jsm/OrbitControls.124.js';
import { OBJLoader } from'../jsm/OBJLoader.124.js';
import { MTLLoader } from'../jsm/MTLLoader.124.js';

// JavaScript Syntax-Erweiterungen - z.T. Anpassungen an Original Quellcode (XProfan)
const gettext = ( elm ) => ( elm.innerHTML || elm.value );
const settext = ( elm, string ) => ( elm.innerHTML = string );
String.prototype.bin = function ( ) { return parseInt( this, 2 ) }// dezimaler Wert des Binärzahl-Strings
String.prototype.ord = function ( ) { return this.charCodeAt( 0 ) }// ANSI Code erstes Zeichens
String.prototype.val = function ( ) { return parseInt( this, 10 ) }// dezimaler Wert des Dezimalzahl-Strings
Number.prototype.chr = function ( ) { return String.fromCharCode( this ) }// Zeichen zum ANSI Code
Number.prototype.str = function ( ) { return this.toString( 10 ) }// Dezimalwert in String umwandeln

settext conbin%, conbin$' binär anzeigen
settext conhex%, bin8_to_hex2(conbin$)' hexadezimal anzeigen
settext RAM%, conrow%, 2, conbin$' binär im RAM ablegen
sp_h$ = space$(5-len(coninp$)) +"h"' variable Leerzeichen vor h für hexadezimalen Wert
settext RAM%,conrow%,3,coninp$+sp_h$+gettext$(conhex%)' Wert im RAM darstellen
comment$[conrow%]  = ";"+concomm$' Konstanten-Kommentar in Kommentarfeld speichern

settext( conbin, conbin$ );// binär anzeigen
settext( conhex, bin8_to_hex2( conbin$ ) );// hexadezimal anzeigen
RAM[ conrow ][ 2 ] = conbin$;// binär im RAM ablegen
sp_h$ = mkstr$(' ', 5 - coninp$.length )  + 'h'; // variable Leerzeichen vor h für hexadezimalen Wert
RAM[ conrow ][ 3 ] = coninp$ +sp_h$ + gettext( conhex );// Wert im RAM darstellen
comment$[ conrow ] = ";" + concomm$;// Konstanten-Kommentar in Kommentarfeld speichern

whileloop 0,3

    settext R%[&loop],"00000000"'  D, A-Register mit 0 initialisieren
    settext S%[&loop],"00000000"' SD,SA-Register mit 0 initialisieren

endwhile

settext IR%, "00000000"' No Operation im IR

for ( let i = 0; i < 4; i ++ ) {

    R[i] = "00000000";// D, A-Register mit 0 initialisieren
    S[i] = "00000000";// SD,SA-Register mit 0 initialisieren

}

IR = "00000000";// No Operation im IR