clrscr.s 188 B

123456789101112
  1. .xdef clrscr
  2. .text
  3. clrscr:
  4. move.l 0xC8,%a0
  5. move.l (%a0,0x674),%a0 /* MoveTo */
  6. clr.l -(%sp)
  7. jsr (%a0)
  8. addq.l #4,%sp
  9. move.l 0xC8,%a0
  10. move.l (%a0,0x678),%a0 /* ClrScr */
  11. jmp (%a0)