Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!caen!umich!terminator!usenet
From: BRBOYER@MTUS5.CTS.MTU.EDU (Rucell)
Newsgroups: comp.sys.mac.programmer
Subject: Assembly Code for List Manager, What is Wrong here?
Message-ID: <050991.121525BRBOYER@MTUS5.CTS.MTU.EDU>
Date: 9 May 91 05:15:25 GMT
Sender: usenet@terminator.cc.umich.edu (usenet news)
Organization: U of Michigan, ITD Research Systems
Lines: 98


  Hello.  I am having a bit of trouble with this assembly code segment.  What
I am trying to do is this:  Setup a UserItem Dialog with a List.  I have got
most of it working OK, but right in the middle of drawing the Dialog Items, it
crashs just after the box is formed.  I am not quite sure why.  Can anybody
see what could be wrong?  Thanks much...

;------------------------------------------------------------------------------

 InitLists
         MOVE.L          GroupPtr(V),-(SP)               ;Get DlogItem Info
         MOVE            #MainGroup,-(SP)
         PEA             ItemType(V)
         PEA             ItemHndl(V)
         PEA             Box(V)
         _GetDItem
 
         MOVE.L          GroupPtr(V),-(SP)               ;Set UserItem to draw
         MOVE            #MainGroup,-(SP)                ; Procedure
         MOVE            ItemType(V),-(SP)
         PEA             DrawGrpList
         PEA             Box(V)
         _SetDItem
 
         PEA             SizeRect(V)                     ;Calculate Initial
         CLR.L           -(SP)                           ; Array
         MOVE            #1,-(SP)
         CLR             -(SP)
         _SetRect
 
         CLR.L           -(SP)                           ;LNew up a new LIST
         PEA             Box(V)
         PEA             SizeRect(V)
         MOVE            #16,-(SP)
         CLR             -(SP)
         CLR             -(SP)
         MOVE.L          GroupPtr(V),-(SP)
         MOVE            #True,-(SP)
         MOVE            #False,-(SP)
         MOVE            #False,-(SP)
         MOVE            #True,-(SP)
         MOVE            #68,-(SP)
         _Pack0
         MOVE.L          (SP)+,GroupListHndl(V)
 
         PEA             Str1(V)                         ;Get String from Rsrc
         MOVE            #128,-(SP)
         MOVE            #5,-(SP)
         JSR             GetIndString
 
         LEA             Str1(V),A0                      ;Put Str into List
         CLR             D0
         MOVE.B          (A0)+,D0
         MOVE.L          A0,-(SP)
         MOVE            D0,-(SP)
         CLR.L           -(SP)
         MOVE.L          GroupListHndl(V),-(SP)
         MOVE            #88,-(SP)
         _Pack0
 
         RTS

 DrawGrpList
         MOVE.L          6(SP),A3                        ;Save Window Ptr
         MOVE            4(SP),D4                        ;Save Dialog Item
 
         MOVE.L          A3,-(SP)                        ;Get Box Size
         MOVE            D4,-(SP)
         PEA             ItemType(V)
         PEA             ItemHndl(V)
         PEA             Box(V)
         _GetDItem
 
         PEA             Box(V)                          ;Draw Rectangle
         MOVE.L          #-1,-(SP)
         _InsetRect
         PEA             Box(V)
         _FrameRect
 
         MOVE.L          visRgn(A3),-(SP)                ;LUpdate
         MOVE.L          GroupListHndl(V),-(SP)
         MOVE            #100,-(SP)
         _Pack0
 
         MOVE.L          (SP)+,A0                        ;Return
         ADD.L           #6,SP
         JMP             (A0)
 

;------------------------------------------------------------------------------

   Bradley R. Boyer     ##### #   #  ###    BRBOYER@mtus5.cts.mtu.edu
                          #   #  #  #   #   BRBOYER%MTUS5.BITNET
 |"How could it have |   # #  ###   #####
 | been me?  I wasn't|    #   #  #  #   #   Phi Kappa Theta - Michigan Chi Rho
 | even there!"      |  ##### #   #  ###    Michigan Technological University

------ Posted using NetFeed, THE Macintosh <====> UseNet Interface Program ----