home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG7.2 < prev    next >
Encoding:
Text File  |  1999-10-01  |  2.2 KB  |  94 lines
  1. OPENLIBRARY:    EQU    -408
  2. CLOSELIBRARY:    EQU    -414
  3. OPENSCREEN:    EQU    -198
  4. CLOSESCREEN:    EQU    -66
  5. OPENWINDOW:    EQU    -204
  6. CLOSEWINDOW:    EQU    -72
  7.  
  8. START:        MOVE.L    $4.W,A6
  9.         LEA.L    INTNAME(PC),A1
  10.         JSR    OPENLIBRARY(A6)        ; Öppna intuition
  11.         MOVE.L    D0,INTBASE
  12.         BEQ.S    EXIT
  13.         MOVE.L    D0,A6
  14.  
  15.         BSR.L    SCROPEN            ; Öppna skärm
  16.         BSR.L    WINOPEN            ; Öppna fönster
  17.  
  18. KBDPRESS:    BTST    #0,$BFEC01        ; Tangent nedtryckt?
  19.         BEQ.S    KBDPRESS
  20.  
  21.         BSR.L    WINCLOSE        ; Stäng fönster
  22.         BSR.L    SCRCLOSE        ; Stäng skärm
  23.  
  24.         MOVE.L    A6,A1
  25.         MOVE.L    $4.W,A6
  26.         JSR    CLOSELIBRARY(A6)    ; Stäng intuition
  27. EXIT:        RTS
  28.  
  29. SCROPEN:    LEA.L    SCR_PARS(PC),A0
  30.         JSR    OPENSCREEN(A6)
  31.         MOVE.L    D0,SCR_HANDLE        ; Spar skärm ID
  32.         RTS
  33.  
  34. SCRCLOSE:    MOVE.L    SCR_HANDLE(PC),A0
  35.         JSR    CLOSESCREEN(A6)
  36.         RTS
  37.  
  38. WINOPEN:    LEA.L    WIN_PARS(PC),A0
  39.         JSR    OPENWINDOW(A6)
  40.         MOVE.L    D0,WIN_HANDLE        ; Spar fönster ID
  41.         RTS
  42.  
  43. WINCLOSE:    MOVE.L    WIN_HANDLE(PC),A0
  44.         JSR    CLOSEWINDOW(A6)
  45.         RTS
  46.  
  47.  
  48. INTNAME:    DC.B    'intuition.library',0
  49. EVEN
  50. INTBASE:    DC.L    0
  51.  
  52. SCR_PARS:
  53. SCR_XPOS:    DC.W    0            ; X position
  54. SCR_YPOS:    DC.W    0            ; Y position
  55. SCR_WIDTH:    DC.W    640            ; Skärmbredd
  56. SCR_HEIGHT:    DC.W    200            ; Skärmhöjd
  57. SCR_DEPTH:    DC.W    2            ; Antal bitplan
  58. SCR_TXTCOL:    DC.B    0            ; Textfärg
  59. SCR_BKGCOL:    DC.B    1            ; Bakgrundsfärg
  60. SCR_VMODE:    DC.W    $8000            ; Flaggor
  61. SCR_TYPE:    DC.W    15            ; Bildtyp
  62. SCR_FONT:    DC.L    0            ; Fontpekare
  63. SCR_TITLE:    DC.L    SCRNAME            ; Pekare till namn
  64. SCR_GADGETS:    DC.L    0            ; Pekare till gadgets
  65. SCR_BITMAP:    DC.L    0            ; Pekare till bitmap
  66.  
  67. SCRNAME:    DC.B    'Assembler-skolan',0    ; Skärmnamn
  68. EVEN
  69.  
  70. WIN_PARS:
  71. WIN_XPOS:    DC.W    10            ; X position
  72. WIN_YPOS:    DC.W    20            ; Y position
  73. WIN_WIDTH:    DC.W    620            ; Fönsterbredd
  74. WIN_HEIGHT:    DC.W    170            ; Fönsterhöjd
  75. WIN_TXTCOL:    DC.B    2            ; Textfärg
  76. WIN_BKGCOL:    DC.B    1            ; Bakgrundsfärg
  77. WIN_IDCMP:    DC.L    $00000200        ; Rapportflaggor
  78. WIN_FLAGS:    DC.L    $0000100F        ; Flaggor
  79. WIN_GADGETS:    DC.L    0            ; Pekare till gadgets
  80. WIN_CHECKMARK:    DC.L    0            ; Pekare till symbol
  81. WIN_TITLE:    DC.L    WINNAME            ; Pekare till namn
  82. SCR_HANDLE:    DC.L    0            ; Skärm ID
  83. WIN_BITMAP:    DC.L    0            ; Pekare till bitmap
  84. WIN_MINWIDTH:    DC.W    310            ; Minsta bredd
  85. WIN_MINHEIGHT:    DC.W    85            ; Minsta höjd
  86. WIN_MAXWIDTH:    DC.W    640            ; Största bredd
  87. WIN_MAXHEIGHT:    DC.W    190            ; Största höjd
  88. WIN_TYPE:    DC.W    15            ; Fönstertyp
  89.  
  90. WINNAME:    DC.B    'Vårt fönster',0    ; Fönsternamn
  91. EVEN
  92.  
  93. WIN_HANDLE:    DC.L    0            ; Fönster ID
  94.