git @ Cat's Eye Technologies SixtyPical / goto-at-end-of-block eg / apple2 / print.60p
goto-at-end-of-block

Tree @goto-at-end-of-block (Download .tar.gz)

print.60p @goto-at-end-of-blockraw · history · blame

// Write ">AB>" to "standard output"

define cout routine
  inputs a
  trashes a
  @ $FDED

define main routine
  trashes a, z, n
{
    ld a, 62
    call cout
    ld a, 65
    call cout
    ld a, 66
    call cout
    ld a, 62
    call cout
}