$Save Nolist DECLARE $IF WORD16 WORD_16L LITERALLY 'WORD', WORD_32L LITERALLY 'DWORD'; $ELSE WORD_16L LITERALLY 'HWORD', WORD_32L LITERALLY 'WORD'; $ENDIF /************************************************************ * * * External Declarations for iRMX III LOADER System calls * * * ************************************************************/ RQ$A$Load: PROCEDURE( conn, resp$mbox, except$ptr) EXTERNAL; DECLARE conn TOKEN, resp$mbox TOKEN, except$ptr POINTER; END RQ$A$Load; RQ$A$LoadIoJob: PROCEDURE( conn, pool$min, pool$max, except$handler, job$flags, task$pri, task$flags, msg$mbox, except$ptr) TOKEN EXTERNAL; DECLARE conn TOKEN, pool$min WORD_32L, pool$max WORD_32L, except$handler POINTER, job$flags WORD_16L, task$pri BYTE, task$flags WORD_16L, msg$mbox TOKEN, except$ptr POINTER; END RQ$A$LoadIoJob; RQ$S$LoadIoJob: PROCEDURE( path$ptr, pool$min, pool$max, except$handler, job$flags, task$pri, task$flags, msg$mbox, except$ptr) TOKEN EXTERNAL; DECLARE path$ptr POINTER, pool$min WORD_32L, pool$max WORD_32L, except$handler POINTER, job$flags WORD_16L, task$pri BYTE, task$flags WORD_16L, msg$mbox TOKEN, except$ptr POINTER; END RQ$S$LoadIoJob; RQ$S$Overlay: PROCEDURE( name$ptr, except$ptr) EXTERNAL; DECLARE name$ptr POINTER, except$ptr POINTER; END RQ$S$Overlay; RQE$A$LoadIoJob: PROCEDURE( conn, pool$min, pool$max, except$handler, job$flags, task$pri, task$flags, msg$mbox, except$ptr) TOKEN EXTERNAL; DECLARE conn TOKEN, pool$min WORD_32L, pool$max WORD_32L, except$handler POINTER, job$flags WORD_16L, task$pri BYTE, task$flags WORD_16L, msg$mbox TOKEN, except$ptr POINTER; END RQE$A$LoadIoJob; RQE$S$LoadIoJob: PROCEDURE( path$ptr, pool$min, pool$max, except$handler, job$flags, task$pri, task$flags, msg$mbox, except$ptr) TOKEN EXTERNAL; DECLARE path$ptr POINTER, pool$min WORD_32L, pool$max WORD_32L, except$handler POINTER, job$flags WORD_16L, task$pri BYTE, task$flags WORD_16L, msg$mbox TOKEN, except$ptr POINTER; END RQE$S$LoadIoJob; $Restore