home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / acmautils.lha / AcmaUtils / Source / PalShell.s < prev    next >
Encoding:
Text File  |  1994-03-05  |  557 b   |  40 lines
  1. ;
  2. ; PalShell V1.00  29-July-1993
  3. ;
  4.  
  5. ; by Jan Hagqvist
  6.  
  7. ; Makes the Shell-window PAL-sized 640x256 instead of 640x200
  8.  
  9.  
  10.   XREF _LVOOldOpenLibrary
  11.   XREF _LVOCloseLibrary
  12.   XREF _LVOSizeWindow
  13.  
  14.  
  15. PalShell
  16.   move.l  4,a6
  17.   lea     IntuitionName(pc),a1
  18.   jsr     _LVOOldOpenLibrary(a6)
  19.   tst.l   d0
  20.   beq.s   Quit2
  21.  
  22.   move.l  d0,a6
  23.   move.l  52(a6),a0
  24.   moveq.l #0,d0
  25.   moveq.l #56,d1
  26.   jsr     _LVOSizeWindow(a6)
  27.  
  28. Quit
  29.   move.l  a6,a1
  30.   move.l  4,a6
  31.   jsr     _LVOCloseLibrary(a6)
  32. Quit2
  33.   moveq.l #0,d0
  34.   rts
  35.  
  36.  
  37. IntuitionName            dc.b 'intuition.library',0
  38.  
  39.   END
  40.