TweetFollow Us on Twitter

Boxes
Volume Number:1
Issue Number:4
Column Tag:ASSEMBLY

The “Boxes” Program

By David E. Smith

Last month we covered menu bars and event loops, but we left out complete desk accesory support. Figure 1 above shows that we’ve completed desk accessory support in this month’s “Boxes” program. Full cut and paste is supported in the note pad, and we have a dialog box to tell about our program. This represents a complete Macintosh application shell program for any game type application that does not need text editing within the application window, but wants a standard user interface. Because of the length of the program, we will have to keep our comments brief and try to expand on them in coming issues.

Notice that the number of trap calls needed to fully support the standard applcation interface has increased dramatically since last month. Even a simple program, if it uses all the Mac features, will touch nearly every ROM manager. This month’s program adds 27 ROM calls to the listing we presented last month.

TEXT EDIT SUPPORT

The key to full desk accessory support is text editing using cut and paste. Once this is successfully implemented, the rest is easy. The TextEdit manager handles all text display and management including the actual cutting and pasting. We don’t have to do hardly anything except provide a text record for him. This is done with _TENew trap. We clear room for the returning handle to the text record, push two rectangles and call the trap to set-up a text edit record on the heap. The rectangles control the text destination on the screen and the clipping of that text to a display rectange. See the “Set Up Text Edit” section of our program to see how this is done.

As Bob Denny mentioned in his “C” column, the text edit manager uses our EDIT menu, so we have to set-up our EDIT menu items in the standard order. Then, the actual text editing in a desk accessory is done for us by the trap _SysEdit. We check this trap first if we find the mouse in the edit menu to allow cutting and pasting by a desk accessory. The only support we need is for each of our EDIT menu item routines to call the corresponding Text Edit manager call that does the cutting, pasting or clearing on our text. We push the handle to our text record obtained from _TENew, and let the ROM routines do it!

MODELESS DIALOG BOXES

Most applications have a “Modal” dialog box that serves as the “About” function to tell the user about the program. This is the first item in the Apple menu. We’ve implemented a “Modeless” dialog box here. What that means is the user is free to make use of other desk accessories or the application itself while the “About” box is being displayed. This opens up the possiblity of the user again selecting the “About” box, which would cause TWO dialog boxes to be displayed! Figure 2 shows how our program allows any number of dialog boxes to be created by the user. This is interesting because it lets us slide into multiple window support without really doing multiple windows. Each dialog box is a small window set-up on the heap. The Dialog manager takes care of most of the upkeep for this mini-window. Notice our dialog box also has two icons in it as well as some static text. The resource file shows how the icons and static text are set-up in assembler format so they will be display properly in the “About” box.

Dialog Box Event Support

We have expanded our event loop from last month to include support for the dialog box. Supposedly the dialog traps check for a dialog box event (_IsDialogevent), and process such an event for us (_Dialogselect), allowing us to be unconcerned about events affecting the “About” window such as dragging or closing. In actuallity, the dialog routine for executing dialog events, _Dialogselect is quite limited and checks must be made in the application event loop to see if some action is required for a dialog box. Notice in our event loop that we check for a dialog event right after calling _GetNextEvent and before branching to our standard event routines. Dragging the dialog window or clicking the go away box in the dialog window are not indicated by the _Dialogselect routine. Apparently only a click on a control within the dialog box is returned as a “true” result.

OUR EVENT LOOP

This month our event loop is expanded to handle activate and deactivate events. We’ve added an OPEN and CLOSE feature to our application FILE menu to allow the user to selectively open and close the main window for our program. When the window is open and active, we disable the edit menu items since our application does not support these. We must then enable them again if our window is deactivated so any desk accessories can use them. This is done in the activate and deactivate event routines. The message and modify sections of our event record tell us if the activate was for our window, and whether we should activate or deactivate.

UPDATE EVENT

The hardest part about our program was getting the update event to work properly. If our window has been dragged, we will get an update event to re-draw it. I was having trouble because when I called QDSTUFF to re-draw the window, everything was going into the dialog box! This was solved by re-setting the current graf port to our window so that an update calling to QDSTUFF would be sure to draw in our window and not the dialog box, if it was still hanging around. An update event for a dialog window is handled by the dialog manager. However a drag event could be a dialog window. Since our program allows multiple dialog windows, if any of them are dragged, we re-store the window location so any new dialog windows don‘t run off the screen. Until a window is dragged, multiple dialog windows appear down and right of the previous one as shown in figure 2. The “About” routine takes care of this when we create a new dialog box by incrementing the window location box.

GO AWAY BOX

Another tricky part to dialog boxes was when the “go away” box was clicked. It seems that _CloseDialog will hang the system if used for modeless dialog boxes where more than one such box is allocated. So _CloseWindow should be used instead so that the support structure for the remaining dialog windows is not deleted. In our “HIDE” routine, if the “go away” box is clicked, we check if it’s a dialog window or our application window. If it’s the dialog window, we update the window location by backing it up so that the next dialog window will continue to appear down and to the right of the previous one. However, if we close all of them back to the origonal starting location for our chain of dialog windows, we re-set everything so the dialog windows do not appear to be going backwards! Many of these little concerns will also affect using multiple windows and so are important to take care of here where things are still easy.

DESK ACCESSORY SUPPORT

Once the text edit record is set up and the EDIT menu items in place, little is needed to support desk accessories. We find the desk accessory with _GetItem, and then push the accessory’s name and call _OpenDeskAcc to do it. We also check _SysEdit in our EDIT menu item routine as mentioned to allow any open desk accessory to do text editing.

