URL https://opencores.org/ocsvn/ssbcc/ssbcc/trunk

Subversion Repositories ssbcc

[/] [ssbcc/] [trunk/] [core/] [9x8/] [tb/] [arch/] [arch-1rom.s] - Blame information for rev 2

Details | Compare with Previous | View Log


; Copyright 2013, Sinclair R.F., Inc.
;
; Validate contents of a single ROM
 
.include init.s
 
.main
  ; Read the contents of the ROM
  ${size['rom_z']-1} :read_z dup .fetch(rom_z) drop .jumpc(read_z,1-) drop
 
  ; Terminate the simulation.
  .outstrobe(O_DONE_STROBE)
 
  ; Sit in an infinite loop.
  :infinite .jump(infinite)

Line No.	Rev	Author	Line
1	2	sinclairrf	`; Copyright 2013, Sinclair R.F., Inc.`
2			`;`
3			`; Validate contents of a single ROM`
4
5			`.include init.s`
6
7			`.main`
8			`; Read the contents of the ROM`
9			`${size['rom_z']-1} :read_z dup .fetch(rom_z) drop .jumpc(read_z,1-) drop`
10
11			`; Terminate the simulation.`
12			`.outstrobe(O_DONE_STROBE)`
13
14			`; Sit in an infinite loop.`
15			`:infinite .jump(infinite)`

Browse

Tools

Subversion Repositories ssbcc

[/] [ssbcc/] [trunk/] [core/] [9x8/] [tb/] [arch/] [arch-1rom.s] - Blame information for rev 2