Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/forcnv.c05
There are no other files named forcnv.c05 in the archive.
REP 2/1 ;05C1
TV FORCNV CONVERSION ROUTINES ,6(2033)
;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
WIT
TV FORCNV CONVERSION ROUTINES ,6(2104)
;COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
INS 292/1 ;05C2
***** End V6 Development *****
2037 DAW 1-Feb-82
NAMELIST input runs too slowly if a large array is read
one element at a time.
2057 TGS 25-May-82 20-17764
Make sure the 2nd FORFMT encoding word is cleared during
NAMELIST and list-directed initialization so Edit 2051 will
work.
2067 TGS 23-Jul-82 20-17814
Add leftparen and equal-sign flags as legal delimiters to
prevent incorrect diagnostic when a NAMELIST variable begins
with T or F.
2104 TGS 16-Sep-82 10-32993
Improve check for sign characters so FORMAT(I), (O), and (Z) won't
loop when given bare "+" or "-".
REP 6/2 ;05C3
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 7/6 ;05C4
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 12/14 ;05C5
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 6/30 ;05C6
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
INS 39/31 ;05C7
TXOA T2,DGSEEN ;[2104] TREAT SIGNS AS DIGITS
JRST INTI4 ;[2104] NOT A SIGN CHARACTER
REP 6/35 ;05C8
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 6/38 ;05C9
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
INS 34/39 ;05C10
TXOA T2,DGSEEN ;[2104] TREAT SIGNS AS DIGITS
JRST OCTI3 ;[2104] NOT A SIGN CHARACTER
REP 6/41 ;05C11
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
INS 41/42 ;05C12
TXOA T2,DGSEEN ;[2104] TREAT SIGNS AS DIGITS
JRST HEXI3 ;[2104] NOT A SIGN CHARACTER
REP 7/44 ;05C13
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 6/47 ;05C14
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
REP 11/54 ;05C15
;COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
INS 11/55 ;05C16
EXTERNAL ENC.W2 ;[2057]
REP 8/56 ;05C17
EQUFLG==0
WIT
;[2067]
REP 38/56 ;05C18
WIT
EQUFLG==2,,0 ;[2067]
REP 24/59 ;05C19
MOVX T1,COMFLG+SPCFLG+ALFLAG+NLEFLG+NULFLG+ASTFLG ;LEGAL DELIMITERS
WIT
MOVX T1,COMFLG+SPCFLG+ALFLAG+NLEFLG+NULFLG+ASTFLG+LPRFLG+EQUFLG ;[2067] LEGAL DELIMITERS
INS 9/60 ;05C20
SETZM ENC.W2 ;[2057] CLEAR 2ND ENCODING WORD
REP 20/67 ;05C21
MOVE T1,NLNUM. ;GET # ELEMENTS LEFT
MOVEM T1,NLRP. ;SET FOR REST OF ARRAY
WIT
SETZM NLNUM. ;[2037] NO ELEMENTS LEFT
SETZM NLRP. ;[2037] NO REPEAT COUNT YET.
SUM 255565