The “About” function reads the dialog itme list from the resource file and opens a dialog window on the heap in much the same manner as _NewWindow opens a window on the heap. The “DITL” resource type holds the item list of those controls, text, icons or whatever that will appear in the dialog box. In our case, we have only static text and two icons in our “DITL” resource. The first icon is a system icon that displays a note. The second is one of ours that displays the logo for this program. Note that for this to work, the “ICON” resource must be used, not the icon list resource, as I found out the hard way. See the resource file for the assembly format of the “DITL” items.

THE APPLICATION PROGRAM

Our application itself is very simple. It is simply a static window display of a bunch of boxes created with the QDSTUFF subroutine, called whenever an update event for our window occours. To make it a little more interesting, the last box drawn is also filled with a pattern. Patterns are simply 8 bytes of hex information repeated in the rectangle.A count variable keeps track of the number of boxes drawn and a loop calls _FrameRect until all the boxes are displayed. Don’t forget to re-set the count for the next update event! Figure 3 shows the application program output and our OPEN/CLOSE flip-flop menu items. These serve to hide or display our application window in a fashon similar to the go away box. Don’t forget, if the window goes away, you have to have some method of opening it again! Hence the OPEN and CLOSE file menu items.

Finally, in figure 4, is our linker file, pretty much the same format as last month. Remember that the signiture byte, “GLAD” appears both in the resource file’s bundle and identification resources as well as in the linker file. Next month we use this same shell program, but we concentrate on the application, getting some dynamic animation in our application window. Stay tuned!

; EXAMPLE ASSEMBLY PROGRAM 
; Boxes  
; VERSION 23 JAN 85
; (C)  MacTutor March 1985 
;  by David E. Smith

;    Macro subset for Toolbox stuff

MACRO _InitGraf =  DC.W $A86E|
MACRO _InitWind =DC.W $A912| 
MACRO _NewWindow = DC.W $A913|
MACRO _setport = DC.W $A873|
MACRO _InitFont =DC.W $A8FE|
MACRO _InitMenu =DC.W $A930|
MACRO _InitDialog =DC.W $A97B|
MACRO _TEInit   =DC.W $A9CC|
MACRO _Initpack =       DC.W $A9E5|
MACRO _FlushEvents = DC.W $A032|
MACRO _InitCursor =DC.W $A850|
MACRO _GetNextEvent =   DC.W $A970|
MACRO _FrameRect = DC.W $A8A1|
MACRO _TextFont =  DC.W $A887|
MACRO _TextFace =  DC.W $A888|
MACRO _TextSize =  DC.W $A88A|
MACRO _MoveTo =  DC.W $A893|
MACRO _DrawString =  DC.W $A884|
MACRO _PenSize = DC.W $A89B|
MACRO _EraseRect = DC.W $A8A3|
MACRO _GetRMenu =DC.W $A9BF|
MACRO _InsertMenu =DC.W $A935|
MACRO _DrawMenuBar = DC.W $A937|
MACRO _Debugger =  DC.W $A9FF|
MACRO _NewMenu = DC.W $A931|
MACRO _AppendMenu =DC.W $A933|
MACRO _AddResMenu =DC.W $A94D|
MACRO _FindWindow =DC.W $A92C|
MACRO _DragWindow =DC.W $A925|
MACRO _SystemTask =DC.W $A9B4|
MACRO _MenuSelect =DC.W $A93D|
MACRO _HiLiteMenu =DC.W $A938|
MACRO _EnableItem =DC.W $A939|
MACRO _DisableItem = DC.W $A93A|
MACRO _BeginUpdate = DC.W $A922|
MACRO _EndUpdate = DC.W $A923|
MACRO _SystemClick = DC.W $A9B3|
MACRO _FrontWindow = DC.W $A924|
MACRO _SelectWindow =   DC.W $A91F|
MACRO _GetItem = DC.W $A946|
MACRO _OpenDeskAcc = DC.W $A9B6|
MACRO _TrackGoAway = DC.W $A91E|
MACRO _HideWindow =  DC.W $A916|
MACRO _PenNormal = DC.W $A89E|
MACRO _ShowWindow =  DC.W $A915|
MACRO _TENew =   DC.W $A9D2|
MACRO _TECut =   DC.W $A9D6|
MACRO _TECopy =  DC.W $A9D5|
MACRO _TEPaste = DC.W $A9DB|
MACRO _TEDelete =DC.W $A9D7|
MACRO _TEActivate =DC.W $A9D8|
MACRO _TEDeactivate =DC.W $A9D9|
MACRO _SysEdit = DC.W $A9C2|
MACRO _NewDialog = DC.W $A97D|
MACRO _GetResource = DC.W $A9A0|
MACRO _IsDialogevent =  DC.W $A97F|
MACRO _Dialogselect =   DC.W $A980|
MACRO _CloseWindow = DC.W $A92D|
MACRO _FillRect =DC.W $A8A5|

;      DECLARE LABELS EXTERNAL

XDEF  START           ; required for linker 
 
;     LOCAL EQUATES
 
MouseDown equ  1
MaxEvents equ  12
AllEvents equ  $0000FFFF
TEXTRHANDLE equ  A2

;     MAIN PROGRAM SEGMENT

 DC.W ‘DAVE’  ;find start of program
 
; -- SAVE THE WORLD ------------
 
START:   MOVEM.L D0-D7/A0-A6, -(SP)
  LEA SAVEREGS,A0
  MOVE.LA6,(A0)    ; local var
  MOVE.LA7,4(A0) ; stack ptr
 
; --INITIALIZE ALL MANAGERS------

; SET UP QUICKDRAW GLOBALS
 
PEA -4(A5);push qd global ptr
_InitGraf        ;init quickdraw global 
   
;-- SET UP REMAINING MANAGERS  --

_InitFont      ; init font manager
_InitWind ; init window manager
_InitMenu   ; init menu manager
 
CLR.L -(SP) ; kill the restart 
_InitDialog ; init dialog manager
 
_TEInit ; init text edit (ROM) 
 
