retroforth/vm/nga-pascal/nga.inc
crc 1be951596f begin further reorganization of the source tree
FossilOrigin-Name: 4645fa7e95b86179341a90f76786b7a2258fc5861c655f107f1a7117da8770b0
2019-11-22 18:17:03 +00:00

20 lines
553 B
PHP

// ********************************************************
// Copyright (c) 2016 Rob Judd <judd@ob-wan.com>
// Copyright (c) 2018 Charles Childers <crc@forthworks.com>
// Based on C version by Charles Childers et al
// ISC License - see included file LICENSE
// ********************************************************
type
Cell = Longint;
const
STACK_DEPTH = 32;
ADDRESSES = 128;
IMAGE_SIZE = 524288;
NUM_OPS = 30;
{$define TOS := data[sp]}
{$define NOS := data[sp-1]}
{$define TOA := address[ap]}