Subversion Repositories ssbcc

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

;

; Test memory I/O

.memory RAM ram_a

.variable a 0*${size['ram_a']}

.main

  ; Write different, non-zero values to several memory locations.

  ${size['ram_a']/2} :loop_write 0xA5 over ^ over .store(ram_a) drop .jumpc(loop_write,0>>) drop

  ; Read these values.

  ${size['ram_a']/2} :loop_read dup .fetch(ram_a) drop .jumpc(loop_read,0>>) drop

  ; Terminate the simulation.

  .outstrobe(O_DONE_STROBE)

  ; Sit in an infinite loop.

  :infinite .jump(infinite)