Directory of image this file is from
This file as a plain text file

P1
 DCA NAME+2
 6152
 JMP I (600)
TEMP1,0
DPOINT,0
CNT,-1000
*600
 TAD NAMED
 DCA D1
 TAD NAMED+1
 DCA D1+1
 TAD (7201)
 DCA D1+2
 TAD (NAME)
 DCA D2
 DCA D3
 TAD I (7746)
 AND (7776)
 DCA I (7746)
 CDF 10
 CIF 10
 JMS I (7700)/USR IN
 10
 CLA
 CDF 10
 CIF 10
 JMS I (200)
 1
D1, 0
 0
 7201/DEVICE HANDLER
 JMP ERR1
 CLA
 TAD D1+1
 CDF 10
 CIF 10
 JMS I (200)/0PEN AND ENTER DEVICE HANDLER
 3
D2, NAME
 D3, 0
 JMP ERR2
 CLA CLL
 TAD D2
 DCA D6
 CDF 10
 CIF 00
 JMS I D1+2
D4, 5101
D5, 1000
D6,0
 JMP ERR3
 CLA
 TAD D1+1
 CDF 10
 CIF 10/CLOSE FILE
 JMS I (200)
 4
 NAME
 30
 JMP ERR4
 JMP DONE
NAME, FILENAME PATBUF.SV
NAMED, DEVICE DTA0
ERR1, CIF 10
 JMS I (200)
 7
 1
ERR2, CIF 10
 JMS I (200)
 7
 3
ERR3, CIF 10
 JMS I (200)
 7
 7
ERR4, CIF 10
 JMS I (200)
 7
 4
DONE, CDF 10/USR OUT
 CIF 10
 JMS I (200)
 11
 CDF CIF 00
 JMP I (200)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
                                                                                                                                600
BUFF1,0
*3200
BUFF2,0
*5600
  3000
$$$$$$$$$$$
$$$$$$$$$$
~|11+++40> +1,++,+,*8!+?+,*; ((/
2o0?61?9?
?
??,=608!<
p;?> .1.*>1(881)?.q>2.r
>
600
MORECS=2160
K5000=6765-DIFDIF
C1=7157-DIFDIF
C2=7160-DIFDIF
OUCT=7166-DIFDIF
OUCTLW=7265-DIFDIF
O7=7374-DIFDIF
I2=7566-DIFDIF
I3=7567-DIFDIF

*MORECS
 -OURECS+1
*K5000
 OUCTL@|@}nAo?`@?|ps`  /	
i p

Znx_ +mT!;!@
FUr&,S*D}c!\=~(!%\
pX-a8L>d>D=,+D*)D(@r67oo{w8+!OC7
  GtbpP"!u&<6M&JHd$;b=SrTnryr5R5uwQb\&K)i4@.3/i.K/ww&Sw
DI)iSau(/wu&w .u@/avuH/aIS=2aEAICKDLNPRJFTMGSYQB_# DvSS4cHfz!Db YzS#SScSSkSNSS6KF.K.S*2"X1A;_=V"1DDD#
}2\$K?IrqD
a./$ "6ruj(u(utu0)LJd	LC
NF ubqObGfW9b
*$
@|"axD"H>z`/>"(>zD B*bB:
GMT&Tt"	G
tFBF>nt nGBkf\H/
"BT+fY
 fff  UzfW*Fr	,

<aabJ
n
uj Ffa BBb(/ff4B	"fh3'1`C1*&"(o{r(/o;$W6
>*d6@Ob}/aR	u0)Lvbrr&uq&	LCaacL
|v(J8od>q
.(axu nv6bMJd@ou Hzr!.vudu!.rH/au0L 	lL
6N6
 NFubqud/5jckj)oD2 /\v$H@+-O D&?uqrD5)O&G)i9:9w9)":>?v1w2 o{wuFH+bO@k,$>0D,i("5D0!@oa
