SixtyPical/eg/rudiments/buffer.60p

buffer[2048] buf
pointer ptr @ 254
byte foo

define main routine
  inputs buf
  outputs buf, y, foo
  trashes a, z, n, ptr
{
    ld y, 0
    copy ^buf, ptr
    copy 123, [ptr] + y
    copy [ptr] + y, foo
    copy foo, [ptr] + y
}
Fix problem with test case, and with serializing as zero page. 2017-11-24 13:42:14 +00:00			`buffer[2048] buf`
			`pointer ptr @ 254`
Write stored values, and read values, through pointers. 2017-12-01 13:52:56 +00:00			`byte foo`
Fix problem with test case, and with serializing as zero page. 2017-11-24 13:42:14 +00:00
More conversion. 2018-09-09 15:03:43 +01:00			`define main routine`
Fix problem with test case, and with serializing as zero page. 2017-11-24 13:42:14 +00:00			`inputs buf`
Write stored values, and read values, through pointers. 2017-12-01 13:52:56 +00:00			`outputs buf, y, foo`
Fix problem with test case, and with serializing as zero page. 2017-11-24 13:42:14 +00:00			`trashes a, z, n, ptr`
			`{`
			`ld y, 0`
Require that the program does ^buf to get at the address of buf. 2017-12-01 12:36:58 +00:00			`copy ^buf, ptr`
Compile copy[]+y. 2017-11-24 16:56:55 +00:00			`copy 123, [ptr] + y`
Write stored values, and read values, through pointers. 2017-12-01 13:52:56 +00:00			`copy [ptr] + y, foo`
			`copy foo, [ptr] + y`
Fix problem with test case, and with serializing as zero page. 2017-11-24 13:42:14 +00:00			`}`