;***************************************************************************;
;                                                                           ;
;                                  PUTCOM                                   ;
;                            put common storage                             ;
;                                                                           ;
;                         Author: David F. Pallmann                         ;
;            Copyright (C) 1984 by LMS Technical Services, Inc.             ;
;                                                                           ;
;***************************************************************************;

OBJNAM  PUTCOM.SBR

VMAJOR=1

;universals
SEARCH  SYS
SEARCH  SYSSYM
COPY    XCALL

START:  PHDR    -1,0,PH$REE!PH$REU      ;program header
       SRCH    MODULE,A5               ;locate MEM:COMMON.VAR
       BNE     MNFERR                  ; not found - error
       MOV     XC.AD1(A3),A0           ;index program variable area
       MOV     XC.SZ1(A3),D0           ;load loop counter
       DEC     D0
10$:    MOVB    (A0)+,(A5)+             ;copy byte
       DBF     D0,10$                  ;loop till all bytes copied
       RTN                             ;return to BASIC program

MNFERR: TYPECR  ? MEM:COMMON.VAR not found in PUTCOM.SBR
       MOV     JOBCUR,A6               ;flag ^C to BASIC program
       ORW     #J.CCC,JOBSTS(A6)
       RTN

MODULE: RAD50   /COMMON/
       RAD50   /VAR/

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.