Subversion Repositories ssbcc

; Copyright 2013, Sinclair R.F., Inc.

;

; Validate contents of two ROMs

.include init.s

.main

  ; Read the contents of the first ROM

  ${size['rom_z']-1} :read_z dup .fetch(rom_z) drop .jumpc(read_z,1-) drop

  ; Read the contents of the second ROM

  ${size['rom_y']-1} :read_y dup .fetch(rom_y) drop .jumpc(read_y,1-) drop

  ; Terminate the simulation.

  .outstrobe(O_DONE_STROBE)

  ; Sit in an infinite loop.

  :infinite .jump(infinite)