{
  "version": 3,
  "sources": ["../src/machine/devel.ts", "../src/platform/devel.ts"],
  "sourcesContent": ["\nimport { MOS6502 } from \"../common/cpu/MOS6502\";\nimport { BasicHeadlessMachine, HasSerialIO, SerialIOInterface } from \"../common/devices\";\nimport { padBytes, newAddressDecoder } from \"../common/emu\"; // TODO\n\nconst INPUT_HALTED = 31;\n\nexport class Devel6502 extends BasicHeadlessMachine implements HasSerialIO {\n\n  cpuFrequency = 1000000;\n  defaultROMSize = 0x8000;\n  \n  cpu = new MOS6502();\n  ram = new Uint8Array(0x4000);\n  rom : Uint8Array;\n  serial : SerialIOInterface;\n\n  constructor() {\n    super();\n    this.connectCPUMemoryBus(this);\n  }\n  \n  connectSerialIO(serial: SerialIOInterface) {\n    this.serial = serial;\n  }\n\n  read = newAddressDecoder([\n    [0x0000, 0x3fff, 0x3fff, (a) => { return this.ram[a]; }],\n    [0x4000, 0x4000, 0xffff, (a) => { return this.serial.byteAvailable() ? 0x80 : 0 }],\n    [0x4001, 0x4001, 0xffff, (a) => { return this.serial.recvByte() }],\n    [0x4002, 0x4002, 0xffff, (a) => { return this.serial.clearToSend() ? 0x80 : 0 }],\n    [0x8000, 0xffff, 0x7fff, (a) => { return this.rom && this.rom[a]; }],\n  ]);\n  \n  write = newAddressDecoder([\n    [0x0000, 0x3fff, 0x3fff, (a,v) => { this.ram[a] = v; }],\n    [0x4003, 0x4003, 0xffff, (a,v) => { return this.serial.sendByte(v) }],\n    [0x400f, 0x400f, 0xffff, (a,v) => { this.inputs[INPUT_HALTED] = 1; }],\n  ]);\n  \n  readConst(a:number) : number {\n    return this.read(a);\n  }\n\n  advanceFrame(trap) : number {\n    var clock = 0;\n    while (clock < this.cpuFrequency/60) {\n      if (trap && trap()) break;\n      clock += this.advanceCPU();\n    }\n    return clock;\n  }\n\n  advanceCPU() {\n    if (this.isHalted()) return 1;\n    var n = super.advanceCPU();\n    if (this.serial) this.serial.advance(n);\n    return n;\n  }\n\n  reset() {\n    this.inputs[INPUT_HALTED] = 0;\n    super.reset();\n    if (this.serial) this.serial.reset();\n  }\n\n  isHalted() { return this.inputs[INPUT_HALTED] != 0; }\n}\n\n", "\nimport { Platform } from \"../common/baseplatform\";\nimport { EmuHalt, PLATFORMS } from \"../common/emu\";\nimport { Devel6502 } from \"../machine/devel\";\nimport { Base6502MachinePlatform } from \"../common/baseplatform\";\nimport { SerialIOInterface } from \"../common/devices\";\nimport { byteArrayToString, convertDataToUint8Array } from \"../common/util\";\nimport { TeleType } from \"../common/teletype\";\nimport { haltEmulation } from \"../ide/ui\";\n\nvar DEVEL_6502_PRESETS = [\n  {id:'hello.dasm', name:'Hello World (ASM)'},\n];\n\nclass SerialInOutViewer {\n  div : HTMLElement;\n  tty : TeleType;\n  \n  constructor(div: HTMLElement) {\n    div.style.overflowY = 'auto';\n    var gameport = $('<div id=\"gameport\"/>').appendTo(div);\n    $('<p class=\"transcript-header\">Serial Output</p>').appendTo(gameport);\n    var windowport = $('<div id=\"windowport\" class=\"transcript\"/>').appendTo(gameport);\n    this.div = windowport[0];\n  }\n  start() {\n    this.tty = new TeleType(this.div, false);\n    //this.tty.ncols = 40;\n  }\n  reset() {\n    this.tty.clear();\n  }\n  saveState() {\n    return this.tty.saveState();\n  }\n  loadState(state) {\n    this.tty.loadState(state);\n  }\n}\n\nfunction byteToASCII(b: number) : string {\n  if (b == 10) return '';\n  if (b < 32)\n    return String.fromCharCode(b + 0x2400);\n  else\n    return String.fromCharCode(b);\n}\n\nexport class SerialTestHarness implements SerialIOInterface {\n\n  viewer : SerialInOutViewer;\n  bufferedRead : boolean = true;\n  cyclesPerByte = 1000000/(57600/8); // 138.88888 cycles\n  maxOutputBytes = 4096;\n  inputBytes : Uint8Array;\n\n  outputBytes : number[];\n  inputIndex : number;\n  clk : number;\n  bufin : string;\n\n  clearToSend(): boolean {\n    return this.outputBytes.length < this.maxOutputBytes;\n  }\n  sendByte(b: number) {\n    if (this.clearToSend()) {\n      this.outputBytes.push(b);\n      this.viewer.tty.addtext(byteToASCII(b), 2|32);\n      if (b == 10) this.viewer.tty.newline();\n      if (!this.clearToSend()) {\n        this.viewer.tty.newline();\n        this.viewer.tty.addtext(\"\u26A0\uFE0F OUTPUT BUFFER FULL \u26A0\uFE0F\", 4);\n      }\n    }\n  }\n  byteAvailable(): boolean {\n    return this.readIndex() > this.inputIndex;\n  }\n  recvByte(): number {\n    var index = this.readIndex();\n    this.inputIndex = index;\n    var b = (this.inputBytes && this.inputBytes[index]) | 0;\n    //this.bufin += byteToASCII(b);\n    this.viewer.tty.addtext(byteToASCII(b), 2|16);\n    if (b == 10) this.viewer.tty.newline();\n    return b;\n  }\n  readIndex(): number {\n    return this.bufferedRead ? (this.inputIndex+1) : Math.floor(this.clk / this.cyclesPerByte);\n  }\n\n  reset() {\n    this.inputIndex = -1;\n    this.clk = 0;\n    this.outputBytes = [];\n    this.bufin = '';\n  }\n\n  advance(clocks: number) {\n    this.clk += clocks;\n  }\n\n  saveState() {\n    return {\n      clk: this.clk,\n      idx: this.inputIndex,\n      out: this.outputBytes.slice()\n    }\n  }\n  loadState(state) {\n    this.clk = state.clk;\n    this.inputIndex = state.idx;\n    this.outputBytes = state.out.slice();\n  }\n}\n\nclass Devel6502Platform extends Base6502MachinePlatform<Devel6502> implements Platform {\n\n  serial : SerialTestHarness;\n  serview : SerialInOutViewer;\n\n  constructor(mainElement: HTMLElement) {\n    super(mainElement);\n    this.serview = new SerialInOutViewer(mainElement);\n  }\n\n  async start() {\n    super.start();\n    this.serial = new SerialTestHarness();\n    this.serial.viewer = this.serview;\n    this.serview.start();\n    this.machine.connectSerialIO(this.serial);\n  }\n\n  reset() {\n    this.serial.inputBytes = convertDataToUint8Array(this.internalFiles['serialin.dat']);\n    super.reset();\n    this.serview.reset();\n  }\n\n  isBlocked() {\n    return this.machine.isHalted();\n  }\n\n  advance(novideo: boolean) {\n    if (this.isBlocked()) {\n      this.internalFiles['serialout.dat'] = byteArrayToString(this.serial.outputBytes);\n      haltEmulation();\n      return 0;\n    }\n    return super.advance(novideo);\n  }\n\n  saveState() {\n    var state : any = super.saveState();\n    state.serial = this.serial.saveState();\n    state.serview = this.serview.saveState();\n    return state;\n  }\n\n  loadState(state) {\n    super.loadState(state);\n    this.serial.loadState(state.serial);\n    this.serview.loadState(state.serview);\n    // TODO: reload tty UI\n  }\n\n  newMachine()          { return new Devel6502(); }\n  getPresets()          { return DEVEL_6502_PRESETS; }\n  getDefaultExtension() { return \".dasm\"; };\n  readAddress(a)        { return this.machine.readConst(a); }\n\n  getMemoryMap = function() { return { main:[\n      {name:'RAM',          start:0x0000,size:0x4000,type:'ram'},\n      {name:'ROM',          start:0x8000,size:0x8000,type:'rom'},\n  ] } };\n}\n\n///\n\nPLATFORMS['devel-6502'] = Devel6502Platform;\n"],
  "mappings": "+SAKA,GAAM,GAAe,GAEd,eAAwB,EAA4C,CAUzE,aAAc,CACZ,QATF,kBAAe,IACf,oBAAiB,MAEjB,SAAM,GAAI,GACV,SAAM,GAAI,YAAW,OAarB,UAAO,EAAkB,CACvB,CAAC,EAAQ,MAAQ,MAAQ,AAAC,GAAe,KAAK,IAAI,IAClD,CAAC,MAAQ,MAAQ,MAAQ,AAAC,GAAe,KAAK,OAAO,gBAAkB,IAAO,GAC9E,CAAC,MAAQ,MAAQ,MAAQ,AAAC,GAAe,KAAK,OAAO,YACrD,CAAC,MAAQ,MAAQ,MAAQ,AAAC,GAAe,KAAK,OAAO,cAAgB,IAAO,GAC5E,CAAC,MAAQ,MAAQ,MAAQ,AAAC,GAAe,KAAK,KAAO,KAAK,IAAI,MAGhE,WAAQ,EAAkB,CACxB,CAAC,EAAQ,MAAQ,MAAQ,CAAC,EAAE,IAAM,CAAE,KAAK,IAAI,GAAK,IAClD,CAAC,MAAQ,MAAQ,MAAQ,CAAC,EAAE,IAAe,KAAK,OAAO,SAAS,IAChE,CAAC,MAAQ,MAAQ,MAAQ,CAAC,EAAE,IAAM,CAAE,KAAK,OAAO,GAAgB,MAlBhE,KAAK,oBAAoB,MAG3B,gBAAgB,EAA2B,CACzC,KAAK,OAAS,EAiBhB,UAAU,EAAmB,CAC3B,MAAO,MAAK,KAAK,GAGnB,aAAa,EAAe,CAE1B,OADI,GAAQ,EACL,EAAQ,KAAK,aAAa,IAC3B,KAAQ,MACZ,GAAS,KAAK,aAEhB,MAAO,GAGT,YAAa,CACX,GAAI,KAAK,WAAY,MAAO,GAC5B,GAAI,GAAI,MAAM,aACd,MAAI,MAAK,QAAQ,KAAK,OAAO,QAAQ,GAC9B,EAGT,OAAQ,CACN,KAAK,OAAO,GAAgB,EAC5B,MAAM,QACF,KAAK,QAAQ,KAAK,OAAO,QAG/B,UAAW,CAAE,MAAO,MAAK,OAAO,IAAiB,ICxDnD,GAAI,GAAqB,CACvB,CAAC,GAAG,aAAc,KAAK,sBAGzB,OAAwB,CAItB,YAAY,EAAkB,CAC5B,EAAI,MAAM,UAAY,OACtB,GAAI,GAAW,EAAE,wBAAwB,SAAS,GAClD,EAAE,kDAAkD,SAAS,GAC7D,GAAI,GAAa,EAAE,6CAA6C,SAAS,GACzE,KAAK,IAAM,EAAW,GAExB,OAAQ,CACN,KAAK,IAAM,GAAI,GAAS,KAAK,IAAK,IAGpC,OAAQ,CACN,KAAK,IAAI,QAEX,WAAY,CACV,MAAO,MAAK,IAAI,YAElB,UAAU,EAAO,CACf,KAAK,IAAI,UAAU,KAIvB,WAAqB,EAAoB,CACvC,MAAI,IAAK,GAAW,GAChB,EAAI,GACC,OAAO,aAAa,EAAI,MAExB,OAAO,aAAa,GAGxB,WAAqD,CAArD,aAhDP,CAmDE,kBAAyB,GACzB,mBAAgB,IAAS,OAAM,GAC/B,oBAAiB,KAQjB,aAAuB,CACrB,MAAO,MAAK,YAAY,OAAS,KAAK,eAExC,SAAS,EAAW,CAClB,AAAI,KAAK,eACP,MAAK,YAAY,KAAK,GACtB,KAAK,OAAO,IAAI,QAAQ,EAAY,GAAI,EAAE,IACtC,GAAK,IAAI,KAAK,OAAO,IAAI,UACxB,KAAK,eACR,MAAK,OAAO,IAAI,UAChB,KAAK,OAAO,IAAI,QAAQ,+CAA4B,KAI1D,eAAyB,CACvB,MAAO,MAAK,YAAc,KAAK,WAEjC,UAAmB,CACjB,GAAI,GAAQ,KAAK,YACjB,KAAK,WAAa,EAClB,GAAI,GAAK,MAAK,YAAc,KAAK,WAAW,IAAU,EAEtD,YAAK,OAAO,IAAI,QAAQ,EAAY,GAAI,EAAE,IACtC,GAAK,IAAI,KAAK,OAAO,IAAI,UACtB,EAET,WAAoB,CAClB,MAAO,MAAK,aAAgB,KAAK,WAAW,EAAK,KAAK,MAAM,KAAK,IAAM,KAAK,eAG9E,OAAQ,CACN,KAAK,WAAa,GAClB,KAAK,IAAM,EACX,KAAK,YAAc,GACnB,KAAK,MAAQ,GAGf,QAAQ,EAAgB,CACtB,KAAK,KAAO,EAGd,WAAY,CACV,MAAO,CACL,IAAK,KAAK,IACV,IAAK,KAAK,WACV,IAAK,KAAK,YAAY,SAG1B,UAAU,EAAO,CACf,KAAK,IAAM,EAAM,IACjB,KAAK,WAAa,EAAM,IACxB,KAAK,YAAc,EAAM,IAAI,UAIjC,eAAgC,EAAuD,CAKrF,YAAY,EAA0B,CACpC,MAAM,GAkDR,kBAAe,UAAW,CAAE,MAAO,CAAE,KAAK,CACtC,CAAC,KAAK,MAAgB,MAAM,EAAO,KAAK,MAAO,KAAK,OACpD,CAAC,KAAK,MAAgB,MAAM,MAAO,KAAK,MAAO,KAAK,UAnDtD,KAAK,QAAU,GAAI,GAAkB,QAGjC,QAAQ,CACZ,MAAM,QACN,KAAK,OAAS,GAAI,GAClB,KAAK,OAAO,OAAS,KAAK,QAC1B,KAAK,QAAQ,QACb,KAAK,QAAQ,gBAAgB,KAAK,QAGpC,OAAQ,CACN,KAAK,OAAO,WAAa,EAAwB,KAAK,cAAc,iBACpE,MAAM,QACN,KAAK,QAAQ,QAGf,WAAY,CACV,MAAO,MAAK,QAAQ,WAGtB,QAAQ,EAAkB,CACxB,MAAI,MAAK,YACP,MAAK,cAAc,iBAAmB,EAAkB,KAAK,OAAO,aACpE,IACO,GAEF,MAAM,QAAQ,GAGvB,WAAY,CACV,GAAI,GAAc,MAAM,YACxB,SAAM,OAAS,KAAK,OAAO,YAC3B,EAAM,QAAU,KAAK,QAAQ,YACtB,EAGT,UAAU,EAAO,CACf,MAAM,UAAU,GAChB,KAAK,OAAO,UAAU,EAAM,QAC5B,KAAK,QAAQ,UAAU,EAAM,SAI/B,YAAsB,CAAE,MAAO,IAAI,GACnC,YAAsB,CAAE,MAAO,GAC/B,qBAAsB,CAAE,MAAO,QAC/B,YAAY,EAAU,CAAE,MAAO,MAAK,QAAQ,UAAU,KAUxD,EAAU,cAAgB",
  "names": []
}