home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / dragint.lha / INTRO.S < prev    next >
Encoding:
Text File  |  1980-02-14  |  7.0 KB  |  272 lines
  1. ;******************
  2. ;** SCROLL INTRO **
  3. ;******************
  4. ;THIS INTRO IS BY SKYMAN OF DRAGONS.
  5. ;********************************************************************
  6. OPENLIB= -552
  7. FORBID = -132
  8. PERMIT = -138
  9. EXECBASE=4
  10. STARTLIST=38
  11. ;********************************************************************
  12. START:    LEA    $40000,A0
  13.     LEA    X2,A1
  14. START1:    CLR.B    (A0)+
  15.     CMP.L    A0,A1
  16.     BHI.S    START1
  17.     MOVE.L    EXECBASE,A6
  18.     JSR    FORBID(A6)
  19.     MOVE.W    #$3E0,$DFF096
  20.     MOVE.L    #COPPER,$DFF080
  21.     CLR.W    $DFF088
  22.     MOVE.W    #$87C0,$DFF096
  23.     MOVE.L    $6C.W,MODIFY1+2
  24.     MOVE.L    #MODIFY,$6C.W
  25. ;********************************************************************
  26. TSTSOU:    BTST    #6,$BFE001
  27.     BNE.S    TSTSOU
  28. ;********************************************************************
  29.     MOVE.L    MODIFY1+2,$6C.W
  30.     MOVE.L    EXECBASE,A6
  31.     MOVE.L    #GRNAME,A1
  32.     CLR.L    D0
  33.     JSR    OPENLIB(A6)
  34.     MOVE.L    D0,A4
  35.     MOVE.L    STARTLIST(A4),$DFF080
  36.     CLR.W    $DFF088
  37.     MOVE.W    #$8060,$DFF096
  38.     JSR    PERMIT(A6)
  39.     MOVEQ    #0,D0
  40.     RTS
  41. ;********************************************************************
  42. MODIFY:    MOVEM.L    D0-D7/A0-A6,-(SP)
  43.     BSR.L    SCRHOR
  44.     BSR.L    SETCOP
  45.     BSR.S    MOVOSC
  46.     BSR.S    MOVCOL
  47.     MOVEM.L    (SP)+,D0-D7/A0-A6
  48. MODIFY1:JMP    $0
  49. ;********************************************************************
  50. MOVCOL:    LEA    COLORS,A0
  51.     MOVE.W    (A0)+,D0
  52. MOVCOL2:TST.W    (A0)
  53.     BNE.S    MOVCOL1
  54.     MOVE.W    D0,-2(A0)
  55.     RTS
  56. MOVCOL1:MOVE.W    (A0)+,-4(A0)
  57.     BRA.S    MOVCOL2
  58. ;********************************************************************
  59. MOVOSC:    LEA    TABOSC,A0
  60.     MOVEQ    #62,D7
  61.     MOVE.B    (A0),D0
  62. MOVOSC1:MOVE.B    1(A0),(A0)+
  63.     DBRA    D7,MOVOSC1
  64.     MOVE.B    D0,-1(A0)
  65.     RTS
  66. ;********************************************************************
  67. ADRCOL:    DC.L    COLORS,COLORS
  68. COLORS:    DC.W    $FC9,$EC9,$DC9,$CC9,$CB9,$CA9,$C99,$C9A,$C9B,$C9C
  69.     DC.W    $C9D,$C9E,$C9F,$B9F,$A9F,$99F,$9AF,$9BF,$9CF,$ACF
  70.     DC.W    $BCF,$CCF,$DCF,$ECF,$FCF,$FBF,$FAF,$F9F,$F9E,$F9D
  71.     DC.W    $F9C,$E9C,$D9C,$C9C,$CAC,$CBC,$CCC,$CDC,$CEC,$CFC
  72.     DC.W    $CFB,$CFA,$CF9,$BF9,$AF9,$9F9,$9FA,$9FB,$9FC,$AFC
  73.     DC.W    $BFC,$CFC,$DFC,$EFC,$FFC,$FEC,$FDC,$FCC,$FCB,$FCA
  74.     DC.W    0
  75. SETCOP:    LEA    COPPER1,A0
  76.     MOVE.L    ADRCOL,A2
  77.     TST.W    (A2)
  78.     BNE.S    SETCOP1
  79.     MOVE.L    ADRCOL+4,ADRCOL
  80.     MOVE.L    ADRCOL+4,A2
  81. SETCOP1:MOVE.L    #$3007FFFE,D7
  82.     MOVE.L    #SCR+50,D0
  83.     LEA    TABOSC,A1
  84.     MOVE.L    #38,D5
  85. OSC2:    MOVE.B    (A1)+,D6
  86.     TST.B    D6
  87.     BNE.S    OSC1
  88.     ADDI.L    #40,D0
  89.     DBRA    D5,OSC2
  90.     BRA.L    OSC4
  91. OSC1:    MOVE.L    D7,(A0)+
  92.     SWAP    D0
  93.     MOVE.W    #$E0,(A0)+
  94.     MOVE.W    D0,(A0)+
  95.     SWAP    D0
  96.     MOVE.W    #$E2,(A0)+
  97.     MOVE.W    D0,(A0)+
  98.     TST.W    (A2)
  99.     BNE.S    SETCOP2
  100.     MOVE.L    ADRCOL+4,A2
  101. SETCOP2:MOVE.W    #$182,(A0)+
  102.     MOVE.W    (A2)+,(A0)+
  103.     ADDI.L    #$01000000,D7
  104.     BCC.S    SETCOP3
  105.     MOVE.L    #$FFE1FFFE,(A0)+
  106.     MOVE.L    #$0011FFFE,D7
  107. SETCOP3:SUBQ.B    #1,D6
  108.     TST.B    D6
  109.     BNE.S    OSC1
  110.     ADDI.L    #50,D0
  111.     DBRA    D5,OSC2
  112. OSC4:    MOVE.L    #$1000000,(A0)+
  113.     MOVE.L    #$FFFFFFFE,(A0)+
  114.     RTS
  115. ;********************************************************************
  116. TABOSC:    DC.B    2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9
  117.     DC.B    9,9,8,8,7,7,6,6,5,5,4,4,3,3,2,2
  118.     DC.B    2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9
  119.     DC.B    9,9,8,8,7,7,6,6,5,5,4,4,3,3,2,2
  120.     EVEN
  121. ;********************************************************************
  122. DATSCR:    DC.B    0
  123.     EVEN
  124. ADRTXT:    DC.L    TEXT
  125. ;*************************************************
  126. ;** SCROLL MULTIVITESSE A CARACTERES MODULABLES **
  127. ;*************************************************
  128. SCRHOR:    ADDI.B    #4,DATSCR
  129.     CMP.B    #32,DATSCR
  130.     BLO.S    SCRHOR1
  131.     BSR.S    SCRHOR1
  132.     CLR.B    DATSCR
  133.     BSR.S    RECCHR
  134.     RTS
  135. SCRHOR1:BTST    #6,$DFF002
  136.     BNE.S    SCRHOR1
  137.     MOVE.L    #SCR+402,$DFF050
  138.     MOVE.L    #SCR+400,$DFF054
  139.     CLR.L    $DFF064
  140.     MOVE.L    #$C9F00000,$DFF040
  141.     MOVE.L    #$FFFFFFFF,$DFF044
  142.     MOVE.W    #33*64+25,$DFF058
  143.     CLR.W    SCR+448
  144.     RTS
  145. RECCHR:    LEA    TABLE1,A1
  146.     LEA    TABLE2,A2
  147. RECCHR2:MOVE.L    ADRTXT,A0
  148.     TST.B    (A0)
  149.     BNE.S    RECCHR1
  150.     MOVE.L    #TEXT,ADRTXT
  151.     MOVE.L    #TEXT,A0
  152.     BRA.S    RECCHR2
  153. RECCHR1:MOVE.B    (A0),D0
  154. RECCHR5:CMP.B    (A2)+,D0
  155.     BEQ.S    RECCHR3
  156.     ADDQ.L    #4,A1
  157.     BRA.S    RECCHR5
  158. RECCHR3:LEA    CHARS,A0
  159.     ADDI.L    (A1),A0
  160. RECCHR6:BTST    #6,$DFF002
  161.     BNE.S    RECCHR6
  162.     MOVE.L    A0,$DFF050
  163.     MOVE.L    #SCR+496,$DFF054
  164.     MOVE.W    #36,$DFF064
  165.     MOVE.W    #46,$DFF066
  166.     MOVE.L    #$09F00000,$DFF040
  167.     MOVE.L    #$FFFFFFFF,$DFF044
  168.     MOVE.W    #32*64+2,$DFF058
  169.     ADDQ.L    #1,ADRTXT
  170.     RTS
  171. ;********************************************************************
  172. TABLE1:    DC.L    0000,0004,0008,0012,0016,0020,0024,0028,0032,0036
  173.     DC.L    1280,1284,1288,1292,1296,1300,1304,1308,1312,1316
  174.     DC.L    2560,2564,2568,2572,2576,2580,2584,2588,2592,2596
  175.     DC.L    3840,3844,3848,3852,3856,3860,3864,3868,3872,3876
  176.     DC.L    5120,5124,5128,5132
  177. TABLE2:    DC.B    "ABCDEFGHIJKLMNOPQRSTUVWXYZ01'3456789!?()-,. ",0
  178.     EVEN
  179.  
  180.  
  181. TEXT:    DC.B    'DRAGONS ARE BACK WITH A NEW GAME CRACKED BY '
  182.     DC.B    'ACID!    '
  183.  
  184. ; --------------------------------------
  185. ; LISTE DE GREETINGS AU 16 DECEMBRE 1989
  186. ; --------------------------------------
  187. ; -    GREETS REUNIS PAR MEGABLAST     -
  188. ; --------------------------------------
  189. ;
  190. ; INTEGRER CETTE LISTE DANS TOUTE PRODUC
  191. ; DRAGONS ----> STAYING COOL AT ANY TIME
  192.  
  193.         DC.B    'YOHOOS TO,  '
  194.         DC.B    ' ACCUMULATORS -'    ;MEGABLAST
  195.         DC.B    ' ACTIVE -'        ;COBRA
  196.         DC.B    ' ALIVE -'        ;FOXY
  197.         DC.B    ' AVENGER -'        ;MEGABLAST
  198.         DC.B    ' BAMIGA SECTOR ONE -'    ;COBRA
  199.         DC.B    ' BLACKMONKS -'        ;FOXY & MEGABLAST
  200.         DC.B    ' BLOODSUCKERS -'    ;MEGABLAST
  201.         DC.B    ' BRAINKILLER'        ;MEGABLAST
  202.         DC.B    '.MORDICUS -'
  203.         DC.B    ' BRAINSTORM -'        ;LUCYFER&MEGAB.    
  204.         DC.B    ' BROWBEAT -'        ;LUCYFER
  205.         DC.B    ' CASCADE -'        ;FOXY
  206.         DC.B    ' DEATHSTAR -'        ;MEGABLAST
  207.         DC.B    ' DEFJAM.CCS -'        ;MEGABLAST
  208.         DC.B    ' DROID -'        ;FOXY
  209.         DC.B    ' ESCAPE -'        ;MEGABLAST
  210.         DC.B    ' FAIRLIGHT -'        ;MEGABLAST
  211.         DC.B    ' FRAXION -'        ;FOXY
  212.         DC.B    ' FREESTYLE UK -'    ;MEGABLAST
  213.         DC.B    ' HAGAR.TST -'        ;MEGABLAST
  214.         DC.B    ' IMPACT INC -'        ;MOBY
  215.         DC.B    ' INFOCORNER -'        ;MEGABLAST
  216.         DC.B    ' ITALIAN BAD BOYS -'    ;COBRA & MEGABLAST
  217.         DC.B    ' IT! -'        ;MEGABLAST
  218.         DC.B    ' JOHN AUSTRIA -'    ;COBRA
  219.         DC.B    ' JUNGLE COMMAND -'    ;MEGABLAST
  220.         DC.B    ' KOOL KIDS -'        ;MEGABLAST
  221. ;        DC.B    ' MAD -'         COBRA & MEGABLAST
  222.         DC.B    ' MASTER CREW -'    ;LUCYFER
  223.         DC.B    ' MICROSHIP.TFS -'    ;COBRA
  224.         DC.B    ' NAPALM -'        ;MEGABLAST
  225.         DC.B    ' NANDES -'        ;COBRA
  226.         DC.B    ' ORACLE -'        ;MEGABLAST
  227.         DC.B    ' PHENOMENA -'        ;MEGABLAST
  228.         DC.B    ' PULSAR -'        ;COBRA
  229.         DC.B    ' REBELS -'        ;COBRA & FOXY
  230.         DC.B    ' RSI -'        ;MEGABLAST
  231.         DC.B    ' SCOOPEX -'        ;MEGABLAST
  232.         DC.B    ' S EXPRESS -'        ;COBRA
  233.         DC.B    ' STARHAWKS -'        ;MEGABLAST
  234.         DC.B    ' STORM -'        ;FOXY
  235. ;        DC.B    ' SUBSOFTWARE -'    ;COBRA
  236.         DC.B    ' SUBWAY -'        ;MEGABLAST
  237. ;        DC.B    ' SUN CONNECTION -'    ;MEGABLAST
  238.         DC.B    ' TEAM X -'        ;FOXY
  239.         DC.B    ' THE GREAT SWAPERS -'    ;MR VIDEO & CORSAIR
  240.         DC.B    ' UNIQUE -'        ;LUCYFER
  241.         DC.B    ' TRILOGY -'        ;COBRA & MEGABLAST
  242.         DC.B    ' VISION -'        ;FOXY
  243.         DC.B    ' VISION FACTORY -'    ;MEGABLAST
  244.         DC.B    ' X MEN '        ;MOBY
  245.         DC.B    ' AND ALL THE OTHERS WE FORGOT   '
  246.  
  247.  
  248.         DC.B    'THIS INTRO WAS DONE BY SKYMAN OF DRAGONS'
  249. ;    DC.B    ' AND I AM SO PROUD TO PRESENT YOU THE UNREDEABLE'
  250. ;    DC.B    ' SCROLLER CALLED MEGABLAST '
  251.         DC.B    ' AHAHAHAHAHAHAH... DRAGONS... '
  252.         DC.B    "'STAYING COOL AT ANY TIME' OK BOY?"
  253.         DC.B    '          '
  254.         DC.B    0            ;FIN TEXT
  255.  
  256.         EVEN
  257. ;********************************************************************
  258.     EVEN
  259. GRNAME:    DC.B    'graphics.library',0
  260.     EVEN
  261. COPPER:    DC.L    $8E3081,$9038CA,$920028,$9400E0,$1001000
  262.     DC.L    $1800000
  263. COPPER1:BLK.L    3888,0
  264.     DC.L    $FFFFFFFE
  265. CHARS:    BLK.B    6400,0
  266. ;********************************************************************
  267. SCR=$40000
  268. X2=SCR+2000
  269. ;********************************************************************
  270. >EXTERN "PIC.CHARS.160",CHARS,6400
  271.  
  272.