home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / books / 68k_book / arp_src / prg_3ap.dsm < prev    next >
Text File  |  1985-11-20  |  8KB  |  243 lines
  1. PRG_3AP.TOS Disassembled after execution
  2.  
  3. 085DA8 0008          DC.W 8 
  4. 085DAA 5DA8000F      SUBQ.L #6,$F(A0)
  5. 085DAE 8000          OR.B D0,D0
  6. 085DB0 0008          DC.W 8 
  7. 085DB2 5EA80000      ADDQ.L #7,0(A0)
  8. 085DB6 00CE          DC.W $CE 
  9. 085DB8 0008          DC.W 8 
  10. 085DBA 5F760000      SUBQ.W #7,0(A6,D0.W)
  11. 085DBE 009A00086010  ORI.L #$86010,(A2)+
  12. 085DC4 00000070      ORI.B #$70,D0
  13. 085DC8 0008          DC.W 8 
  14. 085DCA 5E280000      ADDQ.B #7,0(A0)
  15. 085DCE 00000000      ORI.B #0,D0
  16. 085DD2 00000008      ORI.B #8,D0
  17. 085DD6 5D1E          SUBQ.B #6,(A6)+
  18. 085DD8 FFFF          DC.W $FFFF 
  19. 085DDA FEFD          DC.W $FEFD 
  20. 085DDC 00000004      ORI.B #4,D0
  21. 085DE0 00000000      ORI.B #0,D0
  22. 085DE4 00000000      ORI.B #0,D0
  23. 085DE8 00000204      ORI.B #4,D0
  24. 085DEC 0500          BTST D2,D0
  25. 085DEE 00030000      ORI.B #0,D3
  26. 085DF2 00000000      ORI.B #0,D0
  27. 085DF6 00000000      ORI.B #0,D0
  28. 085DFA 00000000      ORI.B #0,D0
  29. 085DFE 00000000      ORI.B #0,D0
  30. 085E02 00000000      ORI.B #0,D0
  31. 085E06 00000000      ORI.B #0,D0
  32. 085E0A 00000000      ORI.B #0,D0
  33. 085E0E 00000000      ORI.B #0,D0
  34. 085E12 00000000      ORI.B #0,D0
  35. 085E16 00000000      ORI.B #0,D0
  36. 085E1A 00000000      ORI.B #0,D0
  37. 085E1E 00000000      ORI.B #0,D0
  38. 085E22 00000000      ORI.B #0,D0
  39. 085E26 00000000      ORI.B #0,D0
  40. 085E2A 00000000      ORI.B #0,D0
  41. 085E2E 00000000      ORI.B #0,D0
  42. 085E32 00000000      ORI.B #0,D0
  43. 085E36 00000000      ORI.B #0,D0
  44. 085E3A 00000000      ORI.B #0,D0
  45. 085E3E 00000000      ORI.B #0,D0
  46. 085E42 00000000      ORI.B #0,D0
  47. 085E46 00000000      ORI.B #0,D0
  48. 085E4A 00000000      ORI.B #0,D0
  49. 085E4E 00000000      ORI.B #0,D0
  50. 085E52 00000000      ORI.B #0,D0
  51. 085E56 00000000      ORI.B #0,D0
  52. 085E5A 00000000      ORI.B #0,D0
  53. 085E5E 00000000      ORI.B #0,D0
  54. 085E62 00000000      ORI.B #0,D0
  55. 085E66 00000000      ORI.B #0,D0
  56. 085E6A 00000000      ORI.B #0,D0
  57. 085E6E 00000000      ORI.B #0,D0
  58. 085E72 00000000      ORI.B #0,D0
  59. 085E76 00000000      ORI.B #0,D0
  60. 085E7A 00000000      ORI.B #0,D0
  61. 085E7E 00000000      ORI.B #0,D0
  62. 085E82 00000000      ORI.B #0,D0
  63. 085E86 00000000      ORI.B #0,D0
  64. 085E8A 00000000      ORI.B #0,D0
  65. 085E8E 00000000      ORI.B #0,D0
  66. 085E92 00000000      ORI.B #0,D0
  67. 085E96 00000000      ORI.B #0,D0
  68. 085E9A 00000000      ORI.B #0,D0
  69. 085E9E 00000000      ORI.B #0,D0
  70. 085EA2 00000000      ORI.B #0,D0
  71. 085EA6 0000          ORI.B #0,D0
  72. 085EA8 2A6F0004      MOVEA.L 4(A7),A5
  73. 085EAC 2E2D000C      MOVE.L $C(A5),D7
  74. 085EB0 DEAD0014      ADD.L $14(A5),D7
  75. 085EB4 DEAD001C      ADD.L $1C(A5),D7
  76. 085EB8 DEBC00000100  ADD.L #$100,D7
  77. 085EBE 49FA01C0      LEA $86080(PC),A4
  78. 085EC2 99EF0004      SUBA.L 4(A7),A4
  79. 085EC6 4FFA01B4      LEA $8607C(PC),A7
  80. 085ECA 614C          BSR.S $85F18
  81. 085ECC 41FA00D4      LEA $85FA2(PC),A0
  82. 085ED0 613A          BSR.S $85F0C
  83. 085ED2 41FA00EE      LEA $85FC2(PC),A0
  84. 085ED6 6134          BSR.S $85F0C
  85. 085ED8 2207          MOVE.L D7,D1
  86. 085EDA 614A          BSR.S $85F26
  87. 085EDC 41FA0132      LEA $86010(PC),A0
  88. 085EE0 612A          BSR.S $85F0C
  89. 085EE2 41FA011E      LEA $86002(PC),A0
  90. 085EE6 6124          BSR.S $85F0C
  91. 085EE8 41FA00F8      LEA $85FE2(PC),A0
  92. 085EEC 611E          BSR.S $85F0C
  93. 085EEE 220C          MOVE.L A4,D1
  94. 085EF0 6134          BSR.S $85F26
  95. 085EF2 41FA011C      LEA $86010(PC),A0
  96. 085EF6 6114          BSR.S $85F0C
  97. 085EF8 41FA0108      LEA $86002(PC),A0
  98. 085EFC 610E          BSR.S $85F0C
  99. 085EFE 3F3C0008      MOVE.W #8,-(A7)
  100. 085F02 4E41          TRAP #1
  101. 085F04 548F          ADDQ.L #2,A7
  102. 085F06 3F3C0000      MOVE.W #0,-(A7)
  103. 085F0A 4E41          TRAP #1
  104. 085F0C 4850          PEA (A0)
  105. 085F0E 3F3C0009      MOVE.W #9,-(A7)
  106. 085F12 4E41          TRAP #1
  107. 085F14 5C8F          ADDQ.L #6,A7
  108. 085F16 4E75          RTS
  109. 085F18 487A00F2      PEA $8600C(PC)
  110. 085F1C 3F3C0009      MOVE.W #9,-(A7)
  111. 085F20 4E41          TRAP #1
  112. 085F22 5C8F          ADDQ.L #6,A7
  113. 085F24 4E75          RTS
  114. 085F26 41FA00E8      LEA $86010(PC),A0
  115. 085F2A 43FA004A      LEA $85F76(PC),A1
  116. 085F2E 2019          MOVE.L (A1)+,D0
  117. 085F30 7400          MOVEQ #0,D2
  118. 085F32 4A81          TST.L D1
  119. 085F34 6732          BEQ.S $85F68
  120. 085F36 6A08          BPL.S $85F40
  121. 085F38 10FC002D      MOVE.B #$2D,(A0)+
  122. 085F3C 4481          NEG.L D1
  123. 085F3E 6004          BRA.S $85F44
  124. 085F40 10FC0020      MOVE.B #$20,(A0)+
  125. 085F44 9280          SUB.L D0,D1
  126. 085F46 6A06          BPL.S $85F4E
  127. 085F48 D280          ADD.L D0,D1
  128. 085F4A 2019          MOVE.L (A1)+,D0
  129. 085F4C 60F6          BRA.S $85F44
  130. 085F4E 5202          ADDQ.B #1,D2
  131. 085F50 9280          SUB.L D0,D1
  132. 085F52 6AFA          BPL.S $85F4E
  133. 085F54 06020030      ADDI.B #$30,D2
  134. 085F58 10C2          MOVE.B D2,(A0)+
  135. 085F5A D280          ADD.L D0,D1
  136. 085F5C 74FF          MOVEQ #-1,D2
  137. 085F5E 2019          MOVE.L (A1)+,D0
  138. 085F60 66EC          BNE.S $85F4E
  139. 085F62 10BC0000      MOVE.B #0,(A0)
  140. 085F66 4E75          RTS
  141. 085F68 10FC0020      MOVE.B #$20,(A0)+
  142. 085F6C 10FC0030      MOVE.B #$30,(A0)+
  143. 085F70 10BC0000      MOVE.B #0,(A0)
  144. 085F74 4E75          RTS
  145. 085F76 3B9A          DC.W $3B9A 
  146. 085F78 CA00          AND.B D0,D5
  147. 085F7A 05F5          DC.W $5F5 
  148. 085F7C E100          ASL.B #8,D0
  149. 085F7E 00989680000F  ORI.L #$9680000F,(A0)+
  150. 085F84 4240          CLR.W D0
  151. 085F86 000186A0      ORI.B #-$60,D1
  152. 085F8A 00002710      ORI.B #$10,D0
  153. 085F8E 000003E8      ORI.B #-$18,D0
  154. 085F92 00000064      ORI.B #$64,D0
  155. 085F96 0000000A      ORI.B #$A,D0
  156. 085F9A 00000001      ORI.B #1,D0
  157. 085F9E 00000000      ORI.B #0,D0
  158. 085FA2 0D0A5052      MOVEP.W $5052(A2),D6
  159. 085FA6 475F          DC.W $475F 
  160. 085FA8 33415020      MOVE.W D1,$5020(A1)
  161. 085FAC 4578          DC.W $4578 
  162. 085FAE 6563          BCS.S $86013
  163. 085FB0 7574          DC.W $7574 
  164. 085FB2 696F          BVS.S $86023
  165. 085FB4 6E20          BGT.S $85FD6
  166. 085FB6 5265          ADDQ.W #1,-(A5)
  167. 085FB8 7375          DC.W $7375 
  168. 085FBA 6C74          BGE.S $86030
  169. 085FBC 730D          DC.W $730D 
  170. 085FBE 0A0D          DC.W $A0D 
  171. 085FC0 0A002020      EORI.B #$20,D0
  172. 085FC4 2050          MOVEA.L (A0),A0
  173. 085FC6 726F          MOVEQ #$6F,D1
  174. 085FC8 6772          BEQ.S $8603C
  175. 085FCA 616D          BSR.S $86039
  176. 085FCC 2053          MOVEA.L (A3),A0
  177. 085FCE 697A          BVS.S $8604A
  178. 085FD0 6520          BCS.S $85FF2
  179. 085FD2 6279          BHI.S $8604D
  180. 085FD4 204D          MOVEA.L A5,A0
  181. 085FD6 6574          BCS.S $8604C
  182. 085FD8 686F          BVC.S $86049
  183. 085FDA 6420          BCC.S $85FFC
  184. 085FDC 4F6E          DC.W $4F6E 
  185. 085FDE 653A          BCS.S $8601A
  186. 085FE0 2000          MOVE.L D0,D0
  187. 085FE2 2020          MOVE.L -(A0),D0
  188. 085FE4 2050          MOVEA.L (A0),A0
  189. 085FE6 726F          MOVEQ #$6F,D1
  190. 085FE8 6772          BEQ.S $8605C
  191. 085FEA 616D          BSR.S $86059
  192. 085FEC 2053          MOVEA.L (A3),A0
  193. 085FEE 697A          BVS.S $8606A
  194. 085FF0 6520          BCS.S $86012
  195. 085FF2 6279          BHI.S $8606D
  196. 085FF4 204D          MOVEA.L A5,A0
  197. 085FF6 6574          BCS.S $8606C
  198. 085FF8 686F          BVC.S $86069
  199. 085FFA 6420          BCC.S $8601C
  200. 085FFC 5477          DC.W $5477 
  201. 085FFE 6F3A          BLE.S $8603A
  202. 086000 2000          MOVE.L D0,D0
  203. 086002 2062          MOVEA.L -(A2),A0
  204. 086004 7974          DC.W $7974 
  205. 086006 6573          BCS.S $8607B
  206. 086008 2E0D          MOVE.L A5,D7
  207. 08600A 0A000D0A      EORI.B #$A,D0
  208. 08600E 00002037      ORI.B #$37,D0
  209. 086012 32380000      MOVE.W 0,D1
  210. 086016 00000000      ORI.B #0,D0
  211. 08601A 00000000      ORI.B #0,D0
  212. 08601E 00000000      ORI.B #0,D0
  213. 086022 00000000      ORI.B #0,D0
  214. 086026 00000000      ORI.B #0,D0
  215. 08602A 00000000      ORI.B #0,D0
  216. 08602E 00000000      ORI.B #0,D0
  217. 086032 00000000      ORI.B #0,D0
  218. 086036 00000000      ORI.B #0,D0
  219. 08603A 00000000      ORI.B #0,D0
  220. 08603E 00000005      ORI.B #5,D0
  221. 086042 F0C2          DC.W $F0C2 
  222. 086044 0310          BTST D1,(A0)
  223. 086046 0008          DC.W 8 
  224. 086048 0005F0C2      ORI.B #-$3E,D5
  225. 08604C 0314          BTST D1,(A4)
  226. 08604E 0008          DC.W 8 
  227. 086050 5F0C          SUBQ.B #7,A4
  228. 086052 00000000      ORI.B #0,D0
  229. 086056 FFFF          DC.W $FFFF 
  230. 086058 FFFF          DC.W $FFFF 
  231. 08605A 00000000      ORI.B #0,D0
  232. 08605E 00000000      ORI.B #0,D0
  233. 086062 00000000      ORI.B #0,D0
  234. 086066 00000000      ORI.B #0,D0
  235. 08606A 000002D8      ORI.B #-$28,D0
  236. 08606E 0008          DC.W 8 
  237. 086070 607A          BRA.S $860EC
  238. 086072 0008          DC.W 8 
  239. 086074 5FA2          SUBQ.L #7,-(A2)
  240. 086076 00000000      ORI.B #0,D0
  241. 08607A 00000000      ORI.B #0,D0
  242. 08607E 00000000      ORI.B #0,D0
  243.