home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / books / 68k_book / arp_src / aut_data.dsm < prev    next >
Text File  |  1985-11-20  |  5KB  |  143 lines
  1.  AUT_DATA's 1st AUT in TRAP9DAT
  2.  
  3. 01FA36 99CA             SUBA.L A2,A4
  4. 01FA38 97CA             SUBA.L A2,A3
  5. 01FA3A 4DFA04C4         LEA $1FF00(PC),A6
  6. 01FA3E 2C88             MOVE.L A0,(A6)
  7. 01FA40 4DFA04C2         LEA $1FF04(PC),A6
  8. 01FA44 2C89             MOVE.L A1,(A6)
  9. 01FA46 4DFA04C0         LEA $1FF08(PC),A6
  10. 01FA4A 2C8D             MOVE.L A5,(A6)
  11. 01FA4C 2A4A             MOVEA.L A2,A5
  12. 01FA4E 41FA04A6         LEA $1FEF6(PC),A0
  13. 01FA52 208F             MOVE.L A7,(A0)
  14. 01FA54 4E6F             MOVE.L USP,A7
  15. 01FA56 207A04B0         MOVEA.L $1FF08(PC),A0
  16. 01FA5A 4A10             TST.B (A0)
  17. 01FA5C 6704             BEQ.S $1FA62
  18. 01FA5E 61000480         BSR $1FEE0
  19. 01FA62 207A049C         MOVEA.L $1FF00(PC),A0
  20. 01FA66 61000478         BSR $1FEE0
  21. 01FA6A 4DFA004C         LEA $1FAB8(PC),A6
  22. 01FA6E 360C             MOVE.W A4,D3
  23. 01FA70 41FA048C         LEA $1FEFE(PC),A0
  24. 01FA74 3003             MOVE.W D3,D0
  25. 01FA76 904B             SUB.W A3,D0
  26. 01FA78 3080             MOVE.W D0,(A0)
  27. 01FA7A 5343             SUBQ.W #1,D3
  28. 01FA7C 1CDD             MOVE.B (A5)+,(A6)+
  29. 01FA7E 51CBFFFC         DBRA D3,$1FA7C
  30. 01FA82 41FA0434         LEA $1FEB8(PC),A0
  31. 01FA86 43FA0484         LEA $1FF0C(PC),A1
  32. 01FA8A 93C8             SUBA.L A0,A1
  33. 01FA8C 3609             MOVE.W A1,D3
  34. 01FA8E 5943             SUBQ.W #4,D3
  35. 01FA90 2248             MOVEA.L A0,A1
  36. 01FA92 93CE             SUBA.L A6,A1
  37. 01FA94 2A4E             MOVEA.L A6,A5
  38. 01FA96 30280002         MOVE.W 2(A0),D0
  39. 01FA9A 2CD8             MOVE.L (A0)+,(A6)+
  40. 01FA9C D04B             ADD.W A3,D0
  41. 01FA9E D049             ADD.W A1,D0
  42. 01FAA0 3B400002         MOVE.W D0,2(A5)
  43. 01FAA4 5343             SUBQ.W #1,D3
  44. 01FAA6 1CD8             MOVE.B (A0)+,(A6)+
  45. 01FAA8 51CBFFFC         DBRA D3,$1FAA6
  46. 01FAAC 5347             SUBQ.W #1,D7
  47.  
  48. 01FAAE 41FA044A         LEA $1FEFA(PC),A0
  49. 01FAB2 91C9             SUBA.L A1,A0
  50. 01FAB4 20B804BA         MOVE.L $4BA,(A0)
  51. 01FAB8 6004             BRA.S $1FABE
  52. 01FABA 00000000         ORI.B #0,D0
  53. 01FABE 45FAFFFA         LEA $1FABA(PC),A2
  54. 01FAC2 2488             MOVE.L A0,(A2)
  55. 01FAC4 51CFFFF8         DBRA D7,$1FABE
  56. 01FAC8 203804BA         MOVE.L $4BA,D0
  57. 01FACC 90BA0038         SUB.L $1FB06(PC),D0
  58.  
  59. 01FAD0 4E4A             TRAP #$A
  60. 01FAD2 207A003C         MOVEA.L $1FB10(PC),A0
  61. 01FAD6 6114             BSR.S $1FAEC
  62. 01FAD8 323A0030         MOVE.W $1FB0A(PC),D1
  63. 01FADC 4E44             TRAP #4
  64. 01FADE 610C             BSR.S $1FAEC
  65. 01FAE0 41FA0016         LEA $1FAF8(PC),A0
  66. 01FAE4 6106             BSR.S $1FAEC
  67. 01FAE6 2E7A001A         MOVEA.L $1FB02(PC),A7
  68. 01FAEA 4E73             RTE
  69. 01FAEC 4850             PEA (A0)
  70. 01FAEE 3F3C0009         MOVE.W #9,-(A7)
  71. 01FAF2 4E41             TRAP #1
  72. 01FAF4 5C8F             ADDQ.L #6,A7
  73. 01FAF6 4E75             RTS
  74. 01FAF8 2020             MOVE.L -(A0),D0
  75. 01FAFA 6279             BHI.S $1FB75
  76. 01FAFC 7465             MOVEQ #$65,D2
  77. 01FAFE 730D             DC.W $730D
  78. 01FB00 0A000004         EORI.B #4,D0
  79. 01FB04 0EB000000000     BCLR #0,0(A0,D0.W)
  80. 01FB0A 00060006         ORI.B #6,D6
  81. 01FB0E FB75             DC.W $FB75
  82. 01FB10 0006FBC9         ORI.B #-$37,D6
  83. 01FB14 0006FB58         ORI.B #$58,D6
  84. 01FB18 040A             DC.W $40A
  85. 01FB1A 00000000         ORI.B #0,D0
  86. 01FB1E 00000000         ORI.B #0,D0
  87.  
  88. 01FEAE 00000000         ORI.B #0,D0
  89. 01FEB2 00000000         ORI.B #0,D0
  90. 01FEB6 000051CF         ORI.B #-$31,D0
  91. 01FEBA FBFE             DC.W $FBFE 
  92. 01FEBC 203804BA         MOVE.L $4BA,D0
  93. 01FEC0 90BA0038         SUB.L $1FEFA(PC),D0
  94. 01FEC4 4E4A             TRAP #$A
  95. 01FEC6 207A003C         MOVEA.L $1FF04(PC),A0
  96. 01FECA 6114             BSR.S $1FEE0
  97. 01FECC 323A0030         MOVE.W $1FEFE(PC),D1
  98. 01FED0 4E44             TRAP #4
  99. 01FED2 610C             BSR.S $1FEE0
  100. 01FED4 41FA0016         LEA $1FEEC(PC),A0
  101. 01FED8 6106             BSR.S $1FEE0
  102. 01FEDA 2E7A001A         MOVEA.L $1FEF6(PC),A7
  103. 01FEDE 4E73             RTE
  104. 01FEE0 4850             PEA (A0)
  105. 01FEE2 3F3C0009         MOVE.W #9,-(A7)
  106. 01FEE6 4E41             TRAP #1
  107. 01FEE8 5C8F             ADDQ.L #6,A7
  108. 01FEEA 4E75             RTS
  109. 01FEEC 2020             MOVE.L -(A0),D0
  110. 01FEEE 6279             BHI.S $1FF69
  111. 01FEF0 7465             MOVEQ #$65,D2
  112. 01FEF2 730D             DC.W $730D
  113. 01FEF4 0A000004         EORI.B #4,D0
  114. 01FEF8 0EB000000000     BCLR #0,0(A0,D0.W)
  115. 01FEFE 00060006         ORI.B #6,D6
  116. 01FF02 FB75             DC.W $FB75
  117. 01FF04 0006FBC9         ORI.B #-$37,D6
  118. 01FF08 0006FB58         ORI.B #$58,D6
  119.  
  120.  AUT_DATA's 2nd AUT in TRAP9DAT
  121.  
  122. 01FAAE 41FA044A         LEA $1FEFA(PC),A0
  123. 01FAB2 91C9             SUBA.L A1,A0
  124. 01FAB4 20B804BA         MOVE.L $4BA,(A0)
  125. 01FAB8 6004             BRA.S $1FABE
  126. 01FABA 00000000         ORI.B #0,D0
  127. 01FABE 45F90006FB40     LEA $6FB40,A2
  128. 01FAC4 2488             MOVE.L A0,(A2)
  129. 01FAC6 51CFFFF6         DBRA D7,$1FABE
  130. 01FACA 203804BA         MOVE.L $4BA,D0
  131.  
  132.  AUT_DATA's 3rd AUT in TRAP9DAT
  133.  
  134. 01FAAE 41FA044A         LEA $1FEFA(PC),A0
  135. 01FAB2 91C9             SUBA.L A1,A0
  136. 01FAB4 20B804BA         MOVE.L $4BA,(A0)
  137. 01FAB8 6004             BRA.S $1FABE
  138. 01FABA 00000000         ORI.B #0,D0
  139. 01FABE 23C80006FB4E     MOVE.L A0,$6FB4E
  140. 01FAC4 51CFFFF8         DBRA D7,$1FABE
  141. 01FAC8 203804BA         MOVE.L $4BA,D0
  142.  
  143.