home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / screen_open.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  73 lines
  1. OpenScreen      = -30 -168
  2. CloseScreen     = -30 -36
  3. ;
  4. OldOpenLibrary  = -30 -378
  5. CloseLibrary    = -30 -384
  6. ;
  7. Exit            = -30 -114
  8. ;
  9. ExecBase = 4
  10. ;
  11. start:
  12.  clr.l d0
  13.  move.l execbase,a6
  14.  lea.l gfxname,a1
  15.  jsr oldopenlibrary(a6)
  16.  move.l d0,gfxbase
  17.  move.l execbase,a6
  18.  lea.l intname,a1
  19.  jsr oldopenlibrary(a6)
  20.  move.l d0,intuitionbase
  21.  move.l execbase,a6
  22.  lea.l dosname,a1
  23.  jsr oldopenlibrary(a6)
  24.  move.l d0,dosbase
  25. ;
  26.  move.l intuitionbase,a6
  27.  lea.l newscreen,a0
  28.  jsr openscreen(a6)
  29.  move.l d0,screen
  30.  ;
  31. wait_loop:
  32.  andi.b #64,$bfe001
  33.  bne wait_loop
  34. ;
  35.  move.l intuitionbase,a6
  36.  move.l screen,a0
  37.  jsr closescreen(a6)
  38. ;
  39.  move.l execbase,a6
  40.  move.l intuitionbase,a1
  41.  jsr closelibrary(a6)
  42. ;
  43.  move.l gfxbase,a1
  44.  jsr closelibrary(a6)
  45. ;
  46.  move.l dosbase,a1
  47.  jmp exit(a6)
  48. ;
  49. gfxbase: dc.l 0
  50. intuitionbase: dc.l 0
  51. dosbase: dc.l 0
  52. ;
  53. screen: dc.l 0
  54. ;
  55. align 4
  56. gfxname: dc.b "graphics.library",0
  57. align 4
  58. intname: dc.b "intuition.library",0
  59. align 4
  60. dosname: dc.b "dos.library",0
  61. ;
  62. align 4
  63. title: dc.b "The C.C.G. presents:",0
  64. ;
  65. align 4
  66. newscreen:
  67.  dc.w 0,0,320,200,3    ; x, y, width, height
  68.  dc.b 0,1        ; DetailPen, BlockPen
  69.  dc.w 0,15        ; ViewModes, Scr.Types
  70.  dc.l 0            ; APTR font
  71.  dc.l title        ; ATPR Screen Title
  72.  dc.l 0,0        ; APTR Gad., BitMap
  73.