retroforth/source/interfaces/alternates/pascal/nga.inc
crc f7a0698486 source tree reorganizations
FossilOrigin-Name: 654eda2d23299be894f94e8b615e7432de6a3bd5dbb6f4caa454cc20e65a510b
2019-05-02 16:25:16 +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]}