home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #2 / amigaacscoverdisc / games / alienbreed3d2 / source_4000 / fasthires.s < prev    next >
Text File  |  1997-01-31  |  218KB  |  14,542 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 #$dff000,a6
  646.  
  647. ; move.b LEVTOPLAY,d0
  648. ; move.b d0,LEVA
  649. ; move.b d0,LEVB
  650. ; move.b d0,LEVC
  651. ; move.b d0,LEVD
  652. ; move.b d0,LEVE
  653.  
  654.  
  655. ; move.l #LEVELDATAD,LEVELDATA
  656. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  657. ; move.l #LEVELCLIPSD,LEVELCLIPS
  658.  
  659. ; bra noload
  660.  
  661. *********************************
  662.  
  663. ; move.l doslib,a6
  664. ; move.l #LLname,d1
  665. ; move.l #1005,d2
  666. ; jsr -30(a6)
  667. ; move.l d0,LLhandle
  668. ;
  669. ; move.l doslib,a6
  670. ; move.l d0,d1
  671. ; move.l #LINKS,d2
  672. ; move.l #10000,d3
  673. ; jsr -42(a6)
  674. ;
  675. ; move.l doslib,a6
  676. ; move.l LLhandle,d1
  677. ; jsr -36(a6)
  678.  
  679.  ********************************
  680.  
  681. ; move.l doslib,a6
  682. ; move.l #LLFname,d1
  683. ; move.l #1005,d2
  684. ; jsr -30(a6)
  685. ; move.l d0,LLhandle
  686.  
  687. ; move.l doslib,a6
  688. ; move.l d0,d1
  689. ; move.l #FLYLINKS,d2
  690. ; move.l #10000,d3
  691. ; jsr -42(a6)
  692.  
  693. ; move.l doslib,a6
  694. ; move.l LLhandle,d1
  695. ; jsr -36(a6)
  696.  
  697.  ************************
  698.  ********
  699.  
  700.  
  701.  move.l doslib,a6
  702.  move.l #LDname,d1
  703.  move.l #1005,d2
  704.  jsr -30(a6)
  705.  move.l d0,LDhandle
  706.  
  707.  move.l doslib,a6
  708.  move.l d0,d1
  709.  move.l LEVELCLIPS,d2
  710.  move.l #40000,d3
  711.  jsr -42(a6)
  712.  
  713.  move.l doslib,a6
  714.  move.l LDhandle,d1
  715.  jsr -36(a6)
  716.  
  717. *************************************
  718.     move.l    LEVELCLIPS,d0
  719.     moveq    #0,d1
  720.     move.l LEVELDATA,a0
  721.     lea    WorkSpace,a1
  722.     lea    $0,a2
  723.     jsr    unLHA
  724. *************************************
  725.  
  726. ********
  727.  
  728.  move.l doslib,a6
  729.  move.l #LGname,d1
  730.  move.l #1005,d2
  731.  jsr -30(a6)
  732.  move.l d0,LGhandle
  733.  
  734.  move.l doslib,a6
  735.  move.l d0,d1
  736.  move.l LEVELCLIPS,d2
  737.  move.l #40000,d3
  738.  jsr -42(a6)
  739.  
  740.  move.l doslib,a6
  741.  move.l LGhandle,d1
  742.  jsr -36(a6)
  743.  
  744. *************************************
  745.     move.l    LEVELCLIPS,d0
  746.     moveq    #0,d1
  747.     move.l LEVELGRAPHICS,a0
  748.     lea    WorkSpace,a1
  749.     lea    $0,a2
  750.     jsr    unLHA
  751. *************************************
  752.  
  753. ********
  754.  
  755.  move.l doslib,a6
  756.  move.l #LCname,d1
  757.  move.l #1005,d2
  758.  jsr -30(a6)
  759.  move.l d0,LChandle
  760.  
  761.  move.l doslib,a6
  762.  move.l d0,d1
  763.  move.l #WorkSpace+16384,d2
  764.  move.l #16000,d3
  765.  jsr -42(a6)
  766.  
  767.  move.l doslib,a6
  768.  move.l LChandle,d1
  769.  jsr -36(a6)
  770.  
  771. *************************************
  772.     move.l    #WorkSpace+16384,d0
  773.     moveq    #0,d1
  774.     move.l LEVELCLIPS,a0
  775.     lea    WorkSpace,a1
  776.     lea    $0,a2
  777.     jsr    unLHA
  778. *************************************
  779.  
  780.  
  781. *******
  782.  
  783. noload:
  784.  
  785. ********
  786.  
  787. ; move.l doslib,a6
  788. ; move.l #Prefsname,d1
  789. ; move.l #1005,d2
  790. ; jsr -30(a6)
  791. ; move.l d0,Prefshandle
  792.  
  793. ; move.l doslib,a6
  794. ; move.l d0,d1
  795. ; move.l #Prefsfile,d2
  796. ; move.l #50,d3
  797. ; jsr -42(a6)
  798.  
  799. ; move.l doslib,a6
  800. ; move.l Prefshandle,d1
  801. ; jsr -36(a6)
  802.  
  803. *******
  804.  
  805.  IFNE CD32VER
  806.  move.l doslib,a6
  807.  move.l #115,d1
  808.  jsr -198(a6)
  809.  ENDC
  810.  
  811.  
  812. ; move.l doslib,d0
  813. ; move.l d0,a1
  814. ; move.l 4.w,a6
  815. ; jsr CloseLib(a6)
  816.  
  817.  move.l #$dff000,a6
  818.  
  819. charlie:
  820. ; jmp  ENDGAMESCROLL
  821.  
  822.     move.w #$87c0,dmacon(a6)
  823.  
  824.     move.w    #%1000000000100000,dmacon(a6)
  825.  
  826. ; move.w intenar(a6),saveinters
  827.     
  828.     move.w #%00101111,intena(a6)
  829.  
  830.     move.w #255,adkcon(a6)
  831.  
  832.  
  833. *** Put myself in supervisor mode
  834.  
  835.  bra blag
  836. ; move.l $6c,d0
  837. ; move.l #blag,$6c
  838. ; move.w #$8010,intreq(a6)
  839.  
  840.  rts
  841.  
  842. saveit: ds.l 10
  843. doslibname: dc.b 'dos.library',0
  844.  even
  845. doslib: dc.l 0
  846.  
  847. mors: dc.w 0
  848.  
  849. LDname: dc.b 'tkg2:levels/level_'
  850. LEVA:
  851.  dc.b 'a/twolev.bin',0
  852.  even
  853. LDhandle: dc.l 0
  854. LGname: dc.b 'tkg2:levels/level_'
  855. LEVB:
  856.  dc.b 'a/twolev.graph.bin',0
  857.  even
  858. LGhandle: dc.l 0
  859. LCname: dc.b 'tkg2:levels/level_'
  860. LEVC:
  861.  dc.b 'a/twolev.clips',0
  862.  even
  863. LChandle: dc.l 0
  864. LLname: dc.b 'tkg2:levels/level_'
  865. LEVD:
  866.  dc.b 'a/twolev.map',0
  867.  even
  868. LLFname: dc.b 'tkg2:levels/level_'
  869. LEVE:
  870.  dc.b 'a/twolev.flymap',0
  871.  even
  872. LLhandle: dc.l 0
  873.  
  874.     cnop    0,4
  875.  
  876. Prefsname: dc.b 'ram:prefs',0
  877.  even
  878. Prefshandle: dc.l 0
  879.  
  880.  
  881.  even
  882.  
  883.  cnop 0,4
  884.  
  885. VBLANKInt
  886.  dc.l 0,0
  887.  dc.b NT_INTERRUPT,9
  888.  dc.l Prefsname
  889.  dc.l 0
  890.  dc.l Chan0inter
  891.  
  892.  
  893. KEYInt
  894.  dc.l 0,0
  895.  dc.b NT_INTERRUPT,127
  896.  dc.l Prefsname
  897.  dc.l 0
  898.  dc.l key_interrupt
  899.  
  900.  
  901. blag:
  902. ; move.w #$10,intreq(a6)
  903. ; move.l d0,$6c
  904. ; move.w #$7fff,intena(a6)
  905.  
  906. ; move.w #$20,$dff1dc
  907.  
  908. ; move.l 4.w,a6
  909. ; lea VBLANKInt(pc),a1
  910. ; moveq #INTB_COPER,d0
  911. ; jsr _LVOAddIntServer(a6)
  912.  
  913. ****************************
  914. * Initialize level
  915. ****************************
  916. * Poke all clip offsets into
  917. * correct bit of level data.
  918. ****************************
  919.  move.l LEVELGRAPHICS,a0
  920.  move.l 12(a0),a1
  921.  add.l a0,a1
  922.  move.l a1,ZoneGraphAdds
  923.  move.l (a0),a1
  924.  add.l a0,a1
  925.  move.l a1,DoorData
  926.  move.l 4(a0),a1
  927.  add.l a0,a1
  928.  move.l a1,LiftData
  929.  move.l 8(a0),a1
  930.  add.l a0,a1
  931.  move.l a1,SwitchData
  932.  adda.w #16,a0
  933.  move.l a0,ZoneAdds
  934.  
  935.  move.l LEVELDATA,a4
  936.  lea 160*10(a4),a1
  937.  
  938.  lea 54(a1),a2
  939.  move.l a2,CPtPos
  940.  move.w 12(a1),NumCPts
  941.  move.w 14(a1),NumLevPts
  942.  
  943.  move.l 16+6(a1),a2
  944.  add.l a4,a2
  945.  move.l a2,Points
  946.  move.w 8+6(a1),d0
  947.  lea 4(a2,d0.w*4),a2
  948.  move.l a2,PointBrights
  949.  move.w 16(a1),d0
  950.  addq #1,d0
  951.  muls #80,d0
  952.  add.l d0,a2
  953.  move.l a2,ZoneBorderPts
  954.  
  955.  move.l 20+6(a1),a2
  956.  add.l a4,a2
  957.  move.l a2,FloorLines
  958.  move.w -2(a2),ENDZONE
  959.  move.l 24+6(a1),a2
  960.  add.l a4,a2
  961.  move.l a2,ObjectData
  962. *****************************************
  963. * Just for charles
  964.  
  965. ; move.w #$6060,6(a2)
  966. ; move.l #$d0000,8(a2)
  967. ; sub.w #40,4(a2)
  968. ; move.w #45*256+45,14(a2)
  969. ****************************************
  970.  move.l 28+6(a1),a2
  971.  add.l a4,a2
  972.  move.l a2,PlayerShotData
  973.  move.l 32+6(a1),a2
  974.  add.l a4,a2
  975.  move.l a2,NastyShotData
  976.  
  977.  add.l #64*20,a2
  978.  move.l a2,OtherNastyData
  979.  
  980.  move.l 36+6(a1),a2
  981.  add.l a4,a2
  982.  move.l a2,ObjectPoints  
  983.  move.l 40+6(a1),a2
  984.  add.l a4,a2
  985.  move.l a2,PLR1_Obj
  986.  move.l 44+6(a1),a2
  987.  add.l a4,a2
  988.  move.l a2,PLR2_Obj
  989.  move.w 14+6(a1),NumObjectPoints
  990.  
  991. ; bra noclips
  992.   
  993.  move.l LEVELCLIPS,a2
  994.  moveq #0,d0
  995.  move.w 10+6(a1),d7    ;numzones
  996.  move.w d7,NUMZONES
  997. assignclips:
  998.  move.l (a0)+,a3
  999.  add.l a4,a3    ; pointer to a zone
  1000.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  1001. dowholezone:
  1002.  tst.w (a3)
  1003.  blt.s nomorethiszone
  1004.  tst.w 2(a3)
  1005.  blt.s thisonenull
  1006.  
  1007.  move.l d0,d1
  1008.  asr.l #1,d1
  1009.  move.w d1,2(a3)
  1010.  
  1011. findnextclip:
  1012.  cmp.w #-2,(a2,d0.l)
  1013.  beq.s foundnextclip
  1014.  addq.l #2,d0
  1015.  bra.s findnextclip
  1016. foundnextclip
  1017.  addq.l #2,d0
  1018.  
  1019. thisonenull:
  1020.  addq #8,a3 
  1021.  bra.s dowholezone
  1022. nomorethiszone:
  1023.  dbra d7,assignclips
  1024.  
  1025.  lea (a2,d0.l),a2
  1026.  move.l a2,CONNECT_TABLE
  1027.  
  1028. noclips:
  1029.  
  1030. * Put in addresses of glowything
  1031.  
  1032.  
  1033. ************************************
  1034.  
  1035. ; cmp.b #'k',Prefsfile
  1036. ; bne.s nkb
  1037.  
  1038. ;nkb:
  1039. ; cmp.b #'m',Prefsfile
  1040. ; bne.s nmc
  1041. ; clr.b PLR1KEYS
  1042. ; clr.b PLR1PATH
  1043. ; st PLR1MOUSE
  1044. ; clr.b PLR1JOY
  1045. ;nmc:
  1046. ; cmp.b #'j',Prefsfile
  1047. ; bne.s njc
  1048. ; clr.b PLR1KEYS
  1049. ; clr.b PLR1PATH
  1050. ; clr.b PLR1MOUSE
  1051. ; st PLR1JOY
  1052. ;njc:
  1053.  
  1054.  clr.b PLR1_StoodInTop
  1055.  move.l #playerheight,PLR1s_height
  1056.  
  1057.  move.l #empty,pos1LEFT
  1058.  move.l #empty,pos2LEFT
  1059.  move.l #empty,pos1RIGHT
  1060.  move.l #empty,pos2RIGHT
  1061.  move.l #empty,pos0LEFT
  1062.  move.l #empty,pos3LEFT
  1063.  move.l #empty,pos0RIGHT
  1064.  move.l #empty,pos3RIGHT
  1065.  move.l #emptyend,Samp0endLEFT
  1066.  move.l #emptyend,Samp1endLEFT
  1067.  move.l #emptyend,Samp0endRIGHT
  1068.  move.l #emptyend,Samp1endRIGHT
  1069.  move.l #emptyend,Samp2endLEFT
  1070.  move.l #emptyend,Samp3endLEFT
  1071.  move.l #emptyend,Samp2endRIGHT
  1072.  move.l #emptyend,Samp3endRIGHT
  1073.  
  1074.  
  1075.  move.l #nullline,d0
  1076.  move.w d0,n1l
  1077.  swap d0
  1078.  move.w d0,n1h
  1079.  
  1080.  move.l Panel,d0
  1081.  move.w d0,p1l
  1082.  swap d0
  1083.  move.w d0,p1h
  1084.  swap d0
  1085.  add.l #40,d0
  1086.  move.w d0,p2l
  1087.  swap d0
  1088.  move.w d0,p2h
  1089.  swap d0
  1090.  add.l #40,d0
  1091.  move.w d0,p3l
  1092.  swap d0
  1093.  move.w d0,p3h
  1094.  swap d0
  1095.  add.l #40,d0
  1096.  move.w d0,p4l
  1097.  swap d0
  1098.  move.w d0,p4h
  1099.  swap d0
  1100.  add.l #40,d0
  1101.  move.w d0,p5l
  1102.  swap d0
  1103.  move.w d0,p5h
  1104.  swap d0
  1105.  add.l #40,d0
  1106.  move.w d0,p6l
  1107.  swap d0
  1108.  move.w d0,p6h
  1109.  swap d0
  1110.  add.l #40,d0
  1111.  move.w d0,p7l
  1112.  swap d0
  1113.  move.w d0,p7h
  1114.  swap d0
  1115.  add.l #40,d0
  1116.  move.w d0,p8l
  1117.  swap d0
  1118.  move.w d0,p8h
  1119.  
  1120. *******************************
  1121. * TIMER SCREEN SETUP
  1122. ; move.l #TimerScr,d0
  1123. ; move.w d0,p1l
  1124. ; swap d0
  1125. ; move.w d0,p1h
  1126. ; move.w #$1201,Panelcon
  1127.  
  1128. ; move.l #borders,d0
  1129. ; move.w d0,s0l
  1130. ; swap d0
  1131. ; move.w d0,s0h
  1132. ; move.l #borders+2592,d0
  1133. ; move.w d0,s1l
  1134. ; swap d0
  1135. ; move.w d0,s1h
  1136. ; move.l #borders+2592*2,d0
  1137. ; move.w d0,s2l
  1138. ; swap d0
  1139. ; move.w d0,s2h
  1140. ; move.l #borders+2592*3,d0
  1141. ; move.w d0,s3l
  1142. ; swap d0
  1143. ; move.w d0,s3h
  1144.  
  1145.  move.l #nullspr,d0
  1146.  move.w d0,s0l
  1147.  move.w d0,s1l
  1148.  move.w d0,s2l
  1149.  move.w d0,s3l
  1150.  
  1151.  move.w d0,s4l
  1152.  move.w d0,s5l
  1153.  move.w d0,s6l
  1154.  move.w d0,s7l
  1155.  swap d0
  1156.  
  1157.  move.w d0,s0h
  1158.  move.w d0,s1h
  1159.  move.w d0,s2h
  1160.  move.w d0,s3h
  1161.  
  1162.  move.w d0,s4h
  1163.  move.w d0,s5h
  1164.  move.w d0,s6h
  1165.  move.w d0,s7h 
  1166.  
  1167.  
  1168. ; move.w #52*256+64,borders
  1169. ; move.w #212*256+0,borders+8
  1170. ; move.w #52*256+64,borders+2592
  1171. ; move.w #212*256+128,borders+8+2592
  1172. ; move.w #52*256+192,borders+2592*2
  1173. ; move.w #212*256+0,borders+8+2592*2
  1174. ; move.w #52*256+192,borders+2592*3
  1175. ; move.w #212*256+128,borders+8+2592*3
  1176.  
  1177.  move.l #FacePlace,d0
  1178.  move.w d0,f1l
  1179.  swap d0
  1180.  move.w d0,f1h
  1181.  move.l #FacePlace+32*24,d0
  1182.  move.w d0,f2l
  1183.  swap d0
  1184.  move.w d0,f2h
  1185.  move.l #FacePlace+32*24*2,d0
  1186.  move.w d0,f3l
  1187.  swap d0
  1188.  move.w d0,f3h
  1189.  move.l #FacePlace+32*24*3,d0
  1190.  move.w d0,f4l
  1191.  swap d0
  1192.  move.w d0,f4h
  1193.  move.l #FacePlace+32*24*4,d0
  1194.  move.w d0,f5l
  1195.  swap d0
  1196.  move.w d0,f5h
  1197.   
  1198.  
  1199.  move.l #bigfield,d0
  1200.  move.w d0,ocl
  1201.  swap d0
  1202.  move.w d0,och
  1203.  
  1204.  bset.b #1,$bfe001
  1205.  
  1206. ; jmp stuff
  1207. ;endstuff:
  1208.  
  1209.  move.w #$00ff,$dff09e
  1210.  
  1211. ; move.l #Blurbfield,$dff080
  1212.  
  1213.  move.w #0,d0
  1214.  
  1215.  move.l scrn,d0
  1216.  move.w d0,pl1l
  1217.  swap d0
  1218.  move.w d0,pl1h
  1219.  
  1220.  swap d0
  1221.  add.l #10240,d0
  1222.  move.w d0,pl2l
  1223.  swap d0
  1224.  move.w d0,pl2h
  1225.  
  1226.  swap d0
  1227.  add.l #10240,d0
  1228.  move.w d0,pl3l
  1229.  swap d0
  1230.  move.w d0,pl3h
  1231.  
  1232.  swap d0
  1233.  add.l #10240,d0
  1234.  move.w d0,pl4l
  1235.  swap d0
  1236.  move.w d0,pl4h
  1237.  
  1238.  swap d0
  1239.  add.l #10240,d0
  1240.  move.w d0,pl5l
  1241.  swap d0
  1242.  move.w d0,pl5h
  1243.  
  1244.  swap d0
  1245.  add.l #10240,d0
  1246.  move.w d0,pl6l
  1247.  swap d0
  1248.  move.w d0,pl6h
  1249.  
  1250.  swap d0
  1251.  add.l #10240,d0
  1252.  move.w d0,pl7l
  1253.  swap d0
  1254.  move.w d0,pl7h
  1255.  
  1256.  swap d0
  1257.  add.l #10240,d0
  1258.  move.w d0,pl8l
  1259.  swap d0
  1260.  move.w d0,pl8h
  1261.  
  1262.  
  1263. ****************************
  1264.  jsr INITPLAYER
  1265. ; bsr initobjpos
  1266. ****************************
  1267.  
  1268.  
  1269.  move.l #$dff000,a6
  1270.  
  1271.  move.l #null,$dff0a0
  1272.  move.w #100,$dff0a4
  1273.  move.w #443,$dff0a6
  1274.  move.w #63,$dff0a8
  1275.  
  1276.  move.l #null2,$dff0b0
  1277.  move.w #100,$dff0b4
  1278.  move.w #443,$dff0b6
  1279.  move.w #63,$dff0b8
  1280.  
  1281.  move.l #null4,$dff0c0
  1282.  move.w #100,$dff0c4
  1283.  move.w #443,$dff0c6
  1284.  move.w #63,$dff0c8
  1285.  
  1286.  move.l #null3,$dff0d0
  1287.  move.w #100,$dff0d4
  1288.  move.w #443,$dff0d6
  1289.  move.w #63,$dff0d8
  1290.  
  1291.  ifeq CHEESEY
  1292.  
  1293.  move.l #tab,a1
  1294.  move.w #64,d7
  1295.  move.w #0,d6
  1296. outerlop
  1297.  move.l #pretab,a0
  1298.  move.w #255,d5
  1299. scaledownlop:
  1300.  move.b (a0)+,d0
  1301.  ext.w d0
  1302.  ext.l d0
  1303.  muls d6,d0
  1304.  asr.l #6,d0
  1305.  move.b d0,(a1)+
  1306.  dbra d5,scaledownlop
  1307.  addq #1,d6
  1308.  dbra d7,outerlop
  1309.  
  1310.  endc
  1311.  
  1312.  move.l #$dff000,a6
  1313.  
  1314.  move.w #$c018,intena(a6)
  1315.  
  1316.  move.w #$f,dmacon(a6)
  1317.  move.w #$820f,dmacon(a6)
  1318.  
  1319. ; bsr protinit
  1320.  
  1321.  
  1322. ; move.w #$20,$1dc(a6)
  1323.  
  1324.  move.w #$0,$dff034
  1325.  move.w #0,Conditions
  1326.  
  1327.  cmp.b #'n',mors
  1328.  beq.s .nokeys
  1329.  move.w #%111111111111,Conditions
  1330. .nokeys:
  1331.  
  1332.  move.l #KeyMap,a5
  1333.  clr.b $45(a5)
  1334.  
  1335.  move.l #ingame,mt_data
  1336.  clr.b UseAllChannels
  1337.  
  1338. ; cmp.b #'b',Prefsfile+3
  1339. ; bne.s .noback
  1340. ; jsr mt_init
  1341. ;.noback:
  1342. ;
  1343. ; clr.b CHANNELDATA
  1344. ; clr.b CHANNELDATA+8
  1345. ; clr.b CHANNELDATA+16
  1346. ; clr.b CHANNELDATA+24
  1347. ;
  1348. ; cmp.b #'b',Prefsfile+3
  1349. ; bne.s noreserve
  1350. ;
  1351. ; st CHANNELDATA
  1352. ; st CHANNELDATA+8
  1353. ; st CHANNELDATA+16
  1354. ; st CHANNELDATA+24
  1355. ;noreserve: 
  1356.  
  1357. ; st CHANNELDATA
  1358. ; st CHANNELDATA+8
  1359.  
  1360.  move.l SampleList+6*8,pos0LEFT
  1361.  move.l SampleList+6*8+4,Samp0endLEFT
  1362.  move.l #playerheight,PLR1s_targheight
  1363.  move.l #playerheight,PLR1s_height
  1364.  move.l #playerheight,PLR2s_targheight
  1365.  move.l #playerheight,PLR2s_height
  1366.  
  1367. ; cmp.b #'n',mors
  1368. ; beq.s nohandshake
  1369. ;
  1370. ; move.b #%11011000,$bfd200
  1371. ; move.b #%00010000,$bfd000
  1372. ;waitloop:
  1373. ; btst.b #4,$bfd000
  1374. ; bne.s waitloop
  1375. ; move.b #%11000000,$bfd200
  1376.  
  1377. ;wtmouse:
  1378. ; btst #6,$bfe001
  1379. ; bne.s wtmouse
  1380.  
  1381. ;nohandshake:
  1382.  
  1383. ; jmp end
  1384.  
  1385. ; move.l COPSCRN1,drawpt
  1386. ; move.l COPSCRN2,olddrawpt
  1387.  
  1388.  jsr CLEARKEYBOARD
  1389. ; jsr MAKEBACKROUT
  1390.  
  1391.  clr.b MASTERQUITTING
  1392.  
  1393.  cmp.b #'n',mors
  1394.  seq SLAVEQUITTING
  1395.  
  1396. ; move.w #200,PLAYERTWOHEALTH
  1397. ; move.w #200,PLAYERONEHEALTH
  1398.  
  1399. ; move.l #ANOTHERSUP,$80
  1400. ; trap #0
  1401. ; rts
  1402. ;
  1403. ;ANOTHERSUP:
  1404.  
  1405.  move.l $4.w,a6
  1406.  jsr _LVOSuperState(a6)
  1407.  move.l d0,SSTACK
  1408.  
  1409.  CACHE_FREEZE_OFF d2
  1410.  
  1411. ; charlie
  1412. ; DATA_CACHE_ON d2
  1413.  
  1414.  DataCacheOn
  1415.  
  1416.  move.l $4.w,a6
  1417.  move.l SSTACK,d0
  1418.  jsr _LVOUserState(a6)
  1419.  
  1420.  move.l #0,hitcol
  1421.  
  1422.  cmp.b #'n',mors
  1423.  bne.s NOCLTXT
  1424.  
  1425.  move.b #0,lastpressed
  1426. .wtpress
  1427.  btst #6,$bfe001
  1428.  beq.s CLOSETXT
  1429.  btst #7,$bfe001
  1430.  beq.s CLOSETXT
  1431.  tst.b lastpressed
  1432.  beq.s .wtpress
  1433.  
  1434. CLOSETXT:
  1435.  
  1436.  move.w #$8f8,d0
  1437.  move.w #7,d1
  1438.  
  1439. .fdup
  1440.  move.w d0,TXTCOLL
  1441.  move.w d0,MIXCOLL
  1442.  sub.w #$121,d0
  1443. .wtframe:
  1444.  btst #5,$dff000+intreqrl
  1445.  beq.s .wtframe
  1446.  move.w #$0020,$dff000+intreq
  1447.  dbra d1,.fdup
  1448.  
  1449.  move.w #0,TXTCOLL
  1450.  move.w #0,MIXCOLL
  1451.  
  1452. NOCLTXT:
  1453.  
  1454.  
  1455.  
  1456.     move.l    4.w,a6
  1457.     jsr    _LVOForbid(a6)
  1458. ;    jsr    _LVODisable(a6)
  1459.  
  1460.  
  1461. ;    move.w    #%0111111111111111,intena+$dff000
  1462. ;    move.w    #%1000000011111111,intena+$dff000
  1463.  
  1464.  
  1465. ;charlie 
  1466.  move.l #PALETTEBIT,$dff084
  1467.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1468.  
  1469.  
  1470.  clr.b PLR1_Ducked
  1471.  clr.b PLR2_Ducked
  1472.  clr.b p1_ducked
  1473.  clr.b p2_ducked
  1474.  
  1475. ********************************************
  1476.  
  1477. ;    jmp docredits
  1478.  
  1479. ********************************************
  1480.  
  1481.  
  1482.  st doanything
  1483.  st dosounds
  1484.  
  1485.  jsr CLRNASTYMEM
  1486.  
  1487.  move.l #COMPACTMAP,a0
  1488.  move.l a0,LASTZONE
  1489.  move.w #255,d0
  1490. .clrmap
  1491.  move.l #0,(a0)+
  1492.  dbra d0,.clrmap
  1493.  
  1494.  move.l #COMPACTMAP,a0
  1495.  move.l #BIGMAP,a1
  1496.  
  1497.  bra NOALLWALLS
  1498.  
  1499.  move.l ZoneGraphAdds,a2
  1500. DOALLWALLS:
  1501.  move.l (a2),d0
  1502.  beq.s nomorezones
  1503.  move.l d0,a3
  1504.  
  1505.  addq #8,a2
  1506.  
  1507.  add.l LEVELGRAPHICS,a3
  1508.  addq #2,a3
  1509.  move.l a1,a4
  1510.  
  1511. ; DOLOWERROOM
  1512.  
  1513. innerwalls:
  1514.  move.b (a3),d1
  1515.  move.b 1(a3),d0
  1516.  bne doneinner
  1517.  
  1518.  tst.b d1
  1519.  blt noid
  1520.  
  1521.  move.b d1,d3
  1522.  and.w #15,d1
  1523.  
  1524.  moveq #0,d0
  1525.  move.w d1,d2
  1526.  add.w d1,d1
  1527.  add.w d2,d1
  1528.  addq #1,d1
  1529.  bset d1,d0
  1530.  btst #4,d3
  1531.  beq.s .nodoor
  1532.  addq #1,d1
  1533.  bset d1,d0
  1534. .nodoor
  1535.  
  1536.  or.l d0,(a0)
  1537.  
  1538.  move.w 2(a3),(a4)
  1539.  move.w 4(a3),2(a4)
  1540.  
  1541. noid:
  1542.  
  1543.  add.w #30,a3
  1544.  addq #4,a4
  1545.  
  1546.  bra innerwalls
  1547.  
  1548. doneinner:
  1549.  
  1550.  add.w #40,a1
  1551.  addq #4,a0
  1552.  
  1553.  bra DOALLWALLS
  1554. nomorezones:
  1555.  
  1556. NOALLWALLS
  1557.  
  1558.  move.w #96,MIDDLEX
  1559.  move.w #192,RIGHTX
  1560.  move.w #160,BOTTOMY
  1561.  move.w #80,TOTHEMIDDLE
  1562.  clr.b FULLSCR
  1563.  move.l scrn,a0
  1564.  jsr WIPEDISPLAY
  1565.  move.l scrn2,a0
  1566.  jsr WIPEDISPLAY
  1567.  
  1568.  st PLAYERONEGUNS+1
  1569.  st PLAYERTWOGUNS+1
  1570.  
  1571.  move.w #100,timetodamage
  1572.  
  1573.  move.w #299,d0
  1574.  move.l #DAMAGED,a0
  1575. CLRDAM:
  1576.  move.w #0,(a0)+
  1577.  dbra d0,CLRDAM
  1578.  
  1579.  moveq #0,d0
  1580.  move.w d0,STOPOFFSET
  1581.  neg.w d0
  1582.  add.w TOTHEMIDDLE,d0
  1583.  move.w d0,SMIDDLEY
  1584.  muls #320,d0
  1585.  move.l d0,SBIGMIDDLEY
  1586.  
  1587.  move.w #0,PLR1_AIMSPD
  1588.  move.w #0,PLR2_AIMSPD
  1589.  
  1590.  move.l scrn,SCRNSHOWPT
  1591.  
  1592.  move.l scrn2,SCRNDRAWPT
  1593.  
  1594.  move.w #%110000000000,$dff034
  1595.  
  1596.  
  1597.  move.l #MESSAGEBUFFER,a0
  1598.  move.w #19,d0
  1599. clrmessbuff:
  1600.  move.l #0,(a0)+
  1601.  dbra d0,clrmessbuff
  1602.  
  1603. lop:
  1604.  
  1605. ; move.w COUNTER,d0
  1606. ; ext.l d0
  1607. ; divs #10,d0
  1608. ; swap d0
  1609. ; add.b #'0',d0
  1610. ; move.b d0,COUNTSPACE+2
  1611. ; swap d0
  1612. ; ext.l d0
  1613. ; divs #10,d0
  1614. ; swap d0
  1615. ; add.b #'0',d0
  1616. ; move.b d0,COUNTSPACE+1
  1617. ; swap d0
  1618. ; add.b #'0',d0
  1619. ; move.b d0,COUNTSPACE
  1620. ;
  1621. ; move.w COUNTER2,d0
  1622. ; ext.l d0
  1623. ; divs #10,d0
  1624. ; swap d0
  1625. ; add.b #'0',d0
  1626. ; move.b d0,COUNTSPACE+5
  1627. ; swap d0
  1628. ; ext.l d0
  1629. ; divs #10,d0
  1630. ; swap d0
  1631. ; add.b #'0',d0
  1632. ; move.b d0,COUNTSPACE+4
  1633. ; swap d0
  1634. ; add.b #'0',d0
  1635. ; move.b d0,COUNTSPACE+3
  1636.  
  1637. ;
  1638. ; move.l #COUNTSPACE,d0
  1639. ; jsr SENDMESSAGE
  1640. ;
  1641. ; move.w #0,COUNTER
  1642. ; move.w #0,COUNTER2
  1643.  
  1644.  move.b MAPON,REALMAPON
  1645.  
  1646.  move.b FULLSCRTEMP,d0
  1647.  move.b FULLSCR,d1
  1648.  eor.b d1,d0
  1649.  beq.s .notswapscr2
  1650.  
  1651.  move.b FULLSCRTEMP,FULLSCR
  1652.  beq.s .notswapscr3
  1653.  
  1654.  move.w #144,MIDDLEX
  1655.  move.w #288,RIGHTX
  1656.  move.w #232,BOTTOMY
  1657.  move.w #120,TOTHEMIDDLE
  1658.  move.l SCRNSHOWPT,a0
  1659.  jsr WIPEDISPLAY
  1660.  move.l SCRNDRAWPT,a0
  1661.  jsr WIPEDISPLAY
  1662.  
  1663.  bra.s .notswapscr2
  1664.  
  1665. .notswapscr3:
  1666.  move.w #96,MIDDLEX
  1667.  move.w #192,RIGHTX
  1668.  move.w #160,BOTTOMY
  1669.  move.w #80,TOTHEMIDDLE
  1670.  move.l SCRNSHOWPT,a0
  1671.  jsr WIPEDISPLAY
  1672.  move.l SCRNDRAWPT,a0
  1673.  jsr WIPEDISPLAY
  1674. .notswapscr2:
  1675.  
  1676.  
  1677.  btst #6,$bfe001
  1678. ;charlie bne.b .nocop
  1679.  
  1680. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1681.  
  1682. .nocop
  1683.  
  1684.  move.l #KeyMap,a5
  1685.  
  1686.  cmp.b #'n',mors
  1687.  bne .nopause
  1688.  tst.b $19(a5)
  1689.  beq.s .nopause
  1690.  clr.b doanything
  1691.  
  1692. .waitrel:
  1693.  
  1694.  tst.b PLR1JOY
  1695.  beq.s .NOJOY
  1696.  jsr _ReadJoy1
  1697. .NOJOY
  1698.  
  1699.  tst.b $19(a5)
  1700.  bne.s .waitrel
  1701.  
  1702.  bsr PAUSEOPTS
  1703.  
  1704.  st doanything
  1705. .nopause: 
  1706.  
  1707.  move.l hitcol,d0
  1708.  move.l d0,d1
  1709.  
  1710. ********************************************
  1711. * Remove after colour testing 
  1712. ; moveq #0,d1
  1713. ********************************************
  1714.  
  1715.  add.l #PALETTEBIT,d1
  1716.  tst.l d0
  1717.  beq.s nofadedownhc
  1718.  sub.l #2116,d0
  1719.  move.l d0,hitcol
  1720. nofadedownhc:
  1721.  
  1722.  move.l d1,a0
  1723.  move.l #PALETTESPACE,a1
  1724.  move.l #(2116/4)-2,d0
  1725. putinpal:
  1726.  move.l (a0)+,(a1)+
  1727.  dbra d0,putinpal
  1728.  
  1729.  st READCONTROLS
  1730.  move.l #$dff000,a6
  1731.  
  1732.  
  1733.  cmp.b #'n',mors
  1734.  beq .nopause
  1735.  
  1736.  move.b SLAVEPAUSE,d0
  1737.  or.b MASTERPAUSE,d0
  1738.  beq.s .nopause
  1739.  clr.b doanything
  1740.  
  1741.  move.l #KeyMap,a5
  1742. .waitrel:
  1743.  
  1744.  cmp.b #'s',mors
  1745.  beq.s .RE2
  1746.  tst.b PLR1JOY
  1747.  beq.s .NOJOY
  1748.  jsr _ReadJoy1
  1749.  bra .RE1
  1750. .RE2:
  1751.  tst.b PLR2JOY
  1752.  beq.s .NOJOY
  1753.  jsr _ReadJoy2
  1754. .RE1
  1755. .NOJOY:
  1756.  tst.b $19(a5)
  1757.  bne.s .waitrel
  1758.  
  1759.  bsr PAUSEOPTS
  1760.  
  1761.  cmp.b #'m',mors
  1762.  bne.s .slavelast
  1763.  Jsr SENDFIRST
  1764.  bra .masfirst
  1765. .slavelast
  1766.  Jsr RECFIRST
  1767. .masfirst:
  1768.  clr.b SLAVEPAUSE
  1769.  clr.b MASTERPAUSE
  1770.  st doanything
  1771.  
  1772. .nopause: 
  1773.  
  1774.  
  1775.  move.l drawpt,d0
  1776.  move.l olddrawpt,drawpt
  1777.  move.l d0,olddrawpt
  1778.  
  1779.  move.l SCRNDRAWPT,d0
  1780.  move.l SCRNSHOWPT,SCRNDRAWPT
  1781.  move.l d0,SCRNSHOWPT
  1782.  
  1783. ; move.l d0,$dff084    
  1784.  move.l drawpt,a3
  1785. ; move.l COPSCRNBUFF,a3
  1786.  adda.w #10,a3
  1787.  move.l a3,frompt
  1788.  add.l #104*4*40,a3
  1789.  move.l a3,midpt
  1790.  
  1791.  cmp.b #'s',mors
  1792.  beq.s nowaitslave
  1793.  
  1794. waitfortop:
  1795.  
  1796.  btst.b #0,intreqrl(a6)
  1797.  beq.b waitfortop
  1798.  
  1799.  move.w #$1,intreq(a6)
  1800. ; move.l #PLR1_GunData,GunData
  1801.  move.b PLR1_GunSelected,GunSelected
  1802.  bra waitmaster
  1803.  
  1804. nowaitslave:
  1805. ; move.l #PLR2_GunData,GunData
  1806.  move.b PLR2_GunSelected,GunSelected
  1807. waitmaster:
  1808.  
  1809.  move.l d0,d1
  1810.  move.l d1,d0
  1811.  move.w d0,pl1l
  1812.  swap d0
  1813.  move.w d0,pl1h
  1814.  
  1815.  add.l #10240,d1
  1816.  move.l d1,d0
  1817.  move.w d0,pl2l
  1818.  swap d0
  1819.  move.w d0,pl2h
  1820.  
  1821.  add.l #10240,d1
  1822.  move.l d1,d0
  1823.  move.w d0,pl3l
  1824.  swap d0
  1825.  move.w d0,pl3h
  1826.  
  1827.  add.l #10240,d1
  1828.  move.l d1,d0
  1829.  move.w d0,pl4l
  1830.  swap d0
  1831.  move.w d0,pl4h
  1832.  
  1833.  add.l #10240,d1
  1834.  move.l d1,d0
  1835.  move.w d0,pl5l
  1836.  swap d0
  1837.  move.w d0,pl5h
  1838.  
  1839.  add.l #10240,d1
  1840.  move.l d1,d0
  1841.  move.w d0,pl6l
  1842.  swap d0
  1843.  move.w d0,pl6h
  1844.  
  1845.  add.l #10240,d1
  1846.  move.l d1,d0
  1847.  move.w d0,pl7l
  1848.  swap d0
  1849.  move.w d0,pl7h
  1850.  
  1851.  add.l #10240,d1
  1852.  move.l d1,d0
  1853.  move.w d0,pl8l
  1854.  swap d0
  1855.  move.w d0,pl8h 
  1856.  
  1857.  move.l #SMIDDLEY,a0
  1858.  movem.l (a0)+,d0/d1
  1859.  move.l d0,MIDDLEY
  1860.  move.l d1,MIDDLEY+4
  1861.  
  1862.  move.l waterpt,a0
  1863.  move.l (a0)+,watertouse
  1864.  cmp.l #endwaterlist,a0
  1865.  blt.s okwat
  1866.  move.l #waterlist,a0
  1867. okwat:
  1868.  move.l a0,waterpt
  1869.  
  1870.  add.w #640,wtan
  1871.  and.w #8191,wtan
  1872.  add.l #1,wateroff
  1873.  and.l #$3fff3fff,wateroff
  1874.  
  1875.  move.l PLR1_xoff,OLDX1
  1876.  move.l PLR1_zoff,OLDZ1
  1877.  move.l PLR2_xoff,OLDX2
  1878.  move.l PLR2_zoff,OLDZ2
  1879.  
  1880.  move.l #$dff000,a6
  1881.  
  1882.  cmp.b #'s',mors
  1883.  beq ASlaveShouldWaitOnHisMaster
  1884.  
  1885.  cmp.b #'n',mors
  1886.  bne NotOnePlayer
  1887.  
  1888.  movem.l d0-d7/a0-a6,-(a7)
  1889.  
  1890.  moveq #0,d0
  1891.  move.b GunSelected,d0
  1892.  move.l LINKFILE,a6
  1893.  add.l #GunBulletTypes,a6
  1894.  move.w (a6,d0.w*8),d0
  1895.  
  1896.  move.l #PLAYERONEAMMO,a6
  1897.  move.w (a6,d0.w*2),d0
  1898.  move.w d0,Ammo
  1899.  movem.l (a7)+,d0-d7/a0-a6
  1900.  
  1901.  move.w PLAYERONEHEALTH,Energy
  1902.  
  1903.  move.w FramesToDraw,TempFrames
  1904.  cmp.w #15,TempFrames
  1905.  blt.s .okframe
  1906.  move.w #15,TempFrames
  1907. .okframe:
  1908.  move.w #0,FramesToDraw
  1909.  
  1910. *********************************************
  1911. *********** TAKE THIS OUT *******************
  1912. *********************************************
  1913.  
  1914.  move.l CHEATPTR,a4
  1915.  add.l #200000,a4
  1916.  moveq #0,d0
  1917.  move.b (a4),d0
  1918.  
  1919.  move.l #KeyMap,a5
  1920.  tst.b (a5,d0.w)
  1921.  beq.s .nocheat
  1922.  
  1923.  addq #1,a4
  1924.  cmp.l #ENDCHEAT,a4
  1925.  blt.s .nocheat
  1926.  cmp.w #0,CHEATNUM
  1927.  beq.s .nocheat
  1928.  sub.w #1,CHEATNUM
  1929.  move.l #CHEATFRAME,a4
  1930.  move.w #127,PLR1_energy
  1931.  jsr EnergyBar
  1932. .nocheat
  1933.  
  1934.  sub.l #200000,a4
  1935.  move.l a4,CHEATPTR
  1936.  
  1937. **********************************************
  1938. **********************************************
  1939. **********************************************
  1940.  
  1941.  move.l PLR1s_xoff,p1_xoff
  1942.  move.l PLR1s_zoff,p1_zoff
  1943.  move.l PLR1s_yoff,p1_yoff
  1944.  move.l PLR1s_height,p1_height
  1945.  move.w PLR1s_angpos,p1_angpos
  1946.  move.w PLR1_bobble,p1_bobble
  1947.  move.b PLR1_clicked,p1_clicked
  1948.  move.b PLR1_fire,p1_fire
  1949.  clr.b PLR1_clicked
  1950.  move.b PLR1_SPCTAP,p1_spctap
  1951.  clr.b PLR1_SPCTAP
  1952.  move.b PLR1_Ducked,p1_ducked
  1953.  move.b PLR1_GunSelected,p1_gunselected
  1954.  
  1955.  bsr PLR1_Control
  1956.  
  1957.  move.l PLR1_Roompt,a0
  1958.  move.l ToZoneRoof(a0),SplitHeight
  1959.  move.w p1_xoff,THISPLRxoff
  1960.  move.w p1_zoff,THISPLRzoff
  1961.  
  1962.  
  1963.  move.l #$60000,p2_yoff
  1964.  move.l PLR2_Obj,a0
  1965.  move.w #-1,GraphicRoom(a0)
  1966.  move.w #-1,12(a0)
  1967.  move.b #0,17(a0)
  1968.  move.l #BollocksRoom,PLR2_Roompt
  1969.  
  1970.  bra donetalking
  1971.  
  1972. NotOnePlayer:
  1973.  move.l #KeyMap,a5
  1974.  tst.b $19(a5)
  1975.  sne MASTERPAUSE
  1976.  
  1977. *********************************
  1978.  move.w PLAYERONEHEALTH,Energy
  1979. ; change this back
  1980. *********************************
  1981.  movem.l d0-d7/a0-a6,-(a7)
  1982.  
  1983.  moveq #0,d0
  1984.  move.b GunSelected,d0
  1985.  move.l LINKFILE,a6
  1986.  add.l #GunBulletTypes,a6
  1987.  move.w (a6,d0.w*8),d0
  1988.  
  1989.  move.l #PLAYERONEAMMO,a6
  1990.  move.w (a6,d0.w*2),d0
  1991.  move.w d0,Ammo
  1992.  movem.l (a7)+,d0-d7/a0-a6
  1993.  
  1994.  jsr SENDFIRST
  1995.  
  1996.  move.w FramesToDraw,TempFrames
  1997.  cmp.w #15,TempFrames
  1998.  blt.s .okframe
  1999.  move.w #15,TempFrames
  2000. .okframe:
  2001.  move.w #0,FramesToDraw
  2002.  
  2003.  move.l PLR1s_xoff,p1_xoff
  2004.  move.l PLR1s_zoff,p1_zoff
  2005.  move.l PLR1s_yoff,p1_yoff
  2006.  move.l PLR1s_height,p1_height
  2007.  move.w PLR1s_angpos,p1_angpos
  2008.  move.w PLR1_bobble,p1_bobble
  2009.  move.b PLR1_clicked,p1_clicked
  2010.  clr.b PLR1_clicked
  2011.  move.b PLR1_fire,p1_fire
  2012.  move.b PLR1_SPCTAP,p1_spctap
  2013.  clr.b PLR1_SPCTAP
  2014.  move.b PLR1_Ducked,p1_ducked
  2015.  move.b PLR1_GunSelected,p1_gunselected
  2016.  
  2017.  move.l PLR1_AIMSPD,d0
  2018.  jsr SENDFIRST
  2019.  move.l d0,PLR2_AIMSPD
  2020.  
  2021.  move.l p1_xoff,d0
  2022.  jsr SENDFIRST
  2023.  move.l d0,p2_xoff
  2024.  
  2025.  move.l p1_zoff,d0
  2026.  jsr SENDFIRST
  2027.  move.l d0,p2_zoff 
  2028.  
  2029.  move.l p1_yoff,d0
  2030.  jsr SENDFIRST
  2031.  move.l d0,p2_yoff
  2032.   
  2033.  move.l p1_height,d0
  2034.  jsr SENDFIRST
  2035.  move.l d0,p2_height
  2036.  
  2037.  move.w p1_angpos,d0
  2038.  swap d0
  2039.  move.w p1_bobble,d0
  2040.  jsr SENDFIRST
  2041.  move.w d0,p2_bobble
  2042.  swap d0
  2043.  move.w d0,p2_angpos
  2044.  
  2045.  
  2046.  move.w TempFrames,d0
  2047.  swap d0
  2048.  move.b p1_spctap,d0
  2049.  lsl.w #8,d0
  2050.  move.b p1_clicked,d0
  2051.  jsr SENDFIRST
  2052.  move.b d0,p2_clicked
  2053.  lsr.w #8,d0
  2054.  move.b d0,p2_spctap
  2055.  
  2056.  
  2057.  move.w Rand1,d0
  2058.  swap d0
  2059.  move.b p1_ducked,d0
  2060.  lsl.w #8,d0
  2061.  move.b p1_gunselected,d0
  2062.  jsr SENDFIRST
  2063.  move.b d0,p2_gunselected
  2064.  lsr.w #8,d0
  2065.  move.b d0,p2_ducked
  2066.  
  2067.  move.b p1_fire,d0
  2068.  lsl.w #8,d0
  2069.  move.b MASTERQUITTING,d0
  2070.  or.b d0,SLAVEQUITTING
  2071.  swap d0
  2072.  move.b MASTERPAUSE,d0
  2073.  or.b d0,SLAVEPAUSE
  2074.  jsr SENDFIRST
  2075.  or.b d0,MASTERPAUSE
  2076.  or.b d0,SLAVEPAUSE
  2077.  swap d0
  2078.  or.b d0,SLAVEQUITTING
  2079.  or.b d0,MASTERQUITTING
  2080.  lsr.w #8,d0
  2081.  move.b d0,p2_fire
  2082.  
  2083.  bsr PLR1_Control
  2084.  bsr PLR2_Control
  2085.  move.l PLR1_Roompt,a0
  2086.  move.l ToZoneRoof(a0),SplitHeight
  2087.  move.w p1_xoff,THISPLRxoff
  2088.  move.w p1_zoff,THISPLRzoff
  2089.  
  2090.  bra donetalking
  2091.  
  2092. ASlaveShouldWaitOnHisMaster:
  2093.  
  2094.  move.l #KeyMap,a5
  2095.  tst.b $19(a5)
  2096.  sne SLAVEPAUSE
  2097.  
  2098.  movem.l d0-d7/a0-a6,-(a7)
  2099.  
  2100.  moveq #0,d0
  2101.  move.b GunSelected,d0
  2102.  move.l LINKFILE,a6
  2103.  add.l #GunBulletTypes,a6
  2104.  move.w (a6,d0.w*8),d0
  2105.  
  2106.  move.l #PLAYERTWOAMMO,a6
  2107.  move.w (a6,d0.w*2),d0
  2108.  move.w d0,Ammo
  2109.  movem.l (a7)+,d0-d7/a0-a6
  2110.  
  2111.  move.w PLAYERTWOHEALTH,Energy
  2112.  
  2113.  jsr RECFIRST
  2114.  
  2115.  move.l PLR2s_xoff,p2_xoff
  2116.  move.l PLR2s_zoff,p2_zoff
  2117.  move.l PLR2s_yoff,p2_yoff
  2118.  move.l PLR2s_height,p2_height
  2119.  move.w PLR2s_angpos,p2_angpos
  2120.  move.w PLR2_bobble,p2_bobble
  2121.  move.b PLR2_clicked,p2_clicked
  2122.  clr.b PLR2_clicked
  2123.  move.b PLR2_fire,p2_fire
  2124.  move.b PLR2_SPCTAP,p2_spctap
  2125.  clr.b PLR2_SPCTAP
  2126.  move.b PLR2_Ducked,p2_ducked
  2127.  move.b PLR2_GunSelected,p2_gunselected
  2128.  
  2129.  move.l PLR2_AIMSPD,d0
  2130.  jsr RECFIRST
  2131.  move.l d0,PLR1_AIMSPD
  2132.  
  2133.  move.l p2_xoff,d0
  2134.  jsr RECFIRST
  2135.  move.l d0,p1_xoff
  2136.  
  2137.  move.l p2_zoff,d0
  2138.  jsr RECFIRST
  2139.  move.l d0,p1_zoff
  2140.  
  2141.  move.l p2_yoff,d0
  2142.  jsr RECFIRST
  2143.  move.l d0,p1_yoff
  2144.  
  2145.  move.l p2_height,d0
  2146.  jsr RECFIRST
  2147.  move.l d0,p1_height
  2148.  
  2149.  move.w p2_angpos,d0
  2150.  swap d0
  2151.  move.w p2_bobble,d0
  2152.  jsr RECFIRST
  2153.  move.w d0,p1_bobble
  2154.  swap d0
  2155.  move.w d0,p1_angpos
  2156.  
  2157.  
  2158.  move.b p2_spctap,d0
  2159.  lsl.w #8,d0
  2160.  move.b p2_clicked,d0
  2161.  jsr RECFIRST
  2162.  move.b d0,p1_clicked
  2163.  lsr.w #8,d0
  2164.  move.b d0,p1_spctap
  2165.  swap d0
  2166.  move.w d0,TempFrames
  2167.  
  2168.  move.b p2_ducked,d0
  2169.  lsl.w #8,d0
  2170.  move.b p2_gunselected,d0
  2171.  jsr RECFIRST
  2172.  move.b d0,p1_gunselected
  2173.  lsr.w #8,d0
  2174.  move.b d0,p1_ducked
  2175.  swap d0
  2176.  move.w d0,Rand1
  2177.  
  2178.  move.b p2_fire,d0
  2179.  lsl.w #8,d0
  2180.  move.b SLAVEQUITTING,d0
  2181.  or.b d0,MASTERQUITTING
  2182.  swap d0
  2183.  move.b SLAVEPAUSE,d0
  2184.  or.b d0,MASTERPAUSE
  2185.  jsr RECFIRST
  2186.  or.b d0,MASTERPAUSE
  2187.  or.b d0,SLAVEPAUSE
  2188.  swap d0
  2189.  or.b d0,SLAVEQUITTING
  2190.  or.b d0,MASTERQUITTING
  2191.  lsr.w #8,d0
  2192.  move.b d0,p1_fire
  2193.  
  2194.  
  2195.  bsr PLR1_Control
  2196.  bsr PLR2_Control
  2197.  move.w p2_xoff,THISPLRxoff
  2198.  move.w p2_zoff,THISPLRzoff
  2199.  move.l PLR2_Roompt,a0
  2200.  move.l ToZoneRoof(a0),SplitHeight
  2201.  
  2202. donetalking:
  2203.  
  2204.  
  2205.  move.l #ZoneBrightTable,a1
  2206.  move.l ZoneAdds,a2
  2207.  move.l PLR2_ListOfGraphRooms,a0
  2208. ; move.l PLR2_PointsToRotatePtr,a5
  2209.  move.l a0,a5
  2210.  cmp.b #'s',mors
  2211.  beq.s doallz
  2212.  move.l PLR1_ListOfGraphRooms,a0
  2213. ; move.l PLR1_PointsToRotatePtr,a5
  2214.  move.l a0,a5 
  2215. doallz
  2216.  move.w (a0),d0
  2217.  blt.s doneallz
  2218.  add.w #8,a0
  2219.  
  2220.  move.l (a2,d0.w*4),a3
  2221.  add.l LEVELDATA,a3
  2222.  move.w ToZoneBrightness(a3),d2
  2223.  
  2224.  blt.s justbright
  2225.  move.w d2,d3
  2226.  lsr.w #8,d3
  2227.  tst.b d3
  2228.  beq.s justbright
  2229.  
  2230.  move.l #BrightAnimTable,a4
  2231.  move.w -2(a4,d3.w*2),d2
  2232.  
  2233. justbright:
  2234.  muls #32,d2
  2235.  divs #20,d2
  2236.  move.w d2,(a1,d0.w*4)
  2237.  
  2238.  move.w ToUpperBrightness(a3),d2
  2239.  
  2240.  blt.s justbright2
  2241.  move.w d2,d3
  2242.  lsr.w #8,d3
  2243.  tst.b d3
  2244.  beq.s justbright2
  2245.  
  2246.  move.l #BrightAnimTable,a4
  2247.  move.w -2(a4,d3.w*2),d2
  2248.  
  2249. justbright2:
  2250.  
  2251.  muls #32,d2
  2252.  divs #20,d2
  2253.  move.w d2,2(a1,d0.w*4)
  2254.  
  2255.  bra doallz
  2256.  
  2257. doneallz:
  2258.  
  2259.  move.l PointBrights,a2
  2260.  move.l #CurrentPointBrights,a3
  2261. justtheone:
  2262.  move.w (a5),d0
  2263.  blt whythehell
  2264.  addq #8,a5
  2265.  
  2266.  muls #40,d0
  2267.  
  2268.  move.w #39,d7
  2269.  
  2270. allinzone:
  2271.  move.w (a2,d0.w*2),d2
  2272.  
  2273.  tst.b d2
  2274.  blt.s .justbright
  2275.  move.w d2,d3
  2276.  lsr.w #8,d3
  2277.  tst.b d3
  2278.  beq.s .justbright
  2279.  
  2280.  move.w d3,d4
  2281.  and.w #$f,d3
  2282.  lsr.w #4,d4
  2283.  add.w #1,d4
  2284.  move.l #BrightAnimTable,a0
  2285.  move.w -2(a0,d3.w*2),d3
  2286.  ext.w d2
  2287.  sub.w d2,d3
  2288.  muls d4,d3
  2289.  asr.w #4,d3
  2290.  add.w d3,d2
  2291.  
  2292. .justbright:
  2293.  ext.w d2
  2294.  
  2295.  muls #31,d2
  2296.  divs #20,d2
  2297.  bge.s .itspos
  2298.  sub.w #600,d2
  2299. .itspos:
  2300.  add.w #300,d2
  2301.  
  2302.  move.w d2,(a3,d0.w*2)
  2303.  addq #1,d0
  2304.  dbra d7,allinzone
  2305.  
  2306.  bra justtheone
  2307.  
  2308. whythehell:
  2309.  
  2310.  move.l PLR1_Roompt,a0
  2311.  move.l #CurrentPointBrights,a1
  2312.  move.l ZoneBorderPts,a2
  2313.  move.w (a0),d0
  2314.  muls #10,d0
  2315.  lea (a2,d0.w*2),a2
  2316.  lea (a1,d0.w*8),a1
  2317.  
  2318.  moveq #9,d7
  2319.  moveq #0,d0
  2320.  moveq #0,d1
  2321. findaverage:
  2322.  tst.w (a2)+
  2323.  blt.s .foundaverage
  2324.  addq #1,d0
  2325.  move.w (a1)+,d2
  2326.  bge.s .okpos
  2327.  neg.w d2
  2328. .okpos:
  2329.  add.w d2,d1
  2330.  
  2331.  dbra d7,findaverage
  2332.  
  2333. .foundaverage:
  2334.  
  2335.  ext.l d1
  2336.  divs d0,d1
  2337.  sub.w #300,d1
  2338.  move.w d1,PLR1_RoomBright
  2339.  
  2340.  cmp.b #'n',mors
  2341.  beq nosee
  2342.  
  2343.  move.l PLR1_Roompt,FromRoom
  2344.  move.l PLR2_Roompt,ToRoom
  2345.  move.w p1_xoff,Viewerx
  2346.  move.w p1_zoff,Viewerz
  2347.  move.l p1_yoff,d0
  2348.  asr.l #7,d0
  2349.  move.w d0,Viewery
  2350.  move.w p2_xoff,Targetx
  2351.  move.w p2_zoff,Targetz
  2352.  move.l p2_yoff,d0
  2353.  asr.l #7,d0
  2354.  move.w d0,Targety
  2355.  move.b PLR1_StoodInTop,ViewerTop
  2356.  move.b PLR2_StoodInTop,TargetTop
  2357.  jsr CanItBeSeen
  2358.  
  2359.  move.l PLR1_Obj,a0
  2360.  move.b CanSee,d0
  2361.  and.b #2,d0
  2362.  move.b d0,17(a0)
  2363.  move.l PLR2_Obj,a0
  2364.  move.b CanSee,d0
  2365.  and.b #1,d0
  2366.  move.b d0,17(a0)
  2367.  
  2368. nosee:
  2369.  
  2370.  
  2371.  move.w TempFrames,d0
  2372.  add.w d0,p1_holddown
  2373.  cmp.w #30,p1_holddown
  2374.  blt.s oklength
  2375.  move.w #30,p1_holddown
  2376. oklength:
  2377.  
  2378.  tst.b p1_fire
  2379.  bne.s okstillheld
  2380.  sub.w d0,p1_holddown
  2381.  bge.s okstillheld
  2382.  move.w #0,p1_holddown
  2383.  
  2384. okstillheld:
  2385.  
  2386.  move.w TempFrames,d0
  2387.  add.w d0,p2_holddown
  2388.  
  2389.  cmp.w #30,p2_holddown
  2390.  blt.s oklength2
  2391.  move.w #30,p2_holddown
  2392. oklength2:
  2393.  
  2394.  
  2395.  tst.b p2_fire
  2396.  bne.s okstillheld2
  2397.  sub.w d0,p2_holddown
  2398.  bge.s okstillheld2
  2399.  move.w #0,p2_holddown
  2400. okstillheld2:
  2401.  
  2402. ***** CHECKING LIGHT *********
  2403.  
  2404. ; move.w #-20,d0
  2405. ; move.w PLR1_xoff,d1
  2406. ; move.w PLR1_zoff,d2
  2407. ; move.l PLR1_Roompt,a0
  2408. ; move.w (a0),d3
  2409. ; move.w PLR1_angpos,d4
  2410. ;
  2411. ; jsr BRIGHTENPOINTSANGLE
  2412.  
  2413. ******************************
  2414.  
  2415. ; move.l #PLR1_GunData,a1
  2416. ; move.w p1_holddown,d0
  2417. ; move.w #50,10+32*3(a1)
  2418. ; move.l #PLR2_GunData,a1
  2419. ; move.w p2_holddown,d0
  2420. ; move.w #50,10+32*3(a1)
  2421.  
  2422. ******************************************
  2423. ******************************************
  2424.  
  2425.  move.w TempFrames,d1
  2426.  bgt.s noze
  2427.  moveq #1,d1
  2428. noze:
  2429.  
  2430.  move.w PLR1_xoff,d0
  2431.  sub.w OLDX1,d0
  2432.  asl.w #4,d0
  2433.  ext.l d0
  2434.  divs d1,d0
  2435.  move.w d0,XDIFF1
  2436.  move.w PLR2_xoff,d0
  2437.  sub.w OLDX2,d0
  2438.  asl.w #4,d0
  2439.  ext.l d0
  2440.  divs d1,d0
  2441.  move.w d0,XDIFF2
  2442.  move.w PLR1_zoff,d0
  2443.  sub.w OLDZ1,d0
  2444.  asl.w #4,d0
  2445.  ext.l d0
  2446.  divs d1,d0
  2447.  move.w d0,ZDIFF1
  2448.  move.w PLR2_zoff,d0
  2449.  sub.w OLDZ2,d0
  2450.  asl.w #4,d0
  2451.  ext.l d0
  2452.  divs d1,d0
  2453.  move.w d0,ZDIFF2
  2454.  
  2455.  cmp.b #'s',mors
  2456.  beq.s ImPlayer2OhYesIAm
  2457.  bsr USEPLR1
  2458.  bra IWasPlayer1
  2459.  
  2460. ImPlayer2OhYesIAm:
  2461.  bsr USEPLR2
  2462. IWasPlayer1:
  2463.  
  2464.  
  2465.  cmp.b #'s',mors
  2466.  beq drawplayer2
  2467.  
  2468.  move.w #0,scaleval
  2469.  
  2470.  move.l PLR1_xoff,xoff
  2471.  move.l PLR1_yoff,yoff
  2472.  move.l PLR1_zoff,zoff
  2473.  move.w PLR1_angpos,angpos
  2474.  move.w PLR1_cosval,cosval
  2475.  move.w PLR1_sinval,sinval
  2476.  
  2477.  
  2478.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2479.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2480.  move.l PLR1_Roompt,Roompt
  2481.  
  2482.  move.l #KeyMap,a5
  2483.  moveq #0,d5
  2484.  move.b look_behind_key,d5
  2485.  tst.b (a5,d5.w)
  2486.  beq.s .nolookback
  2487.  
  2488.  move.l PLR1_Obj,a0
  2489.  move.w #-1,12+128(a0)
  2490.  
  2491.  eor.w #4096,angpos 
  2492.  neg.w cosval
  2493.  neg.w sinval
  2494. .nolookback:
  2495.  
  2496.  bsr OrderZones
  2497.  jsr objmoveanim
  2498.  jsr EnergyBar
  2499.  jsr AmmoBar
  2500.  
  2501. ;********************************************
  2502. ;************* Do reflection ****************
  2503. ;
  2504. ; move.l ListOfGraphRooms,a0
  2505. ; move.l ZoneAdds,a1
  2506. ;checkwaterheights
  2507. ; move.w (a0),d0
  2508. ; blt allzonesdone
  2509. ; addq #8,a0
  2510. ; move.l (a1,d0.w*4),a2
  2511. ; 
  2512. ; add.l LEVELDATA,a2
  2513. ; 
  2514. ; move.l ToZoneWater(a2),d0
  2515. ; cmp.l ToZoneFloor(a2),d0
  2516. ; blt.s WEHAVEAHEIGHT
  2517. ; 
  2518. ; bra.s checkwaterheights
  2519. ;
  2520. ;WEHAVEAHEIGHT:
  2521. ;
  2522. ; sub.l yoff,d0
  2523. ; blt.s underwater
  2524. ; 
  2525. ; add.l d0,d0
  2526. ; add.l d0,yoff
  2527. ; 
  2528. ; move.l FASTBUFFER2,FASTBUFFER
  2529. ; move.w #0,leftclip
  2530. ; move.w RIGHTX,rightclip
  2531. ; move.w #0,deftopclip
  2532. ; move.w #BOTTOMY/2,defbotclip
  2533. ; move.w #0,topclip
  2534. ; move.w #BOTTOMY/2,botclip
  2535. ;
  2536. ; clr.b DOANYWATER 
  2537. ; 
  2538. ; bsr DrawDisplay
  2539. ; 
  2540. ;allzonesdone:
  2541. ;underwater:
  2542.  
  2543. ********************************************
  2544.  
  2545.  st DOANYWATER
  2546.  
  2547.  move.l PLR1_yoff,yoff
  2548.  
  2549.  move.w #0,leftclip
  2550.  move.w RIGHTX,rightclip
  2551.  move.w #0,deftopclip
  2552.  move.w WIDESCRN,d0
  2553.  add.w d0,deftopclip
  2554.  
  2555.  move.w BOTTOMY,defbotclip
  2556.  sub.w d0,defbotclip
  2557.  move.w #0,topclip
  2558.  add.w d0,topclip
  2559.  move.w BOTTOMY,botclip
  2560.  sub.w d0,botclip
  2561. ; sub.l #10*104*4,frompt
  2562. ; sub.l #10*104*4,midpt
  2563.  
  2564. * Subroom loop
  2565.  
  2566.  bsr DrawDisplay 
  2567.  
  2568.  bra nodrawp2
  2569.  
  2570. drawplayer2
  2571.  
  2572.  move.w #0,scaleval
  2573.  move.l PLR2_xoff,xoff
  2574.  move.l PLR2_yoff,yoff
  2575.  move.l PLR2_zoff,zoff
  2576.  move.w PLR2_angpos,angpos
  2577.  move.w PLR2_cosval,cosval
  2578.  move.w PLR2_sinval,sinval 
  2579.  
  2580.  
  2581.  
  2582.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2583.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2584.  move.l PLR2_Roompt,Roompt
  2585.  
  2586.  move.l #KeyMap,a5
  2587.  moveq #0,d5
  2588.  move.b look_behind_key,d5
  2589.  tst.b (a5,d5.w)
  2590.  beq.s .nolookback
  2591.  
  2592.  move.l PLR1_Obj,a0
  2593.  move.w #-1,12+128(a0)
  2594.  eor.w #4096,angpos 
  2595.  
  2596.  neg.w cosval
  2597.  neg.w sinval
  2598. .nolookback:
  2599.  
  2600.  bsr OrderZones
  2601.  jsr objmoveanim
  2602.  jsr EnergyBar
  2603.  jsr AmmoBar
  2604.  
  2605.  move.w WIDESCRN,d0
  2606.  
  2607.  move.w #0,leftclip
  2608.  move.w RIGHTX,rightclip
  2609.  move.w #0,deftopclip
  2610.  add.w d0,deftopclip
  2611.  move.w BOTTOMY,defbotclip
  2612.  sub.w d0,defbotclip
  2613.  move.w #0,topclip
  2614.  add.w d0,topclip
  2615.  move.w BOTTOMY,botclip
  2616.  sub.w d0,botclip
  2617.  
  2618.  bsr DrawDisplay
  2619.  
  2620. nodrawp2:
  2621.  
  2622. ***************************************** 
  2623. * Copy from copbuff to chip ram
  2624.  
  2625.  
  2626. ; move.l drawpt,a3
  2627. ; adda.w #10,a3
  2628. ; move.l COPSCRNBUFF,a2
  2629. ; move.w #2,d6
  2630. ; adda.w #10,a2
  2631. ;COPYOUT
  2632. ; move.w #31,d0
  2633. ;COPYDOWN1:
  2634. ; move.w #3,d1
  2635. ; move.l a2,a4
  2636. ; move.l a3,a5
  2637. ;.inlop1:
  2638. ;val SET 0
  2639. ; REPT 20
  2640. ; move.w val(a4),val(a5)
  2641. ;val SET val+104*4
  2642. ; ENDR
  2643. ; adda.l #104*4*20,a4
  2644. ; adda.l #104*4*20,a5
  2645. ; dbra d1,.inlop1
  2646. ; addq #4,a2
  2647. ; addq #4,a3
  2648. ; dbra d0,COPYDOWN1
  2649. ; addq #4,a2
  2650. ; addq #4,a3
  2651. ; dbra d6,COPYOUT 
  2652.  
  2653.  tst.b REALMAPON
  2654.  beq.s .nomap
  2655.  bsr DoTheMapWotNastyCharlesIsForcingMeToDo
  2656. .nomap
  2657.  
  2658.  move.w WIDESCRN,d7
  2659.  
  2660.  tst.b FULLSCR
  2661.  beq nobigconv
  2662.  
  2663.  move.l FASTBUFFER,a0
  2664. ; add.l #320*2*20,a0
  2665.  move.w d7,d6
  2666.  muls #320,d6
  2667.  add.l d6,a0
  2668.  move.l SCRNDRAWPT,a1
  2669.  move.w d7,d6
  2670.  muls #40,d6
  2671.  add.l d6,a1
  2672.  add.l #2,a1
  2673.  move.l #(288/8)-1,d0
  2674.  move.l #231,d1
  2675.  sub.w d7,d1
  2676.  sub.w d7,d1
  2677.  blt nochunk
  2678.  move.w #(320-288),d2
  2679.  move.w #4,d3
  2680.  
  2681.  bra donebigconv
  2682.  
  2683. nobigconv:
  2684.  
  2685.  move.l FASTBUFFER,a0
  2686.  move.w d7,d6
  2687.  muls #320,d6
  2688.  add.l d6,a0
  2689.  move.l SCRNDRAWPT,a1
  2690.  add.l #8+40*20,a1
  2691.  move.w d7,d6
  2692.  muls #40,d6
  2693.  add.l d6,a1
  2694.  move.l #(192/8)-1,d0
  2695.  move.l #159,d1
  2696.  sub.w d7,d1
  2697.  sub.w d7,d1
  2698.  blt nochunk
  2699.  move.w #(320-192),d2
  2700.  move.w #16,d3
  2701. donebigconv
  2702.  
  2703.  tst.b DOUBLEHEIGHT
  2704.  beq.s .nodoub
  2705.  asr.w #1,d1
  2706.  blt nochunk
  2707.  add.w #320,d2
  2708.  add.w #40,d3
  2709. .nodoub:
  2710.  
  2711.  move.b DOUBLEWIDTH,d4
  2712.  
  2713.  move.b PLR1_TELEPORTED,d5
  2714.  clr.b PLR1_TELEPORTED
  2715.  cmp.b #'s',mors
  2716.  bne.s .notplr2
  2717.  move.b PLR2_TELEPORTED,d5
  2718.  clr.b PLR2_TELEPORTED
  2719. .notplr2
  2720.  jsr CHUNKYTOPLANAR 
  2721.  
  2722. nochunk:
  2723.  
  2724.  jsr MORECHUNK
  2725.  jsr MORECHUNK
  2726.  jsr MORECHUNK
  2727.  jsr MORECHUNK
  2728.  jsr MORECHUNK
  2729.  jsr MORECHUNK
  2730.  jsr MORECHUNK
  2731.  jsr MORECHUNK
  2732.  
  2733.  move.l #KeyMap,a5
  2734.  tst.b $4a(a5)
  2735.  beq .nosmallscr
  2736.  
  2737.  move.l #0,d7
  2738.  move.l #0,d6
  2739.  tst.b FULLSCR
  2740.  bne.s .attop
  2741.  move.l #40*20,d7
  2742.  move.l #40*52,d6
  2743. .attop:
  2744.  
  2745.  move.w WIDESCRN,d0
  2746.  move.l SCRNDRAWPT,a0
  2747.  add.l d7,a0
  2748.  muls #40,d0
  2749.  add.l d0,a0
  2750.  bsr CLRTWOLINES
  2751.  move.w WIDESCRN,d0
  2752.  move.l SCRNSHOWPT,a0
  2753.  add.l d7,a0
  2754.  muls #40,d0
  2755.  add.l d0,a0
  2756.  bsr CLRTWOLINES
  2757.  
  2758.  add.w #2,WIDESCRN
  2759.  
  2760.  move.l SCRNDRAWPT,a0
  2761.  add.l #232*40,a0
  2762.  sub.l d6,a0
  2763.  move.w WIDESCRN,d0
  2764.  muls #40,d0
  2765.  sub.l d0,a0
  2766.  bsr CLRTWOLINES
  2767.  move.l SCRNSHOWPT,a0
  2768.  sub.l d6,a0
  2769.  add.l #232*40,a0
  2770.  move.w WIDESCRN,d0
  2771.  muls #40,d0
  2772.  sub.l d0,a0
  2773.  bsr CLRTWOLINES
  2774.  
  2775. .nosmallscr
  2776.  
  2777.  tst.b $5e(a5)
  2778.  beq.s .nobigscr
  2779.  tst.w WIDESCRN
  2780.  ble.s .nobigscr
  2781.  
  2782.  sub.w #2,WIDESCRN
  2783.  
  2784. .nobigscr
  2785.  
  2786.  
  2787.  tst.b (a5)
  2788.  beq.s .nosavescrn
  2789.  
  2790.  not.b USEDOUG
  2791.  
  2792.  jsr SAVETHESCREEN
  2793.  
  2794. .nosavescrn:
  2795.  
  2796.  tst.b $5b(a5)
  2797.  beq notdoubheight
  2798.  tst.b LASTDH
  2799.  bne notdoubheight2
  2800.  move.l SCRNSHOWPT,a0
  2801.  jsr WIPEDISPLAY
  2802.  move.l SCRNDRAWPT,a0
  2803.  jsr WIPEDISPLAY
  2804.  st LASTDH 
  2805.  
  2806.  move.w #0,d0
  2807.  move.w #0,d1
  2808.  
  2809.  not.b DOUBLEHEIGHT
  2810.  beq.s singlepixheight
  2811.  move.w #-40,d0
  2812.  move.w #40,d1
  2813.  
  2814. singlepixheight:
  2815.  
  2816.  move.l #SCRMODULOS,a0
  2817.  move.w #115,d2
  2818. putinmode:
  2819.  move.w d0,6(a0)
  2820.  move.w d0,6+4(a0)
  2821.  move.w d1,6+16(a0)
  2822.  move.w d1,6+16+4(a0)
  2823.  add.w #32,a0
  2824.  dbra d2,putinmode
  2825.  
  2826.  bra notdoubheight2
  2827.  
  2828. notdoubheight:
  2829.  clr.b LASTDH
  2830. notdoubheight2
  2831.  
  2832.  tst.b $5a(a5)
  2833.  beq.s notdoubwidth
  2834.  tst.b LASTDW
  2835.  bne notdoubwidth2
  2836.  move.l SCRNSHOWPT,a0
  2837.  jsr WIPEDISPLAY
  2838.  move.l SCRNDRAWPT,a0
  2839.  jsr WIPEDISPLAY
  2840.  st LASTDW
  2841.  not.b DOUBLEWIDTH
  2842.  bra.s notdoubwidth2
  2843.  
  2844. notdoubwidth:
  2845.  clr.b LASTDW
  2846. notdoubwidth2:
  2847.  
  2848. ***************************************** 
  2849.  move.l PLR2_Roompt,a0
  2850.  move.l #WorkSpace,a1
  2851.  clr.l (a1)
  2852.  clr.l 4(a1)
  2853.  clr.l 8(a1)
  2854.  clr.l 12(a1)
  2855.  clr.l 16(a1)
  2856.  clr.l 20(a1)
  2857.  clr.l 24(a1)
  2858.  clr.l 28(a1)
  2859.  
  2860.  cmp.b #'n',mors
  2861.  beq.s plr1only
  2862.  
  2863.  lea ToListOfGraph(a0),a0
  2864. .doallrooms:
  2865.  move.w (a0),d0
  2866.  blt.s .allroomsdone
  2867.  addq #8,a0
  2868.  move.w d0,d1
  2869.  asr.w #3,d0
  2870.  bset d1,(a1,d0.w)
  2871.  bra .doallrooms
  2872. .allroomsdone:
  2873.  
  2874. plr1only:
  2875.  
  2876.  move.l PLR1_Roompt,a0
  2877.  lea ToListOfGraph(a0),a0
  2878. .doallrooms2:
  2879.  move.w (a0),d0
  2880.  blt.s .allroomsdone2
  2881.  addq #8,a0
  2882.  move.w d0,d1
  2883.  asr.w #3,d0
  2884.  bset d1,(a1,d0.w)
  2885.  bra .doallrooms2
  2886. .allroomsdone2:
  2887.  
  2888.  move.l #%000001,d7
  2889.  lea TEAMWORK,a2
  2890.  move.l ObjectData,a0
  2891.  sub.w #64,a0
  2892. .doallobs:
  2893.  add.w #64,a0
  2894.  move.w (a0),d0
  2895.  blt.s .allobsdone
  2896.  move.w 12(a0),d0
  2897.  blt.s .doallobs
  2898.  move.w d0,d1
  2899.  asr.w #3,d0
  2900.  btst d1,(a1,d0.w)
  2901.  bne.s .worryobj
  2902.  move.b 16(a0),d0
  2903.  btst d0,d7
  2904.  beq.s .doallobs
  2905.  moveq #0,d0
  2906.  move.b teamnumber(a0),d0
  2907.  blt.s .doallobs
  2908.  asl.w #4,d0
  2909.  tst.w SEENBY(a2,d0.w)
  2910.  blt.s .doallobs
  2911. .worryobj:
  2912.  or.b #127,worry(a0)
  2913.  bra.s .doallobs
  2914. .allobsdone:
  2915.  
  2916.  
  2917.  
  2918. ; move.l #brightentab,a0
  2919. ; move.l frompt,a3
  2920. ; adda.w #(4*33)+(104*4*20),a3
  2921. ; move.w #20,d7
  2922. ; move.w #20,d6
  2923. ;horl:
  2924. ; move.w d6,d5
  2925. ; move.l a3,a1
  2926. ;vertl
  2927. ; move.w (a1),d0
  2928. ; move.w (a0,d0.w*2),(a1)
  2929. ; addq #4,a1
  2930. ; dbra d5,vertl
  2931. ; adda.w #104*4,a3
  2932. ; dbra d7,horl
  2933.  
  2934.  move.l #$dff000,a6
  2935.  
  2936. ; move.w #$300,col0(a6)
  2937.  
  2938.  move.l #KeyMap,a5
  2939.  tst.b $45(a5)
  2940.  beq.s noend
  2941.  
  2942.  cmp.b #'s',mors
  2943.  beq plr2quit 
  2944.  
  2945.  st MASTERQUITTING
  2946.  bra noend
  2947.  
  2948. plr2quit:
  2949.  st SLAVEQUITTING
  2950. noend:
  2951.  
  2952.  tst.b MASTERQUITTING
  2953.  beq.s .noquit
  2954.  tst.b SLAVEQUITTING
  2955.  beq.s .noquit
  2956.  jmp endnomusic
  2957. .noquit
  2958.  
  2959.  cmp.b #'n',mors
  2960.  bne.s noexit
  2961.  move.l PLR1_Roompt,a0
  2962.  move.w (a0),d0
  2963. ; move.w PLOPT,d1
  2964. ; move.l #ENDZONES,a0
  2965. ; cmp.w (a0,d1.w*2),d0
  2966.  
  2967.  cmp.w ENDZONE,d0
  2968.  
  2969. ; change this for quick exit, charlie
  2970. zzzz:
  2971. ; bra end
  2972.  
  2973.  bne.s noexit
  2974.  jmp end
  2975. noexit:
  2976.  
  2977. ; tst.w PLAYERONEHEALTH
  2978. ; bgt nnoend1
  2979. ; jmp end
  2980. ;nnoend1:
  2981. ; tst.w PLAYERTWOHEALTH
  2982. ; bgt nnoend2
  2983. ; jmp end
  2984. ;nnoend2:
  2985.  
  2986. ; move.l SwitchData,a0
  2987. ; tst.b 24+8(a0)
  2988. ; bne end
  2989.   
  2990. ; JSR STOPTIMER
  2991.  
  2992.  
  2993.  bra lop
  2994.  
  2995. MORECHUNK:
  2996.  movem.l d0/a0/a1,-(a7)
  2997.  
  2998.  move.w CHUNKPROGRESS,d0
  2999.  move.l ROUTINES(pc,d0.w*4),a1
  3000.  move.l #$dff000,a0
  3001.  jsr (a1)
  3002.  
  3003.  movem.l (a7)+,d0/a0/a1
  3004.  rts
  3005.  
  3006. ROUTINES:
  3007.  dc.l .p40
  3008.  dc.l .p41
  3009.  dc.l .p42
  3010.  dc.l .p43
  3011.  dc.l .p44
  3012.  dc.l .p45
  3013.  dc.l .p46
  3014.  dc.l .p48
  3015.  
  3016. WorkBM:
  3017.  ds.l 8
  3018.  
  3019. .p40    move.l    a1,-(sp)
  3020.     move.w    #-1,bltafwm(a0)
  3021.     move.w    #-1,bltalwm(a0)
  3022.     move.l    BBuffer,d0
  3023.     move.l    d0,(bltapt,a0)
  3024.     addq.l    #2,d0
  3025.     move.l    d0,(bltbpt,a0)
  3026.     move.l    #WorkBM,a1
  3027.     move.l    2*4(a1),d0
  3028.     move.l    d0,bltdpt(a0)
  3029.     move.w    #14,bltamod(a0)
  3030.     move.w    #14,bltbmod(a0)
  3031.     move.w    #0,bltdmod(a0)
  3032.     move.w    #$cccc,bltcdat(a0)
  3033.     move.w    #$0de4,bltcon0(a0)
  3034.     move.w    #$2000,bltcon1(a0)
  3035.     move.l    PlaneSize,d0
  3036.     lsr.l    #1,d0
  3037.     move.w    d0,(bltsizv,a0)
  3038.     move.w    #1,bltsizh(a0)
  3039.     move.l    (sp)+,a1
  3040.     move.w #1,CHUNKPROGRESS
  3041.     
  3042.     rts
  3043.  
  3044. .p41    move.l    a1,-(sp)
  3045.     move.l    BBuffer,d0
  3046.     addq.l    #8,d0
  3047.     move.l    d0,(bltapt,a0)
  3048.     addq.l    #2,d0
  3049.     move.l    d0,(bltbpt,a0)
  3050.     move.l    #WorkBM,a1
  3051.     move.l    6*4(a1),d0
  3052.     move.l    d0,bltdpt(a0)
  3053.     move.w    #1,bltsizh(a0)
  3054.     move.l    (sp)+,a1
  3055.     move.w #2,CHUNKPROGRESS
  3056.     rts
  3057.  
  3058. .p42    move.l    a1,-(sp)
  3059.     move.l    BBuffer,d0
  3060.     addq.l    #4,d0
  3061.     move.l    d0,(bltapt,a0)
  3062.     addq.l    #2,d0
  3063.     move.l    d0,(bltbpt,a0)
  3064.     move.l    #WorkBM,a1
  3065.     move.l    3*4(a1),d0
  3066.     move.l    d0,bltdpt(a0)
  3067.     move.w    #1,bltsizh(a0)
  3068.     move.l    (sp)+,a1
  3069.     move.w #3,CHUNKPROGRESS
  3070.     rts
  3071.  
  3072. .p43    move.l    a1,-(sp)
  3073.     move.l    BBuffer,d0
  3074.     add.l    #12,d0
  3075.     move.l    d0,(bltapt,a0)
  3076.     addq.l    #2,d0
  3077.     move.l    d0,(bltbpt,a0)
  3078.     move.l    #WorkBM,a1
  3079.     move.l    7*4(a1),d0
  3080.     move.l    d0,bltdpt(a0)
  3081.     move.w    #1,bltsizh(a0)
  3082.     move.l    (sp)+,a1
  3083.     move.w #4,CHUNKPROGRESS
  3084.     rts
  3085.  
  3086. .p44    move.l    a1,-(sp)
  3087.     move.l    BBuffer,d0
  3088.     sub.l    #16,d0
  3089.     add.l    ChunkyPixels,d0
  3090.     move.l    d0,(bltapt,a0)
  3091.     addq.l    #2,d0
  3092.     move.l    d0,(bltbpt,a0)
  3093.     move.l    #WorkBM,a1
  3094.     move.l    0*4(a1),d0
  3095.     add.l    PlaneSize,d0
  3096.     subq.l    #2,d0
  3097.     move.l    d0,bltdpt(a0)
  3098.     move.w    #$2de4,bltcon0(a0)
  3099.     move.w    #$0002,bltcon1(a0)
  3100.     move.w    #1,bltsizh(a0)
  3101.     move.l    (sp)+,a1
  3102.     move.w #5,CHUNKPROGRESS
  3103.     rts
  3104.  
  3105. .p45    move.l    a1,-(sp)
  3106.     move.l    BBuffer,d0
  3107.     subq.l    #8,d0
  3108.     add.l    ChunkyPixels,d0
  3109.     move.l    d0,(bltapt,a0)
  3110.     addq.l    #2,d0
  3111.     move.l    d0,(bltbpt,a0)
  3112.     move.l    #WorkBM,a1
  3113.     move.l    4*4(a1),d0
  3114.     add.l    PlaneSize,d0
  3115.     subq.l    #2,d0
  3116.     move.l    d0,bltdpt(a0)
  3117.     move.w    #1,bltsizh(a0)
  3118.     move.l    (sp)+,a1
  3119.     move.w #6,CHUNKPROGRESS
  3120.     rts
  3121.  
  3122. .p46    move.l    a1,-(sp)
  3123.     move.l    BBuffer,d0
  3124.     sub.l    #12,d0
  3125.     add.l    ChunkyPixels,d0
  3126.     move.l    d0,(bltapt,a0)
  3127.     addq.l    #2,d0
  3128.     move.l    d0,(bltbpt,a0)
  3129.     move.l    #WorkBM,a1
  3130.     move.l    1*4(a1),d0
  3131.     add.l    PlaneSize,d0
  3132.     subq.l    #2,d0
  3133.     move.l    d0,bltdpt(a0)
  3134.     move.w    #1,bltsizh(a0)
  3135.     move.l    (sp)+,a1
  3136.     move.w #7,CHUNKPROGRESS
  3137.     rts
  3138.  
  3139. .p48    move.l    a1,-(sp)
  3140.     move.l    BBuffer,d0
  3141.     subq.l    #4,d0
  3142.     add.l    ChunkyPixels,d0
  3143.     move.l    d0,(bltapt,a0)
  3144.     addq.l    #2,d0
  3145.     move.l    d0,(bltbpt,a0)
  3146.     move.l    #WorkBM,a1
  3147.     move.l    5*4(a1),d0
  3148.     add.l    SizeToBot,d0
  3149.     subq.l    #2,d0
  3150.     move.l    d0,bltdpt(a0)
  3151.     move.w    #1,bltsizh(a0)
  3152.     move.l    (sp)+,a1
  3153.     move.l    #.p40,(4,a1)
  3154.     moveq    #0,d0
  3155.     rts
  3156.  
  3157.  
  3158.  
  3159.  include "ab3:source_4000/ab3diipatchidr.s"
  3160.  
  3161. CLRTWOLINES:
  3162.  
  3163.  moveq #0,d1
  3164.  move.w #7,d2
  3165. .ccc
  3166.  move.l d1,2(a0)
  3167.  move.l d1,6(a0)
  3168.  move.l d1,10(a0)
  3169.  move.l d1,14(a0)
  3170.  move.l d1,18(a0)
  3171.  move.l d1,22(a0)
  3172.  move.l d1,26(a0)
  3173.  move.l d1,30(a0)
  3174.  move.l d1,34(a0)
  3175.  move.l d1,2+40(a0)
  3176.  move.l d1,6+40(a0)
  3177.  move.l d1,10+40(a0)
  3178.  move.l d1,14+40(a0)
  3179.  move.l d1,18+40(a0)
  3180.  move.l d1,22+40(a0)
  3181.  move.l d1,26+40(a0)
  3182.  move.l d1,30+40(a0)
  3183.  move.l d1,34+40(a0)
  3184.  add.l #10240,a0
  3185.  dbra d2,.ccc
  3186.  rts
  3187.  
  3188.  
  3189. LASTDH: dc.b 0
  3190. LASTDW: dc.b 0
  3191. WIDESCRN: dc.w 0
  3192. TRRANS: dc.w 0
  3193. DOANYWATER: dc.w 0
  3194.  
  3195. DoTheMapWotNastyCharlesIsForcingMeToDo:
  3196.  
  3197.  move.l TexturePal,a4
  3198.  add.l #256*32,a4
  3199. ; add.w MAPBRIGHT,a4
  3200.  
  3201.  move.l #KeyMap,a5
  3202.  tst.b $50(a5)
  3203.  beq.s .nobrighter
  3204.  tst.w MAPBRIGHT
  3205.  beq.s .nobrighter
  3206.  
  3207.  sub.w #1,MAPBRIGHT
  3208.  
  3209. .nobrighter:
  3210.  
  3211.  tst.b $51(a5)
  3212.  beq.s .nodimmer
  3213.  cmp.w #7,MAPBRIGHT
  3214.  bge.s .nodimmer
  3215.  
  3216.  add.w #1,MAPBRIGHT
  3217.  
  3218. .nodimmer:
  3219.  
  3220.  move.l #Rotated,a1
  3221.  move.l #COMPACTMAP,a2
  3222.  move.l #BIGMAP-40,a3
  3223.  
  3224. preshow:
  3225.  add.w #40,a3
  3226.  
  3227. SHOWMAP:
  3228.  move.l (a2)+,d5
  3229.  move.l a2,d7
  3230.  cmp.l LASTZONE,d7
  3231.  bgt shownmap
  3232.  
  3233.  tst.l d5
  3234.  beq.s preshow
  3235.  
  3236.  move.w #9,d7
  3237. wallsofzone
  3238.  
  3239.  asr.l #1,d5
  3240.  bcs.s WALLSEEN
  3241.  
  3242.  asr.l #1,d5
  3243.  bcs.s WALLMAPPED
  3244.  
  3245.  asr.l #1,d5
  3246.  addq #4,a3
  3247.  bra.s DECIDEDWALL
  3248.  
  3249. WALLMAPPED:
  3250.  move.w #$b00,d4
  3251.  asr.l #1,d5
  3252.  bcc.s .notadoor
  3253.  move.w #$e00,d4
  3254. .notadoor
  3255.  
  3256.  st TRRANS
  3257.  
  3258.  bra.s DECIDEDCOLOUR
  3259.  
  3260. WALLSEEN:
  3261.  
  3262.  clr.b TRRANS
  3263.  
  3264.  move.w #255,d4
  3265.  asr.l #2,d5
  3266.  bcc.s .notadoor
  3267.  move.w #254,d4
  3268. .notadoor
  3269. DECIDEDCOLOUR:
  3270.  move.w (a3)+,d6
  3271.  move.l (a1,d6.w*8),d0
  3272.  asr.l #7,d0
  3273.  add.w mapxoff,d0
  3274.  move.w 6(a1,d6.w*8),d1
  3275.  add.w mapzoff,d1
  3276.  move.w (a3)+,d6
  3277.  move.l (a1,d6.w*8),d2
  3278.  asr.l #7,d2
  3279.  add.w mapxoff,d2
  3280.  move.w 6(a1,d6.w*8),d3
  3281.  add.w mapzoff,d3
  3282.  
  3283.  neg.w d1
  3284.  neg.w d3
  3285.  
  3286.  movem.l d7/d5,-(a7)
  3287.  bsr CLIPANDDRAW
  3288.  movem.l (a7)+,d7/d5
  3289.  
  3290. DECIDEDWALL:
  3291.  
  3292.  dbra d7,wallsofzone
  3293.  bra SHOWMAP
  3294.  
  3295. shownmap:
  3296.  
  3297.  clr.b TRRANS
  3298.  
  3299.  move.w mapxoff,d0
  3300.  move.w mapzoff,d1
  3301.  neg.w d1
  3302.  move.w d0,d2
  3303.  move.w d1,d3
  3304.  sub.w #128,d1
  3305.  add.w #128,d3
  3306.  move.w #250,d4
  3307.  bsr CLIPANDDRAW
  3308.  
  3309.  move.w mapxoff,d0
  3310.  move.w mapzoff,d1
  3311.  neg.w d1
  3312.  move.w d0,d2
  3313.  move.w d1,d3
  3314.  sub.w #128,d1
  3315.  sub.w #32,d3
  3316.  sub.w #64,d2
  3317.  move.w #250,d4
  3318.  bsr CLIPANDDRAW
  3319.  
  3320.  move.w mapxoff,d0
  3321.  move.w mapzoff,d1
  3322.  neg.w d1
  3323.  move.w d0,d2
  3324.  move.w d1,d3
  3325.  sub.w #128,d1
  3326.  sub.w #32,d3
  3327.  add.w #64,d2
  3328.  move.w #250,d4
  3329.  bsr CLIPANDDRAW
  3330.  rts
  3331.  
  3332.  
  3333. CLIPANDDRAW:
  3334.  
  3335.  tst.b FULLSCR
  3336.  beq.s .nodov
  3337.  
  3338.  add.w d0,d0
  3339.  add.w d2,d2
  3340.  ext.l d0
  3341.  ext.l d2
  3342.  divs #3,d0
  3343.  divs #3,d2
  3344.  
  3345. .nodov:
  3346.  
  3347.  move.w MAPBRIGHT,d5
  3348.  asr.w d5,d0
  3349.  asr.w d5,d1
  3350.  asr.w d5,d2
  3351.  asr.w d5,d3
  3352.  
  3353. NOSCALING:
  3354.  add.w #96,d0
  3355.  bge p1xpos
  3356.  
  3357.  add.w #96,d2
  3358.  blt OFFSCREEN
  3359.  
  3360. x1nx2p:
  3361.  
  3362.  move.w d3,d5
  3363.  sub.w d1,d5
  3364.  move.w d2,d6
  3365.  sub.w d0,d6
  3366.  beq OFFSCREEN
  3367.  
  3368.  muls d0,d5
  3369.  divs d6,d5
  3370.  sub.w d5,d1
  3371.  move.w #0,d0
  3372.  
  3373.  bra doneleftclip
  3374.  
  3375. p1xpos:
  3376.  
  3377.  add.w #96,d2
  3378.  bge doneleftclip
  3379.  
  3380.  move.w d1,d5
  3381.  sub.w d3,d5
  3382.  move.w d0,d6
  3383.  sub.w d2,d6
  3384.  beq OFFSCREEN
  3385.  
  3386.  muls d2,d5
  3387.  divs d6,d5
  3388.  sub.w d5,d3
  3389.  move.w #0,d2
  3390.  
  3391. doneleftclip:
  3392.  
  3393.  cmp.w #191,d0
  3394.  ble p1xneg
  3395.  
  3396.  cmp.w #191,d2
  3397.  bgt OFFSCREEN
  3398.  
  3399.  move.w d0,d6
  3400.  sub.w d2,d6
  3401.  beq OFFSCREEN
  3402.  sub.w #191,d0
  3403.  move.w d3,d5
  3404.  sub.w d1,d5
  3405.  
  3406.  muls d5,d0
  3407.  divs d6,d0
  3408.  add.w d0,d1
  3409.  move.w #191,d0
  3410.  
  3411.  bra donerightclip
  3412.  
  3413. p1xneg:
  3414.  
  3415.  cmp.w #191,d2
  3416.  ble donerightclip
  3417.  
  3418.  move.w d2,d6
  3419.  sub.w d0,d6
  3420.  beq OFFSCREEN
  3421.  sub.w #191,d2
  3422.  move.w d1,d5
  3423.  sub.w d3,d5
  3424.  
  3425.  muls d5,d2
  3426.  divs d6,d2
  3427.  add.w d2,d3
  3428.  move.w #191,d2
  3429.  
  3430. donerightclip:
  3431.  
  3432. *********************************
  3433.  
  3434.  add.w #80,d1
  3435.  bge p1ypos
  3436.  
  3437.  add.w #80,d3
  3438.  blt OFFSCREEN
  3439.  
  3440.  move.w d2,d5
  3441.  sub.w d0,d5
  3442.  move.w d3,d6
  3443.  sub.w d1,d6
  3444.  beq OFFSCREEN
  3445.  
  3446.  muls d1,d5
  3447.  divs d6,d5
  3448.  sub.w d5,d0
  3449.  move.w #0,d1
  3450.  
  3451.  bra donetopclip
  3452.  
  3453. p1ypos:
  3454.  
  3455.  add.w #80,d3
  3456.  bge donetopclip
  3457.  
  3458.  move.w d0,d5
  3459.  sub.w d2,d5
  3460.  move.w d1,d6
  3461.  sub.w d3,d6
  3462.  beq OFFSCREEN
  3463.  
  3464.  muls d3,d5
  3465.  divs d6,d5
  3466.  sub.w d5,d2
  3467.  move.w #0,d3
  3468.  
  3469. donetopclip:
  3470.  
  3471.  cmp.w #159,d1
  3472.  ble p1yneg
  3473.  
  3474.  cmp.w #159,d3
  3475.  bgt OFFSCREEN
  3476.  
  3477.  move.w d1,d6
  3478.  sub.w d3,d6
  3479.  beq OFFSCREEN
  3480.  sub.w #159,d1
  3481.  move.w d2,d5
  3482.  sub.w d0,d5
  3483.  
  3484.  muls d5,d1
  3485.  divs d6,d1
  3486.  add.w d1,d0
  3487.  move.w #159,d1
  3488.  
  3489.  bra donebotclip
  3490.  
  3491. p1yneg:
  3492.  
  3493.  cmp.w #159,d3
  3494.  ble donebotclip
  3495.  
  3496.  move.w d3,d6
  3497.  sub.w d1,d6
  3498.  beq OFFSCREEN
  3499.  sub.w #159,d3
  3500.  move.w d0,d5
  3501.  sub.w d2,d5
  3502.  
  3503.  muls d5,d3
  3504.  divs d6,d3
  3505.  add.w d3,d2
  3506.  move.w #159,d3
  3507.  
  3508. donebotclip:
  3509.  
  3510.  tst.b TRRANS
  3511.  bne DRAWAtransLINE
  3512.  bra DRAWAMAPLINE
  3513.  
  3514. OFFSCREEN:
  3515. NOLINEtrans:
  3516.  rts
  3517.  
  3518. MAPBRIGHT:
  3519.  dc.w 3
  3520. mapxoff: dc.w 0
  3521. mapzoff: dc.w 0
  3522.  
  3523. DRAWAtransLINE:
  3524.  
  3525.  move.l FASTBUFFER,a0    ; screen to render to.
  3526.  
  3527.  tst.b FULLSCR
  3528.  beq.s .nooffset
  3529.   
  3530.  add.l #(320*40)+(48*2),a0
  3531.   
  3532. .nooffset:
  3533.  
  3534.  cmp.w d1,d3
  3535.  bgt.s .okdown
  3536.  bne.s .aline
  3537.  cmp.w d0,d2
  3538.  beq.s NOLINEtrans 
  3539. .aline
  3540.  exg d0,d2
  3541.  exg d1,d3
  3542. .okdown
  3543.  
  3544.  move.w d1,d5
  3545.  muls #320,d5
  3546.  add.l d5,a0
  3547.  lea (a0,d0.w*2),a0
  3548.  
  3549.  sub.w d1,d3
  3550.  
  3551.  sub.w d0,d2
  3552.  bge.s downrighttrans
  3553.  
  3554. downlefttrans:
  3555.  neg.w d2
  3556.  cmp.w d2,d3
  3557.  bgt.s downmorelefttrans
  3558.  
  3559. downleftmoretrans:
  3560.  move.w #320,d6
  3561.  move.w d2,d0
  3562.  move.w d2,d7
  3563.  
  3564. .linelop:
  3565.  move.b (a0),d4
  3566.  move.b (a4,d4.w*2),(a0)
  3567.  subq #1,a0
  3568.  sub.w d3,d0
  3569.  bgt.s .noextra
  3570.  add.w d2,d0
  3571.  add.w d6,a0
  3572. .noextra:
  3573.  dbra d7,.linelop
  3574.  rts
  3575.  
  3576. downmorelefttrans:
  3577.  move.w #320,d6
  3578.  move.w d3,d0
  3579.  move.w d3,d7
  3580.  
  3581. .linelop:
  3582.  move.b (a0),d4
  3583.  move.b (a4,d4.w*2),(a0)
  3584.  add.w d6,a0
  3585.  sub.w d2,d0
  3586.  bgt.s .noextra
  3587.  add.w d3,d0
  3588.  subq #1,a0
  3589. .noextra:
  3590.  dbra d7,.linelop
  3591.  
  3592.  rts
  3593.  
  3594. downrighttrans:
  3595.  
  3596.  cmp.w d2,d3
  3597.  bgt.s downmorerighttrans
  3598.  
  3599. downrightmoretrans:
  3600.  move.w #320,d6
  3601.  move.w d2,d0
  3602.  move.w d2,d7
  3603.  
  3604. .linelop:
  3605.  move.b (a0),d4
  3606.  move.b (a4,d4.w*2),(a0)+
  3607.  sub.w d3,d0
  3608.  bgt.s .noextra
  3609.  add.w d2,d0
  3610.  add.w d6,a0
  3611. .noextra:
  3612.  dbra d7,.linelop
  3613.  
  3614.  rts
  3615.  
  3616. downmorerighttrans:
  3617.  move.w #320,d6
  3618.  move.w d3,d0
  3619.  move.w d3,d7
  3620.  
  3621. .linelop:
  3622.  move.b (a0),d4
  3623.  move.b (a4,d4.w*2),(a0)
  3624.  add.w d6,a0
  3625.  sub.w d2,d0
  3626.  bgt.s .noextra
  3627.  add.w d3,d0
  3628.  addq #1,a0
  3629. .noextra:
  3630.  dbra d7,.linelop
  3631.  
  3632.  rts
  3633.  
  3634. NOLINE:
  3635.  rts
  3636.  
  3637. DRAWAMAPLINE:
  3638.  
  3639.  
  3640.  move.l FASTBUFFER,a0    ; screen to render to.
  3641.  cmp.w d1,d3
  3642.  bgt.s .okdown
  3643.  bne.s .aline
  3644.  cmp.w d0,d2
  3645.  beq.s NOLINE 
  3646. .aline
  3647.  exg d0,d2
  3648.  exg d1,d3
  3649. .okdown
  3650.  
  3651.  move.w d1,d5
  3652.  muls #320,d5
  3653.  add.l d5,a0
  3654.  lea (a0,d0.w),a0
  3655.  
  3656.  sub.w d1,d3
  3657.  
  3658.  sub.w d0,d2
  3659.  bge.s downright
  3660.  
  3661. downleft:
  3662.  neg.w d2
  3663.  cmp.w d2,d3
  3664.  bgt.s downmoreleft
  3665.  
  3666. downleftmore:
  3667.  move.w #320,d6
  3668.  move.w d2,d0
  3669.  move.w d2,d7
  3670.  addq #1,a0
  3671.  
  3672. .linelop:
  3673.  move.b d4,-(a0)
  3674.  sub.w d3,d0
  3675.  bgt.s .noextra
  3676.  add.w d2,d0
  3677.  add.w d6,a0
  3678. .noextra:
  3679.  dbra d7,.linelop
  3680.  rts
  3681.  
  3682. downmoreleft:
  3683.  move.w #320,d6
  3684.  move.w d3,d0
  3685.  move.w d3,d7
  3686.  
  3687. .linelop:
  3688.  move.b d4,(a0)
  3689.  add.w d6,a0
  3690.  sub.w d2,d0
  3691.  bgt.s .noextra
  3692.  add.w d3,d0
  3693.  subq #1,a0
  3694. .noextra:
  3695.  dbra d7,.linelop
  3696.  
  3697.  rts
  3698.  
  3699. downright:
  3700.  
  3701.  cmp.w d2,d3
  3702.  bgt.s downmoreright
  3703.  
  3704. downrightmore:
  3705.  move.w #320,d6
  3706.  move.w d2,d0
  3707.  move.w d2,d7
  3708.  
  3709. .linelop:
  3710.  move.b d4,(a0)+
  3711.  sub.w d3,d0
  3712.  bgt.s .noextra
  3713.  add.w d2,d0
  3714.  add.w d6,a0
  3715. .noextra:
  3716.  dbra d7,.linelop
  3717.  
  3718.  rts
  3719.  
  3720. downmoreright:
  3721.  move.w #320,d6
  3722.  move.w d3,d0
  3723.  move.w d3,d7
  3724.  
  3725. .linelop:
  3726.  move.b d4,(a0)
  3727.  add.w d6,a0
  3728.  sub.w d2,d0
  3729.  bgt.s .noextra
  3730.  add.w d3,d0
  3731.  addq #1,a0
  3732. .noextra:
  3733.  dbra d7,.linelop
  3734.  
  3735.  rts
  3736.  
  3737. SAVETHESCREEN:
  3738.  
  3739.  move.l old,$dff080
  3740.  move.w #$8020,$dff000+intena
  3741.  
  3742.  move.l _IntuitionBase,a6
  3743.  jsr _LVORethinkDisplay(a6)
  3744.  
  3745.  move.l doslib,a6
  3746.  move.l #SAVENAME,d1
  3747.  move.l #1006,d2
  3748.  jsr -30(a6)
  3749.  move.l d0,handle
  3750.  
  3751.  move.l doslib,a6
  3752.  move.l #mt_init,d2
  3753.  move.l handle,d1
  3754.  move.l #10240*8,d3
  3755.  jsr _LVOWrite(a6)
  3756.  
  3757.  move.l doslib,a6
  3758.  move.l handle,d1
  3759.  jsr -36(a6)
  3760.  
  3761.  move.l doslib,a6
  3762.  move.l #200,d1
  3763.  jsr -198(a6) 
  3764.  
  3765.  move.w #$0020,$dff000+intena
  3766.  move.l #bigfield,$dff080
  3767.  
  3768.  add.b #1,SAVELETTER
  3769.  
  3770.  rts
  3771.  
  3772. SAVENAME: dc.b 'work:rawscrn'
  3773. SAVELETTER: dc.b 'd',0
  3774.  
  3775.  even
  3776.  
  3777.  include "ab3:source_4000/CHUNKY.s"
  3778.  
  3779.  
  3780. MASTERQUITTING: dc.b 0
  3781. SLAVEQUITTING: dc.b 0
  3782. MASTERPAUSE: dc.b 0
  3783. SLAVEPAUSE: dc.b 0
  3784.  
  3785. PAUSEOPTS:
  3786.  include "ab3:source_4000/pauseopts"
  3787.  
  3788. ENDZONE: dc.w 0
  3789.  
  3790. ENDZONES:
  3791. ; LEVEL 1
  3792.  dc.w -1
  3793. ; dc.w 55
  3794. ; LEVEL 2
  3795.  dc.w 149
  3796. ; LEVEL 3
  3797.  dc.w 155
  3798. ; LEVEL 4
  3799.  dc.w 107
  3800. ; LEVEL 5
  3801.  dc.w 67
  3802. ; LEVEL 6
  3803.  dc.w 132
  3804. ; LEVEL 7
  3805.  dc.w 203
  3806. ; LEVEL 8
  3807.  dc.w 166
  3808. ; LEVEL 9
  3809.  dc.w 118
  3810. ; LEVEL 10
  3811.  dc.w 102
  3812. ; LEVEL 11
  3813.  dc.w 103
  3814. ; LEVEL 12
  3815.  dc.w 2
  3816. ; LEVEL 13
  3817.  dc.w 98
  3818. ; LEVEL 14
  3819.  dc.w 0
  3820. ; LEVEL 15
  3821.  dc.w 148
  3822. ; LEVEL 16
  3823.  dc.w 103
  3824.  
  3825. ***************************************************************************
  3826. ***************************************************************************
  3827. ****************** End of Main Loop here ********************************** 
  3828. ***************************************************************************
  3829. ***************************************************************************
  3830.  
  3831. putinsmallscr:
  3832.  
  3833.  rts
  3834.  
  3835.  move.l #$1fe0000,statskip
  3836.  move.l #$1fe0000,statskip+4
  3837.  
  3838.  move.l #healthpal,a5
  3839. ; move.l COPSCRN1,a0
  3840. ; move.l COPSCRN2,a2
  3841.  move.w #scrheight-1,d0
  3842.  move.l #0,d6
  3843.  move.w #0,d3
  3844.  move.w #$2bdf,startwait
  3845.  move.w #$2d01,endwait
  3846. .fillcop
  3847.  move.w #$180,d1
  3848.  
  3849.  move.l a0,a1
  3850.  move.l a2,a3
  3851.  move.w #$10c,(a1)+
  3852.  move.w #$10c,(a3)+
  3853.  move.w d3,(a1)+
  3854.  move.w d3,(a3)+
  3855.  eor.w #$8000,d3
  3856.  
  3857.  move.w #$106,(a1)+
  3858.  move.w #$106,(a3)+
  3859.  move.w #$2c42,d5
  3860.  or.w d3,d5
  3861.  and.w #$fffe,d5
  3862.  move.w d5,(a1)+
  3863.  move.w d5,(a3)+
  3864.  bsr do32
  3865.  
  3866.  move.w #$106,(a1)+
  3867.  move.w #$106,(a3)+
  3868.  move.w #$4c42,d5
  3869.  or.w d3,d5
  3870.  and.w #$fffe,d5
  3871.  move.w d5,(a1)+
  3872.  move.w d5,(a3)+
  3873.  bsr do32
  3874.  
  3875.  move.w #$106,(a1)+
  3876.  move.w #$106,(a3)+
  3877.  move.w #$6c42,d5
  3878.  or.w d3,d5
  3879.  and.w #$fffe,d5
  3880.  move.w d5,(a1)+
  3881.  move.w d5,(a3)+
  3882.  bsr do32
  3883.  
  3884.  
  3885.  move.l #$1060c42,(a1)+
  3886.  move.l #$1060c42,(a3)+
  3887.  move.w #$19e,(a1)+
  3888.  move.w (a5),(a1)+
  3889.  move.w #$19e,(a3)+
  3890.  move.w (a5)+,(a3)+
  3891.  
  3892. **********************************
  3893.  
  3894.  adda.w #104*4,a0
  3895.  adda.w #104*4,a2
  3896.  dbra d0,.fillcop
  3897.  
  3898.  move.w #$48,fetchstart
  3899.  move.w #$88,fetchstop
  3900.  move.w #$2cb1,winstart
  3901.  move.w #$2c91,winstop
  3902.  move.w #-24,modulo
  3903.  move.w #-24,modulo+4
  3904.  
  3905.  move.l #nullspr,d0
  3906.  move.w d0,s4l
  3907.  move.w d0,s5l
  3908.  move.w d0,s6l
  3909.  move.w d0,s7l
  3910.  swap d0
  3911.  move.w d0,s4h
  3912.  move.w d0,s5h
  3913.  move.w d0,s6h
  3914.  move.w d0,s7h 
  3915.  
  3916. ; move.l #borders,d0
  3917. ; move.w d0,s0l
  3918. ; swap d0
  3919. ; move.w d0,s0h
  3920. ; move.l #borders+2592,d0
  3921. ; move.w d0,s1l
  3922. ; swap d0
  3923. ; move.w d0,s1h
  3924. ; move.l #borders+2592*2,d0
  3925. ; move.w d0,s2l
  3926. ; swap d0
  3927. ; move.w d0,s2h
  3928. ; move.l #borders+2592*3,d0
  3929. ; move.w d0,s3l
  3930. ; swap d0
  3931. ; move.w d0,s3h
  3932.  
  3933.  
  3934.  move.l scrn,a0
  3935.  add.l #40,a0
  3936.  move.l scrn,a1
  3937.  add.l #160,a1
  3938.  move.l scrn,a2
  3939.  add.l #280,a2
  3940.  move.l #smallscrntab,a3
  3941.  move.w #191,d7    ; counter
  3942.  move.w #0,d1    ; xpos
  3943. .plotscrnloop:
  3944.  move.b (a3)+,d0
  3945.  move.w d1,d2
  3946.  asr.w #3,d2
  3947.  move.b d1,d3
  3948.  not.b d3
  3949.  bclr.b d3,-40(a0,d2.w)
  3950.  bclr.b d3,(a0,d2.w)
  3951.  bclr.b d3,40(a0,d2.w)
  3952.  bclr.b d3,-40(a1,d2.w)
  3953.  bclr.b d3,(a1,d2.w)
  3954.  bclr.b d3,40(a1,d2.w)
  3955.  bclr.b d3,-40(a2,d2.w)
  3956.  btst #0,d0
  3957.  beq.s .nobp1
  3958.  bset.b d3,-40(a0,d2.w)
  3959. .nobp1:
  3960.  btst #1,d0
  3961.  beq.s .nobp2
  3962.  bset.b d3,(a0,d2.w)
  3963. .nobp2:
  3964.  btst #2,d0
  3965.  beq.s .nobp3
  3966.  bset.b d3,40(a0,d2.w)
  3967. .nobp3:
  3968.  btst #3,d0
  3969.  beq.s .nobp4
  3970.  bset.b d3,-40(a1,d2.w)
  3971. .nobp4:
  3972.  btst #4,d0
  3973.  beq.s .nobp5
  3974.  bset.b d3,(a1,d2.w)
  3975. .nobp5:
  3976.  btst #5,d0
  3977.  beq.s .nobp6
  3978.  bset.b d3,40(a1,d2.w)
  3979. .nobp6:
  3980.  btst #6,d0
  3981.  beq.s .nobp7
  3982.  bset.b d3,-40(a2,d2.w)
  3983. .nobp7:
  3984.  
  3985.  addq #1,d1
  3986.  
  3987.  dbra d7,.plotscrnloop
  3988.  
  3989.  
  3990.  rts
  3991.  
  3992. putinlargescr:
  3993.  
  3994.  move.l #$1000000,statskip
  3995.  move.l #$fffffffe,statskip+4
  3996.  
  3997.  move.l #healthpal,a5
  3998. ; move.l COPSCRN1,a0
  3999. ; move.l COPSCRN2,a2
  4000.  move.w #scrheight-1,d0
  4001.  move.l #0,d6
  4002.  move.w #0,d3
  4003.  move.w #$29df,startwait
  4004.  move.w #$2b01,endwait
  4005. .fillcop
  4006.  move.w #$180,d1
  4007.  
  4008.  move.l a0,a1
  4009.  move.l a2,a3
  4010.  move.w #$10c,(a1)+
  4011.  move.w #$10c,(a3)+
  4012.  move.w d3,(a1)+
  4013.  move.w d3,(a3)+
  4014.  eor.w #$8000,d3
  4015.  
  4016.  move.w #$106,(a1)+
  4017.  move.w #$106,(a3)+
  4018.  move.w #$2c42,d5
  4019.  or.w d3,d5
  4020.  and.w #$fffe,d5
  4021.  move.w d5,(a1)+
  4022.  move.w d5,(a3)+
  4023.  bsr do32
  4024.  
  4025.  move.w #$106,(a1)+
  4026.  move.w #$106,(a3)+
  4027.  move.w #$4c42,d5
  4028.  or.w d3,d5
  4029.  and.w #$fffe,d5
  4030.  move.w d5,(a1)+
  4031.  move.w d5,(a3)+
  4032.  bsr do32
  4033.  
  4034.  move.w #$106,(a1)+
  4035.  move.w #$106,(a3)+
  4036.  move.w #$6c42,d5
  4037.  or.w d3,d5
  4038.  and.w #$fffe,d5
  4039.  move.w d5,(a1)+
  4040.  move.w d5,(a3)+
  4041.  bsr do32
  4042.  
  4043.  move.w startwait,(a1)+
  4044.  move.w #$fffe,(a1)+
  4045.  move.w endwait,(a1)+
  4046.  move.w #$ff00,(a1)+
  4047.  move.w startwait,(a3)+
  4048.  move.w #$fffe,(a3)+
  4049.  move.w endwait,(a3)+
  4050.  move.w #$ff00,(a3)+
  4051.  
  4052. ; move.l $1fe0000,(a1)+
  4053. ; move.l $1fe0000,(a3)+
  4054. ; move.l $1fe0000,(a1)+
  4055. ; move.l $1fe0000,(a3)+
  4056.  
  4057.  
  4058.  add.w #$300,startwait
  4059.  add.w #$300,endwait
  4060.  
  4061. ; move.l #$1060c42,(a1)+
  4062. ; move.l #$1060c42,(a3)+
  4063. ; move.w #$19e,(a1)+
  4064. ; move.w (a5),(a1)+
  4065. ; move.w #$19e,(a3)+
  4066. ; move.w (a5)+,(a3)+
  4067.  
  4068. **********************************
  4069.  
  4070.  adda.w #104*4,a0
  4071.  adda.w #104*4,a2
  4072.  dbra d0,.fillcop
  4073.  
  4074.  move.w #$38,fetchstart
  4075.  move.w #$b8,fetchstop
  4076.  move.w #$2c81,winstart
  4077.  move.w #$2cc1,winstop
  4078.  move.w #-40,modulo
  4079.  move.w #-40,modulo+4
  4080.  
  4081.  move.l #nullspr,d0
  4082.  move.w d0,s0l
  4083.  move.w d0,s1l
  4084.  move.w d0,s2l
  4085.  move.w d0,s3l
  4086.  move.w d0,s4l
  4087.  move.w d0,s5l
  4088.  move.w d0,s6l
  4089.  move.w d0,s7l
  4090.  swap d0
  4091.  move.w d0,s0h
  4092.  move.w d0,s1h
  4093.  move.w d0,s2h
  4094.  move.w d0,s3h
  4095.  move.w d0,s4h
  4096.  move.w d0,s5h
  4097.  move.w d0,s6h
  4098.  move.w d0,s7h 
  4099.  
  4100.  move.l scrn,a0
  4101.  move.l a0,a1
  4102.  move.l a0,a2
  4103.  add.l #40,a0
  4104.  add.l #160,a1
  4105.  add.l #280,a2
  4106.  move.l #scrntab,a3
  4107.  move.w #319,d7    ; counter
  4108.  move.w #0,d1    ; xpos
  4109. .plotscrnloop:
  4110.  move.b (a3)+,d0
  4111.  move.w d1,d2
  4112.  asr.w #3,d2
  4113.  move.b d1,d3
  4114.  not.b d3
  4115.  bclr.b d3,-40(a0,d2.w)
  4116.  bclr.b d3,(a0,d2.w)
  4117.  bclr.b d3,40(a0,d2.w)
  4118.  bclr.b d3,-40(a1,d2.w)
  4119.  bclr.b d3,(a1,d2.w)
  4120.  bclr.b d3,40(a1,d2.w)
  4121.  bclr.b d3,-40(a2,d2.w)
  4122.  btst #0,d0
  4123.  beq.s .nobp1
  4124.  bset.b d3,-40(a0,d2.w)
  4125. .nobp1:
  4126.  btst #1,d0
  4127.  beq.s .nobp2
  4128.  bset.b d3,(a0,d2.w)
  4129. .nobp2:
  4130.  btst #2,d0
  4131.  beq.s .nobp3
  4132.  bset.b d3,40(a0,d2.w)
  4133. .nobp3:
  4134.  btst #3,d0
  4135.  beq.s .nobp4
  4136.  bset.b d3,-40(a1,d2.w)
  4137. .nobp4:
  4138.  btst #4,d0
  4139.  beq.s .nobp5
  4140.  bset.b d3,(a1,d2.w)
  4141. .nobp5:
  4142.  btst #5,d0
  4143.  beq.s .nobp6
  4144.  bset.b d3,40(a1,d2.w)
  4145. .nobp6:
  4146.  btst #6,d0
  4147.  beq.s .nobp7
  4148.  bset.b d3,-40(a2,d2.w)
  4149. .nobp7:
  4150.  
  4151.  addq #1,d1
  4152.  
  4153.  dbra d7,.plotscrnloop
  4154.  
  4155.  rts
  4156.  
  4157. CLEARKEYBOARD:
  4158.  move.l #KeyMap,a5
  4159.  moveq #0,d0
  4160.  move.w #15,d1
  4161. clrloo:
  4162.  move.l d0,(a5)+
  4163.  move.l d0,(a5)+
  4164.  move.l d0,(a5)+
  4165.  move.l d0,(a5)+
  4166.  dbra d1,clrloo
  4167.  rts
  4168.  
  4169. READCONTROLS: dc.w 0
  4170.  
  4171. tstststst: dc.w 0
  4172.  
  4173. BollocksRoom:
  4174.  dc.w -1
  4175.  ds.l 50
  4176.  
  4177. GUNYOFFS:
  4178.  dc.w 20
  4179.  dc.w 20
  4180.  dc.w 0
  4181.  dc.w 20
  4182.  dc.w 20
  4183.  dc.w 0
  4184.  dc.w 0
  4185.  dc.w 20
  4186.  
  4187. PLR1_BOBBLEY: dc.l 0
  4188. PLR2_BOBBLEY: dc.l 0
  4189.  
  4190. USEPLR1:
  4191.  
  4192. ***********************************
  4193.  
  4194.  move.l PLR1_Obj,a0 
  4195.  move.b #4,16(a0)
  4196.  move.l ObjectPoints,a1
  4197.  move.l #ObjRotated,a2
  4198.  move.w (a0),d0
  4199.  move.l PLR1_xoff,(a1,d0.w*8)
  4200.  move.l PLR1_zoff,4(a1,d0.w*8)
  4201.  move.l PLR1_Roompt,a1
  4202.  
  4203.  moveq #0,d2
  4204.  move.b damagetaken(a0),d2
  4205.  beq .notbeenshot
  4206.  
  4207.  moveq #0,d4
  4208.  move.w ImpactX(a0),d3
  4209.  beq.s .notwist
  4210.  move.w d2,d4
  4211. .notwist:
  4212.  add.w d3,PLR1s_xspdval
  4213.  move.w ImpactZ(a0),d3
  4214.  beq.s .notwist2
  4215.  move.w d2,d4
  4216. .notwist2:
  4217.  add.w d3,PLR1s_zspdval
  4218.  move.w ImpactY(a0),d3
  4219.  ext.l d3
  4220.  asl.l #8,d3
  4221.  add.l d3,PLR1s_yvel
  4222.  
  4223.  move.w #0,ImpactX(a0)
  4224.  move.w #0,ImpactY(a0)
  4225.  move.w #0,ImpactZ(a0)
  4226.  
  4227.  jsr GetRand
  4228.  muls d4,d0
  4229.  asr.l #8,d0
  4230.  asr.l #4,d0
  4231.  add.w d0,PLR1s_angspd
  4232.  
  4233.  move.l #7*2116,hitcol
  4234.  sub.w d2,PLAYERONEHEALTH
  4235.  movem.l d0-d7/a0-a6,-(a7)
  4236.  move.b #$fb,IDNUM
  4237.  move.w #19,Samplenum
  4238.  clr.b notifplaying
  4239.  move.w #0,Noisex
  4240.  move.w #0,Noisez
  4241.  move.w #100,Noisevol
  4242.  jsr MakeSomeNoise
  4243.  
  4244.  movem.l (a7)+,d0-d7/a0-a6
  4245.  
  4246. .notbeenshot
  4247.  move.b #0,damagetaken(a0)
  4248.  move.b #10,numlives(a0)
  4249.  
  4250.  move.w p1_angpos,Facing(a0)
  4251.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4252.  
  4253.  move.w (a1),12(a0)
  4254.  move.w (a1),d2
  4255.  move.l #ZoneBrightTable,a1
  4256.  move.l (a1,d2.w*4),d2
  4257.  tst.b PLR1_StoodInTop
  4258.  bne.s .okinbott
  4259.  swap d2
  4260. .okinbott:
  4261.  
  4262.  move.w d2,2(a0)
  4263.  
  4264.  
  4265.  move.l p1_yoff,d0
  4266.  move.l p1_height,d1
  4267.  asr.l #1,d1
  4268.  add.l d1,d0
  4269.  asr.l #7,d0
  4270.  move.w d0,4(a0)
  4271.  
  4272. ***********************************
  4273.  
  4274.  move.l PLR2_Obj,a0 
  4275.  move.b #5,16(a0)
  4276.  
  4277.  move.w p2_angpos,d0
  4278.  and.w #8190,d0
  4279.  move.w d0,Facing(a0)
  4280. ; 
  4281. ; jsr ViewpointToDraw
  4282. ; asl.w #2,d0
  4283. ; moveq #0,d1
  4284. ; move.b p2_bobble,d1
  4285. ; not.b d1
  4286. ; lsr.b #3,d1
  4287. ; and.b #$3,d1
  4288. ; add.w d1,d0
  4289. ; move.w d0,10(a0)
  4290. ; move.w #10,8(a0)
  4291. ; 
  4292.  
  4293.  move.l ObjectPoints,a1
  4294.  move.l #ObjRotated,a2
  4295.  move.w (a0),d0
  4296.  move.l PLR2_xoff,(a1,d0.w*8)
  4297.  move.l PLR2_zoff,4(a1,d0.w*8)
  4298.  move.l PLR2_Roompt,a1
  4299.  
  4300.  moveq #0,d2
  4301.  move.b damagetaken(a0),d2
  4302.  beq .notbeenshot2
  4303.  move.w ImpactX(a0),d3
  4304.  add.w d3,PLR2s_xspdval
  4305.  move.w ImpactZ(a0),d3
  4306.  add.w d3,PLR2s_zspdval
  4307.  move.w ImpactY(a0),d3
  4308.  ext.l d3
  4309.  asl.l #8,d3
  4310.  add.l d3,PLR2s_yvel
  4311.  
  4312.  move.w #0,ImpactX(a0)
  4313.  move.w #0,ImpactY(a0)
  4314.  move.w #0,ImpactZ(a0)
  4315.  
  4316.  sub.w d2,PLAYERTWOHEALTH
  4317. .notbeenshot2
  4318.  move.b #0,damagetaken(a0)
  4319.  move.b #10,numlives(a0)
  4320.  
  4321.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4322.  
  4323.  move.w (a1),12(a0)
  4324.  move.w (a1),d2
  4325.  move.l #ZoneBrightTable,a1
  4326.  move.l (a1,d2.w*4),d2
  4327.  tst.b PLR2_StoodInTop
  4328.  bne.s .okinbott2
  4329.  swap d2
  4330. .okinbott2:
  4331.  
  4332.  move.w d2,2(a0)
  4333.  
  4334.  move.l p2_yoff,d0
  4335.  move.l p2_height,d1
  4336.  asr.l #1,d1
  4337.  add.l d1,d0
  4338.  asr.l #7,d0
  4339.  move.w d0,4(a0)
  4340.  
  4341.  jsr ViewpointToDraw
  4342.  add.l d0,d0
  4343.  
  4344.  move.l LINKFILE,a6
  4345.  add.l #PLR2ALIEN,a6
  4346.  move.w (a6),d7
  4347.  move.w d7,d1
  4348.  
  4349.  move.l LINKFILE,a6
  4350.  add.l #AlienStats,a6
  4351.  muls #AlienStatLen,d1
  4352.  add.l d1,a6
  4353.  move.b A_GFXType+1(a6),VECOBJ
  4354.  cmp.w #1,A_GFXType(a6)
  4355.  bne.s .NOSIDES2
  4356.  
  4357.  moveq #0,d0
  4358.  
  4359. .NOSIDES2:
  4360.  
  4361.  move.l LINKFILE,a6
  4362.  
  4363.  add.l #AlienAnimData,a6
  4364.  
  4365.  move.w d7,d1
  4366.  muls #A_AnimLen,d1
  4367.  add.l d1,a6
  4368.  
  4369. ; move.l ANIMPOINTER,a6
  4370.  
  4371.  muls #A_OptLen,d0
  4372.  add.w d0,a6
  4373.  
  4374.  move.w SecTimer(a0),d1
  4375.  move.w d1,d2
  4376.  muls #A_FrameLen,d1
  4377.  
  4378.  addq #1,d2
  4379.  
  4380.  move.w d2,d3
  4381.  muls #A_FrameLen,d3
  4382.  tst.b (a6,d3.w)
  4383.  bge.s .noendanim
  4384.  move.w #0,d2
  4385. .noendanim
  4386.  move.w d2,SecTimer(a0)
  4387.  
  4388.  move.w d2,d1
  4389.  
  4390.  muls #A_FrameLen,d1
  4391.  
  4392.  move.l #0,8(a0)
  4393.  move.b (a6,d1.w),9(a0)
  4394.  move.b 1(a6,d1.w),d0
  4395.  ext.w d0
  4396.  bgt.s .noflip
  4397.  move.b #128,10(a0)
  4398.  neg.w d0
  4399. .noflip:
  4400.  sub.w #1,d0
  4401.  move.b d0,11(a0)
  4402.  
  4403.  move.w #-1,6(a0)
  4404.  cmp.b #1,VECOBJ
  4405.  beq.s .nosize
  4406.  bgt.s .setlight
  4407.  move.w 2(a6,d1.w),6(a0)
  4408.  bra.s .ddone
  4409.  
  4410. .nosize
  4411.  
  4412. ; move.l #$00090001,8(a0)
  4413.  
  4414.  bra.s .ddone
  4415.  
  4416. .setlight:
  4417.  move.w 2(a6,d1.w),6(a0)
  4418.  
  4419.  move.b VECOBJ,d1
  4420.  or.b d1,10(a0)
  4421.  
  4422. .ddone:
  4423.  
  4424.  
  4425. **********************************
  4426.  
  4427.  move.l PLR1_Obj,a0
  4428.  
  4429.  ifeq CHEESEY
  4430.  
  4431.  tst.w PLAYERONEHEALTH
  4432.  bgt.s .notdead
  4433.  
  4434.  move.w #-1,12+128(a0)
  4435.  rts
  4436.  
  4437. .notdead: 
  4438.  
  4439.  move.l PLR1_Roompt,a1
  4440.  
  4441.  move.w Facing(a0),d0
  4442.  add.w #4096,d0
  4443.  and.w #8190,d0
  4444.  move.w d0,Facing+128(a0)
  4445.  
  4446.  move.w (a1),12+128(a0)
  4447.  move.w (a1),GraphicRoom+128(a0)
  4448.  
  4449.  moveq #0,d0
  4450.  move.b p1_gunselected,d0
  4451.  
  4452.  move.l LINKFILE,a1
  4453.  add.l #GunObjects,a1
  4454.  move.w (a1,d0.w*2),d0
  4455.  
  4456.  move.b d0,TypeOfThing+128(a0)
  4457.  move.b #1,128+16(a0)
  4458.  
  4459.  move.w (a0),d0
  4460.  move.w 128(a0),d1
  4461.  move.l ObjectPoints,a1
  4462.  move.l (a1,d0.w*8),(a1,d1.w*8)
  4463.  move.l 4(a1,d0.w*8),4(a1,d1.w*8)
  4464.  
  4465.  st WhichAnim+128(a0)
  4466.  
  4467.  move.l p1_yoff,d0
  4468.  move.l p1_height,d1
  4469.  asr.l #2,d1
  4470.  add.l #10*128,d1
  4471.  add.l d1,d0
  4472.  asr.l #7,d0
  4473.  move.w d0,4+128(a0)
  4474.  move.l PLR1_BOBBLEY,d1
  4475.  asr.l #8,d1
  4476.  move.l d1,d0
  4477.  asr.l #1,d0
  4478.  add.l d0,d1
  4479.  add.w d1,4+128(a0)
  4480.  
  4481.  move.b ObjInTop(a0),ObjInTop+128(a0)
  4482.  
  4483.  endc
  4484.  
  4485.  ifne CHEESEY
  4486.  move.w #-1,12+128(a0)
  4487.  endc
  4488.  
  4489.  rts
  4490.  
  4491. ***************************************************
  4492. **************************************************
  4493.  
  4494. USEPLR2:
  4495.  
  4496. ***********************************
  4497.  
  4498.  move.l PLR2_Obj,a0 
  4499.  move.b #5,16(a0)
  4500.  move.l ObjectPoints,a1
  4501.  move.l #ObjRotated,a2
  4502.  move.w (a0),d0
  4503.  move.l PLR2_xoff,(a1,d0.w*8)
  4504.  move.l PLR2_zoff,4(a1,d0.w*8)
  4505.  move.l PLR2_Roompt,a1
  4506.  
  4507.  moveq #0,d2
  4508.  move.b damagetaken(a0),d2
  4509.  beq .notbeenshot
  4510.  
  4511.  moveq #0,d4
  4512.  move.w ImpactX(a0),d3
  4513.  beq.s .notwist
  4514.  move.w d2,d4
  4515. .notwist:
  4516.  add.w d3,PLR2s_xspdval
  4517.  move.w ImpactZ(a0),d3
  4518.  beq.s .notwist2
  4519.  move.w d2,d4
  4520. .notwist2:
  4521.  add.w d3,PLR2s_zspdval
  4522.  
  4523.  jsr GetRand
  4524.  muls d4,d0
  4525.  asr.l #8,d0
  4526.  asr.l #4,d0
  4527.  add.w d0,PLR2s_angspd
  4528.  
  4529.  move.l #7*2116,hitcol
  4530.  sub.w d2,PLAYERTWOHEALTH
  4531.  movem.l d0-d7/a0-a6,-(a7)
  4532.  move.w #19,Samplenum
  4533.  clr.b notifplaying
  4534.  move.b #$fb,IDNUM
  4535.  move.w #0,Noisex
  4536.  move.w #0,Noisez
  4537.  move.w #100,Noisevol
  4538.  jsr MakeSomeNoise
  4539.  
  4540.  movem.l (a7)+,d0-d7/a0-a6
  4541.  
  4542. .notbeenshot
  4543.  move.b #0,damagetaken(a0)
  4544.  move.b #10,numlives(a0)
  4545.  
  4546.  move.w p2_angpos,Facing(a0)
  4547.  move.b PLR2_StoodInTop,ObjInTop(a0)
  4548.  
  4549.  move.w (a1),12(a0)
  4550.  move.w (a1),d2
  4551.  move.l #ZoneBrightTable,a1
  4552.  move.l (a1,d2.w*4),d2
  4553.  tst.b PLR2_StoodInTop
  4554.  bne.s .okinbott
  4555.  swap d2
  4556. .okinbott:
  4557.  
  4558.  move.w d2,2(a0)
  4559.  
  4560.  move.l PLR2_yoff,d0
  4561.  move.l p2_height,d1
  4562.  asr.l #1,d1
  4563.  add.l d1,d0
  4564.  asr.l #7,d0
  4565.  move.w d0,4(a0)
  4566.  
  4567. ***********************************
  4568.  
  4569.  move.l PLR1_Obj,a0 
  4570.  move.b #4,16(a0)
  4571.  
  4572.  move.w PLR1_angpos,d0
  4573.  and.w #8190,d0
  4574.  move.w d0,Facing(a0)
  4575. ; 
  4576. ; jsr ViewpointToDraw
  4577. ; asl.w #2,d0
  4578. ; moveq #0,d1
  4579. ; move.b p2_bobble,d1
  4580. ; not.b d1
  4581. ; lsr.b #3,d1
  4582. ; and.b #$3,d1
  4583. ; add.w d1,d0
  4584. ; move.w d0,10(a0)
  4585. ; move.w #10,8(a0)
  4586. ; 
  4587.  
  4588.  move.l ObjectPoints,a1
  4589.  move.l #ObjRotated,a2
  4590.  move.w (a0),d0
  4591.  move.l PLR1_xoff,(a1,d0.w*8)
  4592.  move.l PLR1_zoff,4(a1,d0.w*8)
  4593.  move.l PLR1_Roompt,a1
  4594.  
  4595.  moveq #0,d2
  4596.  move.b damagetaken(a0),d2
  4597.  beq .notbeenshot2
  4598.  
  4599.  move.w ImpactX(a0),d3
  4600.  add.w d3,PLR1s_xspdval
  4601.  move.w ImpactZ(a0),d3
  4602.  add.w d3,PLR1s_zspdval
  4603.  
  4604.  sub.w d2,PLAYERONEHEALTH
  4605. .notbeenshot2
  4606.  move.b #0,damagetaken(a0)
  4607.  move.b #10,numlives(a0)
  4608.  
  4609.  move.b PLR1_StoodInTop,ObjInTop(a0)
  4610.  
  4611.  move.w (a1),12(a0)
  4612.  move.w (a1),d2
  4613.  move.l #ZoneBrightTable,a1
  4614.  move.l (a1,d2.w*4),d2
  4615.  tst.b PLR1_StoodInTop
  4616.  bne.s .okinbott2
  4617.  swap d2
  4618. .okinbott2:
  4619.  
  4620.  move.w d2,2(a0)
  4621.  
  4622.  move.l p1_yoff,d0
  4623.  move.l p1_height,d1
  4624.  asr.l #1,d1
  4625.  add.l d1,d0
  4626.  asr.l #7,d0
  4627.  move.w d0,4(a0)
  4628.  
  4629.  jsr ViewpointToDraw
  4630.  add.l d0,d0
  4631.  
  4632.  move.l LINKFILE,a6
  4633.  add.l #PLR1ALIEN,a6
  4634.  move.w (a6),d7
  4635.  move.w d7,d1
  4636.  
  4637.  move.l LINKFILE,a6
  4638.  add.l #AlienStats,a6
  4639.  muls #AlienStatLen,d1
  4640.  add.l d1,a6
  4641.  move.b A_GFXType+1(a6),VECOBJ
  4642.  cmp.w #1,A_GFXType(a6)
  4643.  bne.s .NOSIDES2
  4644.  
  4645.  moveq #0,d0
  4646.  
  4647. .NOSIDES2:
  4648.  
  4649.  move.l LINKFILE,a6
  4650.  
  4651.  add.l #AlienAnimData,a6
  4652.  
  4653.  move.w d7,d1
  4654.  muls #A_AnimLen,d1
  4655.  add.l d1,a6
  4656.  
  4657. ; move.l ANIMPOINTER,a6
  4658.  
  4659.  muls #A_OptLen,d0
  4660.  add.w d0,a6
  4661.  
  4662.  move.w SecTimer(a0),d1
  4663.  move.w d1,d2
  4664.  muls #A_FrameLen,d1
  4665.  
  4666.  addq #1,d2
  4667.  
  4668.  move.w d2,d3
  4669.  muls #A_FrameLen,d3
  4670.  tst.b (a6,d3.w)
  4671.  bge.s .noendanim
  4672.  move.w #0,d2
  4673. .noendanim
  4674.  move.w d2,SecTimer(a0)
  4675.  
  4676.  move.w d2,d1
  4677.  
  4678.  muls #A_FrameLen,d1
  4679.  
  4680.  move.l #0,8(a0)
  4681.  move.b (a6,d1.w),9(a0)
  4682.  move.b 1(a6,d1.w),d0
  4683.  ext.w d0
  4684.  bgt.s .noflip
  4685.  move.b #128,10(a0)
  4686.  neg.w d0
  4687. .noflip:
  4688.  sub.w #1,d0
  4689.  move.b d0,11(a0)
  4690.  
  4691.  move.w #-1,6(a0)
  4692.  cmp.b #1,VECOBJ
  4693.  beq.s .nosize
  4694.  bgt.s .setlight
  4695.  move.w 2(a6,d1.w),6(a0)
  4696.  bra.s .ddone
  4697.  
  4698. .nosize
  4699.  
  4700. ; move.l #$00090001,8(a0)
  4701.  
  4702.  bra.s .ddone
  4703.  
  4704. .setlight:
  4705.  move.w 2(a6,d1.w),6(a0)
  4706.  
  4707.  move.b VECOBJ,d1
  4708.  or.b d1,10(a0)
  4709.  
  4710. .ddone:
  4711.  
  4712. **********************************
  4713.  
  4714.  move.l PLR2_Obj,a0
  4715.  
  4716.  ifeq CHEESEY
  4717.  
  4718.  tst.w PLAYERTWOHEALTH
  4719.  bgt.s .notdead
  4720.  
  4721.  move.w #-1,12+64(a0)
  4722.  rts
  4723.  
  4724. .notdead: 
  4725.  move.l PLR2_Roompt,a1
  4726.  
  4727.  move.w Facing(a0),d0
  4728.  add.w #4096,d0
  4729.  and.w #8190,d0
  4730.  move.w d0,Facing+64(a0)
  4731.  
  4732.  move.w (a1),12+64(a0)
  4733.  move.w (a1),GraphicRoom+64(a0)
  4734.  
  4735.  moveq #0,d0
  4736.  move.b p2_gunselected,d0
  4737.  
  4738.  move.l LINKFILE,a1
  4739.  add.l #GunObjects,a1
  4740.  move.w (a1,d0.w*2),d0
  4741.  
  4742.  move.b d0,TypeOfThing+64(a0)
  4743.  move.b #1,64+16(a0)
  4744.  
  4745.  move.w (a0),d0
  4746.  move.w 64(a0),d1
  4747.  move.l ObjectPoints,a1
  4748.  move.l (a1,d0.w*8),(a1,d1.w*8) 
  4749.  move.l 4(a1,d0.w*8),4(a1,d1.w*8) 
  4750.  
  4751.  st WhichAnim+64(a0)
  4752.  
  4753.  move.l p2_yoff,d0
  4754.  move.l p2_height,d1
  4755.  asr.l #2,d1
  4756.  add.l #10*128,d1
  4757.  add.l d1,d0
  4758.  asr.l #7,d0
  4759.  move.w d0,4+64(a0)
  4760.  move.l PLR2_BOBBLEY,d1
  4761.  asr.l #8,d1
  4762.  move.l d1,d0
  4763.  asr.l #1,d0
  4764.  add.l d0,d1
  4765.  add.w d1,4+64(a0)
  4766.  
  4767.  move.b ObjInTop(a0),ObjInTop+64(a0)
  4768.  
  4769.  endc
  4770.  
  4771.  ifne CHEESEY
  4772.  
  4773.  move.w #-1,12+64(a0)
  4774.  endc
  4775.  
  4776.  rts
  4777.  
  4778.  
  4779.  
  4780. GunSelected: dc.b 0
  4781.  even
  4782.  
  4783.  
  4784. GunData: dc.l 0
  4785.  
  4786.  
  4787. protA: dc.w 0
  4788.  
  4789. Path:
  4790. ; incbin "testpath"
  4791. endpath:
  4792. pathpt: dc.l Path
  4793.  
  4794.  
  4795. PLR1KEYS: dc.b 0
  4796. PLR1PATH: dc.b 0
  4797. PLR1MOUSE: dc.b -1
  4798. PLR1JOY: dc.b 0
  4799. PLR2KEYS: dc.b 0
  4800. PLR2PATH: dc.b 0
  4801. PLR2MOUSE: dc.b -1
  4802. PLR2JOY: dc.b 0
  4803.  
  4804.  even
  4805.  
  4806. PLR1_bobble: dc.w 0
  4807. PLR2_bobble: dc.w 0
  4808. xwobble: dc.l 0
  4809. xwobxoff: dc.w 0
  4810.  
  4811. xwobzoff: dc.w 0
  4812.  
  4813. PLR1_Control:
  4814.  
  4815. ; Take a snapshot of everything.
  4816.  
  4817.  move.l PLR1_xoff,d2
  4818.  move.l d2,PLR1_oldxoff
  4819.  move.l d2,oldx
  4820.  move.l PLR1_zoff,d3
  4821.  move.l d3,PLR1_oldzoff
  4822.  move.l d3,oldz
  4823.  move.l p1_xoff,d0
  4824.  move.l d0,PLR1_xoff
  4825.  move.l d0,newx
  4826.  move.l p1_zoff,d1
  4827.  move.l d1,newz
  4828.  move.l d1,PLR1_zoff
  4829.  
  4830.  move.l p1_height,PLR1_height
  4831.  
  4832.  sub.l d2,d0
  4833.  sub.l d3,d1
  4834.  move.l d0,xdiff
  4835.  move.l d1,zdiff
  4836.  move.w p1_angpos,d0
  4837.  move.w d0,PLR1_angpos
  4838.  
  4839.  move.l #SineTable,a1
  4840.  move.w (a1,d0.w),PLR1_sinval
  4841.  add.w #2048,d0
  4842.  and.w #8190,d0
  4843.  move.w (a1,d0.w),PLR1_cosval
  4844.  
  4845.  move.l p1_yoff,d0
  4846.  move.w p1_bobble,d1
  4847.  move.w (a1,d1.w),d1
  4848.  move.w d1,d3
  4849.  ble.s .notnegative
  4850.  neg.w d1
  4851. .notnegative:
  4852.  add.w #16384,d1
  4853.  asr.w #4,d1
  4854.  
  4855.  tst.b PLR1_Ducked
  4856.  bne.s .notdouble
  4857.  add.w d1,d1
  4858. .notdouble
  4859.  ext.l d1
  4860.  
  4861.  move.l d1,PLR1_BOBBLEY
  4862.  
  4863.  move.l PLR1_height,d4
  4864.  sub.l d1,d4
  4865.  add.l d1,d0
  4866.  
  4867.  cmp.b #'s',mors
  4868.  beq.s .otherwob
  4869.  asr.w #6,d3
  4870.  ext.l d3
  4871.  move.l d3,xwobble
  4872.  move.w PLR1_sinval,d1
  4873.  muls d3,d1
  4874.  move.w PLR1_cosval,d2
  4875.  muls d3,d2
  4876.  swap d1
  4877.  swap d2
  4878.  asr.w #7,d1
  4879.  move.w d1,xwobxoff
  4880.  asr.w #7,d2
  4881.  neg.w d2
  4882.  move.w d2,xwobzoff
  4883. .otherwob
  4884.  
  4885.  move.l d0,PLR1_yoff
  4886.  move.l d0,newy
  4887.  move.l d0,oldy
  4888.  
  4889.  move.l d4,thingheight
  4890.  move.l #40*256,StepUpVal
  4891.  tst.b PLR1_Ducked
  4892.  beq.s .okbigstep
  4893.  move.l #10*256,StepUpVal
  4894. .okbigstep:
  4895.  
  4896.  move.l #$1000000,StepDownVal
  4897.  
  4898.  move.l PLR1_Roompt,a0
  4899.  move.w ToTelZone(a0),d0
  4900.  blt .noteleport
  4901.  
  4902.  move.w ToTelX(a0),newx
  4903.  move.w ToTelZ(a0),newz
  4904.  move.w #-1,CollId
  4905.  move.l #%111111111111111111,CollideFlags
  4906.  jsr Collision
  4907.  tst.b hitwall
  4908.  beq.s .teleport
  4909.  
  4910.  move.w PLR1_xoff,newx
  4911.  move.w PLR1_zoff,newz
  4912.  bra .noteleport
  4913.  
  4914. .teleport:
  4915.  
  4916.  st PLR1_TELEPORTED
  4917.  
  4918.  move.l PLR1_Roompt,a0
  4919.  move.w ToTelZone(a0),d0
  4920.  move.w ToTelX(a0),PLR1_xoff
  4921.  move.w ToTelZ(a0),PLR1_zoff
  4922.  move.l PLR1_yoff,d1
  4923.  sub.l ToZoneFloor(a0),d1
  4924.  move.l ZoneAdds,a0
  4925.  move.l (a0,d0.w*4),a0
  4926.  add.l LEVELDATA,a0
  4927.  move.l a0,PLR1_Roompt
  4928.  add.l ToZoneFloor(a0),d1
  4929.  move.l d1,PLR1s_yoff
  4930.  move.l d1,PLR1_yoff
  4931.  move.l d1,PLR1s_tyoff
  4932.  move.l PLR1_xoff,PLR1s_xoff
  4933.  move.l PLR1_zoff,PLR1s_zoff
  4934.  
  4935.  SAVEREGS
  4936.  move.w #0,Noisex
  4937.  move.w #0,Noisez
  4938.  move.w #26,Samplenum
  4939.  move.w #100,Noisevol
  4940.  move.b #$fa,IDNUM
  4941.  jsr MakeSomeNoise
  4942.  GETREGS
  4943.  
  4944.  bra .cantmove
  4945.  
  4946. .noteleport:
  4947.  
  4948.  move.l PLR1_Roompt,objroom
  4949.  move.w #%100000000,wallflags
  4950.  move.b PLR1_StoodInTop,StoodInTop
  4951.  
  4952.  move.l #%1011111110111000011,CollideFlags
  4953.  move.w #-1,CollId
  4954.  
  4955.  jsr Collision
  4956.  tst.b hitwall
  4957.  beq.s .nothitanything
  4958.  move.w oldx,PLR1_xoff
  4959.  move.w oldz,PLR1_zoff
  4960.  move.l PLR1_xoff,PLR1s_xoff
  4961.  move.l PLR1_zoff,PLR1s_zoff
  4962.  bra .cantmove
  4963. .nothitanything:
  4964.  
  4965.  move.w #40,extlen
  4966.  move.b #0,awayfromwall
  4967.  
  4968.  clr.b exitfirst
  4969.  clr.b wallbounce
  4970.  bsr MoveObject
  4971.  move.b StoodInTop,PLR1_StoodInTop
  4972.  move.l objroom,PLR1_Roompt
  4973.  move.w newx,PLR1_xoff
  4974.  move.w newz,PLR1_zoff
  4975.  move.l PLR1_xoff,PLR1s_xoff
  4976.  move.l PLR1_zoff,PLR1s_zoff
  4977.  
  4978. .cantmove:
  4979.  
  4980.  move.l PLR1_Roompt,a0
  4981.  
  4982.  move.l ToZoneFloor(a0),d0
  4983.  tst.b PLR1_StoodInTop
  4984.  beq.s notintop
  4985.  move.l ToUpperFloor(a0),d0
  4986. notintop:
  4987.  
  4988.  adda.w #ToZonePts,a0
  4989.  sub.l PLR1_height,d0
  4990.  move.l d0,PLR1s_tyoff
  4991.  move.w p1_angpos,tmpangpos
  4992.  
  4993. ; move.l (a0),a0        ; jump to viewpoint list
  4994.  * A0 is pointing at a pointer to list of points to rotate
  4995.  move.w (a0)+,d1
  4996.  ext.l d1
  4997.  add.l PLR1_Roompt,d1
  4998.  move.l d1,PLR1_PointsToRotatePtr
  4999.  tst.w (a0)+
  5000.  sne.s DRAWNGRAPHTOP
  5001.  beq.s nobackgraphics
  5002.  cmp.b #'s',mors
  5003.  beq.s nobackgraphics
  5004.  move.l a0,-(a7)
  5005.  jsr putinbackdrop 
  5006.  move.l (a7)+,a0
  5007. nobackgraphics:
  5008.  adda.w #10,a0
  5009.  move.l a0,PLR1_ListOfGraphRooms
  5010.  
  5011. *************************************************
  5012.  rts
  5013.  
  5014. DRAWNGRAPHTOP
  5015.  dc.w 0 
  5016. tstzone: dc.l 0
  5017. CollId: dc.w 0
  5018.  
  5019. PLR2_Control:
  5020.  
  5021. ; Take a snapshot of everything.
  5022.  
  5023.  move.l PLR2_xoff,d2
  5024.  move.l d2,PLR2_oldxoff
  5025.  move.l d2,oldx
  5026.  move.l PLR2_zoff,d3
  5027.  move.l d3,PLR2_oldzoff
  5028.  move.l d3,oldz
  5029.  move.l p2_xoff,d0
  5030.  move.l d0,PLR2_xoff
  5031.  move.l d0,newx
  5032.  move.l p2_zoff,d1
  5033.  move.l d1,newz
  5034.  move.l d1,PLR2_zoff
  5035.  
  5036.  move.l p2_height,PLR2_height
  5037.  
  5038.  sub.l d2,d0
  5039.  sub.l d3,d1
  5040.  move.l d0,xdiff
  5041.  move.l d1,zdiff
  5042.  move.w p2_angpos,d0
  5043.  move.w d0,PLR2_angpos
  5044.  
  5045.  move.l #SineTable,a1
  5046.  move.w (a1,d0.w),PLR2_sinval
  5047.  add.w #2048,d0
  5048.  and.w #8190,d0
  5049.  move.w (a1,d0.w),PLR2_cosval
  5050.  
  5051.  move.l p2_yoff,d0
  5052.  move.w p2_bobble,d1
  5053.  move.w (a1,d1.w),d1
  5054.  move.w d1,d3
  5055.  ble.s .notnegative
  5056.  neg.w d1
  5057. .notnegative:
  5058.  add.w #16384,d1
  5059.  asr.w #4,d1
  5060.  
  5061.  tst.b PLR2_Ducked
  5062.  bne.s .notdouble
  5063.  add.w d1,d1
  5064. .notdouble
  5065.  ext.l d1
  5066.  
  5067.  move.l d1,PLR2_BOBBLEY
  5068.  
  5069.  move.l PLR2_height,d4
  5070.  sub.l d1,d4
  5071.  add.l d1,d0
  5072.  
  5073.  cmp.b #'s',mors
  5074.  bne.s .otherwob
  5075.  asr.w #6,d3
  5076.  ext.l d3
  5077.  move.l d3,xwobble
  5078.  move.w PLR2_sinval,d1
  5079.  muls d3,d1
  5080.  move.w PLR2_cosval,d2
  5081.  muls d3,d2
  5082.  swap d1
  5083.  swap d2
  5084.  asr.w #7,d1
  5085.  move.w d1,xwobxoff
  5086.  asr.w #7,d2
  5087.  neg.w d2
  5088.  move.w d2,xwobzoff
  5089. .otherwob
  5090.  
  5091.  move.l d0,PLR2_yoff
  5092.  move.l d0,newy
  5093.  move.l d0,oldy
  5094.  
  5095.  move.l d4,thingheight
  5096.  move.l #40*256,StepUpVal
  5097.  tst.b PLR2_Ducked
  5098.  beq.s .okbigstep
  5099.  move.l #10*256,StepUpVal
  5100. .okbigstep:
  5101.  
  5102.  move.l #$1000000,StepDownVal
  5103.  
  5104.  move.l PLR2_Roompt,a0
  5105.  move.w ToTelZone(a0),d0
  5106.  blt .noteleport
  5107.  
  5108.  move.w ToTelX(a0),newx
  5109.  move.w ToTelZ(a0),newz
  5110.  move.w #-1,CollId
  5111.  move.l #%111111111111111111,CollideFlags
  5112.  jsr Collision
  5113.  tst.b hitwall
  5114.  beq.s .teleport
  5115.  
  5116.  move.w PLR2_xoff,newx
  5117.  move.w PLR2_zoff,newz
  5118.  bra .noteleport
  5119.  
  5120. .teleport:
  5121.  
  5122.  st PLR2_TELEPORTED
  5123.  
  5124.  move.l PLR2_Roompt,a0
  5125.  move.w ToTelZone(a0),d0
  5126.  move.w ToTelX(a0),PLR2_xoff
  5127.  move.w ToTelZ(a0),PLR2_zoff
  5128.  move.l PLR2_yoff,d1
  5129.  sub.l ToZoneFloor(a0),d1
  5130.  move.l ZoneAdds,a0
  5131.  move.l (a0,d0.w*4),a0
  5132.  add.l LEVELDATA,a0
  5133.  move.l a0,PLR2_Roompt
  5134.  add.l ToZoneFloor(a0),d1
  5135.  move.l d1,PLR2s_yoff
  5136.  move.l d1,PLR2_yoff
  5137.  move.l d1,PLR2s_tyoff
  5138.  move.l PLR2_xoff,PLR2s_xoff
  5139.  move.l PLR2_zoff,PLR2s_zoff
  5140.  
  5141.  SAVEREGS
  5142.  move.w #0,Noisex
  5143.  move.w #0,Noisez
  5144.  move.w #26,Samplenum
  5145.  move.w #100,Noisevol
  5146.  move.b #$fa,IDNUM
  5147.  jsr MakeSomeNoise
  5148.  GETREGS
  5149.  
  5150.  bra .cantmove
  5151.  
  5152. .noteleport:
  5153.  
  5154.  move.l PLR2_Roompt,objroom
  5155.  move.w #%100000000000,wallflags
  5156.  move.b PLR2_StoodInTop,StoodInTop
  5157.  
  5158.  move.l #%1011111010111100011,CollideFlags
  5159.  move.w #-1,CollId
  5160.  
  5161.  jsr Collision
  5162.  tst.b hitwall
  5163.  beq.s .nothitanything
  5164.  move.w oldx,PLR2_xoff
  5165.  move.w oldz,PLR2_zoff
  5166.  move.l PLR2_xoff,PLR2s_xoff
  5167.  move.l PLR2_zoff,PLR2s_zoff
  5168.  bra .cantmove
  5169. .nothitanything:
  5170.  
  5171.  move.w #40,extlen
  5172.  move.b #0,awayfromwall
  5173.  
  5174.  clr.b exitfirst
  5175.  clr.b wallbounce
  5176.  bsr MoveObject
  5177.  move.b StoodInTop,PLR2_StoodInTop
  5178.  move.l objroom,PLR2_Roompt
  5179.  move.w newx,PLR2_xoff
  5180.  move.w newz,PLR2_zoff
  5181.  move.l PLR2_xoff,PLR2s_xoff
  5182.  move.l PLR2_zoff,PLR2s_zoff
  5183.  
  5184. .cantmove
  5185.  
  5186.  move.l PLR2_Roompt,a0
  5187.  
  5188.  move.l ToZoneFloor(a0),d0
  5189.  tst.b PLR2_StoodInTop
  5190.  beq.s .notintop
  5191.  move.l ToUpperFloor(a0),d0
  5192. .notintop:
  5193.  
  5194.  adda.w #ToZonePts,a0
  5195.  sub.l PLR2_height,d0
  5196.  move.l d0,PLR2s_tyoff
  5197.  move.w p2_angpos,tmpangpos
  5198.  
  5199. ; move.l (a0),a0        ; jump to viewpoint list
  5200.  * A0 is pointing at a pointer to list of points to rotate
  5201.  move.w (a0)+,d1
  5202.  ext.l d1
  5203.  add.l PLR2_Roompt,d1
  5204.  move.l d1,PLR2_PointsToRotatePtr
  5205.  tst.w (a0)+
  5206.  sne.s DRAWNGRAPHTOP
  5207.  beq.s .nobackgraphics
  5208.  cmp.b #'s',mors
  5209.  bne.s .nobackgraphics
  5210.  move.l a0,-(a7)
  5211.  jsr putinbackdrop 
  5212.  move.l (a7)+,a0
  5213. .nobackgraphics:
  5214.  adda.w #10,a0
  5215.  move.l a0,PLR2_ListOfGraphRooms
  5216.  
  5217. *****************************************************
  5218.  rts
  5219.  
  5220.  
  5221. KeyMap: ds.b 256
  5222.  
  5223. fillscrnwater:
  5224.  dc.w 0
  5225. DONTDOGUN:
  5226.  dc.w 0
  5227.  
  5228. ;temptemp: ds.l 200
  5229. ;temptempptr: dc.l 0
  5230.  
  5231. DrawDisplay:
  5232.  
  5233. ; move.l #temptemp,temptempptr
  5234.  
  5235.  clr.b fillscrnwater
  5236.  
  5237.  move.l #SineTable,a0
  5238.  move.w angpos,d0
  5239.  move.w (a0,d0.w),d6
  5240.  adda.w #2048,a0
  5241.  move.w (a0,d0.w),d7
  5242.  move.w d6,sinval
  5243.  move.w d7,cosval
  5244.  
  5245.  move.l yoff,d0
  5246.  asr.l #8,d0
  5247.  move.w d0,d1
  5248.  add.w #256-32,d1
  5249.  and.w #255,d1
  5250.  move.w d1,wallyoff
  5251.  move.l yoff,d0
  5252.  asr.l #6,d0
  5253.  move.w d0,flooryoff
  5254.  
  5255.  move.w xoff,d6
  5256.  move.w d6,d3
  5257.  asr.w #1,d3
  5258.  add.w d3,d6
  5259.  asr.w #1,d6
  5260.  move.w d6,xoff34
  5261.  
  5262.  move.w zoff,d6
  5263.  move.w d6,d3
  5264.  asr.w #1,d3
  5265.  add.w d3,d6
  5266.  asr.w #1,d6
  5267.  move.w d6,zoff34
  5268.  
  5269.  bsr RotateLevelPts
  5270.  bsr RotateObjectPts
  5271.  bsr CalcPLR1InLine
  5272.  
  5273.  cmp.b #'n',mors
  5274.  bne.s doplr2too
  5275.  move.l PLR2_Obj,a0
  5276.  move.w #-1,12(a0)
  5277.  move.w #-1,GraphicRoom(a0)
  5278.  bra noplr2either
  5279.  
  5280. doplr2too:
  5281.  bsr CalcPLR2InLine
  5282. noplr2either:
  5283.  
  5284.  move.l endoflist,a0
  5285. ; move.w #-1,(a0)
  5286.  
  5287. ; move.l #FinalOrder,a0
  5288.  
  5289.  
  5290. subroomloop:
  5291. ; move.w (a0)+,d7
  5292.  move.w -(a0),d7
  5293.  blt jumpoutofrooms
  5294.  
  5295. ; bsr setlrclip
  5296. ; move.w leftclip,d0
  5297. ; cmp.w rightclip,d0
  5298. ; bge subroomloop
  5299.  move.l a0,-(a7)
  5300.  
  5301.  move.l ZoneAdds,a0
  5302.  move.l (a0,d7.w*4),a0
  5303.  add.l LEVELDATA,a0
  5304.  move.l ToZoneRoof(a0),SplitHeight
  5305.  move.l a0,ROOMBACK
  5306.  
  5307.  move.l ZoneGraphAdds,a0
  5308.  move.l 4(a0,d7.w*8),a2
  5309.  move.l (a0,d7.w*8),a0
  5310.  
  5311.  add.l LEVELGRAPHICS,a0
  5312.  add.l LEVELGRAPHICS,a2
  5313.  move.l a2,ThisRoomToDraw+4
  5314.  move.l a0,ThisRoomToDraw
  5315.  
  5316.  move.l ListOfGraphRooms,a1
  5317.  
  5318.  
  5319.  
  5320. finditit:
  5321.  tst.w (a1)
  5322.  blt nomoretodoatall
  5323.  cmp.w (a1),d7
  5324.  beq outoffind
  5325.  adda.w #8,a1
  5326.  bra finditit
  5327.  
  5328. outoffind:
  5329.  
  5330.  move.l a1,-(a7)
  5331.  
  5332.  
  5333.  move.w #0,leftclip
  5334.  move.w RIGHTX,rightclip
  5335.  moveq #0,d7
  5336.  move.w 2(a1),d7
  5337.  blt.s outofrcliplop
  5338.  move.l LEVELCLIPS,a0
  5339.  lea (a0,d7.l*2),a0
  5340.  
  5341.  tst.w (a0)
  5342.  blt outoflcliplop
  5343.  
  5344.  bsr NEWsetlclip
  5345.  
  5346. intolcliplop:        ; clips
  5347.  tst.w (a0)
  5348.  blt outoflcliplop
  5349.  
  5350.  bsr NEWsetlclip 
  5351.  bra intolcliplop
  5352.  
  5353. outoflcliplop:
  5354.  
  5355.  addq #2,a0
  5356.  
  5357.  tst.w (a0)
  5358.  blt outofrcliplop
  5359.  
  5360.  bsr NEWsetrclip
  5361.  
  5362. intorcliplop:        ; clips
  5363.  tst.w (a0)
  5364.  blt outofrcliplop
  5365.  
  5366.  bsr NEWsetrclip 
  5367.  bra intorcliplop
  5368.  
  5369. outofrcliplop:
  5370.  
  5371.  
  5372.  move.w leftclip,d0
  5373.  cmp.w RIGHTX,d0
  5374.  bge dontbothercantseeit
  5375.  move.w rightclip,d1
  5376.  blt dontbothercantseeit
  5377.  cmp.w d1,d0
  5378.  bge dontbothercantseeit
  5379.  
  5380.  move.l yoff,d0
  5381.  cmp.l SplitHeight,d0
  5382.  blt botfirst
  5383.  
  5384.  move.l ThisRoomToDraw+4,a0
  5385.  cmp.l LEVELGRAPHICS,a0
  5386.  beq.s noupperroom
  5387.  st DOUPPER
  5388.  
  5389.  move.l ROOMBACK,a1
  5390.  move.l ToUpperRoof(a1),TOPOFROOM
  5391.  move.l ToUpperFloor(a1),BOTOFROOM
  5392.  
  5393.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5394.  bsr dothisroom
  5395. noupperroom:
  5396.  move.l ThisRoomToDraw,a0
  5397.  clr.b DOUPPER
  5398.  move.l #CurrentPointBrights,PointBrightsPtr
  5399.  
  5400.  move.l ROOMBACK,a1
  5401.  move.l ToZoneRoof(a1),d0
  5402.  move.l d0,TOPOFROOM
  5403.  move.l ToZoneFloor(a1),d1
  5404.  move.l d1,BOTOFROOM
  5405.  
  5406.  move.l ToZoneWater(a1),d2
  5407.  cmp.l yoff,d2
  5408.  blt.s .abovefirst
  5409.  move.l d2,BEFOREWATTOP
  5410.  move.l d1,BEFOREWATBOT
  5411.  move.l d2,AFTERWATBOT
  5412.  move.l d0,AFTERWATTOP
  5413.  bra.s .belowfirst
  5414. .abovefirst:
  5415.  move.l d0,BEFOREWATTOP
  5416.  move.l d2,BEFOREWATBOT
  5417.  move.l d1,AFTERWATBOT
  5418.  move.l d2,AFTERWATTOP
  5419. .belowfirst:
  5420.  
  5421.  bsr dothisroom
  5422.  
  5423.  bra dontbothercantseeit
  5424. botfirst:
  5425.  
  5426.  move.l ThisRoomToDraw,a0
  5427.  clr.b DOUPPER
  5428.  move.l #CurrentPointBrights,PointBrightsPtr
  5429.  
  5430.  move.l ROOMBACK,a1
  5431.  move.l ToZoneRoof(a1),d0
  5432.  move.l d0,TOPOFROOM
  5433.  move.l ToZoneFloor(a1),d1
  5434.  move.l d1,BOTOFROOM
  5435.  
  5436.  move.l ToZoneWater(a1),d2
  5437.  cmp.l yoff,d2
  5438.  blt.s .abovefirst
  5439.  move.l d2,BEFOREWATTOP
  5440.  move.l d1,BEFOREWATBOT
  5441.  move.l d2,AFTERWATBOT
  5442.  move.l d0,AFTERWATTOP
  5443.  bra.s .belowfirst
  5444. .abovefirst:
  5445.  move.l d0,BEFOREWATTOP
  5446.  move.l d2,BEFOREWATBOT
  5447.  move.l d1,AFTERWATBOT
  5448.  move.l d2,AFTERWATTOP
  5449. .belowfirst:
  5450.  
  5451.  
  5452.  bsr dothisroom
  5453.  move.l ThisRoomToDraw+4,a0
  5454.  cmp.l LEVELGRAPHICS,a0
  5455.  beq.s noupperroom2
  5456.  move.l #CurrentPointBrights+4,PointBrightsPtr
  5457.  
  5458.  move.l ROOMBACK,a1
  5459.  move.l ToUpperRoof(a1),TOPOFROOM
  5460.  move.l ToUpperFloor(a1),BOTOFROOM
  5461.  
  5462.  st DOUPPER
  5463.  bsr dothisroom
  5464. noupperroom2:
  5465.  
  5466. dontbothercantseeit:
  5467. pastemp:
  5468.  
  5469.  move.l (a7)+,a1
  5470.  move.l ThisRoomToDraw,a0
  5471.  move.w (a0),d7
  5472.  
  5473.  adda.w #8,a1
  5474.  bra finditit
  5475.  
  5476. nomoretodoatall:
  5477.  
  5478.  move.l (a7)+,a0
  5479.  
  5480.  bra subroomloop
  5481.  
  5482. jumpoutofrooms:
  5483.  
  5484.  
  5485.  tst.b DONTDOGUN
  5486.  bne NOGUNLOOK
  5487.  
  5488.  cmp.b #'s',mors
  5489.  beq.s drawslavegun
  5490.  
  5491.  moveq #0,d0
  5492.  move.b PLR1_GunSelected,d0
  5493.  moveq #0,d1
  5494.  move.b PLR1_GunFrame,d1
  5495. ; bsr DRAWINGUN
  5496.  bra drawngun
  5497.  
  5498. drawslavegun
  5499.  moveq #0,d0
  5500.  move.b PLR2_GunSelected,d0
  5501.  moveq #0,d1
  5502.  move.b PLR2_GunFrame,d1
  5503. ; bsr DRAWINGUN
  5504.  
  5505. drawngun:
  5506.  
  5507. NOGUNLOOK:
  5508.  
  5509.  moveq #0,d1
  5510.  move.b PLR1_GunFrame,d1
  5511.  sub.w TempFrames,d1
  5512.  bgt.s .nn
  5513.  moveq #0,d1
  5514. .nn
  5515.  move.b d1,PLR1_GunFrame
  5516.  
  5517.  ble.s .donefire
  5518.  sub.b #1,PLR1_GunFrame
  5519. .donefire:
  5520.  
  5521.  moveq #0,d1
  5522.  move.b PLR2_GunFrame,d1
  5523.  sub.w TempFrames,d1
  5524.  bgt.s .nn2
  5525.  moveq #0,d1
  5526. .nn2
  5527.  move.b d2,PLR2_GunFrame
  5528.  
  5529.  ble.s .donefire2
  5530.  sub.b #1,PLR2_GunFrame
  5531. .donefire2:
  5532.  
  5533.  tst.b DOANYWATER
  5534.  beq.s nowaterfull
  5535.  
  5536.  move.w #231,d0
  5537.  move.l FASTBUFFER,a0
  5538.  tst.b fillscrnwater
  5539.  beq nowaterfull
  5540.  bgt oknothalf
  5541.  moveq #119,d0
  5542.  add.l #320*120*2,a0
  5543. oknothalf:
  5544.  
  5545.  bclr.b #1,$bfe001
  5546.  
  5547.  move.l TexturePal,a2
  5548.  add.l #256*40,a2
  5549.  moveq #0,d2
  5550.  
  5551.  tst.b FULLSCR
  5552.  bne.s DOALLSCREEN
  5553.  
  5554. DOSOMESCREEN:
  5555.  
  5556.  move.w #159,d0
  5557. .fw:
  5558.  move.w #191,d1
  5559. .fwa:
  5560.  move.b (a0),d2
  5561.  move.b (a2,d2.w),(a0)+
  5562.  dbra d1,.fwa
  5563.  add.w #(320-192),a0
  5564.  dbra d0,.fw
  5565.  rts
  5566.  
  5567. DOALLSCREEN:
  5568.  
  5569. fw:
  5570.  move.w #287,d1
  5571. fwa:
  5572.  move.b (a0),d2
  5573.  move.b (a2,d2.w),(a0)+
  5574.  dbra d1,fwa
  5575.  add.w #32,a0
  5576.  dbra d0,fw
  5577.  
  5578. ; move.l frompt,a0
  5579. ; add.l #104*4*60,a0
  5580. ; 
  5581. ; move.w #31,d0
  5582. ;fw:
  5583. ; move.w d5,d1
  5584. ; move.l a0,a1
  5585. ;fwd:
  5586. ;val SET 104*4*19
  5587. ; REPT 20
  5588. ; and.w #$ff,val(a1)
  5589. ;val SET val-104*4
  5590. ; ENDR
  5591. ; sub.l #104*4*20,a1
  5592. ; dbra d1,fwd
  5593. ; addq #4,a0
  5594. ; dbra d0,fw
  5595. ;
  5596. ; addq #4,a0
  5597. ;
  5598. ; move.w #31,d0
  5599. ;sw:
  5600. ; move.w d5,d1
  5601. ; move.l a0,a1
  5602. ;swd:
  5603. ;val SET 104*4*19
  5604. ; REPT 20
  5605. ; and.w #$ff,val(a1)
  5606. ;val SET val-104*4
  5607. ; ENDR
  5608. ; sub.l #104*4*20,a1
  5609. ; dbra d1,swd
  5610. ; addq #4,a0
  5611. ; dbra d0,sw
  5612. ;
  5613. ; addq #4,a0
  5614. ;
  5615. ; move.w #31,d0
  5616. ;tw:
  5617. ; move.w d5,d1
  5618. ; move.l a0,a1
  5619. ;twd:
  5620. ;val SET 104*4*19
  5621. ; REPT 20
  5622. ; and.w #$ff,val(a1)
  5623. ;val SET val-104*4
  5624. ; ENDR
  5625. ; sub.l #104*4*20,a1
  5626. ; dbra d1,twd
  5627. ; addq #4,a0
  5628. ; dbra d0,tw
  5629. ;
  5630.  rts
  5631.  
  5632. nowaterfull:
  5633.  bset.b #1,$bfe001
  5634.  rts
  5635.  
  5636. prot9: dc.w 0
  5637.  
  5638. ;TempBuffer: ds.l 100 
  5639.  
  5640. prot8: dc.w 0
  5641.  
  5642. ClipTable: ds.l 30
  5643. EndOfClipPt: dc.l 0
  5644. DOUPPER: dc.w 0
  5645.  
  5646. RealTable:
  5647.  dc.l prot1-78935450
  5648.  dc.l prot2-78935450
  5649.  dc.l prot3-78935450
  5650.  dc.l prot4-78935450
  5651.  dc.l prot5-78935450
  5652.  dc.l prot6-78935450
  5653.  dc.l prot7-78935450
  5654.  dc.l prot8-78935450
  5655.  dc.l prot9-78935450
  5656.  dc.l protA-78935450
  5657.  
  5658. dothisroom
  5659.  
  5660.  move.w (a0)+,d0
  5661.  move.w d0,currzone
  5662.  move.w d0,d1
  5663.  muls #40,d1
  5664.  add.l #BIGMAP,d1
  5665.  move.l d1,BIGPTR
  5666.  move.w d0,d1
  5667.  ext.l d1
  5668.  asl.w #2,d1
  5669.  add.l #COMPACTMAP,d1
  5670.  move.l d1,COMPACTPTR
  5671.  add.l #4,d1
  5672.  cmp.l LASTZONE,d1
  5673.  ble.s .nochange
  5674.  move.l d1,LASTZONE
  5675. .nochange:
  5676.  
  5677.  move.l #ZoneBrightTable,a1
  5678.  move.l (a1,d0.w*4),d1
  5679.  tst.b DOUPPER
  5680.  bne.s .okbot
  5681.  swap d1
  5682. .okbot:
  5683.  move.w d1,ZoneBright
  5684.  
  5685. polyloop:
  5686.  move.w (a0)+,d0
  5687.  move.w d0,WALLIDENT
  5688.  and.w #$ff,d0
  5689.  tst.b d0
  5690.  blt jumpoutofloop
  5691.  beq itsawall
  5692.  cmp.w #3,d0
  5693.  beq itsasetclip
  5694.  blt itsafloor
  5695.  cmp.w #4,d0
  5696.  beq itsanobject
  5697.  cmp.w #5,d0
  5698.  beq itsanarc
  5699.  cmp.w #6,d0
  5700.  beq itsalightbeam
  5701.  cmp.w #7,d0
  5702.  beq.s itswater
  5703.  cmp.w #9,d0
  5704.  ble itsachunkyfloor
  5705.  cmp.w #11,d0
  5706.  ble itsabumpyfloor
  5707.  cmp.w #12,d0
  5708.  beq.s itsbackdrop
  5709.  cmp.w #13,d0
  5710.  beq.s itsaseewall
  5711.  
  5712.  bra polyloop
  5713.  
  5714. itsaseewall:
  5715.  st seethru
  5716.  jsr itsawalldraw
  5717.  bra polyloop
  5718.  
  5719. itsbackdrop:
  5720.  jsr putinbackdrop
  5721.  bra polyloop
  5722.  
  5723. itswater:
  5724.  PROTHCHECK
  5725.  move.w #2,SMALLIT
  5726.  move.w #3,d0
  5727.  clr.b gourfloor
  5728.  move.l #FloorLine,LineToUse
  5729.  st usewater
  5730.  clr.b usebumps
  5731.  jsr itsafloordraw
  5732.  bra polyloop
  5733.  
  5734. itsanarc:
  5735.  jsr CurveDraw
  5736.  bra polyloop
  5737.  
  5738. itsanobject:
  5739.  jsr ObjDraw
  5740.  bra polyloop
  5741.  
  5742. itsalightbeam:
  5743.  jsr LightDraw
  5744.  bra polyloop
  5745.  
  5746. itsabumpyfloor:
  5747.  move.w #1,SMALLIT
  5748.  sub.w #9,d0
  5749.  st usebumps
  5750.  st smoothbumps
  5751.  clr.b usewater
  5752.  move.l #BumpLine,LineToUse
  5753.  jsr itsafloordraw
  5754.  bra polyloop
  5755.  
  5756. itsachunkyfloor:
  5757.  move.w #1,SMALLIT
  5758.  subq.w #7,d0
  5759.  st usebumps
  5760.  sub.w #12,topclip
  5761. ; add.w #10,botclip
  5762.  clr.b smoothbumps
  5763.  clr.b usewater
  5764.  move.l #BumpLine,LineToUse
  5765.  jsr itsafloordraw
  5766.  add.w #12,topclip
  5767. ; sub.w #10,botclip
  5768.  bra polyloop 
  5769.  
  5770. itsafloor:
  5771.  
  5772.  move.l PointBrightsPtr,FloorPtBrights
  5773.  
  5774.  move.w currzone,d1
  5775.  muls #80,d1
  5776.  
  5777.  cmp.w #2,d0
  5778.  bne.s .nfl
  5779.  add.l #2,d1
  5780. .nfl
  5781.  add.l d1,FloorPtBrights
  5782.  
  5783.  move.w #1,SMALLIT
  5784.  
  5785.  movem.l a0/d0,-(a7)
  5786.  move.l $4.w,a6
  5787.  jsr _LVOSuperState(a6)
  5788.  move.l d0,SSTACK
  5789.  movem.l (a7)+,a0/d0
  5790.  
  5791.  move.l #FloorLine,LineToUse
  5792. * 1,2 = floor/roof
  5793.  clr.b usewater
  5794.  clr.b usebumps
  5795.  move.b GOURSEL,gourfloor    
  5796.  jsr itsafloordraw
  5797.  move.l a0,-(a7)
  5798.  move.l $4.w,a6
  5799.  move.l SSTACK,d0
  5800.  jsr _LVOUserState(a6)
  5801.  move.l (a7)+,a0
  5802.  bra polyloop
  5803. itsasetclip:
  5804.  bra polyloop
  5805. itsawall:
  5806.  clr.b seethru
  5807. ; move.l #stripbuffer,a1
  5808.  jsr itsawalldraw
  5809.  bra polyloop
  5810.  
  5811. jumpoutofloop:
  5812.  rts
  5813.  
  5814. LASTZONE: dc.l 0
  5815. COMPACTPTR: dc.l 0
  5816. BIGPTR: dc.l 0
  5817. WALLIDENT: dc.w 0
  5818. SMALLIT: dc.w 0
  5819. GOURSEL: dc.w 0
  5820. ThisRoomToDraw: dc.l 0,0
  5821. SplitHeight: dc.l 0
  5822.  
  5823.  include "ab3:source_4000/OrderZones"
  5824.  
  5825. ReadMouse:
  5826.  move.l #$dff000,a6
  5827.  clr.l d0
  5828.  clr.l d1
  5829.  move.w $a(a6),d0
  5830.  lsr.w #8,d0
  5831.  ext.l d0
  5832.  move.w d0,d3
  5833.  move.w oldmy,d2
  5834.  sub.w d2,d0
  5835.  
  5836.  cmp.w #127,d0
  5837.  blt nonegy
  5838.  move.w #255,d1
  5839.  sub.w d0,d1
  5840.  move.w d1,d0
  5841.  neg.w d0
  5842. nonegy:
  5843.  
  5844.  cmp.w #-127,d0
  5845.  bge nonegy2
  5846.  move.w #255,d1
  5847.  add.w d0,d1
  5848.  move.w d1,d0
  5849. nonegy2:
  5850.  
  5851.  add.b d0,d2
  5852.  add.w d0,oldy2
  5853.  move.w d2,oldmy
  5854.  move.w d2,d0
  5855.  
  5856.  move.w oldy2,d0
  5857.  move.w d0,ymouse
  5858.  
  5859.  clr.l d0
  5860.  clr.l d1
  5861.  move.w $a(a6),d0
  5862.  ext.w d0
  5863.  ext.l d0
  5864.  move.w d0,d3
  5865.  move.w oldmx,d2
  5866.  sub.w d2,d0
  5867.  
  5868.  cmp.w #127,d0
  5869.  blt nonegx
  5870.  move.w #255,d1
  5871.  sub.w d0,d1
  5872.  move.w d1,d0
  5873.  neg.w d0
  5874. nonegx:
  5875.  
  5876.  cmp.w #-127,d0
  5877.  bge nonegx2
  5878.  move.w #255,d1
  5879.  add.w d0,d1
  5880.  move.w d1,d0
  5881. nonegx2:
  5882.  
  5883.  add.b d0,d2
  5884.  move.w d0,d1
  5885.  move.w d2,oldmx
  5886.  
  5887.  move.w #$0,$dff034
  5888.  
  5889.  add.w d0,oldx2
  5890.  move.w oldx2,d0
  5891.  and.w #2047,d0
  5892.  move.w d0,oldx2
  5893.  
  5894.  asl.w #2,d0
  5895.  sub.w prevx,d0
  5896.  add.w d0,prevx
  5897.  add.w d0,angpos
  5898.  move.w #0,lrs
  5899.  rts
  5900.  
  5901. noturn:
  5902.  
  5903. ; got to move lr instead. 
  5904.  
  5905. ; d1 = speed moved l/r
  5906.  
  5907.  move.w d1,lrs
  5908.  
  5909.  rts
  5910.  
  5911. lrs: dc.w 0
  5912. prevx: dc.w 0
  5913.  
  5914. angpos: dc.w 0
  5915. mang: dc.w 0
  5916. oldymouse: dc.w 0
  5917. xmouse: dc.w 0
  5918. ymouse: dc.w 0
  5919. oldx2: dc.w 0
  5920. oldmx: dc.w 0
  5921. oldmy: dc.w 0
  5922. oldy2: dc.w 0
  5923.  
  5924. MAPON: dc.w $0
  5925. REALMAPON: dc.w 0
  5926.  
  5927. RotateLevelPts:
  5928.  
  5929.  tst.b REALMAPON
  5930.  beq ONLYTHELONELY
  5931.  
  5932.  move.w sinval,d6
  5933.  swap d6
  5934.  move.w cosval,d6
  5935.  move.l Points,a3
  5936.  move.l #Rotated,a1
  5937.  move.l #OnScreen,a2
  5938.  move.w xoff,d4
  5939.  move.w zoff,d5
  5940.  
  5941. ; move.w #$c40,$dff106
  5942. ; move.w #$f00,$dff180
  5943.  
  5944.  move.w NumLevPts,d7
  5945.  
  5946.  tst.b FULLSCR
  5947.  bne BIGALL
  5948.  
  5949. pointrotlop2:
  5950.  move.w (a3)+,d0
  5951.  sub.w d4,d0
  5952.  move.w d0,d2
  5953.  move.w (a3)+,d1
  5954.  sub.w d5,d1
  5955.  muls d6,d2
  5956.  swap d6
  5957.  move.w d1,d3
  5958.  muls d6,d3
  5959.  sub.l d3,d2
  5960.  add.l d2,d2
  5961.  swap d2
  5962.  ext.l d2
  5963.  asl.l #7,d2
  5964.  add.l xwobble,d2
  5965.  move.l d2,(a1)+
  5966.  
  5967.  muls d6,d0
  5968.  swap d6
  5969.  muls d6,d1
  5970.  add.l d0,d1
  5971.  asl.l #1,d1
  5972.  swap d1
  5973. ; ext.l d1
  5974. ; divs #3,d1
  5975.  move.l d1,(a1)+
  5976.  
  5977.  tst.w d1
  5978.  bgt.s ptnotbehind
  5979.  tst.w d2
  5980.  bgt.s onrightsomewhere
  5981.  move.w #0,d2
  5982.  bra putin
  5983. onrightsomewhere:
  5984.  move.w RIGHTX,d2
  5985.  bra putin
  5986. ptnotbehind:
  5987.  
  5988.  divs d1,d2
  5989.  add.w MIDDLEX,d2
  5990. putin:
  5991.  move.w d2,(a2)+
  5992.  
  5993.  dbra d7,pointrotlop2
  5994. outofpointrot:
  5995.   rts
  5996.  
  5997.  
  5998. BIGALL:
  5999.  
  6000. pointrotlop2B:
  6001.  move.w (a3)+,d0
  6002.  sub.w d4,d0
  6003.  move.w d0,d2
  6004.  move.w (a3)+,d1
  6005.  sub.w d5,d1
  6006.  muls d6,d2
  6007.  swap d6
  6008.  move.w d1,d3
  6009.  muls d6,d3
  6010.  sub.l d3,d2
  6011.  add.l d2,d2
  6012.  swap d2
  6013.  ext.l d2
  6014.  asl.l #7,d2
  6015.  add.l xwobble,d2
  6016.  move.l d2,(a1)+
  6017.  
  6018.  muls d6,d0
  6019.  swap d6
  6020.  muls d6,d1
  6021.  add.l d0,d1
  6022.  asl.l #2,d1
  6023.  swap d1
  6024.  ext.l d1
  6025.  divs #3,d1
  6026.  move.l d1,(a1)+
  6027.  
  6028.  tst.w d1
  6029.  bgt.s ptnotbehindB
  6030.  tst.w d2
  6031.  bgt.s onrightsomewhereB
  6032.  move.w #0,d2
  6033.  bra putinB
  6034. onrightsomewhereB:
  6035.  move.w RIGHTX,d2
  6036.  bra putinB
  6037. ptnotbehindB:
  6038.  
  6039.  divs d1,d2
  6040.  add.w MIDDLEX,d2
  6041. putinB:
  6042.  move.w d2,(a2)+
  6043.  
  6044.  dbra d7,pointrotlop2B
  6045.   rts
  6046.  
  6047.  
  6048. ONLYTHELONELY:
  6049.  
  6050.  move.w sinval,d6
  6051.  swap d6
  6052.  move.w cosval,d6
  6053.  
  6054.  move.l PointsToRotatePtr,a0
  6055.  move.l Points,a3
  6056.  move.l #Rotated,a1
  6057.  move.l #OnScreen,a2
  6058.  move.w xoff,d4
  6059.  move.w zoff,d5
  6060.  
  6061. ; move.w #$c40,$dff106
  6062. ; move.w #$f00,$dff180
  6063.  
  6064.  tst.b FULLSCR
  6065.  bne BIGLONELY
  6066.  
  6067. pointrotlop:
  6068.  move.w (a0)+,d7
  6069.  blt outofpointrot
  6070.  
  6071.  move.w (a3,d7*4),d0
  6072.  sub.w d4,d0
  6073.  move.w d0,d2
  6074.  move.w 2(a3,d7*4),d1
  6075.  sub.w d5,d1
  6076.  muls d6,d2
  6077.  swap d6
  6078.  move.w d1,d3
  6079.  muls d6,d3
  6080.  sub.l d3,d2
  6081.  add.l d2,d2
  6082.  swap d2
  6083.  ext.l d2
  6084.  asl.l #7,d2
  6085.  add.l xwobble,d2
  6086.  move.l d2,(a1,d7*8)
  6087.  
  6088.  muls d6,d0
  6089.  swap d6
  6090.  muls d6,d1
  6091.  add.l d0,d1
  6092.  asl.l #1,d1
  6093.  swap d1
  6094. ; ext.l d1
  6095. ; divs #3,d1
  6096.  move.l d1,4(a1,d7*8)
  6097.  
  6098.  tst.w d1
  6099.  bgt.s .ptnotbehind
  6100.  tst.w d2
  6101.  bgt.s .onrightsomewhere
  6102.  move.w #0,d2
  6103.  bra .putin
  6104. .onrightsomewhere:
  6105.  move.w RIGHTX,d2
  6106.  bra .putin
  6107. .ptnotbehind:
  6108.  
  6109.  divs d1,d2
  6110.  add.w MIDDLEX,d2
  6111. .putin:
  6112.  move.w d2,(a2,d7*2)
  6113.  
  6114.  bra pointrotlop
  6115.  
  6116. ; move.w #$c40,$dff106
  6117. ; move.w #$ff0,$dff180
  6118.  
  6119.  rts
  6120.  
  6121. BIGLONELY:
  6122.  
  6123. .pointrotlop:
  6124.  move.w (a0)+,d7
  6125.  blt.s .outofpointrot
  6126.  
  6127.  move.w (a3,d7*4),d0
  6128.  sub.w d4,d0
  6129.  move.w d0,d2
  6130.  move.w 2(a3,d7*4),d1
  6131.  sub.w d5,d1
  6132.  muls d6,d2
  6133.  swap d6
  6134.  move.w d1,d3
  6135.  muls d6,d3
  6136.  sub.l d3,d2
  6137.  add.l d2,d2
  6138.  swap d2
  6139.  ext.l d2
  6140.  asl.l #7,d2
  6141.  add.l xwobble,d2
  6142.  move.l d2,(a1,d7*8)
  6143.  
  6144.  muls d6,d0
  6145.  swap d6
  6146.  muls d6,d1
  6147.  add.l d0,d1
  6148.  asl.l #2,d1
  6149.  swap d1
  6150.  ext.l d1
  6151.  divs #3,d1
  6152.  move.l d1,4(a1,d7*8)
  6153.  
  6154.  tst.w d1
  6155.  bgt.s .ptnotbehind
  6156.  tst.w d2
  6157.  bgt.s .onrightsomewhere
  6158.  move.w #0,d2
  6159.  bra .putin
  6160. .onrightsomewhere:
  6161.  move.w RIGHTX,d2
  6162.  bra .putin
  6163. .ptnotbehind:
  6164.  
  6165.  divs d1,d2
  6166.  add.w MIDDLEX,d2
  6167. .putin:
  6168.  move.w d2,(a2,d7*2)
  6169.  
  6170.  bra .pointrotlop
  6171.  
  6172. .outofpointrot:
  6173. ; move.w #$c40,$dff106
  6174. ; move.w #$ff0,$dff180
  6175.  
  6176.  rts
  6177.  
  6178.  
  6179. PLR1_ObjDists
  6180.  ds.w 250
  6181. PLR2_ObjDists
  6182.  ds.w 250
  6183.  
  6184. CalcPLR1InLine:
  6185.  
  6186.  move.w PLR1_sinval,d5
  6187.  move.w PLR1_cosval,d6
  6188.  move.l ObjectData,a4
  6189.  move.l ObjectPoints,a0
  6190.  move.w NumObjectPoints,d7
  6191.  move.l #PLR1_ObsInLine,a2
  6192.  move.l #PLR1_ObjDists,a3
  6193.  
  6194. .objpointrotlop:
  6195.  
  6196.  cmp.b #3,16(a4)
  6197.  beq.s .itaux
  6198.  
  6199.  move.w (a0),d0
  6200.  sub.w PLR1_xoff,d0
  6201.  move.w 4(a0),d1
  6202.  addq #8,a0
  6203.  
  6204.  tst.w 12(a4)
  6205.  blt .noworkout
  6206.  
  6207.  moveq #0,d2
  6208.  move.b 16(a4),d2
  6209.  ;move.l #ColBoxTable,a6
  6210.  ;lea (a6,d2.w*8),a6
  6211.  
  6212.  sub.w PLR1_zoff,d1
  6213.  move.w d0,d2
  6214.  muls d6,d2
  6215.  move.w d1,d3
  6216.  muls d5,d3
  6217.  sub.l d3,d2
  6218.  add.l d2,d2
  6219.  
  6220.  bgt.s .okh
  6221.  neg.l d2
  6222. .okh:
  6223.  swap d2
  6224.  
  6225.  muls d5,d0
  6226.  muls d6,d1
  6227.  add.l d0,d1
  6228.  asl.l #2,d1
  6229.  swap d1
  6230.  moveq #0,d3
  6231.  
  6232.  tst.w d1
  6233.  ble.s .notinline
  6234.  asr.w #1,d2
  6235.  cmp.w #80,d2
  6236.  bgt.s .notinline
  6237.  
  6238.  st d3
  6239. .notinline
  6240.  move.b d3,(a2)+
  6241.  
  6242.  move.w d1,(a3)+
  6243.  
  6244.  add.w #64,a4
  6245.  dbra d7,.objpointrotlop
  6246.  
  6247.  rts
  6248.  
  6249. .itaux:
  6250.  add.w #64,a4
  6251.  bra .objpointrotlop
  6252.  
  6253. .noworkout:
  6254.  move.b #0,(a2)+
  6255.  move.w #0,(a3)+
  6256.  add.w #64,a4
  6257.  dbra d7,.objpointrotlop
  6258.  rts
  6259.  
  6260.  
  6261. CalcPLR2InLine:
  6262.  
  6263.  move.w PLR2_sinval,d5
  6264.  move.w PLR2_cosval,d6
  6265.  move.l ObjectData,a4
  6266.  move.l ObjectPoints,a0
  6267.  move.w NumObjectPoints,d7
  6268.  move.l #PLR2_ObsInLine,a2
  6269.  move.l #PLR2_ObjDists,a3
  6270.  
  6271. .objpointrotlop:
  6272.  
  6273.  cmp.b #3,16(a4)
  6274.  beq.s .itaux
  6275.  
  6276.  move.w (a0),d0
  6277.  sub.w PLR2_xoff,d0
  6278.  move.w 4(a0),d1
  6279.  addq #8,a0
  6280.  
  6281.  tst.w 12(a4)
  6282.  blt .noworkout
  6283.  
  6284.  moveq #0,d2
  6285.  move.b 16(a4),d2
  6286. ; move.l #ColBoxTable,a6
  6287. ; lea (a6,d2.w*8),a6
  6288.  
  6289.  sub.w PLR2_zoff,d1
  6290.  move.w d0,d2
  6291.  muls d6,d2
  6292.  move.w d1,d3
  6293.  muls d5,d3
  6294.  sub.l d3,d2
  6295.  add.l d2,d2
  6296.  
  6297.  bgt.s .okh
  6298.  neg.l d2
  6299. .okh:
  6300.  swap d2
  6301.  
  6302.  muls d5,d0
  6303.  muls d6,d1
  6304.  add.l d0,d1
  6305.  asl.l #2,d1
  6306.  swap d1
  6307.  moveq #0,d3
  6308.  
  6309.  tst.w d1
  6310.  ble.s .notinline
  6311.  asr.w #1,d2
  6312.  cmp.w (a6),d2
  6313.  bgt.s .notinline
  6314.  
  6315.  st d3
  6316. .notinline
  6317.  move.b d3,(a2)+
  6318.  
  6319.  move.w d1,(a3)+
  6320.  
  6321.  add.w #64,a4
  6322.  dbra d7,.objpointrotlop
  6323.  
  6324.  rts
  6325.  
  6326. .itaux:
  6327.  add.w #64,a4
  6328.  bra .objpointrotlop
  6329.  
  6330. .noworkout:
  6331.  move.w #0,(a3)+
  6332.  move.b #0,(a2)+
  6333.  add.w #64,a4
  6334.  dbra d7,.objpointrotlop
  6335.  rts
  6336.  
  6337.  
  6338. RotateObjectPts:
  6339.  
  6340.  move.w sinval,d5
  6341.  move.w cosval,d6
  6342.  
  6343.  move.l ObjectData,a4
  6344.  move.l ObjectPoints,a0
  6345.  move.w NumObjectPoints,d7
  6346.  move.l #ObjRotated,a1
  6347.  
  6348.  tst.b FULLSCR
  6349.  bne BIGOBJPTS
  6350.  
  6351.  
  6352. .objpointrotlop:
  6353.  
  6354.  cmp.b #3,16(a4)
  6355.  beq.s .itaux
  6356.  
  6357.  move.w (a0),d0
  6358.  sub.w xoff,d0
  6359.  move.w 4(a0),d1
  6360.  addq #8,a0
  6361.  
  6362.  tst.w 12(a4)
  6363.  blt .noworkout
  6364.  
  6365.  sub.w zoff,d1
  6366.  
  6367.  move.w d0,d2
  6368.  muls d6,d2
  6369.  move.w d1,d3
  6370.  muls d5,d3
  6371.  sub.l d3,d2
  6372.  
  6373.  
  6374.  add.l d2,d2
  6375.  swap d2
  6376.  move.w d2,(a1)+
  6377.  
  6378.  muls d5,d0
  6379.  muls d6,d1
  6380.  add.l d0,d1
  6381.  asl.l #1,d1
  6382.  swap d1
  6383. ; ext.l d1
  6384. ; divs #3,d1
  6385.  moveq #0,d3
  6386.  
  6387.  move.w d1,(a1)+
  6388.  ext.l d2
  6389.  asl.l #7,d2
  6390.  add.l xwobble,d2
  6391.  move.l d2,(a1)+
  6392.  
  6393.  dbra d7,.objpointrotlop
  6394.  
  6395.  rts
  6396.  
  6397. .itaux:
  6398.  add.w #64,a4
  6399.  bra .objpointrotlop
  6400.  
  6401. .noworkout:
  6402.   move.l #0,(a1)+
  6403.   move.l #0,(a1)+
  6404.   add.w #64,a4
  6405.   dbra d7,.objpointrotlop
  6406.   rts
  6407.   
  6408. BIGOBJPTS:
  6409.  
  6410. .objpointrotlop:
  6411.  
  6412.  cmp.b #3,16(a4)
  6413.  beq.s .itaux
  6414.  
  6415.  move.w (a0),d0
  6416.  sub.w xoff,d0
  6417.  move.w 4(a0),d1
  6418.  addq #8,a0
  6419.  
  6420.  tst.w 12(a4)
  6421.  blt .noworkout
  6422.  
  6423.  sub.w zoff,d1
  6424.  move.w d0,d2
  6425.  muls d6,d2
  6426.  move.w d1,d3
  6427.  muls d5,d3
  6428.  sub.l d3,d2
  6429.  
  6430.  
  6431.  add.l d2,d2
  6432.  swap d2
  6433.  move.w d2,(a1)+
  6434.  
  6435.  muls d5,d0
  6436.  muls d6,d1
  6437.  add.l d0,d1
  6438.  asl.l #2,d1
  6439.  swap d1
  6440.  ext.l d1
  6441.  divs #3,d1
  6442.  moveq #0,d3
  6443.  
  6444.  move.w d1,(a1)+
  6445.  ext.l d2
  6446.  asl.l #7,d2
  6447.  add.l xwobble,d2
  6448.  move.l d2,(a1)+
  6449.  sub.l xwobble,d2
  6450.  
  6451.  add.w #64,a4
  6452.  dbra d7,.objpointrotlop
  6453.  
  6454.  rts
  6455.  
  6456. .itaux:
  6457.  add.w #64,a4
  6458.  bra .objpointrotlop
  6459.  
  6460. .noworkout:
  6461.   move.l #0,(a1)+
  6462.   move.l #0,(a1)+
  6463.   add.w #64,a4
  6464.   dbra d7,.objpointrotlop
  6465.   rts
  6466.  
  6467. LightDraw:
  6468.  
  6469.  move.w (a0)+,d0
  6470.  move.w (a0)+,d1
  6471.  move.l #Rotated,a1
  6472.  move.w 6(a1,d0.w*8),d2
  6473.  ble.s oneendbehind
  6474.  move.w 6(a1,d1.w*8),d3
  6475.  bgt.s bothendsinfront
  6476.  
  6477. oneendbehind:
  6478.  rts
  6479. bothendsinfront:
  6480.  
  6481.  move.l #OnScreen,a2
  6482.  move.w (a2,d0.w*2),d0
  6483.  bge.s okleftend
  6484.  moveq #0,d0
  6485. okleftend:
  6486.  move.w (a2,d1.w*2),d1
  6487.  bgt.s somevis
  6488.  rts
  6489. somevis:
  6490.  cmp.w RIGHTX,d0
  6491.  blt.s somevis2
  6492.  rts
  6493. somevis2:
  6494.  cmp.w RIGHTX,d1
  6495.  blt.s okrightend
  6496.  move.w RIGHTX,d1
  6497.  subq #1,d1
  6498. okrightend:
  6499.  
  6500.  sub.w d0,d1
  6501.  blt.s wrongbloodywayround
  6502.  move.l TexturePal,a4
  6503.  move.l #objintocop,a1
  6504.  lea (a1,d0.w*2),a1
  6505.  
  6506.  move.l frompt,a3
  6507.  move.w #104*4,d6
  6508.  move.w #79,d2
  6509. lacross:
  6510.  move.w d2,d3
  6511.  move.l a3,a2
  6512.  adda.w (a1)+,a2
  6513. ldown:
  6514.  add.w d6,a2
  6515.  move.w (a2),d7
  6516.  move.w (a4,d7.w*2),(a2)
  6517.  dbra d3,ldown
  6518.  dbra d1,lacross
  6519.  
  6520. wrongbloodywayround:
  6521.  
  6522.  rts
  6523.  
  6524. FaceToPlace: dc.w 0
  6525.  
  6526. Cheese:
  6527.  dc.w 4,15
  6528.  
  6529. FacesList:
  6530.  dc.w 0,4*4
  6531.  dc.w 1,2*4
  6532.  dc.w 0,2*4
  6533.  dc.w 2,2*4
  6534.  dc.w 0,2*4
  6535.  dc.w 1,3*4
  6536.  dc.w 0,2*4
  6537.  dc.w 2,3*4
  6538.  dc.w 0,5*4
  6539.  dc.w 1,2*4
  6540.  dc.w 0,2*4
  6541.  dc.w 2,2*4
  6542.  dc.w 0,2*4
  6543.  dc.w 1,2*4
  6544.  dc.w 0,2*4
  6545.  dc.w 2,3*4
  6546.  dc.w 0,1*4
  6547.  dc.w 1,3*4
  6548.  dc.w 0,1*4
  6549.  dc.w 2,3*4
  6550.  dc.w 0,1*4
  6551.  
  6552. EndOfFacesList:
  6553.  
  6554. FacesPtr:
  6555.  dc.l FacesList
  6556. FacesCounter:
  6557.  dc.w 0
  6558. Expression:
  6559.  dc.w 0
  6560.  
  6561.  
  6562. Energy:
  6563.  dc.w 191
  6564. OldEnergy:
  6565.  dc.w 191
  6566. Ammo: dc.w 63
  6567. OldAmmo: dc.w 63
  6568.  
  6569. FullEnergy:
  6570. ; move.w #127,Energy
  6571. ; move.w #127,OldEnergy
  6572. ; move.l #health,a0
  6573. ; move.l #borders,a1
  6574. ; add.l #25*8*2+6,a1
  6575. ; lea 2592(a1),a2
  6576. ; move.w #127,d0
  6577. ;PutInFull:
  6578. ; move.b (a0)+,(a1)
  6579. ; move.b (a0)+,8(a1)
  6580. ; add.w #16,a1
  6581. ; move.b (a0)+,(a2)
  6582. ; move.b (a0)+,8(a2)
  6583. ; add.w #16,a2
  6584. ; dbra d0,PutInFull
  6585.  
  6586.  rts
  6587.  
  6588. ;EnergyBar:
  6589.  
  6590.  move.w Energy,d0
  6591.  bgt.s .noeneg
  6592.  move.w #0,d0
  6593. .noeneg:
  6594.  move.w d0,Energy
  6595.  
  6596.  cmp.w OldEnergy,d0
  6597.  bne.s gottochange
  6598.  
  6599. NoChange
  6600.  rts
  6601.  
  6602. gottochange:
  6603.   
  6604.  blt LessEnergy
  6605.  cmp.w #127,Energy
  6606.  blt.s NotMax
  6607.  move.w #127,Energy
  6608. NotMax:
  6609.  
  6610.  move.w Energy,d0
  6611.  move.w OldEnergy,d2
  6612.  sub.w d0,d2
  6613.  beq.s NoChange    
  6614.  neg.w d2
  6615.  
  6616.  move.w #127,d3
  6617.  sub.w d0,d3
  6618.  
  6619.  move.l #health,a0
  6620.  lea (a0,d3.w*4),a0
  6621. ; move.l #borders+25*16+6,a1
  6622.  lsl.w #4,d3
  6623.  add.w d3,a1
  6624.  lea 2592(a1),a2
  6625.  
  6626. EnergyRise:
  6627.  move.b (a0)+,(a1)
  6628.  move.b (a0)+,8(a1)
  6629.  add.w #16,a1
  6630.  move.b (a0)+,(a2)
  6631.  move.b (a0)+,8(a2)
  6632.  add.w #16,a2
  6633.  subq #1,d2
  6634.  bgt.s EnergyRise
  6635.  
  6636.  move.w Energy,OldEnergy
  6637.  
  6638.  rts 
  6639.  
  6640. LessEnergy: 
  6641.  move.w OldEnergy,d2
  6642.  sub.w d0,d2
  6643.  
  6644.  move.w #127,d3
  6645.  sub.w OldEnergy,d3
  6646.  
  6647. ; move.l #borders+25*16+6,a1
  6648.  asl.w #4,d3
  6649.  add.w d3,a1
  6650.  lea 2592(a1),a2
  6651.  
  6652. EnergyDrain:
  6653.  move.b #0,(a1)
  6654.  move.b #0,8(a1)
  6655.  move.b #0,(a2)
  6656.  move.b #0,8(a2)
  6657.  add.w #16,a1
  6658.  add.w #16,a2
  6659.  subq #1,d2
  6660.  bgt.s EnergyDrain
  6661.  
  6662.  move.w Energy,OldEnergy
  6663.  
  6664.  rts 
  6665.  
  6666. firstdigit: dc.b 0
  6667. secdigit: dc.b 0
  6668. thirddigit: dc.b 0
  6669.  
  6670.  even
  6671.  
  6672. gunny: dc.w 0
  6673.  
  6674. AmmoBar:
  6675.  
  6676. * Do guns first.
  6677.  
  6678.  move.l #borderchars,a4
  6679.  move.b p1_gunselected,d0 
  6680.  move.l #PLAYERONEGUNS,a5
  6681.  cmp.b #'s',mors
  6682.  bne.s .notplr2
  6683.  move.l #PLAYERTWOGUNS,a5
  6684.  move.b p2_gunselected,d0
  6685. .notplr2:
  6686.  
  6687.  move.b d0,gunny
  6688.  
  6689.  move.w #9,d2
  6690.  moveq #0,d0
  6691. putingunnums:
  6692.  move.w #4,d1
  6693.  move.l a4,a0
  6694.  cmp.b gunny,d0
  6695.  bne.s .notsel
  6696.  add.l #5*10*8*2,a0
  6697.  addq #2,a5
  6698.  bra.s .donesel
  6699. .notsel:
  6700.  tst.w (a5)+
  6701.  beq.s .donesel
  6702.  add.l #5*10*8,a0
  6703. .donesel:
  6704.  move.l SCRNDRAWPT,a1
  6705.  add.w d0,a1
  6706.  add.l #3+(240*40),a1
  6707.  bsr DRAWDIGIT
  6708.  addq #1,d0
  6709.  dbra d2,putingunnums
  6710.  
  6711.  move.w Ammo,d0
  6712.  ext.l d0
  6713.  divs #10,d0
  6714.  swap d0
  6715.  move.b d0,thirddigit
  6716.  swap d0
  6717.  ext.l d0
  6718.  divs #10,d0
  6719.  move.b d0,firstdigit
  6720.  swap d0
  6721.  move.b d0,secdigit
  6722.  
  6723.  move.l #borderchars+15*8*10,a0
  6724.  cmp.w #10,Ammo
  6725.  blt.s .notsmallamo
  6726.  add.l #7*8*10,a0
  6727. .notsmallamo:
  6728.  
  6729.  move.l SCRNDRAWPT,a1
  6730.  add.l #20+238*40,a1
  6731.  move.b firstdigit,d0
  6732.  move.w #6,d1
  6733.  bsr DRAWDIGIT
  6734.  
  6735.  move.l SCRNDRAWPT,a1
  6736.  add.l #21+238*40,a1
  6737.  move.b secdigit,d0
  6738.  move.w #6,d1
  6739.  bsr DRAWDIGIT
  6740.  
  6741.  move.l SCRNDRAWPT,a1
  6742.  add.l #22+238*40,a1
  6743.  move.b thirddigit,d0
  6744.  move.w #6,d1
  6745.  bsr DRAWDIGIT
  6746.  
  6747.  rts
  6748.  
  6749. EnergyBar:
  6750.  move.w Energy,d0
  6751.  bge.s .okpo
  6752.  moveq #0,d0 
  6753. .okpo:
  6754.  
  6755.  ext.l d0
  6756.  divs #10,d0
  6757.  swap d0
  6758.  move.b d0,thirddigit
  6759.  swap d0
  6760.  ext.l d0
  6761.  divs #10,d0
  6762.  move.b d0,firstdigit
  6763.  swap d0
  6764.  move.b d0,secdigit
  6765.  
  6766.  move.l #borderchars+15*8*10,a0
  6767.  cmp.w #10,Energy
  6768.  blt.s .notsmallamo
  6769.  add.l #7*8*10,a0
  6770. .notsmallamo:
  6771.  
  6772.  move.l SCRNDRAWPT,a1
  6773.  add.l #34+238*40,a1
  6774.  move.b firstdigit,d0
  6775.  move.w #6,d1
  6776.  bsr DRAWDIGIT
  6777.  
  6778.  move.l SCRNDRAWPT,a1
  6779.  add.l #35+238*40,a1
  6780.  move.b secdigit,d0
  6781.  move.w #6,d1
  6782.  bsr DRAWDIGIT
  6783.  
  6784.  move.l SCRNDRAWPT,a1
  6785.  add.l #36+238*40,a1
  6786.  move.b thirddigit,d0
  6787.  move.w #6,d1
  6788.  bsr DRAWDIGIT
  6789.  
  6790.  move.l SCRNSHOWPT,a1
  6791.  add.l #34+238*40,a1
  6792.  move.b firstdigit,d0
  6793.  move.w #6,d1
  6794.  bsr DRAWDIGIT
  6795.  
  6796.  move.l SCRNSHOWPT,a1
  6797.  add.l #35+238*40,a1
  6798.  move.b secdigit,d0
  6799.  move.w #6,d1
  6800.  bsr DRAWDIGIT
  6801.  
  6802.  move.l SCRNSHOWPT,a1
  6803.  add.l #36+238*40,a1
  6804.  move.b thirddigit,d0
  6805.  move.w #6,d1
  6806.  bsr DRAWDIGIT
  6807.  
  6808.  
  6809.  rts
  6810.  
  6811.  
  6812. DRAWDIGIT:
  6813.  ext.w d0
  6814.  lea (a0,d0.w),a2
  6815. charlines:
  6816.  lea 30720(a1),a3 
  6817.  move.b (a2),(a1)
  6818.  move.b 10(a2),10240(a1)
  6819.  move.b 20(a2),20480(a1)
  6820.  move.b 30(a2),(a3)
  6821.  move.b 40(a2),10240(a3)
  6822.  move.b 50(a2),20480(a3)
  6823.  lea 30720(a3),a3
  6824.  move.b 60(a2),(a3)
  6825.  move.b 70(a2),10240(a3)
  6826.  
  6827.  add.w #10*8,a2
  6828.  add.w #40,a1
  6829.  dbra d1,charlines
  6830.  
  6831.  rts
  6832.  
  6833. borderchars: incbin "ab3:includes/bordercharsRAW"
  6834.  
  6835. NARRATOR:
  6836.  
  6837. ; sub.w #1,NARRTIME
  6838. ; bge .NOCHARYET
  6839. ; move.w #3,NARRTIME
  6840.  
  6841.  move.l #SCROLLSCRN,d1
  6842.  move.w d1,scroll
  6843.  swap d1
  6844.  move.w d1,scrolh
  6845.  
  6846.  move.w SCROLLTIMER,d0
  6847.  subq #1,d0
  6848.  move.w d0,SCROLLTIMER
  6849.  cmp.w #40,d0
  6850.  bge .NOCHARYET
  6851.  tst.w d0
  6852.  bge.s .okcha
  6853.  
  6854.  move.w #150,SCROLLTIMER
  6855.  bra .NOCHARYET
  6856.  
  6857. .okcha:
  6858.  
  6859.  move.l #SCROLLSCRN,a0
  6860.  add.w SCROLLXPOS,a0
  6861.  
  6862.  moveq #1,d7
  6863. .doachar: 
  6864.  
  6865.  move.l SCROLLPOINTER,a1
  6866.  moveq #0,d1
  6867.  move.b (a1)+,d1    ; character
  6868.  move.l a1,d2
  6869.  cmp.l ENDSCROLL,d2
  6870.  blt.s .notrestartscroll
  6871.  move.l #BLANKSCROLL,a1
  6872.  move.l #BLANKSCROLL+80,ENDSCROLL
  6873. .notrestartscroll
  6874.  move.l a1,SCROLLPOINTER
  6875.  
  6876.  move.l #SCROLLCHARS,a1
  6877.  asl.w #3,d1
  6878.  add.w d1,a1
  6879.  
  6880.  move.b (a1)+,(a0)
  6881.  move.b (a1)+,80(a0)
  6882.  move.b (a1)+,80*2(a0)
  6883.  move.b (a1)+,80*3(a0)
  6884.  move.b (a1)+,80*4(a0)
  6885.  move.b (a1)+,80*5(a0)
  6886.  move.b (a1)+,80*6(a0)
  6887.  move.b (a1)+,80*7(a0)
  6888.  
  6889.  addq #1,a0
  6890.  dbra d7,.doachar
  6891.  
  6892.  move.w SCROLLXPOS,d0
  6893.  addq #2,d0
  6894.  move.w d0,SCROLLXPOS
  6895.  cmp.w #80,d0
  6896.  blt .NOCHARYET
  6897.  move.w #0,SCROLLXPOS
  6898.  
  6899. .NOCHARYET:
  6900.  rts
  6901.  
  6902. ; cmp.w OldAmmo,d0
  6903. ; bne.s .gottochange
  6904. ; 
  6905.  
  6906. NARRTIME: dc.w 5
  6907.  
  6908. SCROLLCHARS: incbin "ab3:includes/scrollfont"
  6909.  
  6910. .NoChange
  6911.  rts
  6912.  
  6913. .gottochange:
  6914.   
  6915.  blt LessAmmo
  6916.  cmp.w #63,Ammo
  6917.  blt.s .NotMax
  6918.  move.w #63,Ammo
  6919. .NotMax:
  6920.  
  6921.  move.w Ammo,d0
  6922.  move.w OldAmmo,d2
  6923.  sub.w d0,d2
  6924.  beq.s .NoChange
  6925.  neg.w d2
  6926.  
  6927.  move.w #63,d3
  6928.  sub.w d0,d3
  6929.  
  6930.  move.l #Ammunition,a0
  6931.  lea (a0,d3.w*8),a0
  6932. ; move.l #borders+5184+25*16+1,a1
  6933.  lsl.w #5,d3
  6934.  add.w d3,a1
  6935.  lea 2592(a1),a2
  6936.  
  6937. AmmoRise:
  6938.  move.b (a0)+,(a1)
  6939.  move.b (a0)+,8(a1)
  6940.  add.w #16,a1
  6941.  move.b (a0)+,(a2)
  6942.  move.b (a0)+,8(a2)
  6943.  add.w #16,a2
  6944.  move.b (a0)+,(a1)
  6945.  move.b (a0)+,8(a1)
  6946.  add.w #16,a1
  6947.  move.b (a0)+,(a2)
  6948.  move.b (a0)+,8(a2)
  6949.  add.w #16,a2
  6950.  subq #1,d2
  6951.  bgt.s AmmoRise
  6952.  
  6953.  move.w Ammo,OldAmmo
  6954.  
  6955.  rts 
  6956.  
  6957.  
  6958. LessAmmo: 
  6959.  move.w OldAmmo,d2
  6960.  sub.w d0,d2
  6961.  
  6962.  move.w #63,d3
  6963.  sub.w OldAmmo,d3
  6964.  
  6965. ; move.l #borders++5184+25*16+1,a1
  6966.  asl.w #5,d3
  6967.  add.w d3,a1
  6968.  lea 2592(a1),a2
  6969.  
  6970. AmmoDrain:
  6971.  move.b #0,(a1)
  6972.  move.b #0,8(a1)
  6973.  move.b #0,(a2)
  6974.  move.b #0,8(a2)
  6975.  add.w #16,a1
  6976.  add.w #16,a2
  6977.  move.b #0,(a1)
  6978.  move.b #0,8(a1)
  6979.  move.b #0,(a2)
  6980.  move.b #0,8(a2)
  6981.  add.w #16,a1
  6982.  add.w #16,a2
  6983.  subq #1,d2
  6984.  bgt.s AmmoDrain
  6985.  
  6986.  move.w Ammo,OldAmmo
  6987.  
  6988.  rts 
  6989.  
  6990. nulop:
  6991.  move.w #$0010,$dff000+intreq
  6992.  rte
  6993.  
  6994. doanything: dc.w 0
  6995.  
  6996. end:
  6997. ;     _break #0
  6998.  
  6999.  move.l #$dff000,a6
  7000.  move.w #$f,$dff000+dmacon
  7001. waitfortop22:
  7002.  btst.b #0,intreqrl(a6)
  7003.  beq waitfortop22
  7004. waitfortop222:
  7005.  btst.b #0,intreqrl(a6)
  7006.  beq waitfortop222
  7007.  
  7008.  clr.b dosounds
  7009.  clr.b doanything
  7010.  
  7011.  move.w PLAYERONEHEALTH,Energy
  7012.  cmp.b #'s',mors
  7013.  bne.s .notsl
  7014.  move.w PLAYERTWOHEALTH,Energy
  7015. .notsl:
  7016.  
  7017.  move.l drawpt,d0
  7018.  move.l olddrawpt,drawpt
  7019.  move.l d0,olddrawpt
  7020.  
  7021. ; cmp.b #'b',Prefsfile+3
  7022. ; bne.s .noback
  7023. ; jsr mt_end
  7024. ;.noback
  7025.  
  7026.  tst.w Energy
  7027.  bgt.s wevewon
  7028.  move.w #0,Energy
  7029.  bsr EnergyBar
  7030.  
  7031.  move.l #gameover,mt_data
  7032.  st UseAllChannels
  7033.  clr.b reachedend
  7034.  jsr mt_init
  7035. playgameover:
  7036.  move.l #$dff000,a6
  7037. waitfortop2:
  7038.  
  7039.     
  7040.  btst.b #0,intreqrl(a6)
  7041.  beq waitfortop2
  7042.  move.w #$1,intreq(a6)
  7043.  
  7044.     
  7045.  jsr mt_music
  7046.  
  7047.  
  7048.     
  7049.  tst.b reachedend
  7050.  beq.s playgameover
  7051.  
  7052.  bra wevelost
  7053.  
  7054.  
  7055. wevewon:
  7056.  
  7057.  
  7058.  bsr EnergyBar
  7059.  
  7060.  cmp.b #'n',mors
  7061.  bne.s .nonextlev
  7062.  add.w #1,MAXLEVEL
  7063.  st FINISHEDLEVEL
  7064.  
  7065.  cmp.w #16,MAXLEVEL
  7066.  bne .nonextlev
  7067.  
  7068.  jmp ENDGAMESCROLL
  7069. .nonextlev:
  7070.  
  7071.  move.l #welldone,mt_data
  7072.  st UseAllChannels
  7073.  clr.b reachedend
  7074.  
  7075.  jsr mt_init
  7076. playwelldone:
  7077.  move.l #$dff000,a6
  7078. waitfortop3:
  7079.  btst.b #0,intreqrl(a6)
  7080.  beq waitfortop3
  7081.  move.w #$1,intreq(a6)
  7082.  
  7083.  jsr mt_music
  7084.  
  7085.  tst.b reachedend
  7086.  beq.s playwelldone
  7087.  
  7088. wevelost:
  7089.  
  7090.  PROTICHECK a0
  7091.  
  7092.  jmp closeeverything 
  7093.  
  7094. endnomusic
  7095.  clr.b doanything
  7096.  
  7097.  
  7098. ; cmp.b #'b',Prefsfile+3
  7099. ; bne.s .noback
  7100. ; jsr mt_end
  7101. ;.noback
  7102. *******************************
  7103. ; cmp.b #'n',mors
  7104. ; bne.s .nonextlev
  7105. ; cmp.w #15,MAXLEVEL
  7106. ; bge.s .nonextlev
  7107. ; add.w #1,MAXLEVEL
  7108. ; st FINISHEDLEVEL
  7109. ;.nonextlev:
  7110. ******************************
  7111.  
  7112.  jmp closeeverything
  7113.  
  7114. do32:
  7115.  move.w #31,d7
  7116.  move.w #$180,d1
  7117. across:
  7118.  move.w d1,(a1)+
  7119.  move.w d1,(a3)+
  7120.  move.w #0,(a1)+ 
  7121.  move.w #0,(a3)+
  7122.  add.w #2,d1
  7123.  dbra d7,across
  7124.  rts
  7125.  
  7126. ;string:
  7127. ;    dc.b    'credits',0
  7128.  
  7129. ENDGAMESCROLL:
  7130.  
  7131.  move.w #$fff,MIXCOLL
  7132.  
  7133.  move.w #$1cc1,BOTOFTXT
  7134.  
  7135.  jsr CLRTWEENSCRN
  7136.  
  7137.  move.l #TEXTCOP,$dff080
  7138.  
  7139.  move.l #ENDGAMETEXTy,a0
  7140.  
  7141.  
  7142. SCROLLUP16LINES:
  7143.  
  7144.  move.w #15,d0
  7145.  
  7146. do16
  7147.  move.l #$dff000,a6
  7148.  
  7149.  move.w #0,d6
  7150.  move.w #7,d7
  7151.  
  7152.  move.l #SCROLLSHADES,a5
  7153.  
  7154. fadeupp:
  7155.  
  7156.  move.w (a5,d6.w*2),TOPCOLL
  7157.  move.w (a5,d7.w*2),TXTCOLL
  7158.  
  7159.  
  7160. .wtup
  7161.  btst #5,intreqrl(a6)
  7162.  beq.s .wtup
  7163.  move.w #$20,intreq(a6)
  7164.  
  7165.  add.w #1,d6
  7166.  sub.w #1,d7
  7167.  bne fadeupp
  7168.  
  7169. .wtup2
  7170.  btst #5,intreqrl(a6)
  7171.  beq.s .wtup2
  7172.  move.w #$20,intreq(a6)
  7173.  
  7174.  move.w #0,TOPCOLL
  7175.  move.w #$fff,TXTCOLL
  7176.  
  7177.  WB
  7178.  
  7179.  move.l TEXTSCRN,d1
  7180.  move.l d1,bltdpt(a6)
  7181.  add.l #80,d1
  7182.  move.l d1,bltapt(a6)
  7183.  move.w #$09f0,bltcon0(a6)
  7184.  move.w #$0,bltcon1(a6)
  7185.  move.w #0,bltdmod(a6)
  7186.  move.w #0,bltamod(a6)
  7187.  move.l #-1,bltafwm(a6)
  7188.  
  7189.  move.w #255*64+40,bltsize(a6)
  7190.  
  7191.  WB
  7192.  
  7193.  dbra d0,do16
  7194.  
  7195.  move.l TEXTSCRN,a1
  7196.  move.w #15,d0
  7197.  jsr DRAWLINEOFTEXT
  7198.  
  7199.  add.l #82,a0
  7200.  cmp.l #ENDENDGAMETEXT,a0
  7201.  blt SCROLLUP16LINES
  7202.  
  7203.  move.l #ENDGAMETEXTy,a0
  7204.  bra SCROLLUP16LINES
  7205.  
  7206. SCROLLSHADES:
  7207.  dc.w 0
  7208.  dc.w $333
  7209.  dc.w $666
  7210.  dc.w $888
  7211.  dc.w $aaa
  7212.  dc.w $ccc
  7213.  dc.w $ddd
  7214.  dc.w $eee
  7215.  
  7216. ENDGAMETEXTy:
  7217. ;          12345678901234567890123456789012345678901234567890123456789012345678901234567890
  7218.  dc.b 0,0,"                                                                                "
  7219.  dc.b 0,1,"As the beast and its four servants die, a breathless silence falls, broken      "
  7220.  dc.b 0,1,"only by the hammering of my own heart in my chest.                              "
  7221.  dc.b 0,1,"I run to the now open exit, and out into the maze of corridors through which I  "
  7222.  dc.b 0,1,"came. I encounter many, many aliens, lying twitching on the ground, or utterly  "
  7223.  dc.b 0,1,"still with glazed eyes and green froth drying on their lips. Many seem to have  "
  7224.  dc.b 0,1,"turned their weapons on themselves, unable to bear either the pain or the       "
  7225.  dc.b 0,1,"sudden silence in their minds.                                                  "
  7226.  dc.b 0,0,"                                                                                "
  7227.  dc.b 0,1,"It takes me several hours to locate a working teleport to take me back aboard   "
  7228.  dc.b 0,1,"the orbiting alien ship. The scene there is the same; hordes of aliens, either  "
  7229.  dc.b 0,1,"dead or catatonic, I cannot tell.                                               "
  7230.  dc.b 0,1,"I walk slowly, exhausted, back to the INDOMITABLE, averting my eyes from the    "
  7231.  dc.b 0,1,"pitiful scenes around me. I know that my work is not finished yet.              "
  7232.  dc.b 0,1,"Once aboard, I make my way to the bridge. I manage to restart the main power    "
  7233.  dc.b 0,1,"generators and get basic navigation back on-line. Working from the memories     "
  7234.  dc.b 0,1,"implanted by the dying marine, I painstakingly program the computer to deal     "
  7235.  dc.b 0,1,"the killing blow to the enemy. At last the task is finished. The ship hums into "
  7236.  dc.b 0,1,"life, accellerating slowly out of orbit, towing the massive alien craft and     "
  7237.  dc.b 0,1,"its mindless cargo behind it.                                                   "
  7238.  dc.b 0,1,"As the image of the alien sun grows in the viewscreen, I think about what I     "
  7239.  dc.b 0,1,"have seen. Fragments of technology, stolen from civilisations - how long ago?   "
  7240.  dc.b 0,1,"How long since they were exterminated by these parasites? And how many more     "
  7241.  dc.b 0,1,"if they are allowed to continue?                                                "
  7242.  dc.b 0,1,"The sun looms hideously large before me, seeming at the last moment to slip to  "
  7243.  dc.b 0,1,"one side as the cruiser slingshots itself through the immense gravity well,     "
  7244.  dc.b 0,1,"its speed doubling and doubling again. The ship shudders and groans as the      "
  7245.  dc.b 0,1,"ponderous mass of the alien ship tries to tear itself free. I feel a distant    "
  7246.  dc.b 0,1,"twinge of curiosity as to whether it will succeed.                              "
  7247.  dc.b 0,1,"The navigation computer chatters quietly to itself as it makes tiny             "
  7248.  dc.b 0,1,"course corrections, bringing the payload to bear on its target. I only sit,     "
  7249.  dc.b 0,1,"watching blankly as we hurtle back towards the planet. The navicom beeps        "
  7250.  dc.b 0,1,"quietly to signal the blowing of the explosive bolts holding the docking ring.  "
  7251.  dc.b 0,1,"So great is our speed that the alien ship does not receed, but simply vanishes  "
  7252.  dc.b 0,1,"from sight, tracked only on the readouts of the computers in front of me.       "
  7253.  dc.b 0,1,"One readout in particular occupies my attention. Red numbers spin towards zero  "
  7254.  dc.b 0,1,"as my invisible agent of destruction spins towards oblivion. Three digits, now  "
  7255.  dc.b 0,1,"two, and now only one. I shift my attention to the image of the alien world,    "
  7256.  dc.b 0,1,"receeding behind my ship.                                                       "
  7257.  dc.b 0,0,"                                                                                "
  7258.  dc.b 0,1,"Three...                                                                        "
  7259.  dc.b 0,0,"                                                                                "
  7260.  dc.b 0,1,"Two...                                                                          "
  7261.  dc.b 0,0,"                                                                                "
  7262.  dc.b 0,1,"One...                                                                          "
  7263.  dc.b 0,0,"                                                                                "
  7264.  dc.b 0,1,"Zero.                                                                           "
  7265.  dc.b 0,0,"                                                                                "
  7266.  dc.b 0,0,"                                                                                "
  7267.  dc.b 0,0,"                                                                                "
  7268.  dc.b 0,0,"                                                                                "
  7269.  dc.b 0,1,"Travelling at nearly a quarter of the speed of light, the alien ship smashed    "
  7270.  dc.b 0,1,"into the planet, flashing past the useless orbital defences which should have   "
  7271.  dc.b 0,1,"neutralized it millions of miles earlier. It passed through the twenty miles    "
  7272.  dc.b 0,1,"of atmosphere in a little more than one ten-thousandth of a second. The air     "
  7273.  dc.b 0,1,"directly beneath had no time to be pushed out of the way, and in another        "
  7274.  dc.b 0,1,"tenth of a second it was a molecule-thick layer a thousand miles below the      "
  7275.  dc.b 0,1,"planet's surface.                                                               "
  7276.  dc.b 0,1,"Such was the heat and pressure caused by the impact, that part of the molten    "
  7277.  dc.b 0,1,"core of the planet underwent nuclear fusion, vapourising thousands of billions  "
  7278.  dc.b 0,1,"of tonnes of surrounding material. This expanding superhot plasma cloud forced  "
  7279.  dc.b 0,1,"its way up through the mantle and crust, fracturing the surface of the planet,  "
  7280.  dc.b 0,1,"blowing continent-sized chunks into space and heating the tortured atmosphere   "
  7281.  dc.b 0,1,"to ignition point. Within two minutes of impact, the doomed planet was a        "
  7282.  dc.b 0,1,"misshapen, incandescent ball, with burning fragments spinning deceptively       "
  7283.  dc.b 0,1,"slowly in their brief orbits before re-impacting with fantastic, majestic       "
  7284.  dc.b 0,1,"force.                                                                          "
  7285.  dc.b 0,0,"                                                                                "
  7286.  dc.b 0,0,"                                                                                "
  7287.  dc.b 0,0,"                                                                                "
  7288.  dc.b 0,0,"                                                                                "
  7289.  dc.b 0,1,"In a matter of weeks, the small amount of matter which had undergone fusion     "
  7290.  dc.b 0,1,"burned itself out, but the planet still glowed sullenly from a million cracks   "
  7291.  dc.b 0,1,"and holes in the crust, as it would continue to do for millions of years to     "
  7292.  dc.b 0,1,"come. The world was barren and dead, and the creatures who once roamed its      "
  7293.  dc.b 0,1,"surface no more than a memory in the mind of one man, sleeping dreamlessly      "
  7294.  dc.b 0,1,"as the invisible speck of his ship sped silently on, towards home.              "
  7295.  dc.b 0,0,"                                                                                "
  7296.  dc.b 0,0,"                                                                                "
  7297.  dc.b 0,0,"                                                                                "
  7298.  dc.b 0,0,"                                                                                "
  7299.  dc.b 0,0,"                                                                                "
  7300.  dc.b 0,0,"                                                                                "
  7301.  dc.b 0,0,"                                                                                "
  7302.  dc.b 0,0,"                                                                                "
  7303.  dc.b 0,0,"                                                                                "
  7304.  dc.b 0,0,"                                                                                "
  7305.  dc.b 0,0,"                                                                                "
  7306.  dc.b 0,0,"                                                                                "
  7307.  dc.b 0,0,"                                                                                "
  7308.  dc.b 0,0,"                                                                                "
  7309.  dc.b 0,0,"                                                                                "
  7310.  dc.b 0,0,"                                                                                "
  7311.  dc.b 0,1,"ALIEN BREED 3D II                                                               "
  7312.  dc.b 0,1,"THE KILLING GROUNDS                                                             "
  7313.  dc.b 0,0,"                                                                                "
  7314.  dc.b 0,0,"                                                                                "
  7315.  dc.b 0,1,"A Team 17 Game                                                                  "
  7316.  dc.b 0,0,"                                                                                "
  7317.  dc.b 0,1,"Produced in association with OCEAN Software                                     "
  7318.  dc.b 0,0,"                                                                                "
  7319.  dc.b 0,0,"                                                                                "
  7320.  dc.b 0,1,"Game Design, Game Code, Editor Code and In-Game Text                            "
  7321.  dc.b 0,0,"                                                                                "
  7322.  dc.b 0,1,"Andrew Clitheroe                                                                "
  7323.  dc.b 0,0,"                                                                                "
  7324.  dc.b 0,0,"                                                                                "
  7325.  dc.b 0,1,"Graphics                                                                        "
  7326.  dc.b 0,0,"                                                                                "
  7327.  dc.b 0,1,"Michael Green                                                                   "
  7328.  dc.b 0,0,"                                                                                "
  7329.  dc.b 0,0,"                                                                                "
  7330.  dc.b 0,1,"3D Object Designs, 3D Editors, Serial and OS code                               "
  7331.  dc.b 0,0,"                                                                                "
  7332.  dc.b 0,1,"Charles Blessing                                                                "
  7333.  dc.b 0,0,"                                                                                "
  7334.  dc.b 0,0,"                                                                                "
  7335.  dc.b 0,1,"Music                                                                           "
  7336.  dc.b 0,0,"                                                                                "
  7337.  dc.b 0,1,"Ben Chanter                                                                     "
  7338.  dc.b 0,0,"                                                                                "
  7339.  dc.b 0,0,"                                                                                "
  7340.  dc.b 0,1,"Project Manager                                                                 "
  7341.  dc.b 0,0,"                                                                                "
  7342.  dc.b 0,1,"Phil Quirke-Webster                                                             "
  7343.  dc.b 0,0,"                                                                                "
  7344.  dc.b 0,0,"                                                                                "
  7345.  dc.b 0,1,"Playtesting                                                                     "
  7346.  dc.b 0,0,"                                                                                "
  7347.  dc.b 0,1,"Phil and the Wolves                                                             "
  7348.  dc.b 0,0,"                                                                                "
  7349.  dc.b 0,0,"                                                                                "
  7350.  dc.b 0,1,"Additional Graphics                                                             "
  7351.  dc.b 0,0,"                                                                                "
  7352.  dc.b 0,1,"Pete Lyons                                                                      "
  7353.  dc.b 0,0,"                                                                                "
  7354.  dc.b 0,0,"                                                                                "
  7355.  
  7356.  
  7357. ENDENDGAMETEXT:
  7358.  
  7359.  
  7360. ;
  7361. ;    move.l    4.w,a6
  7362. ;    move.l    #string,d1
  7363. ;    moveq    #0,d2
  7364. ;    moveq    #0,d3
  7365. ;    jsr    _LVOExecute(a6)
  7366.  
  7367. ; include "endscroll.s"
  7368.  
  7369. ***********************************
  7370.  include "ab3:source_4000/CD32JOY"
  7371.  
  7372.  
  7373.  
  7374. *************************************
  7375. * Set left and right clip values
  7376. *************************************
  7377.  
  7378.  
  7379.  
  7380. NEWsetlclip:
  7381.  move.l #OnScreen,a1
  7382.  move.l #Rotated,a2
  7383.  move.l CONNECT_TABLE,a3
  7384.  move.l Points,a4
  7385.  
  7386.  move.w (a0),d0
  7387.  bge.s .notignoreleft
  7388.  
  7389. ; move.l #0,(a6)
  7390.  
  7391.  bra .leftnotoktoclip
  7392. .notignoreleft:
  7393.  
  7394.  move.w 6(a2,d0*8),d3    ; left z val
  7395.  bgt.s .leftclipinfront
  7396.  addq #2,a0
  7397.  rts
  7398.  
  7399.  tst.w 6(a2,d0*8)
  7400.  bgt.s .leftnotoktoclip
  7401. .ignoreboth:
  7402. ; move.l #0,(a6)
  7403. ; move.l #96*65536,4(a6)
  7404.  move.w #0,leftclip
  7405.  move.w RIGHTX,rightclip
  7406.  addq #8,a6
  7407.  addq #2,a0
  7408.  rts
  7409.  
  7410. .leftclipinfront:
  7411.  move.w (a1,d0*2),d1    ; left x on screen
  7412.  move.w (a0),d2
  7413.  move.w 2(a3,d2.w*4),d2
  7414.  move.w (a1,d2.w*2),d2
  7415.  cmp.w d1,d2
  7416.  bgt.s .leftnotoktoclip
  7417.  
  7418.  
  7419. *************************************
  7420.  
  7421. ; move.w 2(a3,d0.w*4),d6
  7422. ; 
  7423. ; move.w (a4,d0.w*4),d2
  7424. ; move.w 2(a4,d0.w*4),d3
  7425. ; move.w (a4,d6.w*4),d4
  7426. ; move.w 2(a4,d6.w*4),d5
  7427. ;
  7428. ; sub.w d2,d4    ;dx
  7429. ; sub.w d3,d5    ;dz
  7430. ; move.w xoff,d0
  7431. ; move.w zoff,d6
  7432. ; 
  7433. ; sub.w d2,d0
  7434. ; sub.w d3,d6
  7435. ; 
  7436. ; muls d0,d4
  7437. ; muls d6,d5
  7438. ; add.l d4,d5
  7439. ; bge.s .leftnotoktoclip
  7440.  
  7441. *************************************
  7442.  
  7443.  
  7444.  
  7445. ; move.w d1,(a6)
  7446. ; move.w d3,2(a6)
  7447.  cmp.w leftclip,d1
  7448.  ble.s .leftnotoktoclip
  7449.  move.w d1,leftclip
  7450. .leftnotoktoclip:
  7451.  
  7452.  addq #2,a0
  7453.  
  7454.  rts
  7455.  
  7456. NEWsetrclip
  7457.  move.l #OnScreen,a1
  7458.  move.l #Rotated,a2
  7459.  move.l CONNECT_TABLE,a3
  7460.  move.w (a0),d0
  7461.  bge.s .notignoreright
  7462. ; move.w #96,4(a6)
  7463. ; move.w #0,6(a6)
  7464.  move.w #0,d4
  7465.  bra .rightnotoktoclip
  7466. .notignoreright:
  7467.  move.w 6(a2,d0*8),d4    ; right z val
  7468.  bgt.s .rightclipinfront
  7469. ; move.w #96,4(a6)
  7470. ; move.w #0,6(a6)
  7471.  bra.s .rightnotoktoclip
  7472.  
  7473. .rightclipinfront:
  7474.  move.w (a1,d0*2),d1    ; right x on screen
  7475.  move.w (a0),d2
  7476.  move.w (a3,d2.w*4),d2
  7477.  move.w (a1,d2.w*2),d2
  7478.  cmp.w d1,d2
  7479.  blt.s .rightnotoktoclip
  7480. ; move.w d1,4(a6)
  7481. ; move.w d4,6(a6)
  7482.  
  7483.  
  7484. *************************************
  7485.  
  7486. ; move.w (a3,d0.w*4),d6
  7487. ; 
  7488. ; move.w (a4,d0.w*4),d2
  7489. ; move.w 2(a4,d0.w*4),d3
  7490. ; move.w (a4,d6.w*4),d4
  7491. ; move.w 2(a4,d6.w*4),d5
  7492. ;
  7493. ; sub.w d2,d4    ;dx
  7494. ; sub.w d3,d5    ;dz
  7495. ; move.w xoff,d0
  7496. ; move.w zoff,d6
  7497. ; 
  7498. ; sub.w d2,d0
  7499. ; sub.w d3,d6
  7500. ; 
  7501. ; muls d0,d4
  7502. ; muls d6,d5
  7503. ; add.l d4,d5
  7504. ; ble.s .rightnotoktoclip
  7505.  
  7506. *************************************
  7507.  
  7508.  
  7509.  
  7510.  cmp.w rightclip,d1
  7511.  bge.s .rightnotoktoclip
  7512.  addq #1,d1
  7513.  move.w d1,rightclip
  7514. .rightnotoktoclip:
  7515.  addq #8,a6
  7516.  addq #2,a0
  7517.  rts
  7518.  
  7519. FIRSTsetlrclip:
  7520.  move.l #OnScreen,a1
  7521.  move.l #Rotated,a2
  7522.  
  7523.  move.w (a0)+,d0
  7524.  bge.s .notignoreleft
  7525.  bra .leftnotoktoclip
  7526. .notignoreleft:
  7527.  
  7528.  move.w 6(a2,d0*8),d3    ; left z val
  7529.  bgt.s .leftclipinfront
  7530.  
  7531.  move.w (a0),d0
  7532.  blt.s .ignoreboth
  7533.  tst.w 6(a2,d0*8)
  7534.  bgt.s .leftnotoktoclip
  7535. .ignoreboth
  7536.  move.w RIGHTX,rightclip
  7537.  move.w #0,leftclip
  7538.  addq #2,a0
  7539.  rts
  7540.  
  7541. .leftclipinfront:
  7542.  move.w (a1,d0*2),d1    ; left x on screen
  7543.  cmp.w leftclip,d1
  7544.  ble.s .leftnotoktoclip
  7545.  move.w d1,leftclip
  7546. .leftnotoktoclip:
  7547.  
  7548.  move.w (a0)+,d0
  7549.  bge.s .notignoreright
  7550.  move.w #0,d4
  7551.  bra .rightnotoktoclip
  7552. .notignoreright:
  7553.  move.w 6(a2,d0*8),d4    ; right z val
  7554.  ble.s .rightnotoktoclip
  7555.  
  7556. .rightclipinfront:
  7557.  move.w (a1,d0*2),d1    ; right x on screen
  7558.  addq #1,d1
  7559.  cmp.w rightclip,d1
  7560.  bge.s .rightnotoktoclip
  7561.  move.w d1,rightclip
  7562. .rightnotoktoclip:
  7563.  
  7564. ; move.w leftclip,d0
  7565. ; move.w rightclip,d1
  7566. ; cmp.w d0,d1
  7567. ; bge.s .noswap
  7568. ; move.w #192,rightclip
  7569. ; move.w #0,leftclip
  7570. ;.noswap:
  7571.  
  7572.  rts
  7573.  
  7574.  
  7575. leftclip2: dc.w 0
  7576. rightclip2: dc.w 0
  7577. ZoneBright: dc.w 0
  7578.  
  7579. npolys: dc.w 0
  7580.  
  7581. PLR1_fire: dc.b 0
  7582. PLR2_fire: dc.b 0
  7583.  
  7584. *****************************************************
  7585.  
  7586.  
  7587. pastdata:
  7588. ***********************************
  7589. * This routine animates brightnesses.
  7590.  
  7591.  
  7592. liftpt: dc.l liftanimtab
  7593.  
  7594. brightpt:
  7595.  dc.l brightanimtab
  7596.  
  7597.  
  7598. liftanim:
  7599.  rts
  7600.  
  7601. ******************************
  7602.  include "ab3:source_4000/ObjectMove"
  7603.  include "ab3:source_4000/newAnims"
  7604.  include "ab3:source_4000/airoutine.s"
  7605. ******************************
  7606. startpass:
  7607. ; include "ab3:source_4000/password_reloc.s"
  7608. endpass:
  7609.  
  7610. rotanimpt: dc.w 0
  7611. xradd: dc.w 5
  7612. yradd: dc.w 8
  7613. xrpos: dc.w 320
  7614. yrpos: dc.w 320
  7615.  
  7616. rotanim:
  7617.  rts
  7618.  
  7619. option:
  7620.  dc.l 0,0
  7621.  
  7622. ********** WALL STUFF *******************************
  7623.  
  7624.  include "AB3:source_4000/hireswall.s"
  7625.  include "AB3:source_4000/hiresgourwall.s"
  7626.  
  7627. *****************************************************
  7628.  
  7629. ******************************************
  7630. * floor polygon
  7631.  
  7632. numsidestd: dc.w 0
  7633. bottomline: dc.w 0
  7634.  
  7635. checkforwater:
  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.  move.w (a0)+,d6    ; sides-1
  7648.  add.w d6,d6
  7649.  add.w d6,a0
  7650.  add.w #4+6,a0
  7651.  rts
  7652.  
  7653.  rts
  7654.  
  7655. ;NewCornerBuff:
  7656. ; ds.l 100
  7657. CLRNOFLOOR: dc.w 0
  7658.  
  7659. itsafloordraw:
  7660.  
  7661. * If D0 =1 then its a floor otherwise (=2) it's
  7662. * a roof.
  7663.  
  7664.  move.w #0,above
  7665.  move.w (a0)+,d6    ; ypos of poly
  7666.  
  7667.  tst.b usewater
  7668.  beq.s .oknon
  7669.  tst.b DOANYWATER
  7670.  beq dontdrawreturn
  7671. .oknon
  7672.  
  7673.  move.w d6,d7
  7674.  ext.l d7
  7675.  asl.l #6,d7
  7676.  cmp.l TOPOFROOM,d7
  7677.  blt checkforwater
  7678.  cmp.l BOTOFROOM,d7
  7679.  bgt.s dontdrawreturn
  7680.  
  7681.  move.w leftclip,d7
  7682.  cmp.w rightclip,d7
  7683.  bge.s dontdrawreturn
  7684.  
  7685.  sub.w flooryoff,d6
  7686.  bgt.s below
  7687.  blt.s aboveplayer
  7688.  
  7689.  tst.b usewater
  7690.  beq.s .notwater
  7691.  
  7692.  move.l Roompt,a1
  7693.  move.w (a1),d7
  7694.  cmp.w currzone,d7
  7695.  
  7696.  bne.s .notwater
  7697.  
  7698.  st fillscrnwater
  7699.  
  7700. .notwater:
  7701.  
  7702.  
  7703. dontdrawreturn:
  7704.  move.w (a0)+,d6    ; sides-1
  7705.  add.w d6,d6
  7706.  add.w d6,a0
  7707.  add.w #4+6,a0
  7708.  rts
  7709. aboveplayer:
  7710.  
  7711.  tst.b usewater
  7712.  beq.s .notwater
  7713.  
  7714.  move.l Roompt,a1
  7715.  move.w (a1),d7
  7716.  cmp.w currzone,d7
  7717.  bne.s .notwater
  7718.  
  7719.  move.b #$f,fillscrnwater
  7720.  
  7721. .notwater:
  7722.  
  7723.  btst #1,d0
  7724.  beq.s dontdrawreturn
  7725.  move.w MIDDLEY,d7
  7726.  sub.w topclip,d7 
  7727.  ble.s dontdrawreturn
  7728.  move.w #1,d0
  7729.  move.w d0,above
  7730.  neg.w d6
  7731.  bra.s notbelow
  7732. below:
  7733.  move.w botclip,d7
  7734.  sub.w MIDDLEY,d7
  7735.  ble.s dontdrawreturn
  7736. notbelow:
  7737.  btst #0,d0
  7738.  beq.s dontdrawreturn
  7739.  move.w d6,distaddr
  7740.  muls #64,d6
  7741.  move.l d6,ypos
  7742.  ext.l d7
  7743.  divs.l d7,d6        ; zpos of bottom
  7744.             ; visible line
  7745.  
  7746.  beq dontdrawreturn
  7747.  
  7748.  cmp.l #32767,d6
  7749.  bgt dontdrawreturn
  7750.             
  7751.  move.w d6,minz
  7752.  move.w d7,bottomline
  7753.  
  7754. ; Go round each point finding out
  7755. ; if it should be visible or not.
  7756.  
  7757.  move.l a0,-(a7)
  7758.  
  7759.  move.w (a0)+,d7    ; number of sides
  7760.  move.l #Rotated,a1
  7761.  move.l #OnScreen,a2
  7762. ; move.l #NewCornerBuff,a3
  7763.  moveq #0,d4
  7764.  moveq #0,d5
  7765.  moveq #0,d6
  7766.  clr.b anyclipping
  7767.  
  7768. cornerprocessloop:
  7769.  
  7770.  move.w (a0)+,d0
  7771.  and.w #$fff,d0
  7772.  move.w 6(a1,d0.w*8),d1
  7773.  ble  .canttell
  7774.  
  7775.  move.w (a2,d0.w*2),d3
  7776.  cmp.w leftclip,d3
  7777.  bgt.s .nol
  7778.  st d4
  7779.  st anyclipping
  7780.  bra.s .nos
  7781. .nol:
  7782.  cmp.w rightclip,d3
  7783.  blt.s .nor
  7784.  st d6
  7785.  st anyclipping
  7786.  bra.s .nos
  7787. .nor:
  7788.  st d5
  7789. .nos:
  7790.  bra .cantell
  7791.  
  7792. .canttell:
  7793.  st d5
  7794.  st anyclipping
  7795.  
  7796. .cantell:
  7797.  
  7798.  
  7799.  dbra d7,cornerprocessloop
  7800.  
  7801.  
  7802.  move.l (a7)+,a0
  7803.  tst.b d5
  7804.  bne.s somefloortodraw
  7805.  eor.b d4,d6
  7806.  bne dontdrawreturn
  7807.  
  7808. somefloortodraw:
  7809.  
  7810.  tst.b gourfloor
  7811.  bne goursides
  7812.  
  7813.  move.w #300,top
  7814.  move.w #-1,bottom
  7815.  move.w #0,drawit
  7816.  move.l #Rotated,a1
  7817.  move.l #OnScreen,a2
  7818.  move.w (a0)+,d7    ; no of sides
  7819. sideloop:
  7820.  move.w minz,d6
  7821.  move.w (a0)+,d1
  7822.  move.w (a0),d3
  7823.  and.w #$fff,d1
  7824.  and.w #$fff,d3
  7825.  
  7826.  move.w 6(a1,d1*8),d4    ;first z
  7827.  cmp.w d6,d4
  7828.  bgt firstinfront
  7829.  move.w 6(a1,d3*8),d5    ; sec z
  7830.  cmp.w d6,d5
  7831.  ble bothbehind
  7832. ** line must be on left and partially behind.
  7833.  sub.w d5,d4
  7834.  move.l (a1,d1*8),d0
  7835.  sub.l (a1,d3*8),d0
  7836.  asr.l #7,d0
  7837.  sub.w d5,d6
  7838.  muls d6,d0    ; new x coord
  7839.  divs d4,d0
  7840.  ext.l d0
  7841.  asl.l #7,d0
  7842.  
  7843.  add.l (a1,d3*8),d0
  7844.  move.w minz,d4
  7845.  move.w (a2,d3*2),d2
  7846.  divs d4,d0
  7847.  add.w MIDDLEX,d0
  7848.  move.l ypos,d3
  7849.  divs d5,d3
  7850.  move.w bottomline,d1 
  7851.  bra lineclipped
  7852.  
  7853. firstinfront:
  7854.  move.w 6(a1,d3*8),d5    ; sec z
  7855.  cmp.w d6,d5
  7856.  bgt bothinfront
  7857. ** line must be on right and partially behind.
  7858.  sub.w d4,d5    ; dz
  7859.  move.l (a1,d3*8),d2
  7860.  sub.l (a1,d1*8),d2    ; dx
  7861.  sub.w d4,d6
  7862.  asr.l #7,d2
  7863.  muls d6,d2    ; new x coord
  7864.  divs d5,d2
  7865.  ext.l d2
  7866.  asl.l #7,d2
  7867.  add.l (a1,d1*8),d2
  7868.  move.w minz,d5
  7869.  move.w (a2,d1*2),d0
  7870.  divs d5,d2
  7871.  add.w MIDDLEX,d2
  7872.  move.l ypos,d1
  7873.  divs d4,d1
  7874.  move.w bottomline,d3 
  7875.  bra lineclipped
  7876.  
  7877. bothinfront:
  7878.  
  7879. * Also, usefully enough, both are on-screen
  7880. * so no bottom clipping is needed.
  7881.  
  7882.  move.w (a2,d1*2),d0    ; first x
  7883.  move.w (a2,d3*2),d2    ; second x
  7884.  move.l ypos,d1
  7885.  move.l d1,d3
  7886.  divs d4,d1        ; first y
  7887.  divs d5,d3        ; second y
  7888. lineclipped:
  7889.  move.l #rightsidetab,a3
  7890.  cmp.w d1,d3
  7891.  beq lineflat
  7892.  st drawit
  7893.  bgt lineonright
  7894.  move.l #leftsidetab,a3
  7895.  exg d1,d3
  7896.  exg d0,d2
  7897.  
  7898.  lea (a3,d1*2),a3
  7899.  
  7900.  cmp.w top(pc),d1
  7901.  bge.s .nonewtop
  7902.  move.w d1,top
  7903. .nonewtop:
  7904.  cmp.w bottom(pc),d3
  7905.  ble.s .nonewbot
  7906.  move.w d3,bottom
  7907. .nonewbot:
  7908.  
  7909.  sub.w d1,d3    ; dy
  7910.  sub.w d0,d2    ; dx
  7911.  
  7912.  blt .linegoingleft
  7913.  
  7914.  ext.l d2
  7915.  divs d3,d2
  7916.  move.w d2,d6
  7917.  swap d2
  7918.  
  7919. ; moveq #0,d6
  7920. ; sub.w d3,d2
  7921. ; blt.s .noco
  7922. ;.makeco
  7923. ; addq #1,d6
  7924. ; sub.w d3,d2
  7925. ; bge.s .makeco
  7926. ;.noco
  7927. ; add.w d3,d2
  7928.  
  7929.  move.w d3,d4
  7930.  move.w d3,d5
  7931.  subq #1,d5
  7932.  move.w d6,d1
  7933.  addq #1,d1
  7934.  
  7935. .pixlopright:
  7936.  move.w d0,(a3)+
  7937.  sub.w d2,d4
  7938.  bge.s .nobigstep
  7939.  add.w d1,d0
  7940.  add.w d3,d4
  7941.  dbra d5,.pixlopright
  7942.  bra lineflat
  7943. .nobigstep
  7944.  add.w d6,d0
  7945.  dbra d5,.pixlopright
  7946.  bra lineflat
  7947.  
  7948. .linegoingleft:
  7949.  
  7950.  neg.w d2
  7951.  
  7952.  ext.l d2
  7953.  divs d3,d2
  7954.  move.w d2,d6
  7955.  swap d2
  7956.  
  7957.  
  7958. ; moveq #0,d6
  7959. ; sub.w d3,d2
  7960. ; blt.s .nocol
  7961. ;.makecol
  7962. ; addq #1,d6
  7963. ; sub.w d3,d2
  7964. ; bge.s .makecol
  7965. ;.nocol
  7966. ; add.w d3,d2
  7967.  
  7968.  
  7969.  
  7970.  move.w d3,d4
  7971.  move.w d3,d5
  7972.  subq #1,d5
  7973.  
  7974.  move.w d6,d1
  7975.  addq #1,d1
  7976.  
  7977. .pixlopleft:
  7978.  sub.w d2,d4
  7979.  bge.s .nobigstepl
  7980.  sub.w d1,d0
  7981.  add.w d3,d4
  7982.  move.w d0,(a3)+
  7983.  dbra d5,.pixlopleft
  7984.  bra lineflat
  7985.  
  7986. .nobigstepl
  7987.  sub.w d6,d0
  7988.  move.w d0,(a3)+
  7989.  dbra d5,.pixlopleft
  7990.  bra lineflat
  7991.  
  7992. lineonright:
  7993.  
  7994.  lea (a3,d1*2),a3
  7995.  
  7996.  cmp.w top(pc),d1
  7997.  bge.s .nonewtop
  7998.  move.w d1,top
  7999. .nonewtop:
  8000.  cmp.w bottom(pc),d3
  8001.  ble.s .nonewbot
  8002.  move.w d3,bottom
  8003. .nonewbot:
  8004.  
  8005.  sub.w d1,d3    ; dy
  8006.  sub.w d0,d2    ; dx
  8007.  blt .linegoingleft
  8008. ; addq #1,d0
  8009.  ext.l d2
  8010.  divs d3,d2
  8011.  move.w d2,d6
  8012.  swap d2
  8013.  
  8014. ; moveq #0,d6
  8015. ; sub.w d3,d2
  8016. ; blt.s .noco
  8017. ;.makeco
  8018. ; addq #1,d6
  8019. ; sub.w d3,d2
  8020. ; bge.s .makeco
  8021. ;.noco
  8022. ; add.w d3,d2
  8023.  
  8024.  move.w d3,d4
  8025.  move.w d3,d5
  8026.  subq #1,d5
  8027.  move.w d6,d1
  8028.  addq #1,d1
  8029.  
  8030. .pixlopright:
  8031.  sub.w d2,d4
  8032.  bge.s .nobigstep
  8033.  add.w d1,d0
  8034.  add.w d3,d4
  8035.  move.w d0,(a3)+
  8036.  dbra d5,.pixlopright
  8037.  bra lineflat
  8038.  
  8039. .nobigstep
  8040.  add.w d6,d0
  8041.  move.w d0,(a3)+
  8042.  dbra d5,.pixlopright
  8043.  bra lineflat
  8044.  
  8045. .linegoingleft:
  8046. ; addq #1,d0
  8047.  neg.w d2
  8048.  
  8049.  ext.l d2
  8050.  divs d3,d2
  8051.  move.w d2,d6
  8052.  swap d2
  8053.  
  8054.  
  8055. ; moveq #0,d6
  8056. ; sub.w d3,d2
  8057. ; blt.s .nocol
  8058. ;.makecol
  8059. ; addq #1,d6
  8060. ; sub.w d3,d2
  8061. ; bge.s .makecol
  8062. ;.nocol
  8063. ; add.w d3,d2
  8064.  
  8065.  move.w d3,d4
  8066.  move.w d3,d5
  8067.  subq #1,d5
  8068.  move.w d6,d1
  8069.  addq #1,d1
  8070.  
  8071. .pixlopleft:
  8072.  move.w d0,(a3)+
  8073.  sub.w d2,d4
  8074.  bge.s .nobigstepl
  8075.  sub.w d1,d0
  8076.  add.w d3,d4
  8077.  dbra d5,.pixlopleft
  8078.  bra lineflat
  8079.  
  8080. .nobigstepl
  8081.  sub.w d6,d0
  8082.  dbra d5,.pixlopleft
  8083.  
  8084. lineflat:
  8085.  
  8086. bothbehind:
  8087.  dbra d7,sideloop
  8088.  bra pastsides
  8089.  
  8090. fbr: dc.w 0
  8091. sbr: dc.w 0
  8092. FloorPtBrights: dc.l 0
  8093.  
  8094. goursides:
  8095.  
  8096.  move.w #300,top
  8097.  move.w #-1,bottom
  8098.  move.w #0,drawit
  8099.  move.l #Rotated,a1
  8100.  move.l #OnScreen,a2
  8101.  move.w (a0)+,d7    ; no of sides
  8102. sideloopGOUR:
  8103.  move.w minz,d6
  8104.  move.w (a0)+,d1
  8105.  move.w (a0),d3
  8106.  
  8107.  move.w d1,d4
  8108.  move.w d3,d5
  8109.  and.w #$0fff,d1
  8110.  and.w #$0fff,d3
  8111.  
  8112.  rol.w #4,d4
  8113.  rol.w #4,d5
  8114.  and.w #$f,d4
  8115.  and.w #$f,d5
  8116.  
  8117.  move.l FloorPtBrights,a4
  8118.  move.w (a4,d4.w*8),d4
  8119.  bge.s .okpos1
  8120.  neg.w d4
  8121. .okpos1:
  8122.  sub.w #300,d4
  8123.  move.w d4,fbr
  8124.  move.w (a4,d5.w*8),d4
  8125.  bge.s .okpos2
  8126.  neg.w d4
  8127. .okpos2:
  8128.  sub.w #300,d4
  8129.  move.w d4,sbr
  8130.  
  8131.  move.w 6(a1,d1*8),d4    ;first z
  8132.  cmp.w d6,d4
  8133.  bgt firstinfrontGOUR
  8134.  move.w 6(a1,d3*8),d5    ; sec z
  8135.  cmp.w d6,d5
  8136.  ble bothbehindGOUR
  8137. ** line must be on left and partially behind.
  8138.  sub.w d5,d4
  8139.  
  8140.  move.w fbr,d0
  8141.  sub.w sbr,d0
  8142.  sub.w d5,d6
  8143.  muls d6,d0
  8144.  divs d4,d0
  8145.  add.w sbr,d0
  8146.  move.w d0,fbr
  8147.  
  8148.  move.l (a1,d1*8),d0
  8149.  sub.l (a1,d3*8),d0
  8150.  asr.l #7,d0
  8151.  muls d6,d0    ; new x coord
  8152.  divs d4,d0
  8153.  ext.l d0
  8154.  asl.l #7,d0
  8155.  
  8156.  add.l (a1,d3*8),d0
  8157.  move.w minz,d4
  8158.  move.w (a2,d3*2),d2
  8159.  divs d4,d0
  8160.  add.w MIDDLEX,d0
  8161.  move.l ypos,d3
  8162.  divs d5,d3
  8163.  
  8164.  move.w bottomline,d1 
  8165.  bra lineclippedGOUR
  8166.  
  8167. firstinfrontGOUR:
  8168.  move.w 6(a1,d3*8),d5    ; sec z
  8169.  cmp.w d6,d5
  8170.  bgt bothinfrontGOUR
  8171. ** line must be on right and partially behind.
  8172.  sub.w d4,d5    ; dz
  8173.  
  8174.  move.w sbr,d2
  8175.  sub.w fbr,d2
  8176.  sub.w d4,d6
  8177.  muls d6,d2
  8178.  divs d5,d2
  8179.  add.w fbr,d2
  8180.  move.w d2,sbr
  8181.  
  8182.  move.l (a1,d3*8),d2
  8183.  sub.l (a1,d1*8),d2    ; dx
  8184.  asr.l #7,d2
  8185.  muls d6,d2    ; new x coord
  8186.  divs d5,d2
  8187.  ext.l d2
  8188.  asl.l #7,d2
  8189.  add.l (a1,d1*8),d2
  8190.  move.w minz,d5
  8191.  move.w (a2,d1*2),d0
  8192.  divs d5,d2
  8193.  add.w MIDDLEX,d2
  8194.  move.l ypos,d1
  8195.  divs d4,d1
  8196.  move.w bottomline,d3 
  8197.  bra lineclippedGOUR
  8198.  
  8199. bothinfrontGOUR:
  8200.  
  8201. * Also, usefully enough, both are on-screen
  8202. * so no bottom clipping is needed.
  8203.  
  8204.  move.w (a2,d1*2),d0    ; first x
  8205.  move.w (a2,d3*2),d2    ; second x
  8206.  move.l ypos,d1
  8207.  move.l d1,d3
  8208.  divs d4,d1        ; first y
  8209.  divs d5,d3        ; second y
  8210. lineclippedGOUR:
  8211.  move.l #rightsidetab,a3
  8212.  cmp.w d1,d3
  8213.  bne linenotflatGOUR
  8214.  
  8215. ; move.w fbr,d4
  8216. ; move.w sbr,d5
  8217. ; cmp.w d0,d2
  8218. ; bgt.s .nsw
  8219. ; exg d4,d5
  8220. ;.nsw:
  8221.  
  8222. ; move.l #leftbrighttab,a3
  8223. ; move.w d4,(a3,d3.w)
  8224. ; move.l #rightbrighttab,a3
  8225. ; move.w d5,(a3,d3.w) 
  8226.  bra lineflatGOUR
  8227.  
  8228. linenotflatGOUR
  8229.  st drawit
  8230.  bgt lineonrightGOUR
  8231.  move.l #leftsidetab,a3
  8232.  exg d1,d3
  8233.  exg d0,d2
  8234.  
  8235.  lea (a3,d1*2),a3
  8236.  lea leftbrighttab-leftsidetab(a3),a4
  8237.  
  8238.  cmp.w top(pc),d1
  8239.  bge.s .nonewtop
  8240.  move.w d1,top
  8241. .nonewtop:
  8242.  cmp.w bottom(pc),d3
  8243.  ble.s .nonewbot
  8244.  move.w d3,bottom
  8245. .nonewbot:
  8246.  
  8247.  sub.w d1,d3    ; dy
  8248.  sub.w d0,d2    ; dx
  8249.  
  8250.  blt .linegoingleft
  8251.  
  8252.  ext.l d2
  8253.  divs d3,d2
  8254.  move.w d2,d6
  8255.  swap d2
  8256.  move.w d2,a5
  8257.  
  8258. ; moveq #0,d6
  8259. ; sub.w d3,d2
  8260. ; blt.s .noco
  8261. ;.makeco
  8262. ; addq #1,d6
  8263. ; sub.w d3,d2
  8264. ; bge.s .makeco
  8265. ;.noco
  8266. ; add.w d3,d2
  8267.  
  8268.  move.w d3,d4
  8269.  move.w d3,d5
  8270.  subq #1,d5
  8271.  move.w d6,d1
  8272.  addq #1,d1
  8273.  move.w d1,a6
  8274.  
  8275.  moveq #0,d1
  8276.  move.w sbr,d1
  8277.  move.w fbr,d2
  8278.  sub.w d1,d2
  8279.  ext.l d2
  8280.  asl.w #8,d2
  8281.  asl.w #2,d2
  8282.  divs d3,d2 
  8283.  ext.l d2
  8284.  asl.l #6,d2
  8285.  swap d1
  8286.  
  8287. .pixlopright:
  8288.  move.w d0,(a3)+
  8289.  swap d1
  8290.  move.w d1,(a4)+
  8291.  swap d1
  8292.  add.l d2,d1
  8293.  
  8294.  sub.w a5,d4
  8295.  bge.s .nobigstep
  8296.  add.w a6,d0
  8297.  add.w d3,d4
  8298.  dbra d5,.pixlopright
  8299.  bra lineflatGOUR
  8300. .nobigstep
  8301.  
  8302.  add.w d6,d0
  8303.  dbra d5,.pixlopright
  8304.  bra lineflatGOUR
  8305.  
  8306. .linegoingleft:
  8307.  
  8308.  neg.w d2
  8309.  
  8310.  ext.l d2
  8311.  divs d3,d2
  8312.  move.w d2,d6
  8313.  swap d2
  8314.  
  8315.  
  8316. ; moveq #0,d6
  8317. ; sub.w d3,d2
  8318. ; blt.s .nocol
  8319. ;.makecol
  8320. ; addq #1,d6
  8321. ; sub.w d3,d2
  8322. ; bge.s .makecol
  8323. ;.nocol
  8324. ; add.w d3,d2
  8325.  
  8326.  move.w d3,d4
  8327.  move.w d3,d5
  8328.  subq #1,d5
  8329.  
  8330.  move.w d6,d1
  8331.  addq #1,d1
  8332.  move.w d1,a6
  8333.  move.w d2,a5
  8334.  
  8335.  moveq #0,d1
  8336.  move.w sbr,d1
  8337.  move.w fbr,d2
  8338.  sub.w d1,d2
  8339.  ext.l d2
  8340.  asl.w #8,d2
  8341.  asl.w #2,d2
  8342.  divs d3,d2 
  8343.  ext.l d2
  8344.  asl.l #6,d2
  8345.  swap d1
  8346.  
  8347. .pixlopleft:
  8348.  
  8349.  swap d1
  8350.  move.w d1,(a4)+
  8351.  swap d1
  8352.  add.l d2,d1
  8353.  
  8354.  sub.w a5,d4
  8355.  bge.s .nobigstepl
  8356.  sub.w a6,d0
  8357.  add.w d3,d4
  8358.  move.w d0,(a3)+
  8359.  dbra d5,.pixlopleft
  8360.  bra lineflatGOUR
  8361.  
  8362. .nobigstepl
  8363.  sub.w d6,d0
  8364.  move.w d0,(a3)+
  8365.  dbra d5,.pixlopleft
  8366.  bra lineflatGOUR
  8367.  
  8368. lineonrightGOUR:
  8369.  
  8370.  lea (a3,d1*2),a3
  8371.  
  8372.  lea rightbrighttab-rightsidetab(a3),a4
  8373.  
  8374.  cmp.w top(pc),d1
  8375.  bge.s .nonewtop
  8376.  move.w d1,top
  8377. .nonewtop:
  8378.  cmp.w bottom(pc),d3
  8379.  ble.s .nonewbot
  8380.  move.w d3,bottom
  8381. .nonewbot:
  8382.  
  8383.  sub.w d1,d3    ; dy
  8384.  sub.w d0,d2    ; dx
  8385.  blt .linegoingleft
  8386. ; addq #1,d0
  8387.  ext.l d2
  8388.  divs d3,d2
  8389.  move.w d2,d6
  8390.  swap d2
  8391.  
  8392. ; moveq #0,d6
  8393. ; sub.w d3,d2
  8394. ; blt.s .noco
  8395. ;.makeco
  8396. ; addq #1,d6
  8397. ; sub.w d3,d2
  8398. ; bge.s .makeco
  8399. ;.noco
  8400. ; add.w d3,d2
  8401.  
  8402.  move.w d3,d4
  8403.  move.w d3,d5
  8404.  subq #1,d5
  8405.  move.w d6,d1
  8406.  addq #1,d1
  8407.  
  8408.  move.w d1,a6
  8409.  move.w d2,a5
  8410.  
  8411.  moveq #0,d1
  8412.  move.w fbr,d1
  8413.  move.w sbr,d2
  8414.  sub.w d1,d2
  8415.  ext.l d2
  8416.  asl.w #8,d2
  8417.  asl.w #2,d2
  8418.  divs d3,d2 
  8419.  ext.l d2
  8420.  asl.l #6,d2
  8421.  swap d1
  8422.  
  8423. .pixlopright:
  8424.  
  8425.  swap d1
  8426.  move.w d1,(a4)+
  8427.  swap d1
  8428.  add.l d2,d1
  8429.  
  8430.  sub.w a5,d4
  8431.  bge.s .nobigstep
  8432.  add.w a6,d0
  8433.  add.w d3,d4
  8434.  move.w d0,(a3)+
  8435.  dbra d5,.pixlopright
  8436.  bra lineflatGOUR
  8437.  
  8438. .nobigstep
  8439.  add.w d6,d0
  8440.  move.w d0,(a3)+
  8441.  dbra d5,.pixlopright
  8442.  bra lineflatGOUR
  8443.  
  8444. .linegoingleft:
  8445. ; addq #1,d0
  8446.  neg.w d2
  8447.  
  8448.  ext.l d2
  8449.  divs d3,d2
  8450.  move.w d2,d6
  8451.  swap d2
  8452.  
  8453.  
  8454. ; moveq #0,d6
  8455. ; sub.w d3,d2
  8456. ; blt.s .nocol
  8457. ;.makecol
  8458. ; addq #1,d6
  8459. ; sub.w d3,d2
  8460. ; bge.s .makecol
  8461. ;.nocol
  8462. ; add.w d3,d2
  8463.  
  8464.  move.w d3,d4
  8465.  move.w d3,d5
  8466.  subq #1,d5
  8467.  move.w d6,d1
  8468.  addq #1,d1
  8469.  move.w d1,a6
  8470.  move.w d2,a5
  8471.  
  8472.  moveq #0,d1
  8473.  move.w fbr,d1
  8474.  move.w sbr,d2
  8475.  sub.w d1,d2
  8476.  ext.l d2
  8477.  asl.w #8,d2
  8478.  asl.w #2,d2
  8479.  divs d3,d2 
  8480.  ext.l d2
  8481.  asl.l #6,d2
  8482.  swap d1
  8483.  
  8484. .pixlopleft:
  8485.  
  8486.  swap d1
  8487.  move.w d1,(a4)+
  8488.  swap d1
  8489.  add.l d2,d1
  8490.  
  8491.  move.w d0,(a3)+
  8492.  sub.w a5,d4
  8493.  bge.s .nobigstepl
  8494.  sub.w a6,d0
  8495.  add.w d3,d4
  8496.  dbra d5,.pixlopleft
  8497.  bra lineflatGOUR
  8498.  
  8499. .nobigstepl
  8500.  sub.w d6,d0
  8501.  dbra d5,.pixlopleft
  8502.  
  8503. lineflatGOUR:
  8504.  
  8505. bothbehindGOUR:
  8506.  dbra d7,sideloopGOUR
  8507.  
  8508. pastsides:
  8509.  
  8510.  addq #2,a0
  8511.  
  8512.  move.w #320,linedir
  8513.  
  8514. ; move.l FASTBUFFER2,a6
  8515. ; add.l BIGMIDDLEY,a6
  8516. ; move.l a6,REFPTR
  8517.  
  8518.  move.l FASTBUFFER,a6
  8519.  add.l BIGMIDDLEY,a6
  8520.  move.w (a0)+,d6
  8521.  add.w SMALLIT,d6
  8522.  move.w d6,scaleval
  8523.  move.w (a0)+,d6
  8524.  
  8525.  ifne CHEESEY
  8526.  move.w d6,d7    ; 000000XX000000YY
  8527.  lsr.w #6,d6
  8528.  add.w d6,d7    ; 000000XX0000XXYY
  8529.  
  8530.  and.b #%111,d6    ; 000000XX00000XYY
  8531.  add.b d7,d7    ; 000000XX0000XYY0
  8532.  asl.w #4,d7    ; 00XX0000 XYY00000
  8533.  and.w #%0010000011100000,d7
  8534.  move.w d7,d6
  8535.  endc
  8536.  
  8537.  move.w d6,whichtile
  8538.  move.w (a0)+,d6
  8539.  add.w ZoneBright,d6
  8540.  move.w d6,lighttype
  8541.  move.w above(pc),d6
  8542.  beq groundfloor
  8543. * on ceiling:
  8544.  move.w #-320,linedir
  8545.  suba.w #320,a6
  8546. groundfloor:
  8547.  
  8548.  move.w xoff,d6
  8549.  move.w zoff,d7
  8550.  add.w xwobxoff,d7
  8551.  add.w xwobzoff,d6
  8552.  ext.l d6
  8553.  ext.l d7
  8554.  
  8555.  tst.b FULLSCR
  8556.  beq.s .shiftit
  8557.  
  8558.  asl.l #2,d6
  8559.  asl.l #2,d7
  8560.  divs #3,d6
  8561.  divs #3,d7
  8562.  swap d6
  8563.  swap d7
  8564.  clr.w d6
  8565.  clr.w d7
  8566.  asr.l #2,d6
  8567.  asr.l #2,d7
  8568.  bra.s .donsht
  8569.  
  8570. .shiftit
  8571.  
  8572. ; divs #3,d6
  8573. ; divs #3,d7
  8574.  swap d6
  8575.  swap d7
  8576.  clr.w d6
  8577.  clr.w d7
  8578.  asr.l #1,d6
  8579.  asr.l #1,d7
  8580. .donsht:
  8581.  move.w scaleval(pc),d3
  8582.  beq.s .samescale
  8583.  bgt.s .scaledown
  8584.  neg.w d3
  8585.  asr.l d3,d7
  8586.  asr.l d3,d6
  8587.  bra.s .samescale
  8588. .scaledown:
  8589.  asl.l d3,d6
  8590.  asl.l d3,d7
  8591. .samescale
  8592.  
  8593.  ifne CHEESEY
  8594.  asr.l #1,d6
  8595.  asr.l #1,d7
  8596.  endc
  8597.  
  8598.  move.l d6,sxoff
  8599.  move.l d7,szoff
  8600.  bra pastscale 
  8601.  
  8602.  asr.l #3,d1
  8603.  asr.l #3,d2
  8604.  asr.l #2,d1
  8605.  asr.l #2,d2
  8606.  asr.l #1,d1
  8607.  asr.l #1,d2
  8608. scaleprogfrom
  8609.  nop
  8610.  nop
  8611.  asl.l #1,d1
  8612.  asl.l #1,d2
  8613.  asl.l #2,d1
  8614.  asl.l #2,d2
  8615.  asl.l #3,d1
  8616.  asl.l #3,d2
  8617.  
  8618. top: dc.w 0
  8619. bottom: dc.w 0
  8620. ypos: dc.l 0
  8621. nfloors: dc.w 0
  8622. lighttype: dc.w 0
  8623. above: dc.w 0 
  8624. linedir: dc.w 0
  8625. distaddr: dc.w 0
  8626.  
  8627. minz: dc.l 0
  8628.  
  8629. leftsidetab:
  8630.  ds.w 512*2
  8631. rightsidetab:
  8632.  ds.w 512*2
  8633. leftbrighttab:
  8634.  ds.w 512*2
  8635. rightbrighttab:
  8636.  ds.w 512*2
  8637.  
  8638. PointBrights:
  8639.  dc.l 0
  8640. CurrentPointBrights:
  8641.  ds.l 2*256*10
  8642.  
  8643. movespd: dc.w 0
  8644. largespd: dc.l 0
  8645. disttobot: dc.w 0
  8646.  
  8647. pastscale:
  8648.  
  8649.  
  8650.  tst.b drawit(pc)
  8651.  beq dontdrawfloor
  8652.  
  8653.  tst.b DOUBLEHEIGHT
  8654.  beq pix1h
  8655.  
  8656.  move.l a0,-(a7)
  8657.  move.w linedir,d1
  8658.  add.w d1,linedir
  8659.  
  8660.  move.l #leftsidetab,a4
  8661.  move.w top(pc),d1
  8662.  tst.w above
  8663.  beq.s .clipfloor
  8664.  
  8665.  sub.w #320,a6
  8666.  
  8667.  move.w MIDDLEY,d7
  8668.  subq #1,d7
  8669.  sub.w d1,d7
  8670.  move.w d7,disttobot
  8671.  
  8672.  move.w bottom(pc),d7
  8673.  move.w MIDDLEY,d3
  8674.  move.w d3,d4
  8675.  sub.w topclip,d3
  8676.  sub.w botclip,d4
  8677.  cmp.w d3,d1
  8678.  bge predontdrawfloor
  8679.  cmp.w d4,d7
  8680.  blt predontdrawfloor
  8681.  cmp.w d4,d1
  8682.  bge.s .nocliptoproof
  8683.  move.w d4,d1
  8684. .nocliptoproof
  8685.  cmp.w d3,d7
  8686.  blt .doneclip
  8687.  move.w d3,d7
  8688.  bra .doneclip
  8689.  
  8690. .clipfloor:
  8691.  move.w BOTTOMY,d7
  8692.  sub.w MIDDLEY,d7
  8693.  subq #1,d7
  8694.  sub.w d1,d7
  8695.  move.w d7,disttobot
  8696.  
  8697.  move.w bottom(pc),d7
  8698.  move.w botclip,d4
  8699.  sub.w MIDDLEY,d4
  8700.  cmp.w d4,d1
  8701.  bge predontdrawfloor
  8702.  move.w topclip,d3
  8703.  sub.w MIDDLEY,d3
  8704.  cmp.w d3,d1
  8705.  bge.s .nocliptopfloor
  8706.  move.w d3,d1
  8707. .nocliptopfloor 
  8708.  cmp.w d3,d7
  8709.  ble predontdrawfloor
  8710.  cmp.w d4,d7
  8711.  blt.s .noclipbotfloor
  8712.  move.w d4,d7
  8713. .noclipbotfloor:
  8714.  
  8715. .doneclip:
  8716.  
  8717.  lea (a4,d1*2),a4
  8718.  addq #1,d7
  8719.  sub.w d1,d7
  8720.  
  8721. ;moveq #0,d0
  8722.  asr.w #1,d1
  8723. ; addx d0,d1
  8724.  
  8725. ; move.l #dists,a2
  8726.  move.w distaddr,d0
  8727.  muls #64,d0
  8728.  move.l d0,a2
  8729. ; muls #25,d0
  8730. ; adda.w d0,a2
  8731. ; lea (a2,d1*2),a2
  8732.  asr.w #1,d7
  8733.  ble predontdrawfloor 
  8734.  move.w d1,d0
  8735.  bne.s .notzero
  8736.  moveq #1,d0
  8737. .notzero
  8738.  add.w d0,d0
  8739.  muls linedir,d1
  8740.  add.l d1,a6
  8741. ; sub.l d1,REFPTR
  8742.  move.l TexturePal,a1
  8743.  add.l #256*32,a1
  8744.  move.l LineToUse,a5
  8745.  
  8746.  move.w #4,tonextline
  8747.  
  8748.  bra pix2h
  8749.  
  8750. pix1h:
  8751.  
  8752.  move.l a0,-(a7)
  8753.  
  8754.  move.l #leftsidetab,a4
  8755.  move.w top(pc),d1
  8756.   
  8757.  tst.w above
  8758.  beq.s clipfloor
  8759.  
  8760.  move.w MIDDLEY,d7
  8761.  subq #1,d7
  8762.  sub.w d1,d7
  8763.  move.w d7,disttobot
  8764.  
  8765.  move.w bottom(pc),d7
  8766.  move.w MIDDLEY,d3
  8767.  move.w d3,d4
  8768.  sub.w topclip,d3
  8769.  sub.w botclip,d4
  8770.  cmp.w d3,d1
  8771.  bge predontdrawfloor
  8772.  cmp.w d4,d7
  8773.  blt predontdrawfloor
  8774.  cmp.w d4,d1
  8775.  bge.s .nocliptoproof
  8776.  move.w d4,d1
  8777. .nocliptoproof
  8778.  cmp.w d3,d7
  8779.  blt doneclip
  8780.  move.w d3,d7
  8781.  bra doneclip
  8782.  
  8783. clipfloor:
  8784.  move.w BOTTOMY,d7
  8785.  sub.w MIDDLEY,d7
  8786.  subq #1,d7
  8787.  sub.w d1,d7
  8788.  move.w d7,disttobot
  8789.  
  8790.  move.w bottom(pc),d7
  8791.  move.w botclip,d4
  8792.  sub.w MIDDLEY,d4
  8793.  cmp.w d4,d1
  8794.  bge predontdrawfloor
  8795.  move.w topclip,d3
  8796.  sub.w MIDDLEY,d3
  8797.  cmp.w d3,d1
  8798.  bge.s .nocliptopfloor
  8799.  move.w d3,d1
  8800. .nocliptopfloor 
  8801.  cmp.w d3,d7
  8802.  ble predontdrawfloor
  8803.  cmp.w d4,d7
  8804.  blt.s .noclipbotfloor
  8805.  move.w d4,d7
  8806. .noclipbotfloor:
  8807.  
  8808. doneclip:
  8809.  
  8810.  lea (a4,d1*2),a4
  8811. ; move.l #dists,a2
  8812.  move.w distaddr,d0
  8813.  muls #64,d0
  8814.  move.l d0,a2
  8815. ; muls #25,d0
  8816. ; adda.w d0,a2
  8817. ; lea (a2,d1*2),a2
  8818.  sub.w d1,d7
  8819.  ble predontdrawfloor 
  8820.  move.w d1,d0
  8821.  bne.s .notzero
  8822.  moveq #1,d0
  8823. .notzero
  8824.  muls linedir,d1
  8825.  add.l d1,a6
  8826. ; sub.l d1,REFPTR
  8827.  move.l TexturePal,a1
  8828.  add.l #256*32,a1
  8829.  move.l LineToUse,a5
  8830.  
  8831.  move.w #2,tonextline
  8832.  
  8833. pix2h:
  8834.  
  8835.  tst.b gourfloor
  8836.  bne dogourfloor
  8837.  
  8838.  tst.b anyclipping
  8839.  beq dofloornoclip
  8840.  
  8841. dofloor:
  8842. ; move.w (a2)+,d0
  8843.  move.w leftclip,d3
  8844.  move.w rightclip,d4
  8845.  move.w rightsidetab-leftsidetab(a4),d2
  8846.  
  8847.  addq #1,d2
  8848.  cmp.w d3,d2
  8849.  ble.s nodrawline
  8850.  cmp.w d4,d2
  8851.  ble.s noclipright
  8852.  move.w d4,d2
  8853. noclipright:
  8854.  move.w (a4),d1
  8855.  cmp.w d4,d1
  8856.  bge.s nodrawline
  8857.  cmp.w d3,d1
  8858.  bge.s noclipleft
  8859.  move.w d3,d1
  8860. noclipleft:
  8861.  cmp.w d1,d2
  8862.  ble.s nodrawline
  8863.  
  8864.  move.w d1,leftedge
  8865.  move.w d2,rightedge
  8866.  
  8867. ; moveq #0,d1
  8868. ; moveq #0,d3
  8869. ; move.w leftbrighttab-leftsidetab(a4),d1
  8870. ; bge.s .okbl
  8871. ; moveq #0,d1
  8872. ;.okbl:
  8873.  
  8874. ; move.w rightbrighttab-leftsidetab(a4),d3
  8875. ; bge.s .okbr
  8876. ; moveq #0,d3
  8877. ;.okbr:
  8878.  
  8879. ; sub.w d1,d3
  8880. ; asl.w #8,d1
  8881. ; move.l d1,leftbright
  8882. ; swap d3
  8883. ; asr.l #5,d3
  8884. ; divs d5,d3
  8885. ; move.w d3,d5
  8886. ; muls.w d6,d5
  8887. ; asr.l #3,d5
  8888. ; clr.b d5
  8889. ; add.w d5,leftbright+2
  8890.  
  8891. ; ext.l d3
  8892. ; asl.l #5,d3
  8893. ; swap d3
  8894. ; asl.w #8,d3
  8895. ; move.l d3,brightspd
  8896.  
  8897.  move.l a6,a3
  8898.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8899.  move.l a2,d7
  8900.  asl.l #2,d7
  8901.  ext.l d0
  8902.  divs.l d0,d7
  8903.  move.l d7,d0
  8904.  jsr (a5)
  8905.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8906. nodrawline
  8907.  sub.w #1,disttobot
  8908.  move.w linedir(pc),d3
  8909.  adda.w d3,a6
  8910. ; ext.l d3
  8911. ; sub.l d3,REFPTR
  8912.  move.w tonextline,d3
  8913.  add.w d3,a4
  8914.  asr.w #1,d3
  8915.  add.w d3,d0
  8916.  subq #1,d7
  8917.  bgt dofloor
  8918.  
  8919. predontdrawfloor
  8920.  move.l (a7)+,a0
  8921.  
  8922. dontdrawfloor:
  8923.  
  8924.  rts
  8925.  
  8926. tonextline: dc.w 0
  8927. anyclipping: dc.w 0
  8928.  
  8929. dofloornoclip:
  8930. ; move.w (a2)+,d0
  8931.  move.w rightsidetab-leftsidetab(a4),d2
  8932.  addq #1,d2
  8933.  move.w (a4),d1
  8934.  move.w d1,leftedge
  8935.  move.w d2,rightedge
  8936.  
  8937. ; sub.w d1,d2
  8938.  
  8939. ; moveq #0,d1
  8940. ; moveq #0,d3
  8941. ; move.w leftbrighttab-leftsidetab(a4),d1
  8942. ; bge.s .okbl
  8943. ; moveq #0,d1
  8944. ;.okbl:
  8945.  
  8946. ; move.w rightbrighttab-leftsidetab(a4),d3
  8947. ; bge.s .okbr
  8948. ; moveq #0,d3
  8949. ;.okbr:
  8950.  
  8951. ; sub.w d1,d3
  8952. ; asl.w #8,d1
  8953. ; move.l d1,leftbright
  8954. ; swap d3
  8955. ; asr.l #5,d3
  8956. ; divs d2,d3
  8957. ; ext.l d3
  8958. ; asl.l #5,d3
  8959. ; swap d3
  8960. ; asl.w #8,d3
  8961. ; move.l d3,brightspd
  8962.  
  8963.  move.l a6,a3
  8964.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  8965.  move.l a2,d7
  8966.  asl.l #2,d7
  8967.  ext.l d0
  8968.  divs.l d0,d7
  8969.  move.l d7,d0
  8970.  jsr (a5)
  8971.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  8972.  sub.w #1,disttobot
  8973.  move.w linedir(pc),d3
  8974.  adda.w d3,a6
  8975. ; ext.l d3
  8976. ; sub.l d3,REFPTR
  8977.  move.w tonextline,d3
  8978.  add.w d3,a4
  8979.  asr.w #1,d3
  8980.  add.w d3,d0
  8981.  subq #1,d7
  8982.  bgt dofloornoclip
  8983.  
  8984.  bra predontdrawfloor
  8985.  
  8986. dogourfloor:
  8987.  tst.b anyclipping
  8988.  beq dofloornoclipGOUR
  8989.  
  8990. dofloorGOUR:
  8991. ; move.w (a2)+,d0
  8992.  move.w leftclip,d3
  8993.  move.w rightclip,d4
  8994.  move.w rightsidetab-leftsidetab(a4),d2
  8995.  
  8996.  move.w d2,d5
  8997.  sub.w (a4),d5
  8998.  addq #1,d5
  8999.  moveq #0,d6
  9000.  
  9001.  addq #1,d2
  9002.  cmp.w d3,d2
  9003.  ble nodrawlineGOUR
  9004.  cmp.w d4,d2
  9005.  ble.s nocliprightGOUR
  9006.  move.w d4,d2
  9007. nocliprightGOUR:
  9008.  move.w (a4),d1
  9009.  cmp.w d4,d1
  9010.  bge nodrawlineGOUR
  9011.  cmp.w d3,d1
  9012.  bge.s noclipleftGOUR
  9013.  move.w d3,d6
  9014.  subq #1,d6
  9015.  sub.w d1,d6
  9016.  move.w d3,d1
  9017. noclipleftGOUR:
  9018.  cmp.w d1,d2
  9019.  ble nodrawlineGOUR
  9020.  
  9021.  move.w d1,leftedge
  9022.  move.w d2,rightedge
  9023.  
  9024.  move.l a2,d2
  9025.  asl.l #2,d2
  9026.  ext.l d0
  9027.  divs.l d0,d2
  9028.  move.l d2,dst
  9029.  asr.l #7,d2
  9030.  asr.l #2,d2
  9031. ; addq #5,d2
  9032. ; add.w lighttype,d2
  9033.  
  9034.  moveq #0,d1
  9035.  moveq #0,d3
  9036.  move.w leftbrighttab-leftsidetab(a4),d1
  9037.  add.w d2,d1
  9038.  bge.s .okbl
  9039.  moveq #0,d1
  9040. .okbl:
  9041. ; asr.w #1,d1
  9042.  cmp.w #30,d1
  9043.  ble.s .okdl
  9044.  move.w #30,d1
  9045. .okdl:
  9046.  
  9047.  move.w rightbrighttab-leftsidetab(a4),d3
  9048.  add.w d2,d3
  9049.  bge.s .okbr
  9050.  moveq #0,d3
  9051. .okbr:
  9052. ; asr.w #1,d3
  9053.  cmp.w #30,d3
  9054.  ble.s .okdr
  9055.  move.w #30,d3
  9056. .okdr:
  9057.  
  9058.  sub.w d1,d3
  9059.  asl.w #8,d1
  9060.  move.w d1,leftbright
  9061.  swap d3
  9062.  tst.l d3
  9063.  bgt.s .OKITSPOSALREADY 
  9064.  neg.l d3
  9065.  asr.l #6,d3
  9066.  divs d5,d3
  9067.  neg.w d3
  9068.  bra.s .OKNOWITSNEG
  9069.  
  9070. .OKITSPOSALREADY
  9071.  asr.l #6,d3
  9072.  divs d5,d3
  9073. .OKNOWITSNEG
  9074.  muls d3,d6
  9075.  add.w #256*4,d6
  9076.  asr.w #2,d6
  9077.  clr.b d6
  9078.  add.w leftbright,d6
  9079.  bge.s .oklbnn
  9080.  moveq #0,d6
  9081. .oklbnn:
  9082.  move.w d6,leftbright
  9083.  
  9084.  ext.l d3
  9085.  asr.l #2,d3
  9086. ; swap d3
  9087. ; asl.w #8,d3
  9088.  move.w d3,brightspd
  9089.  
  9090.  move.l a6,a3
  9091.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9092.  move.l dst,d0
  9093.  move.l TexturePal,a1
  9094.  add.l #256*32,a1
  9095.  move.l floortile,a0
  9096.  adda.w whichtile,a0
  9097.  jsr pastfloorbright
  9098.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9099. nodrawlineGOUR
  9100.  
  9101.  sub.w #1,disttobot
  9102.  
  9103.  move.w linedir(pc),d3
  9104.  adda.w d3,a6
  9105. ; ext.l d3
  9106. ; sub.l d3,REFPTR
  9107.  move.w tonextline,d3
  9108.  add.w d3,a4
  9109.  asr.w #1,d3
  9110.  add.w d3,d0
  9111.  subq #1,d7
  9112.  bgt dofloorGOUR
  9113.  
  9114. predontdrawfloorGOUR
  9115.  move.l (a7)+,a0
  9116.  
  9117. dontdrawfloorGOUR:
  9118.  
  9119.  rts
  9120.  
  9121. REFPTR: dc.l 0
  9122.  
  9123. dofloornoclipGOUR:
  9124. ; move.w (a2)+,d0
  9125.  move.w rightsidetab-leftsidetab(a4),d2
  9126.  addq #1,d2
  9127.  move.w (a4),d1
  9128.  move.w d1,leftedge
  9129.  move.w d2,rightedge
  9130.  
  9131.  sub.w d1,d2
  9132.  
  9133.  move.l a2,d6
  9134.  asl.l #2,d6
  9135.  ext.l d0
  9136.  divs.l d0,d6
  9137.  move.l d6,d5
  9138.  asr.l #7,d5
  9139.  asr.l #2,d5
  9140. ; addq #5,d5
  9141. ; add.w lighttype,d5
  9142.  
  9143.  moveq #0,d1
  9144.  moveq #0,d3
  9145.  move.w leftbrighttab-leftsidetab(a4),d1
  9146.  add.w d5,d1
  9147.  bge.s .okbl
  9148.  moveq #0,d1
  9149. .okbl:
  9150. ; asr.w #1,d1
  9151.  cmp.w #30,d1
  9152.  ble.s .okdl
  9153.  move.w #30,d1
  9154. .okdl:
  9155.  
  9156.  move.w rightbrighttab-leftsidetab(a4),d3
  9157.  add.w d5,d3
  9158.  bge.s .okbr
  9159.  moveq #0,d3
  9160. .okbr:
  9161. ; asr.w #1,d3
  9162.  cmp.w #30,d3
  9163.  ble.s .okdr
  9164.  move.w #30,d3
  9165. .okdr:
  9166.  
  9167. ; sub.w d1,d3
  9168. ; asl.w #8,d1
  9169. ; move.l d1,leftbright
  9170. ; swap d3
  9171. ; asr.l #5,d3
  9172. ; divs d2,d3
  9173. ; ext.l d3
  9174. ; asl.l #5,d3
  9175. ; swap d3
  9176. ; asl.w #8,d3
  9177. ; move.l d3,brightspd
  9178.  
  9179.  sub.w d1,d3
  9180.  asl.w #8,d1
  9181.  move.w d1,leftbright
  9182.  swap d3
  9183.  ext.l d2
  9184.  divs.l d2,d3
  9185.  asr.l #8,d3
  9186.  move.w d3,brightspd
  9187.  
  9188.  move.l a6,a3
  9189.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  9190.  move.l d6,d0
  9191.  move.l d0,dst
  9192.  move.l TexturePal,a1
  9193.  add.l #256*32,a1
  9194.  move.l floortile,a0
  9195.  adda.w whichtile,a0
  9196.  jsr pastfloorbright
  9197.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  9198.  sub.w #1,disttobot
  9199.  
  9200.  move.w linedir(pc),d3
  9201.  adda.w d3,a6
  9202. ; ext.l d3
  9203. ; sub.l d3,REFPTR
  9204.  
  9205.  move.w tonextline,d3
  9206.  add.w d3,a4
  9207.  asr.w #1,d3
  9208.  add.w d3,d0
  9209.  subq #1,d7
  9210.  bgt dofloornoclipGOUR
  9211.  
  9212.  bra predontdrawfloorGOUR
  9213.  
  9214.  
  9215.  
  9216. dists:
  9217. ; incbin "floordists"
  9218. drawit: dc.w 0
  9219.  
  9220. LineToUse: dc.l 0
  9221.  
  9222. ***************************
  9223. * Right then, time for the floor
  9224. * routine...
  9225. * For test purposes, give it
  9226. * a3 = point to screen
  9227. * d0= z distance away
  9228. * and sinval+cosval must be set up.
  9229. ***************************
  9230.  
  9231. BLACKFLOOR:
  9232.  moveq #0,d0
  9233.  bra.s DOBLACK
  9234.  
  9235. SimpleFloorLine:
  9236.  
  9237.  CACHE_OFF d2
  9238.  
  9239.  move.l #doacrossline,a1
  9240.  move.w leftedge(pc),d1
  9241.  move.w rightedge(pc),d3
  9242.  sub.w d1,d3
  9243.  lea (a1,d1.w*4),a1
  9244.  move.w (a1,d3.w*4),d4
  9245.  move.w #$4e75,(a1,d3.w*4)
  9246.  
  9247.  tst.b CLRNOFLOOR
  9248.  bne.s BLACKFLOOR
  9249.  
  9250.  move.l #PLAINSCALE,a2
  9251.  
  9252.  move.w d0,d2
  9253.  move.w lighttype,d1
  9254.  asr.w #8,d2
  9255.  add.w #5,d1
  9256.  add.w d2,d1
  9257.  bge.s .fixedbright
  9258.  moveq #0,d1
  9259. .fixedbright:
  9260.  cmp.w #28,d1
  9261.  ble.s .smallbright
  9262.  move.w #28,d1
  9263. .smallbright:
  9264.  lea (a2,d1.w*2),a2
  9265.  
  9266.  move.w whichtile,d0
  9267.  move.w d0,d1
  9268.  and.w #$3,d1
  9269.  and.w #$300,d0
  9270.  lsl.b #6,d1
  9271.  move.b d1,d0
  9272.  move.w d0,tstwhich
  9273.  move.w (a2,d0.w),d0
  9274.  
  9275. DOBLACK:
  9276.  jsr (a1)
  9277.  move.w d4,(a1,d3.w*4)
  9278.  
  9279.  CACHE_ON d2
  9280.  
  9281.  rts
  9282.  
  9283. tstwhich: dc.w 0
  9284. whichtile: dc.w 0
  9285.   
  9286. PLAINSCALE: 
  9287. ;incbin "ab3:includes/plainscale"
  9288.   
  9289. storeit: dc.l 0
  9290.  
  9291. doacrossline:
  9292. val SET 0
  9293.  REPT 32
  9294.  move.w d0,val(a3)
  9295. val SET val+4
  9296.  ENDR
  9297. val SET val+4
  9298.  REPT 32
  9299.  move.w d0,val(a3)
  9300. val SET val+4
  9301.  ENDR
  9302. val SET val+4
  9303.  REPT 32
  9304.  move.w d0,val(a3)
  9305. val SET val+4
  9306.  ENDR
  9307.  rts
  9308.  
  9309.  
  9310. leftedge: dc.w 0
  9311. rightedge: dc.w 0
  9312.  
  9313. rndpt: dc.l rndtab
  9314.  
  9315.  
  9316. dst: dc.l 0
  9317.  
  9318. FloorLine:
  9319.  
  9320.  move.l floortile,a0
  9321.  adda.w whichtile,a0
  9322.  move.w lighttype,d1
  9323.  move.l d0,dst    ; *4
  9324.  move.l d0,d2    ; *4
  9325. *********************
  9326. * Old version
  9327.  asr.l #2,d2
  9328.  asr.l #8,d2
  9329.  add.w #5,d1
  9330. *********************
  9331. ; asr.w #3,d2
  9332. ; sub.w #4,d2
  9333. ; cmp.w #6,d2
  9334. ; blt.s flbrbr
  9335. ; move.w #6,d2
  9336. ;flbrbr:
  9337. *********************
  9338.  add.w d2,d1
  9339.  bge.s .fixedbright
  9340.  moveq #0,d1
  9341. .fixedbright:
  9342.  cmp.w #28,d1
  9343.  ble.s .smallbright
  9344.  move.w #28,d1
  9345. .smallbright:
  9346.  move.l TexturePal,a1
  9347.  add.l #256*32,a1
  9348.  add.l floorbright(pc,d1.w*4),a1
  9349.  bra pastfloorbright
  9350.  
  9351. ConstCol: dc.w 0
  9352.  
  9353. BumpLine:
  9354.  
  9355.  tst.b smoothbumps
  9356.  beq.s Chunky
  9357.  
  9358.  move.l #SmoothTile,a0
  9359.  lea Smoothscalecols,a1
  9360.  bra pastast
  9361.  
  9362. Chunky:
  9363.  
  9364.  moveq #0,d2
  9365.  move.l #Bumptile,a0
  9366.  move.w whichtile,d2
  9367.  adda.w d2,a0
  9368.  ror.l #2,d2
  9369.  lsr.w #6,d2
  9370.  rol.l #2,d2
  9371.  and.w #15,d2
  9372.  move.l #ConstCols,a1
  9373.  move.w (a1,d2.w*2),ConstCol
  9374.  lea Bumpscalecols,a1
  9375.  
  9376. pastast:
  9377.  move.w lighttype,d1
  9378.  
  9379.  move.l d0,dst
  9380.  
  9381.  move.l d0,d2
  9382. *********************
  9383. * Old version
  9384.  asr.l #2,d2
  9385.  asr.l #8,d2
  9386.  add.w #5,d1
  9387. *********************
  9388. ; asr.w #3,d2
  9389. ; sub.w #4,d2
  9390. ; cmp.w #6,d2
  9391. ; blt.s flbrbr
  9392. ; move.w #6,d2
  9393. ;flbrbr:
  9394. *********************
  9395.  add.w d2,d1
  9396.  bge.s .fixedbright
  9397.  moveq #0,d1
  9398. .fixedbright:
  9399.  cmp.w #31,d1
  9400.  ble.s .smallbright
  9401.  move.w #31,d1
  9402. .smallbright:
  9403.  add.l floorbright(pc,d1.w*4),a1
  9404.  bra pastfloorbright
  9405.  
  9406.  
  9407. floorbright:
  9408.  dc.l 512*0
  9409.  dc.l 512*1
  9410.  dc.l 512*2
  9411.  dc.l 512*3
  9412.  dc.l 512*4
  9413.  
  9414.  dc.l 512*5
  9415.  dc.l 512*6
  9416.  dc.l 512*7
  9417.  dc.l 512*8
  9418.  dc.l 512*9
  9419.  
  9420.  dc.l 512*10
  9421.  dc.l 512*11
  9422.  dc.l 512*12
  9423.  dc.l 512*13
  9424.  dc.l 512*14
  9425.  
  9426.  dc.l 512*15
  9427.  dc.l 512*16
  9428.  dc.l 512*17
  9429.  dc.l 512*18
  9430.  dc.l 512*19
  9431.  
  9432.  dc.l 512*20
  9433.  dc.l 512*21
  9434.  dc.l 512*22
  9435.  dc.l 512*23
  9436.  dc.l 512*24
  9437.  
  9438.  dc.l 512*25
  9439.  dc.l 512*26
  9440.  dc.l 512*27
  9441.  dc.l 512*28
  9442.  dc.l 512*29
  9443.  
  9444.  dc.l 512*30
  9445.  dc.l 512*31
  9446.  
  9447. widthleft: dc.w 0
  9448. scaleval: dc.w 0
  9449. sxoff: dc.l 0
  9450. szoff: dc.l 0
  9451. xoff34: dc.w 0
  9452. zoff34: dc.w 0
  9453. scosval: dc.w 0
  9454. ssinval: dc.w 0
  9455.  
  9456.  
  9457. floorsetbright:
  9458.  move.l #walltiles,a0
  9459.  
  9460. pastfloorbright:
  9461.  
  9462.  move.l d0,d1
  9463.  muls cosval,d1    ; change in x across whole width
  9464.  move.l d0,d2
  9465.  muls sinval,d2    ; change in z across whole width
  9466.  neg.l d2
  9467.  ifne CHEESEY
  9468.  asr.l #3,d2
  9469.  asr.l #3,d1
  9470.  endc
  9471.  ifeq CHEESEY
  9472.  asr.l #2,d2
  9473.  asr.l #2,d1
  9474.  endc
  9475. scaleprog:
  9476.  move.w scaleval(pc),d3
  9477.  beq.s .samescale
  9478.  bgt.s .scaledown
  9479.  neg.w d3
  9480.  asr.l d3,d1
  9481.  asr.l d3,d2
  9482.  bra.s .samescale
  9483. .scaledown:
  9484.  asl.l d3,d1
  9485.  asl.l d3,d2
  9486. .samescale
  9487.  
  9488.  
  9489.  move.l d1,d3 ;    z cos
  9490.  move.l d3,d6
  9491.  move.l d3,d5
  9492.  asr.l #1,d6
  9493.  add.l d6,d3
  9494.  asr.l #1,d3
  9495.  
  9496.  move.l d2,d4    ; z sin
  9497.  move.l d4,d6
  9498.  asr.l #1,d6
  9499.  add.l d4,d6
  9500.  add.l d3,d4
  9501.  neg.l d4    ; start x
  9502.  
  9503.  asr.l #1,d6    ; zsin/2
  9504.  sub.l d6,d5    ; start z
  9505.  
  9506.  add.l sxoff,d4
  9507.  add.l szoff,d5
  9508.  
  9509.  tst.b FULLSCR
  9510.  beq.s .nob
  9511.  
  9512.  moveq #0,d6
  9513.  move.w leftedge(pc),d6
  9514.  beq.s .nomultleftB
  9515.  
  9516.  add.l d6,d6
  9517.  divs #3,d6
  9518.  ext.l d6
  9519.  
  9520.  move.l d1,a4
  9521.  move.l d2,a5
  9522.  
  9523.  muls.l d6,d1
  9524.  asr.l #7,d1
  9525.  add.l d1,d4
  9526.  
  9527.  muls.l d6,d2
  9528.  asr.l #7,d2
  9529.  add.l d2,d5
  9530.  move.l a4,d1
  9531.  move.l a5,d2
  9532.  
  9533.  move.w leftedge(pc),d6
  9534.  
  9535. .nomultleftB:
  9536.  
  9537.  move.w d4,startsmoothx
  9538.  move.w d5,startsmoothz
  9539.  
  9540.  asr.l #8,d4
  9541.  asl.l #8,d5
  9542. ; add.w szoff,d5
  9543. ; add.w sxoff,d4
  9544. ; and.w #63,d4
  9545. ; and.w #63*256,d5
  9546.  
  9547.  move.w d4,d5
  9548.  
  9549.  asr.l #6,d1
  9550.  asr.l #6,d2
  9551.  divs.l #3,d1
  9552.  divs.l #3,d2
  9553.  
  9554.  bra.s doneallmult
  9555.  
  9556. .nob 
  9557.  
  9558.  moveq #0,d6
  9559.  move.w leftedge(pc),d6
  9560.  beq.s nomultleft
  9561.  
  9562.  move.l d1,a4
  9563.  move.l d2,a5
  9564.  
  9565.  muls.l d6,d1
  9566.  asr.l #7,d1
  9567.  add.l d1,d4
  9568.  
  9569.  muls.l d6,d2
  9570.  asr.l #7,d2
  9571.  add.l d2,d5
  9572.  move.l a4,d1
  9573.  move.l a5,d2
  9574.  
  9575.  move.w leftedge(pc),d6
  9576.  
  9577. nomultleft:
  9578.  
  9579.  move.w d4,startsmoothx
  9580.  move.w d5,startsmoothz
  9581.  
  9582.  asr.l #8,d4
  9583.  asl.l #8,d5
  9584.  
  9585.  
  9586. ; add.w szoff,d5
  9587. ; add.w sxoff,d4
  9588. ; and.w #63,d4
  9589. ; and.w #63*256,d5
  9590.  
  9591.  move.w d4,d5
  9592.  
  9593.  asr.l #7,d1
  9594.  asr.l #7,d2
  9595. ; divs.l #3,d1
  9596. ; divs.l #3,d2
  9597.  
  9598. doneallmult:
  9599.  
  9600.  move.w d1,a4
  9601.  move.w d2,a5
  9602.  asl.l #8,d2
  9603. ; and.w #%0011111100000000,d2
  9604.  asr.l #8,d1
  9605.  move.w d1,d2
  9606.  ifeq CHEESEY
  9607.  move.l #$3fff3fff,d1
  9608.  endc
  9609.  ifne CHEESEY
  9610.  move.l #$1fff1fff,d1
  9611.  endc
  9612.  and.l d1,d5
  9613. ; swap d5
  9614. ; move.w startsmoothz,d5
  9615. ; swap d5
  9616. ; swap d2
  9617. ; move.w a5,d2
  9618. ; swap d2
  9619.  
  9620. ***********************************
  9621.  
  9622.  
  9623.  tst.b DOUBLEWIDTH
  9624.  beq.s .nodoub
  9625.  
  9626.  and.b #$fe,d6
  9627.  
  9628.  move.w d6,a2
  9629.  moveq #0,d0 
  9630.  move.w rightedge(pc),d3 
  9631.  lea (a3,a2.w),a3 
  9632.  move.w d3,d7
  9633.  sub.w a2,d7
  9634.  asr.w #1,d7
  9635.  move.w startsmoothx,d3
  9636.  
  9637.  tst.b usewater
  9638.  bne texturedwaterDOUB
  9639. ; tst.b gourfloor
  9640.  bra gouraudfloorDOUB
  9641.  
  9642. .nodoub:
  9643.  
  9644.  move.w d6,a2
  9645.  moveq #0,d0 
  9646.  move.w rightedge(pc),d3 
  9647.  lea (a3,a2.w),a3 
  9648.  move.w d3,d7
  9649.  sub.w a2,d7
  9650.  
  9651. intofirststrip:
  9652. allintofirst:
  9653.  
  9654.  move.w startsmoothx,d3
  9655.  
  9656. tstwat:
  9657.  
  9658.  tst.b usewater
  9659.  bne texturedwater
  9660. ; tst.b gourfloor
  9661.  bra gouraudfloor
  9662.  
  9663.  
  9664.  
  9665. ******************************
  9666. * BumpMap the floor/ceiling! *
  9667.  tst.b usebumps
  9668.  bne.s BumpMap
  9669. ******************************
  9670.  
  9671. ordinary:
  9672.  moveq #0,d0
  9673.  
  9674.  dbra d7,acrossscrn
  9675.  rts
  9676.  
  9677. usebumps: dc.w $0
  9678. smoothbumps: dc.w $0
  9679. gourfloor: dc.w 0
  9680.  
  9681.  include "ab3:source_4000/bumpmap.s"
  9682.  
  9683.  CNOP 0,4
  9684. backbefore:
  9685.  and.w d1,d5
  9686.  move.b (a0,d5.w*4),d0
  9687.  add.w a4,d3
  9688.  addx.l d6,d5
  9689.  move.w (a1,d0.w*2),(a3)
  9690.  addq #4,a3
  9691.  dbcs d7,acrossscrn
  9692.  dbcc d7,backbefore
  9693.  bra.s past1
  9694.  
  9695. acrossscrn:
  9696.  and.w d1,d5
  9697.  move.b (a0,d5.w*4),d0
  9698.  add.w a4,d3
  9699.  addx.l d2,d5
  9700.  move.w (a1,d0.w*2),(a3)
  9701.  addq #4,a3
  9702.  dbcs d7,acrossscrn
  9703.  dbcc d7,backbefore
  9704. past1:
  9705.  bcc.s gotoacross
  9706.  
  9707.  move.w d4,d7
  9708.  bne.s .notdoneyet
  9709.  rts
  9710. .notdoneyet:
  9711.  
  9712.  cmp.w #32,d7
  9713.  ble.s .notoowide
  9714.  move.w #32,d7
  9715. .notoowide
  9716.  sub.w d7,d4  
  9717.  addq #4,a3
  9718.  
  9719.  dbra d7,backbefore
  9720.  rts
  9721.  
  9722.  
  9723. gotoacross:
  9724.  
  9725.  move.w d4,d7
  9726.  bne.s .notdoneyet
  9727.  rts
  9728. .notdoneyet:
  9729.  
  9730.  cmp.w #32,d7
  9731.  ble.s .notoowide
  9732.  move.w #32,d7
  9733. .notoowide
  9734.  sub.w d7,d4  
  9735.  addq #4,a3
  9736.  
  9737.  dbra d7,acrossscrn
  9738.  rts
  9739.  
  9740. leftbright: dc.l 0
  9741. brightspd: dc.l 0
  9742.  
  9743. gouraudfloor:
  9744.  
  9745.  move.w leftbright,d0
  9746.  move.l d1,d4
  9747.  move.w brightspd,d1
  9748.  
  9749.  move.w d7,d3
  9750.  asr.w #1,d7
  9751.  btst #0,d3
  9752.  beq.s .nosingle1
  9753.  move.w d5,d3
  9754.  move.l d5,d6
  9755.  lsr.w #8,d3
  9756.  swap d6
  9757.  move.b d3,d6
  9758.  move.w d0,d3
  9759.  ifeq CHEESEY
  9760.  move.b (a0,d6.w*4),d3
  9761.  endc
  9762.  ifne CHEESEY
  9763.  move.b (a0,d6.w),d3
  9764.  endc
  9765.  
  9766.  add.w d1,d0
  9767.  add.l d2,d5
  9768.  and.l d4,d5
  9769.  move.b (a1,d3.w),(a3)+
  9770. .nosingle1
  9771.  
  9772.  move.w d7,d3
  9773.  asr.w #1,d7
  9774.  btst #0,d3
  9775.  beq.s .nosingle2
  9776.  move.w d5,d3
  9777.  move.l d5,d6
  9778.  lsr.w #8,d3
  9779.  swap d6
  9780.  move.b d3,d6
  9781.  move.w d0,d3
  9782.  ifeq CHEESEY
  9783.  move.b (a0,d6.w*4),d3
  9784.  endc
  9785.  ifne CHEESEY
  9786.  move.b (a0,d6.w),d3
  9787.  endc
  9788.  add.w d1,d0
  9789.  add.l d2,d5
  9790.  and.l d4,d5
  9791.  move.l d5,d6
  9792.  swap d6
  9793.  move.b (a1,d3.w),(a3)+
  9794.  move.w d5,d3
  9795.  lsr.w #8,d3
  9796.  move.b d3,d6
  9797.  move.w d0,d3
  9798.  ifeq CHEESEY
  9799.  move.b (a0,d6.w*4),d3
  9800.  endc
  9801.  ifne CHEESEY
  9802.  move.b (a0,d6.w),d3
  9803.  endc
  9804.  add.w d1,d0
  9805.  add.l d2,d5
  9806.  and.l d4,d5
  9807.  move.b (a1,d3.w),(a3)+
  9808.  
  9809. .nosingle2
  9810.  
  9811.  move.l d5,d6
  9812.  swap d6
  9813.  
  9814.  dbra d7,acrossscrngour
  9815.  rts
  9816.  
  9817.  CNOP 0,4
  9818.  
  9819. acrossscrngour:
  9820.  move.w d5,d3
  9821.  lsr.w #8,d3
  9822.  move.b d3,d6
  9823.  move.w d0,d3
  9824.  ifeq CHEESEY
  9825.  move.b (a0,d6.w*4),d3
  9826.  endc
  9827.  ifne CHEESEY
  9828.  move.b (a0,d6.w),d3
  9829.  endc
  9830.  add.w d1,d0
  9831.  add.l d2,d5
  9832.  and.l d4,d5
  9833.  move.l d5,d6
  9834.  swap d6
  9835.  move.b (a1,d3.w),(a3)+
  9836.  move.w d5,d3
  9837.  lsr.w #8,d3
  9838.  move.b d3,d6
  9839.  move.w d0,d3
  9840.  ifeq CHEESEY
  9841.  move.b (a0,d6.w*4),d3
  9842.  endc
  9843.  ifne CHEESEY
  9844.  move.b (a0,d6.w),d3
  9845.  endc
  9846.  add.w d1,d0
  9847.  add.l d2,d5
  9848.  and.l d4,d5
  9849.  move.l d5,d6
  9850.  swap d6
  9851.  move.b (a1,d3.w),(a3)+
  9852.  move.w d5,d3
  9853.  lsr.w #8,d3
  9854.  move.b d3,d6
  9855.  move.w d0,d3
  9856.  ifeq CHEESEY
  9857.  move.b (a0,d6.w*4),d3
  9858.  endc
  9859.  ifne CHEESEY
  9860.  move.b (a0,d6.w),d3
  9861.  endc
  9862.  add.w d1,d0
  9863.  add.l d2,d5
  9864.  and.l d4,d5
  9865.  move.l d5,d6
  9866.  swap d6
  9867.  move.b (a1,d3.w),(a3)+
  9868.  move.w d5,d3
  9869.  lsr.w #8,d3
  9870.  move.b d3,d6
  9871.  move.w d0,d3
  9872.  ifeq CHEESEY
  9873.  move.b (a0,d6.w*4),d3
  9874.  endc
  9875.  ifne CHEESEY
  9876.  move.b (a0,d6.w),d3
  9877.  endc
  9878.  add.w d1,d0
  9879.  add.l d2,d5
  9880.  and.l d4,d5
  9881.  move.l d5,d6
  9882.  swap d6
  9883.  move.b (a1,d3.w),(a3)+
  9884.  dbra d7,acrossscrngour
  9885.  
  9886.  rts
  9887.  
  9888.  
  9889. gouraudfloorDOUB:
  9890.  
  9891.  move.w leftbright,d0
  9892.  move.l d1,d4
  9893.  move.w brightspd,d1
  9894.  add.w d1,d1
  9895.  add.l d2,d2
  9896.  
  9897.  move.w d7,d3
  9898.  asr.w #1,d7
  9899.  btst #0,d3
  9900.  beq.s .nosingle1
  9901.  move.w d5,d3
  9902.  move.l d5,d6
  9903.  lsr.w #8,d3
  9904.  swap d6
  9905.  move.b d3,d6
  9906.  move.w d0,d3
  9907.  ifeq CHEESEY
  9908.  move.b (a0,d6.w*4),d3
  9909.  endc
  9910.  ifne CHEESEY
  9911.  move.b (a0,d6.w),d3
  9912.  endc
  9913.  add.w d1,d0
  9914.  add.l d2,d5
  9915.  and.l d4,d5
  9916.  move.w (a1,d3.w),(a3)+
  9917. .nosingle1
  9918.  
  9919.  move.w d7,d3
  9920.  asr.w #1,d7
  9921.  btst #0,d3
  9922.  beq.s .nosingle2
  9923.  move.w d5,d3
  9924.  move.l d5,d6
  9925.  lsr.w #8,d3
  9926.  swap d6
  9927.  move.b d3,d6
  9928.  move.w d0,d3
  9929.  ifeq CHEESEY
  9930.  move.b (a0,d6.w*4),d3
  9931.  endc
  9932.  ifne CHEESEY
  9933.  move.b (a0,d6.w),d3
  9934.  endc
  9935.  add.w d1,d0
  9936.  add.l d2,d5
  9937.  and.l d4,d5
  9938.  move.l d5,d6
  9939.  swap d6
  9940.  move.w (a1,d3.w),(a3)+
  9941.  move.w d5,d3
  9942.  lsr.w #8,d3
  9943.  move.b d3,d6
  9944.  move.w d0,d3
  9945.  ifeq CHEESEY
  9946.  move.b (a0,d6.w*4),d3
  9947.  endc
  9948.  ifne CHEESEY
  9949.  move.b (a0,d6.w),d3
  9950.  endc
  9951.  add.w d1,d0
  9952.  add.l d2,d5
  9953.  and.l d4,d5
  9954.  move.w (a1,d3.w),(a3)+
  9955.  
  9956. .nosingle2
  9957.  
  9958.  move.l d5,d6
  9959.  swap d6
  9960.  
  9961.  dbra d7,acrossscrngourD
  9962.  rts
  9963.  
  9964.  CNOP 0,4
  9965.  
  9966. acrossscrngourD:
  9967.  move.w d5,d3
  9968.  lsr.w #8,d3
  9969.  move.b d3,d6
  9970.  move.w d0,d3
  9971.  ifeq CHEESEY
  9972.  move.b (a0,d6.w*4),d3
  9973.  endc
  9974.  ifne CHEESEY
  9975.  move.b (a0,d6.w),d3
  9976.  endc
  9977.  add.w d1,d0
  9978.  add.l d2,d5
  9979.  and.l d4,d5
  9980.  move.l d5,d6
  9981.  swap d6
  9982.  move.w (a1,d3.w),(a3)+
  9983.  move.w d5,d3
  9984.  lsr.w #8,d3
  9985.  move.b d3,d6
  9986.  move.w d0,d3
  9987.  ifeq CHEESEY
  9988.  move.b (a0,d6.w*4),d3
  9989.  endc
  9990.  ifne CHEESEY
  9991.  move.b (a0,d6.w),d3
  9992.  endc
  9993.  add.w d1,d0
  9994.  add.l d2,d5
  9995.  and.l d4,d5
  9996.  move.l d5,d6
  9997.  swap d6
  9998.  move.w (a1,d3.w),(a3)+
  9999.  move.w d5,d3
  10000.  lsr.w #8,d3
  10001.  move.b d3,d6
  10002.  move.w d0,d3
  10003.  ifeq CHEESEY
  10004.  move.b (a0,d6.w*4),d3
  10005.  endc
  10006.  ifne CHEESEY
  10007.  move.b (a0,d6.w),d3
  10008.  endc
  10009.  add.w d1,d0
  10010.  add.l d2,d5
  10011.  and.l d4,d5
  10012.  move.l d5,d6
  10013.  swap d6
  10014.  move.w (a1,d3.w),(a3)+
  10015.  move.w d5,d3
  10016.  lsr.w #8,d3
  10017.  move.b d3,d6
  10018.  move.w d0,d3
  10019.  ifeq CHEESEY
  10020.  move.b (a0,d6.w*4),d3
  10021.  endc
  10022.  ifne CHEESEY
  10023.  move.b (a0,d6.w),d3
  10024.  endc
  10025.  add.w d1,d0
  10026.  add.l d2,d5
  10027.  and.l d4,d5
  10028.  move.l d5,d6
  10029.  swap d6
  10030.  move.w (a1,d3.w),(a3)+
  10031.  dbra d7,acrossscrngourD
  10032.  
  10033.  rts
  10034.  
  10035.  
  10036. ;backbeforegour:
  10037. ; and.w #63*256+63,d5
  10038. ; move.b (a0,d5.w*4),d0
  10039. ; add.l d1,d0
  10040. ; bcc.s .nomoreb
  10041. ; add.w #256,d0
  10042. ;.nomoreb:
  10043. ; add.w a4,d3
  10044. ; move.w (a1,d0.w*2),(a3)+
  10045. ; addx.l d6,d5
  10046. ; dbcs d7,acrossscrngour
  10047. ; dbcc d7,backbeforegour
  10048. ; rts
  10049. ; bra.s past1gour
  10050.  
  10051. ;acrossscrngour:
  10052. ; and.l #$3f3f,d5 
  10053. ; move.b (a0,d5.w*4),d0
  10054. ; add.l d1,d0
  10055. ; bcc.s .nomoreb
  10056. ; add.w #256,d0
  10057. ;.nomoreb:
  10058. ; add.w a4,d3
  10059. ; move.w (a1,d0.w*2),(a3)+
  10060. ; addx.l d2,d5
  10061. ; dbcs d7,acrossscrngour
  10062. ; dbcc d7,backbeforegour
  10063. ;past1gour:
  10064. ; rts
  10065.  
  10066.  move.w d4,d7
  10067.  bne.s .notdoneyet
  10068.  move.l d0,leftbright
  10069.  
  10070.  rts
  10071. .notdoneyet:
  10072.  
  10073.  cmp.w #32,d7
  10074.  ble.s .notoowide
  10075.  move.w #32,d7
  10076. .notoowide
  10077.  sub.w d7,d4  
  10078.  addq #4,a3
  10079.  
  10080. ; dbra d7,backbeforegour
  10081.  rts
  10082.  
  10083.  
  10084. gotoacrossgour:
  10085.  
  10086.  move.w d4,d7
  10087.  bne.s .notdoneyet
  10088.  rts
  10089. .notdoneyet:
  10090.  
  10091.  cmp.w #32,d7
  10092.  ble.s .notoowide
  10093.  move.w #32,d7
  10094. .notoowide
  10095.  sub.w d7,d4  
  10096.  addq #4,a3
  10097.  
  10098.  dbra d7,acrossscrngour
  10099.  rts
  10100.  
  10101.  
  10102. waterpt: dc.l waterlist
  10103.  
  10104. waterlist:
  10105.  dc.l waterfile
  10106.  dc.l waterfile+2
  10107.  dc.l waterfile+256
  10108.  dc.l waterfile+256+2
  10109.  dc.l waterfile+512
  10110.  dc.l waterfile+512+2
  10111.  dc.l waterfile+768
  10112.  dc.l waterfile+768+2
  10113. ; dc.l waterfile+768
  10114. ; dc.l waterfile+512+2
  10115. ; dc.l waterfile+512
  10116. ; dc.l waterfile+256+2
  10117. ; dc.l waterfile+256
  10118. ; dc.l waterfile+2
  10119. endwaterlist:
  10120.  
  10121. watertouse: dc.l waterfile
  10122.  
  10123. wtan: dc.w 0
  10124. wateroff: dc.l 0
  10125.  
  10126. REFLECTIONWATER:
  10127.  
  10128.  move.l d1,d4
  10129.  
  10130.  add.l wateroff,d5
  10131.  
  10132.  move.l TexturePal,a1
  10133.  add.l #256*16,a1
  10134.  move.l dst,d0
  10135.  clr.b d0
  10136.  
  10137.  add.w d0,d0
  10138.  cmp.w #12*512,d0
  10139.  blt.s .notoowater
  10140.  move.w #12*512,d0
  10141.  
  10142. .notoowater:
  10143.   
  10144.  adda.w d0,a1
  10145.  
  10146.  move.l dst,d0
  10147.  asl.w #7,d0
  10148.  add.w wtan,d0
  10149.  and.w #8191,d0
  10150.  move.l #SineTable,a0
  10151.  move.w (a0,d0.w),d0
  10152.  ext.l d0
  10153.  
  10154.  move.l dst,d3
  10155.  add.w #300,d3
  10156.  divs d3,d0
  10157.  asr.w #5,d0
  10158.  addq #4,d0
  10159.  cmp.w disttobot,d0
  10160.  blt.s oknotoffbotototr
  10161.  
  10162.  move.w disttobot,d0
  10163.  subq #1,d0
  10164.  
  10165. oknotoffbotototr
  10166.  
  10167. ; move.w dst,d3
  10168. ; asr.w #7,d3
  10169. ; add.w d3,d0
  10170.  
  10171.  muls #320,d0
  10172.  tst.w above
  10173.  beq.s nonnnnnegr
  10174.  neg.l d0
  10175.  
  10176. nonnnnnegr:
  10177.  
  10178.  move.l d0,a6
  10179.  
  10180.  move.l watertouse,a0
  10181.  
  10182. ; move.l #mixtab,a5
  10183.  
  10184.  moveq #0,d1
  10185.  
  10186.  move.w startsmoothx,d3
  10187.  dbra d7,acrossscrnwr
  10188.  rts
  10189.  
  10190. backbeforewr:
  10191.  and.w d1,d5 
  10192.  move.w (a0,d5.w*4),d0
  10193.  move.b (a3,a6.w),d0
  10194.  move.w (a1,d0.w),(a3)+
  10195.  add.w a4,d3
  10196.  addx.l d6,d5
  10197.  dbcs d7,acrossscrnwr
  10198.  dbcc d7,backbeforewr
  10199.  rts
  10200.  
  10201. acrossscrnwr:
  10202.  move.w d5,d3
  10203.  move.l d5,d6
  10204.  lsr.w #8,d3
  10205.  swap d6
  10206.  move.b d3,d6
  10207.  move.w (a0,d6.w*4),d0
  10208.  add.l d2,d5
  10209.  move.w (a4,a6.w),d1
  10210.  addq #2,a4
  10211.  move.b (a3,a6.w),d1
  10212.  move.b (a5,d1.l),d0
  10213.  and.l d4,d5
  10214.  move.w (a1,d0.w),(a3)+
  10215.  dbra d7,acrossscrnwr
  10216.  rts
  10217.  
  10218. texturedwater:
  10219.  
  10220.  move.l d1,d4
  10221.  
  10222.  add.l wateroff,d5
  10223.  
  10224.  move.l TexturePal,a1
  10225.  add.l #256*16,a1
  10226.  move.l dst,d0
  10227.  asr.l #2,d0
  10228.  clr.b d0
  10229.  
  10230.  add.w d0,d0
  10231.  cmp.w #9*512,d0
  10232.  blt.s .notoowater
  10233.  move.w #9*512,d0
  10234. .notoowater:
  10235.   
  10236.  adda.w d0,a1
  10237.  
  10238.  move.l dst,d0
  10239.  asl.w #7,d0
  10240.  add.w wtan,d0
  10241.  and.w #8191,d0
  10242.  move.l #SineTable,a0
  10243.  move.w (a0,d0.w),d0
  10244.  ext.l d0
  10245.  
  10246.  move.l dst,d3
  10247.  add.w #300,d3
  10248.  divs d3,d0
  10249.  asr.w #5,d0
  10250.  addq #4,d0
  10251.  cmp.w disttobot,d0
  10252.  blt.s oknotoffbototot
  10253.  
  10254.  move.w disttobot,d0
  10255.  subq #1,d0
  10256.  
  10257. oknotoffbototot
  10258.  
  10259. ; move.w dst,d3
  10260. ; asr.w #7,d3
  10261. ; add.w d3,d0
  10262.  
  10263.  tst.b DOUBLEHEIGHT
  10264.  beq.s .nodoub
  10265.  and.b #$fe,d0
  10266. .nodoub:
  10267.  
  10268.  muls #320,d0
  10269.  tst.w above
  10270.  beq.s nonnnnneg
  10271.  neg.l d0
  10272.  
  10273. nonnnnneg:
  10274.  
  10275.  move.l d0,a6
  10276.  
  10277.  move.l watertouse,a0
  10278.  
  10279.  move.w startsmoothx,d3
  10280.  dbra d7,acrossscrnw
  10281.  rts
  10282.  
  10283. backbeforew:
  10284.  and.w d1,d5
  10285.  move.w (a0,d5.w*4),d0
  10286.  add.w d0,d0
  10287.  move.b (a3,a6.w),d0
  10288.  move.b (a1,d0.w),(a3)+
  10289.  add.w a4,d3
  10290.  addx.l d6,d5
  10291.  dbcs d7,acrossscrnw
  10292.  dbcc d7,backbeforew
  10293.  rts
  10294.  
  10295. acrossscrnw:
  10296.  move.w d5,d3
  10297.  move.l d5,d6
  10298.  lsr.w #8,d3
  10299.  swap d6
  10300.  move.b d3,d6
  10301.  move.w (a0,d6.w*4),d0
  10302.  add.w d0,d0
  10303.  add.l d2,d5
  10304.  move.b (a3,a6.w),d0
  10305.  and.l d4,d5
  10306.  move.b (a1,d0.w),(a3)+
  10307.  dbra d7,acrossscrnw
  10308.  rts
  10309.  
  10310.  
  10311. texturedwaterDOUB:
  10312.  
  10313.  move.l d1,d4
  10314.  
  10315.  add.l wateroff,d5
  10316.  
  10317.  move.l TexturePal,a1
  10318.  add.l #256*16,a1
  10319.  move.l dst,d0
  10320.  asr.l #2,d0
  10321.  clr.b d0
  10322.  
  10323.  add.w d0,d0
  10324.  cmp.w #9*512,d0
  10325.  blt.s .notoowater
  10326.  move.w #9*512,d0
  10327. .notoowater:
  10328.   
  10329.  adda.w d0,a1
  10330.  
  10331.  move.l dst,d0
  10332.  asl.w #7,d0
  10333.  add.w wtan,d0
  10334.  and.w #8191,d0
  10335.  move.l #SineTable,a0
  10336.  move.w (a0,d0.w),d0
  10337.  ext.l d0
  10338.  
  10339.  move.l dst,d3
  10340.  add.w #300,d3
  10341.  divs d3,d0
  10342.  asr.w #5,d0
  10343.  addq #4,d0
  10344.  cmp.w disttobot,d0
  10345.  blt.s .oknotoffbototot
  10346.  
  10347.  move.w disttobot,d0
  10348.  subq #1,d0
  10349.  
  10350. .oknotoffbototot
  10351.  
  10352. ; move.w dst,d3
  10353. ; asr.w #7,d3
  10354. ; add.w d3,d0
  10355.  
  10356.  tst.b DOUBLEHEIGHT
  10357.  beq.s .nodoub
  10358.  and.b #$fe,d0
  10359. .nodoub:
  10360.  
  10361.  muls #320,d0
  10362.  tst.w above
  10363.  beq.s .nonnnnneg
  10364.  neg.l d0
  10365.  
  10366. .nonnnnneg:
  10367.  
  10368.  move.l d0,a6
  10369.  
  10370.  move.l watertouse,a0
  10371.  
  10372.  add.l d2,d2
  10373.  
  10374.  move.w startsmoothx,d3
  10375.  dbra d7,acrossscrnwD
  10376.  rts
  10377.  
  10378.  
  10379. acrossscrnwD:
  10380.  move.w d5,d3
  10381.  move.l d5,d6
  10382.  lsr.w #8,d3
  10383.  swap d6
  10384.  move.b d3,d6
  10385.  move.w (a0,d6.w*4),d0
  10386.  add.w d0,d0
  10387.  add.l d2,d5
  10388.  move.b (a3,a6.w),d0
  10389.  and.l d4,d5
  10390.  move.w (a1,d0.w),(a3)+
  10391.  dbra d7,acrossscrnwD
  10392.  rts
  10393.  
  10394.  
  10395. usewater: dc.w 0
  10396.  dc.w 0
  10397. startsmoothx: dc.w 0
  10398.  dc.w 0
  10399. startsmoothz: dc.w 0
  10400.  
  10401. ********************************
  10402. *
  10403.  include "AB3:source_4000/ObjDrawHIRES.s"
  10404. *
  10405. ********************************
  10406.  
  10407. numframes:
  10408.  dc.w 0
  10409.  
  10410. alframe: dc.l 0
  10411.  
  10412. alan:
  10413.  dcb.l 8,0
  10414.  dcb.l 8,1
  10415.  dcb.l 8,2
  10416.  dcb.l 8,3
  10417. endalan:
  10418.  
  10419. alanptr: dc.l alan
  10420.  
  10421. Time2: dc.l 0
  10422. dispco:
  10423.  dc.w 0
  10424.  
  10425.  
  10426. key_interrupt:
  10427.         movem.l    d0-d7/a0-a6,-(sp)
  10428.  
  10429. ;        move.w    INTREQR,d0
  10430. ;        btst    #3,d0
  10431. ;        beq    .not_key
  10432.  
  10433.         move.b    $bfdd00,d0
  10434.         btst    #0,d0
  10435.         bne    .key_cont
  10436. ;        move.b    $bfed01,d0
  10437. ;        btst    #0,d0
  10438. ;        bne    .key_cont
  10439.     
  10440. ;        btst    #3,d0
  10441. ;        beq    .key_cont
  10442.  
  10443.         move.b    $bfec01,d0
  10444.         clr.b    $bfec01
  10445.  
  10446.         tst.b    d0
  10447.         beq    .key_cont
  10448.  
  10449. ;        bset    #6,$bfee01
  10450. ;        move.b    #$f0,$bfe401
  10451. ;        move.b    #$00,$bfe501
  10452. ;        bset    #0,$bfee01
  10453.  
  10454.  
  10455.         not.b    d0
  10456.         ror.b    #1,d0
  10457.         lea.l    KeyMap,a0
  10458.         tst.b    d0
  10459.         bmi.b    .key_up
  10460.         and.w    #$7f,d0
  10461. ;        add.w    #1,d0
  10462.         move.b    #$ff,(a0,d0.w)
  10463.         move.b    d0,lastpressed
  10464.  
  10465.         bra.b    .key_cont2
  10466. .key_up:
  10467.         and.w    #$7f,d0
  10468. ;        add.w    #1,d0
  10469.         move.b    #$00,(a0,d0.w)
  10470.  
  10471. .key_cont2
  10472. ;        btst    #0,$bfed01
  10473. ;        beq    .key_cont2
  10474. ;        move.b    #%00000000,$bfee01
  10475. ;        move.b    #%10001000,$bfed01
  10476.  
  10477. ;alt keys should not be independent so overlay ralt on lalt
  10478.  
  10479.         
  10480. .key_cont
  10481.  
  10482. ;        move.w    #$0008,INTREQ
  10483. .not_key:    ;lea.l    $dff000,a5
  10484.  
  10485. ;        lea.l    _keypressed(pc),a0
  10486. ;        move.b    101(a0),d0    ;read LALT
  10487. ;        or.b    102(a0),d0    ;blend it with RALT
  10488. ;        move.b    d0,127(a0)    ;save in combined position
  10489.  
  10490.         movem.l    (sp)+,d0-d7/a0-a6
  10491.  
  10492.         rts
  10493.  
  10494. lastpressed:    dc.b 0
  10495. KInt_CCode    Ds.b    1
  10496. KInt_Askey    Ds.b    1
  10497. KInt_OCode    Ds.w    1
  10498.  
  10499.  
  10500. OldSpace: dc.b 0
  10501. SpaceTapped: dc.b 0
  10502. PLR1_SPCTAP: dc.b 0
  10503. PLR2_SPCTAP: dc.b 0
  10504. PLR1_Ducked: dc.b 0
  10505. PLR2_Ducked: dc.b 0
  10506.  even
  10507.  
  10508.  include "ab3:source_4000/PLR1CONTROL.s"
  10509.  include "ab3:source_4000/PLR2CONTROL.s"
  10510.  include "ab3:source_4000/FALL.s"
  10511.  
  10512.  
  10513.  
  10514. *******************************************8
  10515.  
  10516. SENDMESSAGE:
  10517.  
  10518.  move.l a1,-(a7)
  10519.  
  10520.  move.l MESSPTR,a1
  10521.  move.l d0,(a1)+
  10522.  cmp.l #ENDMESSBUFF,a1
  10523.  blt.s .okinbuff
  10524.  move.l #MESSAGEBUFFER,a1
  10525. .okinbuff:
  10526.  move.l a1,MESSPTR
  10527.  move.l a1,LASTMESSPTR
  10528.  
  10529.  move.l d0,SCROLLPOINTER
  10530.  move.w #0,SCROLLXPOS
  10531.  add.l #160,d0
  10532.  move.l d0,ENDSCROLL
  10533.  move.w #40,SCROLLTIMER
  10534.  
  10535.  move.l (a7)+,a1
  10536.  rts
  10537.  
  10538. RETRIEVEPREVMESSAGE:
  10539.  
  10540.  move.l LASTMESSPTR,a1
  10541.  cmp.l #MESSAGEBUFFER,a1
  10542.  bgt.s .okinbuff
  10543.  
  10544.  move.l #ENDMESSBUFF,a1
  10545.  
  10546. .okinbuff:
  10547.  
  10548.  move.l -(a1),d0
  10549.  beq.s .nomessage
  10550.  
  10551.  move.l d0,SCROLLPOINTER
  10552.  move.w #0,SCROLLXPOS
  10553.  add.l #160,d0
  10554.  move.l d0,ENDSCROLL
  10555.  move.w #40,SCROLLTIMER
  10556.  
  10557. .nomessage:
  10558.  
  10559.  rts
  10560.  
  10561. MESSAGEBUFFER:
  10562.  ds.l 20
  10563. ENDMESSBUFF:
  10564.  
  10565. MESSPTR: dc.l MESSAGEBUFFER
  10566. LASTMESSPTR: dc.l MESSAGEBUFFER
  10567.  
  10568. **********************************************
  10569.  
  10570.  
  10571.  
  10572. prot7: dc.w 0
  10573.  
  10574. GOTTOSEND: dc.w 0
  10575.  
  10576. COUNTER: dc.w 0
  10577. COUNTER2: dc.w 0
  10578. COUNTSPACE: ds.b 160
  10579.  
  10580. OtherInter:
  10581.  move.w #$0010,$dff000+intreq
  10582.  movem.l d0-d7/a0-a6,-(a7)
  10583.  bra justshake
  10584.  
  10585.     cnop 0,4
  10586.  
  10587. Chan0inter:
  10588.  
  10589.     SAVEREGS
  10590.     jsr    .routine
  10591.     GETREGS
  10592.  
  10593. ;    move.w    #1024+'.',$dff030
  10594.     
  10595.     moveq #1,d0
  10596.     rts
  10597.  
  10598. .routine
  10599.  
  10600.     
  10601. ;w move.w #$0010,$dff000+intreq
  10602.  
  10603.  tst.b doanything
  10604.  bne dosomething
  10605.  
  10606.  movem.l d0-d7/a0-a6,-(a7)
  10607.  bra JUSTSOUNDS
  10608.  
  10609.  rts
  10610.  
  10611. tabheld: dc.w 0
  10612. ObjWork: ds.l 512
  10613. WORKPTR: dc.l 0
  10614. thistime: dc.w 0
  10615.  
  10616. DOALLANIMS:
  10617.  
  10618.  sub.b #1,thistime
  10619.  ble.s .okdosome
  10620.  rts
  10621.  
  10622. .okdosome:
  10623.  move.b #5,thistime
  10624.  
  10625.  
  10626.  move.l #ObjWork,a5
  10627.  move.l ObjectData,a0
  10628. Objectloop2:
  10629.  tst.w (a0)
  10630.  blt doneallobj2
  10631.  move.w 12(a0),d0
  10632.  blt doneobj2
  10633.  move.w d0,GraphicRoom(a0)
  10634.  tst.b worry(a0)
  10635.  beq.s doneobj2
  10636.  
  10637.  move.b 16(a0),d0
  10638.  cmp.b #1,d0
  10639.  blt JUMPALIENANIM
  10640. ; beq JUMPOBJECTANIM
  10641. ; cmp.b #2,d0
  10642. ; beq JUMPBULLET
  10643.  
  10644. doneobj2:
  10645.  
  10646.  adda.w #64,a0
  10647.  addq #8,a5
  10648.  bra Objectloop2
  10649.  
  10650. doneallobj2:
  10651.  rts
  10652.  
  10653. JUMPALIENANIM:
  10654.  
  10655.  moveq #0,d0
  10656.  move.b WhichAnim(a0),d0
  10657. ; 0=walking
  10658. ; 1=attacking
  10659. ; 2=getting hit
  10660. ; 3=dying
  10661.  
  10662.  cmp.b #1,d0
  10663.  blt.s ALWALK
  10664.  beq.s ALATTACK
  10665.  
  10666.  cmp.b #3,d0
  10667.  blt ALGETHIT
  10668.  beq ALDIE
  10669.  
  10670.  bra doneobj2
  10671.  
  10672. ALDIE
  10673.  move.l #10,d0
  10674.  bra intowalk
  10675.  
  10676. ALGETHIT:
  10677.  move.l #9,d0
  10678.  bra intowalk
  10679.  
  10680. ALATTACK:
  10681.  move.l #8,d0
  10682.  bra intowalk
  10683.  
  10684. AUXOBJ: dc.w 0
  10685.  
  10686. ALWALK:
  10687.  
  10688. ; jsr ViewpointToDraw
  10689. ; add.l d0,d0
  10690. ; 
  10691. ; move.l LINKFILE,a6
  10692. ; add.l #AlienStats,a6
  10693. ; moveq #0,d1
  10694. ; move.b TypeOfThing(a0),d1
  10695. ; muls #AlienStatLen,d1
  10696. ; add.l d1,a6
  10697. ; cmp.w #1,A_GFXType(a6)
  10698. ; bne.s NOSIDES2
  10699.  
  10700.  moveq #0,d0
  10701. intowalk:
  10702.  
  10703. NOSIDES2:
  10704.  
  10705.  move.b d0,2(a5)
  10706.  move.l LINKFILE,a6
  10707.  
  10708.  add.l #AlienAnimData,a6
  10709.  
  10710.  moveq #0,d1
  10711.  move.b TypeOfThing(a0),d1
  10712.  move.w .valtables+4(pc,d1.w*8),d1
  10713. ; muls #A_AnimLen,d1
  10714.  add.l d1,a6
  10715.  
  10716. ; move.l ANIMPOINTER,a6
  10717.  
  10718. ; muls #A_OptLen,d0
  10719.  move.w .valtables+2(pc,d0.w*8),d0
  10720.  add.w d0,a6
  10721.  
  10722.  move.w SecTimer(a0),d1
  10723.  move.w d1,d2
  10724. ; muls #A_FrameLen,d1
  10725.  move.w .valtables(pc,d1.w*8),d1
  10726.  
  10727.  moveq #0,d0
  10728.  move.b 5(a6,d1.w),d0
  10729.  beq.s .nosoundmake
  10730.  
  10731.  movem.l d0-d7/a0-a6,-(a7)
  10732.  subq #1,d0
  10733.  move.w d0,Samplenum
  10734.  clr.b notifplaying
  10735.  move.b 1(a0),IDNUM
  10736.  move.w #80,Noisevol
  10737.  move.l #ObjRotated,a1
  10738.  move.w (a0),d0
  10739.  lea (a1,d0.w*8),a1
  10740.  move.l (a1),Noisex
  10741.  jsr MakeSomeNoise
  10742.  movem.l (a7)+,d0-d7/a0-a6
  10743. .nosoundmake
  10744.  
  10745.  move.b 6(a6,d1.w),d0
  10746.  beq.s .noaction
  10747.  add.b #1,(a5)
  10748.  move.b d2,1(a5)
  10749. .noaction
  10750.  
  10751.  addq #1,d2
  10752.  
  10753.  moveq #0,d0
  10754.  move.b 7(a6,d1.w),d0
  10755.  beq .nospecial
  10756.  bra .special
  10757.  
  10758. .valtables:
  10759. val SET 0
  10760.  REPT 20
  10761.  dc.w A_FrameLen*val,A_OptLen*val
  10762.  dc.w A_AnimLen*val,0
  10763. val SET val+1
  10764.  ENDR
  10765.  
  10766. .special
  10767.  move.b d0,d3
  10768.  and.w #63,d3
  10769.  lsr.w #6,d0
  10770.  cmp.w #2,d0
  10771.  blt.s .storeval
  10772.  beq.s .randval
  10773.  
  10774.  sub.b #1,4(a5)
  10775.  beq.s .nospecial
  10776.  
  10777.  move.w d3,d2
  10778.  bra.s .nospecial
  10779.  
  10780. .randval:
  10781.  jsr GetRand
  10782.  divs d3,d0
  10783.  swap d0
  10784.  move.w d0,d3
  10785.  
  10786. .storeval:
  10787.  move.b d3,4(a5)
  10788. .nospecial:
  10789.  
  10790. ; move.w d2,d3
  10791.  move.w .valtables2(pc,d2.w*8),d3
  10792. ; muls #A_FrameLen,d3
  10793.  tst.b (a6,d3.w)
  10794.  bge.s .noendanim
  10795.  st 3(a5)
  10796.  move.w #0,d2
  10797. .noendanim
  10798.  move.w d2,SecTimer(a0)
  10799.  
  10800.  bra doneobj2
  10801.  
  10802. .valtables2:
  10803. val SET 0
  10804.  REPT 20
  10805.  dc.w A_FrameLen*val,A_OptLen*val
  10806.  dc.w A_AnimLen*val,0
  10807. val SET val+1
  10808.  ENDR
  10809.  
  10810.  
  10811. JUMPOBJECTANIM:
  10812.  bra doneobj2
  10813.  
  10814. timetodamage: dc.w 0
  10815. SAVESAVE: dc.w 0
  10816.  
  10817. dosomething:
  10818.  
  10819.  
  10820.  
  10821.  addq.w #1,FramesToDraw
  10822.  movem.l d0-d7/a0-a6,-(a7)
  10823.  
  10824.  jsr NARRATOR
  10825.  
  10826.  bsr DOALLANIMS
  10827.  
  10828.  sub.w #1,timetodamage
  10829.  bgt.s .nodam
  10830.  
  10831.  move.w #100,timetodamage
  10832.  
  10833.  move.l PLR1_Roompt,a0
  10834.  move.w ToFloorNoise(a0),d0
  10835.  tst.b PLR1_StoodInTop
  10836.  beq.s .okinbot
  10837.  move.w ToUpperFloorNoise(a0),d0
  10838. .okinbot:
  10839.  
  10840.  move.l LINKFILE,a0
  10841.  add.l #FloorData,a0
  10842.  move.w (a0,d0.w*4),d0    ; damage. 
  10843.  move.l PLR1_Obj,a0
  10844.  add.b d0,damagetaken(a0)
  10845.  
  10846.  move.l PLR2_Roompt,a0
  10847.  move.w ToFloorNoise(a0),d0
  10848.  tst.b PLR2_StoodInTop
  10849.  beq.s .okinbot2
  10850.  move.w ToUpperFloorNoise(a0),d0
  10851. .okinbot2:
  10852.  
  10853.  move.l LINKFILE,a0
  10854.  add.l #FloorData,a0
  10855.  move.w (a0,d0.w*4),d0    ; damage. 
  10856.  
  10857.  move.l PLR2_Obj,a0
  10858.  add.b d0,damagetaken(a0)
  10859.  
  10860. .nodam:
  10861.  
  10862.  move.l #KeyMap,a5
  10863.  
  10864.  tst.b 82(a5)    ;f3
  10865.  beq notogglesound
  10866.  
  10867.  tst.b lasttogsound
  10868.  bne notogglesound2
  10869.  
  10870.  st lasttogsound
  10871.  
  10872.  move.w TOPPOPT,d0
  10873.  addq #1,d0
  10874.  and.w #3,d0
  10875.  move.w d0,TOPPOPT
  10876.  move.b STEROPT(pc,d0.w*2),STEREO
  10877.  
  10878.  
  10879.  move.b STEROPT+1(pc,d0.w*2),d1
  10880.  muls #160,d0
  10881.  add.l #SOUNDOPTSTEXT,d0
  10882.  jsr SENDMESSAGE
  10883.  
  10884.  
  10885.  move.b d1,Prefsfile+1
  10886.  
  10887.  bra pastster
  10888.  
  10889.  STEROPT:
  10890.  dc.b 0,4
  10891.  dc.b $FF,4
  10892.  dc.b 0,8
  10893.  dc.b $ff,8
  10894.  
  10895. lasttogsound: dc.w 0
  10896.  
  10897. SOUNDOPTSTEXT:
  10898. ;      1234567890123456789012345678901234567890
  10899.  dc.b "Four Channel Mono Selected              "
  10900.  dc.b "                                        "
  10901.  dc.b "                                        "
  10902.  dc.b "                                        "
  10903.  
  10904.  dc.b "Four Channel Stereo Selected            "
  10905.  dc.b "                                        "
  10906.  dc.b "                                        "
  10907.  dc.b "                                        "
  10908.  
  10909.  dc.b "Eight Channel Mono Selected             "
  10910.  dc.b "                                        "
  10911.  dc.b "                                        "
  10912.  dc.b "                                        "
  10913.  
  10914.  dc.b "Eight Channel Stereo Selected           "
  10915.  dc.b "                                        "
  10916.  dc.b "                                        "
  10917.  dc.b "                                        "
  10918.  
  10919. LIGHTING: dc.w $FFff
  10920. OLDLTOG: dc.w 0
  10921.  
  10922. pastster:
  10923.  
  10924.  cmp.b #'4',d1
  10925.  seq.s CHANNELDATA+8
  10926.  seq.s CHANNELDATA+12
  10927.  seq.s CHANNELDATA+24
  10928.  seq.s CHANNELDATA+28
  10929.  
  10930.  move.w #$f,$dff000+dmacon
  10931.  move.l #null,$dff0a0
  10932.  move.w #100,$dff0a4
  10933.  move.w #443,$dff0a6
  10934.  move.w #63,$dff0a8
  10935.  
  10936.  move.l #null2,$dff0b0
  10937.  move.w #100,$dff0b4
  10938.  move.w #443,$dff0b6
  10939.  move.w #63,$dff0b8
  10940.  
  10941.  move.l #null4,$dff0c0
  10942.  move.w #100,$dff0c4
  10943.  move.w #443,$dff0c6
  10944.  move.w #63,$dff0c8
  10945.  
  10946.  move.l #null3,$dff0d0
  10947.  move.w #100,$dff0d4
  10948.  move.w #443,$dff0d6
  10949.  move.w #63,$dff0d8
  10950.  
  10951.  move.w #$820f,$dff000+dmacon
  10952.  
  10953.  bra notogglesound2
  10954.  
  10955. Prefsfile:
  10956.  dc.b 'k4nx'
  10957.  
  10958. notogglesound:
  10959.  clr.b lasttogsound
  10960. notogglesound2:
  10961.  
  10962.  
  10963.  tst.b 83(a5)
  10964.  beq nolighttoggle
  10965.  tst.b OLDLTOG
  10966.  bne nolighttoggle2
  10967.  st OLDLTOG
  10968.  
  10969.  move.l #LIGHTINGTEXT,d0
  10970.  not.b LIGHTING
  10971.  beq.s .noon
  10972.  add.l #160,d0
  10973. .noon:
  10974.  bra pastlighttext
  10975.  
  10976. LIGHTINGTEXT:
  10977.  dc.b "Lighting Effects Deactivated            "
  10978.  dc.b "                                        "
  10979.  dc.b "                                        "
  10980.  dc.b "                                        "
  10981.  
  10982.  dc.b "Lighting Effects Activated              "
  10983.  dc.b "                                        "
  10984.  dc.b "                                        "
  10985.  dc.b "                                        "
  10986.  
  10987. OLDRET: dc.w 0
  10988. OLDCENT: dc.w 0
  10989. OLDGOOD: dc.w 0
  10990.  
  10991. GOODRENDERTXT:
  10992.  dc.b "Rendering Quality : High                "
  10993.  dc.b "                                        "
  10994.  dc.b "                                        "
  10995.  dc.b "                                        "
  10996. BADRENDERTXT:
  10997.  dc.b "Rendering Quality : Reduced             "
  10998.  dc.b "                                        "
  10999.  dc.b "                                        "
  11000.  dc.b "                                        "
  11001.  
  11002. pastlighttext:
  11003.  
  11004.  jsr SENDMESSAGE
  11005.  
  11006. ; move.l d0,SCROLLPOINTER
  11007. ; move.w #0,SCROLLXPOS
  11008. ; add.l #160,d0
  11009. ; move.l d0,ENDSCROLL
  11010. ; move.w #40,SCROLLTIMER 
  11011.  
  11012.  bra nolighttoggle2
  11013.  
  11014. nolighttoggle:
  11015.  clr.b OLDLTOG
  11016. nolighttoggle2:
  11017.  
  11018.  
  11019.  tst.b 84(a5)
  11020.  beq.s noret
  11021.  tst.b OLDRET
  11022.  bne.s noret2
  11023.  st OLDRET
  11024.  
  11025.  jsr RETRIEVEPREVMESSAGE
  11026.  
  11027.  bra noret2
  11028.  
  11029. noret
  11030.  clr.b OLDRET
  11031. noret2:
  11032.  
  11033.  tst.b 85(a5)
  11034.  beq.s .nogood
  11035.  tst.b OLDGOOD
  11036.  bne.s .nogood2
  11037.  st OLDGOOD
  11038.  
  11039.  move.l #GOODRENDERTXT,d0
  11040.  not.b GOODRENDER
  11041.  bne.s .okgood
  11042.  move.l #BADRENDERTXT,d0
  11043. .okgood:
  11044.  
  11045.  jsr SENDMESSAGE
  11046.  
  11047.  bra .nogood2
  11048.  
  11049. .nogood
  11050.  clr.b OLDGOOD
  11051. .nogood2:
  11052.  
  11053.  
  11054.  tst.b $42(a5)
  11055.  bne.s .tabprsd
  11056.  clr.b tabheld
  11057.  bra.s .noswitch
  11058.  
  11059. .tabprsd:
  11060.  tst.b tabheld
  11061.  bne.s .noswitch
  11062.  not.b MAPON
  11063.  st tabheld
  11064. .noswitch
  11065.  
  11066.  tst.b $3e(a5)
  11067.  sne d0
  11068.  tst.b $1e(a5)
  11069.  sne d1
  11070.  tst.b $2d(a5)
  11071.  sne d2
  11072.  tst.b $2f(a5)
  11073.  sne d3
  11074.  
  11075.  tst.b $3d(a5)
  11076.  sne d4
  11077.  tst.b $3f(a5)
  11078.  sne d5
  11079.  tst.b $1d(a5)
  11080.  sne d6
  11081.  tst.b $1f(a5)
  11082.  sne d7
  11083.  
  11084.  or.b d4,d0
  11085.  or.b d5,d0
  11086.  or.b d6,d1
  11087.  or.b d7,d1
  11088.  or.b d4,d2
  11089.  or.b d6,d2
  11090.  or.b d7,d3
  11091.  or.b d5,d3
  11092.  
  11093.  move.w MAPBRIGHT,d4
  11094.  add.w #2,d4
  11095.  clr.l d5
  11096.  bset d4,d5
  11097.  
  11098.  tst.b d0
  11099.  beq.s .nomapup
  11100.  sub.w d5,mapzoff
  11101. .nomapup 
  11102.  
  11103.  tst.b d1
  11104.  beq.s .nomapdown
  11105.  add.w d5,mapzoff
  11106. .nomapdown 
  11107.  
  11108.  tst.b d2
  11109.  beq.s .nomapleft
  11110.  add.w d5,mapxoff
  11111. .nomapleft 
  11112.  
  11113.  tst.b d3
  11114.  beq.s .nomapright
  11115.  sub.w d5,mapxoff
  11116. .nomapright 
  11117.  
  11118.  tst.b $2e(a5)
  11119.  beq.s .nomapcentre
  11120.  
  11121.  move.w #0,mapxoff
  11122.  move.w #0,mapzoff
  11123.  
  11124. .nomapcentre
  11125.  
  11126. ; move.w STOPOFFSET,d0
  11127. ; tst.b 27(a5)
  11128. ; beq.s .nolookup
  11129. ; sub.w #5,d0
  11130. ; cmp.w #-80,d0
  11131. ; bgt.s .nolookup
  11132. ; move.w #-80,d0
  11133. ;.nolookup:
  11134. ; tst.b 42(a5)
  11135. ; beq.s .nolookdown
  11136. ; add.w #5,d0
  11137. ; cmp.w #80,d0
  11138. ; blt.s .nolookdown
  11139. ; move.w #80,d0
  11140. ;.nolookdown:
  11141. ;
  11142. ; move.w d0,STOPOFFSET
  11143. ; neg.w d0
  11144. ; add.w #120,d0
  11145. ; move.w d0,SMIDDLEY
  11146. ; muls #320*2,d0
  11147. ; move.l d0,SBIGMIDDLEY
  11148.  
  11149.  
  11150. ; jsr INITREC
  11151. ; jsr RECEIVE
  11152.  
  11153. ; tst.l BUFFER
  11154. ; beq.s justshake
  11155. ; st GOTTOSEND
  11156. ; move.l #OtherInter,$6c
  11157.  
  11158. justshake:
  11159.  
  11160.  cmp.b #'b',Prefsfile+3
  11161.  bne.s .noback
  11162.  jsr mt_music
  11163. .noback:
  11164.  
  11165.  bra dontshowtime
  11166.  
  11167.  tst.b oktodisplay
  11168.  beq dontshowtime
  11169.  clr.b oktodisplay
  11170.  subq.w #1,dispco
  11171.  bgt dontshowtime
  11172.  move.w #10,dispco
  11173.  
  11174.  move.l #TimerScr+10,a0
  11175.  move.l TimeCount,d0
  11176.  bge.s timenotneg
  11177.  move.l #1111*256,d0
  11178. timenotneg:
  11179.  asr.l #8,d0
  11180.  move.l #digits,a1
  11181.  move.w #7,d2
  11182. digitlop
  11183.  divs #10,d0
  11184.  swap d0
  11185.  lea (a1,d0.w*8),a2
  11186.  move.b (a2)+,(a0)
  11187.  move.b (a2)+,24(a0)
  11188.  move.b (a2)+,24*2(a0)
  11189.  move.b (a2)+,24*3(a0)
  11190.  move.b (a2)+,24*4(a0)
  11191.  move.b (a2)+,24*5(a0)
  11192.  move.b (a2)+,24*6(a0)
  11193.  move.b (a2)+,24*7(a0)
  11194.  subq #1,a0
  11195.  swap d0
  11196.  ext.l d0
  11197.  dbra d2,digitlop
  11198.  
  11199.  move.l #TimerScr+10+24*10,a0
  11200.  move.l NumTimes,d0
  11201.  move.l #digits,a1
  11202.  move.w #3,d2
  11203. digitlop2
  11204.  divs #10,d0
  11205.  swap d0
  11206.  lea (a1,d0.w*8),a2
  11207.  move.b (a2)+,(a0)
  11208.  move.b (a2)+,24(a0)
  11209.  move.b (a2)+,24*2(a0)
  11210.  move.b (a2)+,24*3(a0)
  11211.  move.b (a2)+,24*4(a0)
  11212.  move.b (a2)+,24*5(a0)
  11213.  move.b (a2)+,24*6(a0)
  11214.  move.b (a2)+,24*7(a0)
  11215.  subq #1,a0
  11216.  swap d0
  11217.  ext.l d0
  11218.  dbra d2,digitlop2
  11219.  
  11220.  move.l #TimerScr+10+24*20,a0
  11221.  moveq #0,d0
  11222.  move.w FramesToDraw,d0
  11223.  move.l #digits,a1
  11224.  move.w #2,d2
  11225. digitlop3
  11226.  divs #10,d0
  11227.  swap d0
  11228.  lea (a1,d0.w*8),a2
  11229.  move.b (a2)+,(a0)
  11230.  move.b (a2)+,24(a0)
  11231.  move.b (a2)+,24*2(a0)
  11232.  move.b (a2)+,24*3(a0)
  11233.  move.b (a2)+,24*4(a0)
  11234.  move.b (a2)+,24*5(a0)
  11235.  move.b (a2)+,24*6(a0)
  11236.  move.b (a2)+,24*7(a0)
  11237.  subq #1,a0
  11238.  swap d0
  11239.  ext.l d0
  11240.  dbra d2,digitlop3
  11241.  
  11242. dontshowtime:
  11243.  
  11244.  
  11245.  move.l alanptr,a0
  11246.  move.l (a0)+,alframe
  11247.  cmp.l #endalan,a0
  11248.  blt.s nostartalan
  11249.  move.l #alan,a0
  11250. nostartalan:
  11251.  move.l a0,alanptr
  11252.  
  11253.  
  11254.  tst.b READCONTROLS
  11255.  beq nocontrols
  11256.  
  11257.  cmp.b #'s',mors
  11258.  beq control2
  11259.  
  11260.  tst.w PLAYERONEHEALTH
  11261.  bgt .propercontrol
  11262.  
  11263.  move.l #7*2116,hitcol
  11264.  move.l #PLR1_Obj,a0
  11265.  move.w #-1,12+128(a0)
  11266.  
  11267.  clr.b PLR1_fire
  11268.  clr.b PLR1_clicked
  11269.  move.w #0,ADDTOBOBBLE
  11270.  move.l #playercrouched,PLR1s_height
  11271.  move.w #-80,d0
  11272.  move.w d0,STOPOFFSET
  11273.  neg.w d0
  11274.  add.w TOTHEMIDDLE,d0
  11275.  move.w d0,SMIDDLEY
  11276.  muls #320,d0
  11277.  move.l d0,SBIGMIDDLEY
  11278.  jsr PLR1_fall
  11279.  
  11280.  move.l PLR1s_xspdval,d6
  11281.  move.l PLR1s_zspdval,d7
  11282.  
  11283.  tst.b SLOWDOWN
  11284.  beq.s .nofriction
  11285.  
  11286.  neg.l d6
  11287.  ble.s .nobug1
  11288.  asr.l #3,d6
  11289.  add.l #1,d6
  11290.  bra.s .bug1
  11291. .nobug1
  11292.  asr.l #3,d6
  11293. .bug1:
  11294.  
  11295.  neg.l d7
  11296.  ble.s .nobug2
  11297.  asr.l #3,d7
  11298.  add.l #1,d7
  11299.  bra.s .bug2
  11300. .nobug2
  11301.  asr.l #3,d7
  11302. .bug2: 
  11303.  
  11304.  add.l d6,PLR1s_xspdval
  11305.  add.l d7,PLR1s_zspdval
  11306.  
  11307. .nofriction:
  11308.  move.l PLR1s_xspdval,d6
  11309.  move.l PLR1s_zspdval,d7
  11310.  add.l d6,PLR1s_xoff
  11311.  add.l d7,PLR1s_zoff
  11312.  
  11313.  move.w PLR1s_angspd,d3
  11314.  tst.b SLOWDOWN
  11315.  beq.s .nofric
  11316.  asr.w #2,d3
  11317.  bge.s .nneg
  11318.  addq #1,d3
  11319. .nneg:
  11320. .nofric:
  11321.  
  11322.  move.w d3,PLR1s_angspd
  11323.  add.w d3,PLR1s_angpos
  11324.  add.w d3,PLR1s_angpos
  11325.  and.w #8190,PLR1s_angpos
  11326.  
  11327.  bra nocontrols
  11328.  
  11329. .propercontrol:
  11330.  
  11331.  tst.b PLR1MOUSE
  11332.  beq.s PLR1_nomouse
  11333.  bsr PLR1_mouse_control
  11334. PLR1_nomouse:
  11335.  tst.b PLR1KEYS
  11336.  beq.s PLR1_nokeys
  11337.  bsr PLR1_keyboard_control
  11338. PLR1_nokeys:
  11339. ; tst.b PLR1PATH
  11340. ; beq.s PLR1_nopath
  11341. ; bsr PLR1_follow_path
  11342. ;PLR1_nopath:
  11343.  tst.b PLR1JOY
  11344.  beq.s PLR1_nojoy
  11345.  bsr PLR1_JoyStick_control
  11346. PLR1_nojoy: 
  11347.  bra nocontrols
  11348.  
  11349. control2:
  11350.  
  11351.  tst.w PLAYERTWOHEALTH
  11352.  bgt .propercontrol
  11353.  
  11354.  move.l #7*2116,hitcol
  11355.  move.l #PLR1_Obj,a0
  11356.  move.w #-1,12+128(a0)
  11357.  clr.b PLR2_fire
  11358.  move.w #0,ADDTOBOBBLE
  11359.  move.l #playercrouched,PLR2s_height
  11360.  move.w #-80,d0
  11361.  move.w d0,STOPOFFSET
  11362.  neg.w d0
  11363.  add.w TOTHEMIDDLE,d0
  11364.  move.w d0,SMIDDLEY
  11365.  muls #320,d0
  11366.  move.l d0,SBIGMIDDLEY
  11367.  jsr PLR2_fall
  11368.  
  11369.  move.l PLR2s_xspdval,d6
  11370.  move.l PLR2s_zspdval,d7
  11371.  
  11372.  tst.b SLOWDOWN
  11373.  beq.s .nofriction
  11374.  
  11375.  neg.l d6
  11376.  ble.s .nobug1
  11377.  asr.l #3,d6
  11378.  add.l #1,d6
  11379.  bra.s .bug1
  11380. .nobug1
  11381.  asr.l #3,d6
  11382. .bug1:
  11383.  
  11384.  neg.l d7
  11385.  ble.s .nobug2
  11386.  asr.l #3,d7
  11387.  add.l #1,d7
  11388.  bra.s .bug2
  11389. .nobug2
  11390.  asr.l #3,d7
  11391. .bug2: 
  11392.  
  11393.  add.l d6,PLR2s_xspdval
  11394.  add.l d7,PLR2s_zspdval
  11395.  
  11396. .nofriction:
  11397.  move.l PLR2s_xspdval,d6
  11398.  move.l PLR2s_zspdval,d7
  11399.  add.l d6,PLR2s_xoff
  11400.  add.l d7,PLR2s_zoff
  11401.  
  11402.  move.w PLR2s_angspd,d3
  11403.  tst.b SLOWDOWN
  11404.  beq.s .nofric
  11405.  asr.w #2,d3
  11406.  bge.s .nneg
  11407.  addq #1,d3
  11408. .nneg:
  11409. .nofric:
  11410.  
  11411.  move.w d3,PLR2s_angspd
  11412.  add.w d3,PLR2s_angpos
  11413.  add.w d3,PLR2s_angpos
  11414.  and.w #8190,PLR2s_angpos
  11415.  
  11416.  bra.s nocontrols
  11417.  
  11418. .propercontrol:
  11419.  tst.b PLR2MOUSE
  11420.  beq.s PLR2_nomouse
  11421.  bsr PLR2_mouse_control
  11422. PLR2_nomouse:
  11423.  tst.b PLR2KEYS
  11424.  beq.s PLR2_nokeys
  11425.  bsr PLR2_keyboard_control
  11426. PLR2_nokeys:
  11427. ; tst.b PLR2PATH
  11428. ; beq.s PLR2_nopath
  11429. ; bsr PLR1_follow_path
  11430. ;PLR2_nopath:
  11431.  tst.b PLR2JOY
  11432.  beq.s PLR2_nojoy
  11433.  bsr PLR2_JoyStick_control
  11434. PLR2_nojoy: 
  11435.  
  11436.  
  11437. nocontrols:
  11438.  
  11439.  move.l #$dff000,a6
  11440.  
  11441.  cmp.b #'4',Prefsfile+1
  11442.  bne.s nomuckabout
  11443.  
  11444.  move.w #$0,d0 
  11445.  tst.b NoiseMade0LEFT
  11446.  beq.s noturnoff0
  11447.  move.w #1,d0
  11448. noturnoff0:
  11449.  tst.b NoiseMade0RIGHT
  11450.  beq.s noturnoff1
  11451.  or.w #2,d0
  11452. noturnoff1:
  11453.  tst.b NoiseMade1RIGHT
  11454.  beq.s noturnoff2
  11455.  or.w #4,d0
  11456. noturnoff2:
  11457.  tst.b NoiseMade1LEFT
  11458.  beq.s noturnoff3
  11459.  or.w #8,d0
  11460. noturnoff3:
  11461.     move.w d0,dmacon(a6)
  11462.  
  11463. nomuckabout:
  11464.  
  11465.  
  11466. ; tst.b PLR2_fire
  11467. ; beq.s firenotpressed2
  11468. ; fire was pressed last time.
  11469. ; btst #7,$bfe001
  11470. ; bne.s firenownotpressed2
  11471. ; fire is still pressed this time.
  11472. ; st PLR2_fire
  11473. ; bra dointer
  11474.  
  11475. firenownotpressed2:
  11476. ; fire has been released.
  11477. ; clr.b PLR2_fire
  11478. ; bra dointer
  11479.  
  11480. firenotpressed2
  11481.  
  11482. ; fire was not pressed last frame...
  11483.  
  11484. ; btst #7,$bfe001
  11485. ; if it has still not been pressed, go back above
  11486. ; bne.s firenownotpressed2
  11487. ; fire was not pressed last time, and was this time, so has
  11488. ; been clicked.
  11489. ; st PLR2_clicked
  11490. ; st PLR2_fire
  11491.  
  11492. dointer
  11493.  
  11494. JUSTSOUNDS:
  11495.  
  11496.  tst.b dosounds
  11497.  beq.s .notthing
  11498.  
  11499.  cmp.b #'4',Prefsfile+1
  11500.     beq fourchannel
  11501.  
  11502.  btst #1,$dff000+intreqr
  11503.     bne.s newsampbitl
  11504.  
  11505. .notthing:
  11506.  
  11507.  movem.l (a7)+,d0-d7/a0-a6
  11508.  
  11509.  moveq #0,d0
  11510.  rts
  11511.  
  11512.  
  11513. dosounds: dc.w 0
  11514.  
  11515. swappedem: dc.w 0
  11516.  
  11517. newsampbitl:
  11518.  
  11519.  move.w #$820f,$dff000+dmacon
  11520.  
  11521.  move.w #$200,$dff000+intreq
  11522.  
  11523. ; tst.b CHANNELDATA
  11524. ; bne nochannel0
  11525.  
  11526.  move.l pos0LEFT,a0
  11527.  move.l pos2LEFT,a1
  11528.  
  11529.  move.l #tab,a2
  11530.  
  11531.  moveq #0,d0
  11532.  moveq #0,d1
  11533.  move.b vol0left,d0
  11534.  move.b vol2left,d1
  11535.  cmp.b d1,d0
  11536.  slt swappedem
  11537.  bge.s fbig0
  11538.  
  11539. ; d1 is bigger so scale d0 and use d1
  11540. ; as audiochannel volume.
  11541.  
  11542.  exg a0,a1
  11543.  asl.w #6,d0
  11544.  divs d1,d0
  11545.  lsl.w #8,d0
  11546.  adda.w d0,a2
  11547.  move.w d1,$dff0a8
  11548.  bra.s donechan0
  11549.  
  11550. fbig0:
  11551.  tst.w d0
  11552.  beq.s donechan0
  11553.  asl.w #6,d1
  11554.  divs d0,d1
  11555.  lsl.w #8,d1
  11556.  adda.w d1,a2
  11557.  move.w d0,$dff0a8
  11558.  
  11559. donechan0:
  11560.  
  11561.  move.l Aupt0,a3
  11562.  move.l a3,$dff0a0
  11563.  move.l Auback0,Aupt0
  11564.  move.l a3,Auback0
  11565.  
  11566.  move.l Auback0,a3
  11567.  
  11568.  moveq #0,d0
  11569.  moveq #0,d1
  11570.  moveq #0,d2
  11571.  moveq #0,d3
  11572.  moveq #0,d4
  11573.  moveq #0,d5
  11574.  move.w #49,d7
  11575. loop:
  11576.  move.l (a0)+,d0
  11577.  move.b (a1)+,d1
  11578.  move.b (a1)+,d2
  11579.  move.b (a1)+,d3
  11580.  move.b (a1)+,d4
  11581.  move.b (a2,d3.w),d5
  11582.  swap d5
  11583.  move.b (a2,d1.w),d5
  11584.  asl.l #8,d5
  11585.  move.b (a2,d2.w),d5
  11586.  swap d5
  11587.  move.b (a2,d4.w),d5
  11588.  add.l d5,d0
  11589.  move.l d0,(a3)+
  11590.  dbra d7,loop
  11591.  
  11592.  tst.b swappedem
  11593.  beq.s .ok23
  11594.  exg a0,a1
  11595. .ok23:
  11596.  
  11597.  cmp.l Samp0endLEFT,a0
  11598.  blt.s .notoffendsamp1
  11599.  move.l #empty,a0
  11600.  move.l #emptyend,Samp0endLEFT
  11601.  move.b #0,vol0left
  11602.  st LEFTCHANDATA+1
  11603.  move.w #0,LEFTCHANDATA+2
  11604. .notoffendsamp1:
  11605.  
  11606.  cmp.l Samp2endLEFT,a1
  11607.  blt.s .notoffendsamp2
  11608.  move.l #empty,a1
  11609.  move.l #emptyend,Samp2endLEFT
  11610.  move.b #0,vol2left
  11611.  st LEFTCHANDATA+1+8
  11612.  move.w #0,LEFTCHANDATA+2+8
  11613. .notoffendsamp2:
  11614.  
  11615.  move.l a0,pos0LEFT
  11616.  move.l a1,pos2LEFT
  11617.  
  11618. nochannel0:
  11619.  
  11620.  tst.b CHANNELDATA+16
  11621.  bne nochannel1
  11622.  
  11623.  
  11624.  move.l pos0RIGHT,a0
  11625.  move.l pos2RIGHT,a1
  11626.  
  11627.  move.l Aupt1,a3
  11628.  move.l a3,$dff0b0
  11629.  move.l Auback1,Aupt1
  11630.  move.l a3,Auback1
  11631.  
  11632.  move.l #tab,a2
  11633.  
  11634.  moveq #0,d0
  11635.  moveq #0,d1
  11636.  move.b vol0right,d0
  11637.  move.b vol2right,d1
  11638.  cmp.b d1,d0
  11639.  slt swappedem
  11640.  bge.s fbig1
  11641.  
  11642. ; d1 is bigger so scale d0 and use d1
  11643. ; as audiochannel volume.
  11644.  
  11645.  exg a0,a1
  11646.  asl.w #6,d0
  11647.  divs d1,d0
  11648.  lsl.w #8,d0
  11649.  adda.w d0,a2
  11650.  move.w d1,$dff0b8
  11651.  bra.s donechan1
  11652.  
  11653. fbig1:
  11654.  tst.w d0
  11655.  beq.s donechan1
  11656.  asl.w #6,d1
  11657.  divs d0,d1
  11658.  lsl.w #8,d1
  11659.  adda.w d1,a2
  11660.  move.w d0,$dff0b8
  11661.  
  11662. donechan1:
  11663.  moveq #0,d0
  11664.  moveq #0,d1
  11665.  moveq #0,d2
  11666.  moveq #0,d3
  11667.  moveq #0,d4
  11668.  moveq #0,d5
  11669.  move.w #49,d7
  11670. loop2:
  11671.  move.l (a0)+,d0
  11672.  move.b (a1)+,d1
  11673.  move.b (a1)+,d2
  11674.  move.b (a1)+,d3
  11675.  move.b (a1)+,d4
  11676.  move.b (a2,d3.w),d5
  11677.  swap d5
  11678.  move.b (a2,d1.w),d5
  11679.  asl.l #8,d5
  11680.  move.b (a2,d2.w),d5
  11681.  swap d5
  11682.  move.b (a2,d4.w),d5
  11683.  add.l d5,d0
  11684.  move.l d0,(a3)+
  11685.  dbra d7,loop2
  11686.  
  11687.  tst.b swappedem
  11688.  beq.s ok01
  11689.  exg a0,a1
  11690. ok01:
  11691.  
  11692.  cmp.l Samp0endRIGHT,a0
  11693.  blt.s .notoffendsamp1
  11694.  move.l #empty,a0
  11695.  move.l #emptyend,Samp0endRIGHT
  11696.  move.b #0,vol0right
  11697.  st RIGHTCHANDATA+1
  11698.  move.w #0,RIGHTCHANDATA+2
  11699. .notoffendsamp1:
  11700.  
  11701.  cmp.l Samp2endRIGHT,a1
  11702.  blt.s .notoffendsamp2
  11703.  move.l #empty,a1
  11704.  move.l #emptyend,Samp2endRIGHT
  11705.  move.b #0,vol2right
  11706.  st RIGHTCHANDATA+1+8
  11707.  move.w #0,RIGHTCHANDATA+2+8
  11708. .notoffendsamp2:
  11709.  
  11710.  move.l a0,pos0RIGHT
  11711.  move.l a1,pos2RIGHT
  11712.  
  11713. nochannel1:
  11714.  
  11715. ******************* Other two channels
  11716.  
  11717.  move.l pos1LEFT,a0
  11718.  move.l pos3LEFT,a1
  11719.  
  11720.  move.l #tab,a2
  11721.  
  11722.  moveq #0,d0
  11723.  moveq #0,d1
  11724.  move.b vol1left,d0
  11725.  move.b vol3left,d1
  11726.  cmp.b d1,d0
  11727.  slt swappedem
  11728.  bge.s fbig2
  11729.  
  11730. ; d1 is bigger so scale d0 and use d1
  11731. ; as audiochannel volume.
  11732.  
  11733.  exg a0,a1
  11734.  asl.w #6,d0
  11735.  divs d1,d0
  11736.  lsl.w #8,d0
  11737.  adda.w d0,a2
  11738.  move.w d1,$dff0d8
  11739.  bra.s donechan2
  11740.  
  11741. fbig2:
  11742.  tst.w d0
  11743.  beq.s donechan2
  11744.  asl.w #6,d1
  11745.  divs d0,d1
  11746.  lsl.w #8,d1
  11747.  adda.w d1,a2
  11748.  move.w d0,$dff0d8
  11749.  
  11750. donechan2:
  11751.  
  11752.  move.l Aupt2,a3
  11753.  move.l a3,$dff0d0
  11754.  move.l Auback2,Aupt2
  11755.  move.l a3,Auback2
  11756.  
  11757.  moveq #0,d0
  11758.  moveq #0,d1
  11759.  moveq #0,d2
  11760.  moveq #0,d3
  11761.  moveq #0,d4
  11762.  moveq #0,d5
  11763.  move.w #49,d7
  11764. loop3:
  11765.  move.l (a0)+,d0
  11766.  move.b (a1)+,d1
  11767.  move.b (a1)+,d2
  11768.  move.b (a1)+,d3
  11769.  move.b (a1)+,d4
  11770.  move.b (a2,d3.w),d5
  11771.  swap d5
  11772.  move.b (a2,d1.w),d5
  11773.  asl.l #8,d5
  11774.  move.b (a2,d2.w),d5
  11775.  swap d5
  11776.  move.b (a2,d4.w),d5
  11777.  add.l d5,d0
  11778.  move.l d0,(a3)+
  11779.  dbra d7,loop3
  11780.  
  11781.  tst.b swappedem
  11782.  beq.s .ok23
  11783.  exg a0,a1
  11784. .ok23:
  11785.  
  11786.  cmp.l Samp1endLEFT,a0
  11787.  blt.s .notoffendsamp3
  11788.  move.l #empty,a0
  11789.  move.l #emptyend,Samp1endLEFT
  11790.  move.b #0,vol1left
  11791.  st LEFTCHANDATA+1+4
  11792.  move.w #0,LEFTCHANDATA+2+4
  11793. .notoffendsamp3:
  11794.  
  11795.  cmp.l Samp3endLEFT,a1
  11796.  blt.s .notoffendsamp4
  11797.  move.l #empty,a1
  11798.  move.l #emptyend,Samp3endLEFT
  11799.  move.b #0,vol3left
  11800.  st LEFTCHANDATA+1+12
  11801.  move.w #0,LEFTCHANDATA+2+12
  11802. .notoffendsamp4:
  11803.  
  11804.  move.l a0,pos1LEFT
  11805.  move.l a1,pos3LEFT
  11806.  
  11807.  move.l pos1RIGHT,a0
  11808.  move.l pos3RIGHT,a1
  11809.  
  11810.  move.l Aupt3,a3
  11811.  move.l a3,$dff0c0
  11812.  move.l Auback3,Aupt3
  11813.  move.l a3,Auback3
  11814.  
  11815.  move.l #tab,a2
  11816.  
  11817.  moveq #0,d0
  11818.  moveq #0,d1
  11819.  move.b vol1right,d0
  11820.  move.b vol3right,d1
  11821.  cmp.b d1,d0
  11822.  slt.s swappedem
  11823.  bge.s fbig3
  11824.  
  11825.  exg a0,a1
  11826.  asl.w #6,d0
  11827.  divs d1,d0
  11828.  lsl.w #8,d0
  11829.  adda.w d0,a2
  11830.  move.w d1,$dff0c8
  11831.  bra.s donechan3
  11832.  
  11833. fbig3:
  11834.  tst.w d0
  11835.  beq.s donechan3
  11836.  asl.w #6,d1
  11837.  divs d0,d1
  11838.  lsl.w #8,d1
  11839.  adda.w d1,a2
  11840.  move.w d0,$dff0c8
  11841. donechan3:
  11842.  
  11843.  moveq #0,d0
  11844.  moveq #0,d1
  11845.  moveq #0,d2
  11846.  moveq #0,d3
  11847.  moveq #0,d4
  11848.  moveq #0,d5
  11849.  move.w #49,d7
  11850. loop4:
  11851.  move.l (a0)+,d0
  11852.  move.b (a1)+,d1
  11853.  move.b (a1)+,d2
  11854.  move.b (a1)+,d3
  11855.  move.b (a1)+,d4
  11856.  move.b (a2,d3.w),d5
  11857.  swap d5
  11858.  move.b (a2,d1.w),d5
  11859.  asl.l #8,d5
  11860.  move.b (a2,d2.w),d5
  11861.  swap d5
  11862.  move.b (a2,d4.w),d5
  11863.  add.l d5,d0
  11864.  move.l d0,(a3)+
  11865.  dbra d7,loop4
  11866.  
  11867.  tst.b swappedem
  11868.  beq.s .ok23
  11869.  exg a0,a1
  11870. .ok23:
  11871.  
  11872.  cmp.l Samp1endRIGHT,a0
  11873.  blt.s notoffendsamp3
  11874.  move.l #empty,a0
  11875.  move.l #emptyend,Samp1endRIGHT
  11876.  move.b #0,vol1right
  11877.  st RIGHTCHANDATA+1+4
  11878.  move.w #0,RIGHTCHANDATA+2+4
  11879. notoffendsamp3:
  11880.  
  11881.  cmp.l Samp3endRIGHT,a1
  11882.  blt.s notoffendsamp4
  11883.  move.l #empty,a1
  11884.  move.l #emptyend,Samp3endRIGHT
  11885.  move.b #0,vol3right
  11886.  st RIGHTCHANDATA+1+12
  11887.  move.w #0,RIGHTCHANDATA+2+12
  11888. notoffendsamp4:
  11889.  
  11890.  move.l a0,pos1RIGHT
  11891.  move.l a1,pos3RIGHT
  11892.  
  11893.  movem.l (a7)+,d0-d7/a0-a6
  11894.  tst.b counting
  11895.  beq .nostartcounter
  11896.  JSR STARTCOUNT
  11897. .nostartcounter:
  11898.  
  11899.  moveq #0,d0
  11900.  rts
  11901.  
  11902. ***********************************
  11903. * 4 channel sound routine
  11904. ***********************************
  11905.  
  11906. fourchannel:
  11907.  
  11908.  move.l #$dff000,a6
  11909.  
  11910.  btst #7,intreqrl(a6)
  11911.  beq.s nofinish0
  11912. ; move.w #0,LEFTCHANDATA+2
  11913. ; st LEFTCHANDATA+1
  11914.  move.l #null,$a0(a6)
  11915.  move.w #100,$a4(a6) 
  11916.  move.w #$0080,intreq(a6)
  11917. nofinish0:
  11918.  
  11919.  tst.b NoiseMade0pLEFT
  11920.  beq.s NoChan0sound
  11921.  
  11922.  move.l Samp0endLEFT,d0
  11923.  move.l pos0LEFT,d1
  11924.  sub.l d1,d0
  11925.  lsr.l #1,d0
  11926.  move.w d0,$a4(a6)
  11927.  move.l d1,$a0(a6)
  11928.  ext.l d0
  11929.  divs #100,d0
  11930.  move.w d0,playnull0
  11931.  move.w #$8201,dmacon(a6)
  11932.  moveq #0,d0
  11933.  move.b vol0left,d0
  11934.  move.w d0,$a8(a6)
  11935.  
  11936. NoChan0sound:
  11937.  
  11938. *****************************************
  11939. *****************************************
  11940.  
  11941.  btst #0,intreqr(a6)
  11942.  beq.s nofinish1
  11943.  move.l #null,$b0(a6)
  11944.  move.w #100,$b4(a6)
  11945.  move.w #$0100,intreq(a6)
  11946. nofinish1:
  11947.  
  11948.  tst.b NoiseMade0pRIGHT
  11949.  beq.s NoChan1sound
  11950.  
  11951.  move.l Samp0endRIGHT,d0
  11952.  move.l pos0RIGHT,d1
  11953.  sub.l d1,d0
  11954.  lsr.l #1,d0
  11955.  move.w d0,$b4(a6)
  11956.  move.l d1,$b0(a6)
  11957.  ext.l d0
  11958.  divs #100,d0
  11959.  move.w d0,playnull1
  11960.  move.w #$8202,dmacon(a6)
  11961.  moveq #0,d0
  11962.  move.b vol0right,d0
  11963.  move.w d0,$b8(a6)
  11964.  
  11965. NoChan1sound:
  11966.  
  11967. *****************************************
  11968. *****************************************
  11969.  
  11970.  btst #1,intreqr(a6)
  11971.  beq.s nofinish2
  11972.  move.l #null,$c0(a6)
  11973.  move.w #100,$c4(a6)
  11974.  move.w #$0200,intreq(a6)
  11975. nofinish2:
  11976.  
  11977.  tst.b NoiseMade1pRIGHT
  11978.  beq.s NoChan2sound
  11979.  
  11980.  move.l Samp1endRIGHT,d0
  11981.  move.l pos1RIGHT,d1
  11982.  sub.l d1,d0
  11983.  lsr.l #1,d0
  11984.  move.w d0,$c4(a6)
  11985.  ext.l d0
  11986.  divs #100,d0
  11987.  move.w d0,playnull2
  11988.  
  11989.  move.l d1,$c0(a6)
  11990.  move.w #$8204,dmacon(a6)
  11991.  moveq #0,d0
  11992.  move.b vol1right,d0
  11993.  move.w d0,$c8(a6)
  11994.  
  11995. NoChan2sound:
  11996.  
  11997. *****************************************
  11998. *****************************************
  11999.  
  12000.  btst #2,intreqr(a6)
  12001.  beq.s nofinish3
  12002.  move.l #null,$d0(a6)
  12003.  move.w #100,$d4(a6)
  12004.  move.w #$0400,intreq(a6)
  12005. nofinish3:
  12006.  
  12007.  tst.b NoiseMade1pLEFT
  12008.  beq.s NoChan3sound
  12009.  
  12010.  move.l Samp1endLEFT,d0
  12011.  move.l pos1LEFT,d1
  12012.  sub.l d1,d0
  12013.  lsr.l #1,d0
  12014.  move.w d0,$d4(a6)
  12015.  ext.l d0
  12016.  divs #100,d0
  12017.  move.w d0,playnull3
  12018.  move.l d1,$d0(a6)
  12019.  move.w #$8208,dmacon(a6)
  12020.  moveq #0,d0
  12021.  move.b vol1left,d0
  12022.  move.w d0,$d8(a6)
  12023.  
  12024. NoChan3sound:
  12025.  
  12026. nomorechannels:
  12027.  
  12028.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  12029.  move.l #0,NoiseMade0LEFT
  12030.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  12031.  move.l #0,NoiseMade0RIGHT
  12032.  
  12033. ; tst.b playnull0
  12034. ; beq.s .nnul
  12035. ; sub.b #1,playnull0
  12036. ; bra.s chan0still
  12037. ;.nnul:
  12038. ; 
  12039. ;chan0still:
  12040.  
  12041.  tst.b NoiseMade0pLEFT
  12042.  bne.s chan0still
  12043.  tst.w playnull0
  12044.  beq.s nnul0
  12045.  sub.w #1,playnull0
  12046.  bra.s chan0still
  12047. nnul0:
  12048.  move.w #0,LEFTCHANDATA+2
  12049.  st LEFTCHANDATA+1
  12050. chan0still:
  12051.  
  12052.  tst.b NoiseMade0pRIGHT
  12053.  bne.s chan1still    ;it'll never work
  12054.  tst.w playnull1
  12055.  beq.s nnul1
  12056.  sub.w #1,playnull1
  12057.  bra.s chan1still
  12058. nnul1:
  12059.  move.w #0,RIGHTCHANDATA+2
  12060.  st RIGHTCHANDATA+1
  12061. chan1still:
  12062.  
  12063.  tst.b NoiseMade1pRIGHT
  12064.  bne.s chan2still
  12065.  tst.w playnull2
  12066.  beq.s nnul2
  12067.  sub.w #1,playnull2
  12068.  bra.s chan2still
  12069. nnul2:
  12070.  move.w #0,RIGHTCHANDATA+2+4
  12071.  st RIGHTCHANDATA+1+4
  12072. chan2still:
  12073.  
  12074.  tst.b NoiseMade1pLEFT
  12075.  bne.s chan3still
  12076.  tst.w playnull3
  12077.  beq.s nnul3
  12078.  sub.w #1,playnull3
  12079.  bra.s chan3still
  12080. nnul3:
  12081.  move.w #0,LEFTCHANDATA+2+4
  12082.  st LEFTCHANDATA+1+4
  12083.  
  12084. chan3still:
  12085.  
  12086.  
  12087.  movem.l (a7)+,d0-d7/a0-a6
  12088.  
  12089.  moveq #0,d0
  12090.  rts
  12091.  
  12092. backbeat: dc.w 0
  12093.  
  12094. playnull0: dc.w 0
  12095. playnull1: dc.w 0
  12096. playnull2: dc.w 0
  12097. playnull3: dc.w 0
  12098.  
  12099. Samp0endRIGHT: dc.l emptyend
  12100. Samp1endRIGHT: dc.l emptyend
  12101. Samp2endRIGHT: dc.l emptyend
  12102. Samp3endRIGHT: dc.l emptyend
  12103. Samp0endLEFT: dc.l emptyend
  12104. Samp1endLEFT: dc.l emptyend
  12105. Samp2endLEFT: dc.l emptyend
  12106. Samp3endLEFT: dc.l emptyend
  12107.  
  12108. Aupt0: dc.l null
  12109. Auback0: dc.l null+500
  12110. Aupt2: dc.l null3
  12111. Auback2: dc.l null3+500
  12112. Aupt3: dc.l null4
  12113. Auback3: dc.l null4+500
  12114. Aupt1: dc.l null2
  12115. Auback1: dc.l null2+500
  12116.  
  12117. NoiseMade0LEFT: dc.b 0
  12118. NoiseMade1LEFT: dc.b 0
  12119. NoiseMade2LEFT: dc.b 0
  12120. NoiseMade3LEFT: dc.b 0
  12121. NoiseMade0pLEFT: dc.b 0
  12122. NoiseMade1pLEFT: dc.b 0
  12123. NoiseMade2pLEFT: dc.b 0
  12124. NoiseMade3pLEFT: dc.b 0
  12125. NoiseMade0RIGHT: dc.b 0
  12126. NoiseMade1RIGHT: dc.b 0
  12127. NoiseMade2RIGHT: dc.b 0
  12128. NoiseMade3RIGHT: dc.b 0
  12129. NoiseMade0pRIGHT: dc.b 0
  12130. NoiseMade1pRIGHT: dc.b 0
  12131. NoiseMade2pRIGHT: dc.b 0
  12132. NoiseMade3pRIGHT: dc.b 0
  12133.  
  12134. empty: ds.l 100
  12135. emptyend:
  12136.  
  12137. **************************************
  12138. * I want a routine to calculate all the
  12139. * info needed for the sound player to
  12140. * work, given say position of noise, volume
  12141. * and sample number.
  12142.  
  12143. Samplenum: dc.w 0
  12144. Noisex: dc.w 0
  12145. Noisez: dc.w 0
  12146. Noisevol: dc.w 0
  12147. chanpick: dc.w 0
  12148. IDNUM: dc.w 0
  12149. needleft: dc.b 0
  12150. needright: dc.b 0
  12151. STEREO: dc.b $0
  12152. even
  12153. prot6: dc.w 0
  12154.  
  12155.  even
  12156.  
  12157. CHANNELDATA:
  12158. LEFTCHANDATA:
  12159.  dc.l $00000000
  12160.  dc.l $00000000
  12161.  dc.l $FF000000
  12162.  dc.l $FF000000
  12163. RIGHTCHANDATA:
  12164.  dc.l $00000000
  12165.  dc.l $00000000
  12166.  dc.l $FF000000
  12167.  dc.l $FF000000
  12168.  
  12169. RIGHTPLAYEDTAB: ds.l 20
  12170. LEFTPLAYEDTAB: ds.l 20
  12171.  
  12172. MakeSomeNoise:
  12173.  
  12174. ; Plan for new sound handler:
  12175. ; It is sent a sample number,
  12176. ; a position relative to the
  12177. ; player, an id number and a volume.
  12178. ; Also notifplaying.
  12179.  
  12180. ; indirect inputs are the available
  12181. ; channel flags and whether or not
  12182. ; stereo sound is selected.
  12183.  
  12184. ; the algorithm must decide
  12185. ; whether the new sound is more
  12186. ; important than the ones already
  12187. ; playing. Thus an 'importance'
  12188. ; must be calculated, probably
  12189. ; using volume.
  12190.  
  12191. ; The output needs to be:
  12192.  
  12193. ; Write the pointers and volumes of
  12194. ; the sound channels
  12195.  
  12196.  
  12197.  tst.b notifplaying
  12198.  beq.s dontworry
  12199.  
  12200. ; find if we are already playing
  12201.  
  12202.  move.b IDNUM,d0
  12203.  move.w #7,d1
  12204.  lea CHANNELDATA,a3
  12205. findsameasme
  12206.  tst.b (a3)
  12207.  bne.s notavail
  12208.  cmp.b 1(a3),d0
  12209.  beq SameAsMe
  12210. notavail:
  12211.  add.w #4,a3
  12212.  dbra d1,findsameasme
  12213.  bra dontworry
  12214. SameAsMe
  12215.  rts
  12216.  
  12217. noiseloud: dc.w 0
  12218.  
  12219. dontworry:
  12220.  
  12221. ; Ok its fine for us to play a sound.
  12222. ; So calculate left/right volume.
  12223.  
  12224.  move.w Noisex,d1
  12225.  muls d1,d1
  12226.  move.w Noisez,d2
  12227.  muls d2,d2
  12228.  move.w #64,d3
  12229.  move.w #32767,noiseloud
  12230.  moveq #1,d0
  12231.  add.l d1,d2
  12232.  beq pastcalc
  12233.  
  12234.  move.w #31,d0
  12235. .findhigh
  12236.  btst d0,d2
  12237.  bne .foundhigh
  12238.  dbra d0,.findhigh
  12239. .foundhigh
  12240.  asr.w #1,d0
  12241.  clr.l d3
  12242.  bset d0,d3
  12243.  move.l d3,d0
  12244.  
  12245.  move.w d0,d3
  12246.  muls d3,d3    ; x*x
  12247.  sub.l d2,d3    ; x*x-a
  12248.  asr.l #1,d3    ; (x*x-a)/2
  12249.  divs d0,d3    ; (x*x-a)/2x
  12250.  sub.w d3,d0    ; second approx
  12251.  bgt .stillnot0
  12252.  move.w #1,d0
  12253. .stillnot0
  12254.  
  12255.  move.w d0,d3
  12256.  muls d3,d3
  12257.  sub.l d2,d3
  12258.  asr.l #1,d3
  12259.  divs d0,d3
  12260.  sub.w d3,d0    ; second approx
  12261.  bgt .stillnot02
  12262.  move.w #1,d0
  12263. .stillnot02
  12264.  
  12265.  move.w Noisevol,d3
  12266.  ext.l d3
  12267.  asl.l #6,d3
  12268.  cmp.l #32767,d3
  12269.  ble.s .nnnn
  12270.  move.l #32767,d3
  12271. .nnnn
  12272.  
  12273.  asr.w #2,d0
  12274.  addq #1,d0
  12275.  divs d0,d3
  12276.  
  12277.  move.w d3,noiseloud
  12278.  
  12279.  cmp.w #64,d3
  12280.  ble.s notooloud
  12281.  move.w #64,d3
  12282. notooloud:
  12283.  
  12284. pastcalc:
  12285.  
  12286.     ; d3 contains volume of noise.
  12287.     
  12288.  move.w d3,d4
  12289.  tst.b STEREO
  12290.  beq NOSTEREO
  12291.  
  12292.  move.w d3,d2
  12293.  muls Noisex,d2
  12294.  asl.w #2,d0
  12295.  divs d0,d2
  12296.  
  12297.  bgt.s quietleft
  12298.  add.w d2,d4
  12299.  bge.s donequiet
  12300.  move.w #0,d4
  12301.  bra.s donequiet
  12302. quietleft:
  12303.  sub.w d2,d3
  12304.  bge.s donequiet
  12305.  move.w #0,d3
  12306. donequiet:
  12307.  
  12308. ; d3=leftvol?
  12309. ; d4=rightvol?
  12310.  
  12311.  clr.w needleft
  12312.  
  12313.  cmp.b d3,d4
  12314.  bgt.s RightLouder
  12315.  
  12316. ; Left is louder; is it MUCH louder?
  12317.  
  12318.  st needleft
  12319.  move.w d3,d2
  12320.  sub.w d4,d2
  12321.  cmp.w #32,d2
  12322.  slt needright
  12323.  bra aboutsame
  12324.  
  12325. RightLouder:
  12326.  st needright
  12327.  move.w d4,d2
  12328.  sub.w d3,d2
  12329.  cmp.w #32,d2
  12330.  slt needleft
  12331.  
  12332. aboutsame:
  12333.  
  12334.  
  12335. ; Find least important sound on left
  12336.  
  12337.  move.l #0,a2
  12338.  move.l #0,d5
  12339.  move.w #32767,d2
  12340.  move.b IDNUM,d0
  12341.  lea LEFTCHANDATA,a3
  12342.  move.w #3,d1
  12343. FindLeftChannel
  12344.  tst.b (a3)
  12345.  bne.s .notactive
  12346.  cmp.b 1(a3),d0
  12347.  beq.s FOUNDLEFT
  12348.  cmp.w 2(a3),d2
  12349.  blt.s .notactive
  12350.  move.w 2(a3),d2
  12351.  move.l a3,a2
  12352.  move.w d5,d6
  12353.  
  12354. .notactive:
  12355.  add.w #4,a3
  12356.  add.w #1,d5
  12357.  dbra d1,FindLeftChannel
  12358.  move.l a2,a3
  12359.  bra.s gopastleft
  12360. FOUNDLEFT:
  12361.  move.w d5,d6
  12362. gopastleft:
  12363.  tst.l a3
  12364.  bne.s FOUNDALEFT
  12365. NONOISE:
  12366.  rts
  12367. FOUNDALEFT:
  12368.  
  12369.  cmp.w noiseloud,d3
  12370.  bge.s NONOISE
  12371.  
  12372. ; d6 = channel number
  12373.  move.b d0,1(a3)
  12374.  move.w d3,2(a3)
  12375.  
  12376.  move.w Samplenum,d5
  12377.  move.l #SampleList,a3
  12378.  move.l (a3,d5.w*8),a1
  12379.  move.l 4(a3,d5.w*8),a2
  12380.  
  12381.  tst.b d6
  12382.  seq NoiseMade0LEFT
  12383.  beq.s .chan0
  12384.  cmp.b #2,d6
  12385.  slt NoiseMade1LEFT
  12386.  blt .chan1
  12387.  seq NoiseMade2LEFT
  12388.  beq .chan2
  12389.  st NoiseMade3LEFT
  12390.  
  12391.  move.b d5,LEFTPLAYEDTAB+9
  12392.  move.b d3,LEFTPLAYEDTAB+1+9
  12393.  move.b d4,LEFTPLAYEDTAB+2+9
  12394.  move.b d3,vol3left
  12395.  move.l a1,pos3LEFT
  12396.  move.l a2,Samp3endLEFT
  12397.  bra dorightchan
  12398.  
  12399. .chan0: 
  12400.  move.b d5,LEFTPLAYEDTAB
  12401.  move.b d3,LEFTPLAYEDTAB+1
  12402.  move.b d4,LEFTPLAYEDTAB+2
  12403.  move.l a1,pos0LEFT
  12404.  move.l a2,Samp0endLEFT
  12405.  move.b d3,vol0left
  12406.  bra dorightchan
  12407.  
  12408. .chan1:
  12409.  move.b d5,LEFTPLAYEDTAB+3
  12410.  move.b d3,LEFTPLAYEDTAB+1+3
  12411.  move.b d4,LEFTPLAYEDTAB+2+3
  12412.  move.b d3,vol1left
  12413.  move.l a1,pos1LEFT
  12414.  move.l a2,Samp1endLEFT
  12415.  bra dorightchan
  12416.  
  12417. .chan2: 
  12418.  move.b d5,LEFTPLAYEDTAB+6
  12419.  move.b d3,LEFTPLAYEDTAB+1+6
  12420.  move.b d4,LEFTPLAYEDTAB+2+6
  12421.  move.l a1,pos2LEFT
  12422.  move.l a2,Samp2endLEFT
  12423.  move.b d3,vol2left
  12424.  
  12425. dorightchan:
  12426.  
  12427. ; Find least important sound on right
  12428.  
  12429.  move.l #0,a2
  12430.  move.l #0,d5
  12431.  move.w #10000,d2
  12432.  move.b IDNUM,d0
  12433.  lea RIGHTCHANDATA,a3
  12434.  move.w #3,d1
  12435. FindRightChannel
  12436.  tst.b (a3)
  12437.  bne.s .notactive
  12438.  cmp.b 1(a3),d0
  12439.  beq.s FOUNDRIGHT
  12440.  cmp.w 2(a3),d2
  12441.  blt.s .notactive
  12442.  move.w 2(a3),d2
  12443.  move.l a3,a2
  12444.  move.w d5,d6
  12445.  
  12446. .notactive:
  12447.  add.w #4,a3
  12448.  add.w #1,d5
  12449.  dbra d1,FindRightChannel
  12450.  move.l a2,a3
  12451.  bra.s gopastright
  12452. FOUNDRIGHT:
  12453.  move.w d5,d6
  12454. gopastright:
  12455.  tst.l a3
  12456.  bne.s FOUNDARIGHT
  12457.  rts
  12458. FOUNDARIGHT:
  12459.  
  12460. ; d6 = channel number
  12461.  move.b d0,1(a3)
  12462.  move.w d3,2(a3)
  12463.  
  12464.  move.w Samplenum,d5
  12465.  move.l #SampleList,a3
  12466.  move.l (a3,d5.w*8),a1
  12467.  move.l 4(a3,d5.w*8),a2
  12468.  
  12469.  tst.b d6
  12470.  seq NoiseMade0RIGHT
  12471.  beq.s .chan0
  12472.  cmp.b #2,d6
  12473.  slt NoiseMade1RIGHT
  12474.  blt .chan1
  12475.  seq NoiseMade2RIGHT
  12476.  beq .chan2
  12477.  st NoiseMade3RIGHT
  12478.  
  12479.  move.b d5,RIGHTPLAYEDTAB+9
  12480.  move.b d3,RIGHTPLAYEDTAB+1+9
  12481.  move.b d4,RIGHTPLAYEDTAB+2+9
  12482.  move.b d4,vol3right
  12483.  move.l a1,pos3RIGHT
  12484.  move.l a2,Samp3endRIGHT
  12485.  rts
  12486.  
  12487. .chan0: 
  12488.  move.b d5,RIGHTPLAYEDTAB
  12489.  move.b d3,RIGHTPLAYEDTAB+1
  12490.  move.b d4,RIGHTPLAYEDTAB+2
  12491.  move.l a1,pos0RIGHT
  12492.  move.l a2,Samp0endRIGHT
  12493.  move.b d4,vol0right
  12494.  rts
  12495.  
  12496. .chan1:
  12497.  move.b d5,RIGHTPLAYEDTAB+3
  12498.  move.b d3,RIGHTPLAYEDTAB+1+3
  12499.  move.b d4,RIGHTPLAYEDTAB+2+3
  12500.  move.b d3,vol1right
  12501.  move.l a1,pos1RIGHT
  12502.  move.l a2,Samp1endRIGHT
  12503.  rts
  12504.  
  12505. .chan2: 
  12506.  move.b d5,RIGHTPLAYEDTAB+6
  12507.  move.b d3,RIGHTPLAYEDTAB+1+6
  12508.  move.b d4,RIGHTPLAYEDTAB+2+6
  12509.  move.l a1,pos2RIGHT
  12510.  move.l a2,Samp2endRIGHT
  12511.  move.b d3,vol2right
  12512.  rts
  12513.  
  12514. NOSTEREO:
  12515.  move.l #0,a2
  12516.  move.l #-1,d5
  12517.  move.w #32767,d2
  12518.  move.b IDNUM,d0
  12519.  lea CHANNELDATA,a3
  12520.  move.w #7,d1
  12521. FindChannel
  12522.  tst.b (a3)
  12523.  bne.s .notactive
  12524.  cmp.b 1(a3),d0
  12525.  beq.s FOUNDMYCHAN
  12526.  cmp.w 2(a3),d2
  12527.  blt.s .notactive
  12528.  move.w 2(a3),d2
  12529.  move.l a3,a2
  12530.  move.w d5,d6
  12531.  add.w #1,d6
  12532.  
  12533. .notactive:
  12534.  add.w #4,a3
  12535.  add.w #1,d5
  12536.  dbra d1,FindChannel
  12537.  
  12538.  move.l a2,a3
  12539.  bra.s gopastchan
  12540.  
  12541. FOUNDMYCHAN:
  12542.  move.w 2(a3),d2
  12543.  
  12544. FOUNDCHAN:
  12545.  move.w d5,d6
  12546.  add.w #1,d6
  12547. gopastchan:
  12548.  tst.w d6
  12549.  bge.s FOUNDACHAN
  12550. tooquiet:
  12551.  rts
  12552. FOUNDACHAN:
  12553.  
  12554. ; d6 = channel number
  12555.  
  12556.  cmp.w noiseloud,d2
  12557.  bgt.s tooquiet
  12558.  
  12559.  move.b d0,1(a3)
  12560.  move.w noiseloud,2(a3)
  12561.  
  12562.  move.w Samplenum,d5
  12563.  move.l #SampleList,a3
  12564.  move.l (a3,d5.w*8),a1
  12565.  move.l 4(a3,d5.w*8),a2
  12566.  
  12567.  tst.b d6
  12568.  beq .chan0
  12569.  cmp.b #2,d6
  12570.  blt .chan1
  12571.  beq .chan2
  12572.  cmp.b #4,d6
  12573.  blt .chan3
  12574.  beq .chan4
  12575.  cmp.b #6,d6
  12576.  blt .chan5
  12577.  beq .chan6
  12578.  st NoiseMade3RIGHT
  12579.  
  12580.  move.b d5,RIGHTPLAYEDTAB+9
  12581.  move.b d3,RIGHTPLAYEDTAB+1+9
  12582.  move.b d4,RIGHTPLAYEDTAB+2+9
  12583.  move.b d4,vol3right
  12584.  move.l a1,pos3RIGHT
  12585.  move.l a2,Samp3endRIGHT
  12586.  rts
  12587.  
  12588. .chan3:
  12589.  st NoiseMade3LEFT
  12590.  move.b d5,LEFTPLAYEDTAB+9
  12591.  move.b d3,LEFTPLAYEDTAB+1+9
  12592.  move.b d4,LEFTPLAYEDTAB+2+9
  12593.  move.b d3,vol3left
  12594.  move.l a1,pos3LEFT
  12595.  move.l a2,Samp3endLEFT
  12596.  bra dorightchan
  12597.  
  12598. .chan0: 
  12599.  st NoiseMade0LEFT
  12600.  move.b d5,LEFTPLAYEDTAB
  12601.  move.b d3,LEFTPLAYEDTAB+1
  12602.  move.b d4,LEFTPLAYEDTAB+2
  12603.  move.l a1,pos0LEFT
  12604.  move.l a2,Samp0endLEFT
  12605.  move.b d3,vol0left
  12606.  rts
  12607.  
  12608. .chan1:
  12609.  st NoiseMade1LEFT
  12610.  move.b d5,LEFTPLAYEDTAB+3
  12611.  move.b d3,LEFTPLAYEDTAB+1+3
  12612.  move.b d4,LEFTPLAYEDTAB+2+3
  12613.  move.b d3,vol1left
  12614.  move.l a1,pos1LEFT
  12615.  move.l a2,Samp1endLEFT
  12616.  rts
  12617.  
  12618. .chan2: 
  12619.  st NoiseMade2LEFT
  12620.  move.b d5,LEFTPLAYEDTAB+6
  12621.  move.b d3,LEFTPLAYEDTAB+1+6
  12622.  move.b d4,LEFTPLAYEDTAB+2+6
  12623.  move.l a1,pos2LEFT
  12624.  move.l a2,Samp2endLEFT
  12625.  move.b d3,vol2left
  12626.  rts
  12627.  
  12628. .chan4: 
  12629.  st NoiseMade0RIGHT
  12630.  move.b d5,RIGHTPLAYEDTAB
  12631.  move.b d3,RIGHTPLAYEDTAB+1
  12632.  move.b d4,RIGHTPLAYEDTAB+2
  12633.  move.l a1,pos0RIGHT
  12634.  move.l a2,Samp0endRIGHT
  12635.  move.b d4,vol0right
  12636.  rts
  12637.  
  12638. .chan5:
  12639.  st NoiseMade1RIGHT
  12640.  move.b d5,RIGHTPLAYEDTAB+3
  12641.  move.b d3,RIGHTPLAYEDTAB+1+3
  12642.  move.b d4,RIGHTPLAYEDTAB+2+3
  12643.  move.b d3,vol1right
  12644.  move.l a1,pos1RIGHT
  12645.  move.l a2,Samp1endRIGHT
  12646.  rts
  12647.  
  12648. .chan6: 
  12649.  st NoiseMade2RIGHT
  12650.  move.b d5,RIGHTPLAYEDTAB+6
  12651.  move.b d3,RIGHTPLAYEDTAB+1+6
  12652.  move.b d4,RIGHTPLAYEDTAB+2+6
  12653.  move.l a1,pos2RIGHT
  12654.  move.l a2,Samp2endRIGHT
  12655.  move.b d3,vol2right
  12656.  rts
  12657.  
  12658. SampleList:
  12659.  dc.l Scream,EndScream
  12660.  dc.l Shoot,EndShoot
  12661.  dc.l Munch,EndMunch
  12662.  dc.l PooGun,EndPooGun
  12663.  dc.l Collect,EndCollect
  12664. ;5
  12665.  dc.l DoorNoise,EndDoorNoise
  12666.  dc.l 0,0
  12667.  dc.l Stomp,EndStomp
  12668.  dc.l LowScream,EndLowScream
  12669.  dc.l BaddieGun,EndBaddieGun
  12670. ;10
  12671.  dc.l SwitchNoise,EndSwitch
  12672.  dc.l Reload,EndReload
  12673.  dc.l NoAmmo,EndNoAmmo
  12674.  dc.l Splotch,EndSplotch
  12675.  dc.l SplatPop,EndSplatPop
  12676. ;15
  12677.  dc.l Boom,EndBoom
  12678.  dc.l Hiss,EndHiss
  12679.  dc.l Howl1,EndHowl1
  12680.  dc.l Howl2,EndHowl2
  12681.  dc.l Pant,EndPant
  12682. ;20
  12683.  dc.l Whoosh,EndWhoosh
  12684.  dc.l ROAR,EndROAR
  12685.  dc.l whoosh,Endwhoosh
  12686.  dc.l 0,0
  12687.  dc.l 0,0
  12688.  dc.l 0,0
  12689.  dc.l 0,0
  12690.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12691.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12692.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12693.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  12694.  
  12695.  dc.l 0
  12696.  
  12697. storeval: dc.w 0
  12698.  
  12699.  include "ab3:source_4000/wallchunk.s"
  12700.  include "ab3:source_4000/newloadfromdisk.s"
  12701.  include "ab3:source_4000/screensetup.s"
  12702.  include "ab3:source_4000/CONTROLLOOP.s"
  12703.  
  12704.  
  12705.  
  12706.  
  12707. saveinters:  
  12708.  dc.w 0
  12709.  
  12710. z: dc.w 10
  12711.  
  12712. notifplaying:
  12713.  dc.w 0
  12714.  
  12715. audpos1: dc.w 0
  12716. audpos1b: dc.w 0
  12717. audpos2: dc.w 0
  12718. audpos2b: dc.w 0
  12719. audpos3: dc.w 0
  12720. audpos3b: dc.w 0
  12721. audpos4: dc.w 0
  12722. audpos4b: dc.w 0
  12723.  
  12724. vol0left: dc.w 0
  12725. vol0right: dc.w 0
  12726. vol1left: dc.w 0
  12727. vol1right: dc.w 0
  12728. vol2left: dc.w 0
  12729. vol2right: dc.w 0
  12730. vol3left: dc.w 0
  12731. vol3right: dc.w 0
  12732.  
  12733. pos: dc.l 0
  12734.  
  12735. pos0LEFT: dc.l empty
  12736. pos1LEFT: dc.l empty
  12737. pos2LEFT: dc.l empty
  12738. pos3LEFT: dc.l empty
  12739. pos0RIGHT: dc.l empty
  12740. pos1RIGHT: dc.l empty
  12741. pos2RIGHT: dc.l empty
  12742. pos3RIGHT: dc.l empty
  12743.  
  12744. numtodo dc.w 0
  12745.  
  12746. npt: dc.w 0
  12747.  
  12748. pretab:
  12749. val SET 0
  12750.  REPT 128
  12751.  dc.b val
  12752. val SET val+1
  12753.  ENDR
  12754. val SET -128
  12755.  REPT 128
  12756.  dc.b val
  12757. val SET val+1
  12758.  ENDR 
  12759.  
  12760. tab:
  12761.  ifeq CHEESEY
  12762.  ds.b 256*65
  12763.  endc
  12764.  
  12765. test: dc.l 0
  12766.  ds.l 30
  12767.  
  12768.  
  12769.  even
  12770. ConstCols:
  12771. ; incbin "ConstCols"
  12772.  even
  12773. Smoothscalecols:
  12774. ; incbin "smoothbumppalscaled"
  12775.  even
  12776. SmoothTile:
  12777. ; incbin "smoothbumptile"
  12778.  even
  12779. Bumpscalecols:
  12780. ; incbin "Bumppalscaled"
  12781.  even
  12782. Bumptile:
  12783. ; incbin "bumptile"
  12784.  even
  12785. scalecols: ;incbin "bytepixpalscaled"
  12786.  even
  12787. ;floorscalecols:
  12788. ; incbin "floor256pal"
  12789. ; ds.w 256*4
  12790.  
  12791.  even
  12792. PaletteAddr: dc.l 0
  12793. ChunkAddr: dc.l 0
  12794. ;walltiles:
  12795. ; dc.l GreenMechanicWALL
  12796. ; dc.l BlueGreyMetalWALL
  12797. ; dc.l TechnoDetailWALL
  12798. ; dc.l BlueStoneWALL
  12799. ; dc.l RedAlertWALL
  12800. ; dc.l RockWALL
  12801. ;
  12802. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  12803. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  12804. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  12805. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  12806. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  12807. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  12808.  
  12809. floortile:
  12810.  dc.l 0
  12811. ; incbin "floortile" 
  12812.  even
  12813. wallrouts:
  12814. ; incbin "2x2WallDraw" 
  12815.  CNOP 0,64
  12816.  
  12817.  ifeq CHEESEY 
  12818. BackPicture:
  12819.  dc.l 0
  12820. ; incbin "rawback"
  12821. EndBackPicture:
  12822.  endc
  12823.  
  12824. drawpt: dc.l 0
  12825. olddrawpt: dc.l 0
  12826. frompt: dc.l 0 
  12827.  
  12828. SineTable:
  12829.  incbin "bigsine"
  12830.  
  12831. angspd: dc.w 0
  12832. flooryoff: dc.w 0
  12833. xoff: dc.l 0
  12834. yoff: dc.l 0
  12835. yvel: dc.l 0
  12836. zoff: dc.l 0
  12837. tyoff: dc.l 0
  12838. xspdval: dc.l 0
  12839. zspdval: dc.l 0
  12840. Zone: dc.w 0
  12841.  
  12842. PLR1: dc.b $ff
  12843.  even
  12844. PLR1_energy: dc.w 191
  12845. PLR1_GunSelected: dc.w 0
  12846. PLR1_cosval: dc.w 0
  12847. PLR1_sinval: dc.w 0
  12848. PLR1_angpos: dc.w 0
  12849. PLR1_angspd: dc.w 0
  12850. PLR1_xoff: dc.l 0
  12851. PLR1_yoff: dc.l 0
  12852. PLR1_yvel: dc.l 0
  12853. PLR1_zoff: dc.l 0
  12854. PLR1_tyoff: dc.l 0
  12855. PLR1_xspdval: dc.l 0
  12856. PLR1_zspdval: dc.l 0
  12857. PLR1_Zone: dc.w 0
  12858. PLR1_Roompt: dc.l 0
  12859. PLR1_FloorSpd: dc.l 0
  12860. PLR2_FloorSpd: dc.l 0
  12861. PLR1_OldRoompt: dc.l 0
  12862. PLR1_PointsToRotatePtr: dc.l 0
  12863. PLR1_ListOfGraphRooms: dc.l 0
  12864. PLR1_oldxoff: dc.l 0
  12865. PLR1_oldzoff: dc.l 0
  12866. PLR1_StoodInTop: dc.b 0
  12867.  even
  12868. PLR1_height: dc.l 0
  12869. PLR1_RoomBright: dc.w 0
  12870.  
  12871. DOUBLEWIDTH: dc.b $0,0
  12872. DOUBLEHEIGHT: dc.b 0,0
  12873. PLR1_TELEPORTED: dc.w 0
  12874. PLR2_TELEPORTED: dc.w 0
  12875.  
  12876.  ds.w 4
  12877.  
  12878. OLDX1: dc.l 0
  12879. OLDX2: dc.l 0
  12880. OLDZ1: dc.l 0
  12881. OLDZ2: dc.l 0
  12882.  
  12883. XDIFF1: dc.l 0
  12884. ZDIFF1: dc.l 0
  12885. XDIFF2: dc.l 0
  12886. ZDIFF2: dc.l 0
  12887.  
  12888. PLR1s_cosval: dc.w 0
  12889. PLR1s_sinval: dc.w 0
  12890. PLR1s_angpos: dc.w 0
  12891. PLR1s_angspd: dc.w 0
  12892. PLR1s_xoff: dc.l 0
  12893. PLR1s_yoff: dc.l 0
  12894. PLR1s_yvel: dc.l 0
  12895. PLR1s_zoff: dc.l 0
  12896. PLR1s_tyoff: dc.l 0
  12897. PLR1s_xspdval: dc.l 0
  12898. PLR1s_zspdval: dc.l 0
  12899. PLR1s_Zone: dc.w 0
  12900. PLR1s_Roompt: dc.l 0
  12901. PLR1s_OldRoompt: dc.l 0
  12902. PLR1s_PointsToRotatePtr: dc.l 0
  12903. PLR1s_ListOfGraphRooms: dc.l 0
  12904. PLR1s_oldxoff: dc.l 0
  12905. PLR1s_oldzoff: dc.l 0
  12906. PLR1s_height: dc.l 0
  12907. PLR1s_targheight: dc.l 0
  12908.  
  12909. p1_xoff: dc.l 0
  12910. p1_zoff: dc.l 0
  12911. p1_yoff: dc.l 0
  12912. p1_height: dc.l 0
  12913. p1_angpos: dc.w 0
  12914. p1_bobble: dc.w 0
  12915. p1_clicked: dc.b 0
  12916. p1_spctap: dc.b 0
  12917. p1_ducked: dc.b 0
  12918. p1_gunselected: dc.b 0
  12919. p1_fire: dc.b 0
  12920.  even
  12921. p1_holddown: dc.w 0
  12922.  
  12923.  ds.w 4
  12924.  
  12925. PLR2: dc.b $ff
  12926.  even
  12927. PLR2_GunSelected: dc.w 0
  12928. PLR2_energy: dc.w 191
  12929. PLR2_cosval: dc.w 0
  12930. PLR2_sinval: dc.w 0
  12931. PLR2_angpos: dc.w 0
  12932. PLR2_angspd: dc.w 0
  12933. PLR2_xoff: dc.l 0
  12934. PLR2_yoff: dc.l 0
  12935. PLR2_yvel: dc.l 0
  12936. PLR2_zoff: dc.l 0
  12937. PLR2_tyoff: dc.l 0
  12938. PLR2_xspdval: dc.l 0
  12939. PLR2_zspdval: dc.l 0
  12940. PLR2_Zone: dc.w 0
  12941. PLR2_Roompt: dc.l 0
  12942. PLR2_OldRoompt: dc.l 0
  12943. PLR2_PointsToRotatePtr: dc.l 0
  12944. PLR2_ListOfGraphRooms: dc.l 0
  12945. PLR2_oldxoff: dc.l 0
  12946. PLR2_oldzoff: dc.l 0
  12947. PLR2_StoodInTop: dc.b 0
  12948.  even
  12949. PLR2_height: dc.l 0
  12950.  
  12951.  ds.w 4
  12952.  
  12953. PLR2s_cosval: dc.w 0
  12954. PLR2s_sinval: dc.w 0
  12955. PLR2s_angpos: dc.w 0
  12956. PLR2s_angspd: dc.w 0
  12957. PLR2s_xoff: dc.l 0
  12958. PLR2s_yoff: dc.l 0
  12959. PLR2s_yvel: dc.l 0
  12960. PLR2s_zoff: dc.l 0
  12961. PLR2s_tyoff: dc.l 0
  12962. PLR2s_xspdval: dc.l 0
  12963. PLR2s_zspdval: dc.l 0
  12964. PLR2s_Zone: dc.w 0
  12965. PLR2s_Roompt: dc.l 0
  12966. PLR2s_OldRoompt: dc.l 0
  12967. PLR2s_PointsToRotatePtr: dc.l 0
  12968. PLR2s_ListOfGraphRooms: dc.l 0
  12969. PLR2s_oldxoff: dc.l 0
  12970. PLR2s_oldzoff: dc.l 0
  12971. PLR2s_height: dc.l 0
  12972. PLR2s_targheight: dc.l 0
  12973.  
  12974.  ds.w 4
  12975.  
  12976. p2_xoff: dc.l 0
  12977. p2_zoff: dc.l 0
  12978. p2_yoff: dc.l 0
  12979. p2_height: dc.l 0
  12980. p2_angpos: dc.w 0
  12981. p2_bobble: dc.w 0
  12982. p2_clicked: dc.b 0
  12983. p2_spctap: dc.b 0
  12984. p2_ducked: dc.b 0
  12985. p2_gunselected: dc.b 0
  12986. p2_fire: dc.b 0
  12987.  even
  12988. p2_holddown: dc.w 0
  12989.  
  12990. liftanimtab:
  12991.  
  12992. endliftanimtab:
  12993.  
  12994. glassball:
  12995. ; incbin "glassball.inc"
  12996.  
  12997. endglass
  12998. glassballpt: dc.l glassball
  12999.  
  13000. rndtab: ; incbin "randfile"
  13001. endrnd: 
  13002.  
  13003. brightanimtab:
  13004. ; dcb.w 200,20
  13005. ; dc.w 5
  13006. ; dc.w 10,20
  13007. ; dc.w 5
  13008. ; dcb.w 30,20
  13009. ; dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  13010. ; dcb.w 40,0
  13011. ; dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  13012. ; dcb.w 300,0
  13013. ; dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  13014. ; dc.w -1
  13015.  
  13016. Roompt: dc.l 0
  13017. OldRoompt: dc.l 0
  13018.  
  13019. *****************************************************************
  13020.  *
  13021.  include "AB3:source_4000/LevelData2"
  13022.  *
  13023. *****************************************************************
  13024.  
  13025.  
  13026. wallpt: dc.l 0
  13027. floorpt: dc.l 0
  13028.  
  13029. Rotated:
  13030.  ds.l 2*800 
  13031. ObjRotated:
  13032.  ds.l 2*500
  13033.  
  13034. OnScreen:
  13035.  ds.l 2*800 
  13036.  
  13037. startwait: dc.w 0
  13038. endwait: dc.w 0
  13039.  
  13040. ;Faces:
  13041. ; incbin "faces2raw"
  13042.  
  13043. LINKS: dc.l 0
  13044. FLYLINKS: dc.l 0
  13045. *************************************************************
  13046.  
  13047. consttab:
  13048.  ds.b 65536
  13049.  
  13050. ; incbin "constantfile"
  13051.  
  13052. *******************************************************************
  13053.  
  13054.  
  13055.  
  13056. *********************************
  13057.  
  13058. ; include "ab3:source_4000/loadmod.a"
  13059. ; include "ab3:source_4000/proplayer.a"
  13060.  
  13061.  
  13062. darkentab: 
  13063. ;val SET 0
  13064. ; REPT 256
  13065. ; dc.b val
  13066. ;val SET val+1
  13067. ; ENDR
  13068. ; incbin "darkenfile"
  13069.  
  13070.     dc.w 0
  13071. MIDDLEX: dc.w 0
  13072. RIGHTX: dc.w 192
  13073. FULLSCR: dc.w 0
  13074.  
  13075. ;SHADINGTABLE: incbin "SHADEFILE" 
  13076.  
  13077. ******************************************
  13078. * Link file !*****************************
  13079. ******************************************
  13080.  
  13081. LINKSPACE:
  13082. ; ds.l 22500
  13083. ; incbin "ab3:includes/test.lnk"
  13084.  
  13085. LINKname:
  13086.  dc.b "TKG1:includes/test.lnk",0
  13087.  even
  13088.  
  13089. LINKFILE:
  13090.  dc.l LINKSPACE
  13091.  
  13092. ******************************************
  13093.  
  13094.  
  13095. ;brightentab:
  13096. ; incbin "brightenfile"
  13097. WorkSpace:
  13098.  ds.l 8192 
  13099. waterfile:
  13100.  incbin "waterfile"
  13101.  
  13102.  SECTION ffff,CODE_C
  13103.  
  13104. nullspr: dc.l 0
  13105.  
  13106.  cnop 0,8
  13107. ;borders:
  13108. ; incbin "newleftbord"
  13109. ; incbin "newrightbord"
  13110.  
  13111. health: 
  13112. ;incbin "healthstrip"
  13113. Ammunition: 
  13114. ;incbin "ammostrip"
  13115. healthpal: 
  13116. ;incbin "healthpal"
  13117. PanelKeys: 
  13118. ;incbin "greenkey"
  13119. ; incbin "redkey"
  13120. ; incbin "yellowkey"
  13121. ; incbin "bluekey"
  13122.  
  13123. null: ds.w 500
  13124. null2: ds.w 500
  13125. null3: ds.w 500
  13126. null4: ds.w 500
  13127.  
  13128.  
  13129. Blurbfield:
  13130.  
  13131.  dc.w bpl1ptl
  13132. bl1l: dc.w 0
  13133.  dc.w bpl1pth
  13134. bl1h: dc.w 0
  13135.  
  13136.  dc.w diwstart,$2c81
  13137.  dc.w diwstop,$1cc1
  13138.  dc.w ddfstart,$38
  13139.  dc.w ddfstop,$b8
  13140.  dc.w bplcon0,$9201
  13141.  dc.w bplcon1,0
  13142.  dc.w $106,$c40
  13143. blcols:
  13144.  dc.w col0,0
  13145.  dc.w col1,$fff
  13146.  
  13147.  dc.w $108,0
  13148.  dc.w $10a,0
  13149.  
  13150.  dc.w $ffff,$fffe
  13151.  dc.w $ffff,$fffe
  13152.  
  13153. nullline:
  13154.  ds.b 80    
  13155.  
  13156.  include "ab3:source_4000/titlecop.s"
  13157.  
  13158. bigfield:    
  13159.                 ; Start of our copper list.
  13160.  dc.w dmacon,$8020
  13161.  dc.w intreq,$8011
  13162.  dc.w $1fc,$f
  13163.  dc.w diwstart
  13164. winstart: dc.w $2c81
  13165.  dc.w diwstop
  13166. winstop: dc.w $2cc1
  13167.  dc.w ddfstart
  13168. fetchstart: dc.w $38
  13169.  dc.w ddfstop
  13170. fetchstop: dc.w $b8
  13171.  
  13172. bordercols:
  13173.  incbin "borderpal"
  13174.  
  13175.  dc.w spr0ptl
  13176. s0l:
  13177.  dc.w 0
  13178.  dc.w spr0pth
  13179. s0h:
  13180.  dc.w 0
  13181.  dc.w spr1ptl
  13182. s1l:
  13183.  dc.w 0
  13184.  dc.w spr1pth
  13185. s1h:
  13186.  dc.w 0
  13187.  dc.w spr2ptl
  13188. s2l:
  13189.  dc.w 0
  13190.  dc.w spr2pth
  13191. s2h:
  13192.  dc.w 0
  13193.  dc.w spr3ptl
  13194. s3l:
  13195.  dc.w 0
  13196.  dc.w spr3pth
  13197. s3h:
  13198.  dc.w 0
  13199.  dc.w spr4ptl
  13200. s4l:
  13201.  dc.w 0
  13202.  dc.w spr4pth
  13203. s4h:
  13204.  dc.w 0
  13205.  dc.w spr5ptl
  13206. s5l:
  13207.  dc.w 0
  13208.  dc.w spr5pth
  13209. s5h:
  13210.  dc.w 0
  13211.  dc.w spr6ptl
  13212. s6l:
  13213.  dc.w 0
  13214.  dc.w spr6pth
  13215. s6h:
  13216.  dc.w 0
  13217.  dc.w spr7ptl
  13218. s7l:
  13219.  dc.w 0
  13220.  dc.w spr7pth
  13221. s7h:
  13222.  dc.w 0
  13223.  
  13224. ; dc.w $106,$c42
  13225. ; incbin "borderpal"
  13226.  
  13227.  dc.w $106,$c42
  13228.  
  13229.  dc.w bplcon0,$0211
  13230.  dc.w bplcon1
  13231. smoff:
  13232.  dc.w $0
  13233.  
  13234.  dc.w $108
  13235. modulo: dc.w 0
  13236.  dc.w $10a,0
  13237.  
  13238.  dc.w $1001,$ff00
  13239.  dc.w intreq,$11
  13240.  
  13241. PALETTESPACE:
  13242.  dcb.l 528,$1fe0000
  13243.  
  13244.  dc.w $2001,$ff00
  13245.  
  13246.  dc.w bpl1pth
  13247. pl1h
  13248.  dc.w 0
  13249.  
  13250.  dc.w bpl1ptl
  13251. pl1l
  13252.  dc.w 0
  13253.  
  13254.  dc.w bpl2pth
  13255. pl2h
  13256.  dc.w 0
  13257.  
  13258.  dc.w bpl2ptl
  13259. pl2l
  13260.  dc.w 0
  13261.  
  13262.  dc.w bpl3pth
  13263. pl3h
  13264.  dc.w 0
  13265.  
  13266.  dc.w bpl3ptl
  13267. pl3l
  13268.  dc.w 0
  13269.  
  13270.  dc.w bpl4pth
  13271. pl4h
  13272.  dc.w 0
  13273.  
  13274.  dc.w bpl4ptl
  13275. pl4l
  13276.  dc.w 0
  13277.  
  13278.  dc.w bpl5pth
  13279. pl5h
  13280.  dc.w 0
  13281.  
  13282.  dc.w bpl5ptl
  13283. pl5l
  13284.  dc.w 0
  13285.  
  13286.  dc.w bpl6pth
  13287. pl6h
  13288.  dc.w 0
  13289.  
  13290.  dc.w bpl6ptl
  13291. pl6l
  13292.  dc.w 0
  13293.  
  13294.  dc.w bpl7pth
  13295. pl7h
  13296.  dc.w 0
  13297.  
  13298.  dc.w bpl7ptl
  13299. pl7l
  13300.  dc.w 0
  13301.  
  13302.  dc.w bpl8pth
  13303. pl8h
  13304.  dc.w 0
  13305.  
  13306.  dc.w bpl8ptl
  13307. pl8l
  13308.  dc.w 0
  13309.  
  13310.  
  13311. val SET $2c
  13312. SCRMODULOS:
  13313.  REPT 232
  13314.  dc.b val,1,$ff,$fe
  13315.  dc.w $108,0
  13316.  dc.w $10a,0
  13317.  dc.b val,$df,$ff,$fe
  13318. val SET (val+1)&$ff
  13319.  ENDR
  13320.  
  13321.  dc.w $108,0,$10a,0
  13322.  dc.w $2401,$ff00
  13323.  dc.w ddfstop,$c8
  13324.  dc.w bplcon0,$9201
  13325.  dc.w bpl1ptl
  13326. scroll:
  13327.  dc.w 0
  13328.  dc.w bpl1pth
  13329. scrolh:
  13330.  dc.w 0
  13331.  
  13332.  dc.w $106,$c40
  13333.  dc.w $180,0
  13334.  dc.w $182,$f0
  13335. ; dc.w $108,40
  13336. ; dc.w $10a,40
  13337.  
  13338. ; dc.w $80
  13339. ;JUMPBACKH:
  13340. ; dc.w 0
  13341. ; dc.w $82
  13342. ;JUMPBACKL:
  13343. ; dc.w 0
  13344.  
  13345. ; dc.w $8a,0
  13346.  
  13347.  dc.w $ffff,$fffe
  13348.  dc.w $ffff,$fffe
  13349.  
  13350. PALETTEBIT:
  13351.  incbin "256palette"
  13352.  dc.w $ffff,$fffe
  13353.  
  13354. yposcop:
  13355. ; dc.w $2a11,$fffe
  13356. ; dc.w $8a,0
  13357.  
  13358. ; ds.l 104*12
  13359.  
  13360. ;colbars:
  13361. ;val SET $2a
  13362. ; dcb.l 104*80,$1fe0000
  13363. ; dc.w $106,$c42
  13364. ; 
  13365. ; dc.w $80
  13366. ;pch1:
  13367. ; dc.w 0
  13368. ; dc.w $82
  13369. ;pcl1:
  13370. ; dc.w 0 
  13371. ; 
  13372. ; dc.w $88,0
  13373. ; 
  13374. ; dc.w $ffff,$fffe       ; End copper list.
  13375.  
  13376. ; ds.l 104*12
  13377.  
  13378.  
  13379. ;colbars2:
  13380. ;val SET $2a
  13381. ; dcb.l 104*80,$1fe0000
  13382. ; 
  13383. ; dc.w $106,$c42
  13384. ; 
  13385. ; dc.w $80
  13386. ;pch2:
  13387. ; dc.w 0
  13388. ; dc.w $82
  13389. ;pcl2:
  13390. ; dc.w 0
  13391. ; 
  13392. ; dc.w $88,0
  13393. ; 
  13394. ; dc.w $ffff,$fffe       ; End copper list.
  13395.  
  13396. ; ds.l 104*10
  13397.  
  13398. NullCopper:
  13399.  dc.w $ffff,$fffe
  13400.  
  13401. hitcol: dc.l 0
  13402.  
  13403. old: dc.l 0
  13404.  
  13405.  CNOP 0,64
  13406. SCROLLSCRN: ds.l 20*16
  13407.  
  13408. SCROLLOFFSET: dc.w 0
  13409. SCROLLTIMER: dc.w 100
  13410. SCROLLDIRECTION: dc.w 1
  13411. SCROLLXPOS: dc.w 0
  13412. SCROLLPOINTER: dc.l testscroll
  13413. ENDSCROLL: dc.l endtestscroll
  13414.  
  13415. testscroll:
  13416. ;      12345678901234567890123456789012345678901234567890123456789012345678901234567890
  13417. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13418. ; dc.b "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ                            "
  13419. ; dc.b "The Quick Brown Fox Jumped Over The Lazy Dog!                                   "
  13420.  
  13421. BLANKSCROLL:
  13422.  dc.b "                                                                                "
  13423. endtestscroll: 
  13424.  
  13425. prot5: dc.w 0
  13426. PanelCop:
  13427.  
  13428.  dc.w $80
  13429. och:
  13430.  dc.w 0
  13431.  dc.w $82
  13432. ocl:
  13433.  dc.w 0
  13434.  
  13435. statskip:
  13436.  dc.w $1fe,0
  13437.  dc.w $1fe,0
  13438.  
  13439.  dc.w $10c,0
  13440.  dc.w bplcon0,$1201
  13441.  dc.w bpl1ptl
  13442. n1l:
  13443.  dc.w 0
  13444.  dc.w bpl1pth
  13445. n1h:
  13446.  dc.w 0
  13447.  dc.w $108,-24
  13448. ; incbin "Panelpal"
  13449.  
  13450.  dc.w bpl2pth
  13451. p2h
  13452.  dc.w 0
  13453.  
  13454.  dc.w bpl2ptl
  13455. p2l
  13456.  dc.w 0
  13457.  
  13458.  dc.w bpl3pth
  13459. p3h
  13460.  dc.w 0
  13461.  
  13462.  dc.w bpl3ptl
  13463. p3l
  13464.  dc.w 0
  13465.  
  13466.  dc.w bpl4pth
  13467. p4h
  13468.  dc.w 0
  13469.  dc.w bpl4ptl
  13470. p4l
  13471.  dc.w 0
  13472.  dc.w bpl5pth
  13473. p5h
  13474.  dc.w 0
  13475.  dc.w bpl5ptl
  13476. p5l
  13477.  dc.w 0
  13478.  dc.w bpl6pth
  13479. p6h
  13480.  dc.w 0
  13481.  dc.w bpl6ptl
  13482. p6l
  13483.  dc.w 0
  13484.  dc.w bpl7pth
  13485. p7h
  13486.  dc.w 0
  13487.  dc.w bpl7ptl
  13488. p7l
  13489.  dc.w 0
  13490.  dc.w bpl8pth
  13491. p8h
  13492.  dc.w 0
  13493.  dc.w bpl8ptl
  13494. p8l
  13495.  dc.w 0
  13496.  
  13497.  
  13498.  dc.w ddfstart,$38
  13499.  dc.w ddfstop,$b8
  13500.  dc.w diwstart,$2c81
  13501.  dc.w diwstop,$2cc1
  13502.  
  13503.  dc.w bplcon0
  13504. Panelcon: dc.w $0211
  13505.  dc.w bpl1pth
  13506. p1h
  13507.  dc.w 0
  13508.  
  13509.  dc.w bpl1ptl
  13510. p1l
  13511.  dc.w 0
  13512.  
  13513.  
  13514.  dc.w $108,40*7
  13515.  dc.w $10a,40*7
  13516.  
  13517.  dc.w $ffff,$fffe
  13518.  
  13519.  dc.w $180,$fff
  13520.  
  13521.  
  13522.  dc.w $f801,$ff00
  13523.  dc.w col1,$50
  13524.  dc.w $f901,$ff00
  13525.  dc.w col1,$90
  13526.  dc.w $fa01,$ff00
  13527.  dc.w col1,$f0
  13528.  dc.w $fb01,$ff00
  13529.  dc.w col1,$f0
  13530.  dc.w $fc01,$ff00
  13531.  dc.w col1,$90
  13532.  dc.w $fd01,$ff00
  13533.  dc.w col1,$50
  13534.  
  13535.  dc.w $fe01,$ff00
  13536.  dc.w col1,$fff
  13537.  
  13538.  dc.w $ffdf,$fffe
  13539.  dc.w $a01,$ff00
  13540.  dc.w bplcon0,$201
  13541.  
  13542. ; incbin "faces2cols"
  13543.  dc.w bpl1pth
  13544. f1h
  13545.  dc.w 0
  13546.  
  13547.  dc.w bpl1ptl
  13548. f1l
  13549.  dc.w 0
  13550.  
  13551.  dc.w bpl2pth
  13552. f2h
  13553.  dc.w 0
  13554.  
  13555.  dc.w bpl2ptl
  13556. f2l
  13557.  dc.w 0
  13558.  
  13559.  dc.w bpl3pth
  13560. f3h
  13561.  dc.w 0
  13562.  
  13563.  dc.w bpl3ptl
  13564. f3l
  13565.  dc.w 0
  13566.  
  13567.  dc.w bpl4pth
  13568. f4h
  13569.  dc.w 0
  13570.  dc.w bpl4ptl
  13571. f4l
  13572.  dc.w 0
  13573.  
  13574.  dc.w bpl5pth
  13575. f5h
  13576.  dc.w 0
  13577.  dc.w bpl5ptl
  13578. f5l
  13579.  dc.w 0
  13580.  
  13581.  dc.w $0c01,$ff00
  13582.  dc.w bplcon0,$5201
  13583.   
  13584.  dc.w $ffff,$fffe
  13585.  
  13586.  cnop 0,64
  13587. FacePlace:
  13588. ; ds.l 6*32*5
  13589.  
  13590. TEXTSCRN: dc.l 0
  13591.  
  13592. TEXTCOP:
  13593.  dc.w intreq,$8030
  13594.  
  13595.  dc.w spr0ptl
  13596. txs0l:
  13597.  dc.w 0
  13598.  dc.w spr0pth
  13599. txs0h:
  13600.  dc.w 0
  13601.  dc.w spr1ptl
  13602. txs1l:
  13603.  dc.w 0
  13604.  dc.w spr1pth
  13605. txs1h:
  13606.  dc.w 0
  13607.  dc.w spr2ptl
  13608. txs2l:
  13609.  dc.w 0
  13610.  dc.w spr2pth
  13611. txs2h:
  13612.  dc.w 0
  13613.  dc.w spr3ptl
  13614. txs3l:
  13615.  dc.w 0
  13616.  dc.w spr3pth
  13617. txs3h:
  13618.  dc.w 0
  13619.  dc.w spr4ptl
  13620. txs4l:
  13621.  dc.w 0
  13622.  dc.w spr4pth
  13623. txs4h:
  13624.  dc.w 0
  13625.  dc.w spr5ptl
  13626. txs5l:
  13627.  dc.w 0
  13628.  dc.w spr5pth
  13629. txs5h:
  13630.  dc.w 0
  13631.  dc.w spr6ptl
  13632. txs6l:
  13633.  dc.w 0
  13634.  dc.w spr6pth
  13635. txs6h:
  13636.  dc.w 0
  13637.  dc.w spr7ptl
  13638. txs7l:
  13639.  dc.w 0
  13640.  dc.w spr7pth
  13641. txs7h:
  13642.  dc.w 0
  13643.  
  13644.  
  13645.  dc.w $10c,$0088
  13646.  
  13647.  dc.w $1fc,$f
  13648.  dc.w diwstart,$2c81    ; Top left corner of screen.
  13649.  dc.w diwstop
  13650. BOTOFTXT:
  13651.  dc.w $2cc1     ; Bottom right corner of screen.
  13652.  dc.w ddfstart,$38      ; Data fetch start.
  13653.  dc.w ddfstop,$c8       ; Data fetch stop.
  13654.  
  13655.  dc.w bplcon0
  13656. TSCP:
  13657.  dc.w $a201
  13658.  
  13659.  dc.w $106,$c40
  13660.  
  13661.  dc.w $2a01,$ff00
  13662.  
  13663.  dc.w col0,0
  13664.  dc.w col1
  13665. TOPLET:
  13666. TXTCOLL:
  13667.  dc.w 0
  13668.   dc.w col2
  13669. BOTLET:
  13670. TOPCOLL:
  13671.  dc.w 0
  13672.  dc.w col3
  13673. ALLTEXT:
  13674. MIXCOLL:
  13675.  dc.w $fff
  13676.  dc.w $106,$e40
  13677.  dc.w col3
  13678. ALLTEXTLOW:
  13679.  dc.w $0
  13680.  
  13681.  
  13682.  dc.w bpl1pth
  13683. TSPTh:
  13684.  dc.w 0
  13685.  dc.w bpl1ptl
  13686. TSPTl:
  13687.  dc.w 0
  13688.  
  13689.  dc.w bpl2pth
  13690. TSPTh2:
  13691.  dc.w 0
  13692.  dc.w bpl2ptl
  13693. TSPTl2:
  13694.  dc.w 0
  13695.  
  13696.  
  13697.  dc.w $108,0
  13698.  dc.w $10a,0
  13699.  
  13700.  dc.w $ffff,$fffe
  13701.  
  13702. ********************************************
  13703. * Stuff you don't have to worry about yet. *
  13704. ********************************************
  13705.  
  13706. closeeverything:
  13707.  
  13708. ; jsr mt_end
  13709.  
  13710.  move.l #nullcop,d0
  13711. ; move.l old,d0
  13712.  
  13713.  
  13714. ;charlie  
  13715.  move.l d0,$dff080     ; Restore old copper list.
  13716.  move.w d0,ocl
  13717.  swap d0
  13718.  move.w d0,och
  13719.  
  13720. ; move.l doslib,a6
  13721. ; move.l #4,d1
  13722. ; jsr -198(a6)
  13723.  
  13724. ; move.l doslib,d0
  13725. ; move.l d0,a1
  13726. ; move.l 4.w,a6
  13727. ; jsr CloseLib(a6)
  13728.  
  13729.  move.l #$dff000,a6
  13730.  move.w #$8020,dmacon(a6)
  13731.  move.w #$f,dmacon(a6)
  13732.  
  13733. ; move.l 4.w,a6
  13734. ; lea VBLANKInt,a1
  13735. ; moveq #INTB_COPER,d0
  13736. ; jsr _LVORemIntServer(a6)
  13737.  
  13738. ; IFEQ CD32VER
  13739. ; move.l OLDKINT,$68.w
  13740. ; ENDC
  13741. ; move.w saveinters,d0
  13742. ; or.w #$c000,d0
  13743. ; move.w d0,intena(a6)
  13744.  clr.w $dff0a8
  13745.  clr.w $dff0b8
  13746.  clr.w $dff0c8
  13747.  clr.w $dff0d8
  13748.  
  13749.  
  13750. ; move.l oldview,a1
  13751. ; move.l a1,d0
  13752. ; move.l gfxbase,a6
  13753. ; jsr -$de(a6)
  13754.  
  13755. ; cmp.b #'s',mors
  13756. ; beq.s leaveold
  13757. ; move.w #$f8e,$dff1dc
  13758. ;leaveold:
  13759.  
  13760.  jsr RELEASELEVELMEM
  13761.  jsr RELEASESCRNMEM
  13762.  
  13763.  move.l #0,d0
  13764.  
  13765.  rts
  13766.  
  13767.  
  13768.  
  13769. intbase: dc.l 0
  13770. gfxbase: dc.l 0
  13771. oldview: dc.l 0
  13772.  
  13773. stuff:
  13774.  
  13775.     PRSDL
  13776.     Lea    gfxname(pc),a1    
  13777.     Moveq.l    #0,d0
  13778.     Move.l    $4.w,a6    
  13779.     Jsr    -$228(a6)
  13780.     add.w d1,RVAL1
  13781.     Move.l     d0,gfxbase
  13782.     Move.l    d0,a6                Use As Base Reg
  13783.     Move.l    34(a6),oldview
  13784.     move.l 38(a6),old
  13785.     rts
  13786.  
  13787. gfxname dc.b "graphics.library",0
  13788.  even
  13789. INTUNAME    dc.b    "intuition.library",0
  13790.  
  13791.  even
  13792.  
  13793.  
  13794.  cnop 0,64
  13795.  
  13796. Panel:
  13797.  dc.l 0
  13798.  
  13799. TimerScr: 
  13800. ;ds.b 40*64
  13801.  
  13802. scrntab:
  13803.  ds.b 16
  13804. val SET 32
  13805.  REPT 96
  13806.  dc.b val,val,val
  13807. val SET val+1
  13808.  ENDR
  13809.  ds.b 16
  13810.  
  13811. smallscrntab:
  13812. val SET 32
  13813.  REPT 96
  13814.  dc.b val,val
  13815. val SET val+1
  13816.  ENDR
  13817.  
  13818.  cnop 0,64
  13819. scrn:
  13820.  dc.l 0
  13821. ; incbin "ab3:includes/newborderRAW"
  13822. ; ds.b 80
  13823. scrn2:
  13824.  dc.l 0
  13825.  
  13826. ;flib:
  13827. ; incbin "ab3:includes/newborderRAW"
  13828. ; ds.b 80
  13829. ;flib2:
  13830. ; incbin "ab3:includes/newborderRAW"
  13831. ; ds.b 80
  13832.  
  13833. ; incbin "ab3:includes/newborderRAW"
  13834. ; ds.b 80
  13835.  
  13836. SCRNDRAWPT: dc.l 0
  13837. SCRNSHOWPT: dc.l 0
  13838.  
  13839. ; dcb.l 8,$33333333
  13840. ; dc.l 0
  13841. ; dc.l 0
  13842. ; 
  13843. ; dcb.l 8,$0f0f0f0f
  13844. ; dc.l 0
  13845. ; dc.l 0
  13846. ;
  13847. ; dcb.l 8,$00ff00ff
  13848. ; dc.l 0
  13849. ; dc.l 0
  13850. ; 
  13851. ; dcb.l 8,$0000ffff
  13852. ; dc.l 0
  13853. ; dc.l 0
  13854. ; 
  13855. ; dc.l 0,-1,0,-1,0,-1,0,-1
  13856. ; dc.l 0
  13857. ; dc.l 0
  13858. ; 
  13859. ; dc.l -1,-1,0,0,-1,-1,0,0
  13860. ; dc.l 0
  13861. ; dc.l 0
  13862. ; 
  13863. ; dc.l 0,0,-1,-1,-1,-1,-1,-1
  13864. ; dc.l 0
  13865. ; dc.l 0
  13866.  
  13867. NumTimes: dc.l 0
  13868. TimeCount: dc.l 0
  13869. oldtime: dc.l 0
  13870. counting: dc.b 0
  13871. oktodisplay: dc.b 0
  13872.  
  13873. INITTIMER:
  13874.  move.l #0,TimeCount
  13875.  move.l #0,NumTimes
  13876.  rts
  13877.  
  13878. STARTCOUNT:
  13879.  move.l d0,-(a7)
  13880.  move.l $dff004,d0
  13881.  and.l #$1ffff,d0
  13882.  move.l d0,oldtime
  13883.  st counting
  13884.  move.l (a7)+,d0
  13885.  rts
  13886.  
  13887. STOPCOUNT:
  13888.  move.l d0,-(a7)
  13889.  move.l $dff004,d0
  13890.  and.l #$1ffff,d0
  13891.  
  13892.  sub.l oldtime,d0
  13893.  cmp.l #-256,d0
  13894.  bge.s okcount
  13895.  add.l #313*256,d0
  13896. okcount:
  13897.  add.l d0,TimeCount
  13898.  addq.l #1,NumTimes
  13899.  clr.b counting
  13900.  move.l (a7)+,d0
  13901.  rts
  13902.  
  13903. STOPCOUNTNOADD:
  13904.  move.l d0,-(a7)
  13905.  move.l $dff004,d0
  13906.  and.l #$1ffff,d0
  13907.  
  13908.  sub.l oldtime,d0
  13909.  cmp.l #-256,d0
  13910.  bge.s okcount2
  13911.  add.l #313*256,d0
  13912. okcount2:
  13913.  add.l d0,TimeCount
  13914.  clr.b counting
  13915.  move.l (a7)+,d0
  13916.  rts
  13917.  
  13918. maxbot: dc.w 0
  13919. tstneg: dc.l 0
  13920.  
  13921. STOPTIMER:
  13922.  st oktodisplay
  13923.  rts
  13924.  
  13925. digits: incbin "numbers.inc"
  13926.  
  13927. COMPACTMAP: ds.l 257
  13928.  
  13929. BIGMAP: ds.l 256*10
  13930.  
  13931.  Section Sounds,CODE_C
  13932.  
  13933. nullcop:
  13934.  dc.w $106,$c40
  13935.  dc.w $180,0 
  13936.  dc.w $100,$0
  13937.  dc.w $ffff,$fffe
  13938.  
  13939. Scream:
  13940. ; incbin "ab3:sounds/Scream"
  13941. ; ds.w 100
  13942. EndScream:
  13943. LowScream:
  13944. ; incbin "ab3:sounds/LowScream"
  13945. ; ds.w 100
  13946. EndLowScream:
  13947. BaddieGun:
  13948. ; incbin "ab3:sounds/BaddieGun"
  13949. EndBaddieGun:
  13950. bass:
  13951. ; incbin "ab3:sounds/backbass+drum"
  13952. bassend:
  13953. Shoot:
  13954. ; incbin "ab3:sounds/fire!"
  13955. EndShoot:
  13956. Munch:
  13957. ; incbin "ab3:sounds/munch"
  13958. EndMunch:
  13959. PooGun:
  13960. ; incbin "ab3:sounds/shoot.dm"
  13961. EndPooGun:
  13962. Collect:
  13963. ; incbin "ab3:sounds/collect"
  13964. EndCollect:
  13965. DoorNoise:
  13966. ; incbin "ab3:sounds/newdoor"
  13967. EndDoorNoise:
  13968. Stomp:
  13969. ; incbin "ab3:sounds/footstep3"
  13970. EndStomp:
  13971. SwitchNoise:
  13972. ; incbin "ab3:sounds/switch"
  13973. EndSwitch:
  13974. Reload:
  13975. ; incbin "ab3:sounds/switch1.SFX"
  13976. EndReload:
  13977.  
  13978. CHEATFRAME:
  13979.  dc.b 26,20,33,27,17,12
  13980. ENDCHEAT:
  13981.  
  13982. NoAmmo:
  13983. ; incbin "ab3:sounds/noammo"
  13984. EndNoAmmo:
  13985. Splotch:
  13986. ; incbin "ab3:sounds/splotch"
  13987. EndSplotch:
  13988. SplatPop:
  13989. ; incbin "ab3:sounds/splatpop"
  13990. EndSplatPop:
  13991. Boom:
  13992. ; incbin "ab3:sounds/boom"
  13993. EndBoom:
  13994. Hiss:
  13995. ; incbin "ab3:sounds/newhiss"
  13996. EndHiss:
  13997. Howl1:
  13998. ; incbin "ab3:sounds/howl1"
  13999. EndHowl1:
  14000. Howl2:
  14001. ; incbin "ab3:sounds/howl2"
  14002. EndHowl2:
  14003. Pant:
  14004. ; incbin "ab3:sounds/pant"
  14005. EndPant:
  14006. Whoosh:
  14007. ; incbin "ab3:sounds/whoosh"
  14008. EndWhoosh:
  14009. ROAR:
  14010. ; incbin "ab3:sounds/bigscream"
  14011. EndROAR
  14012. whoosh:
  14013. ; incbin "ab3:sounds/flame"
  14014. Endwhoosh:
  14015.  SECTION music,code_c
  14016.  
  14017. UseAllChannels: dc.w 0
  14018.  
  14019. mt_init:
  14020.  
  14021.  
  14022.     move.l    mt_data,a0
  14023.     move.l    a0,a1
  14024.     add.l    #$3b8,a1
  14025.     moveq    #$7f,d0
  14026.     moveq    #0,d1
  14027. mt_loop:move.l    d1,d2
  14028.     subq.w    #1,d0
  14029. mt_lop2:move.b    (a1)+,d1
  14030.     cmp.b    d2,d1
  14031.     bgt.s    mt_loop
  14032.     dbf    d0,mt_lop2
  14033.     addq.b    #1,d2
  14034.  
  14035.     lea    mt_samplestarts(pc),a1
  14036.     asl.l    #8,d2
  14037.     asl.l    #2,d2
  14038.     add.l    #$43c,d2
  14039.     add.l    a0,d2
  14040.     move.l    d2,a2
  14041.     moveq    #$1e,d0
  14042. mt_lop3:
  14043.     clr.l    (a2)
  14044.     move.l    a2,(a1)+
  14045.     moveq    #0,d1
  14046.     move.w    42(a0),d1
  14047.     asl.l    #1,d1
  14048.     add.l    d1,a2
  14049.     add.l    #$1e,a0
  14050.     dbf    d0,mt_lop3
  14051.  
  14052.     or.b    #$2,$bfe001
  14053.     move.b    #$6,mt_speed
  14054.     clr.w    $dff0a8
  14055.     clr.w    $dff0b8
  14056.     clr.w    $dff0c8
  14057.     clr.w    $dff0d8
  14058.     clr.b    mt_songpos
  14059.     clr.b    mt_counter
  14060.     clr.w    mt_pattpos
  14061.     rts
  14062.  
  14063. mt_end:    clr.w    $dff0a8
  14064.     clr.w    $dff0b8
  14065.     clr.w    $dff0c8
  14066.     clr.w    $dff0d8
  14067.     move.w    #$f,$dff096
  14068.     rts
  14069.  
  14070. mt_music:
  14071.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  14072.     move.l    mt_data,a0
  14073.     addq.b    #$1,mt_counter
  14074.     move.b    mt_counter,D0
  14075.     cmp.b    mt_speed,D0
  14076.     blt.s    mt_nonew
  14077.     clr.b    mt_counter
  14078.     bra    mt_getnew
  14079.  
  14080. mt_nonew:
  14081.     lea    mt_voice1(pc),a6
  14082.     lea    $dff0a0,a5
  14083.     bsr    mt_checkcom
  14084.     lea    mt_voice2(pc),a6
  14085.     lea    $dff0b0,a5
  14086.     bsr    mt_checkcom
  14087. ;    tst.b UseAllChannels
  14088. ;    beq mt_endr
  14089.      lea    mt_voice3(pc),a6
  14090.     lea    $dff0c0,a5
  14091.     bsr    mt_checkcom
  14092.     lea    mt_voice4(pc),a6
  14093.     lea    $dff0d0,a5
  14094.     bsr    mt_checkcom
  14095.     bra    mt_endr
  14096.  
  14097. mt_arpeggio:
  14098.     moveq    #0,d0
  14099.     move.b    mt_counter,d0
  14100.     divs    #$3,d0
  14101.     swap    d0
  14102.     cmp.w    #$0,d0
  14103.     beq.s    mt_arp2
  14104.     cmp.w    #$2,d0
  14105.     beq.s    mt_arp1
  14106.  
  14107.     moveq    #0,d0
  14108.     move.b    $3(a6),d0
  14109.     lsr.b    #4,d0
  14110.     bra.s    mt_arp3
  14111. mt_arp1:moveq    #0,d0
  14112.     move.b    $3(a6),d0
  14113.     and.b    #$f,d0
  14114.     bra.s    mt_arp3
  14115. mt_arp2:move.w    $10(a6),d2
  14116.     bra.s    mt_arp4
  14117. mt_arp3:asl.w    #1,d0
  14118.     moveq    #0,d1
  14119.     move.w    $10(a6),d1
  14120.     lea    mt_periods(pc),a0
  14121.     moveq    #$24,d7
  14122. mt_arploop:
  14123.     move.w    (a0,d0.w),d2
  14124.     cmp.w    (a0),d1
  14125.     bge.s    mt_arp4
  14126.     addq.l    #2,a0
  14127.     dbf    d7,mt_arploop
  14128.     rts
  14129. mt_arp4:move.w    d2,$6(a5)
  14130.     rts
  14131.  
  14132. mt_getnew:
  14133.     move.l    mt_data,a0
  14134.     move.l    a0,a3
  14135.     move.l    a0,a2
  14136.     add.l    #$c,a3
  14137.     add.l    #$3b8,a2
  14138.     add.l    #$43c,a0
  14139.  
  14140.     moveq    #0,d0
  14141.     move.l    d0,d1
  14142.     move.b    mt_songpos,d0
  14143.     move.b    (a2,d0.w),d1
  14144.     asl.l    #8,d1
  14145.     asl.l    #2,d1
  14146.     add.w    mt_pattpos,d1
  14147.     clr.w    mt_dmacon
  14148.  
  14149.     lea    $dff0a0,a5
  14150.     lea    mt_voice1(pc),a6
  14151.     bsr    mt_playvoice
  14152.     lea    $dff0b0,a5
  14153.     lea    mt_voice2(pc),a6
  14154.     bsr    mt_playvoice
  14155. ;    tst.b UseAllChannels
  14156. ;    beq mt_setdma
  14157.     lea    $dff0c0,a5
  14158.     lea    mt_voice3(pc),a6
  14159.     bsr    mt_playvoice
  14160.     lea    $dff0d0,a5
  14161.     lea    mt_voice4(pc),a6
  14162.     bsr    mt_playvoice
  14163.     bra    mt_setdma
  14164.  
  14165. PROTCALC:
  14166. ;    include "ab3:source_4000/protcalc.s"
  14167.     incbin "ab3:includes/protcalc.bin"
  14168. ENDPROTCALC:
  14169.  
  14170. mt_playvoice:
  14171.     move.l    (a0,d1.l),(a6)
  14172.     addq.l    #4,d1
  14173.     moveq    #0,d2
  14174.     move.b    $2(a6),d2
  14175.     and.b    #$f0,d2
  14176.     lsr.b    #4,d2
  14177.     move.b    (a6),d0
  14178.     and.b    #$f0,d0
  14179.     or.b    d0,d2
  14180.     tst.b    d2
  14181.     beq.s    mt_setregs
  14182.     moveq    #0,d3
  14183.     lea    mt_samplestarts(pc),a1
  14184.     move.l    d2,d4
  14185.     subq.l    #$1,d2
  14186.     asl.l    #2,d2
  14187.     mulu    #$1e,d4
  14188.     move.l    (a1,d2.l),$4(a6)
  14189.     move.w    (a3,d4.l),$8(a6)
  14190.     move.w    $2(a3,d4.l),$12(a6)
  14191.     move.w    $4(a3,d4.l),d3
  14192.     tst.w    d3
  14193.     beq.s    mt_noloop
  14194.     move.l    $4(a6),d2
  14195.     asl.w    #1,d3
  14196.     add.l    d3,d2
  14197.     move.l    d2,$a(a6)
  14198.     move.w    $4(a3,d4.l),d0
  14199.     add.w    $6(a3,d4.l),d0
  14200.     move.w    d0,8(a6)
  14201.     move.w    $6(a3,d4.l),$e(a6)
  14202.     move.w    $12(a6),d0
  14203.     asr.w #2,d0
  14204.     move.w d0,$8(a5)
  14205.     bra.s    mt_setregs
  14206. mt_noloop:
  14207.     move.l    $4(a6),d2
  14208.     add.l    d3,d2
  14209.     move.l    d2,$a(a6)
  14210.     move.w    $6(a3,d4.l),$e(a6)
  14211.     move.w    $12(a6),d0
  14212.     asr.w #2,d0
  14213.     move.w d0,$8(a5)
  14214. mt_setregs:
  14215.     move.w    (a6),d0
  14216.     and.w    #$fff,d0
  14217.     beq    mt_checkcom2
  14218.     move.b    $2(a6),d0
  14219.     and.b    #$F,d0
  14220.     cmp.b    #$3,d0
  14221.     bne.s    mt_setperiod
  14222.     bsr    mt_setmyport
  14223.     bra    mt_checkcom2
  14224. mt_setperiod:
  14225.     move.w    (a6),$10(a6)
  14226.     and.w    #$fff,$10(a6)
  14227.     move.w    $14(a6),d0
  14228.     move.w    d0,$dff096
  14229.     clr.b    $1b(a6)
  14230.  
  14231.     move.l    $4(a6),(a5)
  14232.     move.w    $8(a6),$4(a5)
  14233.     move.w    $10(a6),d0
  14234.     and.w    #$fff,d0
  14235.     move.w    d0,$6(a5)
  14236.     move.w    $14(a6),d0
  14237.     or.w    d0,mt_dmacon
  14238.     bra    mt_checkcom2
  14239.  
  14240. mt_setdma:
  14241.      move.w #250,d0
  14242. mt_wait:
  14243.      add.w #1,testchip
  14244.      dbra d0,mt_wait
  14245.     move.w    mt_dmacon,d0
  14246.     or.w    #$8000,d0
  14247.     and.w #%1111111111110011,d0
  14248.     move.w    d0,$dff096
  14249.     move.w #250,d0
  14250. mt_wait2:
  14251.     add.w #1,testchip
  14252.     dbra    d0,mt_wait2
  14253.     lea    $dff000,a5
  14254.     tst.b UseAllChannels
  14255.     beq.s noall
  14256.     lea    mt_voice4(pc),a6
  14257.     move.l    $a(a6),$d0(a5)
  14258.     move.w    $e(a6),$d4(a5)
  14259.     lea    mt_voice3(pc),a6
  14260.     move.l    $a(a6),$c0(a5)
  14261.     move.w    $e(a6),$c4(a5)
  14262. noall:
  14263.     lea    mt_voice2(pc),a6
  14264.     move.l    $a(a6),$b0(a5)
  14265.     move.w    $e(a6),$b4(a5)
  14266.     lea    mt_voice1(pc),a6
  14267.     move.l    $a(a6),$a0(a5)
  14268.     move.w    $e(a6),$a4(a5)
  14269.  
  14270.     add.w    #$10,mt_pattpos
  14271.     cmp.w    #$400,mt_pattpos
  14272.     bne.s    mt_endr
  14273. mt_nex:    clr.w    mt_pattpos
  14274.     clr.b    mt_break
  14275.     addq.b    #1,mt_songpos
  14276.     and.b    #$7f,mt_songpos
  14277.     move.b    mt_songpos,d1
  14278. ;    cmp.b    mt_data+$3b6,d1
  14279. ;    bne.s    mt_endr
  14280. ;    move.b    mt_data+$3b7,mt_songpos
  14281. mt_endr:tst.b    mt_break
  14282.     bne.s    mt_nex
  14283.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  14284.     rts
  14285.  
  14286. mt_setmyport:
  14287.     move.w    (a6),d2
  14288.     and.w    #$fff,d2
  14289.     move.w    d2,$18(a6)
  14290.     move.w    $10(a6),d0
  14291.     clr.b    $16(a6)
  14292.     cmp.w    d0,d2
  14293.     beq.s    mt_clrport
  14294.     bge.s    mt_rt
  14295.     move.b    #$1,$16(a6)
  14296.     rts
  14297. mt_clrport:
  14298.     clr.w    $18(a6)
  14299. mt_rt:    rts
  14300.  
  14301. CODESTORE: dc.l 0
  14302.  
  14303. mt_myport:
  14304.     move.b    $3(a6),d0
  14305.     beq.s    mt_myslide
  14306.     move.b    d0,$17(a6)
  14307.     clr.b    $3(a6)
  14308. mt_myslide:
  14309.     tst.w    $18(a6)
  14310.     beq.s    mt_rt
  14311.     moveq    #0,d0
  14312.     move.b    $17(a6),d0
  14313.     tst.b    $16(a6)
  14314.     bne.s    mt_mysub
  14315.     add.w    d0,$10(a6)
  14316.     move.w    $18(a6),d0
  14317.     cmp.w    $10(a6),d0
  14318.     bgt.s    mt_myok
  14319.     move.w    $18(a6),$10(a6)
  14320.     clr.w    $18(a6)
  14321. mt_myok:move.w    $10(a6),$6(a5)
  14322.     rts
  14323. mt_mysub:
  14324.     sub.w    d0,$10(a6)
  14325.     move.w    $18(a6),d0
  14326.     cmp.w    $10(a6),d0
  14327.     blt.s    mt_myok
  14328.     move.w    $18(a6),$10(a6)
  14329.     clr.w    $18(a6)
  14330.     move.w    $10(a6),$6(a5)
  14331.     rts
  14332.  
  14333. mt_vib:    move.b    $3(a6),d0
  14334.     beq.s    mt_vi
  14335.     move.b    d0,$1a(a6)
  14336.  
  14337. mt_vi:    move.b    $1b(a6),d0
  14338.     lea    mt_sin(pc),a4
  14339.     lsr.w    #$2,d0
  14340.     and.w    #$1f,d0
  14341.     moveq    #0,d2
  14342.     move.b    (a4,d0.w),d2
  14343.     move.b    $1a(a6),d0
  14344.     and.w    #$f,d0
  14345.     mulu    d0,d2
  14346.     lsr.w    #$6,d2
  14347.     move.w    $10(a6),d0
  14348.     tst.b    $1b(a6)
  14349.     bmi.s    mt_vibmin
  14350.     add.w    d2,d0
  14351.     bra.s    mt_vib2
  14352. mt_vibmin:
  14353.     sub.w    d2,d0
  14354. mt_vib2:move.w    d0,$6(a5)
  14355.     move.b    $1a(a6),d0
  14356.     lsr.w    #$2,d0
  14357.     and.w    #$3c,d0
  14358.     add.b    d0,$1b(a6)
  14359.     rts
  14360.  
  14361. mt_nop:    move.w    $10(a6),$6(a5)
  14362.     rts
  14363.  
  14364.  
  14365. mt_checkcom:
  14366.     move.w    $2(a6),d0
  14367.     and.w    #$fff,d0
  14368.     beq.s    mt_nop
  14369.     move.b    $2(a6),d0
  14370.     and.b    #$f,d0
  14371.     tst.b    d0
  14372.     beq    mt_arpeggio
  14373.     cmp.b    #$1,d0
  14374.     beq.s    mt_portup
  14375.     cmp.b    #$2,d0
  14376.     beq    mt_portdown
  14377.     cmp.b    #$3,d0
  14378.     beq    mt_myport
  14379.     cmp.b    #$4,d0
  14380.     beq    mt_vib
  14381.     move.w    $10(a6),$6(a5)
  14382.     cmp.b    #$a,d0
  14383.     beq.s    mt_volslide
  14384.     rts
  14385.  
  14386. mt_volslide:
  14387.     moveq    #0,d0
  14388.     move.b    $3(a6),d0
  14389.     lsr.b    #4,d0
  14390.     tst.b    d0
  14391.     beq.s    mt_voldown
  14392.     add.w    d0,$12(a6)
  14393.     cmp.w    #$40,$12(a6)
  14394.     bmi.s    mt_vol2
  14395.     move.w    #$40,$12(a6)
  14396. mt_vol2:move.w    $12(a6),d0
  14397.     asr.w #2,d0
  14398.     move.w d0,$8(a5)
  14399.     rts
  14400.  
  14401. mt_voldown:
  14402.     moveq    #0,d0
  14403.     move.b    $3(a6),d0
  14404.     and.b    #$f,d0
  14405.     sub.w    d0,$12(a6)
  14406.     bpl.s    mt_vol3
  14407.     clr.w    $12(a6)
  14408. mt_vol3:move.w    $12(a6),d0
  14409.     asr.w #2,d0
  14410.     move.w d0,$8(a5)
  14411.     rts
  14412.  
  14413. mt_portup:
  14414.     moveq    #0,d0
  14415.     move.b    $3(a6),d0
  14416.     sub.w    d0,$10(a6)
  14417.     move.w    $10(a6),d0
  14418.     and.w    #$fff,d0
  14419.     cmp.w    #$71,d0
  14420.     bpl.s    mt_por2
  14421.     and.w    #$f000,$10(a6)
  14422.     or.w    #$71,$10(a6)
  14423. mt_por2:move.w    $10(a6),d0
  14424.     and.w    #$fff,d0
  14425.     move.w    d0,$6(a5)
  14426.     rts
  14427.  
  14428. mt_portdown:
  14429.     clr.w    d0
  14430.     move.b    $3(a6),d0
  14431.     add.w    d0,$10(a6)
  14432.     move.w    $10(a6),d0
  14433.     and.w    #$fff,d0
  14434.     cmp.w    #$358,d0
  14435.     bmi.s    mt_por3
  14436.     and.w    #$f000,$10(a6)
  14437.     or.w    #$358,$10(a6)
  14438. mt_por3:move.w    $10(a6),d0
  14439.     and.w    #$fff,d0
  14440.     move.w    d0,$6(a5)
  14441.     rts
  14442.  
  14443. mt_checkcom2:
  14444.     move.b    $2(a6),d0
  14445.     and.b    #$f,d0
  14446.     cmp.b    #$e,d0
  14447.     beq.s    mt_setfilt
  14448.     cmp.b    #$d,d0
  14449.     beq.s    mt_pattbreak
  14450.     cmp.b    #$b,d0
  14451.     beq.s    mt_posjmp
  14452.     cmp.b    #$c,d0
  14453.     beq.s    mt_setvol
  14454.     cmp.b    #$f,d0
  14455.     beq.s    mt_setspeed
  14456.     rts
  14457.  
  14458. mt_setfilt:
  14459.     move.b    $3(a6),d0
  14460.     and.b    #$1,d0
  14461.     asl.b    #$1,d0
  14462.     and.b    #$fd,$bfe001
  14463.     or.b    d0,$bfe001
  14464.     rts
  14465. mt_pattbreak:
  14466.     not.b    mt_break
  14467.     rts
  14468. mt_posjmp:
  14469.     st reachedend
  14470.     move.b    $3(a6),d0
  14471.     subq.b    #$1,d0
  14472.     move.b    d0,mt_songpos
  14473.     not.b    mt_break
  14474.     rts
  14475. mt_setvol:
  14476.     cmp.b    #$40,$3(a6)
  14477.     ble.s    mt_vol4
  14478.     move.b    #$40,$3(a6)
  14479. mt_vol4:move.b    $3(a6),d0
  14480.     asr.w #2,d0
  14481.     move.w d0,$8(a5)
  14482.     rts
  14483. mt_setspeed:
  14484.     cmp.b    #$1f,$3(a6)
  14485.     ble.s    mt_sets
  14486.     move.b    #$1f,$3(a6)
  14487. mt_sets:move.b    $3(a6),d0
  14488.     beq.s    mt_rts2
  14489.     move.b    d0,mt_speed
  14490.     clr.b    mt_counter
  14491. mt_rts2:rts
  14492.  
  14493. mt_sin:
  14494.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  14495.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  14496.  
  14497. mt_periods:
  14498.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  14499.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  14500.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  14501.  DC.w $007f,$0078,$0071,$0000,$0000
  14502.  
  14503. reachedend: dc.b 0
  14504. mt_speed:    DC.b    6
  14505. mt_songpos:    DC.b    0
  14506. mt_pattpos:    DC.w    0
  14507. mt_counter:    DC.b    0
  14508.  
  14509. mt_break:    DC.b    0
  14510. mt_dmacon:    DC.w    0
  14511. mt_samplestarts:DS.L    $1f
  14512. mt_voice1:    DS.w    10
  14513.         DC.w    1
  14514.         DS.w    3
  14515. mt_voice2:    DS.w    10
  14516.         DC.w    2
  14517.         DS.w    3
  14518. mt_voice3:    DS.w    10
  14519.         DC.w    4
  14520.         DS.w    3
  14521. mt_voice4:    DS.w    10
  14522.         DC.w    8
  14523.         DS.w    3
  14524.  
  14525. CHEATPTR: dc.l 0
  14526. CHEATNUM: dc.l 0
  14527.  
  14528. testchip: dc.w 0
  14529.  
  14530. ;/* End of File */
  14531. mt_data: dc.l 0
  14532. tstchip: dc.l 0
  14533.  include "SERIAL_NIGHTMARE"
  14534.  
  14535. ingame:
  14536. ; incbin "ab3:includes/ingame"
  14537. gameover: 
  14538. ;incbin "ab3:includes/gameover"
  14539. welldone: incbin "ab3:includes/newwelldone"
  14540.  
  14541.  
  14542.