;*; Updated on 06-Dec-91 at 10:26 AM by Michele Tonti; edit time: 0:00:28
;*************************** AMUS Program Label ******************************
; Filename: LFCRLF.M68 Date: 12/6/91
; Category: UTIL Hash Code: 563-465-400-247 Version:
; Initials: KUNI/AM Name: RENE S HOLLAN
; Company: UDISCO LTD. Telephone #: 5144818107
; Related Files:
; Min. Op. Sys.: Expertise Level:
; Special:
; Description: Convert LFs in input file to CRLFs in output file.
;
;
;*****************************************************************************
;*************************************************************************
;* *
;* LFCRLF COMMAND PROGRAM - Ver. 1.0 *
;* *
;*************************************************************************
;
; NOTICE
;
;All rights reserved. This software is the property of UDISCO LTD. and
;the material contained herein is the proprietary property and trade
;secrets of UDISCO LTD., embodying substantial creative efforts and
;confidential information, ideas and expressions, no part of which may be
;reproduced or transmitted in any form or by any means, electronic,
;mechanical, or otherwise, including photocopying or input into any
;information storage or retrieval system without the express written
;permission of UDISCO LTD.
;
;Permission to copy and use is granted to AMUS members for non commercial
;purposes only.
;
;
; LFCRLF: Program to convert input files with LFs to output
; files with CRLFs.
;
; Author: Rene S. Hollan
;
; COPYRIGHT (C) 1986 - Udisco Ltd., Montreal, Canada.
;
; Edit History
; ------------
;
; [100] 18 Sept. 1986
; Coding starts. /RSH
;
;
VMAJOR=1 ; major version
VMINOR=0 ; minor version
VSUB=0 ; sub version
VEDIT=100. ; edit version
LFCRLF: PHDR -1,,PH$REU!PH$REE ; program header
GETIMP IMPSIZ,A0 ; A0 --> impure area
BYP ; skip blanks
MOV A2,A3 ; save input line pointer
FSPEC IDDB(A0) ; FSPEC input DDB
BYP ; skip blanks
TRM ; are we at end of line?
BNE 10$ ; not yet
5$: MOV A3,A2 ; restore file name
10$: FSPEC ODDB(A0),LST ; FSPEC output DDB
INIT ODDB(A0) ; and INIT it
INIT IDDB(A0) ; INIT input DDB
OPENI IDDB(A0) ; open input file
OPENO ODDB(A0) ; open output file
20$: FILINB IDDB(A0) ; get number of rows
TST IDDB+D.SIZ(A0) ; end of file?
BEQ 90$ ; yup!
MOVB D1,D0 ; D0 = byte
ANDB #177,D0 ; strip parity
CMPB D0,#LF ; is it a line feed?
BNE 30$ ; nope
MOVB D1,D0 ; save byte
MOVB #CR,D1 ; send a CR
FILOTB ODDB(A0) ; ...
MOVB D0,D1 ; restore byte
30$: FILOTB ODDB(A0) ; output byte
BR 20$
90$: CLOSE IDDB(A0) ; close files
CLOSE ODDB(A0) ; ...
EXIT
