github
/
amiga-libnix2
mirror of https://github.com/cahirwpz/libnix.git
1
0
Fork 0
Code Releases Wiki Activity

Rewrote in C for easier reading.

This commit is contained in:
jshepher 2004-12-04 00:55:12 +00:00
parent 37223e0cb9
commit 06ae980ced
1 changed files with 17 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
libnix/sources/nix/misc/__request.c
View File

@ -1,49 +1,20 @@
#include "bases.h"
#include <dos/dosextens.h>
#include <proto/intuition.h>
#include <proto/exec.h>
asm(
".data;"
".even;"
"body: .byte 0,0,0,0;"
" .word 15,5;"
" .long 0,0,0;"
extern char __intuitionname[];
"ok: .byte 0,0,0,0;"
" .word 6,3;"
" .long 0,oktext,0;"
" .text;"
"oktext: .byte 79,107,0;"
void __request(const char *msg)
{
APTR IntuitionBase, SysBase=*(APTR *)4L;
static struct IntuiText body = { 0,0,0, 15,5, NULL, NULL, NULL };
static struct IntuiText ok = { 0,0,0, 6,3, NULL, "Ok", NULL };
" .even;"
" .globl ___request;"
"___request:"
" moveml #0x3832,sp@-;"
" movel 4:W,a6;"
" subal a1,a1;"
" jsr a6@(-0x126);" /* FindTask(a1:nam) */
" movel d0,a1;"
" moveq #-1,d1;"
" cmpl a1@(0xb8:W),d1;"
" jeq l_fail;" /* Dont put requesters up */
" lea "A4(___intuitionname)",a1;"
" moveq #0,d0;"
" jsr a6@(-0x228);" /* OpenLibrary(a1:nam,d0:ver) */
" movel d0,d4;"
" jeq l_fail;"
" lea "A4(ok)",a3;"
" lea "A4(body)",a1;"
" subl a2,a2;"
" movel sp@(28),a1@(12:W);"
" subl a0,a0;"
" moveq #0,d0;"
" moveq #0,d1;"
" moveq #(640>>4),d2;"
" lslw #4,d2;"
" moveq #72,d3;"
" exg d4,a6;"
" jsr a6@(-0x15c);" /* AutoRequest(a0,a1,a2,a3,d0,d1,d2,d3) */
" movel a6,a1;"
" movel d4,a6;"
" jsr a6@(-0x19e);" /* CloseLibrary(a1:lib) */
"l_fail: moveml sp@+,#0x4c1c;"
" rts;"
);
if (((struct Process *)FindTask(NULL))->pr_WindowPtr != (APTR)-1L) {
if ((IntuitionBase=OpenLibrary(__intuitionname,0))) {
body.IText = (UBYTE *)msg;
AutoRequest(NULL,&body,NULL,&ok,0,0,640,72);
CloseLibrary(IntuitionBase);
}
}
}