TweetFollow Us on Twitter

TML Barrier
Volume Number:3
Issue Number:9
Column Tag:Mac Hack Forum

Taking TML Around the 32K Barrier

By Darryl Lavoto, TML Systems, Inc., Contributing Editor

It has been a while since I have had a chance to write something for my favorate Magazine! MacTutor! A lot of Technical Support Questions I get at TML Systems are about the 32k data limitation that exists on most compilers. I have written a work-around that will allow most people to get around this problem.

Most Compilers for the Macintosh have a 32k limitation on the sum of all global variables. This is because global variables are stored in a area of memory WORD indexed off of A5. This is a significant limitation if your program needs large arrays of data. There is a workaround, however, to allow any size of array to be created. The only size limitation for our array is available memory.

The alternitive way to create large arrays is to call NewHandle to get a handle to a block of memory large enough to hold the array. Accessing the individual elements of the new array is done by calculating offsets into the block. The Array unit below includes routines for Creating and Disposing arrays, and for accessing the array elements.

The unit could be improved by adding support for multi-dimentional arrays, dynamic sizing of the array, or even variable length data sizes. The speed of the routines could be improved substantially by re-coding the unit in 680x0 assembler. Note that these routines assume that the lower bound of the array is always 0. Also, error checking needs to be added to the create array routine in case there is not enough memory to create the block.

