atari.html

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<script type="text/javascript" src="6502.js"></script>
<script type="text/javascript" src="ATASCII.js"></script>
<script type="text/javascript" src="SYSTEM.js"></script>
<script type="text/javascript" src="ATARIBAS.js"></script>
<script type="text/javascript" src="ATARIOSB.js"></script>
<script type="text/javascript">

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

var gZero="0".charCodeAt(0);
var gCap="A".charCodeAt(0);
var gLow="a".charCodeAt(0);
var gPeriod=".".charCodeAt(0);
var gSpace=" ".charCodeAt(0);
var gHex="0123456789ABCDEF";
var gChars="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
var gShift=")!@#$%^&*(";

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

var gSpecial=[
    [192,"~","`"],
    [189,"_","-"],
    [187,"+","="],
    [219,"{","["],
    [221,"}","]"],
    [220,"|","\\"],
    [186,":",";"],
    [222,"\"","'"],
    [188,"<",","],
    [191,"?","/"],
    [190,">","."]
];

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

var gMods=[16,17,18,20,91,93];
var gTicks=999999;
var gHorz=44,gVert=57;
var gKeys=[32];
var gScreenData=Array();

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaClear()
{
	var horz,vert;
	ctx.fillStyle="#009";
	ctx.fillRect(0,0,800,480);
	for(vert=0;vert<60;vert++){
		for(horz=0;horz<100;horz++){
			gScreenData[vert*100+horz]=(9<<20)|(9<<8)|32;
		}
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaCursorOn(){
	var chr;
	chr=aaScreenGet(gHorz,gVert);
	aaScreenPut(0x009,0x0CC,chr,gHorz,gVert);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaCursorOff(){
	var chr;
	chr=aaScreenGet(gHorz,gVert);
	aaScreenPut(0xFFF,0x009,chr,gHorz,gVert);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaKeyDown(e){
	if(( e.keyCode!=189)&&(e.keyCode!=187)&&(e.keyCode!=82)){
		e.preventDefault();
	}
    var kc=gKeys.length;
    var i,lKey=e.keyCode;
    for(i=kc-1;i>=0;i--){
        if(gKeys[i]==lKey){
            return;
        }
    }
    gKeys.unshift(lKey);
    var mods=aaKeyMods();
	console.log("aaKeyDown: mods="+mods);
	if(mods==24){
		if(lKey==gSpace){
			gTicks=0;
			gWait=99999;
		}else if((lKey>=gZero)&&(lKey<=gZero+9)){
			gTicks=0;
			if(lKey==gZero){
				gWait=1;
			}else{
				gWait=(lKey-gZero);
				gWait=gWait*gWait*5;
			}
		}
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaKeyDraw(){
	var k,s;
	s="     ";
	for(k=0;k<10;k++){
		aaPrint(0x009,0x999,93,57-k,s);
	}
	for(k=0;k<gKeys.length;k++){
		s=" ";
		if(gKeys[k]<100)s+=" ";
		if(gKeys[k]<10)s+=" ";
		s+=gKeys[k];
		aaPrint(0x009,0x999,93,57-k,s);
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaKeyMods(){
	var i,mods=0;
	for(i=0;i<gKeys.length;i++){
		if(gKeys[i]==16)mods|=1;
		else if(gKeys[i]==20)mods|=2;
		else if(gKeys[i]==18)mods|=4;
		else if(gKeys[i]==17)mods|=8;
		else if(gKeys[i]==91)mods|=8;
		else if(gKeys[i]==93)mods|=8;
		else mods|=16;
	}
	return(mods);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaKeyUp(e){
    var stp=gKeys.length;
    var myi;
    for(myi=stp-1;myi>=0;myi--){
        if(gKeys[myi]==e.keyCode){
            gKeys.splice(myi,1);
        }
    }
//	aaKeyDraw();
//	aaCursorOn();
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaMoveChar(fromX,fromY,toX,toY){
	var from=mScreenGet(fromX,fromY);
	var to=mScreenGet(toX,toY);
	if(from==to)return;
	chr=from&0xFF;
	aaScreenPut(gOn,gOff,chr,toX,toY);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaPrint(on,off,horz,vert,mess){
	var myP,myC,myH=horz,myV=vert;
	for(myP=0;myP<mess.length;myP++){
		myC=mess.charCodeAt(myP);
		if((myH>127)||(myC=="\n".charCodeAt(0))){
			myC=gSpace;myH=horz-1;myV++;
		}
		aaScreenPut(on,off,myC,myH,myV);
		myH++;
	}
	vert=myV+1;
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaScreenGet(horz,vert){
	var temp=gScreenData[(vert<<7)|horz];
	return(temp);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaScreenPut(pos,neg,chr,horz,vert){
	var myH,myV,tmp,cur;
	var pixel,data;
	pos&=0xFFF;
	neg&=0xFFF;
	chr&=0x7F;
	tmp=(pos<<20)|(neg<<8)|chr;
	cur=gScreenData[(vert<<7)|horz];
	if(tmp==cur)return;
	gScreenData[(vert<<7)|horz]=tmp;
	pos=aaToStyle(pos);neg=aaToStyle(neg);
	if((chr&128)==1){
		tmp=neg;neg=pos;pos=tmp;
	}
	ctx.fillStyle=neg;
	ctx.fillRect(horz*8,vert*8,8,8);
	ctx.fillStyle=pos;
	for(myV=0;myV<8;myV++){
		myP=gCharSet[chr&127][myV];
		for(myH=7;myH>=0;myH--){
			if(myP&1){
				ctx.fillRect(horz*8+myH,vert*8+myV,1,1);
			}
			myP>>=1;
		}
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaSendLeft(){
	var from,to,horz,chr,on,off;
	aaCursorOff();
	for(horz=gHorz;horz<96;horz++){
		aaMoveChar(horz+1,gVert,horz,gVert);
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaSendRight(){
	var from,to,horz,chr,on,off;
	aaCursorOff();
	for(horz=96;horz>gHorz;horz--){
		aaMoveChar(horz-1,gVert,horz,gVert);
	}
	aaScreenPut(gOn,gOff,32,gHorz,gVert);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaToASCII(mods,key){
	var rtn=-1;
	if((mods&8)==8)return(rtn);
	if(key==gSpace){
		return(gSpace);
	}else if(key==gPeriod){
		return(gPeriod);
	}else if((key==190)&&(mods==16)){
		return(gPeriod);
	}else{
		for(c=gChars.length-1;c>=0;c--){
			if(key==gChars.charCodeAt(c)){
				break;
			}
		}
		if(c>=0){
			rtn=gChars.charCodeAt(c);
			if((c<=9)&&(mods==23)){
				console.log("mods="+mods);
				rtn=gShift.charCodeAt(c);
			}
		}
	}
	return(rtn);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaToStyle(color){
	var myR=aaToHex(color,3);
	myR="#"+myR;
	return(myR);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaUpdate()
{
	var lkey=gKeys[0];
	var mods=aaKeyMods();
	var lchr=aaToASCII(mods,lkey);
	if((lchr!=-1)&&((mods&0x18)==0x10)){
		aaScreenPut(0xFFF,0x009,lchr,gHorz,gVert);
		gHorz++;
	}else if(lkey==8){
		aaScreenPut(0xFFF,0x009,32,gHorz,gVert);
		gHorz--;if(gHorz<2)gHorz=2;
  }else if(lkey==13){
    aaReturn();
	}else if(lkey==37){
		aaCursorOff();
		gHorz--;
  }else if(lkey==39){
  	aaCursorOff();
		gHorz++;
  }else if((lkey==221)&&((mods&8)==8)){
		aaSendRight();
  }else if((lkey==219)&&((mods&8)==8)){
		aaSendLeft();
  }
	if(gHorz<44){gHorz=44;}
	if(gHorz>98){gHorz=98;}
	var c,m;
	for(c=gKeys.length-1;c>=0;c--){
		for(m=gMods.length-1;m>=0;m--){
			if(gKeys[c]==gMods[m])break;
		}
		if(m==-1){
			gKeys.splice(c,1);
		}
	}
	aaCursorOn();
	gTicks--;
	if(gTicks>0)return;
	gTicks=gWait;
	aaClock();
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaWaitForBackground(e)
{
	if(e.keyCode==gSpace){
		e.preventDefault();
		if(document.attachEvent){
			document.unattachEvent("onkeydown",aaWaitForBackground);
			document.attachEvent("onkeydown",aaKeyDown);
			document.attachEvent("onkeyup",aaKeyUp);
		}else{
			document.removeEventListener("keydown",aaWaitForBackground,false);
			document.addEventListener("keydown",aaKeyDown,false);
			document.addEventListener("keyup",aaKeyUp,false);
		}
		aaClear();
		aaCreate();
		gTime=self.setInterval(function(){aaUpdate();},1);
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

function aaWaitForLicense(e)
{
	if(e.keyCode==gSpace){
		e.preventDefault();
		if(document.attachEvent){
			document.unattachEvent("onkeydown",aaWaitForLicense);
			document.attachEvent("onkeydown",aaWaitForBackground);
		}else{
			document.removeEventListener("keydown",aaWaitForLicense,false);
			document.addEventListener("keydown",aaWaitForBackground,false);
		}
		aaClear();
		aaPrint(0xFFF,0x009,2,2,gBackground);
	}
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

window.onload = function()
{
	var myC;
	if(document.attachEvent){
		document.attachEvent("onkeydown",aaWaitForLicense);
	}else{
		document.addEventListener("keydown",aaWaitForLicense,false);
	}
	myC = document.getElementById("myCanvas");
	ctx = myC.getContext("2d");
	aaClear();
	aaPrint(0xFFF,0x009,2,2,gLicense);
}

// Copyright © 2020 by Gregory Scott Callen
// All Rights Reserved.

</script>
</head>
<hr/>
<h1 align="center">Atari 130 XE</h1>
<hr/>
<body>
  <div align="center">
    <canvas id="myCanvas" width="800" height="480" style="border:1px solid #d3d3d3;">
    Your browser does not support the HTML5 canvas tag.
    </canvas>
    <hr/>
    <img src="AtariProCardA.png" width="800"/>
    <hr/>
    <img src="AtariProCardB.png" width="800"/>
    <hr/>
  </div>
</body>
</html>