home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #2 / amigaacscoverdisc / games / alienbreed3d2 / source_4000 / backhires.s < prev    next >
Text File  |  1997-01-31  |  219KB  |  14,584 lines
  1.  
  2.  
  3.  
  4. CHEESEY equ 0
  5.  
  6. *************************************************
  7. * Stuff to do to get a C2P version:
  8. * Change copperlist
  9. * Change wall drawing
  10. * change floor drawing
  11. * change object drawing
  12. * change polygon drawing (ugh)
  13. * Write a palette generator program in AMOS
  14. * to provide a good 256 colour palette and
  15. * convert all graphics files specified
  16. * (possibly included in the game linker
  17. * program).
  18. * Possibly change the wall/floor/object
  19. * palettes to look nicer with more shades.
  20. * RE-implement stippling (if not present)
  21. * as it will look gorgeous now.
  22. *************************************************
  23.  
  24. ;MIDDLEX set 96
  25. ;RIGHTX set 191
  26. ;BOTTOMY set 160 
  27.  
  28. ;MIDDLEX set 96
  29. ;RIGHTX set 191
  30. ;BOTTOMY set 160
  31.  
  32. _break    macro
  33. ;    bkpt    \1
  34.     endm
  35.  
  36.  
  37. FILTER    macro
  38. ;    move.l    d0,-(sp)
  39. ;    move.l    #65000,d0
  40. ;.loop\@
  41. ;    bchg    #1,$bfe001
  42. ;    dbra    d0,.loop\@
  43. ;    move.l    (sp)+,d0
  44.     endm
  45.  
  46. BLACK    macro
  47.     move.w    #0,$dff180
  48.     endm
  49.  
  50. RED    macro
  51.     move.w    #$f00,$dff180
  52.     endm
  53.  
  54. FLASHER macro
  55. ;    movem.l    d1,-(sp)
  56. ;    move.w    #-1,d1
  57. ;
  58. ;loop3\@
  59. ;;    move.w    #\1,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    move.w    #\2,$dff180
  63. ;    nop
  64. ;    nop
  65. ;    dbra    d1,loop3\@
  66.  
  67. ;    movem.l    (sp)+,d1
  68.  
  69.     endm
  70.  
  71. GREEN    macro
  72.     move.w    #$0f0,$dff180
  73.     endm
  74.  
  75. BLUE    macro
  76.     move.w    #$f,$dff180
  77.     endm
  78.  
  79. DataCacheOff macro
  80.     movem.l    a0-a6/d0-d7,-(sp)
  81.     move.l    4.w,a6
  82.     moveq    #0,d0
  83.     move.l    #%0000000100000000,d1
  84.     jsr    _LVOCacheControl(a6)
  85.     movem.l    (sp)+,a0-a6/d0-d7
  86.     endm
  87.  
  88. DataCacheOn macro
  89.     movem.l    a0-a6/d0-d7,-(sp)
  90.     move.l    4.w,a6
  91.     moveq    #-1,d0
  92.     move.l    #%0000000100000000,d1
  93.     jsr    _LVOCacheControl(a6)
  94.     movem.l    (sp)+,a0-a6/d0-d7
  95.     endm
  96.  
  97.     opt    P=68020
  98.  
  99.     include utils:sysinc/hardware/intbits.i
  100.  
  101. CD32VER equ 0
  102.  
  103. maxscrdiv EQU 8
  104. max3ddiv EQU 5
  105. playerheight EQU 12*1024
  106. playercrouched EQU 8*1024
  107. scrheight EQU 80
  108.  
  109. ; k/j/m
  110.  
  111. ; 4/8
  112. ; s/x
  113. ; b/n
  114.  
  115. midoffset EQU 104*4*40
  116.  
  117.  
  118.  SECTION Scrn,CODE
  119. OpenLib       equ -552
  120. CloseLib      equ -414
  121.  
  122. INTREQ        equ    $09C
  123. INTENA        equ    $09A
  124. INTENAR    equ    $01C
  125. DMACON        equ    $096
  126.  
  127. SERPER        equ    $032
  128. SERDATR    equ    $018
  129. SERDAT        equ    $030
  130. vhposr        equ $006    
  131. vhposrl    equ $007 
  132.  
  133. bltcon0    equ $40 
  134. bltcon1    equ $42
  135. bltcpt        equ $48
  136. bltbpt        equ $4c
  137. bltapt        equ $50
  138. spr0ctl    equ $142
  139. spr1ctl    equ $14a
  140. spr2ctl    equ $152
  141. spr3ctl    equ $15a
  142. spr4ctl    equ $162
  143. spr5ctl    equ $16a
  144. spr6ctl    equ $172
  145. spr7ctl    equ $17a
  146. spr0pos    equ $140
  147. spr1pos    equ $148
  148. spr2pos    equ $150
  149. spr3pos    equ $158
  150. spr4pos    equ $160
  151. spr5pos    equ $168
  152. spr6pos    equ $170
  153. spr7pos    equ $178
  154. bltdpt         equ $54
  155. bltafwm    equ $44
  156. bltalwm    equ $46
  157. bltsize         equ $58
  158. bltcmod         equ $60
  159. bltbmod         equ $62
  160. bltamod         equ $64
  161. bltdmod         equ $66
  162. diwstart        equ $8e         ; Screen hardware registers.
  163. diwstop         equ $90
  164. ddfstart        equ $92
  165. ddfstop         equ $94
  166. bplcon0         equ $100
  167. bplcon1         equ $102
  168. col0            equ $180
  169. col1            equ $182
  170. col2        equ $184
  171. col3        equ $186
  172. col4        equ $188
  173. col5        equ $18a
  174. col6        equ $18c
  175. col7        equ $18e
  176. col8            equ $190
  177. col9            equ $192
  178. col10           equ $194
  179. col11           equ $196
  180. col12           equ $198
  181. col13           equ $19a
  182. dmacon        equ $96
  183. dmaconr        equ $002
  184. intenar        equ $01c
  185. intena        equ $09a
  186. intreq        equ $09c
  187. intreqr        equ $01e
  188. intreqrl    equ $01f
  189. bpl1pth         equ $e0
  190. bpl1ptl         equ $e2
  191. bpl2pth        equ $e4
  192. bpl2ptl        equ $e6
  193. bpl3pth        equ $e8
  194. bpl3ptl        equ $ea
  195. bpl4pth        equ $ec
  196. bpl4ptl        equ $ee
  197. bpl5pth        equ $f0
  198. bpl5ptl        equ $f2
  199. bpl6pth        equ $f4
  200. bpl6ptl        equ $f6
  201. bpl7pth        equ $f8
  202. bpl7ptl        equ $fa
  203. bpl8pth        equ $fc
  204. bpl8ptl        equ $fe
  205. spr0pth        equ $120
  206. spr0ptl        equ $122
  207. spr1pth        equ $124
  208. spr1ptl        equ $126
  209. spr2pth        equ $128
  210. spr2ptl        equ $12a
  211. spr3pth        equ $12c
  212. spr3ptl        equ $12e
  213. spr4pth        equ $130
  214. spr4ptl        equ $132
  215. spr5pth        equ $134
  216. spr5ptl        equ $136
  217. spr6pth        equ $138
  218. spr6ptl        equ $13a
  219. spr7pth        equ $13c
  220. spr7ptl        equ $13e
  221. adkcon        equ   $09E
  222.  
  223.  
  224. ; move.l #length,d0
  225. ; moveq.l #2,d1    ; chipmem
  226. ; move.l 4.w,a6
  227. ; jsr allocmem(a6) = -198
  228.  
  229. ; tst.l d0
  230. ; beq.s ohbugger
  231. ; move.l d0,memaddr
  232.  
  233.  
  234. ; move.l 4.w,a6
  235. ; move.l memaddr,a1
  236. ; move.l #size,d0
  237. ; jsr freemem(a6) =-210
  238.  
  239.  
  240. ** This waits for the blitter to finish before allowing program
  241. ** execution to continue.
  242.  
  243.  
  244.  include "ab3:source_4000/protsetupdecode"
  245.  
  246.  
  247. SAVEREGS MACRO
  248.  movem.l d0-d7/a0-a6,-(a7)
  249.  ENDM
  250.  
  251. GETREGS MACRO
  252.  movem.l (a7)+,d0-d7/a0-a6
  253.  ENDM
  254.  
  255.  
  256. WB MACRO
  257. \@bf:
  258.  btst #6,dmaconr(a6)
  259.  bne.s \@bf
  260.  ENDM
  261.  
  262. WBa MACRO
  263. \@bf:
  264.  move.w #\2,$dff180
  265.  
  266.  btst #6,$bfe001
  267.  bne.s \@bf
  268. \@bz:
  269.  
  270.  move.w #$f0f,$dff180
  271.  
  272.  btst #6,$bfe001
  273.  beq.s \@bz
  274.  
  275.  ENDM
  276.  
  277. *Another version for when a6 <> dff000
  278.  
  279. WBSLOW MACRO
  280. \@bf:
  281.  btst #6,$dff000+dmaconr
  282.  bne.s \@bf
  283.  ENDM
  284.  
  285. WT MACRO
  286. \@bf:
  287.  btst #6,(a3)
  288.  bne.s \@bd
  289.  rts
  290. \@bd: 
  291.  btst #4,(a0)
  292.  beq.s \@bf
  293.  ENDM
  294.  
  295. WTNOT MACRO
  296. \@bf:
  297.  btst #6,(a3)
  298.  bne.s \@bd
  299.  rts
  300. \@bd: 
  301.  btst #4,(a0)
  302.  bne.s \@bf
  303.  ENDM
  304.  
  305. **
  306.  
  307.  include "ab3:source_4000/ProtectionProtection"
  308.  include "macros.i"
  309.  include "ab3:source_4000/defs.i"
  310.  
  311. ;wtclickk:
  312. ; btst #6,$bfe001
  313. ; bne.s wtclickk
  314.  
  315.  move.w (a0)+,LEVTOPLAY
  316.  
  317.  
  318.  jsr MakePatch
  319.  
  320. ;    FLASHER $0f0,$fff
  321.  
  322. ; PROTFCALC
  323. ; PROTGCALC
  324. ; PROTHCALC
  325. ; PROTICALC
  326. ; PROTKCALC
  327. ; PROTLCALC
  328. ; PROTMCALC
  329.  
  330.  
  331.  
  332.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  333.  move.w intenar(a6),_storeint
  334.  and.w #$c000,_storeint
  335.  
  336.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  337.  
  338.  
  339.  st GOURSEL
  340.  
  341.  move.l 4.w,a6
  342.  lea VBLANKInt(pc),a1
  343.  moveq #INTB_COPER,d0
  344.  jsr _LVOAddIntServer(a6)
  345.  
  346.     IFEQ CD32VER
  347.  move.l 4.w,a6
  348.  lea KEYInt(pc),a1
  349.  moveq #INTB_PORTS,d0
  350.  jsr _LVOAddIntServer(a6)
  351.     ENDC
  352.  
  353.  IFNE CD32VER
  354.  clr.b PLR1KEYS
  355.  clr.b PLR1PATH
  356.  clr.b PLR1MOUSE
  357.  st PLR1JOY
  358.  clr.b PLR2KEYS
  359.  clr.b PLR2PATH
  360.  clr.b PLR2MOUSE
  361.  st PLR2JOY
  362.  ELSE
  363.  st PLR1KEYS
  364.  clr.b PLR1PATH
  365.  clr.b PLR1MOUSE
  366.  clr.b PLR1JOY
  367.  st PLR2KEYS
  368.  clr.b PLR2PATH
  369.  clr.b PLR2MOUSE
  370.  clr.b PLR2JOY
  371.  ENDC
  372.  
  373.  PRSDO
  374.  
  375.  move.l #2,d1    
  376.  move.l #10280*2,d0
  377.  move.l 4.w,a6
  378.  jsr -198(a6)
  379.  move.l d0,TEXTSCRN
  380.  move.w d0,TSPTl
  381.  swap d0
  382.  move.w d0,TSPTh
  383.  swap d0
  384.  add.w #80,d0
  385.  move.w d0,TSPTl2
  386.  swap d0
  387.  move.w d0,TSPTh2
  388.  
  389.  move.l #nullspr,d0
  390.  move.w d0,txs0l
  391.  move.w d0,txs1l
  392.  move.w d0,txs2l
  393.  move.w d0,txs3l
  394.  move.w d0,txs4l
  395.  move.w d0,txs5l
  396.  move.w d0,txs6l
  397.  move.w d0,txs7l
  398.  swap d0
  399.  move.w d0,txs0h
  400.  move.w d0,txs1h
  401.  move.w d0,txs2h
  402.  move.w d0,txs3h
  403.  move.w d0,txs4h
  404.  move.w d0,txs5h
  405.  move.w d0,txs6h
  406.  move.w d0,txs7h 
  407.  
  408.  move.l #0,d1    
  409.  move.l #140000,d0
  410.  move.l 4.w,a6
  411.  jsr -198(a6)
  412.  move.l d0,LEVELDATA
  413.  
  414.  move.l #0,d1
  415.  
  416.  ifeq CHEESEY    
  417.  move.l #320*256,d0
  418.  endc
  419.  
  420.  ifne CHEESEY
  421.  move.l #320*160,d0
  422.  endc
  423.  
  424.  move.l 4.w,a6
  425.  jsr -198(a6)
  426.  move.l d0,FASTBUFFER
  427.  
  428.  
  429.  move.l #consttab,a0
  430.  moveq #1,d0
  431.  move.w #8191,d1
  432. fillconst:
  433.  
  434.  move.l #16384*64,d2
  435.  divs.l d0,d2
  436. ; ext.l d2    ;c#
  437.  move.l #64*64*65536,d3
  438.  divs.l d2,d3
  439. ; move.l d3,d4
  440. ; asr.l #6,d4
  441.  move.l d3,(a0)+    ;e#
  442.   
  443.  asr.l #1,d2    ; c#/2.0
  444.  sub.l #40*64,d2    ; d#
  445.  muls.l d3,d2    ; d#*e#
  446.  
  447.  asr.l #6,d2
  448.  move.l d2,(a0)+
  449.  
  450.  addq #1,d0
  451.  
  452.  dbra d1,fillconst
  453.  
  454.  jsr START
  455.  
  456.  rts
  457.  
  458. FASTBUFFER: dc.l 0
  459.  
  460. _storeint
  461.     dc.w 0
  462.  
  463. * Load level into buffers.
  464.  clr.b doanything
  465.  clr.b dosounds
  466.  
  467. ; DRAW TEXT SCREEN
  468.  
  469. TWEENTEXT:
  470.  
  471.  move.l #LEVELTEXT,a0
  472.  move.w PLOPT,d0
  473.  muls #82*16,d0
  474.  add.l d0,a0
  475.  
  476.  move.w #15,d7
  477.  move.w #0,d0
  478. DOWNTEXT:
  479.  move.l TEXTSCRN,a1
  480.  jsr DRAWLINEOFTEXT
  481.  addq #1,d0
  482.  add.w #82,a0
  483.  dbra d7,DOWNTEXT
  484.  rts
  485.  
  486. FONTADDRS:
  487.  dc.l ENDFONT0,CHARWIDTHS0
  488.  dc.l ENDFONT1,CHARWIDTHS1
  489.  dc.l ENDFONT2,CHARWIDTHS2
  490.  
  491. ENDFONT0:
  492.  incbin "endfont0"
  493. CHARWIDTHS0:
  494.  incbin "charwidths0"
  495. ENDFONT1:
  496. ; incbin "endfont1"
  497. CHARWIDTHS1:
  498. ; incbin "charwidths1"
  499. ENDFONT2:
  500. ; incbin "endfont2"
  501. CHARWIDTHS2:
  502. ; incbin "charwidths2"
  503.  
  504.  even
  505.  
  506. DRAWLINEOFTEXT:
  507.  movem.l d0/a0/d7,-(a7)
  508.  
  509.  muls #80*16,d0
  510.  add.l d0,a1    ; screen pointer
  511.  
  512.  move.l #FONTADDRS,a3
  513.  moveq #0,d0
  514.  move.b (a0)+,d0
  515.  move.l (a3,d0.w*8),a2
  516.  move.l 4(a3,d0.w*8),a3
  517.  
  518.  moveq #0,d4
  519.  
  520.  moveq #0,d1    ; width counter:
  521.  move.w #79,d6
  522.  tst.b (a0)+
  523.  beq.s NOTCENTRED
  524.  moveq #-1,d5
  525.  move.l a0,a4
  526.  moveq #0,d2
  527.  moveq #0,d3
  528.  move.w #79,d0    ; number of chars
  529. .addup:
  530.  addq #1,d5
  531.  move.b (a4)+,d2
  532.  move.b -32(a3,d2.w),d4
  533.  add.w d4,d3
  534.  cmp.b #32,d2
  535.  beq.s .DONTPUTIN
  536.  move.w d5,d6
  537.  move.w d3,d1
  538. .DONTPUTIN:
  539.  dbra d0,.addup
  540.  asr.w #1,d1
  541.  neg.w d1
  542.  add.w #320,d1    ; horiz pos of start x
  543.  
  544. NOTCENTRED:
  545.  
  546.  move.w d6,d7
  547. DOACHAR:
  548.  moveq #0,d2
  549.  move.b (a0)+,d2
  550.  sub.w #32,d2
  551.  moveq #0,d6
  552.  move.b (a3,d2.w),d6
  553.  asl.w #5,d2
  554.  lea (a2,d2.w),a4    ; char font
  555. val SET 0
  556.  REPT 16
  557.  move.w (a4)+,d0
  558.  bfins d0,val(a1){d1:d6}
  559. val SET val+80
  560.  ENDR
  561.  add.w d6,d1
  562.  dbra d7,DOACHAR
  563.  movem.l (a7)+,d0/a0/d7
  564.  rts 
  565.  
  566.  
  567. CLRTWEENSCRN:
  568.  move.l TEXTSCRN,a0
  569.  move.w #(10240/16)-1,d0
  570.  move.l #$0,d1
  571. .lll
  572.  move.l d1,(a0)+
  573.  move.l d1,(a0)+
  574.  move.l d1,(a0)+
  575.  move.l d1,(a0)+
  576.  move.l d1,(a0)+
  577.  move.l d1,(a0)+
  578.  move.l d1,(a0)+
  579.  move.l d1,(a0)+
  580.  dbra d0,.lll
  581.  rts
  582.  
  583. LEVTOPLAY: dc.w 0
  584.  
  585. COPYLINK: dc.l 0
  586.  
  587. PLAYTHEGAME:
  588.  
  589.  move.w #0,TXTCOLL
  590.  move.w #0,MIXCOLL
  591.  move.w #0,TOPCOLL
  592.  
  593.  bsr CLRTWEENSCRN
  594.  
  595.  cmp.b #'n',mors
  596.  bne.s .notext
  597.  bsr TWEENTEXT
  598. .notext
  599.  
  600. ;charlie 
  601.  move.l #TEXTCOP,$dff080
  602.  
  603.  move.w #$10,d0
  604.  move.w #7,d1
  605.  
  606. .fdup
  607.  move.w d0,TXTCOLL
  608.  move.w d0,MIXCOLL
  609.  add.w #$121,d0
  610. .wtframe:
  611.  btst #5,$dff000+intreqrl
  612.  beq.s .wtframe
  613.  move.w #$0020,$dff000+intreq
  614.  dbra d1,.fdup
  615.  
  616.  jsr INITCOPPERSCRN
  617.  
  618.  move.l #$dff000,a6
  619.  jsr SETPLAYERS
  620.  
  621.  move.l #0,TYPEOFMEM
  622.  move.l #LLname,a0
  623.  jsr LOADAFILE
  624.  move.l d0,LINKS
  625.  
  626.  move.l #0,TYPEOFMEM
  627.  move.l #LLFname,a0
  628.  jsr LOADAFILE
  629.  move.l d0,FLYLINKS
  630.  
  631. ; Get level memory.
  632.  
  633.  move.l #1,d1
  634.  move.l #40000,d0
  635.  move.l 4.w,a6
  636.  jsr -198(a6)
  637.  move.l d0,LEVELGRAPHICS
  638.  
  639.  move.l #1,d1
  640.  move.l #40000,d0
  641.  move.l 4.w,a6
  642.  jsr -198(a6)
  643.  move.l d0,LEVELCLIPS
  644.  
  645.  move.l #2,d1
  646.  move.l #70000,d0
  647.  move.l 4.w,a6
  648.  jsr -198(a6)
  649.  move.l d0,LEVELMUSIC
  650.  
  651.  move.l #$dff000,a6
  652.  
  653. ; move.b LEVTOPLAY,d0
  654. ; move.b d0,LEVA
  655. ; move.b d0,LEVB
  656. ; move.b d0,LEVC
  657. ; move.b d0,LEVD
  658. ; move.b d0,LEVE
  659.  
  660.  
  661. ; move.l #LEVELDATAD,LEVELDATA
  662. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  663. ; move.l #LEVELCLIPSD,LEVELCLIPS
  664.  
  665. ; bra noload
  666.  
  667. *********************************
  668.  
  669. ; move.l doslib,a6
  670. ; move.l #LLname,d1
  671. ; move.l #1005,d2
  672. ; jsr -30(a6)
  673. ; move.l d0,LLhandle
  674. ;
  675. ; move.l doslib,a6
  676. ; move.l d0,d1
  677. ; move.l #LINKS,d2
  678. ; move.l #10000,d3
  679. ; jsr -42(a6)
  680. ;
  681. ; move.l doslib,a6
  682. ; move.l LLhandle,d1
  683. ; jsr -36(a6)
  684.  
  685.  ********************************
  686.  
  687. ; move.l doslib,a6
  688. ; move.l #LLFname,d1
  689. ; move.l #1005,d2
  690. ; jsr -30(a6)
  691. ; move.l d0,LLhandle
  692.  
  693. ; move.l doslib,a6
  694. ; move.l d0,d1
  695. ; move.l #FLYLINKS,d2
  696. ; move.l #10000,d3
  697. ; jsr -42(a6)
  698.  
  699. ; move.l doslib,a6
  700. ; move.l LLhandle,d1
  701. ; jsr -36(a6)
  702.  
  703.  ************************
  704.  ********
  705.  
  706.  moveq #0,d1
  707.  move.b LEVA,d1
  708.  sub.b #'a',d1
  709.  lsl.w #6,d1
  710.  move.l LINKFILE,a6
  711.  add.l #LevelMusic,a6
  712.  add.l d1,a6
  713.  move.l a6,d1
  714.  
  715.  move.l doslib,a6
  716.  
  717.  move.l #1005,d2
  718.  jsr -30(a6)
  719.  move.l d0,LDhandle
  720.  
  721.  move.l doslib,a6
  722.  move.l d0,d1
  723.  move.l LEVELCLIPS,d2
  724.  move.l #40000,d3
  725.  jsr -42(a6)
  726.  
  727.  move.l doslib,a6
  728.  move.l LDhandle,d1
  729.  jsr -36(a6)
  730.  
  731. *************************************
  732.     move.l    LEVELCLIPS,d0
  733.     moveq    #0,d1
  734.     move.l LEVELMUSIC,a0
  735.     lea    WorkSpace,a1
  736.     lea    $0,a2
  737.     jsr    unLHA
  738. *************************************
  739.  
  740.  
  741.  move.l doslib,a6
  742.  move.l #LDname,d1
  743.  move.l #1005,d2
  744.  jsr -30(a6)
  745.  move.l d0,LDhandle
  746.  
  747.  move.l doslib,a6
  748.  move.l d0,d1
  749.  move.l LEVELCLIPS,d2
  750.  move.l #40000,d3
  751.  jsr -42(a6)
  752.  
  753.  move.l doslib,a6
  754.  move.l LDhandle,d1
  755.  jsr -36(a6)
  756.  
  757. *************************************
  758.     move.l    LEVELCLIPS,d0
  759.     moveq    #0,d1
  760.     move.l LEVELDATA,a0
  761.     lea    WorkSpace,a1
  762.     lea    $0,a2
  763.     jsr    unLHA
  764. *************************************
  765.  
  766. ********
  767.  
  768.  move.l doslib,a6
  769.  move.l #LGname,d1
  770.  move.l #1005,d2
  771.  jsr -30(a6)
  772.  move.l d0,LGhandle
  773.  
  774.  move.l doslib,a6
  775.  move.l d0,d1
  776.  move.l LEVELCLIPS,d2
  777.  move.l #40000,d3
  778.  jsr -42(a6)
  779.  
  780.  move.l doslib,a6
  781.  move.l LGhandle,d1
  782.  jsr -36(a6)
  783.  
  784. *************************************
  785.     move.l    LEVELCLIPS,d0
  786.     moveq    #0,d1
  787.     move.l LEVELGRAPHICS,a0
  788.     lea    WorkSpace,a1
  789.     lea    $0,a2
  790.     jsr    unLHA
  791. *************************************
  792.  
  793. ********
  794.  
  795.  move.l doslib,a6
  796.  move.l #LCname,d1
  797.  move.l #1005,d2
  798.  jsr -30(a6)
  799.  move.l d0,LChandle
  800.  
  801.  move.l doslib,a6
  802.  move.l d0,d1
  803.  move.l #WorkSpace+16384,d2
  804.  move.l #16000,d3
  805.  jsr -42(a6)
  806.  
  807.  move.l doslib,a6
  808.  move.l LChandle,d1
  809.  jsr -36(a6)
  810.  
  811. *************************************
  812.     move.l    #WorkSpace+16384,d0
  813.     moveq    #0,d1
  814.     move.l LEVELCLIPS,a0
  815.     lea    WorkSpace,a1
  816.     lea    $0,a2
  817.     jsr    unLHA
  818. *************************************
  819.  
  820.  
  821. *******
  822.  
  823. noload:
  824.  
  825. ********
  826.  
  827. ; move.l doslib,a6
  828. ; move.l #Prefsname,d1
  829. ; move.l #1005,d2
  830. ; jsr -30(a6)
  831. ; move.l d0,Prefshandle
  832.  
  833. ; move.l doslib,a6
  834. ; move.l d0,d1
  835. ; move.l #Prefsfile,d2
  836. ; move.l #50,d3
  837. ; jsr -42(a6)
  838.  
  839. ; move.l doslib,a6
  840. ; move.l Prefshandle,d1
  841. ; jsr -36(a6)
  842.  
  843. *******
  844.  
  845.  IFNE CD32VER
  846.  move.l doslib,a6
  847.  move.l #115,d1
  848.  jsr -198(a6)
  849.  ENDC
  850.  
  851.  
  852. ; move.l doslib,d0
  853. ; move.l d0,a1
  854. ; move.l 4.w,a6
  855. ; jsr CloseLib(a6)
  856.  
  857.  move.l #$dff000,a6
  858.  
  859. charlie:
  860. ; jmp  ENDGAMESCROLL
  861.  
  862.     move.w #$87c0,dmacon(a6)
  863.  
  864.     move.w    #%1000000000100000,dmacon(a6)
  865.  
  866. ; move.w intenar(a6),saveinters
  867.     
  868.     move.w #%00101111,intena(a6)
  869.  
  870.     move.w #255,adkcon(a6)
  871.  
  872.  
  873. *** Put myself in supervisor mode
  874.  
  875.  bra blag
  876. ; move.l $6c,d0
  877. ; move.l #blag,$6c
  878. ; move.w #$8010,intreq(a6)
  879.  
  880.  rts
  881.  
  882. saveit: ds.l 10
  883. doslibname: dc.b 'dos.library',0
  884.  even
  885. doslib: dc.l 0
  886.  
  887. mors: dc.w 0
  888.  
  889. LDname: dc.b 'tkg2:levels/level_'
  890. LEVA:
  891.  dc.b 'a/twolev.bin',0
  892.  even
  893. LDhandle: dc.l 0
  894. LGname: dc.b 'tkg2:levels/level_'
  895. LEVB:
  896.  dc.b 'a/twolev.graph.bin',0
  897.  even
  898. LGhandle: dc.l 0
  899. LCname: dc.b 'tkg2:levels/level_'
  900. LEVC:
  901.  dc.b 'a/twolev.clips',0
  902.  even
  903. LChandle: dc.l 0
  904. LLname: dc.b 'tkg2:levels/level_'
  905. LEVD:
  906.  dc.b 'a/twolev.map',0
  907.  even
  908. LLFname: dc.b 'tkg2:levels/level_'
  909. LEVE:
  910.  dc.b 'a/twolev.flymap',0
  911.  even
  912. LLhandle: dc.l 0
  913.  
  914.     cnop    0,4
  915.  
  916. Prefsname: dc.b 'ram:prefs',0
  917.  even
  918. Prefshandle: dc.l 0
  919.  
  920.  
  921.  even
  922.  
  923.  cnop 0,4
  924.  
  925. VBLANKInt
  926.  dc.l 0,0
  927.  dc.b NT_INTERRUPT,9
  928.  dc.l Prefsname
  929.  dc.l 0
  930.  dc.l Chan0inter
  931.  
  932.  
  933. KEYInt
  934.  dc.l 0,0
  935.  dc.b NT_INTERRUPT,127
  936.  dc.l Prefsname
  937.  dc.l 0
  938.  dc.l key_interrupt
  939.  
  940.  
  941. blag:
  942. ; move.w #$10,intreq(a6)
  943. ; move.l d0,$6c
  944. ; move.w #$7fff,intena(a6)
  945.  
  946. ; move.w #$20,$dff1dc
  947.  
  948. ; move.l 4.w,a6
  949. ; lea VBLANKInt(pc),a1
  950. ; moveq #INTB_COPER,d0
  951. ; jsr _LVOAddIntServer(a6)
  952.  
  953. ****************************
  954. * Initialize level
  955. ****************************
  956. * Poke all clip offsets into
  957. * correct bit of level data.
  958. ****************************
  959.  move.l LEVELGRAPHICS,a0
  960.  move.l 12(a0),a1
  961.  add.l a0,a1
  962.  move.l a1,ZoneGraphAdds
  963.  move.l (a0),a1
  964.  add.l a0,a1
  965.  move.l a1,DoorData
  966.  move.l 4(a0),a1
  967.  add.l a0,a1
  968.  move.l a1,LiftData
  969.  move.l 8(a0),a1
  970.  add.l a0,a1
  971.  move.l a1,SwitchData
  972.  adda.w #16,a0
  973.  move.l a0,ZoneAdds
  974.  
  975.  move.l LEVELDATA,a4
  976.  lea 160*10(a4),a1
  977.  
  978.  lea 54(a1),a2
  979.  move.l a2,CPtPos
  980.  move.w 12(a1),NumCPts
  981.  move.w 14(a1),NumLevPts
  982.  
  983.  move.l 16+6(a1),a2
  984.  add.l a4,a2
  985.  move.l a2,Points
  986.  move.w 8+6(a1),d0
  987.  lea 4(a2,d0.w*4),a2
  988.  move.l a2,PointBrights
  989.  move.w 16(a1),d0
  990.  addq #1,d0
  991.  muls #80,d0
  992.  add.l d0,a2
  993.  move.l a2,ZoneBorderPts
  994.  
  995.  move.l 20+6(a1),a2
  996.  add.l a4,a2
  997.  move.l a2,FloorLines
  998.  move.w -2(a2),ENDZONE
  999.  move.l 24+6(a1),a2
  1000.  add.l a4,a2
  1001.  move.l a2,ObjectData
  1002. *****************************************
  1003. * Just for charles
  1004.  
  1005. ; move.w #$6060,6(a2)
  1006. ; move.l #$d0000,8(a2)
  1007. ; sub.w #40,4(a2)
  1008. ; move.w #45*256+45,14(a2)
  1009. ****************************************
  1010.  move.l 28+6(a1),a2
  1011.  add.l a4,a2
  1012.  move.l a2,PlayerShotData
  1013.  move.l 32+6(a1),a2
  1014.  add.l a4,a2
  1015.  move.l a2,NastyShotData
  1016.  
  1017.  add.l #64*20,a2
  1018.  move.l a2,OtherNastyData
  1019.  
  1020.  move.l 36+6(a1),a2
  1021.  add.l a4,a2
  1022.  move.l a2,ObjectPoints  
  1023.  move.l 40+6(a1),a2
  1024.  add.l a4,a2
  1025.  move.l a2,PLR1_Obj
  1026.  move.l 44+6(a1),a2
  1027.  add.l a4,a2
  1028.  move.l a2,PLR2_Obj
  1029.  move.w 14+6(a1),NumObjectPoints
  1030.  
  1031. ; bra noclips
  1032.   
  1033.  move.l LEVELCLIPS,a2
  1034.  moveq #0,d0
  1035.  move.w 10+6(a1),d7    ;numzones
  1036.  move.w d7,NUMZONES
  1037. assignclips:
  1038.  move.l (a0)+,a3
  1039.  add.l a4,a3    ; pointer to a zone
  1040.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  1041. dowholezone:
  1042.  tst.w (a3)
  1043.  blt.s nomorethiszone
  1044.  tst.w 2(a3)
  1045.  blt.s thisonenull
  1046.  
  1047.  move.l d0,d1
  1048.  asr.l #1,d1
  1049.  move.w d1,2(a3)
  1050.  
  1051. findnextclip:
  1052.  cmp.w #-2,(a2,d0.l)
  1053.  beq.s foundnextclip
  1054.  addq.l #2,d0
  1055.  bra.s findnextclip
  1056. foundnextclip
  1057.  addq.l #2,d0
  1058.  
  1059. thisonenull:
  1060.  addq #8,a3 
  1061.  bra.s dowholezone
  1062. nomorethiszone:
  1063.  dbra d7,assignclips
  1064.  
  1065.  lea (a2,d0.l),a2
  1066.  move.l a2,CONNECT_TABLE
  1067.  
  1068. noclips:
  1069.  
  1070. * Put in addresses of glowything
  1071.  
  1072.  
  1073. ************************************
  1074.  
  1075. ; cmp.b #'k',Prefsfile
  1076. ; bne.s nkb
  1077.  
  1078. ;nkb:
  1079. ; cmp.b #'m',Prefsfile
  1080. ; bne.s nmc
  1081. ; clr.b PLR1KEYS
  1082. ; clr.b PLR1PATH
  1083. ; st PLR1MOUSE
  1084. ; clr.b PLR1JOY
  1085. ;nmc:
  1086. ; cmp.b #'j',Prefsfile
  1087. ; bne.s njc
  1088. ; clr.b PLR1KEYS
  1089. ; clr.b PLR1PATH
  1090. ; clr.b PLR1MOUSE
  1091. ; st PLR1JOY
  1092. ;njc:
  1093.  
  1094.  clr.b PLR1_StoodInTop
  1095.  move.l #playerheight,PLR1s_height
  1096.  
  1097.  move.l #empty,pos1LEFT
  1098.  move.l #empty,pos2LEFT
  1099.  move.l #empty,pos1RIGHT
  1100.  move.l #empty,pos2RIGHT
  1101.  move.l #empty,pos0LEFT
  1102.  move.l #empty,pos3LEFT
  1103.  move.l #empty,pos0RIGHT
  1104.  move.l #empty,pos3RIGHT
  1105.  move.l #emptyend,Samp0endLEFT
  1106.  move.l #emptyend,Samp1endLEFT
  1107.  move.l #emptyend,Samp0endRIGHT
  1108.  move.l #emptyend,Samp1endRIGHT
  1109.  move.l #emptyend,Samp2endLEFT
  1110.  move.l #emptyend,Samp3endLEFT
  1111.  move.l #emptyend,Samp2endRIGHT
  1112.  move.l #emptyend,Samp3endRIGHT
  1113.  
  1114.  
  1115.  move.l #nullline,d0
  1116.  move.w d0,n1l
  1117.  swap d0
  1118.  move.w d0,n1h
  1119.  
  1120.  move.l Panel,d0
  1121.  move.w d0,p1l
  1122.  swap d0
  1123.  move.w d0,p1h
  1124.  swap d0
  1125.  add.l #40,d0
  1126.  move.w d0,p2l
  1127.  swap d0
  1128.  move.w d0,p2h
  1129.  swap d0
  1130.  add.l #40,d0
  1131.  move.w d0,p3l
  1132.  swap d0
  1133.  move.w d0,p3h
  1134.  swap d0
  1135.  add.l #40,d0
  1136.  move.w d0,p4l
  1137.  swap d0
  1138.  move.w d0,p4h
  1139.  swap d0
  1140.  add.l #40,d0
  1141.  move.w d0,p5l
  1142.  swap d0
  1143.  move.w d0,p5h
  1144.  swap d0
  1145.  add.l #40,d0
  1146.  move.w d0,p6l
  1147.  swap d0
  1148.  move.w d0,p6h
  1149.  swap d0
  1150.  add.l #40,d0
  1151.  move.w d0,p7l
  1152.  swap d0
  1153.  move.w d0,p7h
  1154.  swap d0
  1155.  add.l #40,d0
  1156.  move.w d0,p8l
  1157.  swap d0
  1158.  move.w d0,p8h
  1159.  
  1160. *******************************
  1161. * TIMER SCREEN SETUP
  1162. ; move.l #TimerScr,d0
  1163. ; move.w d0,p1l
  1164. ; swap d0
  1165. ; move.w d0,p1h
  1166. ; move.w #$1201,Panelcon
  1167.  
  1168. ; move.l #borders,d0
  1169. ; move.w d0,s0l
  1170. ; swap d0
  1171. ; move.w d0,s0h
  1172. ; move.l #borders+2592,d0
  1173. ; move.w d0,s1l
  1174. ; swap d0
  1175. ; move.w d0,s1h
  1176. ; move.l #borders+2592*2,d0
  1177. ; move.w d0,s2l
  1178. ; swap d0
  1179. ; move.w d0,s2h
  1180. ; move.l #borders+2592*3,d0
  1181. ; move.w d0,s3l
  1182. ; swap d0
  1183. ; move.w d0,s3h
  1184.  
  1185.  move.l #nullspr,d0
  1186.  move.w d0,s0l
  1187.  move.w d0,s1l
  1188.  move.w d0,s2l
  1189.  move.w d0,s3l
  1190.  
  1191.  move.w d0,s4l
  1192.  move.w d0,s5l
  1193.  move.w d0,s6l
  1194.  move.w d0,s7l
  1195.  swap d0
  1196.  
  1197.  move.w d0,s0h
  1198.  move.w d0,s1h
  1199.  move.w d0,s2h
  1200.  move.w d0,s3h
  1201.  
  1202.  move.w d0,s4h
  1203.  move.w d0,s5h
  1204.  move.w d0,s6h
  1205.  move.w d0,s7h 
  1206.  
  1207.  
  1208. ; move.w #52*256+64,borders
  1209. ; move.w #212*256+0,borders+8
  1210. ; move.w #52*256+64,borders+2592
  1211. ; move.w #212*256+128,borders+8+2592
  1212. ; move.w #52*256+192,borders+2592*2
  1213. ; move.w #212*256+0,borders+8+2592*2
  1214. ; move.w #52*256+192,borders+2592*3
  1215. ; move.w #212*256+128,borders+8+2592*3
  1216.  
  1217.  move.l #FacePlace,d0
  1218.  move.w d0,f1l
  1219.  swap d0
  1220.  move.w d0,f1h
  1221.  move.l #FacePlace+32*24,d0
  1222.  move.w d0,f2l
  1223.  swap d0
  1224.  move.w d0,f2h
  1225.  move.l #FacePlace+32*24*2,d0
  1226.  move.w d0,f3l
  1227.  swap d0
  1228.  move.w d0,f3h
  1229.  move.l #FacePlace+32*24*3,d0
  1230.  move.w d0,f4l
  1231.  swap d0
  1232.  move.w d0,f4h
  1233.  move.l #FacePlace+32*24*4,d0
  1234.  move.w d0,f5l
  1235.  swap d0
  1236.  move.w d0,f5h
  1237.   
  1238.  
  1239.  move.l #bigfield,d0
  1240.  move.w d0,ocl
  1241.  swap d0
  1242.  move.w d0,och
  1243.  
  1244.  bset.b #1,$bfe001
  1245.  
  1246. ; jmp stuff
  1247. ;endstuff:
  1248.  
  1249.  move.w #$00ff,$dff09e
  1250.  
  1251. ; move.l #Blurbfield,$dff080
  1252.  
  1253.  move.w #0,d0
  1254.  
  1255.  move.l scrn,d0
  1256.  move.w d0,pl1l
  1257.  swap d0
  1258.  move.w d0,pl1h
  1259.  
  1260.  swap d0
  1261.  add.l #10240,d0
  1262.  move.w d0,pl2l
  1263.  swap d0
  1264.  move.w d0,pl2h
  1265.  
  1266.  swap d0
  1267.  add.l #10240,d0
  1268.  move.w d0,pl3l
  1269.  swap d0
  1270.  move.w d0,pl3h
  1271.  
  1272.  swap d0
  1273.  add.l #10240,d0
  1274.  move.w d0,pl4l
  1275.  swap d0
  1276.  move.w d0,pl4h
  1277.  
  1278.  swap d0
  1279.  add.l #10240,d0
  1280.  move.w d0,pl5l
  1281.  swap d0
  1282.  move.w d0,pl5h
  1283.  
  1284.  swap d0
  1285.  add.l #10240,d0
  1286.  move.w d0,pl6l
  1287.  swap d0
  1288.  move.w d0,pl6h
  1289.  
  1290.  swap d0
  1291.  add.l #10240,d0
  1292.  move.w d0,pl7l
  1293.  swap d0
  1294.  move.w d0,pl7h
  1295.  
  1296.  swap d0
  1297.  add.l #10240,d0
  1298.  move.w d0,pl8l
  1299.  swap d0
  1300.  move.w d0,pl8h
  1301.  
  1302.  
  1303. ****************************
  1304.  jsr INITPLAYER
  1305. ; bsr initobjpos
  1306. ****************************
  1307.  
  1308.  
  1309.  move.l #$dff000,a6
  1310.  
  1311.  move.l #null,$dff0a0
  1312.  move.w #100,$dff0a4
  1313.  move.w #443,$dff0a6
  1314.  move.w #63,$dff0a8
  1315.  
  1316.  move.l #null2,$dff0b0
  1317.  move.w #100,$dff0b4
  1318.  move.w #443,$dff0b6
  1319.  move.w #63,$dff0b8
  1320.  
  1321.  move.l #null4,$dff0c0
  1322.  move.w #100,$dff0c4
  1323.  move.w #443,$dff0c6
  1324.  move.w #63,$dff0c8
  1325.  
  1326.  move.l #null3,$dff0d0
  1327.  move.w #100,$dff0d4
  1328.  move.w #443,$dff0d6
  1329.  move.w #63,$dff0d8
  1330.  
  1331.  ifeq CHEESEY
  1332.  
  1333.  move.l #tab,a1
  1334.  move.w #64,d7
  1335.  move.w #0,d6
  1336. outerlop
  1337.  move.l #pretab,a0
  1338.  move.w #255,d5
  1339. scaledownlop:
  1340.  move.b (a0)+,d0
  1341.  ext.w d0
  1342.  ext.l d0
  1343.  muls d6,d0
  1344.  asr.l #6,d0
  1345.  move.b d0,(a1)+
  1346.  dbra d5,scaledownlop
  1347.  addq #1,d6
  1348.  dbra d7,outerlop
  1349.  
  1350.  endc
  1351.  
  1352.  move.l #$dff000,a6
  1353.  
  1354.  move.w #$c008,intena(a6)
  1355.  
  1356.  move.w #$f,dmacon(a6)
  1357.  move.w #$820f,dmacon(a6)
  1358.  
  1359. ; bsr protinit
  1360.  
  1361.  
  1362. ; move.w #$20,$1dc(a6)
  1363.  
  1364.  move.w #$0,$dff034
  1365.  move.w #0,Conditions
  1366.  
  1367.  cmp.b #'n',mors
  1368.  beq.s .nokeys
  1369.  move.w #%111111111111,Conditions
  1370. .nokeys:
  1371.  
  1372.  move.l #KeyMap,a5
  1373.  clr.b $45(a5)
  1374.  
  1375.  move.l LEVELMUSIC,mt_data
  1376.  clr.b UseAllChannels
  1377.  
  1378. ; cmp.b #'b',Prefsfile+3
  1379. ; bne.s .noback
  1380.  
  1381. *********************************
  1382.  
  1383.  st CHANNELDATA
  1384.  jsr mt_init
  1385.  
  1386. *********************************
  1387.  
  1388.  
  1389. ;.noback:
  1390.  
  1391.  
  1392. ;
  1393. ; clr.b CHANNELDATA
  1394. ; clr.b CHANNELDATA+8
  1395. ; clr.b CHANNELDATA+16
  1396. ; clr.b CHANNELDATA+24
  1397. ;
  1398. ; cmp.b #'b',Prefsfile+3
  1399. ; bne.s noreserve
  1400. ;
  1401.  st CHANNELDATA
  1402.  st CHANNELDATA+8
  1403. ; st CHANNELDATA+16
  1404. ; st CHANNELDATA+24
  1405. ;noreserve: 
  1406.  
  1407. ; st CHANNELDATA
  1408. ; st CHANNELDATA+8
  1409.  
  1410.  move.l SampleList+6*8,pos0LEFT
  1411.  move.l SampleList+6*8+4,Samp0endLEFT
  1412.  move.l #playerheight,PLR1s_targheight
  1413.  move.l #playerheight,PLR1s_height
  1414.  move.l #playerheight,PLR2s_targheight
  1415.  move.l #playerheight,PLR2s_height
  1416.  
  1417. ; cmp.b #'n',mors
  1418. ; beq.s nohandshake
  1419. ;
  1420. ; move.b #%11011000,$bfd200
  1421. ; move.b #%00010000,$bfd000
  1422. ;waitloop:
  1423. ; btst.b #4,$bfd000
  1424. ; bne.s waitloop
  1425. ; move.b #%11000000,$bfd200
  1426.  
  1427. ;wtmouse:
  1428. ; btst #6,$bfe001
  1429. ; bne.s wtmouse
  1430.  
  1431. ;nohandshake:
  1432.  
  1433. ; jmp end
  1434.  
  1435. ; move.l COPSCRN1,drawpt
  1436. ; move.l COPSCRN2,olddrawpt
  1437.  
  1438.  jsr CLEARKEYBOARD
  1439. ; jsr MAKEBACKROUT
  1440.  
  1441.  clr.b MASTERQUITTING
  1442.  
  1443.  cmp.b #'n',mors
  1444.  seq SLAVEQUITTING
  1445.  
  1446. ; move.w #200,PLAYERTWOHEALTH
  1447. ; move.w #200,PLAYERONEHEALTH
  1448.  
  1449. ; move.l #ANOTHERSUP,$80
  1450. ; trap #0
  1451. ; rts
  1452. ;
  1453. ;ANOTHERSUP:
  1454.  
  1455.  move.l $4.w,a6
  1456.  jsr _LVOSuperState(a6)
  1457.  move.l d0,SSTACK
  1458.  
  1459.  CACHE_FREEZE_OFF d2
  1460.  
  1461. ; charlie
  1462. ; DATA_CACHE_ON d2
  1463.  
  1464.  DataCacheOn
  1465.  
  1466.  move.l $4.w,a6
  1467.  move.l SSTACK,d0
  1468.  jsr _LVOUserState(a6)
  1469.  
  1470.  move.l #0,hitcol
  1471.  
  1472.  cmp.b #'n',mors
  1473.  bne.s NOCLTXT
  1474.  
  1475.  move.b #0,lastpressed
  1476. .wtpress
  1477.  btst #6,$bfe001
  1478.  beq.s CLOSETXT
  1479.  btst #7,$bfe001
  1480.  beq.s CLOSETXT
  1481.  tst.b lastpressed
  1482.  beq.s .wtpress
  1483.  
  1484. CLOSETXT:
  1485.  
  1486.  move.w #$8f8,d0
  1487.  move.w #7,d1
  1488.  
  1489. .fdup
  1490.  move.w d0,TXTCOLL
  1491.  move.w d0,MIXCOLL
  1492.  sub.w #$121,d0
  1493. .wtframe:
  1494.  btst #5,$dff000+intreqrl
  1495.  beq.s .wtframe
  1496.  move.w #$0020,$dff000+intreq
  1497.  dbra d1,.fdup
  1498.  
  1499.  move.w #0,TXTCOLL
  1500.  move.w #0,MIXCOLL
  1501.  
  1502. NOCLTXT:
  1503.  
  1504.  
  1505.  
  1506.     move.l    4.w,a6
  1507.     jsr    _LVOForbid(a6)
  1508. ;    jsr    _LVODisable(a6)
  1509.  
  1510.  
  1511. ;    move.w    #%0111111111111111,intena+$dff000
  1512. ;    move.w    #%1000000011111111,intena+$dff000
  1513.  
  1514.  
  1515. ;charlie 
  1516.  move.l #PALETTEBIT,$dff084
  1517.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1518.  
  1519.  
  1520.  clr.b PLR1_Ducked
  1521.  clr.b PLR2_Ducked
  1522.  clr.b p1_ducked
  1523.  clr.b p2_ducked
  1524.  
  1525. ********************************************
  1526.  
  1527. ;    jmp docredits
  1528.  
  1529. ********************************************
  1530.  
  1531.  
  1532.  st doanything
  1533.  st dosounds
  1534.  
  1535.  jsr CLRNASTYMEM
  1536.  
  1537.  move.l #COMPACTMAP,a0
  1538.  move.l a0,LASTZONE
  1539.  move.w #255,d0
  1540. .clrmap
  1541.  move.l #0,(a0)+
  1542.  dbra d0,.clrmap
  1543.  
  1544.  move.l #COMPACTMAP,a0
  1545.  move.l #BIGMAP,a1
  1546.  
  1547.  bra NOALLWALLS
  1548.  
  1549.  move.l ZoneGraphAdds,a2
  1550. DOALLWALLS:
  1551.  move.l (a2),d0
  1552.  beq.s nomorezones
  1553.  move.l d0,a3
  1554.  
  1555.  addq #8,a2
  1556.  
  1557.  add.l LEVELGRAPHICS,a3
  1558.  addq #2,a3
  1559.  move.l a1,a4
  1560.  
  1561. ; DOLOWERROOM
  1562.  
  1563. innerwalls:
  1564.  move.b (a3),d1
  1565.  move.b 1(a3),d0
  1566.  bne doneinner
  1567.  
  1568.  tst.b d1
  1569.  blt noid
  1570.  
  1571.  move.b d1,d3
  1572.  and.w #15,d1
  1573.  
  1574.  moveq #0,d0
  1575.  move.w d1,d2
  1576.  add.w d1,d1
  1577.  add.w d2,d1
  1578.  addq #1,d1
  1579.  bset d1,d0
  1580.  btst #4,d3
  1581.  beq.s .nodoor
  1582.  addq #1,d1
  1583.  bset d1,d0
  1584. .nodoor
  1585.  
  1586.  or.l d0,(a0)
  1587.  
  1588.  move.w 2(a3),(a4)
  1589.  move.w 4(a3),2(a4)
  1590.  
  1591. noid:
  1592.  
  1593.  add.w #30,a3
  1594.  addq #4,a4
  1595.  
  1596.  bra innerwalls
  1597.  
  1598. doneinner:
  1599.  
  1600.  add.w #40,a1
  1601.  addq #4,a0
  1602.  
  1603.  bra DOALLWALLS
  1604. nomorezones:
  1605.  
  1606. NOALLWALLS
  1607.  
  1608.  move.w #96,MIDDLEX
  1609.  move.w #192,RIGHTX
  1610.  move.w #160,BOTTOMY
  1611.  move.w #80,TOTHEMIDDLE
  1612.  clr.b FULLSCR
  1613.  move.l scrn,a0
  1614.  jsr WIPEDISPLAY
  1615.  move.l scrn2,a0
  1616.  jsr WIPEDISPLAY
  1617.  
  1618.  st PLAYERONEGUNS+1
  1619.  st PLAYERTWOGUNS+1
  1620.  
  1621.  move.w #100,timetodamage
  1622.  
  1623.  move.w #299,d0
  1624.  move.l #DAMAGED,a0
  1625. CLRDAM:
  1626.  move.w #0,(a0)+
  1627.  dbra d0,CLRDAM
  1628.  
  1629.  moveq #0,d0
  1630.  move.w d0,STOPOFFSET
  1631.  neg.w d0
  1632.  add.w TOTHEMIDDLE,d0
  1633.  move.w d0,SMIDDLEY
  1634.  muls #320,d0
  1635.  move.l d0,SBIGMIDDLEY
  1636.  
  1637.  move.w #0,PLR1_AIMSPD
  1638.  move.w #0,PLR2_AIMSPD
  1639.  
  1640.  move.l scrn,SCRNSHOWPT
  1641.  
  1642.  move.l scrn2,SCRNDRAWPT
  1643.  
  1644.  
  1645.  
  1646.  move.l #MESSAGEBUFFER,a0
  1647.  move.w #19,d0
  1648. clrmessbuff:
  1649.  move.l #0,(a0)+
  1650.  dbra d0,clrmessbuff
  1651.  
  1652.  move.l #nullmessage,d0
  1653.  jsr SENDMESSAGE
  1654.  
  1655. lop:
  1656.  
  1657. ****************************
  1658. ; move.w #400,PLAYERONEHEALTH
  1659. ****************************
  1660.  
  1661.  move.w #%110000000000,$dff034
  1662.  
  1663. ; move.w COUNTER,d0
  1664. ; ext.l d0
  1665. ; divs #10,d0
  1666. ; swap d0
  1667. ; add.b #'0',d0
  1668. ; move.b d0,COUNTSPACE+2
  1669. ; swap d0
  1670. ; ext.l d0
  1671. ; divs #10,d0
  1672. ; swap d0
  1673. ; add.b #'0',d0
  1674. ; move.b d0,COUNTSPACE+1
  1675. ; swap d0
  1676. ; add.b #'0',d0
  1677. ; move.b d0,COUNTSPACE
  1678. ;
  1679. ; move.w COUNTER2,d0
  1680. ; ext.l d0
  1681. ; divs #10,d0
  1682. ; swap d0
  1683. ; add.b #'0',d0
  1684. ; move.b d0,COUNTSPACE+5
  1685. ; swap d0
  1686. ; ext.l d0
  1687. ; divs #10,d0
  1688. ; swap d0
  1689. ; add.b #'0',d0
  1690. ; move.b d0,COUNTSPACE+4
  1691. ; swap d0
  1692. ; add.b #'0',d0
  1693. ; move.b d0,COUNTSPACE+3
  1694.  
  1695. ;
  1696. ; move.l #COUNTSPACE,d0
  1697. ; jsr SENDMESSAGE
  1698. ;
  1699. ; move.w #0,COUNTER
  1700. ; move.w #0,COUNTER2
  1701.  
  1702.  move.b MAPON,REALMAPON
  1703.  
  1704.  move.b FULLSCRTEMP,d0
  1705.  move.b FULLSCR,d1
  1706.  eor.b d1,d0
  1707.  beq .notswapscr2
  1708.  
  1709.  move.b FULLSCRTEMP,FULLSCR
  1710.  beq.s .notswapscr3
  1711.  
  1712.  cmp.w #100,WIDESCRN
  1713.  blt.s .okwidee
  1714.  move.w #100,WIDESCRN
  1715. .okwidee:
  1716.  
  1717.  move.w #144,MIDDLEX
  1718.  move.w #288,RIGHTX
  1719.  move.w #232,BOTTOMY
  1720.  move.w #120,TOTHEMIDDLE
  1721.  move.l SCRNSHOWPT,a0
  1722.  jsr WIPEDISPLAY
  1723.  move.l SCRNDRAWPT,a0
  1724.  jsr WIPEDISPLAY
  1725.  
  1726.  bra.s .notswapscr2
  1727.  
  1728. .notswapscr3:
  1729.  cmp.w #60,WIDESCRN
  1730.  blt.s .okwide
  1731.  move.w #60,WIDESCRN
  1732. .okwide:
  1733.  
  1734.  
  1735.  move.w #96,MIDDLEX
  1736.  move.w #192,RIGHTX
  1737.  move.w #160,BOTTOMY
  1738.  move.w #80,TOTHEMIDDLE
  1739.  move.l SCRNSHOWPT,a0
  1740.  jsr WIPEDISPLAY
  1741.  move.l SCRNDRAWPT,a0
  1742.  jsr WIPEDISPLAY
  1743. .notswapscr2:
  1744.  
  1745.  
  1746.  btst #6,$bfe001
  1747. ;charlie bne.b .nocop
  1748.  
  1749. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1750.  
  1751. .nocop
  1752.  
  1753.  move.l #KeyMap,a5
  1754.  
  1755.  cmp.b #'n',mors
  1756.  bne .nopause
  1757.  tst.b $19(a5)
  1758.  beq.s .nopause
  1759.  clr.b doanything
  1760.  
  1761. .waitrel:
  1762.  
  1763.  tst.b PLR1JOY
  1764.  beq.s .NOJOY
  1765.  jsr _ReadJoy1
  1766. .NOJOY
  1767.  
  1768.  tst.b $19(a5)
  1769.  bne.s .waitrel
  1770.  
  1771.  bsr PAUSEOPTS
  1772.  
  1773.  st doanything
  1774. .nopause: 
  1775.  
  1776.  move.l hitcol,d0
  1777.  move.l d0,d1
  1778.  
  1779. ********************************************
  1780. * Remove after colour testing 
  1781. ; moveq #0,d1
  1782. ********************************************
  1783.  
  1784.  add.l #PALETTEBIT,d1
  1785.  tst.l d0
  1786.  beq.s nofadedownhc
  1787.  sub.l #2116,d0
  1788.  move.l d0,hitcol
  1789. nofadedownhc:
  1790.  
  1791.  move.l d1,a0
  1792.  move.l #PALETTESPACE,a1
  1793.  move.l #(2116/4)-2,d0
  1794. putinpal:
  1795.  move.l (a0)+,(a1)+
  1796.  dbra d0,putinpal
  1797.  
  1798.  st READCONTROLS
  1799.  move.l #$dff000,a6
  1800.  
  1801.  
  1802.  cmp.b #'n',mors
  1803.  beq .nopause
  1804.  
  1805.  move.b SLAVEPAUSE,d0
  1806.  or.b MASTERPAUSE,d0
  1807.  beq.s .nopause
  1808.  clr.b doanything
  1809.  
  1810.  move.l #KeyMap,a5
  1811. .waitrel:
  1812.  
  1813.  cmp.b #'s',mors
  1814.  beq.s .RE2
  1815.  tst.b PLR1JOY
  1816.  beq.s .NOJOY
  1817.  jsr _ReadJoy1
  1818.  bra .RE1
  1819. .RE2:
  1820.  tst.b PLR2JOY
  1821.  beq.s .NOJOY
  1822.  jsr _ReadJoy2
  1823. .RE1
  1824. .NOJOY:
  1825.  tst.b $19(a5)
  1826.  bne.s .waitrel
  1827.  
  1828.  bsr PAUSEOPTS
  1829.  
  1830.  cmp.b #'m',mors
  1831.  bne.s .slavelast
  1832.  Jsr SENDFIRST
  1833.  bra .masfirst
  1834. .slavelast
  1835.  Jsr RECFIRST
  1836. .masfirst:
  1837.  clr.b SLAVEPAUSE
  1838.  clr.b MASTERPAUSE
  1839.  st doanything
  1840.  
  1841. .nopause: 
  1842.  
  1843.  
  1844.  move.l drawpt,d0
  1845.  move.l olddrawpt,drawpt
  1846.  move.l d0,olddrawpt
  1847.  
  1848.  move.l SCRNDRAWPT,d0
  1849.  move.l SCRNSHOWPT,SCRNDRAWPT
  1850.  move.l d0,SCRNSHOWPT
  1851.  
  1852. ; move.l d0,$dff084    
  1853.  move.l drawpt,a3
  1854. ; move.l COPSCRNBUFF,a3
  1855.  adda.w #10,a3
  1856.  move.l a3,frompt
  1857.  add.l #104*4*40,a3
  1858.  move.l a3,midpt
  1859.  
  1860.  cmp.b #'s',mors
  1861.  beq.s nowaitslave
  1862.  
  1863. waitfortop:
  1864.  
  1865.  btst.b #0,intreqrl(a6)
  1866.  beq.b waitfortop
  1867.  
  1868.  move.w #$1,intreq(a6)
  1869. ; move.l #PLR1_GunData,GunData
  1870.  move.b PLR1_GunSelected,GunSelected
  1871.  bra waitmaster
  1872.  
  1873. nowaitslave:
  1874. ; move.l #PLR2_GunData,GunData
  1875.  move.b PLR2_GunSelected,GunSelected
  1876. waitmaster:
  1877.  
  1878.  move.l d0,d1
  1879.  move.l d1,d0
  1880.  move.w d0,pl1l
  1881.  swap d0
  1882.  move.w d0,pl1h
  1883.  
  1884.  add.l #10240,d1
  1885.  move.l d1,d0
  1886.  move.w d0,pl2l
  1887.  swap d0
  1888.  move.w d0,pl2h
  1889.  
  1890.  add.l #10240,d1
  1891.  move.l d1,d0
  1892.  move.w d0,pl3l
  1893.  swap d0
  1894.  move.w d0,pl3h
  1895.  
  1896.  add.l #10240,d1
  1897.  move.l d1,d0
  1898.  move.w d0,pl4l
  1899.  swap d0
  1900.  move.w d0,pl4h
  1901.  
  1902.  add.l #10240,d1
  1903.  move.l d1,d0
  1904.  move.w d0,pl5l
  1905.  swap d0
  1906.  move.w d0,pl5h
  1907.  
  1908.  add.l #10240,d1
  1909.  move.l d1,d0
  1910.  move.w d0,pl6l
  1911.  swap d0
  1912.  move.w d0,pl6h
  1913.  
  1914.  add.l #10240,d1
  1915.  move.l d1,d0
  1916.  move.w d0,pl7l
  1917.  swap d0
  1918.  move.w d0,pl7h
  1919.  
  1920.  add.l #10240,d1
  1921.  move.l d1,d0
  1922.  move.w d0,pl8l
  1923.  swap d0
  1924.  move.w d0,pl8h 
  1925.  
  1926.  move.l #SMIDDLEY,a0
  1927.  movem.l (a0)+,d0/d1
  1928.  move.l d0,MIDDLEY
  1929.  move.l d1,MIDDLEY+4
  1930.  
  1931.  move.l waterpt,a0
  1932.  move.l (a0)+,watertouse
  1933.  cmp.l #endwaterlist,a0
  1934.  blt.s okwat
  1935.  move.l #waterlist,a0
  1936. okwat:
  1937.  move.l a0,waterpt
  1938.  
  1939.  add.w #640,wtan
  1940.  and.w #8191,wtan
  1941.  add.l #1,wateroff
  1942.  and.l #$3fff3fff,wateroff
  1943.  
  1944.  move.l PLR1_xoff,OLDX1
  1945.  move.l PLR1_zoff,OLDZ1
  1946.  move.l PLR2_xoff,OLDX2
  1947.  move.l PLR2_zoff,OLDZ2
  1948.  
  1949.  move.l #$dff000,a6
  1950.  
  1951.  cmp.b #'s',mors
  1952.  beq ASlaveShouldWaitOnHisMaster
  1953.  
  1954.  cmp.b #'n',mors
  1955.  bne NotOnePlayer
  1956.  
  1957.  movem.l d0-d7/a0-a6,-(a7)
  1958.  
  1959.  moveq #0,d0
  1960.  move.b GunSelected,d0
  1961.  move.l LINKFILE,a6
  1962.  add.l #GunBulletTypes,a6
  1963.  move.w (a6,d0.w*8),d0
  1964.  
  1965.  move.l #PLAYERONEAMMO,a6
  1966.  move.w (a6,d0.w*2),d0
  1967.  move.w d0,Ammo
  1968.  movem.l (a7)+,d0-d7/a0-a6
  1969.  
  1970.  move.w PLAYERONEHEALTH,Energy
  1971.  
  1972.  move.w FramesToDraw,TempFrames
  1973.  cmp.w #15,TempFrames
  1974.  blt.s .okframe
  1975.  move.w #15,TempFrames
  1976. .okframe:
  1977.  move.w #0,FramesToDraw
  1978.  
  1979. *********************************************
  1980. *********** TAKE THIS OUT *******************
  1981. *********************************************
  1982.  
  1983.  move.l CHEATPTR,a4
  1984.  add.l #200000,a4
  1985.  moveq #0,d0
  1986.  move.b (a4),d0
  1987.  
  1988.  move.l #KeyMap,a5
  1989.  tst.b (a5,d0.w)
  1990.  beq.s .nocheat
  1991.  
  1992.  addq #1,a4
  1993.  cmp.l #ENDCHEAT,a4
  1994.  blt.s .nocheat
  1995.  cmp.w #0,CHEATNUM
  1996.  beq.s .nocheat
  1997.  sub.w #1,CHEATNUM
  1998.  move.l #CHEATFRAME,a4
  1999.  move.w #127,PLR1_energy
  2000.  jsr EnergyBar
  2001. .nocheat
  2002.  
  2003.  sub.l #200000,a4
  2004.  move.l a4,CHEATPTR
  2005.  
  2006. **********************************************
  2007. **********************************************
  2008. **********************************************
  2009.  
  2010.  move.l PLR1s_xoff,p1_xoff
  2011.  move.l PLR1s_zoff,p1_zoff
  2012.  move.l PLR1s_yoff,p1_yoff
  2013.  move.l PLR1s_height,p1_height
  2014.  move.w PLR1s_angpos,p1_angpos
  2015.  move.w PLR1_bobble,p1_bobble
  2016.  move.b PLR1_clicked,p1_clicked
  2017.  move.b PLR1_fire,p1_fire
  2018.  clr.b PLR1_clicked
  2019.  move.b PLR1_SPCTAP,p1_spctap
  2020.  clr.b PLR1_SPCTAP
  2021.  move.b PLR1_Ducked,p1_ducked
  2022.  move.b PLR1_GunSelected,p1_gunselected
  2023.  
  2024.  bsr PLR1_Control
  2025.  
  2026.  move.l PLR1_Roompt,a0
  2027.  move.l ToZoneRoof(a0),SplitHeight
  2028.  move.w p1_xoff,THISPLRxoff
  2029.  move.w p1_zoff,THISPLRzoff
  2030.  
  2031.  
  2032.  move.l #$60000,p2_yoff
  2033.  move.l PLR2_Obj,a0
  2034.  move.w #-1,GraphicRoom(a0)
  2035.  move.w #-1,12(a0)
  2036.  move.b #0,17(a0)
  2037.  move.l #BollocksRoom,PLR2_Roompt
  2038.  
  2039.  bra donetalking
  2040.  
  2041. NotOnePlayer:
  2042.  move.l #KeyMap,a5
  2043.  tst.b $19(a5)
  2044.  sne MASTERPAUSE
  2045.  
  2046. *********************************
  2047.  move.w PLAYERONEHEALTH,Energy
  2048. ; change this back
  2049. *********************************
  2050.  movem.l d0-d7/a0-a6,-(a7)
  2051.  
  2052.  moveq #0,d0
  2053.  move.b GunSelected,d0
  2054.  move.l LINKFILE,a6
  2055.  add.l #GunBulletTypes,a6
  2056.  move.w (a6,d0.w*8),d0
  2057.  
  2058.  move.l #PLAYERONEAMMO,a6
  2059.  move.w (a6,d0.w*2),d0
  2060.  move.w d0,Ammo
  2061.  movem.l (a7)+,d0-d7/a0-a6
  2062.  
  2063.  jsr SENDFIRST
  2064.  
  2065.  move.w FramesToDraw,TempFrames
  2066.  cmp.w #15,TempFrames
  2067.  blt.s .okframe
  2068.  move.w #15,TempFrames
  2069. .okframe:
  2070.  move.w #0,FramesToDraw
  2071.  
  2072.  move.l PLR1s_xoff,p1_xoff
  2073.  move.l PLR1s_zoff,p1_zoff
  2074.  move.l PLR1s_yoff,p1_yoff
  2075.  move.l PLR1s_height,p1_height
  2076.  move.w PLR1s_angpos,p1_angpos
  2077.  move.w PLR1_bobble,p1_bobble
  2078.  move.b PLR1_clicked,p1_clicked
  2079.  clr.b PLR1_clicked
  2080.  move.b PLR1_fire,p1_fire
  2081.  move.b PLR1_SPCTAP,p1_spctap
  2082.  clr.b PLR1_SPCTAP
  2083.  move.b PLR1_Ducked,p1_ducked
  2084.  move.b PLR1_GunSelected,p1_gunselected
  2085.  
  2086.  move.l PLR1_AIMSPD,d0
  2087.  jsr SENDFIRST
  2088.  move.l d0,PLR2_AIMSPD
  2089.  
  2090.  move.l p1_xoff,d0
  2091.  jsr SENDFIRST
  2092.  move.l d0,p2_xoff
  2093.  
  2094.  move.l p1_zoff,d0
  2095.  jsr SENDFIRST
  2096.  move.l d0,p2_zoff 
  2097.  
  2098.  move.l p1_yoff,d0
  2099.  jsr SENDFIRST
  2100.  move.l d0,p2_yoff
  2101.   
  2102.  move.l p1_height,d0
  2103.  jsr SENDFIRST
  2104.  move.l d0,p2_height
  2105.  
  2106.  move.w p1_angpos,d0
  2107.  swap d0
  2108.  move.w p1_bobble,d0
  2109.  jsr SENDFIRST
  2110.  move.w d0,p2_bobble
  2111.  swap d0
  2112.  move.w d0,p2_angpos
  2113.  
  2114.  
  2115.  move.w TempFrames,d0
  2116.  swap d0
  2117.  move.b p1_spctap,d0
  2118.  lsl.w #8,d0
  2119.  move.b p1_clicked,d0
  2120.  jsr SENDFIRST
  2121.  move.b d0,p2_clicked
  2122.  lsr.w #8,d0
  2123.  move.b d0,p2_spctap
  2124.  
  2125.  
  2126.  move.w Rand1,d0
  2127.  swap d0
  2128.  move.b p1_ducked,d0
  2129.  lsl.w #8,d0
  2130.  move.b p1_gunselected,d0
  2131.  jsr SENDFIRST
  2132.  move.b d0,p2_gunselected
  2133.  lsr.w #8,d0
  2134.  move.b d0,p2_ducked
  2135.  
  2136.  move.b p1_fire,d0
  2137.  lsl.w #8,d0
  2138.  move.b MASTERQUITTING,d0
  2139.  or.b d0,SLAVEQUITTING
  2140.  swap d0
  2141.  move.b MASTERPAUSE,d0
  2142.  or.b d0,SLAVEPAUSE
  2143.  jsr SENDFIRST
  2144.  or.b d0,MASTERPAUSE
  2145.  or.b d0,SLAVEPAUSE
  2146.  swap d0
  2147.  or.b d0,SLAVEQUITTING
  2148.  or.b d0,MASTERQUITTING
  2149.  lsr.w #8,d0
  2150.  move.b d0,p2_fire
  2151.  
  2152.  bsr PLR1_Control
  2153.  bsr PLR2_Control
  2154.  move.l PLR1_Roompt,a0
  2155.  move.l ToZoneRoof(a0),SplitHeight
  2156.  move.w p1_xoff,THISPLRxoff
  2157.  move.w p1_zoff,THISPLRzoff
  2158.  
  2159.  bra donetalking
  2160.  
  2161. ASlaveShouldWaitOnHisMaster:
  2162.  
  2163.  move.l #KeyMap,a5
  2164.  tst.b $19(a5)
  2165.  sne SLAVEPAUSE
  2166.  
  2167.  movem.l d0-d7/a0-a6,-(a7)
  2168.  
  2169.  moveq #0,d0
  2170.  move.b GunSelected,d0
  2171.  move.l LINKFILE,a6
  2172.  add.l #GunBulletTypes,a6
  2173.  move.w (a6,d0.w*8),d0
  2174.  
  2175.  move.l #PLAYERTWOAMMO,a6
  2176.  move.w (a6,d0.w*2),d0
  2177.  move.w d0,Ammo
  2178.  movem.l (a7)+,d0-d7/a0-a6
  2179.  
  2180.  move.w PLAYERTWOHEALTH,Energy
  2181.  
  2182.  jsr RECFIRST
  2183.  
  2184.  move.l PLR2s_xoff,p2_xoff
  2185.  move.l PLR2s_zoff,p2_zoff
  2186.  move.l PLR2s_yoff,p2_yoff
  2187.  move.l PLR2s_height,p2_height
  2188.  move.w PLR2s_angpos,p2_angpos
  2189.  move.w PLR2_bobble,p2_bobble
  2190.  move.b PLR2_clicked,p2_clicked
  2191.  clr.b PLR2_clicked
  2192.  move.b PLR2_fire,p2_fire
  2193.  move.b PLR2_SPCTAP,p2_spctap
  2194.  clr.b PLR2_SPCTAP
  2195.  move.b PLR2_Ducked,p2_ducked
  2196.  move.b PLR2_GunSelected,p2_gunselected
  2197.  
  2198.  move.l PLR2_AIMSPD,d0
  2199.  jsr RECFIRST
  2200.  move.l d0,PLR1_AIMSPD
  2201.  
  2202.  move.l p2_xoff,d0
  2203.  jsr RECFIRST
  2204.  move.l d0,p1_xoff
  2205.  
  2206.  move.l p2_zoff,d0
  2207.  jsr RECFIRST
  2208.  move.l d0,p1_zoff
  2209.  
  2210.  move.l p2_yoff,d0
  2211.  jsr RECFIRST
  2212.  move.l d0,p1_yoff
  2213.  
  2214.  move.l p2_height,d0
  2215.  jsr RECFIRST
  2216.  move.l d0,p1_height
  2217.  
  2218.  move.w p2_angpos,d0
  2219.  swap d0
  2220.  move.w p2_bobble,d0
  2221.  jsr RECFIRST
  2222.  move.w d0,p1_bobble
  2223.  swap d0
  2224.  move.w d0,p1_angpos
  2225.  
  2226.  
  2227.  move.b p2_spctap,d0
  2228.  lsl.w #8,d0
  2229.  move.b p2_clicked,d0
  2230.  jsr RECFIRST
  2231.  move.b d0,p1_clicked
  2232.  lsr.w #8,d0
  2233.  move.b d0,p1_spctap
  2234.  swap d0
  2235.  move.w d0,TempFrames
  2236.  
  2237.  move.b p2_ducked,d0
  2238.  lsl.w #8,d0
  2239.  move.b p2_gunselected,d0
  2240.  jsr RECFIRST
  2241.  move.b d0,p1_gunselected
  2242.  lsr.w #8,d0
  2243.  move.b d0,p1_ducked
  2244.  swap d0
  2245.  move.w d0,Rand1
  2246.  
  2247.  move.b p2_fire,d0
  2248.  lsl.w #8,d0
  2249.  move.b SLAVEQUITTING,d0
  2250.  or.b d0,MASTERQUITTING
  2251.  swap d0
  2252.  move.b SLAVEPAUSE,d0
  2253.  or.b d0,MASTERPAUSE
  2254.  jsr RECFIRST
  2255.  or.b d0,MASTERPAUSE
  2256.  or.b d0,SLAVEPAUSE
  2257.  swap d0
  2258.  or.b d0,SLAVEQUITTING
  2259.  or.b d0,MASTERQUITTING
  2260.  lsr.w #8,d0
  2261.  move.b d0,p1_fire
  2262.  
  2263.  
  2264.  bsr PLR1_Control
  2265.  bsr PLR2_Control
  2266.  move.w p2_xoff,THISPLRxoff
  2267.  move.w p2_zoff,THISPLRzoff
  2268.  move.l PLR2_Roompt,a0
  2269.  move.l ToZoneRoof(a0),SplitHeight
  2270.  
  2271. donetalking:
  2272.  
  2273.  
  2274.  move.l #ZoneBrightTable,a1
  2275.  move.l ZoneAdds,a2
  2276.  move.l PLR2_ListOfGraphRooms,a0
  2277. ; move.l PLR2_PointsToRotatePtr,a5
  2278.  move.l a0,a5
  2279.  cmp.b #'s',mors
  2280.  beq.s doallz
  2281.  move.l PLR1_ListOfGraphRooms,a0
  2282. ; move.l PLR1_PointsToRotatePtr,a5
  2283.  move.l a0,a5 
  2284. doallz
  2285.  move.w (a0),d0
  2286.  blt.s doneallz
  2287.  add.w #8,a0
  2288.  
  2289.  move.l (a2,d0.w*4),a3
  2290.  add.l LEVELDATA,a3
  2291.  move.w ToZoneBrightness(a3),d2
  2292.  
  2293.  blt.s justbright
  2294.  move.w d2,d3
  2295.  lsr.w #8,d3
  2296.  tst.b d3
  2297.  beq.s justbright
  2298.  
  2299.  move.l #BrightAnimTable,a4
  2300.  move.w -2(a4,d3.w*2),d2
  2301.  
  2302. justbright:
  2303.  muls #32,d2
  2304.  divs #20,d2
  2305.  move.w d2,(a1,d0.w*4)
  2306.  
  2307.  move.w ToUpperBrightness(a3),d2
  2308.  
  2309.  blt.s justbright2
  2310.  move.w d2,d3
  2311.  lsr.w #8,d3
  2312.  tst.b d3
  2313.  beq.s justbright2
  2314.  
  2315.  move.l #BrightAnimTable,a4
  2316.  move.w -2(a4,d3.w*2),d2
  2317.  
  2318. justbright2:
  2319.  
  2320.  muls #32,d2
  2321.  divs #20,d2
  2322.  move.w d2,2(a1,d0.w*4)
  2323.  
  2324.  bra doallz
  2325.  
  2326. doneallz:
  2327.  
  2328.  move.l PointBrights,a2
  2329.  move.l #CurrentPointBrights,a3
  2330. justtheone:
  2331.  move.w (a5),d0
  2332.  blt whythehell
  2333.  addq #8,a5
  2334.  
  2335.  muls #40,d0
  2336.  
  2337.  move.w #39,d7
  2338.  
  2339. allinzone:
  2340.  move.w (a2,d0.w*2),d2
  2341.  
  2342.  tst.b d2
  2343.  blt.s .justbright
  2344.  move.w d2,d3
  2345.  lsr.w #8,d3
  2346.  tst.b d3
  2347.  beq.s .justbright
  2348.  
  2349.  move.w d3,d4
  2350.  and.w #$f,d3
  2351.  lsr.w #4,d4
  2352.  add.w #1,d4
  2353.  move.l #BrightAnimTable,a0
  2354.  move.w -2(a0,d3.w*2),d3
  2355.  ext.w d2
  2356.  sub.w d2,d3
  2357.  muls d4,d3
  2358.  asr.w #4,d3
  2359.  add.w d3,d2
  2360.  
  2361. .justbright:
  2362.  ext.w d2
  2363.  
  2364.  muls #31,d2
  2365.  divs #20,d2
  2366.  bge.s .itspos
  2367.  sub.w #600,d2
  2368. .itspos:
  2369.  add.w #300,d2
  2370.  
  2371.  move.w d2,(a3,d0.w*2)
  2372.  addq #1,d0
  2373.  dbra d7,allinzone
  2374.  
  2375.  bra justtheone
  2376.  
  2377. whythehell:
  2378.  
  2379.  move.l PLR1_Roompt,a0
  2380.  move.l #CurrentPointBrights,a1
  2381.  move.l ZoneBorderPts,a2
  2382.  move.w (a0),d0
  2383.  muls #10,d0
  2384.  lea (a2,d0.w*2),a2
  2385.  lea (a1,d0.w*8),a1
  2386.  
  2387.  moveq #9,d7
  2388.  moveq #0,d0
  2389.  moveq #0,d1
  2390. findaverage:
  2391.  tst.w (a2)+
  2392.  blt.s .foundaverage
  2393.  addq #1,d0
  2394.  move.w (a1)+,d2
  2395.  bge.s .okpos
  2396.  neg.w d2
  2397. .okpos:
  2398.  add.w d2,d1
  2399.  
  2400.  dbra d7,findaverage
  2401.  
  2402. .foundaverage:
  2403.  
  2404.  ext.l d1
  2405.  divs d0,d1
  2406.  sub.w #300,d1
  2407.  move.w d1,PLR1_RoomBright
  2408.  
  2409.  cmp.b #'n',mors
  2410.  beq nosee
  2411.  
  2412.  move.l PLR1_Roompt,FromRoom
  2413.  move.l PLR2_Roompt,ToRoom
  2414.  move.w p1_xoff,Viewerx
  2415.  move.w p1_zoff,Viewerz
  2416.  move.l p1_yoff,d0
  2417.  asr.l #7,d0
  2418.  move.w d0,Viewery
  2419.  move.w p2_xoff,Targetx
  2420.  move.w p2_zoff,Targetz
  2421.  move.l p2_yoff,d0
  2422.  asr.l #7,d0
  2423.  move.w d0,Targety
  2424.  move.b PLR1_StoodInTop,ViewerTop
  2425.  move.b PLR2_StoodInTop,TargetTop
  2426.  jsr CanItBeSeen
  2427.  
  2428.  move.l PLR1_Obj,a0
  2429.  move.b CanSee,d0
  2430.  and.b #2,d0
  2431.  move.b d0,17(a0)
  2432.  move.l PLR2_Obj,a0
  2433.  move.b CanSee,d0
  2434.  and.b #1,d0
  2435.  move.b d0,17(a0)
  2436.  
  2437. nosee:
  2438.  
  2439.  
  2440.  move.w TempFrames,d0
  2441.  add.w d0,p1_holddown
  2442.  cmp.w #30,p1_holddown
  2443.  blt.s oklength
  2444.  move.w #30,p1_holddown
  2445. oklength:
  2446.  
  2447.  tst.b p1_fire
  2448.  bne.s okstillheld
  2449.  sub.w d0,p1_holddown
  2450.  bge.s okstillheld
  2451.  move.w #0,p1_holddown
  2452.  
  2453. okstillheld:
  2454.  
  2455.  move.w TempFrames,d0
  2456.  add.w d0,p2_holddown
  2457.  
  2458.  cmp.w #30,p2_holddown
  2459.  blt.s oklength2
  2460.  move.w #30,p2_holddown
  2461. oklength2:
  2462.  
  2463.  
  2464.  tst.b p2_fire
  2465.  bne.s okstillheld2
  2466.  sub.w d0,p2_holddown
  2467.  bge.s okstillheld2
  2468.  move.w #0,p2_holddown
  2469. okstillheld2:
  2470.  
  2471. ***** CHECKING LIGHT *********
  2472.  
  2473. ; move.w #-20,d0
  2474. ; move.w PLR1_xoff,d1
  2475. ; move.w PLR1_zoff,d2
  2476. ; move.l PLR1_Roompt,a0
  2477. ; move.w (a0),d3
  2478. ; move.w PLR1_angpos,d4
  2479. ;
  2480. ; jsr BRIGHTENPOINTSANGLE
  2481.  
  2482. ******************************
  2483.  
  2484. ; move.l #PLR1_GunData,a1
  2485. ; move.w p1_holddown,d0
  2486. ; move.w #50,10+32*3(a1)
  2487. ; move.l #PLR2_GunData,a1
  2488. ; move.w p2_holddown,d0
  2489. ; move.w #50,10+32*3(a1)
  2490.  
  2491. ******************************************
  2492. ******************************************
  2493.  
  2494.  move.w TempFrames,d1
  2495.  bgt.s noze
  2496.  moveq #1,d1
  2497. noze:
  2498.  
  2499.  move.w PLR1_xoff,d0
  2500.  sub.w OLDX1,d0
  2501.  asl.w #4,d0
  2502.  ext.l d0
  2503.  divs d1,d0
  2504.  move.w d0,XDIFF1
  2505.  move.w PLR2_xoff,d0
  2506.  sub.w OLDX2,d0
  2507.  asl.w #4,d0
  2508.  ext.l d0
  2509.  divs d1,d0
  2510.  move.w d0,XDIFF2
  2511.  move.w PLR1_zoff,d0
  2512.  sub.w OLDZ1,d0
  2513.  asl.w #4,d0
  2514.  ext.l d0
  2515.  divs d1,d0
  2516.  move.w d0,ZDIFF1
  2517.  move.w PLR2_zoff,d0
  2518.  sub.w OLDZ2,d0
  2519.  asl.w #4,d0
  2520.  ext.l d0
  2521.  divs d1,d0
  2522.  move.w d0,ZDIFF2
  2523.  
  2524.  cmp.b #'s',mors
  2525.  beq.s ImPlayer2OhYesIAm
  2526.  bsr USEPLR1
  2527.  bra IWasPlayer1
  2528.  
  2529. ImPlayer2OhYesIAm:
  2530.  bsr USEPLR2
  2531. IWasPlayer1:
  2532.  
  2533.  
  2534.  cmp.b #'s',mors
  2535.  beq drawplayer2
  2536.  
  2537.  move.w #0,scaleval
  2538.  
  2539.  move.l PLR1_xoff,xoff
  2540.  move.l PLR1_yoff,yoff
  2541.  move.l PLR1_zoff,zoff
  2542.  move.w PLR1_angpos,angpos
  2543.  move.w PLR1_cosval,cosval
  2544.  move.w PLR1_sinval,sinval
  2545.  
  2546.  
  2547.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2548.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2549.  move.b PLR1_Echo,Echo
  2550.  move.l PLR1_Roompt,Roompt
  2551.  
  2552.  move.l #KeyMap,a5
  2553.  moveq #0,d5
  2554.  move.b look_behind_key,d5
  2555.  tst.b (a5,d5.w)
  2556.  beq.s .nolookback
  2557.  
  2558.  move.l PLR1_Obj,a0
  2559.  move.w #-1,12+128(a0)
  2560.  
  2561.  eor.w #4096,angpos 
  2562.  neg.w cosval
  2563.  neg.w sinval
  2564. .nolookback:
  2565.  
  2566.  bsr OrderZones
  2567.  jsr objmoveanim
  2568.  jsr EnergyBar
  2569.  jsr AmmoBar
  2570.  
  2571. ;********************************************
  2572. ;************* Do reflection ****************
  2573. ;
  2574. ; move.l ListOfGraphRooms,a0
  2575. ; move.l ZoneAdds,a1
  2576. ;checkwaterheights
  2577. ; move.w (a0),d0
  2578. ; blt allzonesdone
  2579. ; addq #8,a0
  2580. ; move.l (a1,d0.w*4),a2
  2581. ; 
  2582. ; add.l LEVELDATA,a2
  2583. ; 
  2584. ; move.l ToZoneWater(a2),d0
  2585. ; cmp.l ToZoneFloor(a2),d0
  2586. ; blt.s WEHAVEAHEIGHT
  2587. ; 
  2588. ; bra.s checkwaterheights
  2589. ;
  2590. ;WEHAVEAHEIGHT:
  2591. ;
  2592. ; sub.l yoff,d0
  2593. ; blt.s underwater
  2594. ; 
  2595. ; add.l d0,d0
  2596. ; add.l d0,yoff
  2597. ; 
  2598. ; move.l FASTBUFFER2,FASTBUFFER
  2599. ; move.w #0,leftclip
  2600. ; move.w RIGHTX,rightclip
  2601. ; move.w #0,deftopclip
  2602. ; move.w #BOTTOMY/2,defbotclip
  2603. ; move.w #0,topclip
  2604. ; move.w #BOTTOMY/2,botclip
  2605. ;
  2606. ; clr.b DOANYWATER 
  2607. ; 
  2608. ; bsr DrawDisplay
  2609. ; 
  2610. ;allzonesdone:
  2611. ;underwater:
  2612.  
  2613. ********************************************
  2614.  
  2615.  st DOANYWATER
  2616.  
  2617.  move.l PLR1_yoff,yoff
  2618.  
  2619.  move.w #0,leftclip
  2620.  move.w RIGHTX,rightclip
  2621.  move.w #0,deftopclip
  2622.  move.w WIDESCRN,d0
  2623.  add.w d0,deftopclip
  2624.  
  2625.  move.w BOTTOMY,defbotclip
  2626.  sub.w d0,defbotclip
  2627.  move.w #0,topclip
  2628.  add.w d0,topclip
  2629.  move.w BOTTOMY,botclip
  2630.  sub.w d0,botclip
  2631. ; sub.l #10*104*4,frompt
  2632. ; sub.l #10*104*4,midpt
  2633.  
  2634. * Subroom loop
  2635.  
  2636.  bsr DrawDisplay 
  2637.  
  2638.  bra nodrawp2
  2639.  
  2640. drawplayer2
  2641.  
  2642.  move.w #0,scaleval
  2643.  move.l PLR2_xoff,xoff
  2644.  move.l PLR2_yoff,yoff
  2645.  move.l PLR2_zoff,zoff
  2646.  move.w PLR2_angpos,angpos
  2647.  move.w PLR2_cosval,cosval
  2648.  move.w PLR2_sinval,sinval 
  2649.  
  2650.  
  2651.  
  2652.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2653.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2654.  move.b PLR2_Echo,Echo
  2655.  move.l PLR2_Roompt,Roompt
  2656.  
  2657.  move.l #KeyMap,a5
  2658.  moveq #0,d5
  2659.  move.b look_behind_key,d5
  2660.  tst.b (a5,d5.w)
  2661.  beq.s .nolookback
  2662.  
  2663.  move.l PLR1_Obj,a0
  2664.  move.w #-1,12+128(a0)
  2665.  eor.w #4096,angpos 
  2666.  
  2667.  neg.w cosval
  2668.  neg.w sinval
  2669. .nolookback:
  2670.  
  2671.  bsr OrderZones
  2672.  jsr objmoveanim
  2673.  jsr EnergyBar
  2674.  jsr AmmoBar
  2675.  
  2676.  move.w WIDESCRN,d0
  2677.  
  2678.  move.w #0,leftclip
  2679.  move.w RIGHTX,rightclip
  2680.  move.w #0,deftopclip
  2681.  add.w d0,deftopclip
  2682.  move.w BOTTOMY,defbotclip
  2683.  sub.w d0,defbotclip
  2684.  move.w #0,topclip
  2685.  add.w d0,topclip
  2686.  move.w BOTTOMY,botclip
  2687.  sub.w d0,botclip
  2688.  
  2689.  bsr DrawDisplay
  2690.  
  2691. nodrawp2:
  2692.  
  2693. ***************************************** 
  2694. * Copy from copbuff to chip ram
  2695.  
  2696.  
  2697. ; move.l drawpt,a3
  2698. ; adda.w #10,a3
  2699. ; move.l COPSCRNBUFF,a2
  2700. ; move.w #2,d6
  2701. ; adda.w #10,a2
  2702. ;COPYOUT
  2703. ; move.w #31,d0
  2704. ;COPYDOWN1:
  2705. ; move.w #3,d1
  2706. ; move.l a2,a4
  2707. ; move.l a3,a5
  2708. ;.inlop1:
  2709. ;val SET 0
  2710. ; REPT 20
  2711. ; move.w val(a4),val(a5)
  2712. ;val SET val+104*4
  2713. ; ENDR
  2714. ; adda.l #104*4*20,a4
  2715. ; adda.l #104*4*20,a5
  2716. ; dbra d1,.inlop1
  2717. ; addq #4,a2
  2718. ; addq #4,a3
  2719. ; dbra d0,COPYDOWN1
  2720. ; addq #4,a2
  2721. ; addq #4,a3
  2722. ; dbra d6,COPYOUT 
  2723.  
  2724.  tst.b REALMAPON
  2725.  beq.s .nomap
  2726.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2727. .nomap
  2728.  
  2729.  move.w WIDESCRN,d7
  2730.  
  2731.  tst.b FULLSCR
  2732.  beq nobigconv
  2733.  
  2734.  move.l FASTBUFFER,a0
  2735. ; add.l #320*2*20,a0
  2736.  move.w d7,d6
  2737.  muls #320,d6
  2738.  add.l d6,a0
  2739.  move.l SCRNDRAWPT,a1
  2740.  move.w d7,d6
  2741.  muls #40,d6
  2742.  add.l d6,a1
  2743.  add.l #2,a1
  2744.  move.l #(288/8)-1,d0
  2745.  move.l #231,d1
  2746.  sub.w d7,d1
  2747.  sub.w d7,d1
  2748.  blt nochunk
  2749.  move.w #(320-288),d2
  2750.  move.w #4,d3
  2751.  
  2752.  bra donebigconv
  2753.  
  2754. nobigconv:
  2755.  
  2756.  move.l FASTBUFFER,a0
  2757.  move.w d7,d6
  2758.  muls #320,d6
  2759.  add.l d6,a0
  2760.  move.l SCRNDRAWPT,a1
  2761.  add.l #8+40*20,a1
  2762.  move.w d7,d6
  2763.  muls #40,d6
  2764.  add.l d6,a1
  2765.  move.l #(192/8)-1,d0
  2766.  move.l #159,d1
  2767.  sub.w d7,d1
  2768.  sub.w d7,d1
  2769.  blt nochunk
  2770.  move.w #(320-192),d2
  2771.  move.w #16,d3
  2772. donebigconv
  2773.  
  2774.  tst.b DOUBLEHEIGHT
  2775.  beq.s .nodoub
  2776.  asr.w #1,d1
  2777.  blt nochunk
  2778.  add.w #320,d2
  2779.  add.w #40,d3
  2780. .nodoub:
  2781.  
  2782.  move.b DOUBLEWIDTH,d4
  2783.  
  2784.  move.b PLR1_TELEPORTED,d5
  2785.  clr.b PLR1_TELEPORTED
  2786.  cmp.b #'s',mors
  2787.  bne.s .notplr2
  2788.  move.b PLR2_TELEPORTED,d5
  2789.  clr.b PLR2_TELEPORTED
  2790. .notplr2
  2791.  jsr CHUNKYTOPLANAR 
  2792.  
  2793. nochunk:
  2794.  
  2795.  
  2796.  move.l #KeyMap,a5
  2797.  tst.b $4a(a5)
  2798.  beq .nosmallscr
  2799.  
  2800.  move.w #100,d2
  2801.  move.l #0,d7
  2802.  move.l #0,d6
  2803.  tst.b FULLSCR
  2804.  bne.s .attop
  2805.  move.l #40*20,d7
  2806.  move.l #40*52,d6
  2807.  move.w #60,d2
  2808. .attop:
  2809.  
  2810.  move.w WIDESCRN,d0
  2811.  move.l SCRNDRAWPT,a0
  2812.  add.l d7,a0
  2813.  muls #40,d0
  2814.  add.l d0,a0
  2815.  bsr CLRTWOLINES
  2816.  move.w WIDESCRN,d0
  2817.  move.l SCRNSHOWPT,a0
  2818.  add.l d7,a0
  2819.  muls #40,d0
  2820.  add.l d0,a0
  2821.  bsr CLRTWOLINES
  2822.  
  2823.  
  2824.  add.w #2,WIDESCRN
  2825.  
  2826.  cmp.w WIDESCRN,d2
  2827.  bgt.s .okwide
  2828.  move.w d2,WIDESCRN
  2829. .okwide:
  2830.  
  2831.  move.l SCRNDRAWPT,a0
  2832.  add.l #232*40,a0
  2833.  sub.l d6,a0
  2834.  move.w WIDESCRN,d0
  2835.  muls #40,d0
  2836.  sub.l d0,a0
  2837.  bsr CLRTWOLINES
  2838.  move.l SCRNSHOWPT,a0
  2839.  sub.l d6,a0
  2840.  add.l #232*40,a0
  2841.  move.w WIDESCRN,d0
  2842.  muls #40,d0
  2843.  sub.l d0,a0
  2844.  bsr CLRTWOLINES
  2845.  
  2846. .nosmallscr
  2847.  
  2848.  tst.b $5e(a5)
  2849.  beq.s .nobigscr
  2850.  tst.w WIDESCRN
  2851.  ble.s .nobigscr
  2852.  
  2853.  sub.w #2,WIDESCRN
  2854.  
  2855. .nobigscr
  2856.  
  2857.  
  2858.  tst.b (a5)
  2859.  beq.s .nosavescrn
  2860.  
  2861.  not.b USEDOUG
  2862.  
  2863.  jsr SAVETHESCREEN
  2864.  
  2865. .nosavescrn:
  2866.  
  2867.  tst.b $5b(a5)
  2868.  beq notdoubheight
  2869.  tst.b LASTDH
  2870.  bne notdoubheight2
  2871.  move.l SCRNSHOWPT,a0
  2872.  jsr WIPEDISPLAY
  2873.  move.l SCRNDRAWPT,a0
  2874.  jsr WIPEDISPLAY
  2875.  st LASTDH 
  2876.  
  2877.  move.w #0,d0
  2878.  move.w #0,d1
  2879.  
  2880.  not.b DOUBLEHEIGHT
  2881.  beq.s singlepixheight
  2882.  move.w #-40,d0
  2883.  move.w #40,d1
  2884.  
  2885. singlepixheight:
  2886.  
  2887.  move.l #SCRMODULOS,a0
  2888.  move.w #115,d2
  2889. putinmode:
  2890.  move.w d0,6(a0)
  2891.  move.w d0,6+4(a0)
  2892.  move.w d1,6+16(a0)
  2893.  move.w d1,6+16+4(a0)
  2894.  add.w #32,a0
  2895.  dbra d2,putinmode
  2896.  
  2897.  bra notdoubheight2
  2898.  
  2899. notdoubheight:
  2900.  clr.b LASTDH
  2901. notdoubheight2
  2902.  
  2903.  tst.b $5a(a5)
  2904.  beq.s notdoubwidth
  2905.  tst.b LASTDW
  2906.  bne notdoubwidth2
  2907.  move.l SCRNSHOWPT,a0
  2908.  jsr WIPEDISPLAY
  2909.  move.l SCRNDRAWPT,a0
  2910.  jsr WIPEDISPLAY
  2911.  st LASTDW
  2912.  not.b DOUBLEWIDTH
  2913.  bra.s notdoubwidth2
  2914.  
  2915. notdoubwidth:
  2916.  clr.b LASTDW
  2917. notdoubwidth2:
  2918.  
  2919. ***************************************** 
  2920.  move.l PLR2_Roompt,a0
  2921.  move.l #WorkSpace,a1
  2922.  clr.l (a1)
  2923.  clr.l 4(a1)
  2924.  clr.l 8(a1)
  2925.  clr.l 12(a1)
  2926.  clr.l 16(a1)
  2927.  clr.l 20(a1)
  2928.  clr.l 24(a1)
  2929.  clr.l 28(a1)
  2930.  
  2931.  cmp.b #'n',mors
  2932.  beq.s plr1only
  2933.  
  2934.  lea ToListOfGraph(a0),a0
  2935. .doallrooms:
  2936.  move.w (a0),d0
  2937.  blt.s .allroomsdone
  2938.  addq #8,a0
  2939.  move.w d0,d1
  2940.  asr.w #3,d0
  2941.  bset d1,(a1,d0.w)
  2942.  bra .doallrooms
  2943. .allroomsdone:
  2944.  
  2945. plr1only:
  2946.  
  2947.  move.l PLR1_Roompt,a0
  2948.  lea ToListOfGraph(a0),a0
  2949. .doallrooms2:
  2950.  move.w (a0),d0
  2951.  blt.s .allroomsdone2
  2952.  addq #8,a0
  2953.  move.w d0,d1
  2954.  asr.w #3,d0
  2955.  bset d1,(a1,d0.w)
  2956.  bra .doallrooms2
  2957. .allroomsdone2:
  2958.  
  2959.  move.l #%000001,d7
  2960.  lea TEAMWORK,a2
  2961.  move.l ObjectData,a0
  2962.  sub.w #64,a0
  2963. .doallobs:
  2964.  add.w #64,a0
  2965.  move.w (a0),d0
  2966.  blt.s .allobsdone
  2967.  move.w 12(a0),d0
  2968.  blt.s .doallobs
  2969.  move.w d0,d1
  2970.  asr.w #3,d0
  2971.  btst d1,(a1,d0.w)
  2972.  bne.s .worryobj
  2973.  move.b 16(a0),d0
  2974.  btst d0,d7
  2975.  beq.s .doallobs
  2976.  moveq #0,d0
  2977.  move.b teamnumber(a0),d0
  2978.  blt.s .doallobs
  2979.  asl.w #4,d0
  2980.  tst.w SEENBY(a2,d0.w)
  2981.  blt.s .doallobs
  2982. .worryobj:
  2983.  or.b #127,worry(a0)
  2984.  bra.s .doallobs
  2985. .allobsdone:
  2986.  
  2987.  
  2988.  
  2989. ; move.l #brightentab,a0
  2990. ; move.l frompt,a3
  2991. ; adda.w #(4*33)+(104*4*20),a3
  2992. ; move.w #20,d7
  2993. ; move.w #20,d6
  2994. ;horl:
  2995. ; move.w d6,d5
  2996. ; move.l a3,a1
  2997. ;vertl
  2998. ; move.w (a1),d0
  2999. ; move.w (a0,d0.w*2),(a1)
  3000. ; addq #4,a1
  3001. ; dbra d5,vertl
  3002. ; adda.w #104*4,a3
  3003. ; dbra d7,horl
  3004.  
  3005.  move.l #$dff000,a6
  3006.  
  3007. ; move.w #$300,col0(a6)
  3008.  
  3009.  move.l #KeyMap,a5
  3010.  tst.b $45(a5)
  3011.  beq.s noend
  3012.  
  3013.  cmp.b #'s',mors
  3014.  beq plr2quit 
  3015.  
  3016.  st MASTERQUITTING
  3017.  bra noend
  3018.  
  3019. plr2quit:
  3020.  st SLAVEQUITTING
  3021. noend:
  3022.  
  3023.  tst.b MASTERQUITTING
  3024.  beq.s .noquit
  3025.  tst.b SLAVEQUITTING
  3026.  beq.s .noquit
  3027.  jmp endnomusic
  3028. .noquit
  3029.  
  3030.  cmp.b #'n',mors
  3031.  bne.s noexit
  3032.  move.l PLR1_Roompt,a0
  3033.  move.w (a0),d0
  3034. ; move.w PLOPT,d1
  3035. ; move.l #ENDZONES,a0
  3036. ; cmp.w (a0,d1.w*2),d0
  3037.  
  3038.  cmp.w ENDZONE,d0
  3039.  
  3040. ; change this for quick exit, charlie
  3041. zzzz:
  3042. ; bra end
  3043.  
  3044.  bne.s noexit
  3045.  add.w #2,TELVAL
  3046.  cmp.w #9,TELVAL
  3047.  blt noexit
  3048.  
  3049.  jmp end
  3050. noexit:
  3051.  
  3052. ; tst.w PLAYERONEHEALTH
  3053. ; bgt nnoend1
  3054. ; jmp end
  3055. ;nnoend1:
  3056. ; tst.w PLAYERTWOHEALTH
  3057. ; bgt nnoend2
  3058. ; jmp end
  3059. ;nnoend2:
  3060.  
  3061. ; move.l SwitchData,a0
  3062. ; tst.b 24+8(a0)
  3063. ; bne end
  3064.   
  3065. ; JSR STOPTIMER
  3066.  
  3067.  
  3068.  bra lop
  3069.  
  3070.  
  3071.  
  3072.  include "ab3:source_4000/ab3diipatchidr.s"
  3073.  
  3074. CLRTWOLINES:
  3075.  
  3076.  moveq #0,d1
  3077.  move.w #7,d2
  3078. .ccc
  3079.  move.l d1,2(a0)
  3080.  move.l d1,6(a0)
  3081.  move.l d1,10(a0)
  3082.  move.l d1,14(a0)
  3083.  move.l d1,18(a0)
  3084.  move.l d1,22(a0)
  3085.  move.l d1,26(a0)
  3086.  move.l d1,30(a0)
  3087.  move.l d1,34(a0)
  3088.  move.l d1,2+40(a0)
  3089.  move.l d1,6+40(a0)
  3090.  move.l d1,10+40(a0)
  3091.  move.l d1,14+40(a0)
  3092.  move.l d1,18+40(a0)
  3093.  move.l d1,22+40(a0)
  3094.  move.l d1,26+40(a0)
  3095.  move.l d1,30+40(a0)
  3096.  move.l d1,34+40(a0)
  3097.  add.l #10240,a0
  3098.  dbra d2,.ccc
  3099.  rts
  3100.  
  3101.  
  3102. LASTDH: dc.b 0
  3103. LASTDW: dc.b 0
  3104. WIDESCRN: dc.w 0
  3105. TRRANS: dc.w 0
  3106. DOANYWATER: dc.w 0
  3107.  
  3108. DoTheMapWotNastyCharlesIsForcingMeToDo:
  3109.  
  3110.  move.l TexturePal,a4
  3111.  add.l #256*32,a4
  3112. ; add.w MAPBRIGHT,a4
  3113.  
  3114.  move.l #KeyMap,a5
  3115.  tst.b $50(a5)
  3116.  beq.s .nobrighter
  3117.  tst.w MAPBRIGHT
  3118.  beq.s .nobrighter
  3119.  
  3120.  sub.w #1,MAPBRIGHT
  3121.  
  3122. .nobrighter:
  3123.  
  3124.  tst.b $51(a5)
  3125.  beq.s .nodimmer
  3126.  cmp.w #7,MAPBRIGHT
  3127.  bge.s .nodimmer
  3128.  
  3129.  add.w #1,MAPBRIGHT
  3130.  
  3131. .nodimmer:
  3132.  
  3133.  move.l #Rotated,a1
  3134.  move.l #COMPACTMAP,a2
  3135.  move.l #BIGMAP-40,a3
  3136.  
  3137. preshow:
  3138.  add.w #40,a3
  3139.  
  3140. SHOWMAP:
  3141.  move.l (a2)+,d5
  3142.  move.l a2,d7
  3143.  cmp.l LASTZONE,d7
  3144.  bgt shownmap
  3145.  
  3146.  tst.l d5
  3147.  beq.s preshow
  3148.  
  3149.  move.w #9,d7
  3150. wallsofzone
  3151.  
  3152.  asr.l #1,d5
  3153.  bcs.s WALLSEEN
  3154.  
  3155.  asr.l #1,d5
  3156.  bcs.s WALLMAPPED
  3157.  
  3158.  asr.l #1,d5
  3159.  addq #4,a3
  3160.  bra.s DECIDEDWALL
  3161.  
  3162. WALLMAPPED:
  3163.  move.w #$b00,d4
  3164.  asr.l #1,d5
  3165.  bcc.s .notadoor
  3166.  move.w #$e00,d4
  3167. .notadoor
  3168.  
  3169.  st TRRANS
  3170.  
  3171.  bra.s DECIDEDCOLOUR
  3172.  
  3173. WALLSEEN:
  3174.  
  3175.  clr.b TRRANS
  3176.  
  3177.  move.w #255,d4
  3178.  asr.l #2,d5
  3179.  bcc.s .notadoor
  3180.  move.w #254,d4
  3181. .notadoor
  3182. DECIDEDCOLOUR:
  3183.  move.w (a3)+,d6
  3184.  move.l (a1,d6.w*8),d0
  3185.  asr.l #7,d0
  3186.  add.w mapxoff,d0
  3187.  move.w 6(a1,d6.w*8),d1
  3188.  add.w mapzoff,d1
  3189.  move.w (a3)+,d6
  3190.  move.l (a1,d6.w*8),d2
  3191.  asr.l #7,d2
  3192.  add.w mapxoff,d2
  3193.  move.w 6(a1,d6.w*8),d3
  3194.  add.w mapzoff,d3
  3195.  
  3196.  neg.w d1
  3197.  neg.w d3
  3198.  
  3199.  movem.l d7/d5,-(a7)
  3200.  bsr CLIPANDDRAW
  3201.  movem.l (a7)+,d7/d5
  3202.  
  3203. DECIDEDWALL:
  3204.  
  3205.  dbra d7,wallsofzone
  3206.  bra SHOWMAP
  3207.  
  3208. shownmap:
  3209.  
  3210.  clr.b TRRANS
  3211.  
  3212.  move.w mapxoff,d0
  3213.  move.w mapzoff,d1
  3214.  neg.w d1
  3215.  move.w d0,d2
  3216.  move.w d1,d3
  3217.  sub.w #128,d1
  3218.  add.w #128,d3
  3219.  move.w #250,d4
  3220.  bsr CLIPANDDRAW
  3221.  
  3222.  move.w mapxoff,d0
  3223.  move.w mapzoff,d1
  3224.  neg.w d1
  3225.  move.w d0,d2
  3226.  move.w d1,d3
  3227.  sub.w #128,d1
  3228.  sub.w #32,d3
  3229.  sub.w #64,d2
  3230.  move.w #250,d4
  3231.  bsr CLIPANDDRAW
  3232.  
  3233.  move.w mapxoff,d0
  3234.  move.w mapzoff,d1
  3235.  neg.w d1
  3236.  move.w d0,d2
  3237.  move.w d1,d3
  3238.  sub.w #128,d1
  3239.  sub.w #32,d3
  3240.  add.w #64,d2
  3241.  move.w #250,d4
  3242.  bsr CLIPANDDRAW
  3243.  rts
  3244.  
  3245.  
  3246. CLIPANDDRAW:
  3247.  
  3248.  tst.b FULLSCR
  3249.  beq.s .nodov
  3250.  
  3251.  add.w d0,d0
  3252.  add.w d2,d2
  3253.  ext.l d0
  3254.  ext.l d2
  3255.  divs #3,d0
  3256.  divs #3,d2
  3257.  
  3258. .nodov:
  3259.  
  3260.  move.w MAPBRIGHT,d5
  3261.  asr.w d5,d0
  3262.  asr.w d5,d1
  3263.  asr.w d5,d2
  3264.  asr.w d5,d3
  3265.  
  3266. NOSCALING:
  3267.  add.w #96,d0
  3268.  bge p1xpos
  3269.  
  3270.  add.w #96,d2
  3271.  blt OFFSCREEN
  3272.  
  3273. x1nx2p:
  3274.  
  3275.  move.w d3,d5
  3276.  sub.w d1,d5
  3277.  move.w d2,d6
  3278.  sub.w d0,d6
  3279.  beq OFFSCREEN
  3280.  
  3281.  muls d0,d5
  3282.  divs d6,d5
  3283.  sub.w d5,d1
  3284.  move.w #0,d0
  3285.  
  3286.  bra doneleftclip
  3287.  
  3288. p1xpos:
  3289.  
  3290.  add.w #96,d2
  3291.  bge doneleftclip
  3292.  
  3293.  move.w d1,d5
  3294.  sub.w d3,d5
  3295.  move.w d0,d6
  3296.  sub.w d2,d6
  3297.  beq OFFSCREEN
  3298.  
  3299.  muls d2,d5
  3300.  divs d6,d5
  3301.  sub.w d5,d3
  3302.  move.w #0,d2
  3303.  
  3304. doneleftclip:
  3305.  
  3306.  cmp.w #191,d0
  3307.  ble p1xneg
  3308.  
  3309.  cmp.w #191,d2
  3310.  bgt OFFSCREEN
  3311.  
  3312.  move.w d0,d6
  3313.  sub.w d2,d6
  3314.  beq OFFSCREEN
  3315.  sub.w #191,d0
  3316.  move.w d3,d5
  3317.  sub.w d1,d5
  3318.  
  3319.  muls d5,d0
  3320.  divs d6,d0
  3321.  add.w d0,d1
  3322.  move.w #191,d0
  3323.  
  3324.  bra donerightclip
  3325.  
  3326. p1xneg:
  3327.  
  3328.  cmp.w #191,d2
  3329.  ble donerightclip
  3330.  
  3331.  move.w d2,d6
  3332.  sub.w d0,d6
  3333.  beq OFFSCREEN
  3334.  sub.w #191,d2
  3335.  move.w d1,d5
  3336.  sub.w d3,d5
  3337.  
  3338.  muls d5,d2
  3339.  divs d6,d2
  3340.  add.w d2,d3
  3341.  move.w #191,d2
  3342.  
  3343. donerightclip:
  3344.  
  3345. *********************************
  3346.  
  3347.  add.w #80,d1
  3348.  bge p1ypos
  3349.  
  3350.  add.w #80,d3
  3351.  blt OFFSCREEN
  3352.  
  3353.  move.w d2,d5
  3354.  sub.w d0,d5
  3355.  move.w d3,d6
  3356.  sub.w d1,d6
  3357.  beq OFFSCREEN
  3358.  
  3359.  muls d1,d5
  3360.  divs d6,d5
  3361.  sub.w d5,d0
  3362.  move.w #0,d1
  3363.  
  3364.  bra donetopclip
  3365.  
  3366. p1ypos:
  3367.  
  3368.  add.w #80,d3
  3369.  bge donetopclip
  3370.  
  3371.  move.w d0,d5
  3372.  sub.w d2,d5
  3373.  move.w d1,d6
  3374.  sub.w d3,d6
  3375.  beq OFFSCREEN
  3376.  
  3377.  muls d3,d5
  3378.  divs d6,d5
  3379.  sub.w d5,d2
  3380.  move.w #0,d3
  3381.  
  3382. donetopclip:
  3383.  
  3384.  cmp.w #159,d1
  3385.  ble p1yneg
  3386.  
  3387.  cmp.w #159,d3
  3388.  bgt OFFSCREEN
  3389.  
  3390.  move.w d1,d6
  3391.  sub.w d3,d6
  3392.  beq OFFSCREEN
  3393.  sub.w #159,d1
  3394.  move.w d2,d5
  3395.  sub.w d0,d5
  3396.  
  3397.  muls d5,d1
  3398.  divs d6,d1
  3399.  add.w d1,d0
  3400.  move.w #159,d1
  3401.  
  3402.  bra donebotclip
  3403.  
  3404. p1yneg:
  3405.  
  3406.  cmp.w #159,d3
  3407.  ble donebotclip
  3408.  
  3409.  move.w d3,d6
  3410.  sub.w d1,d6
  3411.  beq OFFSCREEN
  3412.  sub.w #159,d3
  3413.  move.w d0,d5
  3414.  sub.w d2,d5
  3415.  
  3416.  muls d5,d3
  3417.  divs d6,d3
  3418.  add.w d3,d2
  3419.  move.w #159,d3
  3420.  
  3421. donebotclip:
  3422.  
  3423.  tst.b TRRANS
  3424.  bne DRAWAtransLINE
  3425.  bra DRAWAMAPLINE
  3426.  
  3427. OFFSCREEN:
  3428. NOLINEtrans:
  3429.  rts
  3430.  
  3431. MAPBRIGHT:
  3432.  dc.w 3
  3433. mapxoff: dc.w 0
  3434. mapzoff: dc.w 0
  3435.  
  3436. DRAWAtransLINE:
  3437.  
  3438.  move.l FASTBUFFER,a0    ; screen to render to.
  3439.  
  3440.  tst.b FULLSCR
  3441.  beq.s .nooffset
  3442.   
  3443.  add.l #(320*40)+(48*2),a0
  3444.   
  3445. .nooffset:
  3446.  
  3447.  cmp.w d1,d3
  3448.  bgt.s .okdown
  3449.  bne.s .aline
  3450.  cmp.w d0,d2
  3451.  beq.s NOLINEtrans 
  3452. .aline
  3453.  exg d0,d2
  3454.  exg d1,d3
  3455. .okdown
  3456.  
  3457.  move.w d1,d5
  3458.  muls #320,d5
  3459.  add.l d5,a0
  3460.  lea (a0,d0.w*2),a0
  3461.  
  3462.  sub.w d1,d3
  3463.  
  3464.  sub.w d0,d2
  3465.  bge.s downrighttrans
  3466.  
  3467. downlefttrans:
  3468.  neg.w d2
  3469.  cmp.w d2,d3
  3470.  bgt.s downmorelefttrans
  3471.  
  3472. downleftmoretrans:
  3473.  move.w #320,d6
  3474.  move.w d2,d0
  3475.  move.w d2,d7
  3476.  
  3477. .linelop:
  3478.  move.b (a0),d4
  3479.  move.b (a4,d4.w*2),(a0)
  3480.  subq #1,a0
  3481.  sub.w d3,d0
  3482.  bgt.s .noextra
  3483.  add.w d2,d0
  3484.  add.w d6,a0
  3485. .noextra:
  3486.  dbra d7,.linelop
  3487.  rts
  3488.  
  3489. downmorelefttrans:
  3490.  move.w #320,d6
  3491.  move.w d3,d0
  3492.  move.w d3,d7
  3493.  
  3494. .linelop:
  3495.  move.b (a0),d4
  3496.  move.b (a4,d4.w*2),(a0)
  3497.  add.w d6,a0
  3498.  sub.w d2,d0
  3499.  bgt.s .noextra
  3500.  add.w d3,d0
  3501.  subq #1,a0
  3502. .noextra:
  3503.  dbra d7,.linelop
  3504.  
  3505.  rts
  3506.  
  3507. downrighttrans:
  3508.  
  3509.  cmp.w d2,d3
  3510.  bgt.s downmorerighttrans
  3511.  
  3512. downrightmoretrans:
  3513.  move.w #320,d6
  3514.  move.w d2,d0
  3515.  move.w d2,d7
  3516.  
  3517. .linelop:
  3518.  move.b (a0),d4
  3519.  move.b (a4,d4.w*2),(a0)+
  3520.  sub.w d3,d0
  3521.  bgt.s .noextra
  3522.  add.w d2,d0
  3523.  add.w d6,a0
  3524. .noextra:
  3525.  dbra d7,.linelop
  3526.  
  3527.  rts
  3528.  
  3529. downmorerighttrans:
  3530.  move.w #320,d6
  3531.  move.w d3,d0
  3532.  move.w d3,d7
  3533.  
  3534. .linelop:
  3535.  move.b (a0),d4
  3536.  move.b (a4,d4.w*2),(a0)
  3537.  add.w d6,a0
  3538.  sub.w d2,d0
  3539.  bgt.s .noextra
  3540.  add.w d3,d0
  3541.  addq #1,a0
  3542. .noextra:
  3543.  dbra d7,.linelop
  3544.  
  3545.  rts
  3546.  
  3547. NOLINE:
  3548.  rts
  3549.  
  3550. DRAWAMAPLINE:
  3551.  
  3552.  
  3553.  move.l FASTBUFFER,a0    ; screen to render to.
  3554.  cmp.w d1,d3
  3555.  bgt.s .okdown
  3556.  bne.s .aline
  3557.  cmp.w d0,d2
  3558.  beq.s NOLINE 
  3559. .aline
  3560.  exg d0,d2
  3561.  exg d1,d3
  3562. .okdown
  3563.  
  3564.  move.w d1,d5
  3565.  muls #320,d5
  3566.  add.l d5,a0
  3567.  lea (a0,d0.w),a0
  3568.  
  3569.  sub.w d1,d3
  3570.  
  3571.  sub.w d0,d2
  3572.  bge.s downright
  3573.  
  3574. downleft:
  3575.  neg.w d2
  3576.  cmp.w d2,d3
  3577.  bgt.s downmoreleft
  3578.  
  3579. downleftmore:
  3580.  move.w #320,d6
  3581.  move.w d2,d0
  3582.  move.w d2,d7
  3583.  addq #1,a0
  3584.  
  3585. .linelop:
  3586.  move.b d4,-(a0)
  3587.  sub.w d3,d0
  3588.  bgt.s .noextra
  3589.  add.w d2,d0
  3590.  add.w d6,a0
  3591. .noextra:
  3592.  dbra d7,.linelop
  3593.  rts
  3594.  
  3595. downmoreleft:
  3596.  move.w #320,d6
  3597.  move.w d3,d0
  3598.  move.w d3,d7
  3599.  
  3600. .linelop:
  3601.  move.b d4,(a0)
  3602.  add.w d6,a0
  3603.  sub.w d2,d0
  3604.  bgt.s .noextra
  3605.  add.w d3,d0
  3606.  subq #1,a0
  3607. .noextra:
  3608.  dbra d7,.linelop
  3609.  
  3610.  rts
  3611.  
  3612. downright:
  3613.  
  3614.  cmp.w d2,d3
  3615.  bgt.s downmoreright
  3616.  
  3617. downrightmore:
  3618.  move.w #320,d6
  3619.  move.w d2,d0
  3620.  move.w d2,d7
  3621.  
  3622. .linelop:
  3623.  move.b d4,(a0)+
  3624.  sub.w d3,d0
  3625.  bgt.s .noextra
  3626.  add.w d2,d0
  3627.  add.w d6,a0
  3628. .noextra:
  3629.  dbra d7,.linelop
  3630.  
  3631.  rts
  3632.  
  3633. downmoreright:
  3634.  move.w #320,d6
  3635.  move.w d3,d0
  3636.  move.w d3,d7
  3637.  
  3638. .linelop:
  3639.  move.b d4,(a0)
  3640.  add.w d6,a0
  3641.  sub.w d2,d0
  3642.  bgt.s .noextra
  3643.  add.w d3,d0
  3644.  addq #1,a0
  3645. .noextra:
  3646.  dbra d7,.linelop
  3647.  
  3648.  rts
  3649.  
  3650. SAVETHESCREEN:
  3651.  
  3652.  move.l old,$dff080
  3653.  move.w #$8020,$dff000+intena
  3654.  
  3655.  move.l _IntuitionBase,a6
  3656.  jsr _LVORethinkDisplay(a6)
  3657.  
  3658.  move.l doslib,a6
  3659.  move.l #SAVENAME,d1
  3660.  move.l #1006,d2
  3661.  jsr -30(a6)
  3662.  move.l d0,handle
  3663.  
  3664.  move.l doslib,a6
  3665.  move.l SCRNDRAWPT,d2
  3666.  move.l handle,d1
  3667.  move.l #10240*8,d3
  3668.  jsr _LVOWrite(a6)
  3669.  
  3670.  move.l doslib,a6
  3671.  move.l handle,d1
  3672.  jsr -36(a6)
  3673.  
  3674.  move.l doslib,a6
  3675.  move.l #200,d1
  3676.  jsr -198(a6) 
  3677.  
  3678.  move.w #$0020,$dff000+intena
  3679.  move.l #bigfield,$dff080
  3680.  
  3681.  add.b #1,SAVELETTER
  3682.  
  3683.  rts
  3684.  
  3685. SAVENAME: dc.b 'work:rawscrn'
  3686. SAVELETTER: dc.b 'd',0
  3687.  
  3688.  even
  3689.  
  3690.  include "ab3:source_4000/CHUNKY.s"
  3691.  
  3692.  
  3693. MASTERQUITTING: dc.b 0
  3694. SLAVEQUITTING: dc.b 0
  3695. MASTERPAUSE: dc.b 0
  3696. SLAVEPAUSE: dc.b 0
  3697.  
  3698. PAUSEOPTS:
  3699.  include "ab3:source_4000/pauseopts"
  3700.  
  3701. ENDZONE: dc.w 0
  3702.  
  3703. ENDZONES:
  3704. ; LEVEL 1
  3705.  dc.w -1
  3706. ; dc.w 55
  3707. ; LEVEL 2
  3708.  dc.w 149
  3709. ; LEVEL 3
  3710.  dc.w 155
  3711. ; LEVEL 4
  3712.  dc.w 107
  3713. ; LEVEL 5
  3714.  dc.w 67
  3715. ; LEVEL 6
  3716.  dc.w 132
  3717. ; LEVEL 7
  3718.  dc.w 203
  3719. ; LEVEL 8
  3720.  dc.w 166
  3721. ; LEVEL 9
  3722.  dc.w 118
  3723. ; LEVEL 10
  3724.  dc.w 102
  3725. ; LEVEL 11
  3726.  dc.w 103
  3727. ; LEVEL 12
  3728.  dc.w 2
  3729. ; LEVEL 13
  3730.  dc.w 98
  3731. ; LEVEL 14
  3732.  dc.w 0
  3733. ; LEVEL 15
  3734.  dc.w 148
  3735. ; LEVEL 16
  3736.  dc.w 103
  3737.  
  3738. ***************************************************************************
  3739. ***************************************************************************
  3740. ****************** End of Main Loop here ********************************** 
  3741. ***************************************************************************
  3742. ***************************************************************************
  3743.  
  3744. putinsmallscr:
  3745.  
  3746.  rts
  3747.  
  3748.  move.l #$1fe0000,statskip
  3749.  move.l #$1fe0000,statskip+4
  3750.  
  3751.  move.l #healthpal,a5
  3752. ; move.l COPSCRN1,a0
  3753. ; move.l COPSCRN2,a2
  3754.  move.w #scrheight-1,d0
  3755.  move.l #0,d6
  3756.  move.w #0,d3
  3757.  move.w #$2bdf,startwait
  3758.  move.w #$2d01,endwait
  3759. .fillcop
  3760.  move.w #$180,d1
  3761.  
  3762.  move.l a0,a1
  3763.  move.l a2,a3
  3764.  move.w #$10c,(a1)+
  3765.  move.w #$10c,(a3)+
  3766.  move.w d3,(a1)+
  3767.  move.w d3,(a3)+
  3768.  eor.w #$8000,d3
  3769.  
  3770.  move.w #$106,(a1)+
  3771.  move.w #$106,(a3)+
  3772.  move.w #$2c42,d5
  3773.  or.w d3,d5
  3774.  and.w #$fffe,d5
  3775.  move.w d5,(a1)+
  3776.  move.w d5,(a3)+
  3777.  bsr do32
  3778.  
  3779.  move.w #$106,(a1)+
  3780.  move.w #$106,(a3)+
  3781.  move.w #$4c42,d5
  3782.  or.w d3,d5
  3783.  and.w #$fffe,d5
  3784.  move.w d5,(a1)+
  3785.  move.w d5,(a3)+
  3786.  bsr do32
  3787.  
  3788.  move.w #$106,(a1)+
  3789.  move.w #$106,(a3)+
  3790.  move.w #$6c42,d5
  3791.  or.w d3,d5
  3792.  and.w #$fffe,d5
  3793.  move.w d5,(a1)+
  3794.  move.w d5,(a3)+
  3795.  bsr do32
  3796.  
  3797.  
  3798.  move.l #$1060c42,(a1)+
  3799.  move.l #$1060c42,(a3)+
  3800.  move.w #$19e,(a1)+
  3801.  move.w (a5),(a1)+
  3802.  move.w #$19e,(a3)+
  3803.  move.w (a5)+,(a3)+
  3804.  
  3805. **********************************
  3806.  
  3807.  adda.w #104*4,a0
  3808.  adda.w #104*4,a2
  3809.  dbra d0,.fillcop
  3810.  
  3811.  move.w #$48,fetchstart
  3812.  move.w #$88,fetchstop
  3813.  move.w #$2cb1,winstart
  3814.  move.w #$2c91,winstop
  3815.  move.w #-24,modulo
  3816.  move.w #-24,modulo+4
  3817.  
  3818.  move.l #nullspr,d0
  3819.  move.w d0,s4l
  3820.  move.w d0,s5l
  3821.  move.w d0,s6l
  3822.  move.w d0,s7l
  3823.  swap d0
  3824.  move.w d0,s4h
  3825.  move.w d0,s5h
  3826.  move.w d0,s6h
  3827.  move.w d0,s7h 
  3828.  
  3829. ; move.l #borders,d0
  3830. ; move.w d0,s0l
  3831. ; swap d0
  3832. ; move.w d0,s0h
  3833. ; move.l #borders+2592,d0
  3834. ; move.w d0,s1l
  3835. ; swap d0
  3836. ; move.w d0,s1h
  3837. ; move.l #borders+2592*2,d0
  3838. ; move.w d0,s2l
  3839. ; swap d0
  3840. ; move.w d0,s2h
  3841. ; move.l #borders+2592*3,d0
  3842. ; move.w d0,s3l
  3843. ; swap d0
  3844. ; move.w d0,s3h
  3845.  
  3846.  
  3847.  move.l scrn,a0
  3848.  add.l #40,a0
  3849.  move.l scrn,a1
  3850.  add.l #160,a1
  3851.  move.l scrn,a2
  3852.  add.l #280,a2
  3853.  move.l #smallscrntab,a3
  3854.  move.w #191,d7    ; counter
  3855.  move.w #0,d1    ; xpos
  3856. .plotscrnloop:
  3857.  move.b (a3)+,d0
  3858.  move.w d1,d2
  3859.  asr.w #3,d2
  3860.  move.b d1,d3
  3861.  not.b d3
  3862.  bclr.b d3,-40(a0,d2.w)
  3863.  bclr.b d3,(a0,d2.w)
  3864.  bclr.b d3,40(a0,d2.w)
  3865.  bclr.b d3,-40(a1,d2.w)
  3866.  bclr.b d3,(a1,d2.w)
  3867.  bclr.b d3,40(a1,d2.w)
  3868.  bclr.b d3,-40(a2,d2.w)
  3869.  btst #0,d0
  3870.  beq.s .nobp1
  3871.  bset.b d3,-40(a0,d2.w)
  3872. .nobp1:
  3873.  btst #1,d0
  3874.  beq.s .nobp2
  3875.  bset.b d3,(a0,d2.w)
  3876. .nobp2:
  3877.  btst #2,d0
  3878.  beq.s .nobp3
  3879.  bset.b d3,40(a0,d2.w)
  3880. .nobp3:
  3881.  btst #3,d0
  3882.  beq.s .nobp4
  3883.  bset.b d3,-40(a1,d2.w)
  3884. .nobp4:
  3885.  btst #4,d0
  3886.  beq.s .nobp5
  3887.  bset.b d3,(a1,d2.w)
  3888. .nobp5:
  3889.  btst #5,d0
  3890.  beq.s .nobp6
  3891.  bset.b d3,40(a1,d2.w)
  3892. .nobp6:
  3893.  btst #6,d0
  3894.  beq.s .nobp7
  3895.  bset.b d3,-40(a2,d2.w)
  3896. .nobp7:
  3897.  
  3898.  addq #1,d1
  3899.  
  3900.  dbra d7,.plotscrnloop
  3901.  
  3902.  
  3903.  rts
  3904.  
  3905. putinlargescr:
  3906.  
  3907.  move.l #$1000000,statskip
  3908.  move.l #$fffffffe,statskip+4
  3909.  
  3910.  move.l #healthpal,a5
  3911. ; move.l COPSCRN1,a0
  3912. ; move.l COPSCRN2,a2
  3913.  move.w #scrheight-1,d0
  3914.  move.l #0,d6
  3915.  move.w #0,d3
  3916.  move.w #$29df,startwait
  3917.  move.w #$2b01,endwait
  3918. .fillcop
  3919.  move.w #$180,d1
  3920.  
  3921.  move.l a0,a1
  3922.  move.l a2,a3
  3923.  move.w #$10c,(a1)+
  3924.  move.w #$10c,(a3)+
  3925.  move.w d3,(a1)+
  3926.  move.w d3,(a3)+
  3927.  eor.w #$8000,d3
  3928.  
  3929.  move.w #$106,(a1)+
  3930.  move.w #$106,(a3)+
  3931.  move.w #$2c42,d5
  3932.  or.w d3,d5
  3933.  and.w #$fffe,d5
  3934.  move.w d5,(a1)+
  3935.  move.w d5,(a3)+
  3936.  bsr do32
  3937.  
  3938.  move.w #$106,(a1)+
  3939.  move.w #$106,(a3)+
  3940.  move.w #$4c42,d5
  3941.  or.w d3,d5
  3942.  and.w #$fffe,d5
  3943.  move.w d5,(a1)+
  3944.  move.w d5,(a3)+
  3945.  bsr do32
  3946.  
  3947.  move.w #$106,(a1)+
  3948.  move.w #$106,(a3)+
  3949.  move.w #$6c42,d5
  3950.  or.w d3,d5
  3951.  and.w #$fffe,d5
  3952.  move.w d5,(a1)+
  3953.  move.w d5,(a3)+
  3954.  bsr do32
  3955.  
  3956.  move.w startwait,(a1)+
  3957.  move.w #$fffe,(a1)+
  3958.  move.w endwait,(a1)+
  3959.  move.w #$ff00,(a1)+
  3960.  move.w startwait,(a3)+
  3961.  move.w #$fffe,(a3)+
  3962.  move.w endwait,(a3)+
  3963.  move.w #$ff00,(a3)+
  3964.  
  3965. ; move.l $1fe0000,(a1)+
  3966. ; move.l $1fe0000,(a3)+
  3967. ; move.l $1fe0000,(a1)+
  3968. ; move.l $1fe0000,(a3)+
  3969.  
  3970.  
  3971.  add.w #$300,startwait
  3972.  add.w #$300,endwait
  3973.  
  3974. ; move.l #$1060c42,(a1)+
  3975. ; move.l #$1060c42,(a3)+
  3976. ; move.w #$19e,(a1)+
  3977. ; move.w (a5),(a1)+
  3978. ; move.w #$19e,(a3)+
  3979. ; move.w (a5)+,(a3)+
  3980.  
  3981. **********************************
  3982.  
  3983.  adda.w #104*4,a0
  3984.  adda.w #104*4,a2
  3985.  dbra d0,.fillcop
  3986.  
  3987.  move.w #$38,fetchstart
  3988.  move.w #$b8,fetchstop
  3989.  move.w #$2c81,winstart
  3990.  move.w #$2cc1,winstop
  3991.  move.w #-40,modulo
  3992.  move.w #-40,modulo+4
  3993.  
  3994.  move.l #nullspr,d0
  3995.  move.w d0,s0l
  3996.  move.w d0,s1l
  3997.  move.w d0,s2l
  3998.  move.w d0,s3l
  3999.  move.w d0,s4l
  4000.  move.w d0,s5l
  4001.  move.w d0,s6l
  4002.  move.w d0,s7l
  4003.  swap d0
  4004.  move.w d0,s0h
  4005.  move.w d0,s1h
  4006.  move.w d0,s2h
  4007.  move.w d0,s3h
  4008.  move.w d0,s4h
  4009.  move.w d0,s5h
  4010.  move.w d0,s6h
  4011.  move.w d0,s7h 
  4012.  
  4013.  move.l scrn,a0
  4014.  move.l a0,a1
  4015.  move.l a0,a2
  4016.  add.l #40,a0
  4017.  add.l #160,a1
  4018.  add.l #280,a2
  4019.  move.l #scrntab,a3
  4020.  move.w #319,d7    ; counter
  4021.  move.w #0,d1    ; xpos
  4022. .plotscrnloop:
  4023.  move.b (a3)+,d0
  4024.  move.w d1,d2
  4025.  asr.w #3,d2
  4026.  move.b d1,d3
  4027.  not.b d3
  4028.  bclr.b d3,-40(a0,d2.w)
  4029.  bclr.b d3,(a0,d2.w)
  4030.  bclr.b d3,40(a0,d2.w)
  4031.  bclr.b d3,-40(a1,d2.w)
  4032.  bclr.b d3,(a1,d2.w)
  4033.  bclr.b d3,40(a1,d2.w)
  4034.  bclr.b d3,-40(a2,d2.w)
  4035.  btst #0,d0
  4036.  beq.s .nobp1
  4037.  bset.b d3,-40(a0,d2.w)
  4038. .nobp1:
  4039.  btst #1,d0
  4040.  beq.s .nobp2
  4041.  bset.b d3,(a0,d2.w)
  4042. .nobp2:
  4043.  btst #2,d0
  4044.  beq.s .nobp3
  4045.  bset.b d3,40(a0,d2.w)
  4046. .nobp3:
  4047.  btst #3,d0
  4048.  beq.s .nobp4
  4049.  bset.b d3,-40(a1,d2.w)
  4050. .nobp4:
  4051.  btst #4,d0
  4052.  beq.s .nobp5
  4053.  bset.b d3,(a1,d2.w)
  4054. .nobp5:
  4055.  btst #5,d0
  4056.  beq.s .nobp6
  4057.  bset.b d3,40(a1,d2.w)
  4058. .nobp6:
  4059.  btst #6,d0
  4060.  beq.s .nobp7
  4061.  bset.b d3,-40(a2,d2.w)
  4062. .nobp7:
  4063.  
  4064.  addq #1,d1
  4065.  
  4066.  dbra d7,.plotscrnloop
  4067.  
  4068.  rts
  4069.  
  4070. CLEARKEYBOARD:
  4071.  move.l #KeyMap,a5
  4072.  moveq #0,d0
  4073.  move.w #15,d1
  4074. clrloo:
  4075.  move.l d0,(a5)+
  4076.  move.l d0,(a5)+
  4077.  move.l d0,(a5)+
  4078.  move.l d0,(a5)+
  4079.  dbra d1,clrloo
  4080.  rts
  4081.  
  4082. READCONTROLS: dc.w 0
  4083.  
  4084. tstststst: dc.w 0
  4085.  
  4086. BollocksRoom:
  4087.  dc.w -1
  4088.  ds.l 50
  4089.  
  4090. GUNYOFFS:
  4091.  dc.w 20
  4092.  dc.w 20
  4093.  dc.w 0
  4094.  dc.w 20
  4095.  dc.w 20
  4096.  dc.w 0
  4097.  dc.w 0
  4098.  dc.w 20
  4099.  
  4100. PLR1_BOBBLEY: dc.l 0
  4101. PLR2_BOBBLEY: dc.l 0
  4102.  
  4103. USEPLR1:
  4104.  
  4105. ***********************************
  4106.  
  4107.  move.l PLR1_Obj,a0 
  4108.  move.b #4,16(a0)
  4109.  move.l ObjectPoints,a1
  4110.  move.l #ObjRotated,a2
  4111.  move.w (a0),d0
  4112.  move.l PLR1_xoff,(a1,d0.w*8)
  4113.  move.l PLR1_zoff,4(a1,d0.w*8)
  4114.  move.l PLR1_Roompt,a1
  4115.  
  4116.  moveq #0,d2
  4117.  move.b damagetaken(a0),d2
  4118.  beq .notbeenshot
  4119.  
  4120.  moveq #0,d4
  4121.  move.w ImpactX(a0),d3
  4122.  beq.s .notwist
  4123.  move.w d2,d4
  4124. .notwist:
  4125.  add.w d3,PLR1s_xspdval
  4126.  move.w ImpactZ(a0),d3
  4127.  beq.s .notwist2
  4128.  move.w d2,d4
  4129. .notwist2:
  4130.  add.w d3,PLR1s_zspdval
  4131.  move.w ImpactY(a0),d3
  4132.  ext.l d3
  4133.  asl.l #8,d3
  4134.  add.l d3,PLR1s_yvel
  4135.  
  4136.  move.w #0,ImpactX(a0)
  4137.  move.w #0,ImpactY(a0)
  4138.  move.w #0,ImpactZ(a0)
  4139.  
  4140.  jsr GetRand
  4141.  muls d4,d0
  4142.  asr.l #8,d0
  4143.  asr.l #4,d0
  4144.  add.w d0,PLR1s_angspd
  4145.  
  4146.  move.l #7*2116,hitcol
  4147.  sub.w d2,PLAYERONEHEALTH
  4148.  movem.l d0-d7/a0-a6,-(a7)
  4149.  move.b #$fb,IDNUM
  4150.  move.w #19,Samplenum
  4151.  clr.b notifplaying
  4152.  move.w #0,Noisex
  4153.  move.w #0,Noisez
  4154.  move.w #100,Noisevol
  4155.  jsr MakeSomeNoise
  4156.  
  4157.  movem.l (a7)+,d0-d7/a0-a6
  4158.  
  4159. .notbeenshot
  4160.  move.b #0,damagetaken(a0)
  4161.  move.b #10,numlives(a0)
  4162.  
  4163.  move.w p1_angpos,Facing(a0)
  4164.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4165.  
  4166.  move.w (a1),12(a0)
  4167.  move.w (a1),d2
  4168.  move.l #ZoneBrightTable,a1
  4169.  move.l (a1,d2.w*4),d2
  4170.  tst.b PLR1_StoodInTop
  4171.  bne.s .okinbott
  4172.  swap d2
  4173. .okinbott:
  4174.  
  4175.  move.w d2,2(a0)
  4176.  
  4177.  
  4178.  move.l p1_yoff,d0
  4179.  move.l p1_height,d1
  4180.  asr.l #1,d1
  4181.  add.l d1,d0
  4182.  asr.l #7,d0
  4183.  move.w d0,4(a0)
  4184.  
  4185. ***********************************
  4186.  
  4187.  move.l PLR2_Obj,a0 
  4188.  move.b #5,16(a0)
  4189.  
  4190.  move.w p2_angpos,d0
  4191.  and.w #8190,d0
  4192.  move.w d0,Facing(a0)
  4193. ; 
  4194. ; jsr ViewpointToDraw
  4195. ; asl.w #2,d0
  4196. ; moveq #0,d1
  4197. ; move.b p2_bobble,d1
  4198. ; not.b d1
  4199. ; lsr.b #3,d1
  4200. ; and.b #$3,d1
  4201. ; add.w d1,d0
  4202. ; move.w d0,10(a0)
  4203. ; move.w #10,8(a0)
  4204. ; 
  4205.  
  4206.  move.l ObjectPoints,a1
  4207.  move.l #ObjRotated,a2
  4208.  move.w (a0),d0
  4209.  move.l PLR2_xoff,(a1,d0.w*8)
  4210.  move.l PLR2_zoff,4(a1,d0.w*8)
  4211.  move.l PLR2_Roompt,a1
  4212.  
  4213.  moveq #0,d2
  4214.  move.b damagetaken(a0),d2
  4215.  beq .notbeenshot2
  4216.  move.w ImpactX(a0),d3
  4217.  add.w d3,PLR2s_xspdval
  4218.  move.w ImpactZ(a0),d3
  4219.  add.w d3,PLR2s_zspdval
  4220.  move.w ImpactY(a0),d3
  4221.  ext.l d3
  4222.  asl.l #8,d3
  4223.  add.l d3,PLR2s_yvel
  4224.  
  4225.  move.w #0,ImpactX(a0)
  4226.  move.w #0,ImpactY(a0)
  4227.  move.w #0,ImpactZ(a0)
  4228.  
  4229.  sub.w d2,PLAYERTWOHEALTH
  4230. .notbeenshot2
  4231.  move.b #0,damagetaken(a0)
  4232.  move.b #10,numlives(a0)
  4233.  
  4234.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4235.  
  4236.  move.w (a1),12(a0)
  4237.  move.w (a1),d2
  4238.  move.l #ZoneBrightTable,a1
  4239.  move.l (a1,d2.w*4),d2
  4240.  tst.b PLR2_StoodInTop
  4241.  bne.s .okinbott2
  4242.  swap d2
  4243. .okinbott2:
  4244.  
  4245.  move.w d2,2(a0)
  4246.  
  4247.  move.l p2_yoff,d0
  4248.  move.l p2_height,d1
  4249.  asr.l #1,d1
  4250.  add.l d1,d0
  4251.  asr.l #7,d0
  4252.  move.w d0,4(a0)
  4253.  
  4254.  jsr ViewpointToDraw
  4255.  add.l d0,d0
  4256.  
  4257.  move.l LINKFILE,a6
  4258.  add.l #PLR2ALIEN,a6
  4259.  move.w (a6),d7
  4260.  move.w d7,d1
  4261.  
  4262.  move.l LINKFILE,a6
  4263.  add.l #AlienStats,a6
  4264.  muls #AlienStatLen,d1
  4265.  add.l d1,a6
  4266.  move.b A_GFXType+1(a6),VECOBJ
  4267.  cmp.w #1,A_GFXType(a6)
  4268.  bne.s .NOSIDES2
  4269.  
  4270.  moveq #0,d0
  4271.  
  4272. .NOSIDES2:
  4273.  
  4274.  move.l LINKFILE,a6
  4275.  
  4276.  add.l #AlienAnimData,a6
  4277.  
  4278.  move.w d7,d1
  4279.  muls #A_AnimLen,d1
  4280.  add.l d1,a6
  4281.  
  4282. ; move.l ANIMPOINTER,a6
  4283.  
  4284.  muls #A_OptLen,d0
  4285.  add.w d0,a6
  4286.  
  4287.  move.w SecTimer(a0),d1
  4288.  move.w d1,d2
  4289.  muls #A_FrameLen,d1
  4290.  
  4291.  addq #1,d2
  4292.  
  4293.  move.w d2,d3
  4294.  muls #A_FrameLen,d3
  4295.  tst.b (a6,d3.w)
  4296.  bge.s .noendanim
  4297.  move.w #0,d2
  4298. .noendanim
  4299.  move.w d2,SecTimer(a0)
  4300.  
  4301.  move.w d2,d1
  4302.  
  4303.  muls #A_FrameLen,d1
  4304.  
  4305.  move.l #0,8(a0)
  4306.  move.b (a6,d1.w),9(a0)
  4307.  move.b 1(a6,d1.w),d0
  4308.  ext.w d0
  4309.  bgt.s .noflip
  4310.  move.b #128,10(a0)
  4311.  neg.w d0
  4312. .noflip:
  4313.  sub.w #1,d0
  4314.  move.b d0,11(a0)
  4315.  
  4316.  move.w #-1,6(a0)
  4317.  cmp.b #1,VECOBJ
  4318.  beq.s .nosize
  4319.  bgt.s .setlight
  4320.  move.w 2(a6,d1.w),6(a0)
  4321.  bra.s .ddone
  4322.  
  4323. .nosize
  4324.  
  4325. ; move.l #$00090001,8(a0)
  4326.  
  4327.  bra.s .ddone
  4328.  
  4329. .setlight:
  4330.  move.w 2(a6,d1.w),6(a0)
  4331.  
  4332.  move.b VECOBJ,d1
  4333.  or.b d1,10(a0)
  4334.  
  4335. .ddone:
  4336.  
  4337.  
  4338. **********************************
  4339.  
  4340.  move.l PLR1_Obj,a0
  4341.  
  4342.  ifeq CHEESEY
  4343.  
  4344.  tst.w PLAYERONEHEALTH
  4345.  bgt.s .notdead
  4346.  
  4347.  move.w #-1,12+128(a0)
  4348.  rts
  4349.  
  4350. .notdead: 
  4351.  
  4352.  move.l PLR1_Roompt,a1
  4353.  
  4354.  move.w Facing(a0),d0
  4355.  add.w #4096,d0
  4356.  and.w #8190,d0
  4357.  move.w d0,Facing+128(a0)
  4358.  
  4359.  move.w (a1),12+128(a0)
  4360.  move.w (a1),GraphicRoom+128(a0)
  4361.  
  4362.  moveq #0,d0
  4363.  move.b p1_gunselected,d0
  4364.  
  4365.  move.l LINKFILE,a1
  4366.  add.l #GunObjects,a1
  4367.  move.w (a1,d0.w*2),d0
  4368.  
  4369.  move.b d0,TypeOfThing+128(a0)
  4370.  move.b #1,128+16(a0)
  4371.  
  4372.  move.w (a0),d0
  4373.  move.w 128(a0),d1
  4374.  move.l ObjectPoints,a1
  4375.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4376.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4377.  
  4378.  st WhichAnim+128(a0)
  4379.  
  4380.  move.l p1_yoff,d0
  4381.  move.l p1_height,d1
  4382.  asr.l #2,d1
  4383.  add.l #10*128,d1
  4384.  add.l d1,d0
  4385.  asr.l #7,d0
  4386.  move.w d0,4+128(a0)
  4387.  move.l PLR1_BOBBLEY,d1
  4388.  asr.l #8,d1
  4389.  move.l d1,d0
  4390.  asr.l #1,d0
  4391.  add.l d0,d1
  4392.  add.w d1,4+128(a0)
  4393.  
  4394.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4395.  
  4396.  endc
  4397.  
  4398.  ifne CHEESEY
  4399.  move.w #-1,12+128(a0)
  4400.  endc
  4401.  
  4402.  rts
  4403.  
  4404. ***************************************************
  4405. **************************************************
  4406.  
  4407. USEPLR2:
  4408.  
  4409. ***********************************
  4410.  
  4411.  move.l PLR2_Obj,a0 
  4412.  move.b #5,16(a0)
  4413.  move.l ObjectPoints,a1
  4414.  move.l #ObjRotated,a2
  4415.  move.w (a0),d0
  4416.  move.l PLR2_xoff,(a1,d0.w*8)
  4417.  move.l PLR2_zoff,4(a1,d0.w*8)
  4418.  move.l PLR2_Roompt,a1
  4419.  
  4420.  moveq #0,d2
  4421.  move.b damagetaken(a0),d2
  4422.  beq .notbeenshot
  4423.  
  4424.  moveq #0,d4
  4425.  move.w ImpactX(a0),d3
  4426.  beq.s .notwist
  4427.  move.w d2,d4
  4428. .notwist:
  4429.  add.w d3,PLR2s_xspdval
  4430.  move.w ImpactZ(a0),d3
  4431.  beq.s .notwist2
  4432.  move.w d2,d4
  4433. .notwist2:
  4434.  add.w d3,PLR2s_zspdval
  4435.  
  4436.  jsr GetRand
  4437.  muls d4,d0
  4438.  asr.l #8,d0
  4439.  asr.l #4,d0
  4440.  add.w d0,PLR2s_angspd
  4441.  
  4442.  move.l #7*2116,hitcol
  4443.  sub.w d2,PLAYERTWOHEALTH
  4444.  movem.l d0-d7/a0-a6,-(a7)
  4445.  move.w #19,Samplenum
  4446.  clr.b notifplaying
  4447.  move.b #$fb,IDNUM
  4448.  move.w #0,Noisex
  4449.  move.w #0,Noisez
  4450.  move.w #100,Noisevol
  4451.  jsr MakeSomeNoise
  4452.  
  4453.  movem.l (a7)+,d0-d7/a0-a6
  4454.  
  4455. .notbeenshot
  4456.  move.b #0,damagetaken(a0)
  4457.  move.b #10,numlives(a0)
  4458.  
  4459.  move.w p2_angpos,Facing(a0)
  4460.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4461.  
  4462.  move.w (a1),12(a0)
  4463.  move.w (a1),d2
  4464.  move.l #ZoneBrightTable,a1
  4465.  move.l (a1,d2.w*4),d2
  4466.  tst.b PLR2_StoodInTop
  4467.  bne.s .okinbott
  4468.  swap d2
  4469. .okinbott:
  4470.  
  4471.  move.w d2,2(a0)
  4472.  
  4473.  move.l PLR2_yoff,d0
  4474.  move.l p2_height,d1
  4475.  asr.l #1,d1
  4476.  add.l d1,d0
  4477.  asr.l #7,d0
  4478.  move.w d0,4(a0)
  4479.  
  4480. ***********************************
  4481.  
  4482.  move.l PLR1_Obj,a0 
  4483.  move.b #4,16(a0)
  4484.  
  4485.  move.w PLR1_angpos,d0
  4486.  and.w #8190,d0
  4487.  move.w d0,Facing(a0)
  4488. ; 
  4489. ; jsr ViewpointToDraw
  4490. ; asl.w #2,d0
  4491. ; moveq #0,d1
  4492. ; move.b p2_bobble,d1
  4493. ; not.b d1
  4494. ; lsr.b #3,d1
  4495. ; and.b #$3,d1
  4496. ; add.w d1,d0
  4497. ; move.w d0,10(a0)
  4498. ; move.w #10,8(a0)
  4499. ; 
  4500.  
  4501.  move.l ObjectPoints,a1
  4502.  move.l #ObjRotated,a2
  4503.  move.w (a0),d0
  4504.  move.l PLR1_xoff,(a1,d0.w*8)
  4505.  move.l PLR1_zoff,4(a1,d0.w*8)
  4506.  move.l PLR1_Roompt,a1
  4507.  
  4508.  moveq #0,d2
  4509.  move.b damagetaken(a0),d2
  4510.  beq .notbeenshot2
  4511.  
  4512.  move.w ImpactX(a0),d3
  4513.  add.w d3,PLR1s_xspdval
  4514.  move.w ImpactZ(a0),d3
  4515.  add.w d3,PLR1s_zspdval
  4516.  
  4517.  sub.w d2,PLAYERONEHEALTH
  4518. .notbeenshot2
  4519.  move.b #0,damagetaken(a0)
  4520.  move.b #10,numlives(a0)
  4521.  
  4522.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4523.  
  4524.  move.w (a1),12(a0)
  4525.  move.w (a1),d2
  4526.  move.l #ZoneBrightTable,a1
  4527.  move.l (a1,d2.w*4),d2
  4528.  tst.b PLR1_StoodInTop
  4529.  bne.s .okinbott2
  4530.  swap d2
  4531. .okinbott2:
  4532.  
  4533.  move.w d2,2(a0)
  4534.  
  4535.  move.l p1_yoff,d0
  4536.  move.l p1_height,d1
  4537.  asr.l #1,d1
  4538.  add.l d1,d0
  4539.  asr.l #7,d0
  4540.  move.w d0,4(a0)
  4541.  
  4542.  jsr ViewpointToDraw
  4543.  add.l d0,d0
  4544.  
  4545.  move.l LINKFILE,a6
  4546.  add.l #PLR1ALIEN,a6
  4547.  move.w (a6),d7
  4548.  move.w d7,d1
  4549.  
  4550.  move.l LINKFILE,a6
  4551.  add.l #AlienStats,a6
  4552.  muls #AlienStatLen,d1
  4553.  add.l d1,a6
  4554.  move.b A_GFXType+1(a6),VECOBJ
  4555.  cmp.w #1,A_GFXType(a6)
  4556.  bne.s .NOSIDES2
  4557.  
  4558.  moveq #0,d0
  4559.  
  4560. .NOSIDES2:
  4561.  
  4562.  move.l LINKFILE,a6
  4563.  
  4564.  add.l #AlienAnimData,a6
  4565.  
  4566.  move.w d7,d1
  4567.  muls #A_AnimLen,d1
  4568.  add.l d1,a6
  4569.  
  4570. ; move.l ANIMPOINTER,a6
  4571.  
  4572.  muls #A_OptLen,d0
  4573.  add.w d0,a6
  4574.  
  4575.  move.w SecTimer(a0),d1
  4576.  move.w d1,d2
  4577.  muls #A_FrameLen,d1
  4578.  
  4579.  addq #1,d2
  4580.  
  4581.  move.w d2,d3
  4582.  muls #A_FrameLen,d3
  4583.  tst.b (a6,d3.w)
  4584.  bge.s .noendanim
  4585.  move.w #0,d2
  4586. .noendanim
  4587.  move.w d2,SecTimer(a0)
  4588.  
  4589.  move.w d2,d1
  4590.  
  4591.  muls #A_FrameLen,d1
  4592.  
  4593.  move.l #0,8(a0)
  4594.  move.b (a6,d1.w),9(a0)
  4595.  move.b 1(a6,d1.w),d0
  4596.  ext.w d0
  4597.  bgt.s .noflip
  4598.  move.b #128,10(a0)
  4599.  neg.w d0
  4600. .noflip:
  4601.  sub.w #1,d0
  4602.  move.b d0,11(a0)
  4603.  
  4604.  move.w #-1,6(a0)
  4605.  cmp.b #1,VECOBJ
  4606.  beq.s .nosize
  4607.  bgt.s .setlight
  4608.  move.w 2(a6,d1.w),6(a0)
  4609.  bra.s .ddone
  4610.  
  4611. .nosize
  4612.  
  4613. ; move.l #$00090001,8(a0)
  4614.  
  4615.  bra.s .ddone
  4616.  
  4617. .setlight:
  4618.  move.w 2(a6,d1.w),6(a0)
  4619.  
  4620.  move.b VECOBJ,d1
  4621.  or.b d1,10(a0)
  4622.  
  4623. .ddone:
  4624.  
  4625. **********************************
  4626.  
  4627.  move.l PLR2_Obj,a0
  4628.  
  4629.  ifeq CHEESEY
  4630.  
  4631.  tst.w PLAYERTWOHEALTH
  4632.  bgt.s .notdead
  4633.  
  4634.  move.w #-1,12+64(a0)
  4635.  rts
  4636.  
  4637. .notdead: 
  4638.  move.l PLR2_Roompt,a1
  4639.  
  4640.  move.w Facing(a0),d0
  4641.  add.w #4096,d0
  4642.  and.w #8190,d0
  4643.  move.w d0,Facing+64(a0)
  4644.  
  4645.  move.w (a1),12+64(a0)
  4646.  move.w (a1),GraphicRoom+64(a0)
  4647.  
  4648.  moveq #0,d0
  4649.  move.b p2_gunselected,d0
  4650.  
  4651.  move.l LINKFILE,a1
  4652.  add.l #GunObjects,a1
  4653.  move.w (a1,d0.w*2),d0
  4654.  
  4655.  move.b d0,TypeOfThing+64(a0)
  4656.  move.b #1,64+16(a0)
  4657.  
  4658.  move.w (a0),d0
  4659.  move.w 64(a0),d1
  4660.  move.l ObjectPoints,a1
  4661.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4662.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4663.  
  4664.  st WhichAnim+64(a0)
  4665.  
  4666.  move.l p2_yoff,d0
  4667.  move.l p2_height,d1
  4668.  asr.l #2,d1
  4669.  add.l #10*128,d1
  4670.  add.l d1,d0
  4671.  asr.l #7,d0
  4672.  move.w d0,4+64(a0)
  4673.  move.l PLR2_BOBBLEY,d1
  4674.  asr.l #8,d1
  4675.  move.l d1,d0
  4676.  asr.l #1,d0
  4677.  add.l d0,d1
  4678.  add.w d1,4+64(a0)
  4679.  
  4680.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4681.  
  4682.  endc
  4683.  
  4684.  ifne CHEESEY
  4685.  
  4686.  move.w #-1,12+64(a0)
  4687.  endc
  4688.  
  4689.  rts
  4690.  
  4691.  
  4692.  
  4693. GunSelected: dc.b 0
  4694.  even
  4695.  
  4696.  
  4697. GunData: dc.l 0
  4698.  
  4699.  
  4700. protA: dc.w 0
  4701.  
  4702. Path:
  4703. ; incbin "testpath"
  4704. endpath:
  4705. pathpt: dc.l Path
  4706.  
  4707.  
  4708. PLR1KEYS: dc.b 0
  4709. PLR1PATH: dc.b 0
  4710. PLR1MOUSE: dc.b -1
  4711. PLR1JOY: dc.b 0
  4712. PLR2KEYS: dc.b 0
  4713. PLR2PATH: dc.b 0
  4714. PLR2MOUSE: dc.b -1
  4715. PLR2JOY: dc.b 0
  4716.  
  4717.  even
  4718.  
  4719. PLR1_bobble: dc.w 0
  4720. PLR2_bobble: dc.w 0
  4721. xwobble: dc.l 0
  4722. xwobxoff: dc.w 0
  4723.  
  4724. xwobzoff: dc.w 0
  4725.  
  4726. PLR1_Control:
  4727.  
  4728. ; Take a snapshot of everything.
  4729.  
  4730.  move.l PLR1_xoff,d2
  4731.  move.l d2,PLR1_oldxoff
  4732.  move.l d2,oldx
  4733.  move.l PLR1_zoff,d3
  4734.  move.l d3,PLR1_oldzoff
  4735.  move.l d3,oldz
  4736.  move.l p1_xoff,d0
  4737.  move.l d0,PLR1_xoff
  4738.  move.l d0,newx
  4739.  move.l p1_zoff,d1
  4740.  move.l d1,newz
  4741.  move.l d1,PLR1_zoff
  4742.  
  4743.  move.l p1_height,PLR1_height
  4744.  
  4745.  sub.l d2,d0
  4746.  sub.l d3,d1
  4747.  move.l d0,xdiff
  4748.  move.l d1,zdiff
  4749.  move.w p1_angpos,d0
  4750.  move.w d0,PLR1_angpos
  4751.  
  4752.  move.l #SineTable,a1
  4753.  move.w (a1,d0.w),PLR1_sinval
  4754.  add.w #2048,d0
  4755.  and.w #8190,d0
  4756.  move.w (a1,d0.w),PLR1_cosval
  4757.  
  4758.  move.l p1_yoff,d0
  4759.  move.w p1_bobble,d1
  4760.  move.w (a1,d1.w),d1
  4761.  move.w d1,d3
  4762.  ble.s .notnegative
  4763.  neg.w d1
  4764. .notnegative:
  4765.  add.w #16384,d1
  4766.  asr.w #4,d1
  4767.  
  4768.  tst.b PLR1_Ducked
  4769.  bne.s .notdouble
  4770.  add.w d1,d1
  4771. .notdouble
  4772.  ext.l d1
  4773.  
  4774.  move.l d1,PLR1_BOBBLEY
  4775.  
  4776.  move.l PLR1_height,d4
  4777.  sub.l d1,d4
  4778.  add.l d1,d0
  4779.  
  4780.  cmp.b #'s',mors
  4781.  beq.s .otherwob
  4782.  asr.w #6,d3
  4783.  ext.l d3
  4784.  move.l d3,xwobble
  4785.  move.w PLR1_sinval,d1
  4786.  muls d3,d1
  4787.  move.w PLR1_cosval,d2
  4788.  muls d3,d2
  4789.  swap d1
  4790.  swap d2
  4791.  asr.w #7,d1
  4792.  move.w d1,xwobxoff
  4793.  asr.w #7,d2
  4794.  neg.w d2
  4795.  move.w d2,xwobzoff
  4796. .otherwob
  4797.  
  4798.  move.l d0,PLR1_yoff
  4799.  move.l d0,newy
  4800.  move.l d0,oldy
  4801.  
  4802.  move.l d4,thingheight
  4803.  move.l #40*256,StepUpVal
  4804.  tst.b PLR1_Ducked
  4805.  beq.s .okbigstep
  4806.  move.l #10*256,StepUpVal
  4807. .okbigstep:
  4808.  
  4809.  move.l #$1000000,StepDownVal
  4810.  
  4811.  move.l PLR1_Roompt,a0
  4812.  move.w ToTelZone(a0),d0
  4813.  blt .noteleport
  4814.  
  4815.  move.w ToTelX(a0),newx
  4816.  move.w ToTelZ(a0),newz
  4817.  move.w #-1,CollId
  4818.  move.l #%111111111111111111,CollideFlags
  4819.  jsr Collision
  4820.  tst.b hitwall
  4821.  beq.s .teleport
  4822.  
  4823.  move.w PLR1_xoff,newx
  4824.  move.w PLR1_zoff,newz
  4825.  bra .noteleport
  4826.  
  4827. .teleport:
  4828.  
  4829.  st PLR1_TELEPORTED
  4830.  
  4831.  move.l PLR1_Roompt,a0
  4832.  move.w ToTelZone(a0),d0
  4833.  move.w ToTelX(a0),PLR1_xoff
  4834.  move.w ToTelZ(a0),PLR1_zoff
  4835.  move.l PLR1_yoff,d1
  4836.  sub.l ToZoneFloor(a0),d1
  4837.  move.l ZoneAdds,a0
  4838.  move.l (a0,d0.w*4),a0
  4839.  add.l LEVELDATA,a0
  4840.  move.l a0,PLR1_Roompt
  4841.  add.l ToZoneFloor(a0),d1
  4842.  move.l d1,PLR1s_yoff
  4843.  move.l d1,PLR1_yoff
  4844.  move.l d1,PLR1s_tyoff
  4845.  move.l PLR1_xoff,PLR1s_xoff
  4846.  move.l PLR1_zoff,PLR1s_zoff
  4847.  
  4848.  SAVEREGS
  4849.  move.w #0,Noisex
  4850.  move.w #0,Noisez
  4851.  move.w #26,Samplenum
  4852.  move.w #100,Noisevol
  4853.  move.b #$fa,IDNUM
  4854.  jsr MakeSomeNoise
  4855.  GETREGS
  4856.  
  4857.  bra .cantmove
  4858.  
  4859. .noteleport:
  4860.  
  4861.  move.l PLR1_Roompt,objroom
  4862.  move.w #%100000000,wallflags
  4863.  move.b PLR1_StoodInTop,StoodInTop
  4864.  
  4865.  move.l #%1011111110111000011,CollideFlags
  4866.  move.w #-1,CollId
  4867.  
  4868.  jsr Collision
  4869.  tst.b hitwall
  4870.  beq.s .nothitanything
  4871.  move.w oldx,PLR1_xoff
  4872.  move.w oldz,PLR1_zoff
  4873.  move.l PLR1_xoff,PLR1s_xoff
  4874.  move.l PLR1_zoff,PLR1s_zoff
  4875.  bra .cantmove
  4876. .nothitanything:
  4877.  
  4878.  move.w #40,extlen
  4879.  move.b #0,awayfromwall
  4880.  
  4881.  clr.b exitfirst
  4882.  clr.b wallbounce
  4883.  bsr MoveObject
  4884.  move.b StoodInTop,PLR1_StoodInTop
  4885.  move.l objroom,PLR1_Roompt
  4886.  move.w newx,PLR1_xoff
  4887.  move.w newz,PLR1_zoff
  4888.  move.l PLR1_xoff,PLR1s_xoff
  4889.  move.l PLR1_zoff,PLR1s_zoff
  4890.  
  4891. .cantmove:
  4892.  
  4893.  move.l PLR1_Roompt,a0
  4894.  
  4895.  move.l ToZoneFloor(a0),d0
  4896.  tst.b PLR1_StoodInTop
  4897.  beq.s notintop
  4898.  move.l ToUpperFloor(a0),d0
  4899. notintop:
  4900.  
  4901.  adda.w #ToZonePts,a0
  4902.  sub.l PLR1_height,d0
  4903.  move.l d0,PLR1s_tyoff
  4904.  move.w p1_angpos,tmpangpos
  4905.  
  4906. ; move.l (a0),a0        ; jump to viewpoint list
  4907.  * A0 is pointing at a pointer to list of points to rotate
  4908.  move.w (a0)+,d1
  4909.  ext.l d1
  4910.  add.l PLR1_Roompt,d1
  4911.  move.l d1,PLR1_PointsToRotatePtr
  4912.  tst.b (a0)+
  4913.  sne.s DRAWNGRAPHTOP
  4914.  beq.s nobackgraphics
  4915.  cmp.b #'s',mors
  4916.  beq.s nobackgraphics
  4917.  move.l a0,-(a7)
  4918.  jsr putinbackdrop 
  4919.  move.l (a7)+,a0
  4920. nobackgraphics:
  4921.  
  4922.  move.b (a0)+,PLR1_Echo
  4923.  
  4924.  adda.w #10,a0
  4925.  move.l a0,PLR1_ListOfGraphRooms
  4926.  
  4927. *************************************************
  4928.  rts
  4929.  
  4930. DRAWNGRAPHTOP
  4931.  dc.w 0 
  4932. tstzone: dc.l 0
  4933. CollId: dc.w 0
  4934.  
  4935. PLR2_Control:
  4936.  
  4937. ; Take a snapshot of everything.
  4938.  
  4939.  move.l PLR2_xoff,d2
  4940.  move.l d2,PLR2_oldxoff
  4941.  move.l d2,oldx
  4942.  move.l PLR2_zoff,d3
  4943.  move.l d3,PLR2_oldzoff
  4944.  move.l d3,oldz
  4945.  move.l p2_xoff,d0
  4946.  move.l d0,PLR2_xoff
  4947.  move.l d0,newx
  4948.  move.l p2_zoff,d1
  4949.  move.l d1,newz
  4950.  move.l d1,PLR2_zoff
  4951.  
  4952.  move.l p2_height,PLR2_height
  4953.  
  4954.  sub.l d2,d0
  4955.  sub.l d3,d1
  4956.  move.l d0,xdiff
  4957.  move.l d1,zdiff
  4958.  move.w p2_angpos,d0
  4959.  move.w d0,PLR2_angpos
  4960.  
  4961.  move.l #SineTable,a1
  4962.  move.w (a1,d0.w),PLR2_sinval
  4963.  add.w #2048,d0
  4964.  and.w #8190,d0
  4965.  move.w (a1,d0.w),PLR2_cosval
  4966.  
  4967.  move.l p2_yoff,d0
  4968.  move.w p2_bobble,d1
  4969.  move.w (a1,d1.w),d1
  4970.  move.w d1,d3
  4971.  ble.s .notnegative
  4972.  neg.w d1
  4973. .notnegative:
  4974.  add.w #16384,d1
  4975.  asr.w #4,d1
  4976.  
  4977.  tst.b PLR2_Ducked
  4978.  bne.s .notdouble
  4979.  add.w d1,d1
  4980. .notdouble
  4981.  ext.l d1
  4982.  
  4983.  move.l d1,PLR2_BOBBLEY
  4984.  
  4985.  move.l PLR2_height,d4
  4986.  sub.l d1,d4
  4987.  add.l d1,d0
  4988.  
  4989.  cmp.b #'s',mors
  4990.  bne.s .otherwob
  4991.  asr.w #6,d3
  4992.  ext.l d3
  4993.  move.l d3,xwobble
  4994.  move.w PLR2_sinval,d1
  4995.  muls d3,d1
  4996.  move.w PLR2_cosval,d2
  4997.  muls d3,d2
  4998.  swap d1
  4999.  swap d2
  5000.  asr.w #7,d1
  5001.  move.w d1,xwobxoff
  5002.  asr.w #7,d2
  5003.  neg.w d2
  5004.  move.w d2,xwobzoff
  5005. .otherwob
  5006.  
  5007.  move.l d0,PLR2_yoff
  5008.  move.l d0,newy
  5009.  move.l d0,oldy
  5010.  
  5011.  move.l d4,thingheight
  5012.  move.l #40*256,StepUpVal
  5013.  tst.b PLR2_Ducked
  5014.  beq.s .okbigstep
  5015.  move.l #10*256,StepUpVal
  5016. .okbigstep:
  5017.  
  5018.  move.l #$1000000,StepDownVal
  5019.  
  5020.  move.l PLR2_Roompt,a0
  5021.  move.w ToTelZone(a0),d0
  5022.  blt .noteleport
  5023.  
  5024.  move.w ToTelX(a0),newx
  5025.  move.w ToTelZ(a0),newz
  5026.  move.w #-1,CollId
  5027.  move.l #%111111111111111111,CollideFlags
  5028.  jsr Collision
  5029.  tst.b hitwall
  5030.  beq.s .teleport
  5031.  
  5032.  move.w PLR2_xoff,newx
  5033.  move.w PLR2_zoff,newz
  5034.  bra .noteleport
  5035.  
  5036. .teleport:
  5037.  
  5038.  st PLR2_TELEPORTED
  5039.  
  5040.  move.l PLR2_Roompt,a0
  5041.  move.w ToTelZone(a0),d0
  5042.  move.w ToTelX(a0),PLR2_xoff
  5043.  move.w ToTelZ(a0),PLR2_zoff
  5044.  move.l PLR2_yoff,d1
  5045.  sub.l ToZoneFloor(a0),d1
  5046.  move.l ZoneAdds,a0
  5047.  move.l (a0,d0.w*4),a0
  5048.  add.l LEVELDATA,a0
  5049.  move.l a0,PLR2_Roompt
  5050.  add.l ToZoneFloor(a0),d1
  5051.  move.l d1,PLR2s_yoff
  5052.  move.l d1,PLR2_yoff
  5053.  move.l d1,PLR2s_tyoff
  5054.  move.l PLR2_xoff,PLR2s_xoff
  5055.  move.l PLR2_zoff,PLR2s_zoff
  5056.  
  5057.  SAVEREGS
  5058.  move.w #0,Noisex
  5059.  move.w #0,Noisez
  5060.  move.w #26,Samplenum
  5061.  move.w #100,Noisevol
  5062.  move.b #$fa,IDNUM
  5063.  jsr MakeSomeNoise
  5064.  GETREGS
  5065.  
  5066.  bra .cantmove
  5067.  
  5068. .noteleport:
  5069.  
  5070.  move.l PLR2_Roompt,objroom
  5071.  move.w #%100000000000,wallflags
  5072.  move.b PLR2_StoodInTop,StoodInTop
  5073.  
  5074.  move.l #%1011111010111100011,CollideFlags
  5075.  move.w #-1,CollId
  5076.  
  5077.  jsr Collision
  5078.  tst.b hitwall
  5079.  beq.s .nothitanything
  5080.  move.w oldx,PLR2_xoff
  5081.  move.w oldz,PLR2_zoff
  5082.  move.l PLR2_xoff,PLR2s_xoff
  5083.  move.l PLR2_zoff,PLR2s_zoff
  5084.  bra .cantmove
  5085. .nothitanything:
  5086.  
  5087.  move.w #40,extlen
  5088.  move.b #0,awayfromwall
  5089.  
  5090.  clr.b exitfirst
  5091.  clr.b wallbounce
  5092.  bsr MoveObject
  5093.  move.b StoodInTop,PLR2_StoodInTop
  5094.  move.l objroom,PLR2_Roompt
  5095.  move.w newx,PLR2_xoff
  5096.  move.w newz,PLR2_zoff
  5097.  move.l PLR2_xoff,PLR2s_xoff
  5098.  move.l PLR2_zoff,PLR2s_zoff
  5099.  
  5100. .cantmove
  5101.  
  5102.  move.l PLR2_Roompt,a0
  5103.  
  5104.  move.l ToZoneFloor(a0),d0
  5105.  tst.b PLR2_StoodInTop
  5106.  beq.s .notintop
  5107.  move.l ToUpperFloor(a0),d0
  5108. .notintop:
  5109.  
  5110.  adda.w #ToZonePts,a0
  5111.  sub.l PLR2_height,d0
  5112.  move.l d0,PLR2s_tyoff
  5113.  move.w p2_angpos,tmpangpos
  5114.  
  5115. ; move.l (a0),a0        ; jump to viewpoint list
  5116.  * A0 is pointing at a pointer to list of points to rotate
  5117.  move.w (a0)+,d1
  5118.  ext.l d1
  5119.  add.l PLR2_Roompt,d1
  5120.  move.l d1,PLR2_PointsToRotatePtr
  5121.  tst.b (a0)+
  5122.  sne.s DRAWNGRAPHTOP
  5123.  beq.s .nobackgraphics
  5124.  cmp.b #'s',mors
  5125.  bne.s .nobackgraphics
  5126.  move.l a0,-(a7)
  5127.  jsr putinbackdrop 
  5128.  move.l (a7)+,a0
  5129. .nobackgraphics:
  5130.  
  5131.  move.b (a0)+,PLR2_Echo
  5132.  
  5133.  adda.w #10,a0
  5134.  move.l a0,PLR2_ListOfGraphRooms
  5135.  
  5136. *****************************************************
  5137.  rts
  5138.  
  5139.  
  5140. KeyMap: ds.b 256
  5141.  
  5142. fillscrnwater:
  5143.  dc.w 0
  5144. DONTDOGUN:
  5145.  dc.w 0
  5146.  
  5147. ;temptemp: ds.l 200
  5148. ;temptempptr: dc.l 0
  5149.  
  5150. DrawDisplay:
  5151.  
  5152. ; move.l #temptemp,temptempptr
  5153.  
  5154.  clr.b fillscrnwater
  5155.  
  5156.  move.l #SineTable,a0
  5157.  move.w angpos,d0
  5158.  move.w (a0,d0.w),d6
  5159.  adda.w #2048,a0
  5160.  move.w (a0,d0.w),d7
  5161.  move.w d6,sinval
  5162.  move.w d7,cosval
  5163.  
  5164.  move.l yoff,d0
  5165.  asr.l #8,d0
  5166.  move.w d0,d1
  5167.  add.w #256-32,d1
  5168.  and.w #255,d1
  5169.  move.w d1,wallyoff
  5170.  move.l yoff,d0
  5171.  asr.l #6,d0
  5172.  move.w d0,flooryoff
  5173.  
  5174.  move.w xoff,d6
  5175.  move.w d6,d3
  5176.  asr.w #1,d3
  5177.  add.w d3,d6
  5178.  asr.w #1,d6
  5179.  move.w d6,xoff34
  5180.  
  5181.  move.w zoff,d6
  5182.  move.w d6,d3
  5183.  asr.w #1,d3
  5184.  add.w d3,d6
  5185.  asr.w #1,d6
  5186.  move.w d6,zoff34
  5187.  
  5188.  bsr RotateLevelPts
  5189.  bsr RotateObjectPts
  5190.  bsr CalcPLR1InLine
  5191.  
  5192.  cmp.b #'n',mors
  5193.  bne.s doplr2too
  5194.  move.l PLR2_Obj,a0
  5195.  move.w #-1,12(a0)
  5196.  move.w #-1,GraphicRoom(a0)
  5197.  bra noplr2either
  5198.  
  5199. doplr2too:
  5200.  bsr CalcPLR2InLine
  5201. noplr2either:
  5202.  
  5203.  move.l endoflist,a0
  5204. ; move.w #-1,(a0)
  5205.  
  5206. ; move.l #FinalOrder,a0
  5207.  
  5208.  
  5209. subroomloop:
  5210. ; move.w (a0)+,d7
  5211.  move.w -(a0),d7
  5212.  blt jumpoutofrooms
  5213.  
  5214. ; bsr setlrclip
  5215. ; move.w leftclip,d0
  5216. ; cmp.w rightclip,d0
  5217. ; bge subroomloop
  5218.  move.l a0,-(a7)
  5219.  
  5220.  move.l ZoneAdds,a0
  5221.  move.l (a0,d7.w*4),a0
  5222.  add.l LEVELDATA,a0
  5223.  move.l ToZoneRoof(a0),SplitHeight
  5224.  move.l a0,ROOMBACK
  5225.  
  5226.  move.l ZoneGraphAdds,a0
  5227.  move.l 4(a0,d7.w*8),a2
  5228.  move.l (a0,d7.w*8),a0
  5229.  
  5230.  add.l LEVELGRAPHICS,a0
  5231.  add.l LEVELGRAPHICS,a2
  5232.  move.l a2,ThisRoomToDraw+4
  5233.  move.l a0,ThisRoomToDraw
  5234.  
  5235.  move.l ListOfGraphRooms,a1
  5236.  
  5237.  
  5238.  
  5239. finditit:
  5240.  tst.w (a1)
  5241.  blt nomoretodoatall
  5242.  cmp.w (a1),d7
  5243.  beq outoffind
  5244.  adda.w #8,a1
  5245.  bra finditit
  5246.  
  5247. outoffind:
  5248.  
  5249.  move.l a1,-(a7)
  5250.  
  5251.  
  5252.  move.w #0,leftclip
  5253.  move.w RIGHTX,rightclip
  5254.  moveq #0,d7
  5255.  move.w 2(a1),d7
  5256.  blt.s outofrcliplop
  5257.  move.l LEVELCLIPS,a0
  5258.  lea (a0,d7.l*2),a0
  5259.  
  5260.  tst.w (a0)
  5261.  blt outoflcliplop
  5262.  
  5263.  bsr NEWsetlclip
  5264.  
  5265. intolcliplop:        ; clips
  5266.  tst.w (a0)
  5267.  blt outoflcliplop
  5268.  
  5269.  bsr NEWsetlclip 
  5270.  bra intolcliplop
  5271.  
  5272. outoflcliplop:
  5273.  
  5274.  addq #2,a0
  5275.  
  5276.  tst.w (a0)
  5277.  blt outofrcliplop
  5278.  
  5279.  bsr NEWsetrclip
  5280.  
  5281. intorcliplop:        ; clips
  5282.  tst.w (a0)
  5283.  blt outofrcliplop
  5284.  
  5285.  bsr NEWsetrclip 
  5286.  bra intorcliplop
  5287.  
  5288. outofrcliplop:
  5289.  
  5290.  
  5291.  move.w leftclip,d0
  5292.  ext.l d0
  5293.  move.l d0,leftclip-2
  5294.  
  5295.  cmp.w RIGHTX,d0
  5296.  bge dontbothercantseeit
  5297.  move.w rightclip,d1
  5298.  ext.l d1
  5299.  move.l d1,rightclip-2
  5300.  blt dontbothercantseeit
  5301.  cmp.w d1,d0
  5302.  bge dontbothercantseeit
  5303.  
  5304.  move.l yoff,d0
  5305.  cmp.l SplitHeight,d0
  5306.  blt botfirst
  5307.  
  5308.  move.l ThisRoomToDraw+4,a0
  5309.  cmp.l LEVELGRAPHICS,a0
  5310.  beq.s noupperroom
  5311.  st DOUPPER
  5312.  
  5313.  move.l ROOMBACK,a1
  5314.  move.l ToUpperRoof(a1),TOPOFROOM
  5315.  move.l ToUpperFloor(a1),BOTOFROOM
  5316.  
  5317.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5318.  bsr dothisroom
  5319. noupperroom:
  5320.  move.l ThisRoomToDraw,a0
  5321.  clr.b DOUPPER
  5322.  move.l #CurrentPointBrights,PointBrightsPtr
  5323.  
  5324.  move.l ROOMBACK,a1
  5325.  move.l ToZoneRoof(a1),d0
  5326.  move.l d0,TOPOFROOM
  5327.  move.l ToZoneFloor(a1),d1
  5328.  move.l d1,BOTOFROOM
  5329.  
  5330.  move.l ToZoneWater(a1),d2
  5331.  cmp.l yoff,d2
  5332.  blt.s .abovefirst
  5333.  move.l d2,BEFOREWATTOP
  5334.  move.l d1,BEFOREWATBOT
  5335.  move.l d2,AFTERWATBOT
  5336.  move.l d0,AFTERWATTOP
  5337.  bra.s .belowfirst
  5338. .abovefirst:
  5339.  move.l d0,BEFOREWATTOP
  5340.  move.l d2,BEFOREWATBOT
  5341.  move.l d1,AFTERWATBOT
  5342.  move.l d2,AFTERWATTOP
  5343. .belowfirst:
  5344.  
  5345.  bsr dothisroom
  5346.  
  5347.  bra dontbothercantseeit
  5348. botfirst:
  5349.  
  5350.  move.l ThisRoomToDraw,a0
  5351.  clr.b DOUPPER
  5352.  move.l #CurrentPointBrights,PointBrightsPtr
  5353.  
  5354.  move.l ROOMBACK,a1
  5355.  move.l ToZoneRoof(a1),d0
  5356.  move.l d0,TOPOFROOM
  5357.  move.l ToZoneFloor(a1),d1
  5358.  move.l d1,BOTOFROOM
  5359.  
  5360.  move.l ToZoneWater(a1),d2
  5361.  cmp.l yoff,d2
  5362.  blt.s .abovefirst
  5363.  move.l d2,BEFOREWATTOP
  5364.  move.l d1,BEFOREWATBOT
  5365.  move.l d2,AFTERWATBOT
  5366.  move.l d0,AFTERWATTOP
  5367.  bra.s .belowfirst
  5368. .abovefirst:
  5369.  move.l d0,BEFOREWATTOP
  5370.  move.l d2,BEFOREWATBOT
  5371.  move.l d1,AFTERWATBOT
  5372.  move.l d2,AFTERWATTOP
  5373. .belowfirst:
  5374.  
  5375.  
  5376.  bsr dothisroom
  5377.  move.l ThisRoomToDraw+4,a0
  5378.  cmp.l LEVELGRAPHICS,a0
  5379.  beq.s noupperroom2
  5380.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5381.  
  5382.  move.l ROOMBACK,a1
  5383.  move.l ToUpperRoof(a1),TOPOFROOM
  5384.  move.l ToUpperFloor(a1),BOTOFROOM
  5385.  
  5386.  st DOUPPER
  5387.  bsr dothisroom
  5388. noupperroom2:
  5389.  
  5390. dontbothercantseeit:
  5391. pastemp:
  5392.  
  5393.  move.l (a7)+,a1
  5394.  move.l ThisRoomToDraw,a0
  5395.  move.w (a0),d7
  5396.  
  5397.  adda.w #8,a1
  5398.  bra finditit
  5399.  
  5400. nomoretodoatall:
  5401.  
  5402.  move.l (a7)+,a0
  5403.  
  5404.  bra subroomloop
  5405.  
  5406. jumpoutofrooms:
  5407.  
  5408.  
  5409.  tst.b DONTDOGUN
  5410.  bne NOGUNLOOK
  5411.  
  5412.  cmp.b #'s',mors
  5413.  beq.s drawslavegun
  5414.  
  5415.  moveq #0,d0
  5416.  move.b PLR1_GunSelected,d0
  5417.  moveq #0,d1
  5418.  move.b PLR1_GunFrame,d1
  5419. ; bsr DRAWINGUN
  5420.  bra drawngun
  5421.  
  5422. drawslavegun
  5423.  moveq #0,d0
  5424.  move.b PLR2_GunSelected,d0
  5425.  moveq #0,d1
  5426.  move.b PLR2_GunFrame,d1
  5427. ; bsr DRAWINGUN
  5428.  
  5429. drawngun:
  5430.  
  5431. NOGUNLOOK:
  5432.  
  5433.  moveq #0,d1
  5434.  move.b PLR1_GunFrame,d1
  5435.  sub.w TempFrames,d1
  5436.  bgt.s .nn
  5437.  moveq #0,d1
  5438. .nn
  5439.  move.b d1,PLR1_GunFrame
  5440.  
  5441.  ble.s .donefire
  5442.  sub.b #1,PLR1_GunFrame
  5443. .donefire:
  5444.  
  5445.  moveq #0,d1
  5446.  move.b PLR2_GunFrame,d1
  5447.  sub.w TempFrames,d1
  5448.  bgt.s .nn2
  5449.  moveq #0,d1
  5450. .nn2
  5451.  move.b d2,PLR2_GunFrame
  5452.  
  5453.  ble.s .donefire2
  5454.  sub.b #1,PLR2_GunFrame
  5455. .donefire2:
  5456.  
  5457.  tst.b DOANYWATER
  5458.  beq.s nowaterfull
  5459.  
  5460.  move.w #231,d0
  5461.  move.l FASTBUFFER,a0
  5462.  tst.b fillscrnwater
  5463.  beq nowaterfull
  5464.  bgt oknothalf
  5465.  moveq #119,d0
  5466.  add.l #320*120*2,a0
  5467. oknothalf:
  5468.  
  5469.  bclr.b #1,$bfe001
  5470.  
  5471.  move.l TexturePal,a2
  5472.  add.l #256*40,a2
  5473.  moveq #0,d2
  5474.  
  5475.  tst.b FULLSCR
  5476.  bne.s DOALLSCREEN
  5477.  
  5478. DOSOMESCREEN:
  5479.  
  5480.  move.w #159,d0
  5481. .fw:
  5482.  move.w #191,d1
  5483. .fwa:
  5484.  move.b (a0),d2
  5485.  move.b (a2,d2.w),(a0)+
  5486.  dbra d1,.fwa
  5487.  add.w #(320-192),a0
  5488.  dbra d0,.fw
  5489.  rts
  5490.  
  5491. DOALLSCREEN:
  5492.  
  5493. fw:
  5494.  move.w #287,d1
  5495. fwa:
  5496.  move.b (a0),d2
  5497.  move.b (a2,d2.w),(a0)+
  5498.  dbra d1,fwa
  5499.  add.w #32,a0
  5500.  dbra d0,fw
  5501.  
  5502. ; move.l frompt,a0
  5503. ; add.l #104*4*60,a0
  5504. ; 
  5505. ; move.w #31,d0
  5506. ;fw:
  5507. ; move.w d5,d1
  5508. ; move.l a0,a1
  5509. ;fwd:
  5510. ;val SET 104*4*19
  5511. ; REPT 20
  5512. ; and.w #$ff,val(a1)
  5513. ;val SET val-104*4
  5514. ; ENDR
  5515. ; sub.l #104*4*20,a1
  5516. ; dbra d1,fwd
  5517. ; addq #4,a0
  5518. ; dbra d0,fw
  5519. ;
  5520. ; addq #4,a0
  5521. ;
  5522. ; move.w #31,d0
  5523. ;sw:
  5524. ; move.w d5,d1
  5525. ; move.l a0,a1
  5526. ;swd:
  5527. ;val SET 104*4*19
  5528. ; REPT 20
  5529. ; and.w #$ff,val(a1)
  5530. ;val SET val-104*4
  5531. ; ENDR
  5532. ; sub.l #104*4*20,a1
  5533. ; dbra d1,swd
  5534. ; addq #4,a0
  5535. ; dbra d0,sw
  5536. ;
  5537. ; addq #4,a0
  5538. ;
  5539. ; move.w #31,d0
  5540. ;tw:
  5541. ; move.w d5,d1
  5542. ; move.l a0,a1
  5543. ;twd:
  5544. ;val SET 104*4*19
  5545. ; REPT 20
  5546. ; and.w #$ff,val(a1)
  5547. ;val SET val-104*4
  5548. ; ENDR
  5549. ; sub.l #104*4*20,a1
  5550. ; dbra d1,twd
  5551. ; addq #4,a0
  5552. ; dbra d0,tw
  5553. ;
  5554.  rts
  5555.  
  5556. nowaterfull:
  5557.  bset.b #1,$bfe001
  5558.  rts
  5559.  
  5560. prot9: dc.w 0
  5561.  
  5562. ;TempBuffer: ds.l 100 
  5563.  
  5564. prot8: dc.w 0
  5565.  
  5566. ClipTable: ds.l 30
  5567. EndOfClipPt: dc.l 0
  5568. DOUPPER: dc.w 0
  5569.  
  5570. RealTable:
  5571.  dc.l prot1-78935450
  5572.  dc.l prot2-78935450
  5573.  dc.l prot3-78935450
  5574.  dc.l prot4-78935450
  5575.  dc.l prot5-78935450
  5576.  dc.l prot6-78935450
  5577.  dc.l prot7-78935450
  5578.  dc.l prot8-78935450
  5579.  dc.l prot9-78935450
  5580.  dc.l protA-78935450
  5581.  
  5582. dothisroom
  5583.  
  5584.  move.w (a0)+,d0
  5585.  move.w d0,currzone
  5586.  move.w d0,d1
  5587.  muls #40,d1
  5588.  add.l #BIGMAP,d1
  5589.  move.l d1,BIGPTR
  5590.  move.w d0,d1
  5591.  ext.l d1
  5592.  asl.w #2,d1
  5593.  add.l #COMPACTMAP,d1
  5594.  move.l d1,COMPACTPTR
  5595.  add.l #4,d1
  5596.  cmp.l LASTZONE,d1
  5597.  ble.s .nochange
  5598.  move.l d1,LASTZONE
  5599. .nochange:
  5600.  
  5601.  move.l #ZoneBrightTable,a1
  5602.  move.l (a1,d0.w*4),d1
  5603.  tst.b DOUPPER
  5604.  bne.s .okbot
  5605.  swap d1
  5606. .okbot:
  5607.  move.w d1,ZoneBright
  5608.  
  5609. polyloop:
  5610.  move.w (a0)+,d0
  5611.  move.w d0,WALLIDENT
  5612.  and.w #$ff,d0
  5613.  tst.b d0
  5614.  blt jumpoutofloop
  5615.  beq itsawall
  5616.  cmp.w #3,d0
  5617.  beq itsasetclip
  5618.  blt itsafloor
  5619.  cmp.w #4,d0
  5620.  beq itsanobject
  5621.  cmp.w #5,d0
  5622.  beq itsanarc
  5623.  cmp.w #6,d0
  5624.  beq itsalightbeam
  5625.  cmp.w #7,d0
  5626.  beq.s itswater
  5627.  cmp.w #9,d0
  5628.  ble itsachunkyfloor
  5629.  cmp.w #11,d0
  5630.  ble itsabumpyfloor
  5631.  cmp.w #12,d0
  5632.  beq.s itsbackdrop
  5633.  cmp.w #13,d0
  5634.  beq.s itsaseewall
  5635.  
  5636.  bra polyloop
  5637.  
  5638. itsaseewall:
  5639.  st seethru
  5640.  jsr itsawalldraw
  5641.  bra polyloop
  5642.  
  5643. itsbackdrop:
  5644.  jsr putinbackdrop
  5645.  bra polyloop
  5646.  
  5647. itswater:
  5648.  PROTHCHECK
  5649.  move.w #2,SMALLIT
  5650.  move.w #3,d0
  5651.  clr.b gourfloor
  5652.  move.l #FloorLine,LineToUse
  5653.  st usewater
  5654.  clr.b usebumps
  5655.  jsr itsafloordraw
  5656.  bra polyloop
  5657.  
  5658. itsanarc:
  5659.  jsr CurveDraw
  5660.  bra polyloop
  5661.  
  5662. itsanobject:
  5663.  jsr ObjDraw
  5664.  bra polyloop
  5665.  
  5666. itsalightbeam:
  5667.  jsr LightDraw
  5668.  bra polyloop
  5669.  
  5670. itsabumpyfloor:
  5671.  move.w #1,SMALLIT
  5672.  sub.w #9,d0
  5673.  st usebumps
  5674.  st smoothbumps
  5675.  clr.b usewater
  5676.  move.l #BumpLine,LineToUse
  5677.  jsr itsafloordraw
  5678.  bra polyloop
  5679.  
  5680. itsachunkyfloor:
  5681.  move.w #1,SMALLIT
  5682.  subq.w #7,d0
  5683.  st usebumps
  5684.  sub.w #12,topclip
  5685. ; add.w #10,botclip
  5686.  clr.b smoothbumps
  5687.  clr.b usewater
  5688.  move.l #BumpLine,LineToUse
  5689.  jsr itsafloordraw
  5690.  add.w #12,topclip
  5691. ; sub.w #10,botclip
  5692.  bra polyloop 
  5693.  
  5694. itsafloor:
  5695.  
  5696.  move.l PointBrightsPtr,FloorPtBrights
  5697.  
  5698.  move.w currzone,d1
  5699.  muls #80,d1
  5700.  
  5701.  cmp.w #2,d0
  5702.  bne.s .nfl
  5703.  add.l #2,d1
  5704. .nfl
  5705.  add.l d1,FloorPtBrights
  5706.  
  5707.  move.w #1,SMALLIT
  5708.  
  5709.  movem.l a0/d0,-(a7)
  5710.  move.l $4.w,a6
  5711.  jsr _LVOSuperState(a6)
  5712.  move.l d0,SSTACK
  5713.  movem.l (a7)+,a0/d0
  5714.  
  5715.  move.l #FloorLine,LineToUse
  5716. * 1,2 = floor/roof
  5717.  clr.b usewater
  5718.  clr.b usebumps
  5719.  move.b GOURSEL,gourfloor    
  5720.  jsr itsafloordraw
  5721.  move.l a0,-(a7)
  5722.  move.l $4.w,a6
  5723.  move.l SSTACK,d0
  5724.  jsr _LVOUserState(a6)
  5725.  move.l (a7)+,a0
  5726.  bra polyloop
  5727. itsasetclip:
  5728.  bra polyloop
  5729. itsawall:
  5730.  clr.b seethru
  5731. ; move.l #stripbuffer,a1
  5732.  jsr itsawalldraw
  5733.  bra polyloop
  5734.  
  5735. jumpoutofloop:
  5736.  rts
  5737.  
  5738. LASTZONE: dc.l 0
  5739. COMPACTPTR: dc.l 0
  5740. BIGPTR: dc.l 0
  5741. WALLIDENT: dc.w 0
  5742. SMALLIT: dc.w 0
  5743. GOURSEL: dc.w 0
  5744. ThisRoomToDraw: dc.l 0,0
  5745. SplitHeight: dc.l 0
  5746.  
  5747.  include "ab3:source_4000/OrderZones"
  5748.  
  5749. ReadMouse:
  5750.  move.l #$dff000,a6
  5751.  clr.l d0
  5752.  clr.l d1
  5753.  move.w $a(a6),d0
  5754.  lsr.w #8,d0
  5755.  ext.l d0
  5756.  move.w d0,d3
  5757.  move.w oldmy,d2
  5758.  sub.w d2,d0
  5759.  
  5760.  cmp.w #127,d0
  5761.  blt nonegy
  5762.  move.w #255,d1
  5763.  sub.w d0,d1
  5764.  move.w d1,d0
  5765.  neg.w d0
  5766. nonegy:
  5767.  
  5768.  cmp.w #-127,d0
  5769.  bge nonegy2
  5770.  move.w #255,d1
  5771.  add.w d0,d1
  5772.  move.w d1,d0
  5773. nonegy2:
  5774.  
  5775.  add.b d0,d2
  5776.  add.w d0,oldy2
  5777.  move.w d2,oldmy
  5778.  move.w d2,d0
  5779.  
  5780.  move.w oldy2,d0
  5781.  move.w d0,ymouse
  5782.  
  5783.  clr.l d0
  5784.  clr.l d1
  5785.  move.w $a(a6),d0
  5786.  ext.w d0
  5787.  ext.l d0
  5788.  move.w d0,d3
  5789.  move.w oldmx,d2
  5790.  sub.w d2,d0
  5791.  
  5792.  cmp.w #127,d0
  5793.  blt nonegx
  5794.  move.w #255,d1
  5795.  sub.w d0,d1
  5796.  move.w d1,d0
  5797.  neg.w d0
  5798. nonegx:
  5799.  
  5800.  cmp.w #-127,d0
  5801.  bge nonegx2
  5802.  move.w #255,d1
  5803.  add.w d0,d1
  5804.  move.w d1,d0
  5805. nonegx2:
  5806.  
  5807.  add.b d0,d2
  5808.  move.w d0,d1
  5809.  move.w d2,oldmx
  5810.  
  5811.  move.w #$0,$dff034
  5812.  
  5813.  add.w d0,oldx2
  5814.  move.w oldx2,d0
  5815.  and.w #2047,d0
  5816.  move.w d0,oldx2
  5817.  
  5818.  asl.w #2,d0
  5819.  sub.w prevx,d0
  5820.  add.w d0,prevx
  5821.  add.w d0,angpos
  5822.  move.w #0,lrs
  5823.  rts
  5824.  
  5825. noturn:
  5826.  
  5827. ; got to move lr instead. 
  5828.  
  5829. ; d1 = speed moved l/r
  5830.  
  5831.  move.w d1,lrs
  5832.  
  5833.  rts
  5834.  
  5835. lrs: dc.w 0
  5836. prevx: dc.w 0
  5837.  
  5838. angpos: dc.w 0
  5839. mang: dc.w 0
  5840. oldymouse: dc.w 0
  5841. xmouse: dc.w 0
  5842. ymouse: dc.w 0
  5843. oldx2: dc.w 0
  5844. oldmx: dc.w 0
  5845. oldmy: dc.w 0
  5846. oldy2: dc.w 0
  5847.  
  5848. MAPON: dc.w $0
  5849. REALMAPON: dc.w 0
  5850.  
  5851. RotateLevelPts:
  5852.  
  5853.  tst.b REALMAPON
  5854.  beq ONLYTHELONELY
  5855.  
  5856.  move.w sinval,d6
  5857.  swap d6
  5858.  move.w cosval,d6
  5859.  move.l Points,a3
  5860.  move.l #Rotated,a1
  5861.  move.l #OnScreen,a2
  5862.  move.w xoff,d4
  5863.  move.w zoff,d5
  5864.  
  5865. ; move.w #$c40,$dff106
  5866. ; move.w #$f00,$dff180
  5867.  
  5868.  move.w NumLevPts,d7
  5869.  
  5870.  tst.b FULLSCR
  5871.  bne BIGALL
  5872.  
  5873. pointrotlop2:
  5874.  move.w (a3)+,d0
  5875.  sub.w d4,d0
  5876.  move.w d0,d2
  5877.  move.w (a3)+,d1
  5878.  sub.w d5,d1
  5879.  muls d6,d2
  5880.  swap d6
  5881.  move.w d1,d3
  5882.  muls d6,d3
  5883.  sub.l d3,d2
  5884.  add.l d2,d2
  5885.  swap d2
  5886.  ext.l d2
  5887.  asl.l #7,d2
  5888.  add.l xwobble,d2
  5889.  move.l d2,(a1)+
  5890.  
  5891.  muls d6,d0
  5892.  swap d6
  5893.  muls d6,d1
  5894.  add.l d0,d1
  5895.  asl.l #1,d1
  5896.  swap d1
  5897. ; ext.l d1
  5898. ; divs #3,d1
  5899.  move.l d1,(a1)+
  5900.  
  5901.  tst.w d1
  5902.  bgt.s ptnotbehind
  5903.  tst.w d2
  5904.  bgt.s onrightsomewhere
  5905.  move.w #0,d2
  5906.  bra putin
  5907. onrightsomewhere:
  5908.  move.w RIGHTX,d2
  5909.  bra putin
  5910. ptnotbehind:
  5911.  
  5912.  divs d1,d2
  5913.  add.w MIDDLEX,d2
  5914. putin:
  5915.  move.w d2,(a2)+
  5916.  
  5917.  dbra d7,pointrotlop2
  5918. outofpointrot:
  5919.   rts
  5920.  
  5921.  
  5922. BIGALL:
  5923.  
  5924. pointrotlop2B:
  5925.  move.w (a3)+,d0
  5926.  sub.w d4,d0
  5927.  move.w d0,d2
  5928.  move.w (a3)+,d1
  5929.  sub.w d5,d1
  5930.  muls d6,d2
  5931.  swap d6
  5932.  move.w d1,d3
  5933.  muls d6,d3
  5934.  sub.l d3,d2
  5935.  add.l d2,d2
  5936.  swap d2
  5937.  ext.l d2
  5938.  asl.l #7,d2
  5939.  add.l xwobble,d2
  5940.  move.l d2,(a1)+
  5941.  
  5942.  muls d6,d0
  5943.  swap d6
  5944.  muls d6,d1
  5945.  add.l d0,d1
  5946.  asl.l #2,d1
  5947.  swap d1
  5948.  ext.l d1
  5949.  divs #3,d1
  5950.  move.l d1,(a1)+
  5951.  
  5952.  tst.w d1
  5953.  bgt.s ptnotbehindB
  5954.  tst.w d2
  5955.  bgt.s onrightsomewhereB
  5956.  move.w #0,d2
  5957.  bra putinB
  5958. onrightsomewhereB:
  5959.  move.w RIGHTX,d2
  5960.  bra putinB
  5961. ptnotbehindB:
  5962.  
  5963.  divs d1,d2
  5964.  add.w MIDDLEX,d2
  5965. putinB:
  5966.  move.w d2,(a2)+
  5967.  
  5968.  dbra d7,pointrotlop2B
  5969.   rts
  5970.  
  5971.  
  5972. ONLYTHELONELY:
  5973.  
  5974.  move.w sinval,d6
  5975.  swap d6
  5976.  move.w cosval,d6
  5977.  
  5978.  move.l PointsToRotatePtr,a0
  5979.  move.l Points,a3
  5980.  move.l #Rotated,a1
  5981.  move.l #OnScreen,a2
  5982.  move.w xoff,d4
  5983.  move.w zoff,d5
  5984.  
  5985. ; move.w #$c40,$dff106
  5986. ; move.w #$f00,$dff180
  5987.  
  5988.  tst.b FULLSCR
  5989.  bne BIGLONELY
  5990.  
  5991. pointrotlop:
  5992.  move.w (a0)+,d7
  5993.  blt outofpointrot
  5994.  
  5995.  move.w (a3,d7*4),d0
  5996.  sub.w d4,d0
  5997.  move.w d0,d2
  5998.  move.w 2(a3,d7*4),d1
  5999.  sub.w d5,d1
  6000.  muls d6,d2
  6001.  swap d6
  6002.  move.w d1,d3
  6003.  muls d6,d3
  6004.  sub.l d3,d2
  6005.  add.l d2,d2
  6006.  swap d2
  6007.  ext.l d2
  6008.  asl.l #7,d2
  6009.  add.l xwobble,d2
  6010.  move.l d2,(a1,d7*8)
  6011.  
  6012.  muls d6,d0
  6013.  swap d6
  6014.  muls d6,d1
  6015.  add.l d0,d1
  6016.  asl.l #1,d1
  6017.  swap d1
  6018. ; ext.l d1
  6019. ; divs #3,d1
  6020.  move.l d1,4(a1,d7*8)
  6021.  
  6022.  tst.w d1
  6023.  bgt.s .ptnotbehind
  6024.  tst.w d2
  6025.  bgt.s .onrightsomewhere
  6026.  move.w #0,d2
  6027.  bra .putin
  6028. .onrightsomewhere:
  6029.  move.w RIGHTX,d2
  6030.  bra .putin
  6031. .ptnotbehind:
  6032.  
  6033.  divs d1,d2
  6034.  add.w MIDDLEX,d2
  6035. .putin:
  6036.  move.w d2,(a2,d7*2)
  6037.  
  6038.  bra pointrotlop
  6039.  
  6040. ; move.w #$c40,$dff106
  6041. ; move.w #$ff0,$dff180
  6042.  
  6043.  rts
  6044.  
  6045. BIGLONELY:
  6046.  
  6047. .pointrotlop:
  6048.  move.w (a0)+,d7
  6049.  blt.s .outofpointrot
  6050.  
  6051.  move.w (a3,d7*4),d0
  6052.  sub.w d4,d0
  6053.  move.w d0,d2
  6054.  move.w 2(a3,d7*4),d1
  6055.  sub.w d5,d1
  6056.  muls d6,d2
  6057.  swap d6
  6058.  move.w d1,d3
  6059.  muls d6,d3
  6060.  sub.l d3,d2
  6061.  add.l d2,d2
  6062.  swap d2
  6063.  ext.l d2
  6064.  asl.l #7,d2
  6065.  add.l xwobble,d2
  6066.  move.l d2,(a1,d7*8)
  6067.  
  6068.  muls d6,d0
  6069.  swap d6
  6070.  muls d6,d1
  6071.  add.l d0,d1
  6072.  asl.l #2,d1
  6073.  swap d1
  6074.  ext.l d1
  6075.  divs #3,d1
  6076.  move.l d1,4(a1,d7*8)
  6077.  
  6078.  tst.w d1
  6079.  bgt.s .ptnotbehind
  6080.  tst.w d2
  6081.  bgt.s .onrightsomewhere
  6082.  move.w #0,d2
  6083.  bra .putin
  6084. .onrightsomewhere:
  6085.  move.w RIGHTX,d2
  6086.  bra .putin
  6087. .ptnotbehind:
  6088.  
  6089.  divs d1,d2
  6090.  add.w MIDDLEX,d2
  6091. .putin:
  6092.  move.w d2,(a2,d7*2)
  6093.  
  6094.  bra .pointrotlop
  6095.  
  6096. .outofpointrot:
  6097. ; move.w #$c40,$dff106
  6098. ; move.w #$ff0,$dff180
  6099.  
  6100.  rts
  6101.  
  6102.  
  6103. PLR1_ObjDists
  6104.  ds.w 250
  6105. PLR2_ObjDists
  6106.  ds.w 250
  6107.  
  6108. CalcPLR1InLine:
  6109.  
  6110.  move.w PLR1_sinval,d5
  6111.  move.w PLR1_cosval,d6
  6112.  move.l ObjectData,a4
  6113.  move.l ObjectPoints,a0
  6114.  move.w NumObjectPoints,d7
  6115.  move.l #PLR1_ObsInLine,a2
  6116.  move.l #PLR1_ObjDists,a3
  6117.  
  6118. .objpointrotlop:
  6119.  
  6120.  cmp.b #3,16(a4)
  6121.  beq.s .itaux
  6122.  
  6123.  move.w (a0),d0
  6124.  sub.w PLR1_xoff,d0
  6125.  move.w 4(a0),d1
  6126.  addq #8,a0
  6127.  
  6128.  tst.w 12(a4)
  6129.  blt .noworkout
  6130.  
  6131.  moveq #0,d2
  6132.  move.b 16(a4),d2
  6133.  ;move.l #ColBoxTable,a6
  6134.  ;lea (a6,d2.w*8),a6
  6135.  
  6136.  sub.w PLR1_zoff,d1
  6137.  move.w d0,d2
  6138.  muls d6,d2
  6139.  move.w d1,d3
  6140.  muls d5,d3
  6141.  sub.l d3,d2
  6142.  add.l d2,d2
  6143.  
  6144.  bgt.s .okh
  6145.  neg.l d2
  6146. .okh:
  6147.  swap d2
  6148.  
  6149.  muls d5,d0
  6150.  muls d6,d1
  6151.  add.l d0,d1
  6152.  asl.l #2,d1
  6153.  swap d1
  6154.  moveq #0,d3
  6155.  
  6156.  tst.w d1
  6157.  ble.s .notinline
  6158.  asr.w #1,d2
  6159.  cmp.w #80,d2
  6160.  bgt.s .notinline
  6161.  
  6162.  st d3
  6163. .notinline
  6164.  move.b d3,(a2)+
  6165.  
  6166.  move.w d1,(a3)+
  6167.  
  6168.  add.w #64,a4
  6169.  dbra d7,.objpointrotlop
  6170.  
  6171.  rts
  6172.  
  6173. .itaux:
  6174.  add.w #64,a4
  6175.  bra .objpointrotlop
  6176.  
  6177. .noworkout:
  6178.  move.b #0,(a2)+
  6179.  move.w #0,(a3)+
  6180.  add.w #64,a4
  6181.  dbra d7,.objpointrotlop
  6182.  rts
  6183.  
  6184.  
  6185. CalcPLR2InLine:
  6186.  
  6187.  move.w PLR2_sinval,d5
  6188.  move.w PLR2_cosval,d6
  6189.  move.l ObjectData,a4
  6190.  move.l ObjectPoints,a0
  6191.  move.w NumObjectPoints,d7
  6192.  move.l #PLR2_ObsInLine,a2
  6193.  move.l #PLR2_ObjDists,a3
  6194.  
  6195. .objpointrotlop:
  6196.  
  6197.  cmp.b #3,16(a4)
  6198.  beq.s .itaux
  6199.  
  6200.  move.w (a0),d0
  6201.  sub.w PLR2_xoff,d0
  6202.  move.w 4(a0),d1
  6203.  addq #8,a0
  6204.  
  6205.  tst.w 12(a4)
  6206.  blt .noworkout
  6207.  
  6208.  moveq #0,d2
  6209.  move.b 16(a4),d2
  6210. ; move.l #ColBoxTable,a6
  6211. ; lea (a6,d2.w*8),a6
  6212.  
  6213.  sub.w PLR2_zoff,d1
  6214.  move.w d0,d2
  6215.  muls d6,d2
  6216.  move.w d1,d3
  6217.  muls d5,d3
  6218.  sub.l d3,d2
  6219.  add.l d2,d2
  6220.  
  6221.  bgt.s .okh
  6222.  neg.l d2
  6223. .okh:
  6224.  swap d2
  6225.  
  6226.  muls d5,d0
  6227.  muls d6,d1
  6228.  add.l d0,d1
  6229.  asl.l #2,d1
  6230.  swap d1
  6231.  moveq #0,d3
  6232.  
  6233.  tst.w d1
  6234.  ble.s .notinline
  6235.  asr.w #1,d2
  6236.  cmp.w (a6),d2
  6237.  bgt.s .notinline
  6238.  
  6239.  st d3
  6240. .notinline
  6241.  move.b d3,(a2)+
  6242.  
  6243.  move.w d1,(a3)+
  6244.  
  6245.  add.w #64,a4
  6246.  dbra d7,.objpointrotlop
  6247.  
  6248.  rts
  6249.  
  6250. .itaux:
  6251.  add.w #64,a4
  6252.  bra .objpointrotlop
  6253.  
  6254. .noworkout:
  6255.  move.w #0,(a3)+
  6256.  move.b #0,(a2)+
  6257.  add.w #64,a4
  6258.  dbra d7,.objpointrotlop
  6259.  rts
  6260.  
  6261.  
  6262. RotateObjectPts:
  6263.  
  6264.  move.w sinval,d5
  6265.  move.w cosval,d6
  6266.  
  6267.  move.l ObjectData,a4
  6268.  move.l ObjectPoints,a0
  6269.  move.w NumObjectPoints,d7
  6270.  move.l #ObjRotated,a1
  6271.  
  6272.  tst.b FULLSCR
  6273.  bne BIGOBJPTS
  6274.  
  6275.  
  6276. .objpointrotlop:
  6277.  
  6278.  cmp.b #3,16(a4)
  6279.  beq.s .itaux
  6280.  
  6281.  move.w (a0),d0
  6282.  sub.w xoff,d0
  6283.  move.w 4(a0),d1
  6284.  addq #8,a0
  6285.  
  6286.  tst.w 12(a4)
  6287.  blt .noworkout
  6288.  
  6289.  sub.w zoff,d1
  6290.  
  6291.  move.w d0,d2
  6292.  muls d6,d2
  6293.  move.w d1,d3
  6294.  muls d5,d3
  6295.  sub.l d3,d2
  6296.  
  6297.  
  6298.  add.l d2,d2
  6299.  swap d2
  6300.  move.w d2,(a1)+
  6301.  
  6302.  muls d5,d0
  6303.  muls d6,d1
  6304.  add.l d0,d1
  6305.  asl.l #1,d1
  6306.  swap d1
  6307. ; ext.l d1
  6308. ; divs #3,d1
  6309.  moveq #0,d3
  6310.  
  6311.  move.w d1,(a1)+
  6312.  ext.l d2
  6313.  asl.l #7,d2
  6314.  add.l xwobble,d2
  6315.  move.l d2,(a1)+
  6316.  
  6317.  dbra d7,.objpointrotlop
  6318.  
  6319.  rts
  6320.  
  6321. .itaux:
  6322.  add.w #64,a4
  6323.  bra .objpointrotlop
  6324.  
  6325. .noworkout:
  6326.   move.l #0,(a1)+
  6327.   move.l #0,(a1)+
  6328.   add.w #64,a4
  6329.   dbra d7,.objpointrotlop
  6330.   rts
  6331.   
  6332. BIGOBJPTS:
  6333.  
  6334. .objpointrotlop:
  6335.  
  6336.  cmp.b #3,16(a4)
  6337.  beq.s .itaux
  6338.  
  6339.  move.w (a0),d0
  6340.  sub.w xoff,d0
  6341.  move.w 4(a0),d1
  6342.  addq #8,a0
  6343.  
  6344.  tst.w 12(a4)
  6345.  blt .noworkout
  6346.  
  6347.  sub.w zoff,d1
  6348.  move.w d0,d2
  6349.  muls d6,d2
  6350.  move.w d1,d3
  6351.  muls d5,d3
  6352.  sub.l d3,d2
  6353.  
  6354.  
  6355.  add.l d2,d2
  6356.  swap d2
  6357.  move.w d2,(a1)+
  6358.  
  6359.  muls d5,d0
  6360.  muls d6,d1
  6361.  add.l d0,d1
  6362.  asl.l #2,d1
  6363.  swap d1
  6364.  ext.l d1
  6365.  divs #3,d1
  6366.  moveq #0,d3
  6367.  
  6368.  move.w d1,(a1)+
  6369.  ext.l d2
  6370.  asl.l #7,d2
  6371.  add.l xwobble,d2
  6372.  move.l d2,(a1)+
  6373.  sub.l xwobble,d2
  6374.  
  6375.  add.w #64,a4
  6376.  dbra d7,.objpointrotlop
  6377.  
  6378.  rts
  6379.  
  6380. .itaux:
  6381.  add.w #64,a4
  6382.  bra .objpointrotlop
  6383.  
  6384. .noworkout:
  6385.   move.l #0,(a1)+
  6386.   move.l #0,(a1)+
  6387.   add.w #64,a4
  6388.   dbra d7,.objpointrotlop
  6389.   rts
  6390.  
  6391. LightDraw:
  6392.  
  6393.  move.w (a0)+,d0
  6394.  move.w (a0)+,d1
  6395.  move.l #Rotated,a1
  6396.  move.w 6(a1,d0.w*8),d2
  6397.  ble.s oneendbehind
  6398.  move.w 6(a1,d1.w*8),d3
  6399.  bgt.s bothendsinfront
  6400.  
  6401. oneendbehind:
  6402.  rts
  6403. bothendsinfront:
  6404.  
  6405.  move.l #OnScreen,a2
  6406.  move.w (a2,d0.w*2),d0
  6407.  bge.s okleftend
  6408.  moveq #0,d0
  6409. okleftend:
  6410.  move.w (a2,d1.w*2),d1
  6411.  bgt.s somevis
  6412.  rts
  6413. somevis:
  6414.  cmp.w RIGHTX,d0
  6415.  blt.s somevis2
  6416.  rts
  6417. somevis2:
  6418.  cmp.w RIGHTX,d1
  6419.  blt.s okrightend
  6420.  move.w RIGHTX,d1
  6421.  subq #1,d1
  6422. okrightend:
  6423.  
  6424.  sub.w d0,d1
  6425.  blt.s wrongbloodywayround
  6426.  move.l TexturePal,a4
  6427.  move.l #objintocop,a1
  6428.  lea (a1,d0.w*2),a1
  6429.  
  6430.  move.l frompt,a3
  6431.  move.w #104*4,d6
  6432.  move.w #79,d2
  6433. lacross:
  6434.  move.w d2,d3
  6435.  move.l a3,a2
  6436.  adda.w (a1)+,a2
  6437. ldown:
  6438.  add.w d6,a2
  6439.  move.w (a2),d7
  6440.  move.w (a4,d7.w*2),(a2)
  6441.  dbra d3,ldown
  6442.  dbra d1,lacross
  6443.  
  6444. wrongbloodywayround:
  6445.  
  6446.  rts
  6447.  
  6448. FaceToPlace: dc.w 0
  6449.  
  6450. Cheese:
  6451.  dc.w 4,15
  6452.  
  6453. FacesList:
  6454.  dc.w 0,4*4
  6455.  dc.w 1,2*4
  6456.  dc.w 0,2*4
  6457.  dc.w 2,2*4
  6458.  dc.w 0,2*4
  6459.  dc.w 1,3*4
  6460.  dc.w 0,2*4
  6461.  dc.w 2,3*4
  6462.  dc.w 0,5*4
  6463.  dc.w 1,2*4
  6464.  dc.w 0,2*4
  6465.  dc.w 2,2*4
  6466.  dc.w 0,2*4
  6467.  dc.w 1,2*4
  6468.  dc.w 0,2*4
  6469.  dc.w 2,3*4
  6470.  dc.w 0,1*4
  6471.  dc.w 1,3*4
  6472.  dc.w 0,1*4
  6473.  dc.w 2,3*4
  6474.  dc.w 0,1*4
  6475.  
  6476. EndOfFacesList:
  6477.  
  6478. FacesPtr:
  6479.  dc.l FacesList
  6480. FacesCounter:
  6481.  dc.w 0
  6482. Expression:
  6483.  dc.w 0
  6484.  
  6485.  
  6486. Energy:
  6487.  dc.w 191
  6488. OldEnergy:
  6489.  dc.w 191
  6490. Ammo: dc.w 63
  6491. OldAmmo: dc.w 63
  6492.  
  6493. FullEnergy:
  6494. ; move.w #127,Energy
  6495. ; move.w #127,OldEnergy
  6496. ; move.l #health,a0
  6497. ; move.l #borders,a1
  6498. ; add.l #25*8*2+6,a1
  6499. ; lea 2592(a1),a2
  6500. ; move.w #127,d0
  6501. ;PutInFull:
  6502. ; move.b (a0)+,(a1)
  6503. ; move.b (a0)+,8(a1)
  6504. ; add.w #16,a1
  6505. ; move.b (a0)+,(a2)
  6506. ; move.b (a0)+,8(a2)
  6507. ; add.w #16,a2
  6508. ; dbra d0,PutInFull
  6509.  
  6510.  rts
  6511.  
  6512. ;EnergyBar:
  6513.  
  6514.  move.w Energy,d0
  6515.  bgt.s .noeneg
  6516.  move.w #0,d0
  6517. .noeneg:
  6518.  move.w d0,Energy
  6519.  
  6520.  cmp.w OldEnergy,d0
  6521.  bne.s gottochange
  6522.  
  6523. NoChange
  6524.  rts
  6525.  
  6526. gottochange:
  6527.   
  6528.  blt LessEnergy
  6529.  cmp.w #127,Energy
  6530.  blt.s NotMax
  6531.  move.w #127,Energy
  6532. NotMax:
  6533.  
  6534.  move.w Energy,d0
  6535.  move.w OldEnergy,d2
  6536.  sub.w d0,d2
  6537.  beq.s NoChange    
  6538.  neg.w d2
  6539.  
  6540.  move.w #127,d3
  6541.  sub.w d0,d3
  6542.  
  6543.  move.l #health,a0
  6544.  lea (a0,d3.w*4),a0
  6545. ; move.l #borders+25*16+6,a1
  6546.  lsl.w #4,d3
  6547.  add.w d3,a1
  6548.  lea 2592(a1),a2
  6549.  
  6550. EnergyRise:
  6551.  move.b (a0)+,(a1)
  6552.  move.b (a0)+,8(a1)
  6553.  add.w #16,a1
  6554.  move.b (a0)+,(a2)
  6555.  move.b (a0)+,8(a2)
  6556.  add.w #16,a2
  6557.  subq #1,d2
  6558.  bgt.s EnergyRise
  6559.  
  6560.  move.w Energy,OldEnergy
  6561.  
  6562.  rts 
  6563.  
  6564. LessEnergy: 
  6565.  move.w OldEnergy,d2
  6566.  sub.w d0,d2
  6567.  
  6568.  move.w #127,d3
  6569.  sub.w OldEnergy,d3
  6570.  
  6571. ; move.l #borders+25*16+6,a1
  6572.  asl.w #4,d3
  6573.  add.w d3,a1
  6574.  lea 2592(a1),a2
  6575.  
  6576. EnergyDrain:
  6577.  move.b #0,(a1)
  6578.  move.b #0,8(a1)
  6579.  move.b #0,(a2)
  6580.  move.b #0,8(a2)
  6581.  add.w #16,a1
  6582.  add.w #16,a2
  6583.  subq #1,d2
  6584.  bgt.s EnergyDrain
  6585.  
  6586.  move.w Energy,OldEnergy
  6587.  
  6588.  rts 
  6589.  
  6590. firstdigit: dc.b 0
  6591. secdigit: dc.b 0
  6592. thirddigit: dc.b 0
  6593.  
  6594.  even
  6595.  
  6596. gunny: dc.w 0
  6597.  
  6598. AmmoBar:
  6599.  
  6600. * Do guns first.
  6601.  
  6602.  move.l #borderchars,a4
  6603.  move.b p1_gunselected,d0 
  6604.  move.l #PLAYERONEGUNS,a5
  6605.  cmp.b #'s',mors
  6606.  bne.s .notplr2
  6607.  move.l #PLAYERTWOGUNS,a5
  6608.  move.b p2_gunselected,d0
  6609. .notplr2:
  6610.  
  6611.  move.b d0,gunny
  6612.  
  6613.  move.w #9,d2
  6614.  moveq #0,d0
  6615. putingunnums:
  6616.  move.w #4,d1
  6617.  move.l a4,a0
  6618.  cmp.b gunny,d0
  6619.  bne.s .notsel
  6620.  add.l #5*10*8*2,a0
  6621.  addq #2,a5
  6622.  bra.s .donesel
  6623. .notsel:
  6624.  tst.w (a5)+
  6625.  beq.s .donesel
  6626.  add.l #5*10*8,a0
  6627. .donesel:
  6628.  move.l SCRNDRAWPT,a1
  6629.  add.w d0,a1
  6630.  add.l #3+(240*40),a1
  6631.  bsr DRAWDIGIT
  6632.  addq #1,d0
  6633.  dbra d2,putingunnums
  6634.  
  6635.  move.w Ammo,d0
  6636.  ext.l d0
  6637.  divs #10,d0
  6638.  swap d0
  6639.  move.b d0,thirddigit
  6640.  swap d0
  6641.  ext.l d0
  6642.  divs #10,d0
  6643.  move.b d0,firstdigit
  6644.  swap d0
  6645.  move.b d0,secdigit
  6646.  
  6647.  move.l #borderchars+15*8*10,a0
  6648.  cmp.w #10,Ammo
  6649.  blt.s .notsmallamo
  6650.  add.l #7*8*10,a0
  6651. .notsmallamo:
  6652.  
  6653.  move.l SCRNDRAWPT,a1
  6654.  add.l #20+238*40,a1
  6655.  move.b firstdigit,d0
  6656.  move.w #6,d1
  6657.  bsr DRAWDIGIT
  6658.  
  6659.  move.l SCRNDRAWPT,a1
  6660.  add.l #21+238*40,a1
  6661.  move.b secdigit,d0
  6662.  move.w #6,d1
  6663.  bsr DRAWDIGIT
  6664.  
  6665.  move.l SCRNDRAWPT,a1
  6666.  add.l #22+238*40,a1
  6667.  move.b thirddigit,d0
  6668.  move.w #6,d1
  6669.  bsr DRAWDIGIT
  6670.  
  6671.  rts
  6672.  
  6673. EnergyBar:
  6674.  move.w Energy,d0
  6675.  bge.s .okpo
  6676.  moveq #0,d0 
  6677. .okpo:
  6678.  
  6679.  ext.l d0
  6680.  divs #10,d0
  6681.  swap d0
  6682.  move.b d0,thirddigit
  6683.  swap d0
  6684.  ext.l d0
  6685.  divs #10,d0
  6686.  move.b d0,firstdigit
  6687.  swap d0
  6688.  move.b d0,secdigit
  6689.  
  6690.  move.l #borderchars+15*8*10,a0
  6691.  cmp.w #10,Energy
  6692.  blt.s .notsmallamo
  6693.  add.l #7*8*10,a0
  6694. .notsmallamo:
  6695.  
  6696.  move.l SCRNDRAWPT,a1
  6697.  add.l #34+238*40,a1
  6698.  move.b firstdigit,d0
  6699.  move.w #6,d1
  6700.  bsr DRAWDIGIT
  6701.  
  6702.  move.l SCRNDRAWPT,a1
  6703.  add.l #35+238*40,a1
  6704.  move.b secdigit,d0
  6705.  move.w #6,d1
  6706.  bsr DRAWDIGIT
  6707.  
  6708.  move.l SCRNDRAWPT,a1
  6709.  add.l #36+238*40,a1
  6710.  move.b thirddigit,d0
  6711.  move.w #6,d1
  6712.  bsr DRAWDIGIT
  6713.  
  6714.  move.l SCRNSHOWPT,a1
  6715.  add.l #34+238*40,a1
  6716.  move.b firstdigit,d0
  6717.  move.w #6,d1
  6718.  bsr DRAWDIGIT
  6719.  
  6720.  move.l SCRNSHOWPT,a1
  6721.  add.l #35+238*40,a1
  6722.  move.b secdigit,d0
  6723.  move.w #6,d1
  6724.  bsr DRAWDIGIT
  6725.  
  6726.  move.l SCRNSHOWPT,a1
  6727.  add.l #36+238*40,a1
  6728.  move.b thirddigit,d0
  6729.  move.w #6,d1
  6730.  bsr DRAWDIGIT
  6731.  
  6732.  
  6733.  rts
  6734.  
  6735.  
  6736. DRAWDIGIT:
  6737.  ext.w d0
  6738.  lea (a0,d0.w),a2
  6739. charlines:
  6740.  lea 30720(a1),a3 
  6741.  move.b (a2),(a1)
  6742.  move.b 10(a2),10240(a1)
  6743.  move.b 20(a2),20480(a1)
  6744.  move.b 30(a2),(a3)
  6745.  move.b 40(a2),10240(a3)
  6746.  move.b 50(a2),20480(a3)
  6747.  lea 30720(a3),a3
  6748.  move.b 60(a2),(a3)
  6749.  move.b 70(a2),10240(a3)
  6750.  
  6751.  add.w #10*8,a2
  6752.  add.w #40,a1
  6753.  dbra d1,charlines
  6754.  
  6755.  rts
  6756.  
  6757. borderchars: incbin "ab3:includes/bordercharsRAW"
  6758.  
  6759. NARRATOR:
  6760.  
  6761. ; sub.w #1,NARRTIME
  6762. ; bge .NOCHARYET
  6763. ; move.w #3,NARRTIME
  6764.  
  6765.  move.l #SCROLLSCRN,d1
  6766.  move.w d1,scroll
  6767.  swap d1
  6768.  move.w d1,scrolh
  6769.  
  6770.  move.w SCROLLTIMER,d0
  6771.  subq #1,d0
  6772.  move.w d0,SCROLLTIMER
  6773.  cmp.w #40,d0
  6774.  bge .NOCHARYET
  6775.  tst.w d0
  6776.  bge.s .okcha
  6777.  
  6778.  move.w #150,SCROLLTIMER
  6779.  bra .NOCHARYET
  6780.  
  6781. .okcha:
  6782.  
  6783.  move.l #SCROLLSCRN,a0
  6784.  add.w SCROLLXPOS,a0
  6785.  
  6786.  moveq #1,d7
  6787. .doachar: 
  6788.  
  6789.  move.l SCROLLPOINTER,a1
  6790.  moveq #0,d1
  6791.  move.b (a1)+,d1    ; character
  6792.  move.l a1,d2
  6793.  cmp.l ENDSCROLL,d2
  6794.  blt.s .notrestartscroll
  6795.  move.l #BLANKSCROLL,a1
  6796.  move.l #BLANKSCROLL+80,ENDSCROLL
  6797. .notrestartscroll
  6798.  move.l a1,SCROLLPOINTER
  6799.  
  6800.  move.l #SCROLLCHARS,a1
  6801.  asl.w #3,d1
  6802.  add.w d1,a1
  6803.  
  6804.  move.b (a1)+,(a0)
  6805.  move.b (a1)+,80(a0)
  6806.  move.b (a1)+,80*2(a0)
  6807.  move.b (a1)+,80*3(a0)
  6808.  move.b (a1)+,80*4(a0)
  6809.  move.b (a1)+,80*5(a0)
  6810.  move.b (a1)+,80*6(a0)
  6811.  move.b (a1)+,80*7(a0)
  6812.  
  6813.  addq #1,a0
  6814.  dbra d7,.doachar
  6815.  
  6816.  move.w SCROLLXPOS,d0
  6817.  addq #2,d0
  6818.  move.w d0,SCROLLXPOS
  6819.  cmp.w #80,d0
  6820.  blt .NOCHARYET
  6821.  move.w #0,SCROLLXPOS
  6822.  
  6823. .NOCHARYET:
  6824.  rts
  6825.  
  6826. ; cmp.w OldAmmo,d0
  6827. ; bne.s .gottochange
  6828. ; 
  6829.  
  6830. NARRTIME: dc.w 5
  6831.  
  6832. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6833.  
  6834. .NoChange
  6835.  rts
  6836.  
  6837. .gottochange:
  6838.   
  6839.  blt LessAmmo
  6840.  cmp.w #63,Ammo
  6841.  blt.s .NotMax
  6842.  move.w #63,Ammo
  6843. .NotMax:
  6844.  
  6845.  move.w Ammo,d0
  6846.  move.w OldAmmo,d2
  6847.  sub.w d0,d2
  6848.  beq.s .NoChange
  6849.  neg.w d2
  6850.  
  6851.  move.w #63,d3
  6852.  sub.w d0,d3
  6853.  
  6854.  move.l #Ammunition,a0
  6855.  lea (a0,d3.w*8),a0
  6856. ; move.l #borders+5184+25*16+1,a1
  6857.  lsl.w #5,d3
  6858.  add.w d3,a1
  6859.  lea 2592(a1),a2
  6860.  
  6861. AmmoRise:
  6862.  move.b (a0)+,(a1)
  6863.  move.b (a0)+,8(a1)
  6864.  add.w #16,a1
  6865.  move.b (a0)+,(a2)
  6866.  move.b (a0)+,8(a2)
  6867.  add.w #16,a2
  6868.  move.b (a0)+,(a1)
  6869.  move.b (a0)+,8(a1)
  6870.  add.w #16,a1
  6871.  move.b (a0)+,(a2)
  6872.  move.b (a0)+,8(a2)
  6873.  add.w #16,a2
  6874.  subq #1,d2
  6875.  bgt.s AmmoRise
  6876.  
  6877.  move.w Ammo,OldAmmo
  6878.  
  6879.  rts 
  6880.  
  6881.  
  6882. LessAmmo: 
  6883.  move.w OldAmmo,d2
  6884.  sub.w d0,d2
  6885.  
  6886.  move.w #63,d3
  6887.  sub.w OldAmmo,d3
  6888.  
  6889. ; move.l #borders++5184+25*16+1,a1
  6890.  asl.w #5,d3
  6891.  add.w d3,a1
  6892.  lea 2592(a1),a2
  6893.  
  6894. AmmoDrain:
  6895.  move.b #0,(a1)
  6896.  move.b #0,8(a1)
  6897.  move.b #0,(a2)
  6898.  move.b #0,8(a2)
  6899.  add.w #16,a1
  6900.  add.w #16,a2
  6901.  move.b #0,(a1)
  6902.  move.b #0,8(a1)
  6903.  move.b #0,(a2)
  6904.  move.b #0,8(a2)
  6905.  add.w #16,a1
  6906.  add.w #16,a2
  6907.  subq #1,d2
  6908.  bgt.s AmmoDrain
  6909.  
  6910.  move.w Ammo,OldAmmo
  6911.  
  6912.  rts 
  6913.  
  6914. nulop:
  6915.  move.w #$0010,$dff000+intreq
  6916.  rte
  6917.  
  6918. doanything: dc.w 0
  6919.  
  6920. end:
  6921. ;     _break #0
  6922.  
  6923.  move.l #$dff000,a6
  6924.  move.w #$f,$dff000+dmacon
  6925. waitfortop22:
  6926.  btst.b #0,intreqrl(a6)
  6927.  beq waitfortop22
  6928. waitfortop222:
  6929.  btst.b #0,intreqrl(a6)
  6930.  beq waitfortop222
  6931.  
  6932.  clr.b dosounds
  6933.  clr.b doanything
  6934.  
  6935.  move.w PLAYERONEHEALTH,Energy
  6936.  cmp.b #'s',mors
  6937.  bne.s .notsl
  6938.  move.w PLAYERTWOHEALTH,Energy
  6939. .notsl:
  6940.  
  6941.  move.l drawpt,d0
  6942.  move.l olddrawpt,drawpt
  6943.  move.l d0,olddrawpt
  6944.  
  6945. ; cmp.b #'b',Prefsfile+3
  6946. ; bne.s .noback
  6947. ; jsr mt_end
  6948. ;.noback
  6949.  
  6950.  tst.w Energy
  6951.  bgt.s wevewon
  6952.  move.w #0,Energy
  6953.  bsr EnergyBar
  6954.  
  6955.  move.l #gameover,mt_data
  6956.  st UseAllChannels
  6957.  clr.b reachedend
  6958.  jsr mt_init
  6959. playgameover:
  6960.  move.l #$dff000,a6
  6961. waitfortop2:
  6962.  
  6963.     
  6964.  btst.b #0,intreqrl(a6)
  6965.  beq waitfortop2
  6966.  move.w #$1,intreq(a6)
  6967.  
  6968.     
  6969.  jsr mt_music
  6970.  
  6971.  
  6972.     
  6973.  tst.b reachedend
  6974.  beq.s playgameover
  6975.  
  6976.  bra wevelost
  6977.  
  6978.  
  6979. wevewon:
  6980.  
  6981.  move.w #$f,$dff000+dmacon
  6982.  
  6983.  bsr EnergyBar
  6984.  
  6985.  cmp.b #'n',mors
  6986.  bne.s .nonextlev
  6987.  add.w #1,MAXLEVEL
  6988.  st FINISHEDLEVEL
  6989.  
  6990.  cmp.w #16,MAXLEVEL
  6991.  bne .nonextlev
  6992.  
  6993.  jmp ENDGAMESCROLL
  6994. .nonextlev:
  6995.  
  6996.  move.l #welldone,mt_data
  6997.  st UseAllChannels
  6998.  clr.b reachedend
  6999.  
  7000.  jsr mt_init
  7001. playwelldone:
  7002.  move.l #$dff000,a6
  7003. waitfortop3:
  7004.  btst.b #0,intreqrl(a6)
  7005.  beq waitfortop3
  7006.  move.w #$1,intreq(a6)
  7007.  
  7008.  jsr mt_music
  7009.  
  7010.  tst.b reachedend
  7011.  beq.s playwelldone
  7012.  
  7013. wevelost:
  7014.  
  7015.  PROTICHECK a0
  7016.  
  7017.  jmp closeeverything 
  7018.  
  7019. endnomusic
  7020.  clr.b doanything
  7021.  
  7022.  
  7023. ; cmp.b #'b',Prefsfile+3
  7024. ; bne.s .noback
  7025. ; jsr mt_end
  7026. ;.noback
  7027. *******************************
  7028. ; cmp.b #'n',mors
  7029. ; bne.s .nonextlev
  7030. ; cmp.w #15,MAXLEVEL
  7031. ; bge.s .nonextlev
  7032. ; add.w #1,MAXLEVEL
  7033. ; st FINISHEDLEVEL
  7034. ;.nonextlev:
  7035. ******************************
  7036.  
  7037.  jmp closeeverything
  7038.  
  7039. do32:
  7040.  move.w #31,d7
  7041.  move.w #$180,d1
  7042. across:
  7043.  move.w d1,(a1)+
  7044.  move.w d1,(a3)+
  7045.  move.w #0,(a1)+ 
  7046.  move.w #0,(a3)+
  7047.  add.w #2,d1
  7048.  dbra d7,across
  7049.  rts
  7050.  
  7051. ;string:
  7052. ;    dc.b    'credits',0
  7053.  
  7054. ENDGAMESCROLL:
  7055.  
  7056.  move.w #$fff,MIXCOLL
  7057.  
  7058.  move.w #$1cc1,BOTOFTXT
  7059.  
  7060.  jsr CLRTWEENSCRN
  7061.  
  7062.  move.l #TEXTCOP,$dff080
  7063.  
  7064.  move.l #ENDGAMETEXTy,a0
  7065.  
  7066.  
  7067. SCROLLUP16LINES:
  7068.  
  7069.  move.w #15,d0
  7070.  
  7071. do16
  7072.  move.l #$dff000,a6
  7073.  
  7074.  move.w #0,d6
  7075.  move.w #7,d7
  7076.  
  7077.  move.l #SCROLLSHADES,a5
  7078.  
  7079. fadeupp:
  7080.  
  7081.  move.w (a5,d6.w*2),TOPCOLL
  7082.  move.w (a5,d7.w*2),TXTCOLL
  7083.  
  7084.  
  7085. .wtup
  7086.  btst #5,intreqrl(a6)
  7087.  beq.s .wtup
  7088.  move.w #$20,intreq(a6)
  7089.  
  7090.  add.w #1,d6
  7091.  sub.w #1,d7
  7092.  bne fadeupp
  7093.  
  7094. .wtup2
  7095.  btst #5,intreqrl(a6)
  7096.  beq.s .wtup2
  7097.  move.w #$20,intreq(a6)
  7098.  
  7099.  move.w #0,TOPCOLL
  7100.  move.w #$fff,TXTCOLL
  7101.  
  7102.  WB
  7103.  
  7104.  move.l TEXTSCRN,d1
  7105.  move.l d1,bltdpt(a6)
  7106.  add.l #80,d1
  7107.  move.l d1,bltapt(a6)
  7108.  move.w #$09f0,bltcon0(a6)
  7109.  move.w #$0,bltcon1(a6)
  7110.  move.w #0,bltdmod(a6)
  7111.  move.w #0,bltamod(a6)
  7112.  move.l #-1,bltafwm(a6)
  7113.  
  7114.  move.w #255*64+40,bltsize(a6)
  7115.  
  7116.  WB
  7117.  
  7118.  dbra d0,do16
  7119.  
  7120.  move.l TEXTSCRN,a1
  7121.  move.w #15,d0
  7122.  jsr DRAWLINEOFTEXT
  7123.  
  7124.  add.l #82,a0
  7125.  cmp.l #ENDENDGAMETEXT,a0
  7126.  blt SCROLLUP16LINES
  7127.  
  7128.  move.l #ENDGAMETEXTy,a0
  7129.  bra SCROLLUP16LINES
  7130.  
  7131. SCROLLSHADES:
  7132.  dc.w 0
  7133.  dc.w $333
  7134.  dc.w $666
  7135.  dc.w $888
  7136.  dc.w $aaa
  7137.  dc.w $ccc
  7138.  dc.w $ddd
  7139.  dc.w $eee
  7140.  
  7141. ENDGAMETEXTy:
  7142. ;          12345678901234567890123456789012345678901234567890123456789012345678901234567890
  7143.  dc.b 0,0,"                                                                                "
  7144.  dc.b 0,1,"As the beast and its four servants die, a breathless silence falls, broken      "
  7145.  dc.b 0,1,"only by the hammering of my own heart in my chest.                              "
  7146.  dc.b 0,1,"I run to the now open exit, and out into the maze of corridors through which I  "
  7147.  dc.b 0,1,"came. I encounter many, many aliens, lying twitching on the ground, or utterly  "
  7148.  dc.b 0,1,"still with glazed eyes and green froth drying on their lips. Many seem to have  "
  7149.  dc.b 0,1,"turned their weapons on themselves, unable to bear either the pain or the       "
  7150.  dc.b 0,1,"sudden silence in their minds.                                                  "
  7151.  dc.b 0,0,"                                                                                "
  7152.  dc.b 0,1,"It takes me several hours to locate a working teleport to take me back aboard   "
  7153.  dc.b 0,1,"the orbiting alien ship. The scene there is the same; hordes of aliens, either  "
  7154.  dc.b 0,1,"dead or catatonic, I cannot tell.                                               "
  7155.  dc.b 0,1,"I walk slowly, exhausted, back to the INDOMITABLE, averting my eyes from the    "
  7156.  dc.b 0,1,"pitiful scenes around me. I know that my work is not finished yet.              "
  7157.  dc.b 0,1,"Once aboard, I make my way to the bridge. I manage to restart the main power    "
  7158.  dc.b 0,1,"generators and get basic navigation back on-line. Working from the memories     "
  7159.  dc.b 0,1,"implanted by the dying marine, I painstakingly program the computer to deal     "
  7160.  dc.b 0,1,"the killing blow to the enemy. At last the task is finished. The ship hums into "
  7161.  dc.b 0,1,"life, accellerating slowly out of orbit, towing the massive alien craft and     "
  7162.  dc.b 0,1,"its mindless cargo behind it.                                                   "
  7163.  dc.b 0,1,"As the image of the alien sun grows in the viewscreen, I think about what I     "
  7164.  dc.b 0,1,"have seen. Fragments of technology, stolen from civilisations - how long ago?   "
  7165.  dc.b 0,1,"How long since they were exterminated by these parasites? And how many more     "
  7166.  dc.b 0,1,"if they are allowed to continue?                                                "
  7167.  dc.b 0,1,"The sun looms hideously large before me, seeming at the last moment to slip to  "
  7168.  dc.b 0,1,"one side as the cruiser slingshots itself through the immense gravity well,     "
  7169.  dc.b 0,1,"its speed doubling and doubling again. The ship shudders and groans as the      "
  7170.  dc.b 0,1,"ponderous mass of the alien ship tries to tear itself free. I feel a distant    "
  7171.  dc.b 0,1,"twinge of curiosity as to whether it will succeed.                              "
  7172.  dc.b 0,1,"The navigation computer chatters quietly to itself as it makes tiny             "
  7173.  dc.b 0,1,"course corrections, bringing the payload to bear on its target. I only sit,     "
  7174.  dc.b 0,1,"watching blankly as we hurtle back towards the planet. The navicom beeps        "
  7175.  dc.b 0,1,"quietly to signal the blowing of the explosive bolts holding the docking ring.  "
  7176.  dc.b 0,1,"So great is our speed that the alien ship does not receed, but simply vanishes  "
  7177.  dc.b 0,1,"from sight, tracked only on the readouts of the computers in front of me.       "
  7178.  dc.b 0,1,"One readout in particular occupies my attention. Red numbers spin towards zero  "
  7179.  dc.b 0,1,"as my invisible agent of destruction spins towards oblivion. Three digits, now  "
  7180.  dc.b 0,1,"two, and now only one. I shift my attention to the image of the alien world,    "
  7181.  dc.b 0,1,"receeding behind my ship.                                                       "
  7182.  dc.b 0,0,"                                                                                "
  7183.  dc.b 0,1,"Three...                                                                        "
  7184.  dc.b 0,0,"                                                                                "
  7185.  dc.b 0,1,"Two...                                                                          "
  7186.  dc.b 0,0,"                                                                                "
  7187.  dc.b 0,1,"One...                                                                          "
  7188.  dc.b 0,0,"                                                                                "
  7189.  dc.b 0,1,"Zero.                                                                           "
  7190.  dc.b 0,0,"                                                                                "
  7191.  dc.b 0,0,"                                                                                "
  7192.  dc.b 0,0,"                                                                                "
  7193.  dc.b 0,0,"                                                                                "
  7194.  dc.b 0,1,"Travelling at nearly a quarter of the speed of light, the alien ship smashed    "
  7195.  dc.b 0,1,"into the planet, flashing past the useless orbital defences which should have   "
  7196.  dc.b 0,1,"neutralized it millions of miles earlier. It passed through the twenty miles    "
  7197.  dc.b 0,1,"of atmosphere in a little more than one ten-thousandth of a second. The air     "
  7198.  dc.b 0,1,"directly beneath had no time to be pushed out of the way, and in another        "
  7199.  dc.b 0,1,"tenth of a second it was a molecule-thick layer a thousand miles below the      "
  7200.  dc.b 0,1,"planet's surface.                                                               "
  7201.  dc.b 0,1,"Such was the heat and pressure caused by the impact, that part of the molten    "
  7202.  dc.b 0,1,"core of the planet underwent nuclear fusion, vapourising thousands of billions  "
  7203.  dc.b 0,1,"of tonnes of surrounding material. This expanding superhot plasma cloud forced  "
  7204.  dc.b 0,1,"its way up through the mantle and crust, fracturing the surface of the planet,  "
  7205.  dc.b 0,1,"blowing continent-sized chunks into space and heating the tortured atmosphere   "
  7206.  dc.b 0,1,"to ignition point. Within two minutes of impact, the doomed planet was a        "
  7207.  dc.b 0,1,"misshapen, incandescent ball, with burning fragments spinning deceptively       "
  7208.  dc.b 0,1,"slowly in their brief orbits before re-impacting with fantastic, majestic       "
  7209.  dc.b 0,1,"force.                                                                          "
  7210.  dc.b 0,0,"                                                                                "
  7211.  dc.b 0,0,"                                                                                "
  7212.  dc.b 0,0,"                                                                                "
  7213.  dc.b 0,0,"                                                                                "
  7214.  dc.b 0,1,"In a matter of weeks, the small amount of matter which had undergone fusion     "
  7215.  dc.b 0,1,"burned itself out, but the planet still glowed sullenly from a million cracks   "
  7216.  dc.b 0,1,"and holes in the crust, as it would continue to do for millions of years to     "
  7217.  dc.b 0,1,"come. The world was barren and dead, and the creatures who once roamed its      "
  7218.  dc.b 0,1,"surface no more than a memory in the mind of one man, sleeping dreamlessly      "
  7219.  dc.b 0,1,"as the invisible speck of his ship sped silently on, towards home.              "
  7220.  dc.b 0,0,"                                                                                "
  7221.  dc.b 0,0,"                                                                                "
  7222.  dc.b 0,0,"                                                                                "
  7223.  dc.b 0,0,"                                                                                "
  7224.  dc.b 0,0,"                                                                                "
  7225.  dc.b 0,0,"                                                                                "
  7226.  dc.b 0,0,"                                                                                "
  7227.  dc.b 0,0,"                                                                                "
  7228.  dc.b 0,0,"                                                                                "
  7229.  dc.b 0,0,"                                                                                "
  7230.  dc.b 0,0,"                                                                                "
  7231.  dc.b 0,0,"                                                                                "
  7232.  dc.b 0,0,"                                                                                "
  7233.  dc.b 0,0,"                                                                                "
  7234.  dc.b 0,0,"                                                                                "
  7235.  dc.b 0,0,"                                                                                "
  7236.  dc.b 0,1,"ALIEN BREED 3D II                                                               "
  7237.  dc.b 0,1,"THE KILLING GROUNDS                                                             "
  7238.  dc.b 0,0,"                                                                                "
  7239.  dc.b 0,0,"                                                                                "
  7240.  dc.b 0,1,"A Team 17 Game                                                                  "
  7241.  dc.b 0,0,"                                                                                "
  7242.  dc.b 0,1,"Produced in association with OCEAN Software                                     "
  7243.  dc.b 0,0,"                                                                                "
  7244.  dc.b 0,0,"                                                                                "
  7245.  dc.b 0,1,"Game Design, Game Code, Editor Code and In-Game Text                            "
  7246.  dc.b 0,0,"                                                                                "
  7247.  dc.b 0,1,"Andrew Clitheroe                                                                "
  7248.  dc.b 0,0,"                                                                                "
  7249.  dc.b 0,0,"                                                                                "
  7250.  dc.b 0,1,"Graphics                                                                        "
  7251.  dc.b 0,0,"                                                                                "
  7252.  dc.b 0,1,"Michael Green                                                                   "
  7253.  dc.b 0,0,"                                                                                "
  7254.  dc.b 0,0,"                                                                                "
  7255.  dc.b 0,1,"3D Object Designs, 3D Editors, Serial and OS code                               "
  7256.  dc.b 0,0,"                                                                                "
  7257.  dc.b 0,1,"Charles Blessing                                                                "
  7258.  dc.b 0,0,"                                                                                "
  7259.  dc.b 0,0,"                                                                                "
  7260.  dc.b 0,1,"Music                                                                           "
  7261.  dc.b 0,0,"                                                                                "
  7262.  dc.b 0,1,"Ben Chanter                                                                     "
  7263.  dc.b 0,0,"                                                                                "
  7264.  dc.b 0,0,"                                                                                "
  7265.  dc.b 0,1,"Project Manager                                                                 "
  7266.  dc.b 0,0,"                                                                                "
  7267.  dc.b 0,1,"Phil Quirke-Webster                                                             "
  7268.  dc.b 0,0,"                                                                                "
  7269.  dc.b 0,0,"                                                                                "
  7270.  dc.b 0,1,"Playtesting                                                                     "
  7271.  dc.b 0,0,"                                                                                "
  7272.  dc.b 0,1,"Phil and the Wolves                                                             "
  7273.  dc.b 0,0,"                                                                                "
  7274.  dc.b 0,0,"                                                                                "
  7275.  dc.b 0,1,"Additional Graphics                                                             "
  7276.  dc.b 0,0,"                                                                                "
  7277.  dc.b 0,1,"Pete Lyons                                                                      "
  7278.  dc.b 0,0,"                                                                                "
  7279.  dc.b 0,0,"                                                                                "
  7280.  
  7281.  
  7282. ENDENDGAMETEXT:
  7283.  
  7284.  
  7285. ;
  7286. ;    move.l    4.w,a6
  7287. ;    move.l    #string,d1
  7288. ;    moveq    #0,d2
  7289. ;    moveq    #0,d3
  7290. ;    jsr    _LVOExecute(a6)
  7291.  
  7292. ; include "endscroll.s"
  7293.  
  7294. ***********************************
  7295.  include "ab3:source_4000/CD32JOY"
  7296.  
  7297.  
  7298.  
  7299. *************************************
  7300. * Set left and right clip values
  7301. *************************************
  7302.  
  7303.  
  7304.  
  7305. NEWsetlclip:
  7306.  move.l #OnScreen,a1
  7307.  move.l #Rotated,a2
  7308.  move.l CONNECT_TABLE,a3
  7309.  move.l Points,a4
  7310.  
  7311.  move.w (a0),d0
  7312.  bge.s .notignoreleft
  7313.  
  7314. ; move.l #0,(a6)
  7315.  
  7316.  bra .leftnotoktoclip
  7317. .notignoreleft:
  7318.  
  7319.  move.w 6(a2,d0*8),d3    ; left z val
  7320.  bgt.s .leftclipinfront
  7321.  addq #2,a0
  7322.  rts
  7323.  
  7324.  tst.w 6(a2,d0*8)
  7325.  bgt.s .leftnotoktoclip
  7326. .ignoreboth:
  7327. ; move.l #0,(a6)
  7328. ; move.l #96*65536,4(a6)
  7329.  move.w #0,leftclip
  7330.  move.w RIGHTX,rightclip
  7331.  addq #8,a6
  7332.  addq #2,a0
  7333.  rts
  7334.  
  7335. .leftclipinfront:
  7336.  move.w (a1,d0*2),d1    ; left x on screen
  7337.  move.w (a0),d2
  7338.  move.w 2(a3,d2.w*4),d2
  7339.  move.w (a1,d2.w*2),d2
  7340.  cmp.w d1,d2
  7341.  bgt.s .leftnotoktoclip
  7342.  
  7343.  
  7344. *************************************
  7345.  
  7346. ; move.w 2(a3,d0.w*4),d6
  7347. ; 
  7348. ; move.w (a4,d0.w*4),d2
  7349. ; move.w 2(a4,d0.w*4),d3
  7350. ; move.w (a4,d6.w*4),d4
  7351. ; move.w 2(a4,d6.w*4),d5
  7352. ;
  7353. ; sub.w d2,d4    ;dx
  7354. ; sub.w d3,d5    ;dz
  7355. ; move.w xoff,d0
  7356. ; move.w zoff,d6
  7357. ; 
  7358. ; sub.w d2,d0
  7359. ; sub.w d3,d6
  7360. ; 
  7361. ; muls d0,d4
  7362. ; muls d6,d5
  7363. ; add.l d4,d5
  7364. ; bge.s .leftnotoktoclip
  7365.  
  7366. *************************************
  7367.  
  7368.  
  7369.  
  7370. ; move.w d1,(a6)
  7371. ; move.w d3,2(a6)
  7372.  cmp.w leftclip,d1
  7373.  ble.s .leftnotoktoclip
  7374.  move.w d1,leftclip
  7375. .leftnotoktoclip:
  7376.  
  7377.  addq #2,a0
  7378.  
  7379.  rts
  7380.  
  7381. NEWsetrclip
  7382.  move.l #OnScreen,a1
  7383.  move.l #Rotated,a2
  7384.  move.l CONNECT_TABLE,a3
  7385.  move.w (a0),d0
  7386.  bge.s .notignoreright
  7387. ; move.w #96,4(a6)
  7388. ; move.w #0,6(a6)
  7389.  move.w #0,d4
  7390.  bra .rightnotoktoclip
  7391. .notignoreright:
  7392.  move.w 6(a2,d0*8),d4    ; right z val
  7393.  bgt.s .rightclipinfront
  7394. ; move.w #96,4(a6)
  7395. ; move.w #0,6(a6)
  7396.  bra.s .rightnotoktoclip
  7397.  
  7398. .rightclipinfront:
  7399.  move.w (a1,d0*2),d1    ; right x on screen
  7400.  move.w (a0),d2
  7401.  move.w (a3,d2.w*4),d2
  7402.  move.w (a1,d2.w*2),d2
  7403.  cmp.w d1,d2
  7404.  blt.s .rightnotoktoclip
  7405. ; move.w d1,4(a6)
  7406. ; move.w d4,6(a6)
  7407.  
  7408.  
  7409. *************************************
  7410.  
  7411. ; move.w (a3,d0.w*4),d6
  7412. ; 
  7413. ; move.w (a4,d0.w*4),d2
  7414. ; move.w 2(a4,d0.w*4),d3
  7415. ; move.w (a4,d6.w*4),d4
  7416. ; move.w 2(a4,d6.w*4),d5
  7417. ;
  7418. ; sub.w d2,d4    ;dx
  7419. ; sub.w d3,d5    ;dz
  7420. ; move.w xoff,d0
  7421. ; move.w zoff,d6
  7422. ; 
  7423. ; sub.w d2,d0
  7424. ; sub.w d3,d6
  7425. ; 
  7426. ; muls d0,d4
  7427. ; muls d6,d5
  7428. ; add.l d4,d5
  7429. ; ble.s .rightnotoktoclip
  7430.  
  7431. *************************************
  7432.  
  7433.  
  7434.  
  7435.  cmp.w rightclip,d1
  7436.  bge.s .rightnotoktoclip
  7437.  addq #1,d1
  7438.  move.w d1,rightclip
  7439. .rightnotoktoclip:
  7440.  addq #8,a6
  7441.  addq #2,a0
  7442.  rts
  7443.  
  7444. FIRSTsetlrclip:
  7445.  move.l #OnScreen,a1
  7446.  move.l #Rotated,a2
  7447.  
  7448.  move.w (a0)+,d0
  7449.  bge.s .notignoreleft
  7450.  bra .leftnotoktoclip
  7451. .notignoreleft:
  7452.  
  7453.  move.w 6(a2,d0*8),d3    ; left z val
  7454.  bgt.s .leftclipinfront
  7455.  
  7456.  move.w (a0),d0
  7457.  blt.s .ignoreboth
  7458.  tst.w 6(a2,d0*8)
  7459.  bgt.s .leftnotoktoclip
  7460. .ignoreboth
  7461.  move.w RIGHTX,rightclip
  7462.  move.w #0,leftclip
  7463.  addq #2,a0
  7464.  rts
  7465.  
  7466. .leftclipinfront:
  7467.  move.w (a1,d0*2),d1    ; left x on screen
  7468.  cmp.w leftclip,d1
  7469.  ble.s .leftnotoktoclip
  7470.  move.w d1,leftclip
  7471. .leftnotoktoclip:
  7472.  
  7473.  move.w (a0)+,d0
  7474.  bge.s .notignoreright
  7475.  move.w #0,d4
  7476.  bra .rightnotoktoclip
  7477. .notignoreright:
  7478.  move.w 6(a2,d0*8),d4    ; right z val
  7479.  ble.s .rightnotoktoclip
  7480.  
  7481. .rightclipinfront:
  7482.  move.w (a1,d0*2),d1    ; right x on screen
  7483.  addq #1,d1
  7484.  cmp.w rightclip,d1
  7485.  bge.s .rightnotoktoclip
  7486.  move.w d1,rightclip
  7487. .rightnotoktoclip:
  7488.  
  7489. ; move.w leftclip,d0
  7490. ; move.w rightclip,d1
  7491. ; cmp.w d0,d1
  7492. ; bge.s .noswap
  7493. ; move.w #192,rightclip
  7494. ; move.w #0,leftclip
  7495. ;.noswap:
  7496.  
  7497.  rts
  7498.  
  7499.  
  7500. leftclip2: dc.w 0
  7501. rightclip2: dc.w 0
  7502. ZoneBright: dc.w 0
  7503.  
  7504. npolys: dc.w 0
  7505.  
  7506. PLR1_fire: dc.b 0
  7507. PLR2_fire: dc.b 0
  7508.  
  7509. *****************************************************
  7510.  
  7511.  
  7512. pastdata:
  7513. ***********************************
  7514. * This routine animates brightnesses.
  7515.  
  7516.  
  7517. liftpt: dc.l liftanimtab
  7518.  
  7519. brightpt:
  7520.  dc.l brightanimtab
  7521.  
  7522.  
  7523. liftanim:
  7524.  rts
  7525.  
  7526. ******************************
  7527.  include "ab3:source_4000/ObjectMove"
  7528.  include "ab3:source_4000/newAnims"
  7529.  include "ab3:source_4000/airoutine.s"
  7530. ******************************
  7531. startpass:
  7532. ; include "ab3:source_4000/password_reloc.s"
  7533. endpass:
  7534.  
  7535. rotanimpt: dc.w 0
  7536. xradd: dc.w 5
  7537. yradd: dc.w 8
  7538. xrpos: dc.w 320
  7539. yrpos: dc.w 320
  7540.  
  7541. rotanim:
  7542.  rts
  7543.  
  7544. option:
  7545.  dc.l 0,0
  7546.  
  7547. ********** WALL STUFF *******************************
  7548.  
  7549.  include "AB3:source_4000/hireswall.s"
  7550.  include "AB3:source_4000/hiresgourwall.s"
  7551.  
  7552. *****************************************************
  7553.  
  7554. ******************************************
  7555. * floor polygon
  7556.  
  7557. numsidestd: dc.w 0
  7558. bottomline: dc.w 0
  7559.  
  7560. checkforwater:
  7561.  tst.b usewater
  7562.  beq.s .notwater
  7563.  
  7564.  move.l Roompt,a1
  7565.  move.w (a1),d7
  7566.  cmp.w currzone,d7
  7567.  bne.s .notwater
  7568.  
  7569.  move.b #$f,fillscrnwater
  7570.  
  7571. .notwater:
  7572.  move.w (a0)+,d6    ; sides-1
  7573.  add.w d6,d6
  7574.  add.w d6,a0
  7575.  add.w #4+6,a0
  7576.  rts
  7577.  
  7578.  rts
  7579.  
  7580. ;NewCornerBuff:
  7581. ; ds.l 100
  7582. CLRNOFLOOR: dc.w 0
  7583.  
  7584. itsafloordraw:
  7585.  
  7586. * If D0 =1 then its a floor otherwise (=2) it's
  7587. * a roof.
  7588.  
  7589.  move.w #0,above
  7590.  move.w (a0)+,d6    ; ypos of poly
  7591.  
  7592.  tst.b usewater
  7593.  beq.s .oknon
  7594.  tst.b DOANYWATER
  7595.  beq dontdrawreturn
  7596. .oknon
  7597.  
  7598.  move.w d6,d7
  7599.  ext.l d7
  7600.  asl.l #6,d7
  7601.  cmp.l TOPOFROOM,d7
  7602.  blt checkforwater
  7603.  cmp.l BOTOFROOM,d7
  7604.  bgt.s dontdrawreturn
  7605.  
  7606.  move.w leftclip,d7
  7607.  cmp.w rightclip,d7
  7608.  bge.s dontdrawreturn
  7609.  
  7610.  sub.w flooryoff,d6
  7611.  bgt.s below
  7612.  blt.s aboveplayer
  7613.  
  7614.  tst.b usewater
  7615.  beq.s .notwater
  7616.  
  7617.  move.l Roompt,a1
  7618.  move.w (a1),d7
  7619.  cmp.w currzone,d7
  7620.  
  7621.  bne.s .notwater
  7622.  
  7623.  st fillscrnwater
  7624.  
  7625. .notwater:
  7626.  
  7627.  
  7628. dontdrawreturn:
  7629.  move.w (a0)+,d6    ; sides-1
  7630.  add.w d6,d6
  7631.  add.w d6,a0
  7632.  add.w #4+6,a0
  7633.  rts
  7634. aboveplayer:
  7635.  
  7636.  tst.b usewater
  7637.  beq.s .notwater
  7638.  
  7639.  move.l Roompt,a1
  7640.  move.w (a1),d7
  7641.  cmp.w currzone,d7
  7642.  bne.s .notwater
  7643.  
  7644.  move.b #$f,fillscrnwater
  7645.  
  7646. .notwater:
  7647.  
  7648.  btst #1,d0
  7649.  beq.s dontdrawreturn
  7650.  move.w MIDDLEY,d7
  7651.  sub.w topclip,d7 
  7652.  ble.s dontdrawreturn
  7653.  move.w #1,d0
  7654.  move.w d0,above
  7655.  neg.w d6
  7656.  bra.s notbelow
  7657. below:
  7658.  move.w botclip,d7
  7659.  sub.w MIDDLEY,d7
  7660.  ble.s dontdrawreturn
  7661. notbelow:
  7662.  btst #0,d0
  7663.  beq.s dontdrawreturn
  7664.  move.w d6,distaddr
  7665.  muls #64,d6
  7666.  move.l d6,ypos
  7667.  ext.l d7
  7668.  divs.l d7,d6        ; zpos of bottom
  7669.             ; visible line
  7670.  
  7671.  beq dontdrawreturn
  7672.  
  7673.  cmp.l #32767,d6
  7674.  bgt dontdrawreturn
  7675.             
  7676.  move.w d6,minz
  7677.  move.w d7,bottomline
  7678.  
  7679. ; Go round each point finding out
  7680. ; if it should be visible or not.
  7681.  
  7682.  move.l a0,-(a7)
  7683.  
  7684.  move.w (a0)+,d7    ; number of sides
  7685.  move.l #Rotated,a1
  7686.  move.l #OnScreen,a2
  7687. ; move.l #NewCornerBuff,a3
  7688.  moveq #0,d4
  7689.  moveq #0,d5
  7690.  moveq #0,d6
  7691.  clr.b anyclipping
  7692.  
  7693. cornerprocessloop:
  7694.  
  7695.  move.w (a0)+,d0
  7696.  and.w #$fff,d0
  7697.  move.w 6(a1,d0.w*8),d1
  7698.  ble  .canttell
  7699.  
  7700.  move.w (a2,d0.w*2),d3
  7701.  cmp.w leftclip,d3
  7702.  bgt.s .nol
  7703.  st d4
  7704.  st anyclipping
  7705.  bra.s .nos
  7706. .nol:
  7707.  cmp.w rightclip,d3
  7708.  blt.s .nor
  7709.  st d6
  7710.  st anyclipping
  7711.  bra.s .nos
  7712. .nor:
  7713.  st d5
  7714. .nos:
  7715.  bra .cantell
  7716.  
  7717. .canttell:
  7718.  st d5
  7719.  st anyclipping
  7720.  
  7721. .cantell:
  7722.  
  7723.  
  7724.  dbra d7,cornerprocessloop
  7725.  
  7726.  
  7727.  move.l (a7)+,a0
  7728.  tst.b d5
  7729.  bne.s somefloortodraw
  7730.  eor.b d4,d6
  7731.  bne dontdrawreturn
  7732.  
  7733. somefloortodraw:
  7734.  
  7735.  tst.b gourfloor
  7736.  bne goursides
  7737.  
  7738.  move.w #300,top
  7739.  move.w #-1,bottom
  7740.  move.w #0,drawit
  7741.  move.l #Rotated,a1
  7742.  move.l #OnScreen,a2
  7743.  move.w (a0)+,d7    ; no of sides
  7744. sideloop:
  7745.  move.w minz,d6
  7746.  move.w (a0)+,d1
  7747.  move.w (a0),d3
  7748.  and.w #$fff,d1
  7749.  and.w #$fff,d3
  7750.  
  7751.  move.w 6(a1,d1*8),d4    ;first z
  7752.  cmp.w d6,d4
  7753.  bgt firstinfront
  7754.  move.w 6(a1,d3*8),d5    ; sec z
  7755.  cmp.w d6,d5
  7756.  ble bothbehind
  7757. ** line must be on left and partially behind.
  7758.  sub.w d5,d4
  7759.  move.l (a1,d1*8),d0
  7760.  sub.l (a1,d3*8),d0
  7761.  asr.l #7,d0
  7762.  sub.w d5,d6
  7763.  muls d6,d0    ; new x coord
  7764.  divs d4,d0
  7765.  ext.l d0
  7766.  asl.l #7,d0
  7767.  
  7768.  add.l (a1,d3*8),d0
  7769.  move.w minz,d4
  7770.  move.w (a2,d3*2),d2
  7771.  divs d4,d0
  7772.  add.w MIDDLEX,d0
  7773.  move.l ypos,d3
  7774.  divs d5,d3
  7775.  move.w bottomline,d1 
  7776.  bra lineclipped
  7777.  
  7778. firstinfront:
  7779.  move.w 6(a1,d3*8),d5    ; sec z
  7780.  cmp.w d6,d5
  7781.  bgt bothinfront
  7782. ** line must be on right and partially behind.
  7783.  sub.w d4,d5    ; dz
  7784.  move.l (a1,d3*8),d2
  7785.  sub.l (a1,d1*8),d2    ; dx
  7786.  sub.w d4,d6
  7787.  asr.l #7,d2
  7788.  muls d6,d2    ; new x coord
  7789.  divs d5,d2
  7790.  ext.l d2
  7791.  asl.l #7,d2
  7792.  add.l (a1,d1*8),d2
  7793.  move.w minz,d5
  7794.  move.w (a2,d1*2),d0
  7795.  divs d5,d2
  7796.  add.w MIDDLEX,d2
  7797.  move.l ypos,d1
  7798.  divs d4,d1
  7799.  move.w bottomline,d3 
  7800.  bra lineclipped
  7801.  
  7802. bothinfront:
  7803.  
  7804. * Also, usefully enough, both are on-screen
  7805. * so no bottom clipping is needed.
  7806.  
  7807.  move.w (a2,d1*2),d0    ; first x
  7808.  move.w (a2,d3*2),d2    ; second x
  7809.  move.l ypos,d1
  7810.  move.l d1,d3
  7811.  divs d4,d1        ; first y
  7812.  divs d5,d3        ; second y
  7813. lineclipped:
  7814.  move.l #rightsidetab,a3
  7815.  cmp.w d1,d3
  7816.  beq lineflat
  7817.  st drawit
  7818.  bgt lineonright
  7819.  move.l #leftsidetab,a3
  7820.  exg d1,d3
  7821.  exg d0,d2
  7822.  
  7823.  lea (a3,d1*2),a3
  7824.  
  7825.  cmp.w top(pc),d1
  7826.  bge.s .nonewtop
  7827.  move.w d1,top
  7828. .nonewtop:
  7829.  cmp.w bottom(pc),d3
  7830.  ble.s .nonewbot
  7831.  move.w d3,bottom
  7832. .nonewbot:
  7833.  
  7834.  sub.w d1,d3    ; dy
  7835.  sub.w d0,d2    ; dx
  7836.  
  7837.  blt .linegoingleft
  7838.  
  7839.  ext.l d2
  7840.  divs d3,d2
  7841.  move.w d2,d6
  7842.  swap d2
  7843.  
  7844. ; moveq #0,d6
  7845. ; sub.w d3,d2
  7846. ; blt.s .noco
  7847. ;.makeco
  7848. ; addq #1,d6
  7849. ; sub.w d3,d2
  7850. ; bge.s .makeco
  7851. ;.noco
  7852. ; add.w d3,d2
  7853.  
  7854.  move.w d3,d4
  7855.  move.w d3,d5
  7856.  subq #1,d5
  7857.  move.w d6,d1
  7858.  addq #1,d1
  7859.  
  7860. .pixlopright:
  7861.  move.w d0,(a3)+
  7862.  sub.w d2,d4
  7863.  bge.s .nobigstep
  7864.  add.w d1,d0
  7865.  add.w d3,d4
  7866.  dbra d5,.pixlopright
  7867.  bra lineflat
  7868. .nobigstep
  7869.  add.w d6,d0
  7870.  dbra d5,.pixlopright
  7871.  bra lineflat
  7872.  
  7873. .linegoingleft:
  7874.  
  7875.  neg.w d2
  7876.  
  7877.  ext.l d2
  7878.  divs d3,d2
  7879.  move.w d2,d6
  7880.  swap d2
  7881.  
  7882.  
  7883. ; moveq #0,d6
  7884. ; sub.w d3,d2
  7885. ; blt.s .nocol
  7886. ;.makecol
  7887. ; addq #1,d6
  7888. ; sub.w d3,d2
  7889. ; bge.s .makecol
  7890. ;.nocol
  7891. ; add.w d3,d2
  7892.  
  7893.  
  7894.  
  7895.  move.w d3,d4
  7896.  move.w d3,d5
  7897.  subq #1,d5
  7898.  
  7899.  move.w d6,d1
  7900.  addq #1,d1
  7901.  
  7902. .pixlopleft:
  7903.  sub.w d2,d4
  7904.  bge.s .nobigstepl
  7905.  sub.w d1,d0
  7906.  add.w d3,d4
  7907.  move.w d0,(a3)+
  7908.  dbra d5,.pixlopleft
  7909.  bra lineflat
  7910.  
  7911. .nobigstepl
  7912.  sub.w d6,d0
  7913.  move.w d0,(a3)+
  7914.  dbra d5,.pixlopleft
  7915.  bra lineflat
  7916.  
  7917. lineonright:
  7918.  
  7919.  lea (a3,d1*2),a3
  7920.  
  7921.  cmp.w top(pc),d1
  7922.  bge.s .nonewtop
  7923.  move.w d1,top
  7924. .nonewtop:
  7925.  cmp.w bottom(pc),d3
  7926.  ble.s .nonewbot
  7927.  move.w d3,bottom
  7928. .nonewbot:
  7929.  
  7930.  sub.w d1,d3    ; dy
  7931.  sub.w d0,d2    ; dx
  7932.  blt .linegoingleft
  7933. ; addq #1,d0
  7934.  ext.l d2
  7935.  divs d3,d2
  7936.  move.w d2,d6
  7937.  swap d2
  7938.  
  7939. ; moveq #0,d6
  7940. ; sub.w d3,d2
  7941. ; blt.s .noco
  7942. ;.makeco
  7943. ; addq #1,d6
  7944. ; sub.w d3,d2
  7945. ; bge.s .makeco
  7946. ;.noco
  7947. ; add.w d3,d2
  7948.  
  7949.  move.w d3,d4
  7950.  move.w d3,d5
  7951.  subq #1,d5
  7952.  move.w d6,d1
  7953.  addq #1,d1
  7954.  
  7955. .pixlopright:
  7956.  sub.w d2,d4
  7957.  bge.s .nobigstep
  7958.  add.w d1,d0
  7959.  add.w d3,d4
  7960.  move.w d0,(a3)+
  7961.  dbra d5,.pixlopright
  7962.  bra lineflat
  7963.  
  7964. .nobigstep
  7965.  add.w d6,d0
  7966.  move.w d0,(a3)+
  7967.  dbra d5,.pixlopright
  7968.  bra lineflat
  7969.  
  7970. .linegoingleft:
  7971. ; addq #1,d0
  7972.  neg.w d2
  7973.  
  7974.  ext.l d2
  7975.  divs d3,d2
  7976.  move.w d2,d6
  7977.  swap d2
  7978.  
  7979.  
  7980. ; moveq #0,d6
  7981. ; sub.w d3,d2
  7982. ; blt.s .nocol
  7983. ;.makecol
  7984. ; addq #1,d6
  7985. ; sub.w d3,d2
  7986. ; bge.s .makecol
  7987. ;.nocol
  7988. ; add.w d3,d2
  7989.  
  7990.  move.w d3,d4
  7991.  move.w d3,d5
  7992.  subq #1,d5
  7993.  move.w d6,d1
  7994.  addq #1,d1
  7995.  
  7996. .pixlopleft:
  7997.  move.w d0,(a3)+
  7998.  sub.w d2,d4
  7999.  bge.s .nobigstepl
  8000.  sub.w d1,d0
  8001.  add.w d3,d4
  8002.  dbra d5,.pixlopleft
  8003.  bra lineflat
  8004.  
  8005. .nobigstepl
  8006.  sub.w d6,d0
  8007.  dbra d5,.pixlopleft
  8008.  
  8009. lineflat:
  8010.  
  8011. bothbehind:
  8012.  dbra d7,sideloop
  8013.  bra pastsides
  8014.  
  8015. fbr: dc.w 0
  8016. sbr: dc.w 0
  8017. FloorPtBrights: dc.l 0
  8018.  
  8019. goursides:
  8020.  
  8021.  move.w #300,top
  8022.  move.w #-1,bottom
  8023.  move.w #0,drawit
  8024.  move.l #Rotated,a1
  8025.  move.l #OnScreen,a2
  8026.  move.w (a0)+,d7    ; no of sides
  8027. sideloopGOUR:
  8028.  move.w minz,d6
  8029.  move.w (a0)+,d1
  8030.  move.w (a0),d3
  8031.  
  8032.  move.w d1,d4
  8033.  move.w d3,d5
  8034.  and.w #$0fff,d1
  8035.  and.w #$0fff,d3
  8036.  
  8037.  rol.w #4,d4
  8038.  rol.w #4,d5
  8039.  and.w #$f,d4
  8040.  and.w #$f,d5
  8041.  
  8042.  move.l FloorPtBrights,a4
  8043.  move.w (a4,d4.w*8),d4
  8044.  bge.s .okpos1
  8045.  neg.w d4
  8046. .okpos1:
  8047.  sub.w #300,d4
  8048.  move.w d4,fbr
  8049.  move.w (a4,d5.w*8),d4
  8050.  bge.s .okpos2
  8051.  neg.w d4
  8052. .okpos2:
  8053.  sub.w #300,d4
  8054.  move.w d4,sbr
  8055.  
  8056.  move.w 6(a1,d1*8),d4    ;first z
  8057.  cmp.w d6,d4
  8058.  bgt firstinfrontGOUR
  8059.  move.w 6(a1,d3*8),d5    ; sec z
  8060.  cmp.w d6,d5
  8061.  ble bothbehindGOUR
  8062. ** line must be on left and partially behind.
  8063.  sub.w d5,d4
  8064.  
  8065.  move.w fbr,d0
  8066.  sub.w sbr,d0
  8067.  sub.w d5,d6
  8068.  muls d6,d0
  8069.  divs d4,d0
  8070.  add.w sbr,d0
  8071.  move.w d0,fbr
  8072.  
  8073.  move.l (a1,d1*8),d0
  8074.  sub.l (a1,d3*8),d0
  8075.  asr.l #7,d0
  8076.  muls d6,d0    ; new x coord
  8077.  divs d4,d0
  8078.  ext.l d0
  8079.  asl.l #7,d0
  8080.  
  8081.  add.l (a1,d3*8),d0
  8082.  move.w minz,d4
  8083.  move.w (a2,d3*2),d2
  8084.  divs d4,d0
  8085.  add.w MIDDLEX,d0
  8086.  move.l ypos,d3
  8087.  divs d5,d3
  8088.  
  8089.  move.w bottomline,d1 
  8090.  bra lineclippedGOUR
  8091.  
  8092. firstinfrontGOUR:
  8093.  move.w 6(a1,d3*8),d5    ; sec z
  8094.  cmp.w d6,d5
  8095.  bgt bothinfrontGOUR
  8096. ** line must be on right and partially behind.
  8097.  sub.w d4,d5    ; dz
  8098.  
  8099.  move.w sbr,d2
  8100.  sub.w fbr,d2
  8101.  sub.w d4,d6
  8102.  muls d6,d2
  8103.  divs d5,d2
  8104.  add.w fbr,d2
  8105.  move.w d2,sbr
  8106.  
  8107.  move.l (a1,d3*8),d2
  8108.  sub.l (a1,d1*8),d2    ; dx
  8109.  asr.l #7,d2
  8110.  muls d6,d2    ; new x coord
  8111.  divs d5,d2
  8112.  ext.l d2
  8113.  asl.l #7,d2
  8114.  add.l (a1,d1*8),d2
  8115.  move.w minz,d5
  8116.  move.w (a2,d1*2),d0
  8117.  divs d5,d2
  8118.  add.w MIDDLEX,d2
  8119.  move.l ypos,d1
  8120.  divs d4,d1
  8121.  move.w bottomline,d3 
  8122.  bra lineclippedGOUR
  8123.  
  8124. bothinfrontGOUR:
  8125.  
  8126. * Also, usefully enough, both are on-screen
  8127. * so no bottom clipping is needed.
  8128.  
  8129.  move.w (a2,d1*2),d0    ; first x
  8130.  move.w (a2,d3*2),d2    ; second x
  8131.  move.l ypos,d1
  8132.  move.l d1,d3
  8133.  divs d4,d1        ; first y
  8134.  divs d5,d3        ; second y
  8135. lineclippedGOUR:
  8136.  move.l #rightsidetab,a3
  8137.  cmp.w d1,d3
  8138.  bne linenotflatGOUR
  8139.  
  8140. ; move.w fbr,d4
  8141. ; move.w sbr,d5
  8142. ; cmp.w d0,d2
  8143. ; bgt.s .nsw
  8144. ; exg d4,d5
  8145. ;.nsw:
  8146.  
  8147. ; move.l #leftbrighttab,a3
  8148. ; move.w d4,(a3,d3.w)
  8149. ; move.l #rightbrighttab,a3
  8150. ; move.w d5,(a3,d3.w) 
  8151.  bra lineflatGOUR
  8152.  
  8153. linenotflatGOUR
  8154.  st drawit
  8155.  bgt lineonrightGOUR
  8156.  move.l #leftsidetab,a3
  8157.  exg d1,d3
  8158.  exg d0,d2
  8159.  
  8160.  lea (a3,d1*2),a3
  8161.  lea leftbrighttab-leftsidetab(a3),a4
  8162.  
  8163.  cmp.w top(pc),d1
  8164.  bge.s .nonewtop
  8165.  move.w d1,top
  8166. .nonewtop:
  8167.  cmp.w bottom(pc),d3
  8168.  ble.s .nonewbot
  8169.  move.w d3,bottom
  8170. .nonewbot:
  8171.  
  8172.  sub.w d1,d3    ; dy
  8173.  sub.w d0,d2    ; dx
  8174.  
  8175.  blt .linegoingleft
  8176.  
  8177.  ext.l d2
  8178.  divs d3,d2
  8179.  move.w d2,d6
  8180.  swap d2
  8181.  move.w d2,a5
  8182.  
  8183. ; moveq #0,d6
  8184. ; sub.w d3,d2
  8185. ; blt.s .noco
  8186. ;.makeco
  8187. ; addq #1,d6
  8188. ; sub.w d3,d2
  8189. ; bge.s .makeco
  8190. ;.noco
  8191. ; add.w d3,d2
  8192.  
  8193.  move.w d3,d4
  8194.  move.w d3,d5
  8195.  subq #1,d5
  8196.  move.w d6,d1
  8197.  addq #1,d1
  8198.  move.w d1,a6
  8199.  
  8200.  moveq #0,d1
  8201.  move.w sbr,d1
  8202.  move.w fbr,d2
  8203.  sub.w d1,d2
  8204.  ext.l d2
  8205.  asl.w #8,d2
  8206.  asl.w #2,d2
  8207.  divs d3,d2 
  8208.  ext.l d2
  8209.  asl.l #6,d2
  8210.  swap d1
  8211.  
  8212. .pixlopright:
  8213.  move.w d0,(a3)+
  8214.  swap d1
  8215.  move.w d1,(a4)+
  8216.  swap d1
  8217.  add.l d2,d1
  8218.  
  8219.  sub.w a5,d4
  8220.  bge.s .nobigstep
  8221.  add.w a6,d0
  8222.  add.w d3,d4
  8223.  dbra d5,.pixlopright
  8224.  bra lineflatGOUR
  8225. .nobigstep
  8226.  
  8227.  add.w d6,d0
  8228.  dbra d5,.pixlopright
  8229.  bra lineflatGOUR
  8230.  
  8231. .linegoingleft:
  8232.  
  8233.  neg.w d2
  8234.  
  8235.  ext.l d2
  8236.  divs d3,d2
  8237.  move.w d2,d6
  8238.  swap d2
  8239.  
  8240.  
  8241. ; moveq #0,d6
  8242. ; sub.w d3,d2
  8243. ; blt.s .nocol
  8244. ;.makecol
  8245. ; addq #1,d6
  8246. ; sub.w d3,d2
  8247. ; bge.s .makecol
  8248. ;.nocol
  8249. ; add.w d3,d2
  8250.  
  8251.  move.w d3,d4
  8252.  move.w d3,d5
  8253.  subq #1,d5
  8254.  
  8255.  move.w d6,d1
  8256.  addq #1,d1
  8257.  move.w d1,a6
  8258.  move.w d2,a5
  8259.  
  8260.  moveq #0,d1
  8261.  move.w sbr,d1
  8262.  move.w fbr,d2
  8263.  sub.w d1,d2
  8264.  ext.l d2
  8265.  asl.w #8,d2
  8266.  asl.w #2,d2
  8267.  divs d3,d2 
  8268.  ext.l d2
  8269.  asl.l #6,d2
  8270.  swap d1
  8271.  
  8272. .pixlopleft:
  8273.  
  8274.  swap d1
  8275.  move.w d1,(a4)+
  8276.  swap d1
  8277.  add.l d2,d1
  8278.  
  8279.  sub.w a5,d4
  8280.  bge.s .nobigstepl
  8281.  sub.w a6,d0
  8282.  add.w d3,d4
  8283.  move.w d0,(a3)+
  8284.  dbra d5,.pixlopleft
  8285.  bra lineflatGOUR
  8286.  
  8287. .nobigstepl
  8288.  sub.w d6,d0
  8289.  move.w d0,(a3)+
  8290.  dbra d5,.pixlopleft
  8291.  bra lineflatGOUR
  8292.  
  8293. lineonrightGOUR:
  8294.  
  8295.  lea (a3,d1*2),a3
  8296.  
  8297.  lea rightbrighttab-rightsidetab(a3),a4
  8298.  
  8299.  cmp.w top(pc),d1
  8300.  bge.s .nonewtop
  8301.  move.w d1,top
  8302. .nonewtop:
  8303.  cmp.w bottom(pc),d3
  8304.  ble.s .nonewbot
  8305.  move.w d3,bottom
  8306. .nonewbot:
  8307.  
  8308.  sub.w d1,d3    ; dy
  8309.  sub.w d0,d2    ; dx
  8310.  blt .linegoingleft
  8311. ; addq #1,d0
  8312.  ext.l d2
  8313.  divs d3,d2
  8314.  move.w d2,d6
  8315.  swap d2
  8316.  
  8317. ; moveq #0,d6
  8318. ; sub.w d3,d2
  8319. ; blt.s .noco
  8320. ;.makeco
  8321. ; addq #1,d6
  8322. ; sub.w d3,d2
  8323. ; bge.s .makeco
  8324. ;.noco
  8325. ; add.w d3,d2
  8326.  
  8327.  move.w d3,d4
  8328.  move.w d3,d5
  8329.  subq #1,d5
  8330.  move.w d6,d1
  8331.  addq #1,d1
  8332.  
  8333.  move.w d1,a6
  8334.  move.w d2,a5
  8335.  
  8336.  moveq #0,d1
  8337.  move.w fbr,d1
  8338.  move.w sbr,d2
  8339.  sub.w d1,d2
  8340.  ext.l d2
  8341.  asl.w #8,d2
  8342.  asl.w #2,d2
  8343.  divs d3,d2 
  8344.  ext.l d2
  8345.  asl.l #6,d2
  8346.  swap d1
  8347.  
  8348. .pixlopright:
  8349.  
  8350.  swap d1
  8351.  move.w d1,(a4)+
  8352.  swap d1
  8353.  add.l d2,d1
  8354.  
  8355.  sub.w a5,d4
  8356.  bge.s .nobigstep
  8357.  add.w a6,d0
  8358.  add.w d3,d4
  8359.  move.w d0,(a3)+
  8360.  dbra d5,.pixlopright
  8361.  bra lineflatGOUR
  8362.  
  8363. .nobigstep
  8364.  add.w d6,d0
  8365.  move.w d0,(a3)+
  8366.  dbra d5,.pixlopright
  8367.  bra lineflatGOUR
  8368.  
  8369. .linegoingleft:
  8370. ; addq #1,d0
  8371.  neg.w d2
  8372.  
  8373.  ext.l d2
  8374.  divs d3,d2
  8375.  move.w d2,d6
  8376.  swap d2
  8377.  
  8378.  
  8379. ; moveq #0,d6
  8380. ; sub.w d3,d2
  8381. ; blt.s .nocol
  8382. ;.makecol
  8383. ; addq #1,d6
  8384. ; sub.w d3,d2
  8385. ; bge.s .makecol
  8386. ;.nocol
  8387. ; add.w d3,d2
  8388.  
  8389.  move.w d3,d4
  8390.  move.w d3,d5
  8391.  subq #1,d5
  8392.  move.w d6,d1
  8393.  addq #1,d1
  8394.  move.w d1,a6
  8395.  move.w d2,a5
  8396.  
  8397.  moveq #0,d1
  8398.  move.w fbr,d1
  8399.  move.w sbr,d2
  8400.  sub.w d1,d2
  8401.  ext.l d2
  8402.  asl.w #8,d2
  8403.  asl.w #2,d2
  8404.  divs d3,d2 
  8405.  ext.l d2
  8406.  asl.l #6,d2
  8407.  swap d1
  8408.  
  8409. .pixlopleft:
  8410.  
  8411.  swap d1
  8412.  move.w d1,(a4)+
  8413.  swap d1
  8414.  add.l d2,d1
  8415.  
  8416.  move.w d0,(a3)+
  8417.  sub.w a5,d4
  8418.  bge.s .nobigstepl
  8419.  sub.w a6,d0
  8420.  add.w d3,d4
  8421.  dbra d5,.pixlopleft
  8422.  bra lineflatGOUR
  8423.  
  8424. .nobigstepl
  8425.  sub.w d6,d0
  8426.  dbra d5,.pixlopleft
  8427.  
  8428. lineflatGOUR:
  8429.  
  8430. bothbehindGOUR:
  8431.  dbra d7,sideloopGOUR
  8432.  
  8433. pastsides:
  8434.  
  8435.  addq #2,a0
  8436.  
  8437.  move.w #320,linedir
  8438.  
  8439. ; move.l FASTBUFFER2,a6
  8440. ; add.l BIGMIDDLEY,a6
  8441. ; move.l a6,REFPTR
  8442.  
  8443.  move.l FASTBUFFER,a6
  8444.  add.l BIGMIDDLEY,a6
  8445.  move.w (a0)+,d6
  8446.  add.w SMALLIT,d6
  8447.  move.w d6,scaleval
  8448.  move.w (a0)+,d6
  8449.  
  8450.  ifne CHEESEY
  8451.  move.w d6,d7    ; 000000XX000000YY
  8452.  lsr.w #6,d6
  8453.  add.w d6,d7    ; 000000XX0000XXYY
  8454.  
  8455.  and.b #%111,d6    ; 000000XX00000XYY
  8456.  add.b d7,d7    ; 000000XX0000XYY0
  8457.  asl.w #4,d7    ; 00XX0000 XYY00000
  8458.  and.w #%0010000011100000,d7
  8459.  move.w d7,d6
  8460.  endc
  8461.  
  8462.  move.w d6,whichtile
  8463.  move.w (a0)+,d6
  8464.  add.w ZoneBright,d6
  8465.  move.w d6,lighttype
  8466.  move.w above(pc),d6
  8467.  beq groundfloor
  8468. * on ceiling:
  8469.  move.w #-320,linedir
  8470.  suba.w #320,a6
  8471. groundfloor:
  8472.  
  8473.  move.w xoff,d6
  8474.  move.w zoff,d7
  8475.  add.w xwobxoff,d7
  8476.  add.w xwobzoff,d6
  8477.  ext.l d6
  8478.  ext.l d7
  8479.  
  8480.  tst.b FULLSCR
  8481.  beq.s .shiftit
  8482.  
  8483.  asl.l #2,d6
  8484.  asl.l #2,d7
  8485.  divs #3,d6
  8486.  divs #3,d7
  8487.  swap d6
  8488.  swap d7
  8489.  clr.w d6
  8490.  clr.w d7
  8491.  asr.l #2,d6
  8492.  asr.l #2,d7
  8493.  bra.s .donsht
  8494.  
  8495. .shiftit
  8496.  
  8497. ; divs #3,d6
  8498. ; divs #3,d7
  8499.  swap d6
  8500.  swap d7
  8501.  clr.w d6
  8502.  clr.w d7
  8503.  asr.l #1,d6
  8504.  asr.l #1,d7
  8505. .donsht:
  8506.  move.w scaleval(pc),d3
  8507.  beq.s .samescale
  8508.  bgt.s .scaledown
  8509.  neg.w d3
  8510.  asr.l d3,d7
  8511.  asr.l d3,d6
  8512.  bra.s .samescale
  8513. .scaledown:
  8514.  asl.l d3,d6
  8515.  asl.l d3,d7
  8516. .samescale
  8517.  
  8518.  ifne CHEESEY
  8519.  asr.l #1,d6
  8520.  asr.l #1,d7
  8521.  endc
  8522.  
  8523.  move.l d6,sxoff
  8524.  move.l d7,szoff
  8525.  bra pastscale 
  8526.  
  8527.  asr.l #3,d1
  8528.  asr.l #3,d2
  8529.  asr.l #2,d1
  8530.  asr.l #2,d2
  8531.  asr.l #1,d1
  8532.  asr.l #1,d2
  8533. scaleprogfrom
  8534.  nop
  8535.  nop
  8536.  asl.l #1,d1
  8537.  asl.l #1,d2
  8538.  asl.l #2,d1
  8539.  asl.l #2,d2
  8540.  asl.l #3,d1
  8541.  asl.l #3,d2
  8542.  
  8543. top: dc.w 0
  8544. bottom: dc.w 0
  8545. ypos: dc.l 0
  8546. nfloors: dc.w 0
  8547. lighttype: dc.w 0
  8548. above: dc.w 0 
  8549. linedir: dc.w 0
  8550. distaddr: dc.w 0
  8551.  
  8552. minz: dc.l 0
  8553.  
  8554. leftsidetab:
  8555.  ds.w 512*2
  8556. rightsidetab:
  8557.  ds.w 512*2
  8558. leftbrighttab:
  8559.  ds.w 512*2
  8560. rightbrighttab:
  8561.  ds.w 512*2
  8562.  
  8563. PointBrights:
  8564.  dc.l 0
  8565. CurrentPointBrights:
  8566.  ds.l 2*256*10
  8567.  
  8568. movespd: dc.w 0
  8569. largespd: dc.l 0
  8570. disttobot: dc.w 0
  8571.  
  8572. pastscale:
  8573.  
  8574.  
  8575.  tst.b drawit(pc)
  8576.  beq dontdrawfloor
  8577.  
  8578.  tst.b DOUBLEHEIGHT
  8579.  beq pix1h
  8580.  
  8581.  move.l a0,-(a7)
  8582.  move.w linedir,d1
  8583.  add.w d1,linedir
  8584.  
  8585.  move.l #leftsidetab,a4
  8586.  move.w top(pc),d1
  8587.  tst.w above
  8588.  beq.s .clipfloor
  8589.  
  8590.  sub.w #320,a6
  8591.  
  8592.  move.w MIDDLEY,d7
  8593.  subq #1,d7
  8594.  sub.w d1,d7
  8595.  move.w d7,disttobot
  8596.  
  8597.  move.w bottom(pc),d7
  8598.  move.w MIDDLEY,d3
  8599.  move.w d3,d4
  8600.  sub.w topclip,d3
  8601.  sub.w botclip,d4
  8602.  cmp.w d3,d1
  8603.  bge predontdrawfloor
  8604.  cmp.w d4,d7
  8605.  blt predontdrawfloor
  8606.  cmp.w d4,d1
  8607.  bge.s .nocliptoproof
  8608.  move.w d4,d1
  8609. .nocliptoproof
  8610.  cmp.w d3,d7
  8611.  blt .doneclip
  8612.  move.w d3,d7
  8613.  bra .doneclip
  8614.  
  8615. .clipfloor:
  8616.  move.w BOTTOMY,d7
  8617.  sub.w MIDDLEY,d7
  8618.  subq #1,d7
  8619.  sub.w d1,d7
  8620.  move.w d7,disttobot
  8621.  
  8622.  move.w bottom(pc),d7
  8623.  move.w botclip,d4
  8624.  sub.w MIDDLEY,d4
  8625.  cmp.w d4,d1
  8626.  bge predontdrawfloor
  8627.  move.w topclip,d3
  8628.  sub.w MIDDLEY,d3
  8629.  cmp.w d3,d1
  8630.  bge.s .nocliptopfloor
  8631.  move.w d3,d1
  8632. .nocliptopfloor 
  8633.  cmp.w d3,d7
  8634.  ble predontdrawfloor
  8635.  cmp.w d4,d7
  8636.  blt.s .noclipbotfloor
  8637.  move.w d4,d7
  8638. .noclipbotfloor:
  8639.  
  8640. .doneclip:
  8641.  
  8642.  lea (a4,d1*2),a4
  8643.  addq #1,d7
  8644.  sub.w d1,d7
  8645.  
  8646. ;moveq #0,d0
  8647.  asr.w #1,d1
  8648. ; addx d0,d1
  8649.  
  8650. ; move.l #dists,a2
  8651.  move.w distaddr,d0
  8652.  muls #64,d0
  8653.  move.l d0,a2
  8654. ; muls #25,d0
  8655. ; adda.w d0,a2
  8656. ; lea (a2,d1*2),a2
  8657.  asr.w #1,d7
  8658.  ble predontdrawfloor 
  8659.  move.w d1,d0
  8660.  bne.s .notzero
  8661.  moveq #1,d0
  8662. .notzero
  8663.  add.w d0,d0
  8664.  muls linedir,d1
  8665.  add.l d1,a6
  8666. ; sub.l d1,REFPTR
  8667.  move.l TexturePal,a1
  8668.  add.l #256*32,a1
  8669.  move.l LineToUse,a5
  8670.  
  8671.  move.w #4,tonextline
  8672.  
  8673.  bra pix2h
  8674.  
  8675. pix1h:
  8676.  
  8677.  move.l a0,-(a7)
  8678.  
  8679.  move.l #leftsidetab,a4
  8680.  move.w top(pc),d1
  8681.   
  8682.  tst.w above
  8683.  beq.s clipfloor
  8684.  
  8685.  move.w MIDDLEY,d7
  8686.  subq #1,d7
  8687.  sub.w d1,d7
  8688.  move.w d7,disttobot
  8689.  
  8690.  move.w bottom(pc),d7
  8691.  move.w MIDDLEY,d3
  8692.  move.w d3,d4
  8693.  sub.w topclip,d3
  8694.  sub.w botclip,d4
  8695.  cmp.w d3,d1
  8696.  bge predontdrawfloor
  8697.  cmp.w d4,d7
  8698.  blt predontdrawfloor
  8699.  cmp.w d4,d1
  8700.  bge.s .nocliptoproof
  8701.  move.w d4,d1
  8702. .nocliptoproof
  8703.  cmp.w d3,d7
  8704.  blt doneclip
  8705.  move.w d3,d7
  8706.  bra doneclip
  8707.  
  8708. clipfloor:
  8709.  move.w BOTTOMY,d7
  8710.  sub.w MIDDLEY,d7
  8711.  subq #1,d7
  8712.  sub.w d1,d7
  8713.  move.w d7,disttobot
  8714.  
  8715.  move.w bottom(pc),d7
  8716.  move.w botclip,d4
  8717.  sub.w MIDDLEY,d4
  8718.  cmp.w d4,d1
  8719.  bge predontdrawfloor
  8720.  move.w topclip,d3
  8721.  sub.w MIDDLEY,d3
  8722.  cmp.w d3,d1
  8723.  bge.s .nocliptopfloor
  8724.  move.w d3,d1
  8725. .nocliptopfloor 
  8726.  cmp.w d3,d7
  8727.  ble predontdrawfloor
  8728.  cmp.w d4,d7
  8729.  blt.s .noclipbotfloor
  8730.  move.w d4,d7
  8731. .noclipbotfloor:
  8732.  
  8733. doneclip:
  8734.  
  8735.  lea (a4,d1*2),a4
  8736. ; move.l #dists,a2
  8737.  move.w distaddr,d0
  8738.  muls #64,d0
  8739.  move.l d0,a2
  8740. ; muls #25,d0
  8741. ; adda.w d0,a2
  8742. ; lea (a2,d1*2),a2
  8743.  sub.w d1,d7
  8744.  ble predontdrawfloor 
  8745.  move.w d1,d0
  8746.  bne.s .notzero
  8747.  moveq #1,d0
  8748. .notzero
  8749.  muls linedir,d1
  8750.  add.l d1,a6
  8751. ; sub.l d1,REFPTR
  8752.  move.l TexturePal,a1
  8753.  add.l #256*32,a1
  8754.  move.l LineToUse,a5
  8755.  
  8756.  move.w #2,tonextline
  8757.  
  8758. pix2h:
  8759.  
  8760.  tst.b gourfloor
  8761.  bne dogourfloor
  8762.  
  8763.  tst.b anyclipping
  8764.  beq dofloornoclip
  8765.  
  8766. dofloor:
  8767. ; move.w (a2)+,d0
  8768.  move.w leftclip,d3
  8769.  move.w rightclip,d4
  8770.  move.w rightsidetab-leftsidetab(a4),d2
  8771.  
  8772.  addq #1,d2
  8773.  cmp.w d3,d2
  8774.  ble.s nodrawline
  8775.  cmp.w d4,d2
  8776.  ble.s noclipright
  8777.  move.w d4,d2
  8778. noclipright:
  8779.  move.w (a4),d1
  8780.  cmp.w d4,d1
  8781.  bge.s nodrawline
  8782.  cmp.w d3,d1
  8783.  bge.s noclipleft
  8784.  move.w d3,d1
  8785. noclipleft:
  8786.  cmp.w d1,d2
  8787.  ble.s nodrawline
  8788.  
  8789.  move.w d1,leftedge
  8790.  move.w d2,rightedge
  8791.  
  8792. ; moveq #0,d1
  8793. ; moveq #0,d3
  8794. ; move.w leftbrighttab-leftsidetab(a4),d1
  8795. ; bge.s .okbl
  8796. ; moveq #0,d1
  8797. ;.okbl:
  8798.  
  8799. ; move.w rightbrighttab-leftsidetab(a4),d3
  8800. ; bge.s .okbr
  8801. ; moveq #0,d3
  8802. ;.okbr:
  8803.  
  8804. ; sub.w d1,d3
  8805. ; asl.w #8,d1
  8806. ; move.l d1,leftbright
  8807. ; swap d3
  8808. ; asr.l #5,d3
  8809. ; divs d5,d3
  8810. ; move.w d3,d5
  8811. ; muls.w d6,d5
  8812. ; asr.l #3,d5
  8813. ; clr.b d5
  8814. ; add.w d5,leftbright+2
  8815.  
  8816. ; ext.l d3
  8817. ; asl.l #5,d3
  8818. ; swap d3
  8819. ; asl.w #8,d3
  8820. ; move.l d3,brightspd
  8821.  
  8822.  move.l a6,a3
  8823.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8824.  move.l a2,d7
  8825.  asl.l #2,d7
  8826.  ext.l d0
  8827.  divs.l d0,d7
  8828.  move.l d7,d0
  8829.  jsr (a5)
  8830.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8831. nodrawline
  8832.  sub.w #1,disttobot
  8833.  move.w linedir(pc),d3
  8834.  adda.w d3,a6
  8835. ; ext.l d3
  8836. ; sub.l d3,REFPTR
  8837.  move.w tonextline,d3
  8838.  add.w d3,a4
  8839.  asr.w #1,d3
  8840.  add.w d3,d0
  8841.  subq #1,d7
  8842.  bgt dofloor
  8843.  
  8844. predontdrawfloor
  8845.  move.l (a7)+,a0
  8846.  
  8847. dontdrawfloor:
  8848.  
  8849.  rts
  8850.  
  8851. tonextline: dc.w 0
  8852. anyclipping: dc.w 0
  8853.  
  8854. dofloornoclip:
  8855. ; move.w (a2)+,d0
  8856.  move.w rightsidetab-leftsidetab(a4),d2
  8857.  addq #1,d2
  8858.  move.w (a4),d1
  8859.  move.w d1,leftedge
  8860.  move.w d2,rightedge
  8861.  
  8862. ; sub.w d1,d2
  8863.  
  8864. ; moveq #0,d1
  8865. ; moveq #0,d3
  8866. ; move.w leftbrighttab-leftsidetab(a4),d1
  8867. ; bge.s .okbl
  8868. ; moveq #0,d1
  8869. ;.okbl:
  8870.  
  8871. ; move.w rightbrighttab-leftsidetab(a4),d3
  8872. ; bge.s .okbr
  8873. ; moveq #0,d3
  8874. ;.okbr:
  8875.  
  8876. ; sub.w d1,d3
  8877. ; asl.w #8,d1
  8878. ; move.l d1,leftbright
  8879. ; swap d3
  8880. ; asr.l #5,d3
  8881. ; divs d2,d3
  8882. ; ext.l d3
  8883. ; asl.l #5,d3
  8884. ; swap d3
  8885. ; asl.w #8,d3
  8886. ; move.l d3,brightspd
  8887.  
  8888.  move.l a6,a3
  8889.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8890.  move.l a2,d7
  8891.  asl.l #2,d7
  8892.  ext.l d0
  8893.  divs.l d0,d7
  8894.  move.l d7,d0
  8895.  jsr (a5)
  8896.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8897.  sub.w #1,disttobot
  8898.  move.w linedir(pc),d3
  8899.  adda.w d3,a6
  8900. ; ext.l d3
  8901. ; sub.l d3,REFPTR
  8902.  move.w tonextline,d3
  8903.  add.w d3,a4
  8904.  asr.w #1,d3
  8905.  add.w d3,d0
  8906.  subq #1,d7
  8907.  bgt dofloornoclip
  8908.  
  8909.  bra predontdrawfloor
  8910.  
  8911. dogourfloor:
  8912.  tst.b anyclipping
  8913.  beq dofloornoclipGOUR
  8914.  
  8915. dofloorGOUR:
  8916. ; move.w (a2)+,d0
  8917.  move.w leftclip,d3
  8918.  move.w rightclip,d4
  8919.  move.w rightsidetab-leftsidetab(a4),d2
  8920.  
  8921.  move.w d2,d5
  8922.  sub.w (a4),d5
  8923.  addq #1,d5
  8924.  moveq #0,d6
  8925.  
  8926.  addq #1,d2
  8927.  cmp.w d3,d2
  8928.  ble nodrawlineGOUR
  8929.  cmp.w d4,d2
  8930.  ble.s nocliprightGOUR
  8931.  move.w d4,d2
  8932. nocliprightGOUR:
  8933.  move.w (a4),d1
  8934.  cmp.w d4,d1
  8935.  bge nodrawlineGOUR
  8936.  cmp.w d3,d1
  8937.  bge.s noclipleftGOUR
  8938.  move.w d3,d6
  8939.  subq #1,d6
  8940.  sub.w d1,d6
  8941.  move.w d3,d1
  8942. noclipleftGOUR:
  8943.  cmp.w d1,d2
  8944.  ble nodrawlineGOUR
  8945.  
  8946.  move.w d1,leftedge
  8947.  move.w d2,rightedge
  8948.  
  8949.  move.l a2,d2
  8950.  asl.l #2,d2
  8951.  ext.l d0
  8952.  divs.l d0,d2
  8953.  move.l d2,dst
  8954.  asr.l #7,d2
  8955.  asr.l #2,d2
  8956. ; addq #5,d2
  8957. ; add.w lighttype,d2
  8958.  
  8959.  moveq #0,d1
  8960.  moveq #0,d3
  8961.  move.w leftbrighttab-leftsidetab(a4),d1
  8962.  add.w d2,d1
  8963.  bge.s .okbl
  8964.  moveq #0,d1
  8965. .okbl:
  8966. ; asr.w #1,d1
  8967.  cmp.w #30,d1
  8968.  ble.s .okdl
  8969.  move.w #30,d1
  8970. .okdl:
  8971.  
  8972.  move.w rightbrighttab-leftsidetab(a4),d3
  8973.  add.w d2,d3
  8974.  bge.s .okbr
  8975.  moveq #0,d3
  8976. .okbr:
  8977. ; asr.w #1,d3
  8978.  cmp.w #30,d3
  8979.  ble.s .okdr
  8980.  move.w #30,d3
  8981. .okdr:
  8982.  
  8983.  sub.w d1,d3
  8984.  asl.w #8,d1
  8985.  move.w d1,leftbright
  8986.  swap d3
  8987.  tst.l d3
  8988.  bgt.s .OKITSPOSALREADY 
  8989.  neg.l d3
  8990.  asr.l #6,d3
  8991.  divs d5,d3
  8992.  neg.w d3
  8993.  bra.s .OKNOWITSNEG
  8994.  
  8995. .OKITSPOSALREADY
  8996.  asr.l #6,d3
  8997.  divs d5,d3
  8998. .OKNOWITSNEG
  8999.  muls d3,d6
  9000.  add.w #256*4,d6
  9001.  asr.w #2,d6
  9002.  clr.b d6
  9003.  add.w leftbright,d6
  9004.  bge.s .oklbnn
  9005.  moveq #0,d6
  9006. .oklbnn:
  9007.  move.w d6,leftbright
  9008.  
  9009.  ext.l d3
  9010.  asr.l #2,d3
  9011. ; swap d3
  9012. ; asl.w #8,d3
  9013.  move.w d3,brightspd
  9014.  
  9015.  move.l a6,a3
  9016.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9017.  move.l dst,d0
  9018.  move.l TexturePal,a1
  9019.  add.l #256*32,a1
  9020.  move.l floortile,a0
  9021.  adda.w whichtile,a0
  9022.  jsr pastfloorbright
  9023.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9024. nodrawlineGOUR
  9025.  
  9026.  sub.w #1,disttobot
  9027.  
  9028.  move.w linedir(pc),d3
  9029.  adda.w d3,a6
  9030. ; ext.l d3
  9031. ; sub.l d3,REFPTR
  9032.  move.w tonextline,d3
  9033.  add.w d3,a4
  9034.  asr.w #1,d3
  9035.  add.w d3,d0
  9036.  subq #1,d7
  9037.  bgt dofloorGOUR
  9038.  
  9039. predontdrawfloorGOUR
  9040.  move.l (a7)+,a0
  9041.  
  9042. dontdrawfloorGOUR:
  9043.  
  9044.  rts
  9045.  
  9046. REFPTR: dc.l 0
  9047.  
  9048. dofloornoclipGOUR:
  9049. ; move.w (a2)+,d0
  9050.  move.w rightsidetab-leftsidetab(a4),d2
  9051.  addq #1,d2
  9052.  move.w (a4),d1
  9053.  move.w d1,leftedge
  9054.  move.w d2,rightedge
  9055.  
  9056.  sub.w d1,d2
  9057.  
  9058.  move.l a2,d6
  9059.  asl.l #2,d6
  9060.  ext.l d0
  9061.  divs.l d0,d6
  9062.  move.l d6,d5
  9063.  asr.l #7,d5
  9064.  asr.l #2,d5
  9065. ; addq #5,d5
  9066. ; add.w lighttype,d5
  9067.  
  9068.  moveq #0,d1
  9069.  moveq #0,d3
  9070.  move.w leftbrighttab-leftsidetab(a4),d1
  9071.  add.w d5,d1
  9072.  bge.s .okbl
  9073.  moveq #0,d1
  9074. .okbl:
  9075. ; asr.w #1,d1
  9076.  cmp.w #30,d1
  9077.  ble.s .okdl
  9078.  move.w #30,d1
  9079. .okdl:
  9080.  
  9081.  move.w rightbrighttab-leftsidetab(a4),d3
  9082.  add.w d5,d3
  9083.  bge.s .okbr
  9084.  moveq #0,d3
  9085. .okbr:
  9086. ; asr.w #1,d3
  9087.  cmp.w #30,d3
  9088.  ble.s .okdr
  9089.  move.w #30,d3
  9090. .okdr:
  9091.  
  9092. ; sub.w d1,d3
  9093. ; asl.w #8,d1
  9094. ; move.l d1,leftbright
  9095. ; swap d3
  9096. ; asr.l #5,d3
  9097. ; divs d2,d3
  9098. ; ext.l d3
  9099. ; asl.l #5,d3
  9100. ; swap d3
  9101. ; asl.w #8,d3
  9102. ; move.l d3,brightspd
  9103.  
  9104.  sub.w d1,d3
  9105.  asl.w #8,d1
  9106.  move.w d1,leftbright
  9107.  swap d3
  9108.  ext.l d2
  9109.  divs.l d2,d3
  9110.  asr.l #8,d3
  9111.  move.w d3,brightspd
  9112.  
  9113.  move.l a6,a3
  9114.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9115.  move.l d6,d0
  9116.  move.l d0,dst
  9117.  move.l TexturePal,a1
  9118.  add.l #256*32,a1
  9119.  move.l floortile,a0
  9120.  adda.w whichtile,a0
  9121.  jsr pastfloorbright
  9122.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9123.  sub.w #1,disttobot
  9124.  
  9125.  move.w linedir(pc),d3
  9126.  adda.w d3,a6
  9127. ; ext.l d3
  9128. ; sub.l d3,REFPTR
  9129.  
  9130.  move.w tonextline,d3
  9131.  add.w d3,a4
  9132.  asr.w #1,d3
  9133.  add.w d3,d0
  9134.  subq #1,d7
  9135.  bgt dofloornoclipGOUR
  9136.  
  9137.  bra predontdrawfloorGOUR
  9138.  
  9139.  
  9140.  
  9141. dists:
  9142. ; incbin "floordists"
  9143. drawit: dc.w 0
  9144.  
  9145. LineToUse: dc.l 0
  9146.  
  9147. ***************************
  9148. * Right then, time for the floor
  9149. * routine...
  9150. * For test purposes, give it
  9151. * a3 = point to screen
  9152. * d0= z distance away
  9153. * and sinval+cosval must be set up.
  9154. ***************************
  9155.  
  9156. BLACKFLOOR:
  9157.  moveq #0,d0
  9158.  bra.s DOBLACK
  9159.  
  9160. SimpleFloorLine:
  9161.  
  9162.  CACHE_OFF d2
  9163.  
  9164.  move.l #doacrossline,a1
  9165.  move.w leftedge(pc),d1
  9166.  move.w rightedge(pc),d3
  9167.  sub.w d1,d3
  9168.  lea (a1,d1.w*4),a1
  9169.  move.w (a1,d3.w*4),d4
  9170.  move.w #$4e75,(a1,d3.w*4)
  9171.  
  9172.  tst.b CLRNOFLOOR
  9173.  bne.s BLACKFLOOR
  9174.  
  9175.  move.l #PLAINSCALE,a2
  9176.  
  9177.  move.w d0,d2
  9178.  move.w lighttype,d1
  9179.  asr.w #8,d2
  9180.  add.w #5,d1
  9181.  add.w d2,d1
  9182.  bge.s .fixedbright
  9183.  moveq #0,d1
  9184. .fixedbright:
  9185.  cmp.w #28,d1
  9186.  ble.s .smallbright
  9187.  move.w #28,d1
  9188. .smallbright:
  9189.  lea (a2,d1.w*2),a2
  9190.  
  9191.  move.w whichtile,d0
  9192.  move.w d0,d1
  9193.  and.w #$3,d1
  9194.  and.w #$300,d0
  9195.  lsl.b #6,d1
  9196.  move.b d1,d0
  9197.  move.w d0,tstwhich
  9198.  move.w (a2,d0.w),d0
  9199.  
  9200. DOBLACK:
  9201.  jsr (a1)
  9202.  move.w d4,(a1,d3.w*4)
  9203.  
  9204.  CACHE_ON d2
  9205.  
  9206.  rts
  9207.  
  9208. tstwhich: dc.w 0
  9209. whichtile: dc.w 0
  9210.   
  9211. PLAINSCALE: 
  9212. ;incbin "ab3:includes/plainscale"
  9213.   
  9214. storeit: dc.l 0
  9215.  
  9216. doacrossline:
  9217. val SET 0
  9218.  REPT 32
  9219.  move.w d0,val(a3)
  9220. val SET val+4
  9221.  ENDR
  9222. val SET val+4
  9223.  REPT 32
  9224.  move.w d0,val(a3)
  9225. val SET val+4
  9226.  ENDR
  9227. val SET val+4
  9228.  REPT 32
  9229.  move.w d0,val(a3)
  9230. val SET val+4
  9231.  ENDR
  9232.  rts
  9233.  
  9234.  
  9235. leftedge: dc.w 0
  9236. rightedge: dc.w 0
  9237.  
  9238. rndpt: dc.l rndtab
  9239.  
  9240.  
  9241. dst: dc.l 0
  9242.  
  9243. FloorLine:
  9244.  
  9245.  move.l floortile,a0
  9246.  adda.w whichtile,a0
  9247.  move.w lighttype,d1
  9248.  move.l d0,dst    ; *4
  9249.  move.l d0,d2    ; *4
  9250. *********************
  9251. * Old version
  9252.  asr.l #2,d2
  9253.  asr.l #8,d2
  9254.  add.w #5,d1
  9255. *********************
  9256. ; asr.w #3,d2
  9257. ; sub.w #4,d2
  9258. ; cmp.w #6,d2
  9259. ; blt.s flbrbr
  9260. ; move.w #6,d2
  9261. ;flbrbr:
  9262. *********************
  9263.  add.w d2,d1
  9264.  bge.s .fixedbright
  9265.  moveq #0,d1
  9266. .fixedbright:
  9267.  cmp.w #28,d1
  9268.  ble.s .smallbright
  9269.  move.w #28,d1
  9270. .smallbright:
  9271.  move.l TexturePal,a1
  9272.  add.l #256*32,a1
  9273.  add.l floorbright(pc,d1.w*4),a1
  9274.  bra pastfloorbright
  9275.  
  9276. ConstCol: dc.w 0
  9277.  
  9278. BumpLine:
  9279.  
  9280.  tst.b smoothbumps
  9281.  beq.s Chunky
  9282.  
  9283.  move.l #SmoothTile,a0
  9284.  lea Smoothscalecols,a1
  9285.  bra pastast
  9286.  
  9287. Chunky:
  9288.  
  9289.  moveq #0,d2
  9290.  move.l #Bumptile,a0
  9291.  move.w whichtile,d2
  9292.  adda.w d2,a0
  9293.  ror.l #2,d2
  9294.  lsr.w #6,d2
  9295.  rol.l #2,d2
  9296.  and.w #15,d2
  9297.  move.l #ConstCols,a1
  9298.  move.w (a1,d2.w*2),ConstCol
  9299.  lea Bumpscalecols,a1
  9300.  
  9301. pastast:
  9302.  move.w lighttype,d1
  9303.  
  9304.  move.l d0,dst
  9305.  
  9306.  move.l d0,d2
  9307. *********************
  9308. * Old version
  9309.  asr.l #2,d2
  9310.  asr.l #8,d2
  9311.  add.w #5,d1
  9312. *********************
  9313. ; asr.w #3,d2
  9314. ; sub.w #4,d2
  9315. ; cmp.w #6,d2
  9316. ; blt.s flbrbr
  9317. ; move.w #6,d2
  9318. ;flbrbr:
  9319. *********************
  9320.  add.w d2,d1
  9321.  bge.s .fixedbright
  9322.  moveq #0,d1
  9323. .fixedbright:
  9324.  cmp.w #31,d1
  9325.  ble.s .smallbright
  9326.  move.w #31,d1
  9327. .smallbright:
  9328.  add.l floorbright(pc,d1.w*4),a1
  9329.  bra pastfloorbright
  9330.  
  9331.  
  9332. floorbright:
  9333.  dc.l 512*0
  9334.  dc.l 512*1
  9335.  dc.l 512*2
  9336.  dc.l 512*3
  9337.  dc.l 512*4
  9338.  
  9339.  dc.l 512*5
  9340.  dc.l 512*6
  9341.  dc.l 512*7
  9342.  dc.l 512*8
  9343.  dc.l 512*9
  9344.  
  9345.  dc.l 512*10
  9346.  dc.l 512*11
  9347.  dc.l 512*12
  9348.  dc.l 512*13
  9349.  dc.l 512*14
  9350.  
  9351.  dc.l 512*15
  9352.  dc.l 512*16
  9353.  dc.l 512*17
  9354.  dc.l 512*18
  9355.  dc.l 512*19
  9356.  
  9357.  dc.l 512*20
  9358.  dc.l 512*21
  9359.  dc.l 512*22
  9360.  dc.l 512*23
  9361.  dc.l 512*24
  9362.  
  9363.  dc.l 512*25
  9364.  dc.l 512*26
  9365.  dc.l 512*27
  9366.  dc.l 512*28
  9367.  dc.l 512*29
  9368.  
  9369.  dc.l 512*30
  9370.  dc.l 512*31
  9371.  
  9372. widthleft: dc.w 0
  9373. scaleval: dc.w 0
  9374. sxoff: dc.l 0
  9375. szoff: dc.l 0
  9376. xoff34: dc.w 0
  9377. zoff34: dc.w 0
  9378. scosval: dc.w 0
  9379. ssinval: dc.w 0
  9380.  
  9381.  
  9382. floorsetbright:
  9383.  move.l #walltiles,a0
  9384.  
  9385. pastfloorbright:
  9386.  
  9387.  move.l d0,d1
  9388.  muls cosval,d1    ; change in x across whole width
  9389.  move.l d0,d2
  9390.  muls sinval,d2    ; change in z across whole width
  9391.  neg.l d2
  9392.  ifne CHEESEY
  9393.  asr.l #3,d2
  9394.  asr.l #3,d1
  9395.  endc
  9396.  ifeq CHEESEY
  9397.  asr.l #2,d2
  9398.  asr.l #2,d1
  9399.  endc
  9400. scaleprog:
  9401.  move.w scaleval(pc),d3
  9402.  beq.s .samescale
  9403.  bgt.s .scaledown
  9404.  neg.w d3
  9405.  asr.l d3,d1
  9406.  asr.l d3,d2
  9407.  bra.s .samescale
  9408. .scaledown:
  9409.  asl.l d3,d1
  9410.  asl.l d3,d2
  9411. .samescale
  9412.  
  9413.  
  9414.  move.l d1,d3 ;    z cos
  9415.  move.l d3,d6
  9416.  move.l d3,d5
  9417.  asr.l #1,d6
  9418.  add.l d6,d3
  9419.  asr.l #1,d3
  9420.  
  9421.  move.l d2,d4    ; z sin
  9422.  move.l d4,d6
  9423.  asr.l #1,d6
  9424.  add.l d4,d6
  9425.  add.l d3,d4
  9426.  neg.l d4    ; start x
  9427.  
  9428.  asr.l #1,d6    ; zsin/2
  9429.  sub.l d6,d5    ; start z
  9430.  
  9431.  add.l sxoff,d4
  9432.  add.l szoff,d5
  9433.  
  9434.  tst.b FULLSCR
  9435.  beq.s .nob
  9436.  
  9437.  moveq #0,d6
  9438.  move.w leftedge(pc),d6
  9439.  beq.s .nomultleftB
  9440.  
  9441.  add.l d6,d6
  9442.  divs #3,d6
  9443.  ext.l d6
  9444.  
  9445.  move.l d1,a4
  9446.  move.l d2,a5
  9447.  
  9448.  muls.l d6,d1
  9449.  asr.l #7,d1
  9450.  add.l d1,d4
  9451.  
  9452.  muls.l d6,d2
  9453.  asr.l #7,d2
  9454.  add.l d2,d5
  9455.  move.l a4,d1
  9456.  move.l a5,d2
  9457.  
  9458.  move.w leftedge(pc),d6
  9459.  
  9460. .nomultleftB:
  9461.  
  9462.  move.w d4,startsmoothx
  9463.  move.w d5,startsmoothz
  9464.  
  9465.  asr.l #8,d4
  9466.  asl.l #8,d5
  9467. ; add.w szoff,d5
  9468. ; add.w sxoff,d4
  9469. ; and.w #63,d4
  9470. ; and.w #63*256,d5
  9471.  
  9472.  move.w d4,d5
  9473.  
  9474.  asr.l #6,d1
  9475.  asr.l #6,d2
  9476.  divs.l #3,d1
  9477.  divs.l #3,d2
  9478.  
  9479.  bra.s doneallmult
  9480.  
  9481. .nob 
  9482.  
  9483.  moveq #0,d6
  9484.  move.w leftedge(pc),d6
  9485.  beq.s nomultleft
  9486.  
  9487.  move.l d1,a4
  9488.  move.l d2,a5
  9489.  
  9490.  muls.l d6,d1
  9491.  asr.l #7,d1
  9492.  add.l d1,d4
  9493.  
  9494.  muls.l d6,d2
  9495.  asr.l #7,d2
  9496.  add.l d2,d5
  9497.  move.l a4,d1
  9498.  move.l a5,d2
  9499.  
  9500.  move.w leftedge(pc),d6
  9501.  
  9502. nomultleft:
  9503.  
  9504.  move.w d4,startsmoothx
  9505.  move.w d5,startsmoothz
  9506.  
  9507.  asr.l #8,d4
  9508.  asl.l #8,d5
  9509.  
  9510.  
  9511. ; add.w szoff,d5
  9512. ; add.w sxoff,d4
  9513. ; and.w #63,d4
  9514. ; and.w #63*256,d5
  9515.  
  9516.  move.w d4,d5
  9517.  
  9518.  asr.l #7,d1
  9519.  asr.l #7,d2
  9520. ; divs.l #3,d1
  9521. ; divs.l #3,d2
  9522.  
  9523. doneallmult:
  9524.  
  9525.  move.w d1,a4
  9526.  move.w d2,a5
  9527.  asl.l #8,d2
  9528. ; and.w #%0011111100000000,d2
  9529.  asr.l #8,d1
  9530.  move.w d1,d2
  9531.  ifeq CHEESEY
  9532.  move.l #$3fff3fff,d1
  9533.  endc
  9534.  ifne CHEESEY
  9535.  move.l #$1fff1fff,d1
  9536.  endc
  9537.  and.l d1,d5
  9538. ; swap d5
  9539. ; move.w startsmoothz,d5
  9540. ; swap d5
  9541. ; swap d2
  9542. ; move.w a5,d2
  9543. ; swap d2
  9544.  
  9545. ***********************************
  9546.  
  9547.  
  9548.  tst.b DOUBLEWIDTH
  9549.  beq.s .nodoub
  9550.  
  9551.  and.b #$fe,d6
  9552.  
  9553.  move.w d6,a2
  9554.  moveq #0,d0 
  9555.  move.w rightedge(pc),d3 
  9556.  lea (a3,a2.w),a3 
  9557.  move.w d3,d7
  9558.  sub.w a2,d7
  9559.  asr.w #1,d7
  9560.  move.w startsmoothx,d3
  9561.  
  9562.  tst.b usewater
  9563.  bne texturedwaterDOUB
  9564. ; tst.b gourfloor
  9565.  bra gouraudfloorDOUB
  9566.  
  9567. .nodoub:
  9568.  
  9569.  move.w d6,a2
  9570.  moveq #0,d0 
  9571.  move.w rightedge(pc),d3 
  9572.  lea (a3,a2.w),a3 
  9573.  move.w d3,d7
  9574.  sub.w a2,d7
  9575.  
  9576. intofirststrip:
  9577. allintofirst:
  9578.  
  9579.  move.w startsmoothx,d3
  9580.  
  9581. tstwat:
  9582.  
  9583.  tst.b usewater
  9584.  bne texturedwater
  9585. ; tst.b gourfloor
  9586.  bra gouraudfloor
  9587.  
  9588.  
  9589.  
  9590. ******************************
  9591. * BumpMap the floor/ceiling! *
  9592.  tst.b usebumps
  9593.  bne.s BumpMap
  9594. ******************************
  9595.  
  9596. ordinary:
  9597.  moveq #0,d0
  9598.  
  9599.  dbra d7,acrossscrn
  9600.  rts
  9601.  
  9602. usebumps: dc.w $0
  9603. smoothbumps: dc.w $0
  9604. gourfloor: dc.w 0
  9605.  
  9606.  include "ab3:source_4000/bumpmap.s"
  9607.  
  9608.  CNOP 0,4
  9609. backbefore:
  9610.  and.w d1,d5
  9611.  move.b (a0,d5.w*4),d0
  9612.  add.w a4,d3
  9613.  addx.l d6,d5
  9614.  move.w (a1,d0.w*2),(a3)
  9615.  addq #4,a3
  9616.  dbcs d7,acrossscrn
  9617.  dbcc d7,backbefore
  9618.  bra.s past1
  9619.  
  9620. acrossscrn:
  9621.  and.w d1,d5
  9622.  move.b (a0,d5.w*4),d0
  9623.  add.w a4,d3
  9624.  addx.l d2,d5
  9625.  move.w (a1,d0.w*2),(a3)
  9626.  addq #4,a3
  9627.  dbcs d7,acrossscrn
  9628.  dbcc d7,backbefore
  9629. past1:
  9630.  bcc.s gotoacross
  9631.  
  9632.  move.w d4,d7
  9633.  bne.s .notdoneyet
  9634.  rts
  9635. .notdoneyet:
  9636.  
  9637.  cmp.w #32,d7
  9638.  ble.s .notoowide
  9639.  move.w #32,d7
  9640. .notoowide
  9641.  sub.w d7,d4  
  9642.  addq #4,a3
  9643.  
  9644.  dbra d7,backbefore
  9645.  rts
  9646.  
  9647.  
  9648. gotoacross:
  9649.  
  9650.  move.w d4,d7
  9651.  bne.s .notdoneyet
  9652.  rts
  9653. .notdoneyet:
  9654.  
  9655.  cmp.w #32,d7
  9656.  ble.s .notoowide
  9657.  move.w #32,d7
  9658. .notoowide
  9659.  sub.w d7,d4  
  9660.  addq #4,a3
  9661.  
  9662.  dbra d7,acrossscrn
  9663.  rts
  9664.  
  9665. leftbright: dc.l 0
  9666. brightspd: dc.l 0
  9667.  
  9668. gouraudfloor:
  9669.  
  9670.  move.w leftbright,d0
  9671.  move.l d1,d4
  9672.  move.w brightspd,d1
  9673.  
  9674.  move.w d7,d3
  9675.  asr.w #1,d7
  9676.  btst #0,d3
  9677.  beq.s .nosingle1
  9678.  move.w d5,d3
  9679.  move.l d5,d6
  9680.  lsr.w #8,d3
  9681.  swap d6
  9682.  move.b d3,d6
  9683.  move.w d0,d3
  9684.  ifeq CHEESEY
  9685.  move.b (a0,d6.w*4),d3
  9686.  endc
  9687.  ifne CHEESEY
  9688.  move.b (a0,d6.w),d3
  9689.  endc
  9690.  
  9691.  add.w d1,d0
  9692.  add.l d2,d5
  9693.  and.l d4,d5
  9694.  move.b (a1,d3.w),(a3)+
  9695. .nosingle1
  9696.  
  9697.  move.w d7,d3
  9698.  asr.w #1,d7
  9699.  btst #0,d3
  9700.  beq.s .nosingle2
  9701.  move.w d5,d3
  9702.  move.l d5,d6
  9703.  lsr.w #8,d3
  9704.  swap d6
  9705.  move.b d3,d6
  9706.  move.w d0,d3
  9707.  ifeq CHEESEY
  9708.  move.b (a0,d6.w*4),d3
  9709.  endc
  9710.  ifne CHEESEY
  9711.  move.b (a0,d6.w),d3
  9712.  endc
  9713.  add.w d1,d0
  9714.  add.l d2,d5
  9715.  and.l d4,d5
  9716.  move.l d5,d6
  9717.  swap d6
  9718.  move.b (a1,d3.w),(a3)+
  9719.  move.w d5,d3
  9720.  lsr.w #8,d3
  9721.  move.b d3,d6
  9722.  move.w d0,d3
  9723.  ifeq CHEESEY
  9724.  move.b (a0,d6.w*4),d3
  9725.  endc
  9726.  ifne CHEESEY
  9727.  move.b (a0,d6.w),d3
  9728.  endc
  9729.  add.w d1,d0
  9730.  add.l d2,d5
  9731.  and.l d4,d5
  9732.  move.b (a1,d3.w),(a3)+
  9733.  
  9734. .nosingle2
  9735.  
  9736.  move.l d5,d6
  9737.  swap d6
  9738.  
  9739.  dbra d7,acrossscrngour
  9740.  rts
  9741.  
  9742.  CNOP 0,4
  9743.  
  9744. acrossscrngour:
  9745.  move.w d5,d3
  9746.  lsr.w #8,d3
  9747.  move.b d3,d6
  9748.  move.w d0,d3
  9749.  ifeq CHEESEY
  9750.  move.b (a0,d6.w*4),d3
  9751.  endc
  9752.  ifne CHEESEY
  9753.  move.b (a0,d6.w),d3
  9754.  endc
  9755.  add.w d1,d0
  9756.  add.l d2,d5
  9757.  and.l d4,d5
  9758.  move.l d5,d6
  9759.  swap d6
  9760.  move.b (a1,d3.w),(a3)+
  9761.  move.w d5,d3
  9762.  lsr.w #8,d3
  9763.  move.b d3,d6
  9764.  move.w d0,d3
  9765.  ifeq CHEESEY
  9766.  move.b (a0,d6.w*4),d3
  9767.  endc
  9768.  ifne CHEESEY
  9769.  move.b (a0,d6.w),d3
  9770.  endc
  9771.  add.w d1,d0
  9772.  add.l d2,d5
  9773.  and.l d4,d5
  9774.  move.l d5,d6
  9775.  swap d6
  9776.  move.b (a1,d3.w),(a3)+
  9777.  move.w d5,d3
  9778.  lsr.w #8,d3
  9779.  move.b d3,d6
  9780.  move.w d0,d3
  9781.  ifeq CHEESEY
  9782.  move.b (a0,d6.w*4),d3
  9783.  endc
  9784.  ifne CHEESEY
  9785.  move.b (a0,d6.w),d3
  9786.  endc
  9787.  add.w d1,d0
  9788.  add.l d2,d5
  9789.  and.l d4,d5
  9790.  move.l d5,d6
  9791.  swap d6
  9792.  move.b (a1,d3.w),(a3)+
  9793.  move.w d5,d3
  9794.  lsr.w #8,d3
  9795.  move.b d3,d6
  9796.  move.w d0,d3
  9797.  ifeq CHEESEY
  9798.  move.b (a0,d6.w*4),d3
  9799.  endc
  9800.  ifne CHEESEY
  9801.  move.b (a0,d6.w),d3
  9802.  endc
  9803.  add.w d1,d0
  9804.  add.l d2,d5
  9805.  and.l d4,d5
  9806.  move.l d5,d6
  9807.  swap d6
  9808.  move.b (a1,d3.w),(a3)+
  9809.  dbra d7,acrossscrngour
  9810.  
  9811.  rts
  9812.  
  9813.  
  9814. gouraudfloorDOUB:
  9815.  
  9816.  move.w leftbright,d0
  9817.  move.l d1,d4
  9818.  move.w brightspd,d1
  9819.  add.w d1,d1
  9820.  add.l d2,d2
  9821.  
  9822.  move.w d7,d3
  9823.  asr.w #1,d7
  9824.  btst #0,d3
  9825.  beq.s .nosingle1
  9826.  move.w d5,d3
  9827.  move.l d5,d6
  9828.  lsr.w #8,d3
  9829.  swap d6
  9830.  move.b d3,d6
  9831.  move.w d0,d3
  9832.  ifeq CHEESEY
  9833.  move.b (a0,d6.w*4),d3
  9834.  endc
  9835.  ifne CHEESEY
  9836.  move.b (a0,d6.w),d3
  9837.  endc
  9838.  add.w d1,d0
  9839.  add.l d2,d5
  9840.  and.l d4,d5
  9841.  move.w (a1,d3.w),(a3)+
  9842. .nosingle1
  9843.  
  9844.  move.w d7,d3
  9845.  asr.w #1,d7
  9846.  btst #0,d3
  9847.  beq.s .nosingle2
  9848.  move.w d5,d3
  9849.  move.l d5,d6
  9850.  lsr.w #8,d3
  9851.  swap d6
  9852.  move.b d3,d6
  9853.  move.w d0,d3
  9854.  ifeq CHEESEY
  9855.  move.b (a0,d6.w*4),d3
  9856.  endc
  9857.  ifne CHEESEY
  9858.  move.b (a0,d6.w),d3
  9859.  endc
  9860.  add.w d1,d0
  9861.  add.l d2,d5
  9862.  and.l d4,d5
  9863.  move.l d5,d6
  9864.  swap d6
  9865.  move.w (a1,d3.w),(a3)+
  9866.  move.w d5,d3
  9867.  lsr.w #8,d3
  9868.  move.b d3,d6
  9869.  move.w d0,d3
  9870.  ifeq CHEESEY
  9871.  move.b (a0,d6.w*4),d3
  9872.  endc
  9873.  ifne CHEESEY
  9874.  move.b (a0,d6.w),d3
  9875.  endc
  9876.  add.w d1,d0
  9877.  add.l d2,d5
  9878.  and.l d4,d5
  9879.  move.w (a1,d3.w),(a3)+
  9880.  
  9881. .nosingle2
  9882.  
  9883.  move.l d5,d6
  9884.  swap d6
  9885.  
  9886.  dbra d7,acrossscrngourD
  9887.  rts
  9888.  
  9889.  CNOP 0,4
  9890.  
  9891. acrossscrngourD:
  9892.  move.w d5,d3
  9893.  lsr.w #8,d3
  9894.  move.b d3,d6
  9895.  move.w d0,d3
  9896.  ifeq CHEESEY
  9897.  move.b (a0,d6.w*4),d3
  9898.  endc
  9899.  ifne CHEESEY
  9900.  move.b (a0,d6.w),d3
  9901.  endc
  9902.  add.w d1,d0
  9903.  add.l d2,d5
  9904.  and.l d4,d5
  9905.  move.l d5,d6
  9906.  swap d6
  9907.  move.w (a1,d3.w),(a3)+
  9908.  move.w d5,d3
  9909.  lsr.w #8,d3
  9910.  move.b d3,d6
  9911.  move.w d0,d3
  9912.  ifeq CHEESEY
  9913.  move.b (a0,d6.w*4),d3
  9914.  endc
  9915.  ifne CHEESEY
  9916.  move.b (a0,d6.w),d3
  9917.  endc
  9918.  add.w d1,d0
  9919.  add.l d2,d5
  9920.  and.l d4,d5
  9921.  move.l d5,d6
  9922.  swap d6
  9923.  move.w (a1,d3.w),(a3)+
  9924.  move.w d5,d3
  9925.  lsr.w #8,d3
  9926.  move.b d3,d6
  9927.  move.w d0,d3
  9928.  ifeq CHEESEY
  9929.  move.b (a0,d6.w*4),d3
  9930.  endc
  9931.  ifne CHEESEY
  9932.  move.b (a0,d6.w),d3
  9933.  endc
  9934.  add.w d1,d0
  9935.  add.l d2,d5
  9936.  and.l d4,d5
  9937.  move.l d5,d6
  9938.  swap d6
  9939.  move.w (a1,d3.w),(a3)+
  9940.  move.w d5,d3
  9941.  lsr.w #8,d3
  9942.  move.b d3,d6
  9943.  move.w d0,d3
  9944.  ifeq CHEESEY
  9945.  move.b (a0,d6.w*4),d3
  9946.  endc
  9947.  ifne CHEESEY
  9948.  move.b (a0,d6.w),d3
  9949.  endc
  9950.  add.w d1,d0
  9951.  add.l d2,d5
  9952.  and.l d4,d5
  9953.  move.l d5,d6
  9954.  swap d6
  9955.  move.w (a1,d3.w),(a3)+
  9956.  dbra d7,acrossscrngourD
  9957.  
  9958.  rts
  9959.  
  9960.  
  9961. ;backbeforegour:
  9962. ; and.w #63*256+63,d5
  9963. ; move.b (a0,d5.w*4),d0
  9964. ; add.l d1,d0
  9965. ; bcc.s .nomoreb
  9966. ; add.w #256,d0
  9967. ;.nomoreb:
  9968. ; add.w a4,d3
  9969. ; move.w (a1,d0.w*2),(a3)+
  9970. ; addx.l d6,d5
  9971. ; dbcs d7,acrossscrngour
  9972. ; dbcc d7,backbeforegour
  9973. ; rts
  9974. ; bra.s past1gour
  9975.  
  9976. ;acrossscrngour:
  9977. ; and.l #$3f3f,d5 
  9978. ; move.b (a0,d5.w*4),d0
  9979. ; add.l d1,d0
  9980. ; bcc.s .nomoreb
  9981. ; add.w #256,d0
  9982. ;.nomoreb:
  9983. ; add.w a4,d3
  9984. ; move.w (a1,d0.w*2),(a3)+
  9985. ; addx.l d2,d5
  9986. ; dbcs d7,acrossscrngour
  9987. ; dbcc d7,backbeforegour
  9988. ;past1gour:
  9989. ; rts
  9990.  
  9991.  move.w d4,d7
  9992.  bne.s .notdoneyet
  9993.  move.l d0,leftbright
  9994.  
  9995.  rts
  9996. .notdoneyet:
  9997.  
  9998.  cmp.w #32,d7
  9999.  ble.s .notoowide
  10000.  move.w #32,d7
  10001. .notoowide
  10002.  sub.w d7,d4  
  10003.  addq #4,a3
  10004.  
  10005. ; dbra d7,backbeforegour
  10006.  rts
  10007.  
  10008.  
  10009. gotoacrossgour:
  10010.  
  10011.  move.w d4,d7
  10012.  bne.s .notdoneyet
  10013.  rts
  10014. .notdoneyet:
  10015.  
  10016.  cmp.w #32,d7
  10017.  ble.s .notoowide
  10018.  move.w #32,d7
  10019. .notoowide
  10020.  sub.w d7,d4  
  10021.  addq #4,a3
  10022.  
  10023.  dbra d7,acrossscrngour
  10024.  rts
  10025.  
  10026.  
  10027. waterpt: dc.l waterlist
  10028.  
  10029. waterlist:
  10030.  dc.l waterfile
  10031.  dc.l waterfile+2
  10032.  dc.l waterfile+256
  10033.  dc.l waterfile+256+2
  10034.  dc.l waterfile+512
  10035.  dc.l waterfile+512+2
  10036.  dc.l waterfile+768
  10037.  dc.l waterfile+768+2
  10038. ; dc.l waterfile+768
  10039. ; dc.l waterfile+512+2
  10040. ; dc.l waterfile+512
  10041. ; dc.l waterfile+256+2
  10042. ; dc.l waterfile+256
  10043. ; dc.l waterfile+2
  10044. endwaterlist:
  10045.  
  10046. watertouse: dc.l waterfile
  10047.  
  10048. wtan: dc.w 0
  10049. wateroff: dc.l 0
  10050.  
  10051. REFLECTIONWATER:
  10052.  
  10053.  move.l d1,d4
  10054.  
  10055.  add.l wateroff,d5
  10056.  
  10057.  move.l TexturePal,a1
  10058.  add.l #256*16,a1
  10059.  move.l dst,d0
  10060.  clr.b d0
  10061.  
  10062.  add.w d0,d0
  10063.  cmp.w #12*512,d0
  10064.  blt.s .notoowater
  10065.  move.w #12*512,d0
  10066.  
  10067. .notoowater:
  10068.   
  10069.  adda.w d0,a1
  10070.  
  10071.  move.l dst,d0
  10072.  asl.w #7,d0
  10073.  add.w wtan,d0
  10074.  and.w #8191,d0
  10075.  move.l #SineTable,a0
  10076.  move.w (a0,d0.w),d0
  10077.  ext.l d0
  10078.  
  10079.  move.l dst,d3
  10080.  add.w #300,d3
  10081.  divs d3,d0
  10082.  asr.w #5,d0
  10083.  addq #4,d0
  10084.  cmp.w disttobot,d0
  10085.  blt.s oknotoffbotototr
  10086.  
  10087.  move.w disttobot,d0
  10088.  subq #1,d0
  10089.  
  10090. oknotoffbotototr
  10091.  
  10092. ; move.w dst,d3
  10093. ; asr.w #7,d3
  10094. ; add.w d3,d0
  10095.  
  10096.  muls #320,d0
  10097.  tst.w above
  10098.  beq.s nonnnnnegr
  10099.  neg.l d0
  10100.  
  10101. nonnnnnegr:
  10102.  
  10103.  move.l d0,a6
  10104.  
  10105.  move.l watertouse,a0
  10106.  
  10107. ; move.l #mixtab,a5
  10108.  
  10109.  moveq #0,d1
  10110.  
  10111.  move.w startsmoothx,d3
  10112.  dbra d7,acrossscrnwr
  10113.  rts
  10114.  
  10115. backbeforewr:
  10116.  and.w d1,d5 
  10117.  move.w (a0,d5.w*4),d0
  10118.  move.b (a3,a6.w),d0
  10119.  move.w (a1,d0.w),(a3)+
  10120.  add.w a4,d3
  10121.  addx.l d6,d5
  10122.  dbcs d7,acrossscrnwr
  10123.  dbcc d7,backbeforewr
  10124.  rts
  10125.  
  10126. acrossscrnwr:
  10127.  move.w d5,d3
  10128.  move.l d5,d6
  10129.  lsr.w #8,d3
  10130.  swap d6
  10131.  move.b d3,d6
  10132.  move.w (a0,d6.w*4),d0
  10133.  add.l d2,d5
  10134.  move.w (a4,a6.w),d1
  10135.  addq #2,a4
  10136.  move.b (a3,a6.w),d1
  10137.  move.b (a5,d1.l),d0
  10138.  and.l d4,d5
  10139.  move.w (a1,d0.w),(a3)+
  10140.  dbra d7,acrossscrnwr
  10141.  rts
  10142.  
  10143. texturedwater:
  10144.  
  10145.  move.l d1,d4
  10146.  
  10147.  add.l wateroff,d5
  10148.  
  10149.  move.l TexturePal,a1
  10150.  add.l #256*16,a1
  10151.  move.l dst,d0
  10152.  asr.l #2,d0
  10153.  clr.b d0
  10154.  
  10155.  add.w d0,d0
  10156.  cmp.w #9*512,d0
  10157.  blt.s .notoowater
  10158.  move.w #9*512,d0
  10159. .notoowater:
  10160.   
  10161.  adda.w d0,a1
  10162.  
  10163.  move.l dst,d0
  10164.  asl.w #7,d0
  10165.  add.w wtan,d0
  10166.  and.w #8191,d0
  10167.  move.l #SineTable,a0
  10168.  move.w (a0,d0.w),d0
  10169.  ext.l d0
  10170.  
  10171.  move.l dst,d3
  10172.  add.w #300,d3
  10173.  divs d3,d0
  10174.  asr.w #5,d0
  10175.  addq #4,d0
  10176.  cmp.w disttobot,d0
  10177.  blt.s oknotoffbototot
  10178.  
  10179.  move.w disttobot,d0
  10180.  subq #1,d0
  10181.  
  10182. oknotoffbototot
  10183.  
  10184. ; move.w dst,d3
  10185. ; asr.w #7,d3
  10186. ; add.w d3,d0
  10187.  
  10188.  tst.b DOUBLEHEIGHT
  10189.  beq.s .nodoub
  10190.  and.b #$fe,d0
  10191. .nodoub:
  10192.  
  10193.  muls #320,d0
  10194.  tst.w above
  10195.  beq.s nonnnnneg
  10196.  neg.l d0
  10197.  
  10198. nonnnnneg:
  10199.  
  10200.  move.l d0,a6
  10201.  
  10202.  move.l watertouse,a0
  10203.  
  10204.  move.w startsmoothx,d3
  10205.  dbra d7,acrossscrnw
  10206.  rts
  10207.  
  10208. backbeforew:
  10209.  and.w d1,d5
  10210.  move.w (a0,d5.w*4),d0
  10211.  add.w d0,d0
  10212.  move.b (a3,a6.w),d0
  10213.  move.b (a1,d0.w),(a3)+
  10214.  add.w a4,d3
  10215.  addx.l d6,d5
  10216.  dbcs d7,acrossscrnw
  10217.  dbcc d7,backbeforew
  10218.  rts
  10219.  
  10220. acrossscrnw:
  10221.  move.w d5,d3
  10222.  move.l d5,d6
  10223.  lsr.w #8,d3
  10224.  swap d6
  10225.  move.b d3,d6
  10226.  move.w (a0,d6.w*4),d0
  10227.  add.w d0,d0
  10228.  add.l d2,d5
  10229.  move.b (a3,a6.w),d0
  10230.  and.l d4,d5
  10231.  move.b (a1,d0.w),(a3)+
  10232.  dbra d7,acrossscrnw
  10233.  rts
  10234.  
  10235.  
  10236. texturedwaterDOUB:
  10237.  
  10238.  move.l d1,d4
  10239.  
  10240.  add.l wateroff,d5
  10241.  
  10242.  move.l TexturePal,a1
  10243.  add.l #256*16,a1
  10244.  move.l dst,d0
  10245.  asr.l #2,d0
  10246.  clr.b d0
  10247.  
  10248.  add.w d0,d0
  10249.  cmp.w #9*512,d0
  10250.  blt.s .notoowater
  10251.  move.w #9*512,d0
  10252. .notoowater:
  10253.   
  10254.  adda.w d0,a1
  10255.  
  10256.  move.l dst,d0
  10257.  asl.w #7,d0
  10258.  add.w wtan,d0
  10259.  and.w #8191,d0
  10260.  move.l #SineTable,a0
  10261.  move.w (a0,d0.w),d0
  10262.  ext.l d0
  10263.  
  10264.  move.l dst,d3
  10265.  add.w #300,d3
  10266.  divs d3,d0
  10267.  asr.w #5,d0
  10268.  addq #4,d0
  10269.  cmp.w disttobot,d0
  10270.  blt.s .oknotoffbototot
  10271.  
  10272.  move.w disttobot,d0
  10273.  subq #1,d0
  10274.  
  10275. .oknotoffbototot
  10276.  
  10277. ; move.w dst,d3
  10278. ; asr.w #7,d3
  10279. ; add.w d3,d0
  10280.  
  10281.  tst.b DOUBLEHEIGHT
  10282.  beq.s .nodoub
  10283.  and.b #$fe,d0
  10284. .nodoub:
  10285.  
  10286.  muls #320,d0
  10287.  tst.w above
  10288.  beq.s .nonnnnneg
  10289.  neg.l d0
  10290.  
  10291. .nonnnnneg:
  10292.  
  10293.  move.l d0,a6
  10294.  
  10295.  move.l watertouse,a0
  10296.  
  10297.  add.l d2,d2
  10298.  
  10299.  move.w startsmoothx,d3
  10300.  dbra d7,acrossscrnwD
  10301.  rts
  10302.  
  10303.  
  10304. acrossscrnwD:
  10305.  move.w d5,d3
  10306.  move.l d5,d6
  10307.  lsr.w #8,d3
  10308.  swap d6
  10309.  move.b d3,d6
  10310.  move.w (a0,d6.w*4),d0
  10311.  add.w d0,d0
  10312.  add.l d2,d5
  10313.  move.b (a3,a6.w),d0
  10314.  and.l d4,d5
  10315.  move.w (a1,d0.w),(a3)+
  10316.  dbra d7,acrossscrnwD
  10317.  rts
  10318.  
  10319.  
  10320. usewater: dc.w 0
  10321.  dc.w 0
  10322. startsmoothx: dc.w 0
  10323.  dc.w 0
  10324. startsmoothz: dc.w 0
  10325.  
  10326. ********************************
  10327. *
  10328.  include "AB3:source_4000/ObjDrawHIRES.s"
  10329. *
  10330. ********************************
  10331.  
  10332. numframes:
  10333.  dc.w 0
  10334.  
  10335. alframe: dc.l 0
  10336.  
  10337. alan:
  10338.  dcb.l 8,0
  10339.  dcb.l 8,1
  10340.  dcb.l 8,2
  10341.  dcb.l 8,3
  10342. endalan:
  10343.  
  10344. alanptr: dc.l alan
  10345.  
  10346. Time2: dc.l 0
  10347. dispco:
  10348.  dc.w 0
  10349.  
  10350.  
  10351. key_interrupt:
  10352.         movem.l    d0-d7/a0-a6,-(sp)
  10353.  
  10354. ;        move.w    INTREQR,d0
  10355. ;        btst    #3,d0
  10356. ;        beq    .not_key
  10357.  
  10358.         move.b    $bfdd00,d0
  10359.         btst    #0,d0
  10360.         bne    .key_cont
  10361. ;        move.b    $bfed01,d0
  10362. ;        btst    #0,d0
  10363. ;        bne    .key_cont
  10364.     
  10365. ;        btst    #3,d0
  10366. ;        beq    .key_cont
  10367.  
  10368.         move.b    $bfec01,d0
  10369.         clr.b    $bfec01
  10370.  
  10371.         tst.b    d0
  10372.         beq    .key_cont
  10373.  
  10374. ;        bset    #6,$bfee01
  10375. ;        move.b    #$f0,$bfe401
  10376. ;        move.b    #$00,$bfe501
  10377. ;        bset    #0,$bfee01
  10378.  
  10379.  
  10380.         not.b    d0
  10381.         ror.b    #1,d0
  10382.         lea.l    KeyMap,a0
  10383.         tst.b    d0
  10384.         bmi.b    .key_up
  10385.         and.w    #$7f,d0
  10386. ;        add.w    #1,d0
  10387.         move.b    #$ff,(a0,d0.w)
  10388.         move.b    d0,lastpressed
  10389.  
  10390.         bra.b    .key_cont2
  10391. .key_up:
  10392.         and.w    #$7f,d0
  10393. ;        add.w    #1,d0
  10394.         move.b    #$00,(a0,d0.w)
  10395.  
  10396. .key_cont2
  10397. ;        btst    #0,$bfed01
  10398. ;        beq    .key_cont2
  10399. ;        move.b    #%00000000,$bfee01
  10400. ;        move.b    #%10001000,$bfed01
  10401.  
  10402. ;alt keys should not be independent so overlay ralt on lalt
  10403.  
  10404.         
  10405. .key_cont
  10406.  
  10407. ;        move.w    #$0008,INTREQ
  10408. .not_key:    ;lea.l    $dff000,a5
  10409.  
  10410. ;        lea.l    _keypressed(pc),a0
  10411. ;        move.b    101(a0),d0    ;read LALT
  10412. ;        or.b    102(a0),d0    ;blend it with RALT
  10413. ;        move.b    d0,127(a0)    ;save in combined position
  10414.  
  10415.         movem.l    (sp)+,d0-d7/a0-a6
  10416.  
  10417.         rts
  10418.  
  10419. lastpressed:    dc.b 0
  10420. KInt_CCode    Ds.b    1
  10421. KInt_Askey    Ds.b    1
  10422. KInt_OCode    Ds.w    1
  10423.  
  10424.  
  10425. OldSpace: dc.b 0
  10426. SpaceTapped: dc.b 0
  10427. PLR1_SPCTAP: dc.b 0
  10428. PLR2_SPCTAP: dc.b 0
  10429. PLR1_Ducked: dc.b 0
  10430. PLR2_Ducked: dc.b 0
  10431.  even
  10432.  
  10433.  include "ab3:source_4000/PLR1CONTROL.s"
  10434.  include "ab3:source_4000/PLR2CONTROL.s"
  10435.  include "ab3:source_4000/FALL.s"
  10436.  
  10437.  
  10438.  
  10439. *******************************************8
  10440.  
  10441. nullmessage: dcb.b 160,' '
  10442.  
  10443. SENDMESSAGENORET
  10444.  move.l a1,-(a7)
  10445.  bra intosend
  10446.  
  10447. SENDMESSAGE:
  10448.  
  10449.  move.l a1,-(a7)
  10450.  
  10451.  move.l MESSPTR,a1
  10452.  move.l d0,(a1)+
  10453.  cmp.l #ENDMESSBUFF,a1
  10454.  blt.s .okinbuff
  10455.  move.l #MESSAGEBUFFER,a1
  10456. .okinbuff:
  10457.  move.l a1,MESSPTR
  10458.  move.l a1,LASTMESSPTR
  10459.  
  10460. intosend:
  10461.  
  10462.  move.l d0,SCROLLPOINTER
  10463.  move.w #0,SCROLLXPOS
  10464.  add.l #160,d0
  10465.  move.l d0,ENDSCROLL
  10466.  move.w #40,SCROLLTIMER
  10467.  
  10468.  move.l (a7)+,a1
  10469.  rts
  10470.  
  10471. RETRIEVEPREVMESSAGE:
  10472.  
  10473.  move.l LASTMESSPTR,a1
  10474.  cmp.l #MESSAGEBUFFER,a1
  10475.  bgt.s .okinbuff
  10476.  
  10477.  move.l #ENDMESSBUFF,a1
  10478.  
  10479. .okinbuff:
  10480.  
  10481.  move.l -(a1),d0
  10482.  beq.s .nomessage
  10483.  
  10484.  move.l d0,SCROLLPOINTER
  10485.  move.w #0,SCROLLXPOS
  10486.  add.l #160,d0
  10487.  move.l d0,ENDSCROLL
  10488.  move.w #40,SCROLLTIMER
  10489.  
  10490.  move.l a1,LASTMESSPTR
  10491.  
  10492. .nomessage:
  10493.  
  10494.  
  10495.  rts
  10496.  
  10497. MESSAGEBUFFER:
  10498.  ds.l 20
  10499. ENDMESSBUFF:
  10500.  
  10501. MESSPTR: dc.l MESSAGEBUFFER
  10502. LASTMESSPTR: dc.l MESSAGEBUFFER
  10503.  
  10504. **********************************************
  10505.  
  10506.  
  10507.  
  10508. prot7: dc.w 0
  10509.  
  10510. GOTTOSEND: dc.w 0
  10511.  
  10512. COUNTER: dc.w 0
  10513. COUNTER2: dc.w 0
  10514. COUNTSPACE: ds.b 160
  10515.  
  10516. OtherInter:
  10517.  move.w #$0010,$dff000+intreq
  10518.  movem.l d0-d7/a0-a6,-(a7)
  10519.  bra justshake
  10520.  
  10521.     cnop 0,4
  10522.  
  10523. Chan0inter:
  10524.  
  10525.     SAVEREGS
  10526.     jsr    .routine
  10527.     GETREGS
  10528.  
  10529. ;    move.w    #1024+'.',$dff030
  10530.     
  10531.     moveq #1,d0
  10532.     rts
  10533.  
  10534. .routine
  10535.  
  10536.     
  10537. ;w move.w #$0010,$dff000+intreq
  10538.  
  10539.  tst.b doanything
  10540.  bne dosomething
  10541.  
  10542.  movem.l d0-d7/a0-a6,-(a7)
  10543.  bra JUSTSOUNDS
  10544.  
  10545.  rts
  10546.  
  10547. tabheld: dc.w 0
  10548. ObjWork: ds.l 600
  10549. WORKPTR: dc.l 0
  10550. thistime: dc.w 0
  10551.  
  10552. DOALLANIMS:
  10553.  
  10554.  sub.b #1,thistime
  10555.  ble.s .okdosome
  10556.  rts
  10557.  
  10558. .okdosome:
  10559.  move.b #5,thistime
  10560.  
  10561.  
  10562.  move.l #ObjWork,a5
  10563.  move.l ObjectData,a0
  10564. Objectloop2:
  10565.  tst.w (a0)
  10566.  blt doneallobj2
  10567.  move.w 12(a0),d0
  10568.  blt doneobj2
  10569.  move.w d0,GraphicRoom(a0)
  10570.  tst.b worry(a0)
  10571.  beq.s doneobj2
  10572.  
  10573.  move.b 16(a0),d0
  10574.  cmp.b #1,d0
  10575.  blt JUMPALIENANIM
  10576. ; beq JUMPOBJECTANIM
  10577. ; cmp.b #2,d0
  10578. ; beq JUMPBULLET
  10579.  
  10580. doneobj2:
  10581.  
  10582.  adda.w #64,a0
  10583.  addq #8,a5
  10584.  bra Objectloop2
  10585.  
  10586. doneallobj2:
  10587.  rts
  10588.  
  10589. JUMPALIENANIM:
  10590.  
  10591.  moveq #0,d0
  10592.  move.b WhichAnim(a0),d0
  10593. ; 0=walking
  10594. ; 1=attacking
  10595. ; 2=getting hit
  10596. ; 3=dying
  10597.  
  10598.  cmp.b #1,d0
  10599.  blt.s ALWALK
  10600.  beq.s ALATTACK
  10601.  
  10602.  cmp.b #3,d0
  10603.  blt ALGETHIT
  10604.  beq ALDIE
  10605.  
  10606.  bra doneobj2
  10607.  
  10608. ALDIE
  10609.  move.l #10,d0
  10610.  bra intowalk
  10611.  
  10612. ALGETHIT:
  10613.  move.l #9,d0
  10614.  bra intowalk
  10615.  
  10616. ALATTACK:
  10617.  move.l #8,d0
  10618.  bra intowalk
  10619.  
  10620. AUXOBJ: dc.w 0
  10621.  
  10622. ALWALK:
  10623.  
  10624. ; jsr ViewpointToDraw
  10625. ; add.l d0,d0
  10626. ; 
  10627. ; move.l LINKFILE,a6
  10628. ; add.l #AlienStats,a6
  10629. ; moveq #0,d1
  10630. ; move.b TypeOfThing(a0),d1
  10631. ; muls #AlienStatLen,d1
  10632. ; add.l d1,a6
  10633. ; cmp.w #1,A_GFXType(a6)
  10634. ; bne.s NOSIDES2
  10635.  
  10636.  moveq #0,d0
  10637. intowalk:
  10638.  
  10639. NOSIDES2:
  10640.  
  10641.  move.b d0,2(a5)
  10642.  move.l LINKFILE,a6
  10643.  
  10644.  add.l #AlienAnimData,a6
  10645.  
  10646.  moveq #0,d1
  10647.  move.b TypeOfThing(a0),d1
  10648.  move.w .valtables+4(pc,d1.w*8),d1
  10649. ; muls #A_AnimLen,d1
  10650.  add.l d1,a6
  10651.  
  10652. ; move.l ANIMPOINTER,a6
  10653.  
  10654. ; muls #A_OptLen,d0
  10655.  move.w .valtables+2(pc,d0.w*8),d0
  10656.  add.w d0,a6
  10657.  
  10658.  move.w SecTimer(a0),d1
  10659.  move.w d1,d2
  10660. ; muls #A_FrameLen,d1
  10661.  move.w .valtables(pc,d1.w*8),d1
  10662.  
  10663.  moveq #0,d0
  10664.  move.b 5(a6,d1.w),d0
  10665.  beq.s .nosoundmake
  10666.  
  10667.  movem.l d0-d7/a0-a6,-(a7)
  10668.  subq #1,d0
  10669.  move.w d0,Samplenum
  10670.  clr.b notifplaying
  10671.  move.b 1(a0),IDNUM
  10672.  move.w #80,Noisevol
  10673.  move.l #ObjRotated,a1
  10674.  move.w (a0),d0
  10675.  lea (a1,d0.w*8),a1
  10676.  move.l (a1),Noisex
  10677.  jsr MakeSomeNoise
  10678.  movem.l (a7)+,d0-d7/a0-a6
  10679. .nosoundmake
  10680.  
  10681.  move.b 6(a6,d1.w),d0
  10682.  beq.s .noaction
  10683.  add.b #1,(a5)
  10684.  move.b d2,1(a5)
  10685. .noaction
  10686.  
  10687.  addq #1,d2
  10688.  
  10689.  moveq #0,d0
  10690.  move.b 7(a6,d1.w),d0
  10691.  beq .nospecial
  10692.  bra .special
  10693.  
  10694. .valtables:
  10695. val SET 0
  10696.  REPT 20
  10697.  dc.w A_FrameLen*val,A_OptLen*val
  10698.  dc.w A_AnimLen*val,0
  10699. val SET val+1
  10700.  ENDR
  10701.  
  10702. .special
  10703.  move.b d0,d3
  10704.  and.w #63,d3
  10705.  lsr.w #6,d0
  10706.  cmp.w #2,d0
  10707.  blt.s .storeval
  10708.  beq.s .randval
  10709.  
  10710.  sub.b #1,4(a5)
  10711.  beq.s .nospecial
  10712.  
  10713.  move.w d3,d2
  10714.  bra.s .nospecial
  10715.  
  10716. .randval:
  10717.  jsr GetRand
  10718.  divs d3,d0
  10719.  swap d0
  10720.  move.w d0,d3
  10721.  
  10722. .storeval:
  10723.  move.b d3,4(a5)
  10724. .nospecial:
  10725.  
  10726. ; move.w d2,d3
  10727.  move.w .valtables2(pc,d2.w*8),d3
  10728. ; muls #A_FrameLen,d3
  10729.  tst.b (a6,d3.w)
  10730.  bge.s .noendanim
  10731.  st 3(a5)
  10732.  move.w #0,d2
  10733. .noendanim
  10734.  move.w d2,SecTimer(a0)
  10735.  
  10736.  bra doneobj2
  10737.  
  10738. .valtables2:
  10739. val SET 0
  10740.  REPT 20
  10741.  dc.w A_FrameLen*val,A_OptLen*val
  10742.  dc.w A_AnimLen*val,0
  10743. val SET val+1
  10744.  ENDR
  10745.  
  10746.  
  10747. JUMPOBJECTANIM:
  10748.  bra doneobj2
  10749.  
  10750. timetodamage: dc.w 0
  10751. SAVESAVE: dc.w 0
  10752.  
  10753. dosomething:
  10754.  
  10755.  
  10756.  
  10757.  addq.w #1,FramesToDraw
  10758.  movem.l d0-d7/a0-a6,-(a7)
  10759.  
  10760.  jsr NARRATOR
  10761.  
  10762.  bsr DOALLANIMS
  10763.  
  10764.  sub.w #1,timetodamage
  10765.  bgt.s .nodam
  10766.  
  10767.  move.w #100,timetodamage
  10768.  
  10769.  move.l PLR1_Roompt,a0
  10770.  move.w ToFloorNoise(a0),d0
  10771.  tst.b PLR1_StoodInTop
  10772.  beq.s .okinbot
  10773.  move.w ToUpperFloorNoise(a0),d0
  10774. .okinbot:
  10775.  
  10776.  move.l LINKFILE,a0
  10777.  add.l #FloorData,a0
  10778.  move.w (a0,d0.w*4),d0    ; damage. 
  10779.  move.l PLR1_Obj,a0
  10780.  add.b d0,damagetaken(a0)
  10781.  
  10782.  move.l PLR2_Roompt,a0
  10783.  move.w ToFloorNoise(a0),d0
  10784.  tst.b PLR2_StoodInTop
  10785.  beq.s .okinbot2
  10786.  move.w ToUpperFloorNoise(a0),d0
  10787. .okinbot2:
  10788.  
  10789.  move.l LINKFILE,a0
  10790.  add.l #FloorData,a0
  10791.  move.w (a0,d0.w*4),d0    ; damage. 
  10792.  
  10793.  move.l PLR2_Obj,a0
  10794.  add.b d0,damagetaken(a0)
  10795.  
  10796. .nodam:
  10797.  
  10798.  move.l #KeyMap,a5
  10799.  
  10800.  tst.b 82(a5)    ;f3
  10801.  beq notogglesound
  10802.  
  10803.  tst.b lasttogsound
  10804.  bne notogglesound2
  10805.  
  10806.  st lasttogsound
  10807.  
  10808.  move.w TOPPOPT,d0
  10809.  addq #1,d0
  10810.  and.w #3,d0
  10811.  move.w d0,TOPPOPT
  10812.  move.b STEROPT(pc,d0.w*2),STEREO
  10813.  
  10814.  
  10815.  move.b STEROPT+1(pc,d0.w*2),d1
  10816.  muls #160,d0
  10817.  add.l #SOUNDOPTSTEXT,d0
  10818.  jsr SENDMESSAGE
  10819.  
  10820.  
  10821.  move.b d1,Prefsfile+1
  10822.  
  10823.  bra pastster
  10824.  
  10825.  STEROPT:
  10826.  dc.b 0,4
  10827.  dc.b $FF,4
  10828.  dc.b 0,8
  10829.  dc.b $ff,8
  10830.  
  10831. lasttogsound: dc.w 0
  10832.  
  10833. SOUNDOPTSTEXT:
  10834. ;      1234567890123456789012345678901234567890
  10835.  dc.b "Four Channel Mono Selected              "
  10836.  dc.b "                                        "
  10837.  dc.b "                                        "
  10838.  dc.b "                                        "
  10839.  
  10840.  dc.b "Four Channel Stereo Selected            "
  10841.  dc.b "                                        "
  10842.  dc.b "                                        "
  10843.  dc.b "                                        "
  10844.  
  10845.  dc.b "Eight Channel Mono Selected             "
  10846.  dc.b "                                        "
  10847.  dc.b "                                        "
  10848.  dc.b "                                        "
  10849.  
  10850.  dc.b "Eight Channel Stereo Selected           "
  10851.  dc.b "                                        "
  10852.  dc.b "                                        "
  10853.  dc.b "                                        "
  10854.  
  10855. LIGHTING: dc.w $FFff
  10856. OLDLTOG: dc.w 0
  10857.  
  10858. pastster:
  10859.  
  10860.  cmp.b #'4',d1
  10861.  seq.s CHANNELDATA+8
  10862.  seq.s CHANNELDATA+12
  10863.  seq.s CHANNELDATA+24
  10864.  seq.s CHANNELDATA+28
  10865.  
  10866. * Mt_init *********************
  10867.  st CHANNELDATA+8
  10868.  st CHANNELDATA
  10869. *******************************
  10870.  
  10871.  move.w #$f,$dff000+dmacon
  10872.  move.l #null,$dff0a0
  10873.  move.w #100,$dff0a4
  10874.  move.w #443,$dff0a6
  10875.  move.w #63,$dff0a8
  10876.  
  10877.  move.l #null2,$dff0b0
  10878.  move.w #100,$dff0b4
  10879.  move.w #443,$dff0b6
  10880.  move.w #63,$dff0b8
  10881.  
  10882.  move.l #null4,$dff0c0
  10883.  move.w #100,$dff0c4
  10884.  move.w #443,$dff0c6
  10885.  move.w #63,$dff0c8
  10886.  
  10887.  move.l #null3,$dff0d0
  10888.  move.w #100,$dff0d4
  10889.  move.w #443,$dff0d6
  10890.  move.w #63,$dff0d8
  10891.  
  10892.  move.l #empty,pos0LEFT
  10893.  move.l #empty,pos1LEFT
  10894.  move.l #empty,pos2LEFT
  10895.  move.l #empty,pos3LEFT
  10896.  move.l #empty,pos0RIGHT
  10897.  move.l #empty,pos1RIGHT
  10898.  move.l #empty,pos2RIGHT
  10899.  move.l #empty,pos3RIGHT
  10900.  move.l #emptyend,Samp0endLEFT
  10901.  move.l #emptyend,Samp1endLEFT
  10902.  move.l #emptyend,Samp2endLEFT
  10903.  move.l #emptyend,Samp3endLEFT
  10904.  move.l #emptyend,Samp0endRIGHT
  10905.  move.l #emptyend,Samp1endRIGHT
  10906.  move.l #emptyend,Samp2endRIGHT
  10907.  move.l #emptyend,Samp3endRIGHT
  10908.  
  10909.  move.w #10,d3
  10910. .willy
  10911.  btst #0,$dff000+intreqrl
  10912.  beq.s .willy
  10913.  move.w #1,$dff000+intreq
  10914.  
  10915.  dbra d3,.willy
  10916.  
  10917.  move.w #$820f,$dff000+dmacon
  10918.  
  10919.  bra notogglesound2
  10920.  
  10921. Prefsfile:
  10922.  dc.b 'k4nx'
  10923.  
  10924. notogglesound:
  10925.  clr.b lasttogsound
  10926. notogglesound2:
  10927.  
  10928.  
  10929.  tst.b 83(a5)
  10930.  beq nolighttoggle
  10931.  tst.b OLDLTOG
  10932.  bne nolighttoggle2
  10933.  st OLDLTOG
  10934.  
  10935.  move.l #LIGHTINGTEXT,d0
  10936.  not.b LIGHTING
  10937.  beq.s .noon
  10938.  add.l #160,d0
  10939. .noon:
  10940.  bra pastlighttext
  10941.  
  10942. LIGHTINGTEXT:
  10943.  dc.b "Lighting Effects Deactivated            "
  10944.  dc.b "                                        "
  10945.  dc.b "                                        "
  10946.  dc.b "                                        "
  10947.  
  10948.  dc.b "Lighting Effects Activated              "
  10949.  dc.b "                                        "
  10950.  dc.b "                                        "
  10951.  dc.b "                                        "
  10952.  
  10953. OLDRET: dc.w 0
  10954. OLDCENT: dc.w 0
  10955. OLDGOOD: dc.w 0
  10956.  
  10957. GOODRENDERTXT:
  10958.  dc.b "Rendering Quality : High                "
  10959.  dc.b "                                        "
  10960.  dc.b "                                        "
  10961.  dc.b "                                        "
  10962. BADRENDERTXT:
  10963.  dc.b "Rendering Quality : Reduced             "
  10964.  dc.b "                                        "
  10965.  dc.b "                                        "
  10966.  dc.b "                                        "
  10967.  
  10968. pastlighttext:
  10969.  
  10970.  jsr SENDMESSAGE
  10971.  
  10972. ; move.l d0,SCROLLPOINTER
  10973. ; move.w #0,SCROLLXPOS
  10974. ; add.l #160,d0
  10975. ; move.l d0,ENDSCROLL
  10976. ; move.w #40,SCROLLTIMER 
  10977.  
  10978.  bra nolighttoggle2
  10979.  
  10980. nolighttoggle:
  10981.  clr.b OLDLTOG
  10982. nolighttoggle2:
  10983.  
  10984.  
  10985.  tst.b 84(a5)
  10986.  beq.s noret
  10987.  tst.b OLDRET
  10988.  bne.s noret2
  10989.  st OLDRET
  10990.  
  10991.  jsr RETRIEVEPREVMESSAGE
  10992.  
  10993.  bra noret2
  10994.  
  10995. noret
  10996.  clr.b OLDRET
  10997. noret2:
  10998.  
  10999.  tst.b 85(a5)
  11000.  beq.s .nogood
  11001.  tst.b OLDGOOD
  11002.  bne.s .nogood2
  11003.  st OLDGOOD
  11004.  
  11005.  move.l #GOODRENDERTXT,d0
  11006.  not.b GOODRENDER
  11007.  bne.s .okgood
  11008.  move.l #BADRENDERTXT,d0
  11009. .okgood:
  11010.  
  11011.  jsr SENDMESSAGE
  11012.  
  11013.  bra .nogood2
  11014.  
  11015. .nogood
  11016.  clr.b OLDGOOD
  11017. .nogood2:
  11018.  
  11019.  
  11020.  tst.b $42(a5)
  11021.  bne.s .tabprsd
  11022.  clr.b tabheld
  11023.  bra.s .noswitch
  11024.  
  11025. .tabprsd:
  11026.  tst.b tabheld
  11027.  bne.s .noswitch
  11028.  not.b MAPON
  11029.  st tabheld
  11030. .noswitch
  11031.  
  11032.  tst.b $3e(a5)
  11033.  sne d0
  11034.  tst.b $1e(a5)
  11035.  sne d1
  11036.  tst.b $2d(a5)
  11037.  sne d2
  11038.  tst.b $2f(a5)
  11039.  sne d3
  11040.  
  11041.  tst.b $3d(a5)
  11042.  sne d4
  11043.  tst.b $3f(a5)
  11044.  sne d5
  11045.  tst.b $1d(a5)
  11046.  sne d6
  11047.  tst.b $1f(a5)
  11048.  sne d7
  11049.  
  11050.  or.b d4,d0
  11051.  or.b d5,d0
  11052.  or.b d6,d1
  11053.  or.b d7,d1
  11054.  or.b d4,d2
  11055.  or.b d6,d2
  11056.  or.b d7,d3
  11057.  or.b d5,d3
  11058.  
  11059.  move.w MAPBRIGHT,d4
  11060.  add.w #2,d4
  11061.  clr.l d5
  11062.  bset d4,d5
  11063.  
  11064.  tst.b d0
  11065.  beq.s .nomapup
  11066.  sub.w d5,mapzoff
  11067. .nomapup 
  11068.  
  11069.  tst.b d1
  11070.  beq.s .nomapdown
  11071.  add.w d5,mapzoff
  11072. .nomapdown 
  11073.  
  11074.  tst.b d2
  11075.  beq.s .nomapleft
  11076.  add.w d5,mapxoff
  11077. .nomapleft 
  11078.  
  11079.  tst.b d3
  11080.  beq.s .nomapright
  11081.  sub.w d5,mapxoff
  11082. .nomapright 
  11083.  
  11084.  tst.b $2e(a5)
  11085.  beq.s .nomapcentre
  11086.  
  11087.  move.w #0,mapxoff
  11088.  move.w #0,mapzoff
  11089.  
  11090. .nomapcentre
  11091.  
  11092. ; move.w STOPOFFSET,d0
  11093. ; tst.b 27(a5)
  11094. ; beq.s .nolookup
  11095. ; sub.w #5,d0
  11096. ; cmp.w #-80,d0
  11097. ; bgt.s .nolookup
  11098. ; move.w #-80,d0
  11099. ;.nolookup:
  11100. ; tst.b 42(a5)
  11101. ; beq.s .nolookdown
  11102. ; add.w #5,d0
  11103. ; cmp.w #80,d0
  11104. ; blt.s .nolookdown
  11105. ; move.w #80,d0
  11106. ;.nolookdown:
  11107. ;
  11108. ; move.w d0,STOPOFFSET
  11109. ; neg.w d0
  11110. ; add.w #120,d0
  11111. ; move.w d0,SMIDDLEY
  11112. ; muls #320*2,d0
  11113. ; move.l d0,SBIGMIDDLEY
  11114.  
  11115.  
  11116. ; jsr INITREC
  11117. ; jsr RECEIVE
  11118.  
  11119. ; tst.l BUFFER
  11120. ; beq.s justshake
  11121. ; st GOTTOSEND
  11122. ; move.l #OtherInter,$6c
  11123.  
  11124. justshake:
  11125.  
  11126. ; cmp.b #'b',Prefsfile+3
  11127. ; bne.s .noback
  11128.  
  11129.  
  11130.  jsr mt_music
  11131.  
  11132.  
  11133.  
  11134. ;.noback:
  11135.  
  11136.  bra dontshowtime
  11137.  
  11138.  tst.b oktodisplay
  11139.  beq dontshowtime
  11140.  clr.b oktodisplay
  11141.  subq.w #1,dispco
  11142.  bgt dontshowtime
  11143.  move.w #10,dispco
  11144.  
  11145.  move.l #TimerScr+10,a0
  11146.  move.l TimeCount,d0
  11147.  bge.s timenotneg
  11148.  move.l #1111*256,d0
  11149. timenotneg:
  11150.  asr.l #8,d0
  11151.  move.l #digits,a1
  11152.  move.w #7,d2
  11153. digitlop
  11154.  divs #10,d0
  11155.  swap d0
  11156.  lea (a1,d0.w*8),a2
  11157.  move.b (a2)+,(a0)
  11158.  move.b (a2)+,24(a0)
  11159.  move.b (a2)+,24*2(a0)
  11160.  move.b (a2)+,24*3(a0)
  11161.  move.b (a2)+,24*4(a0)
  11162.  move.b (a2)+,24*5(a0)
  11163.  move.b (a2)+,24*6(a0)
  11164.  move.b (a2)+,24*7(a0)
  11165.  subq #1,a0
  11166.  swap d0
  11167.  ext.l d0
  11168.  dbra d2,digitlop
  11169.  
  11170.  move.l #TimerScr+10+24*10,a0
  11171.  move.l NumTimes,d0
  11172.  move.l #digits,a1
  11173.  move.w #3,d2
  11174. digitlop2
  11175.  divs #10,d0
  11176.  swap d0
  11177.  lea (a1,d0.w*8),a2
  11178.  move.b (a2)+,(a0)
  11179.  move.b (a2)+,24(a0)
  11180.  move.b (a2)+,24*2(a0)
  11181.  move.b (a2)+,24*3(a0)
  11182.  move.b (a2)+,24*4(a0)
  11183.  move.b (a2)+,24*5(a0)
  11184.  move.b (a2)+,24*6(a0)
  11185.  move.b (a2)+,24*7(a0)
  11186.  subq #1,a0
  11187.  swap d0
  11188.  ext.l d0
  11189.  dbra d2,digitlop2
  11190.  
  11191.  move.l #TimerScr+10+24*20,a0
  11192.  moveq #0,d0
  11193.  move.w FramesToDraw,d0
  11194.  move.l #digits,a1
  11195.  move.w #2,d2
  11196. digitlop3
  11197.  divs #10,d0
  11198.  swap d0
  11199.  lea (a1,d0.w*8),a2
  11200.  move.b (a2)+,(a0)
  11201.  move.b (a2)+,24(a0)
  11202.  move.b (a2)+,24*2(a0)
  11203.  move.b (a2)+,24*3(a0)
  11204.  move.b (a2)+,24*4(a0)
  11205.  move.b (a2)+,24*5(a0)
  11206.  move.b (a2)+,24*6(a0)
  11207.  move.b (a2)+,24*7(a0)
  11208.  subq #1,a0
  11209.  swap d0
  11210.  ext.l d0
  11211.  dbra d2,digitlop3
  11212.  
  11213. dontshowtime:
  11214.  
  11215.  
  11216.  move.l alanptr,a0
  11217.  move.l (a0)+,alframe
  11218.  cmp.l #endalan,a0
  11219.  blt.s nostartalan
  11220.  move.l #alan,a0
  11221. nostartalan:
  11222.  move.l a0,alanptr
  11223.  
  11224.  
  11225.  tst.b READCONTROLS
  11226.  beq nocontrols
  11227.  
  11228.  cmp.b #'s',mors
  11229.  beq control2
  11230.  
  11231.  tst.w PLAYERONEHEALTH
  11232.  bgt .propercontrol
  11233.  
  11234.  move.l #7*2116,hitcol
  11235.  move.l #PLR1_Obj,a0
  11236.  move.w #-1,12+128(a0)
  11237.  
  11238.  clr.b PLR1_fire
  11239.  clr.b PLR1_clicked
  11240.  move.w #0,ADDTOBOBBLE
  11241.  move.l #playercrouched,PLR1s_height
  11242.  move.w #-80,d0
  11243.  move.w d0,STOPOFFSET
  11244.  neg.w d0
  11245.  add.w TOTHEMIDDLE,d0
  11246.  move.w d0,SMIDDLEY
  11247.  muls #320,d0
  11248.  move.l d0,SBIGMIDDLEY
  11249.  jsr PLR1_fall
  11250.  
  11251.  move.l PLR1s_xspdval,d6
  11252.  move.l PLR1s_zspdval,d7
  11253.  
  11254.  tst.b SLOWDOWN
  11255.  beq.s .nofriction
  11256.  
  11257.  neg.l d6
  11258.  ble.s .nobug1
  11259.  asr.l #3,d6
  11260.  add.l #1,d6
  11261.  bra.s .bug1
  11262. .nobug1
  11263.  asr.l #3,d6
  11264. .bug1:
  11265.  
  11266.  neg.l d7
  11267.  ble.s .nobug2
  11268.  asr.l #3,d7
  11269.  add.l #1,d7
  11270.  bra.s .bug2
  11271. .nobug2
  11272.  asr.l #3,d7
  11273. .bug2: 
  11274.  
  11275.  add.l d6,PLR1s_xspdval
  11276.  add.l d7,PLR1s_zspdval
  11277.  
  11278. .nofriction:
  11279.  move.l PLR1s_xspdval,d6
  11280.  move.l PLR1s_zspdval,d7
  11281.  add.l d6,PLR1s_xoff
  11282.  add.l d7,PLR1s_zoff
  11283.  
  11284.  move.w PLR1s_angspd,d3
  11285.  tst.b SLOWDOWN
  11286.  beq.s .nofric
  11287.  asr.w #2,d3
  11288.  bge.s .nneg
  11289.  addq #1,d3
  11290. .nneg:
  11291. .nofric:
  11292.  
  11293.  move.w d3,PLR1s_angspd
  11294.  add.w d3,PLR1s_angpos
  11295.  add.w d3,PLR1s_angpos
  11296.  and.w #8190,PLR1s_angpos
  11297.  
  11298.  bra nocontrols
  11299.  
  11300. .propercontrol:
  11301.  
  11302.  tst.b PLR1MOUSE
  11303.  beq.s PLR1_nomouse
  11304.  bsr PLR1_mouse_control
  11305. PLR1_nomouse:
  11306.  tst.b PLR1KEYS
  11307.  beq.s PLR1_nokeys
  11308.  bsr PLR1_keyboard_control
  11309. PLR1_nokeys:
  11310. ; tst.b PLR1PATH
  11311. ; beq.s PLR1_nopath
  11312. ; bsr PLR1_follow_path
  11313. ;PLR1_nopath:
  11314.  tst.b PLR1JOY
  11315.  beq.s PLR1_nojoy
  11316.  bsr PLR1_JoyStick_control
  11317. PLR1_nojoy: 
  11318.  bra nocontrols
  11319.  
  11320. control2:
  11321.  
  11322.  tst.w PLAYERTWOHEALTH
  11323.  bgt .propercontrol
  11324.  
  11325.  move.l #7*2116,hitcol
  11326.  move.l #PLR1_Obj,a0
  11327.  move.w #-1,12+128(a0)
  11328.  clr.b PLR2_fire
  11329.  move.w #0,ADDTOBOBBLE
  11330.  move.l #playercrouched,PLR2s_height
  11331.  move.w #-80,d0
  11332.  move.w d0,STOPOFFSET
  11333.  neg.w d0
  11334.  add.w TOTHEMIDDLE,d0
  11335.  move.w d0,SMIDDLEY
  11336.  muls #320,d0
  11337.  move.l d0,SBIGMIDDLEY
  11338.  jsr PLR2_fall
  11339.  
  11340.  move.l PLR2s_xspdval,d6
  11341.  move.l PLR2s_zspdval,d7
  11342.  
  11343.  tst.b SLOWDOWN
  11344.  beq.s .nofriction
  11345.  
  11346.  neg.l d6
  11347.  ble.s .nobug1
  11348.  asr.l #3,d6
  11349.  add.l #1,d6
  11350.  bra.s .bug1
  11351. .nobug1
  11352.  asr.l #3,d6
  11353. .bug1:
  11354.  
  11355.  neg.l d7
  11356.  ble.s .nobug2
  11357.  asr.l #3,d7
  11358.  add.l #1,d7
  11359.  bra.s .bug2
  11360. .nobug2
  11361.  asr.l #3,d7
  11362. .bug2: 
  11363.  
  11364.  add.l d6,PLR2s_xspdval
  11365.  add.l d7,PLR2s_zspdval
  11366.  
  11367. .nofriction:
  11368.  move.l PLR2s_xspdval,d6
  11369.  move.l PLR2s_zspdval,d7
  11370.  add.l d6,PLR2s_xoff
  11371.  add.l d7,PLR2s_zoff
  11372.  
  11373.  move.w PLR2s_angspd,d3
  11374.  tst.b SLOWDOWN
  11375.  beq.s .nofric
  11376.  asr.w #2,d3
  11377.  bge.s .nneg
  11378.  addq #1,d3
  11379. .nneg:
  11380. .nofric:
  11381.  
  11382.  move.w d3,PLR2s_angspd
  11383.  add.w d3,PLR2s_angpos
  11384.  add.w d3,PLR2s_angpos
  11385.  and.w #8190,PLR2s_angpos
  11386.  
  11387.  bra.s nocontrols
  11388.  
  11389. .propercontrol:
  11390.  tst.b PLR2MOUSE
  11391.  beq.s PLR2_nomouse
  11392.  bsr PLR2_mouse_control
  11393. PLR2_nomouse:
  11394.  tst.b PLR2KEYS
  11395.  beq.s PLR2_nokeys
  11396.  bsr PLR2_keyboard_control
  11397. PLR2_nokeys:
  11398. ; tst.b PLR2PATH
  11399. ; beq.s PLR2_nopath
  11400. ; bsr PLR1_follow_path
  11401. ;PLR2_nopath:
  11402.  tst.b PLR2JOY
  11403.  beq.s PLR2_nojoy
  11404.  bsr PLR2_JoyStick_control
  11405. PLR2_nojoy: 
  11406.  
  11407.  
  11408. nocontrols:
  11409.  
  11410.  move.l #$dff000,a6
  11411.  
  11412.  cmp.b #'4',Prefsfile+1
  11413.  bne.s nomuckabout
  11414.  
  11415.  move.w #$0,d0 
  11416.  tst.b NoiseMade0LEFT
  11417.  beq.s noturnoff0
  11418.  move.w #1,d0
  11419. noturnoff0:
  11420.  tst.b NoiseMade0RIGHT
  11421.  beq.s noturnoff1
  11422.  or.w #2,d0
  11423. noturnoff1:
  11424.  tst.b NoiseMade1RIGHT
  11425.  beq.s noturnoff2
  11426.  or.w #4,d0
  11427. noturnoff2:
  11428.  tst.b NoiseMade1LEFT
  11429.  beq.s noturnoff3
  11430.  or.w #8,d0
  11431. noturnoff3:
  11432.  
  11433. *********************
  11434.  and.w #$fffe,d0
  11435. *********************
  11436.  
  11437.     move.w d0,dmacon(a6)
  11438.  
  11439. nomuckabout:
  11440.  
  11441.  
  11442. ; tst.b PLR2_fire
  11443. ; beq.s firenotpressed2
  11444. ; fire was pressed last time.
  11445. ; btst #7,$bfe001
  11446. ; bne.s firenownotpressed2
  11447. ; fire is still pressed this time.
  11448. ; st PLR2_fire
  11449. ; bra dointer
  11450.  
  11451. firenownotpressed2:
  11452. ; fire has been released.
  11453. ; clr.b PLR2_fire
  11454. ; bra dointer
  11455.  
  11456. firenotpressed2
  11457.  
  11458. ; fire was not pressed last frame...
  11459.  
  11460. ; btst #7,$bfe001
  11461. ; if it has still not been pressed, go back above
  11462. ; bne.s firenownotpressed2
  11463. ; fire was not pressed last time, and was this time, so has
  11464. ; been clicked.
  11465. ; st PLR2_clicked
  11466. ; st PLR2_fire
  11467.  
  11468. dointer
  11469.  
  11470. JUSTSOUNDS:
  11471.  
  11472.  tst.b dosounds
  11473.  beq.s .notthing
  11474.  
  11475.  cmp.b #'4',Prefsfile+1
  11476.     beq fourchannel
  11477.  
  11478.  btst #1,$dff000+intreqr
  11479.     bne.s newsampbitl
  11480.  
  11481. .notthing:
  11482.  
  11483.  movem.l (a7)+,d0-d7/a0-a6
  11484.  
  11485.  moveq #0,d0
  11486.  rts
  11487.  
  11488.  
  11489. dosounds: dc.w 0
  11490.  
  11491. swappedem: dc.w 0
  11492.  
  11493. newsampbitl:
  11494.  
  11495.  
  11496.  
  11497.  move.w #$200,$dff000+intreq
  11498.  
  11499.  tst.b CHANNELDATA
  11500.  bne nochannel0
  11501.  
  11502.  move.l pos0LEFT,a0
  11503.  move.l pos2LEFT,a1
  11504.  
  11505.  move.l #tab,a2
  11506.  
  11507.  moveq #0,d0
  11508.  moveq #0,d1
  11509.  move.b vol0left,d0
  11510.  move.b vol2left,d1
  11511.  cmp.b d1,d0
  11512.  slt swappedem
  11513.  bge.s fbig0
  11514.  
  11515. ; d1 is bigger so scale d0 and use d1
  11516. ; as audiochannel volume.
  11517.  
  11518.  exg a0,a1
  11519.  asl.w #6,d0
  11520.  divs d1,d0
  11521.  lsl.w #8,d0
  11522.  adda.w d0,a2
  11523.  move.w d1,$dff0a8
  11524.  bra.s donechan0
  11525.  
  11526. fbig0:
  11527.  tst.w d0
  11528.  beq.s donechan0
  11529.  asl.w #6,d1
  11530.  divs d0,d1
  11531.  lsl.w #8,d1
  11532.  adda.w d1,a2
  11533.  move.w d0,$dff0a8
  11534.  
  11535. donechan0:
  11536.  
  11537.  move.l Aupt0,a3
  11538.  move.l a3,$dff0a0
  11539.  move.l Auback0,Aupt0
  11540.  move.l a3,Auback0
  11541.  
  11542.  move.l Auback0,a3
  11543.  
  11544.  moveq #0,d0
  11545.  moveq #0,d1
  11546.  moveq #0,d2
  11547.  moveq #0,d3
  11548.  moveq #0,d4
  11549.  moveq #0,d5
  11550.  move.w #49,d7
  11551. loop:
  11552.  move.l (a0)+,d0
  11553.  move.b (a1)+,d1
  11554.  move.b (a1)+,d2
  11555.  move.b (a1)+,d3
  11556.  move.b (a1)+,d4
  11557.  move.b (a2,d3.w),d5
  11558.  swap d5
  11559.  move.b (a2,d1.w),d5
  11560.  asl.l #8,d5
  11561.  move.b (a2,d2.w),d5
  11562.  swap d5
  11563.  move.b (a2,d4.w),d5
  11564.  add.l d5,d0
  11565.  move.l d0,(a3)+
  11566.  dbra d7,loop
  11567.  
  11568.  tst.b swappedem
  11569.  beq.s .ok23
  11570.  exg a0,a1
  11571. .ok23:
  11572.  
  11573.  cmp.l Samp0endLEFT,a0
  11574.  blt.s .notoffendsamp1
  11575.  move.l #empty,a0
  11576.  move.l #emptyend,Samp0endLEFT
  11577.  move.b #0,vol0left
  11578.  st LEFTCHANDATA+1
  11579.  move.w #0,LEFTCHANDATA+2
  11580. .notoffendsamp1:
  11581.  
  11582.  cmp.l Samp2endLEFT,a1
  11583.  blt.s .notoffendsamp2
  11584.  move.l #empty,a1
  11585.  move.l #emptyend,Samp2endLEFT
  11586.  move.b #0,vol2left
  11587.  st LEFTCHANDATA+1+8
  11588.  move.w #0,LEFTCHANDATA+2+8
  11589. .notoffendsamp2:
  11590.  
  11591.  move.l a0,pos0LEFT
  11592.  move.l a1,pos2LEFT
  11593.  
  11594. nochannel0:
  11595.  
  11596.  tst.b CHANNELDATA+16
  11597.  bne nochannel1
  11598.  
  11599.  
  11600.  move.l pos0RIGHT,a0
  11601.  move.l pos2RIGHT,a1
  11602.  
  11603.  move.l Aupt1,a3
  11604.  move.l a3,$dff0b0
  11605.  move.l Auback1,Aupt1
  11606.  move.l a3,Auback1
  11607.  
  11608.  move.l #tab,a2
  11609.  
  11610.  moveq #0,d0
  11611.  moveq #0,d1
  11612.  move.b vol0right,d0
  11613.  move.b vol2right,d1
  11614.  cmp.b d1,d0
  11615.  slt swappedem
  11616.  bge.s fbig1
  11617.  
  11618. ; d1 is bigger so scale d0 and use d1
  11619. ; as audiochannel volume.
  11620.  
  11621.  exg a0,a1
  11622.  asl.w #6,d0
  11623.  divs d1,d0
  11624.  lsl.w #8,d0
  11625.  adda.w d0,a2
  11626.  move.w d1,$dff0b8
  11627.  bra.s donechan1
  11628.  
  11629. fbig1:
  11630.  tst.w d0
  11631.  beq.s donechan1
  11632.  asl.w #6,d1
  11633.  divs d0,d1
  11634.  lsl.w #8,d1
  11635.  adda.w d1,a2
  11636.  move.w d0,$dff0b8
  11637.  
  11638. donechan1:
  11639.  moveq #0,d0
  11640.  moveq #0,d1
  11641.  moveq #0,d2
  11642.  moveq #0,d3
  11643.  moveq #0,d4
  11644.  moveq #0,d5
  11645.  move.w #49,d7
  11646. loop2:
  11647.  move.l (a0)+,d0
  11648.  move.b (a1)+,d1
  11649.  move.b (a1)+,d2
  11650.  move.b (a1)+,d3
  11651.  move.b (a1)+,d4
  11652.  move.b (a2,d3.w),d5
  11653.  swap d5
  11654.  move.b (a2,d1.w),d5
  11655.  asl.l #8,d5
  11656.  move.b (a2,d2.w),d5
  11657.  swap d5
  11658.  move.b (a2,d4.w),d5
  11659.  add.l d5,d0
  11660.  move.l d0,(a3)+
  11661.  dbra d7,loop2
  11662.  
  11663.  tst.b swappedem
  11664.  beq.s ok01
  11665.  exg a0,a1
  11666. ok01:
  11667.  
  11668.  cmp.l Samp0endRIGHT,a0
  11669.  blt.s .notoffendsamp1
  11670.  move.l #empty,a0
  11671.  move.l #emptyend,Samp0endRIGHT
  11672.  move.b #0,vol0right
  11673.  st RIGHTCHANDATA+1
  11674.  move.w #0,RIGHTCHANDATA+2
  11675. .notoffendsamp1:
  11676.  
  11677.  cmp.l Samp2endRIGHT,a1
  11678.  blt.s .notoffendsamp2
  11679.  move.l #empty,a1
  11680.  move.l #emptyend,Samp2endRIGHT
  11681.  move.b #0,vol2right
  11682.  st RIGHTCHANDATA+1+8
  11683.  move.w #0,RIGHTCHANDATA+2+8
  11684. .notoffendsamp2:
  11685.  
  11686.  move.l a0,pos0RIGHT
  11687.  move.l a1,pos2RIGHT
  11688.  
  11689. nochannel1:
  11690.  
  11691. ******************* Other two channels
  11692.  
  11693.  move.l pos1LEFT,a0
  11694.  move.l pos3LEFT,a1
  11695.  
  11696.  move.l #tab,a2
  11697.  
  11698.  moveq #0,d0
  11699.  moveq #0,d1
  11700.  move.b vol1left,d0
  11701.  move.b vol3left,d1
  11702.  cmp.b d1,d0
  11703.  slt swappedem
  11704.  bge.s fbig2
  11705.  
  11706. ; d1 is bigger so scale d0 and use d1
  11707. ; as audiochannel volume.
  11708.  
  11709.  exg a0,a1
  11710.  asl.w #6,d0
  11711.  divs d1,d0
  11712.  lsl.w #8,d0
  11713.  adda.w d0,a2
  11714.  move.w d1,$dff0d8
  11715.  bra.s donechan2
  11716.  
  11717. fbig2:
  11718.  tst.w d0
  11719.  beq.s donechan2
  11720.  asl.w #6,d1
  11721.  divs d0,d1
  11722.  lsl.w #8,d1
  11723.  adda.w d1,a2
  11724.  move.w d0,$dff0d8
  11725.  
  11726. donechan2:
  11727.  
  11728.  move.l Aupt2,a3
  11729.  move.l a3,$dff0d0
  11730.  move.l Auback2,Aupt2
  11731.  move.l a3,Auback2
  11732.  
  11733.  moveq #0,d0
  11734.  moveq #0,d1
  11735.  moveq #0,d2
  11736.  moveq #0,d3
  11737.  moveq #0,d4
  11738.  moveq #0,d5
  11739.  move.w #49,d7
  11740. loop3:
  11741.  move.l (a0)+,d0
  11742.  move.b (a1)+,d1
  11743.  move.b (a1)+,d2
  11744.  move.b (a1)+,d3
  11745.  move.b (a1)+,d4
  11746.  move.b (a2,d3.w),d5
  11747.  swap d5
  11748.  move.b (a2,d1.w),d5
  11749.  asl.l #8,d5
  11750.  move.b (a2,d2.w),d5
  11751.  swap d5
  11752.  move.b (a2,d4.w),d5
  11753.  add.l d5,d0
  11754.  move.l d0,(a3)+
  11755.  dbra d7,loop3
  11756.  
  11757.  tst.b swappedem
  11758.  beq.s .ok23
  11759.  exg a0,a1
  11760. .ok23:
  11761.  
  11762.  cmp.l Samp1endLEFT,a0
  11763.  blt.s .notoffendsamp3
  11764.  move.l #empty,a0
  11765.  move.l #emptyend,Samp1endLEFT
  11766.  move.b #0,vol1left
  11767.  st LEFTCHANDATA+1+4
  11768.  move.w #0,LEFTCHANDATA+2+4
  11769. .notoffendsamp3:
  11770.  
  11771.  cmp.l Samp3endLEFT,a1
  11772.  blt.s .notoffendsamp4
  11773.  move.l #empty,a1
  11774.  move.l #emptyend,Samp3endLEFT
  11775.  move.b #0,vol3left
  11776.  st LEFTCHANDATA+1+12
  11777.  move.w #0,LEFTCHANDATA+2+12
  11778. .notoffendsamp4:
  11779.  
  11780.  move.l a0,pos1LEFT
  11781.  move.l a1,pos3LEFT
  11782.  
  11783.  move.l pos1RIGHT,a0
  11784.  move.l pos3RIGHT,a1
  11785.  
  11786.  move.l Aupt3,a3
  11787.  move.l a3,$dff0c0
  11788.  move.l Auback3,Aupt3
  11789.  move.l a3,Auback3
  11790.  
  11791.  move.l #tab,a2
  11792.  
  11793.  moveq #0,d0
  11794.  moveq #0,d1
  11795.  move.b vol1right,d0
  11796.  move.b vol3right,d1
  11797.  cmp.b d1,d0
  11798.  slt.s swappedem
  11799.  bge.s fbig3
  11800.  
  11801.  exg a0,a1
  11802.  asl.w #6,d0
  11803.  divs d1,d0
  11804.  lsl.w #8,d0
  11805.  adda.w d0,a2
  11806.  move.w d1,$dff0c8
  11807.  bra.s donechan3
  11808.  
  11809. fbig3:
  11810.  tst.w d0
  11811.  beq.s donechan3
  11812.  asl.w #6,d1
  11813.  divs d0,d1
  11814.  lsl.w #8,d1
  11815.  adda.w d1,a2
  11816.  move.w d0,$dff0c8
  11817. donechan3:
  11818.  
  11819.  moveq #0,d0
  11820.  moveq #0,d1
  11821.  moveq #0,d2
  11822.  moveq #0,d3
  11823.  moveq #0,d4
  11824.  moveq #0,d5
  11825.  move.w #49,d7
  11826. loop4:
  11827.  move.l (a0)+,d0
  11828.  move.b (a1)+,d1
  11829.  move.b (a1)+,d2
  11830.  move.b (a1)+,d3
  11831.  move.b (a1)+,d4
  11832.  move.b (a2,d3.w),d5
  11833.  swap d5
  11834.  move.b (a2,d1.w),d5
  11835.  asl.l #8,d5
  11836.  move.b (a2,d2.w),d5
  11837.  swap d5
  11838.  move.b (a2,d4.w),d5
  11839.  add.l d5,d0
  11840.  move.l d0,(a3)+
  11841.  dbra d7,loop4
  11842.  
  11843.  tst.b swappedem
  11844.  beq.s .ok23
  11845.  exg a0,a1
  11846. .ok23:
  11847.  
  11848.  cmp.l Samp1endRIGHT,a0
  11849.  blt.s notoffendsamp3
  11850.  move.l #empty,a0
  11851.  move.l #emptyend,Samp1endRIGHT
  11852.  move.b #0,vol1right
  11853.  st RIGHTCHANDATA+1+4
  11854.  move.w #0,RIGHTCHANDATA+2+4
  11855. notoffendsamp3:
  11856.  
  11857.  cmp.l Samp3endRIGHT,a1
  11858.  blt.s notoffendsamp4
  11859.  move.l #empty,a1
  11860.  move.l #emptyend,Samp3endRIGHT
  11861.  move.b #0,vol3right
  11862.  st RIGHTCHANDATA+1+12
  11863.  move.w #0,RIGHTCHANDATA+2+12
  11864. notoffendsamp4:
  11865.  
  11866.  move.l a0,pos1RIGHT
  11867.  move.l a1,pos3RIGHT
  11868.  
  11869.  movem.l (a7)+,d0-d7/a0-a6
  11870. ; tst.b counting
  11871. ; beq .nostartcounter
  11872. ; JSR STARTCOUNT
  11873. ;.nostartcounter:
  11874.  
  11875.  move.w #$820f,$dff000+dmacon
  11876.  
  11877.  moveq #0,d0
  11878.  rts
  11879.  
  11880. ***********************************
  11881. * 4 channel sound routine
  11882. ***********************************
  11883.  
  11884. fourchannel:
  11885.  
  11886.  move.l #$dff000,a6
  11887.  
  11888.  tst.b LEFTCHANDATA
  11889.  bne.s NoChan0sound
  11890.  
  11891.  btst #7,intreqrl(a6)
  11892.  beq.s nofinish0
  11893. ; move.w #0,LEFTCHANDATA+2
  11894. ; st LEFTCHANDATA+1
  11895.  move.l #null,$a0(a6)
  11896.  move.w #100,$a4(a6) 
  11897.  move.w #$0080,intreq(a6)
  11898. nofinish0:
  11899.  
  11900.  tst.b NoiseMade0pLEFT
  11901.  beq.s NoChan0sound
  11902.  
  11903.  move.l Samp0endLEFT,d0
  11904.  move.l pos0LEFT,d1
  11905.  sub.l d1,d0
  11906.  lsr.l #1,d0
  11907.  move.w d0,$a4(a6)
  11908.  move.l d1,$a0(a6)
  11909.  ext.l d0
  11910.  divs #100,d0
  11911.  move.w d0,playnull0
  11912.  move.w #$8201,dmacon(a6)
  11913.  moveq #0,d0
  11914.  move.b vol0left,d0
  11915.  move.w d0,$a8(a6)
  11916.  
  11917. NoChan0sound:
  11918.  
  11919. *****************************************
  11920. *****************************************
  11921.  
  11922.  btst #0,intreqr(a6)
  11923.  beq.s nofinish1
  11924.  move.l #null,$b0(a6)
  11925.  move.w #100,$b4(a6)
  11926.  move.w #$0100,intreq(a6)
  11927. nofinish1:
  11928.  
  11929.  tst.b NoiseMade0pRIGHT
  11930.  beq.s NoChan1sound
  11931.  
  11932.  move.l Samp0endRIGHT,d0
  11933.  move.l pos0RIGHT,d1
  11934.  sub.l d1,d0
  11935.  lsr.l #1,d0
  11936.  move.w d0,$b4(a6)
  11937.  move.l d1,$b0(a6)
  11938.  ext.l d0
  11939.  divs #100,d0
  11940.  move.w d0,playnull1
  11941.  move.w #$8202,dmacon(a6)
  11942.  moveq #0,d0
  11943.  move.b vol0right,d0
  11944.  move.w d0,$b8(a6)
  11945.  
  11946. NoChan1sound:
  11947.  
  11948. *****************************************
  11949. *****************************************
  11950.  
  11951.  btst #1,intreqr(a6)
  11952.  beq.s nofinish2
  11953.  move.l #null,$c0(a6)
  11954.  move.w #100,$c4(a6)
  11955.  move.w #$0200,intreq(a6)
  11956. nofinish2:
  11957.  
  11958.  tst.b NoiseMade1pRIGHT
  11959.  beq.s NoChan2sound
  11960.  
  11961.  move.l Samp1endRIGHT,d0
  11962.  move.l pos1RIGHT,d1
  11963.  sub.l d1,d0
  11964.  lsr.l #1,d0
  11965.  move.w d0,$c4(a6)
  11966.  ext.l d0
  11967.  divs #100,d0
  11968.  move.w d0,playnull2
  11969.  
  11970.  move.l d1,$c0(a6)
  11971.  move.w #$8204,dmacon(a6)
  11972.  moveq #0,d0
  11973.  move.b vol1right,d0
  11974.  move.w d0,$c8(a6)
  11975.  
  11976. NoChan2sound:
  11977.  
  11978. *****************************************
  11979. *****************************************
  11980.  
  11981.  btst #2,intreqr(a6)
  11982.  beq.s nofinish3
  11983.  move.l #null,$d0(a6)
  11984.  move.w #100,$d4(a6)
  11985.  move.w #$0400,intreq(a6)
  11986. nofinish3:
  11987.  
  11988.  tst.b NoiseMade1pLEFT
  11989.  beq.s NoChan3sound
  11990.  
  11991.  move.l Samp1endLEFT,d0
  11992.  move.l pos1LEFT,d1
  11993.  sub.l d1,d0
  11994.  lsr.l #1,d0
  11995.  move.w d0,$d4(a6)
  11996.  ext.l d0
  11997.  divs #100,d0
  11998.  move.w d0,playnull3
  11999.  move.l d1,$d0(a6)
  12000.  move.w #$8208,dmacon(a6)
  12001.  moveq #0,d0
  12002.  move.b vol1left,d0
  12003.  move.w d0,$d8(a6)
  12004.  
  12005. NoChan3sound:
  12006.  
  12007. nomorechannels:
  12008.  
  12009.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  12010.  move.l #0,NoiseMade0LEFT
  12011.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  12012.  move.l #0,NoiseMade0RIGHT
  12013.  
  12014. ; tst.b playnull0
  12015. ; beq.s .nnul
  12016. ; sub.b #1,playnull0
  12017. ; bra.s chan0still
  12018. ;.nnul:
  12019. ; 
  12020. ;chan0still:
  12021.  
  12022.  tst.b NoiseMade0pLEFT
  12023.  bne.s chan0still
  12024.  tst.w playnull0
  12025.  beq.s nnul0
  12026.  sub.w #1,playnull0
  12027.  bra.s chan0still
  12028. nnul0:
  12029.  move.w #0,LEFTCHANDATA+2
  12030.  st LEFTCHANDATA+1
  12031. chan0still:
  12032.  
  12033.  tst.b NoiseMade0pRIGHT
  12034.  bne.s chan1still    ;it'll never work
  12035.  tst.w playnull1
  12036.  beq.s nnul1
  12037.  sub.w #1,playnull1
  12038.  bra.s chan1still
  12039. nnul1:
  12040.  move.w #0,RIGHTCHANDATA+2
  12041.  st RIGHTCHANDATA+1
  12042. chan1still:
  12043.  
  12044.  tst.b NoiseMade1pRIGHT
  12045.  bne.s chan2still
  12046.  tst.w playnull2
  12047.  beq.s nnul2
  12048.  sub.w #1,playnull2
  12049.  bra.s chan2still
  12050. nnul2:
  12051.  move.w #0,RIGHTCHANDATA+2+4
  12052.  st RIGHTCHANDATA+1+4
  12053. chan2still:
  12054.  
  12055.  tst.b NoiseMade1pLEFT
  12056.  bne.s chan3still
  12057.  tst.w playnull3
  12058.  beq.s nnul3
  12059.  sub.w #1,playnull3
  12060.  bra.s chan3still
  12061. nnul3:
  12062.  move.w #0,LEFTCHANDATA+2+4
  12063.  st LEFTCHANDATA+1+4
  12064.  
  12065. chan3still:
  12066.  
  12067.  
  12068.  movem.l (a7)+,d0-d7/a0-a6
  12069.  
  12070.  moveq #0,d0
  12071.  rts
  12072.  
  12073. backbeat: dc.w 0
  12074.  
  12075. playnull0: dc.w 0
  12076. playnull1: dc.w 0
  12077. playnull2: dc.w 0
  12078. playnull3: dc.w 0
  12079.  
  12080. Samp0endRIGHT: dc.l emptyend
  12081. Samp1endRIGHT: dc.l emptyend
  12082. Samp2endRIGHT: dc.l emptyend
  12083. Samp3endRIGHT: dc.l emptyend
  12084. Samp0endLEFT: dc.l emptyend
  12085. Samp1endLEFT: dc.l emptyend
  12086. Samp2endLEFT: dc.l emptyend
  12087. Samp3endLEFT: dc.l emptyend
  12088.  
  12089. Aupt0: dc.l null
  12090. Auback0: dc.l null+500
  12091. Aupt2: dc.l null3
  12092. Auback2: dc.l null3+500
  12093. Aupt3: dc.l null4
  12094. Auback3: dc.l null4+500
  12095. Aupt1: dc.l null2
  12096. Auback1: dc.l null2+500
  12097.  
  12098. NoiseMade0LEFT: dc.b 0
  12099. NoiseMade1LEFT: dc.b 0
  12100. NoiseMade2LEFT: dc.b 0
  12101. NoiseMade3LEFT: dc.b 0
  12102. NoiseMade0pLEFT: dc.b 0
  12103. NoiseMade1pLEFT: dc.b 0
  12104. NoiseMade2pLEFT: dc.b 0
  12105. NoiseMade3pLEFT: dc.b 0
  12106. NoiseMade0RIGHT: dc.b 0
  12107. NoiseMade1RIGHT: dc.b 0
  12108. NoiseMade2RIGHT: dc.b 0
  12109. NoiseMade3RIGHT: dc.b 0
  12110. NoiseMade0pRIGHT: dc.b 0
  12111. NoiseMade1pRIGHT: dc.b 0
  12112. NoiseMade2pRIGHT: dc.b 0
  12113. NoiseMade3pRIGHT: dc.b 0
  12114.  
  12115. empty: ds.l 100
  12116. emptyend:
  12117.  
  12118. **************************************
  12119. * I want a routine to calculate all the
  12120. * info needed for the sound player to
  12121. * work, given say position of noise, volume
  12122. * and sample number.
  12123.  
  12124. Samplenum: dc.w 0
  12125. Noisex: dc.w 0
  12126. Noisez: dc.w 0
  12127. Noisevol: dc.w 0
  12128. chanpick: dc.w 0
  12129. IDNUM: dc.w 0
  12130. needleft: dc.b 0
  12131. needright: dc.b 0
  12132. STEREO: dc.b $0
  12133. even
  12134. prot6: dc.w 0
  12135.  
  12136.  even
  12137.  
  12138. CHANNELDATA:
  12139. LEFTCHANDATA:
  12140.  dc.l $00000000
  12141.  dc.l $00000000
  12142.  dc.l $FF000000
  12143.  dc.l $FF000000
  12144. RIGHTCHANDATA:
  12145.  dc.l $00000000
  12146.  dc.l $00000000
  12147.  dc.l $FF000000
  12148.  dc.l $FF000000
  12149.  
  12150. RIGHTPLAYEDTAB: ds.l 20
  12151. LEFTPLAYEDTAB: ds.l 20
  12152.  
  12153. SourceEcho: dc.w 0
  12154.  
  12155. MakeSomeNoise:
  12156.  
  12157.  
  12158.  
  12159.  
  12160.  
  12161.  
  12162.  
  12163.  
  12164.  move.w #$10,$dff000+intena
  12165.  
  12166. ; Plan for new sound handler:
  12167. ; It is sent a sample number,
  12168. ; a position relative to the
  12169. ; player, an id number and a volume.
  12170. ; Also notifplaying.
  12171.     
  12172. ; indirect inputs are the available
  12173. ; channel flags and whether or not
  12174. ; stereo sound is selected.
  12175.  
  12176. ; the algorithm must decide
  12177. ; whether the new sound is more
  12178. ; important than the ones already
  12179. ; playing. Thus an 'importance'
  12180. ; must be calculated, probably
  12181. ; using volume.
  12182.  
  12183. ; The output needs to be:
  12184.  
  12185. ; Write the pointers and volumes of
  12186. ; the sound channels
  12187.  
  12188.  
  12189.  tst.b notifplaying
  12190.  beq.s dontworry
  12191.  
  12192. ; find if we are already playing
  12193.  
  12194.  move.b IDNUM,d0
  12195.  move.w #7,d1
  12196.  lea CHANNELDATA,a3
  12197. findsameasme
  12198.  tst.b (a3)
  12199.  bne.s notavail
  12200.  cmp.b 1(a3),d0
  12201.  beq SameAsMe
  12202. notavail:
  12203.  add.w #4,a3
  12204.  dbra d1,findsameasme
  12205.  bra dontworry
  12206. SameAsMe
  12207.  move.w #$8010,$dff000+intena
  12208.  rts
  12209.  
  12210. noiseloud: dc.w 0
  12211.  
  12212. dontworry:
  12213.  
  12214. ; Ok its fine for us to play a sound.
  12215. ; So calculate left/right volume.
  12216.  
  12217.  move.w Noisex,d1
  12218.  muls d1,d1
  12219.  move.w Noisez,d2
  12220.  muls d2,d2
  12221.  move.w Noisevol,d3
  12222.  move.w #32767,noiseloud
  12223.  moveq #1,d0
  12224.  add.l d1,d2
  12225.  beq pastcalc
  12226.  
  12227.  move.w #31,d0
  12228. .findhigh
  12229.  btst d0,d2
  12230.  bne .foundhigh
  12231.  dbra d0,.findhigh
  12232. .foundhigh
  12233.  asr.w #1,d0
  12234.  clr.l d3
  12235.  bset d0,d3
  12236.  move.l d3,d0
  12237.  
  12238.  move.w d0,d3
  12239.  muls d3,d3    ; x*x
  12240.  sub.l d2,d3    ; x*x-a
  12241.  asr.l #1,d3    ; (x*x-a)/2
  12242.  divs d0,d3    ; (x*x-a)/2x
  12243.  sub.w d3,d0    ; second approx
  12244.  bgt .stillnot0
  12245.  move.w #1,d0
  12246. .stillnot0
  12247.  
  12248.  move.w d0,d3
  12249.  muls d3,d3
  12250.  sub.l d2,d3
  12251.  asr.l #1,d3
  12252.  divs d0,d3
  12253.  sub.w d3,d0    ; second approx
  12254.  bgt .stillnot02
  12255.  move.w #1,d0
  12256. .stillnot02
  12257.  
  12258.  move.w Noisevol,d3
  12259.  ext.l d3
  12260.  asl.l #6,d3
  12261.  cmp.l #32767,d3
  12262.  ble.s .nnnn
  12263.  move.l #32767,d3
  12264. .nnnn
  12265.  
  12266.  asr.w #2,d0
  12267.  addq #1,d0
  12268.  divs d0,d3
  12269.  
  12270. pastcalc:
  12271.  move.w d3,noiseloud
  12272.  
  12273.  cmp.w #64,d3
  12274.  ble.s notooloud
  12275.  move.w #64,d3
  12276. notooloud:
  12277.  
  12278.     ; d3 contains volume of noise.
  12279.     
  12280.  move.w d3,d4
  12281.  tst.b STEREO
  12282.  beq NOSTEREO
  12283.  
  12284.  move.w d3,d2
  12285.  muls Noisex,d2
  12286.  asl.w #2,d0
  12287.  divs d0,d2
  12288.  
  12289.  bgt.s quietleft
  12290.  add.w d2,d4
  12291.  bge.s donequiet
  12292.  move.w #0,d4
  12293.  bra.s donequiet
  12294. quietleft:
  12295.  sub.w d2,d3
  12296.  bge.s donequiet
  12297.  move.w #0,d3
  12298. donequiet:
  12299.  
  12300. ; d3=leftvol?
  12301. ; d4=rightvol?
  12302.  
  12303.  clr.w needleft
  12304.  
  12305.  cmp.b d3,d4
  12306.  bgt.s RightLouder
  12307.  
  12308. ; Left is louder; is it MUCH louder?
  12309.  
  12310.  st needleft
  12311.  move.w d3,d2
  12312.  sub.w d4,d2
  12313.  cmp.w #32,d2
  12314.  slt needright
  12315.  bra aboutsame
  12316.  
  12317. RightLouder:
  12318.  st needright
  12319.  move.w d4,d2
  12320.  sub.w d3,d2
  12321.  cmp.w #32,d2
  12322.  slt needleft
  12323.  
  12324. aboutsame:
  12325.  
  12326.  
  12327. ; Find least important sound on left
  12328.  
  12329.  move.l #0,a2
  12330.  move.l #0,d5
  12331.  move.w #32767,d2
  12332.  move.b IDNUM,d0
  12333.  lea LEFTCHANDATA,a3
  12334.  move.w #3,d1
  12335. FindLeftChannel
  12336.  tst.b (a3)
  12337.  bne.s .notactive
  12338.  cmp.b 1(a3),d0
  12339.  beq.s FOUNDLEFT
  12340.  cmp.w 2(a3),d2
  12341.  blt.s .notactive
  12342.  move.w 2(a3),d2
  12343.  move.l a3,a2
  12344.  move.w d5,d6
  12345.  
  12346. .notactive:
  12347.  add.w #4,a3
  12348.  add.w #1,d5
  12349.  dbra d1,FindLeftChannel
  12350.  move.l a2,a3
  12351.  bra.s gopastleft
  12352. FOUNDLEFT:
  12353.  move.w d5,d6
  12354. gopastleft:
  12355.  move.l a3,d5
  12356.  tst.l d5
  12357.  bne.s FOUNDALEFT
  12358. NONOISE:
  12359.  move.w #$8010,$dff000+intena
  12360.  rts
  12361. FOUNDALEFT:
  12362.  
  12363.  cmp.w noiseloud,d3
  12364.  bge.s NONOISE
  12365.  
  12366. ; d6 = channel number
  12367.  move.b d0,1(a3)
  12368.  move.w d3,2(a3)
  12369.  
  12370.  move.w Samplenum,d5
  12371.  
  12372.  tst.b Echo
  12373.  bne.s YESECHO
  12374.  tst.b SourceEcho
  12375.  beq.s NOECHO
  12376.  
  12377. YESECHO:
  12378.  
  12379.  move.l LINKFILE,a3
  12380.  add.l #EchoTable,a3
  12381.  move.b (a3,d5.w),d5
  12382.  
  12383. NOECHO:
  12384.  
  12385.  move.l #SampleList,a3
  12386.  move.l (a3,d5.w*8),a1
  12387.  move.l 4(a3,d5.w*8),a2
  12388.  
  12389.  tst.b d6
  12390.  seq NoiseMade0LEFT
  12391.  beq.s .chan0
  12392.  cmp.b #2,d6
  12393.  slt NoiseMade1LEFT
  12394.  blt .chan1
  12395.  seq NoiseMade2LEFT
  12396.  beq .chan2
  12397.  st NoiseMade3LEFT
  12398.  
  12399.  move.b d5,LEFTPLAYEDTAB+9
  12400.  move.b d3,LEFTPLAYEDTAB+1+9
  12401.  move.b d4,LEFTPLAYEDTAB+2+9
  12402.  move.b d3,vol3left
  12403.  move.l a1,pos3LEFT
  12404.  move.l a2,Samp3endLEFT
  12405.  bra dorightchan
  12406.  
  12407. .chan0: 
  12408.  move.b d5,LEFTPLAYEDTAB
  12409.  move.b d3,LEFTPLAYEDTAB+1
  12410.  move.b d4,LEFTPLAYEDTAB+2
  12411.  move.l a1,pos0LEFT
  12412.  move.l a2,Samp0endLEFT
  12413.  move.b d3,vol0left
  12414.  bra dorightchan
  12415.  
  12416. .chan1:
  12417.  move.b d5,LEFTPLAYEDTAB+3
  12418.  move.b d3,LEFTPLAYEDTAB+1+3
  12419.  move.b d4,LEFTPLAYEDTAB+2+3
  12420.  move.b d3,vol1left
  12421.  move.l a1,pos1LEFT
  12422.  move.l a2,Samp1endLEFT
  12423.  bra dorightchan
  12424.  
  12425. .chan2: 
  12426.  move.b d5,LEFTPLAYEDTAB+6
  12427.  move.b d3,LEFTPLAYEDTAB+1+6
  12428.  move.b d4,LEFTPLAYEDTAB+2+6
  12429.  move.l a1,pos2LEFT
  12430.  move.l a2,Samp2endLEFT
  12431.  move.b d3,vol2left
  12432.  
  12433. dorightchan:
  12434.  
  12435. ; Find least important sound on right
  12436.  
  12437.  move.l #0,a2
  12438.  move.l #0,d5
  12439.  move.w #10000,d2
  12440.  move.b IDNUM,d0
  12441.  lea RIGHTCHANDATA,a3
  12442.  move.w #3,d1
  12443. FindRightChannel
  12444.  tst.b (a3)
  12445.  bne.s .notactive
  12446.  cmp.b 1(a3),d0
  12447.  beq.s FOUNDRIGHT
  12448.  cmp.w 2(a3),d2
  12449.  blt.s .notactive
  12450.  move.w 2(a3),d2
  12451.  move.l a3,a2
  12452.  move.w d5,d6
  12453.  
  12454. .notactive:
  12455.  add.w #4,a3
  12456.  add.w #1,d5
  12457.  dbra d1,FindRightChannel
  12458.  move.l a2,a3
  12459.  bra.s gopastright
  12460. FOUNDRIGHT:
  12461.  move.w d5,d6
  12462. gopastright:
  12463.  move.l a3,d5
  12464.  tst.l d5
  12465.  bne.s FOUNDARIGHT
  12466.  move.w #$8010,$dff000+intena
  12467.  rts
  12468. FOUNDARIGHT:
  12469.  
  12470. ; d6 = channel number
  12471.  move.b d0,1(a3)
  12472.  move.w d3,2(a3)
  12473.  
  12474.  move.w Samplenum,d5
  12475.  move.l #SampleList,a3
  12476.  move.l (a3,d5.w*8),a1
  12477.  move.l 4(a3,d5.w*8),a2
  12478.  
  12479.  tst.b d6
  12480.  seq NoiseMade0RIGHT
  12481.  beq.s .chan0
  12482.  cmp.b #2,d6
  12483.  slt NoiseMade1RIGHT
  12484.  blt .chan1
  12485.  seq NoiseMade2RIGHT
  12486.  beq .chan2
  12487.  st NoiseMade3RIGHT
  12488.  
  12489.  move.b d5,RIGHTPLAYEDTAB+9
  12490.  move.b d3,RIGHTPLAYEDTAB+1+9
  12491.  move.b d4,RIGHTPLAYEDTAB+2+9
  12492.  move.b d4,vol3right
  12493.  move.l a1,pos3RIGHT
  12494.  move.l a2,Samp3endRIGHT
  12495.  move.w #$8010,$dff000+intena
  12496.  rts
  12497.  
  12498. .chan0: 
  12499.  move.b d5,RIGHTPLAYEDTAB
  12500.  move.b d3,RIGHTPLAYEDTAB+1
  12501.  move.b d4,RIGHTPLAYEDTAB+2
  12502.  move.l a1,pos0RIGHT
  12503.  move.l a2,Samp0endRIGHT
  12504.  move.b d4,vol0right
  12505.  move.w #$8010,$dff000+intena
  12506.  rts
  12507.  
  12508. .chan1:
  12509.  move.b d5,RIGHTPLAYEDTAB+3
  12510.  move.b d3,RIGHTPLAYEDTAB+1+3
  12511.  move.b d4,RIGHTPLAYEDTAB+2+3
  12512.  move.b d3,vol1right
  12513.  move.l a1,pos1RIGHT
  12514.  move.l a2,Samp1endRIGHT
  12515.  move.w #$8010,$dff000+intena
  12516.  rts
  12517.  
  12518. .chan2: 
  12519.  move.b d5,RIGHTPLAYEDTAB+6
  12520.  move.b d3,RIGHTPLAYEDTAB+1+6
  12521.  move.b d4,RIGHTPLAYEDTAB+2+6
  12522.  move.l a1,pos2RIGHT
  12523.  move.l a2,Samp2endRIGHT
  12524.  move.b d3,vol2right
  12525.  move.w #$8010,$dff000+intena
  12526.  rts
  12527.  
  12528. NOSTEREO:
  12529.  move.l #0,a2
  12530.  move.l #-1,d5
  12531.  move.w #32767,d2
  12532.  move.b IDNUM,d0
  12533.  lea CHANNELDATA,a3
  12534.  move.w #7,d1
  12535.  moveq #-1,d6
  12536.  
  12537. FindChannel
  12538.  tst.b (a3)
  12539.  bne.s .notactive
  12540.  cmp.b 1(a3),d0
  12541.  beq.s FOUNDMYCHAN
  12542.  cmp.w 2(a3),d2
  12543.  blt.s .notactive
  12544.  move.w 2(a3),d2
  12545.  move.l a3,a2
  12546.  move.w d5,d6
  12547.  add.w #1,d6
  12548.  
  12549. .notactive:
  12550.  add.w #4,a3
  12551.  add.w #1,d5
  12552.  dbra d1,FindChannel
  12553.  
  12554.  move.l a2,a3
  12555.  bra.s gopastchan
  12556.  
  12557. FOUNDMYCHAN:
  12558.  move.w 2(a3),d2
  12559.  
  12560. FOUNDCHAN:
  12561.  move.w d5,d6
  12562.  add.w #1,d6
  12563. gopastchan:
  12564.  tst.w d6
  12565.  bge.s FOUNDACHAN
  12566. tooquiet:
  12567.  move.w #$8010,$dff000+intena
  12568.  rts
  12569. FOUNDACHAN:
  12570.  
  12571. ; d6 = channel number
  12572.  
  12573.  cmp.w noiseloud,d2
  12574.  bgt.s tooquiet
  12575.  
  12576.  move.b d0,1(a3)
  12577.  move.w noiseloud,2(a3)
  12578.  
  12579.  move.w Samplenum,d5
  12580.  
  12581.  tst.b Echo
  12582.  bne.s YESECHO2
  12583.  tst.b SourceEcho
  12584.  beq.s NOECHO2
  12585.  
  12586. YESECHO2:
  12587.  
  12588.  move.l LINKFILE,a3
  12589.  add.l #EchoTable,a3
  12590.  move.b (a3,d5.w),d5
  12591.  
  12592. NOECHO2:
  12593.  
  12594.  move.l #SampleList,a3
  12595.  move.l (a3,d5.w*8),a1
  12596.  move.l 4(a3,d5.w*8),a2
  12597.  
  12598.  tst.b d6
  12599.  beq .chan0
  12600.  cmp.b #2,d6
  12601.  blt .chan1
  12602.  beq .chan2
  12603.  cmp.b #4,d6
  12604.  blt .chan3
  12605.  beq .chan4
  12606.  cmp.b #6,d6
  12607.  blt .chan5
  12608.  beq .chan6
  12609.  st NoiseMade3RIGHT
  12610.  
  12611.  move.b d5,RIGHTPLAYEDTAB+9
  12612.  move.b d3,RIGHTPLAYEDTAB+1+9
  12613.  move.b d4,RIGHTPLAYEDTAB+2+9
  12614.  move.b d4,vol3right
  12615.  move.l a1,pos3RIGHT
  12616.  move.l a2,Samp3endRIGHT
  12617.  move.w #$8010,$dff000+intena
  12618.  rts
  12619.  
  12620. .chan3:
  12621.  st NoiseMade3LEFT
  12622.  move.b d5,LEFTPLAYEDTAB+9
  12623.  move.b d3,LEFTPLAYEDTAB+1+9
  12624.  move.b d4,LEFTPLAYEDTAB+2+9
  12625.  move.b d3,vol3left
  12626.  move.l a1,pos3LEFT
  12627.  move.l a2,Samp3endLEFT
  12628.  move.w #$8010,$dff000+intena
  12629.  rts
  12630.  
  12631. .chan0: 
  12632.  st NoiseMade0LEFT
  12633.  move.b d5,LEFTPLAYEDTAB
  12634.  move.b d3,LEFTPLAYEDTAB+1
  12635.  move.b d4,LEFTPLAYEDTAB+2
  12636.  move.l a1,pos0LEFT
  12637.  move.l a2,Samp0endLEFT
  12638.  move.b d3,vol0left
  12639.  move.w #$8010,$dff000+intena
  12640.  rts
  12641.  
  12642. .chan1:
  12643.  st NoiseMade1LEFT
  12644.  move.b d5,LEFTPLAYEDTAB+3
  12645.  move.b d3,LEFTPLAYEDTAB+1+3
  12646.  move.b d4,LEFTPLAYEDTAB+2+3
  12647.  move.b d3,vol1left
  12648.  move.l a1,pos1LEFT
  12649.  move.l a2,Samp1endLEFT
  12650.  move.w #$8010,$dff000+intena
  12651.  rts
  12652.  
  12653. .chan2: 
  12654.  st NoiseMade2LEFT
  12655.  move.b d5,LEFTPLAYEDTAB+6
  12656.  move.b d3,LEFTPLAYEDTAB+1+6
  12657.  move.b d4,LEFTPLAYEDTAB+2+6
  12658.  move.l a1,pos2LEFT
  12659.  move.l a2,Samp2endLEFT
  12660.  move.b d3,vol2left
  12661.  move.w #$8010,$dff000+intena
  12662.  rts
  12663.  
  12664. .chan4: 
  12665.  st NoiseMade0RIGHT
  12666.  move.b d5,RIGHTPLAYEDTAB
  12667.  move.b d3,RIGHTPLAYEDTAB+1
  12668.  move.b d4,RIGHTPLAYEDTAB+2
  12669.  move.l a1,pos0RIGHT
  12670.  move.l a2,Samp0endRIGHT
  12671.  move.b d4,vol0right
  12672.  move.w #$8010,$dff000+intena
  12673.  rts
  12674.  
  12675. .chan5:
  12676.  st NoiseMade1RIGHT
  12677.  move.b d5,RIGHTPLAYEDTAB+3
  12678.  move.b d3,RIGHTPLAYEDTAB+1+3
  12679.  move.b d4,RIGHTPLAYEDTAB+2+3
  12680.  move.b d3,vol1right
  12681.  move.l a1,pos1RIGHT
  12682.  move.l a2,Samp1endRIGHT
  12683.  move.w #$8010,$dff000+intena
  12684.  rts
  12685.  
  12686. .chan6: 
  12687.  st NoiseMade2RIGHT
  12688.  move.b d5,RIGHTPLAYEDTAB+6
  12689.  move.b d3,RIGHTPLAYEDTAB+1+6
  12690.  move.b d4,RIGHTPLAYEDTAB+2+6
  12691.  move.l a1,pos2RIGHT
  12692.  move.l a2,Samp2endRIGHT
  12693.  move.b d3,vol2right
  12694.  move.w #$8010,$dff000+intena
  12695.  rts
  12696.  
  12697. SampleList:
  12698.  dc.l Scream,EndScream
  12699.  dc.l Shoot,EndShoot
  12700.  dc.l Munch,EndMunch
  12701.  dc.l PooGun,EndPooGun
  12702.  dc.l Collect,EndCollect
  12703. ;5
  12704.  dc.l DoorNoise,EndDoorNoise
  12705.  dc.l 0,0
  12706.  dc.l Stomp,EndStomp
  12707.  dc.l LowScream,EndLowScream
  12708.  dc.l BaddieGun,EndBaddieGun
  12709. ;10
  12710.  dc.l SwitchNoise,EndSwitch
  12711.  dc.l Reload,EndReload
  12712.  dc.l NoAmmo,EndNoAmmo
  12713.  dc.l Splotch,EndSplotch
  12714.  dc.l SplatPop,EndSplatPop
  12715. ;15
  12716.  dc.l Boom,EndBoom
  12717.  dc.l Hiss,EndHiss
  12718.  dc.l Howl1,EndHowl1
  12719.  dc.l Howl2,EndHowl2
  12720.  dc.l Pant,EndPant
  12721. ;20
  12722.  dc.l Whoosh,EndWhoosh
  12723.  dc.l ROAR,EndROAR
  12724.  dc.l whoosh,Endwhoosh
  12725.  dc.l 0,0
  12726.  dc.l 0,0
  12727.  dc.l 0,0
  12728.  dc.l 0,0
  12729.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12730.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12731.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12732.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12733.  
  12734.  dc.l 0
  12735.  
  12736. storeval: dc.w 0
  12737.  
  12738.  include "ab3:source_4000/wallchunk.s"
  12739.  include "ab3:source_4000/newloadfromdisk.s"
  12740.  include "ab3:source_4000/screensetup.s"
  12741.  include "ab3:source_4000/CONTROLLOOP.s"
  12742.  
  12743.  
  12744.  
  12745.  
  12746. saveinters:  
  12747.  dc.w 0
  12748.  
  12749. z: dc.w 10
  12750.  
  12751. notifplaying:
  12752.  dc.w 0
  12753.  
  12754. audpos1: dc.w 0
  12755. audpos1b: dc.w 0
  12756. audpos2: dc.w 0
  12757. audpos2b: dc.w 0
  12758. audpos3: dc.w 0
  12759. audpos3b: dc.w 0
  12760. audpos4: dc.w 0
  12761. audpos4b: dc.w 0
  12762.  
  12763. vol0left: dc.w 0
  12764. vol0right: dc.w 0
  12765. vol1left: dc.w 0
  12766. vol1right: dc.w 0
  12767. vol2left: dc.w 0
  12768. vol2right: dc.w 0
  12769. vol3left: dc.w 0
  12770. vol3right: dc.w 0
  12771.  
  12772. pos: dc.l 0
  12773.  
  12774. pos0LEFT: dc.l empty
  12775. pos1LEFT: dc.l empty
  12776. pos2LEFT: dc.l empty
  12777. pos3LEFT: dc.l empty
  12778. pos0RIGHT: dc.l empty
  12779. pos1RIGHT: dc.l empty
  12780. pos2RIGHT: dc.l empty
  12781. pos3RIGHT: dc.l empty
  12782.  
  12783. numtodo dc.w 0
  12784.  
  12785. npt: dc.w 0
  12786.  
  12787. pretab:
  12788. val SET 0
  12789.  REPT 128
  12790.  dc.b val
  12791. val SET val+1
  12792.  ENDR
  12793. val SET -128
  12794.  REPT 128
  12795.  dc.b val
  12796. val SET val+1
  12797.  ENDR 
  12798.  
  12799. tab:
  12800.  ifeq CHEESEY
  12801.  ds.b 256*65
  12802.  endc
  12803.  
  12804. test: dc.l 0
  12805.  ds.l 30
  12806.  
  12807.  
  12808.  even
  12809. ConstCols:
  12810. ; incbin "ConstCols"
  12811.  even
  12812. Smoothscalecols:
  12813. ; incbin "smoothbumppalscaled"
  12814.  even
  12815. SmoothTile:
  12816. ; incbin "smoothbumptile"
  12817.  even
  12818. Bumpscalecols:
  12819. ; incbin "Bumppalscaled"
  12820.  even
  12821. Bumptile:
  12822. ; incbin "bumptile"
  12823.  even
  12824. scalecols: ;incbin "bytepixpalscaled"
  12825.  even
  12826. ;floorscalecols:
  12827. ; incbin "floor256pal"
  12828. ; ds.w 256*4
  12829.  
  12830.  even
  12831. PaletteAddr: dc.l 0
  12832. ChunkAddr: dc.l 0
  12833. ;walltiles:
  12834. ; dc.l GreenMechanicWALL
  12835. ; dc.l BlueGreyMetalWALL
  12836. ; dc.l TechnoDetailWALL
  12837. ; dc.l BlueStoneWALL
  12838. ; dc.l RedAlertWALL
  12839. ; dc.l RockWALL
  12840. ;
  12841. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  12842. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  12843. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  12844. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  12845. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  12846. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  12847.  
  12848. floortile:
  12849.  dc.l 0
  12850. ; incbin "floortile" 
  12851.  even
  12852. wallrouts:
  12853. ; incbin "2x2WallDraw" 
  12854.  CNOP 0,64
  12855.  
  12856.  ifeq CHEESEY 
  12857. BackPicture:
  12858.  dc.l 0
  12859. ; incbin "rawback"
  12860. EndBackPicture:
  12861.  endc
  12862.  
  12863. drawpt: dc.l 0
  12864. olddrawpt: dc.l 0
  12865. frompt: dc.l 0 
  12866.  
  12867. SineTable:
  12868.  incbin "bigsine"
  12869.  
  12870. angspd: dc.w 0
  12871. flooryoff: dc.w 0
  12872. xoff: dc.l 0
  12873. yoff: dc.l 0
  12874. yvel: dc.l 0
  12875. zoff: dc.l 0
  12876. tyoff: dc.l 0
  12877. xspdval: dc.l 0
  12878. zspdval: dc.l 0
  12879. Zone: dc.w 0
  12880.  
  12881. PLR1: dc.b $ff
  12882.  even
  12883. PLR1_energy: dc.w 191
  12884. PLR1_GunSelected: dc.w 0
  12885. PLR1_cosval: dc.w 0
  12886. PLR1_sinval: dc.w 0
  12887. PLR1_angpos: dc.w 0
  12888. PLR1_angspd: dc.w 0
  12889. PLR1_xoff: dc.l 0
  12890. PLR1_yoff: dc.l 0
  12891. PLR1_yvel: dc.l 0
  12892. PLR1_zoff: dc.l 0
  12893. PLR1_tyoff: dc.l 0
  12894. PLR1_xspdval: dc.l 0
  12895. PLR1_zspdval: dc.l 0
  12896. PLR1_Zone: dc.w 0
  12897. PLR1_Roompt: dc.l 0
  12898. PLR1_FloorSpd: dc.l 0
  12899. PLR2_FloorSpd: dc.l 0
  12900. PLR1_OldRoompt: dc.l 0
  12901. PLR1_PointsToRotatePtr: dc.l 0
  12902. PLR1_ListOfGraphRooms: dc.l 0
  12903. PLR1_oldxoff: dc.l 0
  12904. PLR1_oldzoff: dc.l 0
  12905. PLR1_StoodInTop: dc.b 0
  12906.  even
  12907. PLR1_height: dc.l 0
  12908. PLR1_RoomBright: dc.w 0
  12909.  
  12910. DOUBLEWIDTH: dc.b $0,0
  12911. DOUBLEHEIGHT: dc.b 0,0
  12912. PLR1_TELEPORTED: dc.w 0
  12913. PLR2_TELEPORTED: dc.w 0
  12914.  
  12915.  ds.w 4
  12916.  
  12917. OLDX1: dc.l 0
  12918. OLDX2: dc.l 0
  12919. OLDZ1: dc.l 0
  12920. OLDZ2: dc.l 0
  12921.  
  12922. XDIFF1: dc.l 0
  12923. ZDIFF1: dc.l 0
  12924. XDIFF2: dc.l 0
  12925. ZDIFF2: dc.l 0
  12926.  
  12927. PLR1s_cosval: dc.w 0
  12928. PLR1s_sinval: dc.w 0
  12929. PLR1s_angpos: dc.w 0
  12930. PLR1s_angspd: dc.w 0
  12931. PLR1s_xoff: dc.l 0
  12932. PLR1s_yoff: dc.l 0
  12933. PLR1s_yvel: dc.l 0
  12934. PLR1s_zoff: dc.l 0
  12935. PLR1s_tyoff: dc.l 0
  12936. PLR1s_xspdval: dc.l 0
  12937. PLR1s_zspdval: dc.l 0
  12938. PLR1s_Zone: dc.w 0
  12939. PLR1s_Roompt: dc.l 0
  12940. PLR1s_OldRoompt: dc.l 0
  12941. PLR1s_PointsToRotatePtr: dc.l 0
  12942. PLR1s_ListOfGraphRooms: dc.l 0
  12943. PLR1s_oldxoff: dc.l 0
  12944. PLR1s_oldzoff: dc.l 0
  12945. PLR1s_height: dc.l 0
  12946. PLR1s_targheight: dc.l 0
  12947.  
  12948. PLR1_Echo: dc.w 0
  12949.  
  12950. p1_xoff: dc.l 0
  12951. p1_zoff: dc.l 0
  12952. p1_yoff: dc.l 0
  12953. p1_height: dc.l 0
  12954. p1_angpos: dc.w 0
  12955. p1_bobble: dc.w 0
  12956. p1_clicked: dc.b 0
  12957. p1_spctap: dc.b 0
  12958. p1_ducked: dc.b 0
  12959. p1_gunselected: dc.b 0
  12960. p1_fire: dc.b 0
  12961.  even
  12962. p1_holddown: dc.w 0
  12963.  
  12964.  ds.w 4
  12965.  
  12966. PLR2: dc.b $ff
  12967.  even
  12968. PLR2_GunSelected: dc.w 0
  12969. PLR2_energy: dc.w 191
  12970. PLR2_cosval: dc.w 0
  12971. PLR2_sinval: dc.w 0
  12972. PLR2_angpos: dc.w 0
  12973. PLR2_angspd: dc.w 0
  12974. PLR2_xoff: dc.l 0
  12975. PLR2_yoff: dc.l 0
  12976. PLR2_yvel: dc.l 0
  12977. PLR2_zoff: dc.l 0
  12978. PLR2_tyoff: dc.l 0
  12979. PLR2_xspdval: dc.l 0
  12980. PLR2_zspdval: dc.l 0
  12981. PLR2_Zone: dc.w 0
  12982. PLR2_Roompt: dc.l 0
  12983. PLR2_OldRoompt: dc.l 0
  12984. PLR2_PointsToRotatePtr: dc.l 0
  12985. PLR2_ListOfGraphRooms: dc.l 0
  12986. PLR2_oldxoff: dc.l 0
  12987. PLR2_oldzoff: dc.l 0
  12988. PLR2_StoodInTop: dc.b 0
  12989.  even
  12990. PLR2_height: dc.l 0
  12991. PLR2_Echo: dc.w 0
  12992. Echo: dc.w 0
  12993.  
  12994.  ds.w 4
  12995.  
  12996. PLR2s_cosval: dc.w 0
  12997. PLR2s_sinval: dc.w 0
  12998. PLR2s_angpos: dc.w 0
  12999. PLR2s_angspd: dc.w 0
  13000. PLR2s_xoff: dc.l 0
  13001. PLR2s_yoff: dc.l 0
  13002. PLR2s_yvel: dc.l 0
  13003. PLR2s_zoff: dc.l 0
  13004. PLR2s_tyoff: dc.l 0
  13005. PLR2s_xspdval: dc.l 0
  13006. PLR2s_zspdval: dc.l 0
  13007. PLR2s_Zone: dc.w 0
  13008. PLR2s_Roompt: dc.l 0
  13009. PLR2s_OldRoompt: dc.l 0
  13010. PLR2s_PointsToRotatePtr: dc.l 0
  13011. PLR2s_ListOfGraphRooms: dc.l 0
  13012. PLR2s_oldxoff: dc.l 0
  13013. PLR2s_oldzoff: dc.l 0
  13014. PLR2s_height: dc.l 0
  13015. PLR2s_targheight: dc.l 0
  13016.  
  13017.  ds.w 4
  13018.  
  13019. p2_xoff: dc.l 0
  13020. p2_zoff: dc.l 0
  13021. p2_yoff: dc.l 0
  13022. p2_height: dc.l 0
  13023. p2_angpos: dc.w 0
  13024. p2_bobble: dc.w 0
  13025. p2_clicked: dc.b 0
  13026. p2_spctap: dc.b 0
  13027. p2_ducked: dc.b 0
  13028. p2_gunselected: dc.b 0
  13029. p2_fire: dc.b 0
  13030.  even
  13031. p2_holddown: dc.w 0
  13032.  
  13033. liftanimtab:
  13034.  
  13035. endliftanimtab:
  13036.  
  13037. glassball:
  13038. ; incbin "glassball.inc"
  13039.  
  13040. endglass
  13041. glassballpt: dc.l glassball
  13042.  
  13043. rndtab: ; incbin "randfile"
  13044. endrnd: 
  13045.  
  13046. brightanimtab:
  13047. ; dcb.w 200,20
  13048. ; dc.w 5
  13049. ; dc.w 10,20
  13050. ; dc.w 5
  13051. ; dcb.w 30,20
  13052. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  13053. ; dcb.w 40,0
  13054. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  13055. ; dcb.w 300,0
  13056. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  13057. ; dc.w -1
  13058.  
  13059. Roompt: dc.l 0
  13060. OldRoompt: dc.l 0
  13061.  
  13062. *****************************************************************
  13063.  *
  13064.  include "AB3:source_4000/LevelData2"
  13065.  *
  13066. *****************************************************************
  13067.  
  13068.  
  13069. wallpt: dc.l 0
  13070. floorpt: dc.l 0
  13071.  
  13072. Rotated:
  13073.  ds.l 2*800 
  13074. ObjRotated:
  13075.  ds.l 2*500
  13076.  
  13077. OnScreen:
  13078.  ds.l 2*800 
  13079.  
  13080. startwait: dc.w 0
  13081. endwait: dc.w 0
  13082.  
  13083. ;Faces:
  13084. ; incbin "faces2raw"
  13085.  
  13086. LINKS: dc.l 0
  13087. FLYLINKS: dc.l 0
  13088. *************************************************************
  13089.  
  13090. consttab:
  13091.  ds.b 65536
  13092.  
  13093. ; incbin "constantfile"
  13094.  
  13095. *******************************************************************
  13096.  
  13097.  
  13098.  
  13099. *********************************
  13100.  
  13101. ; include "ab3:source_4000/loadmod.a"
  13102. ; include "ab3:source_4000/proplayer.a"
  13103.  
  13104.  
  13105. darkentab: 
  13106. ;val SET 0
  13107. ; REPT 256
  13108. ; dc.b val
  13109. ;val SET val+1
  13110. ; ENDR
  13111. ; incbin "darkenfile"
  13112.  
  13113.     dc.w 0
  13114. MIDDLEX: dc.w 0
  13115. RIGHTX: dc.w 192
  13116. FULLSCR: dc.w 0
  13117.  
  13118. ;SHADINGTABLE: incbin "SHADEFILE" 
  13119.  
  13120. ******************************************
  13121. * Link file !*****************************
  13122. ******************************************
  13123.  
  13124. LINKSPACE:
  13125. ; ds.l 22500
  13126. ; incbin "ab3:includes/test.lnk"
  13127.  
  13128. LINKname:
  13129.  dc.b "TKG1:includes/test.lnk",0
  13130.  even
  13131.  
  13132. LINKFILE:
  13133.  dc.l LINKSPACE
  13134.  
  13135. ******************************************
  13136.  
  13137.  
  13138. ;brightentab:
  13139. ; incbin "brightenfile"
  13140. WorkSpace:
  13141.  ds.l 8192 
  13142. waterfile:
  13143.  incbin "waterfile"
  13144.  
  13145.  SECTION ffff,CODE_C
  13146.  
  13147. nullspr: dc.l 0
  13148.  
  13149.  cnop 0,8
  13150. ;borders:
  13151. ; incbin "newleftbord"
  13152. ; incbin "newrightbord"
  13153.  
  13154. health: 
  13155. ;incbin "healthstrip"
  13156. Ammunition: 
  13157. ;incbin "ammostrip"
  13158. healthpal: 
  13159. ;incbin "healthpal"
  13160. PanelKeys: 
  13161. ;incbin "greenkey"
  13162. ; incbin "redkey"
  13163. ; incbin "yellowkey"
  13164. ; incbin "bluekey"
  13165.  
  13166. null: ds.w 500
  13167. null2: ds.w 500
  13168. null3: ds.w 500
  13169. null4: ds.w 500
  13170.  
  13171.  
  13172. Blurbfield:
  13173.  
  13174.  dc.w bpl1ptl
  13175. bl1l: dc.w 0
  13176.  dc.w bpl1pth
  13177. bl1h: dc.w 0
  13178.  
  13179.  dc.w diwstart,$2c81
  13180.  dc.w diwstop,$1cc1
  13181.  dc.w ddfstart,$38
  13182.  dc.w ddfstop,$b8
  13183.  dc.w bplcon0,$9201
  13184.  dc.w bplcon1,0
  13185.  dc.w $106,$c40
  13186. blcols:
  13187.  dc.w col0,0
  13188.  dc.w col1,$fff
  13189.  
  13190.  dc.w $108,0
  13191.  dc.w $10a,0
  13192.  
  13193.  dc.w $ffff,$fffe
  13194.  dc.w $ffff,$fffe
  13195.  
  13196. nullline:
  13197.  ds.b 80    
  13198.  
  13199.  include "ab3:source_4000/titlecop.s"
  13200.  
  13201. bigfield:    
  13202.                 ; Start of our copper list.
  13203.  dc.w dmacon,$8020
  13204.  dc.w intreq,$8011
  13205.  dc.w $1fc,$f
  13206.  dc.w diwstart
  13207. winstart: dc.w $2c81
  13208.  dc.w diwstop
  13209. winstop: dc.w $2cc1
  13210.  dc.w ddfstart
  13211. fetchstart: dc.w $38
  13212.  dc.w ddfstop
  13213. fetchstop: dc.w $b8
  13214.  
  13215. bordercols:
  13216.  incbin "borderpal"
  13217.  
  13218.  dc.w spr0ptl
  13219. s0l:
  13220.  dc.w 0
  13221.  dc.w spr0pth
  13222. s0h:
  13223.  dc.w 0
  13224.  dc.w spr1ptl
  13225. s1l:
  13226.  dc.w 0
  13227.  dc.w spr1pth
  13228. s1h:
  13229.  dc.w 0
  13230.  dc.w spr2ptl
  13231. s2l:
  13232.  dc.w 0
  13233.  dc.w spr2pth
  13234. s2h:
  13235.  dc.w 0
  13236.  dc.w spr3ptl
  13237. s3l:
  13238.  dc.w 0
  13239.  dc.w spr3pth
  13240. s3h:
  13241.  dc.w 0
  13242.  dc.w spr4ptl
  13243. s4l:
  13244.  dc.w 0
  13245.  dc.w spr4pth
  13246. s4h:
  13247.  dc.w 0
  13248.  dc.w spr5ptl
  13249. s5l:
  13250.  dc.w 0
  13251.  dc.w spr5pth
  13252. s5h:
  13253.  dc.w 0
  13254.  dc.w spr6ptl
  13255. s6l:
  13256.  dc.w 0
  13257.  dc.w spr6pth
  13258. s6h:
  13259.  dc.w 0
  13260.  dc.w spr7ptl
  13261. s7l:
  13262.  dc.w 0
  13263.  dc.w spr7pth
  13264. s7h:
  13265.  dc.w 0
  13266.  
  13267. ; dc.w $106,$c42
  13268. ; incbin "borderpal"
  13269.  
  13270.  dc.w $106,$c42
  13271.  
  13272.  dc.w bplcon0,$0211
  13273.  dc.w bplcon1
  13274. smoff:
  13275.  dc.w $0
  13276.  
  13277.  dc.w $108
  13278. modulo: dc.w 0
  13279.  dc.w $10a,0
  13280.  
  13281.  dc.w $1001,$ff00
  13282.  dc.w intreq,$11
  13283.  
  13284. PALETTESPACE:
  13285.  dcb.l 528,$1fe0000
  13286.  
  13287.  dc.w $2001,$ff00
  13288.  
  13289.  dc.w bpl1pth
  13290. pl1h
  13291.  dc.w 0
  13292.  
  13293.  dc.w bpl1ptl
  13294. pl1l
  13295.  dc.w 0
  13296.  
  13297.  dc.w bpl2pth
  13298. pl2h
  13299.  dc.w 0
  13300.  
  13301.  dc.w bpl2ptl
  13302. pl2l
  13303.  dc.w 0
  13304.  
  13305.  dc.w bpl3pth
  13306. pl3h
  13307.  dc.w 0
  13308.  
  13309.  dc.w bpl3ptl
  13310. pl3l
  13311.  dc.w 0
  13312.  
  13313.  dc.w bpl4pth
  13314. pl4h
  13315.  dc.w 0
  13316.  
  13317.  dc.w bpl4ptl
  13318. pl4l
  13319.  dc.w 0
  13320.  
  13321.  dc.w bpl5pth
  13322. pl5h
  13323.  dc.w 0
  13324.  
  13325.  dc.w bpl5ptl
  13326. pl5l
  13327.  dc.w 0
  13328.  
  13329.  dc.w bpl6pth
  13330. pl6h
  13331.  dc.w 0
  13332.  
  13333.  dc.w bpl6ptl
  13334. pl6l
  13335.  dc.w 0
  13336.  
  13337.  dc.w bpl7pth
  13338. pl7h
  13339.  dc.w 0
  13340.  
  13341.  dc.w bpl7ptl
  13342. pl7l
  13343.  dc.w 0
  13344.  
  13345.  dc.w bpl8pth
  13346. pl8h
  13347.  dc.w 0
  13348.  
  13349.  dc.w bpl8ptl
  13350. pl8l
  13351.  dc.w 0
  13352.  
  13353.  
  13354. val SET $2c
  13355. SCRMODULOS:
  13356.  REPT 232
  13357.  dc.b val,1,$ff,$fe
  13358.  dc.w $108,0
  13359.  dc.w $10a,0
  13360.  dc.b val,$df,$ff,$fe
  13361. val SET (val+1)&$ff
  13362.  ENDR
  13363.  
  13364.  dc.w $108,0,$10a,0
  13365.  dc.w $2401,$ff00
  13366.  dc.w ddfstop,$c8
  13367.  dc.w bplcon0,$9201
  13368.  dc.w bpl1ptl
  13369. scroll:
  13370.  dc.w 0
  13371.  dc.w bpl1pth
  13372. scrolh:
  13373.  dc.w 0
  13374.  
  13375.  dc.w $106,$c40
  13376.  dc.w $180,0
  13377.  dc.w $182,$f0
  13378. ; dc.w $108,40
  13379. ; dc.w $10a,40
  13380.  
  13381. ; dc.w $80
  13382. ;JUMPBACKH:
  13383. ; dc.w 0
  13384. ; dc.w $82
  13385. ;JUMPBACKL:
  13386. ; dc.w 0
  13387.  
  13388. ; dc.w $8a,0
  13389.  
  13390.  dc.w $ffff,$fffe
  13391.  dc.w $ffff,$fffe
  13392.  
  13393. PALETTEBIT:
  13394.  incbin "256palette"
  13395.  dc.w $ffff,$fffe
  13396.  
  13397. yposcop:
  13398. ; dc.w $2a11,$fffe
  13399. ; dc.w $8a,0
  13400.  
  13401. ; ds.l 104*12
  13402.  
  13403. ;colbars:
  13404. ;val SET $2a
  13405. ; dcb.l 104*80,$1fe0000
  13406. ; dc.w $106,$c42
  13407. ; 
  13408. ; dc.w $80
  13409. ;pch1:
  13410. ; dc.w 0
  13411. ; dc.w $82
  13412. ;pcl1:
  13413. ; dc.w 0 
  13414. ; 
  13415. ; dc.w $88,0
  13416. ; 
  13417. ; dc.w $ffff,$fffe       ; End copper list.
  13418.  
  13419. ; ds.l 104*12
  13420.  
  13421.  
  13422. ;colbars2:
  13423. ;val SET $2a
  13424. ; dcb.l 104*80,$1fe0000
  13425. ; 
  13426. ; dc.w $106,$c42
  13427. ; 
  13428. ; dc.w $80
  13429. ;pch2:
  13430. ; dc.w 0
  13431. ; dc.w $82
  13432. ;pcl2:
  13433. ; dc.w 0
  13434. ; 
  13435. ; dc.w $88,0
  13436. ; 
  13437. ; dc.w $ffff,$fffe       ; End copper list.
  13438.  
  13439. ; ds.l 104*10
  13440.  
  13441. NullCopper:
  13442.  dc.w $ffff,$fffe
  13443.  
  13444. hitcol: dc.l 0
  13445.  
  13446. old: dc.l 0
  13447.  
  13448.  CNOP 0,64
  13449. SCROLLSCRN: ds.l 20*16
  13450.  
  13451. SCROLLOFFSET: dc.w 0
  13452. SCROLLTIMER: dc.w 100
  13453. SCROLLDIRECTION: dc.w 1
  13454. SCROLLXPOS: dc.w 0
  13455. SCROLLPOINTER: dc.l testscroll
  13456. ENDSCROLL: dc.l endtestscroll
  13457.  
  13458. testscroll:
  13459. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  13460. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13461. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  13462. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13463.  
  13464. BLANKSCROLL:
  13465.  dc.b "                                                                                "
  13466. endtestscroll: 
  13467.  
  13468. prot5: dc.w 0
  13469. PanelCop:
  13470.  
  13471.  dc.w $80
  13472. och:
  13473.  dc.w 0
  13474.  dc.w $82
  13475. ocl:
  13476.  dc.w 0
  13477.  
  13478. statskip:
  13479.  dc.w $1fe,0
  13480.  dc.w $1fe,0
  13481.  
  13482.  dc.w $10c,0
  13483.  dc.w bplcon0,$1201
  13484.  dc.w bpl1ptl
  13485. n1l:
  13486.  dc.w 0
  13487.  dc.w bpl1pth
  13488. n1h:
  13489.  dc.w 0
  13490.  dc.w $108,-24
  13491. ; incbin "Panelpal"
  13492.  
  13493.  dc.w bpl2pth
  13494. p2h
  13495.  dc.w 0
  13496.  
  13497.  dc.w bpl2ptl
  13498. p2l
  13499.  dc.w 0
  13500.  
  13501.  dc.w bpl3pth
  13502. p3h
  13503.  dc.w 0
  13504.  
  13505.  dc.w bpl3ptl
  13506. p3l
  13507.  dc.w 0
  13508.  
  13509.  dc.w bpl4pth
  13510. p4h
  13511.  dc.w 0
  13512.  dc.w bpl4ptl
  13513. p4l
  13514.  dc.w 0
  13515.  dc.w bpl5pth
  13516. p5h
  13517.  dc.w 0
  13518.  dc.w bpl5ptl
  13519. p5l
  13520.  dc.w 0
  13521.  dc.w bpl6pth
  13522. p6h
  13523.  dc.w 0
  13524.  dc.w bpl6ptl
  13525. p6l
  13526.  dc.w 0
  13527.  dc.w bpl7pth
  13528. p7h
  13529.  dc.w 0
  13530.  dc.w bpl7ptl
  13531. p7l
  13532.  dc.w 0
  13533.  dc.w bpl8pth
  13534. p8h
  13535.  dc.w 0
  13536.  dc.w bpl8ptl
  13537. p8l
  13538.  dc.w 0
  13539.  
  13540.  
  13541.  dc.w ddfstart,$38
  13542.  dc.w ddfstop,$b8
  13543.  dc.w diwstart,$2c81
  13544.  dc.w diwstop,$2cc1
  13545.  
  13546.  dc.w bplcon0
  13547. Panelcon: dc.w $0211
  13548.  dc.w bpl1pth
  13549. p1h
  13550.  dc.w 0
  13551.  
  13552.  dc.w bpl1ptl
  13553. p1l
  13554.  dc.w 0
  13555.  
  13556.  
  13557.  dc.w $108,40*7
  13558.  dc.w $10a,40*7
  13559.  
  13560.  dc.w $ffff,$fffe
  13561.  
  13562.  dc.w $180,$fff
  13563.  
  13564.  
  13565.  dc.w $f801,$ff00
  13566.  dc.w col1,$50
  13567.  dc.w $f901,$ff00
  13568.  dc.w col1,$90
  13569.  dc.w $fa01,$ff00
  13570.  dc.w col1,$f0
  13571.  dc.w $fb01,$ff00
  13572.  dc.w col1,$f0
  13573.  dc.w $fc01,$ff00
  13574.  dc.w col1,$90
  13575.  dc.w $fd01,$ff00
  13576.  dc.w col1,$50
  13577.  
  13578.  dc.w $fe01,$ff00
  13579.  dc.w col1,$fff
  13580.  
  13581.  dc.w $ffdf,$fffe
  13582.  dc.w $a01,$ff00
  13583.  dc.w bplcon0,$201
  13584.  
  13585. ; incbin "faces2cols"
  13586.  dc.w bpl1pth
  13587. f1h
  13588.  dc.w 0
  13589.  
  13590.  dc.w bpl1ptl
  13591. f1l
  13592.  dc.w 0
  13593.  
  13594.  dc.w bpl2pth
  13595. f2h
  13596.  dc.w 0
  13597.  
  13598.  dc.w bpl2ptl
  13599. f2l
  13600.  dc.w 0
  13601.  
  13602.  dc.w bpl3pth
  13603. f3h
  13604.  dc.w 0
  13605.  
  13606.  dc.w bpl3ptl
  13607. f3l
  13608.  dc.w 0
  13609.  
  13610.  dc.w bpl4pth
  13611. f4h
  13612.  dc.w 0
  13613.  dc.w bpl4ptl
  13614. f4l
  13615.  dc.w 0
  13616.  
  13617.  dc.w bpl5pth
  13618. f5h
  13619.  dc.w 0
  13620.  dc.w bpl5ptl
  13621. f5l
  13622.  dc.w 0
  13623.  
  13624.  dc.w $0c01,$ff00
  13625.  dc.w bplcon0,$5201
  13626.   
  13627.  dc.w $ffff,$fffe
  13628.  
  13629.  cnop 0,64
  13630. FacePlace:
  13631. ; ds.l 6*32*5
  13632.  
  13633. TEXTSCRN: dc.l 0
  13634.  
  13635. TEXTCOP:
  13636.  dc.w intreq,$8030
  13637.  
  13638.  dc.w spr0ptl
  13639. txs0l:
  13640.  dc.w 0
  13641.  dc.w spr0pth
  13642. txs0h:
  13643.  dc.w 0
  13644.  dc.w spr1ptl
  13645. txs1l:
  13646.  dc.w 0
  13647.  dc.w spr1pth
  13648. txs1h:
  13649.  dc.w 0
  13650.  dc.w spr2ptl
  13651. txs2l:
  13652.  dc.w 0
  13653.  dc.w spr2pth
  13654. txs2h:
  13655.  dc.w 0
  13656.  dc.w spr3ptl
  13657. txs3l:
  13658.  dc.w 0
  13659.  dc.w spr3pth
  13660. txs3h:
  13661.  dc.w 0
  13662.  dc.w spr4ptl
  13663. txs4l:
  13664.  dc.w 0
  13665.  dc.w spr4pth
  13666. txs4h:
  13667.  dc.w 0
  13668.  dc.w spr5ptl
  13669. txs5l:
  13670.  dc.w 0
  13671.  dc.w spr5pth
  13672. txs5h:
  13673.  dc.w 0
  13674.  dc.w spr6ptl
  13675. txs6l:
  13676.  dc.w 0
  13677.  dc.w spr6pth
  13678. txs6h:
  13679.  dc.w 0
  13680.  dc.w spr7ptl
  13681. txs7l:
  13682.  dc.w 0
  13683.  dc.w spr7pth
  13684. txs7h:
  13685.  dc.w 0
  13686.  
  13687.  
  13688.  dc.w $10c,$0088
  13689.  
  13690.  dc.w $1fc,$f
  13691.  dc.w diwstart,$2c81    ; Top left corner of screen.
  13692.  dc.w diwstop
  13693. BOTOFTXT:
  13694.  dc.w $2cc1     ; Bottom right corner of screen.
  13695.  dc.w ddfstart,$38      ; Data fetch start.
  13696.  dc.w ddfstop,$c8       ; Data fetch stop.
  13697.  
  13698.  dc.w bplcon0
  13699. TSCP:
  13700.  dc.w $a201
  13701.  
  13702.  dc.w $106,$c40
  13703.  
  13704.  dc.w $2a01,$ff00
  13705.  
  13706.  dc.w col0,0
  13707.  dc.w col1
  13708. TOPLET:
  13709. TXTCOLL:
  13710.  dc.w 0
  13711.   dc.w col2
  13712. BOTLET:
  13713. TOPCOLL:
  13714.  dc.w 0
  13715.  dc.w col3
  13716. ALLTEXT:
  13717. MIXCOLL:
  13718.  dc.w $fff
  13719.  dc.w $106,$e40
  13720.  dc.w col3
  13721. ALLTEXTLOW:
  13722.  dc.w $0
  13723.  
  13724.  
  13725.  dc.w bpl1pth
  13726. TSPTh:
  13727.  dc.w 0
  13728.  dc.w bpl1ptl
  13729. TSPTl:
  13730.  dc.w 0
  13731.  
  13732.  dc.w bpl2pth
  13733. TSPTh2:
  13734.  dc.w 0
  13735.  dc.w bpl2ptl
  13736. TSPTl2:
  13737.  dc.w 0
  13738.  
  13739.  
  13740.  dc.w $108,0
  13741.  dc.w $10a,0
  13742.  
  13743.  dc.w $ffff,$fffe
  13744.  
  13745. ********************************************
  13746. * Stuff you don't have to worry about yet. *
  13747. ********************************************
  13748.  
  13749. closeeverything:
  13750.  
  13751. ; jsr mt_end
  13752.  
  13753.  move.l #nullcop,d0
  13754. ; move.l old,d0
  13755.  
  13756.  
  13757. ;charlie  
  13758.  move.l d0,$dff080     ; Restore old copper list.
  13759.  move.w d0,ocl
  13760.  swap d0
  13761.  move.w d0,och
  13762.  
  13763. ; move.l doslib,a6
  13764. ; move.l #4,d1
  13765. ; jsr -198(a6)
  13766.  
  13767. ; move.l doslib,d0
  13768. ; move.l d0,a1
  13769. ; move.l 4.w,a6
  13770. ; jsr CloseLib(a6)
  13771.  
  13772.  move.l #$dff000,a6
  13773.  move.w #$8020,dmacon(a6)
  13774.  move.w #$f,dmacon(a6)
  13775.  
  13776. ; move.l 4.w,a6
  13777. ; lea VBLANKInt,a1
  13778. ; moveq #INTB_COPER,d0
  13779. ; jsr _LVORemIntServer(a6)
  13780.  
  13781. ; IFEQ CD32VER
  13782. ; move.l OLDKINT,$68.w
  13783. ; ENDC
  13784. ; move.w saveinters,d0
  13785. ; or.w #$c000,d0
  13786. ; move.w d0,intena(a6)
  13787.  clr.w $dff0a8
  13788.  clr.w $dff0b8
  13789.  clr.w $dff0c8
  13790.  clr.w $dff0d8
  13791.  
  13792.  
  13793. ; move.l oldview,a1
  13794. ; move.l a1,d0
  13795. ; move.l gfxbase,a6
  13796. ; jsr -$de(a6)
  13797.  
  13798. ; cmp.b #'s',mors
  13799. ; beq.s leaveold
  13800. ; move.w #$f8e,$dff1dc
  13801. ;leaveold:
  13802.  
  13803.  jsr RELEASELEVELMEM
  13804.  jsr RELEASESCRNMEM
  13805.  
  13806.  move.l #0,d0
  13807.  
  13808.  rts
  13809.  
  13810.  
  13811.  
  13812. intbase: dc.l 0
  13813. gfxbase: dc.l 0
  13814. oldview: dc.l 0
  13815.  
  13816. stuff:
  13817.  
  13818.     PRSDL
  13819.     Lea    gfxname(pc),a1    
  13820.     Moveq.l    #0,d0
  13821.     Move.l    $4.w,a6    
  13822.     Jsr    -$228(a6)
  13823.     add.w d1,RVAL1
  13824.     Move.l     d0,gfxbase
  13825.     Move.l    d0,a6                Use As Base Reg
  13826.     Move.l    34(a6),oldview
  13827.     move.l 38(a6),old
  13828.     rts
  13829.  
  13830. gfxname dc.b "graphics.library",0
  13831.  even
  13832. INTUNAME    dc.b    "intuition.library",0
  13833.  
  13834.  even
  13835.  
  13836.  
  13837.  cnop 0,64
  13838.  
  13839. Panel:
  13840.  dc.l 0
  13841.  
  13842. TimerScr: 
  13843. ;ds.b 40*64
  13844.  
  13845. scrntab:
  13846.  ds.b 16
  13847. val SET 32
  13848.  REPT 96
  13849.  dc.b val,val,val
  13850. val SET val+1
  13851.  ENDR
  13852.  ds.b 16
  13853.  
  13854. smallscrntab:
  13855. val SET 32
  13856.  REPT 96
  13857.  dc.b val,val
  13858. val SET val+1
  13859.  ENDR
  13860.  
  13861.  cnop 0,64
  13862. scrn:
  13863.  dc.l 0
  13864. ; incbin "ab3:includes/newborderRAW"
  13865. ; ds.b 80
  13866. scrn2:
  13867.  dc.l 0
  13868.  
  13869. ;flib:
  13870. ; incbin "ab3:includes/newborderRAW"
  13871. ; ds.b 80
  13872. ;flib2:
  13873. ; incbin "ab3:includes/newborderRAW"
  13874. ; ds.b 80
  13875.  
  13876. ; incbin "ab3:includes/newborderRAW"
  13877. ; ds.b 80
  13878.  
  13879. SCRNDRAWPT: dc.l 0
  13880. SCRNSHOWPT: dc.l 0
  13881.  
  13882. ; dcb.l 8,$33333333
  13883. ; dc.l 0
  13884. ; dc.l 0
  13885. ; 
  13886. ; dcb.l 8,$0f0f0f0f
  13887. ; dc.l 0
  13888. ; dc.l 0
  13889. ;
  13890. ; dcb.l 8,$00ff00ff
  13891. ; dc.l 0
  13892. ; dc.l 0
  13893. ; 
  13894. ; dcb.l 8,$0000ffff
  13895. ; dc.l 0
  13896. ; dc.l 0
  13897. ; 
  13898. ; dc.l 0,-1,0,-1,0,-1,0,-1
  13899. ; dc.l 0
  13900. ; dc.l 0
  13901. ; 
  13902. ; dc.l -1,-1,0,0,-1,-1,0,0
  13903. ; dc.l 0
  13904. ; dc.l 0
  13905. ; 
  13906. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  13907. ; dc.l 0
  13908. ; dc.l 0
  13909.  
  13910. NumTimes: dc.l 0
  13911. TimeCount: dc.l 0
  13912. oldtime: dc.l 0
  13913. counting: dc.b 0
  13914. oktodisplay: dc.b 0
  13915.  
  13916. INITTIMER:
  13917.  move.l #0,TimeCount
  13918.  move.l #0,NumTimes
  13919.  rts
  13920.  
  13921. STARTCOUNT:
  13922.  move.l d0,-(a7)
  13923.  move.l $dff004,d0
  13924.  and.l #$1ffff,d0
  13925.  move.l d0,oldtime
  13926.  st counting
  13927.  move.l (a7)+,d0
  13928.  rts
  13929.  
  13930. STOPCOUNT:
  13931.  move.l d0,-(a7)
  13932.  move.l $dff004,d0
  13933.  and.l #$1ffff,d0
  13934.  
  13935.  sub.l oldtime,d0
  13936.  cmp.l #-256,d0
  13937.  bge.s okcount
  13938.  add.l #313*256,d0
  13939. okcount:
  13940.  add.l d0,TimeCount
  13941.  addq.l #1,NumTimes
  13942.  clr.b counting
  13943.  move.l (a7)+,d0
  13944.  rts
  13945.  
  13946. STOPCOUNTNOADD:
  13947.  move.l d0,-(a7)
  13948.  move.l $dff004,d0
  13949.  and.l #$1ffff,d0
  13950.  
  13951.  sub.l oldtime,d0
  13952.  cmp.l #-256,d0
  13953.  bge.s okcount2
  13954.  add.l #313*256,d0
  13955. okcount2:
  13956.  add.l d0,TimeCount
  13957.  clr.b counting
  13958.  move.l (a7)+,d0
  13959.  rts
  13960.  
  13961. maxbot: dc.w 0
  13962. tstneg: dc.l 0
  13963.  
  13964. STOPTIMER:
  13965.  st oktodisplay
  13966.  rts
  13967.  
  13968. digits: incbin "numbers.inc"
  13969.  
  13970. COMPACTMAP: ds.l 257
  13971.  
  13972. BIGMAP: ds.l 256*10
  13973.  
  13974.  Section Sounds,CODE_C
  13975.  
  13976. nullcop:
  13977.  dc.w $106,$c40
  13978.  dc.w $180,0 
  13979.  dc.w $100,$0
  13980.  dc.w $ffff,$fffe
  13981.  
  13982. Scream:
  13983. ; incbin "ab3:sounds/Scream"
  13984. ; ds.w 100
  13985. EndScream:
  13986. LowScream:
  13987. ; incbin "ab3:sounds/LowScream"
  13988. ; ds.w 100
  13989. EndLowScream:
  13990. BaddieGun:
  13991. ; incbin "ab3:sounds/BaddieGun"
  13992. EndBaddieGun:
  13993. bass:
  13994. ; incbin "ab3:sounds/backbass+drum"
  13995. bassend:
  13996. Shoot:
  13997. ; incbin "ab3:sounds/fire!"
  13998. EndShoot:
  13999. Munch:
  14000. ; incbin "ab3:sounds/munch"
  14001. EndMunch:
  14002. PooGun:
  14003. ; incbin "ab3:sounds/shoot.dm"
  14004. EndPooGun:
  14005. Collect:
  14006. ; incbin "ab3:sounds/collect"
  14007. EndCollect:
  14008. DoorNoise:
  14009. ; incbin "ab3:sounds/newdoor"
  14010. EndDoorNoise:
  14011. Stomp:
  14012. ; incbin "ab3:sounds/footstep3"
  14013. EndStomp:
  14014. SwitchNoise:
  14015. ; incbin "ab3:sounds/switch"
  14016. EndSwitch:
  14017. Reload:
  14018. ; incbin "ab3:sounds/switch1.SFX"
  14019. EndReload:
  14020.  
  14021. CHEATFRAME:
  14022.  dc.b 26,20,33,27,17,12
  14023. ENDCHEAT:
  14024.  
  14025. NoAmmo:
  14026. ; incbin "ab3:sounds/noammo"
  14027. EndNoAmmo:
  14028. Splotch:
  14029. ; incbin "ab3:sounds/splotch"
  14030. EndSplotch:
  14031. SplatPop:
  14032. ; incbin "ab3:sounds/splatpop"
  14033. EndSplatPop:
  14034. Boom:
  14035. ; incbin "ab3:sounds/boom"
  14036. EndBoom:
  14037. Hiss:
  14038. ; incbin "ab3:sounds/newhiss"
  14039. EndHiss:
  14040. Howl1:
  14041. ; incbin "ab3:sounds/howl1"
  14042. EndHowl1:
  14043. Howl2:
  14044. ; incbin "ab3:sounds/howl2"
  14045. EndHowl2:
  14046. Pant:
  14047. ; incbin "ab3:sounds/pant"
  14048. EndPant:
  14049. Whoosh:
  14050. ; incbin "ab3:sounds/whoosh"
  14051. EndWhoosh:
  14052. ROAR:
  14053. ; incbin "ab3:sounds/bigscream"
  14054. EndROAR
  14055. whoosh:
  14056. ; incbin "ab3:sounds/flame"
  14057. Endwhoosh:
  14058.  SECTION music,code_c
  14059.  
  14060. UseAllChannels: dc.w 0
  14061.  
  14062. mt_init:
  14063.     move.l    mt_data,a0
  14064.     move.l    a0,a1
  14065.     add.l    #$3b8,a1
  14066.     moveq    #$7f,d0
  14067.     moveq    #0,d1
  14068. mt_loop:move.l    d1,d2
  14069.     subq.w    #1,d0
  14070. mt_lop2:move.b    (a1)+,d1
  14071.     cmp.b    d2,d1
  14072.     bgt.s    mt_loop
  14073.     dbf    d0,mt_lop2
  14074.     addq.b    #1,d2
  14075.  
  14076.     lea    mt_samplestarts(pc),a1
  14077.     asl.l    #8,d2
  14078.     asl.l    #2,d2
  14079.     add.l    #$43c,d2
  14080.     add.l    a0,d2
  14081.     move.l    d2,a2
  14082.     moveq    #$1e,d0
  14083. mt_lop3:
  14084.     clr.l    (a2)
  14085.     move.l    a2,(a1)+
  14086.     moveq    #0,d1
  14087.     move.w    42(a0),d1
  14088.     asl.l    #1,d1
  14089.     add.l    d1,a2
  14090.     add.l    #$1e,a0
  14091.     dbf    d0,mt_lop3
  14092.  
  14093.     or.b    #$2,$bfe001
  14094.     move.b    #$6,mt_speed
  14095.     clr.w    $dff0a8
  14096.     clr.w    $dff0b8
  14097.     clr.w    $dff0c8
  14098.     clr.w    $dff0d8
  14099.     clr.b    mt_songpos
  14100.     clr.b    mt_counter
  14101.     clr.w    mt_pattpos
  14102.     rts
  14103.  
  14104. mt_end:    clr.w    $dff0a8
  14105.     clr.w    $dff0b8
  14106.     clr.w    $dff0c8
  14107.     clr.w    $dff0d8
  14108.     move.w    #$f,$dff096
  14109.     rts
  14110.  
  14111. mt_music:
  14112.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  14113.     move.l    mt_data,a0
  14114.     addq.b    #$1,mt_counter
  14115.     move.b    mt_counter,D0
  14116.     cmp.b    mt_speed,D0
  14117.     blt.s    mt_nonew
  14118.     clr.b    mt_counter
  14119.     bra    mt_getnew
  14120.  
  14121. mt_nonew:
  14122.     lea    mt_voice1(pc),a6
  14123.     lea    $dff0a0,a5
  14124.     bsr    mt_checkcom
  14125.     tst.b UseAllChannels
  14126.     beq mt_endr
  14127.     lea    mt_voice2(pc),a6
  14128.     lea    $dff0b0,a5
  14129.     bsr    mt_checkcom
  14130.      lea    mt_voice3(pc),a6
  14131.     lea    $dff0c0,a5
  14132.     bsr    mt_checkcom
  14133.     lea    mt_voice4(pc),a6
  14134.     lea    $dff0d0,a5
  14135.     bsr    mt_checkcom
  14136.     bra    mt_endr
  14137.  
  14138. mt_arpeggio:
  14139.     moveq    #0,d0
  14140.     move.b    mt_counter,d0
  14141.     divs    #$3,d0
  14142.     swap    d0
  14143.     cmp.w    #$0,d0
  14144.     beq.s    mt_arp2
  14145.     cmp.w    #$2,d0
  14146.     beq.s    mt_arp1
  14147.  
  14148.     moveq    #0,d0
  14149.     move.b    $3(a6),d0
  14150.     lsr.b    #4,d0
  14151.     bra.s    mt_arp3
  14152. mt_arp1:moveq    #0,d0
  14153.     move.b    $3(a6),d0
  14154.     and.b    #$f,d0
  14155.     bra.s    mt_arp3
  14156. mt_arp2:move.w    $10(a6),d2
  14157.     bra.s    mt_arp4
  14158. mt_arp3:asl.w    #1,d0
  14159.     moveq    #0,d1
  14160.     move.w    $10(a6),d1
  14161.     lea    mt_periods(pc),a0
  14162.     moveq    #$24,d7
  14163. mt_arploop:
  14164.     move.w    (a0,d0.w),d2
  14165.     cmp.w    (a0),d1
  14166.     bge.s    mt_arp4
  14167.     addq.l    #2,a0
  14168.     dbf    d7,mt_arploop
  14169.     rts
  14170. mt_arp4:move.w    d2,$6(a5)
  14171.     rts
  14172.  
  14173. mt_getnew:
  14174.     move.l    mt_data,a0
  14175.     move.l    a0,a3
  14176.     move.l    a0,a2
  14177.     add.l    #$c,a3
  14178.     add.l    #$3b8,a2
  14179.     add.l    #$43c,a0
  14180.  
  14181.     moveq    #0,d0
  14182.     move.l    d0,d1
  14183.     move.b    mt_songpos,d0
  14184.     move.b    (a2,d0.w),d1
  14185.     asl.l    #8,d1
  14186.     asl.l    #2,d1
  14187.     add.w    mt_pattpos,d1
  14188.     clr.w    mt_dmacon
  14189.  
  14190.     lea    $dff0a0,a5
  14191.     lea    mt_voice1(pc),a6
  14192.     bsr    mt_playvoice
  14193.     tst.b UseAllChannels
  14194.     beq mt_setdma
  14195.     lea    $dff0b0,a5
  14196.     lea    mt_voice2(pc),a6
  14197.     bsr    mt_playvoice
  14198.     lea    $dff0c0,a5
  14199.     lea    mt_voice3(pc),a6
  14200.     bsr    mt_playvoice
  14201.     lea    $dff0d0,a5
  14202.     lea    mt_voice4(pc),a6
  14203.     bsr    mt_playvoice
  14204.     bra    mt_setdma
  14205.  
  14206. PROTCALC:
  14207. ;    include "ab3:source_4000/protcalc.s"
  14208.     incbin "ab3:includes/protcalc.bin"
  14209. ENDPROTCALC:
  14210.  
  14211. mt_playvoice:
  14212.     move.l    (a0,d1.l),(a6)
  14213.     addq.l    #4,d1
  14214.     moveq    #0,d2
  14215.     move.b    $2(a6),d2
  14216.     and.b    #$f0,d2
  14217.     lsr.b    #4,d2
  14218.     move.b    (a6),d0
  14219.     and.b    #$f0,d0
  14220.     or.b    d0,d2
  14221.     tst.b    d2
  14222.     beq.s    mt_setregs
  14223.     moveq    #0,d3
  14224.     lea    mt_samplestarts(pc),a1
  14225.     move.l    d2,d4
  14226.     subq.l    #$1,d2
  14227.     asl.l    #2,d2
  14228.     mulu    #$1e,d4
  14229.     move.l    (a1,d2.l),$4(a6)
  14230.     move.w    (a3,d4.l),$8(a6)
  14231.     move.w    $2(a3,d4.l),$12(a6)
  14232.     move.w    $4(a3,d4.l),d3
  14233.     tst.w    d3
  14234.     beq.s    mt_noloop
  14235.     move.l    $4(a6),d2
  14236.     asl.w    #1,d3
  14237.     add.l    d3,d2
  14238.     move.l    d2,$a(a6)
  14239.     move.w    $4(a3,d4.l),d0
  14240.     add.w    $6(a3,d4.l),d0
  14241.     move.w    d0,8(a6)
  14242.     move.w    $6(a3,d4.l),$e(a6)
  14243.     move.w    $12(a6),d0
  14244.     move.w d0,$8(a5)
  14245.     bra.s    mt_setregs
  14246. mt_noloop:
  14247.     move.l    $4(a6),d2
  14248.     add.l    d3,d2
  14249.     move.l    d2,$a(a6)
  14250.     move.w    $6(a3,d4.l),$e(a6)
  14251.     move.w    $12(a6),d0
  14252.     move.w d0,$8(a5)
  14253. mt_setregs:
  14254.     move.w    (a6),d0
  14255.     and.w    #$fff,d0
  14256.     beq    mt_checkcom2
  14257.     move.b    $2(a6),d0
  14258.     and.b    #$F,d0
  14259.     cmp.b    #$3,d0
  14260.     bne.s    mt_setperiod
  14261.     bsr    mt_setmyport
  14262.     bra    mt_checkcom2
  14263. mt_setperiod:
  14264.     move.w    (a6),$10(a6)
  14265.     and.w    #$fff,$10(a6)
  14266.     move.w    $14(a6),d0
  14267.     move.w    d0,$dff096
  14268.     clr.b    $1b(a6)
  14269.  
  14270.     move.l    $4(a6),(a5)
  14271.     move.w    $8(a6),$4(a5)
  14272.     move.w    $10(a6),d0
  14273.     and.w    #$fff,d0
  14274.     move.w    d0,$6(a5)
  14275.     move.w    $14(a6),d0
  14276.     or.w    d0,mt_dmacon
  14277.     bra    mt_checkcom2
  14278.  
  14279. mt_setdma:
  14280.      move.w #250,d0
  14281. mt_wait:
  14282.      add.w #1,testchip
  14283.      dbra d0,mt_wait
  14284.     move.w    mt_dmacon,d0
  14285.     or.w    #$8000,d0
  14286.     tst.b UseAllChannels
  14287.     bne.s .splib
  14288.     and.w #%1111111111110001,d0
  14289. .splib
  14290.     move.w    d0,$dff096
  14291.     move.w #250,d0
  14292. mt_wait2:
  14293.     add.w #1,testchip
  14294.     dbra    d0,mt_wait2
  14295.     lea    $dff000,a5
  14296.     tst.b UseAllChannels
  14297.     beq.s noall
  14298.     lea    mt_voice4(pc),a6
  14299.     move.l    $a(a6),$d0(a5)
  14300.     move.w    $e(a6),$d4(a5)
  14301.     lea    mt_voice3(pc),a6
  14302.     move.l    $a(a6),$c0(a5)
  14303.     move.w    $e(a6),$c4(a5)
  14304.     lea    mt_voice2(pc),a6
  14305.     move.l    $a(a6),$b0(a5)
  14306.     move.w    $e(a6),$b4(a5)
  14307. noall:
  14308.     lea    mt_voice1(pc),a6
  14309.     move.l    $a(a6),$a0(a5)
  14310.     move.w    $e(a6),$a4(a5)
  14311.  
  14312.     add.w    #$10,mt_pattpos
  14313.     cmp.w    #$400,mt_pattpos
  14314.     bne.s    mt_endr
  14315. mt_nex:    clr.w    mt_pattpos
  14316.     clr.b    mt_break
  14317.     addq.b    #1,mt_songpos
  14318.     and.b    #$7f,mt_songpos
  14319.     move.b    mt_songpos,d1
  14320. ;    cmp.b    mt_data+$3b6,d1
  14321. ;    bne.s    mt_endr
  14322. ;    move.b    mt_data+$3b7,mt_songpos
  14323. mt_endr:tst.b    mt_break
  14324.     bne.s    mt_nex
  14325.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  14326.     rts
  14327.  
  14328. mt_setmyport:
  14329.     move.w    (a6),d2
  14330.     and.w    #$fff,d2
  14331.     move.w    d2,$18(a6)
  14332.     move.w    $10(a6),d0
  14333.     clr.b    $16(a6)
  14334.     cmp.w    d0,d2
  14335.     beq.s    mt_clrport
  14336.     bge.s    mt_rt
  14337.     move.b    #$1,$16(a6)
  14338.     rts
  14339. mt_clrport:
  14340.     clr.w    $18(a6)
  14341. mt_rt:    rts
  14342.  
  14343. CODESTORE: dc.l 0
  14344.  
  14345. mt_myport:
  14346.     move.b    $3(a6),d0
  14347.     beq.s    mt_myslide
  14348.     move.b    d0,$17(a6)
  14349.     clr.b    $3(a6)
  14350. mt_myslide:
  14351.     tst.w    $18(a6)
  14352.     beq.s    mt_rt
  14353.     moveq    #0,d0
  14354.     move.b    $17(a6),d0
  14355.     tst.b    $16(a6)
  14356.     bne.s    mt_mysub
  14357.     add.w    d0,$10(a6)
  14358.     move.w    $18(a6),d0
  14359.     cmp.w    $10(a6),d0
  14360.     bgt.s    mt_myok
  14361.     move.w    $18(a6),$10(a6)
  14362.     clr.w    $18(a6)
  14363. mt_myok:move.w    $10(a6),$6(a5)
  14364.     rts
  14365. mt_mysub:
  14366.     sub.w    d0,$10(a6)
  14367.     move.w    $18(a6),d0
  14368.     cmp.w    $10(a6),d0
  14369.     blt.s    mt_myok
  14370.     move.w    $18(a6),$10(a6)
  14371.     clr.w    $18(a6)
  14372.     move.w    $10(a6),$6(a5)
  14373.     rts
  14374.  
  14375. mt_vib:    move.b    $3(a6),d0
  14376.     beq.s    mt_vi
  14377.     move.b    d0,$1a(a6)
  14378.  
  14379. mt_vi:    move.b    $1b(a6),d0
  14380.     lea    mt_sin(pc),a4
  14381.     lsr.w    #$2,d0
  14382.     and.w    #$1f,d0
  14383.     moveq    #0,d2
  14384.     move.b    (a4,d0.w),d2
  14385.     move.b    $1a(a6),d0
  14386.     and.w    #$f,d0
  14387.     mulu    d0,d2
  14388.     lsr.w    #$6,d2
  14389.     move.w    $10(a6),d0
  14390.     tst.b    $1b(a6)
  14391.     bmi.s    mt_vibmin
  14392.     add.w    d2,d0
  14393.     bra.s    mt_vib2
  14394. mt_vibmin:
  14395.     sub.w    d2,d0
  14396. mt_vib2:move.w    d0,$6(a5)
  14397.     move.b    $1a(a6),d0
  14398.     lsr.w    #$2,d0
  14399.     and.w    #$3c,d0
  14400.     add.b    d0,$1b(a6)
  14401.     rts
  14402.  
  14403. mt_nop:    move.w    $10(a6),$6(a5)
  14404.     rts
  14405.  
  14406.  
  14407. mt_checkcom:
  14408.     move.w    $2(a6),d0
  14409.     and.w    #$fff,d0
  14410.     beq.s    mt_nop
  14411.     move.b    $2(a6),d0
  14412.     and.b    #$f,d0
  14413.     tst.b    d0
  14414.     beq    mt_arpeggio
  14415.     cmp.b    #$1,d0
  14416.     beq.s    mt_portup
  14417.     cmp.b    #$2,d0
  14418.     beq    mt_portdown
  14419.     cmp.b    #$3,d0
  14420.     beq    mt_myport
  14421.     cmp.b    #$4,d0
  14422.     beq    mt_vib
  14423.     move.w    $10(a6),$6(a5)
  14424.     cmp.b    #$a,d0
  14425.     beq.s    mt_volslide
  14426.     rts
  14427.  
  14428. mt_volslide:
  14429.     moveq    #0,d0
  14430.     move.b    $3(a6),d0
  14431.     lsr.b    #4,d0
  14432.     tst.b    d0
  14433.     beq.s    mt_voldown
  14434.     add.w    d0,$12(a6)
  14435.     cmp.w    #$40,$12(a6)
  14436.     bmi.s    mt_vol2
  14437.     move.w    #$40,$12(a6)
  14438. mt_vol2:move.w    $12(a6),d0
  14439.     asr.w #2,d0
  14440.     move.w d0,$8(a5)
  14441.     rts
  14442.  
  14443. mt_voldown:
  14444.     moveq    #0,d0
  14445.     move.b    $3(a6),d0
  14446.     and.b    #$f,d0
  14447.     sub.w    d0,$12(a6)
  14448.     bpl.s    mt_vol3
  14449.     clr.w    $12(a6)
  14450. mt_vol3:move.w    $12(a6),d0
  14451.     move.w d0,$8(a5)
  14452.     rts
  14453.  
  14454. mt_portup:
  14455.     moveq    #0,d0
  14456.     move.b    $3(a6),d0
  14457.     sub.w    d0,$10(a6)
  14458.     move.w    $10(a6),d0
  14459.     and.w    #$fff,d0
  14460.     cmp.w    #$71,d0
  14461.     bpl.s    mt_por2
  14462.     and.w    #$f000,$10(a6)
  14463.     or.w    #$71,$10(a6)
  14464. mt_por2:move.w    $10(a6),d0
  14465.     and.w    #$fff,d0
  14466.     move.w    d0,$6(a5)
  14467.     rts
  14468.  
  14469. mt_portdown:
  14470.     clr.w    d0
  14471.     move.b    $3(a6),d0
  14472.     add.w    d0,$10(a6)
  14473.     move.w    $10(a6),d0
  14474.     and.w    #$fff,d0
  14475.     cmp.w    #$358,d0
  14476.     bmi.s    mt_por3
  14477.     and.w    #$f000,$10(a6)
  14478.     or.w    #$358,$10(a6)
  14479. mt_por3:move.w    $10(a6),d0
  14480.     and.w    #$fff,d0
  14481.     move.w    d0,$6(a5)
  14482.     rts
  14483.  
  14484. mt_checkcom2:
  14485.     move.b    $2(a6),d0
  14486.     and.b    #$f,d0
  14487.     cmp.b    #$e,d0
  14488.     beq.s    mt_setfilt
  14489.     cmp.b    #$d,d0
  14490.     beq.s    mt_pattbreak
  14491.     cmp.b    #$b,d0
  14492.     beq.s    mt_posjmp
  14493.     cmp.b    #$c,d0
  14494.     beq.s    mt_setvol
  14495.     cmp.b    #$f,d0
  14496.     beq.s    mt_setspeed
  14497.     rts
  14498.  
  14499. mt_setfilt:
  14500.     move.b    $3(a6),d0
  14501.     and.b    #$1,d0
  14502.     asl.b    #$1,d0
  14503.     and.b    #$fd,$bfe001
  14504.     or.b    d0,$bfe001
  14505.     rts
  14506. mt_pattbreak:
  14507.     not.b    mt_break
  14508.     rts
  14509. mt_posjmp:
  14510.     st reachedend
  14511.     move.b    $3(a6),d0
  14512.     subq.b    #$1,d0
  14513.     move.b    d0,mt_songpos
  14514.     not.b    mt_break
  14515.     rts
  14516. mt_setvol:
  14517.     cmp.b    #$40,$3(a6)
  14518.     ble.s    mt_vol4
  14519.     move.b    #$40,$3(a6)
  14520. mt_vol4:move.b    $3(a6),d0
  14521.     move.w d0,$8(a5)
  14522.     rts
  14523. mt_setspeed:
  14524.     cmp.b    #$1f,$3(a6)
  14525.     ble.s    mt_sets
  14526.     move.b    #$1f,$3(a6)
  14527. mt_sets:move.b    $3(a6),d0
  14528.     beq.s    mt_rts2
  14529.     move.b    d0,mt_speed
  14530.     clr.b    mt_counter
  14531. mt_rts2:rts
  14532.  
  14533. mt_sin:
  14534.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  14535.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  14536.  
  14537. mt_periods:
  14538.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  14539.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  14540.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  14541.  DC.w $007f,$0078,$0071,$0000,$0000
  14542.  
  14543. reachedend: dc.b 0
  14544. mt_speed:    DC.b    6
  14545. mt_songpos:    DC.b    0
  14546. mt_pattpos:    DC.w    0
  14547. mt_counter:    DC.b    0
  14548.  
  14549. mt_break:    DC.b    0
  14550. mt_dmacon:    DC.w    0
  14551. mt_samplestarts:DS.L    $1f
  14552. mt_voice1:    DS.w    10
  14553.         DC.w    1
  14554.         DS.w    3
  14555. mt_voice2:    DS.w    10
  14556.         DC.w    2
  14557.         DS.w    3
  14558. mt_voice3:    DS.w    10
  14559.         DC.w    4
  14560.         DS.w    3
  14561. mt_voice4:    DS.w    10
  14562.         DC.w    8
  14563.         DS.w    3
  14564.  
  14565. CHEATPTR: dc.l 0
  14566. CHEATNUM: dc.l 0
  14567.  
  14568. testchip: dc.w 0
  14569.  
  14570. LEVELMUSIC: dc.l 0
  14571.  
  14572. ;/* End of File */
  14573. mt_data: dc.l 0
  14574. tstchip: dc.l 0
  14575.  include "SERIAL_NIGHTMARE"
  14576.  
  14577. ingame:
  14578. ; incbin "work:temp/newmusic/testonechan"
  14579. gameover: 
  14580. ;incbin "ab3:includes/gameover"
  14581. welldone: incbin "ab3:includes/newwelldone"
  14582.  
  14583.  
  14584.