home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / LEDGERS / LEDG_05.MSA / SOURCE / TITAN / SOURCE.S < prev   
Text File  |  1987-04-22  |  17KB  |  939 lines
  1.  format 0-,1-,2-
  2.  
  3.  list +
  4.            ***********************************************
  5.            * MEGA-SCROLL BY THE TITAN OF DIGITAL JUSTICE *
  6.            *                                             *
  7.            *         WROTE USING DEVPAC 2 v2.07          *
  8.            *                                             *
  9.            *    THIS CODE WAS WROTE ABOUT 7 MONTHS AGO   *
  10.            *          AND IS VERY CRAP!!!!!!!!           *
  11.            ***********************************************
  12.  list -
  13.  
  14. * FILES USED
  15. *
  16. *
  17. * BAK.DAT     - BAKGROUND DATA
  18. * MEGAFONT.DAT     - FONT
  19. * OK6.BIN     - MUSIC FILE
  20.  
  21.  
  22.     BRA START
  23.  
  24. OLDS:    DC.L 0
  25. OLDP:    DS.W 16
  26. OLDR:    DC.W 0
  27.     EVEN
  28.  
  29.  
  30.  
  31. START:    DC.W $A00A
  32.  
  33.     CLR.L -(SP)     ;SV MODE
  34.     MOVE.W #$20,-(SP)
  35.     TRAP #1
  36.     ADDQ.L #6,SP
  37.     MOVE.L D0,SPAR+4
  38.  
  39.  
  40.     MOVEM.L ($FF8240),D0-D7
  41.     MOVEM.L D0-D7,OLDP
  42.  
  43.     MOVE.W #2,-(SP)
  44.     TRAP #14
  45.     ADDQ.L #2,SP
  46.     MOVE.L D0,(OLDS)
  47.  
  48.     MOVE.W #4,-(SP)
  49.     TRAP #14
  50.     ADDQ.L #2,SP
  51.     MOVE.W D0,(OLDR)
  52.  
  53.     MOVE.W #0,-(SP)
  54.     PEA SCR
  55.     MOVE.L #-1,-(SP)
  56.     MOVE.W #5,-(SP)
  57.     TRAP #14
  58.     ADD.L #12,SP
  59.  
  60.     MOVE.W #5,-(SP)
  61.     MOVE.W #26,-(SP)
  62.     TRAP #14
  63.     ADDQ.L #4,SP
  64.  
  65.     PEA MOUSE
  66.     MOVE.W #1,-(SP)
  67.     MOVE.W #25,-(SP)
  68.     TRAP #14
  69.     ADDQ.L #8,SP
  70.  
  71.     MOVE.L #0,$FF8240
  72.     MOVE.L #0,$FF8244
  73.     MOVE.L #0,$FF8248
  74.     MOVE.L #0,$FF824C
  75.     MOVE.L #0,$FF8250
  76.     MOVE.L #0,$FF8254
  77.     MOVE.L #0,$FF8258
  78.     MOVE.L #0,$FF825C
  79.  
  80.     JSR BAKPRIN
  81.  
  82.     BSR PAUSE1
  83.     BSR PAUSE1
  84.     BSR PAUSE1
  85.     BSR PAUSE1
  86.     MOVE.W #$101,$FF824C
  87.     MOVE.W #$000,$FF8248
  88.     MOVE.W #$000,$FF8244
  89.     BSR PAUSE1
  90.     BSR PAUSE1
  91.     BSR PAUSE1
  92.     BSR PAUSE1
  93.     MOVE.W #$202,$FF824C
  94.     MOVE.W #$101,$FF8248
  95.     MOVE.W #$000,$FF8244
  96.     BSR PAUSE1
  97.     BSR PAUSE1
  98.     BSR PAUSE1
  99.     BSR PAUSE1
  100.     MOVE.W #$303,$FF824C
  101.     MOVE.W #$101,$FF8248
  102.     MOVE.W #$000,$FF8244
  103.     BSR PAUSE1
  104.     BSR PAUSE1
  105.     BSR PAUSE1
  106.     BSR PAUSE1
  107.     MOVE.W #$404,$FF824C
  108.     MOVE.W #$202,$FF8248
  109.     MOVE.W #$000,$FF8244
  110.     BSR PAUSE1
  111.     BSR PAUSE1
  112.     BSR PAUSE1
  113.     BSR PAUSE1
  114.     MOVE.W #$505,$FF824C
  115.     MOVE.W #$303,$FF8248
  116.     MOVE.W #$101,$FF8244
  117.     BSR PAUSE1
  118.     BSR PAUSE1
  119.     BSR PAUSE1
  120.     BSR PAUSE1
  121.     MOVE.W #$606,$FF824C
  122.     MOVE.W #$404,$FF8248
  123.     MOVE.W #$202,$FF8244
  124.     BSR PAUSE1
  125.     BSR PAUSE1
  126.     BSR PAUSE1
  127.     BSR PAUSE1
  128.     MOVE.W #$707,$FF824C
  129.     MOVE.W #$505,$FF8248
  130.     MOVE.W #$303,$FF8244
  131.  
  132.  
  133.     MOVEQ #1,D0    ;INSERT OWN CODES
  134.     JSR MUSIC
  135.  
  136.     MOVE.W #$2700,SR
  137.     JSR INITRAST
  138.     MOVE.L $70,OVBL
  139.     MOVE.L #VBL,$70
  140.     MOVE.W #$2300,SR
  141.  
  142.     MOVE.L #MYPAL,A0    ;INSERT OWN PALETTE
  143.     LEA $FF8240,A1
  144.     MOVEQ #7,D0
  145.     BSR COPY
  146.  
  147. DEADLOP:
  148.     JSR PAUSE2
  149.     MOVE.W #$507,$FF824C
  150.     MOVE.W #$305,$FF8248
  151.     MOVE.W #$103,$FF8244
  152.     BSR PAUSE3
  153.     MOVE.W #$307,$FF824C
  154.     MOVE.W #$105,$FF8248
  155.     MOVE.W #$003,$FF8244
  156.     BSR PAUSE3
  157.     MOVE.W #$107,$FF824C
  158.     MOVE.W #$005,$FF8248
  159.     MOVE.W #$003,$FF8244
  160.     BSR PAUSE3
  161.     MOVE.W #$007,$FF824C
  162.     MOVE.W #$005,$FF8248
  163.     MOVE.W #$003,$FF8244
  164.     JSR PAUSE2
  165.  
  166.     MOVE.W #$017,$FF824C
  167.     MOVE.W #$005,$FF8248
  168.     MOVE.W #$003,$FF8244
  169.     BSR PAUSE3
  170.     MOVE.W #$037,$FF824C
  171.     MOVE.W #$015,$FF8248
  172.     MOVE.W #$003,$FF8244
  173.     BSR PAUSE3
  174.     MOVE.W #$057,$FF824C
  175.     MOVE.W #$035,$FF8248
  176.     MOVE.W #$013,$FF8244
  177.     BSR PAUSE3
  178.     MOVE.W #$077,$FF824C
  179.     MOVE.W #$055,$FF8248
  180.     MOVE.W #$033,$FF8244
  181.     JSR PAUSE2
  182.  
  183.     MOVE.W #$075,$FF824C
  184.     MOVE.W #$053,$FF8248
  185.     MOVE.W #$031,$FF8244
  186.     BSR PAUSE3
  187.     MOVE.W #$073,$FF824C
  188.     MOVE.W #$051,$FF8248
  189.     MOVE.W #$030,$FF8244
  190.     BSR PAUSE3
  191.     MOVE.W #$071,$FF824C
  192.     MOVE.W #$050,$FF8248
  193.     MOVE.W #$030,$FF8244
  194.     BSR PAUSE3
  195.     MOVE.W #$070,$FF824C
  196.     MOVE.W #$050,$FF8248
  197.     MOVE.W #$030,$FF8244
  198.     JSR PAUSE2
  199.  
  200.     MOVE.W #$170,$FF824C
  201.     MOVE.W #$050,$FF8248
  202.     MOVE.W #$030,$FF8244
  203.     BSR PAUSE3
  204.     MOVE.W #$370,$FF824C
  205.     MOVE.W #$150,$FF8248
  206.     MOVE.W #$030,$FF8244
  207.     BSR PAUSE3
  208.     MOVE.W #$570,$FF824C
  209.     MOVE.W #$350,$FF8248
  210.     MOVE.W #$130,$FF8244
  211.     BSR PAUSE3
  212.     MOVE.W #$770,$FF824C
  213.     MOVE.W #$550,$FF8248
  214.     MOVE.W #$330,$FF8244
  215.     JSR PAUSE2
  216.  
  217.     MOVE.W #$750,$FF824C
  218.     MOVE.W #$530,$FF8248
  219.     MOVE.W #$310,$FF8244
  220.     BSR PAUSE3
  221.     MOVE.W #$730,$FF824C
  222.     MOVE.W #$510,$FF8248
  223.     MOVE.W #$300,$FF8244
  224.     BSR PAUSE3
  225.     MOVE.W #$710,$FF824C
  226.     MOVE.W #$500,$FF8248
  227.     MOVE.W #$300,$FF8244
  228.     BSR PAUSE3
  229.     MOVE.W #$700,$FF824C
  230.     MOVE.W #$500,$FF8248
  231.     MOVE.W #$300,$FF8244
  232.     JSR PAUSE2
  233.  
  234.     MOVE.W #$701,$FF824C
  235.     MOVE.W #$500,$FF8248
  236.     MOVE.W #$300,$FF8244
  237.     BSR PAUSE3
  238.     MOVE.W #$703,$FF824C
  239.     MOVE.W #$501,$FF8248
  240.     MOVE.W #$300,$FF8244
  241.     BSR PAUSE3
  242.     MOVE.W #$705,$FF824C
  243.     MOVE.W #$503,$FF8248
  244.     MOVE.W #$301,$FF8244
  245.     BSR PAUSE3
  246.     MOVE.W #$707,$FF824C
  247.     MOVE.W #$505,$FF8248
  248.     MOVE.W #$303,$FF8244
  249.  
  250.     BRA DEADLOP
  251.  
  252.  
  253. EXIT:
  254.     MOVE.W #$2700,SR
  255.     MOVE.L OVBL,$70
  256.     JSR REMOVERAST
  257.     MOVE.W #$2300,SR
  258.  
  259.  
  260.     MOVE.W (OLDR),-(SP)
  261.     MOVE.L (OLDS),-(SP)
  262.     PEA SCR
  263.     MOVE.W #5,-(SP)
  264.     TRAP #14
  265.     ADD.L #12,SP
  266.  
  267.     MOVE.L #OLDP,A0
  268.     LEA $FF8240,A1
  269.     MOVEQ #7,D0
  270.     BSR COPY
  271.  
  272.     MOVE.W #5,-(SP)
  273.     MOVE.W #27,-(SP)
  274.     TRAP #14
  275.     ADDQ.L #4,SP
  276.  
  277.     MOVE.L #$8080000,$FF8800
  278.     MOVE.L #$9090000,$FF8800
  279.     MOVE.L #$A0A0000,$FF8800
  280.  
  281.     MOVE.L SPAR+4,-(SP)
  282.     MOVE.W #$20,-(SP)
  283.     TRAP #1
  284.     ADDQ.L #6,SP
  285.  
  286.     PEA MOUSE+2
  287.     MOVE.W #1,-(SP)
  288.     MOVE.W #25,-(SP)
  289.     TRAP #14
  290.     ADDQ.L #8,SP
  291.  
  292.     MOVE.W #0,-(SP)
  293.     TRAP #1
  294.  
  295.  
  296. COPY:
  297.         MOVE.L (A0)+,(A1)+
  298.         DBRA D0,COPY
  299.         RTS
  300.  
  301. PAUSE1:    MOVE.W #37,-(SP)
  302.     TRAP #14
  303.     ADD.L #2,SP
  304.     RTS
  305.  
  306. PAUSE2:    MOVE.W #500,D0
  307.  
  308. PB:    CMP.B #0,(FLAG)
  309.     BEQ PB
  310.     MOVE.B #0,(FLAG)
  311.     CMP.B #$39,$FFFC02
  312.     BEQ EXIT
  313.     DBRA D0,PB
  314.     RTS
  315. PAUSE3:    BSR PBB
  316.     BSR PBB
  317.     BSR PBB
  318.     BSR PBB
  319.     BSR PBB
  320.     BSR PBB
  321.     BSR PBB
  322. PBB    CMP.B #0,(FLAG)
  323.     BEQ PBB
  324.     MOVE.B #0,(FLAG)
  325.     CMP.B #$39,$FFFC02
  326.     BEQ EXIT
  327.     RTS
  328.  
  329.  
  330.  
  331.  
  332. VBL:
  333.     MOVE.L D0,-(SP)
  334.         MOVE.W #$0,$FF8240
  335.         CLR.B $FFFA1B
  336.         MOVEQ #4,D0
  337.         MOVE.B D0,$FFFA21
  338.         MOVE.B #8,$FFFA1B
  339.  
  340.         MOVE.L #CTAB,(CPOS)
  341.  
  342.     JSR SCROLLY
  343.     JSR BAKPRIN
  344.     JSR MUSIC+8
  345.  
  346.     MOVE.B #1,(FLAG)
  347.     MOVE.L (SP)+,D0
  348.         RTE
  349.         
  350. INITRAST:
  351.         MOVE.L $120,SPAR2
  352.         MOVE.B $FFFA09,SPAR4
  353.         MOVE.B $FFFA07,SPAR4+1
  354.         MOVE.B $FFFA13,SPAR4+2
  355.         MOVE.L #CTAB,(CPOS)
  356.         MOVE.L #RASTER1,$120
  357.         ORI.B #1,$FFFA07
  358.         ORI.B #1,$FFFA13
  359.         RTS
  360.  
  361. REMOVERAST:
  362.         MOVE.B SPAR4,$FFFA09
  363.         MOVE.B SPAR4+1,$FFFA07
  364.         MOVE.B SPAR4+2,$FFFA13
  365.         MOVE.L SPAR2,$120
  366.         RTS
  367.  
  368. RASTER1:
  369.     MOVE.L A5,-(SP)
  370.     MOVE.L (CPOS),A5
  371.         MOVE.W (A5),$FF8242
  372.         MOVE.W (A5),$FF8246
  373.         MOVE.W (A5),$FF824A
  374.         MOVE.W (A5),$FF824E
  375.     ADDQ.L #2,(CPOS)
  376.         BCLR #0,$FFFA0F
  377.     MOVE.L (SP)+,A5
  378.         RTE
  379.  
  380.  
  381. NEWCHAR:
  382.     MOVE.B #0,(TCOUNT)
  383. NC1:    MOVE.L (TPOS),A2
  384.     CLR.L D0
  385.     MOVE.B (A2),D0
  386.  
  387.     CMP.B #$FF,D0
  388.     BEQ WRAP
  389.  
  390.     SUB.B #32,D0
  391. NC2:    ADDQ.L #1,(TPOS)
  392.  
  393.     MULU #416,D0
  394.  
  395.     MOVE.L #FONT,A1
  396.     ADD.L D0,A1
  397.     BRA LETPRIN
  398.  
  399.  
  400. WRAP:    MOVE.L #TEXT,(TPOS)
  401.     BRA NC1
  402.  
  403. LETPRIN:
  404.     MOVE.L #SCRBAC+40,A0
  405.  
  406.     REPT 15
  407.     MOVEM.W (A1)+,D0-D7
  408.     MOVEM.W D0-D7,(A0)
  409.     ADD.L #16,A0
  410.     MOVEM.W (A1)+,D0-D4
  411.     MOVEM.W D0-D4,(A0)
  412.     ADD.L #66-26+10,A0
  413.     ENDR
  414.     BRA SCROLL
  415.  
  416.  
  417. SCROLLY: 
  418.     MOVE.B (TCOUNT),D0
  419.     CMP.B #12,D0
  420.     BEQ NEWCHAR
  421.     ADD.B #1,(TCOUNT)
  422. SCROLL:
  423.     MOVE.L #SCRBAC,A0
  424. SC1    MACRO
  425.     MOVEM.L 2(A0),D0-D7
  426.     MOVEM.L D0-D7,(A0)
  427.     ADD.L #32,A0
  428.  
  429.     MOVEM.L 2(A0),D0-D7
  430.     MOVEM.L D0-D7,(A0)
  431.     ADD.L #34,A0
  432.     ENDM
  433.  
  434.     REPT 15
  435.     SC1
  436.     ENDR
  437.  
  438. FLICK:
  439.     MOVE.L #SCRBAC,A0
  440.     MOVE.L #SCR+640,A1
  441.  
  442. FL1:    MACRO
  443.     MOVEM.W (A0)+,D0-D7
  444. LD:    SET 0
  445.     MOVE.W D0,LD(A1)
  446.     MOVE.W D1,LD+8(A1)
  447.     MOVE.W D2,LD+16(A1)
  448.     MOVE.W D3,LD+24(A1)
  449.     MOVE.W D4,LD+32(A1)
  450.     MOVE.W D5,LD+40(A1)
  451.     MOVE.W D6,LD+48(A1)
  452.     MOVE.W D7,LD+56(A1)
  453. LD:    SET 160
  454.     MOVE.W D0,LD(A1)
  455.     MOVE.W D1,LD+8(A1)
  456.     MOVE.W D2,LD+16(A1)
  457.     MOVE.W D3,LD+24(A1)
  458.     MOVE.W D4,LD+32(A1)
  459.     MOVE.W D5,LD+40(A1)
  460.     MOVE.W D6,LD+48(A1)
  461.     MOVE.W D7,LD+56(A1)
  462. LD:    SET 320
  463.     MOVE.W D0,LD(A1)
  464.     MOVE.W D1,LD+8(A1)
  465.     MOVE.W D2,LD+16(A1)
  466.     MOVE.W D3,LD+24(A1)
  467.     MOVE.W D4,LD+32(A1)
  468.     MOVE.W D5,LD+40(A1)
  469.     MOVE.W D6,LD+48(A1)
  470.     MOVE.W D7,LD+56(A1)
  471. LD:    SET 480
  472.     MOVE.W D0,LD(A1)
  473.     MOVE.W D1,LD+8(A1)
  474.     MOVE.W D2,LD+16(A1)
  475.     MOVE.W D3,LD+24(A1)
  476.     MOVE.W D4,LD+32(A1)
  477.     MOVE.W D5,LD+40(A1)
  478.     MOVE.W D6,LD+48(A1)
  479.     MOVE.W D7,LD+56(A1)
  480. LD:    SET 640
  481.     MOVE.W D0,LD(A1)
  482.     MOVE.W D1,LD+8(A1)
  483.     MOVE.W D2,LD+16(A1)
  484.     MOVE.W D3,LD+24(A1)
  485.     MOVE.W D4,LD+32(A1)
  486.     MOVE.W D5,LD+40(A1)
  487.     MOVE.W D6,LD+48(A1)
  488.     MOVE.W D7,LD+56(A1)
  489. LD:    SET 800
  490.     MOVE.W D0,LD(A1)
  491.     MOVE.W D1,LD+8(A1)
  492.     MOVE.W D2,LD+16(A1)
  493.     MOVE.W D3,LD+24(A1)
  494.     MOVE.W D4,LD+32(A1)
  495.     MOVE.W D5,LD+40(A1)
  496.     MOVE.W D6,LD+48(A1)
  497.     MOVE.W D7,LD+56(A1)
  498. LD:    SET 960
  499.     MOVE.W D0,LD(A1)
  500.     MOVE.W D1,LD+8(A1)
  501.     MOVE.W D2,LD+16(A1)
  502.     MOVE.W D3,LD+24(A1)
  503.     MOVE.W D4,LD+32(A1)
  504.     MOVE.W D5,LD+40(A1)
  505.     MOVE.W D6,LD+48(A1)
  506.     MOVE.W D7,LD+56(A1)
  507. LD:    SET 1120
  508.     MOVE.W D0,LD(A1)
  509.     MOVE.W D1,LD+8(A1)
  510.     MOVE.W D2,LD+16(A1)
  511.     MOVE.W D3,LD+24(A1)
  512.     MOVE.W D4,LD+32(A1)
  513.     MOVE.W D5,LD+40(A1)
  514.     MOVE.W D6,LD+48(A1)
  515.     MOVE.W D7,LD+56(A1)
  516. LD:    SET 1280
  517.     MOVE.W D0,LD(A1)
  518.     MOVE.W D1,LD+8(A1)
  519.     MOVE.W D2,LD+16(A1)
  520.     MOVE.W D3,LD+24(A1)
  521.     MOVE.W D4,LD+32(A1)
  522.     MOVE.W D5,LD+40(A1)
  523.     MOVE.W D6,LD+48(A1)
  524.     MOVE.W D7,LD+56(A1)
  525. LD:    SET 1440
  526.     MOVE.W D0,LD(A1)
  527.     MOVE.W D1,LD+8(A1)
  528.     MOVE.W D2,LD+16(A1)
  529.     MOVE.W D3,LD+24(A1)
  530.     MOVE.W D4,LD+32(A1)
  531.     MOVE.W D5,LD+40(A1)
  532.     MOVE.W D6,LD+48(A1)
  533.     MOVE.W D7,LD+56(A1)
  534. LD:    SET 1600
  535.     MOVE.W D0,LD(A1)
  536.     MOVE.W D1,LD+8(A1)
  537.     MOVE.W D2,LD+16(A1)
  538.     MOVE.W D3,LD+24(A1)
  539.     MOVE.W D4,LD+32(A1)
  540.     MOVE.W D5,LD+40(A1)
  541.     MOVE.W D6,LD+48(A1)
  542.     MOVE.W D7,LD+56(A1)
  543. LD:    SET 1760
  544.     MOVE.W D0,LD(A1)
  545.     MOVE.W D1,LD+8(A1)
  546.     MOVE.W D2,LD+16(A1)
  547.     MOVE.W D3,LD+24(A1)
  548.     MOVE.W D4,LD+32(A1)
  549.     MOVE.W D5,LD+40(A1)
  550.     MOVE.W D6,LD+48(A1)
  551.     MOVE.W D7,LD+56(A1)
  552. LD:    SET 1920
  553.     MOVE.W D0,LD(A1)
  554.     MOVE.W D1,LD+8(A1)
  555.     MOVE.W D2,LD+16(A1)
  556.     MOVE.W D3,LD+24(A1)
  557.     MOVE.W D4,LD+32(A1)
  558.     MOVE.W D5,LD+40(A1)
  559.     MOVE.W D6,LD+48(A1)
  560.     MOVE.W D7,LD+56(A1)
  561.  
  562.  
  563.     MOVEM.W (A0)+,D0-D7
  564. LD:    SET 64+0
  565.     MOVE.W D0,LD(A1)
  566.     MOVE.W D1,LD+8(A1)
  567.     MOVE.W D2,LD+16(A1)
  568.     MOVE.W D3,LD+24(A1)
  569.     MOVE.W D4,LD+32(A1)
  570.     MOVE.W D5,LD+40(A1)
  571.     MOVE.W D6,LD+48(A1)
  572.     MOVE.W D7,LD+56(A1)
  573. LD:    SET 64+160
  574.     MOVE.W D0,LD(A1)
  575.     MOVE.W D1,LD+8(A1)
  576.     MOVE.W D2,LD+16(A1)
  577.     MOVE.W D3,LD+24(A1)
  578.     MOVE.W D4,LD+32(A1)
  579.     MOVE.W D5,LD+40(A1)
  580.     MOVE.W D6,LD+48(A1)
  581.     MOVE.W D7,LD+56(A1)
  582. LD:    SET 64+320
  583.     MOVE.W D0,LD(A1)
  584.     MOVE.W D1,LD+8(A1)
  585.     MOVE.W D2,LD+16(A1)
  586.     MOVE.W D3,LD+24(A1)
  587.     MOVE.W D4,LD+32(A1)
  588.     MOVE.W D5,LD+40(A1)
  589.     MOVE.W D6,LD+48(A1)
  590.     MOVE.W D7,LD+56(A1)
  591. LD:    SET 64+480
  592.     MOVE.W D0,LD(A1)
  593.     MOVE.W D1,LD+8(A1)
  594.     MOVE.W D2,LD+16(A1)
  595.     MOVE.W D3,LD+24(A1)
  596.     MOVE.W D4,LD+32(A1)
  597.     MOVE.W D5,LD+40(A1)
  598.     MOVE.W D6,LD+48(A1)
  599.     MOVE.W D7,LD+56(A1)
  600. LD:    SET 64+640
  601.     MOVE.W D0,LD(A1)
  602.     MOVE.W D1,LD+8(A1)
  603.     MOVE.W D2,LD+16(A1)
  604.     MOVE.W D3,LD+24(A1)
  605.     MOVE.W D4,LD+32(A1)
  606.     MOVE.W D5,LD+40(A1)
  607.     MOVE.W D6,LD+48(A1)
  608.     MOVE.W D7,LD+56(A1)
  609. LD:    SET 64+800
  610.     MOVE.W D0,LD(A1)
  611.     MOVE.W D1,LD+8(A1)
  612.     MOVE.W D2,LD+16(A1)
  613.     MOVE.W D3,LD+24(A1)
  614.     MOVE.W D4,LD+32(A1)
  615.     MOVE.W D5,LD+40(A1)
  616.     MOVE.W D6,LD+48(A1)
  617.     MOVE.W D7,LD+56(A1)
  618. LD:    SET 64+960
  619.     MOVE.W D0,LD(A1)
  620.     MOVE.W D1,LD+8(A1)
  621.     MOVE.W D2,LD+16(A1)
  622.     MOVE.W D3,LD+24(A1)
  623.     MOVE.W D4,LD+32(A1)
  624.     MOVE.W D5,LD+40(A1)
  625.     MOVE.W D6,LD+48(A1)
  626.     MOVE.W D7,LD+56(A1)
  627. LD:    SET 64+1120
  628.     MOVE.W D0,LD(A1)
  629.     MOVE.W D1,LD+8(A1)
  630.     MOVE.W D2,LD+16(A1)
  631.     MOVE.W D3,LD+24(A1)
  632.     MOVE.W D4,LD+32(A1)
  633.     MOVE.W D5,LD+40(A1)
  634.     MOVE.W D6,LD+48(A1)
  635.     MOVE.W D7,LD+56(A1)
  636. LD:    SET 64+1280
  637.     MOVE.W D0,LD(A1)
  638.     MOVE.W D1,LD+8(A1)
  639.     MOVE.W D2,LD+16(A1)
  640.     MOVE.W D3,LD+24(A1)
  641.     MOVE.W D4,LD+32(A1)
  642.     MOVE.W D5,LD+40(A1)
  643.     MOVE.W D6,LD+48(A1)
  644.     MOVE.W D7,LD+56(A1)
  645. LD:    SET 64+1440
  646.     MOVE.W D0,LD(A1)
  647.     MOVE.W D1,LD+8(A1)
  648.     MOVE.W D2,LD+16(A1)
  649.     MOVE.W D3,LD+24(A1)
  650.     MOVE.W D4,LD+32(A1)
  651.     MOVE.W D5,LD+40(A1)
  652.     MOVE.W D6,LD+48(A1)
  653.     MOVE.W D7,LD+56(A1)
  654. LD:    SET 64+1600
  655.     MOVE.W D0,LD(A1)
  656.     MOVE.W D1,LD+8(A1)
  657.     MOVE.W D2,LD+16(A1)
  658.     MOVE.W D3,LD+24(A1)
  659.     MOVE.W D4,LD+32(A1)
  660.     MOVE.W D5,LD+40(A1)
  661.     MOVE.W D6,LD+48(A1)
  662.     MOVE.W D7,LD+56(A1)
  663. LD:    SET 64+1760
  664.     MOVE.W D0,LD(A1)
  665.     MOVE.W D1,LD+8(A1)
  666.     MOVE.W D2,LD+16(A1)
  667.     MOVE.W D3,LD+24(A1)
  668.     MOVE.W D4,LD+32(A1)
  669.     MOVE.W D5,LD+40(A1)
  670.     MOVE.W D6,LD+48(A1)
  671.     MOVE.W D7,LD+56(A1)
  672. LD:    SET 64+1920
  673.     MOVE.W D0,LD(A1)
  674.     MOVE.W D1,LD+8(A1)
  675.     MOVE.W D2,LD+16(A1)
  676.     MOVE.W D3,LD+24(A1)
  677.     MOVE.W D4,LD+32(A1)
  678.     MOVE.W D5,LD+40(A1)
  679.     MOVE.W D6,LD+48(A1)
  680.     MOVE.W D7,LD+56(A1)
  681.  
  682.  
  683.  
  684.     MOVEM.W (A0)+,D0-D3
  685. LD:    SET 128+0
  686.     MOVE.W D0,LD(A1)
  687.     MOVE.W D1,LD+8(A1)
  688.     MOVE.W D2,LD+16(A1)
  689.     MOVE.W D3,LD+24(A1)
  690. LD:    SET 128+160
  691.     MOVE.W D0,LD(A1)
  692.     MOVE.W D1,LD+8(A1)
  693.     MOVE.W D2,LD+16(A1)
  694.     MOVE.W D3,LD+24(A1)
  695. LD:    SET 128+320
  696.     MOVE.W D0,LD(A1)
  697.     MOVE.W D1,LD+8(A1)
  698.     MOVE.W D2,LD+16(A1)
  699.     MOVE.W D3,LD+24(A1)
  700. LD:    SET 128+480
  701.     MOVE.W D0,LD(A1)
  702.     MOVE.W D1,LD+8(A1)
  703.     MOVE.W D2,LD+16(A1)
  704.     MOVE.W D3,LD+24(A1)
  705. LD:    SET 128+640
  706.     MOVE.W D0,LD(A1)
  707.     MOVE.W D1,LD+8(A1)
  708.     MOVE.W D2,LD+16(A1)
  709.     MOVE.W D3,LD+24(A1)
  710. LD:    SET 128+800
  711.     MOVE.W D0,LD(A1)
  712.     MOVE.W D1,LD+8(A1)
  713.     MOVE.W D2,LD+16(A1)
  714.     MOVE.W D3,LD+24(A1)
  715. LD:    SET 128+960
  716.     MOVE.W D0,LD(A1)
  717.     MOVE.W D1,LD+8(A1)
  718.     MOVE.W D2,LD+16(A1)
  719.     MOVE.W D3,LD+24(A1)
  720. LD:    SET 128+1120
  721.     MOVE.W D0,LD(A1)
  722.     MOVE.W D1,LD+8(A1)
  723.     MOVE.W D2,LD+16(A1)
  724.     MOVE.W D3,LD+24(A1)
  725. LD:    SET 128+1280
  726.     MOVE.W D0,LD(A1)
  727.     MOVE.W D1,LD+8(A1)
  728.     MOVE.W D2,LD+16(A1)
  729.     MOVE.W D3,LD+24(A1)
  730. LD:    SET 128+1440
  731.     MOVE.W D0,LD(A1)
  732.     MOVE.W D1,LD+8(A1)
  733.     MOVE.W D2,LD+16(A1)
  734.     MOVE.W D3,LD+24(A1)
  735. LD:    SET 128+1600
  736.     MOVE.W D0,LD(A1)
  737.     MOVE.W D1,LD+8(A1)
  738.     MOVE.W D2,LD+16(A1)
  739.     MOVE.W D3,LD+24(A1)
  740. LD:    SET 128+1760
  741.     MOVE.W D0,LD(A1)
  742.     MOVE.W D1,LD+8(A1)
  743.     MOVE.W D2,LD+16(A1)
  744.     MOVE.W D3,LD+24(A1)
  745. LD:    SET 128+1920
  746.     MOVE.W D0,LD(A1)
  747.     MOVE.W D1,LD+8(A1)
  748.     MOVE.W D2,LD+16(A1)
  749.     MOVE.W D3,LD+24(A1)
  750.     ADD.L #26,A0
  751.     ADD.L #2080,A1
  752.     ENDM
  753.  
  754.     REPT 15
  755.     FL1
  756.     ENDR
  757.     RTS
  758.  
  759.  
  760. BAK1:    MACRO
  761.     MOVEM.L (A0)+,D0-D7
  762.     MOVE.L D0,(A1)
  763.     MOVE.L D1,8(A1)
  764.     MOVE.L D2,16(A1)
  765.     MOVE.L D3,24(A1)
  766.     MOVE.L D4,32(A1)
  767.     MOVE.L D5,40(A1)
  768.     MOVE.L D6,48(A1)
  769.     MOVE.L D7,56(A1)
  770.     MOVEM.L (A0)+,D0-D7
  771.     MOVE.L D0,64(A1)
  772.     MOVE.L D1,64+8(A1)
  773.     MOVE.L D2,64+16(A1)
  774.     MOVE.L D3,64+24(A1)
  775.     MOVE.L D4,64+32(A1)
  776.     MOVE.L D5,64+40(A1)
  777.     MOVE.L D6,64+48(A1)
  778.     MOVE.L D7,64+56(A1)
  779.     MOVEM.L (A0)+,D0-D3
  780.     MOVE.L D0,128(A1)
  781.     MOVE.L D1,128+8(A1)
  782.     MOVE.L D2,128+16(A1)
  783.     MOVE.L D3,128+24(A1)
  784.     ENDM
  785.  
  786. BAKSET:    MOVE.L #BAKTAB,(BAKPOS)
  787.  
  788. BAKPRIN:
  789.     CMP.L #BAKEND,(BAKPOS)
  790.     BEQ BAKSET
  791.     ADD.L #2,(BAKPOS)
  792.     MOVE.L (BAKPOS),A2
  793.     MOVE.L #SCR+2+160,A1
  794.  
  795.  
  796.     REPT 25
  797.     MOVE.W (A2)+,D0
  798.     LEA BAK,A0
  799.     ADD.W D0,A0
  800.     BAK1
  801.     ADD.L #160,A1
  802.     BAK1
  803.     ADD.L #160,A1
  804.     BAK1
  805.     ADD.L #160,A1
  806.     BAK1
  807.     ADD.L #160,A1
  808.     BAK1
  809.     ADD.L #160,A1
  810.     BAK1
  811.     ADD.L #480,A1
  812.     ENDR
  813.  
  814.     RTS
  815.  
  816. ************** DATA IN DE AREA (THE REVENGE OF!!!) *************
  817. FLAG:    DC.B 0
  818.     EVEN
  819. BAKPOS:    DC.L PRETAB
  820.  
  821. PRETAB    DS.W 100
  822.  
  823. BAKTAB
  824.  
  825.     REPT 5
  826.     DC.W 0,640,1280,1920,2560,3200,3840,3840,4480,4480,4480,4480
  827.     DC.W 3840,3840,3200,2560,1920,1280,640,0
  828.     DC.W 4480,3840,3200,2560,1920,1280,1280,640,640,640,640
  829.     DC.W 1280,1280,1920,2560,3200,3840,4480
  830.     ENDR
  831.  
  832.  
  833.     REPT 5
  834.     DC.W 0,1280,2560,3200,3840,3840,4480,4480,4480,4480
  835.     DC.W 3840,3840,3200,2560,1280,0
  836.     DC.W 3840,2560,1920,1280,1280,640,640,640,640
  837.     DC.W 1280,1280,1920,2560,3840
  838.     ENDR
  839.  
  840.  
  841.     REPT 7
  842.     DC.W 0,640,1280,1920,2560,3200,3840,4480
  843.     ENDR
  844.     DS.W 25
  845.  
  846.     REPT 5
  847.     DC.W 0,640,1280,1920,1920,2560,2560,2560
  848.     DC.W 1920,1280,640,0
  849.     DC.W 4480,3840,3200,3200,2560,2560,2560
  850.     DC.W 3200,3200,3840,4480
  851.     ENDR
  852.  
  853.     REPT 7
  854.     DC.W 4480,3840,3200,2560,1920,1280,640,0
  855.     ENDR
  856.     DS.W 25
  857.  
  858.     REPT 10
  859.     DC.W 0,1920,3840,640,2560,4480
  860.     DC.W 4480,2560,640,3840,1920,0
  861.     DC.W 3200,1280,4480,2560,640
  862.     DC.W 640,2560,4480,1280,3200
  863.     ENDR
  864.  
  865.  
  866.     DC.W 0,640,1280,1920,2560,3200,3840,3840,4480,4480,4480,4480
  867.     DC.W 3840,3840,3200,2560,1920,1280,640,0
  868.     DC.W 4480,3840,3200,2560,1920,1280,1280,640,640,640,640
  869.     DC.W 1280,1280,1920,2560,3200,3840,4480
  870. BAKEND    REPT 5
  871.     DC.W 0,640,1280,1920,2560,3200,3840,3840,4480,4480,4480,4480
  872.     DC.W 3840,3840,3200,2560,1920,1280,640,0
  873.     DC.W 4480,3840,3200,2560,1920,1280,1280,640,640,640,640
  874.     DC.W 1280,1280,1920,2560,3200,3840,4480
  875.     ENDR
  876.  
  877.  
  878. SCRBAC:    DS.B 66*15
  879.     EVEN
  880.  
  881. TCOUNT:    DC.B 0
  882.     EVEN
  883. TEXT:    
  884.     DC.B '   ...... . . . .   .   .   .     '
  885.     DC.B 'DIGITAL JUSTICE PROUDLY PRESENTS THE "SUPER-SCROLLER" SCREEN....            '
  886.     DC.B 'THE ORGINAL TEXT HAS BEEN TAKEN OUT SO GET THE SUMMONING OF THE SPAWN MEGA-DEMO IF YOU WANT TO READ IT!!!!.........      '
  887.     DC.B 'SPECIAL GREETS FOR THIS VERSION OF THE SCREEN GO TO ALL THE MEGA COOL GUYS THAT MAKE UP THE ENTERPRISE.......        LETS WRAP!!!           '
  888.     DC.B $FF
  889.  
  890.     EVEN
  891. TPOS:    DC.L TEXT
  892.  
  893. SPAR1:  DC.L 0
  894. SPAR2:  DC.L 0
  895. SPAR3:  DC.L 0
  896. SPAR4:  DC.L 0
  897. SPAR5:  DC.W 0
  898. SCR:    EQU $78000
  899.  
  900. CPOS:    DC.L CTAB
  901.  
  902. CTAB:
  903.  
  904.  DC.W $001,$002,$003,$004,$005,$006
  905.  DC.W $007,$017,$027,$037,$047,$057,$067,$077
  906.  DC.W $067,$057,$047,$037,$027,$017
  907.  DC.W $007,$006,$005,$004,$003,$002
  908.  
  909.  DC.W $001,$002,$003,$004,$005,$006
  910.  DC.W $007,$017,$027,$037,$047,$057,$067,$077
  911.  DC.W $067,$057,$047,$037,$027,$017
  912.  DC.W $007,$006,$005,$004,$003,$002
  913.  
  914.  
  915.  
  916. SPAR:   DS.L 10
  917.  
  918. OVBL:
  919.         DC.L 0
  920.  
  921. MOUSE:
  922.         DC.B $12,$1A,$14,8
  923.         EVEN
  924. SYSPAL:    DC.W $777,$700,$070,$000,$007,$707,$007,$555,$333,$733,$373
  925.     DC.W $773,$337,$737,$377,$000
  926.  
  927. MYPAL:    DC.W $000,$007,$303,$007,$505,$007,$707,$0606
  928.     DC.W $101,$0111,$707,$0222,$505,$0333,$0444,$0444
  929.  
  930. BAK:    INCBIN 'A:\SOURCE\BAK.DAT'
  931.     EVEN
  932.  
  933. FONT
  934.     INCBIN 'A:\SOURCE\MEGAFONT.DAT'
  935.     EVEN
  936. MUSIC:
  937.     INCBIN 'A:\SOURCE\OK6.BIN'
  938.     EVEN
  939.     END