MOVE.W  #2,-(SP)   ;  set-up
_Initpack          ; init package mgr

MOVE.L  #AllEvents,D0     ;all events
_FlushEvents      ;flushed
 
_InitCursor   ; make cursor the arrow


;SET UP MENU BAR WITH POP-UP MENUS

CLR.L -(SP)        ;returned menu handle
MOVE.W #1,-(SP)    ;push menu ID 1 Apple
_GetRMenu        ;get menu from resource
LEA APPLEMENU,A0 ;copy apple menu handle 
MOVE.L (SP),(A0)   ;to local data block
MOVE.L (SP), -(SP) ;push handle for desk AC 
    ;menu handle still on stack
CLR.W -(SP) ;push 0 for append
_InsertMenu ;add menu item for About...

MOVE.L #’DRVR’, -(SP)  ;load DRVR type res
_AddResMenu ;add desk acc
 ;from system file.
CLR.L -(SP) ;return menu handle
MOVE.W #2,-(SP)  ;push menu ID 2 File
_GetRMenu        ;get menu from resource                 
LEA FILEMENU,A0      ; copy FILE menu handle 
MOVE.L (SP),(A0)    ; to local data block
         ;leave handle on stack
CLR.W -(SP) ;append to menu
_InsertMenu ;the File stuff

CLR.L -(SP)        ;return menu handle
MOVE.W #3,-(SP)      ;push menu ID 3 Edit
_GetRMenu        ;get menu from resource
          ;leave handle on stack
LEA EDITMENU,A0      ; copy EDIT menu handle 
MOVE.L (SP),(A0)     ; to local data block               
CLR.W -(SP) ;append to menu
_InsertMenu ;the File stuff

_DrawMenuBar;our menu bar!

;-- SET UP NEW HEAP WINDOW ----
 
CLR.L -(SP)          ;return window ptr
CLR.L -(SP)      ;window record ptr(HEAP)
PEA WBOUNDS      ;window rectangle size
PEA WINDTITLE      ; window title
MOVE.W #$100,-(SP)   ; true = visible 
MOVE.W #0,-(SP)          ; doc type window
MOVE.L #-1,-(SP)         ; window in front
MOVE.W #$100,-(SP)    ; true=closebox
MOVE.L #0, -(SP)       ; reference value 
_NewWindow               ; make new window
 
; --  ACTIVATE THIS NEW WINDOW ----

LEA WPOINTER,A0     ; copy our window ptr 
MOVE.L (SP),(A0)     ; to stacksave
        ; ptr still on stack.
_setport             ; set to current window

; -- SET UP TEXT EDIT ABILITY ----

CLR.L -(SP)          ;text handle returned
PEADestRect    ;destination for text
PEAViewRect          ;viewing of text
_TENew          ;new text record on heap
MOVE.L  (SP)+,TEXTRHANDLE     ;pop handle

; ---- INITALIZE VARIABLES --------

JSRINITVAR        ;INITIALIZE DS STORAGE

;  -------- EVENT LOOP ------------
 
GetEvent:

_SystemTask ;check out desk acc

CLR-(SP);returned event 
MOVE #AllEvents,-(SP)     ;mask all events
PEAEventRecord ; event record block
_GetNextEvent    ;go check the mouse 
MOVE  (SP)+,D0   ;get event result 
CMP#0,D0;if 0 then no event 
BEQGetEvent         ;loop until it happens

;  check for dialog event

CLR-(SP);result
PEAEventRecord ;push event
_IsDialogevent       ;was it a dialog event?
MOVE  (SP)+,D0   ;get result
CMP#0,D0;is it false?
BEQProcessevent  ;yes, not dialog
        ;no, was dialog event
 
CLR-(SP);result
PEAEventRecord ;event
PEAABOUTHANDLE ;dialog handle
PEAITEMHIT;item hit
_Dialogselect
MOVE  (SP)+,D0   ;get result
CMP#0,D0;is it false?
BEQGetEvent ;yes

; note: always false since no
; controls enabled. closebox is
; returned false.
_Debugger ;do we ever get here?
JMP GetEvent

Processevent:

 ; JUMP TABLE OF EVENT PROCESSING
 
