home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / screen-test2.s < prev    next >
Text File  |  1995-03-17  |  3KB  |  139 lines
  1. ;
  2. ;        Allgemeine Variablen
  3. font = 0
  4. ; 
  5. ;        Offsets Graphics
  6. ;
  7. InitBitMap      = -30 -360
  8. InitRastPort    = -30 -168
  9. ;
  10. ;        Offsets Exec
  11. ;
  12. OldOpenLibrary  = -30 -378
  13. CloseLibrary    = -30 -384
  14. ;
  15. ;        Offsets Intuition
  16. ;
  17. OpenScreen      = -30 -168
  18. CloseScreen     = -30 -36
  19. ;
  20. ;        Einzige absolute Adr.
  21. ExecBase = 4
  22. ;
  23. even
  24. ;
  25. start:
  26.  jsr initlibrarys
  27.  jsr setnewscreen
  28.  jsr setbitmap
  29.  jsr waitmouse
  30.  jsr restorescreen
  31.  jsr restorelibrarys
  32.  illegal
  33. ; 
  34. setbitmap:
  35.  lea.l bitmap,a0
  36.  moveq #5,d0
  37.  move.l #320,d1
  38.  move.l #200,d2
  39.  jsr initbitmap(a6)
  40.  lea.l rastport,a1
  41.  jsr initrastport(a6)
  42.  move.l #bitmap,r_bitmap
  43.  rts
  44. ;
  45. waitmouse:
  46.  andi.b #64,$bfe001             ; Bit 7 linke Mousetaste
  47.  bne waitmouse
  48.  rts
  49. ;
  50. restorescreen:
  51.  move.l intuitionbase,a6
  52.  move.l screen,a0
  53.  jsr closescreen(a6)
  54.  rts
  55. ;
  56. setnewscreen:
  57.  move.l intuitionbase,a6
  58.  lea.l newscreen,a0
  59.  jsr openscreen(a6)
  60.  move.l d0,screen
  61.  rts
  62. ;
  63. initlibrarys:
  64.  clr.l d0
  65.  move.l execbase,a6
  66.  lea.l gfxname,a1        ; Graphics - Library
  67.  jsr oldopenlibrary(a6) 
  68.  move.l d0,gfxbase
  69.  
  70.  move.l execbase,a6
  71.  lea.l intname,a1               ; Intuition - Library
  72.  jsr oldopenlibrary(a6)
  73.  move.l d0,a6
  74.  move.l d0,intuitionbase
  75.  rts
  76. ;
  77. restorelibrarys:
  78.  move.l execbase,a6
  79.  
  80.  move.l gfxbase,a1              ; Graphic Library 
  81.  jsr closelibrary               ; schließen
  82.  
  83.  move.l intuitionbase,a1        ; Intuition Library
  84.  jsr closelibrary               ; scließen
  85. rts
  86. ;        Library - Names & Adr.
  87. ;
  88. gfxname: dc.b "graphics.library",0
  89. align 4
  90. intname: dc.b "intuition.library",0
  91. align 4
  92. gfxbase: dc.l 1,0
  93. intuitionbase: dc.l 1,0
  94. ;
  95. ;        Screen - Daten
  96. ;
  97. Newscreen:
  98.  dc.w 0,0               ; x & y position
  99.  dc.w 320               ; Breite
  100.  dc.w 200               ; Höhe
  101.  dc.w 5                 ; anzahl der Bitplanes
  102.  dc.b 0,1               ; Detail Pen, Block Pen
  103.  dc.w 0,15              ; View Modes, Screen Type
  104.  dc.l font              ; Adr des Zeichensatzes
  105.  dc.l title             ; Adr des Screentitles
  106.  dc.l 0,0               ; Adr Gag., Bitmap
  107. ;
  108. ;        Allgemaeine Daten
  109. ;
  110. title: dc.b "The C.C.G. in 1987",0
  111. align 4
  112. ;
  113. screen: dc.l 0          ; Adresse Der Screen-Datenliste
  114. ;
  115. bitmap:
  116. bytesperrow:blk.w 1,0
  117. bytes:  blk.w 1,0
  118. flags:  blk.b 1,0
  119. depth:  blk.b 1,0
  120. pad:    blk.w 1,0
  121. plane1: blk.l 1,0
  122. plane2: blk.l 1,0
  123. plane3: blk.l 1,0
  124. plane4: blk.l 1,0
  125. plane5: blk.l 1,0
  126. planes: blk.l 1,0
  127. ;
  128. rastport:
  129.           blk.l 1,0
  130. r_bitmap: blk.l 1,0
  131.           blk.b 22,0
  132.           blk.b 4,0
  133. cp_x:     blk.w 1,0
  134. cp_y:     blk.w 1,0
  135.           blk.b 60,0
  136.           blk.w 6,0
  137.           even
  138. ;
  139.