SixtyPical/eg/rudiments/call.60p

define chrout routine
  inputs a
  trashes a
  @ 65490

define print routine
  trashes a, z, n
{
    ld a, 65
    call chrout
}

define main routine
  trashes a, z, n
{
    call print
    call print
}
More conversion. 2018-09-09 15:03:43 +01:00			`define chrout routine`
Get serialization of relative labels correct. 2015-10-17 18:11:23 +01:00			`inputs a`
			`trashes a`
			`@ 65490`

More conversion. 2018-09-09 15:03:43 +01:00			`define print routine`
Get serialization of relative labels correct. 2015-10-17 18:11:23 +01:00			`trashes a, z, n`
			`{`
			`ld a, 65`
			`call chrout`
			`}`

More conversion. 2018-09-09 15:03:43 +01:00			`define main routine`
Get serialization of relative labels correct. 2015-10-17 18:11:23 +01:00			`trashes a, z, n`
			`{`
			`call print`
			`call print`
			`}`