retroforth/interfaces/alternates/pascal/nga.inc
crc 4bf09cbc1d some work on source tree cleanups
FossilOrigin-Name: 298455186027216b800fc993296806bc7de474b25ec20d2f7f87d0063e9e3f02
2019-05-02 13:58:47 +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]}