home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / text2.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  330 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    #8,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.     lea     myrastport,a1
  185.     moveq    #3,d0
  186.     moveq    #0,d1
  187.     moveq    #0,d2
  188.     moveq    #0,d3
  189.     move.l    #350,d4
  190.     moveq    #32,d5
  191.     callgraf scrollraster
  192.     
  193.     
  194.     
  195.  
  196. out movem.l (sp)+,d0-d7/a0-a6
  197.     dc.w $4ef9
  198. old dc.l 0
  199.  
  200.  
  201. count    dc.b 0
  202. read    dc.l 0
  203. buffy    ds.w 30
  204. falagz    dc.b 0
  205. cdown    dc.b 0
  206.  
  207. OLDCOPPER    DC.L    0
  208. NEWCOPPER    DC.W    $0100,$5200,$0102,$0000,$0104,$000A
  209.         DC.W    $0108,$0002,$010A,$0002
  210.         DC.W    $0092,$0038,$0094,$00D4
  211.         DC.W    $008E,$2C81,$0090,$2cC1
  212.         dc.w    $0096,$0020
  213.         DC.W    $00E0
  214. PL0H        DC.W    $0000,$00E2
  215. PL0L        DC.W    $0000,$00E4
  216. PL1H        DC.W    $0000,$00E6
  217. PL1L        DC.W    $0000,$00E8
  218. PL2H        DC.W    $0000,$00EA
  219. PL2L        DC.W    $0000,$00EC
  220. PL3H        DC.W    $0000,$00EE
  221. PL3L        DC.W    $0000,$00F0
  222. PL4H        DC.W    $0000,$00F2
  223. PL4L        DC.W    $0000
  224.         
  225.         DC.W    $0180,$0000,$0182,$0000
  226.         DC.W    $0184,$0fff,$0186,$0eee
  227.         DC.W    $0188,$0ddd,$018A,$0bbb
  228.         DC.W    $018C,$0aaa,$018E,$0999
  229.         DC.W    $0190,$0888,$0192,$0777
  230.         DC.W    $0194,$0666,$0196,$0555
  231.         DC.W    $0198,$0333,$019A,$0222
  232.         DC.W    $019C,$0111,$019E,$0000
  233.         dc.w    $01a8,$333,$1aA,$444,$1ac,$555
  234.         dc.w    $1ae,$555,$1b0,$666,$1b2,$777,$1b4,$7aa
  235.         dc.w    $1b6,$8bb,$1b8,$9cc,$1ba,$9dd,$1bc,$aee,$1be,$bff
  236.  
  237.  dc.w    $2c09,$fffe,$186,$000
  238.  dc.w      $2d09,$fffe,$186,$000
  239.  dc.w     $2e09,$fffe,$186,$000
  240.  dc.w     $2f09,$fffe,$186,$11
  241.  dc.w    $3009,$fffe,$186,$22
  242.  dc.w    $3109,$fffe,$186,$33
  243.  dc.w    $3209,$fffe,$186,$044
  244.  dc.w     $3309,$fffe,$186,$055
  245.  dc.w    $3409,$fffe,$186,$066
  246.  dc.w    $3509,$fffe,$186,$077
  247.  dc.w    $3609,$fffe,$186,$088
  248.  dc.w     $3709,$fffe,$186,$099
  249.  dc.w    $3809,$fffe,$186,$0aa
  250.  dc.w    $3909,$fffe,$186,$0bb
  251.  dc.w    $3a09,$fffe,$186,$0cc
  252.  dc.w    $3b09,$fffe,$186,$0dd
  253.  dc.w    $3c09,$fffe,$186,$0ee
  254.  dc.w    $3d09,$fffe,$186,$1ee
  255.  dc.w    $3e09,$fffe,$186,$2ee
  256.  dc.w    $3f09,$fffe,$186,$3ee
  257.  dc.w    $4009,$fffe,$186,$4ee
  258.  dc.w    $4109,$fffe,$186,$5ee
  259.  dc.w    $4209,$fffe,$186,$6ee
  260.  dc.w    $4309,$fffe,$186,$7Ee
  261.  DC.W   $4409,$fffe,$186,$8ee,$180,$1,$182,$1
  262.  dc.w    $4509,$fffe,$186,$9ee,$180,$3,$182,$3
  263.  dc.w    $4609,$fffe,$186,$aee,$180,$5,$182,$5
  264.  dc.w    $4709,$fffe,$186,$bee,$180,$7,$182,$7
  265.  dc.w    $4809,$fffe,$186,$cee,$180,$9,$182,$9
  266.  dc.w    $4909,$fffe,$186,$dee,$180,$b,$182,$b
  267.  dc.w    $4a09,$fffe,$186,$eee,$180,$d,$182,$d
  268.  dc.w    $4e09,$fffe,$186,$0f0,$180,$f,$182,$f
  269.  
  270.  dc.w    $4f09,$fffe,$108,$ff7e,$10a,$ff7e
  271.  
  272.  dc.w    $5209,$fffe,$186,$dee
  273. woplist    
  274.  dc.w    $5309,$fffe,$186,$cee
  275.  dc.w    $5409,$fffe,$186,$bee
  276.  dc.w    $5509,$fffe,$186,$aee
  277.  dc.w    $5609,$fffe,$186,$9ee
  278.  dc.w    $5709,$fffe,$186,$8ee
  279.  dc.w    $5809,$fffe,$186,$7ee
  280.  dc.w    $5909,$fffe,$186,$6ee
  281.  dc.w    $5a09,$fffe,$186,$5ee
  282.  dc.w    $5b09,$fffe,$186,$4ee
  283.  dc.w    $5c09,$fffe,$186,$3ee
  284.  dc.w    $5d09,$fffe,$186,$2ee
  285.  dc.w    $5e09,$fffe,$186,$1ee
  286.  dc.w    $5f09,$fffe,$186,$0ee,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
  287.  dc.w    $18a,$b50,$18c,$a50,$18e,$840
  288.  
  289.  dc.w    $6009,$fffe,$108,$8c6,$10a,$8c6
  290.  dc.w    $6109,$fffe,$108,$2,$10a,$2
  291.  dc.w    $9009,$fffe,$009c,$8010
  292.         DC.W    $FFFF,$FFFE
  293. gfxlib    dc.b    "graphics.library",0
  294.     EVEN
  295. _gfxbase    dc.l    0
  296. MEMORY_POINTER    dc.l    0
  297. MYRASTPORT    ds.b    RP_Sizeof
  298. MYBITMAP    ds.b    BM_Sizeof
  299. colour    dc.w    0
  300. flagz    dc.b    0
  301.  
  302.  
  303.  
  304. woppt    dc.l    wopdata
  305.  
  306. string    
  307.     dc.b    "COMRADE J OF SHARE AND ENJOY PRESENTS HIS NEW "
  308.     DC.B     "SCROLLY TEXT ROUTINE, FOR USE IN SAE DEMOS AND "
  309.     DC.B    "INTROS ONLY! ULTRA GREETOIDS TO ALL SAE MEMBERS "
  310.     DC.B    "YEAH IT'S ANOTHER  a SAE a  DISK! - GREETS TO "
  311.     DC.B    "EVERYONE. PHONE ME ON 01-668 9605 FOR A CHAT "
  312.     DC.B    "!!!!! NEXT a COPY PARTY @ CBM SHOW!    "
  313.     dc.b    "THIS IS A JOURNEY INTO SCROLLYTEXT WITH A DIP AND A "
  314.     DC.B    "DOP AND A WIPEDY WOP "
  315.     DC.B    "aaaaaaa SHARE AND ENJOY aaaaaaa AND NOW, "
  316.  
  317.  
  318.  
  319.  
  320.     dc.b    255
  321.  
  322. spoint    dc.l    string
  323. myfont    dc.b    "gof "
  324.     ds.b     33788
  325.     dc.l    0
  326. mypiccy    dc.b    "fog "
  327.     ds.b     56316+200
  328.  
  329.  
  330.