# Pastebin RwGOVJv7
% ZPU Forth - By S3 <s3@9600-baud.net>

!db $(_start) % Reset vector

PAD_SIZE = 512
TIB_SIZE = 128
RS_SIZE  = 256 			% Number of cells (1K)

% System variables:
RS_PTR:		!db	0 		% Return stack pointer set up at runtime

_start:
	im #$1f				% 0x1f also works here
	pushpc