home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk439.lzh / DeluxeChanger / Sources / DCSysRequest.asm < prev    next >
Assembly Source File  |  1991-01-18  |  1KB  |  86 lines
  1.  
  2.     XREF    _DCScrBase,TopazName
  3.     XDEF    SysRequest
  4.  
  5.     INCLUDE exec/exec_lib.i
  6.     INCLUDE intuition/intuition_lib.i
  7.     INCLUDE help.i
  8.  
  9.     SECTION "SysReq",CODE
  10.  
  11. SysRequest
  12.     move.l    a0,-(sp)
  13.     bsr    GetLibs
  14.     SADD    SReqWindow,a0
  15.     move.l    _DCScrBase,$1e(a0)
  16.     CALLPC    _IntuitionBase,OpenWindow
  17.     beq    NoSReq
  18.     POKEL    d0,_SReqWindBase
  19.     PEEKL    _SReqWindBase,a0
  20.     move.l    $32(a0),a0
  21.     SADD    STitel,a1
  22.     moveq.l #0,d0
  23.     moveq.l #0,d1
  24.     CALLSYS PrintIText
  25.     PEEKL    _SReqWindBase,a0
  26.     move.l    $32(a0),a0
  27.     move.l    (sp)+,a1
  28.     moveq.l #0,d0
  29.     moveq.l #27,d1
  30.     CALLSYS PrintIText
  31.     PEEKL    _SReqWindBase,a0
  32.     move.l    $32(a0),a0
  33.     SADD    SBorder0,a1
  34.     moveq.l #0,d0
  35.     moveq.l #0,d1
  36.     CALLSYS DrawBorder
  37.     PEEKL    _SReqWindBase,a0
  38.     move.l    $56(a0),a0
  39.     CALLEXEC WaitPort
  40.     PEEKL    _SReqWindBase,a0
  41.     move.l    $56(a0),a0
  42.     CALLSYS GetMsg
  43.     move.l    d0,a1
  44.     CALLSYS ReplyMsg
  45.     PEEKL    _SReqWindBase,a0
  46.     CALLPC    _IntuitionBase,CloseWindow
  47. NoSReq    rts
  48.  
  49. GetLibs move.l    4,a6
  50.     lea    $17a(a6),a0
  51.     SADD    IntName,a1
  52.     CALLSYS FindName
  53.     POKEL    d0,_IntuitionBase
  54.     rts
  55.  
  56. IntName     INTNAME
  57. _IntuitionBase    ds.l    1
  58.  
  59. SReqWindow    dc.w    180,100-22,280,44
  60.         dc.b    -1,-1
  61.         dc.l    8!$80000,$800!$1000!$10000,0,0,0,0,0
  62.         dc.w    0,0,0,0,15
  63. _SReqWindBase    ds.l    1
  64.  
  65. STitel        dc.b    1,0,0,0
  66.         dc.w    140-18*4,10
  67.         dc.l    FontU,SBytes,0
  68.         TEXT    SBytes,<" CHANGER MESSAGE: ">
  69.  
  70. SBorder0    dc.w    0,0
  71.         dc.b    2,0,0,3
  72.         dc.l    SPairs0,SBorder1
  73. SPairs0     dc.w    279,0,0,0,0,42
  74. SBorder1    dc.w    0,0
  75.         dc.b    1,0,0,3
  76.         dc.l    SPairs1,0
  77. SPairs1     dc.w    0,43,279,43,279,1
  78.  
  79. FontU        dc.l    TopazName
  80.         dc.w    8
  81.         dc.b    1,1
  82.  
  83.     END
  84.  
  85.  
  86.