0000: 23 69 6e 63 6c 75 64 65 20 22 61 73 6d 6d 36 38 #include "asmm68
0010: 6b 2e 68 22 0a 2e 74 65 78 74 0a 09 2e 65 76 65 k.h"..text...eve
0020: 6e 0a 2e 67 6c 6f 62 6c 20 43 28 5f 5f 76 61 63 n..globl C(__vac
0030: 61 6c 6c 5f 72 29 0a 09 44 45 43 4c 41 52 45 5f all_r)..DECLARE_
0040: 46 55 4e 43 54 49 4f 4e 28 5f 5f 76 61 63 61 6c FUNCTION(__vacal
0050: 6c 5f 72 29 0a 43 28 5f 5f 76 61 63 61 6c 6c 5f l_r).C(__vacall_
0060: 72 3a 29 0a 09 6c 69 6e 6b 20 24 61 36 2c 23 2d r:)..link $a6,#-
0070: 33 32 0a 09 6d 6f 76 65 6d 6c 20 23 30 78 33 30 32..moveml #0x30
0080: 32 30 2c 24 73 70 40 2d 0a 09 63 6c 72 6c 20 24 20,$sp@-..clrl $
0090: 61 36 40 28 2d 33 32 29 0a 09 6c 65 61 20 24 61 a6@(-32)..lea $a
00a0: 36 40 28 38 29 2c 24 61 32 0a 09 6d 6f 76 65 6c 6@(8),$a2..movel
00b0: 20 24 61 32 2c 24 61 36 40 28 2d 32 38 29 0a 09 $a2,$a6@(-28)..
00c0: 63 6c 72 6c 20 24 61 36 40 28 2d 32 34 29 0a 09 clrl $a6@(-24)..
00d0: 63 6c 72 6c 20 24 61 36 40 28 2d 32 30 29 0a 09 clrl $a6@(-20)..
00e0: 6d 6f 76 65 6c 20 24 61 31 2c 24 61 36 40 28 2d movel $a1,$a6@(-
00f0: 34 29 0a 09 70 65 61 20 24 61 36 40 28 2d 33 32 4)..pea $a6@(-32
0100: 29 0a 09 6d 6f 76 65 6c 20 24 61 31 40 28 34 29 )..movel $a1@(4)
0110: 2c 24 73 70 40 2d 0a 09 6d 6f 76 65 6c 20 24 61 ,$sp@-..movel $a
0120: 31 40 2c 24 61 32 0a 09 6a 62 73 72 20 24 61 32 1@,$a2..jbsr $a2
0130: 40 0a 09 61 64 64 71 6c 20 23 38 2c 24 73 70 0a @..addql #8,$sp.
0140: 09 6d 6f 76 65 6c 20 24 61 36 40 28 2d 32 30 29 .movel $a6@(-20)
0150: 2c 24 64 32 0a 09 6a 65 71 20 4c 34 0a 09 6d 6f ,$d2..jeq L4..mo
0160: 76 65 71 20 23 31 2c 24 64 33 0a 09 63 6d 70 6c veq #1,$d3..cmpl
0170: 20 24 64 32 2c 24 64 33 0a 09 6a 65 71 20 4c 34 $d2,$d3..jeq L4
0180: 39 0a 09 6d 6f 76 65 71 20 23 32 2c 24 64 33 0a 9..moveq #2,$d3.
0190: 09 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 09 6a .cmpl $d2,$d3..j
01a0: 6e 65 20 4c 37 0a 4c 34 39 3a 0a 09 6d 6f 76 65 ne L7.L49:..move
01b0: 62 20 24 61 36 40 28 2d 31 32 29 2c 24 64 30 0a b $a6@(-12),$d0.
01c0: 09 65 78 74 62 6c 20 24 64 30 0a 09 6a 72 61 20 .extbl $d0..jra
01d0: 4c 34 0a 09 2e 65 76 65 6e 0a 4c 37 3a 0a 09 6d L4...even.L7:..m
01e0: 6f 76 65 71 20 23 33 2c 24 64 33 0a 09 63 6d 70 oveq #3,$d3..cmp
01f0: 6c 20 24 64 32 2c 24 64 33 0a 09 6a 6e 65 20 4c l $d2,$d3..jne L
0200: 39 0a 09 63 6c 72 6c 20 24 64 30 0a 09 6d 6f 76 9..clrl $d0..mov
0210: 65 62 20 24 61 36 40 28 2d 31 32 29 2c 24 64 30 eb $a6@(-12),$d0
0220: 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0a ..jra L4...even.
0230: 4c 39 3a 0a 09 6d 6f 76 65 71 20 23 34 2c 24 64 L9:..moveq #4,$d
0240: 33 0a 09 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 3..cmpl $d2,$d3.
0250: 09 6a 6e 65 20 4c 31 31 0a 09 6d 6f 76 65 77 20 .jne L11..movew
0260: 24 61 36 40 28 2d 31 32 29 2c 24 64 30 0a 09 65 $a6@(-12),$d0..e
0270: 78 74 6c 20 24 64 30 0a 09 6a 72 61 20 4c 34 0a xtl $d0..jra L4.
0280: 09 2e 65 76 65 6e 0a 4c 31 31 3a 0a 09 6d 6f 76 ..even.L11:..mov
0290: 65 71 20 23 35 2c 24 64 33 0a 09 63 6d 70 6c 20 eq #5,$d3..cmpl
02a0: 24 64 32 2c 24 64 33 0a 09 6a 6e 65 20 4c 31 33 $d2,$d3..jne L13
02b0: 0a 09 63 6c 72 6c 20 24 64 30 0a 09 6d 6f 76 65 ..clrl $d0..move
02c0: 77 20 24 61 36 40 28 2d 31 32 29 2c 24 64 30 0a w $a6@(-12),$d0.
02d0: 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0a 4c .jra L4...even.L
02e0: 31 33 3a 0a 09 6d 6f 76 65 71 20 23 36 2c 24 64 13:..moveq #6,$d
02f0: 33 0a 09 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 3..cmpl $d2,$d3.
0300: 09 6a 65 71 20 4c 35 30 0a 09 6d 6f 76 65 71 20 .jeq L50..moveq
0310: 23 37 2c 24 64 33 0a 09 63 6d 70 6c 20 24 64 32 #7,$d3..cmpl $d2
0320: 2c 24 64 33 0a 09 6a 65 71 20 4c 35 30 0a 09 6d ,$d3..jeq L50..m
0330: 6f 76 65 71 20 23 38 2c 24 64 33 0a 09 63 6d 70 oveq #8,$d3..cmp
0340: 6c 20 24 64 32 2c 24 64 33 0a 09 6a 65 71 20 4c l $d2,$d3..jeq L
0350: 35 30 0a 09 6d 6f 76 65 71 20 23 39 2c 24 64 33 50..moveq #9,$d3
0360: 0a 09 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 09 ..cmpl $d2,$d3..
0370: 6a 6e 65 20 4c 32 31 0a 4c 35 30 3a 0a 09 6d 6f jne L21.L50:..mo
0380: 76 65 6c 20 24 61 36 40 28 2d 31 32 29 2c 24 64 vel $a6@(-12),$d
0390: 30 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0..jra L4...even
03a0: 0a 4c 32 31 3a 0a 09 6d 6f 76 65 71 20 23 2d 31 .L21:..moveq #-1
03b0: 30 2c 24 64 33 0a 09 61 64 64 6c 20 24 64 33 2c 0,$d3..addl $d3,
03c0: 24 64 32 0a 09 6d 6f 76 65 71 20 23 31 2c 24 64 $d2..moveq #1,$d
03d0: 33 0a 09 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 3..cmpl $d2,$d3.
03e0: 09 6a 63 73 20 4c 32 33 0a 09 6d 6f 76 65 6c 20 .jcs L23..movel
03f0: 24 61 36 40 28 2d 31 32 29 2c 24 64 30 0a 09 6d $a6@(-12),$d0..m
0400: 6f 76 65 6c 20 24 61 36 40 28 2d 38 29 2c 24 64 ovel $a6@(-8),$d
0410: 31 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 1..jra L4...even
0420: 0a 4c 32 33 3a 0a 09 6d 6f 76 65 6c 20 24 61 36 .L23:..movel $a6
0430: 40 28 2d 32 30 29 2c 24 64 32 0a 09 6d 6f 76 65 @(-20),$d2..move
0440: 71 20 23 31 32 2c 24 64 33 0a 09 63 6d 70 6c 20 q #12,$d3..cmpl
0450: 24 64 32 2c 24 64 33 0a 09 6a 6e 65 20 4c 32 35 $d2,$d3..jne L25
0460: 0a 09 6d 6f 76 65 6c 20 24 61 36 40 28 2d 33 32 ..movel $a6@(-32
0470: 29 2c 24 64 32 0a 09 62 74 73 74 20 23 36 2c 24 ),$d2..btst #6,$
0480: 64 32 0a 09 6a 65 71 20 4c 32 36 0a 09 66 6d 6f d2..jeq L26..fmo
0490: 76 65 73 20 24 61 36 40 28 2d 31 32 29 2c 24 66 ves $a6@(-12),$f
04a0: 70 30 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 p0..jra L4...eve
04b0: 6e 0a 4c 32 36 3a 0a 09 62 74 73 74 20 23 35 2c n.L26:..btst #5,
04c0: 24 64 32 0a 09 6a 65 71 20 4c 32 38 0a 09 66 6d $d2..jeq L28..fm
04d0: 6f 76 65 73 20 24 61 36 40 28 2d 31 32 29 2c 24 oves $a6@(-12),$
04e0: 66 70 31 0a 09 66 6d 6f 76 65 64 20 24 66 70 31 fp1..fmoved $fp1
04f0: 2c 24 73 70 40 2d 0a 09 6d 6f 76 65 6c 20 24 73 ,$sp@-..movel $s
0500: 70 40 2b 2c 24 64 30 0a 09 6d 6f 76 65 6c 20 24 p@+,$d0..movel $
0510: 73 70 40 2b 2c 24 64 31 0a 09 6a 72 61 20 4c 34 sp@+,$d1..jra L4
0520: 0a 09 2e 65 76 65 6e 0a 4c 32 38 3a 0a 09 6d 6f ...even.L28:..mo
0530: 76 65 6c 20 24 61 36 40 28 2d 31 32 29 2c 24 64 vel $a6@(-12),$d
0540: 30 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0..jra L4...even
0550: 0a 4c 32 35 3a 0a 09 6d 6f 76 65 71 20 23 31 33 .L25:..moveq #13
0560: 2c 24 64 33 0a 09 63 6d 70 6c 20 24 64 32 2c 24 ,$d3..cmpl $d2,$
0570: 64 33 0a 09 6a 6e 65 20 4c 33 31 0a 09 62 74 73 d3..jne L31..bts
0580: 74 20 23 36 2c 24 61 36 40 28 2d 32 39 29 0a 09 t #6,$a6@(-29)..
0590: 6a 65 71 20 4c 33 32 0a 09 66 6d 6f 76 65 64 20 jeq L32..fmoved
05a0: 24 61 36 40 28 2d 31 32 29 2c 24 66 70 30 0a 09 $a6@(-12),$fp0..
05b0: 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0a 4c 33 jra L4...even.L3
05c0: 32 3a 0a 09 6d 6f 76 65 6c 20 24 61 36 40 28 2d 2:..movel $a6@(-
05d0: 31 32 29 2c 24 64 30 0a 09 6d 6f 76 65 6c 20 24 12),$d0..movel $
05e0: 61 36 40 28 2d 38 29 2c 24 64 31 0a 09 6a 72 61 a6@(-8),$d1..jra
05f0: 20 4c 34 0a 09 2e 65 76 65 6e 0a 4c 33 31 3a 0a L4...even.L31:.
0600: 09 6d 6f 76 65 71 20 23 31 34 2c 24 64 33 0a 09 .moveq #14,$d3..
0610: 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 09 6a 6e cmpl $d2,$d3..jn
0620: 65 20 4c 33 35 0a 09 6d 6f 76 65 6c 20 24 61 36 e L35..movel $a6
0630: 40 28 2d 31 32 29 2c 24 64 30 0a 09 6a 72 61 20 @(-12),$d0..jra
0640: 4c 35 31 0a 09 2e 65 76 65 6e 0a 4c 33 35 3a 0a L51...even.L35:.
0650: 09 6d 6f 76 65 71 20 23 31 35 2c 24 64 33 0a 09 .moveq #15,$d3..
0660: 63 6d 70 6c 20 24 64 32 2c 24 64 33 0a 09 6a 6e cmpl $d2,$d3..jn
0670: 65 20 4c 34 0a 09 6d 6f 76 65 6c 20 24 61 36 40 e L4..movel $a6@
0680: 28 2d 33 32 29 2c 24 64 32 0a 09 62 74 73 74 20 (-32),$d2..btst
0690: 23 31 30 2c 24 64 32 0a 09 6a 65 71 20 4c 33 38 #10,$d2..jeq L38
06a0: 0a 09 6d 6f 76 65 6c 20 24 61 36 40 28 2d 31 36 ..movel $a6@(-16
06b0: 29 2c 24 61 32 0a 09 6d 6f 76 65 71 20 23 31 2c ),$a2..moveq #1,
06c0: 24 64 33 0a 09 63 6d 70 6c 20 24 61 32 2c 24 64 $d3..cmpl $a2,$d
06d0: 33 0a 09 6a 6e 65 20 4c 33 39 0a 09 6d 6f 76 65 3..jne L39..move
06e0: 6c 20 24 61 36 40 28 2d 32 34 29 2c 24 61 32 0a l $a6@(-24),$a2.
06f0: 09 63 6c 72 6c 20 24 64 30 0a 09 6d 6f 76 65 62 .clrl $d0..moveb
0700: 20 24 61 32 40 2c 24 64 30 0a 09 6a 72 61 20 4c $a2@,$d0..jra L
0710: 34 0a 09 2e 65 76 65 6e 0a 4c 33 39 3a 0a 09 6d 4...even.L39:..m
0720: 6f 76 65 71 20 23 32 2c 24 64 33 0a 09 63 6d 70 oveq #2,$d3..cmp
0730: 6c 20 24 61 32 2c 24 64 33 0a 09 6a 6e 65 20 4c l $a2,$d3..jne L
0740: 34 32 0a 09 6d 6f 76 65 6c 20 24 61 36 40 28 2d 42..movel $a6@(-
0750: 32 34 29 2c 24 61 32 0a 09 63 6c 72 6c 20 24 64 24),$a2..clrl $d
0760: 30 0a 09 6d 6f 76 65 77 20 24 61 32 40 2c 24 64 0..movew $a2@,$d
0770: 30 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0..jra L4...even
0780: 0a 4c 34 32 3a 0a 09 6d 6f 76 65 71 20 23 34 2c .L42:..moveq #4,
0790: 24 64 33 0a 09 63 6d 70 6c 20 24 61 32 2c 24 64 $d3..cmpl $a2,$d
07a0: 33 0a 09 6a 6e 65 20 4c 34 34 0a 09 6d 6f 76 65 3..jne L44..move
07b0: 6c 20 24 61 36 40 28 2d 32 34 29 2c 24 61 32 0a l $a6@(-24),$a2.
07c0: 09 6d 6f 76 65 6c 20 24 61 32 40 2c 24 64 30 0a .movel $a2@,$d0.
07d0: 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0a 4c .jra L4...even.L
07e0: 34 34 3a 0a 09 6d 6f 76 65 71 20 23 38 2c 24 64 44:..moveq #8,$d
07f0: 33 0a 09 63 6d 70 6c 20 24 61 32 2c 24 64 33 0a 3..cmpl $a2,$d3.
0800: 09 6a 6e 65 20 4c 33 38 0a 09 6d 6f 76 65 6c 20 .jne L38..movel
0810: 24 61 36 40 28 2d 32 34 29 2c 24 61 32 0a 09 6d $a6@(-24),$a2..m
0820: 6f 76 65 6c 20 24 61 32 40 2c 24 64 30 0a 09 6d ovel $a2@,$d0..m
0830: 6f 76 65 6c 20 24 61 32 40 28 34 29 2c 24 64 31 ovel $a2@(4),$d1
0840: 0a 09 6a 72 61 20 4c 34 0a 09 2e 65 76 65 6e 0a ..jra L4...even.
0850: 4c 33 38 3a 0a 09 62 74 73 74 20 23 30 2c 24 64 L38:..btst #0,$d
0860: 32 0a 09 6a 65 71 20 4c 34 0a 09 6d 6f 76 65 6c 2..jeq L4..movel
0870: 20 24 61 36 40 28 2d 32 34 29 2c 24 64 30 0a 4c $a6@(-24),$d0.L
0880: 35 31 3a 0a 09 6d 6f 76 65 6c 20 24 64 30 2c 24 51:..movel $d0,$
0890: 61 30 0a 4c 34 3a 0a 09 6d 6f 76 65 6d 6c 20 24 a0.L4:..moveml $
08a0: 61 36 40 28 2d 34 34 29 2c 23 30 78 34 30 63 0a a6@(-44),#0x40c.
08b0: 09 75 6e 6c 6b 20 24 61 36 0a 09 72 74 73 0a .unlk $a6..rts.