|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2286 (0x8ee)
Types: s3xseg
Names: »S$TRTB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$TRTB«
MACRO 00010000
&LABEL $TRTB &CODE-E,&HEX- 00020000
TEXT 00130000
* BSCA TRANSLATE TABLE RELEASE-8 00140000
AIF (T'&LABEL EQ 'O').A 00150000
&LABEL EQU * 00160000
.A AIF (&CODE EQ 'E').B 00170000
AIF (&CODE EQ 'A').E 00180000
MNOTE 08,'B3013 INVALID OPERAND CODE' 00190000
AGO .H 00200000
.B ANOP 00210000
* 00220000
* EBCDIC TO ASCII TRANSLATE TABLE 00230000
* 00240000
DC XL1'FF' INVALID CHARACTER INDICATOR. 00250000
AIF (T'&HEX NE 'O').C 00260000
DC XL1'1A' REPLACEMENT CHARACTER. 00270000
AGO .D 00280000
.C ANOP 00290000
DC XL1'&HEX' REPLACEMENT CHARACTER. 00300000
.D ANOP 00310000
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00320000
DC XL16'00010203FF09FF7FFFFFFF0B0C0D0E0F' 0 00330000
DC XL16'10111213FFFF08FF1819FFFF1C1D1E1F' 1 00340000
DC XL16'FFFFFFFFFF0A171BFFFFFFFFFF050607' 2 00350000
DC XL16'FFFF16FFFFFFFF04FFFFFFFF1415FF1A' 3 00360000
DC XL16'20FFFFFFFFFFFFFFFFFF5B2E3C282B21' 4 00370000
DC XL16'26FFFFFFFFFFFFFFFFFF5D242A293B5E' 5 00380000
DC XL16'2D2FFFFFFFFFFFFFFFFF7C2C255F3E3F' 6 00390000
DC XL16'FFFFFFFFFFFFFFFFFF603A2340273D22' 7 00400000
DC XL16'FF616263646566676869FFFFFFFFFFFF' 8 00410000
DC XL16'FF6A6B6C6D6E6F707172FFFFFFFFFFFF' 9 00420000
DC XL16'FF7E737475767778797AFFFFFFFFFFFF' A 00430000
DC XL16'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' B 00440000
DC XL16'7B414243444546474849FFFFFFFFFFFF' C 00450000
DC XL16'7D4A4B4C4D4E4F505152FFFFFFFFFFFF' D 00460000
DC XL16'5CFF535455565758595AFFFFFFFFFFFF' E 00470000
DC XL16'30313233343536373839FFFFFFFFFFFF' F 00480000
AGO .H 00490000
.E ANOP 00500000
* 00510000
* ASCII TO EBCDIC TRANSLATE TABLE 00520000
* 00530000
DC XL1'FF' INVALID CHARACTER INDICATOR. 00540000
AIF (T'&HEX NE 'O').F 00550000
DC XL1'3F' REPLACEMENT CHARACTER. 00560000
AGO .G 00570000
.F ANOP 00580000
DC XL1'&HEX' REPLACEMENT CHARACTER. 00590000
.G ANOP 00600000
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00610000
DC XL16'00010203372D2E2F1605250B0C0D0E0F' 0 00620000
DC XL16'101112133C3D322618193F271C1D1E1F' 1 00630000
DC XL16'404F7F7B5B6C507D4D5D5C4E6B604B61' 2 00640000
DC XL16'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F' 3 00650000
DC XL16'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6' 4 00660000
DC XL16'D7D8D9E2E3E4E5E6E7E8E94AE05A5F6D' 5 00670000
DC XL16'79818283848586878889919293949596' 6 00680000
DC XL16'979899A2A3A4A5A6A7A8A9C06AD0A107' 7 00690000
SPACE 00700000
.H ANOP 00710000
MEND 00720000