EDASTEXTASM; ;TRANSFERPROGRAMME ; EDAS -->TEXOR ; TEXOR -->EDAS ; COPYRIGHTBY K.-D. KIRVES ; 30.1.87 ; ORG 0BF00H ;VEREINBAHRUNGEN TEXT EQU 40H TEXTEN EQU TEXT+2 GAPAN EQU TEXTEN+2 GAPEN EQU GAPAN+2 CUHOM EQU 0C227H MOVER EQU 0C7C2H ; ; EDAS --> TEXOR TABMER: DEFB 0 DEFW 0DDDDH DEFM '>TEXOR' DEFB 1 CALL CUHOM CALL MOVER LD HL,(GAPEN) LD BC,200H LD IY,TABMER XOR A LD (IY),A LD (BC),A INC BC TX1: LD A,(HL) CP 0AH INC HL JR NZ,TX2 DEC (IY) LD (IY),0 JR NZ,TXX1 LD A,20H LD (BC),A INC BC TXX1: XOR A JR TX3 ; TX2: CP 0DH JR Z,TX1 CP 03H JR Z,TXEND CP 9 JR NZ,TXX2 INC (IY) LD A,5FH TXX2: CP 20H JR NZ,TXX3 INC (IY) TXX3: CP ';' JR NZ,TX3 LD (IY),2 TX3: LD (BC),A INC BC JR TX1 ; TXEND: XOR A LD (BC),A DEC A INC BC LD (BC),A INC BC LD (BC),A INC BC LD (BC),A RET ; ; TEXOR --> EDAS ; DEFW 0DDDDH DEFM '>EDAS' DEFB 1 LD HL,200H LD A,0FFH ED2: CP (HL) INC HL JR NZ,ED2 DEC HL ;1.FF DEC HL ;LETZTES ZEICHEN LD BC,(TEXTEN) LD A,3 ED4: LD (BC),A DEC BC LD E,(HL) DEC HL LD A,H CP 1 JR Z,EDEND LD A,E AND A JR Z,ED5 CP 5FH JR NZ,ED4 LD A,9 JR ED4 ; ED5: LD A,0DH LD (BC),A DEC BC LD A,0AH JR ED4 ; EDEND: INC BC LD (GAPEN),BC RET ;