;
; jhextras.i   V1.00 Thursday, 5 August 1993
;

; (c) 1993 by Jan Hagqvist


  include "types.i"

LIB_SIZE	equ 34

  STRUCTURE MyLib,LIB_SIZE
    ULONG  ml_SysLib			; ExecBase
    ULONG  ml_DosLib			; DosBase
    ULONG  ml_IntuitionLib		; IntuitionBase
    ULONG  ml_GfxLib			; GfxBase
    ULONG  ml_SegList
    UWORD  ml_SysVersion		; Exec version
    UBYTE  ml_Flags
    UBYTE  ml_pad
    LABEL  MyLib_Sizeof


JHEXTRASNAME	MACRO
		dc.b  'jhextras.library',0
		ENDM


CALLSYS		MACRO
		move.l  a6,-(sp)
		move.l  ml_SysLib(a5),a6
		jsr     _LVO\1(a6)
		move.l  (sp)+,a6
		ENDM



_LVOJHStrLen		equ -$1e
_LVOJHLowerChar		equ -$24
_LVOJHUpperChar		equ -$2a
_LVOJHLowerString	equ -$30
_LVOJHUpperString	equ -$36
_LVOJHOpen		equ -$3c
_LVOJHFormatAString	equ -$42
_LVOJHCopyString	equ -$48
_LVOJHGetString		equ -$4e
_LVOJHRnd		equ -$54
_LVOJHCreateMsgPort	equ -$5a
_LVOJHDeleteMsgPort	equ -$60
_LVOJHCreateIORequest	equ -$66
_LVOJHDeleteIORequest	equ -$6c
_LVOJHGetMenu		equ -$72
_LVOJHStrCmp		equ -$78
_LVOJHStrCmpNoCase	equ -$7e
_LVOJHStrInStr		equ -$84
_LVOJHStrInStrNoCase	equ -$8a
_LVOJHReadTrack		equ -$90
_LVOJHWriteTrack	equ -$96
_LVOJHReadSector	equ -$9c
_LVOJHWriteSector	equ -$a2
_LVOJHReadBytes		equ -$a8
_LVOJHWriteBytes	equ -$ae
_LVOJHEasyOpenDevice	equ -$b4
_LVOJHEasyCloseDevice	equ -$ba
_LVOJHStopDisk		equ -$c0