retroforth/interface/alternates/pascal/nga.inc
crc 00586f3354 move interfaces to interface/
FossilOrigin-Name: 95a4793e965f0787a8664e4dc3a4f49f66098c30c2a209b6a6d7c2c5fb79193a
2019-11-21 19:48:05 +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]}