CLR.L D0
MOVE  What,D0      ;what to do! (event #)
CMP#MaxEvents,D0 ;event no. >11?
BGEGetEvent ;yes so ignore it
ADDD0,D0;multiply by 2
MOVE  EventTable(D0),D0
JMPEventTable(D0);execute event

EventTable:

 DC.W GetEvent-EventTable  ;null event #0
 DC.W ButtonDown-EventTable ;mouse down#1 
 DC.W GetEvent-EventTable    ;mouse up #2
 DC.W GetEvent-EventTable    ;key down #3
 DC.W GetEvent-EventTable      ;key up #4
 DC.W GetEvent-EventTable    ;auto key #5
 DC.W Update-EventTable  ;update event #6
 DC.W GetEvent-EventTable  ;Disk Event #7
 DC.W Activate-EventTable    ;activate #8
 DC.W GetEvent-EventTable       ;Abort #9
 DC.W GetEvent-EventTable    ;Network #10
 DC.W GetEvent-EventTable ;I/O Driver #11
 DC.W GetEvent-EventTable  ;Appl. event 1 
 DC.W GetEvent-EventTable  ;Appl. event 2 
 DC.W GetEvent-EventTable  ;Appl. event 3 
 DC.W GetEvent-EventTable  ;Appl. event 4 
 
; note that linker error may result if 
; the table entry is >128 

; --  EVENT PROCESSING ROUTINES --

Activate:

; window needs attention

MOVE.L  WPOINTER,A0;copy window ptr.
CMP.L Message,A0 ;Event our window?
BNEGetEvent ;no

MOVE.W  Modify,D0;yes, check flags 
BTST  #0,D0 ;check activate bit
BEQDeactivate    ;unactivate window

; activate our window

MOVE.L  TEXTRHANDLE,-(SP)
_TEActivate ;activate text edit

MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #1,-(SP) ;push menu item 1
_DisableItem;disable undo
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #3,-(SP) ;push menu item 
_DisableItem;disable cut
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #4,-(SP) ;push menu item 
_DisableItem;disable copy
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #5,-(SP) ;push menu item 
_DisableItem;disable paste
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #6,-(SP) ;push menu item 
_DisableItem;disable clear

MOVE.L  WPOINTER,-(SP)  ;push window ptr
_SetPort;make our port active
JMPGetEvent

Deactivate:

MOVE.L TEXTRHANDLE,-(SP)
_TEDeactivate  ;turn off text edit
              ;let desk acc. use it
MOVE.L  EDITMENU,-(SP)
MOVE.W  #1,-(SP)
_EnableItem ;enable undo 
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #3,-(SP) ;push menu item 
_EnableItem ;able cut
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #4,-(SP) ;push menu item 
_EnableItem ;enable copy
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #5,-(SP) ;push menu item 
_EnableItem ;enable paste
MOVE.L  EDITMENU,-(SP)  ;push menu handle
MOVE.W  #6,-(SP) ;push menu item 
_EnableItem ;enable clear
JMPGetEvent

Update:

; window needs refreshing

MOVE.L  WPOINTER,-(SP)  ;push window ptr
_BeginUpdate
MOVE.L  WPOINTER,-(SP)  ; our window ptr.
_SetPort          ;restore our port
         ;least an update draw in
         ;the wrong window.
BSRQDSTUFF;re-draw everything
MOVE.L  WPOINTER,-(SP)
_EndUpdate
JMP   GetEvent


ButtonDown:

CLR-(SP)         ;result of findwindow
MOVE.L  Point, -(SP) ;push mouse coord.
PEAWWindow     ;push holder window handle
_FindWindow       ;where was mouse click?
CLR.L D0
MOVE (SP)+,D0    ;pop region number
ADDD0,D0;multiply by 2
MOVE  WindowTable(D0),D0
JMPWindowTable(D0) ;do mouse down event

WindowTable:   ;table of button down events
 
 DC.W GetEvent-WindowTable ;in desktop
 DC.W Menubar-WindowTable ;in menu bar 
 DC.W System-WindowTable  ;in system window
 DC.W Content-WindowTable ;in content region 
 DC.W Drag-WindowTable  ;in drag region
 DC.W GetEvent-WindowTable ;in grow region (ignored)
 DC.W Hide-WindowTable  ;in go-away region   
System:

; Button pressed in a system window
; _SystemClick calls the desk acc.

PEAEventRecord      ;push event record
MOVE.L  WWindow,-(SP)   ;push find window 
_SystemClick;let system do desk 
JMPGetEvent

Content:

MOVE.L  WWindow,-(SP)   ;activate window
_SelectWindow    ;make it front 
JMPGetEvent

Drag:             ;mouse button in drag
                 ;could be dialog window
MOVE.L  WWindow,-(SP);push find window pt
MOVE.L  Point, -(SP) ;push mouse coord
PEADRAGWINDOW  ;window boundries 
_DragWindow ;move window

MOVE.L  WWindow,A0 ;find window ptr.
CMP.L ABOUTHANDLE,A0 ;is it about window?
BNE  ENDDRAG;no, exit
JSRINITVAR;yes, reset about ;window location

ENDDRAG:
JMPGetEvent        ;return to event loop

Hide:            ;close box
                 ;could be dialog window
CLR.W -(SP)        ;boolean result
MOVE.L  WWindow,-(SP)   ;push find window 
MOVE.L  Point, -(SP) ;push mouse loc
_TrackGoAway
MOVE.W (SP)+,D0  ;get result
BEQGetEvent       ;false result

MOVE.L  WWindow,A0 ;find window ptr.
CMP.L WPOINTER,A0;is it our window?
BEQHideours      ;yes, hide ours

MOVE.L  WWindow, -(SP)  ;must be about 
_CloseWindow;close it

;note: Don’t use closedialog for modeless
;dialog windows if more than one present.

; update about window location

LEADBOUNDS,A0  ;set-up our globals
LEASavetop,A1

MOVE.W  0(A0),D0 ;TOP VALUE
MOVE.W 0(A1),D1  ;origonal value
CMP.W D1,D0 ;past init value?
BLEGetEvent             ;skip update
 
ADDI  #-20,D0    ;decrement top
MOVE.W  D0,(A0)

MOVE.W  2(A0),D0 ;LEFT VALUE
ADDI  #-20,D0
MOVE.W  D0,2(A0)

MOVE.W  4(A0),D0 ;BOTTOM VALUE
ADDI  #-20,D0
MOVE.W  D0,4(A0)

MOVE.W  6(A0),D0 ;RIGHT VALUE
ADDI  #-20,D0
MOVE.W  D0,6(A0)

JMPGetEvent

Hideours:

MOVE.L  WPOINTER, -(SP) ;our window ptr
_HideWindow ;hide window
MOVE.L  FILEMENU,-(SP)  ;menu handle
MOVE.W  #1,-(SP) ;open item
_EnableItem      ;enable open for file menu
MOVE.L  FILEMENU,-(SP);push menu handle
MOVE.W  #2,-(SP) ;close
_DisableItem;disable it
JMP GetEvent

Menubar:

CLR.L -(SP) ;returned menu choice
MOVE.L  Point,-(SP);mouse position
_MenuSelect ;Find menu selected
MOVE  (SP)+,D5 ;pop menu ID to D5
MOVE  (SP)+,D6 ;pop menu item ID 
CLR-(SP);select all menus
_HiLiteMenu ;unhilite them all

CMP#1, D5 ;apple menu?
BEQInapplemenu 
CMP#2, D5 ;file menu?
BEQInfilemenu
CMP#3,D5;edit menu?
BEQIneditmenu
BRAGetEvent         ;no place else

Inapplemenu:

CMP#1, D6 ;is it about...?
BEQAbout

; must be a desk accessory

MOVE.L  APPLEMENU, -(SP)  ;push apple menu 
MOVE.W  D6,-(SP) ;push item number
PEADeskName     ;push holder for desk name
_GetItem;find desk acc. name

CLR-(SP);result
PEADeskName           ;push desk acc. name
_OpenDeskAcc;do it
MOVE  (SP)+,D0            ;pop result
MOVE.L  WPOINTER,-(SP)  ;push window ptr.
_SetPort           ;restore our port
JMP   GetEvent

About:

CLR.L -(SP) ;return handle
MOVE.L  #’DITL’,-(SP);item list
MOVE.W  #256,-(SP) ;ID
_GetResource   ;load item list resource
LEA DIALOGITEMS,A0 ;handle storage
MOVE.L  (SP)+,(A0) ;save handle

; update window location

LEADBOUNDS,A0  ;set-up our globals

MOVE.W  0(A0),D0 ;TOP VALUE
ADDI  #20,D0
MOVE.W  D0,(A0)

MOVE.W  2(A0),D0 ;LEFT VALUE
ADDI  #20,D0
MOVE.W  D0,2(A0)

MOVE.W  4(A0),D0 ;BOTTOM VALUE
ADDI  #20,D0
MOVE.W  D0,4(A0)

MOVE.W  6(A0),D0 ;RIGHT VALUE
ADDI  #20,D0
MOVE.W  D0,6(A0)

;SET UP MODELESS DIALOG ON HEAP 
 
CLR.L -(SP)          ;return window ptr
CLR.L -(SP)      ;window record ptr. (HEAP)
PEA DBOUNDS      ;window rectangle size
PEA DWINDTITLE   ; window title
MOVE.W #$100,-(SP)    ; true = visible 
MOVE.W #16,-(SP)     ; round doc type window
MOVE.L #-1,-(SP)          ; window in front
MOVE.W #$100,-(SP)    ; true=closebox
MOVE.L #0, -(SP)         ; reference value
MOVE.L DIALOGITEMS,-(SP) ;items list handle
_NewDialog                ; make new window

LEAABOUTHANDLE,A0    ;dialog window handle
MOVE.L  (SP),(A0); save handle
_SetPort           ;make dialog active

MOVE.L  TEXTRHANDLE,-(SP) ;deactivate text 
_TEDeactivate
JMP GetEvent

Infilemenu:

CMP#1, D6 ;Open?
BEQOpen
CMP#2, D6 ;Close?
BEQClose
CMP#3,D6;quit?
BNEGetEvent             ;no, try again
BRAExit ;yes, exit

Open:

; window is hiding...open it again

MOVE.L  WPOINTER, -(SP)  ;our window ptr
_ShowWindow
MOVE.L  FILEMENU,-(SP)      ;menu handle
MOVE.W  #2,-(SP) ;open item
_EnableItem     ;enable open for file menu
MOVE.L  FILEMENU,-(SP)      ;push  handle
MOVE.W  #1,-(SP) ;open
_DisableItem;disable it
JMP GetEvent

Close:

; perform go away function

MOVE.L  WPOINTER, -(SP)  ;our window ptr
_HideWindow ;hide window
MOVE.L  FILEMENU,-(SP)   ;menu handle
MOVE.W  #1,-(SP) ;open item
_EnableItem ;enable open 
MOVE.L  FILEMENU,-(SP)   ;push  handle
MOVE.W  #2,-(SP) ;close
_DisableItem;disable it
JMP GetEvent

Ineditmenu:

; check if system edit in desk acc.

CLR   -(SP) ;result
MOVE.W  D6,-(SP) ;push menu item
SUBQ  #1, (SP)       ;system edit offset
_SysEdit       ;do editing
MOVE.B  (SP)+,D0   ;pop result
BNEGetEvent      ;system edit did it
            ;desk acc. not active
 
CLR.L -(SP)
_FrontWindow;whoose up?
MOVE.L (SP)+,A0
CMP.L ABOUTHANDLE,A0 ;is this an about ?
BEQGetEvent             ;yes, ignore it

CMP#3,D6;our cut?
BEQCUT
CMP#4,D6;our copy?
BEQCOPY
CMP#5,D6;our paste?
BEQPASTE
CMP#6,D6;our clear?
BEQCLEAR

JMPGetEvent          ;nothing left

; - text editing only for desk acc. -

CUT:
MOVE.L  TEXTRHANDLE,-(SP)   ;text handle
_TECut
JMP   GetEvent

COPY:
MOVE.L  TEXTRHANDLE,-(SP)   ;text handle
_TECopy
JMPGetEvent

PASTE:
MOVE.L  TEXTRHANDLE,-(SP)   ;text handle
_TEPaste
JMPGetEvent

CLEAR:
MOVE.L  TEXTRHANDLE,-(SP)   ;text handle
_TEDelete
JMPGetEvent

Exit:

JMPTofinder              ;return to finder

; ---------- END OF MAIN ------------

; -------- INITVAR SUBROUTINE ------
INITVAR:

LEADBOUNDS(A5),A0;set-up dialog windo
                 ;box frame size.
MOVE.W #70,   (A0) ;TOP
MOVE.W #70,  2(A0) ;LEFT
MOVE.W #220, 4(A0) ;BOTTOM
MOVE.W #370, 6(A0) ;RIGHT

LEA Savetop(A5),A1
MOVE.W (A0), (A1);GET TOP

LEACOUNT(A5),A1
MOVE.W  #24,(A1)
RTS
; ---- QDSTUFF SUBROUTINE ----------
QDSTUFF:

; This subroutine is a static
; window display of boxes 

_PenNormal

LEAtop(A5),A0    ;set-up appl. window
                 ;box frame size.
MOVE.W #10,   (A0) ;TOP
MOVE.W #30,  2(A0) ;LEFT
MOVE.W #260, 4(A0) ;BOTTOM
MOVE.W #450, 6(A0) ;RIGHT

PEA top(A5)               ;frame rectangle
_FrameRect;draw rectangle

BOXLOOP:

LEAtop(A5),A0           ; do a bunch boxes
LEACOUNT(A5),A4
ADDQ  #5,(A0)
ADDQ  #5,2(A0)
SUBQ  #5,4(A0)
SUBQ  #5,6(A0)
PEAtop(A5)
_FrameRect
SUBQ  #1,(A4)
BNEBOXLOOP;loop til all drawn

PEAtop(A5)
PEAboxpattern
_FillRect ;fill last box

LEACOUNT(A5),A1
MOVE.W  #24,(A1) ;reset count!
RTS

; -- RESTORE THE WORLD --------

Tofinder:  LEA  SAVEREGS,A0       ; get ‘em back
    MOVE.L   (A0),A6         ; local var
    MOVE.L 4(A0),A7;restore stack 
    MOVEM.L (SP)+,D0-D7/A0-A6 
 
; ---- RETURN TO FINDER --------

        RTS   ; return to finder

; ----LOCAL DATA AREA ----------

APPLEMENU:  DC.L   0  ;apple menu handle
FILEMENU:   DC.L   0  ;file menu handle
EDITMENU:   DC.L   0  ;edit menu handle
DeskName:   DCB.W 16,0 ;Desk accesorys name
SAVEREGS:   DCB.L   2,0    ;set  save area
boxpattern: DC.W   $1234,$ABCD,$DCBA,$4321
 
;  ------  our window definitions ------

WPOINTER: DC.L     0    ;store window pt

WBOUNDS:DC.W   40  ;TOP -windo rect
 DC.W    2;LEFT
 DC.W    335;BOTTOM
 DC.W    508;RIGHT
 
ViewRect: DC.W   50  ;text edit view rect
 DC.W    4
 DC.W  245
 DC.W  405
 
DestRect: DC.W  50 ;text edit dest rect
 DC.W  4
 DC.W  245
 DC.W  405
 
WINDTITLE:     DC.B    5         ; title length
                 DC.B    ‘Boxes’,0
      
DRAGWINDOW: DC.W  30        ;rectangle
 DC.W   1 ;for dragging
 DC.W  350
 DC.W  510

;  ----  our dialog window definitions --

ABOUTHANDLE:DC.L    0  ;handle holder 
 
DWINDTITLE:    DC.B    30  ; title length
 DC.B    ‘All about the Boxes program...’,0
      
ITEMHIT:    DC.W    0   ;ITEM HIT HOLDER

DIALOGITEMS:DC.L    0    ;handle holder for                         
   ; resource DITL
; ------------------------------------

EventRecord:
 
 What:  DC.W    0;what event number
 Message: DC.L    0;ptr. to msg
 When:  DC.L    0;Time event was posted
 Point:   DC.L    0;mouse coordinates
 Modify:  DC.W    0;state of keys & button
 
WWindow:DC.L    0    ;Find windos result

 
 
; ----   APPLICATION GLOBALS  ------
 
top:    DS.W1  ;frame size storage
left:   DS.W 1       ;for QDSTUFF rect
bottom: DS.W1
right:  DS.W1
 
DBOUNDS:DS.W    1  ;TOP-windo size rect
 DS.W    1;LEFT
 DS.W    1;BOTTOM
 DS.W    1;RIGHT
 
Savetop:DS.W   1 ;save top value

COUNT:  DS.W    1   ;BOX COUNT

; --   END OF PROGRAM --------


; Boxes_rscs.asm
; resource file for the Boxes
; (C) MacTutor March 1985
; created using the assembler
; signiture is creator tag 
;
RESOURCE ‘GLAD’ 0 ‘IDENTIFICATION’

 DC.B 22, ‘BOXES -- JAN. 23 1984 ‘
 
.ALIGN 2
RESOURCE ‘BNDL’ 128 ‘BUNDLE’

 DC.L ‘GLAD’      ;NAME OF SIGNATURE
 DC.W 0,1      ;DATA (DOESN’T CHANGE)
 DC.L ‘ICN#’       ;ICON MAPPINGS
 DC.W 0          ;NUMBER OF MAPPINGS-1
 DC.W 0,128          ;MAP 0 TO ICON 128
    
 DC.L ‘FREF’        ;FREF MAPPINGS
 DC.W 0 ;NUMBER OF MAPPINGS-1
 DC.W 0,128          ;MAP 0 TO FREF 128

RESOURCE ‘FREF’ 128 ‘FREF 1’
 
 DC.B ‘APPL’, 0, 0, 0
 
.ALIGN 2
RESOURCE ‘ICN#’ 128 ‘MY ICON’

; FIRST APPLICATION ICON BIT MAP

INCLUDE Boxes.icon.asm

; MENU BAR RESOURCES

.ALIGN 2
RESOURCE ‘MENU’ 1 ‘apple menu’

 DC.W 1 ;MENU  ID
 DC.W 0 ;WIDTH HOLDER
 DC.W 0 ;HEIGHT HOLDER
 DC.L 0        ;STD. MENU PROC HOLDER
 DC.L $1FF  ;ENABLE ALL ITEMS
 DC.B 1 ; TITLE LENGTH
 DC.B 20; APPLE SYMBOL
 
 DC.B 21;MENU ITEM LENGTH
 DC.B  ‘ABOUT THIS PROGRAM...’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 0 ; END OF MENU ITEMS
 
.ALIGN 2
RESOURCE ‘MENU’ 2 ‘file menu’

 DC.W 2 ;MENU  ID
 DC.W 0 ;WIDTH HOLDER
 DC.W 0 ;HEIGHT HOLDER
 DC.L 0 ;RESOURCE HOLDER
 DC.L $D  ;ENABLE ALL ITEMS except 1
 DC.B 4 ; TITLE LENGTH
 DC.B ‘File’; file menu 
 
 DC.B 4 ;MENU ITEM LENGTH
 DC.B  ‘Open’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 5 ;MENU ITEM LENGTH
 DC.B  ‘Close’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 4 ;MENU ITEM LENGTH
 DC.B  ‘Quit’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 0 ; END OF MENU ITEMS
 
.ALIGN 2
RESOURCE ‘MENU’ 3 ‘edit menu’

 DC.W 3 ;MENU  ID
 DC.W 0 ;WIDTH HOLDER
 DC.W 0 ;HEIGHT HOLDER
 DC.L 0 ;RESOURCE ID OF PROC
 DC.L $3B ;ENABLE ALL ITEMS except 2 & 6
 DC.B 4 ; TITLE LENGTH
 DC.B ‘Edit’; edit menu 
 
 DC.B 4 ;MENU ITEM LENGTH
 DC.B  ‘Undo’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0   ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 9 ;MENU ITEM LENGTH
 DC.B  ‘--------’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 3 ;MENU ITEM LENGTH
 DC.B  ‘Cut’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 4 ;MENU ITEM LENGTH
 DC.B  ‘Copy’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 5 ;MENU ITEM LENGTH
 DC.B  ‘Paste’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 5 ;MENU ITEM LENGTH
 DC.B  ‘Clear’
 DC.B 0 ; NO ICON
 DC.B 0 ; NO KEYBOARD EQUIVALENT
 DC.B 0 ; NO MARKING CHARACTER
 DC.B 0 ; STYLE OF ITEM’S TEXT
 
 DC.B 0 ; END OF MENU ITEMS

.ALIGN 2
RESOURCE ‘ICON’ 256 ‘DIALOG ICON’

; Dialog box icon bit map

INCLUDE Boxes.icon.asm

; ----  DIALOG ITEMS LIST ----------
;
; text in dialog items must be of even
; length. Item types are as follows:
;
;  control item = control item + 4
;button control =  0
;check control =   1
;radio button control = 2
;resource control = 3
;
;static text = 8
;edit text = 16
;icon item = 32
;quickdraw pict item = 64
;user item = 0
;
;disable item = item type + 128
;
;    resource ID’s for system icons
;
;stop icon = 0
;note icon = 1
;caution icon = 2
 
.ALIGN 2
RESOURCE ‘DITL’ 256 ‘Boxes DIALOG’

 DC.W 4 ;number of items -1
 
 DC.L 0 ;handle holder item 1
 DC.W 10;rectangle-top
 DC.W 20;left
 DC.W 25;bottom
 DC.W 375 ;right
 DC.B 128+8;TYPE-STATIC TEXT + disable
 DC.B 26;TEXT LENGTH
 DC.B ‘This program is a complete’
 
 DC.L 0 ;handle holder item 2
 DC.W 30;rectangle-top
 DC.W 20;left
 DC.W 45;bottom
 DC.W 375 ;right
 DC.B 128+8;TYPE-STATIC TEXT + disable
 DC.B 30;TEXT LENGTH
 DC.B ‘application shell in assembly.’
 
 DC.L 0 ;handle holder item 3
 DC.W 50;rectangle-top
 DC.W 200 ;left
 DC.W  82 ;bottom
 DC.W 232 ;right
 DC.B 128+32;TYPE- icon + disable
 DC.B 2 ;length of next data
 DC.W 256 ;icon resource ID
 
 DC.L 0 ;handle holder item 4
 DC.W 50;rectangle-top
 DC.W 20;left
 DC.W 90;bottom
 DC.W 60;right
 DC.B 128+32;TYPE- icon + disable
 DC.B 2 ;length of next data
 DC.W 1 ;icon resource ID
 
 DC.L 0 ;handle holder item 5
 DC.W 110 ;rectangle-top
 DC.W 20;left
 DC.W 125 ;bottom
 DC.W 375 ;right
 DC.B 128+8;TYPE-STATIC TEXT + disable
 DC.B 32;TEXT LENGTH
 DC.B ‘by David E. Smith   23 JAN 1985 ‘

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Civilization VI 1.0.6 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
djay Pro 2.0.1 - Transform your Mac into...
djay Pro provides a complete toolkit for performing DJs. Its unique modern interface is built around a sophisticated integration with iTunes and Spotify, giving you instant access to millions of... Read more
Microsoft OneNote 15.41 - Free digital n...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more
TechTool Pro 9.6 - Hard drive and system...
TechTool Pro has long been one of the foremost utilities for keeping your Mac running smoothly and efficiently. With the release of version 9, it has become more proficient than ever. TechTool... Read more
Apple iOS 11.2.1 - The latest version of...
iOS 11 sets a new standard for what is already the world’s most advanced mobile operating system. It makes iPhone better than before. It makes iPad more capable than ever. And now it opens up both to... Read more
Things 3.3 - Elegant personal task manag...
Things is a task management solution that helps to organize your tasks in an elegant and intuitive way. Things combines powerful features with simplicity through the use of tags and its intelligent... Read more
RapidWeaver 7.5.5 - Create template-base...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
Adobe Animate CC 2018 18.0.1.115 - Anima...
Animate CC 2018 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Flash Professional customer). Animate CC 2018 (was Flash CC) lets you... Read more
Postbox 5.0.22 - Powerful and flexible e...
Postbox is a new email application that helps you organize your work life and get stuff done. It has all the elegance and simplicity of Apple Mail, but with more power and flexibility to manage even... Read more
Tunnelblick 3.7.4b - GUI for OpenVPN.
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more

