home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / duke.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  281 lines
  1. ; --- New Bitplane Scrollroutine !
  2. ; --- written by Duke of T.L.C
  3. ; --- with many helps from the Mad Thinker
  4.  
  5. org $38000
  6. load $38000
  7.  
  8. ScrPlane1:  equ  $45000
  9.  
  10. ; ---- Special AMIGA Equates
  11. AbsExecBase=4      ; the only absolute address !
  12. Level3Int=$6c
  13. ; ---- Exec Library Vector Offsets
  14. Permit=-138
  15. Forbid=-132
  16. OpenLibrary=-408
  17. CloseLibrary=-414
  18. ; ---- Graphics Library Vector Offsets
  19. Text=-60
  20. SetFont=-66
  21. CloseFont=-78
  22. InitRastPort=-198
  23. InitBitMap=-390
  24. MovePen=-240
  25. ; ---- Diskfont Library Vectors
  26. OpenDiskFont=-30
  27. DMACON=$dff096
  28. ; 
  29. ;  Initialize the libraries for system calls
  30. ;
  31.    move.l sp,initialSP  
  32.  
  33.    move.l AbsExecBase,a6         ; ExecLib Base
  34.    lea  GfxName,a1               ; addr. of library name
  35.    jsr  OpenLibrary(a6)          ; open it
  36.    move.l d0,GfxBase             ; store base pointer for use
  37.    move.l d0,d6                  ; save for use
  38. ;
  39. ; Open the Diskfont library
  40. ;
  41.    lea  FontLName,a1             ; name of library
  42.    jsr  OpenLibrary(a6)          ; do a open
  43.    move.l d0,DiskfontBase        ; store pointer
  44.    beq  FontErr
  45. ;
  46. ; Load the special font to in ram
  47. ;
  48.    move.l d0,a6            ; move library pointer
  49.    lea  TextAttr,a0        ; discription of font
  50.    jsr  OpenDiskFont(a6)
  51.    move.l d0,FontBase      ; addr of TextFont structure
  52.    beq  FontErr
  53. ;
  54. ;  Print the text in bit plane
  55. ;
  56.    move.l GfxBase,a6        ;  copy library base pointer
  57.    lea  BitMap,a0           ; addr of BitMap
  58.    moveq #1,d0              ; Depth of BitMap
  59.    move.l #480,d1           ; Width of BitMap
  60.    move.l #40,d2            ; Height of BitMap
  61.    jsr  InitBitMap(a6)      ; setup the structure
  62.  
  63.    move.l #ScrPlane1,a0     ; pointer to memory
  64.    move.l a0,Plane1         ; install in BitMap
  65.    move.l #8000/4-4,d0        ; clear memory 
  66. lok1:   clr.l (a0)+
  67.    dbra d0,lok1
  68.  
  69.    lea  RastPort,a1         ; my RastPort structure
  70.    jsr  InitRastPort(a6)
  71.    move.l #BitMap,R_BitMap  ; install pointer to BitMap
  72.  
  73.    lea  RastPort,a1   
  74.    move.l FontBase,a0       ; addr of TextFont
  75.    jsr  SetFont(a6)         ; install new font in RastPort
  76.  
  77. ; ---- Put text...
  78.  
  79. ;
  80. ; setup the new copper list (will be performed in next VBlank)
  81. ;
  82.    move.l AbsExecBase,a6
  83.    jsr  Forbid(a6)   ; stop multitasking
  84.  
  85.    move.l GfxBase,a0
  86.    add.l #$32,a0    ; point to LOFlist in GfxBase
  87.  
  88.    move.w #$0080,DMACON  ; stop Copper DMA
  89.    move.l (a0),OldCopper  ; pointer to old copper list
  90.    move.l #CopList,(a0)  ; my own Coppers..
  91.    move.w #$8080,DMACON   
  92. ;
  93. ;  blitter scrolling
  94. ;
  95.    move.l #str,c_ptr
  96. next:
  97.    bsr  put_char
  98.  
  99. akt:   btst   #14,$dff002
  100.    bne    akt
  101.  
  102.    move.l #$ffffffff,$dff044   ; first/last word mask
  103.    
  104.    move.l #$45002,$dff050      ; source A
  105.    move.l #buffer,$dff054      ; destination D
  106.  
  107.    move.w #02,$dff064
  108.    move.w #00,$dff066          ;  modulos
  109.  
  110.    move.w #$00,$dff042
  111.    move.w #$09f0,$dff040
  112.  
  113.    bsr    sync
  114.    move.w #25,d0
  115.    lsl.w  #6,d0
  116.    ori.w #29,d0               ; 30 words
  117.    move.w d0,$dff058
  118.  
  119.    move.w #$f,d7
  120. fine:
  121. akt2:  btst   #14,$dff002
  122.    bne    akt2
  123.    move.l #buffer,$dff050      ; source A
  124.    move.l #$45000,$dff054      ; destination D
  125.  
  126.    move.w #00,$dff064
  127.    move.w #02,$dff066          ;  modulos
  128.  
  129.    move.w #$00,$dff042
  130.    move.w d7,d6
  131.    lsl.w  #8,d6
  132.    lsl.w  #4,d6
  133.    ori.w  #$9f0,d6
  134.    move.w d6,$dff040
  135.  
  136.    bsr    sync
  137.    move.w #25,d0
  138.    lsl.w  #6,d0
  139.    ori.w #29,d0               ; 30 words
  140.    move.w d0,$dff058
  141. again:
  142.    move.b $bfe001,d0   ; wait until mouse button
  143.    move.b d0,d1
  144.    and.l #$40,d0
  145.    beq  raus
  146.  
  147.    move.l #$1000,d1
  148. ti1: dbra d1,ti1
  149.    sub.w #$1,d7
  150.    bpl   fine
  151.    bra   next
  152. raus:
  153. ;
  154. ;  reset all resources used!
  155. ;
  156.    move.l GfxBase,a0
  157.    add.l #$32,a0    ; point to LOFlist in GfxBase
  158.  
  159.    move.w #$0080,DMACON  ; stop Copper and Sound
  160.    move.l OldCopper,(a0)  ; restore pointer
  161.    move.w #$8080,DMACON  ; start again ...
  162.  
  163.    move.l AbsExecBase,a6
  164.    jsr  Permit(a6)   ; restart multitasking
  165. ;
  166. ;  Ready to give system back
  167. ;
  168.    move.l GfxBase,a6
  169.    move.l FontBase,a1   ; addr of font
  170.    jsr  CloseFont(a6)  ; font memory back to system
  171.  
  172.    move.l AbsExecBase,a6  ; Exec-Master-Program
  173.    move.l DiskfontBase,a1
  174.    jsr  CloseLibrary(a6) ; no need for Libraries!!
  175.    move.l GfxBase,a1
  176.    jsr  CloseLibrary(a6)
  177. ende:
  178.    move.l initialSP,sp
  179.    clr.l d0     ; E.T. phone home!!
  180.    ILLEGAL
  181. ;   rts
  182. ;
  183. ; ---- syncronize blitter with raster beam
  184. sync:
  185.    move.w $dff006,d4
  186.    lsr.w  #8,d4
  187.    cmp.b #$50,d4
  188.    bls   sync
  189.    rts  
  190. ;
  191. ; ---- put character to screen
  192. ;
  193. put_char:
  194.    move.l GfxBase,a6
  195.    move.l #448,d0             ; x pos
  196.    move.l #15,d1              ; y pos
  197.    lea  RastPort,a1       
  198.    jsr  MovePen(a6)
  199.  
  200.    lea  RastPort,a1          ; addr of structure
  201.  
  202.    move.l c_ptr,a0
  203.    move.l #2,d0              ; num of chars to put
  204.    jsr  Text(a6);
  205.    add.l  #2,c_ptr
  206.    cmp.l #str+250,c_ptr       ;HOW MANY TEXTBYTES ?
  207.    blo.s Duke                 ;jump out
  208.    move.l #str,c_ptr
  209. Duke:  rts
  210.  
  211. ; ---- Error ... assume that you use Intuition's DisplayAlert()
  212. ;
  213. FontErr:
  214.    move.l initialSP,sp
  215.    rts          ; try to escape (without hope!)
  216.  
  217. GfxName: DC.B 'graphics.library',0
  218.    even
  219. FontLName: DC.B 'diskfont.library',0
  220.    even
  221. ;
  222. ;  DISPLAY COPROCCESSOR INSTRUCTION LIST
  223. ;
  224. CopList:
  225.   DC.W $008e,$9c81    ; DIW Start 
  226.   DC.W $0090,$f4c1    ; DIW Stop 
  227.   DC.W $0092,$38      ; DDF Start 
  228.   DC.W $0094,$d0      ; DDF Stop 
  229.   DC.W $00e0,$0004
  230.   DC.W $00e2,$5002
  231.  
  232.   DC.W $0108,20
  233.   DC.W $0180,$28f    ; Background color
  234.   DC.W $0182,$fff
  235.   DC.W $0102,$000    ; Scroll delay 0
  236.   DC.W $0100,$1200   ; 1 Bit Plane
  237.   DC.W $ffff,$fffe
  238.  
  239. ; ---- Demo Text
  240. str: DC.B  'THIS IS A DEMO TEXT TO SHOW YOU THE MIGHTY SCROLL-'
  241.      DC.B  'ROUTINE WITH FULL BLITTER CONTROL!    WRITTEN BY D'
  242.      DC.B  'UKE OF THE LIGHT-CIRCLE ! IF YOU USE THIS ROUTINE,'
  243.      DC.B  ' PLEASE SET IN SOME GREETINGS TO US !!!           '
  244.      DC.B  '{} BY DUKE OF T.L.C IN 1941                       '
  245.  
  246.  
  247.  
  248.  
  249. len: equ *
  250.     even
  251. FontName:  DC.B 'tempfont.font',0
  252.     even
  253. TextAttr:
  254.     DC.L FontName
  255.     DC.W 8          ; hight of Font
  256.     DC.W 0
  257.  
  258. DiskfontBase: blk.l 1,0
  259. GfxBase: blk.l 1,0
  260. initialSP: blk.l 1,0
  261. OldCopper: blk.l 1,0
  262. FontBase: blk.l 1,0
  263. c_ptr:  blk.l 1,0
  264. ; Structures used by graphics.library
  265.  
  266. BitMap:
  267. BytesPerRow: blk.w 1,0
  268. Bytes:    blk.w 1,0
  269. Flags:    blk.b 1,0
  270. Depth:    blk.b 1,0
  271. Pad:      blk.w 1,0
  272. Plane1:   blk.l 1,0
  273. Planes:   blk.l 7,0
  274.  
  275. RastPort:  blk.l 1,0
  276. R_BitMap:  blk.l 1,0
  277.     blk.b 96,0            ; space for laber unused data
  278. buffer: blk.b 60*40,0
  279.  
  280.  
  281.