TITLE 'APSUBTBL BLOCK LETTER TABLES ' 00010000 ******START OF SPECIFICATIONS***************************************** 00020000 * * 00030000 * MODULE NAME: APSUBTBL * 00040000 * * 00050000 * DESCRIPTIVE NAME: BLOCK LETTER TABLES * 00060000 * * 00070000 * FUNCTION: THESE TABLES ARE USED BY APSUBLK (WHICH IS * 00080000 * CALLED BY THE SEPARATOR EXITS) TO BUILD THE * 00090000 * BLOCK LETTERS FOR THE SEPARATOR PAGES. * 00100000 * THE USER MAY UPDATE THESE TABLES AND CHANGE OR * 00110000 * ADD BLOCK LETTERS. IF ANY UPDATES ARE MADE, * 00120000 * THEN THIS FILE MUST BE ASSEMBLED AND RE-LINKED. * 00130000 * * 00140000 * NOTES: * 00150000 * DEPENDENCIES: NONE * 00160000 * RESTRICTIONS: NONE * 00170000 * REGISTER CONVENTIONS: NONE * 00180000 * PATCH LABEL: NONE * 00190000 * * 00200000 * MODULE TYPE: PROCEDURE * 00210000 * PROCESSOR: OS ASSEMBLER H * 00220000 * MODULE SIZE: ??? * 00230000 * ATTRIBUTES: READ ONLY, NO EXECUTABLE CODE * 00240000 * * 00250000 * * 00260000 * ENTRY POINT: TABLETR * 00270000 * PURPOSE: THIS TABLE IS USED TO TRANSLATE CHARACTERS * 00280000 * FOR THE BLOCK LETTERS. THIS TABLE CAN BE * 00290000 * CHANGED BY THE USER. * 00300000 * LINKAGE: NONE * 00310000 * * 00320000 * ENTRY POINT: TBLINDEX * 00330000 * PURPOSE: THIS TABLE CONTAINS A SET OF INDEX VALUES * 00340000 * WHICH ARE USED TO LOCATE THE BLOCK MASK * 00350000 * IN THE CORRECT BLOCK TABLE. THESE INDEXES ARE * 00360000 * OBTAINED BY INDEXING INTO THIS TABLE WITH THE * 00370000 * CHARACTER INDEX. THIS TABLE CAN BE CHANGED * 00380000 * BY THE USER. * 00390000 * LINKAGE: NONE * 00400000 * * 00410000 * ENTRY POINT: TBLBLOCP * 00420000 * PURPOSE: THIS TABLE IS USED FOR THE PERFORMANCE BLOCK * 00430000 * LETTERS. IT CONSISTS OF TWO BYTE MASKS * 00440000 * THAT ARE USED TO IDENTIFY WHICH OUTPUT RECORD * 00450000 * POSITIONS, WITHIN A CHARACTER BLOCK GROUP, * 00460000 * WILL RECEIVE AN ASTERISK. EACH MASK BIT THAT * 00470000 * IS TURNED ON WILL CAUSE AN ASTERISK TO FILL * 00480000 * THAT POSITION. THIS TABLE CAN BE CHANGED * 00490000 * BY THE USER. * 00500000 * * 00510000 * THIS TABLE IS USED BY APSUBLK WHEN ECAPBLK * 00520000 * IS SET ON BY THE CALLER. * 00530000 * LINKAGE: NONE * 00540000 * * 00550000 * ENTRY POINT: TBLBLOCK * 00560000 * PURPOSE: THIS TABLE IS USED FOR THE BLOCK * 00570000 * LETTERS. IT CONSISTS OF TWO BYTE MASKS * 00580000 * THAT ARE USED TO IDENTIFY WHICH OUTPUT RECORD * 00590000 * POSITIONS, WITHIN A CHARACTER BLOCK GROUP, * 00600000 * WILL RECEIVE THE PRINT CHARACTER. EACH MASK * 00610000 * BIT THAT IS TURNED ON WILL CAUSE THE BLOCK * 00620000 * CHARACTER TO FILL THAT POSITION. * 00630000 * THIS TABLE CAN BE CHANGED BY THE USER. * 00640000 * * 00650000 * THIS TABLE IS USED BY APSUBLK WHEN ECAPBLK * 00660000 * IS SET OFF BY THE CALLER. * 00670000 * LINKAGE: NONE * 00680000 * * 00690000 * * 00700000 * TABLES: * 00710000 * TABLETR - TRANSLATE TABLE * 00720000 * TBLINDEX - INDEX TABLE * 00730000 * TBLBLOCP - PERFORMANCE BLOCK TABLE * 00740000 * TBLBLOCK - BLOCK TABLE * 00750000 * * 00760000 * MESSAGES: NONE * 00770000 * * 00780000 * CHANGE ACTIVITY = * 00790000 * $00=OW00105, HPRF220, 931006, BJ13RLD: INITIAL VERSION * 00800000 * $01=OW08336, HPRF220, 941006, BJ13JAU: RECOMPILE ONLY - @01A* 00810000 * PUT SOURCE IN SAMPLIB * 00820000 * $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0 @DUA* 00830000 * $DX=LAPS0008,HPRF320,991117,BUQ4RLB: Version 3.2.0 @DXA* 00840000 * $EV=LAPS0009,HPRF330,010530,BUQ4RLB: Version 3.3.0 @EVA* 00840000 ************************END OF SPECIFICATIONS************************* 00850000 * 00860000 APSUBTBL START 0 00870000 APSUBTBL CSECT 00880000 APSUBTBL AMODE 31 00890000 APSUBTBL RMODE ANY 00900000 TRTABL@ DC V(TABLETR) DO NOT REMOVE/CHANGE 00910000 INDTABL@ DC V(TBLINDEX) DO NOT REMOVE/CHANGE 00920000 PBLKTAB@ DC V(TBLBLOCP) DO NOT REMOVE/CHANGE 00930000 BLKTABL@ DC V(TBLBLOCK) DO NOT REMOVE/CHANGE 00940000 * 00950000 *********************************************************************** 00960000 * 00970000 * TRANSLATE TABLE 00980000 * 00990000 * THIS TABLE IS USED TO TRANSLATE CHARACTERS FOR THE 01000000 * BLOCK LETTERS. THESE CHARACTERS ARE CONTAINED IN 01010000 * ECABLKIN (1 - 8 EBCDIC CHARACTERS ARE ALLOWED). 01020000 * ANY CHARACTER NOT TO BE PRINTED IS 01030000 * TRANSLATED TO A BLANK (X'40'). THIS DEFAULT TABLE 01040000 * TRANSLATES LOWER CASE ALPHABETICS TO UPPERCASE AND 01050000 * TRANSLATES SUPERSCRIPTS TO NUMERICS. 01060000 * 01070000 * EACH ENTRY IN THIS TABLE IS 1 BYTE IN LENGTH. THERE 01080000 * ARE 256 ENTRIES (0 - 255). 01090000 * 01100000 * THE CHARACTER IN THIS TABLE IS USED AS THE PRINT 01110000 * CHARACTER FOR THE BLOCK LETTER WHEN NOT USING THE 01120000 * PERFORMANCE BLOCK LETTERS. 01130000 * 01140000 * EXAMPLE: IT IS WANTED TO TRANSLATE THE SMALL LETTER 01150000 * "a" (X'81' - EBCDIC) TO THE CAPITAL 01160000 * LETTER "A" (X'C1' - EBCDIC). 01170000 * IN THE TRANSLATE TABLE AT LOCATION X'81' 01180000 * PLACE THE CAPITAL LETTER "A" AS SHOWN BELOW. 01190000 * 01200000 * ****** WARNING: THE LENGTH OF THIS TABLE SHOULD NOT BE ALTERED!!!! 01210000 * 01220000 * 01230000 *********************************************************************** 01240000 * 01250000 ENTRY TABLETR DO NOT REMOVE/CHANGE 01260000 TABLETR DS 0D DO NOT REMOVE/CHANGE 01270000 DC CL16' ' 00 -> 0F 01280000 DC CL16' ' 10 -> 1F 01290000 DC CL16' ' 20 -> 2F 01300000 DC CL16' ' 30 -> 3F 01310000 DC CL16' ' 40 -> 4F 01320000 DC CL16' $ ' 50 -> 5F 01330000 DC CL16' ' 60 -> 6F 01340000 DC CL16' #@ ' 70 -> 7F 01350000 DC CL16' ABCDEFGHI ' 80 -> 8F 01360000 DC CL16' JKLMNOPQR ' 90 -> 9F 01370000 DC CL16' STUVWXYZ ' A0 -> AF 01380000 DC CL16'0123456789 ' B0 -> BF 01390000 DC CL16' ABCDEFGHI ' C0 -> CF 01400000 DC CL16' JKLMNOPQR ' D0 -> DF 01410000 DC CL16' STUVWXYZ ' E0 -> EF 01420000 DC CL16'0123456789 ' F0 -> FF 01430000 * 01440000 *********************************************************************** 01450000 * 01460000 * INDEX TABLE 01470000 * 01480000 * THIS TABLE CONTAINS A SET OF INDEX VALUES WHICH ARE USED 01490000 * TO LOCATE THE BLOCK LETTER MASKS IN THE CORRECT BLOCK TABLE. 01500000 * THESE INDEXES ARE OBTAINED BY INDEXING INTO THIS TABLE 01510000 * WITH THE CHARACTER INDEX FROM THE TRANSLATE TABLE. 01520000 * 01530000 * EACH ENTRY IN THIS TABLE IS 1 BYTE IN LENGTH. THERE ARE 01540000 * 256 ENTRIES (0 - 255). 01550000 * 01560000 ******** WARNING: THIS NUMBER OF INDEXES CANNOT BE CHANGED. 01570000 * 01580000 * A X'00' IN THIS TABLE WILL CAUSE A BLANK BLOCK LETTER 01590000 * TO BE PRINTED. 01600000 * 01610000 ******** WARNING: FOR A BLANK (X'40') IN THE PREVIOUS TRANSLATE 01620000 * TABLE TO CAUSE A BLANK BLOCK LETTER TO BE PRINTED, 01630000 * THEN THE X'40' (64 DECIMAL) ENTRY IN THIS INDEX 01640000 * TABLE MUST CONTAIN A X'00'. 01650000 * 01660000 * EXAMPLE: THE X'C1' OBTAINED IN THE TRANSLATE TABLE IS USED 01670000 * TO INDEX INTO THIS TABLE AND THE VALUE 01680000 * OBTAINED IS A X'01'. THIS VALUE 01690000 * WILL BE USED TO INDEX INTO THE CORRECT BLOCK 01700000 * TABLE AND OBTAIN THE BLOCK LETTER TO BE PRINTED. 01710000 * 01720000 * ****** WARNING: THE LENGTH OF THIS TABLE SHOULD NOT BE ALTERED!!!! 01730000 * 01740000 * 01750000 *********************************************************************** 01760000 * 01770000 ENTRY TBLINDEX DO NOT REMOVE/CHANGE 01780000 TBLINDEX DS 0D DO NOT REMOVE/CHANGE 01790000 DC XL16'00000000000000000000000000000000' 00 -> 0F 01800000 DC XL16'00000000000000000000000000000000' 10 -> 1F 01810000 DC XL16'00000000000000000000000000000000' 20 -> 2F 01820000 DC XL16'00000000000000000000000000000000' 30 -> 3F 01830000 DC XL16'00000000000000000000000000000000' 40 -> 4F 01840000 DC XL16'00000000000000000000001300000000' 50 -> 5F 01850000 DC XL16'00000000000000000000000000000000' 60 -> 6F 01860000 DC XL16'00000000000000000000002627000000' 70 -> 7F 01870000 DC XL16'00000000000000000000000000000000' 80 -> 8F 01880000 DC XL16'00000000000000000000000000000000' 90 -> 9F 01890000 DC XL16'00000000000000000000000000000000' A0 -> AF 01900000 DC XL16'00000000000000000000000000000000' B0 -> BF 01910000 DC XL16'00010203040506070809000000000000' C0 -> CF 01920000 DC XL16'000A0B0C0D0E0F101112000000000000' D0 -> DF 01930000 DC XL16'00001415161718191A1B000000000000' E0 -> EF 01940000 DC XL16'1C1D1E1F202122232425000000000000' F0 -> FF 01950000 * 01960000 ********************************************************************* 01970000 * 01980000 * PERFORMANCE BLOCK TABLE 01990000 * 02000000 * THIS TABLE IS USED WHEN ECAPBLK IS SET ON. 02010000 * 02020000 * THIS TABLE CONSISTS OF TWO BYTE MASKS. THESE MASKS 02030000 * ARE USED TO IDENTIFY WHICH OUTPUT RECORD POSITIONS, 02040000 * WITHIN A CHARACTER BLOCK GROUP, WILL RECEIVE 02050000 * AN ASTERISK (*). EACH MASK BIT THAT IS TURNED ON 02060000 * WILL CAUSE AN ASTERISK TO FILL THAT POSITION. 02070000 * AN EXAMPLE OF THIS BIT MASK USE CAN BE SEEN BELOW. 02080000 * 02090000 * NOTE: ONLY THE FIRST 8 BITS OF THE TWO BYTE MASK ARE 02100000 * USED. THE OTHER BITS ARE IGNORED. EACH CHARACTER 02110000 * MUST CONTAIN 12 ROWS AND 8 COLUMNS. 02120000 * 02130000 * '7E00'X ****** 02140000 * 'FF00'X ******** 02150000 * 'C300'X ** ** 02160000 * 'C300'X ** ** 02170000 * 'C300'X ** ** 02180000 * 'FF00'X ******** 02190000 * 'FF00'X ******** 02200000 * 'C300'X ** ** 02210000 * 'C300'X ** ** 02220000 * 'C300'X ** ** 02230000 * 'C300'X ** ** 02240000 * 'C300'X ** ** 02250000 * 02260000 * WHEN THE PERFORMANCE BLOCK LETTERS ARE PRINTED PSF WILL 02270000 * INSERT ONE BLANK BETWEEN EACH BLOCK LETTER. 02280000 * 02290000 * EACH ENTRY IN THIS TABLE CONSISTS OF 12 TWO BYTE MASKS. 02300000 * THERE CAN BE UP TO 256 ENTRIES (1 - 256). 02310000 * 02320000 * EXAMPLE: THE X'01' OBTAINED FROM THE INDEX TABLE ABOVE 02330000 * IS USED AS THE INDEX TO THIS TABLE AND "CHARAP" 02340000 * IS USED FOR THE BLOCK LETTER (THE CAPITAL LETTER 02350000 * "A"). 02360000 * 02370000 * THE LABELS IN THE TABLE (I.E. CHARAP) HAVE NO SPECIAL 02380000 * MEANING AND ARE JUST USED TO DENOTE EACH CHARACTER (ENTRY) IN 02390000 * THE TABLE. THESE CAN BE CHANGED OR REMOVED BY THE USER. 02400000 * 02410000 * ****** WARNING: THIS TABLE CANNOT CONTAIN MORE THAN 256 02420000 * ENTRIES (CHARACTERS) OF THE 12 TWO BYTE MASKS. 02430000 * 02440000 * EACH ENTRY (CHARACTER) MUST CONTAIN 12 TWO BYTE 02450000 * MASKS. 02460000 * 02470000 * 02480000 ********************************************************************* 02490000 * 02500000 ENTRY TBLBLOCP DO NOT REMOVE/CHANGE 02510000 TBLBLOCP DS 0D DO NOT REMOVE/CHANGE 02520000 CHARAP DC XL2'7E00' 02530000 DC XL2'FF00' 02540000 DC XL2'C300' 02550000 DC XL2'C300' 02560000 DC XL2'C300' 02570000 DC XL2'FF00' 02580000 DC XL2'FF00' 02590000 DC XL2'C300' 02600000 DC XL2'C300' 02610000 DC XL2'C300' 02620000 DC XL2'C300' 02630000 DC XL2'C300' 02640000 CHARBP DC XL2'FE00' 02650000 DC XL2'FF00' 02660000 DC XL2'C300' 02670000 DC XL2'C300' 02680000 DC XL2'C600' 02690000 DC XL2'FC00' 02700000 DC XL2'FC00' 02710000 DC XL2'C600' 02720000 DC XL2'C300' 02730000 DC XL2'C300' 02740000 DC XL2'FF00' 02750000 DC XL2'FE00' 02760000 CHARCP DC XL2'7E00' 02770000 DC XL2'FF00' 02780000 DC XL2'C300' 02790000 DC XL2'C000' 02800000 DC XL2'C000' 02810000 DC XL2'C000' 02820000 DC XL2'C000' 02830000 DC XL2'C000' 02840000 DC XL2'C000' 02850000 DC XL2'C300' 02860000 DC XL2'FF00' 02870000 DC XL2'7E00' 02880000 CHARDP DC XL2'FE00' 02890000 DC XL2'FF00' 02900000 DC XL2'C300' 02910000 DC XL2'C300' 02920000 DC XL2'C300' 02930000 DC XL2'C300' 02940000 DC XL2'C300' 02950000 DC XL2'C300' 02960000 DC XL2'C300' 02970000 DC XL2'C300' 02980000 DC XL2'FF00' 02990000 DC XL2'FE00' 03000000 CHAREP DC XL2'FF00' 03010000 DC XL2'FF00' 03020000 DC XL2'C000' 03030000 DC XL2'C000' 03040000 DC XL2'C000' 03050000 DC XL2'FE00' 03060000 DC XL2'FE00' 03070000 DC XL2'C000' 03080000 DC XL2'C000' 03090000 DC XL2'C000' 03100000 DC XL2'FF00' 03110000 DC XL2'FF00' 03120000 CHARFP DC XL2'FF00' 03130000 DC XL2'FF00' 03140000 DC XL2'C000' 03150000 DC XL2'C000' 03160000 DC XL2'C000' 03170000 DC XL2'FC00' 03180000 DC XL2'FC00' 03190000 DC XL2'C000' 03200000 DC XL2'C000' 03210000 DC XL2'C000' 03220000 DC XL2'C000' 03230000 DC XL2'C000' 03240000 CHARGP DC XL2'7E00' 03250000 DC XL2'FF00' 03260000 DC XL2'C300' 03270000 DC XL2'C000' 03280000 DC XL2'C000' 03290000 DC XL2'C000' 03300000 DC XL2'CF00' 03310000 DC XL2'CF00' 03320000 DC XL2'C300' 03330000 DC XL2'C300' 03340000 DC XL2'FF00' 03350000 DC XL2'7E00' 03360000 CHARHP DC XL2'C300' 03370000 DC XL2'C300' 03380000 DC XL2'C300' 03390000 DC XL2'C300' 03400000 DC XL2'C300' 03410000 DC XL2'FF00' 03420000 DC XL2'FF00' 03430000 DC XL2'C300' 03440000 DC XL2'C300' 03450000 DC XL2'C300' 03460000 DC XL2'C300' 03470000 DC XL2'C300' 03480000 CHARIP DC XL2'7E00' 03490000 DC XL2'7E00' 03500000 DC XL2'1800' 03510000 DC XL2'1800' 03520000 DC XL2'1800' 03530000 DC XL2'1800' 03540000 DC XL2'1800' 03550000 DC XL2'1800' 03560000 DC XL2'1800' 03570000 DC XL2'1800' 03580000 DC XL2'7E00' 03590000 DC XL2'7E00' 03600000 CHARJP DC XL2'7E00' 03610000 DC XL2'7E00' 03620000 DC XL2'1800' 03630000 DC XL2'1800' 03640000 DC XL2'1800' 03650000 DC XL2'1800' 03660000 DC XL2'1800' 03670000 DC XL2'1800' 03680000 DC XL2'1800' 03690000 DC XL2'D800' 03700000 DC XL2'F800' 03710000 DC XL2'7000' 03720000 CHARKP DC XL2'C100' 03730000 DC XL2'C300' 03740000 DC XL2'C600' 03750000 DC XL2'CC00' 03760000 DC XL2'D800' 03770000 DC XL2'F000' 03780000 DC XL2'F000' 03790000 DC XL2'D800' 03800000 DC XL2'CC00' 03810000 DC XL2'C600' 03820000 DC XL2'C300' 03830000 DC XL2'C100' 03840000 CHARLP DC XL2'C000' 03850000 DC XL2'C000' 03860000 DC XL2'C000' 03870000 DC XL2'C000' 03880000 DC XL2'C000' 03890000 DC XL2'C000' 03900000 DC XL2'C000' 03910000 DC XL2'C000' 03920000 DC XL2'C000' 03930000 DC XL2'C000' 03940000 DC XL2'FF00' 03950000 DC XL2'FF00' 03960000 CHARMP DC XL2'8100' 03970000 DC XL2'C300' 03980000 DC XL2'E700' 03990000 DC XL2'FF00' 04000000 DC XL2'DB00' 04010000 DC XL2'C300' 04020000 DC XL2'C300' 04030000 DC XL2'C300' 04040000 DC XL2'C300' 04050000 DC XL2'C300' 04060000 DC XL2'C300' 04070000 DC XL2'C300' 04080000 CHARNP DC XL2'8300' 04090000 DC XL2'C300' 04100000 DC XL2'C300' 04110000 DC XL2'E300' 04120000 DC XL2'F300' 04130000 DC XL2'D300' 04140000 DC XL2'DB00' 04150000 DC XL2'CB00' 04160000 DC XL2'CF00' 04170000 DC XL2'C700' 04180000 DC XL2'C300' 04190000 DC XL2'C100' 04200000 CHAROP DC XL2'7E00' 04210000 DC XL2'FF00' 04220000 DC XL2'C300' 04230000 DC XL2'C300' 04240000 DC XL2'C300' 04250000 DC XL2'C300' 04260000 DC XL2'C300' 04270000 DC XL2'C300' 04280000 DC XL2'C300' 04290000 DC XL2'C300' 04300000 DC XL2'FF00' 04310000 DC XL2'7E00' 04320000 CHARPP DC XL2'FE00' 04330000 DC XL2'FF00' 04340000 DC XL2'C300' 04350000 DC XL2'C300' 04360000 DC XL2'FF00' 04370000 DC XL2'FE00' 04380000 DC XL2'C000' 04390000 DC XL2'C000' 04400000 DC XL2'C000' 04410000 DC XL2'C000' 04420000 DC XL2'C000' 04430000 DC XL2'C000' 04440000 CHARQP DC XL2'7E00' 04450000 DC XL2'FF00' 04460000 DC XL2'C300' 04470000 DC XL2'C300' 04480000 DC XL2'C300' 04490000 DC XL2'C300' 04500000 DC XL2'E300' 04510000 DC XL2'F300' 04520000 DC XL2'DB00' 04530000 DC XL2'FF00' 04540000 DC XL2'7E00' 04550000 DC XL2'0600' 04560000 CHARRP DC XL2'FE00' 04570000 DC XL2'FF00' 04580000 DC XL2'C300' 04590000 DC XL2'C300' 04600000 DC XL2'FF00' 04610000 DC XL2'FE00' 04620000 DC XL2'E000' 04630000 DC XL2'F000' 04640000 DC XL2'D800' 04650000 DC XL2'CC00' 04660000 DC XL2'C600' 04670000 DC XL2'C300' 04680000 CHAR$P DC XL2'1800' 04690000 DC XL2'7E00' 04700000 DC XL2'FF00' 04710000 DC XL2'DB00' 04720000 DC XL2'D800' 04730000 DC XL2'FC00' 04740000 DC XL2'7E00' 04750000 DC XL2'1B00' 04760000 DC XL2'DB00' 04770000 DC XL2'FF00' 04780000 DC XL2'7E00' 04790000 DC XL2'1800' 04800000 CHARSP DC XL2'7E00' 04810000 DC XL2'FF00' 04820000 DC XL2'C300' 04830000 DC XL2'C000' 04840000 DC XL2'C000' 04850000 DC XL2'FE00' 04860000 DC XL2'7F00' 04870000 DC XL2'0300' 04880000 DC XL2'0300' 04890000 DC XL2'C300' 04900000 DC XL2'FF00' 04910000 DC XL2'7E00' 04920000 CHARTP DC XL2'FF00' 04930000 DC XL2'FF00' 04940000 DC XL2'1800' 04950000 DC XL2'1800' 04960000 DC XL2'1800' 04970000 DC XL2'1800' 04980000 DC XL2'1800' 04990000 DC XL2'1800' 05000000 DC XL2'1800' 05010000 DC XL2'1800' 05020000 DC XL2'1800' 05030000 DC XL2'1800' 05040000 CHARUP DC XL2'C300' 05050000 DC XL2'C300' 05060000 DC XL2'C300' 05070000 DC XL2'C300' 05080000 DC XL2'C300' 05090000 DC XL2'C300' 05100000 DC XL2'C300' 05110000 DC XL2'C300' 05120000 DC XL2'C300' 05130000 DC XL2'C300' 05140000 DC XL2'FF00' 05150000 DC XL2'7E00' 05160000 CHARVP DC XL2'C300' 05170000 DC XL2'C300' 05180000 DC XL2'C300' 05190000 DC XL2'C300' 05200000 DC XL2'C300' 05210000 DC XL2'C300' 05220000 DC XL2'C300' 05230000 DC XL2'C300' 05240000 DC XL2'C300' 05250000 DC XL2'6600' 05260000 DC XL2'3C00' 05270000 DC XL2'1800' 05280000 CHARWP DC XL2'C300' 05290000 DC XL2'C300' 05300000 DC XL2'C300' 05310000 DC XL2'C300' 05320000 DC XL2'C300' 05330000 DC XL2'C300' 05340000 DC XL2'C300' 05350000 DC XL2'DB00' 05360000 DC XL2'FF00' 05370000 DC XL2'E700' 05380000 DC XL2'C300' 05390000 DC XL2'8100' 05400000 CHARXP DC XL2'C300' 05410000 DC XL2'C300' 05420000 DC XL2'C300' 05430000 DC XL2'6600' 05440000 DC XL2'3C00' 05450000 DC XL2'1800' 05460000 DC XL2'1800' 05470000 DC XL2'3C00' 05480000 DC XL2'6600' 05490000 DC XL2'C300' 05500000 DC XL2'C300' 05510000 DC XL2'C300' 05520000 CHARYP DC XL2'C300' 05530000 DC XL2'C300' 05540000 DC XL2'6600' 05550000 DC XL2'3C00' 05560000 DC XL2'1800' 05570000 DC XL2'1800' 05580000 DC XL2'1800' 05590000 DC XL2'1800' 05600000 DC XL2'1800' 05610000 DC XL2'1800' 05620000 DC XL2'1800' 05630000 DC XL2'1800' 05640000 CHARZP DC XL2'FF00' 05650000 DC XL2'FF00' 05660000 DC XL2'0300' 05670000 DC XL2'0600' 05680000 DC XL2'0C00' 05690000 DC XL2'7E00' 05700000 DC XL2'7E00' 05710000 DC XL2'3000' 05720000 DC XL2'6000' 05730000 DC XL2'C000' 05740000 DC XL2'FF00' 05750000 DC XL2'FF00' 05760000 CHAR0P DC XL2'7E00' 05770000 DC XL2'FF00' 05780000 DC XL2'C700' 05790000 DC XL2'C700' 05800000 DC XL2'CB00' 05810000 DC XL2'CB00' 05820000 DC XL2'D300' 05830000 DC XL2'D300' 05840000 DC XL2'E300' 05850000 DC XL2'E300' 05860000 DC XL2'FF00' 05870000 DC XL2'7E00' 05880000 CHAR1P DC XL2'1800' 05890000 DC XL2'3800' 05900000 DC XL2'7800' 05910000 DC XL2'1800' 05920000 DC XL2'1800' 05930000 DC XL2'1800' 05940000 DC XL2'1800' 05950000 DC XL2'1800' 05960000 DC XL2'1800' 05970000 DC XL2'1800' 05980000 DC XL2'FF00' 05990000 DC XL2'FF00' 06000000 CHAR2P DC XL2'7E00' 06010000 DC XL2'FF00' 06020000 DC XL2'C300' 06030000 DC XL2'0300' 06040000 DC XL2'0600' 06050000 DC XL2'0C00' 06060000 DC XL2'1800' 06070000 DC XL2'3000' 06080000 DC XL2'6000' 06090000 DC XL2'C000' 06100000 DC XL2'FF00' 06110000 DC XL2'FF00' 06120000 CHAR3P DC XL2'7E00' 06130000 DC XL2'FF00' 06140000 DC XL2'C300' 06150000 DC XL2'0300' 06160000 DC XL2'0300' 06170000 DC XL2'3E00' 06180000 DC XL2'3E00' 06190000 DC XL2'0300' 06200000 DC XL2'0300' 06210000 DC XL2'C300' 06220000 DC XL2'FF00' 06230000 DC XL2'7E00' 06240000 CHAR4P DC XL2'C300' 06250000 DC XL2'C300' 06260000 DC XL2'C300' 06270000 DC XL2'C300' 06280000 DC XL2'FF00' 06290000 DC XL2'FF00' 06300000 DC XL2'0300' 06310000 DC XL2'0300' 06320000 DC XL2'0300' 06330000 DC XL2'0300' 06340000 DC XL2'0300' 06350000 DC XL2'0300' 06360000 CHAR5P DC XL2'FE00' 06370000 DC XL2'FE00' 06380000 DC XL2'C000' 06390000 DC XL2'C000' 06400000 DC XL2'FC00' 06410000 DC XL2'FE00' 06420000 DC XL2'0300' 06430000 DC XL2'0300' 06440000 DC XL2'0300' 06450000 DC XL2'0300' 06460000 DC XL2'FF00' 06470000 DC XL2'FE00' 06480000 CHAR6P DC XL2'7E00' 06490000 DC XL2'FF00' 06500000 DC XL2'C300' 06510000 DC XL2'C000' 06520000 DC XL2'C000' 06530000 DC XL2'C000' 06540000 DC XL2'FE00' 06550000 DC XL2'FF00' 06560000 DC XL2'C300' 06570000 DC XL2'C300' 06580000 DC XL2'FF00' 06590000 DC XL2'7E00' 06600000 CHAR7P DC XL2'FF00' 06610000 DC XL2'FF00' 06620000 DC XL2'C300' 06630000 DC XL2'C600' 06640000 DC XL2'0C00' 06650000 DC XL2'0C00' 06660000 DC XL2'0C00' 06670000 DC XL2'0C00' 06680000 DC XL2'0C00' 06690000 DC XL2'0C00' 06700000 DC XL2'0C00' 06710000 DC XL2'0C00' 06720000 CHAR8P DC XL2'7E00' 06730000 DC XL2'FF00' 06740000 DC XL2'C300' 06750000 DC XL2'C300' 06760000 DC XL2'C300' 06770000 DC XL2'7E00' 06780000 DC XL2'7E00' 06790000 DC XL2'C300' 06800000 DC XL2'C300' 06810000 DC XL2'C300' 06820000 DC XL2'FF00' 06830000 DC XL2'7E00' 06840000 CHAR9P DC XL2'7E00' 06850000 DC XL2'FF00' 06860000 DC XL2'C300' 06870000 DC XL2'C300' 06880000 DC XL2'FF00' 06890000 DC XL2'7F00' 06900000 DC XL2'0300' 06910000 DC XL2'0300' 06920000 DC XL2'0300' 06930000 DC XL2'C300' 06940000 DC XL2'FF00' 06950000 DC XL2'FE00' 06960000 CHAR#P DC XL2'6600' 06970000 DC XL2'6600' 06980000 DC XL2'FF00' 06990000 DC XL2'FF00' 07000000 DC XL2'6600' 07010000 DC XL2'6600' 07020000 DC XL2'6600' 07030000 DC XL2'6600' 07040000 DC XL2'FF00' 07050000 DC XL2'FF00' 07060000 DC XL2'6600' 07070000 DC XL2'6600' 07080000 CHAR@P DC XL2'7C00' 07090000 DC XL2'7E00' 07100000 DC XL2'0700' 07110000 DC XL2'0300' 07120000 DC XL2'0300' 07130000 DC XL2'7300' 07140000 DC XL2'FF00' 07150000 DC XL2'CF00' 07160000 DC XL2'C700' 07170000 DC XL2'C700' 07180000 DC XL2'7E00' 07190000 DC XL2'3C00' 07200000 ********************************************************************* 07210000 * 07220000 * BLOCK TABLE 07230000 * 07240000 * THIS TABLE IS USED WHEN ECAPBLK IS SET OFF. 07250000 * 07260000 * THIS TABLE CONSISTS OF TWO BYTE MASKS. THESE MASKS 07270000 * ARE USED TO IDENTIFY WHICH OUTPUT RECORD POSITIONS, 07280000 * WITHIN A CHARACTER BLOCK GROUP, WILL RECEIVE 07290000 * THE PRINT CHARACTER. EACH MASK BIT THAT IS TURNED ON 07300000 * WILL CAUSE THE BLOCK CHARACTER TO FILL THAT POSITION. 07310000 * AN EXAMPLE OF THIS BIT MASK USE CAN BE SEEN BELOW. 07320000 * 07330000 * NOTE: ONLY THE FIRST 12 BITS OF THE TWO BYTE MASK ARE 07340000 * USED. THE OTHER BITS ARE IGNORED. EACH CHARACTER 07350000 * MUST CONTAIN 12 ROWS AND 12 COLUMNS. 07360000 * 07370000 * '7FE0'X AAAAAAAAAA 07380000 * 'FFF0'X AAAAAAAAAAAA 07390000 * 'C030'X AA AA 07400000 * 'C030'X AA AA 07410000 * 'C030'X AA AA 07420000 * 'FFF0'X AAAAAAAAAAAA 07430000 * 'FFF0'X AAAAAAAAAAAA 07440000 * 'C030'X AA AA 07450000 * 'C030'X AA AA 07460000 * 'C030'X AA AA 07470000 * 'C030'X AA AA 07480000 * 'C030'X AA AA 07490000 * 07500000 * WHEN THE BLOCK LETTERS ARE PRINTED PSF WILL 07510000 * INSERT TWO BLANKS BETWEEN EACH BLOCK LETTER. 07520000 * 07530000 * EACH ENTRY IN THIS TABLE CONSISTS OF 12 TWO BYTE MASKS. 07540000 * THERE CAN BE UP TO 256 ENTRIES (1 - 256). 07550000 * 07560000 * EXAMPLE: THE X'01' OBTAINED FROM THE INDEX TABLE ABOVE 07570000 * IS USED AS THE INDEX TO THIS TABLE AND "CHARA" 07580000 * IS USED FOR THE BLOCK LETTER (THE CAPITAL LETTER 07590000 * "A"). THE CAPITAL LETTER "A" OBTAINED FROM THE 07600000 * TRANSLATE TABLE IS USED AS THE PRINT CHARACTER 07610000 * FOR THE BLOCK LETTER. 07620000 * 07630000 * THE LABELS IN THE TABLE (I.E. CHARA) HAVE NO SPECIAL 07640000 * MEANING AND ARE JUST USED TO DENOTE EACH CHARACTER (ENTRY) IN 07650000 * THE TABLE. THESE CAN BE CHANGED OR REMOVED BY THE USER. 07660000 * 07670000 * ****** WARNING: THIS TABLE CANNOT CONTAIN MORE THAN 256 07680000 * ENTRIES (CHARACTERS) OF THE 12 TWO BYTE MASKS. 07690000 * 07700000 * EACH ENTRY (CHARACTER) MUST CONTAIN 12 TWO BYTE 07710000 * MASKS. 07720000 * 07730000 * 07740000 ********************************************************************** 07750000 ENTRY TBLBLOCK DO NOT REMOVE/CHANGE 07760000 TBLBLOCK DS 0D DO NOT REMOVE/CHANGE 07770000 CHARA DC XL2'7FE0' 07780000 DC XL2'FFF0' 07790000 DC XL2'C030' 07800000 DC XL2'C030' 07810000 DC XL2'C030' 07820000 DC XL2'FFF0' 07830000 DC XL2'FFF0' 07840000 DC XL2'C030' 07850000 DC XL2'C030' 07860000 DC XL2'C030' 07870000 DC XL2'C030' 07880000 DC XL2'C030' 07890000 CHARB DC XL2'FFE0' 07900000 DC XL2'FFF0' 07910000 DC XL2'C030' 07920000 DC XL2'C030' 07930000 DC XL2'C060' 07940000 DC XL2'FFC0' 07950000 DC XL2'FFC0' 07960000 DC XL2'C060' 07970000 DC XL2'C030' 07980000 DC XL2'C030' 07990000 DC XL2'FFF0' 08000000 DC XL2'FFE0' 08010000 CHARC DC XL2'7FE0' 08020000 DC XL2'FFF0' 08030000 DC XL2'C030' 08040000 DC XL2'C000' 08050000 DC XL2'C000' 08060000 DC XL2'C000' 08070000 DC XL2'C000' 08080000 DC XL2'C000' 08090000 DC XL2'C000' 08100000 DC XL2'C030' 08110000 DC XL2'FFF0' 08120000 DC XL2'7FE0' 08130000 CHARD DC XL2'FF80' 08140000 DC XL2'FFC0' 08150000 DC XL2'C060' 08160000 DC XL2'C030' 08170000 DC XL2'C030' 08180000 DC XL2'C030' 08190000 DC XL2'C030' 08200000 DC XL2'C030' 08210000 DC XL2'C030' 08220000 DC XL2'C060' 08230000 DC XL2'FFC0' 08240000 DC XL2'FF80' 08250000 CHARE DC XL2'FFF0' 08260000 DC XL2'FFF0' 08270000 DC XL2'C000' 08280000 DC XL2'C000' 08290000 DC XL2'C000' 08300000 DC XL2'FF00' 08310000 DC XL2'FF00' 08320000 DC XL2'C000' 08330000 DC XL2'C000' 08340000 DC XL2'C000' 08350000 DC XL2'FFF0' 08360000 DC XL2'FFF0' 08370000 CHARF DC XL2'FFF0' 08380000 DC XL2'FFF0' 08390000 DC XL2'C000' 08400000 DC XL2'C000' 08410000 DC XL2'C000' 08420000 DC XL2'FF00' 08430000 DC XL2'FF00' 08440000 DC XL2'C000' 08450000 DC XL2'C000' 08460000 DC XL2'C000' 08470000 DC XL2'C000' 08480000 DC XL2'C000' 08490000 CHARG DC XL2'7FE0' 08500000 DC XL2'FFF0' 08510000 DC XL2'C030' 08520000 DC XL2'C000' 08530000 DC XL2'C000' 08540000 DC XL2'C000' 08550000 DC XL2'C1F0' 08560000 DC XL2'C1F0' 08570000 DC XL2'C030' 08580000 DC XL2'C030' 08590000 DC XL2'FFF0' 08600000 DC XL2'7FE0' 08610000 CHARH DC XL2'C030' 08620000 DC XL2'C030' 08630000 DC XL2'C030' 08640000 DC XL2'C030' 08650000 DC XL2'C030' 08660000 DC XL2'FFF0' 08670000 DC XL2'FFF0' 08680000 DC XL2'C030' 08690000 DC XL2'C030' 08700000 DC XL2'C030' 08710000 DC XL2'C030' 08720000 DC XL2'C030' 08730000 CHARI DC XL2'7FE0' 08740000 DC XL2'7FE0' 08750000 DC XL2'0600' 08760000 DC XL2'0600' 08770000 DC XL2'0600' 08780000 DC XL2'0600' 08790000 DC XL2'0600' 08800000 DC XL2'0600' 08810000 DC XL2'0600' 08820000 DC XL2'0600' 08830000 DC XL2'7FE0' 08840000 DC XL2'7FE0' 08850000 CHARJ DC XL2'3FF0' 08860000 DC XL2'3FF0' 08870000 DC XL2'0300' 08880000 DC XL2'0300' 08890000 DC XL2'0300' 08900000 DC XL2'0300' 08910000 DC XL2'0300' 08920000 DC XL2'0300' 08930000 DC XL2'C300' 08940000 DC XL2'C300' 08950000 DC XL2'FF00' 08960000 DC XL2'7E00' 08970000 CHARK DC XL2'C030' 08980000 DC XL2'C060' 08990000 DC XL2'C0C0' 09000000 DC XL2'C180' 09010000 DC XL2'C300' 09020000 DC XL2'FE00' 09030000 DC XL2'FE00' 09040000 DC XL2'C300' 09050000 DC XL2'C180' 09060000 DC XL2'C0C0' 09070000 DC XL2'C060' 09080000 DC XL2'C030' 09090000 CHARL DC XL2'C000' 09100000 DC XL2'C000' 09110000 DC XL2'C000' 09120000 DC XL2'C000' 09130000 DC XL2'C000' 09140000 DC XL2'C000' 09150000 DC XL2'C000' 09160000 DC XL2'C000' 09170000 DC XL2'C000' 09180000 DC XL2'C000' 09190000 DC XL2'FFF0' 09200000 DC XL2'FFF0' 09210000 CHARM DC XL2'C030' 09220000 DC XL2'E070' 09230000 DC XL2'F0F0' 09240000 DC XL2'D9B0' 09250000 DC XL2'CF30' 09260000 DC XL2'C630' 09270000 DC XL2'C030' 09280000 DC XL2'C030' 09290000 DC XL2'C030' 09300000 DC XL2'C030' 09310000 DC XL2'C030' 09320000 DC XL2'C030' 09330000 CHARN DC XL2'C030' 09340000 DC XL2'E030' 09350000 DC XL2'F030' 09360000 DC XL2'D830' 09370000 DC XL2'CC30' 09380000 DC XL2'C630' 09390000 DC XL2'C330' 09400000 DC XL2'C1B0' 09410000 DC XL2'C0F0' 09420000 DC XL2'C070' 09430000 DC XL2'C030' 09440000 DC XL2'C010' 09450000 CHARO DC XL2'FFF0' 09460000 DC XL2'FFF0' 09470000 DC XL2'C030' 09480000 DC XL2'C030' 09490000 DC XL2'C030' 09500000 DC XL2'C030' 09510000 DC XL2'C030' 09520000 DC XL2'C030' 09530000 DC XL2'C030' 09540000 DC XL2'C030' 09550000 DC XL2'FFF0' 09560000 DC XL2'FFF0' 09570000 CHARP DC XL2'FFE0' 09580000 DC XL2'FFF0' 09590000 DC XL2'C030' 09600000 DC XL2'C030' 09610000 DC XL2'C030' 09620000 DC XL2'FFF0' 09630000 DC XL2'FFE0' 09640000 DC XL2'C000' 09650000 DC XL2'C000' 09660000 DC XL2'C000' 09670000 DC XL2'C000' 09680000 DC XL2'C000' 09690000 CHARQ DC XL2'7FE0' 09700000 DC XL2'FFF0' 09710000 DC XL2'C030' 09720000 DC XL2'C030' 09730000 DC XL2'C030' 09740000 DC XL2'C030' 09750000 DC XL2'C030' 09760000 DC XL2'C330' 09770000 DC XL2'C1B0' 09780000 DC XL2'C0F0' 09790000 DC XL2'FFE0' 09800000 DC XL2'7FB0' 09810000 CHARR DC XL2'FFE0' 09820000 DC XL2'FFF0' 09830000 DC XL2'C030' 09840000 DC XL2'C030' 09850000 DC XL2'C030' 09860000 DC XL2'FFF0' 09870000 DC XL2'FFE0' 09880000 DC XL2'C300' 09890000 DC XL2'C180' 09900000 DC XL2'C0C0' 09910000 DC XL2'C060' 09920000 DC XL2'C030' 09930000 CHAR$ DC XL2'0600' 09940000 DC XL2'7FE0' 09950000 DC XL2'FFF0' 09960000 DC XL2'C630' 09970000 DC XL2'E600' 09980000 DC XL2'7FC0' 09990000 DC XL2'3FE0' 10000000 DC XL2'0670' 10010000 DC XL2'C630' 10020000 DC XL2'FFF0' 10030000 DC XL2'7FE0' 10040000 DC XL2'0600' 10050000 CHARS DC XL2'7FE0' 10060000 DC XL2'FFF0' 10070000 DC XL2'C030' 10080000 DC XL2'C000' 10090000 DC XL2'E000' 10100000 DC XL2'7FC0' 10110000 DC XL2'3FE0' 10120000 DC XL2'0070' 10130000 DC XL2'0030' 10140000 DC XL2'C030' 10150000 DC XL2'FFF0' 10160000 DC XL2'7FE0' 10170000 CHART DC XL2'FFF0' 10180000 DC XL2'FFF0' 10190000 DC XL2'0600' 10200000 DC XL2'0600' 10210000 DC XL2'0600' 10220000 DC XL2'0600' 10230000 DC XL2'0600' 10240000 DC XL2'0600' 10250000 DC XL2'0600' 10260000 DC XL2'0600' 10270000 DC XL2'0600' 10280000 DC XL2'0600' 10290000 CHARU DC XL2'C030' 10300000 DC XL2'C030' 10310000 DC XL2'C030' 10320000 DC XL2'C030' 10330000 DC XL2'C030' 10340000 DC XL2'C030' 10350000 DC XL2'C030' 10360000 DC XL2'C030' 10370000 DC XL2'C030' 10380000 DC XL2'C030' 10390000 DC XL2'FFF0' 10400000 DC XL2'7FE0' 10410000 CHARV DC XL2'C030' 10420000 DC XL2'C030' 10430000 DC XL2'C030' 10440000 DC XL2'C030' 10450000 DC XL2'C030' 10460000 DC XL2'C030' 10470000 DC XL2'C030' 10480000 DC XL2'6060' 10490000 DC XL2'30C0' 10500000 DC XL2'1980' 10510000 DC XL2'0F00' 10520000 DC XL2'0600' 10530000 CHARW DC XL2'C030' 10540000 DC XL2'C030' 10550000 DC XL2'C030' 10560000 DC XL2'C030' 10570000 DC XL2'C030' 10580000 DC XL2'C030' 10590000 DC XL2'C630' 10600000 DC XL2'CF30' 10610000 DC XL2'D9B0' 10620000 DC XL2'F0F0' 10630000 DC XL2'E070' 10640000 DC XL2'C030' 10650000 CHARX DC XL2'C030' 10660000 DC XL2'C030' 10670000 DC XL2'6060' 10680000 DC XL2'30C0' 10690000 DC XL2'1980' 10700000 DC XL2'0F00' 10710000 DC XL2'0F00' 10720000 DC XL2'1980' 10730000 DC XL2'30C0' 10740000 DC XL2'6060' 10750000 DC XL2'C030' 10760000 DC XL2'C030' 10770000 CHARY DC XL2'C030' 10780000 DC XL2'C030' 10790000 DC XL2'6060' 10800000 DC XL2'30C0' 10810000 DC XL2'1980' 10820000 DC XL2'0F00' 10830000 DC XL2'0600' 10840000 DC XL2'0600' 10850000 DC XL2'0600' 10860000 DC XL2'0600' 10870000 DC XL2'0600' 10880000 DC XL2'0600' 10890000 CHARZ DC XL2'FFF0' 10900000 DC XL2'FFF0' 10910000 DC XL2'0060' 10920000 DC XL2'00C0' 10930000 DC XL2'0180' 10940000 DC XL2'1FC0' 10950000 DC XL2'1FC0' 10960000 DC XL2'0C00' 10970000 DC XL2'1800' 10980000 DC XL2'3000' 10990000 DC XL2'7FF0' 11000000 DC XL2'FFF0' 11010000 CHAR0 DC XL2'3FC0' 11020000 DC XL2'7FE0' 11030000 DC XL2'C0F0' 11040000 DC XL2'C1B0' 11050000 DC XL2'C330' 11060000 DC XL2'C630' 11070000 DC XL2'CC30' 11080000 DC XL2'D830' 11090000 DC XL2'F030' 11100000 DC XL2'E030' 11110000 DC XL2'7FE0' 11120000 DC XL2'3FC0' 11130000 CHAR1 DC XL2'0600' 11140000 DC XL2'0E00' 11150000 DC XL2'1E00' 11160000 DC XL2'0600' 11170000 DC XL2'0600' 11180000 DC XL2'0600' 11190000 DC XL2'0600' 11200000 DC XL2'0600' 11210000 DC XL2'0600' 11220000 DC XL2'0600' 11230000 DC XL2'7FE0' 11240000 DC XL2'7FE0' 11250000 CHAR2 DC XL2'7FE0' 11260000 DC XL2'FFF0' 11270000 DC XL2'C030' 11280000 DC XL2'0030' 11290000 DC XL2'0030' 11300000 DC XL2'0060' 11310000 DC XL2'0180' 11320000 DC XL2'0600' 11330000 DC XL2'1800' 11340000 DC XL2'6000' 11350000 DC XL2'FFF0' 11360000 DC XL2'FFF0' 11370000 CHAR3 DC XL2'7FE0' 11380000 DC XL2'FFF0' 11390000 DC XL2'C030' 11400000 DC XL2'0030' 11410000 DC XL2'0030' 11420000 DC XL2'01E0' 11430000 DC XL2'01E0' 11440000 DC XL2'0030' 11450000 DC XL2'0030' 11460000 DC XL2'C030' 11470000 DC XL2'FFF0' 11480000 DC XL2'7FE0' 11490000 CHAR4 DC XL2'0380' 11500000 DC XL2'0780' 11510000 DC XL2'0D80' 11520000 DC XL2'1980' 11530000 DC XL2'3180' 11540000 DC XL2'7FF0' 11550000 DC XL2'FFF0' 11560000 DC XL2'0180' 11570000 DC XL2'0180' 11580000 DC XL2'0180' 11590000 DC XL2'0180' 11600000 DC XL2'0180' 11610000 CHAR5 DC XL2'FFF0' 11620000 DC XL2'FFF0' 11630000 DC XL2'C000' 11640000 DC XL2'C000' 11650000 DC XL2'C000' 11660000 DC XL2'FF80' 11670000 DC XL2'FFC0' 11680000 DC XL2'0060' 11690000 DC XL2'0030' 11700000 DC XL2'0030' 11710000 DC XL2'FFF0' 11720000 DC XL2'FFE0' 11730000 CHAR6 DC XL2'7FE0' 11740000 DC XL2'FFF0' 11750000 DC XL2'C030' 11760000 DC XL2'C000' 11770000 DC XL2'C000' 11780000 DC XL2'FFE0' 11790000 DC XL2'FFF0' 11800000 DC XL2'C030' 11810000 DC XL2'C030' 11820000 DC XL2'C030' 11830000 DC XL2'FFF0' 11840000 DC XL2'7FE0' 11850000 CHAR7 DC XL2'FFF0' 11860000 DC XL2'FFE0' 11870000 DC XL2'C0C0' 11880000 DC XL2'0180' 11890000 DC XL2'0300' 11900000 DC XL2'0600' 11910000 DC XL2'0600' 11920000 DC XL2'0600' 11930000 DC XL2'0600' 11940000 DC XL2'0600' 11950000 DC XL2'0600' 11960000 DC XL2'0600' 11970000 CHAR8 DC XL2'7FE0' 11980000 DC XL2'FFF0' 11990000 DC XL2'C030' 12000000 DC XL2'C030' 12010000 DC XL2'6060' 12020000 DC XL2'3FC0' 12030000 DC XL2'3FC0' 12040000 DC XL2'6060' 12050000 DC XL2'C030' 12060000 DC XL2'C030' 12070000 DC XL2'FFF0' 12080000 DC XL2'7FE0' 12090000 CHAR9 DC XL2'7FE0' 12100000 DC XL2'FFF0' 12110000 DC XL2'C030' 12120000 DC XL2'C030' 12130000 DC XL2'C030' 12140000 DC XL2'FFF0' 12150000 DC XL2'FFF0' 12160000 DC XL2'0030' 12170000 DC XL2'0030' 12180000 DC XL2'C030' 12190000 DC XL2'FFF0' 12200000 DC XL2'7FE0' 12210000 CHAR# DC XL2'30C0' 12220000 DC XL2'30C0' 12230000 DC XL2'FFF0' 12240000 DC XL2'FFF0' 12250000 DC XL2'30C0' 12260000 DC XL2'30C0' 12270000 DC XL2'30C0' 12280000 DC XL2'30C0' 12290000 DC XL2'FFF0' 12300000 DC XL2'FFF0' 12310000 DC XL2'30C0' 12320000 DC XL2'30C0' 12330000 CHAR@ DC XL2'3FC0' 12340000 DC XL2'7FE0' 12350000 DC XL2'C030' 12360000 DC XL2'0030' 12370000 DC XL2'0030' 12380000 DC XL2'1E30' 12390000 DC XL2'3F30' 12400000 DC XL2'6330' 12410000 DC XL2'C330' 12420000 DC XL2'C330' 12430000 DC XL2'7FE0' 12440000 DC XL2'3FC0' 12450000 END APSUBTBL DO NOT REMOVE/CHANGE 12460000