Latest Forum Discussions

See All

Rules of Survival guide - how to boost y...
It's not easy surviving in the "every-man-for-himself" world of Rules of Survival. You'll be facing off against many other players who might be more skilled than you, or are luckier than you. There are a lot of factors weighing against you. With... | Read more »
FEZ Pocket Edition (Games)
FEZ Pocket Edition 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
Amazing Katamari Damacy guide - beginner...
Amazing Katamari Damacy brings the bizarro world of the original games to mobile and shifts them into an endless format that's just as addictive as the PlayStation entries. Your goal is still to roll as much random stuff as you possibly can, though... | Read more »
Portal Knights guide - crafting tips and...
In Portal Knights, you're only as strong as the items you have at your disposal. This sandbox adventure is all about crafting and building up the next big thing. Whether you're an avid explorer or collector, crafting will likely play a large part... | Read more »
The best deals on the App Store this wee...
A new week means new discounts on the App Store. This week's deals run the gamut of action-adventure titles, puzzle games, and one of the best narrative adventure series out there. If you're looking to fill out your mobile gaming library on a... | Read more »
What you need to know about Animal Cross...
We hope you've been hard at work on collecting all of those holiday items in Animal Crossing: Pocket Camp, because you're about to get a whole new list of fun things to do as the game receives its first big update sometime soon. There are a lot of... | Read more »
Reigns: Her Majesty guide - how to use e...
Ruling a kingdom isn't easy--doubly so for a queen whose every decision is questioned by the other factions seeking a slice of power. Reigns: Her Majesty builds on the original game's swipey tactics, adding items that you can use to move the story... | Read more »
The best new games we played this week -...
Friday has crept up on us once again, so it's time to honor the best new games we've played over the past few days. This past week was a pretty exciting one, with the debut of lots of beautiful new indies and some familiar faces returning to the... | Read more »
Portal Knights guide- beginner tips and...
Portal Knights is finally making the jump to iOS and Android, and it's already climbing the ranks to become the next big MMO experience on mobile. This sprawling sandbox game will let you pursue any adventure you wish, whether you want to sling... | Read more »
Reigns: Her Majesty guide - how to swipe...
Reigns: Her Majesty is storming the App Store this week, bringing more tinder-esque kingdom building to eager players everywhere. If you've played the original Reigns, you'll know that leading a kingdom is never easy. It's a careful balancing act... | Read more »

