HIGH SPEED TEXT SEARCH SYSTEM HSTS SOFTWARE LISTINGS VOLUME 2 OF 5 CONTROL COMPUTER SUPPORT

• Document Type: CREST
• Collection: NGA Records (Formerly NIMA)
• Document Number (FOIA) /ESDN (CREST): CIA-RDP85-00514R000100040001-2
• Release Decision: RIPPUB
• Original Classification: K
• Document Page Count: 394
• Document Creation Date: December 28, 2016
• Document Release Date: June 27, 2005
• Sequence Number: 1
• Publication Date: March 1, 1980
• Content Type: REPORT

Control
Computer
Support
SF)Mww Data Base
Update
L-=-Fm
^
TEM^T
^
EA SYSTEM
 Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
HSTS MASTER COMPUTER SOFTWARE LISTINGS
SL120100
VOLUME 2 of 5
Prepared for:
Central Intelligence Agency
Washington, DC 2050:5
0
R80-016
STIR
Approved For Release 2005/07/1
 Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
--
C-)
0
N Z
O
o r
0
-
c
-t
rn
70
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 INITC:C- - MACRO-t-11 110 2?-MAR--80 14:2 roved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
TABLE-OF?CONTENTS? pp
8-
2.
MACRO'S ? AND ? CONSTANTS ?
9-
18
ASSEMBLY-TIME DATA. DEFINITION?
1Ft-
CO
IN ITIALIZE?CONTROL COMMON.
? Approved For Release 2005/07 CIA-RDP85-00514R000100040001-2
 INITCC- ? MAoM1110 27-MAR-60
14:2R
ppr ved For Release 2005/07/ 00040001-2 0
1
T ITLE??INITCC????
J
4
SBTTL ?
MCALL-
MACRO " S ? AND ? CONSTANTS ?
NMBLK$.FDOF$L.FCSBT$,FIHIT$
i
MCALL
j?ji_ALL
FDBDF$.FDRC$A.FDBK:$A.FDOP$A.FSRSZ$
E;I Tss
B
iGLOBL
DIRP?4.DIRP75
9
#LOBL?
.GTDIR-
10
11
L.UNS ?
12
000001
DF`LUN=1
13
14
e MISC ? ECjUATES-
15
eit7EiF~eii
EF': iii=1
: 1/O EVENT. FLAG
15
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 INITCC-?MACRO?M111H 27-MAR'-B0
ASSEMBLY--TIME? DATA? DEFINITION?
14: 28. pproved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2.
19
20
21 0100C1F10
22 ? 101_101_100
IIUMMY? FDB
F.DOF$L
FCSET$
24 0000100 FOB: FDBEiF$ _
25 000140 FDROsA? FD:RLJM?
2G u00140 FIiir H t,L iFFE__ R. N HF2, EF : 10 , 10 STA T
2 I_[1O140 F1!i_P kl1. DPLi_iI'.a.
29 000140 FSR?E$ 0
30
1 ;IUt"1M'r NHt"1E BLOCK: TO GET 0 IREr.TOR '?F1D"S
32.000140 DUMHBK6 HIIMMBLK$ Y:0
33
34 LfIN : j'ILiY NHI"IE 'L CS IF I!J `
35 jI3i176 000005 LiRD!:.I; ,:i_hL
Oi~t_i2H1i_` 133 95 054 D1.FIiT1 ASL.II -L7P is
37
000205 0554 135
. E'?,'EH
4~1k110L1JD RD S2 WORD. J
.40 00021.2. 06621W .LORD . DI R D 12
41 uhk 14 133 L l b ( u 5 4 .t.i kD T 2 H5L: 1 1 - 'L , 5 _t,i
00021 f' C165 135
x'1.2
43
44
?45 0IJ6_i'2 2 2' ' Li U 41 1 1-1
4r u010W2-+ 0 'IAMIJI0G
4( 0002226
4'_:I
FII
5 1 0002-3.2 ?
0
; ii 1REi_ I iRi H1!L 1?ES I I ICLE
D..I TBL ii_il 1 1Ir1`i
b.110 RD DIRP 4
_IIiL) D1h'D!f
wUMLD' L' 1I'"fY J
M I S C ? LOCATIONS.
LIIL-IFFER; ;DUMMY BUFFER.
i US T A T . BLKW. :1/0-STATUS-BLOCK-
Approved For Release 2005/07/VCIA-RDP85-00514R000100040001-2
 INITAL?IZE L. NZA1~ M111 TROL0 27- COMMONMAR-COMMON142a ppProve
