1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
// Should print AB include "chrout.60p" byte foo define print routine inputs foo trashes a, z, n { ld a, foo call chrout } define main routine trashes a, y, z, n, foo { ld y, 65 st y, foo call print inc foo call print }