home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / text3.s < prev    next >
Text File  |  1995-03-17  |  7KB  |  354 lines
  1.     opt    c-,d+
  2.     incdir    "df0:include/"
  3.     include graphics/gfx.i
  4.     include    graphics/rastport.i
  5.     include graphics/graphics_lib.i
  6.     include exec/memory.i
  7.     include    exec/exec_lib.i
  8.     include    hardware/custom.i
  9.  
  10. custom    equ    $dff000
  11.  
  12. memory    equ    MEMF_CHIP+MEMF_CLEAR
  13.     
  14.     lea    GFXLIB,a1
  15.     MOVEQ    #0,D0
  16.     CALLEXEC OPENLIBRARY
  17.     TST    D0
  18.     BEQ    ERROR
  19.     MOVE.L    D0,_GFXBASE
  20.     
  21.     MOVE.L    #MYPICCY,MEMORY_POINTER
  22.     LEA MYBITMAP,A0
  23.     MOVE.L    #$05,D0
  24.     MOVE.L    #352,D1
  25.     MOVE.L    #256,D2
  26.     CALLGRAF INITBITMAP
  27.     LEA    MYRASTPORT,A1
  28.     CALLGRAF INITRASTPORT
  29.     LEA    MYRASTPORT,A1
  30.     MOVE.L    #MYBITMAP,RP_BITMAP(A1)
  31.     MOVE.L    MEMORY_POINTER,D0
  32.     MOVE.L    D0,D1
  33.     ADD.L    #11264,D1
  34.     MOVE.L    D1,D2
  35.     ADD.L    #11264,D2
  36.     MOVE.L    D2,D3
  37.     add.l    #11264,D3
  38.     move.l    d3,d4
  39.     add.l    #11264,d4
  40.  
  41.  
  42.     
  43.  
  44.     LEA     MYBITMAP,A0
  45.     MOVE.L    D0,BM_PLANES(a0)
  46.     MOVE.L    D1,BM_PLANES+4(a0)
  47.     MOVE.L     D2,BM_PLANES+8(a0)
  48.     MOVE.L    D3,BM_PLANES+12(A0)
  49.     move.l    d4,BM_PLANES+16(a0)
  50.     MOVE.W    D0,PL0L
  51.     MOVE.W    D1,PL1L
  52.     MOVE.W    D2,PL2L
  53.     MOVE.W    D3,PL3L
  54.     move.w    d4,pl4l
  55.     SWAP    D0
  56.     SWAP    D1
  57.     SWAP    D2
  58.     SWAP    D3
  59.     swap    d4
  60.     MOVE.W    D0,PL0H
  61.     MOVE.W    D1,PL1H
  62.     MOVE.W    D2,PL2H
  63.     MOVE.W    D3,PL3H
  64.     move.w    d4,pl4h
  65.     
  66.  
  67.     MOVE.L    _GFXBASE,A6
  68.     ADD.L    #$32,A6
  69.     MOVE.W    #$80,DMACON
  70.     MOVE.L    (A6),OLDCOPPER
  71.     MOVE.L    #NEWCOPPER,(A6)
  72.     MOVE.W    #$8080,DMACON
  73.  
  74.     move.l    #string,spoint
  75.     callexec forbid
  76.  
  77.     move.b    #0,cdown
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.             
  85.     
  86.     
  87.     
  88.     
  89.     
  90.     move.w     #$8010,$dff09a
  91.     move.l    $6c,old
  92.     move.l  #new,$6c
  93.     
  94.     
  95.     
  96.     
  97.     
  98.  
  99.  
  100. WAIT    ANDI.B    #$40,$BFE001
  101.     BNE    WAIT
  102.     move.l    old,$6c
  103.  
  104.     callexec permit
  105.  
  106.     MOVE.L    _GFXBASE,A6
  107.     ADD.L    #$32,A6
  108.     MOVE.W    #$80,DMACON
  109.     MOVE.L    OLDCOPPER,(A6)
  110.     MOVE.W    #$8080,DMACON
  111.     move.w    #$8020,$dff096
  112. ERROR    clr.l    d0
  113.     move.w    #$f,$dff096
  114.     move.w    #$0,$dff0a8
  115.     move.w    #$0,$dff0b8
  116.     move.w    #$0,$dff0c8
  117.     move.w    #$0,$dff0d8
  118.     RTS
  119.  
  120.  
  121.  
  122. subrt    lea    myfont,a1
  123.     clr.l    d0
  124.     move.l    spoint,a2
  125.     move.b    (a2),d0            ; now has 33
  126.     add.l    #1,spoint
  127.     sub.b    #32,d0            ; now =1
  128.     mulu    #512,d0            ; now =512
  129.     add.l    d0,a1
  130.     
  131.  
  132.     moveq    #4,d0
  133.     lea    mypiccy,a0
  134.     lea    mypiccy,a2
  135.     ADD.l    #40,a0
  136.     add.l    #40,a2
  137.     
  138. outloop    moveq    #32,d1
  139. inloop    move.l    (a1)+,(a0)
  140.     add.l    #44,a0
  141.     sub.b    #1,d1
  142.     cmp.b    #0,d1
  143.     bne    inloop    
  144.     add.l    #11264,a2
  145.     move.l    a2,a0
  146.     sub.b    #1,d0
  147.     cmp.b    #0,d0
  148.     bne outloop
  149.     rts    
  150.  
  151.  
  152. new:    movem.l d0-d7/a0-a6,-(sp)
  153.     and #$10,$dff01e        
  154.     beq out
  155.     move.w    #$10,$dff09c
  156.  
  157.     ;    woplist
  158.     
  159. ;    lea    woplist+1,a0
  160. ;    moveq    #12,d0
  161. ;    wpit    move.b    12(a0),(a0)
  162. ;    add.l    #12,a0
  163. ;    subi.b    #1,d0
  164. ;    cmp.b    #0,d0
  165. ;    bne     wpit
  166. ;    move.l    woppt,a2
  167. ;    move.b    (a2),(a0)
  168. ;    add.l    #1,a2
  169. ;    cmp.b    #$fe,(a2)
  170. ;    bne    wopok
  171. ;    move.l    #wopdata,a2
  172. ;wopok    move.l    a2,woppt
  173.  
  174.  
  175.     cmp.b    #0,cdown
  176.     bne bypass
  177.     move.b    #6,cdown
  178.     bsr    subrt
  179.     move.l    spoint,a6
  180.     cmp.b    #$ff,(a6)
  181.     bne    bypass
  182.     move.l    #string,spoint
  183. bypass    sub.b    #1,cdown
  184.     
  185.  
  186.       
  187.       moveq #4,d0
  188.       lea mypiccy,a0
  189.       lea mypiccy+2,a1
  190. lp80: btst #14,$dff002            ; Thank's to TBY of FREESTYLE
  191.                     ; for the blitter info.
  192.       bne lp80
  193.       move.l a0,$dff054 ;dest
  194.       move.l a1,$dff050 ;source
  195.       move.w #$ffff,$dff044
  196.       move.w #$ffff,$dff046
  197.       move.w #0,$dff064
  198.       move.w #0,$dff066
  199.       move.w #%1100100111110000,$dff040
  200.       move.w #%0000000000000000,$dff042
  201.       move.w #%0000101100010111,$dff058
  202.       adda.l #11264,a0
  203.       adda.l #11264,a1
  204.       dbf d0,lp80      
  205.  
  206.       
  207.       
  208.  
  209.  
  210.     
  211.     
  212.     
  213.  
  214. out movem.l (sp)+,d0-d7/a0-a6
  215.     dc.w $4ef9
  216. old dc.l 0
  217.  
  218.  
  219. count    dc.b 0
  220. read    dc.l 0
  221. buffy    ds.w 30
  222. falagz    dc.b 0
  223. cdown    dc.b 0
  224.  
  225. OLDCOPPER    DC.L    0
  226. NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
  227.         DC.W    $0108,$0002,$010A,$0002
  228.         DC.W    $0092,$0038,$0094,$00D4
  229.         DC.W    $008E,$2C81,$0090,$2cC1
  230.         dc.w    $0096,$0020
  231.         DC.W    $00E0
  232. PL0H        DC.W    $0000,$00E2
  233. PL0L        DC.W    $0000,$00E4
  234. PL1H        DC.W    $0000,$00E6
  235. PL1L        DC.W    $0000,$00E8
  236. PL2H        DC.W    $0000,$00EA
  237. PL2L        DC.W    $0000,$00EC
  238. PL3H        DC.W    $0000,$00EE
  239. PL3L        DC.W    $0000,$00F0
  240. PL4H        DC.W    $0000,$00F2
  241. PL4L        DC.W    $0000
  242.         
  243.         DC.W    $0180,$0000,$0182,$0000
  244.         DC.W    $0184,$0fff,$0186,$0eee
  245.         DC.W    $0188,$0ddd,$018A,$0bbb
  246.         DC.W    $018C,$0aaa,$018E,$0999
  247.         DC.W    $0190,$0888,$0192,$0777
  248.         DC.W    $0194,$0666,$0196,$0555
  249.         DC.W    $0198,$0333,$019A,$0222
  250.         DC.W    $019C,$0111,$019E,$0000
  251.         dc.w    $01a8,$333,$1aA,$444,$1ac,$555
  252.         dc.w    $1ae,$555,$1b0,$666,$1b2,$777,$1b4,$7aa
  253.         dc.w    $1b6,$8bb,$1b8,$9cc,$1ba,$9dd,$1bc,$aee,$1be,$bff
  254.  
  255.  dc.w    $2c09,$fffe,$186,$000
  256.  dc.w      $2d09,$fffe,$186,$000
  257.  dc.w     $2e09,$fffe,$186,$000
  258.  dc.w     $2f09,$fffe,$186,$11
  259.  dc.w    $3009,$fffe,$186,$22
  260.  dc.w    $3109,$fffe,$186,$33
  261.  dc.w    $3209,$fffe,$186,$044
  262.  dc.w     $3309,$fffe,$186,$055
  263.  dc.w    $3409,$fffe,$186,$066
  264.  dc.w    $3509,$fffe,$186,$077
  265.  dc.w    $3609,$fffe,$186,$088
  266.  dc.w     $3709,$fffe,$186,$099
  267.  dc.w    $3809,$fffe,$186,$0aa
  268.  dc.w    $3909,$fffe,$186,$0bb
  269.  dc.w    $3a09,$fffe,$186,$0cc
  270.  dc.w    $3b09,$fffe,$186,$0dd
  271.  dc.w    $3c09,$fffe,$186,$0ee
  272.  dc.w    $3d09,$fffe,$186,$1ee
  273.  dc.w    $3e09,$fffe,$186,$2ee
  274.  dc.w    $3f09,$fffe,$186,$3ee
  275.  dc.w    $4009,$fffe,$186,$4ee
  276.  dc.w    $4109,$fffe,$186,$5ee
  277.  dc.w    $4209,$fffe,$186,$6ee
  278.  dc.w    $4309,$fffe,$186,$7Ee
  279.  DC.W   $4409,$fffe,$186,$8ee,$180,$1,$182,$1
  280.  dc.w    $4509,$fffe,$186,$9ee,$180,$3,$182,$3
  281.  dc.w    $4609,$fffe,$186,$aee,$180,$5,$182,$5
  282.  dc.w    $4709,$fffe,$186,$bee,$180,$7,$182,$7
  283.  dc.w    $4809,$fffe,$186,$cee,$180,$9,$182,$9
  284.  dc.w    $4909,$fffe,$186,$dee,$180,$b,$182,$b
  285.  dc.w    $4a09,$fffe,$186,$eee,$180,$d,$182,$d
  286.  dc.w    $4e09,$fffe,$186,$0f0,$180,$e,$182,$e
  287.  
  288.  dc.w    $4f09,$fffe,$108,$ff7e,$10a,$ff7e
  289.  
  290.  dc.w    $5209,$fffe,$186,$ccc
  291. woplist    
  292.  dc.w    $5309,$fffe,$186,$bcc
  293.  dc.w    $5409,$fffe,$186,$acc
  294.  dc.w    $5509,$fffe,$186,$9cc
  295.  dc.w    $5609,$fffe,$186,$8bb
  296.  dc.w    $5709,$fffe,$186,$7bb
  297.  dc.w    $5809,$fffe,$186,$6bb
  298.  dc.w    $5909,$fffe,$186,$5aa
  299.  dc.w    $5a09,$fffe,$186,$4aa
  300.  dc.w    $5b09,$fffe,$186,$3aa
  301.  dc.w    $5c09,$fffe,$186,$299
  302.  dc.w    $5d09,$fffe,$186,$199
  303.  dc.w    $5e09,$fffe,$186,$099
  304.  dc.w    $5f09,$fffe,$186,$088
  305.  dc.w    $6009,$fffe,$108,$8c6,$10a,$8c6
  306.  dc.w    $6109,$fffe,$108,$2,$10a,$2
  307.  dc.w   $6309,$fffe,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
  308.  dc.w    $18a,$b50,$18c,$a50,$18e,$840
  309.  
  310.  
  311.  dc.w    $ff09,$fffe,$9c,$8010
  312.  
  313.  
  314.  
  315.  
  316.         DC.W    $FFFF,$FFFE
  317. gfxlib    dc.b    "graphics.library",0
  318.     EVEN
  319. _gfxbase    dc.l    0
  320. MEMORY_POINTER    dc.l    0
  321. MYRASTPORT    ds.b    RP_Sizeof
  322. MYBITMAP    ds.b    BM_Sizeof
  323. colour    dc.w    0
  324. flagz    dc.b    0
  325.  
  326.  
  327.  
  328.  
  329.  
  330. string    
  331.     dc.b    "COMRADE J OF SHARE AND ENJOY PRESENTS HIS NEW "
  332.     DC.B     "SCROLLY TEXT ROUTINE, FOR USE IN SAE DEMOS AND "
  333.     DC.B    "INTROS ONLY! ULTRA GREETOIDS TO ALL SAE MEMBERS "
  334.     DC.B    "YEAH IT'S ANOTHER  a SAE a  DISK! - GREETS TO "
  335.     DC.B    "EVERYONE. PHONE ME ON 01-668 9605 FOR A CHAT "
  336.     DC.B    "!!!!! NEXT a COPY PARTY @ CBM SHOW!    "
  337.     dc.b    "THIS IS A JOURNEY INTO SCROLLYTEXT WITH A DIP AND A "
  338.     DC.B    "DOP AND A WIPEDY WOP "
  339.     DC.B    "aaaaaaa SHARE AND ENJOY aaaaaaa AND NOW, "
  340.  
  341.  
  342.  
  343.  
  344.     dc.b    255
  345.  
  346. spoint    dc.l    string
  347. myfont    dc.b    "gof "
  348.     ds.b     33788
  349.     dc.l    0
  350. mypiccy    dc.b    "fog "
  351.     ds.b     56316+200
  352.  
  353.  
  354.