INITIALIZE d*or Release 2005/07/14!CIA-RDP85-00514R000100040001-2
JJ
56
5 000236
5-3
FINIT$
59
G 1 0H'242-
012700
000000'
, [NIT FID''_; 0F?SS'r'STEM?I?IR'ECT0RIES-
I MO`?,' *;FI.'Ei.RO
FDEi ? ADDRESS ?
62-000246
012701
000140'
P DLiMMY NAME ? BLOCK
63
'
-DIRECTORY ADDRESS-TABLE.
64 A00252.
01270.3
22
0002
66
:
LOCiP . Ci iLIHT?
r: 000262-
012302-
D [RLOP; MD`t (R3) +.R2
DIRECTORY DESCRITOR AI:DDRESS
G, 1_i 000264
CALL GTD iR
aGET ?0IRECTORY?FIID?
b9 0L02 7 0
01230_?
mov (R3)+.R2
CoMHO N?'ME1,10R?V ADDRES ?
70 000272?
016712?
177666
MCI'--1 IiUh?1HBK+N D I D, (R2)
a COF'"r F I Ii . TO CCOh1
71 000276
016762.
177664
000002.
DitMHBk::+N: Ii II:'+2, 2 (R2)
72-000304
_
0 11_ f n.' ?
177660
000f-7104
E"11_1??4+' DUMHBK 'N DID+4,4i:R2)
1110 '\)
1`3 6603%12-
005304
DEC R4
74 F1 1_i LI 3 14
Ej E_'I 1 6`'? ?
BNE? DIRLOP-
7c
?
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 II NITIHLI EC CONTROL-COMMON. RTCC 14: 2WpProvec ~or Release 2005/07/14: CIA-RDP85-00514R000100040001-2
f ~' P
OOi ; 6 END IHITCC
0 Approved For Release 2005/07/0CIA-RDP85-00514R000100040001-2 0
 INITCC- ? MA M1110 27,-MAR-90 14:2 AG
SYMBOL - TABL '~ppProvEec 1For1Release 2005/07/10CIA-RDP85-00514R000100040001-2
BI IVAL=? 15451_14_14_18
BITO =- 01110001
BIT! ='000002
BIT1B = 002000
BIT!! =.004000
B1T12 = 0111E-15E1
131-1-113 =.020000
B1T14 = 04000E1
U 1 11'_1 = - 110U1515L
BI T2 =.000004
BI I. =?UiiULi1U
B 1 1 4 =.000020
BI T5 =.045151140
BITS =? 000 100
BI T7 =.45450200
BITS- = 000400
BITS =?051055
BUFFER 000232R?
BY T EB = 0100 U0 01
BYTE 1 = 00005 I
BlYTE2 ? = 0150052 ?
BYTE3 =-000003
BYI E4 = 000004
BYTES =- 01000015
BYTE6 =.000006
BYTE? = 00000?
BYTE0 ? _ ? 0000 10
BY'TE9 = 011:00 1 1
BYTVAL= 000012?
CF COT= 000041
CFE?GN=? 0E 101546
CF; L'HR.= 00004..
CF :I?MC= 0100104
CF:HBR= 110001:1.5
CF HRL= 1500044
CFLPD= 01501543
CH: AHD= 1_10000 1
I:'BSLEH= 000116
DG:ERR'= 1_1[110015
E'G.'SDF= 0012000
1:'G I DF = 0040011?_1
D IRDS 1 000 1 6R-
D1RDS2 000210R?
DIRDTi 0002112R?
D 1 k U I 1 1 0 1 1 2 1 41-'
I:' I RI-CIF' 0010r2G.2R ?
L:'1k'F'r'4= YY:? t;y':j G.
0' IF'Pr" i=.y;****-- G.
Ii IRTBL 150E-222R
DPLL IFi = S. 0010001 1
I?LIF-1NBK.. 00014A-R.
EF 10 =.' 00001
FAAPD= 15151510'111
Fi-i CRE= 000010
FI-1 1_'1_1'.= 01 111500
FA EHB1= 100000
FAL-i = LL20150
FA; E.r' I = ? 000004 FO, WP T= ?'510016
Fi1:HSP= 000100 F:ACTL=?000076
FFI NUB= U 14=10UU F . ALI_IL=' U0U040
`- :. 80080 -
I-t-I : RD ? 1 t' CI B F S = U ? tIULJt,2
FA6RW0=-004O 0 F:i=I?B. = 00041(0
FA SEE'= ? 040000 F BGBI_ = ? 0015057
FAA _iFlk;= 0111001411 F UY:.L?N=' UL!UU 2b
FA TI-1P= ? 0000'20 F BKL'S= 01500020
FA :LJCK.= 120000 I- UK.EF= 000051
FA I-JRT= 0000152 ? F BI,"P 1 = ? 00005 1
FDC OO0I_7OUR. I = LIIUUICI24
FD BLK = ? 0000 10 F : BKVB = 0001064
FU:I_C:L= 0001_10' ? F :1_HI.. T5
FI' COi?1= 020000 F CHTG= ? 00001 34
FDLk?= 450000'2? F: L'FNU= Fi r_ii r_I r`I
FI' L'IR= 000010 F;DSPT=?0000144
FI:I:FiD 10 1 E1 I^ - - 0011_ -,.`';,i-IM - .,
-3 , I F ;:~I,If = JL_~
Fl' FNB 0NUE1E16 003 F EFBi`:= 011[11_114_1
I-Li IN=-000011 1 Li N = 0045115:=
FD F'',''R 11000/54 0003 F EOBB= 1113 0 0 3 2 -
FDF11= =4:=:=1=:: F:ERR _ -3E1 52
FI.' I11S= - BOOS 100 F FACC= Fi00Fi4.
FL' ISP= 0020001.1 F:FFBY= 0001514
FI:' LEH 00100 10 001= 1= ;FRAM= ? 000 1 10
FD 6 MIT= 1000001 F 4 FI'1B = 5010 1012
FI:1; OSP= 0104000 F : FTYP=. 0001 16
FD: PLC= 000004 FF''.;'ER=? 0001201
FD:F'I='N=-000004 F,HIBK= /10/1054
FE' PSE= 0 10000 F LUH = 000042
FDRHH= 0000101 F.I,1ECT= 0U151D54
FD: RAF1= 00000'2 ? F I`IBC 1 = 000055
FE'. REC= ? 00000001 F t?MBFG= 000056
FI?,RLJM=?000001 F.IiRBI:'= /2101/210124
FL' :=1L:' I = 111211210211 F HREC:= 01121E-453E1
FI',SIJLi= 000040 F,O'';'B'S= OC10C30
FE' : TTY= ? 0000104 F , RAFC= /21000016
FD : 1,-1BH= 000002 F, RATT= 000!001
1:7 FC1-1R= 0010005 F,RCHM= 01001034
FFHl.? = 000003 FRCIL= 12101001E
FF:POE=?000002F:RSI?= 00!0002?
FF 6 RL,1D= - IIUOI [.',' 1 F R I YF'= - 000000
FF:RI,,IF= 1100Ei06 F:SEQH= 00011-10
FF:~PC:=?1100012'14 F::=SPI:'000072?
FN:ACK 000016 004 F:SPUN= 000074
FHi FSA 000000 01:.14 F T BK. = 000036
EM:FSB 15150002? 004 F6LIM1T= 0100136
F H , FSC 000004 004 F : I iREl1? = 000020
FI?I:.F'SI? 0000'0 004 F''.%BA = 0000064
FNE"IFIP. AAI_iA;10 004 FU`, = 001_10160
FMiHF-10 0001022- AM 1 iNITCC 15111 2368
F N I I L S 0004506 0 0 4 l L I b I A I . 1_11_10 - J , - , I?.',
FN: RI?C 00001.4 00004. M'3. I?11 H= Li 1001110
FH; 012'1:1 1,0001,': ? 111_14 H = :10 '.-1V11.'2 -
FO 6 API'= 01 01 0 1 015 NB. DE\ = ? 0102001
FCI : f IF Y? 00000;_' ? H13 . U 1 P. 1L-1LJ I 1U
FC1 RI:' ? _ ? 0001/101 1 HB . HAi-i= ? 00012_;04
HB:SD2=? 001000
NB SHM= ? 000041
HB, _':'R= 00001 J
NU : I'YF'=- UUUU02.
HB,'VER= 0001501
N:NFUI_=. 000004
H ; BHGH = ? U0000r
H; Bu I CH= ? 0001_104
H,BLiFB=? 004000
N BIJI- Ld= ? UU2 LLIUU
N Ii I I?{ _ ? 000024
H, D.,11=' 0100 2
H FID =?000000
H F Ili-111-' 0000 ,lb
H;FOS = 000764
t.1 F T'._'6 = 01010 'j
H ; FvER = 0000116
I'll :1.1E,NT = 1.10015.2
H;0LRY= 0000.'1
k J i riT= _ _ _
N; SUFIT= 000002
H:UNIT= 100034
R ; F I' = 000001
R,SEi = --__-_
SR:ARE 1.1100114
SR: ARS 000106
SR:DAY 0000110
tiR;I?LT 0101F0014
SR , ECB ? 0000147
SR:ECH 110011-145
SR ECL 0001051=1
tiR:FIB 0010012
SR:GRE 000100
SR GR.`=S 00 0072 ?
SR, LEH 000122
tiR:LIN 000065
SR:LiP? 000062-
SR ;MOH 000001;
SR NL?IL 0UUU42
SR HI?S 000036
SR:MIH? UU003U
SR:HiP 000022.
P =;L:'B ? 1214.14_11213;2.
=1R SRC 000002 ?
_i- SUN 0001100
SR: ILJS- 12100056
SP LIL_- L (:1 I_'I 1_1 F15';'-
SR:'YR 1010000.4
iN Ff..fl, .._.._.,_
ER, 1. i F' i_ 000 16
._:UFHi:'=?00AU1;'121
S,FA11=?0010016
S;FL:'U = 01'10140
_.F1-1AM= 100, 0 Fii5
FNBLI= ? 00001 T
B . FHT.,'= 111 10004
SF TY'F'= 01LIUU02,
HFEH=. 000'02-1
IDSI IR=? 176770
TD$CTL,I=? 176360
IL'$IHL= UU-10UU
TD$MEM= 0010270
ID$OAR= !7,6344
TDsf'TR= 1176346
4
IL' C!" 00 0 2, 7
TI?$RST=?175366
IL.'sssu = 1rb r6
TE'$TAR= 1 I-53;2
IL''#'IAW=- 1763 6 2
TDSTDR= 106374
T I:'$?-`E'1,.1= 17 5354
'SHI1 = UUU1E12U
I 011u002
T$BD = 0110010
1}DCfl _ 1,J r_i04_IJ
T$BT =.000020
T$BTAR= 01000301
I $BTI . 00.'00
Tsrr, _ rlal-i,l~l-.
-Y'_?L rir iri l rir
T$CLK- C-1 f, 1:7, 1--1 F1 LEI
00'2 T $ D I SK= 0001200
Ur1'2?T`TDRD =.00100!_14
01? ? TAEMEM= 01"1UAI_1
F'IA2 TT F:_ I-III= 0 00000
002 I SFSHB= . 00U0U4
00'2 ? T$FSAC:= I1I IF10 14
002 TIFF S B2=.0001010
A02 T-$IB =?0E_11210125~
0102 T$ IBAR= 0010024
121 01 - I $ I B E . _ . 0 2121 1210E 0
002 TS1BF - _- 04001010
002I$1CL' =-00004H
002- TSF'1UDE=.1211::1=10121121
002-T$013 = 00101036
002 I $OBE = 004000
CC12 T$OBF = 0101000
002 ? T $OBRA=. 0001034
002 ? TIOBWA= 000032
0112 I-I11-1TA= 100000
002 ? T$RBE'0= 121E 1121200
UU2 SiMU = 00121040
002T$RSE1=?040000
12102 1SSI_ ='12UUU
C F12 ? T$SCLK= ? 020000
1014.12. i $SLIv; -1UU.I.1
v 1 = I~10E ~v.v.
002 I $SEC2= 00000.1
I $SE 3= 4:1 _100001:'
T$SI I = ? 0111000 1
I .'Ul~1_S= 11;
T -.'.t _10'04010
FLI:L'NL=? I_IF_IO1545i-, Nb-5011=.UUU4M145 ',F-,HB = AF-1 ACE1?j=.x14_1:145'. 121
Approved For Release 2005/07/14: CIA-RDP85-005-14ROO0100040001-2--
?
 I N I TCC -? MACRO ? M I 1 10 27-MAR--SO
SYMBOL TABLE
14 ` 2' p6 te8 IFirr Release 2005/07/14: CIA-RDP85-00514R000100040001-2
L _1RL H1 = ? 1=14:1[19013 IJORD4 =.000010 WORDS = 00I_1O20 F RICE= 0 ? C-'2 _ ? #100 1748 ?
Ld 1-1 F., L i LII IR. D5 _ ? 910410 12, ? W1 IN11!-1 _ ? I_10 0 41'?? ? G 11) 1 1. - ''""t::t':h::t::t? u
I,IORD2 = 994_i0i0.4 IJURD6 =.00001 I~ 'Ft,'%AL= II I_1 F_' } T~i'_
IORL1.n =-00600-6 I II IRD7 = . 090 VI 1 6 F I H I I = :'+^:?f':i:i
NiLr?./ .
i . S11:
ENDC?
.EHDM RESTOR?
t1HC ail H02 U S 1-SG PAR
t"101 4' 19E; IG } - l .E P .?
IF HEI PAR>.
MCI ;"I PAID'?-( F)
. E:NDC ?
.IF'. B.
CLR? -(SF')
i S,R ? PC 6 M.SGOIUT
ADD. *4,SP.
PEDIT-OUTPUT?MSG STRING AND?PRINT- IT?
RESTIORE?STACK POINTER.
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 . MA IhI:
MACRO ? r11 i 10 E7-MAR-E
13:54
AppM66 For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
142
144
SYSTEM- EQUATES.
145
145
000004
N:BTCH=4
MAu?NUMBER-OF ACTIVE BATCHES
14
E000805
N E.HGH=*2.
H IGH ? BATCH NUMBER
148
0 8 8 83 1
H; C!LIR1-='15.
; # OF.QUERIES. IN- A- BATCH.
1 49
F1 I_I 8 76 4
H FCIS=508 .
t?1Ai -# OF-FOS?EHTRIES? (DOUBLE-WORDS)
150
00.2000
1-i;E1LiFL=1024.
ILE OF SYSTEM BUFF ERE 1::ilORDS:i
151
084000
H:BUFEi=H:BUFLJ*2.
= EE ? OF .S'Y'' T Et" BLUFFER` (B'vTE )
151?
880004
H;BFAC:=H:BUFW/155:
:w-- C IF. SSECTORS IN SYSTEM- BLOCK
153
008001.
H SLINT=1
; NUMBER ? OF SEARCH -UNITS
154
155
156
1`1(
i.58 000000
. I SEC I ' JRCO
F A
A8 J'
155 k7k~ti .1Li5
...R SUH BLKW. 1
.:SEARCH- UH I I - NUMBER
1115 c0002
_'- BLKW.
?-H- TIr1E OF LAS T =SEARCH SEC
1l 1
BEGINNING i-F-DATA-BASE SITATi_1E AREA
1i 008884
SR .'1''h'
. BLKI I.
1
YE1-1R
15.3 511~4I~13Fj6
SP :MONt
BLKW?
1
MONTH
164 660-0-10
SSR.6L:A`T
BLI-::H
1
OF-DISK. INIT?
155 000612-
SR:FIB
BLKJ -
1
F=ILE- IDENTIFICi=1TION?BLOCK
161n 008014
SR DLT e
BLk::U-
1
;DELTA FOR-INDEX SECTORS- REPRESENTED
157 008015
R: III';
BLK W-
. 2iDDR'ESS.OF F1I I IPR
1155 0000111.
SR:NIP:
BLKW.
1
;NLIMBER. OF- IPR.'=SECTORS- ON.9iC;K
1691 0041024
SR; I IN;
. BLK:JJ
ADDRE=SS . OF .FIRST- I I.1DE:x . RECORD ?
170 4114114110 ?10
51_Lu
i
:t'ilitleER U I.'i 1~r 1S-Al I OCATE
1.
17i 1010Vi0 ;1 ?
E F :SIDE.:
BLr:,I-J ?
ADDRESS - OF T I=1 FT 0F IiHTA EiN`lE
17 ,_ ? I_I I_1111 F i . 6
SR: NI:1E1
E?Lr::i,i
HI it1BEF OF - S1O1L I !t?1EHT=~ AT IH I T
173 000042-
3R HDC
BLri:I
?
i:_ HRI EMIT NUMBER OF DOCaUMENTS
174 0000415
SF' ECH .
. BLKB.
1
; FI I GH ? ORDER . ADDRESS . OF . EOC
17'5 88004(
_.F.EL:E
.E.LKB.
1
;BYTE- INDE: .OF-E0C
1 (r5 000050
IR
I_ I_. _
01 'L11-
.~i_ r..
1
.I W - _I ~? C 11 E C r?. - ri ^P i% - i? r?.~ G E C_~ S C ~
= _ . O F E I_I I_
177 000052.
SR LJSL
BLKLJ?
; FJH 1 TE SPACE- AFTER ? EOC .
17.8 000056
=;R -11, r!::
BLKW.
2.
TOTAL WHITE-SPACE.
1 (9 4110006
R l._ t l
B;-KW.
._
(-I D 111? E ~' I F L ;~ I E _I f-1 I` R
1 ":0 4/180416b-
SF:1:
BLKW.
2-
IAIDDR.ESS?OF-LATEST? IR
18 1 000871
SF:GRS:
BLKW?
--
;GI'?1EN START-1:10C ID.
1. I'1 ? 555155
SF:GRE:
.BLr:W.
_
;GI`+iEN END - DOC.ID -
11=1~I 555155
IHK:D
.BLr:.W-
;LLlNf.='.ErlI _1IHRI -DOC- iD?
184 555114
'-SF 6 ARE,
. BLKW.
3
I_ L IRRENT- END . DOC ID.
185
1E.r
I:BSLEN=.
3R:YR-
LENGTH.OF DB STATIJS-AREA
1 8 ( 11113 10, 12.2
R:LEN
LENG I H - OF - STATUS ? RECORD ?
1. 8
7.1
.PSECT? FDSCOF,ABS-
FD;FID: BLKLJ. ? .-FILE-II).
FD1: FVR.: . Bi_KW I 1?-ERS IOH ? NUt"1BER ?
FL' FNB . BL11:.I,-1- i : F 1 LE - NUMBER -
FD; i_EN ? LENGTH - OF - FDSC -
Approved For Release 2005/07/s CIA-RDP85-00514R000100040001-2
?
 ,MAIN; MA0ri1110
27-MAR-80 13 , 5Apo e6 For Release 2005/07/1? CIA-RDP85-00514R00010004000,1-2
000041
000042.
C :MAC: ? - CONTROL COMPUTER-PREFIX-FILE-
GLOBAL-EVENT-FLAG-DEFINITIONS.
CF .COT=3E .
CF:DHI=34.
DATA IN HS0 FOR CCOUT
?
; DHR BUFFER HOU EC'1PT`r FOR- SOP
1 1
004_'104.
CF I_IPD=35.
SENT C IRECT I ~?,?'E QUEUED . TO. DBUIPD
1
A00044
CF HRL=35
HRL Di'ITA A`/A I LABLE FOR ? SOR
1.
001E_1N45
iC F H B h _'?
REi iJEST?FRCIM SC!R TO?HRLGEI
14
000046
LF:DGH=38.
.DHr l U., Fi IE: Dh1 I H ! f'?4'H I LAEILE F_IR CCD I AG ?
15
000047
CF; IiMC:=-'=1 .
DHR OR FOE BUFFER i i'?;rA ILABLE - TO - CCOUT?
1 F.
17
id
19
20
001000
DG:ERR=BIT9
;DIAGNOSTIC rMCODE ERROR
21
0020010
DG:SDF=BITIO
START DIAGNOSTIC. CYiCLE?
0G411Lii
1
DG.TDI =B iT1
TERMINATE . DIAGNOiSTIC:. CYCLE.
0 I Fi L_i 0 LI
1
r 15: DISH=B 1 112
SENT', GN STIC: STATUS
24.
SCIB MACRO
29
MACRO. SSOB ?
DEC
BNE
R . A
R
A
30
ENDM
31
FILE NUMBERS.
34
?5
000000
. PSECT
FNOFFS. AB`; ?
roved 4fo~
1105 F VBH' _ ? 000064
005 F VBSL = ? 0000160
HRLBUF ? 010176RG ?
?
HRLO 01020000
MHRHAM 0143348'
MEAD 0041 7 0RG ?
(1JL.'UN= U1OLD0
005 H ? =.000012.
0x15 HB; L'E???r=' 010101200
x14115 HB D T R = 00411 10101
005 Hb9 NAM= ? 4_1414_ 41x14
N' O 5111 000400
ki --
HBB `IHri=' 000040
HU:`_iIR= 000'020
HB:E1'?iR='~1100010
r'iB: T''Y'F= 0- 1x10'a
1.1 B '.,'E R = 410 0 010 1
H:BFA11:x100100,4
H; BHIGH041~11105
H;B TCH000x114
H:BLIFB=? 010140101x1
H;BIJFLJ= 001'2000
H:DiD. _? 4ifxi413A4
H D`,'HM001x10.32
H:F ID' 0410010x1
H:FHAM= 000006
H:FOE _ =007=4
H6Fi'YP=000014
H; FVER= 01010016
N:HE;-I= 000022 H:OLiR'Y=? 00i0031
H S Iii 4 = 00001'3x1
HSLIHT= 000x1112-
H:UH1.T='000034
i LSH4-N. 014324R.
R.LiCHAM' 014354R-
R; F 000001
R E;EEG!' = ? 00010x13
R b'AR' 0000x11_'
HE 1 11 1 0-1 144IRG
EIHEIT 1 M #10101124RG
`=1H I .i ME ' 00U14111714RU ?
NOEL 0'199,'80.
`_~R:HF:..E 0_ 0114
SR.ARE1' 010x1016
`_1R DFiY' x11100 1I_,
E:R, L'LT 000014
SR..:EI_B 11 47
'_1R : EC .H ' 0101x1046
5R E_i_.L 0041050
R:i IB' 0004112
SR..: 0RE' 000 1901
SR;GRS' 000072
SR LEN 4.14.14=11 '7'
SR :MOH ? 000006
5R HL'C ? 000042
0x15 _1R:HL'_1' 0000136
005 S R: H I H? 000 0= 40
005 _ H Ii ' OMAr,
0x15 51R 01:0 AA-x1032
K. `_ i L: ' . x1 01'x11 x1
ER SI IM?'I 0001x_1010
TWS. 1011
SR : I.4EiL ? x101x1A.52
~UU04
`1R I N 100024
_113: 11F' L1U1"'' i6
E11 It?{1..:1BR 000 ixl2RG'
N F-A I 1 = 0010x113
FDB' 09014x1
F -1B' 000x136
FH Ii=' 4_10'.=01
S:Ft'1T=? 4141001`1
S:F TY'P=? 00x14_01''
S : FIFEH000042x1
TLi$CTR=? 176 -70
TD$0TW=.
I Li$IHL=' 01x14000
TD$MEM= 000x270
ID$0AR=' 176344
TD$UTR=' 175346
ID$_IIRL'=' 000274
T0_ RST=' 17 5366
TLi$StJ' =' 1763176
TD$TAR= 176772
12
TLi$TDR= 17631'4
ID$TLii,1=? 1x6364
005 T $ALi =-000020
x105 T$BA =' 000002
T$BD = 4_9010010
T$U.NLI = 101000'x_1
T$BT =-000020
005 UUUA.U
005 T`-$U IL'' = 0 I20x10
x14115 I $CL = . 041x1 14114,]
005 T`T?CLK.' =' xlii'Ex141xi
i Li T UL1LI':_",
002 TZL,RLJ. _ 0001x104
002 1 -.?EME1 "1= 11114_1000
002, T+FSAA000000
1.02 'FSAB_
x14112 T$FSAC=' 11141x1~114
-~ I F NU7= - _i 1U
002 T -'IB = 100026
I'm
002 I ~:TRF.- c-?"
SR LiF1 411000:55 9x12' T 'I00 = 0'00044.1
CIA-RDPS`5=00~"144f261100100046661 i HODE=' 4=4J44-10x1
L?102
002'
Lit] ?_
1'10'2
4=141'2
 L 1_ 011-11- ? HAI Ill 110 27 -MAR-,9F--!
SYMBOL TAEL
T$OB ? ? _ 01301036
I $0BE ? _ ? UU400101
T $UiBF = 0 10000
T$0 BRA= 1311oi1_I?4
T$i iBi,ifA= 0113E_1E_1 3 2
T.-f [II I T I-1= 1.01L:IEU0 0
I :I 1 LILi= 0i011J:'h_JL1
0E15: 130101010113 131313
010101010113 801 1
v R I_ I_I F F 0001-22- 002.
FDECI:F 00101010 0032
FhNOIFFS 000022- 01014
CCOM 1314714 0015
ERRORSDETECTED: Si
14`''Appr66di0*6i' Release 2005/07/1SIA-RDP85-00514R000100040001-2
TiRNB =-130013413
T $RSE T = 0140131313
T$'SC = 13130E122
T $SI_ LK. = 1_1'21%1AV_i01
T$SEG1=-000131313
T $.e.EG' 01/101131 I 1
I _k,:b ti.,.5 = ? Li LI LI 1_11_1,2
v'IRTUAL MEHOR''r'?USEDt 4151 WOIRDS (17 PAGES)
D'' MANIC MEMORY 4916 I,IOR'DS. ( 18 PAGES)
ELAPSED TIME: 00E:014):;21
CCi iM~ E.C-.O 1.'-5,P=P . C, CC0M.
T$`=1U = 131351881
I$UCU 101001010
T$1CLr:= 0504513
I$SBEH_' L_iE_IE1020
UNINDV r_1144r2R?
UPEHAM 5114=448
I,.ICiRD0 = 0051/301
WARD I = 01130113132
I11]RIi'. =? 1 1E101E14
UI_IRL3 = - - ; 01--16
LUIJRD4 =? 0101E"?1A
13135 WORDS = 0100101 i :2.
01136 LJUh;Ii6 =.006014
WORD? =-000016
LjLIRIIb =.000020
ORD_i = E 101 1E'122
I_JRDVAL= #1x10024
IGBL= 0901N13H901
... TPI:= 011301401
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 COIN-???MA( MI 110
TABLE ? OF CO NTS
27-MAR-90 14:2 Approved For Release 2005/07/1SIA-RDP85-00514R000100040001-2
B-
MACRO t S ? AND ? CONSTANTS .
9-
24
ASSEMBLY--TIME ? DATA DEF I N I-f IONS
1B-
109
IN IT THE Er-IC.- READ-HANG LOOP.
11-
140
STATUS RECORD-REQUEST.
12-
149
CONTROL TABLES
1..
1=2 ?
DATA BASE UPDATES
15-
-3215
SUBROUTINES
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 14' 2 pp oved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
.TITLE, ?14CIN
.SBTTL? MACRO?S?AND?CONSTANTS?
MC A L L
MC A L L
MCALL?
MCALL
t?ii.;ALL
iEi . GLOBL
i I . G L i_B L
12? .GL__iBL?
14 : L.LINS
15 000001 DFLUN=I
1C, 000002, I?ILLIN=2 ?
17 F1E_1E_11 4.IG CGL.LII?1=6
18
19 1; rIISC ? EQUATES
20 6016901 EF : I0I=1
21 @106036 L'BSTAL=361.
iU i OU$C, 0 I DLJ$S A Q I OW$, D I R%, EX I TTS .
SETF$S.DECL$_,.ROST$$C.SDAT$C.MRKT$C.WTSE$C
FIN 1 T$, FDAT$F. OFI 1B!i,i. IJR 1 TE$. II H I T$. CLOSE$
FI:OF$L FC:EBT$. FIBDF%. FDRC%A. FDOP$A. FSRS2$
FDBK:$A. SPHD$S ?
HRL0. MSG
FDS=:FSA. FDSFSB. FDSFSC. FDSQLS. FDSMHR
BL.L NI L. . DLFH8
I/O EVENT- FLAG.
TIME TO WAAIT BETWEEN CALLS TO - DBUPD? (TICKS)
? Approved For Release 2005/07/CIA-RDP85-00514R000100040001-2
 COIN-. ? MAt~M1110 27-MAR-`90
ASSEMBLY,-TII' DATA DEFINITI0HS
14:'`Approvec For Release 2005/07/10IA-RDP8
-00514R000100040001-2 ?
5
EFINITIONS.
25 000000
.PSECT?
27
, 1/0 ? STATUS BLOCKS .
28 0000041
DMC I O'S h
BLKWI
2' 410100104
S'y I OS t
BLKW
2
32-000010
L'MCRED;
0 IOW$
ICI : RLB , XMLUN, EF : I O... ONTOIOS.. INPUT BUFFER.
2(R2.: , R;_ : R2=BLOCK INPUT. COUNT.
D1jC:REIi+C!. IUPL+4, RS RS->DOUE.LE BUFFER-CONTROL-BLOCK.
1134 INPUT? BUFFERS ? AND SEND THEM Ti I ? DBUPD . IF ? THERE ? ARE ? NO ? FREE' BUFFERS ?
118 WAIT UNTIL?DBUPD FREE''_'LIP?A EILIFFER:
105
187 001025 DERCVD
188 00 1026 016702. 176772 f-10V
189 001032- 016202. 000002 MOV.
190 001036 016705 176765 MCI"VI
191.
1'='2
19: 7
194 0 0 1 042 ?
195 00 1042 ? 015567 000002 177422' MOV ? 2(R5) , SDATA ? r PUT ? BLIFFER I D . INTO SEND BLOCK
l.'=+6) 01=11051=1 056567 F3l_'Ik_Ik1[d'_ 000000G. B i s . 2 (1 '5 . f?jSfl E HOi i' Eli UFFER T O' BE BUSY.
1'97 001056 Ci-_1L.L HCTI)BI-I P HCTI'iATEE DATA BASE !_!PDHTE t:D UPDI
190 001 FJ62 ? 0051=02 DEC ? R2' DEC INPUT ? BUFFER ' COURT ?
199 01010 4 003422' BLE 5$ .:ALL. DOHE. RETURN. TO ? MA I N
200
211 1
Gi- 001066
204
2f15
205
20r" 00107
2100 001072 CALL READMC. INPUT' THE BUFFER'
209 00 1076 103361 BCC- 1$ ;PUFFER-INPUT-OK, GO ' SEND IT TO ' DBI_PD ?
2 141 I0 IN 1. 1.0 l CHLL ERR=;EI I NEX; T ' DOUBLE BUFFER-CONTROL-BLOCK-
298-
i00135
00530.=1
DEC.
R4 GO-LOOK F O R: ' THE '-
299
001 360
003370
BIB I
3$ NEXT' BUFFER'
31 II_I
301"
NO-BUFFER-WAS-FOUND, UA I T 'UNTIL' DBUPD'0ESUMES' CC IN' AND' THEN GO-LOOK-FOR.
302.
AN- EMPTY BUFFER:
303
304
001362-
PHI?$S'
"SUSPEND
305
0111370
01101762
BR
6+ ;RESUMES. NUN ' GO' F INN' O BUS`T`' BUFFER'
306
3C.'
RETURN'
309
001372-
4$:
3101
001372.
1011567
176425
MOV'
(RE) .DMCREI:I+D; IOPL' ;PUT' NELJ. BUF' ADOR' INT_O' DIRECTIVE-
_
-
E
--
-L
~.11 J.
J
l.a
1_11_17l~~_r
010567
11'
176426
f?11-''.' 1 -I'
,
FE0'
TROL'1 JI1
i R'`..' 1Ll._ . I-n11 OAPL'~4 .IP-I
_iULr~~LL
5.L11i_I..T 1J --r l"111`~.L it.i11 L1~E0 '.'T 11^'
'L i_il l LI....
1
'1_11_1141.1;-r
011567
17645=4
Mi1v.
I::R5::1.OFILE+F:,BKDS+1? ;PUT'NEW' INFr1IT'BiUF' INTD FILE'C:HTL ELK-
13
1_IIii1`131_r
0CIU FI(
RT5'
PC
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 CCIN? HACR0?M1110 27-MAR-OF-1 14:2 GE=
'=SUBROUTINES' pvec or Release 2005/07/1'4: CIA-RDP85-00514ROO0100040001-2
3i5
11'
318 001410
31'1 001416
122767
OOOOOOG ?
176 354
3'2
1=i C3L11424
0 1423
.
0
2 1 00 1426
122767
0000000 ? 176 44
32.2-001434
00 142 1
32-2- 001436
1 2 2 7 6 7
0 0 171171 1;'14110 17 t 3
4
32'4 0014444
00 1415
325 0014415.
1 9 767
0000000' 17r.
41'
326 00 1454
L1 Li 141 1
327 001456
122767
0MU000G'
.J `_'IJ' Li1_1I'-4G^-4
061405
329 00 1466
01.2 7 80
000'274'
_ . 5 11 I_'1 hi 1441' .
L'I L]'I
4
",'5
001474
1_1O 1474 000-41
001476 0002017
Li Li 15 00
I_i U 1. 51 IEl
339 A01516
.5'fi-d 1JU1J14?
.41. 001536
3-1 01_i 1534 41/10261
343 001536 00 1-1'24-17
344
345
34-17,
47
41
349
3501
35 1
00 1540
35
I3 01.540
0167 82
1 7 6'260
35
Fa0 1544
0 16201 ?
iU00110'
354
4-01550
010257
176712
~'55
00 1554
012705
Ei04010 Fj
3 51
F_I0 1560
U0 5 0 I'13
357
1`11;_11502 ?
I_It':-,0,_0:3
3F.1:_3,
01: i 1.5 - .4
1621705
0U 1000
3'_~'-1
11_10 1.`_71' C1
171 IMI 1._3 ('4
3i ~i_
Lila 1.572 ?
E)3.=7i;;%
[I 1
LI LI 1 f Li Li
Li is 1 f 1 l i 1
362 ? CI L1 1602 ' 005,403
353. 001604
31:1)5 Cl 161.
366 001620
; READ' THE' IiMC ? SUBROUTINE'
READMC: DIRE' *DMCRED
CMPB? iiS:SLIC:.I:IMC:IOS
BEQ. i$
11 T C' C HR
BEQ 2$
CMPI ' th 1 E : Di`1R. DML: 10 S
i Ei-i ? w`
C:MPB. 1E:ABO.DMCIOS
BE1-! ?
Ct'1PE1 ' 41E:TMC1..IiMCIOS
BR ERROR.
CLC
RTC; PC.
j -ALL
REtiIOR? R0,R1,R2
SEC.
RTS' PC
READ LINK
-SUCCESS?.
YES -
_LI11"1Ei_ 111_111 ? 10 ,L..I EC:TE1:
YES. RETURN 11-11 T REQUEST
L I C ?'1' 1 ~_ L' 1 1'_' I I'+. L fl 1. I
r'E:= RETURN It` I T REQUEST ORT !!_i E.,T AL, L, P... 1 L_ ,
'YE5. RETURt', INITREr..!LIE=T
T 111E' 0U T.
'YES
ERROR-EXIT.
i-i 'E R i I i':'
I''lovI Ri" ! 1:%, R4, R.3- > 1_II_I I PI_IT ? `i I R I NG'
MO B? DMCIOS.R1 ;R1 ='ERRCIR'CODE
I"'1C11, ~I=1, R:_ " DON T `_ ~I_!Pi'ME.`_.._' LEH.L11i`11;' 7CRUb,
;REC!UE.S.T F'E,-INITIALI2ATION-
; RE T URt"1 ?
ORITE?EXCHANGE?TO'OUTPUT FILE SUBROLUTINE
i:}:::.k G .
$$$ =.000036R.
$$$0S;T=' 000012
$$$T1 =.000000
C L 1=11=; E G-
I." LFMB=' G
FIFil1T=
FSPI_U=' G ?
OPFNB=' G
READ G.
L_IH I T' G
. . . L X11_ = ? #11_11_14_10 U
...PC1=' 01010101008'
006 ... P L: 2 = 0100140R.
...TPE=' #010020
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 LE.C1F- ? i:i h~M CCON11TS1k~ 27-MAR-20 14:2 Approved Release 2005/07/1SIA-RDP85-00514R000100040001-2
TABLE ?
E~- DATA SECTION
148 9T SEARCH. INITIALIZATION-
11- 135 READ SEARCH?PATA BASE
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 SEARCH. MACRO ? M1 1 13 27-MAID-90 14:2? Apr Ar
a For Release 2005/07/14: CIA-RDP85-00514ROO0100046001-2
.TITLE--SEARCH.
.SBTTL? DATA SECTION.
, MCALL ? Q iOW$i . Q iOW$S. EXITS ?
.MCHLL? MRK:T$C,LJTSE$,C?
.1IC(-ILL? SETF$ti.iECL .b,GTIM$C?
I~LI_IBL DD'2C: T , $C9 T A
IzLObL I"1b i_i. _HS I II"1
12
1001?5
TRFSEC=125. ;MA> TRANSFER?SI,7E?
1 2
i t 5F3NFJ
T RFS 12= I RF-'E.C*512.
14?
047040
N[=MTHR=2C1.=iOf TOTAL HEM THRESHOLD.
i5
F-I0175Ci
1.10TRTH=1rjOi0, HEi?1 IN A-RC.I,i-THRESHOLD-
16
17
000005
T[LLIN=5
10
000006
COLLIN=6
1 a
000UC11
D['L.I IN=1.
0
0000001
EF: IO=1
21
Approved For Release 2005/07/SCIA-RDP85-00514R0001000400101-2
 DATA- SECMAIr M1110 2r-MAR-GO 14:2 p~PcWb i For Release 2005/07/15 IA-RDP85-00514R000100040001-2
24
54
5F
5
5'_1
11:2
,_= i=~F=iL10L10
000010
27
28-00-1010
29
4_i 6010i4
31 001016
00 1020
33 001111'22.
34
35 1501024 000000
.it 110101'26
i'
30 001030 000000
_:i C i 0 1032? F i0i_ 04 0
4F_^I L'Il 1034 Ci04_iiM+00I
41 1110 1I:I x,6 000Ci0 0
42-
4 3 Li i0 10--.10 0 0i00Ci
i
44-
45 110 1042 ? 0ti0illi I0
41-; Li0i044 ibb14LI
4 '
49
50 001046 123
0[1105 1 122-
0 0 10 5 ?4 0,1.1=1
0 0105 7 104
0010 2- 12
111111:1.1=165
51 4_100122;_
52.
c^
105 101
103 110
055 040
102 040
124 101
1 4 0111 6
001070 000026
001072? 12. 3 1 1015
0_1011]1 5 122. 103
00 1 100 072- 0140
001,103 105 122
-10 1 10 i7 1 1 1 1 1 6
0_ 1 1 1111 11.4 01.4.1
00111.4 122.? 122
00111? 1,22
000026
0i i 1. 22
0011. 1.25
0101 1 13 1_1
00 113
0011.317
001141
101
110
124
115
10 1
105
117
TIIH: BLKB? 8 ;OPERATOR?RESPONSE?
DD IH BLK.U? 256. ;DATA-BASE- IPR-
1OSTAT: E1LKU 2 10 STATUE;.
HLEN: .BLKI,I 1 ;DATA-BASE-START
LLBH: BLK.LJ- 1
HE:;IZ, E: BLKU? 1 ;DATA-BASE-SIZE.
I_;:; I ZE BLI:I,I 1
D1:1E;ADD: . WORD ? 0 ..:ICI-START-ADDRESS.
DE BCHT: BL[-'' i 1 10 BYTE COUNT.
j1i.JN1H0T:?.WORD. 0 ;NEM IN?A ROW.
Hlil"IriE[ I: . FIORD 0 ;HEM-ERRORS.
H?RSFR WORD. 0 GOOD BLOCI:'- ?FERED ?
L--RSFR . L iOiRL' Li
I F'R'STR .1 IOR.D ? 0 ; DEFAULT IPR ? START
.L ORD. 611101110.
OPERATOR PROMPT
PRNiT: ASCII. /SEARCH.- DB START _/
PF'MTS=e-PRMT
. EVE H.
ERROR MESSAGES ?
ERR 1 : LJORD ERR i L ?
ERR1T: ASCII. /SEARCH: TERMIHAL?ERROR/
ERRIL=:-ERRIT-
. E,'E N '
EF'R2: WORD ERR2L
11111 EF'R;'T: 5[J1 'SEARCH: :i.?ISG: ERROR
:110
1 1 4
11.3
122-
122 -
For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 SEARCH M"'CRO M11151 27-MAR--80 14:2c' q~'~ q
DATA '=;ECT I ON i4pOr17176a For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
b
000022
ERR2L=:-ERR2T?
64
5r_
bb o-_'i i_i l .L 4 F
4' 4_i li Li ,_
ERR.3 WORD ERR76L.
6r ['IO1.1415
123
105
1511
Ei'.R.3T: ASCII. /SEARCH;
TD ? MEM1_IRY? ERROR/?
0L11151
122
103
110
1_10 1. 1.5 4
071
0 4F_I
1.` 4
00 115 7
104
040
115
00116'2
105
115
1:1.7
01_1116 5
122.
131
040
[15111
70
105
122
12
.
1_1511 1
117
1;-'--
2
60
II
000027
EF R3L=:-ERR3T
. EVEN
f 1 i_ti_11.1(b
uUL1_1,4".
EF'F:4 WORD
ERR4L
;-,?00i200
i23
105
101
EFF4 T ASI_ i i ?
/SEARCH t
HEM-THRESHOLD.,, -
[10 :1. ;.[1.`
122
11_13
1 1 0
1 1 1 1 1'15
01 ' 2?
['I Q.0
116
11211
10:3
115
I0 1. 22, 14
124
110
101...17
10:=
123
Ito
0 1~1 1. 2 2 2
1 1 ?
114
104
7'3
000025
EFR4L=:-ERR4T
74
.EVEN .
75
5 G_IO1 6
0 4_1[I['IF.
ERRS : WORD .
ERR5L
001.2 0 1
105
101
EF.R5T6 ASCII-
."SEARCH;
HEM ? IN A?ROW THRESHOLD/?
001233 12
1[1.3
110
0[11236=1-
11.6
01['11241 1:15
115
0401
00124.4 111
116
0 41 I
00 124.7 101
122-
001252 1I
127
0,40
4
[101255 12
110
,
[1[11260 105
1.:..
110
001'253 117
114
1 [14
78 000036
ERR5L=:-ER(5T-
79
.r_EN
80
`1 1 00 1.1 6 6 I_i 01_i i 1 ? (
ER.R6: WORD.
ERRSL ?
82-001270 123
105
1 i0 1
EF RR6T
./SEARCH
CAD =;EC T OR FEREI:1 COUNT/.
CIC11273 11-1-.
221 ,
1 [13
110
0012 76 [172
040
1 I:_1
001301 11__711
104
C .40
001.304 12:3
105
103
011i i 1307 124
117
1.._
001312. 0141 I
130
106
001315 :51
1;
105
0 01.3 2 0 104
[1451
10 -;
001323 117
125
116
001.325 124
513 8001:.137
ERRSL-ERRST-
=14
. E VE t"1.
,95
=11=,
13
ApprovedlFor helease`idd~/07/'MCIA-RDP85-00514R000100040001-2
 SEARCH MAr~MI11O 27-MAR-83
DATA SECTI
14 ? ? ppii-ol'ved F`-6r Release 2005/07/1ObIA-RDP85-00514R000100040001-2
99 001330 121 105 101 D(INEM: ASCII. /SEARCH: DONE w 001333 122. 103 110
001336 072- 040 104
0E_1 13 41 11.7 116 105
0 0 13 44 0 5 S. 040 116
04_1 1347 105 115 055
001352 C140
8= 9 88053 040 0 40 040 D O . 1--1 C I I . j . ,~.
001.356 040 0140 041_1
90 001361 040 073 040 ASCII. X; I RAN-
001.354 124 122 101
001367 116 055 040
9i 001372. 040 1140 040 DO ,AS I I '?
001375 0411 1140 040
0-1400 171 z1-1.71 010
92-00002. 040 048 040 D: 7' PISCii-
001405 040 040 040
93 000060 DOINEL=:-DONEM
94 EVEN.
95
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 SEARCH MACRO MI 11Cl 27Tr1ARTS10 14:2
SEARCH INITIALIZATION p 'Q`lor Release 2005/07/14: CIA-RDP85-00514R000100040001-2
97 .SBTTL??SEARCH?INITIALIZATION-
98 001410 SEARCH:
L+
MCI ;GET-DATA-BASE-ID-FROM-OPERATOR.
101
102-001410
000424
BR
DEFLTS ?
BYPASS ? O PERATOR ? I NPUT ?
103 00141_?
HICILJ$C:?
in 6RFP,TILUN,EF: IO? IOSTHT,,1TIIN,B.,,PRMT,PRMTS,44>
104 001420
122767
000000G?177152.
I_:MFB?
VSS:.`_!LIC,1U`_iAi
#GOOD?!RANSFER?
105 001426
081404
BED .
NUMB 1 N ?
106 001430
012700
001070'
i?1O'?V'.
*ERR1,R0
1117 0014 3.4
0001167
001.1616
TI'1F'
ERROR-
10 11
10' 1 001440
016704
177346
Ni.JMB IN: ? MD V'
IiOS T AT+2, R4
: @ OF ? CHARACTERS ?
1 .I. ii 001444
1.'1[1 1..'1111=
BEI_!
DEFL T S .
A ONE .
1 1 1 0411446
111.:'701
001042'
r1C1'V'
4-IPRSTR, R f
; COH''r'EFT. TO BINARY.
1 :i;_ ? 1 : 1 2 0 8 1 4 5 2 1.452 ?
012'705
000000
MO'','
*TI 1N, R5
1 13 1=01405
CALL
DD2C I
114
MAXIM
115 001462?
DEFLTS: f!ICISIsS
=rr-IO:RLB,*DPLUH,*EF:ICI,,*IOSTHT,?4DBIN,15i2:,,IPRSTR,iPRSTR+2>
116 001540
122767
11000001.;?177:4:
L:MiB
1r-IS:SUC,I ISTHI
PNH.EFFOP
i17 Gi_9i5X16
GB14FEW
BEi=i
GOT IPR
118 00 1550
012700
001120'
DDKERR : MO",'
;PERK , R0
;ERROR.
119 00155.=1
i_iLIU1S7
0 A i?i.4;%6
imp -
ERROR.
120
121 00 1560
0 1 .767
080008C ? 177''26
GOT I PR : MCI';?
DBiN+SR:SDB,HLBN.
1 2 ? 00 151 6
016?t i'
000000C.177222.
1`'11 I4;'.
I)8 I H+SR 5011+;_, LLBN
123 1101574
116767
4O11011110C ? 177_ 16
r1OVB
LIE:I IH+SR ECH, HS I ZE
124 ILIi61H2?
01676(
0000001_ l.(( 1
i'1Ci
I:'B i t?1+SR ECL, L5 i ZE
125 001610
166767
177202 177284
=M
LLI N, L` .12E
12G, ; FiGi i i.6
191_15667
177176
_; B C
HSIZE
127 081522
166767
177155 10170
i iri
HLBH.- HSIZE
128-001630
06276?
0101111112 l i' (164
Rut:'
o2, Le. 1 ?E
i2-,-7i I:1 I_'I .I, 1=i 3Ij
eI 01:_1 I_7 b (
17 7 15 h
HL'I_.
1'i S1 2 E
1311
131
132-001642.
133
SAVE SEA-IRCH STAR. T T IME.
GTIM$C SHiSTIM.
Approved For Release 2005/07/10 CIA-RDP85-00514R000100040001-2
 SEARCH. FC ht 111C1 27-MAR-^ 14:2Proved ~or Release 2005/07/ I~C
R IA-RDP85-00514R000100040001-2,
READ' v;ERF'CI-1TR' EH~~E pp
136
. START ? NE? T I ~'O' IF NECESSARY'
130
001650
0051'6 (
177144
R[=AD SG: TS;i'
HSIZE'
;DONE. IF.* BLOCKS-
139
001554
002404
SILT
1$
LEFT LEFT. IS NEGATIVE.
140
881656
003040
BGT'
f?1f'i0RL'IT
MUCH MORE DATA-LEFT
141
'
F141 11':-:, 6F1
0057,67
1((1'6
TST?
LE~IEE
.-M iRE_ ? IF' LOL,I' ORDER' PART. -
HOT ZERO
1 f i'
_
143
N8 1 tS64
FIF1 111 4'_I
ALL BLOCK`.- ? TI RANSFEREE'
144
41811_66
t?iR'C T $C '
EF : -10, ?, ''
sLJAIT'3 SEC-FOR-TD--
145
0 U16((,4
WTS;E$C'
EF:I I'
INPUT-BUFFER-TO-DRAIN.
746
F_'1u1('0'2,?
I_'I''?(.'I`
41412, 8110
1(63(E
B IT -
- ! $I: LK r o-* I iI%_,LiI
BI:. IF'TD'MEMORY'-
14(
00 17 1.0
00 1402-
BE1=!
TDMEME'
ERROR
i
'
i i.e
11111. (1 2 ?
000 16(
11841418
JMP'
E I T
..Flo ,
r
149
TD' MEMORY ERROR'
15A
0 11. 16
8 1 2 I'' FI 8
1141 1 1 44'
T DMEME e t"MOV'
#ERR R.E1
ERROR ME SAGE'
151
001722.
000167
000330
.?MP
ERROR-
EXIT
152-
-10 R E - BLOCKS - TO ? T R8HSFE.R
154
08111' 25
02572
1770170
000175
M,JREDT: CMP'
LS IEE, #TRFSEC
.-BR-IF-MORE-DATA-LEFT.-
155
1-141 1734
10 3 0 1 1
BHIS'
ri...IOF:IiT'
." THAN' MAX' TRANSFER SIZE
156
001.736
016767
1171160
177062
MO I?
LS I ZE, DBBCt'1 T ?
;, #' OF' SEC' AC I UALL''Y ? LEF I ?
157
0I=11744
00036(
1((056
S!,JAB
DBBi_NT'
;MAKE. IT'FI -
151_1
it0 1. ' _,I_1
0I_ 6 7, 6I'
1 I' 1'05'2
1 (('050
ADD
I:IBBL:NT. OBBCNT?
B''r'TE' COUNT'
151
001756
000403
BR
DODB 1 O
=.EHD I T'
118
161
801760
012767
175000
17 048
MI-IORDT: t-1CIVa1'
#TRFS I E, DBBCHT
162
I ES 3
PEC IAL' DB' READ' TO' TD' INPUT' BUFFER -
164
001(66
DIjDB 10, ? I.;! I DW$c; ?
'l=1 O i-.LB 1 104_'1, #DPLUH, *EF
10 h , # I1=1 `; TA T, UBS'iAiDD?. %1808 t'iTr , HLBH LLBN:`
165
00' :i 144
105(6(
1(6740
I` IB-
.II TI T
BRANCH IF 1/O' ERROR
1 1_I I1
I_i I.yi / Li 51_:1
14.104 ,
DI_ ERR 1 : BM I
IBEROR
15 7
'IUCCE' SSFI UL' DE!
IO
168
L0':O52'
0 1 6(0 1
176750
t-iliV
DBBCHT, R 1
NUMBER' OF BYTES ' TRANSFERED ?
169
002056
005067
176756
CL. D'
TD1 iUCT-
;BIAS-9 AFTER FIRST ,-;FER
170
110281-2'
005067
1 x'6('412
CLR'
NUMNOi T '
CLEAR' HEM IN. 8-ROW COUNT.
171
0 u2 u56
06 8 15 r'
1 7 1 S(:'`,
UI'DTSC ADD
P. I, 061'=A0.D
: HE : T START' ADDRESS'
17 2
4111;_8Ei_' ?
404x'761'
17 40 0 0
176724
B I C:
-TE$ I HL .0BSA00 ?
::I IODULO' BUFFER' S IEE
173
MIM;-' 1. 4',18
000 3F... 1
_i,i-1B'
R1
GET' NUMBER -
1( i.
x0214_`12
OHr ;_01
R i
1ir ccr-rnoc
17F5
C J 02' 1.1-14
F=i6 Cl 11:5r'
176706
AI:1D -
P. 1, LLEIN
ADD - TO - SECTOR ? TRANSFER - -
176
11021.1. [I
I7III55t-5 7
1f'67UU
ADC: ?
HLBH
1-1DIiRE
S TART
177
81'121.1-4
.1.60167
1(67412
LIB
R1,LSIEE
_
Dpi:- _yl.? I :511% NI_rIBED'.' CiF ? -
171_
'3132120
08561'- 7
176674
S B C
HS I _E'
SECTORS LEFT'
1119
00;:.. 1.2 4
11611167
17 I 06
ADD.
R1,LTRSFR
;ADD TO-HUMBER-OF-SECTORS--
18 8
818' 1. LI
I 11_'1:.=1 I _ 1 H (
1 I' I _ i' U U
4-11:15 ?
H T HSFR'
SUCCESSFULLY - I RANSFEREE'
111J
110 '3.3x4
081118 45
EI D'
Ii L' I--I
READ' NE::-;I _EiIi1E'riT'
1..~
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 SEARCH. MACRO ? M 1 1 1 E1 27-MAR-913
REALi'SEARCH'DATA'BASE'
194
19
1i:_, 90,E1?6
187 [110 2 144
!::131
189 51513145
1 `i Ei 002 154
iN1
192 5512155
i`..i
194
1 __!
P9 I_i 002 1614
1'Jr i_2ij;_i(U
1y"
19 i_i 02 :?
1-1 I_I Ci I~ I 12 2 0 C.11 A0 2184
203 0I_i; 1.2
I_14
E I 00;_214
_'1'17 002224
1=111 IU1 III 22 E1
ZEI`'i
210 0022
1 ? 01:122'40
21-11 00'224:=
214 002246
P15
_!
14: pP44ec~or Release 2005/07/14: CIA-RDP85-00514R000100040001-2
::)B'ERROR'OCCURED.
C12-274'7 5190M CIC- 176x,44 D1=ERCIR: CMP' ---IE:b'ER4.777, JOE TAT'
001201 BHE' DSKERR
_ _ _ ? HEM ERRCIR
F032(3( 0020100 1_535 BIT' *T`-GC .Q*TD$S1J
00166CI BE1=!' TDMEME.
.,HOT- A TO' MEMORY' ERROR
I !'i c - Hu MIN E i`1
C iP' HLIMHEM. * NEM T HR
BLO
3$
98001.3 BR'. 3$
012,700 001176' MO`'.? *ERR4, REi
NOT HEM' THRESHOLD . - READ - #' SECTORS
u:i. 7 E11 176`74
066701 17660 01
1:1 N 3 El 10
0EI'241'-
02157;27 1766 10 OB 17'30
10. 44I 15
0127510 001226'
NUN '41;?'
I?11=1 . Ir #1= T Ii $ I D R . R 1
ADD TDFLiiCTt R 1
BGT' 5$
E1l_T' MIHMSG'
It'HC' HUMNu T
CMP' HLit?1i?1CiT6 #Tt?iOTRTH
BLOT 4_
t?iOt:?' ii=ERR5 . REl
1199301 4$: SI,IIIB
06 E1 11_1 1 A DD
1_05967 176572 CLR
000167 177614 .JMF'
217
1.1=
21S, [11_1'2 2 5 6
I;1 002260
221
HINMSG: MO`?:?'
I.'X' I T'=;
C?11_II 1NU 1
r1
R1,R1
T.D LII_ T
I_IP.C'TSC
004.33012,200 1_101353'
_ . 00 2 3 4;
226 NN,.-E146 N 16 70 1 11,6462
21
L ii_i;`=?.5;: i 50i
Eii_i' ^;56 LI 1'2 7, 0. III. LIb I I_I
LI t7.= 3'S 6'
0 16 1LI1 11`6''444
093372 0 .412 {00 00141_13'
.3!`'n I1 r'O'E' N30 Ei1L1
2 33' 00 21 40 2
234
235 00'2400
27.;8-002414
240 1m
EX 'I T : MOY ;UNN E 'i. R 1
'30810, R2.
L I'I L L .i_ B i A '
MOHTRSFR ? R 1
it D 2,1-7. A
h`ti_I iii , R'.'
I_1-ILL' '-:i_I..JIH'
M0'?.;'' LTRSFP, R i
MOIL;'' 0D3,..9'11-1
LNLL' _FCBTA'
;NUMBER-OF SECTORS.
ADD ' OFFSET' FOR' F IRS T ? :FER'
; GOT' SOME'
HEI ATI\'E' COUNT'
NEM LI1TH ' HHHO' =SECTORS :";FERED.
:BRANCH' IF HOT'
THRESHOLD-
110 - SECTORS TRANSFEREE'' THRESHOLD -
1-:LEl!'?.''='='i NT'O HEM NCI FE??
GET 0-OF.-
BYTES ' TRANSFEREE!'
`E?u' B Ii9= AFTER' FIRST. XFER_
SET' UP' NEXT' TRANSFER'
,. ERROR' MES'=;CAGE' PO INTER' AND ? LENGTH ?
START - OF TIDCT DATA I N FIRST EILOCVREAD
B: -'> START OF TDCT DATA IN OTHER BLOCf::S
CBUF-> CU_ 1.1 I ROL. P E G I .`_i 1 ER
SET-UP FILENAME BLOCKKK OF ? F I LE -
R I -'> FIDE
012700
000000'
MO ",1.
dpTDCFDB , RRF1
: RE-'> FDB.
CI-IL.L
OFFNB$R
BLDEFL
RE
ELI I LD FNB
y
1030015
BCC
1$
116001
000052
'?
'B
MC
F
E
i
,,
:
RR (RIi) . R 1
01015?
0002'74
MO",'
CALL
F; l.. PAR?I
ER ROR
T-116002-
0000i2
i$:
MO'?
F : EFBK+2 (RCI P R2
.: R2 = END-OF--F i LE ? SEC: T OR NUMBER .
005302''
-
DEC.
R2
- -
; R~ LAS: SECTOR - OF DH FA
1
106'0' ?
ASR.
h:'
II'.I
-
A.13-'
REi2IL'$
I,IA I T$
F-' ?'
R O
REI
? R2=1_EHGTH OF I HTA IN 2041_I . BYTE ? BLOCKS ?
10.30016
BCC.
2$
1 160O -1
000052
MOB C?ii_i',
CALL
F:ERR(R0) .F:i
Ri.PAR:i.
ERROR
CLEAR ? ST'1 T_i REGISTER.
005067
176355
2$$:
CLR
START. CLI_ICK
TD$rRST
CLEAR IT
312.00,4762- 016767 i7 1';_02 176368 C"10 `.:' ? I_:LKWDt TD ZC T I.J ;CLOCK-START-WORT-TO-CONTROL REG
3,08 004756
31'0'91
^ I0
I:IU .E I C:I Iii I r:.. IL F EG i s.. T ER P. AND. =TART. ADDRESS. OF ? ?1EM1ORY.
3i'S, 00477a 016767 177 156 176-60 MOCBIJF < T D$C T L.I SET. CONTROL .REGISTER - 7OR L IrE`
311'
318 I iO 0 i5757 1 FF i c,C1 1 r Aaproved For He~fease i 5I61 6IA-Rb~ bO 'fir Otrbf6I60~66tM-`2
13
-14.
'15
 I cRi i hi Ap d r 4R000100040001-2
LI EI IF ?.TDCT. MEMORY.
31'9
320
SET-UP R5 TO ? PO INT- TO - F IRST? UORI:D OF ? IDATA T O ? BE TRANSFERED, AND-
321
SET LIP R 1 Ti i CONTAIN THE NUMBEP.. O = WORDS, T O BE TRANSFEREE . TOI
3' . 4
005004
0 16705
177132
t"1Cit,,
B . 1 R5
PS- . START OF DATA I hJ FIRST BLOCK
325
005010
0 1270 1
004140'
MOV.
#TDCEi?ND, R I
: R I END nF ? BUFFER
36
005014
160501
SUB
R5.-RI
=RI = B`rTE-LENGTH OF DATA IN BUFFER.
327
005016
006201
ASR
R I
;RI = WORD LENGTH OF DATA I N BUFFER.
3 3 0
331
005020
016767
177 140
176362.
:3 3 2.
3 3 4
33F.1
005026
30$:
._, 36
i=iu5026
6 12567
176364
MOV
lR5)+, TD1,IT-VW
LOAD - WORD
_ ('
jI_I.503'2.
005301
DEC .
R 1
DECREMENT L,IORD . COUNT
0001. 034
000 = `7,4
BGT
I_i`p
"COHTIHLIE=
339
340
341
3.42 ?
005036
0 05.302 ?
32$:
DEC
RO
: DECR - CURRENT. I OLINT?
.".43
1:11150441
003'.4' 2
BLE ?
4$
;GO 1 F - DOhHE
344
3-15
3.-1.7
005042.
READ$
RB
34;
005046
IJAIT$
R0
349
01-15050 1.
103006
BCC -
3$
35-
005054
116001
000052
MOB
F ERR(RB).RI
.35 1
0 1:151060
0 10 167
000122
f"O.?
RI.PAR1
3=i:' ?
121 Eb13 64
I_HLL
ERROR
3.5 3
?,54
356
005070
016705
177050
3$:
MO "?,
B .. R 5
;R5-;FIRST-WORD-OF DATA-IN-BUFFER.
357
0 05074.
H:t21 01
004140'
i^9Cr.,'.
#Tr:'C:END, R I
;R l-"> END OF BUFFER ?
SI_I
( I [ 5 100
;1, 6I I' I I I
SUB
RS=RI
RI = BYTE LENGTH OF?CURRENT BUFFER-
35'_1
I I0 5 10;_' ?
00622 1
r=1'=,R
P. I
,RI = L.IORD. ''
31__1
0 0'5 10 4
I?-::l 11 j A-
.CONTINUE. LOADING
361
363
364
005106
4':
CALL
DLFHB
;CLOSE-AHD-DELETE-FILE.
365
OU'3 112
EXIT
LDTDL _
;RETURN.
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 LOAD-TERM ?IDEIECTiiR? MACRO ?11111N 27-MfiR 9 1~:le5 P`"""i=
ERROR HANDL IPA ? ROUTINE' ApprovedVor Rease 'O 1x7/14: CIA-RDP85-00514R000100040001-2
57'
36' -5.9
SEITTL?
ERROR HANDLING ROUTINE-
370 005 1 14
371 0051 14
01 1557
000070
ERROR:
MOV.
'EF).-PAR2.
;SP-
372-005120
010167
000062
NO".F ?
R 1, PAR i
;ERROR-CODE.
73 1005 1.24
..(4 I_iI_I:'_i1.44
375
4_1i_1O1i i'
1717 1i1b
MOU $S, ?
_I Mb
*I?'1 1G 1 . PAR I
F IX' 1 I
376
------
n r Lab ib i_t
------
LJUii ii
I"I:)l7i
ij'jP1!
LfiiL-Lfli
A115152?
005154'
WORD
Lf'i1
' 005 :156
1015
122
122
LN i
ASC i z
EF:1= jR 'riO
?< 1D, PC: ;1.10/-
005157
117
122
ID 40
00516,2-
115
117
056
I_1I?15 1 t?'._i
4_1 z[1/1
0r'
I_1
0051 I]
F1
1='i I_ 1
14_1 4
1,_105 173
015.4
040
120
00517f,
10-21
040
1175
110 5 0 1
1140
0 45
O 6 1
005 H4
117
I]E IF=1
380 005205
LH 1 E
381.
.EVEH-
3 8 2
.i 015'21 1L5
i0O 00300
PAR 1
FIORD
0
304 005::I. L
ON110EII I
PHN'2 :
WORD-
EI
5
2 E'
-
31-18
= I;
001172'
END
START'
0 Approved For Release 2005/07/ CIA-RDP85-00514R000100040001-2
 LOAD' TERM' . CTOR ?
S`YMBOL' TABL
EI I T V'HI_ = 000000
BI TO =-000001
BIT I =.
0010001;2
B I 11 O =? 0 1:121=i 1'I 11
B IT11 = 004001:1
B 1112' = 0110000
BIT13 =.09-0000
N1I14
BII1S
N 1T2
BI13
Bi O4
B I T5 =' 0I_iI10::10
B 1 T6 = 000100
B I T F = J111112EFU
B 1 18, ' = ' I_I I_I I.144_1I~1
BITE =01_110100
B L L' E F L=' ::F.,+; Fr?i i?i G X.
BY T E 0 _- Iii I I I l_'t U B
BYTE! =-00-0-001
BYTE2' = 000002 ?
BYTE3 = 10100003
BYTE4 =' 01/11004
BYTE5 = 000005
BYTES = 011000006
BYTE7 =' 000007
B"("LB? _? 001:001.0
BYTE'-1 0100011
BYTVif' L000012'
B:?. 004144R-
B : 1 10F0o:4.14;2R ?
tBUF- 0041528-
CF COT=' 1/11/0041
CF;DGH000047
CF : DHR000042 ?
[F : DrIC:= I:1[111I-14}7
CF: HBR= 000045
C HI'L= 000044.
CF UFTD=0001343
[:LK,I II?' 0041 FOR ?
[:LIF:r=1D 11113 ::11.648 '
I:?F' L1= t'?I = 111:11 1 1. 16
D Ioo 1.114113
DIG bDF = I ICi 11131
DG:IDF==. 011=11.000
EFP?I:3 = 1131:;1114:1?
ERROR 00511.4R?
E1 1I?' 004?''1.58'
F D ='1 FS I==1 =';+,,.0.,?1,;1,1.;>1; G X.
F-DSF-S.:_ G::
F L? F 1 1.1 I_I LI 1 1 1 : _ 1 I -[ I_1
FI:I;FI`IB' 01300106
FE F\'F'' 000004
FU:LEN' 0000010
1R~ .
MHCRi 1 ? M1 i 1"Approved or erease ~b5j07j1 IA'-RDP85-00514R000100040001-2
FI'. RUM=' ~r?*..... GX?
FN:ACK 01111016
FH.FSH 000000
FN:FSB 01000012?
FH FSC O00004
FN : FSD 0110021:1
FN: -II-1R 0000:1A
FN Nt"B 0010022
I= N Q LS 0 0 0 01:11_:
FN . RD[: 51000 14
FH UPD 001/1/112
FO:RLi' _' 19 F F::1 CX
F'=1HH 0041548
FSHB 11U415LP
FEHC' 004160R?
F;HCIL=?000106
F 1=11_[1[ = CICIC104111
F: BEIF'= 000062
FBDB =.00001 00
F:BGBC=?000057
F.BKDH='000026
F BKDS=' 00100210
F BK:EF= ? 000050
F:BK:F'1=?000051
F BKST= 0011:.1(:124
F BKVB= 000064
F : CHR =' 000075
F CHTG= ? 0000 34
F; DFi-IB= 000046
F DSPT=' 11101:144
F : DVHM=' 0010 1.34
FEFBl:::.= 0000111
F:EFH' =? 001:10511
F:L'OBB= 0001032
F ERR = 00005'2
F; FFBY= ['[':1014
F FHr=1I?1 NUN 110
FFHB ' _? 001:1:1.1:1,_'
1= 1=j:I:P OCII11 16
F F'V'ER0 010 1 1 211
FitIBK[011011.4
F LIJH. 151[11:1=12
F MEICT= 0011_1054.
Ft?1BC1101100155
F : t"1BFG= ? 000056
F HRBD000024
F;MiIN__?LIIJJU. C1
F0VIBS=? 110 1301.tI:I
F IT'4-1[:C= ? U4:I1_11 11.6
F R1-1"ITT= 00000 1
003 F RCF1M= 0000:4
0113 F; RCTL=' 000017
131._1 FN51Z =' 00011132
003 F RTYP= 0OI701_i0
F:SEQN=' 000100
004 F SPDV= 000072.
004 F SF'IJN I-1010 074
4_14.14 F; I E K. _ 11.14.14_1 = 6
004 F U I T= 01 112_1 1.36
111 14 1- I. JU;NNU = 1 14_'11 100
004 F i i=7i3[54?
1_11_14 F VNIS3 _ ? 0UEi060
10014 I E . G `:; .
004 1IJSI' 0104146P'
004 LDBUF' 004656P
LUEIY'IE =514.541.
LH1 005154R'
LH1E? 00:1521:161?
MAXHEM- 004167E
M`;G1 OO51SOR'
ri':; . D G I N 1:111'1131'11_1
H' = 000012'
t`1 iEITHB. 004456R.
H: B F 1-1 C= 000004
H BHGH= ? 0001:106
H EI T C H = Ci F110 4
N; B11FB= [10401=10
H;EOI_IFL= 002000
N.D117?=00130'24
H D\'HM= . 0001032.
FI:FID'=?CI 1100:_10
N FHHM= 1-001005
HFI0S' =' 0IIA 7 15, 4
H.FTYP=Ii .,214
NF`/ER= [100016
111: HE I =' [1 II 101'
1"1 OIJRY'= E0003 1.
FI `I TA I = 001343 0
I"1:'_1111`1 I = _ IJ 11 I:11:1;2
I'-1 i_i H I T = 1.11-11-11-1=0 4
PAR +$_ IiLI1:10111,
I:11
PARl UI:I'.~',_R
F'i-i1' C.-0521' 'l I,:, ?
R:1[7BI..IF ' 1=1001 141-1R
R C.1 -11J I_ = 111 110 15
FII,_;PC= 0013/114
RDSPIR= 000012
R,U H=?1111131:102'
SR. ARE
.;R I?H
SF'.DL I
SR.E[B
SR. ECI-I
SR.ECL
L_;R.F1N
SR. GRE
114
_ 1 1
UUUI_1 14
01?I004I'
711 l Jr14L
UI-I1:11:15 1:1NLIU 1
0110:011-11-1
SR:GRS? 000072'
SR:LEN? 101122?
SR:LIH? 0000666
SR:LIP' [100062.
:SR;M[IH? 0111111005
SP:NLIC? 0510042'
R.: HDS ? UUNU.5
SR i`1 .I. H 00003.0
SR:H1P' 000022?
SP bt:'N 0000.2
SR.SR1=' 0000,02
?
1_i1:i0000
S;R TUE 5100056
SIR ,I.J5L 51510052
SR:'YR' 000004
SRRR: 1101 04 -_2'?
SR ;11P. 111 0 0 1=1 1 1
S I A,I ' 0041 7,2R
STRTHD' 004152R?
. BF HU=' 0= 30'20
S;FHTT=?000016
SFDB' 010140
=FF LA 6-
SFHB = 517 _01__
S FHB1J= 013010 11'
S . FH I `r'= ? 000004
E.FTYP= 01110002.
`I: NFEH=' 000020
TDCBI_IF' 000150R
'
TDCEHD= ? 01414518 ?
TDCFDB 0000008 ?
I DI_LLIH=' 00000.
TD$CTR=?176370
ID',CTI,I=? 1763600
TD-FIHL=' 004000
I D$r1EP1= ? 00 70
I D$OAR 176344
I t) $LI i 0 = ' :L 5 ' 45
I i T, 16
_I .i'=;1 1 = 1 i' 6:_`, r'' 1
111+'' I HP1 (5.31';2
TD$Tt LJ= 17 636-,
TD$TDIR = 17`. f'.::1.
TD$TDI,1= 1;'6.64
$AL7 _' UN11'21
002 TzB1i _?1=14-11:1[14:1'.?'.
043'2 $B = li GnliG
00;2 ? T$BSO = 10 1,PIFII_1
Ui-LI ? I $B I 0001'1211
002 ? T $B T AR1100030
1_151'2? 1 S121 iU' _? i11r121-11:111
002? TRI_ D ' 000 101-1
ONE I $CLK' 00'317101_1
002' T$'D 1SK11011200-1
E:02 ? T$DRD ? = - 0E1001114
Ei02 ? T$EMEM= ? 010000
01212 ? I lF SHH = ? 00011/10
002' I$Fvlf-1CI=' 00000 4
OC2 ? I $ SHI_ 000E_114
002'I'$FSB2=?0U0U10
0Ei I$1B = EiEiEiI126
f1 I~'2 I } I N A = ' 515151 [1'2 4
002 ? T$ 18 E _ ? 0211['!511:1
112 I 1NF' 1='14'00
002. T;1 I_ D ? = 00C,1040
002I $MODE= 004000
11112 ? T$CIB =-000036
I'i111 16.[IUF..' = ------
0 T$OBLJA= ? 00001 3.2
TSUU IH= 1110001
T $RBDO= [1510200
T ?I,.F1B' _ 140 ..
T$RSEl = ? 4340001
TES[: _ 0E.c1~2,_
0
TS. .L1'`= 0'120000
I :JEG 1 = I I'_II_i 0 00
T=SEG'2_?001_1001
I ;CEIJ. " 5100013 2
T$'_O = - 1011131
T $U B US- 1110110 0
T61CLK.= 000400
Ts8BEt`?1= 010021
I.J[IRDEI = 005 000
WORD! = 014_14_1102
LJORD2' = 000004
LJORD_; =' EI1311UEi6
1,113114 = 13011010
LJORD5 =-0000121
IJORD6 =' 1300014
i,11J F Li ( _ ' Pi fl l_1 0 1 1=i
L II IRDO -060620
1_1511` _ _511101'22
I,IRDLGT' [1041 40IR ?
WR.'D I -iL5105i5134
$DOI I G;;?
++ 011'111`,R '3BF_,
$-$$O =;T= 0011 1 i_
'1
DLF IJ" 0B_ 0
. F RCB= G.
RE 1;D
_IAIT I;.
. . . PC 1 = [110[1100R ?
... FI_:;_= 00101400 ?
... TPC='
H1B5; 0130010 000 Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 LOAF' I ERM ? JJE I EC TOR ?
MACK.,0 1 l 1 B
'
a4-gd'`a
'ft6fa
6'16D
177t1
.`'r'1"1EOL TABLE
r
r
s
5
4 : CIA-RDP85-00514R000100040001-2
005212-
001
SRCOFF ?
000 122 ?
0012' .
FD I_OF
000010
00%
FNOFF'S
000022.
OF14
$$FSR I
0190000
005
_ IiF'F5F_+ 0000,34
ERRORS DETECTED: 1=1
(1016
VIR:T IAL f'1EHORY? USED t 5034 WORDS- (-20 PAGES)
DYNAI?1:1C ? ME:110R`: 597::' WORDS "_' FAGES:a
ELAPSED T 1. f?1E C10: 00 : 45
LORD=LORD!-SF'=f_2BP 1 7F. C, LOAD
? Approved For Release 2005/07/CIA-RDP85-00514R000100040001-2
 HRLGET- MACRi i . M1 1 10 7--MAR--80 14: ??
TABLE-OF-CONTENTS. Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
9- 19 FILE INITIALIZATION.
12,- 121 ERROR-HANDLING ROUTINE
0 Approved For Release 2005/07/CIA-RDP85-00514R000100040001-2
 HRLGET- MA? M1110 27-MAR-90 14:27 p~ a For Release 2005/07/10CIA-RDP85-00514R000100040001-2
HRLGET IS-RESPONSIBLE-FOR-ACTIVATING THE-SOR-TASK.
BEFORE DOING- SO, IT? PRIMES THE? HRLB BUFFER (IN COMMON) WITH-THE-
FIRST. BUFFER`S. WORTH. OF. HRL DATA.. AFTER ACTIVATING S1CIR, IT- I-JAIT..?
FOR A - REIOLIEST ON THE NEXT BUFFER USING EVENT FLAG C:F : HBR ,
AFTER ? Si-'P. PROCESSES - THE END OF DATA SENTINEL - IN THE HRL BUFFER,
SQR- POSTS.CF:HBR ONE i?1ORE TIME. WITH- HFLBHF NOT CET . TO ERO!
THIS IS INTERPi=ETED AS A - REC!LIEST, S i _,HR - FOP HRLGET TO SHUT DOI?JN,
NOT TO FETCH THE NEXT HRL ? BUFFER : HRLGET, I_IPOI?N P.ECE I''? ING THIS.
SPECIAL SIGNAL, THEN?DELETES?THE HRL FILE AND?EXITS
. MCALL EXI T $S, RCOS T $C, U T SE$C, SE T F: C, CLEF$C , DECL$S, F I N I T `~
. MC:ALL 1=IiBI:F, FDRC$A, FDBIk:Y':'I.';{:::'I'...i.:i~;.~:.,tt~~..,k.>i.
21
22-
23
24
2 5
`7
28.
2 9
30
31
32?
_.5
.g4
35
3 6,
5-,
38
39
40
41
42-
43
44.
45
4h
47
48 000001
49 000001
5F 0810003
51 9 0 Fl 9 04
57. NF18081
53 00 00EI2 ?
54 08-1094'2
55
56
57 00 ~i[1J 131574 032272
LLIH-. TT.
EFN:1
EFM-.3
EFN4
Ell-- C
BLFACT-
SE . NDC.
HARDWARE ?DLiER'r?RESOLVER?HANDLER'
TH I S' VERS I ON REFORMATS DHR' S ? FROH . THE' HQR ? FROM THE-
NEW-LAYOUT-(l Ol i D FER ? IUIORD. NO-COUNT-WORD) TO' THE'
IILD' (COURT' B'YTE' FOLLIIWED' B''Y- DID' BYTES)
INITIALIZE' THE' HAR:I:rLJARE'
WAIT ' FOR' ' BUFFER READY' S IGHAL' FR0M HRLGF_T
START ? MRP' AND' CP' MICROCODE'
RUN ' ' SSEARCH.,
SET-UP-TIMER FOR ' CP' H IT' BUFFER FLI_ISH ?
ENTER: ' MA IIN' LOiC IP TO ? WA I I FOR' INTERRUPTS -
ASSEMBL`r':
I"1L:R Hi!EfLP 2i .13PACfLS,_1 I'ILI ..HQR2
TASK'BLiILD: L _N?NP Ii= 104
HOR:-?LA. HOROL S=HOR f MRi SUBr CPSUB, PP.SL IB f c 1.50 JR.E;X 1 1M: STB/SS -
TASK:=HQR'
I-' H I`: &_ i R 6 5 ,_ I_'I Gj 1_'I M M700
P'5G =T_ TO : 1
COMML =CCOI.I h RW
. MC.A_' ~' ~lI_Il~,+. _, UTL
_i-i1'$S'fEX l~?$_~fC LEF ? a-~L,fW"'-TSc -$_,fR r,i.ni ~~_AF$S ,s`~ETiFa-~._$S' ,,,.,i_I!r._,aGTi"I$C:
?
. i?1i_HLL' i?1PKT_Sf C:i"1i::T$'Cf FEC:L$Sf AEIRTS` f ROST$E
.GL.OBL. SHETIM,SHSTIM.SHTIME,$MLIL'
: LUH' FOR.' TTB
,:EVENT-FLAG'FUR'TTO
= E'?.iEt-1 T 'FLAG' FUG-' HARDWARE' INTERRUPT.
4 ;E'?'EHT-FLAGFOR'HB'FL_USH?TIMER
=. 1 ;LOCAL END-UI--i_OLLLI_IION. FLAG
2 ? ?H IGH
_EST? BCL' OFFSET' ALLOWED' + 2.
42 IOFFSET-TO L'B'POIHiE S,' IH'SREC
. NL I'ST' BE`;
r"1'Y'`-1 L j'DQFi Hl:i
Approve or Release 2OO& iMCIA-RDP85-00514R000100040001-2
 MAi. M1 1 10 27-MAR-8B 14: 5AWA ecY F16r Release 2005/07/1*IA-RDP85-00514R000100040001-2
58 000004 000000
59 000006 4301?_1000
c ,C1 1_'I4J1 I I I_i 1 0
61, 00C,1020
6 0C1CI024 UUUUUI.3
63 00 0026 000000
64 AAUIJ1.3U 0Ci13IjliU
S iUUb S ? InF_i1::ii:-1i?IId
6i:5 000034 000000
67 000036 000008
1_
70
71 0000400 000000 P--.'0UNT: WEIRD E1
72 800042? 01300I_I40 C_IIIHT: WORD 0
0i_kj1344 L_ii_Ai_ BLKLJ 10'2 4
1'6
77
T:KTCB:,WORS.
CI?_DVEC : , WORD.
E=BUF: BLKU?
'_; TAT: B1_N::U
B 13E IJORD
A-'LACE:
1I -I I H 1 : . Iil_I M'.1'
H3OFF: . WORD
H='0IFF: , WORD
- TICE: OF ? MY TASK
,; OLD 1vEC:TOR AT 274
E'IENT?FLAG-BUFFER
I NDEr; `+:'ALV_IE FCIR ? ERROR f'IE SAGE TABLE.
;ALL-PURPOSE-FLAG
PRELiti BiT SET T ii1GS FOR CSR
., OFFSET FOR HB ADDRS IN - BCL
P OFFSET FOR ? HRL ADI?RS I N BCL
POINTER TO. DID. rOUIAT. WORD
0IP. COUNT
78 004044 0-06006G. M HB:. , WORD- L?HRO+C.
"2 431140 =ti 00011011 WORD 0
BID 004050 13[11313130 , WORD I
7- 1 004052- 114_' 1111,_101_1 WEIRD E1
0134054 000000E ? M HR: . HORS HRLO a HRL - BUUFFER
_3 E II I,::1USE 110011I,-,I C1 I,IORD 0
j EIEI=j _IdU 11131:113013 LJI_ft'.11 I_1
85 11114052 EI00000 WORD 0
-IFS
87
9
'9I 1'I
SHARED ? BCL ?
H IT- BUFFER ADDRESS- UOULD NORMALL`r'? PO INT- TO COt?1MON
BUT REFLft:I IA I T IHG MUST b E DUNE
9 1 004054 00 1775 BI--:L:. . WORD. 11124, -3
-? ? 00406 6 O13013136 G ? HI _IE EL: WEIRD DHR0+6
a 131141'170 1111013110 IJ1.._IR5 0
94 CIC141'172 ? I ILI0H13O WORD CI
'-IC 1-10 4074 I0CiCi6 0 1 , WOJ=:').? . A
BUFFERS ARE 148 BYTES.- HEADER.
;HIT .BUFFER.
96 13041378 000000E ? HRBCL . WORD HRLEI ? HRL BUFFER
97 11171 ,=11, 111 0 E101.1-10 ci FIORD 0
-11 1 1313 4 1 II ;' ? 111_14311 I.i I I I I[I M' 1? I'I
99 00,410=1 EIE1EII_IE'I0 WORD 11
11) 1:111 :11.OE EOBBCL: ? BL.II:.'ki!'~Y.?f:%I;,f'%F.:?'%1';~;;i~::t:il::%I+:..F'.!;:~,4?f;;4:.~,W~;:kw?f:':f:`?'.:1:":,~;':~:%Y?slt:f::l::;:
iNAi~Ti'dE CODE?
REFOR'iMATSuHR BUFFER ? T i ? OLU !=ii l T PUT F !Rf1A T.
MOV. #LOC:AL. R3 MO'',i ? *DHR0+5, R4
BIT,6 J 480!-10 . . (R3,)
BED M:I'?.iL0C.
111I: ':: P.3) +, (R,4) +
BR SEr-JD
;POINT?TO LO_AL?BUFFER.
POINT TO-COMMON. '
ELC: - .
NO. CONTINUE.
I?1II'',rE. EOC . I-JCiRIj ? TO
S iGNAL ? C:C:OUT?
REFORMAT HIT BUFFER. FROM THE NEW FORM:i T CONE HIT-
REPORT PER WORD) TO OLD- I::HIT?C:OLIHT?+ C! ID'S I H
B'Y' T I E SI '=;EE INTERFACE SPEC ? FOR ? LIETA ILS
R..rv LOCAL ? BUFFER (HEW F! Ri lA T .i
F, u1 COMMON
368
005350
361-:1
01.75350 012324
i"1Oy?
R3) +. (R4) +
04715 35;_ i312324
NO'',r
I..R3.)+. (R4.:1-i-
47105354 17 14.3.'4
r"1CI`,;`
R.3)+. I::R4.j-.
?
085356 8 -1121.467
17 456
N10 '? ?
R 4 r f I_ I_I L I H!
SAVE . PO INTER - TO ? COUNT
BITE
37'n
005362. 0052044
IHC
R4
?POINT PAS"> COUNT BYTE
374
005364 032713
0'280510
BIT
II=[1 51888. Ci?3)
^! ID ,
3 75
005370 001405
BED.
2$
;NO.. TEST EOB ?
7
4710537 88 _i; 67
172 444
INC:?
COUNT.
;: COUNT- O ID' S
377
L=1515375 111324
MO'?.IEC!ID. TO. COMMON
378
005400 51621.703
000510'.,'
ADD
#2 . R.
:, BL IrIP . LOCAL PO I HTER
47'.1
L1135404 0100767
BR
I$
MO'Y . NEXT.
:11;,1
381
005486 5132704
008081
21;-
BIT-
*1.R4
ODD ArDRES8
C1 ]Ii541 5114111
=1.3
0615414 005204
1I-iI_ -
84
BLIMP TO NEXT. WORD .
3 84
1,105416 1 :1 57 7
172490
172414
31::
MOB -
COUNT.1 PCOUNT
;MOVE 1H DID COUNT-
_Sti
471L6434 0LI'._ii_'Ii_r
1i',_LLI1
UL F`
COUNT
3 t11:~
4_101543 i 513271.3
r145i00cl
-
BIT
0040800. (P.3)
.EOB? (OR E__:)
31_17
I_I 5 5.4.3 4. 1i01745
BE.Cl.
MO'VL1 1C .
r'.iO. MO'?,,'E. NE :T. DHR
38i8
1185435 e,, 12324
MI_I`r'
1. R':._ , . (R4', --
E!!E OR EOC
.ODE
3U.9
-
Approved For Release 2005/07/
 MAZE M i l l 0 27-MAR-90'
7 MARS-E:Fi 14:5Ap6i d*or Release 2005/07/'IO'CIA-RDP85-00514R000100040001-2
X91
=x'q2
39 005440
394 005440 052767 000001 8OO0000.
395
iJ5 I_II'I_,g4b
397
.3981 005460
3 -9 9
4021 005472-
40 1
402-005500
40?
404
405
406 005512 032767 000001 172306
40, 005520 02
408 017I55000 167 I_14_II_I??'-I4
409
410
411
412.
413
414
4,15
,:116 005525 0160611 004044' 0814066.'
417
411:
419
4'21.1
421 005534 06,2767 000002 1 7 2 2 7 2
422-005542. 022767 1_10000` 17':64
,427-; A-05550 003002-
42.4 005552- 005067 172256
425
4'2
4 2 7
42;r
429 0055555
4 30
431 OA5564
4
4K I_i1JF,` ?6
,4.4
4=-5
4.^I_
437 0056 22.
438
4.3
441
442?
44.
44::1.
445
4$
446 085534 012767 100400 175422?
447 005542' 012757 101000 176472?
Approved
BIB=' #91TEu'iSC!' ;SIGHAL?CCOLII' THAI.I1HREi IS-READY.
CLEFS' *CI-:DHR'
SETF$S? *CF:COiT
DEC:L$S?
BIT *EOC,BASE? ~WAS?EOC'1NDIC`TOR '01-1 IN' HIT'BUFFER -
EQ. - ..,n C HTTkiI IC
in .J+? I1'_a L._J,1, 1,1L,L'
IMP' LALLFOS? ?E:ALL'FOS'PGM'AHD'E=;IT'
PLACE ' ADDRESS' OF' READY BUFFER - INTO BCL: MOVE- HIT.
BUFFER ? ADDRESS' FROM'1' A ? PR I'V'ATELY? HELD ? COPY- OF' THE'
LLI11PLETE' BCL i:HE 't'CR' CLEARED a BAr_:";' INTO THE I_IORt::INS
BC:L: THAT' IS. REPLACE ? THE' BCL' ENTR'Y' THAT' LJAS~ ? CLEARED
BY,,' THE. CP' MIiCRRI:Ii::ODE: RIB =. OFFSET IhNTO' BC.L:
POINT ' TO't?'IE T' HIT' BUFFER' ENTRY IN' BC:L; THAT-IS, UPDATE.
THE OFFSET: ROLL-THE-OFFSET-OVER IF-IT-REACHES THE-LIMIT;
ADD ' *2. HBOFF
CMP' *BiJFACT.HEICiFF
LiIJT 4+
CLR HBOFF
r, ADVANCE ? OFFSET'
;REACHED ? L i MI T' ?
; H O ' RESET-
RESET' OFFSET
-
i=LEAR' TIMER. THEN START ? T H E N S T A R T I T L I P A G A I N L
UP' AGAIN'i:
AFTER'ALL. WE-DID RECEI'?,,'E'A'HIT'BUFFER
C MK T$:.
CLEF$ S' #EF i , 4
MRK::T$S' *EFH.4,T2.*5
CL :.r HARD ,"RE IN-T-crr?PT EVENT c, G
LH!',' rlra'!vn!'.L.' ,urr.v , Lut ?, Lm
CLEFTS' *EFN. _ CLEAR' INTERRUPT. EVENT' FLAG.
, TIN Ln.N R-U[=TC, ; TC THA -- i . CR 1r E
OD
~, 'I_..-i-i,'.r ' I.i ~i, i_ t}.J O ,L? ~t?1 i '1CAN?
I C LEI=IR' BCL EHTRIE'S ONLY WHEN' INTERRUPTS ARE ARMED
ONCE AN- INTERRUPT IS' RECEI\.'ED. iHTERRUPTS' ARE-
AUIi_il"1HTICALLY?DISAi'MED !H-THE-Cp. THIS WAY THE.
IC F' ICI 1itiOI ' BE CLEAR ING' ONE ENTRY ' :I h"i THE' BCL i (H ILE
THIS PROGRAM IS' Lt(iR:K INS' ON . At"'IOi T HER ? ENTRY:
*r-::.-::SP)
,-.SET-1,10-CLOCKS.
106 000170 0 2 7 1 6
000260
BIS
*OOCF2, [SF)
SELECT CF
107 000174
CALL
C' F.:1
I11B
1 CS9 000'201 0 12746
4_13u10CICI
MCI',?
41:C!$CNC:,-(SF')
;CLEAR ? CP ? HO--CLOCK . B ITS
110 000204 012746
02 1000
MCI'+;'?
#;:O$C:SP+C!SLBD>.-(SP)
- SET C:P CLOCK .
11.1 00010
CALL
CSR I
11:2
1 1..3
114
11.5 11111::'...314 0 12'7 45
I_Ei 100 1
MOW
C!$TLBI+C!sVLBP -.-(SP)
CLEAR DR!VE - HHID. PULSE
1 1(3 1002'20 05271 6
00036 0
EI It,
4i = -:: C! $C'I; F L ;,. (SP)
CLR?SELEC:TION.BITS?
11( I'Il%11i?c~~:.,~ 127 46
1' ~4~4_47
SET
118 000230
I_I-1LL
CSRI
119
120 000'234 011666
000002
t'iI I '.'
(SP)
MO'',r'E RETURN ADDRESS DOU?JN
STACK
1 ~' 1 00 0240 I: IMIh7;_f
PO i HT TO RETURN ADDRESS
122. 1'10(1242.
RETURN-
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 CPSL IB- ? MACRO . M1 1 15 27-MR-60 14:4Xp i ecfFor Release 2005/07114: CIA-RDP85-00514R000100040001-2
124
1.C
,L -J
1 r..
1'~F
1~^
1 2-1
130
131.
1_2 0E?14'-44
133 000244 016667
134 000252. 012 '46
135 13E 0255 052f 15
1.16, U00262 ? U 12 (46-
137 0513i2I55 552716
.
138 EI01.-1272
1.39
140 000276 01 746
1. =11 b0 0 30.", ? 012746
142 0007s["161
14%
1X14
1.4'5
141"" 05031 012746
l47 050315 552715
14,-:; 0 012'46
14=:1 000326
150
DATA TRANSFER.
LOD BUS REGISTER. TO- A DESTINATION ON THE. CF BUS
INPUT:
21 'jP
LI3CSC: :
000002 176424 MCIV
41010101 MI_Iv
000360 BIS?
17 6400 MO'??..'.
#10101'2 M . 0 B I S
C: I-1 L. L
1 .41-_11_14
17110001
001001
500360
1 1=.111010
151 000332. 01 1666 0.1001012
15".. 00F1336 00572
1..`_ i_'II_IE'1340
31
2(S_;P),IiR?$LE1R
*:'O$LBD+U LE.P .-isSP
*,
L.i.=_ :::iu$L EL ,!;=;P;i
1,10+;' ? 00 $C P, - (:=;P
CALL CSR1
r:LR -(SP)
MD V *d=i;!_$LBP, - (S P)
CALL CSI
t-iO"-y. #, I?!R$+CR2
1;1011 I FOR 1HTE ,RUPT FRCiM. =:P'
I,ITSEsS' #EFN.3
C:LEFsS' *EFN.3
Approved For Release 2005/07/s CIA-RDP85-00514R000100040001-2
 PPSUB- ' ? MA?. M1110 27-MAR-1=101 15:'AppFr@l ed9Fbr Release 2005/07/1IkIA-RDP85-00514ROO0100040001-2
111
1.84
UUUb(2'
1_11 ;2(b(
10U40I7i
176422.
MCI
x::!!},=. t"1+1"IKI :~IE'R2
1 _1
000500
1_11'2767
1G118510
176422
MO''', ?
1--I"G!-,_,,M+r..!_~REE , CiR$CR2'
11_I-1
UIJIJb)Jb
IJ1 fbf
1bU01: U
lfb4.'2'
:i-i!LE. ,;I~'=!=!LE? , ,_ ,_
I C f I ISELi- )
B"r ~ ~_ _! ! ~_. __,~:?
E;I OF AB
35
I_ll_I(II1;''2
IiEECi ,4
r!LE;, =!-!L 7 +'2
Q!LS ;1.0=OLS;X; ;4+2
= BYTE S 17F OF '-.'T('!. RE E (I IS;ED )
: START OF ? OLL SUB--BUFFER
0
!L`;; ;i. i =I!.? 1 1. ? L-1- I 1;!R'rt?iE;, . HI- !]F FAf_ E;! ii~ E_!FFER
0 EC-16I'1i
fLS;12=IILS;;II+FALM' START OF TTABLE SUB-BUFFER.
__
10144076
QLE;'-;1.=I=1=!LE;;:;I24-TTBi1S: -START OF -TABLE qUB-BUFFER
?4E 1
Ell l 6 1 l i_
1 ?==1?=I !L. E;; I _+; IB1"'l._; START OF I; !LB SUB-BUFFER
41
0/116524
L' E'=1=I!L';;;11E'ILBt1 START OF SDLB SUE 3-I IFFER
42-
E-1 E_9;' 5 CI EI
!;!11S15+SLBf1'- START OF PEE-; SUET--R1_!FFER
43
I?i10E11110
I!L' I =i_!L- 1i_+CIE;:.:;t1'-;L :SIZE OF OLS IH L `r'TES.
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 LMH IN MACRO ? M1 1 10 2 --MAR--10 14:5 ApJd nor Release 2005/07/14: CIA-RDP85-00514R000100040001-2
.TITLE- .LMHIN
SOF T LJARE ? QILS CONVERTER AND ? HOR LOADER .
LOAD- MICROCODE. INTO HOR. CMRP? AND CP)
-ET MHSK? i,lORD, CLEAR OLB PHI ES, FHL COiUNTEr - MEMORY.
REHt: SLIT I I II-iRE 41LS ?
CO ^i','EFT ::OFTWHRE _LB I?ra`_ HOR. Oi_B REFERENCE PAGE
[OH VERT SOFTI!l IF'E ? F;I:'LB INTO HOW =:DLP REFERENCE-PAGE.
C:OI1', ERT I,IE
LOAD. CP. DATA MEMORY
i_ Or?i'..'ER T I_I FIBLE HNL' v T I-1BLE
CONVERT T ? OCL - ANI? . F HL
SUB-MODULES OF.LMAIH:
MICRO. LOAD MICROCODE
FRI21tlE=' CLEAR FRHt?1E- MEMORIES.
ULI LIT' CI_IHIVER T . I`ILB
CD I_Oi-1D CF . DA T1A. MEMORY?
TT;2;T. CONVERT TTHBLE A ND. XTABLE?
i ii_:I_FHL . ,_: iII\,iEI . =.,_ l__. l-lb D . , i
ALL CALLS-TO SUB-MODULES? ARE MADE V I H JSR, SOME-OF-THE.,
SUB--MODULES SET-THE-CONDITION-CODE UPON EXIT:
ASSEMBLY:
t"1C:R>MAC: LtiA IH LP=I'20. 1 JP .I_ .I_'. IM 1_MA IN.1 O:O s Et'i ST
TASK. BLIILDg
H Q[.-!f-,iL , Hi=IRQLS=HQRQLS,-tiP
TASK=HORI.!LS.
PAR =GE H t 40000 : 40FIFIC1
HSG =TTO: 1
COI'iM H =CCIIt?i RIJ?
RI_`.-1I_.IE =C i = 1 JFi_SRE S :/RI I
OVER.LA Y DESCRIPTION HORIOLS:ODL
.ROOT- LHH II?i-MRP'=Ii_IB--CPSUB-PF'SUB-C I r 5FI JRS;-:I It?1: 5TB!SS-:.f(H)
An E TR I 1ICRO [F.'HIiE,_'hfLBLI C'E ;LI.i.Cri.,TT'Tti!CLFHL:?
.END.
?
Approved For Release 2005/07/~CIA-RDP85-00514R000100040001-2
 LMAIN F1A? M1110 27-MAR-80 14:54ppr Vied1 or Release 2005/07/1ObIA-RDP85-00514R000100040001-2
52
53
54
55
=i b-
5 r
5G.
59
60
6 1
61.3 00000i
f_I;'j. 00E000 3
115 001-100?
66 0010004
67 1-1(-10 0 L1 1
6 L
FI' i
'0
0E_i[1001
' i
0 000 01 1
72.
I_~1 LI L -I O I'2
7
(-10[1004
1.111-11-1(10 2
f 5
i Li000 1
I:.
0140(_'10;_
r i'
i 01 00 0 Ll
i 0
i LI 1-11-1 o o
7'
1.100000
I_I 0
1, 14 I1 1_i 0
E11
1000013
1k:10UILIN
1-.~5
0 2'4(II_II IF'I
I_I 4
1 ?'.41_3 00 0
85
00010X411
:J6
0 0 0 10 1-1
8 7
0I_I 11 1 1 1 E_i
9151
004000
fi 9
4_'I 1 0 01-11 1
0
02(_10011
91. :I. =.41.1000
01 0 00 ? h_-I
081:_11' ?24
_% 000115
LI IS 0 i` 1-I 0I 1_'10
97 0 111(:1 0 0
el 1-:
100
000000
032272?
066063
101.
L1i J0 04
00 0 i3 i_10
iti _
i~i000ij5
I iijLjIii?_ii_I
10 3
000111 0
104
0000L20
045655
0505'00
i 1-1' .
0 0 0 0' 4
C1456.43
FBI n
106
00110310
045643
0114400
107
0000 i4.
L i 2 05 11
07 f t 3 1
1 1 11-1
01 11:;11-1:j' ?
Il6 , I_I r.
MCALL'
MCALL
I"1i_HLL
FICALL
LUN:TT-
EFN:1
EFN:3
IHLUH
C!LSLL!N'
FIRST
LAS_;T
LMH'
B-t:'SL'EL
'13-1-1 E CI 1 F' '
BSEIIO
HLMH
HM1
HLNE
HECK!
1-IR i_
_?TSi_EI.
H;T'SLB'
FIRLPHT
L1'i_
P0LB
DI`1fiP
SDI_IMAP
SHNH
SHLMH
SHLHE
SHEOC!
ALLHRL'
NUHLC:D
DCL.BUF
I x:LC IL.I
SIDSIE
Tai IOLI$S, F:I:N IT$, EXIT$S, ABRT%S, FSRSE$, CLEFS ?
FDBDF$ . F1)P.L:$A x F DBK$'H, F DOP+'A, t?11"1EILK$. OFt-im$0.
i_ LO E' ,, RLFID$. L,1 T SE$S, `:;E T F$E;, WA 1 T$, i=!PEN$R'
RI'AF$:S. ROST$C'
Li1TLO
i,I TO
B I T 2
LI111
BI TO
BII14+RII 11
EIITi5
BIT15
BIT15
B1114
B:iTiS
E11115
EIIT1=
BITS
EIITS
EIIT .?
BI F11
BII1''
BIT:i=
BIT15+BIT14
1.15
bI I'r_t0
4095 ,
I,ILIST EIE;7>''
F'1Y'SELF . RADSO : HC!RULS/'
T51, 0R$CR. =E.i I i=:' TCi' CP'
ill
~,,:...
R
nor I:: C _,
I ,,....,_
Ei0iE10.'r0
BIT'
RI
IS' LL T(I [P'CLEAR'
00000016 ?
1 76424
BHE ?
("11-1'4''
IJ '
1HSSA'VE. _ F`17 $LBR
110, READ-AGAIN.
CC' MEMORY NA I O' BUFFER
1200410
171 x42,_'
MO'';'
1I =ii ' C:E:C:F,+IIITSt'1+0$ENOF'
I_!R%C:R;2' : SET' CC' TCI CP'
WA IT' FOR' INTERRUPT ' FROM' CF
9$:
RDAF$S'
11'EFBUF'
; READ' E'VENT'' FLAGS
000004
0000006.
BIT'
*B i T2. EFBUF'
EF4P73 SET
BEU ?
9$
NO. READ ' AGA IH ?
1EiNI4I'II[1
1(6422'
CLEFS-
!NN-ARM
P`lO'..
WEFN ..
I TE IRUP T S
M+U$CHB>, !R$CR2'
CI_I AR INTERRUPT USE HIT BUFFER ii'1T.a
1010100
176422.
E-ARI1
160000
1(64:'_.2'
I'1 _
? .i -1++~1 I+i_! ~'L 1 '1 L,1". , _. 3+L I 1 J 1
:' 1'. -4". IY! r ! L 111';1 L L_ '
riLl':`' (: S,P) e 2 NP
TST' SP) +
RETURN.
.ENDS
i 1 0 - / ' Pb !J ,...N AID-DR b.S_,.N D0W 1` NTAL'K ?
P!_! i ;T TO RETURN ADDRESS
Approved For Release 2005/07/JSCIA-RDP85-00514R000100040001-2
 I;iMASLF' MACRO 1111111 27-f10R-i3 14:c~porovec For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
T? rIEIE- = OC14000
T $11111- ? = 010000
T $OBRA=' 000034
UU1JA= 6'1611103'2 ?
T$ 0 I_I T I=1= 1691:111:141161
I $RBD111= 0161612610
T $RNB = i 0(1(-1410
I ERSE T = U44j901j01
Ti=-'-;C- = 01311022
I:'-::II:LK= 0206100
I .'65EG :t =' 61610611/0
$_i E, G: = 4111 Il.1110 1
I $SEI_i. _ 5101.1I111 .
I _.0- _ 11111161411611
T 15U B I I :_I =. 1005100
T$1CLK=. 0004041
T$EIBE11 ? 0000211
UBD : 1 i?'i = 0000211
LIiJRDO = 0001000
LJORD 1 = ? 001.61i1'2
FIORD 10 01301324
ILIOI'.:.U 11 = 4111,1141126
WORD 12 1301110.30
WORD 1 04141032
WORD 14= 0001_134
L1100315-. 0610036
IJI1r'I?i5= 011116140
WORD 1 = 00u1E4.2
WORD 10= 11115044
I,i01PT, 19= 0004/146
WORD) ' = 6111400014
WORD -90=-000050
III PD21= UU616152'
WIIIR.t122= /1610054
FIORD 23=. 40000j6
IJ0vt'24= 0004360
Ill II*:]ii )= U-004362
WOPIi26- 436106164
11001:1_'11.=? 111111141166
1-!1618-- = ? 6000TH
I.:Ifi`:.L1,J11= 0 43Gi07,c:
WORD.' _ 1111011:111.11
III 11".1.1311= 1111111_11 ,9
11111 `.13 1 = 6i06107 6
WO RD32= 1111111 i. C-iA
WORI1 3.7- 0616110'
I-tiLRD74=' 611 Ill 161 j
LJIJI'D35= 000106
WOf D36 = 000 1 10
11100337= ? 61001 12'
000338=? 000114
bi 001:1 39= 1,i0i_1116
W 0110 D4 = _1101110
1.106540= 0001120
UIJh?'.Ii41 = 11061 122
WORI-142 = 61(11111 4
111_1=1.14 = I -.125.
0ORD44= 01001361
--OR:iiw.5= .1'.11.3:
0130346 = 111111_'1 134
W III'*;U4T=. 13,6
I,L11 105148= 116161140
15013114 i= 11111)1142'
00035 = 015..1112.
1 101F .i.i `161 I _ I 1 44
151_11=:D5 1 = 0001141
0005152 = 000 1561
WORD53= 01ii 1152
000354= 0001.54
061055= 61130156
I II ftlL.'5t = 51116:_11613
WORD57= C00 16
0003513= 616161164
WORD59= 000166
I~IORI?$ = 6100014
I! I11IL L? X 11= ? '-I- 170
11.111 1,.. .
111061)52=000174
UURD63=' OLu11T6
I,IORD64=' 000200
T. C. i
5 F1
WO Irl 11 , i--
II IRI?h 6= ? 111161;_11=4
LJUf,Db(_' 011112.,-(SP)
BI'=; ; I ._ E~,. (SP-1
NO'. ! *D$NCLK:. - (5P)
CALL ? CSR1
F~10
-(SP)
CALL C 13, F'I
M V. #025, - (SP)
CALL PPCR
?`_ELECT. MASK i~ ,
SET? r1ASK? WORD
;CLEAR-PPS
CLEAR-DRIVE-AND-PULSE.
:i:' c cE_LEC:TII-, 'ElITC
"SET ? HO-CLOCKS
;CLEAR PPS NO-CLOCKS (START-PPS;)
;ET NOTH1FIG
49
SET LOD BUS REG I:STER = 0
SET LOD iii:::;-DRIVE,. SELECT-PPS.
5ti1i1 (:
J~ i 0000 716
5251011 15911
53 00511014
54
1:1k1'.il9t(
0 1 2 r 46
1(x4..4
CLF i?I EAIR. MOTH ING
+PP?+Q LBD:. -(SP) SELECT PPS AND SET DR I' E
CALL CSRI
5? 00F1 F0
012767
004000
176422. MI I''v! %+i 'ri I '-- , -00. SET ( r i iir
Approved For Release 2005/07/9 CIA-RDP85-00514RO-001 0-640001-2
 FRAME2. MA0 M111S
2 MHR , 0 14: 5App oved Fl- For Release 2005/07/1*IA-RDP85-00514R000100040001-2
58
000116 01 767
0((((( 176424
r'i[I'?v
m617((((, I_!R$LBR
_ ~.JR i T E ? FAL TO LO D BUS ? REG
5 9
11Oii i. 4
005067
17 4
C:LR ?
i=!R%CR'2 ?
CLEAT
60
1 1A
M=; F0F'. L. TO - F IIN I H
62-
ADD =
_ . 17US
DEi_ . _ 2.65LS
64
S S
BHE = 1.87US
6
000131'1
N 12I'CI 1
114111 1.54
M01%,-
*3410.,RI
;EXECLITE?300 TIMES
6 i
000 134
5556100
+_:L.R
RB
ADD NOTHING .
60
000176
060000
ADDD
R0, R0
9
5[101 151
6105 101
I:) E C
R I
' i _ 9
('I I, I i?:I 142 ?
1j 0 1 .' f 5
SHE
1
f' 1
-2-
74
0001.44
012746
001300
f'10 `?.;'?
*;::t:::::+::::t::::.t:: G..;.
1-! L B i l I? . I;;:.,,.; .
L!LBLI..T UUUUUUUG'
CILBL T ' I1L15105.4R'
11 I
ULBh'L1-=' G; '
_ LU!LEL;-. I ' 0 UUU(4U
I_!LB:2- 510012R'
Lr4IJ
E:RsER2= 17642.'
I!UFLBR1. 64;'x}
51512 FIST?T- Fii:511:_'R
1 !~,,H I I M 0510 1 510
Q!- B C L 551510511
I !$L:CCP=' 5151515141.1
0 $I_HB' 000400
L.>!+[:H(:L4-FE'1:=:511'1
121'17 1_LR = 00011411
2!$41'14 1-13
002 C1650? = 211 4 0157 421
I L~2?I_!=r`L: CI_:=?...--=110
U02 IJ1 1_P:' = (151412`50
SISCL:C' 0:1.511:1110
i_L k,i_: E: F _ L (=14) 51 1- ,
F!y- _;ET= - -
11$CS-1P =' 51351421510
0601ij5i. =?0051001
10$EHBK = . 15451051/5
0$E1`10P= -..~_.11-11-14.1
I0$FAL = . 51 !_^40015
UsFC' 000045
Q$IHB' =' 000003
I_ rIHPL =?0510051 2
U$I("1IGH=' 510515107
1 ! ~L LL 11 ' _ ' 510 1 000
L!$LBI:IP= 04211001
I:$LBF'' 5FJO0511
I_ 6011011=' 4_'
Q!$FLI?h'MD=' 014100104
i !=;$LIDPP= ? 01.1': 1110
002 ? :1$LHP' 01510051
-I CP.'14.i1' -
_-44.1 1-1.1r 1:
_
0$1 IF '101001_153
06500' 421011-21401
5IiP- P'~ = 511-11.'12451
L iV i_;l_ 04510(121
1=!Tl"1SET= 51005151:4
0 ?111SP' _' 1'11005!51
I_I S' L k-=. . 1 'S! ! 01_1
I !$PP 511 15111]421
510. C!$PPSUi= [11 11321:;
I_!T-PF'':' 051.11-
O'$OHLT= 50001
12!$12!L 000043
I !SFOLA 51510053
FU3' LITF !LU' _ tll:il1417 t
051'. I:ISsf!L[1' 511 I110ID I
51512I!$L!_r-4 = 421511211_14
101rRLICD0510005
10'2 i!Sr;5DiID=' 43.11 ii'i4_i't 1
0511J$REBK=' 410 1 51 51 0
I i+RHC: = 01:_1514100
5_;R.5C 5151 0.1_1051
OSRE T 4151510 101
51121('1 =' Ii_. 1515151
IIIIU11 0
05455''2 = 515151.E40
l_! : LI`ICii 12125IU
h' 0 i .: '+/A = 1_12 Ci 4_14_10
I i B L-I F _ :,I?,: ~?L..y.`,},. y..y.
SI1 L B
CDi BA i :a.:u...I:>1-.
_r 1- ~ll=' :t :::::..:....:..
[;EL., :i= :1
S H R L
SISBLK=
ID
S$L H
S '0B
5'6 1=I R
5$5I
1_!$FP' = 511051.4.6'
r!$HBF' 5151000.1 TD$CTIJ=
CIA-Rb hi-005' 4i16b100040001 T I1aL=
r1 !=1 r_ r_ 1_ c1
5/5151051 1
51511'151515
cl1I1.1I I i1 Fr
1-11,'11 IA CII A
I1 I'1 [14.1 1_
 G!LBLD - - - P111 N1 1 10 27--MHR-1=151
r856&F6r Release 2005/07/1&IA-RDP85-00514R000100040001-2
THB'L~ 15 :'App
SYMBOL -
TD $ME 11=
5_194:1'2741
TD- OAR=
176344
11:,$UTt =
176, 46
T D9ORRL'= ?
1/199274
TD$'=;i,i=
11''63(6
T I;1-tk1 T i=IR =
17 f;.' ( 2
TD$THW=
176. 62,
T U' T D F: =
17 6 3 7, 4
IL:I I1)!~I='
1(6364
T $HD' = ?
[1[11_15121)
14.e. I-I _
9 U I_I Ii IJ ; 2 -
T$BD' =?
099010
I $EI'=1II
191IO01111:J
T$BT' =
99191) 27 1. 9
I $O!BL' _' 994090
T$L1BF' = ? 1/11515100
I $LILI!-'H=' 000E=1_4
T5?OBWH=' 0O10fj.
T$70UIH='i514_F_i1iJ
T $RBD0= 511110'4151
T$RNEI' = 11f111111041J
T'$1'.' E I = 0 i.0 E IJ i_=1
1i'=11_. F_II!110'22
T '_ICLK=' 02I000
I '`I E. Li 1 = ' 1111'11'151 II I1
TssE:02= 9511:11111 _11 I
I YSL1_i = 911')13951'2 ?
T_=ii I = 000511) 1
T 1B T I-1R=' !11[1BL..;I I 'iiL 1BI I'_i= 1i_IUUIiIJ
T$BTD' = IJ921190 T$ICLK= 90941313
T 1_LI = 991':111)9 T$'-;BEH= 1_IFIF1020
T-L:LK. ? _' 515129911) I_IBD: It'1= 4191'1929
T 41:1 1_11_11':951 II.ORDO = 090099
T$DRD _ ? 511 191 51 9 4 WORD i = C-00002,
I $EME1.1'=.. 01109510 WORI110= 09111_'1,_'4
T$FSCA F=1=' 300111FJ9 WORDI 1= 000026
I r =1Htl'=' 1119111)1'14 L4jk:1) i 21 _' 111)515131 I
T3'.'FSAC:= 009014 WORD 13= 000012'
T-TF'=18 01111111.1:_1 WORD 14= 111,11511 34
TtIB' =-000026 WUS D IC=' 1)1)1)036
T$IB4=1R=' 511510512.4 WORD 16=' 0005140
T$IEIE' =? 1);29099 W1JRD1(=? 0995142.
T$.trk' =-040000 WORD 1IJ= 0000-44
1-$100 ' ='
EJ9111040
I$r1UL'I =
9949519
T$08 - =
000036
I=I BS
51 1 0 11 11 41 0
000
0510900
1:JE1I
OLEILD'
111113( 10
5151;2
ERRORS-DETECTED: 0
WORD 11= 000044
WOP.D2' = 1351430514
W iRD29= 000050
'+IIRTIJEiL IiE[10R`r ? USED: 3290 WORDS' ( ' 13 PAGES)
D'YHA[-`1IC MEMOF:'1`': 386,0 WORDS- ( 14 F'HGES
ELAPSED TIME : 051: 1:1151:44
OLEILD I-7!LEIL['. -SP==120. 1 1I Ms C 213. 1 _JE!LBLI1
UORD2 1 = 000052.
WORD22= 171095154
LJUIk:L:i ii= E-IC,E-1056
LJLIRD240051060
WOI;D26[1111 IE_i6.4
WO RD2E_E _ 11901_17'.0
FJORD w 00F-IF00r
L ORD30 = . 1111'11115'1 4
WOR'D3 1 =' 000075
I_II I?I)3;'_ C-1,00100
WORD33 = ? 5100 14:12
WLIIeD34= I ---II:_11!'14
5lIJRD35=' 000106
WO RD360001 113
1,10
F'Li 7_.11115111
005:038= ' 0i!_=! 1. 1 4
WO ITSI)39=' 0451 116
005014 =.000010
151]1-'1:140=? 051111:1241
WL!i 1)41 = F-100 12-2
WO RD 42 = 0 0 0.12 4
00F'D43= 0511).1.2!;
IJORD44=' 5100130
I I0I-'D-i5 = . 051!_'1 1. .5
UOR.D46=' [100! 134
W 111k'1.14,- = 511 151 :I 1 _I
WORD45141510 1451
WU h;! 1140 = . 001) 142 '
WORDS =.000012.
WORD5E1= 5051144
WURi)5 1 =' C'.00 14k?
IJORD5 = 0510 1551
WORD54= 414151154
-- if-'PD=c f-
= _ = is I 5, 1613
0
WORD5B= ? 4100 164
00RD55 = ? 000 16"S
IJORD6 =-000014
FJO1011)60=' 111113110
WORDS I =' 5.1510 172
WORD62=' 5100174
W11!RDS3= 5101/176
110RD6 4= 4100211111
WORDS5=' 00411'202.
LJORD66 94102134
WORD6 =. f.51020
Id0RD(SSR 4151512 151
I1111RL:16'9=. 090;_
-'I;.
IILIOL7 51001/111
LiIRD79000214
L,i0R.Dr`1= 161
WORD72=' 05.10223
LIL1RL1(.3= 4:15102;=.'
WORD74= 051022=1.
WLIOI) =' 1100226
LJORD76= 5151512.3[1
LJORii7(= 000(s)2?
LIORD7FI=. 51951'7.,4
WORD79=' 0002 3 h
iW Li l' i) LI = Li i'1 U0 2 e9
L10R0 81 0 51515'12451
L:ILIRDH12=' 0519244
WUIL10.3=? r19L114,
1 1OR,.DEI 4= ' 1_111112.55
]185=
WORDE16 = P_1051254
'1J-' 25 6
r. L
J 01 LJ:IRDB`!=' 0-002151
WUOI;FJEI= 515191 11
WORDS 0100022
WORDS9= - 0510'264
WORDS 11 = 0i!-14'!26:6
LJI:IR 1_12= '_"'.110270
I.IF IRL.i'9 13=' 4:!4!1!272
WORE194= 01/10274
LJOIRTi 9 0276
WORD'_IS=. 515!0.55151
WOPE,97=.4101! 4_12
IJ0991013= 199!! 1114
WOR !'_=i'-1=' 0003516
1_ I:..I:.,I,,.,....
L I?
11 TL = .,: ..: ..:1... r. Y:. hf1'
1.11_11.1 = I3 E .
IJRL1`','HL!-151513 10
,'; 11EH11= ? 5111110111:3
!1TWRTE= 0410490
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040061-2
 QEXLD . ? ? NAI JOM 1 1 10 27-MAR-80 15:15 PAGErove: ?d S
App For Release 2005/07/?CIA-RDP85-00514R000100040001-2
ii
12-
13
14
15
16
It
18
1 '1
20
21
22.
2 3'.
24
25
26 00101010
r, 000000
2 _I ? 0 0 000 0 00576?
080004 0101470
0i H10006
32.
34 000012. 611275
35 000020 016700
i_. I1I_1I_10'2.:,:} 006'21;11 I
_ 7 0111111.1'75 01 12711 1
000032 ? Ii 16, 7 6 7
Ci F1 F1 0 40
411 1101'!044 005257
'
41 1 _ ' 1 0 0 0151_1 I _ , _ 11 21 67
i; ? 1.11.-10H54
-43 000060 005267
44 000064 1_1615'67
45 001:_10 (0 12105.' 0101
46 0000172, ? I_IU 14 1
47 011111[1,'4 0015 -6;
48 0 111-1 1 01?_1 0 2 IT, 5 7
4'9 00 A106 10. 73 5 1
70 00H1i0
51 900 1 1 4 000i67
52.
53
54
55
51' 6100120
57 0001.20 01061067
Q!EXLD:
COEX:
000002 068000G.
0000 01_1 G .
0013006E ?
380000G-000008G-2155:
01001004_1[,'
OOOOOOE
010101000E
01P10i1U0G .
C1 I_- I_'I 11111_1 1 .
0010100016 000000E
.TITLE- ?IEXLD
. PSEC: T IE',LD ?
HARDWIARE QUERY-RESOLVER-TRANSLATOR.
LOAD - H!O!R - Ll 1ND101LJ- MEMORY-
CAI-LED FROM LMAIN?JSR
RETURN VIA RTS-
CARRY-CLEAR. - GOOD OE?LOAD-
CARRY SET- - ERROR ON' LOAD.
WRITE. DATAI FOR 0E`L INTO OP?DATA MEMORY: SKIP. CD. WORDS- 0, 1
1: RESER'-,'ED FOR WRITE FLAG AND- TRANSFER COUNT - SEE-BELOW).
is i i = ' i TE 1.!E =; BATA i H THE ? FORM AODR, DATA, ADDR, DATA .. .
I HEN THE LOAD I NG? OF CLi IS COMPLETED, =TART UP-THE-MICRO-
CODE . THAT Li1ADS THE ? QE",';
TST OE,:-;AD ISQEX? EMPTY.
BEO ? QCE,`; 'ES E, -,I T
G ALL? D1.1A,SET STAR-" UP-MICROCODE.
1-10"', 02, ODOR
t"10I',;' 0E, EXA Ti.. PO
ASR R11
t?lli';.' 11=!=! E :. R I
NOV DD.Ii1-1TA
CALL ? u.NEC:I13
IIic: ADDR
t?ju',;' I.1ATA
0:h1LL C!i" il'`.
INC. i-1DOR
INC: L!CNT
DEC 8.51
BE I--,! I-DON
CMP 17!; H IGH,.!;> ADD
BHIS ~$
I_H -- ? ER 17"
J Ill- IS E
WPITE- 11-1 TO
"NUMBER OF BYTES. IN DEN
GET NNl-IMBER OF WORDS
.:R1 -H:> SOFT - DEN
F=IF'i=:? !,TRITE 1.!E:; AI:IIiR INTO CIi.
BLIMP CD ADDRESS.
IM 10 . i ! E .SST !EX. TO . HOE:::.
B!-IMP CD - ADDRESS
BLIMP DEN ADDP.'DATA PA IRS ? COUNT
SUB FROM WORD COUNT
;FINISHED, NOW LOAD ? DEN
B'IM' TO NE ?sT HOP DE;-? ADDRESS
F 11-11 HEI: WITH DE;;
;NO, CC!NTINL1E
=i'?r'ERFLU!!_!.
FIRST WRITE THE FLAG I' = !,1R 1 TE) AND THE TRANSFER
i_O!LiNT INTO THE F IRE T TWO LOCATIONS OF CP DATA ME'"IORY.
LOIN:
C:LR D LIP F CJ) ADLIR ZERO
Approved For Release 2005/07/14: CIA-RDP85-0051 ab01bh4bb01-2
 QEXLD - - MACPO . M 1 1 10 27-MAR-80 15: 1 PAGE ? . -1
pproved~ For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
58 000124 012767 0000[01 0000 0oG MO'+? # 1, DATA ;FL AG ? FOP ` UP I TE i EX'
59 0A0 1. 321' - i_:HLL Oh'{Ei_:D2
6fj 000J 1316 005257 00F-i1I OfOG ? I Hi- ODOR ;BUMP-ADD RESS . TO . 1
6i 000142. 016767 OO00I_'1OG ? 0u0000G . I,I ;v;l :!`{ I . DATA ? IJP I I r - f !E, H11Df /DA I A PA I F'E - LLIiJN I ? I O ? IC D ? ADDR ? 1
i_ 2' ? I-I 0 i 1 S H CALL i_i f`I E C D .
67,
64 START- THE MICROCODE THAT? D 0 E S THE - LOA DINGG- OF - THE - O!F'
65
66 001154 012757 000042 OOOOOOG. Mov. #f-!::F-nW, CODE ? SELECT- W INIiAW - r1EM!JP''7'-
6 7 660162- [: Ai L L' L [I A 1! f_! r-:, .
18
69 GOOD. E IT-
(0
71. 000166 000241 OI'EX: CLC
f 2 - 000 170 RETURN.
77.
76 000172. 000261 USER: :=EC
r ~1 1. r 4 RETURN.
0 Approved For Release 2005/07/10 CIA-RDP85-00514R000100040001-2
 JEXLD- - ?MAI M11151
SYMBOL ? THEIL _'
ADD1=' ? = ? :fr,,f F.*1'. GX.
AI_IJI_KE= 040000
ALUOE = 5'151401010
A CI 1 = 0 1 I_I IJ 40 40
B1TWIL=000000
41110 = 0013001
BIT!.
BITIO
BIT11
BIT1_
81 1.1 3
BIT14
8111'=1
B1T2
III I P,
B1T4
BI 151
BITS
81 I7
B I T1_1
8119
B Y T EO
BYTE1
_ ? I_11_II_11'_1N;.'
_? 1110 '10051
00413/10
010000
_ ? 1-12 01_'11310
_ 1-141:1000
1CI100L1U
051000 1.
_ ? 0bIjil 1EI
_ ? 7_1 000 20
_? 0110101441
Cl FD F.) 11. u- 0
_ ? 00025151
0004051
1110 1 N51I?_1
001111 IIJO
= L 114'1 ilk 1
B'I'TE I 0 515 510 1.2
B'Y'TE11 510001-
BYTE 1.2= 51000 14
13 = 1:-11.11)1115
BYTE 14= 00001. r
BYIE15= 001AID ir''
B'Y'TE 16 = (,--- I CI I102 I71
LIYIE11'=? 1111515121
BYTE 1.1.1=' 000022
BYIE.1`I= 1710111112..
B'-rTE;2' 5'111000'2 ?
BYTE '2O1 = 00010'24
BYTE2 1 17-100025
BYTE 22 515110026
BYTE 2_3= 000027
BYTE2451111-109'0
BYTE '25001010=1_i 1
BYTE2S= 13051032 ?
BYTES 7 = 11001:-1 3:3
B'Y,T E;_ED = 1-1 51 1 1 59.4
BYTE2'EI0000.5
BYIE" 5110101110
BY T E.Li 010110.16
UT IE I1.5111111_-1.(
BY I E371 ' 0E 111A451
B Y I E:3,1~ _ ? 51101:1041
B'Y IE_I=1?=' 1001:1114:_
BYTE 31, 5 13130134:
BYTE." 6 = 11111151: 44
Bl eTE371001051,:15
BY 1 E 38 -' 0110046
BY II_ 9 =?131141114(
B'YTE4 =-000004
BYTE4O'= 000050
27-MAR-80 1C 1~ppro'ved for Release 2005/07/1?CIA-RDP85-00514R000100040001-2
BY IE4 1=' 415151081
BYTE42=' 000052 ?
B`r'IE4 4---. El "D51 3
B'Y I E44=' 001_11_154
B Y I E?=7'.`_i '' 000055
BYIE45000055
BYTE47 000051
BYTE4EI=' 0051061_1
EIYIE.49000EIC1
BYTES =' 111?IC111115
LI'Y I E5001011,J0.2
B'Y'TES 1 f000C.`
I i i I E52 0 111 11 51 6 4
8 r'TE5.0000x=5
BYTE ' 5 4 = 5111010x_ II
BYTE55= 00006,7
BYTE-56 = 111UUCI01i'1-1
BY I 1..`_.11,= 1100071
BYTE.51=1= 5100072?
BYTES =? 0000(3
BYTES = ? 515100516
B'TTE600051574
EIT I Lbb 1 = 111/1010 ~' 51
BT T EI:_I20000;'6
C1Y I Lb.= 5140171077
BYTE 640301 500
BCY'IEI_I.E1=? I'D 11711,D 10- 1
B'YTF_SL = 1105111,_1-2
BYILb.= 0510111:1
B), TE.6 B = 511=11=1 1 51 4
BYIF-1:'1=' 0110111011
B'YTE7 = 0410007
IT I E.(I_I= JLI:11116
B'YTE_7 1 = 1300 ,1 0 7
FI`'TTE 2=.000110
1 3 YTE7.i= 0 1-111 1 1 1
BYTE74= 000112 B'YTE1 5= 10111. 1 3
BYTE 76= 1101-1114
BYTEI ?7 = 11001.15
BYTE 7B=' I 710 I 11 16
BYTE. I 1 = ' 0001 :17
EB'`r'TEE; 000111 :t 1-1
E:YTEE10=? 51111511.51
B1T'TEI?1= 1111101x'1
B I E,. 5, 2, 51110 :1.2..
I_'iT' I E1=I.0110
BYTEB14= 000124
1:1T' I E ?_15 = LI 111 IJ 1 " r
EBYTEIc16=' 0001125
BY IE.EI, 0001'27
BY'TEEO= 11001=10.
BYIE.U'_-l bu111= i
BYTE'S 00001 1
B : 7 7 E 10''_10 = 010151 1 i ;_'
BYTE'=1111100?_11:_1'
014'1500'= 511.1511.. 4
Approved
BY I E9.I-DO 1.-25
BY T E94= 01101.6
B'TTES5= 1010 i`
B'Y I ESS= I_140F1140
BY I EE17=' 000 141
BYTE9133= 000142-
BY TE99= _111014.
BYTtrAL 01-10 1 44
CBK::.I'ILL001000
C.BK.CLK=' 4/51/400
CNll_IBRE= 117I0UUL7
CODE? =.::k::I:::1::>I.::>I GX-
CPCC:EH= 0 1 1-1 111 I ,--,I 411
Ci
LF'LEA.i:I= 141 0!7_1
C: I ' WK I E _ CU's: 1_151 I!I C1
CQE> 13000010
CSHI:IRD0111 IClI4
L:I:;7_L! I. 1 = 1I I11L'i! 31 i
I_ S CI E ' 0 I U 44-1
1_::_I LIDS: TE = -1 I-10 1.0 00
DATA. DBR. RD=' 111010 40 0 1
DBTCPP= 01 i 1457
DB'$5PT= 1/1510026
DB$?TPL:= I-I~I=10'2
D I'SPIJS15101=1100
1II1 HAW i' = _1 .
D MA R R D= I-11-11-151111
1:1rii il P. L!1 W. I_'1_11J51514
Ilf?1ASET= G,
EHiP_IP..,' = 11111-1111101'1
ERR2. i+1:1::1:'::1:::1:: 1;;:=;.
L D Ci 11 [11_1 1 21 R-
L0OX= ? ::I::y::>io i*: h:
L. f D C E H= 101-1 1--HID i 511-1
L 0 C WI= ? I-1~4I3i30I0
L 0 C ; WEI= 1013000
MARE1'?1 I = 10511051! 11
t?11=11 ; L' I`1 2 = 00 4011151
MARLOD= 011-101-10
h1AROUT= 051515102.
MAR LO = 0112 01-11-1
h'1AR OLI= 51[151041=1
h1BKALL=' 1051/05101
IIBK.CLK.=' 1::1111:741151
1-1t"11-1IJ R 11= 09111 :I. i-i E
I'lliL.EI- I = ID El 1-1I11-1Y
t"i it 10 E. ' = 01-110 51 I-14
411'"1(1,111=:: TE 1-11-1 5 1 51 117--1
t"II^ICIIIRE= 1,E,ii_iEi101-1
MREH2' 0211151110
I`lb'Y1.1 = I_i l_ F-11 _ --,I. F-1
H. =' 1-1051144.
0I 1 E 1_ 112 = +: i..,u I. .I..1.
PLB' =' 4401010
P L D' =.000030
PLRLJR ? _' 051512510
1-!CE;d 5EIE1155R
OE;I=[I; r;-.?
1-! I L D ? 111011151 1_10 R I3
UR$CR 1=' 1764251
UE$CP2 = 176422.
R LB'R=' . =424
OSE; 000172P.
C!,"1'11:11:1 = ?4::;f;:?:::1::: !i+::
'_! v.H i 1`H = ?'_.I r'Ae'.4r':+"J:;
I I$A I T5= 5105111151
002 ? O$BC.L = 00.15111111
I ISCCCP0070!441-1
l!_ GHB 110041.-111
C!0CHRL00002,00
$CLR' 11100114.0
LSCHC 13.0000
Q$CP' 130515164.1
i_!}CPCC = 051010 10
I $C:P2 000;_:1x1111
IJ+C5C: ? = U l1JULb
1_!$CSEL=' 111051: 60
T81__.,!__-,, ET ____I?_1:1
1110SF = 0201111111
0$Eh1BK .740515110
01FHL' 5104.5100
I-I$FP = J1-146
C!$HBF ? = 051OCIC12
06151-'? = A 105111516
0$IHB' = 001 101:-13
0$11-11-:L= 47515111.12
IJ:$IMRP= 0000517
0'$L. B 11 ? = 5 1 47 1 111 5113
0I$LBL:IP 01011 1001
Ii$LIII-' 000001.
0$LDCD=' 0005103
OSL.Df'MD0115117104
OSLEIPP = ' 000;20051
LS?LHP =' 11111115151111
11 11115' :I.4.111115151
LISFiR' 0'0-1 El C-15 2!
115..iki- _ ? 11511-111140
!S 11?:P ... _ _:T x51
I: VISC = 1145101!-151
LIS'FiEE I 515105104
OSMEP? = 10 111-1 51 11
i_1,} 1.11_ LI'
L!1PF'' =.0001171A
11;x,
GX.
G;
il?i;!HLT= 11 0 5 1 111 13,
i Ii _ , IJ ~,iUU4
002.0$0 LH' 515151515
?I_!LH' _ _UI:1Ui54
0$i1LR = CIE0001
51002. 0 .:0W = 11101011142
0$RDC:D= 515151505
I !SIT1:1F1III= ? 0100El 6
00 ? I!*R1-1C:' = 1110r 0051
I_!$RSC = . 011451_1.0
I I$I"SE I =' I_1I:_111111I0
f1i F- Ii = _ Pi PI vl 4^
!$ ,S F' 0I'I0120
OSSP''2 =.0511-:1341
h'L;LI EN= 511101'21:151
RIEO '?:'A = !1 _'I~11-1C10
SEI I C: I =' 5105151151
5$CLR' = 5100510 1
S$LA = U i11FJUU 1
S$IIE1 05!510105
::1L1R UUUUU6
1;1_1 INTO THE H1-R E[II i!1'IIiiESS TABLE
(HET"AT?
H: ADD O400Cr TOI THE OILB EOQ ADDRESS. FROM?i 'HEHT? POINT
TO BIT2:+? THE?HRL - BIT.WILL ALIJ!-!`i_.BE BIT-2?
B: FLIT-THIS-ADDRESS INTO-HEAL WITH BIT13 =.I
 QcLFAL MC4 M 1 1 10 27-MAR-90 15: 15 PRGI- 5--1
Approved For Release 2005/07/1?CIA-RDP85-00514R000100040001-2
58
000112
012(U7
0017(7IU
I_1LOON4'IG
55
bU
LEI01:'11 N1
bUU 1 b
016767
U00000G . 000UUUU
110`?,
!-*HLL
PHFHL, HDDh
UNtl'H
61
U01311.3
64
65
000135
116777
000UU0G
U000U0G .
M1OV,,VB
IDID.ILJPHUHRL
-.PUT OI.L:: IF .I DUMMY
HR'+.L
t:
0L151144
005257
000000E
INC:
F'NLIHRL
BUMP PO INTER
I_(
000150
1057U7
OOOOOOU.
iFICB
1 UHRL
INCREMENT D I I. COUNT
!J
U!:UU154
UF_IU415
Biy
_I CIIN_
69
(i.
(' " 111111 0 15 6
7.4 000156,
(5 I3 1U10154
75 000172
06020 0
7 2c 01004
I_I
31
c `2
04'151211_1
18 0001 _ 14
89 000216
'B0 0002 0
9.1 0 01=1'x''7 4
92. 01311312','5
`-1 1-11:111; -' .- 4
94
95
99
1ri0 000210
11: 1 1310 f-712,46
1!:1'2 ? 43 LOi.1'''54
1I3Il.
104
105
1 131 _
10?
108
1US
11U
111
11,
114
U 43102 b 0
UUE' U4
Al l;_11 I
UI'II_i2(4
I:~IUU~U
011=, 157
0 6 2 7 6 7
A 16767
005257
00531 !_i
001410
14_15;'_57
01315F v 1
0 52'7f_ `
000 167
01:_'75(
015 57
GET ADDRESS CIF EOO ? L:IORLi . FOR C:LIRRENNNT ? C!LIER`r'
PLIT HRL? BIT PAINTER INTO HFAL
EN TRY.
MIRK
000000E
00081310E ?
tl0
HEI'IT (R 1) . DATA
GET ADDRESS OF
HRL . WORD
I N ! L0
00400131E .
000060G.
ADD
4k 8400E1+I RLPN T `. DH T A
;ADD BIT ADDR -
BIT-2.
01UUII-j 000
000000E
I IU';r'
CALL
INC-
PHFHL, ODOR.
ONI:FH
F'HFHL
:: FAL ? ADDRESS
2 4
INCREMENT POINTERS TO HOR OCL AND SOFT OCL
DECREMENT O CL EN T R'Y COUNT
I F C:OL iNT HOT = :31
THEN GOTO 1
000000E .
i HC -
DEC
PHOCL
Ra
r. BUt'1P PO i HTER TO ? HOR OC:L
" SLir F%:Ot?1 !.!CL EtITFr CC ii it;T
BBEO
1$
FINISHED
0000000
INC:
IDID
SET HExT UUE_RY ID
I `I I
( R1 ) +
INCREMENT 1_!CL/HEAT OFFSET
00000E
0000:000
ADD
41'2, F'CIOCL ?
BUMP PIO I i?ITER T_i SOCL
1. 7 ,_7 5 5 4
R IF,
OC,LF.`
COIN")EI ' ! NEXT ?SLE I I_IF F AL Et"1 T R I. ES
FINISHED WITH FAL
MOVE FAL HALT CCIDE TO.OCL
077777
800000G. 1$15-:
MO'+/
8 7777 DATA
HALT CODE - V`7777'
00:311'113143111
0011 080G
4"11_1 .r '
i F! C _: i_ - D D R .
LILL HDDRES5
!_HLL
J11Li_1
105757 0000001?
0 F1 1 0 1 1
01276J7 10111041 . 000E_14_tU
U 1"27 6 i 1101_14_110 1 431UU4311.14311
IF THE-NUMBER-01---DUMMY HRL ? ENTR IES
A SET 'HLLHRL" FLAG IN CP DATA
E!, i[fI...FO EXIT.
iIE P MO R'i
TS T B HL IHRI_ ANY NO-LIHL HRL 0 iD S TABLED
EIRE _} "'r E.., ..11::1 it TO I_N InIH'1"lti"1111 '7'
M0'??;' I1I'II_LHRL, HDDR ; HDDR OF HLLHRL FLAG in ?I CP OH T H MEMEP'*r?
DATA SE 1 ' F1 HG
L:HLL ijNILL:D
EIF' I!FE
Approved For Release 2005/07/14: CIA-RDP85-00514R000100040001-2
 QCLF=AL MACRO-M1110 27-MAR-00 15:1 Appore P r Release 2005/07/14: CIA-RDP85-00514R000100040001-2
115
116
117 0003 10-
1 1 b r1fl.1
111111111111 E
I?10 ~??Jh
F; Li I -111P. L, 1 .0
118 000314
006200
ASR
RO
119 000316
0052001
!NC.
P,,
;GET-NUMBER-OF i IODOS TO - I RAN JL ER
1 l' 111 18 3 211
11 :1,:27CI 1
11111111110E
MO\
0HUHRL, R 1.
;P.1 -> HO-LIHL HRL
I. I11::1[1. 2 4
N 12,702-2, ?
L'IL'II_i1111l_'lG
NO`?
'
4Fii_iHLCIi, P.2
4
R2 ? ADDRESS. IN CP DATA MEMORY
1 ' 2 ? 13130338
111'215
LIEiOEH3O
MOV
(F1)+.IiA A
;:i1i]-LIHL HRL WORD TO BE WRITTEN,
123 O&i 1 ?_1
011_1'26
FD II10I10G
MO`??r.
R ,ADDR.
TO. SLOT IN . C:P DATA . MEMORY
124 000340
125 I II_i03i44
I I05 ?112
CALL-
INC.
ONECD.
R2.
;, Eli_iMP..POINTER
1C [I1111346
1:11.:1:.7'1011
DEC
RB
DEC. i,l,,F'I). i_i=ii_iNT
127 I?I11J i 50
QII1 I. F
E1 N E
=;
12
i; ")
13
131 000352-
012767
00880013-800000G.
HO `?,'
#f1LLHh L . i-iD1TR
AOI1R Oh . ALLHRL- F=LAG IN . CP 1iA T H r1Er10RY-
11 ? 000360
1; 1 I i :,=~ 11 i_ 7
000800G.
CI_R
BATH
; L:LEAR (FLAG
133 00036,4
i_ALL
LiN11_L_J.!
134
135 000.370
0=EX:
1=, t;
1=r
? Approved For Release 2005/07/CIA-RDP85-00514R000100040001-2
 ADDR. GX?
ALLHRL= rwwr:+:1 G;
ALUI_KE=? E14E12100
ALULIL 004000
A01 = 010000
LI1TVHL=? 41F1000-I
BI Ii
BIIlI
El I l 12
B I I I3
EI 1 T 15
B 1 T -6-
B 1 T -55
BI-16
B i 79
BYTE 10= 0000 12 ?
BYTE 11_ 0 0El 1 3
BYTE 1.2 11000 1.4
BYIE13 2100015
BYTE 14 = 00210 1 6
B'YIE15= 110001.2'
BYTE 16 00002.01
BYTE 111= EE0022
B'Y I L 1._-;1= 011210'23
B'`i'fE2 =?00Fi002?
BYTE 2 0 = EIAf11[',_,_:}
B'YTE2 1 =. EIUB 2'25
BYiE'22=? 00022'25
BYTE,_'.. C[0002T
BY'TE2i4.'= .021011.? 0
BYTE 5 UUUU." 1.
EIYTE26= EIF?II:'_ii 1-1 ?
EI'YTE 2 7 _ ? I_1EI11Liv 3
BY I E;_I= 000034
BYTE29= 00007,5
BYTE.3 = ? 1100003
B'- TE.3Fi= /12121036
BY I L. I i. _ FUFDEi0.3,
BYTE32'= 2100040
BYIE3 3=? E1B0041.
BYTE 34= 2101.12142
BY I E3 1_110000.3
BYTE 3i'= 0000=14
LLIYIbf;i'_ EI01:7E14:--1
BY I t 9= 00004(
B`i'TE44 =-000004
15: 1ApOFicF6r Release 2005/07/1
BYTE40=" 0001150
UY I 241. = 4 UU15 1
B'Y TE 4'2 = ? Cl OOC15'2
BY 11443= ? CICICIFJ53
BYTE44= EI11i1054
BYI145=-02111055
B`f I E46= 21F1O051B
BY I L4F121U05(
L-iY I L4 = . 11UUU 0
LIT I L- 49 = 0 0 01 U L, 1
BIT. rE:. = EI11 [i 0 Ci 5
BY 1150= 0 2141E-1U1.
EI`'i l E51= 0E0063
BY I I.`I 22 = 0OIJ116:4
BYTE 3= EF-1002
BY 12.'_14= . 212121E-166
EIY'TE55= 0E10Ej6 7
B`r.ll_i11 1JFJFJU70
B'Y'TE:57= 212100(1
B'Y I EE5O= 000072.
B'YTE5S= 02202173
BYTES =.BEI11E11i.
EIiTESF_I= FJ01E1(4
EI:-f(IE.i_ 1= 00410(5
B'YTE:152= ? EIULIU( 6
B'YTE'S3= 00001;'(
BYTE:F:S 4= 2100 1210
UTIEE.El :b= U11U1U1
B'Y'TE.i=Ir 0 0 0 102 ?
BYTE i' _ 101127 1213
BYTE1.1:-1= ? 0020104
BYTE(--.,:I =. 2100105
BYTE:i' = 0i?li_=1BB
B'Y' I L.(0 2121211.226
B YTE: 7 1= 000107
B Y - 1 I: = 0001 10
B'1''IE.73= I II IE1 I 1 1
BYTE:?4 =: 010112
BYTE 75 = 21210113
B'Y I L.(1.= 222,201 14
B'Yi..L.((= 000115
EI 1;...1L. r' I-1 = 4_I EI U I.:[ In
BYTE I'9= 00A11
BYTE :I = 21210010
BYTEIBO= 00271222
B'YTEE-li= 02121122
BYTEB2= 0i0F112
BY T E O 3 = 212111 1. 2,. 3
BYTE-84= 00012 4
BY T Et'. 5= I?_I 001 12 5
BYTE86= 1121211.26
B'`II EO 17, 000 12 (
BYTE8B= 02101.30
BYIE.LIU C!CI0i3i
B'YTEB =.000011
BYIL.I10 21001
37
B'YTE51= 00['
'Approved
DYFE92 = 000134
B'YtE93=? 0412135
BYTEB4= Ei2IE1136
BYIE95= UUU13r
B'I'TE96= 02101=121
B'Y I E L' ( I_I F_I El 14' 1
BY I L.ILI = 1102.1142 ?
LAYIL`~ti= I_IUI_1143
B'Y L'?:''HL= 021F1144
CBKALL= OE11000
CBk::CLr::= 01.10400
E:I"1I IE1I iL = 12104/1/21
CPCCEH= 21141E_041
i I i..HL1= _422214111
CF'I,IR? I E= 0221212121
I_:bbAD .L1= 211 I 211114
CSE1_IC I = 121E-102i22
C:SCIL- =. FJMJij-fnAI I
CSIJRTE= 0EIF11E1EI
D A TA
1DBR RD= O'Fji=i.0R 1
.IJB=T-L_1'P= JU 145?
.L?B$ I F'II Ii EIEIL.:
D I!_IPI :_i = 1 F1021021
1:111) 1-111Ai.: = 212E21212E5
DMi-*iRRD= 0 0021021
DMBiRUR= 021E-1U214
ENBR = 010000
G::