/               UEBERSETZUNGSROUTINE
/               ********************


                TDC=JMS I 23
                RCHAR=JMS I 20
                CHKCHN=JMS I 36

*400            /HAUPTPROGRAMM


DRK1,   TDC
        0000
        JMP BEGIN

DRK2,   TDC
        133
        JMP BEGIN

DRK3,   TDC
        160
        JMP BEGIN

DRK4,   TDC
        100
        JMP BEGIN


DRK5,   TDC
        0001
        JMP BEGIN

DRK6,   TDC
        2
        JMP BEGIN

DRK7,   TDC
        23
        JMP BEGIN

DRK10,  TDC
        4
        JMP BEGIN

DRK11,  TDC
        25
        JMP BEGIN

DRK12,  TDC
        26
        JMP BEGIN

DRK13,  TDC
        7
        JMP BEGIN

DRK14,  TDC
        10
        JMP BEGIN

DRK15,  TDC
        31
        JMP BEGIN

DRK16,  TDC
        40
        JMP BEGIN

DRK17,  TDC
        200
        JMP BEGIN

DRK20,  TDC
        177
        JMP BEGIN

DRK21,  TDC
        105
        JMP BEGIN

DRK22,  TDC
        147
        JMP BEGIN

DRK23,  TDC
        67
        JMP BEGIN

DRK24,  TDC
        70
        JMP BEGIN

DRK25,  TDC
        51
        JMP BEGIN

DRK26,  TDC
        46
        JMP BEGIN

DRK27,  TDC
        171
        JMP BEGIN

DRK30,  TDC
        121
        JMP BEGIN

DRK31,  TDC
        166
        JMP BEGIN

DRK32,  TDC
        62
        JMP BEGIN

DRK33,  TDC
        43
        JMP BEGIN

DRK34,  TDC
        124
        JMP BEGIN

DRK35,  TDC
        61
        JMP BEGIN




/               PRUEFUNG DER ASCII - ZEICHEN
/               AUSDRUCK DER EIA - CODEZEICHEN
        TLS
BEGIN,  CLA CLL
        RCHAR

        CHKCHN
        35              /ANZAHL DER PRUEFZEICHEN
        0000
        DRK1

        245
        DRK2
        
        253
        DRK3

        255
        DRK4

        261
        DRK5

        262
        DRK6

        263
        DRK7

        264
        DRK10

        265
        DRK11

        266
        DRK12
        
        267
        DRK13

        270
        DRK14

        271
        DRK15

        260
        DRK16

        215
        DRK17

        377
        DRK20

        316
        DRK21

        307
        DRK22

        330
        DRK23

        331
        DRK24

        332
        DRK25

        327
        DRK26

        311
	DRK27

        312
        DRK30

        306
        DRK31

        323
        DRK32

        324
        DRK33

        315
        DRK34

        257
        DRK35
        JMP I BEGINI


BEGINI, BEGIN
$