|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2214 (0x8a6)
Types: TextFile
Names: »CHARCLASSTABLE.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─⟦this⟧ »GENS.D!D_PARSE.D!CHARCLASSTABLE.P«
======== 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»