home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #2 / amigaacscoverdisc / games / alienbreed3d2 / source_4000 / hiresgourwall.s < prev    next >
Text File  |  1997-01-31  |  22KB  |  1,651 lines
  1.  
  2. *********************************** 
  3.  
  4. * The screendivide routine is simpler
  5. * using a0=left pixel
  6. * a2= right pixel
  7. * d0= left dist
  8. * d2= right dist
  9. * d4 = left strip
  10. * d5 = right strip
  11.  
  12. * (a0)=leftx
  13. * 2(a0)=rightx
  14.  
  15. * 4(a0)=leftbm
  16. * 6(a0)=rightbm
  17.  
  18. * 8(a0)=leftdist
  19. * 10(a0)=rightdist
  20.  
  21. * 12(a0)=lefttop
  22. * 14(a0)=righttop
  23.  
  24. * 16(a0)=leftbot
  25. * 18(a0)=rightbot
  26.  
  27.  
  28. DoleftendGOUR:
  29.  
  30.  move.w leftclip,d0
  31.  sub.w #1,d0
  32.  move.w d0,leftclipandlast
  33.  
  34.  
  35.  move.w (a0),d0
  36.  move.w 2(a0),d1
  37.  sub.w d0,d1
  38.  bge.s sometodrawG
  39.  rts
  40. sometodrawG:
  41.  move.w itertabG(pc,d1.w*4),d7
  42.  swap d0
  43.  move.w itertabG+2(pc,d1.w*4),d6
  44.  clr.w d0
  45.  swap d1
  46.  clr.w d1
  47.  asr.l d6,d1
  48.  move.l d1,(a0)
  49.  
  50.  bra pstitG
  51.  
  52. itertabG:
  53.  incbin "ab3:includes/iterfile"
  54.  
  55. pstitG:
  56.  
  57.  moveq #0,d1
  58.  move.w 4(a0),d1
  59.  moveq #0,d2
  60.  move.w 6(a0),d2
  61.  sub.w d1,d2
  62.  swap d1
  63.  swap d2
  64.  asr.l d6,d2
  65.  move.l d2,4(a0)
  66.  
  67.  moveq #0,d2
  68.  move.w 8(a0),d2
  69.  moveq #0,d3
  70.  move.w 10(a0),d3
  71.  sub.w d2,d3
  72.  swap d2
  73.  swap d3
  74.  asr.l d6,d3
  75.  move.l d3,8(a0)
  76.  
  77.  moveq #0,d3
  78.  move.w 12(a0),d3
  79.  moveq #0,d4
  80.  move.w 14(a0),d4
  81.  sub.w d3,d4
  82.  swap d3
  83.  swap d4
  84.  asr.l d6,d4
  85.  move.l d4,12(a0)
  86.  
  87.  moveq #0,d4
  88.  move.w 16(a0),d4
  89.  moveq #0,d5
  90.  move.w 18(a0),d5
  91.  sub.w d4,d5
  92.  swap d4
  93.  swap d5
  94.  asr.l d6,d5
  95.  move.l d5,16(a0)
  96.  
  97.  
  98. *** Gouraud shading ***
  99.  moveq #0,d5
  100.  move.w 26(a0),d5
  101.  sub.w 24(a0),d5
  102.  add.w d5,d5
  103.  swap d5
  104.  asr.l d6,d5
  105.  move.l d5,28(a0)
  106.  moveq #0,d5
  107.  move.w 24(a0),d5
  108.  add.w d5,d5
  109.  swap d5
  110.  move.l d5,24(a0)
  111.  
  112. *** Extra Gouraud Shading ***
  113.  
  114.  moveq #0,d5
  115.  move.w 34(a0),d5
  116.  sub.w 32(a0),d5
  117.  add.w d5,d5
  118.  swap d5
  119.  asr.l d6,d5
  120.  move.l d5,36(a0)
  121.  moveq #0,d5
  122.  move.w 32(a0),d5
  123.  add.w d5,d5
  124.  swap d5
  125.  move.l d5,32(a0)
  126.  
  127.  bra screendivideGOUR
  128.  
  129. TOPBRCOUNT: dc.l 0
  130. BOTBRCOUNT: dc.l 0
  131.  
  132. screendivideGOUR:
  133.  
  134.  or.l #$ffff0000,d7
  135.  move.w leftclipandlast(pc),d6
  136.  move.l #WorkSpace,a2
  137.  
  138.  move.l (a0),a3
  139.  move.l 4(a0),a4
  140.  move.l 8(a0),a5
  141.  move.l 12(a0),a6
  142.  move.l 16(a0),a1
  143.  
  144.  
  145. scrdivlopG:
  146.  
  147.  swap d0
  148.  cmp.w d6,d0
  149.  bgt scrnotoffleftG
  150.  swap d0
  151.  add.l a4,d1
  152.  add.l a5,d2
  153.  add.l a6,d3
  154.  add.l a1,d4
  155.  add.l a3,d0
  156.  move.l 28(a0),d5
  157.  add.l d5,24(a0)
  158.  move.l 36(a0),d5
  159.  add.l d5,32(a0)
  160.  
  161.  dbra d7,scrdivlopG
  162.  rts
  163.  
  164. scrnotoffleftG:
  165.  
  166.  move.w d0,d6
  167.  
  168.  cmp.w rightclip(pc),d0
  169.  bge.s outofcalcG
  170.  
  171. scrnotoffrightG:
  172.  
  173.  
  174.  move.w d0,(a2)+
  175.  move.l d1,(a2)+
  176.  move.l d2,(a2)+
  177.  move.l d3,(a2)+
  178.  move.l d4,(a2)+
  179.  move.l 24(a0),(a2)+
  180.  move.l 32(a0),(a2)+
  181.  swap d0
  182.  add.l a3,d0
  183.  add.l a4,d1
  184.  add.l a5,d2
  185.  add.l a6,d3
  186.  add.l a1,d4
  187.  move.l 28(a0),d5
  188.  add.l d5,24(a0)
  189.  move.l 36(a0),d5
  190.  add.l d5,32(a0)
  191.  add.l #$10000,d7
  192.  dbra d7,scrdivlopG
  193.  
  194. outofcalcG:
  195.  swap d7
  196.  tst.w d7
  197.  bge.s .somethingtodraw
  198.  rts
  199. .somethingtodraw:
  200.  
  201.  move.l #consttab,a1
  202.  move.l #WorkSpace,a0
  203.  
  204. ; tst.b seethru
  205. ; bne screendividethru
  206.  
  207.  tst.b FULLSCR
  208.  bne scrdrawlopGB
  209.  
  210.  tst.b DOUBLEWIDTH
  211.  bne scrdrawlopGDOUB
  212.  bra scrdrawlopG
  213.  
  214. thislinedoneG:
  215.  add.w #4+4+4+4+4+4,a0
  216.  dbra d7,scrdrawlopG
  217.  
  218.  rts
  219.  
  220. scrdrawlopG:
  221.  
  222.  move.w (a0)+,d0
  223.  
  224.  cmp.w LASTSTIRRUP,d0
  225.  beq.s thislinedoneG
  226.  move.w d0,LASTSTIRRUP
  227.  
  228.  move.l FASTBUFFER,a3
  229.  lea (a3,d0.w),a3
  230.  move.l (a0)+,d1
  231.  
  232. ; bra pastscrinto
  233. ;
  234. ; 
  235. ;pastscrinto 
  236.  
  237.  swap d1
  238.  
  239.  move.w d1,d6
  240.  and.w HORAND,d6
  241.  move.l (a0)+,d2
  242.  swap d2
  243.  add.w fromtile(pc),d6
  244.  add.w d6,d6
  245.  move.w d6,a5
  246.  move.l (a0)+,d3
  247.  swap d3
  248.  add.l #divthreetab,a5
  249.  move.w (a5),StripData
  250.  
  251.  move.l ChunkAddr,a5
  252.  moveq #0,d6
  253.  move.b StripData,d6
  254.  add.w d6,d6
  255.  move.w VALSHIFT,d4
  256.  asl.l d4,d6
  257.  add.l d6,a5
  258.  move.l (a0)+,d4
  259.  swap d4
  260.  addq #1,d4
  261.  move.w d2,d6
  262. ***************************
  263. * old version
  264.  asr.w #7,d6
  265. ***************************
  266. ; asr.w #3,d6
  267. ; sub.w #4,d6
  268. ; cmp.w #6,d6
  269. ; blt.s tstbrbr
  270. ; move.w #6,d6
  271. ;tstbrbr:
  272. ***************************
  273.  move.l (a0)+,d5
  274.  swap d5
  275.  move.w d7,-(a7)
  276.  ext.w d5
  277.  move.w d6,d7
  278.  add.w d5,d7
  279.  bge.s .brnotneg
  280.  moveq #0,d7
  281. .brnotneg
  282.  cmp.w #62,d7
  283.  blt.s .brnotpos
  284.  move.w #62,d7
  285. .brnotpos
  286.  
  287.  move.l (a0)+,d5
  288.  swap d5
  289.  ext.w d5
  290.  add.w d5,d6
  291.  bge.s .brnotneg2
  292.  moveq #0,d6
  293. .brnotneg2
  294.  cmp.w #62,d6
  295.  blt.s .brnotpos2
  296.  move.w #62,d6
  297. .brnotpos2
  298.  
  299.  asr.w #1,d6
  300.  asr.w #1,d7
  301.  sub.w d6,d7
  302.  
  303.  move.l PaletteAddr,a4
  304. ; move.l a2,a4
  305. ; add.w ffscrpickhowbright(pc,d6*2),a2
  306. ; and.b #$fe,d6
  307. ; add.w ffscrpickhowbright(pc,d6*2),a4
  308.  
  309. ; btst #0,d0
  310. ; beq .nobrightswap
  311. ; exg a2,a4
  312. ;.nobrightswap:
  313.  
  314.  bsr ScreenWallstripdrawGOUR
  315.  move.w (a7)+,d7
  316.  
  317. toosmallG:
  318.  
  319.  dbra d7,scrdrawlopG
  320.  
  321.  rts
  322.  
  323. itsoddy:
  324.  add.w #4+4+4+4+4+4,a0
  325.  dbra d7,scrdrawlopGDOUB
  326.  rts
  327.  
  328. scrdrawlopGDOUB:
  329.  
  330.  move.w (a0)+,d0
  331.  btst #0,d0
  332.  bne.s itsoddy
  333.  
  334.  cmp.w LASTSTIRRUP,d0
  335.  beq.s itsoddy
  336.  move.w d0,LASTSTIRRUP
  337.  
  338.  move.l FASTBUFFER,a3
  339.  lea (a3,d0.w),a3
  340.  move.l (a0)+,d1
  341.  
  342. ; bra pastscrinto
  343. ;
  344. ; 
  345. ;pastscrinto 
  346.  
  347.  swap d1
  348.  
  349.  move.w d1,d6
  350.  and.w HORAND,d6
  351.  move.l (a0)+,d2
  352.  swap d2
  353.  add.w fromtile(pc),d6
  354.  add.w d6,d6
  355.  move.w d6,a5
  356.  move.l (a0)+,d3
  357.  swap d3
  358.  add.l #divthreetab,a5
  359.  move.w (a5),StripData
  360.  
  361.  move.l ChunkAddr,a5
  362.  moveq #0,d6
  363.  move.b StripData,d6
  364.  add.w d6,d6
  365.  move.w VALSHIFT,d4
  366.  asl.l d4,d6
  367.  add.l d6,a5
  368.  move.l (a0)+,d4
  369.  swap d4
  370.  addq #1,d4
  371.  move.w d2,d6
  372. ***************************
  373. * old version
  374.  asr.w #7,d6
  375. ***************************
  376. ; asr.w #3,d6
  377. ; sub.w #4,d6
  378. ; cmp.w #6,d6
  379. ; blt.s tstbrbr
  380. ; move.w #6,d6
  381. ;tstbrbr:
  382. ***************************
  383.  move.l (a0)+,d5
  384.  swap d5
  385.  move.w d7,-(a7)
  386.  ext.w d5
  387.  move.w d6,d7
  388.  add.w d5,d7
  389.  bge.s .brnotneg
  390.  moveq #0,d7
  391. .brnotneg
  392.  cmp.w #62,d7
  393.  blt.s .brnotpos
  394.  move.w #62,d7
  395. .brnotpos
  396.  
  397.  move.l (a0)+,d5
  398.  swap d5
  399.  ext.w d5
  400.  add.w d5,d6
  401.  bge.s .brnotneg2
  402.  moveq #0,d6
  403. .brnotneg2
  404.  cmp.w #62,d6
  405.  blt.s .brnotpos2
  406.  move.w #62,d6
  407. .brnotpos2
  408.  
  409.  asr.w #1,d6
  410.  asr.w #1,d7
  411.  sub.w d6,d7
  412.  
  413.  move.l PaletteAddr,a4
  414. ; move.l a2,a4
  415. ; add.w ffscrpickhowbright(pc,d6*2),a2
  416. ; and.b #$fe,d6
  417. ; add.w ffscrpickhowbright(pc,d6*2),a4
  418.  
  419. ; btst #0,d0
  420. ; beq .nobrightswap
  421. ; exg a2,a4
  422. ;.nobrightswap:
  423.  
  424.  bsr ScreenWallstripdrawGOUR
  425.  move.w (a7)+,d7
  426.  
  427.  dbra d7,scrdrawlopGDOUB
  428.  
  429.  rts
  430.  
  431.  
  432. scrdrawlopGB:
  433.  
  434.  move.w (a0)+,d0
  435.  move.l FASTBUFFER,a3
  436.  lea (a3,d0.w),a3
  437.  move.l (a0)+,d1
  438.  
  439. ; bra pastscrinto
  440. ;
  441. ; 
  442. ;pastscrinto 
  443.  
  444.  swap d1
  445.  
  446.  move.w d1,d6
  447.  and.w HORAND,d6
  448.  move.l (a0)+,d2
  449.  swap d2
  450.  add.w fromtile(pc),d6
  451.  add.w d6,d6
  452.  move.w d6,a5
  453.  move.l (a0)+,d3
  454.  swap d3
  455.  add.l #divthreetab,a5
  456.  move.w (a5),StripData
  457.  
  458.  move.l ChunkAddr,a5
  459.  moveq #0,d6
  460.  move.b StripData,d6
  461.  add.w d6,d6
  462.  move.w VALSHIFT,d4
  463.  asl.l d4,d6
  464.  add.l d6,a5
  465.  move.l (a0)+,d4
  466.  swap d4
  467.  addq #1,d4
  468.  move.w d2,d6
  469. ***************************
  470. * old version
  471.  asr.w #7,d6
  472. ***************************
  473. ; asr.w #3,d6
  474. ; sub.w #4,d6
  475. ; cmp.w #6,d6
  476. ; blt.s tstbrbr
  477. ; move.w #6,d6
  478. ;tstbrbr:
  479. ***************************
  480.  move.l (a0)+,d5
  481.  swap d5
  482.  move.w d7,-(a7)
  483.  ext.w d5
  484.  move.w d6,d7
  485.  add.w d5,d7
  486.  bge.s .brnotneg
  487.  moveq #0,d7
  488. .brnotneg
  489.  cmp.w #62,d7
  490.  blt.s .brnotpos
  491.  move.w #62,d7
  492. .brnotpos
  493.  
  494.  move.l (a0)+,d5
  495.  swap d5
  496.  ext.w d5
  497.  add.w d5,d6
  498.  bge.s .brnotneg2
  499.  moveq #0,d6
  500. .brnotneg2
  501.  cmp.w #62,d6
  502.  blt.s .brnotpos2
  503.  move.w #62,d6
  504. .brnotpos2
  505.  
  506.  asr.w #1,d6
  507.  asr.w #1,d7
  508.  sub.w d6,d7
  509.  
  510.  move.l PaletteAddr,a4
  511. ; move.l a2,a4
  512. ; add.w ffscrpickhowbright(pc,d6*2),a2
  513. ; and.b #$fe,d6
  514. ; add.w ffscrpickhowbright(pc,d6*2),a4
  515.  
  516. ; btst #0,d0
  517. ; beq .nobrightswap
  518. ; exg a2,a4
  519. ;.nobrightswap:
  520.  
  521.  bsr ScreenWallstripdrawGOURB
  522.  move.w (a7)+,d7
  523.  
  524.  dbra d7,scrdrawlopGB
  525.  
  526.  rts
  527.  
  528. itsbilloddy:
  529.  add.w #4+4+4+4+4+4,a0
  530.  dbra d7,scrdrawlopGDOUB
  531.  rts
  532.  
  533. scrdrawlopGBDOUB:
  534.  
  535.  move.w (a0)+,d0
  536.  btst #0,d0
  537.  bne.s itsbilloddy
  538.  move.l FASTBUFFER,a3
  539.  lea (a3,d0.w),a3
  540.  move.l (a0)+,d1
  541.  
  542. ; bra pastscrinto
  543. ;
  544. ; 
  545. ;pastscrinto 
  546.  
  547.  swap d1
  548.  
  549.  move.w d1,d6
  550.  and.w HORAND,d6
  551.  move.l (a0)+,d2
  552.  swap d2
  553.  add.w fromtile(pc),d6
  554.  add.w d6,d6
  555.  move.w d6,a5
  556.  move.l (a0)+,d3
  557.  swap d3
  558.  add.l #divthreetab,a5
  559.  move.w (a5),StripData
  560.  
  561.  move.l ChunkAddr,a5
  562.  moveq #0,d6
  563.  move.b StripData,d6
  564.  add.w d6,d6
  565.  move.w VALSHIFT,d4
  566.  asl.l d4,d6
  567.  add.l d6,a5
  568.  move.l (a0)+,d4
  569.  swap d4
  570.  addq #1,d4
  571.  move.w d2,d6
  572. ***************************
  573. * old version
  574.  asr.w #7,d6
  575. ***************************
  576. ; asr.w #3,d6
  577. ; sub.w #4,d6
  578. ; cmp.w #6,d6
  579. ; blt.s tstbrbr
  580. ; move.w #6,d6
  581. ;tstbrbr:
  582. ***************************
  583.  move.l (a0)+,d5
  584.  swap d5
  585.  move.w d7,-(a7)
  586.  ext.w d5
  587.  move.w d6,d7
  588.  add.w d5,d7
  589.  bge.s .brnotneg
  590.  moveq #0,d7
  591. .brnotneg
  592.  cmp.w #62,d7
  593.  blt.s .brnotpos
  594.  move.w #62,d7
  595. .brnotpos
  596.  
  597.  move.l (a0)+,d5
  598.  swap d5
  599.  ext.w d5
  600.  add.w d5,d6
  601.  bge.s .brnotneg2
  602.  moveq #0,d6
  603. .brnotneg2
  604.  cmp.w #62,d6
  605.  blt.s .brnotpos2
  606.  move.w #62,d6
  607. .brnotpos2
  608.  
  609.  asr.w #1,d6
  610.  asr.w #1,d7
  611.  sub.w d6,d7
  612.  
  613.  move.l PaletteAddr,a4
  614. ; move.l a2,a4
  615. ; add.w ffscrpickhowbright(pc,d6*2),a2
  616. ; and.b #$fe,d6
  617. ; add.w ffscrpickhowbright(pc,d6*2),a4
  618.  
  619. ; btst #0,d0
  620. ; beq .nobrightswap
  621. ; exg a2,a4
  622. ;.nobrightswap:
  623.  
  624.  bsr ScreenWallstripdrawGOURB
  625.  move.w (a7)+,d7
  626.  
  627.  dbra d7,scrdrawlopGBDOUB
  628.  
  629.  rts
  630.  
  631. walldrawGOUR:
  632.  
  633.  tst.w d1
  634.  bgt.s oneinfront1G
  635.  tst.w d3
  636.  bgt.s oneinfrontG
  637.  rts
  638.  
  639. oneinfront1G
  640.  tst.w d3
  641.  ble.s oneinfrontG
  642. ; Bothinfront!
  643.  
  644.  nop
  645.  
  646. oneinfrontG
  647.  
  648.  move.w #16,d7
  649.  move.w #2,d6
  650.  
  651.  tst.b GOODRENDER
  652.  beq.s .notgood
  653.  
  654.  move.w #64,d7
  655.  move.w #4,d6
  656.  bra .ISGOOD
  657. .notgood:
  658.  
  659.  move.l a2,d0
  660.  sub.l a0,d0
  661.  bge.s .okpos
  662.  neg.l d0
  663. .okpos:
  664.  
  665.  cmp.l #256*128,d0
  666.  blt.s .ISGOOD
  667.  add.w d7,d7
  668.  addq #1,d6
  669.  cmp.l #512*128,d0
  670.  blt.s .ISGOOD
  671.  add.w d7,d7
  672.  addq #1,d6
  673. .ISGOOD
  674.  
  675.  move.w d3,d0
  676.  sub.w d1,d0
  677.  bge.s notnegzdiffG
  678.  neg.w d0
  679. notnegzdiffG
  680. ; cmp.w #1024,d0
  681. ; blt.s nd01G
  682. ; add.w d7,d7
  683. ; add.w #1,d6
  684. ;nd01G:
  685.  cmp.w #512,d0
  686.  blt.s nd0G 
  687.  tst.b GOODRENDER
  688.  beq.s nd0G
  689.  add.w d7,d7
  690.  add.w #1,d6
  691.  bra nhaG
  692. nd0G:
  693.  
  694.  cmp.w #256,d0
  695.  bgt.s nh1G
  696.  asr.w #1,d7
  697.  subq #1,d6
  698. nh1G:
  699.  cmp.w #128,d0
  700.  bgt.s nh2G
  701.  asr.w #1,d7
  702.  subq #1,d6
  703. nh2G:
  704.  
  705. nhaG:
  706.  
  707.  move.w d3,d0
  708.  cmp.w d1,d3
  709.  blt.s rightnearestG
  710.  move.w d1,d0
  711. rightnearestG:
  712.  cmp.w #32,d0
  713.  bgt.s ndd0G
  714.  addq #1,d6
  715.  add.w d7,d7
  716. ndd0G:
  717.  cmp.w #64,d0
  718.  bgt.s nd1G
  719.  addq #1,d6
  720.  add.w d7,d7
  721. nd1G:
  722.  
  723.  cmp.w #128,d0
  724.  blt.s nh3G
  725.  asr.w #1,d7
  726.  subq #1,d6
  727.  blt.s nh4G
  728.  cmp.w #256,d0
  729.  blt.s nh3G
  730.  asr.w #1,d7
  731.  subq #1,d6
  732.  blt.s nh4G
  733. nh3G:
  734.  cmp.w #512,d0
  735.  blt.s nh4G
  736.  asr.w #1,d7
  737.  subq #1,d6
  738. nh4G:
  739.  
  740.  cmp.w #128,d7
  741.  ble.s .okokok
  742.  move.w #128,d7
  743.  move.w #5,d6
  744. .okokok:
  745.  
  746.  
  747.  move.w d6,iters
  748.  subq #1,d7
  749.  move.w d7,multcount
  750.  
  751.  move.l #databuffer,a3
  752.  move.l a0,d0
  753.  move.l a2,d2
  754.  
  755.  move.l d0,(a3)+
  756.  add.l d2,d0
  757.  move.w d1,(a3)+
  758.  move.w leftwallTOPbright,d7
  759.  move.w d7,(a3)+
  760.  asr.l #1,d0
  761.  move.w d4,(a3)+
  762.  
  763.  move.w leftwallbright,d6
  764.  move.w d6,(a3)+
  765.  
  766.  add.w d5,d4
  767.  move.l d0,(a3)+
  768.  add.w d3,d1
  769.  asr.w #1,d1
  770.  move.w d1,(a3)+
  771.  
  772.  add.w rightwallTOPbright,d7
  773.  asr.w #1,d7
  774.  move.w d7,(a3)+
  775.  
  776.  asr.w #1,d4
  777.  move.w d4,(a3)+
  778.  
  779.  add.w rightwallbright,d6
  780.  asr.w #1,d6
  781.  move.w d6,(a3)+
  782.  
  783.  
  784.  move.l d2,(a3)+
  785.  move.w d3,(a3)+
  786.  move.w rightwallTOPbright,(a3)+
  787.  move.w d5,(a3)+
  788.  move.w rightwallbright,(a3)+
  789.  
  790.  ; We now have the two endpoints and the midpoint
  791.  ; so we need to perform 1 iteration of the inner
  792.  ; loop, the first time.
  793.  
  794. * Decide how often to subdivide by how far away the wall is, and
  795. * how perp. it is to the player.
  796.  
  797.  move.l #databuffer,a0
  798.  move.l #databuffer2,a1
  799.  
  800.  swap d7
  801.  move.w iters,d7
  802.  blt noitersG
  803.  move.l #1,a2
  804.  
  805. iterloopG:
  806.  move.l a0,a3
  807.  move.l a1,a4
  808.  swap d7
  809.  move.w a2,d7
  810.  exg a0,a1
  811.  
  812.  move.l (a3)+,d0
  813.  move.l (a3)+,d1
  814.  move.l (a3)+,d2
  815. middleloopG:
  816.  move.l d0,(a4)+
  817.  move.l (a3)+,d3
  818.  add.l d3,d0
  819.  move.l d1,(a4)+
  820.  asr.l #1,d0
  821.  move.l (a3)+,d4
  822.  add.l d4,d1
  823.  move.l d2,(a4)+
  824.  asr.l #1,d1
  825.  and.w #$7fff,d1
  826.  move.l (a3)+,d5
  827.  add.l d5,d2
  828.  move.l d0,(a4)+
  829.  asr.l #1,d2
  830.  move.l d1,(a4)+
  831.  move.l d2,(a4)+
  832.  
  833.  move.l d3,(a4)+
  834.  move.l (a3)+,d0
  835.  add.l d0,d3
  836.  
  837.  move.l d4,(a4)+
  838.  asr.l #1,d3
  839.  move.l (a3)+,d1
  840.  add.l d1,d4
  841.  move.l d5,(a4)+
  842.  asr.l #1,d4
  843.  and.w #$7fff,d4
  844.  move.l (a3)+,d2
  845.  add.l d2,d5
  846.  move.l d3,(a4)+
  847.  asr.l #1,d5
  848.  move.l d4,(a4)+
  849.  move.l d5,(a4)+
  850.  
  851.  subq #1,d7
  852.  bgt.s middleloopG
  853.  move.l d0,(a4)+
  854.  move.l d1,(a4)+
  855.  move.l d2,(a4)+
  856.  
  857.  add.w a2,a2
  858.  
  859.  swap d7
  860.  dbra d7,iterloopG
  861.  
  862. noitersG:
  863.  
  864. CalcAndDrawG:
  865.  
  866. ; CACHE_ON d2
  867.  
  868.  move.l a0,a1
  869.  move.w multcount,d7
  870. .findfirstinfront:
  871.  move.l (a1)+,d1
  872.  move.w (a1)+,d0
  873.  bgt.s .foundinfront
  874.  move.l (a1)+,d4
  875.  move.w (a1)+,d4
  876.  dbra d7,.findfirstinfront
  877.  rts    ; no two points were in front
  878.  
  879. .foundinfront:
  880.  move.w (a1)+,tlbr
  881.  move.w (a1)+,d4
  882.  move.w (a1)+,lbr
  883.  ; d1=left x, d4=left end, d0=left dist 
  884.  
  885.  ext.l d0
  886.  
  887.  divs.l d0,d1
  888.  moveq #0,d5
  889.  move.w MIDDLEX,d5
  890.  add.l d5,d1
  891.  
  892.  move.l topofwall(pc),d5
  893.  divs d0,d5
  894.  add.w MIDDLEY,d5
  895.  move.w d5,strtop
  896.  move.l botofwall(pc),d5
  897.  divs d0,d5
  898.  add.w MIDDLEY,d5
  899.  move.w d5,strbot
  900.  
  901. .computeloop:
  902.  move.w 4(a1),d2
  903.  bgt.s .infront
  904.  rts
  905.  
  906. .infront:
  907.  move.l #store,a0
  908.  move.l (a1),d3
  909.  ext.l d2
  910.  divs.l d2,d3
  911.  moveq #0,d5
  912.  move.w MIDDLEX,d5
  913.  add.l d5,d3
  914.  move.w 8(a1),d5
  915.  move.w strtop(pc),12(a0)
  916.  move.l topofwall(pc),d6
  917.  divs d2,d6
  918.  move.w strbot(pc),16(a0)
  919.  add.w MIDDLEY,d6
  920.  move.w d6,strtop
  921.  move.w d6,14(a0)
  922.  move.l botofwall(pc),d6
  923.  divs d2,d6
  924.  add.w MIDDLEY,d6
  925.  move.w d6,strbot
  926.  move.w d6,18(a0)
  927.  move.l d3,(a1)
  928.  cmp.l leftclip-2(pc),d3
  929.  blt .alloffleft
  930.  cmp.l rightclip-2(pc),d1
  931. ; cmp.w #95,d1
  932.  bge .alloffright
  933.  
  934.  movem.l d0/d1/d2/d3/a0,-(a7)
  935.  
  936.  moveq #0,d0
  937.  move.b WALLIDENT,d0
  938.  blt.s .noputinmap
  939.  
  940.  move.b d0,d3
  941.  and.b #15,d0
  942.  move.l COMPACTPTR,a0
  943.  moveq #0,d1
  944.  move.w d0,d2
  945.  add.w d0,d0
  946.  add.w d2,d0
  947.  bset d0,d1
  948.  btst #4,d3
  949.  beq.s .nodoor
  950.  addq #2,d0
  951.  bset d0,d1
  952. .nodoor:
  953.  
  954.  or.l d1,(a0)
  955.  move.l BIGPTR,a0
  956.  
  957.  move.w wallleftpt,(a0,d2.w*4) 
  958.  move.w wallrightpt,2(a0,d2.w*4) 
  959.  
  960. .noputinmap
  961.  
  962.  movem.l (a7)+,d0/d1/d2/d3/a0
  963.  
  964.  bra OTHERHALFG
  965.  
  966.  
  967. .alloffleft:
  968.  
  969.  move.l (a1)+,d1
  970.  move.w (a1)+,d0
  971.  move.w (a1)+,tlbr
  972.  move.w (a1)+,d4
  973.  move.w (a1)+,lbr
  974.  
  975.  dbra d7,.computeloop
  976.  rts
  977.  
  978. .alloffright:
  979.  rts
  980.  
  981. computeloop2G:
  982.  move.w 4(a1),d2
  983.  bgt.s .infront
  984.  rts
  985.  
  986. .infront:
  987.  ext.l d2
  988.  move.l #store,a0
  989.  move.l (a1),d3
  990.  divs.l d2,d3
  991.  moveq #0,d5
  992.  move.w MIDDLEX,d5
  993.  add.l d5,d3
  994.  move.w 8(a1),d5
  995.  move.w strtop(pc),12(a0)
  996.  move.l topofwall(pc),d6
  997.  divs d2,d6
  998.  move.w strbot(pc),16(a0)
  999.  add.w MIDDLEY,d6
  1000.  move.w d6,strtop
  1001.  move.w d6,14(a0)
  1002.  move.l botofwall(pc),d6
  1003.  divs d2,d6
  1004.  add.w MIDDLEY,d6
  1005.  move.w d6,strbot
  1006.  move.w d6,18(a0)
  1007.  move.l d3,(a1)
  1008.  cmp.w leftclip(pc),d3
  1009.  blt.s alloffleft2G
  1010.  cmp.w rightclip(pc),d1
  1011. ; cmp.w #95,d1
  1012.  bge alloffright2G
  1013.  
  1014. OTHERHALFG:
  1015.  
  1016.  move.w d1,(a0)
  1017.  move.w d3,2(a0)
  1018.  move.w d4,4(a0)
  1019.  move.w d5,6(a0)
  1020.  move.w d0,8(a0)
  1021.  move.w d2,10(a0)
  1022.  
  1023.  move.w lbr,d5
  1024.  sub.w #300,d5
  1025.  ext.w d5
  1026.  move.w d5,24(a0)
  1027.  move.w 10(a1),d5
  1028.  sub.w #300,d5
  1029.  ext.w d5
  1030.  move.w d5,26(a0)
  1031.  
  1032.  move.w tlbr,d5
  1033.  sub.w #300,d5
  1034.  ext.w d5
  1035.  move.w d5,32(a0)
  1036.  move.w 6(a1),d5
  1037.  sub.w #300,d5
  1038.  ext.w d5
  1039.  move.w d5,34(a0)
  1040.  
  1041.  movem.l d7/a1,-(a7)
  1042.  move.w #maxscrdiv,d7
  1043.  bsr DoleftendGOUR
  1044.  movem.l (a7)+,d7/a1
  1045.  
  1046. alloffleft2G:
  1047.  
  1048.  move.l (a1)+,d1
  1049.  move.w (a1)+,d0
  1050.  move.w (a1)+,tlbr
  1051.  move.w (a1)+,d4
  1052.  move.w (a1)+,lbr
  1053.  
  1054.  dbra d7,computeloop2G
  1055.  
  1056.  rts
  1057.  
  1058. alloffright2G:
  1059.  rts
  1060.  
  1061.  
  1062. ***********************************
  1063.  
  1064. * Need a routine which takes...?
  1065. * Top Y (3d)
  1066. * Bottom Y (3d)
  1067. * distance
  1068. * height of each tile (number and routine addr)
  1069. * And produces the appropriate strip on the
  1070. * screen.
  1071.  
  1072.  
  1073. nostripqG:
  1074.  rts
  1075.  
  1076. STARTGOUR: dc.l 0
  1077.  
  1078. ScreenWallstripdrawGOUR:
  1079.  
  1080.  swap d6
  1081.  clr.w d6
  1082.  move.l d6,STARTGOUR
  1083.  
  1084.  swap d7
  1085.  clr.w d7
  1086.  
  1087.  move.w d4,d6
  1088.  sub.w d3,d6
  1089.  beq.s nostripqG
  1090.  ext.l d6
  1091.  
  1092.  divs.l d6,d7    ; speed through gouraud table.
  1093.  
  1094.  move.w d4,d6
  1095.  cmp.w topclip(pc),d6
  1096.  blt.s nostripqG
  1097.  cmp.w botclip(pc),d3
  1098.  bgt.s nostripqG
  1099.  
  1100.  cmp.w botclip(pc),d6
  1101.  ble.s noclipbotG
  1102.  move.w botclip(pc),d6
  1103. noclipbotG:
  1104.  
  1105.  move.w d3,d5
  1106.  cmp.w topclip(pc),d5
  1107.  bge.s nocliptopG
  1108.  
  1109.  sub.w topclip(pc),d5
  1110.  neg.w d5
  1111.  ext.l d5
  1112.  move.l d7,d0
  1113.  muls.l d5,d0
  1114.  add.l d0,STARTGOUR
  1115.  
  1116.  move.w topclip(pc),d5
  1117.  
  1118.  
  1119. ; bra gotoendG
  1120. ; 
  1121. nocliptopG:
  1122. ; 
  1123.  
  1124.  bra gotoendG
  1125.  
  1126.  CNOP 0,128 
  1127. drawwallPACK0G:
  1128.  swap d4
  1129.  and.w d7,d4
  1130.  move.l d3,d2
  1131.  swap d2
  1132.  move.b 1(a5,d4.w*2),d1
  1133.  and.w #%1111111111100000,d2
  1134.  swap d4
  1135.  and.b #31,d1
  1136.  add.w d1,d2
  1137.  move.b (a4,d2.w*2),(a3)
  1138.  adda.w d0,a3
  1139.  add.l d5,d3
  1140.  add.l a2,d4
  1141.  dbra d6,drawwallPACK0G
  1142.  
  1143. nostripG:
  1144.  rts
  1145.  
  1146.  
  1147.  CNOP 0,4 
  1148. drawwallPACK1G:
  1149.  swap d4
  1150.  and.w d7,d4
  1151.  move.l d3,d2
  1152.  swap d2
  1153.  move.w (a5,d4.w*2),d1
  1154.  and.w #%1111111111100000,d2
  1155.  swap d4
  1156.  lsr.w #5,d1
  1157.  and.w #31,d1
  1158.  add.b d1,d2
  1159.  move.b (a4,d2.w*2),(a3)
  1160.  adda.w d0,a3
  1161.  add.l d5,d3
  1162.  add.l a2,d4
  1163.  dbra d6,drawwallPACK1G
  1164.  
  1165.  rts
  1166.  
  1167.  
  1168.  CNOP 0,4 
  1169. drawwallPACK2G:
  1170.  swap d4
  1171.  and.w d7,d4
  1172.  move.l d3,d2
  1173.  swap d2
  1174.  move.b (a5,d4.w*2),d1
  1175.  and.w #%1111111111100000,d2
  1176.  swap d4
  1177.  lsr.b #2,d1
  1178.  and.w #31,d1
  1179.  add.b d1,d2
  1180.  move.b (a4,d2.w*2),(a3)
  1181.  adda.w d0,a3
  1182.  add.l d5,d3
  1183.  add.l a2,d4
  1184.  dbra d6,drawwallPACK2G
  1185.  rts
  1186.  
  1187.  
  1188. usesimpleG:
  1189.  mulu d3,d4
  1190.  
  1191.  add.l d0,d4
  1192.  swap d4
  1193.  add.w totalyoff(pc),d4
  1194.  
  1195. cliptopusesimpleG
  1196.  move.w VALAND,d7
  1197.  move.w #320,d0
  1198.  moveq #0,d1
  1199.  
  1200.  swap d2
  1201.  
  1202.  ifne CHEESEY
  1203.  asr.l #1,d2
  1204.  endc
  1205.  move.l d2,a2
  1206.  swap d4
  1207.  ifne CHEESEY
  1208.  asr.l #1,d4
  1209.  endc
  1210.  
  1211.  move.l GOURSPEED,d5
  1212.  asl.l #5,d5
  1213.  move.l STARTGOUR,d3
  1214.  asl.l #5,d3
  1215.  
  1216.  cmp.b #1,StripData+1
  1217.  dbge d6,simplewalliPACK0G
  1218.  dbne d6,simplewalliPACK1G
  1219.  dble d6,simplewalliPACK2G
  1220.  rts
  1221.  
  1222.  CNOP 0,4
  1223. simplewalliPACK0G:
  1224.  swap d4
  1225.  and.w d7,d4
  1226.  move.l d3,d2
  1227.  swap d2
  1228.  move.b 1(a5,d4.w*2),d1
  1229.  and.w #%1111111111100000,d2
  1230.  swap d4
  1231.  and.b #31,d1
  1232.  add.b d1,d2
  1233.  move.b (a2,d2.w*2),d3
  1234. simplewallPACK0G:
  1235.  move.b d3,(a3)
  1236.  adda.w d0,a3
  1237.  add.l a2,d4
  1238.  bcc.s .noread
  1239.  addq #1,d4
  1240.  and.w d7,d4
  1241.  move.b 1(a5,d4.w*2),d1
  1242.  and.b #31,d1
  1243.  move.b (a2,d1.w*2),d3
  1244. .noread:
  1245.  dbra d6,simplewallPACK0G
  1246.  rts
  1247.  
  1248.  CNOP 0,4
  1249. simplewalliPACK1G:
  1250.  swap d4
  1251.  and.w d7,d4
  1252.  move.l d3,d2
  1253.  swap d2
  1254.  move.w (a5,d4.w*2),d1
  1255.  lsr.w #5,d1
  1256.  and.w #31,d1
  1257.  move.b (a2,d1.w*2),d3
  1258. simplewallPACK1G:
  1259.  move.b d3,(a3)
  1260.  adda.w d0,a3
  1261.  add.l d5,d4
  1262.  bcc.s .noread
  1263.  addq #1,d4
  1264.  and.w d7,d4
  1265.  move.w (a5,d4.w*2),d1
  1266.  lsr.w #5,d1
  1267.  and.w #31,d1
  1268.  move.b (a2,d1.w*2),d3
  1269. .noread:
  1270.  dbra d6,simplewallPACK1G
  1271.  rts
  1272.  
  1273.  CNOP 0,4
  1274. simplewalliPACK2G:
  1275.  move.b (a5,d4.w*2),d1
  1276.  lsr.b #2,d1
  1277.  and.b #31,d1
  1278.  move.b (a2,d1.w*2),d3
  1279. simplewallPACK2G:
  1280.  move.b d3,(a3)
  1281.  adda.w d0,a3
  1282.  add.l d5,d4
  1283.  bcc.s .noread
  1284.  addq #1,d4
  1285.  and.w d7,d4
  1286.  move.b (a5,d4.w*2),d1
  1287.  lsr.b #2,d1
  1288.  move.b (a2,d1.w*2),d3
  1289. .noread:
  1290.  dbra d6,simplewallPACK2G
  1291.  rts
  1292.  
  1293. ;gotoendnomult:
  1294. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1295. ; add.l timeslarge(pc,d5.w*4),a3 
  1296. ; move.w d5,d4
  1297. ; move.l 4(a1,d2.w*8),d0
  1298. ; move.l (a1,d2.w*8),d2
  1299. ; moveq #0,d3
  1300. ; move.w d2,d3
  1301. ; swap d2
  1302. ; tst.w d2
  1303. ; move.w wallyoff(pc),d4
  1304. ; add.w #44,d4
  1305. ; bne.s .notsimple
  1306. ; cmp.l #$b000,d3
  1307. ; ble cliptopusesimple
  1308. ;.notsimple:
  1309. ; bra cliptop
  1310.  
  1311. GOURSPEED: dc.l 0
  1312.  
  1313. gotoendG:
  1314.  tst.b DOUBLEHEIGHT
  1315.  bne doubwallGOUR
  1316.  
  1317.  sub.w d5,d6    ; height to draw.
  1318.  ble nostripqG
  1319.  
  1320.  move.l d7,GOURSPEED
  1321.  
  1322.  add.l timeslargeG(pc,d5.w*4),a3 
  1323.  
  1324.  add.w d2,d2
  1325.  
  1326.  move.l 4(a1,d2.w*8),d0
  1327.  add.w TOPOFFSET(pc),d5
  1328.  move.w d5,d4
  1329.  
  1330.  move.l (a1,d2.w*4),d2
  1331.  moveq #0,d3
  1332. ; move.w d2,d3
  1333. ; swap d2
  1334. ; tst.w d2
  1335. ; bne.s .notsimple
  1336. ; cmp.l #$b000,d3
  1337. ; ble usesimple
  1338. ;.notsimple:
  1339.  
  1340.  ext.l d5
  1341.  move.l d2,d4
  1342.  muls.l d5,d4
  1343.  
  1344. ; mulu d3,d4
  1345. ; muls d2,d5
  1346.  add.l d0,d4
  1347.  ifne CHEESEY
  1348.  asr.l #1,d4
  1349.  endc
  1350.  swap d4
  1351. ; add.w d5,d4
  1352.  add.w totalyoff(pc),d4
  1353. cliptopG
  1354.  move.w VALAND,d7
  1355.  and.w d7,d4
  1356.  move.w #320,d0
  1357.  moveq #0,d1
  1358.  
  1359.  ifne CHEESEY
  1360.  asr.l #1,d2
  1361.  endc
  1362.  move.l d2,a2
  1363.  swap d4
  1364.  
  1365.  move.l GOURSPEED,d5
  1366.  asl.l #5,d5
  1367.  move.l STARTGOUR,d3
  1368.  asl.l #5,d3
  1369.  
  1370.  cmp.b #1,StripData+1
  1371.  dbge d6,drawwallPACK0G
  1372.  dbne d6,drawwallPACK1G
  1373.  dble d6,drawwallPACK2G
  1374.  rts
  1375.  
  1376. timeslargeG:
  1377. val SET 0
  1378.  REPT 256
  1379.  dc.l val
  1380. val SET val+320
  1381.  ENDR
  1382.  
  1383. doubwallGOUR:
  1384.  
  1385.  moveq #0,d0
  1386.  asr.w #1,d5
  1387.  addx.w d0,d5
  1388.  add.w d5,d5
  1389.  
  1390.  sub.w d5,d6    ; height to draw.
  1391.  asr.w #1,d6
  1392.  ble nostripqG
  1393.  
  1394.  move.l d7,GOURSPEED
  1395.  
  1396.  add.l timeslargeGDOUB(pc,d5.w*4),a3 
  1397.  
  1398.  add.w d2,d2
  1399.  
  1400.  move.l 4(a1,d2.w*8),d0
  1401.  add.w TOPOFFSET(pc),d5
  1402.  move.w d5,d4
  1403.  
  1404.  move.l (a1,d2.w*4),d2
  1405.  moveq #0,d3
  1406. ; move.w d2,d3
  1407. ; swap d2
  1408. ; tst.w d2
  1409. ; bne.s .notsimple
  1410. ; cmp.l #$b000,d3
  1411. ; ble usesimple
  1412. ;.notsimple:
  1413.  
  1414.  ext.l d5
  1415.  move.l d2,d4
  1416.  muls.l d5,d4
  1417.  
  1418. ; mulu d3,d4
  1419. ; muls d2,d5
  1420.  add.l d0,d4
  1421.  ifne CHEESEY
  1422.  asr.l #1,d4
  1423.  endc
  1424.  swap d4
  1425. ; add.w d5,d4
  1426.  add.w totalyoff(pc),d4
  1427.  move.w VALAND,d7
  1428.  and.w d7,d4
  1429.  move.w #640,d0
  1430.  moveq #0,d1
  1431.  
  1432.  ifeq CHEESEY
  1433.  add.l d2,d2
  1434.  endc
  1435.  move.l d2,a2
  1436.  swap d4
  1437.  
  1438.  move.l GOURSPEED,d5
  1439.  asl.l #6,d5
  1440.  move.l STARTGOUR,d3
  1441.  asl.l #5,d3
  1442.  
  1443.  cmp.b #1,StripData+1
  1444.  dbge d6,drawwallPACK0G
  1445.  dbne d6,drawwallPACK1G
  1446.  dble d6,drawwallPACK2G
  1447.  rts
  1448.  
  1449. timeslargeGDOUB:
  1450. val SET 0
  1451.  REPT 256
  1452.  dc.l val
  1453. val SET val+320
  1454.  ENDR
  1455.  
  1456.  
  1457.  
  1458. ScreenWallstripdrawGOURB:
  1459.  
  1460.  swap d6
  1461.  clr.w d6
  1462.  move.l d6,STARTGOUR
  1463.  
  1464.  swap d7
  1465.  clr.w d7
  1466.  
  1467.  move.w d4,d6
  1468.  sub.w d3,d6
  1469.  beq nostripqG
  1470.  ext.l d6
  1471.  
  1472.  divs.l d6,d7    ; speed through gouraud table.
  1473.  
  1474.  move.w d4,d6
  1475.  cmp.w topclip(pc),d6
  1476.  blt nostripqG
  1477.  cmp.w botclip(pc),d3
  1478.  bgt nostripqG
  1479.  
  1480.  cmp.w botclip(pc),d6
  1481.  ble.s noclipbotGb
  1482.  move.w botclip(pc),d6
  1483. noclipbotGb:
  1484.  
  1485.  move.w d3,d5
  1486.  cmp.w topclip(pc),d5
  1487.  bge.s nocliptopGB
  1488.  
  1489.  sub.w topclip(pc),d5
  1490.  neg.w d5
  1491.  ext.l d5
  1492.  move.l d7,d0
  1493.  muls.l d5,d0
  1494.  add.l d0,STARTGOUR
  1495.  
  1496.  move.w topclip(pc),d5
  1497.  
  1498. nocliptopGB:
  1499.  
  1500.  
  1501.  
  1502. gotoendGB:
  1503.  
  1504.  tst.b DOUBLEHEIGHT
  1505.  bne doubwallGOURBIG
  1506.  
  1507.  sub.w d5,d6    ; height to draw.
  1508.  ble nostripqG
  1509.  move.l d7,GOURSPEED
  1510.  
  1511.  add.l timeslargeGB(pc,d5.w*4),a3 
  1512.  
  1513.  move.w d2,d4
  1514.  add.w d2,d2
  1515.  add.w d2,d4
  1516.  
  1517.  move.l 4(a1,d4.w*8),d0
  1518.  add.w TOPOFFSET(pc),d5
  1519.  move.w d5,d4
  1520.  
  1521.  move.l (a1,d2.w*4),d2
  1522.  moveq #0,d3
  1523. ; move.w d2,d3
  1524. ; swap d2
  1525. ; tst.w d2
  1526. ; bne.s .notsimple
  1527. ; cmp.l #$b000,d3
  1528. ; ble usesimple
  1529. ;.notsimple:
  1530.  
  1531.  ext.l d5
  1532.  move.l d2,d4
  1533.  muls.l d5,d4
  1534.  
  1535. ; mulu d3,d4
  1536. ; muls d2,d5
  1537.  add.l d0,d4
  1538.  ifne CHEESEY
  1539.  asr.l #1,d4
  1540.  endc
  1541.  swap d4
  1542. ; add.w d5,d4
  1543.  add.w totalyoff(pc),d4
  1544.  move.w VALAND,d7
  1545.  and.w d7,d4
  1546.  move.w #320,d0
  1547.  moveq #0,d1
  1548.  
  1549.  ifne CHEESEY
  1550.  asr.l #1,d2
  1551.  endc
  1552.  
  1553.  move.l d2,a2
  1554.  swap d4
  1555.  
  1556.  
  1557.  move.l GOURSPEED,d5
  1558.  asl.l #5,d5
  1559.  move.l STARTGOUR,d3
  1560.  asl.l #5,d3
  1561.  
  1562.  cmp.b #1,StripData+1
  1563.  dbge d6,drawwallPACK0G
  1564.  dbne d6,drawwallPACK1G
  1565.  dble d6,drawwallPACK2G
  1566.  rts
  1567.  
  1568. timeslargeGB:
  1569. val SET 0
  1570.  REPT 256
  1571.  dc.l val
  1572. val SET val+320
  1573.  ENDR
  1574.  
  1575.  
  1576. doubwallGOURBIG:
  1577.  
  1578.  moveq #0,d0
  1579.  asr.w #1,d5
  1580.  addx.w d0,d5
  1581.  add.w d5,d5
  1582.  
  1583.  sub.w d5,d6    ; height to draw.
  1584.  asr.w #1,d6
  1585.  ble nostripqG
  1586.  move.l d7,GOURSPEED
  1587.  
  1588.  add.l timeslargeGBDOUB(pc,d5.w*4),a3 
  1589.  
  1590.  move.w d2,d4
  1591.  add.w d2,d2
  1592.  add.w d2,d4
  1593.  
  1594.  move.l 4(a1,d4.w*8),d0
  1595.  add.w TOPOFFSET(pc),d5
  1596.  move.w d5,d4
  1597.  
  1598.  move.l (a1,d2.w*4),d2
  1599.  moveq #0,d3
  1600. ; move.w d2,d3
  1601. ; swap d2
  1602. ; tst.w d2
  1603. ; bne.s .notsimple
  1604. ; cmp.l #$b000,d3
  1605. ; ble usesimple
  1606. ;.notsimple:
  1607.  
  1608.  ext.l d5
  1609.  move.l d2,d4
  1610.  muls.l d5,d4
  1611.  
  1612. ; mulu d3,d4
  1613. ; muls d2,d5
  1614.  add.l d0,d4
  1615.  ifne CHEESEY
  1616.  asr.l #1,d4
  1617.  endc
  1618.  swap d4
  1619. ; add.w d5,d4
  1620.  add.w totalyoff(pc),d4
  1621.  move.w VALAND,d7
  1622.  
  1623.  and.w d7,d4
  1624.  move.w #640,d0
  1625.  moveq #0,d1
  1626.  
  1627.  ifeq CHEESEY
  1628.  add.l d2,d2
  1629.  endc
  1630.  move.l d2,a2
  1631.  swap d4
  1632.  
  1633.  
  1634.  move.l GOURSPEED,d5
  1635.  asl.l #6,d5
  1636.  move.l STARTGOUR,d3
  1637.  asl.l #5,d3
  1638.  
  1639.  cmp.b #1,StripData+1
  1640.  dbge d6,drawwallPACK0G
  1641.  dbne d6,drawwallPACK1G
  1642.  dble d6,drawwallPACK2G
  1643.  rts
  1644.  
  1645. timeslargeGBDOUB:
  1646. val SET 0
  1647.  REPT 256
  1648.  dc.l val
  1649. val SET val+320
  1650.  ENDR
  1651.