{"body":"% ZPU Forth - By S3 <s3@9600-baud.net>\n\n!db $(_start) % Reset vector\n\nPAD_SIZE = 512\nTIB_SIZE = 128\nRS_SIZE  = 256 \t\t\t% Number of cells (1K)\n\n% System variables:\nRS_PTR:\t\t!db\t0 \t\t% Return stack pointer set up at runtime\n\n_start:\n\tim #$1f\t\t\t\t% 0x1f also works here\n\tpushpc\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/RwGOVJv7","modified":1506548044,"id":"RwGOVJv7","size":272,"lines":14,"own_paste":false,"theme":"","date":1506548044}