home *** CD-ROM | disk | FTP | other *** search
- ;This program is buggy, if you try to run it normally it will crash
- ;See the 'debug' file for an example to debug this program
-
- addsym
-
- SysBase equ 4
- ;_LVOAllocMem equ -198
- ;_LVOFreeMem equ -210
-
-
- StartProgram:
- moveq #0,d1
- moveq #100,d0
-
- loop: addq.l #1,d1
- dbra d0,loop
-
- bsr Sub1
- beq.s theend
- bsr Sub2
- bsr Sub3
-
- theend:
- moveq #0,d0
- rts
-
- Sub1:
- move.l #100,d0
- moveq #0,d1
- move.l (SysBase).w,a6
- jsr _LVOAllocMem(a6)
- lea Block(pc),a0
- move.l d0,(a0)
- rts
-
- Sub2:
- moveq #0,d0
- moveq #1,d1
- moveq #2,d2
- moveq #3,d3
- moveq #4,d4
- moveq #5,d5
- moveq #6,d6
- moveq #7,d7
- move.l Block(pc),a0
- illegal
- move.l d0,(a0)+
- move.l d1,(a0)+
- move.l d2,(a0)+
- move.l d3,(a0)+
- move.l d4,(a0)+
- move.l d5,(a0)+
- move.l d6,(a0)+
- move.l d7,(a0)+
- rts
-
- Sub3:
- move.l #64,d0
- move.l Block(pc),a1
- move.l (SysBase).w,a6
- jsr _LVOFreeMem(a6)
- rts
-
- Block: dc.l 0
-
- END
-