SixtyPical/eg/rudiments/goto.60p

define chrout routine
  inputs a
  trashes a
  @ 65490

define bar routine trashes a, z, n {
    ld a, 66
    call chrout
}

define main routine trashes a, z, n {
    ld a, 65
    call chrout
    goto bar
}
More conversion. 2018-09-09 15:03:43 +01:00			`define chrout routine`
Compile goto's. 2015-10-21 15:51:52 +01:00			`inputs a`
			`trashes a`
			`@ 65490`

More conversion. 2018-09-09 15:03:43 +01:00			`define bar routine trashes a, z, n {`
Compile goto's. 2015-10-21 15:51:52 +01:00			`ld a, 66`
			`call chrout`
			`}`

More conversion. 2018-09-09 15:03:43 +01:00			`define main routine trashes a, z, n {`
Compile goto's. 2015-10-21 15:51:52 +01:00			`ld a, 65`
			`call chrout`
			`goto bar`
			`}`