Subversion Repositories diogenes

@ l2 : current address for memwrites
@ h1 : remaining bytes to write
begin:
  ldi   l2, 0xc0
  lsi   l2, 0x00     @ address of vram

  ldi   h1, 0x01
  shi   h1, 13       @ vram is 8192 byte

1: @ wait for byte
  ldi   l0, 0x80     @ uart status address
  ldio  l3, [l0]
  ldi   h0, 2        @ uart data ready bit
  and   l4, l3, h0
  brz   l4, :1
  ldi   h0, 0x81     @ uart data address

  ldio  l3, [h0]     @ uart rcv
  nop

  stio  l3, [l2]     @ write instruction to program-mem
  
  adi   h1, -1  
  brnz  h1, :1
  adi   l2, 1
  brz   h1, :begin
  nop
@@ vram loaded
  stop