Price Scanner via MacPrices.net

Beats Holiday sale at B&H, headphones and...
B&H Photo has Beats by Dr. Dre headphones, earphones, and speakers on sale for up to $80 off MSRP as part of their Holiday sale. Expedited shipping is free, and B&H charges sales tax to NY... Read more
Holiday sale: Apple resellers offer 2017 15″...
MacMall has 15″ MacBook Pros on sale for $220-$300 off MSRP, each including free shipping: – 15″ 2.8GHz MacBook Pro Space Gray (MPTR2LL/A): $2179, $220 off MSRP – 15″ 2.8GHz MacBook Pro Silver (... Read more
Holiday sale: Apple resellers offer 13″ MacBo...
B&H Photo has 13″ MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 13-inch 2.3GHz/128GB Space Gray MacBook Pro (... Read more
Apple Watch Series 2, Certified Refurbished,...
Apple has Certified Refurbished Apple Watch Nike+ Series 2s, 42mm Space Gray Aluminum Case with Anthracite/Black Nike Sport Bands, available for $249 (38mm) or $279 (42mm). The 38mm model was out of... Read more
Apple offers Certified Refurbished 2016 12″ R...
Apple has Certified Refurbished 2016 12″ Retina MacBooks available starting at $949. Apple will include a standard one-year warranty with each MacBook, and shipping is free. The following... Read more
B&H drops price on 13″ 256GB MacBook Air...
B&H has the 13″ 1.8GHz/256GB Apple MacBook Air (MQD42LL/A) now on sale for $1079 including free shipping plus NY & NJ sales tax only. Their price is $120 off MSRP, and it’s the lowest price... Read more
Holiday sale: 9″ iPads starting at $299, take...
MacMall has 9″ WiFi iPads on sale for $30 off including free shipping: – 9″ 32GB WiFi iPad: $299 – 9″ 128GB WiFi iPad: $399 Read more
Green Monday deal: 15″ 2.8GHz MacBook Pro on...
B&H Photo has the 15″ 2.8GHz Space Gray MacBook Pro on sale for $250 off MSRP for today only as part of their Green Monday/Holiday sale. Shipping is free, and B&H charges sales tax for NY... Read more
Green Monday sale: B&H offers 12″ Apple i...
B&H Photo has 12″ iPad Pros on sale for up to $150 off MSRP as part of their Green Monday/Holiday sale. Shipping is free, and B&H charges sales tax in NY & NJ only: – 12″ 64GB WiFi iPad... Read more
Holiday deal: 21″ and 27″ Apple iMacs on sale...
MacMall has 2017 21″ and 27″ Apple iMacs on sale for up to $200 off MSRP. Shipping is free: – 21″ 2.3GHz iMac: $999 $100 off MSRP – 21″ 3.0GHz iMac: $1199 $100 off MSRP – 21″ 3.4GHz iMac: $1379 $120... Read more

Jobs Board

QA Automation Engineer, *Apple* Pay - Apple...
# QA Automation Engineer, Apple Pay Job Number: 113202642 Santa Clara Valley, California, United States Posted: 11-Dec-2017 Weekly Hours: 40.00 **Job Summary** At Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform 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* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Information Security - Security Data...
# Apple Information Security - Security Data Analyst Job Number: 113119545 Austin, Texas, United States Posted: 10-Nov-2017 Weekly Hours: 40.00 **Job Summary** This Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.