;*************************** AMUS Program Label ******************************
; Filename: VERIFY.M68                                      Date: 01/31/89
; Category: SBR          Hash Code: 621-761-140-350      Version: 1.0
; Initials: GR/AM        Name: JAMES A. JARBOE IV
; Company: EDUCATIONAL FILMSTRIPS                  Telephone #: 
; Related Files: 
; Min. Op. Sys.:                               Expertise Level: BEG
; Special: Original author unknown
; Description: Used to check memory to see if a module is loaded.
; Reports back if module is not in memory. XCALL.M68 no longer needed for
; assembly. Usage: XCALL VERIFY,"basic.sbr"
;*****************************************************************************
;*; Updated on 09-Jan-89 at 3:48 AM by ; edit time: 0:05:56
;
        OBJNAM  VERIFY.SBR
;
        SEARCH  SYS
        SEARCH  SYSSYM
;       COPY    XCALL
;XCALL argument list - relative offsets
;Donated to AMUS 5/16/84 by NY-AMUS

.OFINI
.OFDEF	XC.ARG,2			;number of arguments
.OFDEF	XC.TY1,2			;type code - arg 1
.OFDEF	XC.AD1,4			;abs addr - arg 1
.OFDEF	XC.SZ1,4			;size - arg 1
.OFDEF	XC.TY2,2			;type code - arg 2
.OFDEF	XC.AD2,4			;abs addr - arg 2
.OFDEF	XC.SZ2,4			;size - arg 2
.OFDEF	XC.TY3,2			;type code - arg 3
.OFDEF	XC.AD3,4			;abs addr - arg 3
.OFDEF	XC.SZ3,4			;size - arg 3
.OFDEF	XC.TY4,2			;type code - arg 4
.OFDEF	XC.AD4,4			;abs addr - arg 4
.OFDEF	XC.SZ4,4			;size - arg 4
.OFDEF	XC.TY5,2			;type code - arg 5
.OFDEF	XC.AD5,4			;abs addr - arg 5
.OFDEF	XC.SZ5,4			;size - arg 5
.OFDEF	XC.TY6,2			;type code - arg 6
.OFDEF	XC.AD6,4			;abs addr - arg 6
.OFDEF	XC.SZ6,4			;size - arg 6
.OFDEF	XC.TY7,2			;type code - arg 7
.OFDEF	XC.AD7,4			;abs addr - arg 7
.OFDEF	XC.SZ7,4			;size - arg 7
.OFSIZ	XC.SIZ

	XC$UNF=0			; unformatted variable
	XC$STR=2			; string variable
	XC$FLT=4			; floating point variable
	XC$BIN=6			; binary variable

        PHDR    -1,0,PH$REE!PH$REU

START:  MOV     XC.AD1(A3),A2		; Point to module name
        MOV     A4,A1			; Point to pack module
        PACK				; Pack module name
        PACK				; Pack second triplet
        INC     A2			; bypass .
        PACK				; Pack extension
        SRCH    @A4,A0			; Search memory
        BEQ     10$			; Module there?
        TYPE    ?			; Nope..
        PRNAM   @A4			; Print out module name
        TYPECR  < not in memory>	; Tell em no such luck
        EXIT				; exit
10$:    RTN				; Return to Basic

        END

.