DataMuseum.dk

top - download

    Length: 2848 (0xb20)
    Types: TextFile
    Names: »X2GEN2«

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS833.D!X2GEN2« 

TextFile

;***********************************************************************
;*                                                                     *
;*            C R   8 0   A M O S                                      *
;*            D A T A   A N D   P R O G R A M   H E A D E R            *
;*            G E N E R A T O R   P A R T   2                          *
;*            CONFIG ID: CSS/833                                       *
;*            AUTHOR:    JHO                                           *
;*            DATE:      830509                                        *
;*            VERSION:   203                                           *
;*                                                                     *
;***********************************************************************
;
;  CHANGE RECORD:
;
;  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
;  -------    -----------    ---------------------
;
;    0101      JHO/790827     INITIAL RELEASE
;
;    0201      HPT/820501     XAMOS DEFINITIONS INCLUDED
;
;    0202      HS /821112     REF TO XTRA INCLUDED (XTRREF)
;
;    0203      HS /830509     COSMETIC CHANGES.
;
;-----------------------------------------------------------------------
MESSAGE <:X2GEN2 V830509:>
USE PROG
XASSEMBLED=   LOC
XPGTYPE=             0              ;   DEFAULT PROGRAMTYPE
XPGWDS:=             LOC            ;   PROGRAM AREA LENGTH
XMICRO=              0              ;   DEFAULT MICRO LOAD MODULE
XPGMEM=       #FF00                 ;V2 DEFAULT PROGRAM MEMORY RANGE
XPRMEM=       #FF00                 ;V2 DEFAULT DATA    MEMORY RANGE
USE BASE
XCPUNAME0=           0              ;   DEFAULT CPU NAME
XCPUNAME1=           0              ;   DEFAULT CPU NAME
XCPUNAME2=           0              ;   DEFAULT CPU NAME
XPRIORITY=           1              ;   DEFAULT PRIORITY
XPRLEVEL=            XUSER          ;   DEFAULT EXECUTION LEVEL
XCAPABILITIES=       0              ;   DEFAULT CAPABILITIES
XPROCESSNAME0=       0              ;   DEFAULT PROCESS NAME
XPROCESSNAME1=       0
XPROCESSNAME2=       0
XUSERID0=            0              ;   DEFAULT USERID
XUSERID1=            0              ;   DEFAULT USERID
XABASE=       0
XAPROG=       0
XAPRPC=       0+XSTART
XADJUST:=            0              ;   SIZE OF ADJUST AREA
XBNDSZ:=             LOC-1+XTND
XIOREF:=             XBNDSZ+1+XTRA
XTRREF:=             XBNDSZ+1
XPRLNG:=             XIOREF+XIOSIZE
IF XDATA THEN
XTOTSZ:=             XPRLNG+XADJUST-XFIRST
ELSE
XTOTSZ:=             0
FI
XPRWDS:=             LOC-XFIRST
XPSTS:=              XSTS
XPIBS:=              XIBS
XPFDS:=              XFDS
XPXFS:=              XXFS
XPMSGS:=             XMSGS
IF XDATA THEN
XASSEMBLED=   XASSEMBLED+LOC-XFIRST
ELSE
XASSEMBLED=   XASSEMBLED+LOC
FI
IF XASSEMBLED NE WORDS THEN
        MESSAGE <:LOCATION COUNTER CORRUPTED:> FI
;«ff»«ff» «a5»