home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / sin-source / 2pixel.s next >
Encoding:
Text File  |  1995-03-17  |  17.6 KB  |  786 lines
  1.  opt c-
  2.  section sae,code_c
  3. ; seka v2.1 source code  by Comrade J of Share and Enjoy / Scoopex U.K.
  4. go:
  5.  
  6.  move.w #$ffff,d0
  7. .loop
  8.  move.w $dff006,$dff180
  9.  dbra d0,.loop
  10.  move.l #$10001000,d2
  11.  move.l #$00001000,d3
  12.  move.l #$10000000,d4
  13.  move.l #$10000000,d5
  14.  move.l #spritelist,a0
  15.  move.b #$34,d0
  16. spmk:
  17.  move.b d0,(a0)+
  18.  move.b d1,(a0)+
  19.  addi.b #$1,d0
  20.  move.b d0,(a0)+
  21.  clr.b (a0)+
  22.  move.l d2,(a0)+
  23.  addi.b #$1,d0
  24.  add.l a0,d1
  25.  sub.b d0,d1
  26.  exg d2,d3
  27.  exg d3,d4
  28.  exg d4,d5
  29.  cmp.b #200,d0
  30.  
  31.  bne.s spmk
  32.  
  33.  
  34.  
  35.  
  36.  move.b #2,$bfe001
  37.  move.w #$8020,pointer
  38.  move.l #spritelist,d0
  39.  move.w d0,s0l
  40.  swap d0
  41.  move.w d0,s0h
  42.  
  43. ; move.w #$20,$dff096 ; turn off pointer
  44.  lea GFXLIB,a1
  45.  MOVEQ #0,D0
  46.  MOVE.L 4,a6
  47.  JSR -$228(a6) ; OpenLibrary
  48.  TST D0
  49.  BEQ ERROR
  50.  MOVE.L D0,GFXBASE
  51.  
  52.  move.l #logo,d0
  53.  move.w d0,ll0l
  54.  swap d0
  55.  move.w d0,ll0h
  56.  swap d0
  57.  add.l #3320,d0
  58.  move.w d0,ll1l
  59.  swap d0
  60.  move.w d0,ll1h
  61.  
  62.  
  63.  move.l #showplane,d0
  64.  
  65.  move.w    d0,pl0l
  66.  swap    d0
  67.  move.w    d0,pl0h
  68.  
  69.  move.l #showplane+5250+420,d0
  70.  
  71.  move.w d0,pl1l
  72.  swap d0
  73.  move.w d0,pl1h
  74.  
  75.  
  76.  
  77.  MOVE.L GFXBASE,A6
  78.  ADD.L #$32,A6
  79.  MOVE.W #$80,$dff096
  80.  move.l (A6),OLDCOPPER
  81.  move.l #NEWCOPPER,(A6)
  82.  MOVE.W #$8080,$dff096
  83.  
  84.  
  85.  
  86.  
  87.  move.l 4,a6
  88.  jsr -132(a6)
  89.  
  90.  
  91.  
  92.  move.w  #$8010,$dff09a
  93.  move.l $6c,old
  94.  move.l  #new,$6c
  95.  
  96. WAIT: 
  97.  and.b #$40,$bfe001
  98.  bne wait
  99.  bra byebye
  100.  
  101.  
  102. cleanup:
  103.  move.l 4,a6
  104.  jsr -138(a6)
  105.  move.l old,$6c
  106.  
  107.  
  108.  MOVE.L GFXBASE,A6
  109.  ADD.L #$32,A6
  110.  
  111.  MOVE.W #$0080,$dff096
  112.  MOVE.L a4,(A6)
  113.  MOVE.W #$8080,$dff096
  114.  
  115. ERROR: clr.l d0
  116.  move.w $8020,pointer
  117.  move.w $8020,$dff096
  118.  move.w #$f,$dff096
  119.  move.w #$0,$dff0a8
  120.  move.w #$0,$dff0b8
  121.  move.w #$0,$dff0c8
  122.  move.w #$0,$dff0d8
  123.  RTS
  124. byebye:
  125.  move.l oldcopper,a4
  126.  jmp cleanup
  127.  
  128. getmodulo:
  129.  
  130.  
  131.  move.l sinpt2,a6
  132.  move.b (a6)+,d3
  133.  move.b (a6),d4
  134.  cmp.b #255,d4
  135.  bne okyarb
  136.  move.l #sintab2,a6
  137. okyarb:
  138.  move.l a6,sinpt2
  139.  
  140.  move.b d3,sinmodulo
  141.  
  142.  rts
  143.  
  144. new: movem.l d0-d7/a0-a6,-(sp)
  145.  and #$10,$dff01e        
  146.  beq out
  147.  move.w #$10,$dff09c
  148.  
  149.  
  150.  
  151.  bsr scrolly
  152.  bsr spritemove
  153.  bsr getmodulo
  154. out: 
  155.  movem.l (sp)+,d0-d7/a0-a6
  156.  dc.w $4ef9
  157. old: dc.l 0
  158.  
  159. spritemove:
  160.  lea spritelist,a0
  161.  move.b #$15,d0
  162. sdf:
  163.  addi.b #$1,1(a0)
  164.  addi.b #$2,9(a0)
  165.  addi.b #$3,$11(a0)
  166.  addi.b #$4,$19(a0)
  167.  adda.l #$20,a0
  168.  subi.b #$1,d0
  169.  bne sdf
  170.  rts
  171.  
  172. sinscroll:
  173.  ; first blit clear the scrolly
  174.  
  175.  lea showplane,a0
  176.  blitready:
  177.  btst #14,$dff002
  178.  bne blitready
  179.  
  180.  move.l a0,$dff054
  181.  move.l a0,$dff050
  182.  move.w #$ffff,$dff044
  183.  move.w #$ffff,$dff046
  184.  move.w #0,$dff064
  185.  move.w #0,$dff066
  186.  move.w #%0000000100000000,$dff040
  187.  move.w #0,$dff042
  188.  move.w #%1011010101010,$dff058
  189.  
  190.  
  191.  move.l sinpt,a3
  192.  sub.l #1,a3
  193.  move.b (a3),d0
  194.  cmp.b #255,d0
  195.  bne yaz
  196.  move.l #sintabend,a3
  197. yaz:
  198.  move.l a3,sinpt
  199.  
  200.  moveq #19,d0
  201.  lea scrollplane,a0
  202.  lea showplane+84,a1
  203.  
  204. sloop3:
  205.  move.l #$dff000,a6
  206.  moveq    #0,d6
  207.  moveq  #40,d5
  208.  move.w #%0000110111111100,a5
  209.  move.w #%100000000001,d7
  210.  
  211.  bsr getsinval
  212.  
  213. zonk:
  214.  btst #14,$dff002
  215.  bne zonk
  216.  
  217.  move.l a0,$50(a6)
  218.  move.l a2,$54(a6)
  219.  move.l #$c000c000,$44(a6)
  220.  move.w d5,$64(a6)
  221.  move.w d5,$66(A6)
  222.  move.w #%0000100111110000,$40(a6)
  223.  move.w d6,$42(A6)
  224.  move.w #%100000000001,$58(A6)
  225.  
  226.  bsr getsinval
  227.  
  228. zonk1.5:
  229.  btst #14,$dff002
  230.  bne zonk1.5
  231.  
  232.  move.l a0,$50(a6)
  233.  move.l a2,$54(a6)
  234.  move.l a2,$4c(a6)
  235.  move.l #$30003000,$44(a6)
  236.  move.w d5,$64(A6)
  237.  move.w d5,$66(a6)
  238.  move.w d5,$62(a6)
  239.  move.w a5,$40(a6)
  240.  move.w d6,$42(a6)
  241.  move.w d7,$58(a6)
  242.  
  243.  bsr getsinval
  244.  
  245. zonk2:
  246.  btst #14,$dff002
  247.  bne zonk2
  248.  
  249.  move.l a0,$50(a6)
  250.  move.l a2,$54(a6)
  251.  move.l a2,$4c(a6)
  252.  move.l #$c000c00,$44(a6)
  253. ; move.w d5,$64(A6)
  254. ; move.w d5,$66(a6)
  255. ; move.w d5,$62(a6)
  256. ; move.w a5,$40(a6)
  257. ; move.w d6,$42(a6)
  258.  move.w d7,$58(a6)
  259.  
  260.  bsr getsinval
  261.  
  262. zonk2.5:
  263.  btst #14,$dff002
  264.  bne zonk2.5
  265.  
  266.  move.l a0,$50(a6)
  267.  move.l a2,$54(a6)
  268.  move.l a2,$4c(a6)
  269.  move.l #$3000300,$44(a6)
  270. ; move.w d5,$64(A6)
  271. ; move.w d5,$66(a6)
  272. ; move.w d5,$62(a6)
  273. ; move.w a5,$40(a6)
  274. ; move.w d6,$42(a6)
  275.  move.w d7,$58(a6)
  276.  
  277.  bsr getsinval
  278. zonk3:
  279.  btst #14,$dff002
  280.  bne zonk3
  281.  
  282.  move.l a0,$dff050
  283.  move.l a2,$dff054
  284.  move.l a2,$dff04c
  285.  move.l #$c000c0,$dff044
  286. ; move.w d5,$dff064
  287. ; move.w d5,$dff066
  288. ; move.w d5,$dff062
  289. ; move.w a5,$dff040
  290. ; move.w d6,$dff042
  291.  move.w d7,$dff058
  292.  
  293.  bsr getsinval
  294.  
  295. zonk3.5:
  296.  btst #14,$dff002
  297.  bne zonk3.5
  298.  
  299.  move.l a0,$50(a6)
  300.  move.l a2,$54(a6)
  301.  move.l a2,$4c(a6)
  302.  move.l #$300030,$44(a6)
  303. ; move.w d5,$64(A6)
  304. ; move.w d5,$66(a6)
  305. ; move.w d5,$62(a6)
  306. ; move.w a5,$40(a6)
  307. ; move.w d6,$42(a6)
  308.  move.w d7,$58(a6)
  309.  
  310.  bsr getsinval
  311. zonk4:
  312.  btst #14,$dff002
  313.  bne zonk4
  314.  
  315.  move.l a0,$dff050
  316.  move.l a2,$dff054
  317.  move.l a2,$dff04c
  318.  move.l #$c000c,$dff044
  319. ; move.w d5,$dff064
  320. ; move.w d5,$dff066
  321. ; move.w d5,$dff062
  322. ; move.w a5,$dff040
  323. ;move.w d6,$dff042
  324.  move.w d7,$dff058
  325.  
  326.  bsr getsinval
  327.  
  328. zonk4.5:
  329.  btst #14,$dff002
  330.  bne zonk4.5
  331.  
  332.  move.l a0,$50(a6)
  333.  move.l a2,$54(a6)
  334.  move.l a2,$4c(a6)
  335.  move.l #$30003,$44(a6)
  336. ; move.w d5,$64(A6)
  337. ; move.w d5,$66(a6)
  338. ; move.w d5,$62(a6)
  339. ; move.w a5,$40(a6)
  340. ; move.w d6,$42(a6)
  341.  move.w d7,$58(a6)
  342.  
  343.  
  344.  
  345.  
  346.  add.l #2,a0
  347.  add.l #2,a1
  348.  dbra d0,sloop3
  349.  
  350.  rts
  351.  
  352. getsinval:
  353.  moveq #0,d1
  354.  move.b (a3)+,d1
  355.  move.b (a3),d2
  356.  cmp.b #255,d2
  357.  bne okyar
  358.  move.l #sintab,a3
  359. okyar:
  360.  move.b sinmodulo,d4
  361.  add.b d4,d1
  362.  bclr #0,d1
  363.  mulu #21,d1
  364.  
  365.  move.l a1,a2
  366.  add.l d1,a2
  367.  
  368.     rts
  369.  
  370.  
  371.  
  372. scrolly: 
  373.  move.b pause,d0
  374.  cmp.b #0,d0
  375.  beq gopast
  376.  sub.b #1,d0
  377.  move.b d0,pause
  378.     bra gopast2
  379.     gopast:
  380.     lea scrollplane,a0
  381.     lea scrollplane+2,a1
  382. blitready2:
  383.     btst #14,$dff002
  384.     bne blitready2
  385.     move.l a0,$dff054
  386.     move.l a1,$dff050
  387.     move.w #$ffff,$dff044
  388.     move.w #$ffff,$dff046
  389.     move.w #0,$dff064
  390.     move.w #0,$dff066
  391.     move.w #%1100100111110000,$dff040
  392.     move.w #0,$dff042
  393.     move.w #%101000010111,$dff058
  394. gopast2:
  395.     bsr sinscroll
  396.     move.b pause,d0
  397.     cmp.b #0,d0
  398.     bne iuo
  399.  
  400.     move.b countdown,d0
  401.     sub.b #1,d0
  402.     cmp.b #0,d0
  403.     beq mfc
  404.     move.b d0,countdown
  405. iuo:
  406.     rts
  407.  
  408.  
  409. sinpt: dc.l sintabend
  410. sinpt2: dc.l sintab2
  411.  
  412.  dc.b 255
  413. sintab:
  414.  
  415.     dc.b $3C,$3F,$42,$46,$49,$4C,$50,$53,$56,$59
  416.     dc.b $5C,$5F,$61,$64,$67,$69,$6B,$6D,$6F,$71
  417.     dc.b $72,$73,$75,$76,$76,$77,$77,$77,$77,$77
  418.     dc.b $77,$76,$76,$75,$73,$72,$71,$6F,$6D,$6B
  419.     dc.b $69,$67,$64,$61,$5F,$5C,$59,$56,$53,$50
  420.     dc.b $4C,$49,$46,$42,$3F,$3C,$38,$35,$31,$2E
  421.     dc.b $2B,$27,$24,$21,$1E,$1B,$18,$16,$13,$10
  422.     dc.b $E,$C,$A,$8,$6,$5,$4,$2,$1,$1
  423.     dc.b $0,$0,$0,$0,$0,$0,$1,$1,$2,$4
  424.     dc.b $5,$6,$8,$A,$C,$E,$10,$13,$16,$18
  425.     dc.b $1B,$1E,$21,$24,$27,$2B,$2E,$31,$35
  426.  
  427. sintabend: dc.b $38
  428.     dc.b  255,255,255,255
  429.  
  430.  
  431. pause: dc.b 0
  432. sinmodulo: dc.b 0
  433.  
  434. sintab2:
  435.     dc.b 60,61,62,64,65,66,68,69,70,72,73,74,75,77,78,79,81,82,83,84,86,87
  436.     dc.b 88,89,90,91,93,94,95,96,97,98,99,100,101,102,103,104,105,106,106
  437.     dc.b 107,108,109,110,110,111,112,112,113,114,114,115,115,116,116,117
  438.     dc.b 117,117,118,118,118,119,119,119,119,119,119,119,119,120,119,119
  439.     dc.b 119,119,119,119,119,119,118,118,118,117,117,117,116,116,115,115
  440.     dc.b 114,114,113,112,112,111,110,110,109,108,107,106,106,105,104,103
  441.     dc.b 102,101,100,99,98,97,96,95,94,93,91,90,89,88,87,86,84,83,82,81
  442.     dc.b 79,78,77,75,74,73,72,70,69,68,66,65,64,62,61,59,58,57,55,54,53
  443.     dc.b 51,50,49,47,46,45,44,42,41,40,38,37,36,35,33,32,31,30,29,28,26
  444.     dc.b 25,24,23,22,21,20,19,18,17,16,15,14,13,13,12,11,10,9,9,8,7,7,6,5
  445.     dc.b 5,4,4,3,3,2,2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,2,2
  446.     dc.b 2,3,3,4,4,5,5,6,7,7,8,9,9,10,11,12,13,13,14,15,16,17,18,19,20,21
  447.     dc.b 22,23,24,25,26,28,29,30,31,32,33,35,36,37,38,40,41,42,44,45,46
  448.     dc.b 47,49,50,51,53,54,55,57,58
  449.     dc.b 255
  450.     even
  451. mfc:
  452.     move.b #4,countdown
  453.     move.w #0,scrollplane+40
  454.     move.w #0,scrollplane+82
  455.     move.l #scrollplane+124,a1
  456.     bsr charaddress
  457.  
  458.  moveq #15,d0
  459. zonkin:
  460.  move.w (a0),(a1)
  461.  add.l #40,a0
  462.  add.l #42,a1
  463.  dbra d0,zonkin
  464.  
  465.  rts
  466. CHARADDRESS:
  467.  move.l mesptr,a0
  468.  moveq #0,d0
  469.  move.l d0,d1
  470.  move.l d0,d2
  471.  move.b (a0)+,d0
  472.  cmp.b #$0a,d0
  473.  bne wizy
  474.  move.b #32,d0
  475. wizy:
  476.  cmp.b #255,d0
  477.  bne wazy
  478.  move.l #message,a0
  479.  move.b #32,d0
  480. wazy:
  481.  cmp.b #254,d0
  482.  bne wozy
  483.  move.b #32,d0
  484.  move.b #$60,pause
  485. wozy:
  486.  move.l a0,mesptr
  487.  sub.b #32,d0 ; d0= 51
  488.  move.b d0,d1 ; d1= 51
  489.  divu #20,d0  ; d0= 2 
  490.  move.b d0,d2 ; d2= 2
  491.  mulu #20,d0  ; d0= 40
  492.  sub.b d0,d1  ; d1= 11
  493.  
  494.  move.l #font,a0
  495.  mulu #640,d2
  496.  add.l d1,d1
  497.  add.l d2,a0
  498.  add.l d1,a0
  499.  rts
  500.  
  501. testpt: dc.l 0
  502.  
  503.  
  504. countdown: dc.b    4
  505.  even
  506.  
  507. OLDCOPPER: DC.L 0
  508. NEWCOPPER:
  509.  dc.w $100,$2200,$102,$0,$104,$a,$108,2,$10a,-82
  510.  dc.w $92,$38,$94,$d0,$8e,$2c81,$90,$2cc1,$e0
  511. pl0h: dc.w    0,$e2
  512. pl0l: dc.w    0,$e4
  513. pl1h: dc.w    0,$e6
  514. pl1l: dc.w    0,$1a2,$fff,$1a4,$bbb,$1a6,$888,$1aa,$666,$180
  515.  
  516.  dc.w $0,$182,$dc,$184,$32,$186,$32
  517.  dc.w $120
  518. s0h: dc.w 0,$122
  519. s0l: dc.w 0
  520.  
  521.  dc.w $2C09,$fffe,$182,$1f,$186,$1f,$184,$0
  522.  dc.w $2D09,$fffe,$182,$2f,$186,$2f,$184,$17
  523.  dc.w $2E09,$fffe,$182,$3f,$186,$3f,$184,$0
  524.  dc.w $2F09,$fffe,$182,$4f,$186,$4f,$184,$27
  525.  dc.w $3009,$fffe,$182,$5f,$186,$5f,$184,$0
  526.  dc.w $3109,$fffe,$182,$6f,$186,$6f,$184,$37
  527.  dc.w $3209,$fffe,$182,$7f,$186,$7f,$184,$0
  528.  dc.w $3309,$fffe,$182,$8f,$186,$8f,$184,$47
  529.  dc.w $3409,$fffe,$182,$9f,$186,$9f,$184,$0
  530.  dc.w $3509,$fffe,$182,$af,$186,$af,$184,$57
  531.  dc.w $3609,$fffe,$182,$bf,$186,$bf,$184,$0
  532.  dc.w $3709,$fffe,$182,$cf,$186,$cf,$184,$67
  533.  dc.w $3809,$fffe,$182,$df,$186,$df,$184,$0
  534.  dc.w $3909,$fffe,$182,$ef,$186,$ef,$184,$77
  535.  dc.w $3A09,$fffe,$182,$ff,$186,$ff,$184,$0
  536.  dc.w $3B09,$fffe,$182,$fe,$186,$fe,$184,$77
  537.  dc.w $3C09,$fffe,$182,$fd,$186,$fd,$184,$0
  538.  dc.w $3D09,$fffe,$182,$fc,$186,$fc,$184,$76
  539.  dc.w $3E09,$fffe,$182,$fb,$186,$fb,$184,$0
  540.  dc.w $3F09,$fffe,$182,$fa,$186,$fa,$184,$75
  541.  dc.w $4009,$fffe,$182,$f9,$186,$f9,$184,$0
  542.  dc.w $4109,$fffe,$182,$f8,$186,$f8,$184,$74
  543.  dc.w $4209,$fffe,$182,$f7,$186,$f7,$184,$0
  544.  dc.w $4309,$fffe,$182,$f6,$186,$f6,$184,$73
  545.  dc.w $4409,$fffe,$182,$f5,$186,$f5,$184,$0
  546.  dc.w $4509,$fffe,$182,$f4,$186,$f4,$184,$72
  547.  dc.w $4609,$fffe,$182,$f3,$186,$f3,$184,$0
  548.  dc.w $4709,$fffe,$182,$f2,$186,$f2,$184,$71
  549.  dc.w $4809,$fffe,$182,$f1,$186,$f1,$184,$0
  550.  dc.w $4909,$fffe,$182,$f0,$186,$f0,$184,$70
  551.  dc.w $4A09,$fffe,$182,$1f0,$186,$1f0,$184,$0
  552.  dc.w $4B09,$fffe,$182,$2f0,$186,$2f0,$184,$170
  553.  dc.w $4C09,$fffe,$182,$3f0,$186,$3f0,$184,$0
  554.  dc.w $4D09,$fffe,$182,$4f0,$186,$4f0,$184,$270
  555.  dc.w $4E09,$fffe,$182,$5f0,$186,$5f0,$184,$0
  556.  dc.w $4F09,$fffe,$182,$6f0,$186,$6f0,$184,$370
  557.  dc.w $5009,$fffe,$182,$7f0,$186,$7f0,$184,$0
  558.  dc.w $5109,$fffe,$182,$8f0,$186,$8f0,$184,$470
  559.  dc.w $5209,$fffe,$182,$9f0,$186,$9f0,$184,$0
  560.  dc.w $5309,$fffe,$182,$af0,$186,$af0,$184,$570
  561.  dc.w $5409,$fffe,$182,$bf0,$186,$bf0,$184,$0
  562.  dc.w $5509,$fffe,$182,$cf0,$186,$cf0,$184,$670
  563.  dc.w $5609,$fffe,$182,$df0,$186,$df0,$184,$0
  564.  dc.w $5709,$fffe,$182,$ef0,$186,$ef0,$184,$770
  565.  dc.w $5809,$fffe,$182,$ff0,$186,$ff0,$184,$0
  566.  dc.w $5909,$fffe,$182,$fe0,$186,$fe0,$184,$770
  567.  dc.w $5A09,$fffe,$182,$fd0,$186,$fd0,$184,$0
  568.  dc.w $5B09,$fffe,$182,$fc0,$186,$fc0,$184,$760
  569.  dc.w $5C09,$fffe,$182,$fb0,$186,$fb0,$184,$0
  570.  dc.w $5D09,$fffe,$182,$fa0,$186,$fa0,$184,$750
  571.  dc.w $5E09,$fffe,$182,$f90,$186,$f90,$184,$0
  572.  dc.w $5F09,$fffe,$182,$f80,$186,$f80,$184,$740
  573.  dc.w $6009,$fffe,$182,$f70,$186,$f70,$184,$0
  574.  dc.w $6109,$fffe,$182,$f60,$186,$f60,$184,$730
  575.  dc.w $6209,$fffe,$182,$f50,$186,$f50,$184,$0
  576.  dc.w $6309,$fffe,$182,$f40,$186,$f40,$184,$720
  577.  dc.w $6409,$fffe,$182,$f30,$186,$f30,$184,$0
  578.  dc.w $6509,$fffe,$182,$f20,$186,$f20,$184,$710
  579.  dc.w $6609,$fffe,$182,$f10,$186,$f10,$184,$0
  580.  dc.w $6709,$fffe,$182,$f00,$186,$f00,$184,$700
  581.  dc.w $6809,$fffe,$182,$f01,$186,$f01,$184,$0
  582.  dc.w $6909,$fffe,$182,$f02,$186,$f02,$184,$701
  583.  dc.w $6A09,$fffe,$182,$f03,$186,$f03,$184,$0
  584.  dc.w $6B09,$fffe,$182,$f04,$186,$f04,$184,$702
  585.  dc.w $6C09,$fffe,$182,$f05,$186,$f05,$184,$0
  586.  dc.w $6D09,$fffe,$182,$f06,$186,$f06,$184,$703
  587.  dc.w $6E09,$fffe,$182,$f07,$186,$f07,$184,$0
  588.  dc.w $6F09,$fffe,$182,$f08,$186,$f08,$184,$704
  589.  dc.w $7009,$fffe,$182,$f09,$186,$f09,$184,$0
  590.  dc.w $7109,$fffe,$182,$f0a,$186,$f0a,$184,$705
  591.  dc.w $7209,$fffe,$182,$f0b,$186,$f0b,$184,$0
  592.  dc.w $7309,$fffe,$182,$f0c,$186,$f0c,$184,$706
  593.  dc.w $7409,$fffe,$182,$f0d,$186,$f0d,$184,$0
  594.  dc.w $7509,$fffe,$182,$f0e,$186,$f0e,$184,$707
  595.  dc.w $7609,$fffe,$182,$f0f,$186,$f0f,$184,$0
  596.  dc.w $7709,$fffe,$182,$e0f,$186,$e0f,$184,$707
  597.  dc.w $7809,$fffe,$182,$d0f,$186,$d0f,$184,$0
  598.  dc.w $7909,$fffe,$182,$c0f,$186,$c0f,$184,$607
  599.  dc.w $7A09,$fffe,$182,$b0f,$186,$b0f,$184,$0
  600.  dc.w $7B09,$fffe,$182,$a0f,$186,$a0f,$184,$507
  601.  dc.w $7C09,$fffe,$182,$90f,$186,$90f,$184,$0
  602.  dc.w $7D09,$fffe,$182,$80f,$186,$80f,$184,$407
  603.  dc.w $7E09,$fffe,$182,$70f,$186,$70f,$184,$0
  604.  dc.w $7F09,$fffe,$182,$60f,$186,$60f,$184,$307
  605.  dc.w $8009,$fffe,$182,$50f,$186,$50f,$184,$0
  606.  dc.w $8109,$fffe,$182,$40f,$186,$40f,$184,$207
  607.  dc.w $8209,$fffe,$182,$30f,$186,$30f,$184,$0
  608.  dc.w $8309,$fffe,$182,$20f,$186,$20f,$184,$107
  609.  dc.w $8409,$fffe,$182,$10f,$186,$10f,$184,$0
  610.  dc.w $8509,$fffe,$182,$f,$186,$f,$184,$7
  611.  dc.w $8609,$fffe,$182,$1f,$186,$1f,$184,$0
  612.  dc.w $8709,$fffe,$182,$2f,$186,$2f,$184,$17
  613.  dc.w $8809,$fffe,$182,$3f,$186,$3f,$184,$0
  614.  dc.w $8909,$fffe,$182,$4f,$186,$4f,$184,$27
  615.  dc.w $8A09,$fffe,$182,$5f,$186,$5f,$184,$0
  616.  dc.w $8B09,$fffe,$182,$6f,$186,$6f,$184,$37
  617.  dc.w $8C09,$fffe,$182,$7f,$186,$7f,$184,$0
  618.  dc.w $8D09,$fffe,$182,$8f,$186,$8f,$184,$47
  619.  dc.w $8E09,$fffe,$182,$9f,$186,$9f,$184,$0
  620.  dc.w $8F09,$fffe,$182,$af,$186,$af,$184,$57
  621.  dc.w $9009,$fffe,$182,$bf,$186,$bf,$184,$0,$9c,$8010
  622.  dc.w $9109,$fffe,$182,$cf,$186,$cf,$184,$67
  623.  dc.w $9209,$fffe,$182,$df,$186,$df,$184,$0
  624.  dc.w $9309,$fffe,$182,$ef,$186,$ef,$184,$77
  625.  dc.w $9409,$fffe,$182,$ff,$186,$ff,$184,$0
  626.  dc.w $9509,$fffe,$182,$fe,$186,$fe,$184,$77
  627.  dc.w $9609,$fffe,$182,$fd,$186,$fd,$184,$0
  628.  dc.w $9709,$fffe,$182,$fc,$186,$fc,$184,$76
  629.  dc.w $9809,$fffe,$182,$fb,$186,$fb,$184,$0
  630.  dc.w $9909,$fffe,$182,$fa,$186,$fa,$184,$75
  631.  dc.w $9A09,$fffe,$182,$f9,$186,$f9,$184,$0
  632.  dc.w $9B09,$fffe,$182,$f8,$186,$f8,$184,$74
  633.  dc.w $9C09,$fffe,$182,$f7,$186,$f7,$184,$0
  634.  dc.w $9D09,$fffe,$182,$f6,$186,$f6,$184,$73
  635.  dc.w $9E09,$fffe,$182,$f5,$186,$f5,$184,$0
  636.  dc.w $9F09,$fffe,$182,$f4,$186,$f4,$184,$72
  637.  dc.w $A009,$fffe,$182,$f3,$186,$f3,$184,$0
  638.  dc.w $A109,$fffe,$182,$f2,$186,$f2,$184,$71
  639.  dc.w $A209,$fffe,$182,$f1,$186,$f1,$184,$0
  640.  dc.w $A309,$fffe,$182,$f0,$186,$f0,$184,$70
  641.  dc.w $A409,$fffe,$182,$1f0,$186,$1f0,$184,$0
  642.  dc.w $A509,$fffe,$182,$2f0,$186,$2f0,$184,$170
  643.  dc.w $A609,$fffe,$182,$3f0,$186,$3f0,$184,$0
  644.  dc.w $A709,$fffe,$182,$4f0,$186,$4f0,$184,$270
  645.  dc.w $A809,$fffe,$182,$5f0,$186,$5f0,$184,$0
  646.  dc.w $A909,$fffe,$182,$6f0,$186,$6f0,$184,$370
  647.  dc.w $AA09,$fffe,$182,$7f0,$186,$7f0,$184,$0
  648.  dc.w $AB09,$fffe,$182,$8f0,$186,$8f0,$184,$470
  649.  dc.w $AC09,$fffe,$182,$9f0,$186,$9f0,$184,$0
  650.  dc.w $AD09,$fffe,$182,$af0,$186,$af0,$184,$570
  651.  dc.w $AE09,$fffe,$182,$bf0,$186,$bf0,$184,$0
  652.  dc.w $AF09,$fffe,$182,$cf0,$186,$cf0,$184,$670
  653.  dc.w $B009,$fffe,$182,$df0,$186,$df0,$184,$0
  654.  dc.w $B109,$fffe,$182,$ef0,$186,$ef0,$184,$770
  655.  dc.w $B209,$fffe,$182,$ff0,$186,$ff0,$184,$0
  656.  dc.w $B309,$fffe,$182,$fe0,$186,$fe0,$184,$770
  657.  dc.w $B409,$fffe,$182,$fd0,$186,$fd0,$184,$0
  658.  dc.w $B509,$fffe,$182,$fc0,$186,$fc0,$184,$760
  659.  dc.w $B609,$fffe,$182,$fb0,$186,$fb0,$184,$0
  660.  dc.w $B709,$fffe,$182,$fa0,$186,$fa0,$184,$750
  661.  dc.w $B809,$fffe,$182,$f90,$186,$f90,$184,$0
  662.  dc.w $B909,$fffe,$182,$f80,$186,$f80,$184,$740
  663.  dc.w $BA09,$fffe,$182,$f70,$186,$f70,$184,$0
  664.  dc.w $BB09,$fffe,$182,$0,$186,$0,$184,$0
  665.  
  666. irq:dc.w $bc09,$fffe
  667.  dc.w $cf09,$fffe,$180,$fff,$184,$333
  668.  dc.w $d009,$fffe,$180,$888,$184,$666
  669.  dc.w $d109,$fffe,$180,$444,$184,$333
  670.  dc.w $d209,$fffe,$180,$333,$184,$0
  671. waitchg: dc.w $d709,$fffe,$108,0,$10a,0,$182,$fff,$184,$770
  672.  dc.w $186,$a70,$e0
  673. ll0h: dc.w $0,$e2
  674. ll0l: dc.w $0,$e4
  675. ll1h: dc.w $0,$e6
  676. ll1l: dc.w $0
  677.  dc.w $db09,$fffe,$182,$28
  678.  dc.w $dc09,$fffe,$182,$38
  679.  dc.w $dd09,$fffe,$182,$48
  680.  dc.w $de09,$fffe,$182,$58
  681.  dc.w $df09,$fffe,$182,$68
  682.  dc.w $e009,$fffe,$182,$78
  683.  dc.w $e109,$fffe,$182,$88
  684.  dc.w $e209,$fffe,$182,$99
  685.  dc.w $e309,$fffe,$182,$aa
  686.  dc.w $e409,$fffe,$182,$bb
  687.  dc.w $e509,$fffe,$182,$cc
  688.  dc.w $e609,$fffe,$182,$dd
  689.  dc.w $e709,$fffe,$182,$ee
  690.  dc.w $e809,$fffe,$182,$ff
  691.  
  692.  dc.w $f009,$fffe,$182,$1ef
  693.  dc.w $f109,$fffe,$182,$2df
  694.  dc.w $f209,$fffe,$182,$3cf
  695.  dc.w $f309,$fffe,$182,$4bf
  696.  dc.w $f409,$fffe,$182,$5af
  697.  dc.w $f509,$fffe,$182,$69f
  698.  dc.w $f609,$fffe,$182,$78f
  699.  dc.w $f709,$fffe,$182,$57f
  700.  dc.w $f809,$fffe,$182,$35b
  701.  dc.w $f909,$fffe,$182,$24a
  702.  dc.w $fa09,$fffe,$182,$139
  703.  
  704.  
  705.  dc.w $fb09,$fffe,$182,$28
  706.  dc.w $fc09,$fffe,$182,$38
  707.  dc.w $fd09,$fffe,$182,$48
  708.  dc.w $fe09,$fffe,$182,$58
  709.  dc.w $ff09,$fffe,$182,$68,$ffdf,$fffe
  710.  dc.w $0009,$fffe,$182,$78
  711.  dc.w $0109,$fffe,$182,$88
  712.  dc.w $0209,$fffe,$182,$99
  713.  dc.w $309,$fffe,$182,$aa
  714.  dc.w $409,$fffe,$182,$bb
  715.  dc.w $509,$fffe,$182,$cc
  716.  dc.w $609,$fffe,$182,$dd
  717.  dc.w $709,$fffe,$182,$ee
  718.  dc.w $809,$fffe,$182,$ff
  719.  
  720.  dc.w $1009,$fffe,$182,$1ef
  721.  dc.w $1109,$fffe,$182,$2df
  722.  dc.w $1209,$fffe,$182,$3cf
  723.  dc.w $1309,$fffe,$182,$4bf
  724.  dc.w $1409,$fffe,$182,$5af
  725.  dc.w $1509,$fffe,$182,$69f
  726.  dc.w $1609,$fffe,$182,$78f
  727.  dc.w $1709,$fffe,$182,$87f
  728.  dc.w $1809,$fffe,$182,$96f
  729.  dc.w $1909,$fffe,$182,$a5f
  730.  dc.w $1a09,$fffe,$182,$fff,$186,$220
  731.  dc.w $2a09,$fffe,$100,$0200
  732.  dc.w $96
  733. pointer: dc.w $20
  734.  DC.W $FFFF,$FFFE ; End copper
  735. gfxlib: dc.b "graphics.library",0 ; Yeuch! Libraries!!!!!
  736.  EVEN
  737. gfxbase: dc.l 0
  738.  
  739.  
  740. bp:     dc.l 0
  741. logo: incbin "rad:logo2"
  742.  dcb.b 400,0
  743.  
  744.  
  745. showplane: dcb.b 10240,$0
  746. scrollplane: dcb.b 2500,$0
  747. font: incbin "Rad:fnt"
  748.  
  749.  
  750.  
  751.  even
  752. mesptr: dc.l message
  753.          ;  123456789012345567890
  754. message: dc.b "    JOLYON RALPH     ",$fe
  755.  dc.b " OF   STATUS SOFTWARE   ",$fe," PRESENTS A "
  756.  dc.b "NEW 68000 INTRO. THIS ROUTINE USES THE BLITTER "
  757.  dc.b "TO PRODUCE A SINE WAVE ON THE SCROLLING TEXT. "
  758.  dc.b " WE SPECIALISE IN 68000 PROGRAMMING ON THE AMIGA, "
  759.  dc.b "WE DO NOT PROGRAM INFERIOR 68000 MACHINES, ALL OUR "
  760.  dc.b "CODE TAKES FULL ADVANTAGE OF THE BLITTER, THE COPPER "
  761.  dc.b "CO-PROCESSOR AND ALL THE OTHER CUSTOM HARDWARE THAT "
  762.  dc.b "MAKES THE AMIGA SUCH A WONDERFUL MACHINE.     A NOTE TO "
  763.  dc.b "ALL YOU OUT THERE THINKING OF GETTING THE ARCHIMEDES - DON'T "
  764.  dc.b " IT'S A S**T TO PROGRAM, SO THEY'RE AIN'T GONNA BE MUCH "
  765.  dc.b "SOFTWARE OUT FOR IT!   "
  766.  dc.b "HELLOS TO:  KEVIN COLLIER, DEREK LEIGH-GILCHRIST, JOBY WOOD, "
  767.  dc.b "STEVE HOGG, RUSS WARK, TONY OF 01 FOR AMIGA, JON OF AIX-386, "
  768.  dc.b "TUFFTY, FUZZZ, PJ AND YAKKA OF ARGONAUT SOFTWARE.   "
  769.  dc.b "  BYEE!    "
  770.  
  771.  dc.b 255
  772.  
  773.  even
  774.  
  775. spritelist:
  776.  
  777.  dcb.b 1000,0
  778.  dc.w $a05a,$a400
  779.  dc.w $1,0
  780.  dc.w 0,0
  781.  
  782. FINISH: DC.b 0
  783.  
  784.  
  785.  
  786.