{#################################################}
{#  File: Arrays.Pas      #}
{#  Author: Darryl Lovato.#}
{#  Description: #}
{# This module provides a set of routines to       #}
{#  create & use large arrays      #}
{#################################################}

unit Arrays;

interface

uses MacIntf;

function  CreateNewArray(elemSize, upperBound : Longint) : Handle;
procedure DisposeArray(ary : Handle);
procedure SetElement(ary : Handle; elemNum : Longint; elemPtr : Ptr);
function  GetElement(ary : Handle; elemNum : Longint) : Ptr;

implementation

type
   ArrayHdl = ^ArrayPtr;
   ArrayPtr = ^ArrayRec;
   ArrayRec = record
       hiBound : integer;
       cellSize : Longint;
       dataStuff : integer;
   end;

{#################################################}
{#        #}
{#  function CreateNewArray(elemSize, lowerBound,  #} 
{#      upperBound : Longint) : Handle;#}
{# #}
{#################################################}

function CreateNewArray(elemSize, upperBound : Longint) : Handle;
  var
    tempHdl : ArrayHdl;
  begin
    tempHdl := ArrayHdl(NewHandle(Ord4(SizeOf(ArrayRec)) - 2
 + ((upperbound + 1) * elemSize)));
    with tempHdl^^ do
      begin
        hiBound := upperBound;
        cellSize := elemSize;
      end;
    CreateNewArray := Handle(tempHdl);
  end;

{#################################################}
{#        #}
{#  procedure DisposeArray(ary : Handle);          #} 
{#      #}
{# #}
{#################################################}

procedure DisposeArray(ary : Handle);
  begin
    DisposHandle(ary);
  end;

{#################################################}
{#        #}
{#        #}
{# procedure SetElement(ary : Handle; elemNum :    #}
{# Longint; elemPtr : Ptr); #} 
{#      #}
{# #}
{#################################################}

procedure SetElement(ary : Handle; elemNum : Longint; elemPtr : Ptr);
  type
    fakeary = packed array[1..10000] of signedbyte;
    fakeptr = ^fakeary;
  var
    cellAddr : fakePtr;
    i : integer;
  begin
    with ArrayHdl(ary)^^ do
      if (elemNum > 0) and (elemNum < hibound) then
        begin
          cellAddr := fakePtr(Ord4(@dataStuff) + (elemNum * cellSize));
          for i := 0 to cellSize - 1 do
            cellAddr^[i] := fakePtr(elemPtr)^[i];
        end;
  end;

{#################################################}
{#        #}
{#        #}
{# procedure GetElement(ary : Handle; elemNum :    #}
{# Longint) : Ptr);  #} 
{#      #}
{# #}
{#################################################}

function GetElement(ary : Handle; elemNum : Longint) : Ptr;
  begin
    with ArrayHdl(ary)^^ do
      if (elemNum > 0) and (elemNum < hibound) then
        GetElement := Pointer(Ord4(@dataStuff) + (elemNum * cellSize));
  end;
end.

{#################################################}
{#        #}
{# This program tests the Array Package#}
{# #} 
{# #}
{#################################################}

program AryTest(input, output);

uses Macintf, Arrays;
type
  BigPtr = ^BigRec;
  BigRec = record
             r : real;
             r2 : real;
             other : array[1..20] of Longint;
           end;
var
  myArray : handle;
  i : longint;
  Big : BigRec;
  x : integer;
  StackMark : integer;
begin
  SetApplLimit(Pointer(Ord4(@StackMark) - Ord4(16000))); {16k stack}
  MaxApplZone;

  myArray := CreateNewArray(SizeOf(BigRec), 2000);

  writeln(‘Total Size of Record = ‘,SizeOf(BigRec));
  writeln(‘Total Size of the array = ‘,GetHandleSize(myArray));
  writeln;
  writeln(‘press mouse to start’);
  repeat until button;

  for i := 0 to 2000 do
    begin
      Big.r := i / 1.0;
      SetElement(myArray, i, @Big);
      writeln(BigPtr(GetElement(myArray, i))^.r:7:2);
    end;

  DisposeArray(myArray);
end.
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Macs Fan Control 1.4.7.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
MacFamilyTree 8.1.3 - Create and explore...
MacFamilyTree gives genealogy a facelift: modern, interactive, convenient and fast. Explore your family tree and your family history in a way generations of chroniclers before you would have loved.... Read more
Boom 2 1.5.2 - $14.99
Boom 2 is a system-wide volume booster and equalizer app that is designed especially for OS X 10.10 Yosemite. It comes with a smart interface, self-calibrates itself according to your Mac, offers... Read more
Macs Fan Control 1.4.7.0 - Monitor and c...
Macs Fan Control allows you to monitor and control almost any aspect of your computer's fans, with support for controlling fan speed, temperature sensors pane, menu-bar icon, and autostart with... Read more
Boom 2 1.5.2 - $14.99
Boom 2 is a system-wide volume booster and equalizer app that is designed especially for OS X 10.10 Yosemite. It comes with a smart interface, self-calibrates itself according to your Mac, offers... Read more
MacFamilyTree 8.1.3 - Create and explore...
MacFamilyTree gives genealogy a facelift: modern, interactive, convenient and fast. Explore your family tree and your family history in a way generations of chroniclers before you would have loved.... Read more
WhiteCap 6.6 - Visual plug-in for iTunes...
WhiteCap is a sleek and sophisticated music visualizer and screensaver that features futuristic, wireframe mesh visuals with dynamic backgrounds and colors. WhiteCap contains thousands of visual... Read more
VOX 2.8.14 - Music player that supports...
VOX just sounds better! The beauty is in its simplicity, yet behind the minimal exterior lies a powerful music player with a ton of features and support for all audio formats you should ever need.... Read more
Paparazzi! 1.0b2 - Make user-defined siz...
Paparazzi! is a small utility for OS X that makes screenshots of webpages. This very simple tool takes screenshots of websites which do not fit on one screen. You specify the desired width, minimal... Read more
Carbon Copy Cloner 4.1.13 - Easy-to-use...
Carbon Copy Cloner backups are better than ordinary backups. Suppose the unthinkable happens while you're under deadline to finish a project: your Mac is unresponsive and all you hear is an ominous,... Read more

Stickman Surfer rides in with the tide t...
Stickson is back and this time he's taken up yet another extreme sport - surfing. Stickman Surfer is out this Thursday on both iOS and Android, so if you've been following the other Stickman adventures, you might be interested in picking this one... | Read more »
Z-Exemplar (Games)
Z-Exemplar 1.4 Device: iOS Universal Category: Games Price: $3.99, Version: 1.4 (iTunes) Description: | Read more »
5 dastardly difficult roguelikes like th...
Edmund McMillen's popular roguelike creation The Binding of Isaac: Rebirth has finally crawled onto mobile devices. It's a grotesque dual-stick shooter that tosses you into an endless, procedurally generated basement as you, the pitiable Isaac,... | Read more »
Last week on PocketGamer
Welcome to a weekly feature looking back on the past seven days of coverage on our sister website, PocketGamer. It’s taken a while for 2017 to really get going, at least when it comes to the world of portable gaming. Thank goodness, then, for... | Read more »
ROME: Total War - Barbarian Invasion set...
To the delight of mobile strategy fans, Feral Interactive released ROME: Total War just a few months ago. Now the game's expansion, Barbarian Invasion is marching onto iPads as a standalone release. [Read more] | Read more »
Yuri (Games)
Yuri 1.0 Device: iOS iPhone Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: It's night. Yuri opens his eyes. He wakes up in a strange forest.The small, courageous explorer rides on his bed on casters in this... | Read more »
Space schmup Xenoraid launches on the Ap...
10Tons Xenoraid is out today on the App Store, bringing some high-speed space action to your mobile gadgets just in time for the weekend. The company's last premium title, another sci-fi game titled Neon Chrome, did quite well for itself, so... | Read more »
Star Wars: Force Arena Beginner's G...
Star Wars: Force Arena joined the populous ranks of Star Wars games on mobile today. It's a two-lane MOBA starring many familiar faces from George Lucas's famed sci-fi franchise. As with most games of this nature, Force Arena can be a little obtuse... | Read more »
Mysterium: The Board Game (Games)
Mysterium: The Board Game 1.0 Device: iOS Universal Category: Games Price: $6.99, Version: 1.0 (iTunes) Description: The official adaptation of the famous board game Mysterium! | Read more »
Sonny (Games)
Sonny 1.0.4 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.4 (iTunes) Description: Reimagined for iOS, cult-hit RPG Sonny brings challenging turn-based combat that requires strategy and mastery of each new skill to... | Read more »

Price Scanner via MacPrices.net

CalcTape for macOS 1.2 Adding Machine App for...
schoettler Software has announced CalcTape 1.2, an update to their desktop calculator for macOS. When it comes to adding long columns of numbers, doing complex calculations or playing around with... Read more
New MacBooks And MacBook Pros WIth Kaby Lake...
Digitimes’ Joseph Tsai cites a Chinese-language Economic Daily News (EDN) report that unnamed market watchers are predicting Apple MacBook shipments to grow 10 percent in 2017, and projecting 15... Read more
New 2016 13-inch MacBook Pros on sale for up...
B&H Photo has the new 2016 13″ MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar MacBook Pro... Read more
New 15-inch Touch Bar MacBook Pros in stock a...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more
Opera Announces Neon Concept Browser For Mac
Opera is inviting users to get a glimpse of what Opera for computers could become with its Opera Neon browser concept. Each Opera Neon feature is described as “an alternate reality” for the Opera... Read more
Tellini Releases TabView 3.0 Missing Tool fo...
Tellini has announced the release of TabView 3.0. TabView has been the first macOS viewer for PowerTab tablatures. PowerTab is a well-known and widely adopted tablature editor for Windows systems and... Read more
13-inch 1.6GHz/128GB MacBook Air on sale for...
Overstock.com has the 1.6GHz/128GB 13″ MacBook Air on sale for $130 off MSRP including free shipping: - 13″ 1.6GHz/128GB MacBook Air (MMGF2LL/A): $869.99 $130 off MSRP Their price is the lowest... Read more
12-inch 32GB Space Gray iPad Pro on sale for...
B&H Photo has 12″ Space Gray 32GB WiFi Apple iPad Pros on sale for $55 off MSRP including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $744.44 $55 off... Read more
9-inch 32GB Space Gray iPad Pro on sale for $...
B&H Photo has the 9.7″ 32GB Space Gray Apple iPad Pro on sale for $549 for a limited time. Shipping is free, and B&H charges NY sales tax only. Read more
Apple iMacs on sale for up to $120 off MSRP,...
B&H Photo has 21″ and 27″ Apple iMacs on sale for up to $120 off MSRP, each including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2199 $100 off MSRP - 27″ 3.2GHz/1TB Fusion iMac... Read more

Jobs Board

*Apple* Retail - Multiple Positions (Multi-L...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* & PC Desktop Support Technician...
Apple & PC Desktop Support Technician job in Stamford, CT We have immediate job openings for several Desktop Support Technicians with one of our most well-known Read more
*Apple* macOS Systems Integration Administra...
…most exceptional support available in the industry. SCI is seeking an Junior Apple macOS systems integration administrator that will be responsible for providing Read more
*Apple* Premier Retailer - Service Technicia...
DescriptionSimply Mac is the largest premier retailer for Apple products and solutions. At Simply Mac we are all Apple , all the time. Same products. Same prices. Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.