DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦5c03b2caf⟧ TextFile

    Length: 2214 (0x8a6)
    Types: TextFile
    Names: »CHARCLASSTABLE.P«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!D_PARSE.D!CHARCLASSTABLE.P« 

TextFile


======== COMPILATION STARTED AT:  81:05:26 09:16



======== CHARCLASSTABLE.S

00.00001 "-----------------------------------------------------------------------
00.00002 "
00.00003 "
00.00004 "  MODULE NAME:      CHARACTER CLASS TABLE
00.00005 "  MODULE ID NMB:    CSS/210
00.00006 "  MODULE VERSION:   1
00.00007 "  MODULE TYPE:      LINK (SUB)MODULE
00.00008 "  MERGE  FILES:     -
00.00009 "
00.00010 "  SPECIFICATIONS:   -
00.00011 "  AUTHOR/DATE:      LKN/810102
00.00012 "
00.00013 "  DELIVERABLE:      YES
00.00014 "  SOURCE LANGUAGE:  SWELL
00.00015 "  COMPILE COMPUTER: CR80
00.00016 "  TARGET COMPUTER:  CR80
00.00017 "  OPER. SYSTEM:     -
00.00018 "
00.00019 "-----------------------------------------------------------------------
00.00020 "
00.00021 "  CHANGE RECORD
00.00022 "
00.00023 "  VERSION    AUTHOR/DATE    DESCRIPTION OF CHANGE
00.00024 "  -------    -----------    ---------------------
00.00025 "
00.00026 "-----------------------------------------------------------------------
00.00027 "PAGE«ff»00.00028 
00.00028 SUBMODULE CHAR_CLASS_TABLE;
00.00029 
00.00030 
00.00031 " CHARACTER CLASSES
00.00032 TYPE
00.00033   CHARCLASS =
00.00034     ( SKIP,
00.00035       ALFA,
00.00036       NUMERIC,
00.00037       DELIMITER,
00.00038       COMMENTCHAR,
00.00039       STRINGCHAR,
00.00040       HEXCHAR,
00.00041       IGNORE,
00.00042       ESCAPE );
00.00043 
00.00044 EXPORT VAR
00.00045   CHARCLASSTABLE: ARRAY [0..127] OF BYTE;
00.00046 
00.00047 INIT
00.00048   CHARCLASSTABLE = DELIMITER;
00.00049   CHARCLASSTABLE ['A'..'Z'] = ALFA;
00.00050   CHARCLASSTABLE ['a'..'z'] = ALFA;
00.00051   CHARCLASSTABLE ['_'..'_'] = ALFA;
00.00052   CHARCLASSTABLE ['0'..'9'] = NUMERIC;
00.00053   CHARCLASSTABLE ['"'..'"'] = COMMENTCHAR;
00.00054   CHARCLASSTABLE [''''..''''] = STRINGCHAR;
00.00055   CHARCLASSTABLE ['#'..'#'] = HEXCHAR;
00.00056   CHARCLASSTABLE ['%'..'%'] = ESCAPE;
00.00057   CHARCLASSTABLE [0..0] = SKIP;
00.00058   CHARCLASSTABLE [1..32] = IGNORE;
00.00059   CHARCLASSTABLE [10..10] = DELIMITER;
00.00060 
00.00061 ENDMODULE

LINES:      61


      CODESIZE  VARSIZE  CONSTSIZE  TEMPSIZE
      --------  -------  ---------  --------
       #0000     #0040     #0000     #0000 «a5»