home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG7.1 < prev    next >
Encoding:
Text File  |  1999-10-01  |  1.2 KB  |  58 lines
  1. OPENLIBRARY:    EQU    -408
  2. CLOSELIBRARY:    EQU    -414
  3. OPENSCREEN:    EQU    -198
  4. CLOSESCREEN:    EQU    -66
  5.  
  6. START:        MOVE.L    $4.W,A6
  7.         LEA.L    INTNAME(PC),A1
  8.         JSR    OPENLIBRARY(A6)        ; Öppna intuition
  9.         MOVE.L    D0,INTBASE
  10.         BEQ.S    EXIT
  11.         MOVE.L    D0,A6
  12.  
  13.         BSR.L    SCROPEN            ; Öppna skärm
  14.  
  15. KBDPRESS:    BTST    #0,$BFEC01        ; Tangent nedtryckt?
  16.         BEQ.S    KBDPRESS
  17.  
  18.         BSR.L    SCRCLOSE        ; Stäng skärm
  19.  
  20.         MOVE.L    A6,A1
  21.         MOVE.L    $4.W,A6
  22.         JSR    CLOSELIBRARY(A6)    ; Stäng intuition
  23. EXIT:        RTS
  24.  
  25. SCROPEN:    LEA.L    SCR_PARS(PC),A0
  26.         JSR    OPENSCREEN(A6)
  27.         MOVE.L    D0,SCR_HANDLE        ; Spar skärm ID
  28.         RTS
  29.  
  30. SCRCLOSE:    MOVE.L    SCR_HANDLE(PC),A0
  31.         JSR    CLOSESCREEN(A6)
  32.         RTS
  33.  
  34.  
  35. INTNAME:    DC.B    'intuition.library',0
  36. EVEN
  37. INTBASE:    DC.L    0
  38.  
  39. SCR_PARS:
  40. SCR_XPOS:    DC.W    0            ; X position
  41. SCR_YPOS:    DC.W    0            ; Y position
  42. SCR_WIDTH:    DC.W    320            ; Skärmbredd
  43. SCR_HEIGHT:    DC.W    200            ; Skärmhöjd
  44. SCR_DEPTH:    DC.W    2            ; Antal bitplan
  45. SCR_TXTCOL:    DC.B    0            ; Textfärg
  46. SCR_BKGCOL:    DC.B    1            ; Bakgrundsfärg
  47. SCR_VMODE:    DC.W    $0000            ; Flaggor
  48. SCR_TYPE:    DC.W    15            ; Skärmtyp
  49. SCR_FONT:    DC.L    0            ; Fontpekare
  50. SCR_TITLE:    DC.L    SCRNAME            ; Pekare till namn
  51. SCR_GADGETS:    DC.L    0            ; Pekare till gadgets
  52. SCR_BITMAP:    DC.L    0            ; Pekare till bitmap
  53.  
  54. SCRNAME:    DC.B    'Assembler-skolan',0    ; Skärmnamn
  55. EVEN
  56.  
  57. SCR_HANDLE:    DC.L    0            ; Skärm ID
  58.