1 files changed, 100 insertions, 0 deletions

diff --git a/v4.0/src/CMD/FC/XTAB.ASM b/v4.0/src/CMD/FC/XTAB.ASM
new file mode 100644
index 0000000..3b42529
--- /dev/null
+++ b/v4.0/src/CMD/FC/XTAB.ASM
@@ -0,0 +1,100 @@
+;
+; xlat tables for case conversion
+;
+
+.xlist
+include version.inc
+include cmacros.inc
+.list
+
+sBegin  data
+
+public  _XLTab, _XUTab
+
+assumes ds,data
+
+;
+; table for lowercase translation
+;
+
+_XLTab   LABEL BYTE
+
+    db  000h, 001h, 002h, 003h, 004h, 005h, 006h, 007h
+    db  008h, 009h, 00Ah, 00Bh, 00Ch, 00Dh, 00Eh, 00Fh
+
+    db  010h, 011h, 012h, 013h, 014h, 015h, 016h, 017h
+    db  018h, 019h, 01Ah, 01Bh, 01Ch, 01Dh, 01Eh, 01Fh
+
+    db  ' !"#$%&', 027h
+    db  '()*+,-./'
+
+    db  '01234567'
+    db  '89:;<=>?'
+
+    db  '@abcdefg'
+    db  'hijklmno'
+
+    db  'pqrstuvw'
+    db  'xyz[\]^_'
+
+    db  '`abcdefg'
+    db  'hijklmno'
+
+    db  'pqrstuvw'
+    db  'xyz{|}~', 07Fh
+
+    db  080h, 081h, 082h, 083h, 084h, 085h, 086h, 087h
+    db  088h, 089h, 08Ah, 08Bh, 08Ch, 08Dh, 08Eh, 08Fh
+    db  090h, 091h, 092h, 093h, 094h, 095h, 096h, 097h
+    db  098h, 099h, 09Ah, 09Bh, 09Ch, 09Dh, 09Eh, 09Fh
+    db  0A0h, 0A1h, 0A2h, 0A3h, 0A4h, 0A5h, 0A6h, 0A7h
+    db  0A8h, 0A9h, 0AAh, 0ABh, 0ACh, 0ADh, 0AEh, 0AFh
+    db  0B0h, 0B1h, 0B2h, 0B3h, 0B4h, 0B5h, 0B6h, 0B7h
+    db  0B8h, 0B9h, 0BAh, 0BBh, 0BCh, 0BDh, 0BEh, 0BFh
+    db  0C0h, 0C1h, 0C2h, 0C3h, 0C4h, 0C5h, 0C6h, 0C7h
+    db  0C8h, 0C9h, 0CAh, 0CBh, 0CCh, 0CDh, 0CEh, 0CFh
+    db  0D0h, 0D1h, 0D2h, 0D3h, 0D4h, 0D5h, 0D6h, 0D7h
+    db  0D8h, 0D9h, 0DAh, 0DBh, 0DCh, 0DDh, 0DEh, 0DFh
+    db  0E0h, 0E1h, 0E2h, 0E3h, 0E4h, 0E5h, 0E6h, 0E7h
+    db  0E8h, 0E9h, 0EAh, 0EBh, 0ECh, 0EDh, 0EEh, 0EFh
+    db  0F0h, 0F1h, 0F2h, 0F3h, 0F4h, 0F5h, 0F6h, 0F7h
+    db  0F8h, 0F9h, 0FAh, 0FBh, 0FCh, 0FDh, 0FEh, 0FFh
+
+_XUTab   LABEL   BYTE
+
+    db  000h, 001h, 002h, 003h, 004h, 005h, 006h, 007h
+    db  008h, 009h, 00Ah, 00Bh, 00Ch, 00Dh, 00Eh, 00Fh
+    db  010h, 011h, 012h, 013h, 014h, 015h, 016h, 017h
+    db  018h, 019h, 01Ah, 01Bh, 01Ch, 01Dh, 01Eh, 01Fh
+    db  ' !"#$%&', 027h
+    db  '()*+,-./'
+    db  '01234567'
+    db  '89:;<=>?'
+    db  '@ABCDEFG'
+    db  'HIJKLMNO'
+    db  'PQRSTUVW'
+    db  'XYZ[\]^_'
+    db  '`ABCDEFG'
+    db  'HIJKLMNO'
+    db  'PQRSTUVW'
+    db  'XYZ{|}~', 07Fh
+    db  080h, 081h, 082h, 083h, 084h, 085h, 086h, 087h
+    db  088h, 089h, 08Ah, 08Bh, 08Ch, 08Dh, 08Eh, 08Fh
+    db  090h, 091h, 092h, 093h, 094h, 095h, 096h, 097h
+    db  098h, 099h, 09Ah, 09Bh, 09Ch, 09Dh, 09Eh, 09Fh
+    db  0A0h, 0A1h, 0A2h, 0A3h, 0A4h, 0A5h, 0A6h, 0A7h
+    db  0A8h, 0A9h, 0AAh, 0ABh, 0ACh, 0ADh, 0AEh, 0AFh
+    db  0B0h, 0B1h, 0B2h, 0B3h, 0B4h, 0B5h, 0B6h, 0B7h
+    db  0B8h, 0B9h, 0BAh, 0BBh, 0BCh, 0BDh, 0BEh, 0BFh
+    db  0C0h, 0C1h, 0C2h, 0C3h, 0C4h, 0C5h, 0C6h, 0C7h
+    db  0C8h, 0C9h, 0CAh, 0CBh, 0CCh, 0CDh, 0CEh, 0CFh
+    db  0D0h, 0D1h, 0D2h, 0D3h, 0D4h, 0D5h, 0D6h, 0D7h
+    db  0D8h, 0D9h, 0DAh, 0DBh, 0DCh, 0DDh, 0DEh, 0DFh
+    db  0E0h, 0E1h, 0E2h, 0E3h, 0E4h, 0E5h, 0E6h, 0E7h
+    db  0E8h, 0E9h, 0EAh, 0EBh, 0ECh, 0EDh, 0EEh, 0EFh
+    db  0F0h, 0F1h, 0F2h, 0F3h, 0F4h, 0F5h, 0F6h, 0F7h
+    db  0F8h, 0F9h, 0FAh, 0FBh, 0FCh, 0FDh, 0FEh, 0FFh
+
+sEnd
+
+end