;---------------------------------------
; TR - Translate chars         23/6/1991
; Last ammendment: 23/6/1991
;---------------------------------------
         *= $0c00

indr1    = $02 ;ZERO PAGE
indr2    = $04
stderr   = $06
stdin    = $07
stdout   = $08
indr3    = $12
indr4    = $14

count    = $5d
t1       = $5e
t2       = $5f
stdost   = $60
stdonum  = $61
stdomode = $62
stdinum  = $63
stdist   = $64
dwork    = $68
stdolen  = $6a
stdilen  = $6b
nountot  = $6c

openfnum = $0906
close    = $0909
chrout   = $090c
chrin    = $090f

strout   = $100f
nounnum  = $1018
nounstart = $101b
nounlen  = $1021

;Error messages
; 12  End of File
; 24  Failed
;---------------------------------------

; Get nouns and chk if legal


; Open files, cmp and swap chars

         ldx stdinum
         lda #3
         jsr openfnum
         bcs trb
         ldx stdonum
         lda stdomode
         jsr openfnum
         bcs trb

tra      ldx stdinum
         jsr chrin
         bcs trb

    ; Determine correct char

         ldx stdonum
         jsr chrout
         bcc tra


trb      pha
         lda stdinum
         jsr close
         lda stdonum
         jsr close
         pla
         cmp #12
         beq *+4
         sec
         rts
         lda #0
         clc
         rts


