;*************************** 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