Trailing-Edge
-
PDP-10 Archives
-
bb-j710b-bm_tops20_v41_tools
-
tools/sed/sedonl.mac
There are 13 other files named sedonl.mac in the archive. Click here to see a list.
TITLE SEDONL - TRANSLATED BY MACRO
;ACS
T0=0
T1=1
T2=2
T3=3
T4=4
F=5
DO=13
CR=14
CT=15
PP=16
P=17
START: MOVE P,[IOWD 4,STACK]
GOTFIL: OPEN T1,INBLK
HALT
LOOKUP T1,INNAM
JRST LUKERR
OPEN T2,OUTBLK
HALT
ENTER T2,OUTFIL
JRST ENTERR
LOOP0: SETZ CT,
LOOP: PUSHJ P,GETWD
MOVE T4,T1
CAIN T4,14
JRST LOOP2
PUSHJ P,PUTCHR
AOJA CT,LOOP
LOOP2: PUSHJ P,GETWD
PUSHJ P,GETWD
CAIL CT,1200
JRST LOOPS
SETZ T4,
LOOP1: PUSHJ P,PUTCHR
CAIGE CT,1176
AOJA CT,LOOP1
MOVEI T4,14
PUSHJ P,PUTCHR
JRST LOOP0
LOOPS: OUTSTR BLKERR
PUSHJ P,GETWD
CAIE T1,14
JRST LOOPS+1
JRST LOOP0
GETWD: SOSGE INBUF1+2
JRST GETIT1
ILDB T1,INBUF1+1
POPJ P,
GETIT1: IN T1,
JRST GETWD
CLOSE T2,
EXIT
PUTCHR: SOSG OUTBF1+2
OUTPUT T2,
IDPB T4,OUTBF1+1
POPJ P,
LUKERR: OUTSTR [ASCIZ /SEDONL.TXT IS NOT IN YOUR AREA
/]
EXIT
ENTERR: OUTSTR [ASCIZ /CAN'T WRITE SEDONL.HLP
/]
EXIT
;DATA
INBLK: 0
EQVM 7,(DO)
INBUF1
INBUF1: BLOCK 3
INNAM:
INFIL: SIXBIT /SEDONL/
INEXT: SIXBIT /TXT/
0
INPPN: 0
OUTBLK: 0
EQVM 7,(DO)
XWD OUTBF1,0
OUTBF1: BLOCK 3
OUTFIL:
OUTNAM: SIXBIT /SEDONL/
OUTEXT: SIXBIT /HLP/
0
OUTPPN: 0
STACK: BLOCK 4
BLKERR: ASCIZ /%BLOCK TOO LARGE
/
END START