.NLIST TTM
.TITLE ASTOEB
.IDENT /OCT78/
;
        .GLOBL ASTOEB
ASTOEB: MOV     2(R5),R0
	MOV	@4(R5),R2
TLOOP:  CLR     %1
        MOVB    (%0),   %1              ; MOVE DATA AT ADDRESS IN R0
                                        ; INTO R1
        SWAB    %1
        CLRB    %1
        SWAB    %1
	ADD	#EBCDIC, %1
        MOVB    (%1),   (%0)+
        SOB     %2,     TLOOP
END:    RTS     PC
EBCDIC: .ASCII <0><1><2><3><67><55><56><57><26><5><45><13><14><15><16>
        .ASCII <17><20><21><22><23><74><75><62><46><30><31><77><47><34>
        .ASCII <35><36><37><100><132><177><173><133><154><120><175><115>
        .ASCII <135><134><116><153><140><113><141><360><361><362><363>
        .ASCII <364><365><366><367><370><371><172><136><114><176><156>
        .ASCII <157><174><301><302><303><304><305><306><307><310><311>
        .ASCII <321><322><323><324><325><326><327><330><331><342><343>
        .ASCII <344><345><346><347><350><351><112><137><340><117><155>
        .ASCII <171><201><202><203><204><205><206><207><210><211><221>
        .ASCII <222><223><224><225><226><227><230><231><242><243><244>
        .ASCII <245><246><247><250><251><300><152><320><241><7>
        .EVEN
        .END