K
.rH/aP+	,I
< IvK'JI+Ovwu&F&RF&E@nu@/ST"GEjE@Nuub@oB.EQ"6FF:Jo000( pDHb(U{9s$DM)U2Ms!_*M)
xIHU{"_*"_*J(/fs"'@/ts&M)sxJU,9$<b=OrGf)
.*1kY
J\B(k{^K}p;b 	" 
"$HdZpa`"`#30-K@;(/k<2 -{-L-}?t~HXBM2iM)	zC
(OoX2M	b-
lx@M-M!,So+!VJHZiAn.'a[".ur(
~!Ef-o'.&uwfJAjQV:EhJTqf7o'o24
 +,-./<=>"$:qu(/qu&ut
ub0
 Ff/91E2!wbH'z{ .wh/aE0v
{b0uw0)w	lvK6uv7wu7Kw'
oKr\l!C2{!ObG /H(/*C25E	lOEsGbJ _z Gf bEct
*K
 XzEYzH.A >FWi(/lD"IFd"D:iIB+u!.wH/auEwb{8k4h683144!+HzCb4
O,0
OU /a ugbT%rb$k_Y+!,j5&Uu!.
vbrH/a-q/rK&D<k:	t /OrLNrOOrLdO&G
l=S8Qz0
uISi3DS
[Y'Ubo7bozrbzbXzrW6rMHd[.'SnJtKU^<J
n
`
Hnw0l	z
<(axr(/'"o
k=
,V^ 	l
|?	{DDb("H?\S2j
t

n

n{&l!.J6)!6)6){<"6=jk0CA	{XM&>H?]l9o}6b|&o{&	nEpm#mrs[sc{
l{H`+,V^
I	q!le#(%{6gSc>e^}t7n{o&}o'|b&B FULL
'"{UO0{!l#*"6{6!^lmaq0+lm9!4J7o'oG3(axlCBy
~uBk_w+lqD2t%qlD,@.O}"TzO!.
W"wVk4p +O&rqfpokrC n{ph6q
<
`h,on{7_s	p~
@lpv|ENKHl / z"vybqb6J)9@vJ vfD"
zq
.qb!ybtgt(/]h(q0)Lxf	LCsscw
lq!.rH/]s" nF/issb /Cq$hx	wB*s"r /Lx$ ufd7
uVJFH/U .
& Ffhx7x"t(/br" 
~qoKdhkjyc(Yz!rfh$0
lr5
vw&~&}&
C	GJf%*K	HC
I@J /1
,K

lLDP1	,M(?1N#cO /1,P	<g3J
QBRb		cSt;@*CCG@C BLVpxqx@^?P?|_(j pB+<eRmtbWo&mF.nMWWWbPub0vzs%0Z{y
?$CxH+&;iK%F^U/PART OF CRUDS WHICH RESTORES BUFFERS
MQL=7421
MQA=7501
BSW=7002
FIELD 1
*3200
A, CLA CLL /DISPLAY A NAME BUFFER
 TAD (-7)
 DCA CNT
 TAD (BUFFER+1)
 DCA DPOINT
 TAD (3000)
 DCA I DPOINT
 ISZ DPOINT
 ISZ CNT
 JMP .-4
 CLA CLL
 TAD (BUFFER)
 6150
   TAD (10)
 6151
 TAD (BUFFER)
 DCA DPOINT
 A1, KSF 100
 JMP .-1
 KRB 100
 AND (0177)
 DCA I DPOINT
 JMS FIND
 ISZ DPOINT
 CLA CLL
 TAD (BUFFER+7)
 CIA
 TAD DPOINT
 SPA CLA
 JMP A1
 TAD (BUFFER+6)
 DCA DPOINT
 JMP A1
FIND,0/ACCEPT A SIX CHARACTER NAME
 TAD I DPOINT
 TAD (-54)
 SZA CLA
 JMP F1
 CLA CLL CMA RAL
 TAD DPOINT
 DCA DPOINT
 TAD (BUFFER-1)
 CIA
 TAD DPOINT
 SMA SZA CLA
 JMP I FIND
 TAD (BUFFER-1)
 DCA DPOINT
 JMP I FIND
F1, TAD I DPOINT
 TAD (-15)
 SZA CLA
 JMP I FIND
 JMP COMPRS
BUFFER,0063
0
0
0
0
0
0
0
COMPRS, CLA CLL/COMPRESS SIX CHARACTERS INTO THREE WORDS
 TAD BUFFER
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+1
 AND (77)
 TAD TEMP1
 DCA NAME
 TAD BUFFER+2
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+3
 AND (77)
 TAD TEMP1
 DCA NAME+1
 TAD BUFFER+4
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+5
 AND (77)
 TAD TEMP1
 DCA NAME+2
 6152
 JMP I (3400)
TEMP1,0
DPOINT,0
CNT,-1000
*3400
 TAD NAMED
 DCA D1
 TAD NAMED+1
 DCA D1+1
 TAD (7201)
 DCA D1+2
 TAD (NAME)
 DCA D2
 DCA D3
 TAD I (7746)
 AND (7776)
 DCA I (7746)
 CDF 10
 CIF 10
 JMS I (7700)
10
 CLA
 CDF 10
 CIF 10
 JMS I (200)
1
D1,0
0
7201
 JMP ERR1
 CLA
 TAD D1+1
 CDF 10
 CIF 10
 JMS I (200)
2
D2, NAME
D3, 0
 JMP ERR2
 TAD D2
 DCA D6
 CDF 10
 CIF 00
 JMS I D1+2
D4, 2300
D5, 1000
D6, 0
 JMP ERR3
 JMP DONE
ERR1, CIF 10
 JMS I (200)
7
1
ERR2, CIF 10
 JMS I (200)
7
2
ERR3, CIF 10
 JMS I (200)
7
7
DONE, CDF 10
 CIF 10
 JMS I (200)
11
 CDF CIF 00
 JMP I (200)
NAMED, DEVICE DTA0
NAME, FILENAME PATBUF.SV
$


Note: Lines longer than 256 characters were wrapped