home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / print_text.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  114 lines
  1. beg:
  2.  
  3. ; ----- graphics.library -----
  4. scrollraster=    -396
  5. setapen=    -342
  6. text=         -60
  7. setfont=     -66
  8. closefont=    -78
  9. move=         -240
  10. draw=        -246
  11. initbitmap=     -390
  12. initrastport=     -198
  13. clearscreen=    -48
  14. ; ----- exec.library     -----
  15. allocabs=    -204
  16. openlibrary=     -408
  17. closelibrary=     -414
  18. forbid=     -132
  19. permit=     -138
  20. ; ----- diskfont.library -----
  21. openfont=     -30
  22.  
  23. execbase=     $04
  24.  
  25. movem.l     d0-d7/a0-a6,-(a7)
  26. ; ---- open graphics.library ----
  27. move.l        execbase,a6
  28. lea        gfxname,a1
  29. jsr        openlibrary(a6)
  30. move.l        d0,gfxbase
  31.  
  32. move.l        gfxbase,a0        ; copperliste einschalten
  33. add.l        #$32,a0
  34. move.w        #$0080,$dff096
  35. move.l        (a0),oldcopper
  36. move.l        #newcopper,(a0)
  37. move.w        #$8080,$dff096
  38.  
  39. move.l        gfxbase,a6        ; bitmapstruktur
  40. lea        bitmap,a0        ; initialisieren
  41. move.l        #$01,d0
  42. move.l        #320,d1
  43. move.l        #200,d2
  44. jsr        initbitmap(a6)
  45. move.l        #$50000,plane1
  46. lea        rastport,a1
  47. jsr        initrastport(a6)
  48. move.l        #bitmap,r_bitmap
  49.  
  50. lea        rastport,a1        ; Bildschirm loeschen
  51. jsr        clearscreen(a6)
  52.  
  53. lea        rastport,a1        ; Zeichenfarbe setzen
  54. move.l        #$01,d0
  55. jsr        setapen(a6)
  56.  
  57. ; ---- textausgaben ----
  58. move.l        gfxbase,a6
  59. lea        rastport,a1
  60. move.l        #28,d0
  61. move.l        #96,d1
  62. jsr        move(a6)        
  63. lea        rastport,a1        
  64. move.l        #text1,a0        ; anfangsadr.
  65. move.l        #33,d0            ; laenge
  66. jsr        text(a6)        ; ausgeben
  67.  
  68. ; ---- das wars ----
  69.  
  70. wait:
  71. btst        #6,$bfe001        ; linke maustaste ???
  72. bne.s        wait
  73. move.l        execbase,a6
  74. move.l        gfxbase,a1        ; graphic.lib schliessen
  75. jsr        closelibrary(a6)
  76. move.l        gfxbase,a0        ; alte copperliste einschalten
  77. add.l        #$32,a0
  78. move.w        #$0080,$dff096
  79. move.l        oldcopper,(a0)
  80. move.w        #$8080,$dff096
  81. move.l        execbase,a6        ; multitasking erlauben
  82. movem.l        (a7)+,d0-d7/a0-a6
  83. error:
  84. rts
  85.  
  86.  
  87. newcopper:
  88. dc.w $0180,$0000,$0182,$0fff
  89. dc.w $008e,$2c81,$0090,$f4c1
  90. dc.w $0092,$0038,$0094,$00d0
  91. dc.w $0108,$0000,$010a,$0000
  92. dc.w $0102,$0000,$0104,$0000
  93. dc.w $0100,$1200,$00e0,$0005
  94. dc.w $00e2,$0000
  95. dc.w $ffff,$fffe
  96.  
  97. text1:
  98. DC.B    "HIGH QUALITY CRACKINGS Inc., 1987"
  99. even
  100. gfxbase:
  101. dc.l     0
  102. bitmap:
  103. blk.w     4,0
  104. plane1:
  105. blk.l     10,0
  106. rastport:
  107. blk.l     1,0
  108. r_bitmap:
  109. blk.l     26,0
  110. oldcopper:
  111. dc.l     0
  112. gfxname:
  113. dc.b     "graphics.library",0
  114.