HIGH SPEED TEXT SEARCH SYSTEM HSTS SOFTWARE LISTINGS VOL. 3 OF 5

• Document Type: CREST
• Collection: NGA Records (Formerly NIMA)
• Document Number (FOIA) /ESDN (CREST): CIA-RDP85-00514R000200010001-4
• Release Decision: RIPPUB
• Original Classification: K
• Document Page Count: 419
• Document Creation Date: December 28, 2016
• Document Release Date: July 15, 2005
• Sequence Number: 1
• Publication Date: March 1, 1980
• Content Type: MISC

Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
H
FISTS SOFTWARE IGH LISTINGS
VOL. 3 OF 5
Query
Translator
SPEED
TEXT
SEARCH SYSTEM
NGA review(s) completed.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
HSTS MASTER COMPUTER SOFTWARE LISTINGS
SL120100
VOLUME 3 of 5
Prepared for:
Central Intelligence Agency
Washington, DC 20505
R80-016 ST
March 1980
ST
Approved For Release 2005/08/22
: CIA-RDP85-00514R000200010001-4
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN MACRO Mu110 27--MAP-80 13 fipra For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
1
?
MACRO .TO PRINT. BUFFER.
3 CREATES.SPOOL.FILE RECORDS.
4
5 .MACRO PRT.START,EHD.
MCW?
7 MCW?
Nb
MOV.
1171 JSR.
11 MOV.
12. .ENDM.
13 -MACRO PRTH,
14 MOV. R4,?(SP)
15 MOV. START,R4
16 MOV. R4,LOCAT.
17 MOV. EHDEHDLOC.
10 JSR. PC,PRHTH.
19 Mn.?. (SP)+,R4
20 .ENDM.
21
22. ; MACRO TO TEST.CHARACTER.SIGHIFICANCE-
23 PARAMETERS.HRE.COHDITION,TRUE,.AND.FALSE.
24 COHDITIOH=THE.TEST.COHDITIOH.
25 TRUE. =PATH.TO.TAKE IF.COHDITION.TRUE.
25 FALSE. =PATH.TO.TAKE IF.CONDITIOH.FALSE.
27 ; ANY.PARAMETER.CAH.BE.PROCEEDED.BY."In WHICH.CAUSES-THAT.
28. PARAMETER.TO.BE.A SUBROUTIHE.CALL.
2..71
R4,?(SPI
START. R4
R4,LOOAT.
EHD,EHDLOC.
PC,PRINT.
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
.MAIN, MA4.11110 27MnRso 17441* d 0.1- 1.4)-
i-dye ror Release 2005/08/2.IA-RDP85-00514R000200010001-4
0000G0
.PSECT?HUMRHG.
3
4
7
0
.SEITTL. NUMRNG?NUMBER.RANGE.CODE
THE.FOLLOWING.CODFAS.USED.TO PARSE AND CREATE-THE.EMATRIX.
ENTRIES FOR.NUMERICALRAHGES:
DATA.
UULJUUU
000000
LBEG:
.WORD.
0
;BEGINHING.OF-LOW.RANGENUMBER.
10 H00HH2-
VIMVIHMH
HBEG:
.WORD.
;BEGINNING.OF.HIGH.RANGENUMBER.
11 000004
000000
HMAX:
;MAXIMUM.4.TERMS
12 1,1111,11,111b
0000
EXPVPT:
.WORD.
O
;EXPANSIOH.VECTOR.EHTRY.POINTER.
1.3 aaualu
duuudu
EXPSPT:
.WORD.
;POINTER.TO.EXPAHSIOH.CONTROL.WORD.
14 000012-
000000
LSZ::
;SIZE-OF.LOW.RANGE.NUMBER-
15 000014
HvInvmH
HSZ::
Si
;SIZE.OF.HIGH-RAHGE.HUMBER
lb Hnnnlb
HMHHHU
LSED:
.WORD.
A
;SIZE.OF.LOW.RANGE.(PAST.DECIMAL)
17 0051020
lb ULIFJL1IiI
19 HM11[122.
000000
000000
HSaD:
EXPSMR:
DECFLG:
.WORD.
.WORD.
0
A
;SIZE.OF.HIGH.RANGE.(PAST.DECIMAL)
;PTR.TO.MERGE.EHTRY.FOR.SINGLE.EHTRY OF .MR,
;DECIMAL .FLAG.
20 AAAA24
21 000024
000000
IHCLUD;::
SCHIND:
.WORD.
FLAG TO IHCLUDE.VECTORS.IH.INIT, VECTOR-
;SIGH.IHDICATOR.
22 AAAA2R!
HUMVLU:
;NUMBER.VALUE.FOR.COMPARISON.uCAKRHG"
14.3 Hmunzb
HHUUUU
LACSZ:
.WORD.
A
;41-COMMOH.CNARS TO.LOW.AHD.NIGN.RAHGE.
24 00311.343
AA0000
RHGUDE::.W0HD.
Li
;RANGE CODE.BYTE (SEE. FLAG DEF.f'S.BELOW)
25 43o14332.
omosa
HFPTR:
.WORD.
El
;POIHTER.TO.HUMERICAL.FLDC
1313 AAAA34
27 AAAA3R
AAAAAA
AAAAAA
HFIPTR:
DPTR:
.WORD.
. WORD ?
0
;SAME.AS.ABOVEA USED.WHEN.MULTI-RAHOE,
;POIHTER.TO.DECIMAL.POIHT.EMX.EHTRY.
2R? AAAA4A
ARRAIDA
N" 14
.WORD
A
;POIHTER.TO.HUMERICAL.VLDC
29 000042
000000
ZPTR:
.WORD.
0
;POIHTER.TO.ZVLDC.
30 0A15I044
HHHhtlel
MMM:
.WORD.
0
;CHAR.POSITIOH.HUMBER:
31 oo11146
43434343013
HHH:
.WORD.
0
;TERM.HUMBER.
32 LI 11114511
AAAAAA
HOHTRM:
.WORD.
El
;HO.HIGH.TERM.FLAG.
34
35
3A
RHGCDE FLAG .VALUES
37
Hun,-.n0
MR2.
=BIT7
;MULTI -RANGE.2ND?PASS.(RESERVED FOR.USE.IN."NUMRNG11)
3R
14111111113
MR-
;MULTIPLE.RANI-4ES.(TWO.RAHGES)
39
0A004A
CM.
=BITS
;COMMOWCHAR'.'S EXCLUDED.
40
AOAA2A
PD.
-=BIT4
;PAST?DECIMAL.POIHT.(BECAUSE.OF CM EXCLUSION)
41
000010
DHUM-
?BITS
;DECIMAL .HUMBER.
42.
0A00A4
IHCLD.
=BIT2.
;FLAG.TO.IHDICATE.VECTORS.SHOULD.BEINCLUDED IN INIT-VECTOR.
43
A0171002-
USERS
=BIT1
;FIHAL.PASS, R3 POINTS.TO.DESIRED.MERGE.VECTOR.
44
AAAAA1
114.3
=BITO
;SINGLE.ENTRY,RAHGE.OF.A MULTI -RAHGE.(1ST-PASS)
45
000400
MRI
=BIM.
;151 PASS.OF.MULTI -RANGE
45
47
AAAA 52.
0E.0
072
ZERO;
Approved For Release 2005/08/22,: CIA-RDP85-00514R000200010001-4
.MAIN: MACR0.M1110 27-MAR-gn 17 2a __po
NUMRHG.NUMBER.RAHGE-CODE- --?Approvik kir Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
4q 5A ;." SUBROUTINE.TO.PARSE.HUMERICAL.RANGE.SPECIFICATIOH.
51 INPUT. OUTPUT.
52. ; RO=. SCRATCH.
57. ; Ri=. CHAR. AFTER SEG-OP. CHAR.AFTER.RANGE.PTR.
54 ; R2=. *FLUTBL. (SAME)
55 ; R.3=. ..... SCRATCH.
55 ; R4=. FLU.NODE.ENTRPTR. HEW FTP (AFTER .RANGE)
57 ; R5=. SCRATCH:. ....... .... .......
..-,
...,0
59 000054 005003 RHBRHG::CLR. ;R3=CHAR COUNTER.
60 000055 012705 177777 MnV. *-1,R5 ;R5=LOW.RANGE.CHAR COUNT.
61 000062 01.1531714 DEC. R4
62 000064 SAVE. R4 ;R4=RANGE.BEGIH-PTR.
63 000066 005067 177735 CLR. RHGCDE ;INIT.VARIABLES.
LHCSZ.
54 660672 065057 177730 N:
55 000076 005067 177714 LSZD
f:,,,,, 0o5'l12 005057 177712 CLR. 1+:1ZD
67 000106 005067 177710 DECFLG.
65 000112 005067 177706 E: SGNIND.
oLEXT93,R2. ;SWITCH.TO.NEW.PARSING.TABLE
70 000122 112724 0000000.
00012669 000118 012702 000000G.
nEGOP,.(R4)+ ;REPLACE WITH.SEGMENT.OPERATOR.CODE.
tf:!
SAVE ;R4=LOW.BEGIN.PTR.
71 AAA12 ..--:111..
7? 000130 022757 00000HG.000000G. *NMRNGF,FLUTYP ;1ST.ENTRY.FOR.FLU?.
73 00017.6 001415 BEO 4$ ;YES.
74 000140 105754 177776 .
T5T9. -2(R4) ;NO: IS.PRIOR.CHAR A.DOWT.CARE.OR.RANGE?..
75 000144 100566 Bri1. 701$ ;YESg ERROR:
76 000146 SAVE. RI ;CHECK.PRIOR.FNTRY FOR .NUMERIC.
77 000150 010401 R4,R1
79 152. 162701 000002
000 #2,R1
79 000155 004757 A00000G. i PC STEP
A0 000162.? ieTNUM,701$ ;ILLEGAL IF NUMBER
81 000170 RESTOR
-, .
0 000172- 111124 4$: Li.711::K. (RI), (R4)+ ;XFER.CHAR.TO.FLU.NODE.
87... 000174 0052072, R3 ;COUNT.CHAR:S.XFER'ED.
84 000176 004767 uum-1001,- n PC,STEP. ;IDENTIFY.CHAR.
bti uuu202 CHECK. CSTMIN,,10$ ;CHECK.IF.MINUS.
86 00021A 005267 177610 . SONIND. ;NOTE.SIGN.00CUREHCE.
RR 000215 005304 INC:
87 000214 005303 DEC. R3 ;ADVAHCE PAST.SIGH
R4
HH 15515122M 005705 TST. R5 ;WHICH.PASS?.
5,1.2 HI,IM. 100415 5$ ;1ST, OK
,-.1 i *1,SGNIND. ;2ND, IF 1ST.SIGN, SET.T0.-1
1 Hmff,.-"24 U22KH( m00001 177572.
92.K. N
0002 001011 BHE. 5$
93 000274 012(6( 1(r?,... 177562. *-1,SGNIND.
94 000742. 000405 ffIL 5$
95 000244 10$: CHECK CSTZER,,11$ CHECK IF
96 000252. 005304 DEC R4 ;SUPPRESS.LEADING.ZEROS-
97 H00254 1.10572.07. R3
9A AA0256 111124 5$: DEC.
MOVE'. ;XFER.CHAR-TO.FLU.HODE.
99 000280 005207. INC -R3 ;COUNT.CHARS.XFER?ED.
100 000262. 004767 0000000. jSR. PC,STEP. ;IDEHTIFY.CHAR.
101 05026:;,,. 000755 BR 10$
102.000270 11$: CHECKCSTNUM,12$ ;IF.NON-ZERO.HUMBER.CONTINUE
103i 000276 CSTDP,50$ ;IF.DECIMAL.POINT.
104 000304 CHECK:
12$: CHECK CSTER,13$,700$ ;IF.END, XFER.AT.LEAST.1 ZERO; ELSE,. ERROR.
155 001 111124.
Ili Approved For Release 200 108/2 1A-R1jAV2006'URT000260014-600-11-1:41'.
QUER TRANSFORMATION PROGRAM. MAC
FINITE.STATE.CONTROL TABLE.
182.0001E6
13.ti 444
.b08,P....,
..-RDP85-00514R000200010001-4
FSCFLUt
183
171001F.F.
TFORM.
TS.
;T(SO,CONSTANT)=TS
184
000170
TFORM.
IS
;T(S1,CONSTANT)=TS
1135
000172.
TFORM.
TO
;T(S2.,CONSTANT)=TS
lee
000174
TFORM.
TS.
;T(S3,CONSTANT)=TS
187
RnA17fL-.
TF ORM.
TS.
;T(S4,CONSTANT)=TS
100
000200
TFORM.
TS.
;T(S5,CONSTANT)=TS
109
AAA202.
TFORM.
TS.
;Tf...S6,CONSTANT)-
? Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
444I
I
QUERY- TRAHOMATI OH PROGRAM.
MISCELLANEOL, ? STORAGE ?
191
192.
197.
mAcAppnamed Flfr-Releate 12f0A
Cf5/0,A-RDP85-00514R000200010001-4
.SeTTL?MISCELLAHEOUS-STORAGE-
EVEH.
134 bijO2U4
STATE;
.BLKU
1 CURREHT STATE-
11.7itt OULY2Ub
ARGTMPt
.BLKW-
2- sTEMPS.FOR.TRANSFORMATION.AND.SIMPLIFICATION.SUBROUTINES-
196
1.97
IF.
GT,OUTPUT.
198
HMSGTO;
.ASCII.
./QTFORM NORMAL EXiT 00ER'T ROOT
I
199
HMSGPO:
.ASCII.
/.
200
HMSGLO
=.
?HMSGTO
201
EMSGT;
.ASCII-
/OTFORM-OUERY ERROR CODE IS
EMSGPt
.ASCII-
203
EMSGL-
=-
.-EMSGT-
21714
HMSGTI:
.ASCII-
'DUMP OF QUERY LOGIC NODES/.
205
HMSGL1
=.
.-HMSGT1
:7-1216
.FHDr-
207
20G
OPERATOR.SIMPLIFICATION.ATTRIBUTE.TABLE.
209
210 000212.
TPTAB:
211 000212.
nori
.BYTE.
0
212 000213
014
.BYTE.
IDENTIHILPT-
;SUBDOC-
213 00171214
AAA
BYTE.El
214 000215
014
.BYTE.
IDEHT1HILPT-
;NOT.
215 000215
147
.BYTE-
IDEMPITAUTLIIDENTIABSAHDIABSPX0
OR
215 808217
147
.BYTE.
IDEMPITAUTLIIDENTIABSAHD!ABSPX0
;HIGH-OR-
217 033228
cloo
.BYTE-
A
2117.1 OUL1221
331
.BYTE-
IDEMPIHILPTIABSOR-
AND
219 000222.
000
.BYTE -
231
BYTE-
IDEMPIHILPTIABSORIABSPX1
;1J-PRO:-
221 880224
000
.BYTE.
n
227.AA1225
231
.BYTE-
IDEMPIHILFHABSORIABSPX1
sS-PROX.
7:3000226
AnA
.BYTE.
A
224 000227
231
.BYTE-
IDEMEMILFHABORIABE,PX1
sP-PROX.
225
Approved For Release 2005/08/22 : CIA-RDP85-00514O0012-000100014
QUERY- TRANSFORMATION PROGRAM. MArlen ? Mt Q TRANSFORMATION MAIN-ROUTINE 1114 z!!7111-,IP
Aporovea Fdr Kerease zuuo/u8/z2:ECIA-RDP85-00514R000200010001-4
UERY..
.2.27
-2.7...Q
2.7.-11.--1 000000
2760 AnnA0A
2.L'il UHHHHU
262.Hvinmitl
0u506(
000204'
233
000014
012705
ociaelooG.
234
0110020
012701
An0A000.
235
M.111024
005021
77.;
000026
005021
27,7
00011,30
005021
27 .1=1
RAN712.2.
605021
779
24A
241
000074
.SBTTL. OUERTRANSFORMATION.MAIN.ROUTINE.
.PSECT. QTFORM.
QTFORM::
SAVE. r.....1.i..2177E1...R4,R5
CLR. ;SAVE.CALLERS.REGISTERS.
:.INITIALIZE.CURRENT.STATE.
moV. #ARGSTK..TOP. .:IHITIALIZE.NODE.STACK.
MCN? #SNODE,R1 ;INITIALIZE.SHODE.
CLR.
CLR
(R1)?
CLR.
CLR
.
PROCESS.CURRENT.HODE.AHD.TRAVERSE.LEFT.SUBTREE.
GROUP I:
242.000034 032702 lAAAAA BIT. 4-0HFLU,CUR. ;IS.CURRENT.HODE.A.FLU?.
27Y: GROUP?. ;TO.RIGNT.SUBTREE.TRAVERSAL.AND.TREE.BACKUP
-1 .
243 000040
244 HM1142. U.32(62 11-1M-IMI HUM1H1-11_3. *ONTREE,ONATTR(CUR) ;HAS.SUBTREE.ALREADY BEEH.TRAVERSED?.
24.5 000050 BOW GROUP2. ;TO.RIGHT.SUBTREE.TRAVERSAL.AHD.TREE.BACKUP.
248 BBM.952. CALL. SIMPFY. ;SIMPLIFILATIOH.SUBPOUTIHE-
247 FIBBB(.; 103766 RCS. GROUP1 ;REPROCESS IF.SIMALIFICATION.00CURRED.
240
1...-14I--.1 MUMMHM 1162U1 HHHHHHG. HO 18 OHOPCD(CUR),R1 ;GET.CURREHT.OPERATOR.CODE-
25B BABFIF.4 116101 000022' Mg ../B. ['-I HF ;GET.OPFRATOR'S.FSC.OFFSET.
251 1711710070 062701 BBOO4B ADD. *FSCTEL,R1 ;GFT.OPERATORFSC.BA!;E.
252.000074 066701 000204 ADD. STATEfiRi ;GET.FSC.INDEX.FOR.CURRENT.STATE.AND.OPERATOR.
253 000100 066701 000204 ADD. STATE,R1 ;SECOND.ADD.GETS.WORD.INDEX.
254 000104 011100 NOV.
BMI. @Ri,R0 ;GET.FSC.ENTRY.
255 000106 100412. 10$ BRANCH IF TRANSITION.
25E 000110 116762. 000204' 000000G. NOVA. STATErONSTE(CUR) ;SAVE.CURRENT.STATE.
257 000116 010067 000204'RO,STATE. ;SET.HEW-STATE.
250 000127'. Il L. HODPUT. ;PUSH.CURREHT.HODE.ONTO.STOCK.
259 000126 015202. 000000G- MOV. ONARG1(CUR),CUR. ;GET.HODES.LEFT.SUBTREE.
2E0 000172. 000740 BR GROUP1 ;PROCESS.LEFT.SUBTREE.
251 000134 10$:
267.000134 110000 MOVE. R0,R0 .:CLEAR.HIGH-ORDER.BIT.TO.INDEX INTO.
253 000135 CALL. @FSCTWRO) ;TRANSFORMATION.TRANSFER.VECTOR.
254 000147. 00077.4 BR GROUP1 ;REPROCESS TRAHSFORMED.TREE.
255 ;
266 TRAVERSE.RIGHT.SUBTREE/BACKUP.TREE.
0110144 GROUP2.
2E8 000144 B1.711=71.5 TST. @TOP ;TEST.IF.HODE.STACK.EMPTY.
269 00014.6 001431 BEG!. XTFORM. ;IF.YES, TERMINATE.TRANSFORMATION.PROCESING.
270 000150 032764 0A4000 OAAAOAG. BIT. #OHSTAK,ONATTR(STK) ;HAS .RIGHT SUBTREE.JUT.BEEN.PROCESED.
271 00171151; EON- 154 ;IF.YES, BRANCH.AND.BACK.UP.TREE.
272.000160 052764 01714[710n A0A0000. BIS. #ONSTAK,OHATTR(STK) .t,t10), MARK.RIGHT.SUBTREE.TRAVERSAL
273 000166 016402. 0000001. MU...). OHARG2(STK),CUR. ;GET.HODES.RIGHT.SUBTREE.
274 000172. 0017E4 DEO- ;UNARY.OP.- AUTOMATIC.BACKUP.
275 000174 BR
000717 Ngr...71:' ;PROCESS.RIGHT.SUBTREE.
776 5100175 10$:
277 000175 052764 100000 000000G. BIS. *OHTRFEfiONATTR(STK) ;MARK.HODE OS COMPLETED
27U Hm1204 116467 HHHHHHU.P1012M4? NCNB. ONSTE(STK),STOTE. ;RESTORE.CURRENT.STATE.
279 000212. HODPOP- CUR. ;POP.OFF.T0E-OF.NODE STACK.
280 000216 000752. BR GROUP2. ;CHECK.PARENT.NODE.
? Approved For Release 2005/08/2201A-RDP85-00514R000200010001-4
?
OUERY-TRAH. .MATION PROGRAM.
OUERY-TRANF le_MATION MAIN.ROUTINE.
rAFISOOVedF6r7RekiaS420:05/08/22.A-RDP85-00514R000200010001-4
UNDEFINED.TRANSITION.EXIT.
2872: 0802171 OTX:
--I4 uouzzo 0127b7 000005 00017180G. MOV. #0E:IFF,,ERRCDR
285 ;
286 ERROR.EXIT.FROM-OUERTRANSFORMATION ROUTINE.
7 nAA226 XERROR:
ij
0
2q1
'3cl
14 'bid '22E) ddbib7 000000G
-
2q5
.IF. GT. OUTPUT.
CVTASC ERRODE,EMSGP.
PUTSS. *LIST,*EMSGT,#EMSGL.
PUTSS. 4LIST,#NMSGT1,4,HMSGLI,
PRT. *0HPOOL,OHDHXT
.EHOC.
JHP. ERROR.
296
NORMAL.EXIT.FOR.OUERTRANSFORMATION ROUTINE.
297
00027.2.
XTFORM:
298
.IF.
GT,OUTPUT.
MOV.
R2,ARGTHP.
300
CVTASC.
ARGTMP,NMSGPA
301
PUTS.
#LIST,0HMSGTO,*NMSGLO
302-
PUTZS.
*LIP2J,ioNMSGT1,4HMSGL1
PRT.
*OHPOOL,OHDNXT
7.1714
.EMDC.
305
000232.
RESTORE
RI,R3,R4,R5
306;
000242.
6100207
RETURN.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4-
?
AcAWil6Wil F8KFklgre-ase f.51
OUERY.TPIIINSFORMATION PPOGFt:I'M M gri FIr &I-7A-RDP85-00514R000200010001-4
GET HEW OUERY LOGIC HOPE SUBROUTINE
309 .9BTTL?GET.MEW.OUERY.LOGIC.HODE RUBROUTINE.
31719
7;i1E1 (R3) -..BASE.ADDRESS.OF OBTAIHED.LOGIC.HODE OH.EXIT.
311 OHDHXT.IS.UPDATED.TO.POIHT.TO.HEXT.AVAILABLE.HODE.
312. SUBROUTINE.ZEROES.OUT.HEWLY.ACOUIRED.HODE-
313
;
314
888244
GETOHDt
315
000244
026727
uouuouu.uutruu 1...
CHP. OHDHXT, ONTLST ;AHY.HODES LEFT IH .POOL?.
316
000252-
103405
BLO. 1$ ;BRAHCH.IF YES.
317
318
ERROR - OUERY.LOGIC.HODE SPACE EXHAUSTED.
319
328
888254
812(6(
8801441 HHHHHMLI.
NOV. #LHPOVF,ERRCDE ;SET.UP.ERROR CODE.
111.10262.
000167
177740
...THP. XERROR.
322
323
LIHn-bb
1$:
.34
1.11.1MZFlin
ub2(br
HUMMHH.MMI-IMMVIU
ADD. #OHDSIZ,OHDHXT ;UPDATE.HEXT-AVAILABLE-HODE.POINTER.
SZE,
UUL12(4
Ulb(11.3
UUMMUU6-
H0v. OHDHXT,R3 ;SE1.R3 PAST.HODE.FOR.ZEROING.SEOUEHCE.
725
32(
000300
000302.
005043
005043
CLR.
[:LR . -,
-R3
000304
2AF,043
CLR. -(R3:
330
AFIA-Wil:".
005043
CLR. - (H.3)
331
R3 HOW.HAS.BASE.ADDRESS.OF.HEW.LOGIC.NODE.
888310
888287
RETURN.
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
?
DISTRIBUTI 'v ?QUERY-TRANMATION PROCiRAM. MAWW.411a '11:i7- 2ooSfusA QA lki4
(Rer6a e lat-RDP85-00514R000200010001-4
101, RANSFORMATION.SCHEMAT vea Fcr
336 .SETTL-DISTRIBUTIVE TRANSFORMATION-SCHEMATA.
f
LEFT DISTRIBUTIVE.FORM.
339
339
340
341
342.
343
344
345
346
347
349
349
7356
351
72C.7)
354
355
355
357
35e
3F,9
360
361
362-
153
364
395
fz:
79?
368
359
370
371
372.
373
374
3,35
3?5
(
7-79
788
381
392.
303
384
385
386
388
.389
390
391
392.
a
*
* * *
STK- * OP-14< *CUR. * X. *
* * 4I,.
* * ?*.
:4 * ::.f
* >':: ? :4:: 2 ? *
>1.:: >4 *
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
QUERY-TRANSFORMATION PROGRAM. MAC
SCHEMA11
394 0017112.
7395 AAA.712- U.:52764 8848851 HHHumH1.3
395 000320
397
OTD:
Faikete-age i065708hCfA--RDP85-00514R000200010001-4
BIT. *ONSTAK,ONATTR(STK) ;TEST.FOR.LEFT.OR.RIGHT,FORM.
BON- 10$ ;BRANCH .IF RIGHT-SUBTREE.
7.1PA
PUSH.ARGUMENTS.FOR.LEFT.FORM.ONTO.STACK.
399
400
000322.
PUSH.
401
000342.
000410
BR 2A$
402.
403
PUSH.ARGUMENTS.FOR.RIGHT.FORM.ONTO.STACK.
4.04
000344
10$:
405
000344
PUSH-
4515
407
000354
20$:
408
550554
012700
000212'
MOV. 41,..ARGTMP+4,R0 ;SET.ARGUMENT.FIELD.LOOP.LIMIT
409
000370
21$:
410
8071370
CALL. GETOND-;GET.SUBTREE.NODE.
411
000374
POP-ONARG2(NELD SET RIGHT OPERAND.
412
000400
POP-ONARG1(NEW ;SET.LEFT.OPERAND.
413
A00404
OPGFN-STK. INTERCHANGE- OPERATOR
414
000412
CALL. SETPOL. ;SET.POLARITATTRIBUTES.
415
000415
01(7172,40
MOV. NElib-(RO) ;SAVE-NODE ADDRESS.
416
008428
828827
OUU206'
CMP-RO,#ARGTMP. ;BOTH.OPERAND.NODES?
417
AAA424
101361
BHI. 21$
418
419
GENERATE-TRANSFORWITION.ROOT NODE.
428
421
00042A
CALL. GETOND ;1-41FT NODE FOR ROOT
422
01710432.
0120572.
RAAAAAG.
MOV (RA)-F.ONARG1(NEL) ;SET LEFT OPERAND
42.6
800435
8I2010
LIUmmmu6.
MOV (RA)+,0HARG2f:NELD ;SET RIGHT OPERAND
424
000442-
OFGEH. CUR. ;INTERCHANGE OPERATOR
425
A00450
CALL SETPOL ;SET POLARITY.ATTRIBUTES
425
000454
010302
MOV. NE1,1,CUR. :ROOT NODE BECOMES CURRENT
427
011045F.
00015(
002146
JMP RETRCT. ;ADJUST STACK AND EXIT.TRANSFORM.
?
Approved For Release 2005/08/21FIA-RDP85-00514R000200010001-4
OUERY-TRAN1010MATION PROGRAM. M
HEGAT iorl ? TR SFORMAT I ON ? SCHEMATA ? AlitA3edvle'd RifRteliaga 2606/08/220M-RDP85-00514R000200010001-4
429 . SBTTL - NEGATION ? TRANSFORMATION ? SCHEMATA .
430 ;
431
?
.
LEFT NEGATION
432.
;
433
;
*************************************************
434
;
* *.* 4I *.*
52R.
BECOMES.
5..7A
531
*********:i ********
57.2
57;72.
NC
*NL. *NR :1:
534
535
*************** *** ***** *****:4
536
537
NL
X?
539
**.*, ******************************
540
*: * * *
541
HR
- * T * *
542
* * *
543
*************************
544
545 000572.
OTC:
546 000f1-,22.
PUSH.
LOW.CUT.OFF, WHAT.ABOUT.HIGH?
45E AA2652.
lAiAlA
BHI
1A$
;IT.IS.> HIGH.CUT.OFF.(IT.IS HIGHER.LEVEL)
4E9 002654
020402.
CMP
R4,R2
;IT.IS.IN.RAHGE, IS IT CURREHT.LOW?.
450 002f7.5F.
103364
BHIS
3$
461 002550
010402.
MOV
P4-p2.
;YES: SET.IT.AS.CURRENT.LOW.
452.002662.
010557
175120
MOV.
R5,SLBEG
;STORE.LOCATIOH.FOR.SUB -LEVEL?PROCESSIHG.
453 002666
000760
BR
3$
;KEEP.CHECKIHG.
464 002570
0113402.
4$:
MOV
R4,R2
;CURRENT LOW.=.TEST.VALUE.
465 002672.
000404
BR
11$
;AHD.IT.IS.THE.LOWEST.
4.55 002674
020201
1A$:
CMP
R2,R1
;WAS.A.VALUE.FOUHD?.
457 002575
001431
BEO
20$
NO FINISHED.SORTING.THIS.LEVEL.
468 002700
015705
175102
MOV
SLBFGR5
;RESET.TO.SORT.SUB -LEVEL.
465 002704
110277
175104
11$:
MO ,110
R2,12:3FM2C
;YRAHSFER.MOD.TO.SORTFD.ARFA
470 002710
005257
175100
IHC
FM2C
471 002714
010200
MOV.
R2,RO
SET LOU TO.ONE-ABOVE.LAST.FOUND.VALU
472.002715,
005200
IHC
RA
473 002720
022701
000177
12$:
CMP
*I77, R1
;ARE.WE.AT.THE.LOWEST.LEVEL?
474 002724
001737
BED
1$
;YES.
475 002725
020503
CMP
;NO: ARE WE.AT.THE END?.
475 002730
001414
PFO
20$
477 002732.
SAVE
RA
;HO: STEP.DOWN.A.LEVEL.
478 002734
152701
000100
SUB
*100,R1
479 002740
0i0100
MOV.
RI,R0
480 002742.
162700
000077
SUB
*77,RA
481 002746
004767
177642
ISP.
PC,FMSORT.
;SORT.THE-SUB-LEVEL.
482.002752.
052701
000100
ADD.
#100,R1
;STEP.UP A.LEVEL.
4.83 002756
RESTORE
P.O
404 515127551
000721
BR
1$
485 002762-
012505
20$:
110v
(SF)1-.F5
;FINISHED
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN: MACRO.M1110 27-MAR-80 12:59 PAE...1.7,-P
FLU.CODE. Approved Foe Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
486 002764 000207 RTS. PC-
487 !
488 ; ERROR.ROUTINES.
489 ;
2767 AAAAA1 AAAAAOG.ERR1:
490 002766 01 CV OF DW1 FRRrDE
il:Tli-111:' i *6,
E.
491 002774 000157 000000G. RROR
452.011.311110
01275(
ULU:162 0008000.EHH2r,
MT./,
00E.MTS,ERRCDE
493 003665
000167
066600G.
JJ1;11FDP
ERROR-
'1
44 Pivt.61112-
1-112(6,'
HVIMMil.', HHHHIIMG.FRR7.:
MOV.
40E 6 D1,2 FRRCDE
,
495 003020
000157
80AAAAG.
ERROR.
495 083824
812(6(
080084 HHHHHUL EKK4:
11.T.I?
*OE,ALC,ERRCDE
497 883632
600157
08808OG.
JMP.
ERROR.
498 8A7.117,F,
012767
008826 8888880.ERR21:
NOV.
*OIEJ=TB,ERRCDE
499 A87,044
000157
HHHUUuu
JMR.
ERROR.
5140
581
8nARA1
.END
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
Abb.
?
MAL
.MOIH: MOL 11110 27-MAR-B0
SYMBOL- TOOL .
ACTFMH=.****** GX.
ASKOVF-0001.45
BITVAL=.000000
RITO =.000001
BIT1 =.000002-
BIT10 =.002000
BIM -004000
BIT12.=.010000
BIT13 =?0umuA
LII 14 =.040000
8IT15 =.1.0u0u0
BIT2. =.000004
BIT3 =000010
BIT4 =.00002m
5I15 -000040
BI T6 =.000100
BIT? = 0.UO2o0
BI TO. =.00040A
BITS -001000
Es:ccs-000002.
BS:DBU=.mmmmmi.
U6:1NA-mmmmum
Bs:UPH-SuUMM1
BB:SRC=.000003
BYTEA -AnnA00
BYTE1 .--.AAAAA1
BYTE2.=.000002.
BYTE3 =- LIULILILIS
BYTEA -AlimUA4
BYTEti =? 000005
BYTES =.000005
BYTE? =.0000Ur
BYTER.=.000010
BYTEB =.000011
BYTVAL= 000012-
B:BSTA. 000094 AIA
B:CNTX. 000046 010
B:COUO. 000060 010
B:FEMA. 000132- 010
B:FEMB. 000142- Afe
B,FEMS. 000152. 010
B,FFSA. 000202. niA
B,FFSB. 000212. 010
641-1-'6U. 010
B,FMHR. 000172. 010
B:FOLS. 000162. 010
B:FSAE. 000100 010
B:FSB:. 000102. HIM
B:FSCE. 000104 010
B:HBLK. 000120 Ulm
B:HDOC. 000114 010
B:HRLP. 000126 Oi0
B:HRLR. 000122. 010
B:HRLiii. 000124 nin
B:HMBR. 000052. 010
B,MOKY. 000232. 010
B:ALSZ. 000105 010
12 5tppF696d1Fot3 Release 2005/08/2201A-RDP85-00514R000200010001-4
B:OMAP 000234
"0:0SPL 000316
B:OTTM 000076
E.101JOP AAOORS
B,GFDB 000010
B:SIZE 000772.
B:SHDP 000012.
B:SSO. 000004
B:SSOF 00005A
B:STAT
B:STTE
CFALS-
OF:00 =
CF :62.=
CF,B4 =
CF:B6 =
CF:DRO=
CF:DR1=
CHRCHT=
CHROFF
CPIXMK=
CSTCET=
CSTDP-
CSTDT.=
OnTDLi.=
CSTESH=
L:5 15L:=
CSTEDu=
CSTMIH=
CSTHC-=
CSTHF.=
CSTHUH=
CSTS0.=
CSTSZ.=
CSTTS.=
CBTVDC-******
CSTZ. -******
SURF. -100000
CUPIDX=.******
CUPHDE=.******
DBSLEH=.000116
OH BFB 000002-
DH:BF1 000004
DH :CTL 000000
DH ,DHC anon in
DH:FLG 000006
EMDUK UUmmmu
OH NT? 0013004
Dr4,11X1 HAMMUS
OH RUT 000002
AnOni0
DTFLG.=.000300
EMAOVF=.000166
EHBOVF=.000167
EMCOVF=.000170
ENCOsZ=.******
CX.
GX?
CX.
GX-
01A ERRCDE=.****** GX.
010 ERROR.=.****** GX.
010 ERRORV=.****** CX.
PIA 'ERR1 002766R.
010 ERR1J. 000016R.
010 ERR2. 003000R.
010 ERR2J. 000022R.
010 ERR21 003035R-
010 ERR3 003012R.
010 E51-135. 000654R.
010 ERR4 003024R.
Ain ERR4J. 00066AR.
FAL. =.****** GX.
FALMSZ=.****** GX.
FALOVF=.000160
FDC. -non0.74.7.1
FD.FID. 000000
FD.FHR. 000006
FD.FVR. 000004
FEJ.LEN. AnAniA
5114 FLDC. =.******
005
005
005
005
005
013
013
013
013
013
FLIX14= ******
FLUID = ******
FLUIDX= ******
FLUHDF= ******
FLUTRL= ******
FLUTYP 000002RG
FMDIDX= *1-**** GX
FMSORT 0026145
FM1E 000010R
FM2C
i
:7a T
FM2S
FH.DBR 000026
FH.DBA 000022
FH.DHR 000040
FH.EHA 000012
FH.EMB 000014
FH.FMC 000016
FH.FSA 000000
FH FEB 13013003
FH.FSC A0n51514
FH LOU- 000034
FH.LGU 000036
FH.MFO 000024
FH.MHR 000010
FH.HMB 000044
FH, OLE- 000006
FH.ORY 000020
FH .OFA 000030
FH.BF1 000032
FH.SHD 0000,12
GETHDE 002A416515
IHP,ITC= 000010 G
LFXTR3= ****** GX
LHPOVF= 000146
= AnANS2
MEDVDC= 000004
MERGE. 002072R.
H.
S. UUULIU2-
HDBKUJ- GX.
014 HDBOVR=.A0A175
014 HDCHR.=.****** GX.
014 HDFLID=..****** GX.
014 HDFMEH=.****** CX-
014 HDFHH-=.****** GX.
014 HDFMS.=.******
CX-
014 HDFSAA=.******
CX-
014 HDFSAB=.****** CX-
O1-4 HDSIZ.=.******
HDTRM.=.****** GX.
HDTYP.=-****** C.
HFALE.=.****** CX.
HHRHGF=.000100 C-
O133 HODEM-****** GX.
003 HODEB.=.******
003 HODEC.=.******
003 HULFMH=.******
HXTHDE=.******
H,BFAC=.000004
H:RHGH=.000006
H,BTCH=.000004
H:BUFB=.004000
H:BUFW--002000
014 H,FOS.=.000764
H,PKS:=-00002-
014 H:PKTS=.000043
014 H:OURY=.000031
014 H5UHT=.000002.
014 OHYVDC=.000001
All 1-FLU. 000026RG.
011 PFLUMD. 002200R0.
011 PHBRHG=.****** GX.
011 POLOVF=.000157
All PTERM. 0006641R-
011 OBFOVF-000150
011 OEXOVF=?000165
011 0E,DW1=.000001
011 OEDW2=.000003
011 OEIFTB=.000026
Oil OE:IHS=.000005
011 OE,ILE=.0AnnA4
All OE:IH0=?000015
011 OE:ISO=.000016
011 OE:MFL=?000013
Oil 0E,MFM=.000010
011 OF:MHT=.000012-
U11 U1--:HUF-UUUU11(
011 OE:MSD=.000011
01.4 O5MT5=.000002-
0E,HLO=.000006
5E:1--iO5=.00002B
OE:HRB=.000024
OF:HRI=.000027.
0E,HTK=.000027
Approved For Release 2005/08/22 : CIA-RDP85-00514R0002000
014 DE,PX1=.
0E,Fx2=
0E,PX5=.
OE:PX4=
0.E...UBP=
OLBOVF=
ORYOVF=
0,FDSC.
15 :MUSK
0.:HUHL
O,SIZE.
SCAH
SLBEG
SLBOVF=
SRCHBL=
SR :ARE
SR,ARS.
SR,DAY.
SR:DLT-
SR:ECB.
SR,ECH
SR:ECL
SR:FIB
SR:GRE.
SR:GRS
SR:LEH.
SR,LIH.
SR:LIP
SR:MUN
SR:HDC
SRIHDS
014 SR:Hill.
014 SR,HIP-
SR:SDB.
SR :SRC
014 SH:SUH-
SR,TUS
SR:USL.
SR :YR
SR:1IH
SR:1IP
SS:F1D
SS:FHB
SS17YR
SS,LEH
ES ETT
STEP =
SLASE
ST,BSZ
STJIITC
ST,CSZ.
ST,HRL
ST:LEH
ST:ORY.
ST,QSZ
ST,SCH
10001-4
?
000017
000020
000021
000022
000144
000014
IDE-Jai:63
000155
000004
007
0000[10
? 007
AAAAA2
007
nnnni4
An7
001726R.
A14
00000SRG.
noniF.4
nonn4o
014
000114
002.
00010S
007 .
A0A010
002-
000A14
A02-
51510047
007.
00004G
P302.
Ii H 17, a
000012
A00100
000072
0A0122
000066
000067
01:110065
00004?
00003S
000030
000022
onno7,2
000007
UUUUUU
000056
000052
000004
UUUU24
000016
UUUUU2
000010
AAAAAS
,J012
000000
******
000020
000024
000000
000030
000010
000044
000002
000034
000040
GX?
MOTH. MACRO.M1110
SYMBOL .TABLE.
27 -MAR-GO
12t d;:r POT:P 1.17. 11014,
-c:p-kpproved-ror ilelease 2005/08/22 :
CIA-RDP85-00514R000200010001-4
ST:UHL. nAnAn4
RAF,
Ei:HRL =
000240
VLDC. =.******
WORD4 = 000010
XFusmR= HHHHHK
ST:XLT. AR0014
OAF.
TDBOVF=
000174
WH.HTP. 000004
012 1,101--'7- -.00012
SU:DHu= HHUUM4
SU:DOH= mummHh
SU:IDL= RAAAAA
TERMF =
TRLvDC=
TSKOVF=
040000
00AA02.
000147
WH.HXT. 000005
WH.RAT. nno017-12.
La.1.!;1.7. 00001171
012.WORDic. = 000014
012 WORD7 = 000016
01? WORD0 = 000020
XHITSK=-000011
XHLMER=.000002
XHOTW=.000010
SU:LOD= AnnAA1
TTBOVF=
000161
UN LiKL: An0000
17112.W0p11q - 00416122
XMSCHL .HUUMMH
SU:SRC=.000002
TYPFLU
000004R
014 WH.TYP. 000001
012 WRDVOL= 000024
xuft..; =.00000...5
SU:sRR=.000005
VDCCHT=
**4.-.***
GX.
iffiRDA ?000000
XRATCH= 000013
KIM ?000001
SU:XJ,D=.0uum0.L.;
VI1OVF=
AA0173
W0RD1 ?000002.
XDOLOA= cloonn4
XsULOA=.00Ann5
SZCAL1=.******
GX.
VI2OVF=
000t7?
W0RD2.=.000004
XDSPRO= 000012.
XTBOVF=.0001(2.2
SZFLG.=.000100
VI3OVF=
000171
WORD3 =?00000F,
XDMCIH= 000006
ZFLG ?000200
. ABS,
AHHHHH
0171000171
AnA
001
SRCOFF
000122.
002.
FDSCOF.
000010
610.3
SUSOFF.
000012.
61614
DHROFF.
000012.
AAP,
STTOFF.
000044
AAR.
OSPLOF.
0006114
6107
BSTOFF.
000772.
010
FHOFFS.
000044
011
WHODOF.
000010
012.
DHODOF.
000010
013
FLUCDE.
003050
014
ERRORS.DETECTEDt A
VIRTUAL.MEMORY.USEDt 5485 WORDS. (.2F. PAGES)
DYHAMIC.NEMORYt 8084 WORDS. ( 3.1 PAGES)
ELAPSED-TIME 0004:26
FLU6:DEAFLUODE/-6P/HLtMEtBEX=C20,13PE..MD0T8,FLUODE.
Approved For Release 2005/08/2 IA-RDP85-00514R000200010001-4
?:,7-MAR-RO
-
. IN: MACRO. 1.0 NUMRHG NUMBER C
? ? RANGE ? ODE ?
i3 C3,1
prmarof Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
Ap ol
432 002252
004767
177064
3$:
jSR.
PC.CHKRNG. ;CHECK.LOW.RANGE.
433 002256
010467
175520
ti$:
MOV.
R4,HBEG. ;SET.BEGINNING.OF.HIGH.NUMBER.
434 002262
112767
OAAA6A
175536
MO VB.
q?A,NUMVLU. ;SET.BPECIAL.NUMBER.FOR.HIGH RANGE.
435 u02270
032767
8A8A20
175532.
BIT.
0.-PD.RNGCDE.
436 002275
BUFF.
4$
437 002300
nnFinfl-.7
175510
CLR.
HS:. ;PROCESS DECIMAL-NUMBER.
438 002304
012746
01.'10020
MOV.
*HSZD,-(SP)
439 002310
00520.2
INC.
R2.
440 00231-
000417
BR
10$
441 002314
012746
000014'
4$:
MOV.
*HS:,-(8P) ;PROCES8 BOTH.BEFORE.AND.AFTER.DEC-POINT.
442-002320
A32767
AA0010
175502.
BIT.
*DNUMfiRMGCDE. ;DECIMAL?.
443 002326
BOFF.
8$ ;NO.
444 002330
005202.
INC.
R2. ;YES: DEC.o.ALWAYS REQUIRES.EXTRA.TERM
44.5 AA2332
032767
AAAA40
175470
8$:
BIT.
*CM,RNGCDE-
446 002340
BON.
10$ ;IF.COMMON.CHAR.ELIMINATED, DOWT....
447 002342
122714
ARAA61
CMPB.
4?1,(R4) ; CHECK FOR
440 002346
001001
BNE.
.10$ ?NOT LEADING.1
449 002,75A
171057A2.
DEC.
12. LEADING .1 COUNTS .1
450 002352
004767
176764
101$:
JSR.
PC.CHKRNG. ;CHECK-HIGH.RANGE.
451 007356
032767
Anon2A
175444
BIT.
*PD.RNGCDE.
452.002364
BOFF.
11$
453 0027.66
1.7105702.
INC.
R2.
454 002370
005767
175422
TST.
LSD IF PAST DEC .POINT AND.
455 01712374
001011
ONE
12$ ; NO.TRAILING.NUMBER.FOR.LOW.
456 002376
000444
BR
308
457 002400
458 002406
026767
001013
17540F.
175406
11$:
CMP.
ONE
LSZ.HSZ. ;COMPARE HLACE.OF-LOW-AND.HIGH.
13$ ;NOT.EQUAL. .
453 002410
026727
175400
000001.
CMP.
HSZ.ol ;EQUAL; LAST .CHAR?
460 002416
461 002420
001424
1177AI
175356
-1.7,?...
1.{....,.
BEQ.
MOVB.
16$
@HBEG,R1 ;EQUAL: COMPARE.CHARS.
462.002424
e615301
DEC.
RI
4.63 002425
127701
175345
CHPB.
@LBEG,R1
454 002432.
001415
BEG-
15$ ;LOW=HIGH-I
465 002434
AA 1A15
BNE.
16$ ;LOW 1 PLACE.
471 002.454
127727
175322
000061
14$:
CMPB.
@HBEG -?1 ;HIGH=1?
472.002462.
003012
9GT.
30$ ;HIGH>1
473 002464
000401
BR
16$ ;HIGH=1 .
474 002466
005302.
15$:
DEC.
R2. ;HIGH=1
475 002470
005302.
16$:
DEC-
02-
476 .E024(2
eioa406
BR
30$
477 002474
016701
175314
20$:
HOY.
H5 Pu ;IF.SIDES.DOWT.MATCH, THEN .ADD.
47P 002500
005301
DEC.
Ri ;DIFFERENCE.- 1
479 002502.
166701
175304
13013.
L13Z.01
490 002506
060102.
21$:
ADD.
0i0.3-
4_i 002510
A10267
17527A..
-7,A$:
MCN?
R2,NMAX. ;STORE.* TERMS FOR RANGE.
482.01712514
A0H.:31713.
ASL.
R2-
413.3 002516
010067
175266
MOV.
RO,EXPSPT. ;SAVE CURRENT.EMX LOC.
484 002522
- 7u2
000002
CMP-
*2.R2. ;ONLY 1 TERM?.
485 002525
001511
HQ.
31$
486 002530
012710
000000C.
MOV.
#EMXNSOIEMXEXF,(RO) ;NO: CREATE-EXP.VECTOR.
487 002534
050270
0113;.
H2.(R0)+
498 0025-25
010057
175244
MOV.
RO,EXPVPT.
Approved For Release 2005/08/110CIA-RDP85-00514R000200010001-4
?
1 .MAIN : MAL M1110 27-MAR-80
HUMRNG.HUMB ..10 .RANGE CODE.
13 qkp0ed IL-ck Release 2005/08/2.1A-RDP85-00514R000200010001-4
375 001735 001431 BEO..
375 001740 005767 175050. TST-
377 001744 001483 BEO.
378 001746 852(6( mmmLier,' UHHHHHU- ADD.
-
001760 081135 51$: CMFB
390
0105?379 001754 122714 000050
381 001752 010557 175022 Nov.
382.00175d5 112703 AAAAGA MOVB-
001772 004757 004072 JSR.
394 001776 052704 000002 ADD.
385 002002 162705 A0AA02 6UB.
6 J06 0A5AF,7 176030 CLR.
-207 002012 SAVE.
388 002016 000157 001324 JMP.
71-1'71 MH 202.' H32(H( MMHUHU 1(1,-,Anm 91$: BIS.
?J.:1U 002030 005204 INC.
391 00217132 005305
DEC
002034 005757 175754 .
TST.
393 AA2A4A 001414 BEO.
394 002042 016703 AAOAAAG. MOV.
396 002054 010053 000000G.
395 00204F. 000002 00AAAAGADD

-
MDV
397 17117,12Flic.n 162753 000000G.AAAAAAG- SUB.
798 882866 885867 175732 CLR.
72.99 082872 812781 88888AG- 18$: MOV.
400 002076 012120 MOV.
4.81. 882188 812128 MOV.
482 012120
403 002104 122714 000000G.CMPO
404 002110 001062. BHE.
405 002112. 005305 DEC.
406 882114 885284 INC.
487 ao21.16 032757 000200 175704 BIT.
408 002124 BOFF.
409 002125 016720 175710 MDV
410 002132 SAVE
411 882176 888187 001.310 JI1P.
412882142 032757
000100 175560 100$: BIT.
413 002150 BOFF.
414 002152. 01001711 MOV.
415 002154 1627111 00005180. SUB.
416 002160 052701 0000000. 815.
417 882184 810187 177652 MOV.
418 882178 812701 888888G. 101$: MOV.
419 002174 012120 MOV.
420 002175 012120 MOV.
421 002280 81212M MOV.
422 SAVE
423 002206 131011 ib( 001134.
202
424 882212 010457 175562 1$: MU',.
425 882216 112757 000071 175502. MOVB.
426 0_2224. 0327F..7. A88828 175576 BIT.
427 882272 BOFF.
428.002274 805057 175552
429 002240 012746 000016'MLIV
478 882244 888482.BR
471 082245 012745 000012'
91$
IHCLUD.
51$
#2,VIHXT.
00,(..R4)
.:IF.LEADING.DECIMAL.POIHT.
IF.EXP.MUST.BE.INCLUDED, ADJUST.FOR.OVERWRITE.,
5$ iFELSE
RO,EXPSPT. A.ZERO.
4?121,R3 .:EHTER.ZERO.
2PS
:EXSHG-
ETTR
R4 ,R5
44$ .:COMPLETE.EHTRY.
#PDICN RHGCDE. ;LEHDINU DEC. ABSUHB.DEC.POINT.
R4
PS
IHCLUD
18$
VINXTfiR3 :INCLUDE IH.IHIT: VECTOR.
*2,VIHXT.
RO,VI(R3)
*EMX,VI(R3)
IHCLUD. .:BUT.DON'T.INCLUDE ANYTHING.ELSE.'
*DPEMR1 ::EHTER.DEC.POIHT.
(R1)+,(R0)?
(R.1)+,(R0)1-
(R1)+,(R0).1-
*SFGOP,(R4)
5$
R5 ;IF.DECIMAL.POIHT.OHLY, CREATE.ZVLDC.
R4
4tMR2,RHGCDE.
1AA$
ZPTR,(RA3+ .:OR.IF.IT.ALREADY.EXIST.FOR-THIS.FLU,
R4,R5 ;JIJST LINK TO IT
45$
*MR,RHGCDE.
101$
RA ,R1 .:IF.MULTI-RAHGE ENABLE.LINK TO.THISsENTRY.
*EMX,R1
,iirEMXHSO,R1
lo2VDEMR1 ::EHTER.E.VLDC.
(R1)+, (R0)+
(R1)+,(150)+
(R.1)+,(R0)-1-
R4,R5
44$
R4,LBEG. .:SET.BEGINHING.OF.LOW.HUMBER
.:SET.SPECIAL.HUMBER.FOR.LOW-RAHGE.
*PD,RHGCDE.
2$
L: IF PoET DEC POINT PROCESS.DEC-HUMBER
*LSZD,-(SP)
3$
2$:*LSZ.-L4 LIF HOT PPnl cc BOTH
A'r?F b6o -661""
Approved For Release 2005/08/2SP2 : CIA-RDP85-00_ 0 __ 00 D .-4
.MAIN: NUMRNG NUMBE- MAdIP RANGE M1110 27-MAR -80 13:N1-
..CODE.
P101
-roved -ror Release 2005/08/2.IA-RDP85-00514R000200010001-4
App
489 002542
050200
ADD.
R2,R0
;ADjUST-EMX.START.BY.EXP.VECTOR.SIZE.
490 082544
032767
000010
175255
BIT.
*DHUM,RHGCDE.
;DECIMAL HUMBER?.
491 002552.
BOFF-
32$
;HO.
492002554
032(6(
I.:JUL-it:12U
175246
BIT.
*PD,RHGCDE.
;YES: PAST.DECIMA ?.
493 002562.
BON.
303$
;YES.
494 002554
005757
175245
TST.
DP TR
;NO:
495 002570
001045
BHE.
'
32$
;IF.THE-EHTRIES.ALREADEXIST, DON T.RECREATE-
496 002572.
004757
003540
JSR.
PC,HFGEN.
;GEHERATE.NFLDUS.
497 002575
010001
MOV.
R0,R1
;DPTR=MERGE.VECTOR TO.DEC.POINT.
490 882588
162701
HMI.JHHI..
SUR.
*EMX,R1
499 002604
052701
00000AG.
BIS.
4EMXH5O Ri
500 002510
010157
175222
NOV.
R1,DPTR.
501 002614
012701
00000A0.
MOV.
4DPEMX,R1
;ENTER.DEC.POIHT.
502.002520
Li,i20
MOV.
(R1)+,(R0)+
503 002522
012120
MOV.
(R1)+,(RA)+
504 002624
012120
MOV.
(R1)+,(RA)+
505 002526
005767
175206
SiT.
HVPTR.
505 002632.
05143
BEM
304$
;IF.IT.DOESWT.EXIST.
507 002574
015720
175200
MOV'.
H1 FTP
;IF.IT.DOES.EXIST, LINK.DPTR TA IT
508 002540
000434
BR
.320$
509 002547?
i305767
175172
303$:
TST.
HVPTR.
510 002545
001031
BHE.
320$
;IF.IT.EXIST, DOWT.ALTER.
511 A02550
010001
304$:
in
R0 ,R1
;HVPTR=MERGE.VECTOR.TO.HVLDC
!-112.UP-122.
162701
017.00AnG.
SUB.
*EMX,R1
bl.f.i 00265b
U52(U1
00b0OUL..
is
*EM7:HSO,R1
514 HH21,..62.
01316(
1(5152
MOV.
R1,HVBTR.
515 UU2666
012701
000000G.
MOV.
41+1VDEMR1
;ENTER.NUMERICAL.VLDC.
516 002572.
012i20
NOV.
(R1)+, (R0)+
517 002574
012 1.fLi
MOV.
(R1)+,(R0)+
518 002575
012120
MOV.
(R.1)+,(RA)+
519 002700
00502A
CLR.
(RA )+
;ALLOCATE.MERGE.VECTOR.
002707
000413
BR
320$
521 002704
004767
003526
32$:
jSR.
PC,HFGEH.
;GENERATE.NFLDUS
522.002710
103410
BCS.
320s
;IF.HOHE
523 002712.
032757
A00010
175110
BIT.
*DHUM,RHGCDE.
;DECIMAL NUMBER?.
524 002720
BOFF.
321$
;NO
525 002722.
016720
175110
MOV.
DPTR,(R0)+
;YES: LINK.TO.DECIMAL-POIHT.
526 002725
0An401
BR
320$
527 AA27.70
AA5A2A
321$:
CLR.
(RA)+
;ALLOCATE.MERGE.VECTOR.
5:717.1,A171277.7.
A1A17101
7,2AS:
MOV.
PA RI
;ENTER.18T-EMS.PTP. IN .EXPANSION VECTOR
529 002734
152701
000000G.
SUB.
*EMX,R1
530 002740
010177
175042
NOV.
R1,@EXPVPT.
531 002744
052757
000002
175034
ADD.
02. EXPVPT.
;STEP-TO NE T.ENTRY.IN.EXP.VECTOR.
002752.
31$:
SAVE.
R4,R5
533 002755
005057
175055
CLR.
HOHTRM.
524 002(1'1.
MS2(5(
H[10 .21J1
175a40
BIT.
#MR2IMR3,RHGCDE
535 002770
BON.
35$
;IF ETTR VALID.
536 002772.
005057
175044
CLR.
ZPTR
;IF.IHVALID.
537 002775
032757
000020
175024
35$:
BIT?
*PD,RHGCDE.
;PAST.DEC.POINTY.
538 003004
BUFF.
33$
.010.
J Ai717,AFIF,
004757
01717A5A
J5:P...
PC,RLOWD.
;YES: [FE HT[ DEC.TERM.ENTRIES.
540 003A17.
004757
00245A
JSR.
PC,RHIGHD.
;CREATE-HIGH.DEC TERM.EHTRIES
541 003016
000417
9R
35$
542.003020
004757
0A0734
33$:
JSR.
PC,RLOW.
;CRFATE.LOW.TERM.EMX.ENTRIES
54.3 003024
015701
174754
MOV.
HS2,R1
;P1=41, MID TERM EMX ENTRIES
544 AA-20-20
155701
174755
SUR-
L8R1
545 003034
005301
DEC..
R1
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN, MACRO.M1110 27-MAR-80
NUMRHG.HUMBER.RANGE-CODE-
13 0.ApPic-freddir Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
546 003035
A074A2.
BLE.
34$
547 003040
AA4767
001342
331$:
JSR.
PC,RMID-
540 003044
005767
175000
34$:
TST.
HOHTRH.
549 003050
001002.
LINE.
35$
555 003052-
A04757
001404
JSR.
PC,RHIGH.
551 um....,mh5
vr-'2(br
HHHHU1
174720 35$:
CMP.
*1,NMAX.
552.003064
001530
BEO.
44$
95-2, AFC-1A1,=.1;
6105757
174732
TST.
INCLUD.
554. 003072.
001423
BEO.
42$
555 003074
015702-
174710
HOY.
EXPSPT,R2.
556 003100
A52702.
000002
ADD.
*2,R2.
557 003104
015705
174574
MOV.
NMAX,R5
5561 003110
005305
ASL.
R5
559 003112-
152757
AAAA02
000A00G-
SUB.
*2,VINXT.
5150 0031.20
015701
000060G.
MOV.
VINXT,R1
551 003124
060557
AAAOAAG-
ADD.
R5,VINXT.
562-007130
006205
ASP.
R5
553 A03132.
052701
0000000.
ADD.
*VI,R1
5e4 003135
012221
41$:
MOV.
(R2)+,(R1).1..
555 003140
077502.
SOB.
R5,41$
5516 003142.
032757
000400
174550 429:
BIT.
*MR1,RHGCDE
557 003150
BUFF
421$
559 003152-
015701
174552
MOV.
RHGCDE,R1
559 003156
A52701
0002061
BIS.
*MR2,R1
57a 003152
000551
BR
452$
571 003154
016702.
174520
421$:
MOV.
EXPSPT,R2
572.003170
01000i?
MOV.
RO,R1
573 Ci 03172
152701
0000000.
SUB.
*EMRI
574 003176
052701
000A0AG.
61I5-
*EMXNSO,R1
575 A A 32A 2
032757
000002
174620
BIT.
*USER3,RHGC
575 007210
BOFF
457$
577 0133212 .
A10153
177776
MOV.
R1,-2(R3)
579 OB3215
600405
BR
455$
579 00:3220
RA5760
177775
457$:
TS-F.-
-:2 RB)
5ea Ai 15.311114
001002-
8 HE.
455$
5Ri AC:17226
01A15A
177776
MOV.
R1,-2(RO)
5A2. A03232
032767
AAAA1A
174570 456$:
BIT.
*DNUM,RNGCD
583 003240
BON.
45$
584 003242
016705
174536
MOV.
NMAX,R5
0613245
61615.3615
DEC.
R5
Jot 003250
05271712.
061610614
ADD.
#4,R2.
587 003254
A16703
174552
Mi?-.?
NEPTR,R3
5es 003250
001413
555
43$
5R9 003252 ?
042703
AAAARAG.
BIC.
*EMXNSO,R3
59A 003265
010153
ARAARAG.
MOV.
Ri,EHX(R3)
591 A A 3272
015703
174535
MOV.
NFiPTR,R3
592 003275
001404
BEO.
43$
597 171 Fi
042703
0AA0000.
BIC.
*EMXNSO,R3
594 00,3:304
010153
000000G.
rov.
R1,EMX(R3)
595 130:3:3101
012203
43$:
MOV.
(R2)+,R3
595 i:3 6.3 3 I 2
005763
177776G.
TST.
EMX-2(P3)
597 003316
AA1AA2-
BNE.
430$
59R 003320
010153
I77775G.
MOV.
Ri,EMX-2(R3
599 003724
077507
430$:
sop.
R5,43$
GOO 003325
000454
PP
45$
6A1 A03330
015703
174504
46s:
mnv.
NVPTR,R3
502.003334
042703
A00000G.
BIC. *EMXN5O,R3
Approved For Release 2005/08/2
?
DE ?
E ?
;THERE.ARE.NO.MID.TERM.ENTRIES.
;CREATE.MID.TERM-EMX.ENTRIES
;IF.NO.HIGH.TERM, SHIP.
ZUNLYTE.HIGH.TERM.EM:.ENTRIES.
;.ONE.TERMY-
;HO: SHOULD.VECTORS.BE.INCLUDED?.
; YES : COPY. PO INTERS . IN . IN IT. VECTOR .
;AND.ADJUST.VErTOR COUNT.
MULTIPLE RANGE?
;HO.
;YES.
;SET.UP.FOR.SECOND PASS.
;FILL .IN ALL-MERGE ENTRIES.
;R1=MERGE.ENTRY.VALUE-
;FINAL.PASS?.
;NO.
;YES: USE.OLD.LAST MERGE ENTRY
;IF.MERGE.SET.ALREADY.
;LAST.MERGE.ENTRY.
;DECIMAL NUMBER?.
;YES.
;R5=* .TERMS.
:FILL- IN OTHERS BY PTR.PAST-ENTRY-2-
;FILL.IN MERGE.VECTOR.AFTER-NFLDUS-
;NOT.ONE
;AND.SAVED.ONE, IF MULTI-RANGE.
;NOT.ONE
;IF.ALREADY.FILLED IN.
DOWT.ALTER.
;ENTER.MERGE.VECTOR.
IA-RDP85-00514R000200010001-4
?
.MAIN: HUMB 7.. MAAIM1110 27-MAR-80 13;
HUMRHG.RAHGE.CODE. -iNpnrA-081-led1r-of Release 2005/08/2.IA-RDP85-00514R000200010001-4
603 003340
604 00:2.344
010163
00171445
000006G..
605 003346
032767
000400
174454
606 003354
607 003356
01017167
174440
508 003352
005020
609 003364
052767
000001
174436
610 003372.
000411
611 0033
032767
000100
174426
612.0034L
613 003404
010010
614 003405
162710
1777760.
615 006412
052(20
000000U.
616 003416
005767
174402
617 0034 22
001416
618 003424
015703
174350
519 003430
152757
000002
000000
620 003436
016701
0000000.
621 003442
152703
000000G:
0
622 03446
010 .i61
171A
00000.
62 3 003452
052767
HHHH.,"
H
UHHHHH
524 003460
016701
174344MOV.
525 003464
_
000200
626 003470
627 803472.
032701
00040A
628.003476
063560
032701
G00601
630 003504
631 003506
016703
174310
632.003512.
010 013
533 003514
152713
0000006.
53 03
4 052-
052713
0 0G.
0000
G35 003524
H6510
636 003525
042701
000450
637 003532
636 003536
072701
000004
639 003542-
f544.1 00344
[112(1,,r
084401
174252.
541 003552.
000 405
642.0113554
643 003556
010002.
644. 003560
162702.
AAAAAAG.
645 003564
010213
F7.4.15 A1717556
AA5002.
647 003570
032757
000010
174232.
648 003576
549 003500
012757
000001
174204
65A An7q-7,06
17105202
651 003610
000402
652.003612.
005067
174174
653 003616
005067
174174
654 003522.
005767
174176
655 00:-467.--
5181412
656 007670
016703
0000000.
657 003634
otaa63
0000004.
558 003540
152763
0000000
8555080
659 003546
052757
000002
0000004.
TEr.
24- R1,EMX-1-6(R3)
45$
446: *MR1,RHGCDE.
441$
MOV.
CLR. RO,EXP3HR. ;IF.MULTI-ROHGE, ALLOCATE.MERGE.VECTOR
BIS. (R0)+
44;;,RNGCDE. ;FLAG.PATH.00CURRENCE.
BR
441$: BIT. *MR,RNGCDE.
BOFF
N1E...1R0)
MOV. ;IF.SECOHD.PASS, JUST ENTER
2, (RA)
21 *EMX-
: liEMA+90,(R0)-/-
TST. INCLUD.
;SHOULD.IHIT.VECTOR.IHCLUDE.PTR?.
440$:
.
BEO
45$ ;HO.
MOV.
EXPSPT,R3 ;YE3: SO IHCLUDE.IT.
SUB.
*2,VINXT.
MOV. VIHXT,R1
*E,R3 ;YES; CONVERT.TO
.LOC.
R3,VI(R1) ;EHTER.IWINIT.VECTOR.
1"-:.-S
MX
*2,VINXT.
RHGCDE, ;
R1 MULTI-RAHGE.CHECK
45$:Ii
BIT.
.
BIT. 455%.-R1
BON
;IF.2ND.PAS5.0F.MULTI-RANGE.
*MR1 Ri
BON. 452$ ;IF.1ST.PASS.
BIT. *MR3 R1
BOFF 450$ ;IF-SINGLE.RANGE.
NOV. EXP5MR,R3
COND
V. R
MO.,.' R.0 ;IF.2HD.PASS, 3
FILL IN MERGE.VECTOR-
SUB.
IS. *EMX,(R3)
B
*EMXHSO,(R31
BR 450$
452$: BIC. . *MR1URDICMR1 ;IF.MULTI-RAHGE-1ST.PASS RESET FLOGS
RESTOR. R4,R5
BIT. *INCLD,R1
BOFF. 451$
MOV.
*1-1HCLUD. ;IF.INCLUDE.WAS.ACTIVE.BEFORE. REACTIVATE.
eR
45176
451$: RESTOR. R3
NOV. R0,R2. ;POINT.2RD.ENTRY.OF-EXF.VECTOR.NERE.
*EMX,R2.
Zi
4517$: CLR.
BIT. R2,(
R2. ;RESET.HMA>,.:.COUHTER.
*DHUM,RHGCDE.
BOH. 4518$
01,LSZ- ;IF.DEC.HUMBER.
;IF.HON-DEC., FAKE.LOW.
MOV.
INC. R2.
BR 4519$
4519$: CLR. LSZ.
LSE) ;RESET -VARIABLES.
4519$: CLR.
TST. IHCLUD.
BEO. 453$
;INCLUDE FTR.TO.ZVtDC.IN.INIT, VECTOR-
VIHXT,R3
MOV.
RO,VI(R3)
*EMX,VI(R3)
Os 's'*2,VIHXT.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
MACRO.M1110 27-MAR-80
NUMRNG-NUMBER,RANGE.CODE.
Is OftippF6V6d1F-oF Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
650 003554
551 1710-2.F.50
03271711
1100200
453$:
BIT-
BOFF-
*MR2,R1 ;IF.SPECIAL.2RD.PASS.NEEDED,
454$
652.003562.
SAVE.
EXPSPT,RO,HMAX
663 003674
010157
174130
454$:
MOV.
Ri,RNGCDE. .:RESET.RANGE-CODE.
554 007.780
000157
176014
JMP.
17$ ;START.SECOND-PASS
F,F,F., 003704
455$:
RESTOR.
R4,R9 ;SET.UP-FOR-FINAL.PASS.
655 003710
RESTOR-
EXPSPT,R3,HMAX
567 003722
R4 -R5
558 003725
042767
000F.00
174074
BIC.
#MR1IMR2,RHGCDE-;NO-MORE PASSES.
659 A07.74
052767
00017102
174066
BIS.
*USER3,RUGCDE. .:USE .R3 FOR -LAST MERGE El
5(0 003742.
000157
177215
JMP.
421$
671 003746
450$:
RESTOR.
R2,R3,R4,R5
572 8072.755
888207
RTS.
PC.
Approved For Release 2005/08/I,A-RDP85-00514R000200010001-4
SAVE.STATE-
MAIN. MACRO. r111 1E1 27-MAR-9 :0 13 ?Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
TABLE.OF.CONTENTS-
12- 2. NUMRNG.NUMBER-RANGE.CODE
Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
. MAIN.MAC.11110 27-MAR-80
1
13: alpid4130ove'llr-c-di Por Release 2005/08/2.IA-RDP85-00514R000200010001-4
;THIS-FILE (E-MAC) COHTAINS.ALL.THE.OUERY.ERROR.CODES.
3
000001
OE:DW1=1
;RESERVED.
4
00171002.
OE:MTS=2.
;MULTIPLE. TERM SEP'7S.OR MISSIHG.TERM.
5
00000.3
OE:DW2=3
;RESERVED.
IL",
300004
GE; 1L04
ILLEGAL CHARACTER
7
duoodb
OE:IHS=5
;INTERNAL.HSTS ERROR A LOGIC PROCESSING.
R
990005OE:HLO=6
;NULL.OUERY
9
0AR007
OE:MOP=7
;MISSING.OPERATOR.
10
000010
OE:MFM=0.
;MISPLACED.FLU-MOD-
li
000011
OE:MSD=9.
;MISPLACED.SUBDOC.OPERATOR.
12.
000012.
OE:MNT=10.
;MISPLACED.NOT OPERATOR.
13
000013
OE:MFL=11.
;MISSING.FLU./ TWO.COHSECUTIVE OPERATORS.
14
00.014
OE:UBP=12:
;UNBALANCED. PARENTHESES.
15
al711.1n15
OE:INO=13.
;INSUFFICIENT.HUMBER.OF.OPERANDS.
16
000015
GE,I80=14.
;ILLEGAL.SUBELEMENT.OPERAND. 1
17
A017.1017
OE:PX1=15.
;MISSING.PROX: WINDOW.. OR.DOC.TYPEAZONEA OR-SUBZONE.
18
00002171
OE:PX2=16:
;PROX: WINDOW.OR.FLU-MOD IL' LARGE
19
oaao21
1)E:PX3=17:
;MISSING.PROX: UNIT.
20
000022.
OE:RX4=18.
;MISSING.PROX: DELIMITER
21
000023
OE:HRI=19.
;ILLEGAL.NUMERICAL.RANGE SPECIFICATION-
22-
000024
OE:HR3=20.
;HUMERICAL.RANGE.BORDERED.BNUMERIC.
23
000025
OE:NOS-21.
;NO.STX:.FOUND.IN.OUERY.
24
R0002tr.
OE:FTB=22:
;FLU TOO .BIG.
75
OAAA77
OE:NTK=23.
;UHDEFINED.TOKEN.
25
;
27
DE P01-188
;GENERAL.RESOURCE-OVERFLOW.(LABEL DEFINED.IN M:MAC)
000145
ASKOVF=101.
;ARGUMENT.STACK.OVERFLOW
79
000146
LHPOVF=102.
;LOGIC.NODE.POOL.OVERFLOW.
30
000147
TSKOVF=103.
;TOKEH.STACK.OVERFLOW.
31
000150
OBFOVF=104.
;OUERY.TOO.BIG
32.
0110155
1'1YOVF=110.
;*.OUERIES.OVERFLOWED.
33
000157
P8LOVF=111. ?
;FLU POOL.OVERFLOW.
34
000160
FALOVF=112.
;FAL
35
00016i
TTBOVF-113.
;TTABLE.
36
00121152 ?
XT0OVF=114.
;XTABLE.
77
000163
OLBOVF=115.
;OLB
-:, .-...J.
:-.
AIDA114
SLBOVF=116.
;SDLB.
39
000165
OEXOVF=117.
;OFX
40
01710055
EMACIVF=118.
;EMA
41
000157
EMB0VF=119.
;EMB
42.
000170
EMCO3F=120.
;EMC
43 .
eiaoi7i;
VI3OVF=
VI.OTZ
44
000172.
VI2OVF=122.
;VI.OT2.
45
000173
VilOVF=123.
;VI.OT1
46
000174
TDBOVF= 124.
TDCTB?
47
000175
NDBOc"
;NODE.POOL-0T2
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
OUERY-TRAN11110R.SCHEDULER.
TABLE.OF.CL NTS.
mALAPPPO3e8Faitgk'alA2-005V08/21 IA-RDP85-00514R000200010001-4
14-
2.
OTS.
17-
93
MAIN LOOP.
19-
:W
BLDFNB.
20-
41A
ERROR.NANDLER.CODE.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
QUERY- TRANE.OR ? SCHEDULER
OTS ?
58 ?
59 000240 DOF$L ?
E1 1710 El 2 41.71 FC:SBfl:;
..-005/05tAlltirk-RDP85-00514R000200010001-4
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
QUERY-TRAHSLATOR.SCHEDULER-
SUBROUTINE DELTIM.
MACRO .M1110 27-MAR-90 13;L.P1 P.B.GE._14
Approved For Release 2005/08/22 : GIA-RDP85-00514R000200010001-4
1 .TITLE..QUERY.TRANSLATOR.SCHEDULER.
2. .SBTTL. OTS.
3
4 PURPOSE.OF.THE.OUERY.TRAHSLOTOR.SCHEDULER.IS.TO.COMMAND.THE
5 OUERY.TRANSLATOR TASKS.(OT1, OT2.AHD OT3) TO.RUN.
6
7 OTS.IS ACTIVATED BY.MSCHED VIA.TH.RUN$ DIRECTIVE, AFTER.MSCHED.OUEUES,
VIA.THE.RCVO, TO OTS.A.13-WORD.PACKET.COHTAIHING.THE-HUMBER.OF.THE
; BATCH-TO.BE.TRANSLATED:
lA
11 OTS .PASS TO.THE.TRAHSLATOR.TASKS, IN.A.13-WORD.BUFFER.VIA.THE.SDATS
12. DIRECTIVE, THE.4-WORD.FDSC FOR.THE.APPROPRIATE E- MATRIX, THE .-WORD.
13 DIRECTORY .FID, AND.THE-DEVICE.HAME.AHD.UHIT.FOR.THE.TDCT FILE.TO.BE-
14 CREATED.BY.THE-TRANSLATOR.TASK:
15 OTS .RECEIVES, IN A.13-WORD BUFFER, THE.4-WORD.FDSC.AF.THE.NEW.TDCT
16 ALOHG.WITH.THE.HUMBER.OF.FSA.STATES.IN.THE.TDCT, AND THE ELAPSED.
17 SECONDS.AHD.TICS FOR.THE.TRAHSLATION PROCESS:
18
19 UPOH.COMPLETIOH.OF.THE.TRANSLATION.PROCESS.OTS PASSES.TO MSCHED,
20 VIA.THE.SSO, AH.ACK.RECORD. IF.ONB.Oh.THE.TRAHSLAIURS.REluRHED.
21 AWERROR.CODE.TO OTS.INDICATING.BATCH-OVERFLOW, THE.00K.REMRD.
22. SEHT-TO.MSCHED.REFLECTS.THIS.ERROR.CONDITION:
73
24 ASSEMBLER.PARAMETERS:
25 MAC>OTSfiLP=P,MAMOTS.
26
27 TASKBUILD PARAMETERS
2R. TKB>CITS.J_P=OTSfir_50,1JMSGOUT.
29
TKB>s.
TKB>TASK=OTS
31 TKB>COMMOH=HCOM:RW.
32. TKB>STACK=191
77 TKB>s.
34
35
37
.33
39
40
41 :MACRO. TEXT.
42. MOVB. (R4)+,(R3).+.
43.-2
BNE.
44 DEC. R3
45 .ENDM.
46 .MACRO DECr VAL.
47 MO V? VAL,R1
48 JSR. PC,DECASC.
49 .ENDM.
.1I2ICRO TIMC SECS,T
MCW. ICKS-
G7Si TICKS,R1
52 !I-ECS,RA
54 JSR-
tBl
PC,TIMASC.
55 BR . +6
J5R ? PC,TICASC.
.NLIST. MEB.
.NLIST. CND.
.MCALL. EXITSS,SDAT$C,SPND$S,RCVX$C,RSUM$C,ROST$C.
.MCALL. OIOWSS,,RCVDSC,MOUTSS.
.MCALL. FDOFZ_,FCS8Tsr,NrIBLK13,CTIMSS.
? ApproVEeior Release 2005/08/211,1A-RDP85-00514R000200010001-4
OUERY-TRAHSLATOR.SCHEDULER.
OTS.
52.
1;72,
64
1;5 A00000
65 ?000015
67 000012.
50 000000
70
71
(2.UULJUU0
74
rb UOUUOU 066577 uuvuou
(( HUULIU4 PibbeJUU 0A0R00
7R RARA1A A.3.3A1 RAOARR
79 000014 114373 031314
ea 000020 060000
91 000022.
R2.R1RA2f7,
A3 ARAR6A
94 000064
85 AR011
96 000122.
MA Liktykbikkl refildeitle iti6108-d1;E: d12k-RDP85-00514R000200010001-4
CONSTANTS.AHD.BUFFER.DEFINITIONS.
STARSLI. =. A
CR. =. 15 ;ASCII.CARRIAGE.RETURN-
LE. 12, ;ASCII.LINE.FEED-
0 ;DIRECTIVE.STATUS.WORD.
.PSECT.
Oil: .RAD50 /Oil /.
OT21: .RAD50 /0T2 s,
OT3 RAD50 /0T3 /.
XSCHED;: .RAD50 /XSCHED./.
PATLHO: .WORD.
RECB1: .BLKI.J. 2.
SHD91: .ei_Kw. 13.
RECB21' .EILKIJ. 2.
SHD92; ijLlI.j. 13.
RECB7sr, .BLKU.
SHDB3: .ELKU. 13.
;SENDING TASKS.NAME.
Approved For Release 2005/08/22 A-RDP85-00514R000200010001-4
V
OUERY-TRAHS4100R.SCHEDULER.
Q TS ?
RA
99
90
91 AAAI54
MAC ved F
kei M111A. ?.7 .L-JAP 90 P
mipProor'keie-ase zuuo-/OWAIA-RDP85-00514R000200010001-4
: ALLOCATE DUMMy. FILENAME BLOCIe?
HMOLV: HHOLf$
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
QUERY-TRAHSLATOR.SCHEDULER.
MAIN.LOOP.
93
94
95
95
97 000212.
55 AAAi12.
99 000220 016757 177604 177572.
iGG 000226
101
102.
103
104 000240 012701 000132
105 000244 012705 000000
106 000250 012704 OAAA26'
107 000254
105
109
110
111
112.000250
113 000266 103004
114 50027171
115 G00274 1.100157 001.334
116 AAFGRA
117 000306 103004
118 555.315
119 000314 000167 551204
120
121 000320
122 AAA326
123
124
125
126
127
128.
129
130
131
132.
133
134
135 000334
136 555340
137 555.344
138 555.345
139 0007,5,2
140 000355
141 000362
142 000366
143 000374
144 080402-
145 000410
146
147
148
143
411111,
012700
1100026'
005755
550R15
002004
016000
000510
000167
001145
016701
177436
016101
0000000
016061
AAA000
016061
000002
A15051
000A04
016061
000010
0127E11
000142
Egrliere-ge i."26'03/08Fili" FE: dI7A-RDP85-00514R000200010001-4
1$:
.S8TTL?MAIN LOOP.
RCVX$C.
my-
GTIM$S.
RUH-071
my-
mciv-
M0V.
CALL.
,PECB1
SHDB1+2,BAT,H0
*GTIM1
*8.FEMAR1
*F1.1:FSA..R5
*SHDB1,R4
BLDFNB.
;SAVE.8ATCH.NUMAER.
;R1 ?EMWS.FDSC-OFFSE7,
;R5 =.FILE.HUMBER.FOR.TDC7A-
;R4 -> SEND BUFFER
;BUILD-13 -WORD-PACKET?70 BE.SEHT.
;TO.UT1
TRANSMIT 13-WORD PACKET TO
071
SDAT$C.
OTI,SHDB1
BCC?
CALL.
2$,
DIRERR.
JMP.
EXIT
2$:
ROST$C.
071,SNDB1
REQUEST UT! TO.BE.RUN.
BCC.
3$
CALL.
DIRERR.
JMP.
EXIT
3$:
SPHD$S.
;WAIT-FOR-REPLFROM 071
Rrvp$4:-
071,RECB1
;RECEIVE.DATA.FROMOT1
10$:
13-WORD.PACKET
FD.FID.
FD.FVR.
FD.FHB.
SD.FSA.
SD. SEC
SD. TIC.
RECEIVED.FROMOT1 HAS FOLLOWIHG CONFIGURATION:
- TDCTWS-FID.
'EPS ION
_ii FILE.HUMBER.
- NUMBER.OF.FSA-STATES.GENERATED.BY.071(-1 IF .ERROR)
- ELAPSED .SECONDS.
TICS.
LOAD.TDC7A S.FDSC.INTO BATCH STATUS FABLE.
*SHDB1,R0
SD:FSA(RO)
10$
SDJISA(RO .R0
HACK
BAT110,,R1
BSTP7R(R1),R1
FD:FID(R)71),B:FFSA(R1)
;RB->RECEIVED-DATA.
;ERROR?FROM?071 ?.
;BRANCH -IF NO
;RO ?ERROR-CODE.
SEND HACK. Tn-mscHEn
;R1 ?BATCH.HUMBER.
;R1 ->BATCH STATUS. TABLE.
;PID.
FEIFID-12(R0),B.FFSA-1-2(R1)
ED,FVR(R0),B:FFSA-1-4(R1) ;VERSIOH.HUMBER.
5D,F3A(50),5,.F5AZ(31) ;1IZE.OF?)-S1)-A.TDC7.
071 IS DONE. RUH 072.
_MnV? ;R1 ?EMECS.FDSC.OFFSET.
Approved For Release 21188/MelA-RDP85-00514R000200010001-4
!; ' ? .17: ?' r r^k.r, 1,1
QUERY-TRANt
MAIN LOOP
150 000422.
151 000426
152.000472.
153
154
155
156
7.SCHEDULER.
012705 000002
012704 11111105 4?
rarTkitte--4 2005108i2.17K-RDP85-00514R000200010001-4
MOV. oFH.FSB,R5 ;R5 =.FILE.HUMBER.FOR.TDCTB.
MOV. *SHDB2,R4 :R4-> SEND BUFFER
CALL. BLDFN8. ;BUILD.13-WORD.PACKET.TO.BE.SENT.
;TO.UT2.
TRANSMIT.13-WORD PACKET TO 0T2.
157 0004.36
SDAT$C.
OT2,SHD82.
158 000444
103004
BCC ?
4$
159 000446
CALL.
DIRERR.
160 000452.
000167
001046
JHP.
EXIT
151 000456
4$: ROST$C.
OT2,SNDB2. :REOUEST.OT2.TO.BE.RUN.
162.000464
1072.004
BCC?
5$
163 000466
CALL.
DIRERR.
154 000472.
000167
001026
JMP.
EXIT
165
166 000476
5$: SPHD$S.
;WAIT.FOR.REPLY.FROM 0T2-
167 000504
OT2,RECB2. ;RECEIVE.DATA.FR011.OT2.
168
169
13-WORD.PACKET.RECEIVED.FROM.0-12.HAS FOLLOWING CONFIGURATION:
170
171
172.
FD.FID-
FD.FVR.
- TDCTA.7S.FID-
n VERSION.NUMBER.
173
FD.FHB,
FILE.NUMBER.(-VE IF.ERROR.FROM-0T7)
174
SD .FSA.
- NUMBER.OF?FSA.STATES.GENERATED.BY.OT2.
175
SD.SEC-
- ELAPSED-SECONDS.
176
SD.TIC.
TICS.
177
178
LOAD.TDCTBS.FDSC.INTO.BATCH.STATUS.TABLE.
179
180 000512.
012700
505054'
MOV.
*SNDB2,R0 ;RO->RECEIVED?DATA.
181 000515
0057150
0011010
TST.
SD:FSA(RO) ;ERROR-FROM.OT2?.
182 000522.
002004
BGE.
11$ ;BRANCA.IF NO.
183 005524
015055
000010
MOV.
SD,FSA(R.0),R0 ;RO =.ERROR.CODE.
1e4 AFIA57-7,11
00171167
055170
JMP.
HACK SEND HACK TO.MSONFD
185 00054
015701
177260
115: MOv.
BAT4NO,R1 ;P1 =.BATCH-NUMBER-
185 005540
0161101
000000G
MCP./ ?
BSTPTR(R1),R1 ;P.1->BATCH STATUS?TABLE
187 000544
0160151
000000
055212.
MOV
FD:FID(R0),B4FFSB(R1) ;FID
188 000552.
0160151
000002
01710214
MOV
FD:FID..4-2(R0),B.FFSB+2(R1)
159 A0055171
015061
1100004
111011215
MOV
FD,FVR(RO),BFFSB-F-4(R1) ;VERSION NUMBER
190 000565
016061
005010
005102.
MnV
SD,F6A(R0),B,FSBZ(R1) :SIZE OF FSA-B TILT
191
192
OT2.IS DONE;
RUN 012
1972.
194 000574
016757
177220
177320
MUY?
BAT:NO,SNDB3 ;TRANSMIT.TO.OT3 THE.BATCH.NUMBER.
195
196
TRANSMIT.1-WORD.PACKET.T0.0T3
197
196 000602.
SDAT$C
1T3,SND83
199 555510
1072.17104
BCC ?
G$
200 00061,.
FAL.
DIRERR.
201 000611,=,
AAA167
AAA702
EXIT
202.000622.
5$: ROS TSC.
OT3,SHDB3 :REQUEST O-R TO BE RUH
207 800i:77n
10317.104
7$
704 0006.-2.2.
DIRERR.
705 000536
00015(
000562
EXIT
206
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OUERY-TRAHSLATOR.SCHEDULER.
MAIH.LOOP.
MArnApproved .Nti19 27:illAR-00 17-LP P-
For Keiea 20
se 5/08/
207 000642.
2O3 ORRI;511
mFing=.5
21m muuhb4
211 000670
212.UU06(2.
815751
uw111(6(
002004
1.115780
00o889r.000104
mmlitiHuu.
Hmmmilviu.
213
000676
onoliw
0001122
214
215
216
217
210
219
-.2.7171
221
22:6
224
7 5
226
000702.
227
7,7,17-1
229
230
000706
012762-
AA00U7
000002.
231
000714
016762.
177100
000004
R1710722-
000415
233
234
236
000724
237
000730
012762.
800887.
RAO0R2.
238
nOO735
112762.
A99901
AAAA072,
239
000744
016762.
177050
000004
24.0
000752.
AlAR1,70.
AAAAA6
241
242
243
244
OAA7F6
245
AAA770
246
OAA774
016705
000206'
247
001000
070527
000074
248
oolno4
066705
000210'
249
001010
010561
000076
250
001014
251
252
257.7
254
001020
016701
176774
255
001024
0161'01
00000OG.
256
Ril1R7R
F111.11,=.7
000232
88A71F,
257
091079
912793
991756
259
991942
012704
0016:64'
259
801046
259
991954
26.71
991994
292.9910(72.
253 RIE1
7$:
;
? ACK . TO XSCHED.
? GET. AH
ACK; CALL. GETFRE.
SPND$S
RCVD$C
Mn?
TST
BGE
MOV
.J MP
ClIA:RDP85-00514R000200010001-4
0-17.,RECA3
!..7iD;FSA+SHDB3,B.F9....2(R1)
FD:FID+SHDB3
ACK.
FD:FID+SHDB3,R0
HACK
;WAIT FOR REPLY FROM OT3
;RECEIVE DATA FROM Or;
;SIa.E OF FSA-[: TDCT
;ERROR FROM QT3 ?
:BRANCH IF HO
ERROR FODF
;SEND HACK TO MS1SHED
13-WORD?PACKET?RECEIVED.FROM.0T3 HAS FOLLOWIHG roHFIGURATIOH:
FD.FID.
SD.FSA.
SD.SEC.
5D. TIC.
- BATCH.HUMBER.(-VE?IF?ERROR.RETURH.FROM.OT3)
- HUMBER.OF.F5A.STATES.GEHERATED.BY?OT1
- ELAPSED- SECONDS.
EMPTY.PACKET.FROM?POOL.
BUILD?PACKET.(ACK)
MOV.
BR
*XOTS,2(R2)
BAT,H0,4(R2)
AnK1
NOrK.TO.MSCHED.
HACK;
CALL.
MOV.
MOVB.
MOV.
MoV.
GETFRE
*XOTS,2(R2)
01,3(R2)
BAT;NO,4(P2)
ONEUE?PACKFT?TO?BOTTOM.OF?SSO?
;
ACK1:
GTIM$S. *SECBUF.
CALL. DELTIM.
MOV. SEC8UF,R5
*60.,P5
SECBUF+2,R5
R5,B.OTTM(R1)
PUTSSO
TICS.
;OH.RETURH, R2.-> PACkET.
;CONNAHD.SOURCE.
;8121-ItH.HUMBER.
;RO = ERROR CODE
; .PRIHT.STATISTICS.
PRH; MOV. 11AT;HO,R1 ;GET.4.-.OUERIE5.
MOV. BSTPIR(R1),R1
MOV. B:HORY(R1),ORYS.
NOV. *PRTBUF,R3 ;INIT.FOR?PRINT?OUT.
NOV ? *MSGTXT,R4
TEXT.
DECNV. BAT,H0.
TEXT.
ORYS ;PRINT.*.OUERIES.
;PRIHT.BATCH.HUMBER.
TEXT.
Approved For Releese 2005/08/22410IA-RDP85-00514R000200010001-4
:
QUERY- TRAH.OR ? SCHEDULER ?
111i fq LOOP ?
264 001110
111:AtiprtiVeiffaiRettfasie320-95/08/22011AR_DP85-00514R000200010001-4
St.-Dral+SD,FSA. ;PRINT..0-11 STATES.
265
001120
TEXT.
256
001125
Ti i:
SHDB1-1-SD:SECfiSNDB1+SD,TIC. ;PRINT ,LATE TIME.
257
001152.
TEXT.
268
8121188
DECHV.
SHD82+5D,FSO. ;881-1E,FOR.OT2.
269
001170
TEXT.
270
RA1175
TiMCNV.
SNDB2+SD:SEC,SNDB2+SD,TIC.
271
001222.
TEXT.
272
A0127.0
DECNV.
SNDB3-4-SD,FRA. ;AND.OT3
273
001240
TEXT.
274
001246
TIMCNV-
SHD83+SD,SEC,SH1.1B3+SDTIC.
275
001272.
TEXT.
276
AA17,AA
DECNV.
OTSTAT. ;PRINT-CLOSE-CODE.
277
001310
TEXT.
278
.379
801316
001326
DECNV.
TEXT.
OTSTAT+2. ;PRINT EMO- ACTUAL-512E.
2a0
00132;4
DECNV.
TS TA T+4 ;PRINT EMA EST.SIZE.
281
001744
TEXT.
00172.52.
DECNV.
OTSTAT+5 ;PRINT EMB ACTUAL.SIZE.
801352.
TEXT.
284
001370
DECNV.
OTSTATA-10 ;PRINT EMB.EST SIZE.
285
001400
TEXT.
2PA
1281488
DECNV.
SNDB2+SD,NPS. ;PRINT.FSA-B.NODE.POOL.SIZE.
2R7
001416
TEXT.
,rr
001424
005067
0000000.
CLR.
OTSTAT ;IHIT.OT STATUS.WORDS.
0014.-2,8
Obbbb(
OdUidO21.
CLR.
OTSTAT+2
1312
081434
085067
000004G.
CLR.
OTSTAT+4
7'91
001440
AFFIAR,7
onAciu,G.
OTSTAT+6
001444
00506r
00001013.
CLR?
OTSTAT+10
001450
162703
001756'
SUB.
14,PRTBUF,R3 ;R3=BUFFER S LE
n.14
001454
OIOWSS
#I04WLB,#P,,#2,,? ;PR INT ? I INE
2Rc
205
7
001524
000167
176462
EXITr
JHP.
START.
pproved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OUERTRANSLATOR.SCHEDULER.
MAIN.LOOP.
299
300
MArikkAiVed Foi7Rieledie 2005/08/221-EM-RDP85-00514R000200010001-4
CONVERTION- SUBROUTINES- FOR-OTS-CONSOLE PRINT .OUT
301 001530
012705
A00005
DECASCg
MAV.
;CONVERT DECIMAL TO ASCII.
302 UN 15.34
012702.
001504'
MOV-
0100$..R2
303 001540
005000
CLR.
RA
3A4 0A1.542.
AR5305
i$:
DEC.
R5
305 001544
001413
BEO.
10$ ;IF.LAST DIGIT.
306 001545
071022.
31/
;RO=ISOLATED.DIGIT
307 001550
005700
TST.
RA
3AA 001552 ?
A01773
BEA.
1$ ;IF.LEADING.ZERO, SUPPRESS.
309 001554
052700
000050
2$:
BIS.
o50,R0 ;CONVERT AND.XFER.DIGIT.
310 00155A
110023
MOVB
RO,(1-3).-F
311 001562
005000
CLR.
PO
312. 001554
u057,NS
DEC.
R5
313 001556
001402.
BEO.
10$ IF LAST DIGIT.
314 AA157A
071022.
DIV
(R2)+,RA ;RO=ISOLATED.DIGIT
315 001572
00077111
BR
316 A01574
A527Ai
OARA60
in$:
BIS-
#60,R1 ;CONVERT AND.-FER LAST. DIGIT
317 001600
110123
MOVB
Ri,(R3)4-
D 001502.
000207
RTS-
PC.
001604
,10
001750
000144 1005:
.WORD.
10000-1000-100-10.
AA1512
0000 12
32171
321 001514
020A27
000011
TIMASC;
crip.
RA,oB. ;IF.'011 SFER."9+11
661526
161014
till I
TIM9
00152-
052700
ULIUMhki
BIS.
o5A,RA ;CONVERT AND.XFER.
324 001626
110023
HOVEL
RO,(R3).4-
325 00153111
005000
CLR.
RA
326 001632.
112728
000056
TICASC;
MOVE.
;XFER."."
327 001635
071027
AAARA5
o6 ,RA ;RO?TENTH.OF.A.SECOND.
328 001542
052700
000050
BIP.
-#60,P0 ;CONVERT AND.XFER.
.335 001646
110023
MOVB.
RO,(R3)+
330 001550
000207
RTS-
pc
331 001552
112723
ORAA71
TIM9:
HOVEL
332.001556
112723
000053
MOVB-
333 001552.
AAA2A7
RTS-
PC
334
335
; BUFFERS -AND TABLES FOR. PRINT OUT.
,
337 001554
102.
101
124 MSGTXTg
.ASCIZ.
/BAT#./.
001667
043
000
OR1571
0413
121
122
.ASCIE-
001674
131
123
075
001677
000
339 001700
040
121
1:24
/-QT1=/-
001703
051
075
000
.34N 001706
050
000
ASCIZ.
341 001710
R51
A4A
121
r:.*. ?
017=s.
001713
124
562
075
0511715
AAA
L..
- 001717
050
000
.ASLIZ.
343 001721
051
040
121
.ASCII
/) OT3=/.
001724
124
063
075
001727
AAA
344 001730
050
OdU
.ASC Z.
.
345 01711732
051
040
mni-,
G.,..,
000

0
Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
OUERY-TRAR OR-SCHEDULER.
MAIN.LOOP-
moAPP-POOVedi For7Rbteatd 205/08/2101X14DP85-00514R000200010001-4
1;4G cio1736
E154
000
.ASCIL
/)./.
7,47 001740
054
000
.ASCI7.
001742.
054
000
.ASCIZ
/A/
349 aai744
A54
000
.ASCI7
350 001746
054
000
.ASCIZ
351 001750
1.35
AA0
7;52.001752.
000
000
-BYTE.
0,0
;SAFETY.
,C7
.EVEN.
354 001754
OHHHHH
ORYS:
.WORD.
A
:355 AF117ti
PRTBUFg
.EILKEI
U.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
GUERY-TRASLATOR SCHEDULER-
8LEIFN8-
357
358
359
350
7,51
35.7,
,-a63
354
7.65
766
3F,7
368
.3(1
3(2
777
374
375
37F.
377 002076
378 002102 015703 175712
379 002106 016303 0000000-
38A 002112.
381 002114 012700 000052'
382 007120
.50.5 002124 012702 000154'
384 002130 015254 000000
7C,C:
002136 01521'14 mummu2
.51313 002144 015254 000032
387 002152. 016264 000034
388
389
390
391
392 0Ft711c4-1 Fil0F101
393 002162.
394
395
396
7C,"7
398 002166 016254 131313131313
399 002174 016264 000010
400 002202. 015254 000012
401 A02210 015254 00.11014
402. 002215 015254 000032
40.3 0022 016264 000034
404 0022 . 015254 000024
405 002240 015254 000025
417.1B 002245 015254 000030
407 002254
41711.71 AA2267,0
NHAfipiliNMdFdgriti616iCiri6to8/ECIIA-RDP85-00514R000200010001-4
.S8TTL, OLDFNEI
SUBROUTINE TO BUILD 13-WORD DATA PACKET. TO BE SENT TO TRANSLATOR T1:0(8.
ON-ENTRY,
RI --FDSC-OFFSET-OF-EMATR
R5 =-FILE.NUMPER.OF,TDCT-
R4-> SEND-BUFFER.
PACKET LAYOUT:
N,FID. - EMATRIX-FID-(2-WORD)
H:FIDA-4 DEVICE NAME-
H,FHAM. - TDCT FILENAME-
H:FTYP. - " TYLE-
NJ:VER. - EMATRI>4:-UNIT-NUMBER-
Ni.STAT-- TDCT DEVICE-NAME.
N:NEXT. - TICT UNIT.NUMBER.
- TICT UFD.?S.FID (3-LURD)
BLDFHB: SAVE-P2 P3
MOV. BAT:NO,R3 ;R7 = BATCH NUMBER
MOV. BSTPTR(R3),83 ;83-> BATCH STATUS TABLE
ADD. R3,R1 ;P1->FDFC OF ENATRIX
MOV. *NNBLK-F;FNB 80 ;RO->FDB
CALL. BLDEFL. ;BUILD FILENAME BLOCK FOR-EMATRIX
MOV. 0HMBLK,R2. NB
000AAA MOV. N,FID(R2),N;FID(R4) ;FID (EMATRI4
000002. NOV-N:FID+2(R2),N:FID-4-2(84)
noffiA4 MOV. H,1.:IVHM(132),N:FID-4-4(134) ;DEVICE.NAME-(EMOTRIX)
000015 MOV. NWNIT(82),N,FVER(84) ;UNIT-NUMBER.(EMATRIX)
BUILD.FNB-FOR-TDCT-
R0->FDB.
MOV- F..5. RI ;Ri =- FILE NUMBER -
CALL. BLDNFL- ;BUILD.FNB FOR,TDCT-
4-> BEND-BUFFER.
82-> WELK.
AB11A05 MOV-N:FNAM(R2),N:FNAM(R4) ;FILENAME I. 1111311
000010 MOV. H:FHAM+2(132),N.FNAM+2(134)
800012-MOV. N,ENAM-1-4(R2),N.ENAM-4.-4(R4)
000014 MOV. NdITYP(R2),NFTYP(R4) ;FILE-TYPE (TDCT)
000020 MOV-N:DVNM(R2)?NLSTAT(R4) ;DEVICE.NAME.(TDCT)
000022-NOV-N,U1-lI1(R2)?N.NEXT(R4) ;DEVICE-UNIT.HUMBER-(TDCT)
000024 MOV. N:DID(R2),NDID(R4) ;UFD.!S-FID (?TDCT)
0000z13rov. 1..LDID-4-2(R2),1,DID-1-2(R4)
000030 MOV-1:0ID+4(R2),N:DID+4(R4)
RESTOR. R2,83
EXIT. BLDFNB-
?
Approved For Release 2005/0812.1A-RDP85-00514R000200010001-4
?
CI 1,
LIERTRAH! OR .SCHEDULER.
ERROR-HANDL1 ,.CODE.
riHd Fd1?iri6/08/4116-RDP85-00514R000200010001-4
410
411
412.
413
414 0022b2
415 0022f7.F..
416 002274
417 61027.14
418
418
420
0116b(
015757
000387
000150
AAAAAA
0AA150
;
DIRERR:
.Se TTL-
MOV.
MOV-
ran' 3
RTE.
ERROR-HAHDLER.CODE-
(SP),PAR2.
$DSW,PAR1 ;$DSW.
*MSG1,#PARI
PC.
421 002315
011557
000122
FCSERR:
mnv
(1P),PAR1
00232' ?
MOUTZS
#MSG2,4PAR1
423 d
000157
177155
JM1
XIT
424
;
425 L.,
000025
MSG':
.WORD
LNIE-LHI
42G5JU
0A272.56-'
.WORD
LN1
427 00
000041
MS112:
.WORD
LH2E-LH2
428.002_ 1
002403'
.WORD
LH2
429
430 002356
105
122?
127.
LH1:
Z.
/ERROR.HOL=X1D,PC=X10/-
nn27,R,1
117
122
040
00277.4
116
117
055
002757
075
045
051
8027.72
104
054
120
002:7.75
107.
A75
045
002400
061
117
AOA
431 002407.
LN1E:
432 002403
105
103
123
LH2:
.ASCIZ.
/FCS ERROR,. PC-1n, ERRnR.Nri
002405
04171
105
122-
002411
122.
117
122.
002414
054
040
120
002417
107
075
045
002422
Fur, 1
117
054
002425
040
105
122.
00247.171
122.
117
122.
00247.3
040
115
117
002470.1;
056
075
045
002441
17151
104
000
433 002444
LN2E;
434
.EVEN -
435 AA2444
AAAAAA
PAR1:
WORD.
A
435 12446
FiFiRRAFi
PAR' z
.WORD.
0
43?
1U1 1'
.EHD.
START.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
QUER'y'-TRAASLATOR SCHEDULER
SYMBOL TABLE
2t105/08/226:ECIA=RDP85-00514R000200010001-4
ACK. AAA7A2R. B:HRLR AAA122. AiA EMXZAF= AA4AAA G.
130K1 000756R. B,HRLU 000124 010 Et-VEND= 000200 0.
BAT:AO. 000020R. B:AMBR 000052. 010 EOBIT.= 01000A G.
B1TyAL=.000u0u B:AORY AAA232. 010 EXIT. 001524R.
BITS -000001 B:OLsZ 131313106 Ain FA.APD= 13131311313
BIT1 -000002. BA:MAP 131313234 010 FA.CRE=? 0000113
BIT10 -002000 B:OSPL 000315 010 FA.DLK= 001000
BiTil =.004000 B:OTTM 00007,5 AlA FA.EAB= 10000
BIT12.--AlAnOn B:OUOP 00005A 010 FA.EXC= 00200m
BIT13 -020000 B:SEDB 00010 010 FA.EXT= 00004
BIT14 =?040000 B:SIZE 000772. 010 FA.ASP= 13131311313
BIT15 -100000 B:SADP nAA012. Oln FA.POS= AlAAA0
BIT2. -000004 B,SSO. 000004 010 FA.RD.= 000001
Mi I. -000010 B:SSOF 00005A 010 FO,RUD= 004000
BIT4 =.00utiLu B:STAT 000044 010 FA.SE0= 11413131313
UI IL -000040 B:STTE AAA053 010 FA.SHR= AAnin4A
BIT5 --AAAinA B:UDOG 00011A - AlA FA.TMP= AAA020
BIT7 =.000200 CBIT. =.01000 0 FA LICK=? 020000
BIT9 -000400 LF Eli -000070 FA.LET-uuuu02.
BITS) =.00inA0 cF:B2.=.0000B7 PCSERR. J2316R. FO LIFT=
:
h.:ALA..=
BLDEFL=.****** 0X. CF,B4 =.00A0BB
BLDFAB. 0A2A7BR. CF ES =.0000AA F1' FL
ME1g. F,ALOC=
F:BBF.S=
BLDAFL=.****** GX. CF:DRO=.000054 FD .0011= u2000 F:BDB.=
BSTPTR= ****** GX. CF,DRI-AAAAA72 FD.CR.= 000A2. F:BGBC=
EIS:CL- AAAAA2 LA :AND= uutio01F:BKDH=
BS .
:DBU= mUmuM4 CR. -00015 FD.DIR= AAAA 1A
FL', uuuuuu 003 F:BKDS=
BS:IHO=? 000000 DBSLEH=.000115 FD.FAB. 00006 003 F:BKEF=?
BS:OPA= MIHMH1 DECASC nA1F17.A1. FD.FTA= 000A1
BS:SRC= HMHUM7; DELT IM A A
AAAARG 014 FD.FVR. An0004 NT?, r:ET:
BYTE0 = uuu000 DH:BFu uuuuu2. 005 FD.Fil= 04.00013 F.:BKVB=
BYTE1 = 000001 DH:BF1 000004 OOF FD.IHS= 000010 F:CHR.=
BYTE2.= An0002 DH :CTL AAAAAA AAH FD.ISP= AA2AAA
BYTE3 = AAAAA7, DH:DMC AA0010 AOF Fl) LEN 000010 AA3 1--=
BYTE4 = 7131313134 DH:FL0 131312113135 0135 Fl), MAT- loomou F:DSPT=
BYTE5 =.0000u5 DIRERR 002252R. FD.OsP=? 11134111313 F:DVAM=
BYTU. =.0AAAAF. DA:DCK mmumm 0171 FD.PLfl= AAAAA4 F,EFBK=
BYTE7 =.AAHHA7 I'M NTP n0004 1313 FD .PRA= AAAAA4 F,EFA.=
BYTEG =.0AAA10 DHAIXT nAoonB 013 FD.PSE= 01AAAA F:EOBB=
BYTE9 -000011 LA ROT 000002 1313 FL', RAH= uutititil F:ERR.=
BYTVAL=.0AAA12 DA:siZ 1311135111 017. FD.RAA-An0A02.
F FACC=
EI:BSTO. 000054 010 ELSBIT-AlAAAA 0 FD.RFC=.0AAAA1 F:FEBY=
,
B:CATX. 1313131345 13 ill EMXCHF- 020000 u FD.RUM-AAAA01 F:FHAM=
B:COUO. uuuubu 010 EMXDIF=.010000 G FD.SDI=.000020 F:FAB.=
B:FEMA. AAA132. nin ENXEXF=.0A01 G FD.SOD=.0AAA4A F:FTYP=
B:FEMB. 000142. 13113 ENXFDL-An?0On 0 ED.TTY=.0AmmA4 F:FVER=
B:FEMC. 000152. 010 EMXMCD=.00002.0 FD.UBH-uu000,. F:HIBK=
B:FF,3A. u00202. 010 EMXMCF=.001000 0 FF.CHR=.0uuuu5
F 1
B:FFSB. AOC-121:3. Ain EMXMTV=.040000 G FF.AV.=.0000A3 F:11:1ETT:
B:FFSC. 000222- 0113 ENXHB1=.000002 0 FF.POE=.00Mt.100 F:HEIC1=
El:Ft-HR. 000172. 010 EMXHB2=.000004 G FF.ROD=.000001
B:FOLS- 000162- 010 M
EtIFD=.000 0F, 400 0 FF. r:ta72:
B:FSAZ. 000100 A1A EMXHSO-1nA0An Gi FF.spc-AnAoA4 F:AREC=
B:FSB:. 0A01n2. 11111 EMXAVD-A0lAnn G FH.DBR. AAA02B 011 FATvDS=
B:FSCE. 000104 010 EMXSZF=.0Lmuum G FA .DBS. 00022. 011
B:HBLK. 000120 010 EMXTRL=.010000 G FA.DHR. 00040 011
B..HDOC. 000114 010 EMXVDC=.004000 G FH.EMA. 000012. Ail
B:HRLP. 0000 26 010 EMXVVv=.000001 G FA.EMB. 00014
10
Approved For Release 2005/08/
FA ,ELIC. 00016
FA :FSA. 000000
FA:FBB. 000002.
FA:FSC. 0'00004
FAA.O. 00034
FA:LGU. 000036
FA:MFO. 00024
FA:MHR. OnnAln
FA JAMB. 135111344
FH: OLS. 000006
0 R '.1) ? 00171 A 20
FA:SFO 00030
FA:SF1 000032.
FA:SHD. 000042.
FO:APD=.00106
FO:M1-Y=.00002.
FO:UPD=.00006
00nAlA
LI LI A 07-F.;
A El A A 40
-An062.
00070 IO,L.LB=.******
60057
AOAA26
ciono2o
000050
00A051
ur1024
000054
00075
nAAA34
0004F
000044
00017.4
0000
171000:50
000072 ?
A 0 A 052
A 0 A A 47-1
00 A014
() AA11171
000102 ?
AAA11F.
OA A 12171
onntA04
000042.
00054
0001155
000A5B
0002.
00030
ouo0A0
F:RACC= 000016
F:RATT=.000001
1-:RCHM=.000034
011 F:RCTL=.00017 H.DID.= 1390024
IA-RDP85-00514R000200010001-4
011 FRPI7=.0000112
011 F:RTYP=.000000
011 F:SEOH=.000100
011 F:SPDV=.AAA072
011 F:APUH=.00AA74
011 F:STBK=.000035
011 F:UHIT=.000136
011 F.URBD=.0uuu2u
011 F,VBH.=.000054
011 1 1oo'BSZ=.000060
011 GETFRE=.****** 5>-
1311 GTIM1 1313132213R5, 014
011 G:TICP=.00001A
011 0:TICT=.000014
0:TID1::I=.001113134
0:TIHR=.0013006
0:T1MT-000010
0TIM0=.000002
0TISC=.001.1012
G:TIYR=.000uuu
HOUR.1=-AnnA20
HOHR.2=?000006
ILeIT.=.004000
I 1RBIT=. - 004000
000012
LH1E 002356R.
002406R.
LH2.
LH2E
LVIJAT-000006 G.
M. -000062
MIH ,1 =.000022
MIH:2.=.0AA010
MFG1
MFGTXT. 001664R.
MSG2
. =.!.Itra7i2R
H '
HACK 00072411.
HEI,JIEV-AAA200
HEI,DIR-000100
AB,HAM-.0u0u04
HB,Spi=.0004A0
HB:SD2=-1313113110
AB:SAM=.0A0040
AB:F.:TP-000020
1-1B,sV1-1=.000A1n
HB:TYP=.000002
HEI,VER-000001
HMRLK. 0001548.
11;BFAC-00A004
H:0HGH----UUUmUe.
Ox.
G ?
G.
H,ATCH= 000004
A:BUFB= 004000
H,BUFW= 002000
'
f
41, OUERY-TRAH OR
MH*0646-8. Foiltre1e? 2406/08/tikaADP85-00514R000200010001-4
H.DVHH=-000032-
R.VAR--ummum2.
MUummm
002-S:DABA=-0000A6
WH.SRC. 00000A
H:FID.=-outiuuu
R:VDBA-000006
SR.TWS 000056
002-S.DAEF-000010
. WH:TYP- 000001
i-I: H = ? 111-11-11-11--11'.
R VDTM = ? vim 1-101.12 ?
5R.WsL 171171171171'12
OB2-s.DATH=.00BAB2
LuRDA = APIARAA
H?FOS.=.000764
R:VXBA= uuliuus
SR.YR 000004
2102-1:FATT=.00AR16
WORD1 =000002
H.FTYP=-000014
R:VXTH-OdHHU,.-
002-S,FDB.=.000140
WORD2-= HUUMM4
N:FVER=.000016
SD:FSA=.000010
003 SR.1IP. 000015
002.S:FHAM-HHHHmb
WORD6 = MAHHMh
N:NEXT= 000022.
SD:HPS-AAAA1E.
11117. sSBIT.= 13A413AA G.
S.FHB-ROBA36
WORD4 = AnAnin
H:FKSZ=?000020
SD:SEC-000012-0
SS.FID- A00007.
004 2..FHBW-000017
WORDS =? 000012
N.PKTS-000043
SD:TIC=-AAAA14 G
003 SR.FHB. 00001A
004 5:1-HTY=-000004
WORD6 = 000R14
H.OURY-000031
SECBUF 000206Ru
014 sb.FVR. uuuLlus
004 S.FTYP=.0001J02
WORD7 = 000016
N: s Ai= ?LIUL1UN
1 = ABA024
!=;!:;.LEH. AOAA12-
004 5:HRL--ORA240
WORDP = RAAA2A
:5UHT= jijkjLin
SEC:2-=-A00012
SR.STT- 000000
004 S.HFEH=.ROAR20
WORDS! = HHHH243
H.UNIT=-000B7.4
SEG]. =.MMMMUM
5TARSW=-000000
S1BIT-=?001000 G-
WRDVAL= OBAR24
PAR! 002444R.
5ES2- =? 000002-0
START- 000212R-
S2BIT-=.UU2HBH G.
XBATCH= --
FAR2. 002446R-
5E03 =. i054
ST$000=.120000 G-
S3BIT-=-004ABO 0-
XDBLOA=.00BOR4
RRNT- AA 113@F
SNDB1 0000?F.R.
STSIMR-RE,OAAA 0-
TAEBIT=-02A0A0 G.
XDBPRO-000017
PRTBUF- 001755R.
50082. 000054R-
STSIHX=-040000 G.
TBIT- =.00413130 G.
XDMCIN=-000005
FUTSSO-****** GX.
50083 000122R-
5T$JS0=-100000 G.
TICASC. 001632R.
XFOS1IR=.000007
0E:R01=-000144
%N ARE AAA 1.14
002-ST$1A1=-160ABB G-
TIC:1 = 000026
XGTSRE=.00AA14
ORYS- 001754R
SR:ARS ABA1n6
OR2-STssE0=-14Huom G.
TIC.2.= 000014
XHITSK-A00011
OTSTAT=-****** L
SR:DAY AAAAIA
002.PT.W2. AABA20
0A6 TIMASC- 0016I4R.
XHLMER-usuAu,
OTI 00000AR-
SR:DLT 000014
002-ST.O5Z- 000024
006 TIM9 001652R.
XHOTS2:::-000010
0T2- HM1-11-114X.
SR ELL; 1.1011[14(
hr-141,1.1
006 TXTBIT= 010000 G-
XMSCHE-BOAORA
OT3 BOOR1RR.
SR:ECH AnnA4E,
A02-ST.CSZ AAAA--7,A
006 T.JSBY= 00BOAR G-
XOTS =-0000A72,
u,hDAL. 1HHHH4
171I717 SR :ECL A0A0511
002-5T.HRL. 13131313113
006 T:MATC= 000ARA G-
XOTO =-UuHuU1
U.NUBK. UHHHuu
007 SR:FIB 000012.
002-ST.LEN 000044
006 T.HBAS= OBBAR2 G.
XSCHED? 000014R-
LkNUHL. MMUMIT,d.
BA7 SR,GRE 017,1010A
002-ST.ORY.
AA6 T.HDEF= OORARB G.
XSULOA-A000A5
0:SI7E. 000014
007 :1 !I AARA72.
AA2-ST.OS7- BAB07.4
BBB T.SBY1= BBBRBR G.
$DBIJ .---ABOnnn
RECBI 00uu.?2:?..H.
SR,LEH 000172.
002-ST.SCH- noce4P1
006 T.5BY2= 000001 0-
$$$ -000140R-
RECB2. 000060R-
SR,LIH 000066
002-ST.UHL- 000004
006 T:SBY3= B000B2 G.
$$$ARG=-RRABA2
RECB3 000ii6R-
SR:LIP 0000A-
002-ST.XLT. 31313014
006 T.STAD= 00B0A2 0-
$$$OST-0002112"
R.FIX-000001
SR :MOH 0001711.71A.
B02-SU.DRU= AR00A4
T.TRAH= 000000 G.
$$$T1 =-ROAR03
R,OgGC= F10017115
SR,HDC AA0B42.
OF1?-SU.DOH= AROA06
T:TYPW= OORA04 U
GBL= 0000AR
R.OSPC=-000014
SR.IIDS 000036
002-SU.IDL= 000000
,ir-41-4lN UUUNU4
012 . .PC1= BOOAOR
R:05PN= OR17.1FI0
EF 0TH RA007-0
002.sU.LO5I=
LIN:HXT. 0ORAA6
....PC2=-00017RR.
R.OSPR=-00BB12
sR.HIP AAAA27.
002-sU.sRC= AA00A?
WH.ROT- 000002-
012-._pc75=-0F10000
R.OSTH-HHHuH2.
SR.SDB BARA32.
BR2-6U.SRR= 0A0005
WH.51,7- 00A1711A
012....TPC-000140
R:SEA =-000003
SR :SRC OBAAR2.
,.!..J1J.XFD= uo0HHA
. ABS,
FIFIFIFIOn
ORA
E1E12450
AB1
SRCOFF-
FIRF1122-
002-
FDSCOF.
Onnn10
007.
SUSOFF-
000012.
004
DHROFF-
000012.
005
STTOFF-
000044
006
05PLOF.
13i.710014
007
BSTOFF-
000772-
Bin
FHOFFS-
000044
011
WHODOF.
E1E1E1E11E1
012-
DNOD0E-
000010
01:3
TRHOFF-
000240
014
$DPB$$
000150
0I5
ERRORS
DETECTED
0
VIRTUAL-MEMORY-USED: 6397 WORDS- (-25 PAGES)
DYNAMIC-MEMORY: 7028 WORDS- ( 27 PAGES)
ELAPSED-TIME: 0000:54 Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
III
012.-
015
OUERY-TRANSLATOR.SCHEDULER.
SYMBOL.THBLE-
OTSODTS/-SP=E20,13P,M,TAOTS-
?
Nid?Fc3Fi4818-616 17.-ki6/-t)8/22'73.ECIA=RDP85-00514R000200010001-4
Approved For Release 2005/08121A-RDP85-00514R000200010001-4
?
4", ;!4 ?,
OTS,TSK;30
HEMORY.ALLOCATION HAP. Tke. L
27_mnp._17.1171 Awroved For Release -2005/08/22 : CIA-RDP85-00514R000200010001-4
TASK. NAME. : OTS
PARTITION.NAME.: HSTSPR.
IDENTIFICATION.: 0331
TASK- UIC. : C20,3].
STACK. LIMITS: 000212.001211 001000 00512,
PRG.XFR.ADDRESS: 001424
TOTAL.ADDRESS.WINDOWS: 2,
TASK. IMAGE. SIZE. : 1722. LCRDS.
TASK.ADDRESS.LIMITS: A0001710 01.16507
R-W.DISK.ELK.LIMITS: n00002.0AAA10 0AnnA7 00007.
*** ROOT SEGMENT OTS.
R/W-MEM- LiMITS 000000 006507 1710510 0e11.00.
DISK.BLK.LIMITs: 11rinnn2.nOn110 0n0007 Anon?,
MEMOR'l&ALLOCATION.SYNOPSIS:
SECTION,.
. ELK::(RW..IfiLCL,.REL.CON) 001212
001212
BSTOFFt(RW,Ifil CL,ABS,CON) nAnnnn
000000
DHROFF:(RW,IfiLCL.ABS,CON) nnnonn
0E10000
DNODOF:(RW,I.d_CL,AOS,COND nnnnno
0000o0
FDSCOF;(RW.IfiLD?ABS,CON) 000000
UUU000
FNOFFS:(RW,I,LCL,ABS,CON)
MSGOUTt(RW,ILCL,REL,CON)
OSPLOF:(RW,I,LCL,A8S,CON)
SRCOFF:(RW,IfiLCL,ABS,CON)
STTOFF:(RW,I,LCL,ABS,CON)
SUSOFF:(RW,I,LCL,ABS,CON)
TRNOFF:(RW,I,LCL,REL,CON)
WNODOFt(RW,ULCLfiABS,CON)
SDPBV::(RW,I.LCL,REL,CON)
$$RESLt(RW,ILCL,REL,CON)
?
nnnnnn
003340
_02450
AAAAAA
000000
AAAAAA
OAA000
nnnnnn
UHAAUo O0OUOU AAUUU.
004552 001,214 00652,
FiR4552 001214 006F-0,
AAAAAA 000000 OnnOn.
rimumoki viuuuou uuolJu.
PAAAAA onqonn offign.
MVa-mITI tim-1111111 H1,11.11:I,,
AAAAAA AAAAAA AAAAA.
HHHHHM HHHHHH VIHMHm,
AAOAAA 0000A0 AAAAA.
omoomm HHH111-01 UUUUU
005766 001132411 1311160.
AA57C--,f:-. 000240 00160.
AAAAAA AAAAAA 019000.
opiAllum Amomou oHoom.
AAF:22f.; A00150 AA1A4.
006226 AA015A 00104.
191967,7f.7, 100112.0AA74.
TITLE DENT, FILE-
QUERY.
QUERY.
QUERY.
QUERY.
UUERY.
ULU-- HY ?
HESSAG.
QUERY.
HA ERY.
HAERy.
HAERY.
QUERY.
QUERY.
QUERY.
OTS,OBj;1
OTS:00j.ti
OTS,OBj.ti
OTS,OBJ.ti
OTS:00j;1
OTS:OBJ.t1
HSGOULOBJti
OTS:OBJ.ti
OTS,OBJ;1
OTS:OBJ.ti
OTS,083;1
OTS.0Eliy,1
UTS:083.t1
OTS:08J.t1
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
?,4
OTS,TSK%30 OTS EMORY.ALLOCATIOH MAP K
.vHOved For ReleaW100-5/08/201A-RDP85-00514R000200010001-4
. .A27-MAR-80 1E.f7L,
GLOBAL .SYMBOLS:.
OBIT. 010000
EMXMTV.040000
EMXVVV 000001
5'DFFA.000010
STSCHG-12AAA0
TOEBIT.H?mumu
T:5BY7i 5100002.
DELTIM.005766 -R.
EMXNH1 0HFIN-12
EMXZHF A04000
SDHPS ElriOEIi5
ST$IHR.06110A0
TBIT. 004AAA
T:STAD.000002.
ELSBIT.010000
EMXHB2.1JuLluu4
EMX0VD OAA2AA
SD,FFC.000012.
ATSIMX.040000
TXTBIT.010000
LIKAN.uumIuu
EMXCHF.020000
EMXHF1).000400
EOBIT. 010000
.L'i1),,TIC-17100A14
--,-;T$J.S0.111AAA0
1,,P5HY.1.11J1.11,111U
T,TYPW.000004
EMXDTE.010000
EMXHFO.100000
BTIM1 006206-R.
5ECBUF.006174-R
STSMAT.ibuutiu
T.MATC.A0AAAA
EMXEXF.00000i
EMXHVD.A01000
IWBIT. 0171400A
SES1 AAAOAA
STSSE0.140000
T:fle.5.000002.
Ehm-Du.0021.Juu
Emn7JLT-111-1,201.Ju
JMPBIT 00400A
5E12. 000A1712.
SIB IT. 001000
T:HDEF.A00000
1-MXMLLI.UULIULI2.
FMXTRL.010000
L$STAT ARA006
-...iEG-..Ei 00AAA4
R2RIT. 002000
T;seyi An0000
EMXMCF.001000
EMX4DC.AA4A00
K;GOUT 004754-P.
:'---;EIIT. 5A4171A2
FB IT. 004000
T,FBY2.000001
**4 TASK BUILDER STATISTICS:
TOTAL.WORK.FILE.REFERENCES: 7144.
WORK. FILE. READS: 0.
WORK. FILE .WRITES: O.
SIZE.OF.CORE.POOL: 6634. WORDF.(25. PAGES)
SIZE.OF.WORK.FILE: 1536. WORD I-;.(6: PAGES)
ELAPSED TIME:00:00:09
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OT0 MACOM I 110 27-MAR-80 12 5Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
TAKE? OF CO NTS
13- 51 DISFATCN.ROUTINE.
14- 97 READ QUERY.
15- 579 ERROR.NANDLING ROUTINE.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO
1
9
M00RO.M1110 27-MAR-80
12:54 PAU' la
-Apporved-ror Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
;THIS-FILE (E....MAC) CONTAINS.ALL.THE.OUERY.ERROR.CODE5.
;
3
000001
OE,DW1=1
;RESERVED.
4
000002.
OE,MTS=2.
;MULTIPLE TERM 5EF".'5.0R.MIS5ING.TERM.
5
000003
OF:DW2=3
;RESERVED.
6
000004
OE,ILC=4
ILLEGAL. CHARACTER
7
HHHHHh
OE:INS=5
;IHTERHAL.HSTS ERROR.. LOGIC.PROCESSING.
e
000006
0E.HL0=6
;HULL.OUERY.
9
909107
0E.M0F=7
;MISSIHG.OPERATOR.
10
000010
OE:MFM=9.
;MISPLACED,FLU -MOD.
11
88917111
OE.MSD=9.
;MISPLACED.SUBDOC.OPERATOR.
12.
000012-
OE:MHT=10.
;MISPLACED NOT OPERATOR.
13000013
OE,MFL=11.
;MISSIHG.FLU./ TWO.CONSECUTIVE.OPERATORS.
14
000014
OE:UBP=12:
UNBALANCED PARENTHESES
15
000015
OF,INO=13.
;INSUFFICIENT.HUMBER.OF.OPERANDS.
16
000016
OE:IS0=14.
;ILLEGAL.SUBELEMEHT.OPERAHD.
1.7
17-100017
OE:FX1=15.
;MISSING,PROX, WINDOW, OR.DOC.TYPE,ZOHE, OR.SUBZONE-
19
000020
OE,PX2=16:
;PROX,, WINDOW.OR.FLU -MOD ID.TOO.LARGE.
19
000021
0E,PX3=17:
;MISSING.PROX: UNIT.
20
000022.
OE,PX4=19.
;MISSIHG.PROX, DELIMITER
21
000023
OE,NRI=19.
;ILLEGAL.HUMERICAL.RANGE SPECIFICATION.
22.
000024
OEMRB=20.
;NUMERICAL.RANGE.BORDERED.BY.HUMERIC.
23
000025
OE:HOS=21.
;HO.STX.FOUND.IN.OUERY.
24
000026
OE:FTB=22,
;FLU TOO.BIG.
79
009877
OE;NTK=23.
;UHDEFINED.TOKEN.
71:7,
.
27
;OE,R01=100.
;GENERAL.RESOURCE.OVERFLOW (LABEL.DEFINED.IN M:MAC)
29.
000145
ASKOVF=101.
;ARGUMENT.STACK.OVERFLOW
29
000146
LNPOVF=102.
;LOGIC.NODE.POOL.OVERFLOW.
30
000147
TS1.OVF=103.
;TOKEH.STACK.OVERFLOLL
31
AR0150
UI Fit
;OUERY.TOO.BIG
32.
000156
ORYOVF=110.
;*-OUERIES.OVERFLOWED.
33
000157
POLOVF=111.
;FLU POOL. OVERFLOW.
34
000160
FALOVF=112.
;FAL
3F,
080161
TTBOVF=113.
;TTAEJF .
3e
e66162.
XTBOVF=114.
;XTABLE.
37
000163
OLBOVF=11.5.
;OLB
2:8
39
000164
000165
SLBOVF=116.
OEXOVF=117.
;SDLB.
;OEX
.4a
06aieds
EMAOVF=119.
;LMA
41
FinAlc-7.7
EMBOVF=119.
;EMB
42.
000170
HI II
;EMC
43
000171
VI3OVF=121.
;VI.OT3
44
000172.
VI2OVF=122.
;VI.OT2.
45
000173
VI1OVF=123.
;VI.OT1
45
000174
TDBOVF=124.
;TICTB.
47
000175
H000VF=125.
;HODE.POOL.OT2
...0..1
?,0 .
?
Approved For Release 2005/08/2.11A-RDP85-00514R000200010001-4
?
?-? L?bt faktr ????44,.
,? ?
OTO MAC.11110 27.-MAR-80 12 :5AppfirciWted For Release 2005/08/2.IA-RDP85-00514R000200010001-4
1
2.
3
4
F, .MACRO. PRTASTARTAEHD.
IS MOV. R4,? (SP)
7 MOV. START,R4
9 MOV. R4,LOCAT.
ci MOV. EHDAEHDLOC.
10 JSR. PCAPRIHT.
11 MOV. (SP) +,R4
12. .EHDM.
13 -MACRO. PRTHASTARTAEHD.
14 MOV. R4,?.k
15 MOV. STARTfiR4
15 MOV. R4,LOCAT.
17, MOV. EHDAEHDLOC.
19 jSR. PCAPRHTH.
19 MOV.
20 .ENDM.
21
22. ; MACRO-TO TEST.CHARACTER.S1GHIFICAHCE.
PARAMETERS.ARE.COHDITIOHftTRUEAAHD.FALSE.
24 COHDITIOH=THE.TEST.COHDITIOH.
75 TRUE. =PATH.TO.TAKE IF.COHDITIOH.TRUE.
25 FALSE. =PATH.TO.TAKE IF.COHDITIOH.FALSE.
AHY.PARAMETER.CAH.CE.PROCEEDED.BY-n!' WHICH.CAUSES.THAT.
; PARAMETER.TO.BE.A SUBROUTIHE-CALL.
; MACRO -TO PRIHT.BUFFER.
CREATES.SPOOL.FILE RECORDS.
7-"R
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
OTO MACRO.M1110 27-MAR-80
1
2 000000
3
4
5
5
7
10
11
12.00007-2:2.
13 000022.
14 000172-
1F, A00172.
if; 000172.
17 000172.
iG OA0332.
19 55A3.32.
20 000332.
21 000337.
000003
000E03
51555 117
000012.
22.000336
23
24
25
25
2G.
30
31
77.;2
33
34
7=
26
r
39
40
41
42
43
44
45
46
47
48
49
A174.174A
000342.
El 110244
000345
555375 anArinA
AA0377. 5i76-100
00037.4 uutiduu
000376 000000
00046.1 ormildu
000402- 000000
000404 000000
000406 000000
?
Wi3p1W4cl ODor Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.TITLE,PT0
.PSECT OTO
.MCALL OFNO$R.FIGPFS.FDRCSA,FDPC$A,FDOP$1-11,FDGFSA,NMBLI CURRENT.MAX?.
;NO.
;YES: UPDATE.MAX-
;QCL.nVERFLOW?.
;NO.
;YES: NON-FATAL.
;POINT.THIS.OUERY To CURRENT FAL.ADDRESS.
; TEMP . STORAGE . FOR . OCL . PO INTER .
FIND . FDSC ENTR'Y'. IN . TABLE .
0:NUHL(R1)
*BIT15,@ORYFS.
#O:FDSC,R1
#FDBORY,R0
PC. BLDEFL.
4$
4$
ORYSIZ
TOOBIG
4POPYBUF+18,R1
*3TX,(R1).1-
110$
R1,40ORYEND+1
7$
0HuLFMHfiACTFMN
MXTHDEfiORYRS
FLUID,ORYFS
NFALEfiORYFAS
OFALE,CFALS
4i,2,HFALE
@CFALS
FMCOS7
EMAOSZ
PC,PORSER
#FDBORY.
Approved For Release 2005/08/
;STORE.OUER'' SI7E.
;ANY UHL BLOCKS?.
;NO.
;SET.UHL FLAG.IN.QCL POINTER
;STEP-TO FDSC.ENTRY.
;BUILD.EXISTING.FILE.FNB.
;OPEN.OUERY.SPOOL.FILE.
;READ.OUERY.FILE.
;ANY.MORE.BLOCKS-LEFT.OF-QUERY?.
;YES.
;Ri?-OUERY.BUFFER.
;WITHIN-OUERY.BUFFER?.
;NO: NO.STH.FOUND.
;RESET.ACTIVE.FLU-MOD.TO-NULL.
;STORE.CURRENT.POOL.ADDRESS.IN CASE OF ERROR.
;STORE.CURRENT.FLU ID.
;STORE.CURRENT.FAL LOCATION.
;SET.CURRENT.FAL.ELEMENT.STORT
;STEP-PAST.COUNTER
;CLEAR .COUNTER.
;INIT-QUERY.STATISTICS.STORAGE.
;STX.FOUND: PARSE -QUERY.
.:CLOSE.OUERY-'..3prin FTbb.
IA-RDP85-00514R000200010 1-4
MY 4 . A ,ot 1
ic
OTO MA M1110 27-MAR-E:0 12; 5Aprfjd Obi- Release 2005/08/2.IA-RDP85-00514R000200010001-4
READ QUERY
154 001106 025727 0000000.000000C. CMP. HXTHDE,.*POLEHD+FHPOS2+FHPOSZ.
155 001114 103057. OH IS 9$ ;IF.MODE POOL.OVERFLOW.(FATAL)
155
157 001116 004757 AnoApielo. JSR. PC,OTFORM. ;TRANSFORM.LOGIC.
156 001122. 022702-0000000. CMP. *ONFLUIONFLS,R2 ;IS.LOGIC.FALSE.
159 001126 001415 BEO. 10$ , THEN IGNORE
150 001130 022702. 0000000. CMP. *OHFLU,R2. ;IS.LOGIC.TRUE.
151 5511.34 001474 PEO. 6$ , THEN-SET.UP Durtu.oLs.
162.001136 _-727 177232 000000C. CMP. FLUIDA*TTBMSZ/4
163 001.144 10:2.405 eLo. 8$
154 001145 012767 000151 177170 MOV. #TTBOVFAERRCDE :IF.TTABLE.OVERFLOLL(HON-FATAL)
165 001154 A00167 001512 JMP. ERRORV.
166 001160 004767 0000000. 9$: JSR. PCAGEHOLS. ;GENERATE.OLS.FOR.CURRENT.OUERY.
11P.7 001164 0 1575? HHHHHHU.MHHHHHI, im$: MOV. HFALEAFALAD. ;UPDATE.FAL.ADDRESS.
168 001172. 152757 0000006.0000001.n. SUB. 4FAL,FALAD-
1P.9 001200 5A4767 1300470 j5R. PCARESCHK. ;CHECK.FOR.RESOURCE.OVERFLOW
170 001204 022757 001401 177124 CUP- #CLSIN...CMDCDE. ;CLOSE.BATCH.ALSO?
171 001212. 001465 B60. CLSBAT. ;YES.
172.001214 012767 000001 177114 MOV. *ORYOK,CMDCDE. ;RESULT= OUERY.MERGED.SUCCESFULLY.
173 001222. CALL. SSO. ;5END.S5U.HALKE1.10.MLHED.
174 00122G 000157 177172 JMP. START1
175 001232 012767 000025 177104 7$: MOV. #0E;NOS,ERRCDE REPORT ERROR
176 001240 000167 002742 JMP. ERROR.
177 001244 012767 041462 0008080.9$: MOV. *P2C,OLSBUF. ;RE-INIT OLSBUF.
178 001252-012757 000157 177064 MOV. *POLOVF,.ERRCDE
17c! A111250 RAR1.67 002672 JMP. ERRORF.
IRO 001264 4$:
191 001264 11.5757 176614 003412. MOVB. F000RY+F:ERR,PAR2.
182.001272 052767 177400 003404 BIS-#177400,PAR2.
551.355 004767 0021,7.20 JSR. PC,FCERR.
11:14 001304 000167 003060 jMP. EXIT
185 1.1017.10 5$:
186 001310 012757 000000G.003366 MOV *$DSLI,PAR2.
107 001315 004757 002542 JSR. PC,DIRERR.
lee 001322. 000157 AR:7042 jMP EXIT
189 001326 A167A5 AIDAAAAG- 5$: MOV. NOLBE,R5 ;CREATE.DMIY.OLB-(NOT.WITH.NO.POINTER)
190 001332. 052705 000002 ADD-#2,145 ;STEP TO ORY.ELEMENT.uL 7
191 001335 112725 AAAAA1 MOVB #1,(R5)+ ;*.ELEMENTS=1
192 710 1342 010557 1111500013.. MOV. R5,HOLBE. ;UPDATE.NEXT.OLB.ELEMENT.POINTER.
193 001346 112725 000000G. MOVB #B$NOT,(R5)? ;FLAG.ELEMENT.O.S.NOT.
194 001352 116715 176764 MOB ORYNO, ;STORE. OR'''. ID.
195 0A172,51,-, 062767 550503 ARAAAAG. ADD. #3,OLBAD ;UPDATE.OLB.INTERNAL.OFFSET.
196 001364 000577 BR 10$
197 001366 CLSBAT:
196 551.355 056757 002450 Au0R0uu. BIS. OVFCLS,OTSTAT. ;NOTE.ANOVERFLOW ERROR.
199 001374 005057 002452 CLR- OVECLO.
. ;STORE.EMA AND .EMB EST.
200 001400 016767 002430 0000040. MOV EMATS2,OTSTAT+4
201 001.40 1111:-.77 002425 11111151115. MOV. EMBTSZ,OTSTAT+10
202.001414 005767 000000G. TST. NODEA. ;IF NO.OUERY, DOWT.CLOSE.
2512. 001420 001020 ONE-
204 001422? 0w-vb( uu0RuULD. TST.
2G5 GG1426 0510i5 ONE 100$
206 001430 005767 175744 TST. AUTCLS-;IF.AUTO CLOSE, RETURN.( ,5), ELSE (1.5)
207 001434 BUFF- 101$
2AR 001436 lb I 002401 176E7172. MOV. #CORUPMCMDCDE
209 001444 000167 177074 JMP. BATREJ.
210 001450 012757 003001 176560 1011: MOV. 4CORUNK,CMDCDE ;ABORT.BATCH.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO MACRO.M1110 27-MAR-90 12:54 PArF.1.4-2
ApproVed ror Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
READ QUERY
211 001456
212.001462.
213
214
215
215
217.001456
218 001474
219 001502-
220 001510
22i 001515
222.001522.
223 001530
224 001532.
225 001535
226 001542
227 001546
220 001554
22.7.1 01711560
230 001572.
231 001574
232.001600
233 001504
234 001512.
235 001520
235 001525
227 001532.
238 001534
239 001540
000157
177052
004757
000000G-
100$:
052767
AAHHUZ
UMPIHMMU.
062767
140004
AAAAOAG.
015757
1755:32
AAAAAAG.
042(67
HHHHHi
OLIOULIOLn.
006367
AAAAAAG?
022757
17100A06
AAAACIAG.
A01002.
005067
AAAAAAG.
012700
000172'
10$:
012701
ARAAR5
004757
000000G.
103425
015702'-
176540
016202'-
AAA0A0G.
015752-
176464
000152.
015752.
175450
000154
015752.
175466
000166
103405
24A 001544 Lii.jUlb(
241 001650 115767
242.001555 052757
243 001664 004767
244 001570 000157
245 001574
245 001674 015705
247 001700 005205
248 001702. 005002.
249 001704 012703
?tin 01.I1.710 052302 ?
251 001712. 052703
252 001716 077504
253 001720 020227
254. 001724 103416
255 001725 020227
256 001732. 1A3405
257 001734 012767
------' 001742. 000157
289 001746 012757
250 001754 012767
251 001762. 025727
252.001770 11713405
263 001772. 012757
264 A020017..1 012767
265 002006 025727
266 002014 '103406
257 AA2---. 012757
AI
111,1H-Mb.
00005213.003026
177400 003020
002234
002474
175474
000002G.
000000L.
HHHHHHU.
000152
002210
001401 175752 2$:
ARAAR0G 017.1000013.
176406 000000C-3$:
175402.
1$:
RESCHK:
1$:
001401 175335
00000013.0000000.
O00000U.00000Hu.4$:
001401
jMP.
JSR-
IF.
JSR.
.E NDC.
ADD.
ADD.
MOV.
BIC.
ASL.
CMP.
BHE.
CLR.
MOV.
MOV.
FDAT$R.
OFNB$W.
MOV.
MOV.
MOV.
MOV.
MOV.
WRITE$
BUI;.
WAIT$
CLOES
JMF
MOVB.
BIS.
jSR-
JMP.
BATREj.
FC. GENTX.
DF,OTOSUM.
PC,BATSUM.
PC,OLSSUM.
;GEHERATE.TTABLE.AND.XTABLE.
;PRINT.BATCH.SUMMARY.
;PRINT-OLS.SUMMARY
#2,0LBAD. ;CONVERT OLB,SDLB,OEX.ADDRESSEti.TO.BYTE.giZEti.
*4 -40000,SDLBAD.
BATNO,OLSBAT. ;XFER.BATCH.HUMBER
o1,SDLBAD.
OEXAD.
*6,0EXAD. ;A11.E1TER.OTHER.THAN.DOMMIES7.
10$ ; YES.
OEXPD. HO - -THEH.RESET.
*OLSEDB,R0 ;CREATE.OLS.FILE.
#FH6OLS,R1
PC. BLDNFL-
1$
BATNO,R2. ;R2.-..BATCH.HUMBER.
BSTPTR(R.2),R.2. ;R2->BATCH STATUS TABLE
OLSED8i-F,FNB+N.FID,B,FOLS(R2)
OLSEDBI-F;FHB+H.FID+2,B:FOLS+2(R2)
OLSEDB-FF:FHB+N.FVER,BFOLS4-4(R2)
1$
CLSEMX.
EMXFDBA-F:ERR,PAR2.
*177400 P8112
PC,FCSERR.
EXIT
MOV. FLU ID. ;R5=*.TTABLE.ENTRIES.
INC. R5
CLR R2
.
MOV. #1TABLE+2,R3 ;FIRST.TTABLE.COUNTER.
ADD. (P3) ?. ;SUM.COUNTERS.
R5,1$
CMP. R2,4XTBMSZ/2-TRMCUT. ;XTABLE.PAST.CUT-OFF?.
BLO 3$ ;NO.
R2,4XTBMSZ/2. ;YEq: OVERFLOWED?.
BLO. 2$ ;HO.
MOV. #XTBOVF,ERRCDE
JMP. ERRORF.
*CLSIH,CMDCDE. ;FLAG? TO CLOSE.AND WHY.
MDV *FLUCLS,OTSTAT
IF FLUID,oTTBMSZ/4-TRMCUT. ;TTABLE.PAST.CUT-OFF?.
BLO. 4$
MOV. *CLSIN,CMDCDF.
*FLUCLS,OTSTAT
UHF FALAD,#FALMSZ-FLUCUT. ;FAL.PAST.CUT-OFF?.
BLO 5$.
1753Ap12.
proved For 1484ase 2065i042114-RDP85-00514R000200010001-4
- . . ,411,.,4, 4.4 .1k , 4. I ot'rt ? "eh lci
?
't ? fitJ f' ? 'If :h4 '
OTOMAt M1110 27- MA R -90 12 5Apritraikdi Poi Release 2005/08/2.IA-RDP85-00514R000200010001-4
READ.OUERY
2bl:1.00'2024
267,c.! 00207.2.
270 002040
271 002042
002mhb
002Alf.,4
2(6
274
27t,
002055
002074
7 002076
002110
002116
002124
002132.
110.21
.54
2e4 002142
2:7:5 002144
002152.
297 002156
2ii 02164
2AA 002172.
AA220A
291 00,21,1,1-
292? 002210
2q3 002212
294 002220
295 002224
- 002232
'7,19
00./240
002246
0022b0
300 Aa.7.--.2,7..A
.3131 002250
302.002255
.707. 007272 ?
304 002300
7A5 AA2711f.7.
306 002312
307 007.3iA
308 002322.
309 002326
710 002332.
311 002336
312 002340
313 002344
314 002346
315 __2354
316 _j_
317 002366
318 002374
319 002400
320 062404
321 002410
-- 002414
002420
324 002422
012(6(
026727
103406
01276,
012767
1.1000001..1,100o0OU
mmmm0mu.mmmummu. :
AA1401
Ob0006..000000b.
0125727 MMUMMIL,VT1MMHHI :
103417
026(2( 01.100006.0000006.
103405
012767 000163 176240
0111.11be 002046
012767 001401, 176220 7$:
012767 00000013.000000G.
0257.27 0000001-j ? 000000 r 10$ :
103417
152e, (2 es'
103405
012757 15150164 176172.
000167 002000
012767 001401 176152. 11%;
012(6( udL10006.uueluu06.
000000G.000000C-12$:
01,11-1mMML.mmumu0L.
026727
103417
U26(2K
103405
012767
000157
00ummuu.um00muu.
000155 176124
_1732
012767 001401 176104 13$:
012767 000000G .000000G.
326(5( mmuutiu..1((((15.14$:
103417
02576( UMUUUUU.000UUHU.
1.03405
012767 AOA171 176056
000167 001664
012757 001401 175035 15$:
012767 000000G 000000G.
167 001515 16$:
005067 001512
070527 000003
666705 ao1560
010567 001474
020527 0000000.
103416
020527 0000000
103405
012727 000170 000344'
000167 001576
012767 001401 175750
0127 000000G 000000G
015705 001432 20$:
AA50F,7 001426
066705 081424
010567 001420
020527 AAAAAAr
1.03415
A20527 0000000.
MDV *RLUCLS,OTSTAT
HXTHDE,*POLEHD
BLO. 6$
MOV. *CLSIH,CMDCDE.
MDV oELSCLS,OTSTAT
iriOLBAD,*OLBMSZ-
10$
CMP
OLBAD,00LBMSZ.
7$
eLo.
MOV. *OLBOVF,ERRCDE
jMP. ERRORF.
MOV. *CLSIH,CMDCDE.
riuv *LOGCLS,OTSTAT
31:'LBAD,*SLB1i33t40000-FLUCUT.
CMP. 12$
BUD.
SDLBAD,*SLBMSZ!40000
BLO. 11$
11111 ERRORF.
*SLBOVF,ERRCDE
MOV. *CLSIH,CMDCDE.
NOV. *LOGCLS,OTSTAT
CMP. OEXAD,00EXMSZ1100000/2-FLUCUT.
ELI:.14$
CMP- OEXAD,o0EXMSZ1100000/2
8LO. 13$
NOV. o0EXOVF,ERRCDE
NODE.POOL PAST CUT'-OFF?
ERRORF.
MOV? *CLSIH,CMDCDE.
MOV. *LOGCLS,OTSTAT
CMP. HODEC,VEC3MX -7
BLO. 16$
CMP. HODEC,VI3MS2.
BLO. 15$
MOV. 0VI3OVF,ERRCDE
JMP. ERRORF.
rov. 4CLSIH,CMDCDE.
NOV. *ELSCLS,OTS1AT
;OLB.PAST.CUT -OFF?.
;HO.
;YES; OLB.OVERFLOW?-
;YES.
;SDLB PAST.CUTOFF?.
;HO.
YES; OVERFLOW?.
;HO
;YES.
;OEX.PAST.CUTOFF?.
;YES: OVERFLOW?.
;HO.
;YES.
;01'3 VECTORS.PAST,CUTOFF?.
;[10.
;YES; OVERFLOW?.
;HO.
;YES-
MOV EMCOS2,R5 ;R5=EMC SIZE
CLR ENCOSZ
MUL
ADD EMCTS3,R5
MOV R5,EMCTS1
CMP R5,*VEC3MX-7-..+:21./2 ;EMC PAST CUT-OFF?
BUD 20$
CMP? R5,0EMCM92 ;OVERFLOW?
OLD 17$
Mi:"? *EMCOVF,*ERRCDE
?IMP ERRORF.
MOV *CLSIH,CMDCDE.
MOV *ELSCLS,OTSTAT
MOV. EMAOSZ,R5
uLR EMAOSZ.
EMATSZ,R5
CMP
R5,*EMAMSZ/2-EMOCUT.
R5,EMATSZ.
EILD 22$
R5.0EMAMSZ/2. ;OVERFLOW?
;R5=EMA.SIZE.
;EMA.PAST.CUTOFF?.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO MACRO.M1110 27-MAR-00 12:5LA PAGE--4
READ-OUERY Approv 14
ed For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
325 002425 103405 eLo. 21$
726 002430 012757 000155 175705 MOV- *EMAOVF,ERRCDE
327 002435 000167 001514 jMP. ERRORF.
326.002442. 012757 001401 175555 21$: M0V. *CL5IH,CMDCDE.
329 002450 012767 000000G 000000G. MOV- *EMACLS,OTSTAT
.57,A FI32430, 026727 000000G AARFIRAF:.22$: CMP. HODEA,*VEC1MX-TRMCUT. ;VI.IH-OT1 PAST -LIMIT?.
771 RR2464 103417 law. 24$
',.'.1.102465 025(2( VIVIMMMHU? UUUUUUU. CHF- HODEA,*VEC1MX. ;OVERFLOW?
-77 002474 103405 eLo. 23$
_- RR2476 012757 000173 175540 MOV. *VI1OVF,ERRCDE
335 0025R4 000167 001446 iMP. ERRORF-
335 0025111 012757 001401 175620 27$: MOV. *CLSIH,CMDCDE-
3...!..;( 002515 012(6( 1200000u 000000G. MOV. *ELSCLS,OTSTAT
77R RR2524 016705 0R1706 24$: MOV. BMBOSE,R5 ;R5=E1B.SIZE.
339 002530 005057 001302 CLR. EMBOSZ.
340 002534 055705 001300 ADD- EM8TE_R5
341 002540 010557 001274 MOV. R5,EMBTSZ.
342 002544 020527 00AA00C. CMP. 15,*EMBMSZ -EMBCUT. ;PAST .CUTOFF?.
-24-2 R0255A -71341G BLO. 2,...--;
344 082552 020527 HHHHUH6. CMP. R5,*EMBMSZ. ;OVERFLOW?
345 002556 103405 eLo. 25$
34.6 002560 012757 000157 175555 MOV. *EMBOVF,ERRCDE
347 002555 000157 001354 jMP. ERRORF.
348 002572 17112757 0014.01 175535 25$: MOV. *CLSN,CMDCDE
....)4i 002600 012767 aalaoaeG0000aoac MOV. *EMBCLS,OTSTAT
750 002606 016705 00127.10 26$: MOV. VIBOSZ,R5 ;R5=VI.FSAB.SIZE.
351 002512 005057 001224 CLR. VIBOS2.
352.002515 055705 001222 ADD. VIOTSZREI
.31.i OLT.'b%-'...2 UlLibb( UU121b MOV. R5,VILTSZI.
754 RR262 020527 000000C. CMP. R5,4WEC2MX-VIBCOT. ;PAST .CUTOFF?.
755 00253 103415 PLO. 305
255 R0254 U28527 UUUULIOU. CMP. R5,*VI2M82. ;OVERFLOW?
757 002540 103405 PLO. 27$
35171 0025 012757 000172 175474 MOV. #VI20VF,.ERR1::DE
359 _ 650 000157 001302 jmp. ERRoRF.
350 11U2b54 012757 001401 175454 27$: MOV. *CLS IH, MDCDE.
.5Ini di.:12Ibb'4-: U12(6( LibuLIOUU 000uuuu MOV. *ELSCLS uISTAT
782.01121570 70$:
_ UU26(.0 uOif.rzUr RTS. PC.
354 002572. 012767 000401 175435 ERRORVt:MPV. *RATOVFJ:CMDCDP
365 002700 016767 175440 001144 MOV. ERRCDEJ,OVFCLS.
7755 002705 015705 175472 MAV. SAVSTK,SP. .:RESTORE STACK.PRIHTFR.
357 002712 004757 002246 I PC,ORYDEL.
7.58 17102715 CALL. 550.
--253 002722 000157 175476 JMP 5'TART1
370
371
372
373
374 002725 S2CAL1::
7.75 002726 016702. nAAAAAG. NOV. ACTFMN.,,R2.
.3(5 01..-'7..'.'-'. 115202. HHOMMFM. MO VB HDSIZ(R2),R2.
777 002735 042702. 177400 BIC- *1774A0,R2.
378 002742. 062702. 000002 ADD. 02,R2.
SUBROUTIHE-TO.CALCULATE.SIZE
779 002745 005757 001074
300 002752 003025
331 002-54 001412.
OF.TERWS RESOURCE.UTILIZATION,
;GET.FLU-MOD.COUHT
;BIAS.FOR IHTERWORD AHD
TST. CHRCHT. ;HEW .FLU?
BGT. 2$
LEO ITh i$ ;HO: HEW FLU-MOD.(FIRST)
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
MATCH CODE.
OTO OUERMAIII0M1110 27-MAR-00 12:5AprfeeVed[fro*Release2005/08/2.1A-RDP85-00514R000200010001-4 ?
READ.Y
382 002755 005302. DEC -
R2. NO NEW FLU-MOD
383 002750 010257 001052 .
R2,CHRCHT. ;MUL.B)).3 WORDS/EMA.ENTRY)
304 002754 005302. MOV.
ASL. R2.
3A5 002756 055702 001054 ADD. CHRCHT,R2.
385 002772. 005757 001052
TST. VDCCHT. ;FRA-A.OR.-8?.
. ;FSA-B.
387 00 5$
2775 100655 epL.
313e 003000 10 BMI
0425 3$ ;FSA-A.
., 003002.
818257 881848 1$: MEN- R2,CHRCNT- ;MUL.BY.3
7:198 01713005 005302. ASL. R2.
391 003010 055702 00'032 ADD. CHRCHT
.L-.-.1,.: 003014 005302 DEC. R2.
393 003016 005757 001025 TST. VDCCNT ;FSA-A.OR.FSA-B?.
. .
394 0038 100043 B 5$ ;FSA-B
PL.
39, 0030 1.00 emi
413 .3$
395 003025 005757 001015 2$: TST. VDCCNT ;A.OR-B?
397 003032 100013 EIPL. 4$
398 003034 855702 001005 ADD. CHRCNT,R2. ;FSA-A: R2=ENTRIES IN EMA.
399 003040 010257 001002R2,CHRCHT. ;MUL.U.1).3
400 003044 001f.",3[._ fi
R2.
401 003045 055702 800774 ADD. CHRCNT,R2.
402.A03052 0852302DEC R2. ;REMUVE.MATCH-CODE EXTRA .WORD.
403 003054 060257 000752 3$: ADD.
.
R2,EMAOS2. ;ACCUMALATE.EMA.SIZE.FOR.ORY
404 Fin3FIF,A Ann2e7
405 003062 032767 000000u.000000b.4$: 2N, PC.
. #NMRNGF,FLUTYP ;HUMBER RANGE?
4615 51530783A7A BOH .
10$
487 003072 055702 008750 7$: ADD. CHRCNT ;O:
, R2 . ;YBS.
N R2=4EMB ENTRIES.
400 003075 010257 000744 MOV? R2,CHRCHT. ;MUL.BY.3
409 003102 005302- A5L. R2.
410 003104 055702. 000735 ADD. CHRCHT,R2.
411 003110 005302. DEC. R2. ;ADjUST-FOR.MATCH.CODE.
412 003112 032757 000000G 000000G. BIT. 41111VDC,FLUTYP
413 003120 BUFF. 6$ ;IF.INIT VLDC, STEP.VI.COUNT BY .2.
414 003122 005257 000714VIBOSZ.
415 5lys12e 005257 u? 00 , i u 5$: IN0..
V18087
0 a
0031.
l
PC.
415 00313,
50257 000700 5$: R2,EMBOSE. ;ACCUMALATE.FMB.SPF.FOR.O
417 35 000207 RTS
RY
418 003140 10$:
419 003140 SAVE. R0.R1,R2,R4
4211 882150 115405 AAACIAAG. MOVED. HDSIE(R4),R5 ;GET..-It.CHARS-
421 103154 042785 177400 BIC. 4i..177400,R5
422.803150 052704 8000008-- ADD. #NDCHR,P4 ;POSITION.TO.CHARS.
? SZ. ..
423 003154 005257 000552 INC VIBO ;ALWAYS 1 VECTOR
0 .
424 0 CLR
3170 005057 AA0562 EXPCHT. ;*.VECTORS.IH.RANGE.
.
425 003174 0A5067 080 EMBCNT ;COUNT.1ST.CHAR?
550 CLR.
.
425 003200 005057 000656
CLR. FLG9
. .
427 003204 005057 000000 LLA INCLUD
B G-
42-00321A 00 CLR
5057 000540 EXPSAV.
429 003214 112401 MO VB. (R4)+ ,R1 ;GET .1ST CHAR.
43 003215 100016 BPL. 11$ ;IF.LEADING.CHAR.
CMP. *EVLDC
431 003220 022701 000000G.
,-.ZVLDC.
20513224 081411 BEO. 12$ ;IF LEADING
433 L 022 oSEGOP R1
701 AAAAAAG. CMP.
434 1..-1A7.2- 081424
M
13$ ;IF.LEADING.SEG-OP
4,35 00.3264. 0 u
22(51 dijOdUU. vtDC,R1
435 003240 001005 BNE. 11$ ;IF.ELSE
437 887.242. 005267 880574 INC. VI805%. ;IF.LEADING.VLDC.
438 003245 000402- BR 11$
Approved For Release 2005/08/22: CIA-RDP85-00514R000200010001-4
OTO MACRO M1110 27-t1AP-80 12 5Apd1th Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
READ OLIEPI
44A A03254 00530:5
441 003256 0111553
439 0U32bU -00526( 0000W:it,
442.003260 005257 000574
443 003254 112401
444 003265 100003 12$:
11$:
INC
;"1-11.111.6.
BPL. R5
317-1$
EMBCNT,
INCLUD.
(R4)+,RI
14$ ;INCLUDE RANGE.VECTORS.IN.INIT.VECTOR.
;IF.NO.MORE.CHARS.
.;UCC EMS SIZE.
;GET.NEXT.CHAR.
#SEG0R,R1
445 003270 022701 0000000.
446 003274 001413 BELT . 20$
INCLUD. ;IF-START.OF.NUMBER.RANGE.
447 003275 UdElUb7 OdUddUU. 14$: CLR ;RANGE.VECTORS.ISOLATED.FOR.INIT.
445 003302. 000764 BR
449 003304 0053E,7 000000G. 13$: iditLUD. ;ADJUST.FOR.MULTI-RANGE.
450 A03310 052757 ARAAA2 AAA524 '- *2,VIB057.
45i 663315 652(67 000664 000534 -:11E *4,EMBCNT.
452.003324 112457 0000000. 20$: IT:T-i."-1. (R4)+,RNGCDE ;GET.RANGE.CODE.
453 017172330 17105002. R2.
454 003332. 012700 000002.02,R0
455 003335 032757 0000000.0000000. a *PD,RNGCDE. ;ADjUST.FOR.ANY.D B
ECIMAL.IAS
457 003345 032767 000 1,
00000000UL, 21VI:=. 21$
*DNUM,RNGCDE
4.515 AA3344
458 003354
INC. 22,,r,
4.59 003355 005267 000475 EMBONT.
4 NOV?), :
;SET.UP.SPECIAL.CHAP.
4R0 003352. 05275( 000002 000470 21$: *2, EM
51 003370 012703 000071 22$: BCNT.
*.?9,R3
muUmUHU.UOUULAI. BIT. *MR,RNGCDE
463 003402. BUFF.
454 AA3404 012703 000018171 MOV.
::$,SZNR.
4?11,R3 ;IF-MULTI-RANGF, CHANGE.TO.HIGH.
466 003414 010267 000000G.
.17.rii. R2,LSZ. ;CHECK.LOW.RANGE.
455 003410 004767 000244 ,:-.3$.
467 003420 0115002. R2.
468 003422. 511271113 R00002 MOV.
459 003425 004757 000225jSR l:75TNR. ;CHECK.HIGH.RANGE.
.
471 003435 032757 000000G.000000G.
LIV
472.003444 BUN
473 003446 010201 rIUv 1.J R2,HSZ.
24$
*MR,RNGCDE
R2,R1
;IF MULTI--RANGE
470 003432. 010267 000000G.
474 01713450 005301 RI
.
475 003452. 00 29S
475 003454 050157 11154510 1105 3402 BLE.
r.1.,,.?,....17_717....HT. ;ADJU U
ST.FOR.NFLD'S.
477 A03450 155702. AAROAAG. 29$: SUB.
475 003464 005302. DEC R2.
479 003456 003440 BLE. 27$
. 2,P.
4R0 003470 050257 000352 ADD R EXCNT
1 007474 005302 ASL
.
ADD. R2. ;ADJUST.FOR,MID.RANGE.TERMS,
4R
482.003476 050257 000355 R2,EMBCNT.
403 003502. 000432 BR 27$
4H4 05.3504 1325767 05H5u115.HUHMPIHU.24$: 17.11'. LSZ,HSZ.
405 003512. 002402. BLT. 25$
496 R03514 015702. 000000G.
1:::ligt L5ZR2.
LSZ,R2. ;ADjUST.FOR.NFLDUS,
487 003520 050267 000334 2F1S: R2,EMBCNT.
4.RR 003524 015702. AAA000G. MOV. ;ADJUST.FOR.MID.RANGE.TERMS.
489 003530 005302. DEC. R2.
490 003532. 003405 BLE. 26$
491 003534 17150757 000315ADD R2,EXPCNT.
492.003540 006302. .
ASL. R2.
493 003542. 060267 000312 Al:']). R2,EMBCNT.
494 5103546 016702. 000000G. 25$:H52,52.
Approved For Rel..111:el'va''se 2005/08/2201A-RDP85-00514R000200010001-4
495 003552. 005302. 'EL. Rz.
. ? i:.. ??..: r'.:1 ..e.'.,, W I
OTO MA M1110 27-MAP-80 12:5ApritdiFoi Release 2005/08/2.1A-RDP85-00514R000200010001-4
READ.OUERY
496 003554
497 003F51.-
498 003562
1q9 003564
0034.05
060267 000274
006302
060267 000270
BLE.? 27$
ALL R2;EXPCHT.
ASL. R2.
ODD. R2,EMBONT.
500 003570
016702 000262
27$: MOV- EXPCNT,R2. ;SAVE?EXPCNT.
501 '3574
A05767 AAAAAAG.
TST. INCLUD.
502
503 1.10-26
001402
060267 000234
BEO.
ADD. R2,VIBOSZ. ;IHCLUDE RANGE?VECTORS.IH.IHIT.
50/ 003606
005202
29$: INC.
505 003610
060267 000240
ADD? R2,EXPSAV.
506 03614.
11115135(R5523-.
CLR. EXPCHT.
507
HHHHMHU.
CLR IHCLUD.
508 003624
000613
BR ii$
509 003626
30$: RESTOR R0,R1,R2,R1
510 AA-2A-Z,F
060257 000216
ADD. R2.,.EMBCHT. MUL ? BY. 3
511 003642?
0167- 00021-
MOV. E115551T,R2.
512 003646
0063
ASL.
513
066702 000204
ADD. E1B5HT,R2.
514 Fivi 654
000167 177252
JMP. 5$
515
516
SUBROUTINE.TO.PREDICT.EMB.AND.VI- SIZE? FOR.HUMERICAL.RAHGE.TERMS.
517
518
;REGISTER.USEAGE.IS?AS.FOLLOWS:
519
RO=BIAS.(*.EMB.ENTRIES FOR CHAR)
525
R1=-CHAR.
521
R2=CHAR.COUNT.PRIOR.TO DEC-PT.
522
R75=SPECIAL.CHAR?THAT?DOESWT.COUNT.AS MUCH
R4=IHPUTHCHAR.POINTER.
524
515-IHPUT.CNAR?COUHT-RE1iAIHI1I51.
525 AA7".,,GA
005305
SZNR; DEC. R5 ;GET.NEXT.CHAR.(R5=CHAR.COUNT)
527 003662.
58 003664
529 5133666
112401
100417
005202
MOVB. (5.4)+,R1
10$ ;IF.SEG-OP.OR.DEC-PT.
INC. R2. ;COUHT.GHAR5.
530 053670
020301
CMP. R3,R1 ;SPECIAL CHAR?.
531 00367,_
001410
BEO. 1$
52 00367
55.3 AF137171171
005267 000156
5515137 000154
EXPCNT.
RO,EMBCNT. ;ACC.EMB SIZE.
531 003754
005280
INC- Rn
555 AA.371-1
0A5AF.7 AAA 15A
CLR. FLG9
535 003712.
000762
BR SZHR
537 003714
FIFI52AA
1$: RA
5.3e 003716
005267 R5A140
INC FLG9
559 AA7.72-
000756
BR SZNR
543 003724
005767 000132
10$: TST. FLG9 ;WAS.PRIOR?CHAR.SPECIAL?.
541 A037.3A
BOFF. 11$
542 0072,77
AF,A1217 5051122
ADD- RB E MB C T ? ADJUST.
543 ElEl.3 (.351
A05367 000116
DEC. EMBCHT.
544
0652.67 000110
IHC. EXPCHT.
5/5
---r',067 000110
CLR. I- LOS
546 003752
2701 AAAAAAG.
ii CMF ? #DECPT,R1 ;1_9?CHAR A.DEC-PT?
003756
0010,1
BNE. 20$ ;HU?
548 1357;7611
549 An376?.
005200
005305
RA
12$: R5 GET NEXT CHAR.
55A 003764
111401
(R4),R1
551 A037F6
10A756
BMI. 1A$
552.003770
020301
MP. IRR-R1 ;SPECIAL CHAR?.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO
READ.OUERY
553 003772.
554 003774
55F, 0041100
556 004AA4
557 00400
559 004012.
559 004014
560 EIG401G
51'1-'1 004022.
5152.004024
51-7,-2 00402biDi G
5G4 004030
004032
5f,F, 004074
567 004036
56,0 004040
5F,9 004042.
570 004044
R71 004046
572.004050
57.3 004052
574 004054
57R 0040516
57G 004060
R77 00402.
102 27-MAR-80
AA1410
005267 000056
AF,AA1W AAAR54
005200
RA5AF,F AARA5A
000763
LiLib:l;LiLi
005267 aociewei
000757
AA0207
AAAAAA
000000
000000
AAAAAA
000000
000000
OAAAa0
000000
AAAOAA
000006
000000
AAAAAA
AAARRA
000000
AAAAAA
12 ; 5AprFecAd. 'Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
BEO. 13$ ;YES.
IHC. EXPCHT. ;110: COUHT? VECTORS
ADD. RO,EMBCHT. .:ACC.EMB SIZE.
INC. RA
CLR. FL G9
BR 12$
13$: IHC. RA
IHC. FLG9
BR 12$
20$: RTS. PC.
EMCTS:::.LORD. A
EMCOSZt:Akir-
WORD.
EMATSZE:.WORD. IiA
EMBOSZ,!;.WORD.
EMBPi,L-:.WORD.
.WORD.
v._ _L;:.WORD. 0
CHRCHT::.WORD. A
VDCCHT::.WORD.
OVFOL!;;;.WORD.
EXPSAV1: .WORD. A
EXPCHTz .WORD. A
EMDCHTt .WORD. 0
FLG9: .WORD.
?
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
461
OTO MA401-11110 27-MAR-80 12: 5Aprii?roWd1 For Release 2005/08/2.IA-RDP85-00514R000200010001-4
ERROR HANDL ,.ROUTINE.
57g
58A
581
J04:'
583
.619TTL-.ERRoR HANDLING ROUTINE.
.NLIST. MED.
D1RECTIVE.ERROR.
584
004054
011557
000612
DIRERR::MOV.
(SP),PARI ;PC.ATDIRECTIVE.ERROR.
585
004070
015757
888886
000585
MOV.
SDSLI,PAR2. ;$DSLL
5R6
004076
MOUT$5
0M5131,#PARI
5--
i7iiib
005725
TST.
5R8
004120
LU lb(
000244
?IMP.
EXIT ;EXIT.
589
590
FCS-ERROR.
591
5.9e_
004124
011667
000552
FCSERRz:MOV.
(SR),PAR1 ; PC ?
593
004130
MOUT-.5
4M13G2,*PAR1
594
004150
005726
TST.
(5P)+ ;RESTORE.STACK.
595
004152.
000157
000212
EXIT
596
597
0TNER.ERRORS.
598
599
004156
016757
174162
000515
ERRORF::MOV.
ERRODE0PAR1
eaci
004154
MOUTSS
*M13136,*PA131
601
AG4204
1iAA471
BR
EXIT
602
607
; BAD-QUERY.
604
605
004205
015767
174132
000456
ERROR:: MOV.
ERRCDE,PAR1
606
004214
016706
174154
MOV.
80VSTK,SP.
607
004220
015700
174114
MOV.
BATHO,R0 ;GET.E0ID.
13139
004224
015000
0000006.
NOV.
BSTPTR(R0),R0
609
A84230
062700
000234
ODD.
#8,0MAPfiR0
610
004234
066700
174102
ADD.
ORYHO,R0
Gil
004240
1166700
174076
ADD-
-
612
004244
13111313(
000434
MOV.
(R8),PAR2.
613
004250
MOUT-Z..5
- 41PAR1
514
004270
004767
000670
PENURy TSP
PC,OR'yTEL. ;BACK OUT FLLYS FROM POOL.
515
004274
H12(6(
13133131,1 1
174834
MOV.
*ORYBAD,CMDCDE ;SEND BAD OR 51-3 BACK TO CALLER.
616
004302?
CALL.
;SEND PACKET. TO MSCHED.
517
004305
005067
174032
CLR.
ERRCDE. ;7ERO OUT ERROR CODE
518
AA47.12.
885857
177514
CLR.
EMAQS7 ;RE-IMIT STAT-
619
884.318
005067
177514
CLR.
EMBOSE
520
00432:
605067
177514
CLR-
VIBOSZ
621
1317147.2f7,
A351367
177476
CLR.
EMCOSE
00437
00016(
174065
JMP.
STORTI
523
524
QUERY. TOO B I G -
525
526
AA4372.6
ERRORS:
627
004335
012767
nuil5o
174000
MOV-
*OBFOVIE.:ERRCDE
628
004344
015706
174034
MOV.
SAVSTKSP. RESTORE STACK.POINTER.
629
004350
MOUT$5.
#MSG5
630
884.388
000740
BR
REMORY.
631
632.
uLEAN?uH?FUH.ENRuR?RESIART
633
634
004370
!EXIT:: CLOSES
*FDOCIRY.
IF. DF:OTOSHM.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO MACRO M1110 27-MAR-80 12:
ERROF.! ? HANDLING ? ROUTINE ? PwPF6-id -1-1"5-riRelease 2005/08/22 : CIA-RDP85-00514R000200010001-4
636 RRINTZ *LIST.
537 .ENDC.
638 0044GO
016705
174000
MOV.
SAVSTK,SP.
635 AR44.04
005767
1737(0
TST.
AUTCLS. IF HUT CLOSE, RETURH-(1,5), EL
540 004410
BOFF.
1$
641 004412
012767
002401 173716
MOV-
#CORUPT,CMDrDE
542 00442A
000403
BR
2$
643 004422
012767
003001 173706
1$:
MOV.
*CORUNK,CMDCDE ;RESULT= CORRUPT .BATCH.
644 004430
2$:
CALL.
SSG. ;SEND.SSO.PACKET-TO.MSCHED-
645 004434
EXIT$S-
645
647
ERROR-MESSAGES-ARE.PRINTED
G48
STRING DtSCRIRIORS.
548
550 004442
000041
MSG 1:
.WORD-
LH1E-LH1 LENGTH OF FORMAT.STRING.
651 004444
004466
.WORD,
LH1 ;ADDS.OF.FORMAT.STRING.
652 004446
000040
MSL 2;
.WORD.
LH2E-LH2
653 111144511
004527'
.WORD.
LN2.
4 004452.
000037
MSG3:
.WORD.
LN3E-LH3
655 004454
004567'
.WORD.
LN3
G56 004455
000017
MSG5:
.WORD.
LN5E-LH5
557 004460
11114525.!
.WORD.
LN5
658 004452
000035
MSG6:
.WORD.
LN5E-LH5
659 004454
004545'
.WORD.
LNG
560
661
FORMAT STRINGS.
562
653 004466
1114
ili 122.
LNI:
.ASCI:.
/DIR. ERRAR, PC '0, $DSLi.=. 1Ds
664 004527
LN1E:
665 1i04.527
105
103 123
LN2:
.ASCIZ.
/FC8 ERROR, PC?X10, ERR.=. ID/.
655 004557
LN2E:
ER7 110457
121
125 105
LN3:
. SCIZ.
/QUERY BAD, ERROR= 1D. EOID=1D./.
660 004525
LN3E;
553 004526
121
125 1115
LN5:
.ASCIZ.
/QUER)) TOO.B.IGH.
6751 004545
LN5E:
671 004645
102.
101 124
LNG;
.ASCIZ.
/PATCH CORRUPTED, ERROR XiD../.
572 804.707.
LN5E:
573
.EVEN-
574
575
PARAMETERS.
575
677 004702-
Guud00
PAR 1::
WORD.
A ;PC.
678 004704
000.000
PAR2::
WORD.
0 ;$DSW.OR.F.ERR-
579
,
GGG 004706
005057
1452
'SATIN':
FLUID-
GGi 004712
005057
177110
ULK-
EMCTSZ.
692 004716
005067
177112
CLR.
EMATSZ.
683 004722
005057
177112
CLR-
EM11TSG.
11 0047
5115 0114(32 0047.
005057
uu:Due, (
177112
fiummuvil, ?
CLR.
CLR-
NODEA.
656 004735
AA5057
000000G.
CLR.
HODEB.
687 004742
005057
000000G.
CLR.
HO1.:'EC.
GGG 00474G
012767
I2LIUUtIUb-0000001.
MOV.
*POOL,NXTHDE.
599 004754
012705
AAAAAAG.
MOV.
*FLIXSZ,R5
690 004760
012704
00000AG.
MOV.
,-iiF.LUI1'.1,R4
691 004764
005024
1$:
CLR.
(R4)+
692.0043--
077502-
soe. R5,1$
Approved For Release 2005/08/20CIA-RDp85-00514R000200010001-4
N)
OTO MA011,1110 27-MAR-80 12:5,4 PAflF 1
ERROR.HANDL,
-Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
693 004770
694 004774
635 005000
bib1711715171A7
012705
012704
005024
077502
000000G. MOV-
RARAO0G-MOV.
2$: CLR.
SOB-
*CPIXSZ,
*CWPIDX0
(R4)+
R5,2$
697 005054
012704
5555550. MOV.
*HULFMHfiR4 ;RESET.FLU-MOD-
_ 8 HmhUILI
01U46,'
HHUUMMb. MOV.
R4,ACTFMH.
IDJJ 605014
010467
000000G. MOV.
R4,FMDIDX.
700 005020
005024
CLR-
(R4)+
701 005022
(LI3 11M54.124
0051.134
M (414
CLR.
1,141411-111411.3 ? MOV-
(1-:=4 LF,R4 ;CLEAR-TTABLE.
Ti7J3
000000G. MOV.
*ULR,R5
704 005034
160405
SUB.
7A5 An5A2,5
An5205
ASR.
R5
706 005040
Fir-15024
10$: CLR-
707 005042.
077502-
SOB.
R5,10$
(MH MW-IM44
Hilh[lb(
HUMMMMU. CLR.
PRXELG-
7Fig Al251i5A
0050R.,7
000000G-CLR.
NOTFLG-
710 00!--,054
HHhHej(
AA001-101, CLR.
SDFLG.
711 005060
012
177(f.6U UULIUUlan. MOV.
*OLB-2.,NOLBE.
712 005066
012767
177776 0000P0G. MUq?
*-2,0LBAD.
713 005074
012767
177775G 0000001. MOV?
*SDLO-7,SDLEIE-
714 005102.
012767
037775 00000011. MOV ?
*40000-3,SDLBAD-
715 005110
012767
000006G 000000G-IIIJ
*OEX+6,NAOEX.
716 005111,-,
012704
AAAAAOG? MOV?
*OEX,R4 ;TRANSFER.DUMMEX.ENTRIES.
717 01715122.
012724
0000000.
*()F?1=WV(P.4.)4-
(lb [3135125
012724
000 ARAG-MOV?
*OEXPSV,(R4)+
719 005132
000000G. MOV.
*OEXFPV(R4)+
720 005136
0
IHHHHA 000000b. MOV.
*100003,0EXAD-
721 005144
012767
000000G .000000G. MOV.
*FAL,HFALE-
-7--7,? 005152
005057
000000G. CLR.
FALAD-
(27, G65156
005067
000000G. CLR.
1!RYMAX.
724 005162.
000207
RTS-
PC.
726
SUBROUTIHE-TO-BACK OUT FLU-NODES-FROM.POOL-
727
0051E4
016700
17152 ORYDEL::MOV-
ORYNO,RO ;CLEAR OCL FAL-POINTER
729 005170
555300
ASL.
RA
Amh1,-.2
[lHhHf-d1
MMHHOHU CLR.
OLL(RO)
731 005176
016767
055muuu.Ammuuul;-MOV-
ORYMS,ORYMAX. ;RESET-OUERY.MAXIMUM-
772 005.2134
H1H(h(
MUUMUHU.MMUMMMG. MOV.
ORYFAS,NFALE-;RESET-FAL.LOCATION.
737.1 005212
01F,700
0A0000G. NOV.
0RYPS,R0 ;RB NODE ADDRESS AT-WHICH-TO-START-DELETION-
734 005216
A1AAA1
MOV.
RO,R1 ;Ri BUT.ADJUSTED.FOR FMEWS.
735 005220
162701
000000G. SUB.
*NDFLIDR1
736 005224
012707
177777 NOV-
*-1,R2. ;ALL.NODE.TYPES
737 00527,0
012703
000000G. MOV-
*FLUIDX,R3 ;SET.UP-TO.SCAN-FOR.FLU-NODES.
005271
012704
00072.(C. MOV.
n OA
Oa b240
1212705
00000013. MOV.
*FLIXSZREi
74.0 005244
004767
000000G-10$: JER
GETHDE ;GET .NODE.
741 005250
103434
BCS.
100$ NO MORE NODES.
742 005252
020400
CMP.
R4,P0 ;IS.HODE PAST .CUT OFF?.
005254
103016
40$ DELETE.
744 005256
SAVE-
R4. P3 ;NO: CHECK.FMEN.LINKS.
r41! 12FI33133
12 11:412.3
LIUUULIOU. 217i$: MDV?
HDFMEN(R4),R3 ;GET-LINK.
745 00521,7.1:,
00140(1;
BE0-
31$ ;HONE-
747 00527A
U2i4i2UI
CMP.
R3,R1 ;PAST-CUT.OFF?.
74.9 AA5272.
1A30112.
BHIS.
30$
749 005274
A1A.3n4
Approved For Fileiease 2b65F/048/22 : CIA-RI:A8-0T&14k660200010001-4
?
OTO MACRO.M1110 27-MAR-90 12:5ApOrdiAd1FoiRelease 2005/08/22 : CIA-RDP85-00514R000200010001-4
ERROR.HANDLIHG.ROUTINE.
750 005275
751 005700
752.905'304
753 005310
754 005312.
755 005320
756 005322.
757 005325
(56 005.3,30
759 905334
750 095349
751 995342.
752.00534G
753 0057.52.
754 005356
755 895352.
756 005364
757 005355
76R 0A5370
759 005374
770 005400
771 005402.
772.005405
773 005410
774 005414
775 005415
775 005420
777 01215422.
779 005425
779 AR54:38
790 005440
791 005445
792 005454
-71-17
784
785
795 005455
787 AR54
700
885464
789 005470
790 005472.
791 805474
792 005476
81.15508
794 005504
795 01715518
705 005512
797 005515
798
799
R99
801
902-
803
904
805
905 ?
000771
005054
BR 20$
000009G. 39$: CLR. HDFMEN(R4) ;DELETEREST.OF.FMEH.CHAIN.
31$: RESTORE.R4,R3 ;FINISHED.FMEWS
000755
BR 10$
125427
0000000.0000000.40$: CMPS. HDTW(R4),*HDFSAS. ;WHICH.HODETYPE.
001003
SHE. 41$
005357
000000, ? DEC? HODES. ;FSA -8: ADJUST.HODE.COUNT.
090402-
BR 42$
005.36(
0000U0U. 41$: DEC. HODEA.
004757
?100115 42$: jSR. PC,DELNDE. ;DELETE.HODE.
000741
BR 10$
0127113
017117100AG. 100$: MOV. oCUPIDH,R2 ;SET.UP.FOR.CUP.HODE.SCAH.
012704
000375 MOV. #ZERO..R4
012705
0000000. MOV? *1P1XSZ,R5
004757
000000G. 110$: jSR. PC,GETNDE. ;GET.HODE.
103497
8CS. 299$ HO 'HF HODES.
020400
CHP. R4,R8 ;PAST.CUT.OFF?.
103773
SLO- 110$ .: NO ?
0A5357
uueluuub. DEC. HODEC. ;YESc DELETE.HODE.AND.ADJUST HODECOUNT.
004757
800955 jSR. PC,DELHDE.
000755
BR 110$
u1brU4
mmumumu. 2RRS: MOV? FMDIDX,R4 ;SET.UP.FOR.FLU.MOD.HODE.SCAH.
1
005005
CLR. R5
004757
n0000nG. 210$: jSR? PC,GETHDE ;GET.HODE.
%
(03405
BCS. 300$ ;HO MORE HODES.
020480
CMP. R4,P.0 ;PAST.CUT.OFF?.
103777,
BLO? 210$ ;NO.
004757
000030 JSR. PC,DELHDF ;YES: DELETE MODE
oaa7-7o
BR 210$
300$: CLOSES #FDBORY. ;CLOSE.ORY.FILE.
015757
172742 172726 NOV. ORYFS,FLUIDs. ;RESET.FLU.ID.
015757
0009000.900990G. MOV ? ORYPS,NXTNDE. ;RESET.NEXT.AVAILABLENODE.ADDRESS.
000207
RTS PC
SUBROUTINE-TO.DE-LIHK.A-HODE
DELHDEt SAVE. RO,Rl
011401
MOV. ;Pl.-NEXT NODE.
015408
HHHHH.-. MDV ? 2(R4),R9 ;R9=PRIOR.HODE.
001410
SEQ. 2$ ;NO.PRIOR.NODE.
010110
MOV. Fl 'P8' ;SET.FORLIARD.LINK.OF.PRIOR?HODE.
085701
10$: 1ST ? Ri ;AHY.NEXT.HODE?.
001402
SEQ. 1$ ;HO.
U 1 VILlb 1
1,11,1k1HK,' MU,/ . R0,2(R1)
it RESTORE.R2l,R1
.SET.BACKWARD.LINK OF-NEXT.HODE.
FINISHED.
FIAA207
RTS? PC.
01011'7,71
177775 2$: MOV. R1,-2(R3)
SET.INDEX.POINTER TO.NEXT.NODE.
000755
BR 10$
0u0ROUTINE-TO.SET.UP.SIGHIFICANCE-OF.HEXT.CHARACTER.
OUTPUT.
INPUT.
SCRATCH. SIGNIFICAHCE.
ADR.OF.CHAR. ADR.OF-NEXT.CHAR.
CHAR SIGHIF.TABLE. (SAME)
R3
(SAVED) (RESTORED)
UNUSED . .UNUSED:.
Approved For Release 200'5"/08i2"211110A-RDP85-66614k000200n01 0001-4
.1
?i,???? ???'?, 4.
?
OTE1 Iii:110M111111 27-11AR-88
ERROR ? HANDL ? ROUTINE ?
807
808
12 `5AppiiirlkdiFoi Release 2005/08/2.IA-RDP85-00514R000200010001-4
R5=. . ..... UHUSED,....... .........
81:19
005520
STEP:: SAVE. R3
810
01715522.
110501713
CLR- R3
811
005524
112103
MOVB. 'p1+ r3
;GET.NEXT.CHAR.
612
A85525
100432.
BMI. ILLCNR.
;>128. IS .ILLEGAL.
913
005530
006303
ASL. R3
;CONVERT CHAR.TO.WORD.IHDEX.
914
005532-
050203
ADD. R2,R3
;ADD.TABLE.START.TO.IHDEX.
815
005572,4
011300
MOV. (R3),R0
;GET.SIGHIFICANCE.FROM.TABLE FOR .CHAR.
815
0055-25
17.101425
BFO. ILLCHR.
IIF.NO.SIGNIFICANCE,, ITS.ILLEGOL.
e17
005540
RESTORE
818
005542.
00071717
RTS. PC,
819
R20
SUBRONTIME.TO.SEND.TO
MSCHED VIA ENTRY IN !=i50, AH.ACKHOWLEDGEMENT
821
RECORD.
Er2
824
OWENTRY,
CMDCDE.COHTAINS.COMMAHD.CODE.
975
ERRODE.CONTAINS.ERROR.CODE.(EOUAL.TO.BERO IF NU.ERROR)
826
927I
IRST, GET-AH.EMPTY.PACKET FROM-POOL.
828.-
929
005544
SSO:: CALL. GETFRE. ;ON .RETURN, R2-> PACKET.
R :7171
831
1 BUILD-PACKET.
R7.7.
833
005550
SAVE. R2.
854
005552.
052702
000002
ADD. #2,R2. ;BYPASS.LINK.WORD.
R35
AA5555
01572-
172554
MOV. CMDCDE,(R2).-F. ;COMMAND [HOE
030
1711715.002.
015722.
172552
MOV. 8AINO,(R2)+ ;BATCH.HUMBER.
837
838
005566
005572.
015722.
005757
(2550
172545
MOV. ORYHO,t. 2).-i-
TST. FRRCDE. ;OID.
;ERROR?.
J
AA557F,BEQ?
1$ ;BRANCH.IF.NO.
840
841
005600
2L7?:
172540
MOV. ERRCDE,(R2)+ E000?
94:
OUFUE.PACKFT-T0.80TTOM.OF.SSO.
843
844
AA5504
1$: Rt.:STAR. R2. .:R2> PACKET.
e45
005606
CALL. PUTSSO.
046
005612.
EXIT- SSO. ;RETURN.
647
005614
012757
00001714
172522.
ILLCHR::110V. #OE.ILC,ERRCDE ;NOTE .ERROR CONDITION.
848
005622.
RESTORE P3
649
005624
000157
176355
JMP. ERROR,
R5A
0011410"
END START
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
OTO MACRO.M1110
SYMBOL.TABLE.
27-MAR-80 12:54 PAGE.15-5
Approved For Release 2005/08/22 :
CIA-RDP85-00514R000200010001-4
ACTFMH= ****** GX.
B:FSB2 nn0102.
010 EMACUT=
****** GX-
FH:MHR. 000010 011
GENOLS=.****** UX-
ASKOVF= 000145
B:FSCZ 000104
010 EMAMSZ=
****** GX.
FH:HMB. 0001144 Nil
GENTX.=.****** GX.
AUTCLS. AAA4AAR.
014 B:HBLK AAA12A
010 EMAOVF=
000165
FH:OLb. AOAAA1,7, 011
GEIFRE---******
BATABD= nn3401 G.
B:HDOC AAA114
010 EMAOSZ.
004032RG.
014 FH:ORY. 000020 011
GETNDF-.****** GX.
BATINI. 004706R.
014 B:HRLP 000126
010 EMATSZ.
004034RG.
014 FN:SFO 00007.0 011
HSa. GX.
BATH?. 000340RG.
014 B:HRLR 000122.
010 EMBOLS=
******
FH:SF1 00007;p. 011
IE:ITs=.****** OX
BATOVF= 000401 G.
B:HRLW 000174
010 EMBCNT.
004.050R.
014 FH:SHD. 000042. 011
flinHR. 005F.14RG.
BATREJ. 000544R0.
014 B:HMBR 000057
010 EMEICUT=
******
FO:RD.= ******
1HCLUD=.******
BIIVAL= HHHUUU
B:HORY 000232.
010 EMBMSZ=
****** GX.
FO:WRT= ****** GX.
IH1VDL=.****** GX.
BITO = 000001
B:OLSZ 000106
010 EMBOVF=
000157
FAL: 1L= 000075
IOSB 000:37uRG.
BITi - 00000-
B:0MAP 000234
010 EMBOSZ.
004.036RG.
014 F:ALuu=.000040
LNPOVF=.000146
BIT10 AA2AAA
B4OSPL 0007.16
010 EMBTSZ.
00404ORG.
014 FBBF5=.000062.
LI-I1 0044F,F.p.
BIT11 004000
B:OTTM 000075
010 EMCMSZ=
****** GX.
F:BDB.=.000070
LNiE 004527R.
BIT12 010000
B:OUOP 000056
010 EMCOVF=
000170
F:BGBC=.000057
LH2. 004577R.
1711116 =? INN
B:SFDB 0000in
010 EMCOSZ.
00403ORG.
014 F,BKDH=.000026
LN2E 004567R.
BI114 =.040nnA
000772.
10 EMC TSE.
004026R0.
014. F:BKDs=.000020
Lf-I.3 004567R.
BIT15 -immmum
B:SNDP 000012.
010 EMXFDB=
****** UX
F:BKEF=.000050
LH3E 004525R.
BIT2. -uuuuu4
B:SSO 000004
010 ERRCDE.
000344RG.
014 FBKP1=.000051
LI-IS 004526R.
BI13 -AAAA1A
B:SSOF 00005A
010 ERROR.
004206RG.
014 F,BKST=.000024
LH5E 004645R.
BIT4 -000020
B,STAT MAAA44
010 ERRORF.
004.156RG.
014 F:BKVB=.17100064
LHE 1-1044-..4hK ?
BIT5 =.1710AA4A
B:STTE AARA5:3
010 ERROR'-! .
002672R0.
014 F:CHR-000075
LI-IEE 004.702R.
BITE -000100
B:UDOC 000110
010 ERROR5
004335R.
014 F:CHTG=.000034
LOGCLS=.****** GX.
BI T7 AA02AA
BITE; 000400
CFAL!=i.=.****** GX?
CF:B0 -AAAA7A
EXIT.
EXPCHT.
0043TORG.
004055R.
014 F,DFHB=.1=1:1
014 F:DsPT=.
=.****** GX.
M.
BIT9 Anierin
= AAAA67
EXPSAV.
004054R.
014 F:DVHM=.000134
MR. = ****** GX.
EILDEFL= ****** GX.
Lb N4 = 00AA66
hAL. =
****** GX.
F:EFBK=.000010
MsGOUT=.****** GX.
BLDNFL= ****** GX.
CF:BE -A001211:-,5
FALAD.=
**:f 1)1, GX.
F:EFH.=.000050
M5G1 004442R.
BsTPTR= ****** GX-
CFDRO= 000064
FALMSE.=
****** GX.
F,FOBB=.00AA2.
M502 004446R.
05:cLs= AnAAA2
CF:DR1= 000nF,73
FALOVF=
000160
F,ERR-AAAA52.
MSG3 004452R.
Bszi:Dhiu= UUHUU4
CHR CHT 004046RG
014 FCSERR.
004.124RG.
014 F,FACC=.000043
MsG5 004456R.
BS:INA= 000000
CLEIREO-AAA4A0 G
FDBORY.
000032R.
014 F,FF0Y-A00014
V.ACr.e.r MMAAC.7,0
U!..-.5:0FN= 000001
CLSBAT 001366R
014 FD.FID.
000000
1107. F,FHAM=.000110
H. -AAAAA2
Bs:SRC= AAAA113
CLSEMIX= ****** GX.
FD.FHB.
000006
003 F:FHB.=-00n10-2.
HAOEX.=.****** GX.
BYTEu uumuum
cLsiN = 00i40i G
FDF'-'R .
000004
003 F:FTYP=.000116
NDBOVF=.000175
BYTE1 = uLumul
CLSOLY= A11I0A1 G
FD.LEN.
000010
F:FVER=.000120
HDL:HR.= GX.
CMDCDE 000736R0
014 FD.RWM=
****** OX
F,HIBK=.000004
NDFLID= GX.
BYTE6 tIMMUM.3
CORUNK= 003001 G
FLOE
004052R.
014 1-.LUN.=.001104/.
NDFmEH=.**** GX.
BYTE4 = uuuuu4
CORUPT= 002401 0
FL1XS3=
****** GX.
F:MBCT=.000054
HDFSAB=.****** GX?
BYTE5 = MHUMH5
CPIXsz= ****** OX.
FLUcLs=
****** GX.
FMBC1=.000055
NDSIZ.=.****** GX.
BYTES = 000005
CWPIDX= ****** GX
FLUCUT=
****** GX.
F:MBFG=.000056
HDTYP.=.****** GX.
8'1-'1E( =MMMHM(
DBSLEH= 000116
FLUID.
000374RG.
014 F:HRBD=.000024
NFALE.=.****** GX.
BYTEB = 000010
DECRT.= ****** GX.
FLUIDX=
****** GX.
F:NREC=
HMRNGF=.******
877E9 = 01210011
DELHDE 0054513a
014 FLUTYP=
****** GX.
FO',-'BS= 000030
HODEA.=.****** GX.
ElYTVAL= 000012.
DH;BFA RAO0A?
005 FMDIDX=
****** GX.
F,RACC= 000016
HODEB.=.****** 1-4X.
B$NOT.= ****** GX.
DH:BF1 000004
005 FHpOSZ=
****** GX.
F:RATT= 000001
HODFC.= * GX.
B:BSTA. 000054
010 DH:CTL 000000
005 FH.DBR.
000026
011 F:RCHM= 00007.4
HOTFLG= ** * GX.
B:CHTX. 00004i3
01A DH :DMC 000010
005 FH.DBS.
000022.
All F:RCTL= 000017
HOLBE.= 1,.** GX.
EI,Luuu. uumubu
nin DH:FLG 000006
005 FH.DHR.
000040
Oil F,Rsi2= oacion7.
HULFMN= *** GX.
B:FEMA. 00017.2.
010 DIRERR 004054RG
014 FH.EMA.
000012.
011 F:RTYP= 000000
HXTHDE.---****** ITX?
B:FEMB. 000142.
010 DNUM = ****** GX.
FH.EMB-
000014
011 F,sEoH= noAlAo
H,.-BFAC-AAMAA4
B:FEmC. AAA152.
010 DN:DCK 01100011
013 FI-.EMC.
000016
oil F,spDv= oonF172.
N,BHUH-UMmUmb
B:FFSA. 00021712.
nin DH:NTP 000004
013 FN. FSA.
000000
011 F:SPUH= 000074
H,ATCH-AMMAm4
B:FFsB. 000212.
M1H VitIMUUb
316 1-11.1-b1=1.
00000-?L.
011 F:STBK= 000072A
H,BuFB=.004000
muu222.
111A 111-i ROT muumuL.
013 FN.FSC?
000004
011 F:UNIT=.000136
H:BUFW=.002000
B:FrIHR. 000172-
AlA DH:SIZ 000010
013 FN.LGO.
000034
011 F,UR0D=.110AA2A
H,DID.-1-111111124
B,FOLS. 000162.
A10 ELSCLs=.****** GX.
FH.LGH.
n001.7.17;;1.
1111 F,V0H.-AAAA64
H,DVHM-.RAFIA7,2
B:FSAZ. 0040
010 EMACLS=.***iiried For OUAeTA. 2668W/2
8 4105 20001000114 .FID = nnnAnn
14'
U14
014
014
014
014
014
014
014.
014
014
014
014
1114
014
014
014
014
OTO MO1110M1110
SYMBOL -TOOL ?
27-MAR-90 12 E Appfilitied Rm6Release 2005/08/201A-RDP85-00514R000200010001-4
?
N:FNAM= 111.11.111Mh
N:FOS = 0007R.4
N:FTYP= 000014
N:RVER= 00001R
N,NEXT= 000H22.
N:HKtiL= MMHH2m
N:PKTS= 000043
FLOURY= 000071
N:STAT= UHMM,IM
N6'6UNI= MMMHM,L.
hi:UNIT= 000034
OPFAIL 000000R.
OPFSIZ- 0121007.2.
OVFCLF,i 004052RG
PARSER= ****** OX
PAR$$$= A00027
PA1'I1 004702RG
PAR2. 004704RG
FL = ****** GX.
PuLEND= ****** OX
POLOVF= 0061157
POOL = ****** GX?
PRXFLG= ****** GX ?
PUT.,Iclo= ****** GX?
OBFOVF= 000150
= ****** GX ?
CLEX. = ****** GX?
OEXAD = ****** EX.
OEXFPV= ****** GX?
OEXFSV= ****** GX.
OEXFWV= ****** GX.
OEXMS:= ****** GX.
OEXOVF= 000165
OE,Diji= Rf7101101
0E,DIA2=AJUU003
1-11:1=-M0MILIM
OE,IHS= 000005
UE4ILL= UHHUH4
OE:IHO= 000015
OE:ISu= 000016
OE:HFL= 000017.
OE:MFM= 000010
OE:MHT= 000012.
uE,muF=.00000,..-
OE4MSD=.000A11
0E,MTS=.000002.
OE:h1Lur-uuuuub
OE:NOS=.000025
OE:NRE-000024
OE:HRI=.00AA7.
uE,NIK-UUUL127
0E,PX1=.AFIACJi7
0E,PX2-0000;,0
OE:PX3-000021
UE:FX4=.1...1UUU22.
OE,R01-000144
OE:UBP=.000014
OLB. =?****** G>..
OLBAD.=.****** GX.
014 OLSMFE=.******: GX.
OLSOVF-AAA1R7.
014 OLS. =.****** GX-
OLSBAT=.****** GX.
OLSBUF=.****** GX.
014 OLSRDB 000172R.
014 OLSIZ.- ****** GX.
ONFLS.-****** GX.
ONFLU-****** GX.
ORYBAD-Hu'.21-101 G
OR'yEUF=.****** GX.
ORYDEL 005164RG
ORYE1-N=.000007
ORYEND=.****** GX?
OR'.(FAS=.****** GX.
ORYFS. 000406R.
ORYLUN=.0000m....5
ORYMAX=.****** GX.
ORYMS.-****** GX.
ORM?. 0007,42RG
ORYOK-000001 G
ORYOVF-0001FiF,
ORYPS.-****** GX.
ORY!.-jia" 000402,R.
OTFORM-****** GX.
OTSIAT=.****** GX.
0:FDSC 000004
1,1 6 h1L11IK ULiliulili
0;HUHL 00000?
0:5I7E 000014
REMORY 004270R
RESCHK 001F.74R
KNOCDF= ****** GX.
SAVSTK 0004.04R
SDFLG = ****** OX
SDLB. -****** GX.
SDLBAD=.****** GX.
SDLSE.=.****** GX.
SEGOP.=.****** GX.
SLBMSE=.****** GX.
SLBOVF -.000164
SK .AKE. 000114
SR.ARS. 000101:
SR.DAY. 000010
SR.DLT. 000014
SR.ECEI. 000047
SR.ECH? FIACT?1A4F.
SR .ECL AAAA5A
SR.FIB. 000012.
SR.GRE? OF1A1AA
SR.GRS. 000072.
014 SR .LEN. 000122.
SR .LIN. 0000F,R.
SR .LIP. 000062.
SR .MOH. 000006
:r Hill 000042.
SR. NDS. 00007.5
014 SR.HIN. 000030
SR .NIP. 000022.
SR .SDS. 011110;'7.
SR .SRC. 000002.
014 SR. SUN. 001112100
SR.T61!;? 00009F
SR.WSL. 000052.
SR.YR. 000004
SR.1IN. 000024
014 SR.1IP. 11011010002?TSKOVF=-AFIA147
S!,--;0. 005544RG.
SS .FID. 000002.
SS .FHB. 000eio
014 S FVR 00000
S..
SS.LEN. 000012.
SS.STT. AFIOARA
007 START. 00041AR.
007 S31 IRT1 000424R.
007 START.._. 000566R.
11137 START3 000420RG.
014 STEP. 00552OR0 .
014 STX. =.****** GX-
ST .ASE. 000020
014 ST.BSE. 000024
ST.BTC. 000000
ST,CS2. 0000:30
ST:HRL. 000010
ST :LEN. 11oo1i44
--,;T:0E-1). 000002.
ST :OSE. 00007,4
ST,SGH. 000040
0A2.ST:UHL. 000004
002.ST:1LT. AARA14
002.SU:DBU=.000004
002.SUDON=.000006
002.SU:IDL=.000000
002?SU4LOD=-AOARA1
0112.!,;11,P,RC-FIFIRAR2,
002.SU:SRR=.000005
00??sli,:XPLI-0000072.
002.S71AL1 00272f;RG.
00. HP 007...1FAFIR.
002.S:BFHD=.00171020
002.A:FATT=.000016
002?S:F.DE1-=-000140
A1712.F,;:FNAM=. 000AA6
002.S.FNB.=.00007.6
002.5.FHOW-000017
002.SFNTY=.000004
OP12.S,,FTYP-FIAAFIA2.
002.0:HRL-=.000240
002.5:NFEN=.000020
002.TDBOVF=.000174
002.TOOBIG. 000562R.
002.TRMCUT=.*****-* GX.
002.TSKNAM. 0003321l1I.
014 TTABLE=.****** Gx?
AA4 TTBMSZ=.****** GX.
004 TTBOVR=.000161
00 VDCCHT. 0 0405ORG.
4
AA4 VhC1MX-****** Gx.
004 VEC2MX=.****** GX.
014. VEC7MX=.****** .rSRCEI=
014 VIBLUT=.****** UX.
014 VISOSE. 004042RG.
014 VISTSE. 00404 ARG.
014 VI1OVF=.000177.
vI2[1.7i7=.****** Gx?
1,7117.7. v120vF.=.000172.
006 VID1SE=.****** GX.
006 Vi2OVF=.000171
006
006
006
Finf;
00C..
006
oae IN
A01,7,
014
014
014
014
72,,,LDC.=.******
014
014
014
VLDC =.****** GX.
WH:HTP. 000004
WH:HXT. 000006
WH:ROT. 000002
IN Si... 000010
WH:SRG. 000000
:.
TYP 000001
WORDA =.0UUU0U
WORD1 -000002
WUK1:12.=.01.10H04
WORD3 =.1.100006
WORD4 =.000010
WORD5 =.1,10AA12
WORD6 =.000014
WORD?' =.000016
WORDS -000020
WORD9 =.0000,1,1
WPDVAI =.000074
XBATCH=.000013
,TIBLOA=.000004
-..:DSPRO=.000012
XDMUIN-UUULIUb
XFOsMR=.000007
XGTSPE=.000014
XHITEiK=.000011
XHLMER=.000002
XHOTSK=.000010
XM0CHE=.000000
XOTS -HMMUM
XOT0 -000001
XSOLOA=.01710n0F,
XT0MbL=.******
XTOOVF=1411 (02
ZERO RG.
GX.
$DS =.***** GX.
W *
.CLOSE=.****** G.
.FINIT=.****** G.
G.
.M0i OH. 000372RG.
.OPFHS=.****** G.
.READ.=.****** G.
.WAIT.=.****** G.
:6!:"FIZ:11:MRP.
...PC2=.000332R.
...TPC=.000140
012.
012.
012.
012.
012.
012.
014
014
014
014
. ABS,
nnAnAn
000
000000
001
SRCOFF.
000122.
A02.
FDSCOF.
Annnin
007,
SUSOFF.
01300 12
004
DHROFF.
000012.
005
STTOFF-
000044
AAF,
OSPLOF.
000014
A07
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
OTO MOCRO.M1110 27-M0R-80 12 5,4 PAr,E. 7
SYMBOL .TABLE. -Approved-kir Release 2005/08/22: CIA-RDP85-00514R000200010001-4
BSTOFF.
000772.
010
FHOFFS.
000044
011
WHODOF.
000010
012.
DHODOF.
000010
017.
OTO
00.5630
014
$$FSR1
000000
015
ERRORS
DETECTED:
A
VIRTUAL.MEMORY,USED: 9793 WORDS. (.39 PAGES)
DYHAMIC.MEMORY; 11252 .WORDS. (.43 PAGES)
ELAPSFD-TIME: 00:01:15
OT0,0T11/-SP/HLgMEBEX=C20,1JP,M,EfiMDOTO,OTO
?
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
.MHIH. MACRO M1110 27-HAP-80 12;57 PAGE ?In
Approved For Release 2005/08/22 : CIA-RDP85-00514R0002000100014
2 ?
3
4
Fi
6
17..!TSI2E:MAC. nOUERY.TRANSLATORS.BUFFER.SIZECONFIGUATION.FILEP
THIS.FILE.CONTROLS.THE SIZE.OF.ALL.BUFFERS THAT-CAN.VARY.
IN SI2E.DUE.TO.THE.AMOUNT.OF.OUERIES.OR.OTHER.SUCH.PARAMETERS-
THAT.WOULD.BE.CHARACTERISTIC.OF.A.SITE: THESE.BUFFERS.ARE.
IN OTO, I,!Ii. UI,.E DR.OT3.
7
;---0.13---AUFFERS
9
000125
VEC3MX==85.
;MAXIMUM.* CLIF-rS.IN.BATCH.
iiIU
000025
OAA4AA
AVELGT==3*2*7/2.
VI3MSZ?VEC3MX+2/255.+1*255,
;WyERAGE.CLIA.SIZE.IH TDCT.(BYTES)
;SIZE.OF.V1.(HEAREST BLOCK.IN.BYTES)
12
A01AAA
EMCMSZ?VEC3MX/51.1-1*256:
;SIZE.OF-EMC.(NEAREST.BLOCK)
13
004000
TDCMSZ?VEC3MX*AVELGT+8./HcAUFW1-1*H
BUFW;SIZE.OF.TDCT.
14
000010
TDCALK?TDCMSZ/255,
;VIRTUAL.BLOCK.SIZE.OF.TDCT.
15
A00524
HP3MSZ?VEC3MX*4
;SIZEOF.NODE.POOL.
15
000125
HP309c7==VEC3MX.
;SIZE.OF.HODE.POOL.OVERFLOW AREA.
17
18
-
19
2cl
080375
VEC2MX-257..
;MAXIMUM IF VECTORS
21
AAA400
VI2MSZ?VEC2 '255.+1*256:
-17E OF Vi
22.
004400
EMBMSZ==9.*256,
;SIZE OF EMB
23
1-111HHHA
TDABLK==,-E,
;o BLOCKS (N,BUFW) IN TDCT DUFFER
24
000074
TDBOS:==3*20.
;SIZE OF TDCT BUFFER OVERFLOW
25
AA7775
TN:MAD-4093.
;MAXIMUM ADDRESS (40 BITS) IN TDCT
26
000020
HIXCHT==16.
;1r INDEX POINTERS FOR NORMAL NODES
27
1.7775A
NM-MK-177760
;MASK FOR NORMAL INDEX
29 ?
AAA010
EIXCHT==e.
;* INDEX PTRS FOR ELSE NODES
29
177761
ELSMSK-177751
;MASK FOR ELSE INDEX
30
000004
EHCHT==4
;41. ENTRIES TO USE FOR HASH
31
035000
HP2MSZ==256,*60.
;SIZE OF NODE POOL
32
AA0153
HP2OSZ-7+100.
;SIZE OF NODE POOL OVERFLOW.AREAR
33
.34
UT1-----BUFFERS-
Er
35
38
39
40
41
42.
43
4
45
45
47
48 082250
49 000400
5u
51
53 002000 ?
54 000040
55 177740
55 000010
57 177770
000375
OAA4AA
OLUUU4
VFFAMX-257,
VI1MSZ== C (/255.+1*255:
TDABLK-4
;MAX: o.TERMS.IN.FSA -A.
;SIZE.OF.VI.
;*.BLOCKS.i.N.BUFW) IN TO! BUFFER.
AP-17754
TDABMX==+4
?115000
EMAMSZ-7c*4*255:
;SIZE.OF.EMA.
007750
TDAMAD-340.*12:
;MAX: ADDRESS.IN.TDCT.
010000
HPIMS2-41..'195:
;SI7F.OF.NORMAL.NODE POOL.
000144
NPECNT-100.
;*.NODES.IN.ELSE.POOL.
000043
NPEVSZ-35.
;*.VECTORS IN ELSE
;-----FLU---MODIFIER----BUFFERS
EMNRSZ-1200.
1-11EH!3&==2bel;
BUFFERS-
;SIZE OF NORMAL FLU MOD NODE POOL
;SIZE OF ELSE FLU MOD NODE POOL
URYSZ?H:BUFW ;SIZE OF QUERY BUFFER
FLIXsz==.32. ;4 INDEX PTRS FOR TERMS
FLIXHK=-177740 ;MASK FOR TERM INDEX ?
CPIXSZ-8. ;*.INDEX PTRS FOR CWPS
CPIXM5-177770 ;MASK FOR CWP INDEX
Approved For Release 2005/08/291A-RDP85-00514R000200010001-4
MAIN: MAIIIIN1110 27-MAR-An IR c.L P-J012c-.
lApproveu ifi:Yri Release 2005/08/2.IA-RDP85-00514R000200010001-4
?
58
59
60
61
63
64
65
66
67
Liu0001
00577,4
000400
AAR4AA
000400
0171AF124
000100
nolArlo
nnA40A
FMIXSZ-1 ;*.IHDEX.PTRS.FOR.FLU-MODS.
FHPSZ-30.36: ;FLU.HODE.FOOL.9IZE.
FHPOS2-256: ;SIZE.OF.ROOL.OVERFLOW.AREA.
TSTKMX-256: ;MAX: #.TOKEHS.TO.BE PUSHED.
ASTKMX-256: ;MAX: *.ARGUMEHTS.TO BE PUSHED
PSTKMX-20. ;MAX: o.PROX.HODES.IH.A.CHAIN?
HSTKMX==54. ;MAX: HESTIHG.OF.OUERY.
OHDCHT-512: ;#.HODES.IH.LOGIC.POOL.
VIOMSZ?VI1MSZ. ;ASSUME.MAX.VI.IS.IH OT1
.IIF.LT,7/I0MS2l-7.'I2MSZ,VIOM57?VI2MS7. IL HHT RESET.OTO'S.T0.01-2S VI.SIZE-
68
016000
EMXMSZ?EMAMSZ. ;ASSUME.MAX.EMX.IS.IT.OTI
69
.IIF.LT,EMXMSZ-EMBMSZ,EMXMSZ?EMBMSZ. RESET.T0.0T2S.
70
71
---ERROR.AHD.CLOSE.CODES-
72
73
000040
TRMCUT-32. ;TERM.CUT-OFF.
74
000016
FLUCUT==14. ;FLU CUT-OFF-
7F,
001700
EMACUT?TRMCUT*30. ;EMA.CUT-OFF.
75
000036
VIBCUT-30. ;VIB.CUT-OFF.
77
UU1130
EMBCUT==VI8CUT*20. ;EMB .CUT-OFF,
,n
(0
79
anFIRni
FLUCLS==1 ;CLOSED.DUE.TO FLU COUNT
GO
00000z.
LUUCLS-2 ;CLOSED.DUE.TO LAGIC.COUHT.(0LBASDLB,OEX)
17_41
ARA017172.
EMOCLS-3 ;CLOSED.DUE-TO EMO .SIZE.
R2
? 000004
EMBCLS-4 ;CLOSED.DUE.TO EMB.SISE.
83
AARAA5
TDBCLS==5 ;CLOSED.DUE.TO TDCTB.SISE.
84
000006
HDBCLS-6. ;CLOSED.DUE.TO OT2.HODE.POOL.SIZE.
R5
0AAAA7
ELSCLS==7 ;CLOSED.DUE.TO OTHER.COHDITIOHS.(FLU.FOOL,ETC)
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN.
1
2.
3
MACRO M1110 27-MAP-80
12 5,-pproved-E R00111,F 1.4
-Aror Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
MAXIMUM.OLS.SUB-BUFFER.SIZES
4
000031
ORYMSZ==N;OURY.
A08500
FALMS1==160.*2.
6
007,270
TTB1S2-430.*4
7
002010
XTBMSZ==516:*2.
8
000516
OLBMS7-334.
AAA:2.54
SLBMS2==236,
10
000500
OEXM52.-192;*2.
11
12.
; OUERY.RESOLVER.BIT DEFINITIONS.
13
14
000200
BSSUC?BIT7 CCESS.BIT-
15
000100
B$1.10T?BIT6 ;OLB NOT .ENTRY
16
000040
B$MUL=-BIT5 ;OLB MULTI-NOT ENTRY.
17
uuuU20
B$FMN?BIT4 ;OLB FIRST.MULTI-HOT.ENTR
18
lA
020000
B$FST?BIT13 ;OEX FIRST.PROX.ENTF.T.'.
20
100000
B$PUFH?BIT15 ;OEX FORWARD.PROX.UNIT.- HIGH.ORDER.BIT.
21
040000
R$PUFL?BIT14 ;OEX FORWARD.PROX.UNIT.- LOW.ORDFR BIT.
22.
010000
B$PUBH?BIT12 ;OEX BACKWARD.PROX.UNIT.- HIGH.ORDER.BIT.
004000
855PUBL?BIT11 ;OEX BACKLnRD.PROX.UNIT.- LOW.ORDER?BIT.
24
78
; OLS.BUFFER.OFFSETE (CONVERTED -TO ADDRESSES)
000000
OLSY,I=.0 ;OFFSET.OF.COMM.HEADER.
28.
000004
OLSX17=OLSXX1+4 ;BATCH NUMBER.
29
11M11111.11-.
OLSXX2=OLSX17+2. ;BYTE.SIZE.OF.OLB.(USED)
72,A
000010
OLSXX3=OLS)1X2+2. ;BYTE.SIZE.OF.SDLB.(USED)
31
000012.
OLSXX4=OLSXX3+2. ;BYTE. SIZE . OF. OEX. (USED)
32.
000014
OLSXXS=OLSXX4+2. ; MAX I MUM . QUERY. ID.
73
088815
OLSXX3=OLSXX5+2. ;BYTE.SIZE.OF.FAL.(USED)
34
000020
OLSXX7=OLSXX6+2. ;BYTE.SIZE.OF.TTABLE.(USED)
7.5
13881344.
OLSXXA=OLSXX7+2. ;BYTE.SIZE.OF.XTABLE.(USED)
36
000024
OLSX10=OLSXX0+2. ;START OF.00L.SUB-BUFFER.
7.7
000106
OLSX11=OLSX10+ 1
1070 006446
000251
SEC
IF- fit
1071 005450
AAA2m7
PJS
PC
1072. 005452
005757
171354
1$:
TSF
HFPTP ;IF.PREVIOUSLY.SET
Approved For Release 2005/08/
IA-RDP85-00514R000200010001-4
?
.MAIN, NUMB?,. MAM1110 27-MAR-8013: 94)piPiiiidisrlRelease2005/08/21111A-RDP85-00514R000200040001-4,
NUMRNG.IIIIRANCE. CODE.
1077
006456
001407
8170..
2$
; NOT SET
1074
006460
016767
171346
1713 6
Mg.....'?
HEPTRANFiPTR.
; SET: SAVE.
1075
006466
012701
000000G.
2$:
MOV?
#HFEMX,R1
;GENERATE.HFLDU'S.
1078
006472.
012120
MO! ?
(R1)+, (R0)?
1077
006474
012120
rov.
(R1)+,(Rpo+
1078
006476
012120
MOV.
(R1)+,(R171).-1-
1079
006500
077206
SOB.
10RA
17117165A2.
0100A1
MOV?
R0,R1
;SET.NFLDC.POINTER
1081
006504
152701
00AAAAG.
SUB.
4EMX,R1
1088
006510
2701
000000G.
BIS.
*EMXHSO,R1
1093
066b14
010167
17i312
MOV.
Ri,HFFT2.
1084
Anr=152A
000241
CLC.
1085
006522?
060207
RTE
PC.
1081;
1087
000001
.END.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN: MRCRO.M1110 2741AR-E08illppPriged2iii.Release
SYMBOL.TABLE.
ASKOVF=.000145
BIIVAL=.0000Ru
BITO -.uuuuul
BIT1 =.4111H1141,_.
1:11111U =AlkicaMMH
BIT11 =.004000
BIT12 =.010000
B1T13 =.020000
Lilt 14 -R40000
BIT15 =.100R0m
DIT2. -000004
BIT3 -000010
8IT4 =-0L00,..0
HI IS -ARAA4A
BITS -000100
BIT7 =.uuR2mu
BIT8 =.000400
BITS -001008
BS:0L5=.000002.
B0DB0=.1.71001004
u'i:IHA-uumumu
BS:OPH= OR0001
BH:R.L= uuuuu3
BYTE0 = HH0HPIH
BYTE1 = 000001
ETYTE2 = 000002
BYTE3 =
BYTE4 = RRARR4
BYTE5 = 8510000
BYTES = 000HHh
BYTE? = 000E10(
BYTER = AA0R1A
BYTE9 = OROR1.1
BYTVAL= 00R012.
B:BSTA 000054
B:CHTX 00004F.
B:COUO. 000AF,0
B:FEMA 000132
B:FEHF 000142.
B:FEMO 00A152
B.hh!.7iN
B:FFSB 000212
B:FFSC 000222
B:Ft1HR. 000172.
B:FOLS 000162
B:FSAL 000100
B:F5B2 000102
B:FSCL-7 000104
B:HBLK 000120
B:HD0n 000114
B:HRLP 0001263
B:HRLR 000122.
B:HRLIJ 000124
B:HMBR 000052.
B:HORY. 000232.
B:OLSZ. 000106
B:OMI2IF 000234
EI,,IY:iAL 000315
B:OTTM 000076
BLOUOP 000056
B:SFDB ORAR1R
B:SIZE ORR772.
B:SHDP 000012.
B:SSO. 000004
u:sui- 001.1050
B:STAT 000044
B:STTE 000057.
BLUDOC 000110
CF :B0 -000070
OF:82.-AA0057
CF :B4 =.00006F.
CF:Bb =.000065
CF:DRO=.00004
CFDR1=.000053
CHKRHG 001342R.
CM. -000040
CSTDP.=.******
CsiDLL=.******
OSTER - ******
ubTESC-******
OSTFDC=.******
OSTTs.= ******
OSTVDC= **** G:; START OF-FAL.SUB ?DUFFER.
-20
AIDAF.FIE,
OLSX12=OLSX11+FALMSZ ;START OF.TTABLE SUB?BUFFER
7.39
El 4 076
OLSX13=OLSX12+TTBMSZ ;START OF.XTABLE SUB?BUFFER
40
005105
ULSX14=OLSX13+XTBMSZ ;START OF.OLB.SUB ?BUFFER-
41
005524
OLSX15=OLSX14+0LBMSZ ;START OF.SDLB.SUB ?BUFFER.
42.
0517200
OLSX15=0ISX15+SLBMSZ ;START OF.OEX.SUB ?BUFFER.
43
010000
OLSI7==OLSX15+0E1::MSZ ;SIZE.OF.OLS.IN.BYTES.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.MAIN: MACR0.111.110 27-MAR-80
OLSDAT.
12' 'A p066d1F:or Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.SBTTL..OLSDAT.
2 ? [14-11,1Mill
.PSECT. AAAOLS.
3
;IMMEDIATE DEFINITIONS.
4
5
177710
OEXWAL=/400
6
177720
OEXSAL=/400
7
177730
OEXPAL=/400
8
9
1UUUUU
OEXFW=100000
10
1AAAA1
OFXP7i=100001
11
loomA,.
OFXFP=IOn002.
12
13
874868
'xF-WV----BPUFL-18$17STIBSPUBHIBSPUBL.
14
134000
OEXIFSV?B$PUFHIBSFSTKESPUBHIBSPUBL.
174000
OEXFPV-8SPUFHIBSPUFLIBSFSTIBSPUBHIBSPUBL.
16
FLAGS.AND.COUHTERS
18
19 HMUMPIM
Li 411.1
PASSI:: .WORD. A ;PASS.INDICATOR.(-1,0,1=PASS.1,2,3 RESPECTFULLY)
MUMHMI..".
HUHUHU
NOTFL0;....WORD. A ;NOT.FLAG.C.NOT.IN.ABOVE.HIEARCHY)
21 000004
000000
FMNFLG;:.WORD. 0 ;FIRST NOT.OF.A.MULTIPLE.NOT.INDICATOR.
UNUNUN
AAAAAA
SDFLG:: .WORD. ;SUB-DOCUMEHT-LOGIC.INDICATUR.
AAAA1A
000AAA0.
FPXPT:: .WORD. FPXSTK. ;1ST.PROX.LINK.STACK.POINTER.
24 000012.
00AAumu.
SPXPT:: .WORD. SPXSTK-;2ND.PROX.LINK.STACK.POINTER.
25 000014
PRXPL0t: ;PROX.INDICATOR.
28 ARAA14
AAA
FPXCT:: .BYTE. A ;COUNT OF.ENTRIES.ON.1ST.STACK,
27 000015
AAA
SHXCT:: .BYTE.El ;COUNT OF.ENTRIES.AN.2ND.STOCK.
28
41.7)
; POINTERS FOR OLS BUILDING AND INTERNAL LINKING.
30
31 000015
AAAAAA
COLBS!: .WORD. 0 ;START OF.CURRENT.OL8.
3? 000020
1777760.
HOLBE:: .WORD? OLE -2. ;NEXT.ENTRY.TO.BE.GENERATED IN,OLB.
UUUU22.
UU0U00
SDLBS:: .WORD. 0 ;START OF.CURRENT-SDLB.
34 AAA024
1rrY(5u.
SDLBE:: .WORD. SDLB -3 ;NEXT.ENTRY.TO-BE.GEHERATED.IN.SDLB.
35 000028
00006.
NAGEX:: .WORD. LEX. ;NEXT.OLLOCATION ADDRESS.FOR.DEX-
36 000030
000000G.
CFALSr.: .WORD. FAL. ;CURRENT.FAL.START.
37 000032-
0000026.
HFALEI:: .LURD. FAL-4-2. ;NEXT.ENTRY.TO.BE.GENERATED.IN FAL.
38
39
OLS.SYNTHESIS.SUBROUTINES.TABLE.
40
41 000034
000455
000455'
000455'"
CDETBL: PERROR,PERROR.,,PERROR. ;TOKFLU.
42.000042.
000F.14"
0007.02"
OAA4P.F.,'
P1SUB,P2SUB,PERROR. ;TOKSBD.
43 000050
000466"
000466"
00046.!
PERROR,PERROR.,.FERROR. ;TOKFMD.
44 000056
00056?"
AAAF.,02'
000466'
PINOT,P2HOT,PERROR. ;TOKHOT.
45 000064
000762-7
000772'
000756'
PlOR..P2OR,P3OR. ;TOKOR-
46 000072.
000762
0005501"
nnnri42.?
PlOR,P2HOR,P3AND. ;TOKHOR.
47 000100
00041:5.?
0004615.?
00041:5."
PERROR,PERROR,PERROR-;?.
41:1 000106
00050A"
AAA534"
AAA54?
PlAND,P2AND..P3AND. ;TOKAND.
0u0ii4
000466
000466'
000466
PERROR...PERROR,PERROR. ;?.
50 00012?-
001014'
001120"
001154"
P1PRX..P2PRX,P3PRX. ;TOKPXLI.
51 000130
A00466"
000461:."
000466"
PERROR,PEPROR.,.PERROR. ;?.
5_ UOI
001014"
001120"
001154'
PIARX,P2PRX,P3PRX. ;TOKPXS.
53 000144
000466'
600466'
000466"
PERROP,PERROR,PERROR. ;TOKLP.
54 000152-
001014'
001120'
001154"
P1PRX.,.P2PRX,P3PRX. ;TOKFxP.
?
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
?
_MAIN: MA
OLSCDE
111116 27--MIFT---'6 12' *064AdlOor Release 2005/08/2
IA-RDP85-00514R000200010001-4
i .seTTL, ?@LSCDE,.
2 00000 .PSECT. OLSCDE.
72;
4 '; OLS.EYNTHESIS LOGIC.
5
5 000000 GEHOLS:: ;SUBROUTIHE.TO.GENERATE.OLS.
mimmmm 012767 177777 110000171' NIOV? *-1,PA55I. ;PASSANDICATOR-PASS.1
A 00000F 012704 000000G. Mn"? *TOPSTK,R4 ;RESET.TO.TOP.OF.HIEARCHY STACK.
A 000012 005044 CLR. -(R4) ;PUT.HULL.ON.TOP.OF.STACK
PRXFLG
iu 000014 005057 000014 CLR. . ;RESET.PROX.COUNTERS.
'
11 000020 012767 0000001,.mm0010' ila*FPXSTK,FPXPT. ;INITIALIZE.PROX.STACKS.
12.0000-36 012767 AAAR001] .A00012
rja *SPXSTK,SPXPT.
13 000034 015705 000000G. OLDAD,R5 ;R5 F1 U INDEX.POINTERS.
97
000124
Al ?7A5
AAAAAAG.
NOV.
4FLIXS7R5
;R5 ->*.FLU.INDES.POIHTERS.
A
00017,U
U12(02.
AHAUHAU.
MUV?
*NDFSRA,R2.
;R2 ->TYPE,FLU.IN.POOLDESIRED.
99
000134
004767
000154
JRR-
PC,GENEMA.
;GENERATE.EMATRIX.FOR.FSR -A.
IAA
000140
152700
AAOAAAG.
SUB.
*EMX,RA
;STORE.EMX.SIZE?
101
000144
010057
000160
MOV.
RO,EMASIZ.
102
000150
AA6200
RSR.
RA
107.3
000152.
010067
000002G.
MOV.
RA,OTSTAT+2.
;STORE.EMR.SIZE.IN WORDS.IN.STAT.AREA.
104
000156
AA57A9
ASL.
Rn
105
000160
012701
000012
MUV?
*FH:EMA,R1
;FILE .TYPE.
105
00015.4
0171477
002052
(.2.:'7:
T
PC,WRTEMX.
WRITE THE. ,. .DATA.-0 ..
;.EM DISK
Ill,
660170
000le7
177554
1111.
1$
1116
109
ROUTINE TO.CREATE EMB.
110
111
000174
012703
uuu0u0b.
20$:
NOV-
*FLUIDX,R3
;R3- FLU INDEX.PuIN1ER5.
112 ?
0002i-ill
5112709
0HAF1vird, ?
MO V ?
#FLIXSZ,R5
;R5-/*.FLU IHDEX.POINTERS.
11.3
000204
012702.
0000000.
MOV.
#HDFSAB,R2.
;R2->TYPE?FLU.IN.POOL.DESIRED.
114
1111112111
004767
000100
JSR.
PC,GENEMA.
;GEHERATE.EMATRIX.FOR.FSA-B.
115
000214
152700
000000G.
Approved For 4elease 200e/06722 : CIA-R...0......=...0_14R0_
A
ric-AP il'76-.
200010001-4
.MAIH: MACRO.M1110
27-MAR-GO 17:0.c Par2P
-Approvedt-dr Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
DEF
BUFFER.IHITIONS.
115
000220
010057
000152"
117
000224
01716200
,
1082-26
U1HUHr
1-1MHHHh.
119
000232
005300
120
000274
012701
000014
121
000240
AA4767
001776
122
000244
000167
177520
123
i24
125
17.5
AAA290
012703
888AA0G.
127
000254
012705
000000G.
128
AAA260
012702.
177777
129
000264
AA 4767
001624
130
000270
152700
0000000.
131
000274
010057
000154'
172
000300
012701
000015
123
000304
004757
001732
134
00031A
000157
177574
135
135
137
138
139
140
141
142.
143
144
145
14.5
000314
012704
00000uG.
147
000220
005057
000155'
14R
000324
0127A3
AAAAAAG-
149
000370
AA 4757
AAAAAAG.
150
AAA77,4
103530
151
000735
005057
000224'
1.52.000342.
153
000345
015701
A00156.?
154
000352.
010051
00000AG.
155
000355
152751
000000G.
155
000254
062767
000002
157
000772
115405
000000G.
15R
000376
042705
177400
159000402'052704
000000G.
NOV. R0,EMBSIZ.
ASR. RO .
mnv. R0,0TSTAT+5 ;STRRE.EMB.SIZE.IN WORDS.IH-STAT.AREA.
ASL. RO
mnv. #FH,EMB,R1 ;FILE .TYPE.
jsR. PC,WRTEME. ;WRITE.THE.EMX.DATA.TO.DISK.
JMF. 2$
,
; ROUTINE TO CREATE EMC.
;
30$: MOV. *11 P0 ;R.3->CUP INDEX.POIHTERS.
MOV. 44,CPISZ,R5.
;.R.5->d!P-CUP IHDEX.POIHTERS.
NOV. *-1,R2. ;R2 ->TYPE.NODE.DESIRED.(ALL)
JSR. PC,GEHEMC. ;GEHERATE.EMATRIX.FOR.FSA -C.
SHB. *EMX,R0 ;STORE.EMX.SIZE.
NOV. RO,EMC5IZ.
MOV. rii,,FH,.EMC,R1 ;FILE .TYPE.
JSR. PC,WRTEMX. ;WRITE.THE.E.MX DATA.TO.DISK.
JMP. 3$
SUBROUTINE.TO,GEHERATE.EMA.OR.EMB.
INPUT.
OUTPUT.
RO? SCRATCH.
END-OF.EMX.ADDRESS-
R1=. SCRATCH.
- TYPE OF.HODE.D.E5IRED. 7:EriiH
R3=. INDEX.POINTER.ADDRESS. EHD.OF.POIHTERS.ADDRESS.
R4? :RATCH. 0
R5=. *.INDEX.POINTERS. 0
GENEMAc MOV. *ZERO,R4 ;INilioLILE.11H1GGEH.iNDEX.PuININH.REhERENCE)
CLR. VIHXT. RESET NEXT VI.ADDRESS.
MOY. -5I 7.- SET.START.OF.EMX.BUFFER.
100$: JSR. PC,GETNDF. ;1-4ET.HEXT.HODE.OF.TYPE.DESIRED.
:-...:i::.1
VDCFLG. ;INIT.VLDC.00CURENCE FLAG.
3$ ;NO.MORE HODES.
SAVE. N4.. Nb
VIHXT,R1 ;MAKE -'I ENTRY.
ti.1111..',11
RO,VI(R1)
000000G. SUB.
%EMX,VI(R.1)
000156 ADD. *2...VIHXT.
MO VB. HDSIE(R4)..R.5 ;R5- o.CHARS.IH.HODE-
1.1'1;1,.:11i11 11,1.77400 .. R5
ii,HDCHR ... R4 ; R 4- >ID ? I ? CHAR ?
150 000405 122714 177772 Ci"PB- 0,2VLDC..(R.4) ;IS.FIRST-CHAR.A.ZERO.VLDC7.
151 000412. 001001 SHE. 101$ ;N0.
152.000414 800403 BR 102$ ;YESg THEN .INCLUDE NEXT ENTRY
153 000415 122714 177775 101$: CFPB. oVLDC(R4) ;IS.FIRST.CHAR.A.VLDC?.
154 000422 001010 BHE. 1$ ;HO.
155 000424 052701 000002G. 102$: ODD. oVi+2,R1 ;YES.g SET.NEXT.VI.TO.NEXT.EPT, EHTRY.
169 000444 112401
IL_ 0A0412.6 062767 000002 000156'
1$: illilB. 4, (R EMX-6,(R1)
4).-F , R1 ;GET.CHAR.FROM.HODE-
166 000430 010011 RO,(Rli
157 000432 if62711 177772G.
170 000445 100425 BMI. 21$ ;DOWT.CARE.
171 000450 115101 000000 MOVE!. CET5B(R1),R1 ;COHVERT I.T0.5 -BIT.CODE
172.00_ 001455
ii BED - 10$ -;ILLEGi2IL
Approved For Release 2005/08
CIA-RDP85-00514R000200010001-4
MA IN: MA141110 27-MAR
BUFFER.DEFI FIONS.
'A t-dr- Release 2005/08/2.IA-RDP85-00514R000200010001-4,
pprove-80 13:0 P017:P.d 1?1-
173 0004E16
070127
000006
2$:
MUL.
*5,R1
;CONVERT 6-BIT.CODE.TO.EMX.TABLE.INDEX
174 AAA462.
062701
000044"
ADD.
*CETEMX,R1
;R1->ADDREGS.OF.EHX.ENTRY.IN TABLE.
175 000466
012120
MAV.
(R1)+,(R0).i.-
;TRANSFER.EMKENTRY.FOR.CHAR
176 000470
012120
4$:
MOV.
(R1)+ ,(R.0)-1-
177 OGG472.
012120
MOV.
(R.1)+, (R0)?
178 000474
077515
6$:
ROB.
R5,1$
;DO.FOR.ALL.CHARS.IN.NODE.
179 000476
5$:
RESTORE-R4,R5
150 000507.
012701
000036'
MOV.
*INTERWR.1
; TRANSFER . INTER . WORD . EMX. ENTRY.
1.21 000506
012120
MOV.
(P.1)+,(R0)?
. 1192 000510
012120
MOV.
(R1)+,(RA3+
183 000512.
012120
MOV.
(R1)+,(150).-1-
184 000514
004767
000124
.5 515?
PC,GENFMD
;GENERATE.FLU.MOD.EMX.ENTRIES.
125 060520
0ect-213:s
BR
100$
1R6 AAA522.
12270i
177776
21$:
C112E1
*VLDC,R1
;IS.IT.A Vi DC?.
187 000526
001025
BNE.
23$
188 000530
070127
000006
MUL.
ik6,R1
;YES; CONVERT-6 -BIT.CODE.TO.EMX.TABLE-INDEX.
189 000534
062701
000044'
ADD.
0CETEMX,R1
;R1->ADDRESS.OF.EMX.ENTRY.IN TABLE.
190 000540
012120
MOV.
(R1)+,(R.05+
;XFER.I.ST.EMX.ENTRY.WORD.
191 000542.
020527
000001
CMP.
R5,41
;LAST -ENTRY?.
152' 010115540
001003
BHE.
24$
193 000550
052760
010000
177776
BIS.
*EMXTRL,-2(RO)
FLAG.AS.TRAILING.
194 000556
005767
000224'
24$:
IS
VDCFLO
;HAR.A.VLDC.00CURFD.BEFORE.IN.THIS.TERM?.
195 000562.
001404
BEO.
22$
l'ffn 51HI-154
3521760
000001
177776
BIS.
*EMXVVV,,-2(RO)
;YES: FLAG.IT-
197 000572.
000736
BR
4$
;RESUME.XFER.
198 000574
005267
000224'
INC-
VDCFLG
;FLAG.00CURREHCE.
1Pci AAA600
000733
BR
4$
;RESUME.XFER.
3150 000602.
122701
177770
23$:
CMPB
*SFGOP,R1
;IS.IT.A NUMBER RANGE?
201 800606
601323
BHE.
2$
. 202 000610
004767
FlonAnnG.
jRR.
PC,NUMPNG
;YE: CONVERT-AND.XFER.
303 01351614
000727
BR
6$
;COMPLETE.REST.OF.NODE.
204 000616
016701
000156"
3$:
MOV.
VINXTfiRi
;STORE.* VECTORS.
205 000032.
0015201
ASR.
R1
2001 0000124
010I67
AMALJUAL,
NOV.
R1,VILF-J
207 nnnr-;301
0100307
RTS.
PC
288 000632
012767
A0A5lA4
AAAAAAG. 10$:
MOV.
*OE:ILC,ERRCDE
;REPORT.ERRAR.
309 000640
0015 ib(
000000G.
JMP.
ERRORF
21A
211
SUBROUTINE.TO.GENERATE.FLU.MOD.EMX.ENTRIES.
212.
213
214 000644
GENFMD:
SAVE
R2,R3,R5,R4
215 0510654
005009
CLR.
R5
;R.5 =.COUNT.OF.FLU MOD.NODES LlNKED.TO FLU.
216 000656
016404
00000AG.
1$:
NOV.
HDFMEN(R4),R4
;GET.FLU MOD.LIHK-HODE.
217 000662.
001402.
BEO.
2$
;NO MORE LINK.NODES.
218 000664
005205
INC.
5.5
;COUHT.OF.LINK.NODES.
219 000666
000777,
BR
1$
220 000670
011604
2$:
MOV
(SP),R4
GET FLU NODE ADDRESS.
221 000672.
005705
TST
R5
;AHY.LINK.NODES?.
222.000674
001420
BFO
4$
223 000676
5105205
INC
K5
CONVERT.TO.FLU.MOD.COUHT.
224 000780
110P-209
ASL
R5
;CONSTRUCT.AND.TRANSFER.EXPANSION.VECTOR.
225 000702.
010510
MOV
R5 ,(R.0)
226 51051704
052720
140001
BIS
*EMSNSOIEMXEXFIBIT14,(R0)-1-
227 000710
010067
000170'
MOV
RO,EXPVPT.
;ADDRESS OF.VECTORS.IN.EXPANSION.
228.000714
060500
ADD
R5,R0
;STEP.PAST.EXPANSION.VECTOR.
229 000716
010001
3$:
RO,R1
;TRANSFER.E.M.OFFSET.TO.EXPANSION.VECTOR.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
.MAIN, MACRO.M1110 27-MAR-80 13105 PAGE
BUFFER?DEFINITIONS. Approve
230
008(23
16.2Kul
mmilmmmu.
231
000724
010177
ARA170"
000730
062767
000002
000170'
233
000735
015457
AAAAAAG
234
000744
004767
000A7',A
oFIA7.50
A12720
881088
236
000754
015420
eacioacii].
237
000750
.016404
080080G.
238
000764
001354
23q
000766
240
000776
000207
241
242
247.
244
245
246
247
248
249
250
251
252.001000
010446
253
001002.
005067
000222'
254.
MO 1005
016404
000000G.
255
001012.
116401
0000000.
256
001016
001515
257
001020
047701
177'400
258
001024
062704
HHHHHHU.
25S
001030
005805
250
001032.
005067
000215'
251
001035
112403
262
ocito4a
o427o3
177480
263
001044
005002.
264
001046
071227
000100
255
001052.
010245
266
001054
005002
2b(
UUlUbb
M(122(
0.11-1FVM
268
001052.
020267
000220'
259
001055
0811405
270
001070
010257
000228"
271
001074
012602.
272.001075
010267
000216'
273
001102.
000410
274
001104
012602.
275
001105
020257
000216'
276
001112.
ocii4o3
277
001114
01025?
000215'
279
001120
aeozol
279
001122.
005002.
280
001124
006302.
281
001126
058582.
282.001130
116205
80822f.7,,
283
001134
100003
284
001136
005267
000222'
285
001142.'005405
285
OOiIA4 077144
4$:
1F Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
SUB
NOV
ADD
*EMX,R1
R1,0EXPVPT.
02,EXPVPT
M0V. NDELID(R4),FLUIDS. ;STORE .FLU ID.IN.FIXED.LOCATION.
JSR. PC,FMNDCD. ;PROCESS.THE.ACTUAL.FLU-MOD.NODE.
MOV. 0EMXMCF,(R0)+ ;CREATE.MATCH.CODE EMX.ENTRY
MOV. NDELID(R4),(R0)+
MCW. NDEMEN(R4),R4 ;GET.NEXT.LINK.
BNE. 3$ ;CONTINUE-
RESTORE.R2,R3,R5,R4 ;NO .MORE LINKS, FINISHED.
RTS ? PC.
SUBROUTINE.TO.GENERATE.E.MX-ENTRIES.FOR.FLU-MOD.NODE.
?
FMNDCD:
INPUT.
R8=. EMX?ADDRESS.(BEGIN)
R1=. SCRATCH.
R2=. SCRATCH.
R3=. SCRATCH.
R4=. FLU.OR.LINK.NODE ADR. (SAVED)
R5=. SCRATCH.
MOV?
CLR?
110',."?
MOVB ?
B E 1,4?
B IC: ?
OD ?
CL R ?
C LR ?
1$:VE: ?
B IL ?
C L F.: ?
D I V ?
MO ?
C L R ?
0 I V ?
OMR ?
B F. 0
MO V ?
MO 'v'?
BR
2$: MOV?
CMP?
B EC:
MO V ?
B R
2 1 $ C L P ?
3$: A S L -
A D D ?
MO %/E.; .
EI FL
I NC .
NEG?
4$: !=.08.
Approved For Release
R4,-(SP)
COUHT.
NDFMN(R4),R4
NDSIZ(R4),R1
77$
0177400,R1
0NDEMS,R4
R5
PRIORS.
*1(7400,R3
R2.
0100,R2.
R2.
028,R2.
R2,PRIORT
2$
R2,PRIORV.
(SP)+,R2-
R2,PRIORS.
3$
(SP)+,R2.
R2APRIORS.
21$
R2,PRIORS.
3$
R2-
R2.
R5,R2.
STADLE(R2),R5
4$
COUNT.
R5
R1,1$
2005/08/
OUTPUT.
EMKADDRESS.(END)
SCRATCH.
SCRATCH.
SCRATCH.
(RESTORED)
SCRATCH.
;SAVE?FLU.OR.LINK.NODE?ADDRESS-
;INITIALIZE.0-EMX-SUB-VECTORS.NECESSARY.
;R4 "
;CONVERT AND TRONSFER.OUERY.ID.
;PRINT.LINE-
;UPDATE.OLB.ADDRESS.
;AT.END-OF.C1LB?.
;NO.
;ANY.SDLB.ENTRIES?
?MT,0NEWLIM,*1;NO:
;NEW -LINE.
,*OLSHD4,00LSIZ4 ;START.SDLB SUMMARY.
*SDLB,R4 ;R4TERWS.(NUMBER.OF)
773
003726
006200
ASR R. SI
374
00777.0
052704
000000G.
ADD *NDTRM,R4 ;R4-:::.1ST TERM.
775
003734
012701
001002
MOV *TY5E25'15'K5'ZER,5 1
5,(15
003740
000402.
BR 11$
377
003742.
112723
000054
105:
MOVE'. 1??(R3).-i-;TRANSFER-",'
378
003746
8104767
000326
116:
.3 SR PC,OCTA!.75C. ;PRINT TERMS
003752.
077005
SOB. R0,10$
780
003754
152703
000610'
SUB. *PRTBUF,R3
701
003760
PUTs *LIST,*PRTBUF,R3 ;ENTER.LINE.IN:FILE.
7R2.
004002.
15E5.TORE.53,54
383
004006
000725
BR HPO.
384
004010
A5A25i7
100$:
RTS. PC.
785
306
797
_34012-
PRINT; :
SAVE. RO,R1,53,R5
388
004022.
012701
000402
MOV. *TYPE2BIBLK2ER,R1
789
004026
012703
000610'
1$:
MCN. *PRTBUF,R3 ;RESET.TO.BEGINNING.OF.PRINT BUFFER.
79A
15154072.
012705
00005171
MOV. *16.,05 ;PRINT.15. WORDS.
391
17104072,
SAVE. R4
004040
012704
00300'
MOV. *L1JCAT,R4
397
004544
004(57
000326?
JSR. PC,OCTASC. ;START-WITH.LOCATION?
794
004050
RESTORE P4
795
004052.
112723
000072
MOVB. 4?;,(R3)-1-
395
004055
062767
000040
176764
ADD. *32:,LOCAT. ;ADVANCE LOCATION ADDRESS.
397
004064
112723
000040
10$:
MO/B. *40,(R3)-1-;SPACE.THEN.WARD.(16 TIMES)
799
7'99
110417170
5124074
110475 (
07750F,
900725'
JSR. PC,OCTASC
SOB. R5,10$
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
.MAIN.
PPTCDE
MACRO Ml 110 27?MAR-7-0
13 1,7 Pc.11,Epproved 1.; 7
A ror Release 2005/08/22 : CIA-RDP85-00514R000200010001-4 '
400
004076
PUTS..
#LI5T,#RRTBUF.,*119. ;ENTER-IN.SPOOL.FILE
401
004122.
025757
175722
175722-
CMP.
LOCAT,ENDLOC. ;CONTINUE. UNTIL. ENTIRE. RANGE PRINTED.
402
0114130
103735
BLO.
IS
4.03
004132.
RESTORE.ROR1,R3,R5
404
004142.
HHA207
RTS.
PC
405
;
411s
ao41.44
PRNTH::
SAVE.
RA,17.7.,R5
407
004152-
012703
000610
1$:
MOV.
0PRTBUF,R3 ;RESET.TO.BEGINNING.OF-PRINT BUFFER.
408
004156
012705
000020
MOV.
#15,,,R5 ;PRINT.15. WORDS.
409
004162.
SAVE.
R4
410
004154
012704
AA3050"
MOV.
#LOCAT,R4
411
004170
004757
000072
JAR.
PL,HEX. ;START.WITH.LOCAT-ON.
412
004174
RESTORE
R4
413
004175
112723
000072
MOVB.
#":,(R70+
414
004202
052757
000040
175540
ADD.
1t32,,LOCAT ;ADVANCE LOCATION-ADDRESS.
415
004210
11272C
000040
10$:
MO VB.
#4A ,(R3)+ ;SPACE.THEN.WORD.(16 TIMES)
415
004214
004757
000046
JSR.
1...firiEX.
417
00422A
077505
SOB.
R5,10$
419
AA4222
PUTS
oLIST,*PRTBUF,.#95: ;ENTER.IN.SPOOL.FILE
419
A1i4246
025757
176576
176576
CMP.
LOCAT,ENDLAC. ;CONTINUE.UNTIL.ENTIRE.RANGE PRINTED.
420
11114254
107.735
BLO.
1$
421
004255
RESTORE
RO,R3,R5
4?.?
AA4764
000207
RTS.
PC.
423
424
004266
HEX;
SAVE.
5:O,R1,R5
425
004274
112405
MOVR.
(R4)+,R5 ;SET.LOW BYTE.
425
004276
112401
MO VB.
P4' Ti ;GET.HIGH.BYTE.
427
004300
0A4757
00AA15
JAR.
PC,HEXEI- ;CONVERT AND.TRANSFER.HIGH.BYTE.
429
004304.
010501
MOV.
R5, R1 ;CON ?ERT AND.TRANSFER.LOW.BYTE
429
004305
004757
000010
JAR.
PC,HEX8.
4TM
004312.
REG d E
RO,R1,R5
431
054320
000207
RTS.
PC.
432.
433
004322.
A42701
177450
HE XB;
BIC.
4t1774AA,R1 ;PUT.BITS.7,5,5,4 IN FM
4.34
004325
005000
CLR.
RA , BITS.3,2,1,0 IIA.R1
435
004330
07102(
000020
DIV.
*15, ?RP
436
004334
116023
004346?
MOVB-
HEXV(RO .(R3)+ ;TRANSFER.HEX.
004340
1161,_
004345'
MO VB.
HE XV(I 1 I.(R3).1-
A04344
AAA207
RTS.
PC.
4.39
440
004345
050
051
052.
HE XV;
.A5CII
/0123455709ABCDEF/-
441
000001
.END.
Approved For Release 2005/08/211FIA-RDP85-00514R000200010001-4
.MAIN: MHAIIIM1110
SYMBOC.THBL
AT. 001000RG.
BATHO-****** GX.
BATSUM. 003054R6.?
BITVAL=.0AnOnA
BITA =.HAA0A1
BIT1 =-HUU002.
BIT10 =.Llifi2OUU
BiTli =.AA4AAA
BIT12 =.01AAAA
BIT13 =.1.12HUU0
BI T14 =.040000
dl ii) =.1ANDAA
BIT2. -1710011P4
BIT3 -11110010
8IT4 -000020
BI15 =.0 AAA4A
dl lb =.A0A1AA
BIT? =.AAA2AA
BITS -.000400
BI T9 =.120i0AA
BLK2ER=.000400 G.
BSIZ. =.000170 G.
BSMSG. 000055R.
055I2.= AAAIDiF.
BSTPTR= ****** OX.
Bs:Ds= 000007
BS:DBU= 000004
Uy ILA =.1.111MHP1.-;
BYTE4 --FIPPOH4
BYTE5 =0AAAAAti
BYTE6 =.1-JULIUUb
bYlt( =0LIAHUA1
BYTEH-HPRIP1P
BYTES' -.000011
BYTVAL-000012
B:BSTA- 000094
B:CHTX. 5115105145
B:COUO. 0A0A50
B:FEMA. 000132.
B:FEMB. AAA142.
B:FEMC. 000152-
B:FFSA. 000202-
B:FF5P. 000212.
B:FrIHR A00172
B:FOLS 0An152
B:FSAZ 000100
B.FSBZ AAA1A2
BLFbLE.. 000104
27-MAR-,09- 17 1.7 E.0171E 1P.
-ApproVed-ror Release 2005/08/201A-RDP85-00514R000200010001-4
014 B:MBLK 000120
B:HDOC OB0114
014 B:HRLP 000125
B:MRLR 000122.
B:MRLW 0110124
B:MHBR 000052.
B:HOKY 000232.
B:OLS2 AAA 1A6
B:OMAP 000234
B:OSPL 000315
B:OTTM 000075
B,UUDP 00i 155
B:SFDB 01510010
B.SIZE 0510772.
B:sHDF 000012-
B.SSO. H00AH4
B:ssOF 000050
B:STAT 000044
B:STTE 000093
B.UDOC 00011A
CF :BA -000070
CF:B2.-Ann057
014 CF.B4 -000055
Li- Lid -RIPOPe71.
CFDR(21.-0000064
CF,DR1=-HHHAR.7
COUHT. AO1A32R? .
CPIXSE=.***:40.K* 1.4X-
? CUP IDX-****** GX.
EIBSLEM=.0AAilF.
014 DC- 003342R.
DECASC AAAA42K.
DEU2. Am0m0AK-
DH:BFO AAA002.
DH:BF1 000004
DH.CTL AAAOAA
DH.DMC OAAAiA
DH:FLG 000006
DH.DCK AAAAAA
DH :HTP 000004
DMMXT 000A05
DH:ROT 11111111FV.
DH:SIZ 000010
Li 111 FHMLOC On3092PG
AlA FAL. -****** GX.
A1A FD.CR-=.****** ox-
did FD:FID A00000
Ain 1-1:1N1:1 1111MHM-1
01A FD.FVR 000004
010 FD.LFH 00001A
010 FH5IZ.=.000020
01A FH2!=iic7=.AAA01';'-
AIA FLIDPT 003354R.
Ain FLIXSZ=.****** GX.
010 FLUHDR 000023R.
AIA FLUH1Y2 00004310:I.
010 FLUID-****** Ox-
Approved
010 FLUIDX=.****** GX. F,RAC1=.05151015
010 FLUPRT. 003402R. 014 F,RATT=.00AAA1
010 FLUSUM. 002542R: 014 F,RCHM-AAAA74
Ain FHPRT- 003492R. 014 F:RCTL=.00nA17
Ain FH.DBH. 000026 011 F:RSI2-000002.
010 FH.DBS. 000022. 011 h:RTYP-00AARA
010 FM I'll 000040 011 F:SEOH=.000100
Ain FH.EMA. AAA012. All F.SPDV-01:10072.
010 EM .EMB. A0AA14 Ali F:SPUH-A00074
010 FH.EMC 000016 011 F:5TBK-000035
010 FH.FSA OAAAAA All FLUHIT=.0A11172.1;
Aid Fit F5 011 F:URBD= 00A020
010 Fit E1 AAAAA4 011 F:VBH -AAAA1,7,4
010 FH.LGO 0A0034 Oil F:VBS2= 000A60
01A FH.LGU- 000035 All GETHDE= ****** GX-
AlA FH iii'' 0051074 011 HDRSIZ=.00A03 G.
AlA FH.MHR. 00001A 5111 HEADER. oLI11nAo9G
11 ii FH.HMB. 000044 All HEX. 004267.5R.
010 FH.OLS. 000006 011 HEXE. 004322R.
010 FH.ORY- AM:302A Ail HEXV. 0A4346R-
FH.SF0 050030 5111 LIST. 0051412R0.
FH.SF1 AAn032. 011 LOCAT Lidd!jdPLi
FH.SHD. 0011042. 011 LTLUN -000004 G.
F.ACTL= 00007F. LTHB. A00992R.
F.OLOC= 05100401 Ni- -000062.
F:BBFS= AnAAF,2. H. =.0000A2.
014 F.BDB.= OnAn7A HDCHR.-****** (73X-
F:BGFIC.= AAA097 NLIL- L ID=.****** GX-
F:BKDH= An0A26 HDFMEH= ****** GX.
014 F:BKEF= 05i0050F.BKDS= PlAnn7A
IP,RKPl= AAAA51 HDFSAA=.****** GX?
F:LIKST= 00AA24 HDFSAB=.****** GX. RAD 5O 000154R.
An5 F:BKW..1= 00017154 H1J'S1Z.= ****** GX. R:VAR.= ****** GX.
005 F:BMP -000Ar'9 HDTRM.-******1, SDLB =.******
009 FiCHTG-AAnn34 HEULIH. A0n411R. 014 SDLBAD=.****** GX:
009 FrDFMi.J= ummm4H MPH 014 SKHLER=.001000 G.
0119 1:DSPT-012017144 HPO. 0H-JhH2H. 014 SR :ARE. 000114
013 F.DVHM-A0A134 HSP. 00:00 4P 014 SR :ARS. 000105
317 F,EFBK-HFIBB1H H,BFAC-00001714 SR.DAY. 000010
013 F:EFH.= AAAAFIA H.BHGH=.00nnn5 SR :DLT 000014
01-3 1-6tUBB-H0HH3.?. H.BICH=.000004
A13 F:ERR =.0000H2. H.BUFB=- 004000 SR:ECB. 000047
SR.ECH. 000046
1114 f-.!--AU_:=.ULIUU4.'. H,BUFW= dL:iiliiiliLl SR:ECL. 000050
F:FEBY-AA0A14 H:D1D -001'024 SR .FIB. 000012
F:FHAM-000110 HIDVHM=.000032 SR.GRE. 000100
007 F:Fm8-47100102. H.FID.=.0000n0 SF OF 000072
003 F.:I:TYR-00011F, H.FHOM=.000006 S R L 000122
007, F:FVER-000120 H.FOS.=.00A764 SE Lilt 000055
01513 F:HIBK= 000004 H:FTYP= 000014
:LUH -000042. H.FVER= 000016 SR:LIP. 000062
F
SR:MOH. 000006
F:MBCT-AA0094 H:HEXT= 000022 SR,NDU. 000042
014 F i 1B C1=? AAA A59 H:PKSZ= 00AU20 SF Ht 000036
F:MBFG-OFIA05F. H:PKTS= 000043 SR:HIH. 000030
014 FJHRBD-000024 t---LOURY=- 0051031 SRNiP- 05-10022
014 F:HREC-000030 H:STAT=.000020
E:nVBS=-000A3A c;1? AH0FIA2
For Release 2005108/22 : P 5 0001-4 -
CIA-R61. 114i466020001
H:11HIT-AAAA34
00TASC. 00032f7R0.
OCTGO. 0013402R.
PAR15$$=.AAFIA27
PRINT. 01714012R0.
PRHTH. 0041441-1G.
PRTBUF. 05115110R0.
ACL. -****** GX.
OEX. -..*-***** GX?
uEXAD.=.****** GX.
OE,R01-AAA144
OLE:. -.****** GX.
ULBAD.-******
OLSHD1 000105R.
OLSHD2. 00012AR.
01!;HD7, AAA174R
014 !=iHD4 AFIA27.3R:
014 OL!'"iHD5 000272R.
014 0LSHE07, 000357R.
014 oLsizi-nAnni7,
014 0LSI22=.1i001194
HI4 ULSIL,6=.00007
OLSIZ4.-AAAL_
A14 01_17125-BOOOR,1
OLS I26-000031,7.
OLSSUM. 001072.4RG.
ORYMAX=.****** GX.
0:FDSC. 00Ann4
OMOFIK. AnnA0A
0:HUHL. 000002
Q:SIZE. 000014
014
014
El 14
014
014
014
014
A14
014
MAIN: MACR0.111110
SYMBOL .TABLE.
27-M0R-80
1:3 'App6VAd1ii-PRelease 2005/08/22 :
CIA-RDP85-00514R000200010001-4
SR:S
iii
ii Ukitibld
002 ST :ORY
ULIUM M2
006 S,FHBW= 000017
WORDO =
_...j
888888
XGTSRE=
000014
SR,TWc;
88085F,
882-ST:1'SZ
17.18087.4
A86 S:FNTY= 888884
WORD1 =
088882
XHITSK=
000011
SR:WSL
000052
0132 ST:SCH
880840
806.5:FIYP= HHHHU/
WORD2 =
008884
XHLMER=
AA8882
SR YR
808004
882 ST,OHL
000004
006 S:HRL - 00024A
WARY; =
000006
XHOTSK=
000010
SR:11H
dU1U24
062 ST:XcT
000014
005 S:HFEN=? 00002u
WORD4 =
068818
XMSCHE=
--
SR:liF
FIOACI11;
882 SU:DRU=
880084
TTABLE= 1,.****1.:
GX
U8RD5 =
800812
XOTS =
nnnnrc,
SS:FID
I1UIJUU2
004 HU,DOM=
00000h
TYPE1B- onAonn
G
WORD5 - 088814
v.'TO =
HP"H'i
SS:FHB
000010
004 Su.IDL=
AAOAA0
TYPE 2B= 000062
G
WORD7 =
008816
XSULOA=
000005
SS:FVR
880885
0814 SU:LOD=
000001
TYPE3B= aacioo4
G
WORDR =
000020
XTABLE=
5- LEN
0110017
nA4 SU:!;RC=
808882
TYPE4.8= 888006
G
WORN =
888822
ZERO =
1....k
GX
06:sti
H0Hu00
004 !=ii..1:sRR=
011000h
UCT 118:18.,R
014
WRDVAL=
808824
.F.SRCO-
1
G
ST:AS
800820
886 SU:XPD=
080007.
WH.NTP 01710004
812
XBATCH=
080813
.PUT =
***1.N.,.
R
ST:BS7
060024
006 S:DFHD=
000020
WH.HXT 080005..
012
XDOLOA=
088884
...PC1=
800412R
814
ET ETC
001111110
006 S:FATT=
000016
WH .ROT offloa2
012
XDBPRO=
000012
..?Pu2=
888118hR
814
ST:CSZ
08807i0
886 S:FDO =
000140
WH.SIE AAAAM
812
11 u:
888806
".
000412R
AP
ST:HRL
000010
006 S:FHAm=
UMMUMb
WH. SRC 880008
812
':,-J-USMH=
000007
... TP C -
OU U140
ST,LEN
000044
006 R,FHD =
000036
WH.TYF ooaoal
612
. ABS,
00000n
00171
00077;2.
001
SRCOFF.
000122.
002.
FDSCOF
000010
003
SUSOFF.
000012.
004
DHROFF.
000012.
005
STTOFF.
2213044
006
OSPLOF.
0130014
007
BSTOFF.
008772.
018
FNOFFS.
888844
011
WHODOF.
000010
012.
DHODOF.
000010
013
FRTCDE.
004366
014
$$FSR1
001020
015
ERRORS.DETECTED: A
VIRTUAL.MEMORY.USED: 6701 WORDS. (.27 PAGES)
DYHAMIC.MEMORY: 8004 WORDS. ( 31 PAGES)
ELAPSED. TIME: 00:01:85
PRTCDE,PRTCDE/-SP/HL:ME:BEX=E20,13PJ.M.MDOTO,PRTSUBS,PRTCDE.
? Approved For Release 2005/08/2.1A-RDP85-00514R900200010001-4
OTO,T.E;K;104
MEMORY ALLOCATION.HAP. TKB PAFF?
27-MAR-en I Approved For Release 200o/08/22 : CIA-RDP85-00514R000200010001-4
TASK. NAME. : OTO
PARTITION.NAME.: HSTSPR.
IDENTIFICATION.: 0736
TASK. UIC. : C20,3].
TASK. PRIORITY-: 45,
STACK. LIMITS: 000236 001275 001000 00512,
PRG.XFR.ADDRESS: 104356
TASK.ATTRIBUTES: CP.
TOTAL.ADDRESS.WINDOWS: 3.
TASK. IMAGE. SIZE. : 18944. WORDS.
TASK.ADDRESS.LIMITR: nnnnnn 111767
R-W.DISK.BLK.LIMITS: 000002.000113 000112.00074.
*** ROOT SEGMENT: BUFFER
R/W-MEM- LIMITS 000000 111767 111770 7.7890,
D1SK.BLK.LINITSr. 000002.000113 000112.00074.
MEMOWLLOCATION.SYNOPSIS:
SECTION,.
BLK::(RW,I,LCL..REL,CON)
AAAOLS:(RW,I,LCL,REL,CON)
AABUFS:IPW.IfiLEL,,PEL,CON4
BSTOFF:(RW,I,LCL,ABS,CON)
CCET :(RW,ILCL...REL,CON)
CSTAP :(PW.I.LCL.PEL.FON)
DHPOFF;(PW.ILCL.ABS,CON)
DHODOF:(PW,I.LCL.ABS.CON)
00127.6 000670 00440.
002126 00011-:-.0 00112;
002126 000160 00112:
002:3.106 052046 21542,
002306 05204F. 21542,
AAAAAA 121171121000 nnnon.
TITLE?IDENT, FILE,.
.MAIN, OLSCDE,OBJ;1
MAIN, BUFFER,OBJ;1
000000 000000 00000. MAIN: BUFFER:OB.3;1
O00000 120001.31.3 ii 1..J. WO 0Th .OBJ.:
000000 000000 000110 MAIN, QLSODE,OBJ;.1
000000 000000 00000. .MAIN,, FLUCDE.OBj;.1
HHHHHU UUMUMU ULIUMM. .MAIN: EMXEDE,OBJ;1
000000 000000 00000. .MA IH: NUMRHG.OBS.:1
UMMUMM 111111UHA ououo. PARSER PARSER,OF1J1
AAAAAA AAAAAA AAAAAn QUERY. QTFORM.OBJ;1
UUUUULI UUUUUU UUUUU. .MAIH: CSTAB,OBJ.:1
054354 0110200 1111110.
054354 000200 0012 .MAIN, EMXEDE,OBJ;1
054554 001400 00760.
054554 001400 HHHU. .MAIH. CSTAB,0BJ:1
0A0000 000000 00000,
000000 000000 00000.
OOOOOO 000000 AoU00.
000000 000000 00000.
000000 000000 00000.
AAAOAA 000000 0000A.
ilAUHHH Hi-IA[1k HHHHH,
HMAIIUM 111111111111
000000 000000
00000A AAAAAA
00001111 nnnnnn 00000.
.MAIN, BUFFER,OBJ;1
010 0TO,0Bj;1
.MAIM, OLSCDE,OBJ.ti
-MAIN. FLUCDE,08.3;1
.MAIN, EMXCDE.OBJ;1
.MAIH. HUMRHG.OBJ.t1
FAN'6EH PARSER.OBJ:1
QUERY. OTFORM.OBj:1
.MAIN: CsTA.B.OBj.:1
1217171711717 LIOUUULI 000nn. .111AIN: RHF ..OBJJA
Approved- For Release 2005/08/2= IA-RDP85-00514R000200010001-4
01-0,-FX;i0
BUFFER.
MEMORY ALLOCATION. MArApi#41ivedForReleaSen2605/08/201A-RDP85-00514R000200010001-4
27-MAR-00 16d
0u0u00 uUUUUU UUUUU. ATA OT0100j;1
000000 000AAA AAA0A. .MAIN: OLSCDE:OBJ.:1
AAAAAA AnAAAA 0000A. .MA IH: FLUCH:OBJ:41
000000 000000 00000. .MAIN: EMXCDE,00J;1
000000 000000 ocimia. NUMPNG,OBj;1
000U0U UUUOUU uumuu. PARSER. PARSEROBj;1
uu0000 000000 UUUUU. UUER'f'. OTFORMJj0j;1
UOULIUO AAAAAU UOUOU. .MAIN: CSTAB,OBJil
EMX. :(RW.I,,LCL,REL.CON) 056154 0017112:44 00420.
056154 000644 00420. .MAIN, EMXCLIE,OBj.1.1
EMYEDE:(RW,I),LCL,REL,CON) 057020 :=2540 A1114'fn:
AH(O211 iiiTh 01.3(b: .MAIN: EMXEDE,00jy.1
EMXDAT:(RW,I.,LCL,REL,C011) 1.1615;:a AAA7a6 0019R.
061560 00072,01.; 00190. .MAIN: EMXCLIE,00j,11
FY;COF:(RLI.I,LCL.ASS,CON) AAAAAA 000000 AAAAA.
mumumu UUUUUU HHHHH. .MAIN, BUFFER ? OBJ.:1
dOOOOd bUU000 Ob000. UTA OT0.0E0;1
'ItTIHHH HHHHHH .MAIN: OLSCDE:ORJ;1
000000 AAAAAA 1111111111 MAIN: FLUCDE:06.3;1
000000 000000 00000. .11121IN:
UUOLIUU UUUUUU UUUUU. .MAIN, EMXCDE.OBj;1
HUMRHG,OBj.:1
HHUHUH HHHUUU UUUHU. FAW.7;ER PARSER:OBJ.E1
AAAAAA AAAAAA AAAAA, OUERy. OTFORM,00J;1
HHHOHH HHHHHH ML1MIJEI ii IA TAtELOEW1
FLUCDE:(RWI,LCL,REL,CON) 062066 A07.050 01576:
AF.2AF,f; 007.12150 01576: .MAIN: FLUCDE.00j;1
FLUNDE:(RLI,I,,LCLABS,CON) 000000 nAAAAA nnnAO.
000000 000000 00000. .MAIN, BUFFER:OBj.:1
FNOFFS:(RILULCL,ABS,CON) AAAAAA 000000 OAAAA.
uuuuuu 00UUUu 0UUuu. .MAIH, BUFFER,00j.t1
HHHHHH AHmAHA uuuuu, uTu OT0.06S,11
000000 ROOnnn 00000. .MAIN,
uuuuuu uuuuuu uu. .MAIN: OLSCDF,OBJ;1
FLUC1iE,00j.:1
uu0uuu 00000u uuuuu. .MAIN, EMXCEJEO0J;1
AUHHHH HOMMAH UULIMA. .MAIN: HUMRHG,OB.fll
AAOAAA 000000 00000. P, iRSER. PARSERJ.18J;1
HHHUHm HHHHHH UHUUH. HUE I OTFORM:OEW1
000000 000000 00000. .MAIN: CSTAB;OBJ;1
NSGOUT:(RWIfiLrLRFL,COM) 05517.6 001214 00652,
065136 001214. 00652, MESSAG. MSGOUT:00j.ti
pUMRHIG:(RLL.ULCL,REL,CON) 066352 AA6524 017.4124
066E...2 006524 07.41P: .MAIN, NUMPHG,00j;1
PARSER:(RLI,I,LCL.REL,CON) 117507R, 01711206 00646:
ifi(bO(b 00I206 OU541.7., PARSER PARSER,OBJI'l
PSDATA(RIA.L.L.ELREL,C011) 076304 000314 00204.
076304 0007.14 00204. PARSER. PARSER:OBJY.1
OLSCDE;MLLIfiLCL,REL,CON) 076620 001F104 00036:
OLSCDE,OBJ;1
076620 A01.504 00E136, .MAIN:
ONBASE;(RW,ULCL,ABS,CON) 000000 000000 00000.
000000 000000 00000. .MAIN. BUFFEROBJ;1
OSPLOF;(RLI,I LCLAABS,CON) OAAnnA AAHHHH MAAUM.
AAAAAA AARAAA AARAA, .MAIN: BUFFER:002?1
HHHHHH HHHHHO UL1LILIL1 U liii OT0.00j.E1
AAOAAA 111111000 0uuu0. .MAIN: OLSCDE,OBj;1
muumuu 000000 uuumu. .LAIM Fsiiiubd
Approved For Relea 2005/0se : - ...P85-00514R000200010001-4
OTO,TSK;104 MEMORY ALLOCATIOH.HAP.
BUFFER. " MAP -n pproved For Release2b0/08/22 : CIA-RDP85-00514R000200010001 -4
mmmmHH MINFIHri HMHVIM .MAIN:. EMXCDE:OBj;1
HHHHHH HHHHHH HHHHH MA IN HUMRHG;OBj.:1
000000 000000 00000. PARSER. RAREER,OBJ.gi
000000 AAOAAA A0000. yiiTFORrLOBj.:1
uuuuuu muuumu uuuuu. .MAIH, OSTAB,OBJJ:1
OTDATA2(RW,I,LCL,REL,CON) 100324 000220 1in152,
iAn=2;24 ont7127a cloi52. QUERY- 1TFOR1I:OBJ;1
OTFORM:(RLLULEL,REL,COH) 100554 A117.172 A1E.58.
100554 00172 01658. QUERY.. OTFORM,OBj.:1
OTA :(RLI,I,LOL,REL,COH) lUT4h AA5E:7.A 1212qR.71.
10..6(4b UU5is0U UZIj68. ITS ATO.OBj;1
:.;RCOFF:(RW,I,LCL.,ABS,CON) AAAAAA AAAAAA 00000,
000000 000000 00000. .MAIH, BUFFER,OBJ;1
000000 000000 00000. OTO OTA.OBj;1
ARAAAA 00000A AROOA. .MAIH, O1_SCDE:OBJ.:1
000000 000000 00000. IH IN FLUCDE,OBj;1
A00000 -00000 00000. .MAIH, EMXCDE,OBJ;1
131111111111 000000 00000. ill IN HUMRHG,OBJ.:1
HHHHHH HHH' HHUHH. PARSER PARSER:OB..3;1
000000 000000 00000. QUERY. QTFORM,OBJ;1
AmmAAA AAA000 00000. .MAIH, CSTAB:OBJ;1
STCODE:(RW,I LOL,ABS,CON) 0000AA OAAAAA 00000.
uuuuuu uuUUUU UUUUU. QUERY- OTFORM,08j;1
STTOFF:(RW,L.La...ABS,COH) AAAAOA 000000 00000.
HHHUUM HHHHHH HHHHH. .MAIH, 8UFFER,OBJ.:1
HHHHHH HHHUHH HHOL ()TO
00 AAAA00 AAAAA. .MAIN, CNNL
000A 1
uuuouu 13131331313UUUUU. .MAIH, FLUCDE,OBj.:1
000000 000000 00000. MAIN. EMXCDE,08j.:1
uuLluUu UUPJUuU UUUUu. 1111111 [I'll II
000000 A00000 AAAAA, PARSER. PARSERhOBJ.:1
U00000 U00000 000UU. QUERsy'. OTFORM,08j;1
AAAAAA AOAAAA 00000. .MA11'1: CSTAB:OBJ;1
SUSOFF:(RW,I).LEL,ABS,CON) 11131 IAA0 nnnnon 0000A.
000000 000000 uhAAA .MAIN: BUFFER:0E0;1
Udijuuu uuuuuu uuuub. ATO ATO.ABi;1
000000 000000 00000. .MAIN, UL5UDE,OBJ;1
HHHHHH HHHHHH HHHHH. 1111 II FLUCDFOBj.r.1
00AA0A AAAAAA 00000. .MAIH, EMXEDE,08j;1
OUUUUU UUUUUU 1111131313. .MA IH, HUMRHG,OBjIl
uuuuuu uuuuuu uuuuu. FARbER- PARSER,OBj,11
m00000 uumuum muuum. OJERy- ATFAMOEU0:1
uuuuuu uuuuuu uuuuu. .MA IH, CSTAB,U8j;1
TRCODE:(RLI,I,LCL.ABS,COH) AAAAAA 0000AA AAAAA.
uuuuuu 00000U HHHHH.
WHODOF:(PLI,I,LCLABS,CON) AAOAAA 00000A AAA00.
UUUUUU 000000 UUU00. .MAIH, BUFFER,OBiIi
uuuuuu 000000 uuuuu. Qiu OT0.013.11
AAAA" 1HHHHH .HHHH. .MAIN, OLSODE,08J;1
000000 0HHHAA 00000. ,MAIN, FLUCDE,OBjfil
udUuUU 0UH1iOU L0000. .MAIN: EMXEDE:OBJ1
000000 000000 00000. _MAIN: HUMRHA,OBj;1
AAAAAA A00000 oonno. PARSER- PARSER,OBJ;1
IIHIIHIIM 000000 HHHHH. OUERY. A1FORrLABJ;1
000000 000000 00000. .14AIH, .AELTE1
Approved For elease 2005/08t2 IA-RDP85-00514R000200010001-4
QUEFY- OTEOMOBJ;1
?
OTO:TSK;10,1111MEMORYALLOCATIOH.MAP. TvP
'Approved For ReleasFeio06/08/201A-RDP85-00514R000200010001-4
BUFFER- 27-MAR-80 16,u
$$FSR1:(RW,D,GBL,REL,OVR)
$SFSR2;(RW,D,G8LfiREL,C0H)
$$RESL:(RW,I,LCLREL,COH)
LITRESM:(RW,ILCL,REL,COH)
GLOBAL SYMBOLS:
111575 F11ww1nn AAAAA.
111576 AAAAAA AAAAA. LI it
111575 000104 00068.
111702 '55 00054.
140000 015500 07040.
ACTFMH 002435-R CSTHUM.0001011
ARGPUT 075576-R CSTP. 001001
ARGSTK 030755-R. CSTRGP 000010
klr;TKMIX?000400 UtilHLN HumiLm
AVLLUI Lniuu:5 1.:.!--irciU 000004
BATABD 003401 C5TS2 0110004
EMXHB2 000004
EMXHFD 000400
EMXNSO 100000
Emmvp 001mm-I
Erin-21- 0u21100
EMXTRL 010000
uHINu. 10430b-R. L5 I IS ouuud2 FMX.',iTC 004000
BATOVF.u0H4H1 ublvDu.000040 EMXVVV 000001
BATREJ.104512-P. C!;TUD. 000[7140 EMX:HF 004000
BOTST1-,.027756-R. OBT7- 000002 EMX0VD
B$FNH. OUUU2LI L'zil7EH.U2UhUM ENCHT.
L=4-4-tif. 11 11111 CUPIDX.002406-R. ERRCDE
B$MUL- 011111140 GWPHDE 002434-R. ERRnR.
B$HOT. A0A100 DErPT. 000056 ERROPF
B$PUBH-010000 DIRERR? 110032-R. ERROR?
BSFUBL.004000 DHom AAAn 10 ETX.
EISPUFH.100000 DPEMX. 056754-R. EXIT.
B$PUFL?040AAA EIX1:HT 11111111113 FAL.
BSSUC. MMMHH ELSCLS? 0001107 FALAD.
CETEMX-055220-R- ELSMSK 177751 FALMSZ
CET5B- 054354-P. EMALLti 00000.'i FE5ERR
nFALS. 002156-R- EMACUT 001700 FLDC-
CARCHT-110014-R. EMAMSZ 015000 FLIXMK
1LBRE0-000400 EMAOS2 110000-R. FLIXSZ
nLSEMX?057020-R. EMATSZ 110002-R. FLUCL!;
[L III 001401 EMBOLS 000004 FLHI7HT
CLSOLY-001001 EMBOUT 001130 FLUID.
CHDODE.104304-R. ENBMSZ 004400 FLU IDX
CORUHK.00:2001 EMBOSE 110004-R
CORUPT.002401 EMBTS2-1101105
CPIXMK.177770 EMCMS2-001000
CPIXSZ-000010 EMCOS3-107775 -R.
COLBS. 002144-R. EMCTSE-107774 -R.
CSTCET-100000 EMX 020354-R.
L5 I LIP' 11111151111 EMXCHF-020000
n9TDT. 000001 EMITF.010000
C!,;TDW. 000200 EMXEXF-000001
n5'TEFM.010000 EMXFDB-051572 -R.
OSTEP- 004000 E1151-DC-002000
OSTER. 002000 EMXLGT.017354 -R.
0sTPIIr?FinnnIA EMXMCD-000002
rSTFDr.000100 EM5:MCF-001000
08TMIH.000400 EMXMS2-015000
AAAani L1151-lIV.0411111-lU
rSTHF. MHM1123 EMXHB1 000002
FLUHDE
FLUTBL
FLUTYP
FMD IDX
FMERSE
FMIXSE
RI-11=LO
FMT.IFSZ
FHPOSZ
FHPE2 005734 HMRHOF
IFFXET? 002142-R HNHASK
FIRXPT 002136-R HODEA 002446-R
CF 511 027754-R HOPES 002450-R
HHuLum
000004
1114.512-R.
110154-R-
110124-R.
106640-R
000003
110335-R
017450-R
A1 77,70-R.
000500
11UU72-R
177775
177740
000040
000001
000015
104342-R
11005.-R
00?4722-R
055154-R-
052070-R.
002425-R
000400
000001
002132-R
000400
OTO.OBj;1
HSZ 065355-R
ILLCHR 111552-R
IHCLUD 055375-R
IN.LvDu 11111111111
1NIEPW-056212-H
IHTRWD 177777
IOSB 104336-R
LEXTB1
LEXTB3
LOGCLS
LbS
LI-LU
LTEMD-
LTPRX.
LTSKP-
LTTOK.
MIHEMX
MR.
MSGOUT
HAOEX.
MDLILLK
HDBKW.
HDCHR.
NDFLID
H D F ME H
HD FilH ?
HDFMS?
HDFSA
HDFSAB
H D it:
HDS I E ?
HD TRM
HD TVP ?
HFALE ?
H E MX ?
HFLDC ?
H I X:CH T
054554-R
055554-R
000002.
055364-R
000400
001000
002000
004000
010000
056355-R
000100
055340-R
002154-R
MMHHHh
000002-
000014
UMHHHh
? HPIME7.010000 ONDNXT.071A-R
? HP2MS7'.035000 ORDSIZ.000010
? HP205'2-000153 OHFLS 040000
NA.3m5&1-1110524 lOMMUm
? HH.31JSZAIMUI2b UHOPUD-1300000
III FE 002145-R. OHPOOL-0307711-R
? HULFMH 002454-R. OHBTE 00000
? HUHRHG 070050-R. OHTLST-044772-R
? HVDEMX 056170-R- OHWIH 000001
HVLDC- 1
ORYBAD.002001
? HXTHDE 002430-R. ORYBUF-040770-R
OVECLS 11002o-R. OR'iTEL.11.1132-R
PARBUF 051550-R. ORYEND.044770-R
PARSER 075075-R- ORYFAS-002444-R
PAR1 110550-.R. ORYMA5.017355-R
HAR2. UNY115 1-10244Z-H
? PA SSI. 0112125-1-. ORYMSZ-0110031
PD 000070 ORYHO 11143 111-U
FFLU. 052114-R. ORYOK 00Ann1
? PFLUMD 11542E6-R. ORYPS 002440-R
HHBKHG ur,F,42h-R- URYZ HU 2U1-111
FOLEHD 016392-R. OTFORM.100554-R
POOL. 002462-R- RHGCDE-055402-R
PRXFLG 002142-R. SDFLG 002134-R
PSTKMX OAA024 !=;DLB. 026175-R
OCL. 017375-R. 1-
DES
025552-R- SDLBE 002152-R
OEXAD. 017354-R. SDLBS 002150-R
OEXFPV 174000 SEGOP 177770
OEXFSV 134000 SLBEG 062074-R
UEXFWV 0740110
OEXMS2 000f=.0F1 SLBMSZ.01107.54
SHODE 030750-R
OLB. 025460-R. SPOIL . 103536-R
OLBAD- 017350-R- SPXCT 002143-R
OLBMSZ 000916 SPXPT 002140-R
OLS. 017352-R- SPXSTK-027354-R
OLSBAT.017355-R SSO. 111512-R
OLSPUF-017352-R START3 104355-R
OLSHD. 01752-R STEP- 111455-R
OLS1E. 010000 STK1 000200
OHARG1 00A002. 15T1- 2. 000400
ONARG2.00onA4 STX. 000002.
OHATTR.000006 SY1-'1T1-11-i.076567-R
ONDE1-1T.001000 SZCAL1 105574-R
OHDLST-0407ZA-R. -mna.K.Anno04
4
CIA-RDP85-00514R000200010001-
GEHOLS 075520-R- HODEC- 002452-R.
UPN Is: 100226-R. HOTFLG-002130-R.
GETHDE 054234-R. HPECHT-000144
US ft 000100 HPEVSZ.000043
Approved For Release 2005/08/22:
TDABMKAA77F;4
TDAMAD.007760
TOBBLK-000007
TDBCLS-00UUU5
TDBMAD-007775
1DBOSZ-000074
TDCBL1-:.000018
TDCMSZ-004000
T01-AHD-0011007
TOKETX-000017
TOKFLH.AAP0011
TOKFMD ffloon2
TOKHOR 000005
TOKLP. 000014
TOKHOT 0011003
IUKUK. HHHHI14
TOKPXP 000015
TOKPXS 0011013
TOKRXW 000011
TOKRP- 000015
TOKEBD 000001
TOKSTK 027353-R.
TOPSTK 03075E,-R.
TRMCUT 000040?
TSKHAM 104300-R.
TSTKMX 000400
TTABLE 020150-R.
TTBMSZ 003270
TTSIZ. 017372-R.
VDCCHT 110016-R.
VEC1MX 0110375
VEC21'4X 000375
VEC3MX-00121125
VI- 017360-R.
VIBCUT.000035
vIeosz.ilnoin-R.
VIBTSZ.110012-R.
VILGT. 017756-R.
VIHXT. 051735-R.
vielm!=i2.,..onn4nn
VIIMEE.000400
-12MSZ.000400
5'!,51"I55. 11111-14111-i
VLDC. 177775
WRTEM5:.051252-R.
OTP:TSr,;104 MEMORY ALLOCATION MAP MB PAGE.5
BUFFER 27-MAR-8O 1cApproved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
XTABLE.023450 XTSIZ. 017374-R. ZVDEMX 056154-R. SEDMSG.0655E6
XTBMBZ.002010 ZERO. 104344-R. ZVLDC. 177772. .MOLUN.104740 -R.
*** TASK.BUILDER.STATISTICS:
TOTAL.WORK.FILE.REFERENCES: 72140.
WORK- FILE. READS: O.
WORK. FILE.WRITES: 0.
SIZE.OF.CORE.POOL: 6634. WORD S.(25. PAGES)
SIZE.OF.WORK.FILE: 4864. WORDS.(19. PAGES)
ELAFSED.TIME100:00:30
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
OTOSUM. T5r 40 MEMORY ALLOCATION MAP TKB PAGE 1
27-HAR-80 IE,Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
TASK. NAME. : OTO
PARTITION NAME HSTSPR.
IDENTIFICATION.: 0736
TASK. UIC. : C20,3].
TASK. PRIORITY.: 45.
STACK. LIMITS; 000236 001235 001000 00512:
PRG.XFR.ADDRESS; 112200
TASK ATTRIBUTES CP.
TOTAL.ADDRESS.WINDOWS; 3.
TASK. IMAGE. SIZE. : 21760. unus.
TASK.ADDRESS-LIMITS; 000000 124737
R-W.DISK.BLK.LIMITS: A00002 000126 000125 00085.
*** R00T.SEGMEHT; BUFFER.
R/W-MEM- LIMITSI 000000 124737 124740 43488.
DISK.BLK,LIMIT8; oAciAr12.AAA121,7. 0111112 00085.
MEMOP?I'..ALLOCATION SYNOPSIS;
SECTION,. TITLE?IDENT, FILE,.
. BLK::(RW,IfiLCL).REL,CON) 001276 001730 00984.
001236 nn0732 00474. .MAIN: PRTCDE:08...U1
AAAOLS:(RW,I,LCL,REL,CON) An316 110011.1 011112;
003166 11AA150 00112: .MAIN: OLSCDE:OBJ;1
AABUFS:(RW,L.LCLfiREL,CON) 171072:34F, 1152046 21542:
00334E, 052046 21542 .MAIN: BOF7-ER:OBS;1
BSTOFF:(RU.I,,LnLfiABS,r0H) AHHHHH HHHHHH HHAHH
HHHHHU MIIHMHH HHHHH. .MAIN: BUFFER:OBJ
000000 000000 00000. OTO OT08:08j.:1
AAAAAA AAAAAA AAAAA. ni SrDE:08j,:i
AAAAAA AAAAAA AAAAA. .MAIN: FLUCDE:OBLII
AAAAAA 000000 OAAAA. .MAIN: EMXEDES:08J;1
u00000 OUbUOU 0000b. .MAIN: NUMRHG:OBj;1
HHb[11,1[1 HHHHHH UHHOO, PARSER PARSER:08j;1
AAAAAA AAAAAA AAPAA. QUERY OTFORMOBJJ1
muumbu HHHUH11 HHHHH. .MAIN: USTAB:OBJ:1
0000u0 000000 00U00. .MAIN: PHFCDE:00J:11
rCET. :(RW,I.LCL,REL,CON) 055414 000900 00128.
055414 HOH,L1-1H oul?. .MAIN: EMXCDES:08j;1
CSTAB :(RW,IJ.LCL,REL,CON) 055614 n01400 00768.
055614 001400 00769. _MAIN: CSTAB:OBL:1
DHFIrF clii I L':L AE lflHl AnAnnn AAAAAA Affinn.
UMi-IRMA Hmmi,imm HHHHH.
000000 000000 00000. OTO
000000 000000 00000. .MAIN:
HHHHHH k11u uiili HHHHH. .MAIN:
000000 AAAAAH ?AAA?. .MAIN:
000000 000000 00000. .MATH:
AAAAAA gooaao 00000. PARSER.
AAAAAA AAAAAA AAAAA. ouERY.
? BU1FER:OB..3:11
OTOS:08.3.:1
OLSCDE:O8J.7.1
FLUCDE:08J;1
EM1OT1=P.M,T,OT1
TASK.BUILD.PARAMETERSt
MOR>TKB.IDOT1TKB:CMD.
TKB>OT1,LP=OT1,MSGOUT.
TKI=4?./.
TKB>TASK=OT1
TKB>S.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA?A.TRAHSLATO T MAROM1110 27?M?
ARW1
TASK.IMMEDIATES-AND.VARIABL CES.. Approved ror eTi'aseFbb5168/22 : CIA-RDP85-00514R000200010001-4
41 .SBTTL-.TASK IMMEDIATES.AND.VARIABLES.
42.
48
44
45
duiduu4
LUNFIL.
4
.:LUH.DEFINITION.FOR.FCS.
45
MMV1411,12 ?
EFN2
=
2.
;EVENT.FLAG.TWO.
47
*001000
BLOrK
=
512.
;BLOCK.LEHGTH.(BYTES)
48
111111111H
BITHIB
BIT15
FIRST.NIBBLE
49
SECOND.HIBBLE
511
51
52.
01710838
IT Ti
72.F1
;TDCT.OFFSET.OF.FIRST.FSO.STATE.
53
1710003
FREE'
35
;TDCT.OFFSET.OF.FIRST.FREE.STATE.
54
;
55
56
177632.
177630
ERI82
ER 104
=
?102.
?104.
..
;HODE HOT.IWOUFUE
;NODE.ADDRESS.NOT.IN REGION.
57
177616
ER114
=
?114.
HOFREE.HODE8
5R
177614
ERI 15
=
?115.
:H1ODE.NOT.LONG.FHOUGN.
59
8.10524
STPBLK
/:7,
;#.STATES-PER.BLOCK.
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSA-A.TRAN- OR.(OT1)
LOrAL.MACRO5
51
53
64
27 MAR. u:o7 1
MAC? - M1110AP-p-r or rease ziou5/u2
Riived--Ke8/201A-RDP85-00514R000200010001-4
.SETTL ?LOCAL.MACROS.
,
55
.MACRO.
GETHX.T.
A,?B,?C,?D.
MOV.
,,XTOFF,A.
;REG.?OFFSET.OF.HEXT.FREE-TDCT-STATE.
CMP.
1:11TDCMAX.
;TOCT.BUFFER.OVERFLOW.
68
ELT.
B.
:BRANCH .IF NO.
53
CMP.
ExTADD,4TDAMAD
.:TO.MEMORY OVERFLOW
7171
BLT.
C.
.:BRANCH .IF NO.
71
JSR.
P0,ERROR2.
;MEMORY.OVERFLOW.
CMP.
LOWOFF,*
;ARE.ALL.STATES.IN ELOCK.1 COMPLETE?.
73
BGE.
0.
;BRANCH .IF YES.
74
JsR.
7C,ERROR2.
;TDCT.BUFFER.NOT.BIG ENOUGH.
75
0:
JSR.
PC,WRTTDC.
:I.AJRITE.NEXT.BLOCK.OF TDCT.
75
JRR.
PC,MOVTDC.
;COMPRESS.TDCT.BUFFER.
77
NOV.
HXTOFF,A.
;RESTORE.HEXT.FREE.TDOT.STATE.
f0 E:
79 ENDM.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRANSLATOR.(0T1)
THSK.BUFFERS-
Si
R2.
MACRO-M1110_ 27-MAF.u0 L3;07 paaa
ApprovedFOr Kefease 20-05/08/22 : CIA-RDP85-00514R000200010001 -4
.seTTL- -ASK BUFFERS.
HHHHHH
.PSECT.
DATA
84
85
oh
HHUHUM
IOST:
2.
;IO .STATUS BUFFER.
H(
mmmmu4
OAAAAA
PAPBUF:
.WORD
.2.X0IO.PARAM, 1 - BUFFER .ADDS.
oo
UUUULIO
IJUUUUU
.WORD.
0
Ii 2.- BUFFER.LENOTH.(BYTES)
H9
HHHU1H
PAHHHH
.WORD
7
c.10
9i
972.
AAAA12.
AAnoi4
111:11111 lb
A01711717171
nnAnno
FincinAi
HHHHHH
AAAA0A
HIBMSK:
H1BPOS:
.WORD
.WORD
.WORD
.WORD.
171
ii ii
4 - VIRTUAL DISK ADDS (HI)
5 - (LO)
;HIBBLE (I OR 2) MASK.
.r.CURRENT NIBBLE POITION NUMBER-
94
00002?.
HHHHHH
RIO:
.WORD
ki
;COLUMN COUNTER.
95
ANAL124
HHHHHH
Ril:
.WORD.
A
:CURRENT TDCT.STATES OFFSET
96
000026
000000
RI 2:
.WORD.
0
;CURREHT.TDCT STATE.7'E -ADDRESS
97
Finni;HA
VVEC::
VI1MSE+4
:TEMPORARY BUFFER FOR.V -VECTOR
98
001048
066563
000000
.RAD50
/0T;
99
AA117144
RECBUF:
.BLKW
:3 ?
.:SENDING.TASK.S.NAME
lOO
001050
SHDBUF:
.BLKW.
13.
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
401!
FSA-A-TRAHL OR (0T1 MACRO
DFB-AND-FD9- ! FINITIONS-
Mil leAPtirditeti-ForiReitiase201)5108/2.1A-RDP85-00514R000200010001-4
102- .SBTTL- DP9-AND-FDB-DEFINITIONS-
103
104
105
105 .MCALL- MOUTSS,EXIT$S-
11.17 .MCALL- OTIM$8,RCVDSC,SDAT$C,RSUM$C-
108
1119
110
ii1
112-
113
114
115
118
117
118
119
120 001102-
121 001242-
122-001242-
123 001242
124 001242-
125 001242-
126 001300
FDB-DEFINITIONS-
.MCALL- FD8DFZ,FDATSA..FDRCSA.,FD8K6A,FDOPSA,FDOP$R,FSRS:$
.MCALL- FINIT$,OFNB$U.OPENSR,.CLW:E$
.MCALL HM8LKT,FDBK$RfiFDATSR,,WRITS$,WAIT$
FDB-FOR-EMATRIX-AND-TDCTA-
EMAFDELI:FLIETF$
FDAT$A
FDRC$A FD,RWM-
FDBKSA EMALGT.,512:?EFN:2fii0ST-
FDOP$A LUNFIL,EMADNB
EMADHB; NMBLKS EMATRIX,EMA,,SY,0
hbNb1i1 11.?.?1)i-IIA
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
ESA-A-TRANSLATOR-I:DTI)
MAIN-PROCESSING-L8OP
128
i29 0ukfluuu
MACRO-M1113 27 rikR. 2,1 PaL.E
LAPprifi'vea-F6rXerease zou5m8/22 : CIA-RDP85-00514R000200010001-4
.58TTL- MAIN PROCESSING-LOOP-
.PSECT- CODE
-130
131
RECEIVE-PACKET.FROMOTS.
132
133 00051510
START:
1.34 000000
RCVD$C OTS,RECBUF,CODEADIRERR-
135 808014
EMITS
135
137
? READ.EMATRIXLEMA FILE-
138
139 000020
012700
001102'
MOV. *EMAFDB,R0
;RO->FDB-
140
141
ZERO.OUT-FILENAME-BLOCK.
142
143 000024
0527180
000102
ADD-*F:FNB,R0
;RO->FNB-
144 000030
012701
000036
MCN. *S,FH8,,R1
;RI ?BYTE LENGTH-OF FHB-
145 000034
006201
ASR. R1
;R1 ?WORD LEHGTH.OF FNB.
146 00003F,
0051712121
5$: CLR.
147 000040
077102'-
SOB-R1,5$
148
149
LOAD EMWS-FID, DEVICE-NAME-AND-UNIT NUMBER.INTO-FNB.
150
151 000042.
012700
001102'
MOV. *EMAFDB,R0
;RO-> FDB.
152 000045052700
AAA 1A2
ADD. *F:FHEI,R0
;RO-> FNB-
153 000052.
154 AAAA55
012701
815150
001050'
AAAAAA
AAAARA
*SHDBUF,R1
N,FID(R1),N,FID(RO)
;R 1-> DATA RECEIVED FROM- OTS-
;FID-
155 000054
015150
AAAAA2
AAAAA?-
MOV. N,FID+2(R.1),N;FID-4-2(RO)
155 AA0072.
01515A
000004
APIAA32
MOV- N,FID+4(R1),N:DVNM(R8)
;DEVICE.NAME.
157 000100
016160
000015
000034
MOV- 1-1,F1--1ER(R.1),HJJNIT(R51)
;DEVICE.UNIT-HUMBER-
158
159
OPEN EMATRIXEMA FOR.READ.
160
161 000106
162-000124
103010
OPEN$R 0EMAFDB-
BCC-1$
;OPEN-FILE FOR-READ-
163 000126
116001
000052
MOVB. F:ERR(R0),R1
;RI ?FCS-ERROR.
164 000132-
010157
001565'
NEN. R1,PAR2.
155 12121213e
CALL FCSERR-
155 000142
000167
006512
JMP --IT
157
158
READ.VI-
159
1(0 00014
012(6(
UUM1.111.1
HHHHH4'
1$: MOV. *EMALGT,PARBUF
;PAR-1 ?BUFFER-ADDS
171 11100154
012757
AO1AA0
OAAA05'
MOV. *512.,PARBUF+2
;PAR-2--BUFFER-LENGTH.(BYTES)
172 A00152
012701
A00000G.
MCN. *IO,R.VB,R1
?TO-FUNCTION-CODE.
1($ 000166
012(02.
uuuuub
NOV. *5,R2-
;R2--NO: OF-OIO-PARAMETERS-
174 AAA172
011270.3
AAAAA4."
MOV- *PARBUF,R3
;R3->OI0-PARAMETERS-
175 J175
CALL- ?X0I0.
175 000202
103010
BCC.
177 000204
116001
000052
F,ERR(R0),R1
;RI ?I0-ERROR.
170 AAA21A
A1A157
001555'
MOV. RI,PAR2.
179 000214
CALL- FCSERR-
180 000220
000157
005534
JMP- EXIT
181
TEST-TO-SEE IF THERE IS AN EMA-
183
184 000224
005767
000010'
2$: TST. EMALGT-
;BLANK-EMA?.
Approved For Release 2005/08/2IA-RDP85-00514R000200010001-4
F5A-A.TR0N111pOR.WT1)
MAIN.PROCES8 1G.LOOP
185 000230 001034
IRG
187
188
189 000772-
190
191
192.
MACRO.M111 2 -MH am 1.3;Ifh P1.1.a-G__?.1u 1
ElApp7rov' Approved Keie'ase 21005/08/2.1A-RDP85-00514R000200010001-4
ENE. 4$ ;BRANCH IF NO.
CLOSE EMP FILE.
CLOSES *EMAFDB.
SET .UP BLANK?TDCTA.
193
000242.
015702.
001505"
MOV. FSOOFF,.R2.
;R2 .?NEXT FREE.TDCT OFFSET.
194.
00024f:,
012762.
AAAAAA
AA167.A'
MOV. 00,TDCT(R2)
;SEG .1
195
00A254
016762.
001610'
001632
NOV. NXTADD,TDCT+SEG2(R2)
196
AAA262.
012762-
040000
001634'
KgV. *STSINX,TDCT+SEGZ(R2)
197
198
WRITE.TDCTA.
199
30171
FinA37A
CALL. OPNTDC.
;OPEN.TDCTA.FILE.
2P1
000274
CALL. LFTTDC.
;CREATE.TDCTA.
21712.
203
SET-UP SHDOUF.FOR.OTS.
2514
205
AA5AF,7
APARPOr.
CL R. SNDBUF+SD:SEC.
20G
000304
AA5A1:7
AAAAAAr
CLR. SNDB1JF1-SD,TIC.
20,
000610
016(6(
001610
buu000L.
MOV. NXTADD,SNDBUF-HSD,FSA.
200
000316
000167
M00524
JMP. OT1.7
2A9
210
READ.EMA.
211
212
0007.72.
012767
EIA1A1A'
000004'
4
#FMA,PARBUF.
;PAR:1 =.BUFFER.ADD9
213
00037,0
016701
000010'
MOV. EMALGT,R1
;Fe.1 ?EMA.LENGTH.IN.BLOCKS-
214
00117134
A7A127
AO1A0A
MUL. *512.,R1
"Ri =.BYTE LENGTH.
215
000340
010167
0080Lle."
MOV. R1,PARBUF+2.
;PAR.2.=-FILE.LENGTH
216
AA0344
A12767
AO0A02
AAA014'
MOV. #2,PARBUF+10
;START.READ.AT.VIRTUAL.BLOCK.2
217
000352.
012701
0000005
MOV-
;R1 =.I0.FUNCTION.CODE.
210
AAA356
A12702
000005
MOV. 15, P2
;R2 .-.HO: OF.OIO.PARAW9
219
000362
012703
000004'
MOV. #PARBUF
1-1-11-e.HMtitKtb.
P2A
CALL. .X0I0.
221
0007.72
103010
BCC. 3$
277
AA0374
116001
AAAA52
MOVB. F.,ERR(R0),R1
;i-1 .--..10.FRROR.
800400
010167
001566"
MCN. R1,HAR2.
224
000404
CALL. FCSERR.
225
000410
000167
006344
JMP. EXIT
725,
CLOSE-FILE.
-
FlAP414
3$:
CLOSEs PA
270
OPEN.FILE.FOR.TDCTA:FSA.
953
0A042A
CALL. OPNTDC.
234
IN TRANSLATION PROCESS.
235
000424
01.
1: GTIM$S *GTIM1
;GET.TIME?PARAWS AT START.
AFIA47.1.
012703
AAAAAA"
MOV. oVMASK,R3
->VMASK =.VI.
23q
000442.
016763
MMIhnf
UHUOUb
MOV. EL'JjEDF.,H;ELSE(R3)
LOAD ELSE DEF., ADDS INTO-VMASK.
24A
AFIA4511
Anenin
CLR. H,POS(R3)
;ZERO.OUT.NIBBLE.POSITION.NO; FIELD-
241
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRANSLATOR-(0T1)
MAIN.PROCESSING.LOOP
_
: RU?' 77-M^R-R0 3 r,07 ? ?
I 1111-APprovHed For'ReVeaSe tob57618/22 : CIA-RDP85-00514R000200016001-4
242.
243
244
245 000454 000167 000070
245
242497
246
250
251
252000450 01670A
253 000454 07.2760
254 000472.
255
00 1505
000001
001634'
755
257
258 000474 122760 000100 001635"
259 00171502. 001405
260 0005114 - 2757 00m_1 001554'
261 000512. 0001F,7 0062
262-000516 016007, A01632"
263 000522. 126753 000020' 000010
254 000530 001011
21;5 000532.
255 000536 103004
257 01710540
000544 000167 005210
_
??-'5A
270
271
2e2
273 000550
274
275
276
277 000554
270 000562
279
200
281
052757 AAAAA5
005267 001604'
FOR-FIRST-TDCT.STATE.GO.DIRECTLY.TO.MASKEM.
R3-> VMASK.
JMP. OT1.5
IHNER.LOOP.TO?PROCESS-INCOMPLETE.TDCT.STATES.WITH.SAME.NIBBLE.
POSITION.NUMBER:
TEST TO SEE IF FSA STATE POINTED TO.BY.FSAOFF-IS.COMPLETE:
OT 1.2: MOV.
BIT.
BOFF-
FSAOFF,R0
*BITO,TDCT-FSEG3(P.0)
OT1.6
;RO =.0FFSET.OF.CURRENT.TDCT.STATE.
;COMPLETED STATE?.
;BRANCH .IF YES.
CURRENT-STATE.IS INCOMPLETE: CHECK ITS.POSITIONJ1UMBER:
CMPB.
El EQ
MOV.
?JMP.
IS: MOV.
CMPB.
SHE'
CALL.
'BCC.
CALL.
jMP.
,*100,TDCT+SEG3+1(Ro)
is
*1,PAR1
ERRINT
IDLT+5E02(R.0),R3
OT1.5
II..1.5
HODERR
EXIT
;SHOULD .BE AN.INDEX.STATE.
;BRANCH.IF OK.
;ERROR. !II!
;0:3->NODE?CONTAINING V -VECTOR.
;DO.NIABLE POSITION.
;BRANCH .IF NO.
;GENERATE.NEW-VMASK.
ROUTINE.TO-GENERATE-MEW.TOCT STATES .BY MASKING THE.E -MATRIX.
WITH-THE-NEW.VMASK:
OT1.5: CALL- MASKEM.
;MASK.E-MATRI:.
CURRENT.TDCT.STATE-IS?COMPLETED: GO TO NEXT STATE
001506 01?.6g ADD. oLSSTAT,FSAOFF
INC
FSAADD?
.
DO.UNTIL.FSAOFF.IS.> OR.=-NXTOFF.
CHF. FSAOFF,MXTOFF.
BLT. OT1.2.
CURRENT.NIBBLE.POSITION.IS DONE.
UT1.4: INC. NIBPOS.
COLL. SWAPHP.
000566 026767 001606 001612
5n51574 002731
284.
2A5
2ef;
287
I Li
AAA57F. AA52F,7 AFIAA2W
AAAF.A2.
292.
2B3 000505
294 Ouubiz.
295 AAA570
297
2g8
A15717-10 001.502"
032750 000001 001534' IS:
;FSAOFF=OFFSET.OF.HEXT.TDCT?STATE.
;INCREMENT CURRENT.TDCT.ADDS,
;DO.INNER?LOOP.
;INCREMENT NIBBLE?POSITION.COUNTER.
SWAP. NODE POOLS.
DO.UNTIL.LOWOFF.POINTS.TO.AN.INCOMPLETE.TDCT.STATE, OR.UNTIL.
LOWOFF > OR.=.NXTOFF.
MOV. LOWOFF,R0
BIT. #BIT0,TDCT+SEG3(R0)
BON. 2$
;RO =.0FFSET.OF-LOWEST?COMPLETED?STATE.
;STATE.INCOMPLETE?.
;BRAND- LIE YES.
? INCREMENT.LOWOFF TO.POINT.TO.NEXT.TDCT?STATE.
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSA-A?TRAN- OR-(OTI)
40,
MAIN-PROCES5 NG.LOOP
MACRO.MI ' lApiiied0a-Por Re1diseF2611510131201A-RDP85-00514R000200010001-4
299
000622-
052700
cooss6
ADD. *--L$5TAT,R0 ;RO = OFFSET OF NEXT TDCT.STATE.
7iFin
0E-1052
17105-21,7.7
AR16PA'
INC. LoLiADD. ;INC; ADD S
301
AAAC:72.
020057
001512"
CMP. RO,NXTOFF. ;IS.LOWOFF > OR = NXTOFF ?
302
Aff0;,,,6
002755
BLT. 1$ ;LOOP IF NO
303
000640
000405
BR OTI.3 ;TRANSLATION TS DONE
304
305
RB --OFFSET.OF.LOWEST.INCOMPLETE TDCT-STATE.
306
30r
000642-
010067
oalf
2$:
MOV. RO,LOWOFF-
308
000546
010067
001606'
MUV? RO,FSAOFF.
309
AFIA62.
000167
177602
JMP. OTI.2-;LOOP-ON.LOWOFF.
310
311
TRANSLATION.PROCESS.IS-COMPLETED
312.
7'72
000656
OT1.3: GTIM$S. *SECBUF-
314
315
WRITE.FIRST-OF.REMAINING-TDCT.BLOCKS
315
317
000570
CALL. ITTRTTDC-;WRITE 1ST BUFFER.
318
, 9
WRITE.RFMAINING-TDCT-BLOCKS-
:520
321
000574
012702
Umumm3
MOV. *VMASK
499
001.524
012705
000030"
MOV. *VVEC...R.5
;R5->V-VECTOR.
500
001530
005055
000012
[:LR N,LGT(R5)
;CLEAR.LENGTH.FIELD.
501
00157.4
052700
AAA014
ADD 4N,VEC,R0
;RO-MST.OFFSET.IM.VMASK.
502
001540
052705
000014
ADD *H,VEC,.P5
;R5-> 1ST-OFFSET.IN.VVEC-
503
001544
012702-
000001
MOV ftBI1O,R2
;R2.-11IT.0
504
001550
012004
MOV- (R.0)+,R4
;R4 =.E-MATRIX.OFFSET-
505
001552.
070254
001012'
BIT R2,EMA-FEMXNB1(R4)
; BIT-SET?
506
001556
BOFF 1$
;BRANCH.IF NO.
507
001550
005257
AAAA42'
INC N:LOT+'
;INC.LENGTH.COUNT.
508
509
001564
001555
010425
077110
1$:
MO511 FlV
;SAVE.OFFSET.
;LOOP
510
0171157171
RESTOR. R1
511
001572.
005757
000042'
TST N,LGT?VVEC
;TEST.NELLVECTORS LENGT
512
Oulbrb
001404
BEO. MSK,12
;BRANCH-IF ZERO-
513
001500
CALL IHTERW.
514
515
PROCESS. FLU MODIFIER5 :DOC. TYPE,. ZONE, SUBZONE) IF.ANY,
515
51.7
001504
CALL. FLUMD.
512
519
001510
MSK,
MASKEM.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FSA-A.TRAH5LATOR.COT1) nHLKu-nill
MASK-E-MATRIX. 13,46-iii4i1Pbr kg-67h-ObSiei8/22 : CIA-RDP85-00514R000200010001-4
521
522
524
535
526
r
528
52R
560
531
532
555
534
555
555
537
538
559
540
541
542
543
544
545
545
547
54R
549
550
551
=C70
555
554
555
555
557
55.5
559
560
561
552
hh6
564
565
566
001612.
001614
0016.2U
001F,24
001550
001554
001640
001542.
00154.5
001550
001554
001656
0A1550
001554
001666
001572.
A01700
001705
OR1.712.
001716
AR1722.
001724
RR1732.
5113 1734
AA1740
002016
AR2026
AA7A32.
002035
557 RA2040
558 AR2044
5.5.5 00204.5
570 002052.
571 002055
572-002050
575 002A52.
574 002064
575 HHA-lhh
576 002072-
5?? 00217-5
R10300
012702
012705
00501:.,5
052700
052705
012004
050264
005257
010425
077110
1305767
A01002
000157
055757
115357
105267
A12701
103114
025352-
001504
1318257
016701
0113457
062701
062704
011124
O16221
016705
010367
O11105
010524
010521
011114
Hh2.(24
R12721
005257
1:1514513 Li
0u0030"
000012
000014
000014
001010'
000042'
000042'
000644
000015'
ononin
000040'
ARRA32'
ARnA42.!
AAAR4A'
000005 oeloceis
00 1575
001510'
00002(3'
HHHHH2
130000
001610'
.SBTTL. VLDC COLUMN.
rHErK.VLDC.COLUMH.OF.E-MATRIXA PROVIDED.
BEEH.COHSIDERED:.
Ri .-.HUMBER.OF.ENTRIES IN.VMASK.
VDC;
VDC:1:
MOV
MOV.
MOV
CLR
ODD
ADD
MOV.
B I T
BOFF
I HC
-Ii: 11.
SOB
IS I
AHE
UI5
MO--.18
IH CB
R5,80
*EMXVDCR2.
*VVECR5
(I,LGT(R5)
oH:VECfiRA
*H:VECR5
(R0)+,84
82,EMA(R4.)
is
H:LSTA-VVEC
R6-1. ( F.;
Ri , VD C ; 1
N:LGT+VVEC
10$
11$
NIBMSK,N:LGT+VVEC
N:POS(83),H6P0S+VVEC
N,P0S+VVEC.
HEW VECTOR GENERATED FOR VLDC COLUMN
MOV.
CALL.
BCC.
*VLDF:,R1
HSCAN.
2$
IT-HAS NOT-ALREAD
;80->VMASK
;R5-> V -VECTOR.
;CLEAR.LENGTH-FIELD.
;80 ->1ST-OFFSET.IN.VMASK.
;R5 -> IST.OFFSET-IN-VVEC.
;RA ?E-MATRIX.OFFSET-
;VLDC.BIT.SET?.
;BRAHCH.IF-NO.
;INC-LENGTH-COUNT.
;SAVE-OFFSET
;LOOP.
;TEST.NEW-VECTORS.LENGTH-
;BRANCH.IF-HOT.ZERO.
;JUMP-IF.ZERO-
IIHSERT.HIBBLE-INDICATOR.FLAG-
;LOAD.HIBBLE POSITIOH.NO,
;IHCREMEHT-HIBBLE.POS, HO:
OF-E-MATRIX: HELI.VECTOR.IH.VVEC.
I(11->HODE.CHAIN-
;MATCH-III.THE.VLDC.CHAIH?.
;BRAHCH.IF NO.MATCH.
MATCHED.A.VLDC.VECTOR, SEE.IF.CURREHT.ELSE.DEF: STATE.IS.SAME.AS.
STATE.ADDRESS.IH MATCNINC.HODE:
R2 ->MATCHING NODE
86 ->VMASK.
CMP. H;ELSE(R3),H.ELSE(82)
BED: . 3$
MOV. R2. r:
GETHXT. R4.
MOV. 811,P1
MO-, . h/4. Fl
*TDCT,R1
*TDCT,H4
(R1),(R4)+
NLELSE(R2),(R1)+
R3
NXTADD,R3
R3,R12.
(R1),R5
R5,(R4)4-
R3,(R1)+
(R1), (R4)
*BIT1,(R4)+
*STSCNGIELSBIT,(R1)+
;COMPARE ELSE.DEE: ADDRESS
;IF SAME
;RESET.CURRENT VLDC NODE ADR
;GET NEXT OFFSET
; R1=OLD TDCT? R4=NELL TDCT
;RESE1 CURRENT UFFSET
;XFER SEG1
;SEG1 OF-CHANGE DEFAULT
;R:6=HEXT.ADDRESS.
;RESET.CURRENT.STATES.ADR?
;R5=NODE.ADR.OF.CURRENT.NODE.
;XEER.SEG2
;SEG1 OF.CHANGE.DEFAULT-
;XFER.SEG3
;FLAG.VLDC SCAN AS
OF.CHANGE.DEFAULT.
Approved For lieFease 2608166/2111p1A-RDP85-005i141401-64-k0-- M6001-4
?
FSA-A.TRAH!.. OR .(0T1) MACRO Hi
VLDC.COLUMN-
57e 002i02 062767 000006
579 002110 016255 HMMMUH
580 002116 016267 A00006
581 AA2124 bit2tr AAA005
5R7 002132 010365 000004
51=13 1710213E
554 002140 000167 000372
FIRF.
557
588
585 002144
-J_ jij
551
592.
593
594
595
596
557
598
559
600 002154
601 002232
602.002236
603 002244
604 002252.
E05 002256
606 002260
607 002266
608 002272
010267 001575'
000167 0003f12
H PCAFF
16Ap2p7r-otvled-rorWe're(ase 2605768/2.1A-RDP85-00514R000200010001-4
Alf=.7ni An11A24'
015154 00153171? 001630"
016751 001610 001630'
005261 001630'
022124
016164 00157.0.?
016102. 001630'
609 0022(6 U15703 001610'
610 002302 010361 001630'
6i1 -712306 022124
612.002310 016164 001630' 1301630"
613 002316 052764. 08001712 00 153S'
514.
615 002324 012751 120000 001630'
616 0027,37. 052761 A10000 001F,7,0'
517 111123413 1322124
518 002342 016757 001612' 000024'
613 002350 010457 001612'
620 002354 1111157112
621 17-102255 111U...6112 HMPHMfr
0027.52 015752 001510- HMIHM4
002370 010367 000036'
524 -02374 010367 000034'
S 002400 010367 00000f.l.
, 002404 016(E.7 00161A' 000004'
627 002412
62.UU2415 016757 001610' 000025
529 002424 AA5257 311315111'
SAM
631
67.7
634 002430 012701 000032'
ADD.
riLl I
MOV?
Mi-N?
MO V
RECTOR .
JHP
46,NXTOFF.
H:ELSE(R2),H:ELSE(R5) ;CHANGE ELSE .DEFAULT IH.HODE.
N:ELSE(R2),VVECI-H:ELSE. ;CHANGE OTHER.ELSE.FIELDS.ALSO
H,ELSE(R2),VMASK+N,ELSE-
R3,H.FSA(R.5) ;CHANGE NODE.FSA.LOC
R3
11$
ELSE.DEF4 ADDRESSES-ARE.THE.SAME; SAVE NODE ADDRESS.OF.MATCHING.NODE-
IN.C;VLDC AHD?COHTINUE,
3$: M:IV? ;SAVE.CURRENT.VLDC.HODE.ADDRESS.
JAR. 11$
DID.NOT.MATCH.A.VLDC.VECTOR: LOAD.CONTEHTS.OF CURREHT.TDCT.STATE.INTO.
NEXT.FREE.STATE.AND.MAKE.CURRENT.TDCT.STATE.A.CHANGE.ELSE.DEF.." STATE..
CHANGE ELSE.DEF, TO.NE7T.AVAILA13LE.STATE.PLUS.1, POINT.TO.HEXT.AVAILABLE.
STATF.AND.MERGE-VVEC.INTO.FLDC?HODE.CHAIN., GENERATE.ANOTHER.VVEC.TO.
REPRESENT.VLDC.SEO: HUMBERS.PLUS.SEO. HUMBERS.IMMEDIATELY.FnH flu INC
EACEKVLDC... AND.MERGETHIS.VVEC.IHTO.FLDO.CHAIN.
R2 ->HODE.AFTER.WHIOH.HEW.HODE-COHTAINING.VECTOR.SHOULD.BE.INSERTED.
R3 -> VMASK.
2$:
GETNXT. R4
MOV. 1311.111
MOV.
mnv.
INC.
CHF.
MOV,
SAVE
MUV.
MOV.
KEN.
CMP.
MCN.
BIS.
TDCT(R1),TDCT(R4)
1-114TADD,TD11T(51)
TDCT(P1)
1511+. '5.41+
TDCT(R1),TDCT(R4)
MR3
TDCT(R1),R2-
H( IHDD,R3
R3,TDOT(R1)
(R1)+,(R4)-1-
1DCT(R1),TDCT(R4)
11BIT1,TDC-f(R4)
*5T$CHGTDCT(1-31)
oEL5BIT,TDCT(111)
(R 1 ) + ( R4 ) -I-
MXTOFF,R 11
R4,HXTOFF.
R3
R3,H.ELSF(R2)
HXTADD,N,FSA(R2)
R3,N.ELSE+VVEC
--,N.F8A+VVEC
R3,N.ELSEI-3.MASK.
NXTADD,H4FSA+VMASK.
R2,K.3
NXTA1.D,R12.
NXTADD.
;R4=OFFSET OF.NEXT.FREE.TDCT.STATE.
;1-1=OFF5;ET OF.CURRENT.TDCT.STATE.
;SEG.1
;5E13.1 =.HEXT.FREE.STATES.ADD'S.
;SEG.1 =.NEW.DEF., ADDRESS.
1111 81111.1-34 A5E.OFF5ET5.OF.5E13.2.
;SEG.2.
;142. -> NODE.
aR3 =.HEXT STATUS.ADDRESS.
;5E5.2.=.HEXT.STATE.1:IDDRESS.
"SEG.
.:01AR.K.SEG3 TO.IHDICATF.THAT.VLDC.
;COLUMN.IS DONE.
15E5.3 =.CHANGE.ELSE DEF.. 51815-
;R4 ?OFFSET.OF.NEXT AVAILABLE TDCT.STATE-
;Rli =.0FFSET.OF.CURREHT.TDCT.STATE.
;SAVE.OFFSET.OF.NEXT FREE.TDCT STATE.
;R3 =.FSA.ADDRESS.OF ELSE .DEF: STATE.
;RESET.NODE"S.ELSE.DEF: ADDS.
;RESET.HODE'7S.FSA.ADDRESS.
;R12.=.ADD'S.OF. RENT-TDCT?STATE-
;NEXT.FREE STATE .ADDRESS.
MERGE.VVEC.INTO.VLDC.NODE.CHAIN-
ApprOyed For14:621-esIcellr-0-61-6a2131:j161APSZA1.6141411411)0200010001-4
?
MOV. #VLDCR1 ;R1-> NODE CHAIN.
F9A-A.TRANSLATOR.(0T1)
VLDC.COLUMN.
F.,7-,T,F, A0247.4
MACRO .M1110 27-MAR
Approved
-50 13:0( PAGE.
ForBelease 2005108/22 : CIA-RDP85-00514R000200010001-4
536 002440
103105
BLC
537 002442.
818288
P2.P0 ;PO = ERROR CODE
630 002444
CALL. HODERR.
F,39 00245A
000167
AA4304
JMF. FXIT
648 002454
5110267
A81576.?
MOV. R2,C.VLDC. ;SAVE?CURRENT?VLDC NODP2S.ADDRESS.
641
642-
SET ? ELSE ? DEFAULT OVERR IDE ? B IT? IN ? CURRENT ? TDCT? STATE ? LORD .
543
544 AA245A
052757.
1000AA
APAII4A'
BIS. #8IT15,N:POS+VVEC- ;mARK.VYEU 11..1.HEHHESEHI.ELSE.DEF.
545
;OVERRIDE.STATE.
646 uu24.66
816(54
000024'
mnv. RII,R4 ;R4=OFFSET.OF?CURREHT.TDCT.S3ATE.WORD.
647 A02472
A16764
A01610'
001632
mo v. NXTADD,TDCT+SEG2(R4) r: 1115:5
648 11Ap5AA
A12764
A40000
001634'
MOV. liSTSIH,,,TDCT+SFG3(R4) DES CURRENT.STATE.AS.INDEX.STATE.
648 002506
052764
01.0000
001634'
BIS. *EOBIT,TDCT-FSEG3(R4) ;SET.ELSE.DEF. OVERRIDE BIT
650 002514
012701
000040?
MOV. *FLDC,R1 ;R1->FLDCHNODE.CH8IN
6!-31 002ti2A
CALL. HSCON.
552 003524
103405
BCE. 125 ;BRANCH.IF MATCH
653
654
MAKE-HEXT.AVAILABLE.TDCT.STATE.AN.INDEX.STATC, MARK?IT.INCOMPLETE (SET.
655
BITS J'- 5E IHSERT.uwEC INTO.AWEMPTY.HODE, INSERT .THIS.
656
NEW.NODF.INTCHTHEFLDC NODECHAIWAND.PUT.ADDRESS.OF.NODE-INTO.SEG2.0F.
657
ASSIGHED-STATE,
1:7,5A
65A
P2-> HODE-THAT-SHOULD-PRECEED-NEW.HODE.
66A
661 882521
812781
880040'
MOV. *1-LDC,R1 ;RI->HODE CHAIN.INDEX.
1-22.002532
CALL. HELLS TA.
667
564
RI -OFFSET.OF.NEW.NODE.
555
R2-> NEW .NODE.
655
56.7 AA2572.5
11$: EXIT. ""DC?
6F,9
669
MATCHED.EXISTIHG FLDC.HODE 7?????.
67A
571 AA2540
012757
000882
0A1564
125: MOV. *2,PAR1
,.002545
000157
004155
JMP. ERRINT.
Approved For Release 2005/08/2201A-RDP85-00514R000200010001-4
FSA-A.TRAN: OR.(0T1) MACRO-Mil
FLDC.COLUMH.
p FP-60 RWeifge 2005108/22 04-RDP85-00514R00020001000174
674
575
576
577
578 002552. 015701 000024'
679 002555 032751 010000 001534'
r,7,:=In 002554
681 002555
582.002ti72.
583
584 002500 016301 000012
685 002604 042701 100000
585 002510 010300
587 002512. 012702. 005000
688 002515 012705 000030'
689 002522. 005065 000012 ?
590 002626 052700 000014
691 sus. 062705 000014
692 002535 012004
693 00 ?540 072.0254 Aninin,
594 002544
595 002546 005257 000042'
595 002552. 010425
597 002654 077110
598 002595 005757 000042'
699 002552 001455
700 An2.1c;F.4 056767 000016 000042"
701 002572. 115357 088010 0AAA4A'
702.002700 105267 000040'
703
704
705
7A5
707
709
710 002704 015702. 001575'
711 002710 001405
712-802712-
713 002715 103002-
714 002720 00015? 000072
715
716
717
718
719 002724
720 80277.0
721
722.002736 015754 001610'
723 002744 052764 010000
724 00275 ;3 ? 01270 1 A 00 A 40
725 002756
725 002752. 103411
727
728.
729
7=30
005051 001532'
012(61 5400110 17101534"
FDC;
.SBTTL FLOG COLUMN..
CHECK.FLDC-COLUMN-OF.E-MATRIX.
NOV.
BIT.
BON.
CLR.
MOV.
1$: MOV.
BIC.
MOV.
MOV.
MOV.
CLR.
ADD.
ADD.
F- LiL: 1 MOV.
BIT.
BOFF.
INC.
MOV.
1$: SOB.
TST.
BED-
515
MO--B-
INCH
015704 008024' 4$:
052757 100000 000040'
0@i532-
081534'
RII,RI IRI =
*E0BIT,TDCT+8EG3(R1)
is
TDCT+SEG2(R1)
*5T$INX,TDCT+5E53(51)
N,LOT(R3),R1
#BITHIBfiR1
R3,R0
*EMXFDC4EMXVDC,R2'
*--'Er R5
N.LOT(R5)
4N:VEC,R0
lftiVEC,R5
R2,EMA(R4)
is
H:LGT+VVEC.
R4,(R9)+
R1,FDC:1
H:LGT+VVEC.
3$
NIBMSK,N:LGT+VVEC-
N;POS(R3),N:POS+VVEC-
H,P0S+VVEC.
OFFSET-OF.CURRENT.TDCT STATE-
;ELSE.OVERRIDE.BIT.ALREADY.SET?.
;BRANCH ,IF YES.
;CLEAR.BASE.ADDRESS.
;DESIGNATE CURRENT.TDCT.STATE.AS.AN.
;INDEX.STATE.
;R1 =.VMASK.LENGTH-
;CLEAR.NIBBLE.INDICATOR.FLAG.
IRO->VMASK.
;R2.?FLDC-BIT.
;R5-> V-VECTOR.
;CLEAR-LENGTH-FIELD.
;RO->iST.OFFSET.IN-VMASK.
;R5-> 1ST-OFFSET-IN-VVEC-
154 =.E-MATRIX.OFFSET.
;FLDC.BIT.SET7.
;BRANCH.IF.NO.
;INC.LENGTH.COUNT.
;SAVEOFFSET
;LOOP-
;TEST.NEW-VECTORS.LENGTH.
;BRANCH.IF.ZERO.
;INSERT.NIBBLE.INDICATOR.FLAG.
;LOAD-NIBBLE POSITION.NO:
;INCREMENT.HIBBLE.POS: NO:
NEW.VECTOR.GENERATED.FOR FLDC COLUMN
R3->VMASK.
VVEC->NFW.VECTOR.
C ECK-VLDC NODE.CHAIN-FOR.MATCH.
MOV. C:VLDC,R2-
BED. 4$
CALL- MATNOD.
BCC. 4$
JMP. 3$
SET.ELSE.DEFAULT OVERRIDE BIT.
STATE, SEG. 3).
MOV. R11,R4
BIS- #0IT15,N:POS+VVEC.
OF.EMA.
;R2 ->VLDC.NODE-
;BRANCH-IF NO.SUCH.NODE-
;MATCHED.VLDC.NODE?.
;BRANCH-IF NO.MATCH.
;JUMP.IF.MATCH.
IN.CURRENT-TDCT-STATE WORD
MOV. NXTADD,TDCT+SEG2(R4)
BIS. *EOBIT,TDCT+SEG3(R4)
NOV- oFLDC,R1
CALL. NSCON-
LICS. ?$
(INDEX-
;R4=.0FFSET.OF.CURRENT.TDCT.WORD.
;MARK-VVEC TO.REPRESENT.ELSE-
;DEFAULT.OVERRIDE.STATE.
;ASSIGN.BASE.ADDRESS
;SET.ELSE.DEF: OVERRIDEBIT.
;R1-> FLDC HODE.CHAIN.
;MATCH.IN.THEFLDC.CHAIN?.
;BRANCH. IF MATCH.
NO- MATCH MAKE-NEXT-AVAILABLE.TDCT.STATE.AN-INDEX.STATE, MARK-IT.
INCOMPLETE.(SET.BIT.0 OF.SEG3), INSERT.VVEC.INTO.AN.EMPTY.NODE,
.INSERT THIS.NEW.NODE.INTO.THE?FLDC.NODE.CHAIN.AND.PUT.ADDRESS.OF.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRAHSLATOR.(QT1)
FLOG COLUMN
731
77.2.
733
734
772,5
Nihn:Ru ? MI 11'42430
;
Release10051011/22 : CIA-RDP85-00514R000200010001-4
HODE.IHTO.SEG.2.0F.ASSIGHED.STATE.AHD.SAVE.ADDRESS.OF HOLE IN C:FLDC.
R2?>NODE.THAT.SHOULD.PRECEED NEW NODE.
Ri?> NODEsCHAIN-INDEX.
736
442754
145257
444440
'NCB. f.1POS-4-VVEC.
;INCREMENT HIBBLE.POSITION.NUMBER.
737
77.7,P
442770
012701
000040'
MOV. *FLDC,R1
;TO.ALIGH.IT.WITN.FIRST.NIBBLEill
739
002774
CALL. HEWSTA.
740
741
Art77.11171F1
003004
01A2F,7
000404
A41574'
110'.....RC
BR 2, .Fi T)C -
3$
;SAVE.CURRENT.FLI)C- DPS. ADDRESS.
743
MATCHED EXISTING NODE
JUMP.TO-TDCT STATE.REPRESENTED-BTHIS.
744
NODE.
745
42.?:, MATCHIHG.NODE.
745
747
A17172,AA5
01 07
041574'
2$:
MOV. R2,C.FLDC.
;SAVE.CURRENT.FLEIC-NODES-ADDRESS.
740
007.012.
CALL. JUMP
749
003015
3$:
EXIT. FDC.
Approved For Release 2005/08/.1A-RDP85-00514R000200010001-4
All)
FSA-A.TRAFL OR.(0-11) MACRO,M1110 27-MAR-a0 17:07 PA.G.E5 4,
SEARCHABLE L HRACTER COLUMNS- Approved i-or Reiease 2005108/2 IA-RDP85-00514R000200010001-4
751
753.
753
754
755
756
.SBTTL SEARCHABLE.CHAPACTER.COLUMNS.
CHECK SEARCHABLE CHAR. COLUMNS.OF.EMATRIX.
CHECK WHETHE0.1ST.00.2ND NIBBLE.
J
758
75q
71;0
761
762
003A2A
003024
003030
005067
AAF-177
001005
080840'
000016"
03 -> VMASK.
SCE!: CL0. N,P0S+VVEC. ;CLEAR-NIBBLE.POSITION.NO, FIELD.
TST. NIBMSK. ;FIRST.OR.SECOND.NIBBLE?.
BNE. 10$ ;BRANCH .IF 2ND.NIBBLE.
71;7;
FIRST.NIBBLE, CHECK.COLUMNS.NI5 THRU.N1 OF.E-MATRIX.
754
765
003032
012701
000017
MOV. *15...R1 ;RI LOOP COUNTER.
766
01713031.1?
012702.
100000
MOV. *BIT15,02. ;02.?BIT.MASK.
757
007,047
000404
BR 11$
76R
76q
SECOND NIBBLE, CHECK COLUMNS.NI4 THRU.NO
770
771
003044
012701
000017
10$: MOV.15 01 01 = LOOP COUNTER
772-
A03050
012702.
040000
MOV. *8I114,02. ;R2 = BIT MASK
773
003054
005057
000022'
11$: CLR. RIO 010 = COLUMN COUNTER.
774
003060
5CH,5: SAVE. RI 01 = LOOP COUNTER
775
003062.
016301
000012
MOV- f...LLGT(..R.3),R1 01 = VMASK LENGTH
776
003066
042701
100000
BIC.
777
003072
010300
MOV. 03,00 VMASK.
778
An7.7,074
012705
nn0030?
MOV. ;05-> V-VECTOR.
779
003100
005065
000012
CLR. N,LGT(R5) ;CLEAR.LENGTH.FIELD.
7R0
003104
062700
000014
ADD. ofl:VEC,00 ;00->1ST.OFFSET.IN.VMASK.
781
003110
062705
000014
ADD. *NLVEC...05 ;05-> 1ST.OFFSET.IN.VVEC.
(82.
003114
012004
SCH,5: MOV. 04 =.E-MATRIX.OFFSET.
783
A03116
005767
000016'
TST. NIBMSK. ;FIRST.OR.SECOHD.NIBBLE?.
784
003122
001004
ONE 12$ ;BRANCH.IF SECOND .NIBBLE.
785
786
FIRST NIBBLE
7P7
003124
030264
001012'
BIT. 0.2,EMA+EMHNB1(04) BIT .SET?
003130
BOFF-1$ BRANCH IF NO.
790
003132.
000403
BR 13$
791
792.
SECOND NIBBLE.
793
;
794
003134
030264
001014'
12$: BIT. 02,EMA+EMXNB2(04) ;BIT.SET?.
7q5
003140
BOFF 1$ ;BRANCH IF NO.
796
003142
005267
000042'
13$: INC. N,LGTA-VVEC. ;INC.LENGTH.COUNT.
797
003146
010425
MOV. 04,(05)? ;SAVE.OFFSET.
79R
003150
077117
P,OR. 01,SCH,G ;LOOP-
(Si
003152.
005767
000042"
TST. N,LGT+VVEC. ;TEST.NELLVECTORS.LENGTH.
R1710
0031.56
001003
BHE. 7$ ;BRANCH-IF NOT.ZERO-
80i
003160
HESTOR Ri
R02.
An3162.
000167
O13A1.1:.,4
JMP. SCH,13
RA3
A03166
056767
000016'
000042.7
7$: BIS. NIBMSK,N,LGT+VVEC. ;INSERT.NIBBLE.INDICATOR-FLAG-
RO4
003174
115357
000010
000040'
MOVB-N,POS(03),NLPOS+VVEC. ;LOAD-NIBBLE.POSITIOH.HUMBER.
805
003202.
10526(
000040'
INCB. N,POSA-VVEC. ;INCREMENT NIBBLE.POSITION.HUMBER-
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRAHSLATOR.(0T1) MACRO
SEARCHABLE CHARACTER COLUMNS.
lii ElApROM1161r t-iser 20_5_8/22 : CIA-RDP85-00514R000200010001-4
807
RAR
HEW.VECTOR.GEHERATED.
RA9
R1A
R3 > VMASK.
811
COHTAIHS.HEW.VECTOR.
R12.
CHECK.VLDC.HODE.CHAIH-FOR.MATCH.
814
815
003206
SAVE. R2. ;R2.?EMATRIX.COLUMN BIT.MASK.
816
007.210
815787.
001575'
MOV. C,VLDC,R2. ;R2 ->VLDC.HODE.
817
003214
CALL. MATHOD. ;:MATCHED.VLDC.HODE?.
818
0072:32A
103002.
BCC. 211 ;BRANCH.IF NO MATCH
819
0.7.A
MATCHED .A. VLDC.VECTOR, IGNORE.CURRENTH., TO.(GO.GEHERATE NEXT ONE::
821
003222.
000167
000120
JMP. SCH10
827.
a?*
CHECK.ELSE.DEF, OVERRIDE.CHAIN, PROVIDED-ELSE.DEF, OVERRIDE.BIT.IS
SET .IH CURREHT.TDCT.STATE.WORD:
8-7-q;
927
003225
016702.
ueluo24'
2$:
NOV. .:82-=.0FFSET.OF.CURREHT.TDCT STATE.
828
003232.
032752.
010000
001534'
BIT. *EOBIT,TDCT+SE)3(R2) ;TEGT.ELSE DEE: OVERRIDE.BIT.
82R
.2IH.SEG: 3 OF.INDEX.STATE.WORD
R30
003740
BOFF. 3$ ;BRAHCH.IF HOT.OH.
831
003242.
016702.
001574'
MOV. C:FLDC,82. ;R2 ->FLDC.HODE.
832
003246
CALL. MATHOD. ;MATCHFD.FLDC.HODE?.
833
003252.
103002.
BCC. 3$ ;BRAHCH.IF HO .MATCH.
834
835
MATCHED.AH.FLDC.VEu;oR: IGNORE.CURREHT YVEC.AND.GO.GEHERATE.
036
ANOTHER.OHE,.
R37
1:131:1
0A.:52h4
uuulbr
HHHI.11,f,
?RIP. SCH.10
Approved For Release 2005/08/201A-RDP85-00514R000200010001-4
11 FSA-A .TRAH OR.COT1) MACRO.MI
SEARCHABLE LIARACTER COLUMNS.
S4A
1 1 6Api7roVaiki? r 146f-WaseribWo8/2.1A-RDP85-00514R000200010001-4
841
842.
843
HI
844 003260
845 883262.
816704
b00024?
846 003265
858264
00163A'
847 083272.
005764
801632?
949 003275
AA1AA3
94R
R:58
851
1152 AA3300
A15754
0A161A'
001632
853
954
855
955 A033A6
0157A1
880872'
857 003312.
070127
ULIUULI6
11511 003316
065701
8081711714.?
858 00322.
R6A 003324
961 003330
103404
R62.
LI 11
864
RC-15
969
R78
971 003 32.
UUuj.j3jL
000157
AOAAA4
0-7'2
874
R75
876
877
R78 887.342.
R79
880
R81
RR2
883 003745
884
88b
UUb...301
886A A:7:754
AF11419
887 813356
0072,005
AAA AA336A
012767
000003
001564'
889 003355
000167
003346
890 003372
8852r:-.,7
000022'
891 003376
88F,:7,82.
RLJ2.H0.34u0
U42(U2.
looLlUo
893 00E404
000167
177450
094 003410
?
SET TRANS ITION SELECTOR B IT IN CURRENT TOrT STATE LJORD (INDEX STATE SEE 1)
RIO -.COLUMN COUNTER
3$: RESTOR.
NOV.
BIS.
TST.
BNE.
R2.
P11 P4
R2,TDCT.I-SEE1(R4)
TDCT+SEGP(R.4)
15$
BASE.ADDRESS-NOT YET.ASSIGNED.
;R2 --EMA-COLUMN BIT MASK
;R4= OFFSET OF.CURRFHT.TDCT.STATE.WORD
;SET TRANSITION SELECT BIT
;BASF ADDS ALREADY.ASSIENED?
;BRANCH IF YES
JADDTDCT+SEE2(R4) ;ASSIEN.BASE.ADVS:
CHECK-VFCTOR:CHAIN.OF? CURRENT.E-MATRI>4:.COLUMN.
15$: NOV.
NUL.
ADD.
SAVE-
CALL
4$:
;Ri -..COLUMN.COUNTER
RI ?OFFSET.INTO.NODE.CHAIN-INDEX TABLE
;R1-> "NEXT!' NODE.CHAIN.INDEX.
;BRANCH .IF MATCH.
NO MATCH MAKE.NEXT.AVAILABLE.TDCT.STATE.WORD AN
STATE, MARK.IT.INCOMPLETE.(SET.BIT.0 OF.SEE,3), INSERT.VVEC.INTO.
AN.EMPTINODE, INSERT.THIS NEW.NODE.INTO.THE.APPROPRIATE NODE,CHAIH.
15D.PUT.ADDRESS.OF.NODE.INTO.SEE.2.0F.AS5IENED STATE,
P2-> NODE.THAT.SHOULD
Ri-> NODE-CHAIN.INDEX
CALL. NEWSTA-
JMP. BCH 10
PRECEED.NEW NODE.
MATCHED EXISTING NODE, JUMP.TO.TDCT STATE.REPRESENTED.BY.THIS.
NODE.
R2- >MATCHING NODE.
CALL. JUMP
PROCESSING-OF.CURRENT.E-MATRIX.COLUNN.IS.COMPLETED, MASK lExT.
COLUMN OF.E-MATRIX.TO.GENERATE.HEXT.VVEC,
SCH,10: RESTOR R1,R2. ;R2.?EMATRIX.COLUMN BIT MASK
;R1 -.LOOP COUNTER.
SCH,I3: DEC.
8E0.
BET.
NOV.
JMP.
1$: INC
ASP
BIC.
11:
EXIT.
Ri
SCH,11
1$
*3,PAR1
ERRINT.
RIA
P2.
*BIT15,R2.
SCH,5
SCH.
;BRANCH IF ALL COLUMNS PROCESSED.
5_I t.
;RIO -.COLUMN-COUNTER.
;R2.?BIT.MASK.OF.HEXT.COLUMH.
;pROrFSS.NEXT.COLUMN
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A. TRANSLATOR. (01'1) MACRO M11104WMAR ;10 PriLE-..aa
ovetitorKelease zuuo/u8/22 : CIA-RDP85-00514R000200010001-4
INTERWORD.COLUMW
.SBTTL?INTERWORD-COLUMN.
HEW.VECTOR.GENERATED.FOR.INTERWORD.COLUMH.OF.E-MATRIX: MAKE NEXT
AA ILABLE TDI::T STATE A JLIMF/SEOUENTIAL STATE AND Pi:i TNT Till NEXT TDCT?
STATE.WAICA-SHOULD.THEN.BE MADE.A.MATCH.REPORT STATE:
9101
902.003412.
016704
000024'
IHTERWg MOV. R11,R4 ;R4 ?CURRENT.STATE'S.OFFSET
903 003416
005764
001632'
TST. TDCT+SEG2(R4) ;BASE.ADDRESS.ASSIGHED ALREADY?.
904 003422.
001044
BHE. 3$ ;BRAHCH.IF YES.
3515
906
BASE.ADDRESS.HOT YET.ASSIGNED: MAKE CURREHT,STATE.A-
907
JUMP/SEOUEHTIAL.STATE:
9171R
9519 997.424
995954
AA11.530'
CLR-TDCT+SEG1(R4) ;SEG .1 --LOOK.FOR.INTERWORD. (Si)
910 003430
R1S7b4
001610
001632
MOV. HXTADD,TDCT+SEG2(R4) ;SE1I.2?BASE.ADDRESS.
911 003436
012764
100000
001634'
by *ST$jSO,TDCT+SEG3(R4) ;5EG.3
912 003444
052764
9140919
9151 1534
BIS. *JMFBITITXTBIT,TDCT+SEG3(R4)
9113 R03452
GETHXT-R4 ;R4 =.HEXT AVAIL: TDCT.OFFSET.
914 003530
000167
000124
JMP. 5$
915
9Ib
MAKE-NEXT.STATE.AH.INDE,STATE.LOOKING FOR NIBBLE-0
917
919 003534
052754
000001
'001630'
3$:
BIS. #BITO,TDCT+SEG1(R4) ;SET.TRANSITIOH.SELECT.BIT.IH.
919
;CURREHT.STATE.
5120 nn7iF142
GETHXT R4 ;R4 =-HEXT AVAILABLE OFFSET IN TDCT-
321 007.F.251
012764
ARARA1
017115311'
MOV *BIT0,TDCT(R4) ;SEG.1
922 003626
005724
TST. (R4).-F. ;R4 =.0FFSET.OF.5EG.2
A23 003630
005267
001610'
IHC HXTADD. ;POINT.TO.HEXTHVAIL. TDCT.STATE.
924 003634
016764
R0110'
001F30'
MOV. NXTADD,TDCT(R4) ;SEG.2. - NEXT.STATE.BASE.ADDRESS.
925 003642
005724
TS T. (R4)+ ;R4 =.0FFSET.OF.SEG.3
925 003644
012764
040000
001630'
MOV. *ST$IHX,TDCT(R4) ;SEG.3
977 003652
005724
TST (R4)+ ;R4 =.0FFSET.OF.HEXT AVAIL: TDCT.STATE.
17117174
5i10467
901612?
MOV. R4,HXTOFF. ;SAVE.OFFSET.
AR3SSA
EXIT. IHTERW.
Approved For Release 2005/08/201A-RDP85-00514R000200010001-4
FSA-A ? TRAHEOOR ? (0Th
SEOSTA-
MACROApp ? M1110 27-'11AR-Fi2 1.3 07 PrISE.:63 roved ror Keiease 8/2.IA-RDP85-00514R000200010001-4
931
932.
933
934
935
93R
937
938
939
94n
941
942.
943
944
945
946
947
948
949
003662.
95n
nn3F72.
016302-
000014
951
003676
672753
155555
952,003704
953
003706
000167
001012
954
003712.
0327152.
0134000
955
003720
956
003732
800157
000776
957
003726
032752.
600601
958
nn3734
959
003736
000157
000762
9RA
961
917.2
963
003742
552702.
MMH1111h
964
003746
032762.
002000
965
003754
966
A0375R
Ann1R7
880742
957
0037.2
0327152.
004511:10
968
003770
53772.
0001E7
000726
978
971
003776
17-172.27E.2.
BB0001
972
0040041
973
004006
HK2(02.
000006
974
00401.2
800755
975
976
977
978
084014
016302
00121014
979
004020
0I67111
Fl A R;124'
98n
004024
01R1R7
00163171.
901
004032.
016167
001632'
982
004040
016167
601P,72.4'
983
004046
032763
100000
9R4
A04054
985
884655
016261
.001012'
985
004654
000417172.
987
0n4ARR
016261
BB1F114?
.SBTTL..SEOSTA.
SUBROUTINE,TO.GENERATE.SEOUENTIAL-STATES: THIS.ROUTINE.IS.rALLED.
FROM.THE.MAIN.LOOP.(MASKEM) WHEN .THE LENGTH.OF VMASK.IS.EOUAL.TO-ONE:
THE.ROUTINE.FIRST.CHECKS.THE.NEXT."FIRSTP HIBBLE.IN.EMA:IF NiBE'LE IS
A) TERMINATING.IHTERLORD., CALLS INTERW.AHD.RETURNS.WITH.CC-CLEAR.
8) TRAILING VLDC, RETURNS.WITH.CC-SET.
IF.TERM.CONTAINS FLDC, IT.RETURNS.WITH.CC-SET.
OTHERWISE, THE.CURRENT.TDCT.STATE.IS HADE?AN.INDEX.STATE LOOKING.FOR.
THE.SPECIFIC.NIBBLE, POINTING.TO.THE NEXT.AVAILABLE.TDCT STATE:
THE.REMAINING.CHARACTERS.OF.THE.TERM ARE.THEN.INSERTED.IN.SEOUENTIAL.STATES.
UNTIL-A.TERMINATING.INTERWORD.OR.A.TRAILING.VtDC.ARE.ENCOUNTERED: LHEN.
THIS .HAPPENS., CONTROL.IS.TRANSFERRED TO .A) OR.B), RESPECTIVELY:
ON.EHTRY,
R3 ->VMASK.
Ril ?CURREHT.TDCT.STATP2S.OFFSET.
?
SEOSTA: SAVE. Ri,R24R4,R5
0171112115'
7$:
001A20'
12$:
11$:
001010
15$:
001010'
13$:
14$:
BB102171'
;
i$:
0807AR
000702-
A0AP,7P,
MO.? ? ri,VEC(R3),P.2.;R2 = OFFSET INTO ELlA
BIT. *6ITNIB,H:LGT(R3) ;SECOND.NIBBLE?.
BON. 7$ ;BRAHCH.IF YES.
JHR. 10$ ;BYPASS .IF iST.HIBBLE.
BIT. #EMXVDC EMA-4-6(R.2) ;NEXT .CHAR A.VLDC??.
BOFF. 12$ ;BRANCH IF NO.
JHP. 10$
BIT. *BITO,EMA+6+EMXNB1(R2) ;NEXT -CHAR. TERMINATING INTERWORD?.
BOFF- 11$ ;BRAHCH.IF NO.
JMP. 10$ ;BRANCH.IF YES.
LOOK FOR FLDC.IN TERM.
ADD
BIT
@OFF
JMP
BIT.
BOFF.
RIP
*5.R2 ?
?41.E. MXF D C E (P2)
1.3$
10$
*FMXV5iC,EMA(R2)
14$
10$
#8ITO,EMA+6+EMXHB1(R2)
1$
1t6,R2
15$
MAKE.CURRENT.STATE-AN.IHDEX.STATE.
;R2-=.FMA-OFFSET.OF.HEXT.CHAR:
;FLDC?.
BRANCH IF HO.
;***V1 Dr?.
;***BRAHCH IF HO
;NEXT .CHAR. TERMINATING-INTERWORD?.
BRANCH IF YES.
;R.2.?EMA.OFFSET.OF.NEXT.CHARACTER.
MOV- N:VEC(R3),R2. ;R2.?EMA.OFFSET.OF.CURRENT.HIBBLE(2ND)
MEN? R11,R1 ;R1 =.TDCT OFFSET OF CURRENT STATE
MCW? TDCTOR11,5EOTMP. ?SAVE.COHTENTS.OF.STATE.
MOV? TDCT+SEG2(R1),SEOTMP4-2-
MOV. TDCT+SEG3(R1),SEOTMP-4-4
AA17117112. BIT. *BITHIB,A;LGT(R3) ;SECOND .NIBBLE?.
BON. 2$ BRANCH IF YES.
001630' MOV. EMA+EMXNB1(R2),TDCT(R1) ;SEC.1
BR 3$
001630'.2s: MCW? EMA+EMXHB2(R2),TDCT(R1) ;SEG .1
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A TRANSLATOR (QM MACRO M1110 27-1AR-
Approved
SEOtiTA.
9AR
5443
99A
991
992.
993
994
995
996
997
993
lAAA
1001
1002-
1003
1004
11105
1006
1007
IAAR
1009
1010
1011
1012-
1013
1014
1615
1016
1017
101B
1013
1023
1021
1022.
1023
1024
1025
1026
1027
004074
AA4076
004104
004106
004114
004120
004176
O04204
AA4212-
AA4220
004224
004232.
004234
004242.
004245
O12142F.2
004256
AA4260
664255
AA4270
AA4276
004302.
004306
004312.
004314
004322.
1304.320
004334
0AF,721
016761 001510' 001630'
005721
012761 040000 001530'
062702. umummP)
012754
100000 AA1534"
052754 An40A0 001634'
115264
0F.2702.
032762.
052764
062704
010467
005267.
000517
052764
062704
010457
005267
OH 0555
116264
052702.
032762.
001010"
17100006
Ata4.000
AA1AAA
000006
001612'
001610'
110167,0'
001010"
A0157,4."
3$:
Ack..
OARAR1 A01012" 30$:
001634'
001010' 001631' 31$:
? L114
n04AAA A01010"
1020.004336 052764 002000 001674'
1029 004344 062704 00000F,
1030 004350 01041W 001612'
1031 004354 005267 001610'
107.2 00472,00 000456
1033 A04352. 032762. 000001 001012 32$:
1034 0043(0
1035 004372. 052764 002000 001634'
1072.6 004400 062704 000006
1037 004404 010467 001612"
1038 004410 005267 001610'
1039 004414 000514
1040
117141
1042.
1043 004416 116264 001010'
1044 004424 0F.2702. 00000E,
r1irell&se:120E05168122 : CIA-RDP85-00514R000200010001-4
TST.
ME 1/
TST.
mnv.
(0.1)+
HXT000,TDCT(01)
(01)1-
*ST$IHX,TDCT(01)
BUILD-SEQUENTIAL STATE.EHTRIES.
R2 =.EMA.OFFSET.
R3-> VMASK.
;SEG.2.
ADD o5,02 302 = EMA OFFSET OF
GETHXT 04 ;R4= NEXT FREE TDCT
MOV *STSSEDITXTBIT,TDCTI-cZG3(04) ;LOAD STATE
BIS *S34I1,TDCT+5EG3(04) ;END AFTER 3 BYTES-
BYTE.1
MOVB.
ADD.
BIT.
BUFF.
BIS.
ADD.
MOV.
INC.
BR
BIT.
BOFF.
BIS.
ADD.
I....
I
BR
BYTE .2
MO VB
ADD.
BIT.
BOFF.
BIS
ADD
EMA(02),TDCT(04)
*5,02.
*E6'iXVDC,EMA(02)
70$
*51BILTDCT+SEG3(04)
*5,04
R4,MXTOFF.
HXTADD.
27$
*41ITO,EMA+EMXH-1(02)
31$
*5iBIT,TDCTi-SEG3(04)
*6,04
R4,HXTOFF.
HXTADD.
20$
EMA(02),TDCT+1(04)
*6,02.
*EMX'aC,EMA(02)
32$
*S2BIT,TDCT+SEG3(04)
*6,04
04,HXTOFF-
HXTADD.
27$
*BITO,EMA-FEMXHB1(P.2)
33$
j2BITTDCT+5E03(04)
04,MXTOFF.
NXTADD.
20$
NEXT.CHAP.
STATE.
TYPE.INSEG
;BYTE .1
;02.?OFFSET OF NEXT CHAR: IN.EMA.
VL DL?
;BRAHCH.IF HO.
END AFTER 1 BYTE.
;R4 =.0FFSET.OF.NEXT FREE TOUT STATE.
;sAVE.IT.
;HEXT.AVAIL: TDCT.ADDRESS.
;IHTERWORD?.
BRANCH. IF HO.
END AFTER 1 BYTE.
;04 =.0FFSET.OF.NEXT FREE TOUT STATE.
;SAVE .IT.
;HEXT.AVAIL.TDCT.ADDRESS.
;BYTE.2.
;02.=.0FFSET.OF.HEXT CHAR: IN EMR.
;VLDC?.
;BRAHCH.IF HO.
;EHD.AFTER 2.BYTES.
;04 =.0FFSET.OF.HEXT FREE TOUT STATE.
;SAVE .IT.
;NEXrAVAIL: TDCT-ADDRESS.
;IHTERWORD?.
;BRANCH.IF HO-
;END.AFTER 2.BYTES.
04 =.0FFSET.OF.HEXT FREE TOUT STATE.
;SAVE.IT.
;HEXT.AVAIL.TDCT.ADDRESS.
BYTE.3
001632' 33$: MOVB. EMA(02),TDCT+SEG2(04) ;BYTE.3
ADD. #6,02. :02.?OFFSET.OF.HE
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
T CHAR: IH-EMA.
?
FSA-A.TRAN_
SEOSTO.
00.(0T1) MACRO ? Ml iAppFovedamnReleasbW05/016/20CIA-RDP85-00514R000200010001-4
1045 004430
032752.
004000
001010'
1045 004435
1047 004440
062704
AANDA5
1048 004444
01045.7
001512
1049 004450
005257
001610'
117150 004454
000420
1051 004455
032752.
000001
001012?
1052.004454
1053 004456
062704
UOUOU b
1054 004472.
010457
001512'
1055 004475
005257
001510?
1055-004502.
000451
1057 004504
062704
L dij
idUo
1058 004510
005257
001510'
1059 004514
000530
1050
1051
1062.
1053 1284516
1054 884574
01046(
HHHH,4'
1055 004500
016754
000134
001530'
1056 004505
005724
1057 004510
016764
000125
00 i530
10158 004 E15
A0 5724
1069 004520
015754
000120
001530'
1070 004525
005724
1071 004630
010457
001512'MOV.
004534
1072.
005257
001510'
1073 004540
010253
000014
1074 004544
000427
1075
1075
1077
1078 004546
010457
00017124'
1079 004552-
052704
000AA6ADD.
1000 004656
010457
001512'
1081 004552.
005257
001510?
1171A2.AA4.66
AiC-704
ACIAA24'
117183 Ai:14572.
005064
001532'
1084 004575
012757
000001
000042?
1095 004704
010257
000044'
1085 004710
1097 004714
1098 004720
000241
1005 004722.
000401
1090
11 51
lo..v.
1097 004724
000251
1094 004725
1095 004736
117199
1097
109.8
1099 6104740
#EMXVDC,EMA(R2) ;VLDC?.
BUFF
BIT-
;..
34$ BRAHCN IF NO
ADD. #6,04 ;R4 =.0FFSET.OF.NEXT FREE.TDCT STATE
MOV. R4,NXTOFF. SAVE IT
INC. NXTADD. ;NEXT.AVAIL, TDCT.ADDRESS.
BR 27$
34$: BIT. #6ITO,EMA+EMXNB1(02) ;INTERWORD?.
, ;
BUFF 35$ BRANCH IF HO.
#504
ADD. ;R4 ?OFFSET.OF-NEXT FREE-TDCT STATE
MOV. 04,NXTOFF. ;SAVE.IT-
INC. NXTADD. ;NEXT.OVAIL.TDCT.ADDRESS.
20$
INC. =.
35$: ADD *5,04 ;04 TDCT OFFSET OF NEXT STATE
.
'.!,-I-ADD.
BR 4$ ;LOOP.
; TROILING.VLDC.
,
27$: GETNXT 04 ;R4 ?NEXT FREE.TDCT OFFSET.
MOV. 04,011
MOV. SEOTHP,TDCT(R4) ;SEG .1
.
1=P+2,TDCT(.0.4)
TST
;SEG .2.
YV:
!=.-1F44,TDCT(04) ;SEG .3
Mi
I=TOFF
INC.
02,N.VEC(03) ;LOAD.VLDC'S.EMA.OFFSET.IHTO.VMASK.
MOV. N?( 1201)
BR
10$
TERMINATING.INTERWORD.
2[71$: MOV. 04,R11. ;Ril =.CURRENT.TDCT.STATES.OFFSET.
#5 04 ;04 ..--OFFSET.OF.NEXT TDCT.STATE.
MOV. 04,NXTOFF.
,
INC. NXTADD.
21$: NOV. R.11,R4
CLR. TDCT+SES2(04)
NOV. #1,VVEC+N:LGT.
M0'..". 02.,-VVEC+N:VEC.
CALL. INTERW. ;PROCESS.INTERWORD
CALL. Fl MD ;PROCESS.FLU.MODIFIERS.
CLC.
BR 25$
;INDICATE THAT TDCT ADDS IS UNASSIGNED
;BUILD VVEC
RETURN
10$: SEC.
25$: REST00. 01,02,04,05
EXIT. SEOSTA?
SEATMF: BLKIJ
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA?A.TRANSLATOR.(0-11)
SUBROUTINE "JUMP!'
.110.1
1102.
MACRO. Mt 116APPrctMO-F011ieWasiEV201)5108/22 : CIA-RDP85-00514R000200010001-4
.SBTTL-.SUBROUTINE-'JUMRP
1112[3
MATCHED EXISTING NODE: COMPARE ELSE DEFAULT.STATE-ADDRESS.OF.MATCHED.
liA4
NODE.WITH.ELSE.DEFAULT-STATE.ADDRESS OF ",.'MASK IF.THEY.ARE.THE.
1105
SAME.. MAKE-NEXT.AVAILABLE.TDCT.STATE A.JUMP.STATE..
1105
AND.POINT.TO.TDCT.ADDRESS-OF.MATCHED NODE FROM THIS.STATE.
11A7
IF.THEY.ARE.DIFFERENT.. USE "CHANGE.ELSE.DEFAULTP STATE.TO.JUMP BACK.
1108
1109
LII 1N'. NODE.
1110
RE?>VMASK.
1111
.;
1112.004745
015704
AAAA24'
JUMP: MOV. R11,R4 ;R4=TDCT OFFSET OF CURRENT STATE
1113 004752
005754
001532"
TST TDCT+SEG2(R4)-;BASE.ADDRESS.ALREADY.ASSIGNED?.
1114 AA475F.
AA1AA3
LI Nb' 1$ ;BRAHCH.IF YES.
1115
1115
BASE.ADDRESS.NOT YET.ASSIGHED.
1117
111B 004750
016754
081510"
AA1532
NOV. HXTADDTDCT+SEG2(R4) ;ASSIGN.BASE.ADDRESS
1118
1120
COMPARE.ELSE.DEF. ADDRESSES.
1121
1122 004766
1$:
GETHXT. R4 ;R4=HEXT AVAILABLE OFFSET IN TDCT.
1123 005044
025362-
UNddelb
LIULILILIb
CNP. H:ELSE(R3),H:ELSE(R2) ;COMPARE.ELSE.DEF: ADD"So
1124 005052.
001417
8E0. 2$ BRANCH IF EQUAL.
1125
1125
ELSE DEF STATE.ADDRESSES.ARE.NOT.EOUAL: USE-"CHAHGE.ELSE.DEF:
STATE.TO.JUNP.BACK:
1128.
1129 005054
015264
MUMMMH
001530"
NOV. H:ELSE(R2),TDCT(R4) ;SEG .1 -.HEW.ELSE-DEF: ADDRESS ?
1130 005062.
005724
TST. (F!4)+ ;R4 =.0FFSET.OF-SEG.2.
1131 005064
016264
000004
001530'
MOV. N:FSA(R2),TDCT(R4) ;SEG?2.=.HEXT.STATE.ADDRESS.
1132. AA5A72.
AA5724
TST. (R4)+ ;R4 =-OFFSET.OF.SEG.3
1133 005074
012764
120000
AA167A?
MO\e'? IPSTSCNG,TDCT(R.4) ;SEG .3 ?CHOHGE.ELSE DEF: STATE -
1134 0A5102-
052754
010000
001630
BIS. 4EL5BIT,TDCT(R4)
1135 AA511A
000412.
BR 3$
1172.
1137
ELSE DEF STATE.ADDRESSES.ARE-EQUAL. USE."JUMPP STATE-TO.JUNP.BACK:
1138
1139 005112.
005064
001630"
2$:
GLR TDOT(R4.) ;SEG .1
1140 AA5111-,
AA5724
TS T ? (R4)+ ;R4 =.0FFSET-OF.SEG
1141 AA512A
015254
000004
001572.0"
H,FSA(R2),TDCT(R4) ;SEG.2.? NEXT.STATE.ADDRESS-
1142 AA512f;
A05724
TS T ? (R4)+ ;R4 =.0FFSET.OF.SEG.3
1143 005130
012764
100000
001630'
HiriV ? *STZjSOfiTEICT(R4) ;SEG.3 ? jUNP.STATE.
1144 An5i36
AA5724
:
TS T I. (R4)+ ;R4 =.0FFSET.OF.HEXT AVAILABLE TDCT.STARTATE.
1145 005140
010467
001512'
MOY ? R4,HXTOFF. ;RAVE.OFFRET
1146 005144
005267
001510'
HC: ? NXTADD. ;INC: NEXT AVAIL: TDCT.ADDRESS
1147 AA515A
EXIT JUMP
?
Approved For Release 2005/08/220A-RDP85-00514R000200010001-4
NEWSTA.
FSA-A TRANS
OR .(0T1)
MACRO *1111 ?ApaoVeif-O'8r kel6seliti5Jt18/2.1A-RDP85-00514R000200010001-4
1149 .SBTTL-.MEWSTA.
1150
1151
1152.
1153
1154
1155
1156
1157
1158 011?ENTRY.
1159 R2-> NODE.THAT.SHOULD.PRECEED.NEW.NODE.
1160 Ri->NODE.CHAIN.INDEX-
1151
1152. OH RETURN
1153 R1 ?TDCT.OFFSET.OF.NEW.STATE.
1164 > HEW HOSE
1165
1165 005152. NEWSTAg SAVE. R4
1157 005154 GETNXT R4 ;R4=NEXT.AVAILABLE.TDCT.OFFSET
tifse 005232. 025757 001612 000024' CMP, NXTOFF,R11 ;ARE.CURRENT.AND.NEXT.FRE.TATES.THESAME?.
1169 00524A 001.402. BEO. 1$ ;BRANCH .IF YES?
1170 0A5242. 005064001630'
1171 885245 8857 (R4)+
24 1$: CLR.
;.
;R4 =.0FFSET.OF SFG?2.
TDC TOR4 1
)
SEG
1172.00b2bid 005064 I TDCT(R41
;SEG .:2.
1173 885254 885724 TST. C.R4)+ ;R4 =.0FFSET.OF
1174 A05255 012764 048888 001530' MOV. *ST$INX,TDCT(R4) ;SEG .7.
1175 005254 052754 AA0001 001530' BIS. 418ITO,TDCTuNEXT' NODE.POOL.HEADER.
?
v (SP) +,4(R8) ;NODE.CHAIII.INDEX.TABLE.ADDS.
(SP)+,2(RA) ;END.OF.NODE.POOL .
, ;S...
l'illf-"i (SP) (P0) TART.OF NODE POOL
05,R0 RI-i- L1 OF.NODES.IN USE
CLR .
. k
MOV. (SH),(R8)+ ;POINTER.T0.1ST.NODE
MOV. (SP)+,(RO) ;POINTER.TO.NEXT.OVAIL, ADIF7S.
REINITIALIZE.NODE.CHAIN
INDEX.OF.NEW "NEXT!' POOL.
Alf:700
000AA4'
MOV.
NCITH,R0
;R8->NODE.CHAIN-INDEX.TABLE.
1620:10
MMMUM2
SUB.
*2,R8
;R8->NODE.COUNTER.OF 1ST .CHAIN
012701
UtflUU20
MOV.
*i5 .R1
;RI ?LOOP COUNTER-
805028
1$:
CLR.
(RA)+
010010
MOV.
RO,(RO)
810050
AAARA7
MOV.
R8,2(RO)
052700
87718 7
ociao84
ADD.
.:-EI,
.;O
#4,HA
R1,1$
RETURN
;
RESTOR.
R8,R1
I:: e -T.
SWAPNP.
.PSECT. NODES.
Approved TFLIcEli ii"eie le?129 a-lib' Eth OOLE ?
FSA?A.TR8HSLATOR.(0T1)
SWAP.WIDE.POOL!=;.
1255
1265.
1257
1268
MACRO m"16ApOOVA-08rFielser206570t22 : CIA-RDP85-00514R000200010001-4
INTO-THE-TWO.PHYSICAL-HODE POOLS.,. POOL -1 AND IS DONE.
THROUGH-THE-POOL HEADER-TABLES.DEFINED-BELOW;
REASSIGNMEHT-OF-PHYSICAL.TO.LOGICAL-POOLS-IS.DONE.BY.THE
1259
SIJAPNP ROUTINE;
1270
1271
NODE.HEADER.TABLE-FOR.HNEXT"
HODE.POOL-
1272
(INITIALLY.= POOL-2)
1272
1274
000000
030366.?
BNPNc
.WBRD.
HP2.
;BEGIHNING.OF.HODE POOL-
1275
mmuums?.
040366'
EHPNE
.WORD.
HP2E
;END-OF.NODE.POOL-
1276
000004
030230'
NCITN;
.WORD-
NCIT2
;POINTER TO-NODE.CHAIN.INDEX TABLE.
12((
HMHHH6
nnOnA0
.LnRD.
0
;NO; OF-HODES-IN-USE-
1278
00E1010
0307,165?
FRNPN;
.WORD-
HP2-
;POINTER TO-IST.HODE-
1279
AAAA1.2.
030365'
unRD.
NP2-
;POINTER TO.NEXT-AVAIL; ADDS IN-FREE.POOL.
1288
1281
NODE-HEADER TABLE FOR CURRENT NODE POOL-
1282
128=-7.
OAAA14.
020225.!
BNPC:
.WORD
HP1
;BEGIHNING-0E-HODE POOL.
1284
ACIOAIR
171.71711??
ENPC;
.WORD
HP 1E
;FHD-OF-HODE.POOL-
1285
Hmmu,:u
n20n7n.'
HCITCc
.WORD
ML:! ii
;POINTER TO-NODE.CHAIH INDEX TABLE.
1285
OUU022.
UUUbeie
.WORD
0
;HO; OF-NODES.IN.USE-
1287
HHHH,L'al
02Us?ft
FRIPC:
,WORD
HP1
;POINTER TO
1288
nn0026
A2F1221c,
.WORD
NP1
;POINTER TO.NEXT-AVAIL; ODDS IN FREE POOL
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
?
11
FSA-A.TRAH!..: OP.(0T1) MACRO.M11
1
SCAN NODE AIN.
1290
1291 00F542.
1292
1293
1294
1295
1295
1297
1298
1299
130G
1301
1302
1303
1304
1305
1305
1307 005542.
1308 005552. 005761 177776
1309 005555 001003
1310
1.311
1312.
1313 005550 010102
1314 005552:
1315
1315
1317 005555 011102.
1318 005570 012703
1319 005574 015300
1320 005500 042(00
1321 005504 015205
1322.005510 042705
1323 005614 020005
1324 005615 003024
1325 005620 001404
1325
1327
1326
1329
1330 005522. 815202. 000002
1331 005626 000167 000054
1332.
00016( A00120
137
1335
133( 005632.
1330 005534
1339 005540
1340 005642.
1.341 0051F.417.
1342.005650
1342 01151,7,57
1344
1345
1345
010204
062704 800014
010305
062705 000014
022524
AC.17o7107
AR1403
l'ApiiVid1P6r14efeaseribb5M8/2.1A-RDP85-00514R000200010001-4
.SBTTL SCAN NODE CHAIN
.PSECT. CODE
SUBROUTINE.TO.SCAN.INDICATED.NODE CHAIN FOR.A.VECTOR.THAT.MATCHES.
VECTOR IH.VVEC.BUFFER.
ON ENTRYRi->HODE.CHAIN.TCHBE.SCANNED
ON RETURN,
R1 IS .UNCHANGED.
CC IS.SET.IF MATCH .WAS FOUND.
R2->MATCHING NODE.
CC IS.CLEARED.IF.NO.MATCH.
R2 ->NODE.AFTFP.WHICH.NEW.HODE CONTAINING VEGTOR.SHOULD.BE.INSERTED.
NSCAN: SAVE
TST
BHE
R0,R3,P4,R5
NAIODE(R1)
1$
CHAIN.IS.EMPTY
MUV
JMP.
;ANY.HODES IN
;BRANCH .IF YES.
NEW.NODE.SHOULD.BE.INSERTED.AT.HEAD.OF.CHAIN.
RI.. P2
10$
;R2->NODE.CHAIN.IHDEX.
$: MCN. (R1) ,R2. ;R2->1ST.HODE.
MOV. ovver,R7. ;R3->HEW.VECTOR.
7$:H.LGT(R3),R0 ;RO =.VVEC LENGTH.
*BITHIBR0 ;CLEAR.NIBBLE.INDICATOR.FLAG
tXI ,
MOV.
13 21.!i i H (
.LGTP2),R5 ;HODUS.VECTOR.LEHGTH.
*BITNIB,R5
BGT. RO,R5 ;COMPARE.VECTOR.LENGTHS
3$ ;BRANCH .IF HEW.VECTOR'.'S LENGTH IS.GREATEER.
BEO. 2$ ;BRANCH -IF SAME -LENGTH.
4$:
2$:
5$:
LENGTH OF NEW.VECTOR.IS?LESS: THEREFORE.NO?POSIBIF.MATCH NEW NODE.
SHOULD RE INSERTED.BFFORE.GURREHT.HODE.
Ni: V ?
J MP
t-IEIACK(R2),R2.
10$
PREVIOUS?NODE.
LENGTHS.MATCHED COMPARE?ENTRIES.OF VECTORS.
P2-> CURRENT NODE.
R3-> NEW. VECTOR.
M0 V.
ADD.
Fill';,'
A
CMP.
BG T.
BECH
R2,P4
*N.VEC.R4
*N,VEC,R5
3$
13$ 6$
;R4-, CURREHT.HODE.
;R4 ->CURRENT.VECTOR.
;RE, ->NEW-VECTOR.
;R5 ->HEW.VECTORS.ENTRIES.
;COMPARE.ENTRIES.
;BRANCH .IF NEW.VECTOR.S.EHTRY.IS.GREATER
;BRANCH.IF ENTRIES.MATCH.
.HEld ECTOR'S ENTRY IS SMALLER. NO POSSIBLE mi-VICH.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRAHSLATOR.(0T1) MACRO.M1110
--APP7r-OVHeRd*Origefeaselik.602'8/22 : CIA-RDP85-00514R000200010001-4
SCAN.NODE.CHAIN,
JMP. 4$
CONTINUE.
SOB. R8,5$ ;LOOK.AT 'EXT.EHTRIES.
VECTORS MATCHED !!!
R2-41ATCHED.HODE.
I
11$
LOOK.AT.HEXT.HODE.
CMP. HJIWD(R2),R1 ;CURREHT.HODE.LAST.IN.CHAIH?.
BRO. 1A$ ;BRANCH. IF YES.
MOV. H,FWD(R2),R2
Ji1P. 7$ :R2->HEXT.HODE-
HO.MATCEL HEW.HODE.T0.8E.LAST-IH.CHAIN:
R2->LAST.HODE.
CLC.
RESTOR. R0,R3,R4,R5
T. HSLAH.
1347 005554
1348
1349
1358
000157
1(7742
,
1351 005650
077006
5$:
1352.
1353
;
1354
1355
1356 885662.
0180126101801261N
1.3b( HK -1664
UUUlb(
ULIOU20
1358
1359
1350
1351 005670
025201
000000
3$:
1352.005674
A11404
1363 005575
016202.
000000
1.H4 0A5702.
ARA157
177655
1355
1356
1357
1368
1359 0057015
000241
10$:
1370 005710
11$:
1371 005720
? Approved For Release 2005/08/21IFIA-RDP85-00514R000200010001-4
110
FSA-A.TRAH_ OR.(0T1)
MATCH NODE
1373
1374
1375
1376
1377
MACRO- Mi 1 104F-'
rdMIP-6r114266-jasnEnT ATM
_8/2.IA-RDP85-00514R000200010001-4
.SBTTL MATCH.HODE.
suBROLITINE.TO.cOMPARE A- GIVEN V-'VECTOR WITH THE V-VECTOR OF.
IHDICATED.NODE,
OH.EHTPN,
1378
P2-> NODE.
1379
OH.RETURHfi
1388
MATCH:
CC.=.1
R2->MATCHING-HODE.
1381
HO MATCH: CC ? = ?
1382.
1393 005722.
MATHOD:
SAVE.
RO,P3,R4,R5
1384 005732.
005702
TST.
R2.
.:IS.THERE.A.HODE?.
13:A5 005734
001426
BEO.
2$
.BRANCH- IF NO.
13A6 005736
012703
000030'
MOV.
*VVECfiR3
.:R3->VVEC.
1387 005742.
016300
000012
MOV.
H:LGT(R3),R0
;RO ?VVEC'S-VECTOR LENGTH.
' 90 005746
042700
100000
815-
1389 005752.
016204
000012
MOV.
H:LGT(P2),R4
=.HODE'S-VECTOR LENGTH.
1390 005756
042704
100000
BIC.
*8ITHI81R4
1391 005762
0213004
CHID.
R0,R4
;COMPARE.VECTOR.LEHGTHS.
1392.005764
An 11:112
UNH-
BRANCH- IF LEHGTHS.PRE.NOT?EOUAL-
1393 005766
010204
MO--.---
R2fiR4
7.P4->HODE-
1394 005770
052704
01710014
ADD.
R4
.:04-> VECTOR.IH.HODE
1395 005774
062703
000014
ADD.
4..H:VEC,R3
;R3-> HEIZI.VECTOR.
1395 nAFAAA
n22324
1$:
(R3)+,(R4)-.1.-.
;COMPARE.EHTRIES.
1397 006002
001003
SHE.
2$
.:BRAHCH.IF HOT-EQUAL
1398 006004
17177Fin7d.
SOB.
R0,1$
1399 006006
01710251
SEC.
1400 0050 10
000401
BR
3$
140I 005.012
n On241
2$:
CLC.
1402.006014
RESTOR.
R0,R3,- ,R5
140,?.i 006024
EXIT.
MATHOD.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRPINGL0T0R.(0T1) MACRO.M1110 27-MAR-BO 13:07 P00E.35
MERGENARIABLE.LENGTH.NODES. Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
14A5 .SOTTO MERGE VARIABLE LENGTH NODES
1405
1407
1408 ON ENTRY
1409
8.1-> NODE-CHAIN.INDEX
1410
NODETHAT.SHOULD PRECEED.NEW.NODE-
1411
->
SOURCE .NODE.
1412-
1413
ON- RETURN.
1414
CC = 0
R2->NEW.NODE.
1415
CC = 1
82.?ERROR.CODE.
ER114 =.NO.FREE.NODES.
1415
1417
AAGA25
mPG:
SAVE
RO,R1
1418
006032
016701
000012'
MOV.
FRNPN+2,R1
;R1-> NEXT AVAIL: ENTRIN.FREE0-
1419
II Ii
166701
ARAAAW
SUB
BNPN,R1
.:81 =.LENGTH.OF.NODE POOL.IWURE.
1420
005042
022701
010000
CMP
oNP1MS:,R1
;END.OF.NODE POOL.REGION?.
1421
005045
003004
AGT
1$
;BRANCH.IF NO.
1422.
005050
012700
177616
MOV.
ikER114,80
;NO.FREE.NODES.
1423
006054
000251
SEC
005055
0004442 ?
BR
10$
1425
005050
015701
000012'
1$:
MOV
FRNRN+2,R1
;RI-. ENTR- IN FREED
1425
005064
2$:
SAVE
RO,R1,R2.
;81-> NELLNODE.
1427
005072
A12700
000030-'
MOV?
;RA =.SOURCE.ADDS.
1428
006076
016702.
000042'
MOV
N:LGT+VVEC,82.
;82.?VECTOR.LENGTH.WORDS)
1429
006102
042(02.
iou0H0
BIC
*BITNIB,R2.
;CLEAR.NIBBLE.INDICATOR.FLAG.
1430
006106
006302.
ASL
82.
;82?=.VECTOR.LENGTH.(BYTES)
1431
OFI3,11A
052702.
A00014
ADD
oN4HEAD,R2-
=.NO: OF.BYTES.TO.BE.MOVED
1432-
006114
CALL
MOVDT-
;COPY.VVEC INTO.FREE NODE.
14.313
AA5120
010157
000012"
MOV.
RI,FRNANA-2.
;SAVENEXT AVAIL: ENTRY. IN FREEO.
1434
006124
005257
000005'
INC
FRNPN-2.
;INCREMENT NODE .COUNT.
14.313
005130
RERTOR
80,81,82.
;RI ->NELI.NODE.
1436
006136
010100
MOV
81,80
;80-> NEW .NODE.
14.37
006140
RESTOR
RI
;R.1 ->NADE.CHAIN.INDEX.
1438
K2 ->NODE.AFTER.WHICH.INSERT SHOULD.BE.MADE.
14.313
005142-
CALL.
ADDNOD.
;ADD.NODE-TO.NODE.CHAIN.
1440
005145
10-2.007
BCC.
1441
005150
010002.
MOV.
RO,R2.
ERROR.CODE.
1442-
005152.
AA0251
SEC.
144.3
005154
000405
BR
11$
1444
005156
0100102.
4$:
MOV?
80,82.
;R. ->NEW.NODE.
1445
005 150
A00241
CLC.
1445
0051.62
0 0 0 402 ?
DR
11$
1447
005164
010002.
10$:
MOV.
? R 2
;R.2.?ERROR.CODE.
1440
005155
RESTOR
R1
1449
A05170
11$:
R ES TO R ?
80
1450
005172.
EXIT?
MRG.
Approved For Release 2005/08/21i1A-RDP85-00514R000200010001-4
M F9A-A.TR FIXED. EILIHdipHGTH.NODE. oR.(0TI) friAcRCi ? M
ERGE.
1452.
1453
1454
1455
1456
1457
1113A671184d1griiete7ase ._,,,,5,,,8/2.IA-RDP85-00514R000200010001-4
SBTTL- MERGE-FIXED.LEHGTH.HODE.
SUBROUTINE TO GET A.FREE NODE .FROM? THE FREE OUEUE,, COPY.COHTENTS OF.
THE SOURCE .NODE INTO IT, REMOVE NODE FROM FREE 0.0HD ADD IT TO-
INDICATED-NODE CHAIN,
1458
ON ENTRY,
1459
Ri-> NODE.CHAIN.INDEX.
1460
R2-> NODE.THAT.SHOULD-PRECEED NEW NODE.
1461
/EC.-> SOURCE .NODE.
1452.
1453
ON RETURN,
1454
CC =.0 R2->HEW.HODE.
1455
CC =.1 P2.?ERROR.CODE. ER114 =.NO.FREE 10DES.
1455
145? 006174
MERGE: SAVE. PO,R1
1465 006200
012701
000052'
MOV. *FREEOR1 ;PI ->FREE.e.
14bj UU52EI4
005761
177776
TST. H:HODE(R1) ;ANY.HODES LEFT?.
1470 006210
017172.007
BGT. 1$ ;BRANCH .IF YES.
1471 005212.
CALL. FREHOD. ;DELETE.OLD.H0DFS.
1472.00E216
103004
BCC. 1$
1473 006220
012700
177616
May'. *ER114,R0 ;NO.FREE.HODES.
1474 006224
000251
SEC.
1475 00E226
000456
BR 10$
1476 006230
011100
1$: (..R1) ,R0 ;PO ->FREE.HODE.
1477
;Ri->FREE.O.
1478 00623.
CALL REMND. ;REMOVE.HODE.FROM.FREE.O.
1479 00E23E
103002.
BCC 2$
1450 005240
Acio261
SFC ;RO HAS.ERROR.CODE.
1451 LJL1t4.4.
000450
HH 10$
1482 005244
SAVE RO,R1,R2
1483 00E252.
010001
MOV R0,R1 ;R1->FREE.NODE.
1484 005254
062701
000004
ADD *4,R1 ;RI ?DESTINATION.ADDRESS.
1485 005250
012700
000034?
MOV. 4.e..VVEC+4>,R0 ;RO --SOURCE .ADDS.
1485 005254
0116752.
000042?
HOY 116LGT+VVEC,,R2 ;R2.?VECTOR.LENGTH.WORDS)
1487 006270
042702 ?
100880
BIC *BITHIBAR2 ;CLEAR.NIBBLE.INDICATOR.FLAG.
1488 171176274
11 1511.31112
ASL 112 ;112.?VECTOR.LENGTH.(BYTES)
14439 005275
020227
0001116
OMP R2,*NPEVSZ*2 ;COUHT.MUST.E.E.LESS.THAH.HODE-LEHOTH.
14E40 0067.02.
0F12,407
OLE 3$ ;BRANCH .IF LESS,'
1491 006304
RESTOR RO,R1,P2
14.92 005312.
012700
177614
MOV. *ER116,120 ;DATA.LONGER.THAN.NODE.
1493 00115
880251
SEC
1494 55.325
000421
BR 10$
1435 006322.
062702.
17111J0A2A
3$: ADD oNEW.NODE.
14918 555.345
RFSTOR Hi ;RI->NODE.CHAIN.INDES.
1499
;R2->NODE.AFTER.WHICH.INSERT SHOULD.BE.MADE.
1500 006342-
CALL. ADDMID. :ADD.NODE.TO.NODE.CHAIN.
1501 005346
103007.
BCC. 4$
I502 ARF,7tin
010002.
1111.52. ;R2.?ERROR.CODE.
1507. 817152
0002:61
SEC.
1504 11FIF7ti4
01004015
BP 11$
1505 006355
010002.
4$: MOV Rel.P2 ;R2->NELLNODE.
1506 A06360
000241
LLC
1507 Finfl,.72.
000402.
BP 11$
1505 006364
A10002-
10$: MOV FO .R2 ;P2 = ERROP CODE
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRHNSLATOR.(0T1) MACRO.M1110 27-MAR-R0
MERGE-FIXED.LENGTH.HODE. Approved For Kefeate 2005/08/22 : CIA-RDP85-00514R000200010001-4
151719
RESTOR
R1
1510
A1171570
11$:
RESTOR
RO
1.5ii
006372.
MERGE
Approved For Release 2005/08/2201A-RDF'85-00514R000200010001-4
?
FSA-A.TRAW1 OR (0T1) MACRO Mu
IP
FREE UP NOD .7.,
1513
1514
1515
16Api,I;OW-CIF8r tiaseP65/68/2/111A-RDP85-00514R000200010001-4
.SBTTL-.FREE UF NODES
SUBROUTINE.TO.DELETE.THOSE NODES.FROM.NODE.CHAIN.FLDC.
1516
;
WHOSE.HIBBLE.POSITION.NUMBER.IS.2.0R
MORE.LESS THOH.THE.NIBBLE.
1517
POSITION.HUMBEH.OF-THE.CURRENT.NODE:
THE.NODES?THUS.RELEASED.
1518
ARE.RETURNED.TO.THE.FREE.HODE.CHAIN:
1519
ON ENTRY,
1520
RI -> FREEO.
1521
VVEC-> SOURCE NODE.
1522
OH RETURN,
1523
CC =A FREE-NODE.COUNT.GREATER.THAN ZERO.
1524
CC =I COULD.NOT.FREE.ANY.NODES.
1525
;
1526 006374
FRENOD: SAVE. RB P 1 P2 . P2 . R4. R.5
1527 AC-17.41A
1528.005414
116703
162703
0000,40
AAAA03
tio',,?,,A . H,POS+VVEC,R3
SUB. *3..R3
;R3 --CHAR. POSITION NUMBER.
1529 006420
012701
000040'
1$:*FLDC
,R1
ii"-----i
IN
;RI ->NODE.CHA.INDEX.
1530 006424
015105
177776
(1),.R5
-:NODER.
;R5 ?HO: OF.HODES.IN.CHAIN.
1531 AA543A
AA1411
5$
1532.006432.
011100
NOV. (R I ),RA
;RO-> 15T.HODE.
1533 005434
3 005440
154
120350
002403
AOAA1n
2$:
CMPB.
. R3,N.POS(RO)
BLT 3$
;TEST.HODE'S.CHAR: POS: HUMBER
;BRANCH.IF POP.: HA, NAT.LOLLENOUGH.
1535
1535
FOUND.HODE.THAT-CAN.BE.DELETED -
1537
RO -> NODE.
1538
R1-> HODE.CHAIN.INDEX.
1529
1540 006442
CALL. DELNOD-
1541 005445
000764
BR 1$
1542 006450
011000
3$:
MOV. (RB:: .R0
:RB-> NEXT NODE
i54 001:-.452
077510
PIO.
1544 005454
5$:
1545 005454
RESTOR. RO,R1,R2,R7,R4,R5
1546 005470
005751
177776
TST. H:NODE(R1)
1547 Aft7.474
A07.A0?
BOT. 4$
1548 005475
0on21:-.1
SEC.
1549 111155AA
5554111
BR 5$
15511 A055112
00A241
1551 105504
5$:
EXIT. FRENOD.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FSA-A.TRAHSLATOR.(0T1)
WRITE.TDCTA.TO.DISK-
MACRO 41111E1ApitibrMerPbr1-461.Salob5168/22:CIA-RDP85-00514R000200010001-4
1553
.SBTTL-.WRITE.TDCTA.TO DISK.
1554
1555
THE.PURPOSE?OF.THIS.SUBROUTINE.IS.TO WRITE.OHE BLOCK .OF.
1555
THE.TERH.DETECTOR.CONTROL.TABLE.TO.DISK:
1557
155P
FI
nnf=,51b3 11,Ml
WRTTDC::
WRITES *EHAFDB,*TDCBUF? ;WRITEIST BUFFER.BLOCK TO.DISK-
1560
006524
WAIT$ *EHAFDB?
1551
AA5534
105767
ncinARA'
TSTB? IOST ;AHY.ERRORS?-
1552
00554171
007010
BO T? 1$ ;BRAHCH.IF HO.
1563
RAF,542.
116701
AAAAAA'
MOVB? IOST,R1
1554
00554G
010157
001556'
MOV. R1,PAk-
.5f=5
CALL. FCSERR?
1555
005555
000167
000176
RP. EXIT
151ED(
006562.
1$: EXIT? WrT1DC?
Approved For Release 2005/08/22 A-RDP85-00514R000200010001-4
FSA-A.TRANSIII/OR.(0T1)
ERROR.NANDL 1..ROUTINE
1559
15719
1571
1572-
MACRO-Milla 27-MAR_Lim 13017
Approved -F6r Keiease? zuvo/m/228A-RDP85-005f4R000200010001-4
.SEITTL?ERROR-NANDLING ROUTINE.
DIRECTIVE-ERROR.
1573
1574
AAIP,55,4
005570
011567
015757
001554'
000000G.001555.!
DIRERRg:MOV.
MOV.
(SP),PAR1
SDSWPAR2
;NRC.AT.DIRECTIVE.ERROR.
;$DSLI.
1575
006575
HOUT$9.
.H,MSG1,4PAR1
1575
005615
005725
TS T.
Loi
1577
005520
000157
LIULI1,34
J MS
EXIT.
1578
1579
FCS.ERROR.
1580
1581
005524
011557
001554'
FCSERR::NE
(SP),PAR1
1587
005630
HOUT$S.
4MSG2,*PAR1
.:PC?
15R3
005650
0115725
TST.
(51-).4-
;RESTORE-STACK.
1504
005557
000167
000102
jf-1P.
1585
1585
TDCT.OVERFLOW.
1587
1588
A8555F
TDCERR;
1589
005555
011557
001564'
ERROR2;;MOV.
(SP),PAR1
1590
006662.
MOUT$S.
WSG5,PARI
1591
005702.
000157
000052
jMP.
1592.
15,317
NODE ERROR
1594
1595
00570G
011557
001564"
NODERR;:MOV.
(SP),PAR1
1595
005712.
010057
001555'
MOV.
RO,PAR2
1597
005715
HOOT$S.
4M504,0PAR1
1599
005736
DERR
1599
1600
006740
ERRINT: MOUTSS.
*MSG5,*P5R1
1501
1502
005750
EXIT::
1503
005750
012757
177777 000000C.
MOV.
*-1,5HDBUF+5D,FS5.
1504
005756
OUSIL
172054
in
OT1.7
15115
1506
6013ao
.PSECT.
DATA
1507
ERROR-MESSAGES.ARE.PRINTED OH TI.BY MSGOUT.
150G
STRING DESCRIPTORS.
1509
1610
1611
001300
001302
000041
[7117117;72.A'
515811: .WORD.
NJORD.
LN1E-LN1
LN1
.:LENGTH.OF FORMAT.STRIHG.
;ADDS.OF.FORMAT.STRING.
1512
001304
000040
MSG2; .WORD.
LH2E-LN2.
1613
001.305
001371'
LN2.
1514
001310
000014
MSG3: .WORD.
LH3E-LN7
1615
0017.12
001431'
.WORD.
LN3
1515
001314
000041
MSG4: .WORD.
LH4E-LN4
1617
001316
001445'
.WORD.
LN4
1618
001320
000032.
M5G5: .WORD.
LN5E -EN%
1519
51511322
aoi5o6A
.WORD.
Li-IS
lbSU
001324
20AN27
1-15815; .WORD.
LHGE -LNG
i62i
oni7-37f7,
001540'
.WORD.
LI-lb
1522.
1523
1524
1625 001370 104 111 122. LN1: .058:I3. /DIR. ERROR, PC.--..X10,
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FORMAT STRINGS.
FSA-A.TRANSLATOR.(0T1)
ERRAR.HANDLING.ROUTINE-
1525 001371
MACRO-M1110 27-MARnB0 1_3:07 PT %-
Approved For Release 2005/48/22 : CIA-RDP85-00514R000200010001-4
LH1E:
1527 001371
105
103
123
LN2:
.ASCIa.
/FCS ERROR, PC.=.'g10,
ERR.=.X11)./.
1628 001431
LN2E:
1629 001431
121
124
061
LH3;
ASC 1%
/01-1 EXITING/.
1630 081445
LH3E:
1531 001445
116
117
104
LN4:
.ASCIZ.
/HODE.ERROR, PC 1O
CODE.= X D/
1532.001505
LH4E:
1633 AA15A5
124
104
103
LN5:
.ASCIZ.
/TDCT.OVFRFLOW. PC.=.10/.
1634 001540
LN5E:
1635 001540
ili
115
124
LH6;
.ASCI.Z.
/INTERNAL ERRAR=XID/.
1536 001553
LH5E:
1537
.EVEH.
1638
;
153A
; PARAMETERS.
1640
,
1641 00I6E.4
MMVIMH,1
PAR 1:
.WORD.
0
1542..001556
00000U
PAR2::
.WORD.
0
; riLLI ...
OR F.ERR
? Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSA-A TRAHE 8R.(OT1) MACRO.M1110 27-MAR- '
TERM.DETECTI COH?ROLTABLE.BUFFER Approved or ........5....8/221A-RDP85-00514R000200010001-4
1644 .SBTTL- TERM DETECTOR.CONTROL.TABLE.BUFFER
1645
1546 TERM.DETECTOR.COHTROL.TABLE.BUFFER.
1547
1548 LAYOUT OF.IHCOMPLETE.STATE WORD:
1649 !:;EG1 =
155A
5857.= NODE ADDRESS.OF.STATPS.VVEC.
1551
SEG3 = INDEX STATE BITO =.1
1552.
BIT1 =.1 MEANS THAT.VLDC COLUMH HAS. ALREADY BEEN CONSIDERED.
1653
1554 AA157A
AOAA02-
FLSEDF: .wORD 7 ? ;ELSE.DEFAULT.STATE.ADDS.
1555 001572.
800003
INTDEF::.WORD :2. ;INTERWORD DEFAULT.ADDS-
1606 001574
HHHHHN
C.FLDC: .wORD ;ADDRESS.OF-CURREHT.FLDC.NODE.
1557 001575
HMHUHM
C.VLDC: .W0PD 1-1 ;ADDRESS.OF.CURREHT.VLDC.HODE.
1558
1559
1550
1561 081600
01100134
LOWADD: .WORD 4 ;ADDRESS.OF.LOWEST.INCOMPLETE.STATE.
1552.001502
AAAA3A
LOWOFF11.WORD TDCT1 ;OFFSET.OF LOWEST.IHCOMPLETE.STATE.
1663 801604
000004
FSAADD::.WORD 4 ;ADDRESS.OF.CURREHT.TDCT.STATE
1664 001606
00007,0
P;AOFF::.WORD TDCT1 ;OFFSET.OF CURREHT-TDCT-STATE-
1665 901519
000005
H:v.:TADDE:.WORD 5 .2HEST.AVAILABLE.STATE.ADDRESS.
1666 001612
00087.6
HXTOFF::.WORD FREE1 ;NEXT.AVAILABLE.OFFSET.IH.TDCT
1667 001614
017732.
TDCHAX::.WARD TDCEHD-TDCT-5 ;LARGEST.AYAILABLE.TDCT.OFFSET
165e 001515
155';
00157-10'
TDOODR::.WORD TDCT ;VIRTUAL.START.OF.TDCT.BUFFER.
157A
TDCT.BUFFER.
1671
1572 001528
8873
18:72.
TDCBUF: .ASCII.
1573 001522.
000000
TDCLGT: .WORD ;BLOCK.LENGTH.OF.TDCT-A.
1674 001624
v:. LU ;FILLER.TO ALIGH.3-WORD.TDCT?EHTRIES-
1.675
;OH.1824. WORD BLOCK BOUHDARIES.
1676
1077
TDCT STATE.WORD 0
1670
1679 001630
888802.
TDCT:: .WORD. 2. ;HELLELSE-DEF: ADDS
1600 001632.
000002.
JULIFd). ;NEXT STATE ADD
1581 001534
130000
.WuRD. 1300518 ;!;TATE.: CHANGE ELSE DEE:
1682.
1.68.3
TDCT-STATE WORD 1
1584
1585 5101635
HMHMH3
. bjoRD ? 3 ;HEW-IHT: DEE: ADD 'S
1606 001540
000804
. WORD ? ;HEXT.STATE.ADDS.
1687 001642.
124000
. LiORD? 124000 ;STATE.: CHANGE...INT: DEF.
1588
1689
TDCT STATE.WORD.2.(ELSE DEE: STATE- WORD)
15qA
1591 001544
uumuuu
.1,10RD A ;MATCH.BYTE.(INTERWORD.CHAR:)
1592-001545
999AA1
bjcifR. D ? 1 ;NEXT.STATE.ANYS.
1693 001650
1140510
.WuRD-114000 ;STATE.: JUMP/SEQUENTIAL.
1694
1595
TDCT.--ATE.WORD.3 INTERWORD.DEF: STATE.WORD)
1595
1597 551552.
1698 881854
PVIMMI-1-
17188801
.1.,10 D ? 7 . ;NELJ.ELSE.DEF: ADDS.
. LUCIRD ? 1 ;HEXT.STATE.ADD.f'S.
1699 001656
130000
. wo RD ? 170000 ;STATE.: CHANGE ELSE DEE,
1700
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
NODE.HEADER.AIIL.FINI P
FSA-A-TRANC OR.(OT1) mAcRo.tillia. 27-MA- .2,1 1.2 117 PLI:s AJ
Approved-por Kelease zuu5/u8/2.IA-RDP85-00514R000200010001-4
TIOHS.
1705
1707
1708
17119
1710
000030
.SBTTL. NODE HEADER DEFINITIONS
.PSECT. NODES.
;
; NODE LENGTHS
.
1711
000014
N HEAD = 12: ..:NODE-HEADER.LENGTH.(BYTES )
1712-
000122.
N:TOT. =- N:HEAD+;TOTAL.HODE.LEHGTH.(FIXED LENGTH .NODES)
1713
uuuuu5
N:LEN? = IS ;LENGTH.OF.INDEX HEADER.
1714
1715
; NODE HEALER OFFSET DEFINITIONS.
1716
.
1717
OAAAAA
H:FWD. .. A ;FORWARD POINTER.
1718
0
000U2.
H:
N;BACK- .. FW D+WORD1 ;BACKWARD.POINTER.
1719
OACJA04
N;FSA ? .. N:BACK+WARD1 ;FSA.STATE.ADDRESS
1720
000005
N:ELBE. == N;FSA+WARD1 ;ELSE.DEFAULT.STATE.ADDRESS.
1721
AAA0111
N:POS- H:ELSE+WORD1 ;NIBBLE.POSITION.HUMBER.(LOW BYTE)
1722.
;BIT15 = 1 IMPLIES NODE.REPRESENTS.ELSE.
1723
;DEFAULT OVERRIDE.STATE.
1724
000012.
N:LGT. .= N;POS+WORD1 ;VECTOR.LEHGTH.
1725
;BIT15 = 0 : FIRST NIBBLE.
;BIT15 = 1 : SECOND.HIBBLE
1727
0A0114
H:VEC. .=. N;LGT+WORD1 ;AFFSET.OF-START.OF.VECTOR
1728.
1729
NODE.CHAIN.INDEX TABLE.OFFSET.DEFINITIONS.
1730
1731
177775
N:HODF. ;NUMBER.OF.HODFS.IN.O.
1732.
1733
1734
.SBTTL. E-M RIX BUFFERS.
1735
1735
1737
1738
MMUULim
.PSECT.EMA
VHASK.BUFFER.(IT OVERLAYS EMALGT AND VI)
1739
RAAAAA
VMASK.:
.BLKB.
H POS.
1740
1741
1742
1743
000010
ARAOAA
EMALGT;
.WORD.
n
;BLOCK.LENGTH.OF.EMA
1744
00017112
HHHHHH
VILGT;
.WORD.
A
;NO OF.EHTRIES.IN.VI.
1745
000014
V1;;
..LiNODE.AFTER WHICH INSERT.TO.BE.MADE.
Ri-->0.INDEX.
RO-->NODE.TO.BE INSERTED.
;JSR. PC,ADDMID.
;OUTPUT:
ADDNOD:
IF C=B NODE.ADDED.AND.INDEX.NODE.COUHT INCREMENTED.
IF 3=1.. R0=104, NODE.ADDR.OUT.OF.REGION.
11.-3(3 1007034
026700
000000'
CMP.
BNPN,RO
;REGION START-
1874 007040
101016
BHI.
1$
;NODE.OUT OF REGION
1875 007042
--cc 887848
820067
101013
000002'
CMP.
BHI
RO,ENPN.
1$
;END OF.REGION
;NODE OUT.OF REGION
1877 007050
011210
;NEW? NODE FWD PTR
1878 387852.
01828R
AAARA7
MOV.
;NEW.HODE BOCK.POINTER
1879 007058
010012.
MOV.
RB.. (R2
- -7V.N8DE FWD PTR
1880 007060
011002.
t-E1V.
(RU) ,H2.
1881 887062
818082.
FI00082
MOV.
R8,2(R2)
;NEXT- NODE BACK POINTER
1882.007088
885281
177776
INC.
N4NODE(R1)
;INCREMENT NODE COUNT
1883 887872.
000241
CLC.
1884 007074
880483
BR
71;
1885 807076
012700
177630
1$:
MOV.
#ER104,R0
;NODE-OUT-OF.REGION.
1886 007182-
0110251
8FC-
1997 007104
Fic-icoA7
2$7.
RTS.
PC.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRANSLATOR.(0T1) MACRO .M1110
ADD.HODE.TO.TOP-OF-0 (FIXED?LENGTH.
1889
1890
1891
1892.
1893
*lieFd*OriF-ieleasep*t05/08/22 : CIA-RDP85-00514R000200010001-4
.SBTTL-.ADD.HODE.TO.TOP.OF.O.(FIXED.LENGTH NODES)
;ADD.HODE.TO.TOP.OF.CHAIN.
1894
RO=HODE.ADDR
1895
P1=0' INDEX
1891.1-.
1897
JSR.PC,ADDTP
1898
1899
;OUTPUT: IF. C=0, P0-PS RESTORED
1980
IHDEX.HODE.CHT? INCREMENTED.
19A1
Jr C=1, R0=104 OUT.OF.REGION-
1902.
1903 007106
010246
ADDTP: MOV.
1904 007110
020057
000044'
CHF'. ;REGION.START.
RO, APOOL .
1905 007114
103420
BLO. 2$ ;OUT.OF.REG.
1906 007115
020067
000046?
CHIP. RO,BPOOL. ;RSGIOH.EHD.
1507 007122.
103015
OH IS 2$ ;OUT.OF.REG.
1908 007124
004787
000116
JSR. RC,ZER0FH- .:ZERO.OUT.HODE.WHEN.RETURHING-TO.FREE.OUEUE.
1909 007170
011102.
MOV ? (R1),R2. ;PREV.TOP.PTR, FROM.IHDEX.
1910 007172.
1511 007134
1912.007136
010011
010210
0100F2.
0110002
May'. RO,(R.1)
R2,(RA) IH?IHDEX.
M10 CW. ....FRWD.PTER.IN.HEW.HODB.
R0,20R2) ;PT.PREV TOP.TO.HEW.TOP; BACK.
1913 007142.
010160
0017117102
R1,2(RO) BACK.
1914 007146
005261
177 776
H:DE(R1) .;:;121J:s.irrij..Ei.:PT.TO-IHDES,
NO
1315 007152.
000241
1915 007154
000407.
BR is
1917- 007156
012700
177630
2$: MOV. #ER104,R0 .:OUT.OF.REGION-
1918 007162
000261
? SEC ?
1919 0071164
012602.
1$: MOV?
1920 0071F8
0110207
RTS. PC.
?
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
111111111111111111111 .11111111111111
FSA-A.TRAIIIOR.(0T1) MACRO.M1114700608r rasef
ADD.HODE.TO.riDDLE.OF.0.(FIXED LEN kLhb) ob547/u8/2.1A-RDP85-00514R000200010001-4
1922. .SBTTL- ADD.NODE.TO.MIDDLE.OF.0.(FIXED.LENGTH.NODES)
1923
1924
1925
1926 ;ADD.NODE.TO.MIDDLE.OF.0.- THIS.ROUTINE.ACTUALLY.PERFORMS.
1927 ;LINKING.
1928.
Foci
1930 ;INPUT:. R2---?,HODE.AFTER.WHICH.INSERT.TO.BE.MADE.
1931 R1-- G.INDEX.
1932. RO-- NODE.TO.BE.IHSERTED.
1933
1934 ?
1935 ;JSR. PC).ADDMID.
1936
1937 ?
1938 ;OUTPUT: IF. C=0, NODE.ADDED.AND.INDEX.HODE.COUNT INCREMENTED
1939 IF .1=1, R0=104, HODE.ADDR.OUT.OF.REGION.
1940
1941
1942-171071711 6
HDDMID:
1943
007170
0200167
000044'
IMP.
Ro,elonoL.
.REGION START
1944
007174
107420
BLO.
is
;HODE.OUT.OF.REGION.
1945
007176
020067
000046'
IMP.
RO,EPOOL.
;END.OF.REGION.
1946
007207-
1072.A15
PHIS.
1$
;HODE.OUT.OF.REGION.
1947
007204
0A471'--;7
OARIA7,R,
JSR.
PCEEROFH.
;ZERO.OUT.FREE.OUEUE HODES.
1.143
AA7P1A
011210
HOY.
(02),(RO)
;NEW.HODE.FUD.PTR.
1949
007212.
010260
000002
MOV.
R2..2(R0)
;HEW.NODE-BACK.POINTER.
1950
0A7211:-.
010012.
MTV.
RO,(R2)
;PREV.HODE ID FTP
1951
007220
011002.
MOV-
(R0),R2.
1'T
o0:2
MiUU1'.1?-
HHHULL
M OV.
R0 2 (R2
,)
;NEXT.HODE BACK.POINTER.
1953
007226
005261
177776
IHC-
HMODE(R1)
;IHCREMEHT HIDE COUNT
1954
11107232.
000241
CLC.
1955
0171724
000407,
BR
2$
1956
00723H
0127AA
177630
is
MOV-
oER104,P0
;NODE.OUT.OF.REGION.
1957
007242.
000261
SEC.
1"1!--0:1
UH(244
UULI2MK
2$:
RTS.
PC.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A ? TRANSLATOR ? (QT1) MACRO. M1110Apw6a-08r i4dkiseP2 ob5/0-8/22 : CIA-RDP85-00514R000200010001-4
ZERO-OUT.FREE.QUEUE-NODE.
1960 .SBTTL ZERO OUT.FREE.OUEUE.HODE
1951
1952.
1963
1964 ;THIS.ROUTINE.CHECKS TO.SEE.IF A.NODE.IS BEING.ADDED.TO.THE.FREE.QUEUE.
1965
IF SO THE.NODE-IS.ZEROED.OUT BEFOREHAND:
1966
1967
1966
;INPUT. RO--/NODE. t. I---QUEUE-
1969
;OUTPUT.R.0--\NODE. R1-- QUEUE.
1970
1971
1972.
;RO, R2-ARE.SAVED.AND.RESTORED
1973
1974
1975 007246
ZEROFN:
1076 007246
020127
000052'
CMF ? R1,4FREEQ. ;IS.THE.FREE.QUEUE HAVING.A.NODERETURNEN.
1977 007252.
001010
ONE 2$ ;NO, EXIT.
1978 007254
010046
MOV. R0, -(SPJ
1979 887256
010246
MOV.
1900 807260
012702.
0001-2
MOV. 4iN:TOT,R2. ;R2.--TOTAL.BYTES.IN A.NODE.
1981 007264
1$:
1982.007264
105020
CLRB. (R.0)-1-;CLEAR.BYTE.
1983 007266
077202.
SOP. R2,1$ ;LOOP.TILLALL.BYTES.CLEARED
1.984 007270
0126C
MOV
1985 007272.
012600
MOV. (RP)-1-..R0
1986 007274
7$:
1987 007274
000207
RTS. PC.
? Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
F5A-A.TRAHE -R.(0T1)
DELETE MODE
NicPc:1 NI II ?Api.37r-OVerd-g-Or iFide7asei13051-68/2.1A-RDP85-00514R000200010001-4
1999
1990
1991
1992.
1997,
1994
1995
1995
1997
1990
1999
201,10
2001
00727-5
2002
007276
010145
007300
004757.
177466
217104
.0077-104
107004
2005
007306
004757
177374
2005
007512.
000157
177442
2007
0077.7.1E
0077.15
012701
000117
20A9
007322.
004767
177F,I30
2010
Go77.62e
10500 4
20ii
A077.172.0
004757
177-2
2012
00734
00011,7
177420
pE11 72,
0177,40
An0241
2014
0073
012501
2015
007744
000207
.59TTL ?DELETE.HODE.-
DELETE A.NODE.FROM.INDICATED.NODE.CHAIN:
;INPUT. RO-->NODE.TO 9E.DELETED.
R1-->NODE.INDEX.
;OUTPUT.
C=0, OPERATION -SUCCESSFUL, NO FURTHER PROCESSING HOW
? DELMOD:
R1,-(SP) ;SAVE.INDEX.VALUE.WHICH.IS.CLOBERRED-IN.ROUTINE.
Jsr PC,REMND. ;DELETE .NODE.
8CC 1$
JSR. PC,NODERR.
JHP. EXIT
18:
MOV. *FREEO,R1
,.
jSR-
PCADDTP
. ;RETURN.NODE.TO.FREE.O.
9CC 28

JSR. PC,NODERR.
JOE. EXIT
78: 11.C.
MOV. 27)+,R1
RTS.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A ? TRANSLATOR- (Q-11)
MOVE DATA. BY. COUNT.
2017
?AIR
2019
2020
MACRO? MI 1 1E1_ 27-MAP. Ell 1:3:H7 PLLE
Approvedvor Kelease zoo5tuo/22 : CIA-RDP85-00514R000200010001-4
.SEITTL. HOVE DATA EVY.COUHT.
;MOVE -DATA BY .CHT.
2021
;IHPUT:
RO?SOURCE.ADDR.
217122.
R1.-.DEST.ADDR.
:27
?
R2?COUHT.(BYTES)
31324
2025
JSR.PCfiMOVDT
2n2f;
2A27
;OUTPUT:
RO-R3?CHAHGED.
217129
007346
005(02.
MOVDT:
TST.
2033
00772150
00 1402
BFO. 2$
AA77552.
112021
1$:
MOVEL (R0)+, (R1)?
Al2(7.54
A77202.
SOR. R2 1$
2033
007359
2$:
2072.4
01.159
AAA,LA7
RTS- PC.
Approved For Release 2005/08/21IFIA-RDP85-00514R000200010001-4
FSA-A.TRANS -9..(0T1) MACRO MI
VALIDATE 0. NUDE ADDRESS
11-0Apilf6)it18r keekase132065W08/2.1A-RDP85-00514R000200010001-4
2035. .S9TTL. VALIDATE.O.HODE.ADDRESS.
2037 ;
20..7P ;
2039 ;DETERMINE IF.HODE-ADDR.IS-VALID.
2040 I,E: CORRECT.O.AND.CORRECT.REGION.
2041
2042. ;INPUT; R0=.110DE.ADDR.
2043 , R1=.0.INDEX.
2044 , JSR.PC,VALND.
2045 ;
2046 ;OUTPUT; R2-R6 RESTORED.
2047 IF.0 =0,0K,R0 -1-. R1 RESTORED.
2049 IF.C.=.1,ERROR,R0=102-HODE.NOT.IN 0.
2049 ..: R0=104, HODE.ADDR.HOT.IN.REGION.
2050 .
2051 007360 01014$ VALND; MOV. R.1,-(SP)
20E2.007362. 010246 MOV. R2, -(SP)
2057.; 0077-364 10571 177775 TSTB. N,NODE(R1) ;ANY.ENTRIES.
.
2054. 007370 00 BEO
1423 4$ -0 'u
2055 007372. 020067 000044 CMP. R0,9POOL. ;REGION.START.
20E6 007376 103414 9LO. 3$ ;OUT.OF.REGIOH.
2057 .007488 02006.7 A00045' CMP. RO,EPOOL. ;REGION.END.+1
2050 007404 103011 9HIS. 38 ;OUT.OF.REGION.
2059 007406 115102. 177775 MO VB. N,HODE(R1),R2. ;*.OF.E.N1H1ES.
2050 007412. 011101 is MOV. (R1),R1 ;1ST.HODE.ADDR.
2061 007414 020100 CMP. R1,P0 .VALID.HODE.
2062.007416 001402. BEO. 2$ ;YESfiGO.
2063 007420 077204 SOB.
BR R2,1$ ;LOOP.
2064 007422. 000406 4$ ;ERROR.
2065 007424 000241 2$: CLC.
2066 007425 000407 BR 5$
217167 017.174.70 000261 38:
SEC
2069 0074.3 012700 177530 .
*ER104,R0
:0:9011747,6 000403 EN1117t1:1''' . E$
2070 08744A 000251 48: '..7.FC.
2071 007442. 012700 177632 MOV. *ER102,R0
372.007446 012t ? 5$: NEN- 4.,R2.
2077. 007450 012601 NOV. (SP.1+,R1
2074 007452. 000207000207 RTS. PC ;RET-
.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FSA?A.TRAHSLATOR.(0T1)
COMPRESS TOOT
2075
7077
207A
7079 007454
70A0 007462. 012700
2081 007466 010001
7007.007470 062700
2083 007474 012702.
20A4 007500 160267
2065 007504 160267
2086 007519 160267
2087 007514 160267
2008 007520 A16702
2089 007524 016767
?Plc:WI
2091
2097
2093 007532
2094
2095
2096
7097
2090
2099 007536 012702.
211710 007542 160102.
7544 06202.
2101 00 0
2' 102 007546 005021
2103 007550 077202
7104 007552
._5 007560
2105 AFIA000
CRO.M1110. Lr?HAR
MA Ak Wro-/-eciror-Kere7ase zuu5/u8/22 : CIA-RDP85-00514R000200010001-4
.SBTTL COMPRESS TOOT
,
MOVTDC::SAVE. RO,RI,R2.
00167,0"
RO,R.1 ;',R0?> TDCT BUFFER.
'tl!.!..111 *TDCT,R0
.:R1 ?DESTIHATIOH.ADDRESS.
003770 ADD, *H:BUFB-10,R0 ?R0 ?SOURCE -ADDRESS
003770 MOV.
,J_JB. o,R.2. ;R2.?BYTE COUHT.OF.TDCT.WRITTEN.TO.DISK
001602' R2,LOWOFF. ;RESET.LOWOFF.
001606'
. R2,FSAOFF. ;RESET.FSAOFF-
001612 SUB R.2,HXTOFF. .:RESET.HXTOFF.
.
001616 SUB R2,TDCADR. .:ADJUST.VIRTUAL.TDCT BUF.START
001612' MUV? HXTOFF,R2- ;:R2.?BYTE COUNT.OF.ACTIVETDOT.
001606' 00.0024' MnV. FSAOFF,R11 .:UPDATE .R11
MOVE.ACTIVE.TDCT TO START.OF.BUFFER.
CALL. MOVDT.
CLEAR.UHUSED.PORTIOH.OF.TDCT.BUFFER.
R1 ?> OHE.WORD.BEYOHD.ACTIVE.TDCT.
021570' MOV. *TDCEHD,R2. :R2?>END.OF.TDCT.BUFFER.
SUR. Ri,R2. ::R2=BYTE.LENGTH.OF.FREED.UP.BUFFER.SPACE
R2. ::P.2=WORD. II II H II
i'''fl
1$: (R1).-F .:ZERO.OUT.THIS.SPACE
5OB. R2,1$
RESTOR RO,R1,R2.
EXIT. MOVTDC.
.EHD. START.
? Approved For Release 2005/08/211FIA-RDP85-00514R000200010001-4
F5A-A.TRAHfibE?OR.(0-1-1)
SYMBOL.TABL ?
tl111Rcl? M111?ApOi:Ard-F-Or ketelasePh65i08/241A-RDP85-00514R000200010001-4
ADDMID. 007170R. 017 B:HBLK 000120 010 EMAMSZ=?015000 G. FH,DHb 000022- 011 FdleFG=.000A5A5
ADDHOD. 007034R. 017 B:ADOC 1j00114 010 EMACLS-AAROA4 G. FH:DHR. 000040 011 F:HRBD-000024
ADDTP. 007105R- 017 B:HRLP 00012P. 010 EMBOUT-001130 G. FH:EMA. 000012. 011 F:HREC-AAAA30
ASTKHX-000400 G B:HRLR 000122. 01A EMBM5Z-0A4400 G. 011 1:OVOS-000030
B:HRLW 000124 FN:EMID. 000014
011 F:RACC-0000116
AVELGT-Lmuu25 u A10 EMCMSZ-001000 G. FH,EMC. 00001P
:-
BITHI0-100000 G. 0:NMBR 0[710052. 010 EMXCAF-A20000 G. Fri FH A000100 011 F PH 11 A0AnA1
Eli 1F-IL- B:HORY 000232. AlA EMITF-01AAAA G. FM FE oo0nA2. 011 F:RCHM-0010034
?ITO -000001 EI:LALs uutliuh 010 Emxhxr-=?000001 u.
BIT1 =.1JUULJU2. 8:0MAP nnn274 010 EMXFDO-002000 G- r.-1:fas: rgTi,!1 011 F:RCTL-000017
011 F:RSiz-000002
HI Iii =.MM,MMM B:OSPL 00031P. 010 EMXMCD-A0AAA2 G. FH:LGO. AAA036 011 h:RIYH-000000
BIT11 -0041211710 B:OTTM OnA025 010 EMXMCF-0010A1I G. FH:MFO. A13AA24
BIT -
12 Aianno 8:000P 000A55 010 LII LI G. FH :MAR. 000010 011 F:SEOH-000100
011 F:SPDV-000072
BIT13 -020000 B:SEDB 000010 010 EMXMTV-040000 G. FH:HMB. 000044 011 F.:SPUN-000074
BIT14 -A4A0An B:SIZE 0007?-., 010 EMXN-01-AAnnA3 G. Fri OL 000006
BIT15 -1000,10 B:SHDP Ann012. Ain END, N -
B2000004 G. FH:ORY. On0A20 011 F STBK-AAAA3P
,.
BIT2. -0nAnn4 B:SSO- AAA004., 010 EMXHFD-000400 G. FH:SFO 000030 011 F:UHIT-Ann13P,
011 F:URBD-000020
HIT? -000010 B:SSOF 000050 01A EMXHS0-100AAA G. Fri CCI 000032. 011 F:VBH.-0000F4
BIT4 -0000214 B:STAT AAAA44 010 EMXHVD-001000 G. FH,SHD. 000042. 011 F:VBSZ-A000P,A
BIT5 -AAA040 B,STTE 000053 Ain FMXS:F=.002000 G. FO:RD.-****** GX. GTIMI 00022ORG. 014
BITS =.0001AA B:UDOO 0010110 AlA EMXTRL-010AAA G. FO:WRT=.*.*****- GX-
BIT? -000200 OBIT. -010000 C EMXVDC-00400 00
0 G. FREED. 11052R. 021 GVMA5K-A-,..*:..*,..*:..*:. GX.
G:TICP-AnnOlP
BITB. -00040A CF,B0 -000070 EMXVVV-000001 G. FREE1 -00003F. G:TICT-OnAni4
?IT? -00100A OF:02.-000057 DIX:HE-010400A G. FREHOD. 005374R.
. 017 U -
,TIDA000004
BLOCK -AA1A0A CF E4 -AAA0FF EMXH,,T=.01002An FRHPC. 000024R G. 021 G:TIHR-000006
BHPC. 000014R. 021 IF EL -00005.5RHPH . 00001AR. A21 G ,TIMI-no nalA
EHOHT.-AnnOn4 G F
.
?MPH. 0000AAR. 021 IF 110= EHPC. 000015R- A71 FSAADD. A0115A4RG
?POOL. Ann044R- 1121 OF:DR-
1000053 EHPH. AnAnn2R- 021 FSAOFF. An1P,A5RG 015 G TIM0-000007
:
015 G6TF;C=.00AA12
Uti:UL!..i= AMHUA:,! ' CPIXMK-177, t G EOBIT.-01101000 G. F:ACTL-OAA075 u:11YR-000000
BS,DBU= 000004 OPIXSZ-000010 G ER Ii_ 000045R. 021 F:ALOC-00010140 HOUR.1=.AAAA2A
bt-j:1NA= HHHHVIM L;FLDU 13A1(4K. 01h EKKINI. HI.1(4k1H. 01( F:ABh5-uumurn2. HIJUH ...-'=.HHHHUh
BR:OPH=.000001 C,VLDC 0n1575R. 015 ERROR2. 00555F.RG. 017 F:BDB.-000070 HsTKmx-onnina G.
bb-.6KL=.1-1n000.1 DBSLEH-00011F. ER102.- r 2 F:0G8C-0000157 IHTDEF. 001572RG. 015
HYIEU ----.1idUULIU DELHOD 007275R. 017 El 104 -177530 F:BKDH=.00An2F. IHTERW. A03412R 017
BYTE1 -nAnnni DELT IM AnnOOARG 014 ER114 -177515 F:OKDS-0000120 IT 000011AR. 015
BYTE:2 -000002- DA:BFA n110002. 0115 ER115 -177514. IO:RVB=.****** GX.
UyIL..6 =.F11-1111-111.-; AAR EXIT. F:0KEF-0000150
A0575ARG. 017 FBKPI-00010151
DH:BF1 000004 ILIBIT.-004000 G.
0Y1E4 -000004 OH LTL 0nnunn 005 FOsERR. uubi'..24RU. A17 F:FKST-OAAA2' jMPOIT-0014000 G.
bylt!,-, =.[IFIMMIlh DH ,DMO AAAA 1A AAR PDC. An255.2,R. 017 F:BKVB-00A054 Ti IMO 004.745R. 017
3.
BYTE6 -00000P. OH ILL 111101705r, 005 FDC ,1 0101253F.R. 017 F:CHR.-000075 LH 00130R
I 015
BYTE? = AAAAA? DIRERR AA5554R11 Ai? FD.BLK=.***** GX? F:CHTG-000034 LH 1E 001371R.
137IR. 015
BYTES.= n00010 DH,DOK onnaao 013 Ft FIT' 01111110110111111011003 F:DFH0-00010145, L 00
H2. 015
BYTE9 = AAnnil DH:HTP 000004 013 FD.EHB. AARAnf; AA7. F:DSPT-000044 LH2E 001431R. 015
BYTVAL= An0012. I'll NT AnA0A5
013 FD .FV A
R. AAAA4 003 F:DVHM-000134 LM 3 001431R. 015
B:BSTA. 000054 0.10 DH 000002. :ROT 013 FD.LEH. 000010 003 F:EFBK-000010 LH3E 001445R. 015
B,CHTX. 000045 010 OH; Si? 000010 013 FD.RWM-****** GX. F:EFH.-000A5A LH4 001445R. 5115
B:COUO. AOAA5A 010 Ehri,,2.-00000.,..... FLDC. 001004AR. 021 F:EOBB-00007-7,2. LH4E 117t-117171j117:7.-Zi
[iiiiii
B:FEMA. 0110132. Ain EIXCHT-AnnOin G FLIXMK-177740 G. HIS F:ERR.-000052.
.
B:FEMB. AAA142. Ain ELSBIT-A - 0000
1AAAA G FLIXEZ04 G. F:FACC-o0u043 LH 001540R
5E 015
B:FEMO- 000152. 010 ELSOLS-000007 G FLUCLS-000A01 G. F:FFAY-000014 HIS 001540R.
015
001563R.
LI :1-1-- !-Li A ? VI m er2ifi ::-_, ? 010 ELsEDF 00157AR. 015 FLOCUT-AAAOIP G. F:FHAM-000110 LH6E 015
B:FFSB. 000212. ale' ELSMS1 -17?bi u FLUMD.-****** a.,e,? F:FHB--00A102. LOGCL3-000002 G.
B:FFSC. 000222- 010 EMA. 00101ORG 022.1-MEH02-VJUU4MH U. F:FTYP-000116 LOWADD. 001600R. 015
B:FMAR. 000172. 010 EMALL=AJUUULtf; G hMIXSZ-UUULIM1 G- F:FVER-000120 LnunFF. AA1F:A2R1-3. AIR
B:FOLS. 00016, . 010 EMACUT-An1700 G FMHPSZ-0102260 G. F:HIBK-000004 LutIFIL-nnAAA4
0:FSAZ. 000100 010 EMADH0 001242R. 015 FHPOSZ-000400 G. F:LOH.-0000142.
L$STAT-0[1000A b
B:FSBZ. 000102- 010 EMAFD A2
B AnliRG 015 FHPSZ.- 73
0054 G. F:MBCT-000054 .
M. -000062
B,FSC:. 000104 010 EMALGT 000010R. 022.FH.D?R. 00002 011 F:MBC1-0001155 MASKEM. An13613R. 017
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-A.TRAHSLATOR.(QTI)
SYMBOL .TABLE.
ri"L" m 1 1 1 .'AI36i-oVia-"Fitir 142dileisePtiligettrik : CIA-RDP85-00514R000200010001-4
MATHOD. 005722R. 017 H,FTYP=.000014
MERGE. 006174R. 017 H:EVER=.00A011;
MIH:1 -0001.122. H,I-WD.=.AAA0ALI u
MIH:2.=.000010 H,HEAD-AAAA14
MOVDT, 007745R. U1( H:LEN.=.110AAA1,-.
MOVTDC. 007454RG. 017 HLGT.=.000012 G
MRG. 006026R. 01( N:NEXI=.0000..."?
MSGOUT=.****** OX. H:HODE=.177775
MSG1 001700R. 015 N:HKsL=.Amm020 SEOSTA. 003562R.
MSG2. 001304R. 015 H:PKTS=.000043 SEOTHP. 004740R.
MSG3 001310R. 015 H:POS-=.000010 G SHDBUF. 00105AR.
MS54 001714R. 015 H:OURY=-AAAA71 SR .ARE. 000114
MSG5 00132AR. 015 H:STAT=.000020 _K .ARS. 000105
MSGE. 001324R. 015 H:SUHT=.000002. _DAY. 000010
MSK:11 001502R. 017 H,TOT.=.000122. SR.DLT. 000014
MSK :12? 001510R. 017 H:UHIT=-000074 SP.ECEI. AA004.7
H. =.1,Juum....y?. N,VEL-Auum14 u sR.ECH. 011045
HC ITC. uuu0'4.0R. 021 OPHTDC 001120R. 017 SR. EOL 000050
HCITH. AAAAA4R. A21 PARSUF AAAAA4R. A15 SR.FIS. AAAA 12
HCIT1 02007AR. O21 FHK$$$=.00002( SR .GRE. 000100
HCIT2. 0302.1AR. 021 PAR1 0015F4R. 015 SR.GRS. AA0A77.
HDEICLS-AAAA06 G. PAR2. 001566RG 015 SR.LEH. 000'
HEI.,..1..;TA. 005152R. 017 1STKMX=.000024 G SR.LIH. AAAARP,
HIEINSK. AAA01E)R. 015 OIEOP01=.AAA14.4. I- LIF AAAAP,2.
HISPOs. 00002AR. 015 OHDCHT=.AA1000 G SR.MOH. 000005
NiXONI=.0000:2A O. ORYSO.=.00200A G sR.HDc. eflioo42.
HHHASK-1777F.0 G. OT:i. 00104AR. A15 SR.HDS. 00Ar
HODERR- AA57A5RG. 017 OT1.1 000424R. 017 SR.HIH. AAAA7A
HPECHT=.000144 G. OT1.2- 00045AR. 017 SR.HIP. 000022.
HPEVSL=.000043 G. OT1.3 000656R. 017 SR.SDB. 11113072.
HPOOL. AAAA5F.P. 021 OT1.4 AAA57F,R. 017 .sRr. AAAAA2.
HPOOLE=.A2AAP.F.R. 021 OT1.5 A0A55AR. 017 SR.SUH. AAAA0A
HP1 020225R. 021 OT1.5 1300554R. 017 SR.TWS. 0001351;
HP1E. =.070226R. 021 OT1.7 001046R. 017 SR.WSL. 000052.
HP1MSZ=-010000 G. 0:F3sC AO013134 A37 SR .YR- A00A04.
HP2. 030366P. 021 0:HOBK HHHUMU 0A7 S1.1IH. 000024
HP2E. =-040755R. 021 0:HUHL AA00A2. 007 OR.1IP. 00001.5
HP2MSZ=.036000 G- 0:SIZE 000A14 OA? OOOIT.= AA4AAA G.
HP20!=,:=.0011157 G. RECBUF AA1044R. A15 SS .PID. AAA0A2
HP3MSO=.0AA524 G. REMHD. Al:16772R. 017 SS .PHO. AAAA 1A
HP30O=.AA0125 G. REMHD2 0071712(-7,R. All' 55.1-Vb. AU000E-.,
HSCAH. 005542R. 017 REMHD3 007070R. 017 SS.LEH. 000012.
HXTADD. 00151ARG. 015 R:SUTH-000002. Ss.sil.
HXTOFF. 001512RG. 015 R:VAR.=.****** GX.
H,BACK=.AAAAA2.G. R:VDBA=.00AAA5
H:BFAc=.1Juuuu4 R:VDTH=.00000'2.
H;bHUM=. HHHHHh KIM 000022K. 1315
11:OTCH=.AAAAA4 R11 mmmA24R. 1115
H:BUFB=.004000
R12? HHHH2
H:BUFW=.002000
SCH. bK.
003020R. I:3
N:DID.=.0001.124..7.51H,IA A0OO4f,H. A17
H6DVHM=.0AAA7.2. 1H 11 AA7410R. 017
HELSE=.0000015 G. SOH 13 A07352R. Hi(
H:FID.=.000000 SCH:5 003060R- 017
H:FHAM=.00000h SCH:6 003114R. A17.
H:FOS.=.AA0764 5D:FSA=.000010 G 003
H:FSA.=.HAAAA4 u. SD:HPS-AAAA16 G 007 ST LEH. 0007a4
? Approved Fol. Release MO 08/2
SD.TIC=.000014 G. A07. AAAAA
uu3 SILUHY.
A01; T:SECY2=.11AAAA1 U.
!=.DJ:EC=.000012.G. 086 T,S8Y1-uuuuuu b.
!=,ECBUF. AAA201,,,RG. 014 ST:SCH. 11AA040 005 1:s8)..2.--.11111111112 G.
SFC :I =.000024 ST:UHL. 00AAA4 005 1,STAD=.0A11i112 G.
SEC,2-=.008812 ST:A.T. 000014 006 T,TRAH-008000 G.
SEG1 =.uumluA G. -=.,U,Deli= 000004 T:TYPW-AAAAA4 G.
SEG2. =.00AA02.G. !,,,U.DOH= 000001-1.-. VALHI). 00736AR. 017
SFG7 =.A00004 u. SU:IDL= 1311110110 VDC. 1101512R. A17
017 SU,LOD= 000001 VDC.1 001540R. 017
017 !",,,U:SRC= 0001102 VEL1MX-000375 G.
A15 000005 VEC2MX-000375 G.
AA2.sU,XPD=.000007,
082-SWAPHP. 805406R. 017 ':,,?7C3MX= 000125 G
..
00A014RG. 022.
002-S:OPHD=.A00A2A VIBCUT-AAA07,f1., G.
002.,DABA-OAAAA6 VILGT. 088012R. AZ).
002.5,DAEF=.000010 VI011:2=.000400 G.
002.OLDAIN=.0000A./. VilMSZ=.000400 G.
002.5:FATT=.800016 VI2MSZ=.0004AA G.
002.!=;,FDE.-000140 VI3M7-000400
AA2.P:,ENAM=.A0AAAI'..", 011A117,2R. 021
002-S?FHO---000036 000000R1;. 022.
002.SFH0W=.000017 1hC AOAA3ARG. 015
0132.5:FHTY=.030004 WH ,HTP. 000004 012.
112.S.HRL.=.000240 WHJIXT. AAAAA6
AA2.5FTYP=.000002. 012.
WH,ROT. 000002 012.
002.S:HFEH=.000020 AAAA10 012.
0132.1BIT.-001000 G. WH,SRC. 0000AA Al2.
002.s-3BIT-00000 G. WHTYP. AAAAA1
WORDO =.000000
A s2PIT.=.002000 G. 012.
002.TAESI1=.020000 G.
002.TBIT. =..AA4AAA G. WORD1 =.A0A0A2
IAORD2. =.HHHHH4
AA2.TDABLK= 8001204 G. WORD3 =.00AAAF.
002.TDABMX= 0077R4 G.
002.TDAMAD= 007760 G. WORD4 -000010
WORD5 =.00no12
002.TDEOLK= 000nA3 G. WORDf7. -000014
AA2.TDErL!,:i= AAAAA5 G. WARD? -000016
002.TDBMAD= 007775 G. WORN,. = UOUU20
TDEIA5Z= 000074 G. WORDS = UUUM
004 TmflADR. 001F,16RG. 015 WRDVAL= 04
004 TDrEIK= 000010 G. I PT LII IlA5SflGID 017
004 TDflBUF. 001628R. 015 XBATCH= 000013
uu4 ID LEND. 821570R. 015 XDBLAA= 1111 14
004 ILL:bkk NNbbhbb 017 XDBPRA= 000012
017 TDCLGT. 0011:..22R. 015 INC IN- 000006
TDCMAX. A91614RG- Nib 0U00U(
TDCMSZ= 11114000
TDCT. 1.01F,70Rit ,.:GTSRE= 00A014
'HITS K= 000011
TDCT1 = 11111 II 11t NLMER= 000007
TIC :1 = AAAA21r. XHOTSK= 0808117.1
TIC:2.= 000014 1.1SCHE= AAAAAA
TRMIMT= 000040 G. S = oonoR72,
AAF, -FiTKMX= A0A4AA G. = 000001
006 TXTBIT= 010000 G. ..-.2ULOA= 000005
006 T,JSBY= 00AAAA G. ZEROFH. 007245R. 017
005 T,MATC= 00AAAA C SW = ****** Gx
006 TJ.101*-i= AAAAA2 G. $1.$ = 000022R. A2A
ikJikciog .15o=6 000 T= 00AAArzr,
411
HHHHUH
START. AAAAAAR.
STPOLK=.000524
2TSCHG=-12A1111A r.
ST.,tIHR=...AF.AAAA G.
STSIHX=.040000 G.
STS..P=.0=.100080 G.
5T.,$MAT=.160000 G.
!:".J.SSFO=.14AAAA G.
5T.126.E. AAAA211
ST.A!=i,E. 000024
ST.STC. AAOAAA
sT.rs7. AA0A7A
ST.HRL. AAAA 1A
FSA?A.TRAF-PD OR (0Th
SYMBOLTABLE
$$$T1.=.000007.
.CLOSE=.****** G-
.FIHIT=.****** A.
. ABS:
HMHUMU
000
AAAAAA
001
SRCOFF
000122.
002.
FDSCOF
000010
003
SUSOFF
0101010112.
004
DHROFF
000012.
005
STTOFF
000044
AAF,
OSPLOF
000014
007
BSTOFF
000772.
AlA
FHOFFS
000044
011
WHODOF
000010
012
moDoF
000010
017.
TRNOFF
000240
014
DATA.
021570
015
IsSFSR1
000000
016
CODE.
0075.2.
017
..t.DPOZZ
00007.0
020
HODES.
040366
021
ENR
17135010
022
ERRORS.DETECTED;ii
1.1"fFO Mil 16Apiii-OVed-V6ri461Was5iiii '46 i2
_i__5._8._AkIA?RDP85-00514R000200010001-4
.FSROB?****** G
.OPEH-= ****** G
.OPFHB= ******
VIRTUAL.MEMORY.USED: 2999 WORDS. (..3A PAGES)
DYHAMICJIEMORY: 10156 WORDS. (.39 PAGES)
ELAPSED TIME 0002:13
OT.1..0T1/?SP/HL;ME.rBEX=E20,1JP,M..T,OTSIZE,OTI
.LIA IT ? = f:***** G ?
. MR I TE = .
.X010? .* Gx.
...PC1-001102R. 015 ...PC7,=.001102R. 015
...PC2-001275R. 015 ...TPC?HHHH21-1
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FLU-MOD-CO. MACRO.M111027-MARA iciWrO-12YeefiFoWkiletJAe2005/08/2.1A-RDP85-00514R000200010001-4
3
4
5
F.;
7
Cl
10
11
12.
13
14
15
16
17
10
19
20
21
22.
23
24
25
27
28.
29
7,0
31
34
36
37
3e
39
4171
41
42
43
44
45
41'7.
47
48
.4A
5A
51
54
55
55
57
000125
mimm2b
000400
A01000
004000
00017110
000524
nA0175
MI.IMM2M
177750
000010
177751
ummu04
072,R300
000153
mum1.1m4
007754
H1HAFIA
007760
A1AAAA
000144
000047i
uuzenou
nAnn4A
177740
AnA010
177770
;
ATSIZE:MAC. 'OUERY.TRAHSLATORS.BUFFER.SIZE.COHFIGUATION.FILEP
THIA.FILE.COHTROLS.THE SIEE.OF.ALL.BUFFERS THAT.CAH.VARY.
IN AIZE.DUE.TO.THE.AMOUHT.OF.OUERIES.OR.OTHER.SUCH.PARAMETERS.
THAT.WOULD.BE.CHARACTERISTIC.OF.A.SITE: THESE.BUFFERS.ARE.
IN OTO, TiO, OT2, OR.OT3.
;---0T3---BUFFERS. -
VEC3MX-85.
AVELGT-3*2*7/2
VI3MSZ?VFC3MX.1-2/25F..+1*25:
EMCMSZ?VEC3MX/51.+1*256:
;MAXIMUM.* CWIRS.IH.BATCH.
;AVERAGE.CWP.SIZE.IN TDCT.(BYTES)
;SIZE.OF.VI.(HEAREST BLOCK.IN.BYTES)
...PI7F.OF.EMC.(HEAREST.BLOCK)
TDCMSZ?VEC3MX*AVELGT+8./N,BUFW+1*N,BUFW;SIZE OF.
Thi ELI ;VIRTUAL
NP3MSZ?VEC3MX*4 ;SIZE OF.
HP3OSZ?VEC3MX ;SIZE OF.
----0T2----BUFFERS
VEC2M-253.
VI2MSZ?VEC2 . 2/25s.+1*256.
EMBMZ==c1
TDBBLK-3
TDBOSZ==7*20.
TDBMAD-4093.
NIXCNT-1F,.
NNMASK-177750
EIXENT-0.
ELSMSK-177751
EHONT-4
HP2MSZ-255:*50.
HP21:iSZ-71-100.
;
;
OT1- BUFFERS
VECIMX-253.
VI1MSZ?VEC2MX1-2/256.+1*256.
TDABLK-4
TDABMX?,E>+4
EMAMSZ-7,*4*256,
TDAMAD==340.*12:
NPIMSZ-4095:
HPECHT-100.
HPEVSZ==35.
FLU- -MODIFIER BUFFERS
FMNP53-1200.
FME1:SZ-256:
M-171
ORYSZ?N:BUFLI.
FLIXSZ-32.
FLIXMK-177740
OFIM 7==0.
CPur,.==.171
Approvedi For Releas770e
BUFFERS
TDCT.
BLOCK-SIZE.OF.TDCT.
NODE POOL
HODE.POOL.OVERFLOW.AREA.
;MAXIMUM.* VECTORS:
;SIZE.OF-VI-
;SIZE.OF.EMB.
;*.BLOCKS.(HLOUFW) IH.TDCT?BUFFER.
;SIZE.OF.TDCT.BUFFER OVERFLOW.
;MAXIMUM-ADDRESS?(48 BITS) IN TACT
EX.POIHTERS.FOR.HORMAL.HODES.
;MASK.FOR.NORMAL.IHDEX.
;*-IHDEX.PTRS.FOR.ELSE.HODES.
;MASK.FOR.ELAE.INDEX
;4t ENTRIES TO.USE-FOR.HASH.
;SIZE.OF.HODE.POOL.
;SIZE.OF.HODE.POOL.OVERFLOW.AREAR.
;MAX: 0.TERMS.IH.FSA -A-
;SIZE-OF.VI.
;*-ALOCI- -01:BUFW) IN.TDCT BUFFER.
;SIZE.OF.EMA.
;MAX: ADDREAS.IN.TDCT.
;AIZE.OF.HORMAL.NODE POOL.
;*.HODES.IH.ELSE.POOL.
;*.VECTORS IH.ELSE.HODES.
;SIZE.OF.NORMAL.FLU.MOD.HODE.POOL.
;SIZE.UF.EL.1E.FLU.MOD.HUDE.PUOL.
;SIZE OF QUERY BUFFER
INDEX PTRS FOR TERMS
;MASK FOR TERM INDEX
;4.- INDEX PTRS FOR CIAPS
2005/08/22 : CIA-RDP85-00541606000+10061112V
FLU-MOD CODE MACRO M1110 27-MAR-60 A3J'_11J- PaLE 10 1
Approvea ror Ile-lease-2005/08/22 : CIA-RDP85-00514R000200010001-4
58 000001
59 UUt1(.34
60 000400
61 000400
62.
080400
63 000024
64 000100
65 801080
66 000400
68 016080
69
7171
71
72.
721 000040
74
000015
001700
ft 060036
77 001130
00
01
02.
64
FMIXS:==1
I-NPS2-3036:
FHPOS3-256,
TSTKMX-256,
A5TKMX-256,
PSTKMX-20.
HSTKI-E-64.
OHDCH1-512:
VIOMSZ?VI1MSZ.
.IIF-LMVIOMSZ-VI2MSZ,VIOMSZ?VI2MSZ.
EMXMSZ?EMAMSZ.
.IIF.LT,EVEMSZ-EMBMSZ,EMXMSZ?EMBMSZ.
ERROR AND CLOSE CODES
TRMCUT-32.
FLUCUT-14.
EMACUT?TRM
VIBCUT,
EMECU1?VIOCUT*20.
;*.IHDEX.PTRS.FOR.FLU
;FLU.HODE.POOL.SIZE.
;SIZE.OF.POOL.OVERFLOW.AREA.
;MAX: #.TOKENS.TO.BE PUSHED.
MAX*.ARGUMEHTS.TO BE PUSHED
;MAX, 14,..PROX.HODES.IN.A.CHAIH.
;MAX, HESTIHG.OF-OUERY.
;#.HODES.IH.LOGIC.POOL.
;ASSUME.MAX.VI.IS.IH OT1
IF HOT. RESET.OT0'S.TO.OT2S
;ASSUME.MAX.EMX.IS.IT.OT1
IF .HOT, RESET.TO.OT2,'S.
;TERM.CUT-OFF-
;FLU CUT-OFF.
720. ;EMA.CUT-OFF.
;VIB.CUT-OFF.
EMB CUT-OFF
.""
FLUCLS--1
LOGCLS==2.
EMACLS-3
EMOCLS==
TDOCLS-5
HDOCLS-6
ELSCL5-7
;CLOSED DUE.TO FLU COUNT
;CLOSED DUE .TO LOGIC-COUHT.(0LB,SDLEI,OEX)
;CLOSED DUE TO EMA SIZE-
;CLOSFD.DUE TO EMS SufF
;CLOSED-DUE.TO TDOTO SIZE.
;CLOSED .DUE TO OT2 NODE POOL SIZE.
;CLOSED DUE TO OTHER COHDITIOHS.(FLU POOL,ETC)
Approved For Release 2005/08/22.1A-RDP85-00514R000200010001-4
?
FLU-mop-1:n. mpirp-Mi - -L -7 PP-Appria-Fo
Pw."67:P. 11
-1 I. mA606r m lease 2005/08/2.1A-RDP85-00514R000200010001-4
1 .TITLE--FLU,,MOD.CODE-,
2: .MCALL. MOUTSS.
3 TRACE.MACRO.FOR.TROUBLE.SHOOTING.
4
u .MACRO. TRCTST,?X.
6 CMPB. #1,-.1(R1)
7 SHE. X.
A INC. TRCFLG.
, x :
In .EHDM.
11 1HHHI.11,1 HMMHHH TRCFLGE .WORD. A
12 000002 000046 000006 MSG 12: .WORD. LH12E-LN12..LH12-
13 AAAAAF. 126 115 .101 LH12: .ASCIZ. /VMASK=X10,X10,10,X10,10,10,X10,X10/.
14 AAAA54 LH12.Et
15 .EVEH-
16 :
17 :
. THIS.IS-THE.DATA AREA.FOR.FLU-MODIFIER.CODE,
18EOUATFS.
19 :
2Pi 000010 N.ICTYR=10 ;FLU-MOD.TYPE.AT.END-OF?SCAN.
21
72.000000
Forli_ R8ELT FMDATA.
,....2J
24 :
25 AAAAAA FMHPS: .BLKW. FMHPSE ;NORMAL.HODE.POOL.(STORT)
26 004540 FMHRE: .
. (END)
27 004540 FMERS: .BLKW- FMERSZ. ;ELSE-NODE.POOL.(START)
28-005540 FMEPE: ; (END)
2.; .
30 ; MULTI-FLU-MOD-VARIABLES.
31 :
32.005540 MIXFMC::.BLEW. 40. ;VEC: STORAGE.FOR.FMTST1 & FMTST2.
11056F.A Ffnnrinn FMEXF2: .WURD. 0 ;DIFFEREHT.FLU-NODES.
:4 nr151.2. AA5F.F,4' 4L FT .WORD. VALVEC. ;PTR.TO-HEXT.VECTOR.SAVED.LOCATION.
7,5 005664 VALVEC: .BL KW. 20. ;SAVE.AREA-FOR.VECTORS-
36 005734 UN0u1jld LEVEL: .WORD. 0 ;LEVEL OF.NESTING.OF.EXPL VECTORS.
77
?
7,0 ; 1-ONVERSIOH.TABLES.
7.9 ;
40 005736 Am00006-000000G-000000G.FMTYP:. .WORD. EMXDTF,EMXDTF,EMXZHF,EMXZHF.,EMHS:F,EMXSZF,EMXMCF,EMXMCF.
41 005756 AH2MUu U[VMHA 001000 hmu-cu: .WORD. RIT10,8IT10,BIT9,BIT9,BIT10IBIT9,BIT1A!BIT9,A,0
43
POINTERS.
;
44
45 005705 VIMmmt11.1
45 AAF,AAA AAAAAA
4( UUbUU2 UUUUUU
4s 006004 000000
49 RAF,AAF. ARAAAA
50 005010 HHHHHH
51
66
54 006012. AAAAAA
55 FiAl--.A14 ARAAAR
56 006016 000000
57 005020 HHHHHH
CFMHz? .WORD?0 ;CURRENT?FLU-MOD NODE-
NEMH: .WORD? A ;NEXT?FLU-MOD?HODE?
FMNI: .WORD. A ;FLU-MOD?NODE?INDEX?
CFNE: .WORD? 0 ;CURRENTHELSE?NODE?
NFME: .WORD? 0 ;HEXT?ELSE?HODE?
FMEI (i[1RT1 0 ELSE?HODE?IHDEX
?
?
?
STORAGE. WORDS
CFSA: WORD 0 :CURRENT FSA LOC
CFMT: IL -D A :CURRENT FMT FOP 'IGETHDE'
FHT; :FLU-HOD TYPE FOR ?OVHASk?
FMTSUM: .017,J) 0 :FMT 9UMMAP1 FOP 'IMASC 'FMSEO?
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FLU-MOD-GODE..
MACRO Mill017.
-1"?Approved-ThFReleaSe12005/08/22 : CIA-RDP85-00514R000200010001-4
hH 8855122. HHHHHH FMSC1? .WORD, A .:SOURCF,GODE,FOR FMT...
9A 006024 00A000 FMEXL: .WORD. A .:EMA.POIHTER.FOR FLU-MOD.VECTOR.STARTS-
6A 006026 AAAAAA FMECT: WORD. A ::COUHT OF.FLU-MOD.VECTOR.STARTR.
61 HM6M741 UUUUNO GVSUB: .WORD. A .:"GVMAGC SUB-SUBROUTINE.POIHTER.
52 111-lE113*, AAAAAO OLDMC: .WORD. A .:OLD.MATCH.CODE.
63 006034 FMPAR 1: .BLKW. 4 .:FLU-MOD.ERROR.STATISTICS.
64
55 FLAG.WARDq.
6E .
67 006044 000000 FMLOG: .WORD. 0 ::FLU-MOD.SCAH.LOGIC.E.HABLE
Ed 0051-145 HHHHHH FMEXF: .WORD. IT ::FLU-MOD.TYPE.(-2,-1,0,1=MC,MS..q,C)
59 .:M=MULTIPLE.S-SIMPLE.C=COMPLEX.
7A AA605A 000000 FMIH:. .WORD. A .:ELSE .VECTOR.
71 006052. AAAAAA EVAL: .WORD. Si :HORMAL.VECTOR.
72.A565154 800000 FMAT: .WORD. A ;MATCH VECTOR.
73 AA617151; 0000A0 EHFLAG: .WORD. A ;ELSE.SEARCH.EHABLE.'GETHDE
, . 005060 000000 HEST; .WORD. A .:HESTED.IHPUT.TO GVMASK.SUB-SUBROUTIHE FLAG.
-7C
f....1 .
76 006062. 888853 AAA72 MEG TO: .WORD. LH7E-LH7,LH7 :ERROR.MESSAGE.
77 AA6A65. AAAA 46 005145 M3G11: .WORD. LH11E-LH11,LH11
78 006072- 106 114 125 L117: .ASCI: /FLU-MOD.HODE.POOL Cl FFEL flu iLu I L IL' iT/
79 006145 LH7E:
RA 006145 106 114 125 LH11: .ASCIZ. /FLU-nilD.VALVES OR MIXFMC.OVERFLOW In
el 006213 LH11E:
82.
? Approved For Release 2005/08/2201A-RDP85-00514R000200010001-4
FLU-MOD-GO. MACRO.M1110
'1UV Fur-meleiDte 2005/08/2.IA-RD.P85-00514R000200010001-4
84
R5
86
87
RR
Rg
RA
9i
92.
9.3
94
96
9(
98
IAA
101
;
.MACRO GETHXi
MOV. NXTOFF,A. ;REG.-OFFSET.OF.NEXT.FREE.TDCT.STATE-
CMP. A,TDCMAX. ;TDCT.BUFFER.OVERFLOW?.
BLT. B. ;BRANCH IF HO.
CMP. NXTADD,*TDAMAD ;TD.MEMORY OVERFLOW?
BLT. L:.? ;BRANCH .IF HO.
jSR. FC:. ERROR2. ;MEMORY.OVERFLOW
C; CMP. LOWOFF,* ;ARE.ALL.STATES. ...I.BLOCK.1 COMPLETE?.
BEE. D. BRANCH. IF YES.
iSR. PC,ERROR2. ;TDCT.BUFFER-HOT,BIG ENOUGH.
D; MOV-
JSR. PC,WRTTDC. ;WRITE.NEXT.BLOCK.OF TDCT.
MOV. (SF) ?.
JSR. PC,MOVTDC. ;COMPRESS-TDCT.BUFFER.
MOV. NXTOFF,A. t7..:ESET.NEXT.FREE.TDCT.STATE.
B:
.EHDM
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FLU-HOD - CODE ? ? ? MACRO M1110 27-MAW-P- coVdd toi?Frxecect-12'e 2005/08/22 : CIA-RDP85-00514R000200010001-4
FinFinn
104
105
106
107
108
109
110
111 uuldAAA
112.AAHAA4
115 aoaoio
114 000014
115 ueluu2u
116 Aum.12,3'
117 000030
118 A00034
119 000040
12A AAAA44
,i 000646
155' 1313131355'
123 000056
124 A00082.
125 000070
126 AOAA7_
127 oaoo76
129.000100
129 000104
1.313 AA0i011..
131 000110
132-000112.
1.3.3 000114
4 000120
135 000124
13F. 000132.
137 000140
138 131313144
139 A0A15A
14A AAA 15R
141 000192.
142.000244
143 000252.
144 AA026A
145 000264
148 A0A270
147 000274
146 I' Ill'
000310
15A AAA7.7,1R
151 000324
152.0AA332
153 000336
154 A3J07,42.
155 000345
15R AA1'l:2,5A
157 AAA754
?
.RSECT?FMCODE.?
THIS.SUBROUTINE.IS.THE.MAIN.CONTROL.SUBROUTINE FOR.
FLU -MOD.PROCESSING: WHEN-IT.IS.CALLEDA BUFF-ER EC
CONTAINS.THEVECTOR.FOR.THEINTERMORD.CHARACTER.WHICH.
DESIGNATES.THE.END.OF.THEFLU.AND.THE.STARMOF THE.
THE.FLU -MODIFIER. NOTEr. REGISTERS.HAVE.NO.MEANING.
AT.THE TIME.FLUMD.IS.CALLED:
012703
015900
042700
9000000. RLUMDE:
0900000.
i00000
mo v.
mov.
Bic.
#VVEC.,R7. ;VVEC.CONTAINS.VECTOR.
11:1_Gif.R3),30 ;GET.NODE.SIZE.
11:ludALJA,RA
A2AA27
AOAAA1
OMP.
P111 411 ;1:IHL:Y.1 VECTOR?.
UU142.5
BED.
100$ ;YES.
012(5(
U09946"
MOV.
*-1,FMEXF ;HO g FLAG AS.DIFFERENT.MATCH.CODES.
005267
uubbbu?
IHC.
FMEXF2 ;FLAG .AS MULTIPLE NODES.
AlAAR7
99607.4"
MOV.
PO,FHPAR1 ;STORE.* TERMS,
020027
000047
CMP.
;DON1T,LET.OVI5RFLOW.
191402.
BLOS.
41$
060167
005614
JHP.
0100157
005540' 41$:
MOV-
RO,NIXFMC. ;SAVE.COUNT.AND.LOCATION.
0057057
005540,
ASL
MIXFMC. ;ADJUST.COUNT.AS.IF.EXP: VECTOR.
012767
005540 006024'
MOV.
*MIXFMC...FME ;LOCATION.
SAVE.
RI)
012702.
005542'
MOV.
*MIXFMC+2,R2 ;SET.UP.TO.SAVE vECTOR.
0107-,A5
MOV.
F.
ADD.
*ii ...-'El:: R5
49$ :
MOV.
(R5)+, ;SAVE-VECTOR.
SOB.
R0,40$
RESTOR
RO
000407
BR
101$
AA50f:.?
006046' 100$:
CLR.
FMEXF. ;FLAG?AS-SINGLEMATCH.CODE.
00506?
AAF.660'
CLR.
FME.x:F2.
012767
000001 006034'
MOV.
*1,FMPAR1
052767.
00000BG 000000G.101
BIS.
*BITNIB,N:LGT(113) ;FORCE VECTOR STEPPING
005367
006044'
DEC.
FMLOG-;TRIGGER FLU-MOD PROCESSING
AA5A67:,
000009G
CLR.
H,POS(R3) ;FLU-MOD TYPE = DOCUMENT/Niel
Ulb(b?..5
AAAmuuk.Amuuuji?
MOV.
HXTA3,D...H6ELSE(R3) ;STORE IDUT ADDRESS
AA52R7
A n ri FIG ?
INC.
HXTADD. ;ALLOCATE ADDRESS
GETNXT.
P4
062767
000006 000000G.
ii .1)3
*6,NXTOFF.
012767
000000G 006016
MOV.
*EMXITF,FMT. ;SCAN FOR DOC-TYPE
005067
008010"
CLR.
FMEI ;RESET? INDEX .POINTERS
005067
006002'
CLR.
1-313 .L
005057
AARA14'
CLR.
CFMT ;5CAN.F0P.DOC -TYPE
012767
004540" A08004'
MOV.
*FMEPS,CFME. ;RFSFT.POOL.POINTERS.
uu4540 006006'
MOV.
*FMEPS,NFME.
012767
000000 005776'
Muv
*FMNPS,.CFMN.
012767
000000' 008A0A"
MOV.
*FMNPS,NFMN.
012767
AA2A0A AARA22
MO"...'
*BITIO,FMSC-;SOURCE.CODF=DOC.TYPE.
004767
000020 1$:
S
PC,GVMASK. ;STEP.VECTOR.
0047137
000712
jb
PO,IMOSK.
004767
005552
J5R.
PC,GETNDE. ;GET.NEXT.VECTOR.
103371
BCC.
1$ IF MORE VECTORS
005057
006044?
L.
FMLOG. ;SWITCH,BACK.TO.TEXT CHARS.
000207
P ?
PC. ;IF.NO.MORE.VECTORS.
Approved For Release 2005/08/211frIA-RDP85-00514R000200010001-4
?
FLU-MOD.ROL
159
16A
161
162.
16.3
4917,0.m1110 27-MHA oV-ittt' ftoriAbreaVe 2005/08/228A-RDP85-00514R000200010001-4
GVMASK IS.THE.SUBROUTINE-THAT.GIVEN.A.VECTOR.FOR.THE.
CURRENT.HIBBLF.POSITION, GENERATES,A VECTOR-FOR.THE.
NEXT.HIBBLE.POSITION: GVMASK.NAHDLES TEXT.CHARACTERS-
AS.WELL.AS.FLU-MOD.TERMS:
164
INPUT. OUTPUT-
165
R3-HODE.ADR.OF.6IVEN. ADR.OF.GEHERATED VECTOR.
166
"/Li'iift
(VMASK)
167
168
NO.OTHFR.REGISTERS HAVE MEANING FOR. I 1:1 ?
169
17A
000355
GVMASK::SAVE-
RO
171
AAA360
01A3A1
MOV.
R3,R1 ;INITIOLIZEREGISTERS.
172
0003R2
010305
NOV.
RB,R5
173
000364
012703
0000000.
MOV.
*VMAS1A-FL:vECAR3
i
000.3f-1J
016100
000006G.
MOV.
N4LGT(R1),RO
000374
.J'27AA
AAAAARG.
BIC.
41.BITNIB,R0
176
000400
LIEb 01
000000G.
ADD.
*N:VEC,R1
177
0004[714
A0501712
CLR.
R2.
179
000466
005067
006060'
CUR.
HEST
179
000412
SAVE.
R5
180
000414
032755
109009 0900099.
BIT.
*BIT15,N:EOS(R5) ;IS.ELSE?O'VERIDESET?.
181
000422.
80H.
1$ ;YES.
182
000424
032765
0000006.001-101006.
BIT.
#9ITNIB414LGT(R5) ;IS.IT.SECOND.NTBBLE?.
183
000432.
80H.
1$ ; YE S ?
184
195
1199434
nnn442.
012767
000429
99A55?' AA6A3W
NOV.
BR
*1V1,0VSUB. ;SIMPLEHIB1 T0.NIB2 ^DVANCE
3$
186
000444
00576?
006044?
1$: TST.
FMLOG. ;PROCE95I6.FLU-MOD'57.
187
13131343 Li
001006
BNE.
2$ ;YES.
188
A00452.
012767
000572' 006030
Mn"
4lGV2,GVSUB. ;STEP.VECTORS.FOR.TEXT CHAR.
189
000460
005067
000000C.
CLR.
VMASK-HI:LGT.
190
01710464
0017141217
BR
3$
191
000466
012767
000E56' ONE0E0'
2$; MOV.
#GV3,GVSUB. ;STEP-VECTORS.FOR.FLU-MOD.
192
000474
005067
0060211.?
CLR.
FMTSUM. ;INITIALIZE.VBRIBBLES?
193
000500
005067
000000C.
CLR.
VMASK+N:LGT.
134
000504
004777
006030?
3$: JSR.
PC,@GVSUB. ;EXECUTE THE.SELECTED.SUB.
195
00051.0
RESTOR
R5
196
000F,12-
01201.3
HHHHUMu.
NOV
*VMASK,R3
19?
0005115
A5LY2h.j
000000U.
BIS.
LI, p. ;ODD VECTOR-LENGTH TO.NIB.FLAG
i9e
GG0522.
005063
000000G.
OLP.
N4POS(R3)
199
000526
116553
OAAO9AG.A000006.
MOVEH
N,POS(R5),N;POS(R3) ;MAINTAIN.FMT.CODE.
200
000534
A16563
0000009?000uumu.
110V.
N:ELSE(R5),N4ELSE(R3) &.ELSE.STATE.OR.AOR.
201
000542.
005067
O09AA09.
CLH.
N,FSA(R3)
21712.
000546
RESTOR
RO
203
000FR0
000207
4$: RTS?
PC.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FLU-MOD-GUDE.-
2515
206
2A7
208
MACRO.M1110 27-MA-c:hiVdtoelkelea-ie 2005/08/22 : CIA-RDP85-00514R000200010001-4
SUBROUTINE.GV1 HANDLE5.SIMPLE.HIBBLE1 TO.NIBBLE2 DVANCE
IN.THIS.COSE, VECTORS.ARE.IDEHTICAL:
HP1Mhh...'
210 000556
H1eihH2.
012123
HMUMMILI.
GV1:
1$:
MOV.
MCN
H;LGT(R5),R2. ;VECTOR LENGTH.SAME.AS.BEFORE.
(Ri)?. (R3)+ ;SO.ARE VECTORS.
211 000580
077002.
SOB.
R0,1$
212.000552
213 0017.1570
012767
000207
Humumuu.u00000c.
MOV.
RTS.
*BITHIB,VMASK+H:LGT. ;SET.HIB2-FLOG.
PC.
214
215
SUBROUTINE GV2.HONDLES.STEPPING.1/ECTORS FOR TEXT CHAR 5;
215
217 000572
012104
GV21
M1_N?
(R1)+,R4 ;GET.EMA POINTER.
218 000574
219 AAA8A2
0.32754
990990G. 099999G.
BIT.
BUFF.
*EMXVDC,EMA(R ) ;IS.EMA.ENTW)-'.A.VLDC?.
1$ ;NO.
AAA504
000505
010423
052704
000005
MOV.
ADD.
R4,(R5)+ ;XFER VLDC P NEXT ENTRY
z.000612
010423
MOV.
um0814
Hh2(1.1./
MIIMMM:e
ADD.
*2.R2. ;2.1ORE.EHTRIFS? IN VECTOR.
224 000820
225 00uh2.?,
21;7, ARA526
090414
062094
016426
000005
1$:
BR
ADD.
2$
.1:1.5 R.4 ;XFER.HEXT.ENTRY.
R4,(R3)+
227 017105-2A
AA52112
INC.
R2. ;1 MORE.EHTRY.IH.VECTOR.
228-00067.2
032764
999999G 909990G.
*EMXVDC,EMA(R4) ;IS.EMA-ENTRY.A.VLDC2.
71 000540
BUFF.
2$ NO
27,0 000642
062704
000005
ADD ?
*5.R4 ;YESr.XFER.NEXT.ENTRY.ALSO.
231 LIULILI4LI
Ri0423
MO V ?
R4,
27.2.000850
005202
R2 ? ;1 MORE.EHTRIH.VECTOR.
000652
A77031
2$:
SOB ?
RA, G V2 ? ;DO.FOR.ALL.EHTRIES.
1 0001654
A00707
RTS ?
PC:
236
SUBROUTINE .G
HANDLES STEPPING.OF.VECTOR.FOR.FLU-MODS,
237
28R 000655
012104
GV7:
MOV.
(R1)+,R4 ;GET-EMA POINTER.
239 000550
240 000562.
100405
005757
AAFAI,--.0.?
BMI
TST
is ;IF.HEGATIVE.MAKE.POSITIVE.
NEST ;IF.HESTED,DOH,T.STEP.VECTOR
000665
001004
ONE
2$ ;NESTED.
24.2 000570
052704
000006
ADD
*5,R4 ;IF.POS.e).NOT.NESTED, STEP ENTRY
243 ?189874
000401
BR
2$
244 LILILILI(LI
005404
1$:
NEC
R4
245 AAA7AA
0154015
000000G.
2$:
MOV
EMA(R4) R5 GET. ENTRY
246 606704
106411
BMI
3$ ;IF.HON-SEO-FLOW,..
247 AAAFT11,-,;
038705
005016'
BIT
FMT,R5 ;EHTRY.OF.TYPE.DESIRED2.
248 000712
El ON
4$ ;YES.
249 000714
0054.04
NEG
614 ;NO NEGATE.
250 000716
A50557
006020
4$:
BIS
R5,FMTSUM. ;HOTE.TYPE.IN SUMMARY-
251 000722
010423
MOV
R4,(R3)+ ;XFER.EHTRY.
2 000724
A05202.
INC
R2. ;1 MORE.EHTRY.IH.VECTOR.
000726
000433
BR
5$
2t14 000K.i0
032705
946.19019
35:
BIT
*BIT14-R5 ;MULTIPLE.FLU-MODS.
255 000734
BOH
31$
255 A00735
005757
005045
TST
FMEXF. ;1100-IAD.IT.00CURRED.BEFORE?.
257 000742
100004
BPL
32$ ;HO.
258 000744
012757
177776 006046'
MOV
0-2,FMEXF. ;FLAG AS UNKNOWN.
255 000752.
0010417
BR
33$
250 000754
012757
HMUMM1 008045'
32$:
MCIV
*1,FMEXF. ;FLAG AS SAME-MATCN.00DE.
261 000752.
000413
BR
33$
Approved
For Release 2005/08/2/FIA-RDP85-00514R000200010001-4
FLU-MOD-COAII/ MACRO.M1110 77-MAR-B0
Appr 4E1F0P1eA-612005/08/21,1A-RDP85-00514R000200010001-4
262.000754 A05757 005550 31$: TOT. FMEXF2.
253 000770 100414 BMI. 34$
*-, FMEXF . ;IF .DIFF FLU NODES
264 000772. 012757 177777 005045' MOV. 1 ;FLAG .AO ALWAYS.DIFFER.
255 00I000 0104157 AOF.A24' MOV. R4,FMEXL. ;SAVE.EXPANSION.VECTOR.LOCATION.
255 001004 052757 000000G 005024 ADD. *EMA,FMEXL.
257 0011112 004757 000052 33$: JSR.
. PCAHSOSUB. ;EXPAND. VECTOR
SOB .
268 001015 077051 5$: RO,G ;DO.FOR.ALL.EHTRIES.
.
259 001020 000207 RTS PL.
270 AniA22 34$: SAVE. R4-RA,R3 ;IF.DIFFEREHT.FLU-MOD.NODES.
271 001030 015703005024' FMEXL.R3
272 0010340i200 r-- Hi ;GET.COUNT.OF.VECTORS
?I -
e.:, 01711036 AFIC2.2AA 1;.!"S
1,,.!1'.1
274 RA1A4A 02A427; 72,AAS: CHF.. H4-(R3)+ ;FIND.ENTRY.FOR.THIS.POINTER
b 001042 103404 BLO. 31 ;FOUND.
- fo? 001044 7003 SOB. BOOS
2(( 00 1045 15270.6 000002 SUB. *2 , R3 ;FOUND: PRIOR.ENTRY.
001052 000402- BR
302$
279 001054 152703 000004 301$: SUF. *4.R3 PRIOR.PRIOR.ENTRY
280 001080 052704 000000U. 302$: ADD. *EMA,R4 ;CONVERT OFFSET TO LOCATION.
281 00117154 005404 NEC. R4 ;FLAG.AHD.RE -ENTER IT.
. cin1Fif=d2, A10413 MOV. R.4.,(RTO
001070 RES TOR R4,RO,R3
001076 eR 000745
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FLU-MOD-COL MACRO.MI110
? ?
2005/08/2.1A-RDP85-00514R000200010001L4
309
71;10
311
312
313
314
; SUBROUTINE.IMASK IS.RESPONSIBLF.FOR.THE.MAJOR.PORTION.OF
FLU -MOD.PROCESSING: IT.SPLITS.A.VECTOR.IHTO.SUCCESIVE.VECTORS.
IF.MULTIPLE.PATHS.EXIST.FROM.THAT.STATE. IT.ALSO.CREATES THE.
TDCT.STATES.FOR.THE.VECTORS,
315
316
ONLY.R3 IS-USED.FOR.I/O, AS.INPUT.IT POINTS TO THE.VECTOR.TO.
BE-SPLIT.WHICH.IMASK.ALSO.KHOWS.IS.VMASK, HO.REGISTERS.HAVE.
317
MEANING.FOR.OUTPUT:
318
319 001254
015357
0000000.006012
'MASK:
MOV.
H:ELSE(R3),CFSA .;STORE-FSA.ADR.FOR NODE.
320 001262
01f3111
AAAAAAG.
MOV.
H,LGT(R3),R1 ;R1=',..ELJUK.SIZE.
321 001266
062703
AAAAAAG.
ADD.
*11,VEC,R3 ;R3=INPUT.VECTOR.ENTRIES.
322.001272
012705
AAAAA0fl.
MOV.
,EC. R5 ;R5=OUTPUT.VECTOR.ENTRIES.
323 001276
005701
TST.
RI
324 001.300
100012.
BPL.
10$
325 001302
1$:
SAVE.
Ri,R3
,26 0013111'.
016705
A06012'
2$:
MOV.
CFSA,R5 ;CONVERT FSA.LOC.TO.TDCT.ADR.
001312
070527
000006
MUL.
*6,R5
7.75.001316
066705
AAAOAAG.
ADD.
TDCADR,R5
32q 001322
000167
AAA526,
?IMP-
1000$
.3.312 001326
,
10$:
oHvt.
Ri,R3
331 001332.
005000
CLR.
RO ;Re--ENTRIES IN ELSE VECTOR
377 ? AA 17,172.4
er.2.4767
HHHHUMU.U1.1hH1w!
CMP.
*EMXMCF,FMT. ;MATCH STATE SCAN?
773 001342.
001761
BEO.
2$ ;YES
334 001344
012304
11$:
MOV.
;GET EMA POINTER
335 00134.5
100002-
BPL.
12$ ;XPER a COUNT ONLY ELSE .?S
..336 1313 1.355
010425
MOV.
337 001352.
1105200
RO
335 551.354
077105
12$:
,INC.
SOB.
R1,11$
339 001355
015705
005012'
MOV.
CFSA,R5 ;COHVERT FSA.LOC.TO.TDCT.ADR.
340 001362-
070527
00171006
MUL.
*6,R5
341 00136g
066705
12AORR12G.
ADD.
TDCADR,R5
342.001372,
A05700
TST.
RO AN, ELSE VECTOR.
343 001374
001537
1313 Li
100$ ;HO.
344 001376
1667115
HHHHHI-1.
SUB.
TDCADR,R5 ;ALLOL.I.FOR.BUFFER.SHIFT.
345 001402.
GETNXT.
RI ;ALLOCATE.NEST.FSA LOC.
346 001464
066705
OAAAAAG
ADD.
TDCADR,R5
347 001470
016725
00000013
MOV.
HXTADD,(R5)4-. ;POINT.CHAHGE.STATE.TO.IT.
348 001474
052767
000005 000AA013.
ADD.
*6,NXTOFF.
.349 0171150?.
015767
0000005 000000C.
MOV.
HXTADD,VVEC+N:EL SE. ;EHTER.HODES.FSA.LOC.
1.1[11511-1
005267
UU0uuliG
IHC.
KKIADD.
351 001514
016767
006014 000000C.
CFMT,VVEC+HPOS. ;EHTER.FMT.
352.001522.
052(6(
MMULIOUL.
ADD
#2,VVEC-FH,POS.
353 001530
010067
000000C
MOV
RO,VVEC-441,LGT. ;ENTER -SIZE.
354 001534
052767
AAAAAAG 000000C.
BIS
*BITNIB,VVEC+H.L GT. ;HIBBLE2.
355 001542.
0127A3
006010'
MOV
*FMEI,R3 ;CHECK.FOR.DUPLICATE.
356 001546
012702
ocioNDAG.
NOV
*VVEC,R2.
7,7:7
001552.
004767
5711..r54
jSR
PC,SCON.
355 0015F,6
Aoulooc.
111._I
VMASK?H,LGT,R3 ;GET.OLD SIZE-
Uijibb2.
if.1.42112
12HHHH0.
12
*BITHIB,R3
360 001556
103445
BCS
14$ ;NELLVECTOR.
351 001570
004757
003355
JSR
PC,FMTST1 ;DO.NON-ELSE ENTRIES.MATTER?
362.001574
103424
BCS
16$ ;NO.
353 001575
005357
0000005.
DEC.
NXTADD-OLD VECTOR: DEALLOCATE.FSA-LOC.
364 001502.
152767
000005 0000AAG.
SUB
*6,NXTOFF.
355 001510
020003
CMP
p5i.r75 :WAS IT ELSE -ONLY::
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
I
FLU-MOD-CODE.. 1, i
4-11-PO.M1110 2.7-MAA-PiiioViii#orFRefeaid- 2005/08/22 : CIA-RDP85-00514R000200010001-4
355 001512.
357 001514
36A 001622?
359 001524
370 001530
371 001534
001640
001644
001646
001554
6131666
377 B01556
37A 001672.
379 001674
001700
381 001702.
382 001704
383 001705
384 001712.
385 001714
366 AA1720
31=17 001724
001732.
001736
002020
002024
374
.5 (6
.51113
700
389
390
001404
016465 0000000 177776
000434
005055
015425
012(20
000207
016764
005357
152757
UULIU001.3.
UULIUULlb.
BED ? 13$ ; YE S ?
MO V ? N :ELSE (R4) ..-2(R5::'
BR 760$
;REPOINT.TO.OLD.FSA:LOC.
13$: CLR. -2(R5) ;CREATE.JUMR.STATE TO.FSA.LOC
MOV. HELFE(64),(R5)+
MOV. 0ST$j50,(1(5)-1.
006012 006?...6.16$:
000000G?
000005 00000013.
000207
016725 0000860
000405
020003
001750
004767 003240
103755
016720 0000006-
01272 AAAAAAC.
015757 000000G47106012.7
065267 11111164.
100$:
14$:
700$:
RESTOR. R1,R3
RTS. PC.
MOV
DEC
SUB
RESTOR
RTS
MOV-
BR
CMP
BED
JSR
805
110V.
MOV
MOV.
IHC
1:F54,H,ELSE(R4)
HXTADD.
*5,NXTOFF.
R1,R3
PC.
IHTDEF,(P.5)+
700$
II Ii
15$
PC,FMTSTf
16$
NXTA00,(P.5)+
0ST$CHG1IWBIT,(
NXTADD,CFSO.
HXTADD.
GETNXT. P5
062(00 0061.1001.3. ADD? *1..DCT,R5
062757 000006 00000AG. ADD. *5,11XTOFF.
382.002032. 022755 000001 00001,1'2. Ctij? *1,2(SP)
.35.3 002040 061005 611E. 1066$
394 602042. RESTOR. R1,R3
395 002044..5 004757 000720 jSR? PC,FMSEQ.
396 002052. 000207 RTS. PC.
397 002054 022757 0000001,006015 10003: CMP? *EMXMCF,FMT.
s53 064.08,. 001005 8NE? 1001$
389 002064 RESTOR. R1,R3
400 002070 AR4(Hr- 0HL;-.04 JSR. RI [Ii
401 002074 000207 P15. P5?
402 002076 011603 10015: MOV. (SP) ,R3
403 002100 016501 000002 MOV. :'P' r?
404 002104 042701 0000000. BiC. 44.BITHIB,R1
405 002110 SAVE. P.5.
406 002112. 005004 CLR? R4
407 002114 005005 CLR. R5
408 002116 1105000 OLE. PO
409 002120 012302. 1002$: MOV. (R3)-1-..R.2.
410 002122. 100405 BM1. 1003$
411 002124 650204 815. EMA+2(R2),R4
412- 002130 056205 BIS. EMA-1-4(R2),R5
413 002134 005200 IH C? RO
414 00213F 077110 1003$: SOB. R1,1002$
415 002140 004767 003546 j8R. PC,FMTST2.
416 A02144 103116 BCC ? 1100$
417 062146 RESTOR. Ri,R3,R0
418 002154 005701 1ST? R1
419 002155 100402 BM1. 1004$
420 602160 610420 MOV. 24. ':.k51.:'+
421 002152- 000403 BR 1005$
422.002164 010520 1004$: MOV. P5,(RA)+
? Approved For Release 2005/08/2
UULIUUZLI'
66661344 ?
;REUSE THIS ESA LOC
:DEALLOCATE FSA LOC
;XFER.IHTERHAL.DEFAULT.
;ELSE ONLY?.
;YES.
DCI NON-ELSE ENTRIES.MATTER?
;IHDEX.STATE.FOR.POSITIOW
654-1- ;CHAHGE.ELSE.STATE.
;UPDATECURRENT.F5A.LOC.
;AILACHTF.F5A?LOC.
_
;SEOUENCIAL.POSSIBLE?.
;HO.
;YES-
;COMPLETEVECTOR-WITH.SECHSTATES.
;MATCH.STATE.SCAH?
;HO.
;CREATE-MATCH.STATE(S)
;R3=VECTOR.EHTRIES ADP..
;R1=VECTOR.SI2E.
;REMOVE.HIBBLE.INDICATOR.
;TDCT.ADR.
;IHIT.FOR.SINGLE.EXIT.TEST.
;SUMMARIZE.BITS.IH VEPTOR..
;EXCEPT.ELSE.ENTRIES.
;COUNT.HOH-ELSE.EHTRIES.
;TEST.FOR.SINGLE.EXIT.CONDITIOH.
;HOT.SINGLE.EXIT.
;WHICH.HIBBLE?.
;HIBBLE2
1XFE6.NIBBLE1
;XFER.HIBBL2.
IA-RDP85-00514R000200010001-4
?
FL
- CAM. ?
MA C R.0 ?Mi
1 13 27--MARAr. FdP-Relea42005/08/21.1A-RDP85-00514R000200010001-4
42.3 HU2lbb
U42(51
1555551555555.
BIC,
;REMOVE.FLAG.
424 002172.
015720
000000G 1005$:
mnv.
NXTADD,(R0).1-- ;COMPLETE-SIHGLE.EXIT,STATE.
425 002175
A15757
AAAAAFIG nelneirlAr
mnv.
NXTADD,VVEC+N,ELSE. ;&.ENTER.HODE.FORAIEXT.STATE.
426 002204
005267
000000G
HXTADD-
427 002210
012710
000000C
MEW.
4ST$INXISSBIT,,(RO)
428-002214
055720
005022'
BIS.
FMSC,(R0)+ ;SOURCE .CODE.
429 AA222A
A15757
AAAAAAr RAAAAqr
MOV-
VMASK?N,POS,VVEC+N:POS. ;EMT.
430 AA275
105257
AAAAF1Ar
INCB.
'11POSA-VVEC?
4.31
IIMMHMUL HUMMUML
MOV.
VMASK-FN:LOT,VVECA-N,LGT. ;VECTOR.SIZE.
437 00224e
012702-
000060C
MOV.
#VMASKA-N:VEC,R2. ;XFER.VECTOR-
433 A02244
A127A3
AAAAA0c
MOV.
oVVEC+N;VEC,R7
4.34 AF1275R
012223
1007$:
MOV-
(R2)+,(R3)?
4725 AA2252.
A77102-
SOB.
R1,1007$
4.35 002254
GETNXT.
R5
437 002335
052705
000000G.
ADD.
#TDCT,R5
435
ub2(6(
mmuMHb rimHHP156.
ADD.
#5,HXTOFF.
439 FIA23551
012703
005002'
-MOV.
oFMNI,R3 ;SCAN.FOR.VECTOR.DUPLICATE-
4.4a 002354
012702.
000000G.
MOV.
oVVEC,R2.
441 002350
A54757
11A214.6
JSP.
PC,SCAN.
442 002354
44.3 A02356
103005
A551125
BCC.
1005$ ;NEW.VECTOR R ;DUPLICATE, JUMP.TO.IT.
444. ao23,-.75
015425
0000005.
MOV.
FLEL5E(R4),
445 5J02374
012725
000000G.
M1V.
1i5;T$j50,(P5)..i.-.
4415 511245515
5mo25(
10AG$:
RTS.
PC.
447 A12402.
1100$:
RESTOR.
R2. ;R2=TDCT ADR.
448 002404
011503
MOV.
(SF) ..R3 ;R3=VECTOR.ENTRADR.
449 002405
015501
000002
MOV.
2(SP),R1 ;R1=VECTOR.5I7E-
450 002412.
005701
TST.
RI ;WHICH-NIBBLE?.
451 5102414
100401
@MI.
1101$ ;NIBBLE?
452 002415
0104.05
MOV.
R4,R5 ;NIBBLE', R5-NIBBLE.VALUE.
453 0512420
0151522.
1101$:
MOV-
R5,(R2)4-. ;':xFFR.INDEX.
454 002422.
015722-
A1000515.
MOV.
NXTADD),(R2)+ ;COMPLETE.INDEX.STATE.
455 002425
012712.
0000005.
MOV-
*ST$IHX,(R2)
455 002432.
A55722-
005022'
BIS.
FMSC,(R2).i.
457 00247.5
012704
ARAAAAr.
MOV.
4VVEC+N,VEC,R4 ;R4=VECTOR.ENTRIES ADP..
458 002442.
015757
mmmm.11.11..munAneir.
MOV.
VMASK+N,POS,VVEC +11,POS. ;XFER.FMT.
459 5A2450
0515257
00000AC.
INC.
VVECi.fl,,POS. ;STEP-FMT-
450 002454
015767
000000G.0000000.
MOV.
NXTADD,VVECA-N:EL SE. ;FSA.LOC.
451 002462-
AA572.57
000000C.
DEC.
VVEC+N,ELSE. IINU 2ED.LATER.
41 51514b5
[112(1,1U
mmmi.120
MOV.
*15,,,R0 ;#.BITS.TO.SCAN.
453 002472-
O15Al2
CLR-
R2- ;R2=SIZE
4.54 002474
5100261
SEC.
455 002475
00f:-.5152
1102$:
POP-
R2-;MASK-
4.515 AA7500
115157.05
ASL-
R5 ;VECTOR-SUMMARY-
457 007502.
103404
BCS.
1110$ ;IF.SET.IN.SUM, THEN-CREATE.NODE.
4551 002504
077004
1103$:
SOB.
R0,1102$
4.59 0025115
RESTOR-
1'111R3
4715 002512.
oce2o7
RTS.
PC.
471 002514
1110$:
SAVE.
R0,R2,R3,R4,R5
472 A02526
51515757
0000005:.
INC.
VVEC-i-N:ELSE- ;NEXT-FSA.LOC.
47. 01.712F-17-;:2.
A1615511
ARAP114
MOV.
14(SP),R1 ;GFT.NIB INDICATOR
474 011257.1f,.
100414
BMI.
1120$ ;IF.NIBBLE2.
475 510254.51
00b5151(
dOOOLIOC.
CLR.
VVECifl6LGT-
475 002544
012305
1111$:
MOV-
(353)+,R5 ;GET .ENTRY.
477 AA2545
100403
BMI.
1112$ ;XFER.IF ELSE.OR.
476 002550
030251
HMHUMMU.
BIT.
R2,EMA+EMXNB1(R5) ;IF-MASK.MATCHES.
479 002554
buFF 1111-1T
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FLU-MOD-CODE... MACRO.M1110 27-MAP-90 13. 1@_ PaGF 17-7
Approvea r or lea' : CIA-RDP85-00514R000200010001-4
400
002555
010524
1112$:
481
171171255471
005257
AAAAAAr.
482.002554
483 002565
077111
000415
1113$:
484
00257A
012767
10o0uu
Omml0Ht?.1120$:
485
002575
042701
HHHHHHU.
4e6
002602.
012305
1121$:
487
A0216A4
100403
499
002606
030255
000000C.
41719
002512-
490
002514
010524
1122S:
49i
002515
005257
000000C.
4..71z
00252
077111
1123$:
493
002524
1130$:
494
002705
052705
000000G-
4.95
002712.
012703
006003
496
002716
012702
000OOOG.*VVEC,R2.
497
A02722.
004767
00104
499
002726
103405
499AA27..7A
AR5A25
500
002732-
015425
ARARAOG.
501
002735
012725
0000000-
502
002742.
005257
BAAAAAG.
1131$:
i..:162?67
A00005
AAAAAAG.
5A4
802754
5A5
002766
000241
....10b
002770
000545
MOV. R5, (R4)?
VVEC+N;LGT.
R1,1111$
.:11:,712:
BR 1130$
#100000,VVFC+H.LGT. .:CLR.COUHT &.SET.AS.NIB2.
MOV.
BIC. doBITNIBfiRi
MOV- (R3)+,R5 :LIKE.LOOP.1111$ FOR.HIB2.
BMI. 1122$
BIT. R2J.EMR+EMXHB2(R5)
80FF. 1123$
MOV? R5,(R4)?
VV4
;t:l LGT.
e EC+N Ri 4 21$
GETHXT. R5 ;ALLOCATE.FSA.LOC.
,irTDCT,R5
ADD.
MOV. 0FMHI,R3 ::SEARCH.FOR.DUP-OR ENTER VECTOR.
'J5N: PC,SCAH.
BCS. 1131$ ;HEW VECTOR.
ULR. (R5).-1-. ;DUP jUMP.TO IT.
MOV. 1.1,EL!..;E(R4),(R5)+
MOV. *!=iTsrici0,(R5)+
INC. HXTADD. ::COMPLETE.ALLOCATION.
ADD. ,HXTOFF.
RESTOR RA,R2,R3,R4,R5
L.LC. ;DO.ADD.BIT.TO-MASK.
BR 1103$
Approved For Release 2005/08/2201A-RDP85-00514R000200010001-4
FLU-MOD-CO.
508
5119
510
.511
512.
913
514
MACRO.MI11027-MARwPA na PI4E- 19
Appro-Vea-Forelease 2005/08/2.1A-RDP85-00514R000200010001-4
FMSEO.IS.A.SUBROUTIME.TO.CREATE.SEOUENCIAL.STATES.FOR.SINGLE.
ENTRY .VECTORS:
R3 IS.USED.FOR.INPUT.AS.A.POINTER TO THE SINGLE ENTR'1),IN THE.
VECTOR. HO.REGISTERS.ARE.USED.FOR OUTPUT,
515 802772.
015701
006012'
FMSEO:
MOV.
CFSA,R1
.:L:UN','hlfl FSA.LOC.TO.TDCT.ADR
51G 002776
070127
000006
ruL.
517 003A02
_65701
001515151315.
ADD.
TDCADR,R1
51R 1711717i7in6
171117,87
MOV.
(R3:' ..R3
GET ENTRY
519 003010
100001
BPL.
1$
520 003012.
005403
MEG.
R3
;IF.HEOATIVE, MAKE POSITIVE.
521 887814
015305
0000035.
1$:
MOV.
EMA(R3),R5
; GET. EMA ENTRY.
522? 003020
032705
AAAAAAG.
BIT.
*FMXMCF,R9
IS ITA MATCH .CODE?.
53.3 003024
BOFF.
6$
;HO.
003026
000167
0A0734
jMP.
700$
;YES.
525 AA3A32
A7.2,27A5
AAAAAAG.
5$:
BIT.
*EMXDTF,R5
;R2=SOURCE.CODE-FOR.FMT.
525 007.036
BON.
2$
527 006040
832705
88UUUU.
BIT
*ESIX2Mh,R5
522.003044
BON.
3$
529 8838415
A12702
AA3AAA
MOV.
*BITIOWIT9,R2
5m no:,-.;n52
000405
BR
4$
531 003054
012702.
00200A
2$:
MOV.
0BITIO,R2.
532 003060
000402.
BR
4$
AA3053
012702.
001000
3$:
MOV-
*BIT9,82.
534 003066
032705
008510135.
4$:
BIT.
*EMXMTV,R5
;MULTIPLE.VALUES.FOR.ENTRY7.
535 003072
BOFF.
7$
;NO.
536 003074
000167
001040
JMP-
100$
;YES.
537 003100
010100
7S.
MOV.
R1,RO
;IS.STATE.BEI1O.APENDED.TO.TDCT?.
530 003102
A62700
AAA000C.
ADD.
*FS -TDCT,R0
539 003106
020067
000000G.
CMP.
RA, 'OIO.PAROMETERS.
in6 n00104
CALL - .X0I0
107 000110
103426
BCS 4$ IF ERROR
108
109
READ. EMC.
110
111 000112-
012757
002015'
nOrienelfl
*EMC,PARBUF. ;PAR .1 ?BUFFER.ADDRESS.
112 000120
01571711
0910 15
MOV ? FmCLGT,R1 ;R1 --EMC.LENGTH-IN.BLOCKS-
113 000124
1301432
BED ? 10$ ;BRANCH.IF ZERO LENGTH
114 000125
070127
5011100
MU L ? #512.,R1 ;R1 --BYTE LENGTH-
115 000132
010157
t..1 L.1 LIU ?
NV? ? RI,PARBUF+2. ;PAR.2?FILE.LENGTH
116 000136
012767
FIFIFIFIA2
FiFinEr 14'
110 V ? 41.2,PARBUF+10 ;START.READ.AT.VIRTUAL.BLOCK-2
117 A0A144
012701
G ?
MOV ? *IORVEL,R1 ;RI =.10?FUNCTION,CODE.
118 09111150
m120.:12
4-11-1[1[1[1!-)
VICI'yj ? ;R2-=?HO: OF.OIO.PARAWS.
119 000154
01271713
00001114?
NOV. oPARBUF,R3 ;R3-> PARAMETERES.
120 An0160
CALL.
121 000154
107004
BCC. 3$
122 0A0if=d5
4$:
CALL. FOSERR
123 080172
060167
003006
iMP. EXIT
124
125
OSE ? FILE ?
125
127 000175
3$:
CLOSES 4tEMCFDB.
126.0002AF,
AAA1F7
000024
JMP. OT3.1
129
130
ZERO LENGTH- EMC, CREATEDUMMY.TDCT.
131
132.AAA212.
10$:
GTIM$S. *GTIMI ;START TIME
AAA224
111277.
000001
004036"
NOV. ol,TDCT+2. ;CREATESUICIDE TABLE.
134 nAn2A,
AAA11,I7
00067F.
JMP. OTB.3
?
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
?
FSA-C?TRAHIPFOR.(0T3) MACRO. PROCESS M111
INITIALIZE ,ANSLATION 9? Wi5Vai*O-Ir K7618i'se P-5,?/2WIA-RDP85-00514R000200010001-4 ?
.
135 .88TTL. INITIAL= TPANSLATION.PROCESP.
137
138
139
140
AnA27,31;
OT3.1:
GTIM
B.
*GTIM1 ;START.TIME.
141
0002ti0
171127A:1;
MOV.
*VMAS1,R3 ;R3->VMASK
142
000254
016363
000002
88017180
MOV.
H;NIB(R3),N:LGT(R3) ;MOVE.VECTOR.LENGTH.TO.ITS.PROPER.PLACE.
143
000262
0217.27
000125
OMP
(R3),*VEC3MX. ;DU.VEciuw:j.ExchED.DEsIUN.LIMIT?.
144
017102f;f7,
102140?
BLO.
1$ ;HO.-- CONTINUE.
145
000270
AA4767
002554
JBR
;YES.- ISSUE.WARHING
146
000274
085053
000002
1$:
CLR
NLHIBIR3) ;CURREHT.HIBBLE?FIRST-
147
00072.0A
012767
014032'
014.030
MOV.
*NPOOL,FREEO. ;RESET.NEXT.FREE.NODE.PTR.TO.POOL.START.
148
AAA3AF,
012767
001002
00407.36'
MOV
*2,TDOT+2. ;RESTORE.HORMAL.START.STATE.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-C.TRANSLATOR.(0T3) MACRO-M1110 27-MAR-30 1213 PBGE.2_1
MAIN.TRAW-LATION.PROCERRING.LAOP. Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
150 .SBTTL.-MAIN TRANSLATION-PROCESSING.LOOP.
151
152. MAIN TRANSLATION PROCESSING LOOP.
153
154 AAA314
H1inA01
HNHHH2
NIBCHK: MOV. N:NIB(R3),R1 ;GET.CURRENT.NIBBLE.FOR.NODE
155 000320
010167
00005.4"
MUV? R1,CURNIB ;SET-CURRENT.NIBBLE-
156 AAA324
AA52A1
INC. R1 ;CALCULATE.AND.SET NEXT.NIBBLE-
157 000325
042701
177774
BIC. *177774,R1
158 AAA37-
010167
AAAA56"
MUV? Ri,NXTHIB
159 000335
010357
AAA126?
MOV. R3,OLDNDE ;SAVE-NODE.ADDRESS
150 AAA347.
022717;
000001
CMP. *1,(R3) ;DOES.VECTOR.LENGTH=1?.
161 0110345
001004
BHE. 1$ ;NO.-- CONTINUE.
162.AAA35A
004767
001616
JA R? PC,SE.0!--;T. ;YES.- FINISH.VECTOR WITH SEOUENCIAL-STATES.
163 000354
000167
000330
? MSK :12.
154 AAA.56A
011301
i .t ?
MOV? (R3),R1 ;R1=VECTOR.LENGTH.
165 000362
062703
000004
ADD. *N,VEC,R3 ;R3=START.OF.VECTORS.IN.NODE ?
166 AA0366
016700
080A54"
MO 'V? CURHIB,R0 ;RO=CURRENT.NIBBLE NUMBER.
157 000372
011302
MOV? IRS) ,R2 ;R2=ADDRESS.OF.EMC ENTRY -
168 00A374
Us:
0A2116"
ADD. *EMC,R2
163 000400
A327AA
ARAAA?
BIT. *2,PA ;WHAT. IS NIBBLE...POSITION?.
170 0004014
eom.
171 000406
111260
000060'
MOVB. (R2),SEOVAL(RO) ; A OR 1.. SO.tiTORE.LAW,ARDER.BYTE.
172 11110412
080403
OR 3$
173 000414
115260
HUMHHI
0000171'
2$: MOVB-1(R2),SE8VALCRO1; 2.0R-3, SO.!.=;TORE HIGH.ORDER.BYTE.
174 000422
A06300
3$: ASL. RO ;HU=LUKHENT.HIBBLE (WORD.UFFSET)
175 000424
012702-
000064'
MOV. *NIBCP,R2. ;R2=ADDRESS.OF.NIBBLE.COUNTERS.
176 AAA43A
01271-14
000820
MOV. *16:,R4 ;R4=*.NIBBLE.COUNTERS.
177 000434
AA5072-
4$: CLR. ;RESET.ALL-COUNTERS.
178 AAA436
A774A2.
SOB? R4,4$
179
180
THE.FOLLOWING-LOOP-IS.THE-MOST.TIME.CRITICAL-LOOP.IN.THIS TASK, IN ORDER
181
TO.SPEED.IT.UP, IT-HAS.BEEN SPLIT-INTO-4 LOOPS-SO.THAT-THE.SHIFT.COUNT.
182.
COULD.BE.IMMEDIATE.ACCESS THIS.RESULTS-IN.A.7 TO.19.SPEED.UP,
183
THE.PURPOSF.OF.THE.LOOP-IS TO.STORE.THE.00CURRENCE.COUNT FOR .EACH HIB .VALUE;,
184
185 000440
000170
000444"
JMP. 135$(R0) ;CHOASE.OPPROPRIATE.LOOP.
185 AAA444
000454'
5$: 10$ ;FIRST NIBBLE.
187 000446
000500'
11$ ;SECOND NIBBLE
188 ARA45A
A00526"
12$ ;THIRD NIBBLE.
189 000452-
AAA552
13$ ;LAST.HIBBI E.
190
191 008454
012304
10$: MOV. (R3)+,R4 ;R4=NIBBLE.VALUE.(WORD.OFFSET)
192.000456
016404
AA2A16"
MOV. EMC(R4),R4
193 000462-
AA6304
ASL. R4
194 AAA464
A427A4
177741
BIC-*NIBMSK,R4
195 000470
005264
uuuu5.4'
INC. HIBCP(R4) ;STER.COUNTER-FOR.NIBBLEVALUE.
196 000474
077111
!=;01:1-RI.. 111$ ;REPEAT.FOR-EVERVECTOR
197 000476
AAA437
BR 2 e $
198
199 A0A5A0
012304
11$: MOV. (R.3)+,R4 ;LOOP.FOR.2ND.HIBBLE.
2AA AAA5A2
016404
AA2A16'
MOV. EMC(R4),R4
201 AAA9A6
072427
177775
ASH.
202 AAA512-
A427A4
177741
BIC. *NIBMSK,R4
203 000516
005264
000064'
INC. NIBCP(R4)
204 ARA522
A77112.
SOB. R1,11$
205 000524
000424
OR 20$
205 000525
A12304
12$: MOV- (R3)+,R4 ;LOOP-FOR.3RD.NIBBLE.
?
Approved For Release 2005/08/2
IA-RDP85-00514R000200010001-4
FSA-C.TRAN! IOR.(0T3) HACRO-H1110ApOoV&I-001r119
--5-8-.106A-RDP85-00514R000200010001-4
MAIN.TRANSLATION.PROCESSING.LOOP.
207 00053A
208 000534
209 000536
21A 000542.
211 17117-1171F,41,7,
212J-3.60550
116404
005304
042704
005264
17177iii
o68412-
002017'
177741
000064"
MOVE!. EMC+1(R4),R4
ASL. R4
SIC *NIBMSK..R4
INC. NIBCP(R4)
SOB. R1,12$
OR 20$
213
000552,
012304
13$: MOV. (R3)+,R4 ;LOOP.FOR.4TH-NIBBLE.
214
000554
116404
002017'
MOVB. EMC+1(R4),R4
215
Hum5h0
11(242(
11-(?b
ASH. *-3,R4
216
000564
042704
177741
BIC. *11IBMSK,R4
217
000570
00F121'--.4
AOAA64"
HIBCP(R4)
218
000574
077112.
SOB. R1,13$
219
,
220
000576
012702-
000054'
20$: MOV. *NIBCP).R.2. ;R2=ADDRESS.OF-NIBBLE.COUNTERS.
221
MMV1-2V.
m12(04
MHP1M2H
MOV. *16;,R4 ;R4=*-HIBBLE.5:OUNTER5.
277
00050E.
005001
CLR. R1;R1=*.UNIOUE.HIBBLE.VALUES -
223
000610
AA5722.
21$: TST. ;WAS-THIS-VALUE.PRESEHT?.
gr
224
000612.
001401
CEO- ;NO.-- IGNORE.
725
000614
005201
INC. R1 ;YES.- RECORD IT
225
000515
5774A4
22$: SOB. R4,21$;,..COUNTERS

227
000620
022701
000001
CHF'. *1,R1 ; 1455 . ONE.VALUE.PRESEHT?
220
000624
001022-
SHE. ;NO--- INDEX STATE HEEDED
229
000626
005267
000124'
IN: i!ICHT-;YES-- STEP-COUNTER.OF.SEOUENCIAL-STATES-
270
000672.
016707
000126'
OLDNDE,R3 ;RESTORE NODE.ADDRESS.
771
277
000636
000544
016763
001402.
000056'
000002.
=
CEO. NXTNISfiN,HIB(R3);STER.TO NEXT .NIBBLE.
23$ ;** LAST NIBBLE, GENERATE.REOUIRED-STATE-
273
000646
000 157
177442
JMP. NIBCHK. ;** INTERHEDIATE-NIBBLE CONTINUE-CHECKING-
234
; AT-THIS-POINT.WE ARE.AT.THE.END.OF.THE.VECTOR.AND.SOME.SEOUENCIAL.
265
235
000652.
005257
000054'
; STATES MUST.=ERATED.BEFORE.ME-CONTINUE.WITH.NEXT.VECTOR,
23$: NR ;CURNIB=4, BEGIHNING.OF.HEXT VECTOR.
27.7
000656
004767
000654
a PC,SEOPAD. ;GENERATE.REOUIRED STATES.
230
000652.
004767
001474
JSR. PC,GVHASK. ;STEP.TO NEXT VECTORS
279
000556
000157
177422
JMP- NIBCHK. ;CONTINUE-PROCESSING.THIS-noDE.
240
; AT.THIS-POINT-WE MUST.GENERATE.A.IHDEX-STATE.PLUS.ANLEADING.SEO-STATES,
241
A00672.
A09767
AAA124'
30$: TST. ;LERE.ANSEOUENCIAL-STATES.DETECTEN-
242
000575
001402.
BEO. 31$ ;HO.-- JUST.GENERATE.THE-INDESTATE.
243
244
008700
000704
004767
004767
000672
000172
,.
71:T: PC SEOPAD ;YES.- GENERATE-REOUIRED.SE0 STATES
31$: .
Pc. ;GEHERATE.IHDEX.STATE.
245
246
AT.THIS.POIHT.THE.HODE.WE.WERE.PROCESSIHG.HAS.BEEH-SPLIT IHTO.MULTIPLE.
247
HODES, THE.TDCT.MUST.BF.SCANHED.TO.FIHD.AH.IHCOMPLETED.IHDES.STATE TO.
243
COHTIHUE.PROCESSIHG.WITH:
249
250
000710
015700
004016
MS K:12 Mn V. CHKOFF,P0 ;RO=LAST COMPLETED STATE.IH.TDCT.
251
500714
020057
17104024'
1$: CMP. PO,TDCHST. ;ARE-WE.AT.THE.END OF.THE.TDCT?.
252
000720
103025
BHIS. 0T3.3 ;YES.- WE.ARE.FIHISHED.THE.TRAHSLATIOH
253
000722.
032760
000001
004040'
BIT. oBIT0,TDCT-FSEGZ(R0);HO--IS.STATE.INCOMPLETE?
254
AR0730
BON. 2$ ;YES.- FOUHD.HODE.TO.PROCESS
255
A0073/.
052700
H00006
ADD. 44.L$STATfiR0 ;HO.-- STEP-TO.HEXT.TDCT.EHTRY.
256
000736
000766
BR 1$
257
; AT.THIS-POINT.ANOTHER.HODE HOS.BEEN.FOUND.TO.PROCESS,
258
000740
015003
004035'
2$: MOV- TDCT+SEG2(P0),R3;GET?HODE.ADDRESS.FROM.TDCT-ENTRY.
259
RAn74.4
AiAAF.7
AA4A2A'
HOV. RO,PIriAOFF. ;SET.OFFSET.OF.TDCT.EHTRY.TO BE .PROCESSED.
260
050750
010067
A04016"
HOV. RO,CHKOFF- ;!"..ET-OFFSET.OF.LAST-COMPLETED.TDCT-ENTRY-
261
170171754
AA5757.
RAAF1A2
TST. N,NIB(RS) ;LAST .NIBBLE?.
252
500755
011101.717.
EINE- 3$ ;NO.-- IHTERMEDIATE.HIBBLE, CONTINUE -
263
000 62
0A47i9.7
0017.74
SrJ. PC,GVHASK. ;YES.- STER.TO-NEXT.VECTORS
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-C.TRANSLATOR.(0T3) MACRO.M1110 27-MAR-80 13z13 PAGE,21.72.
MA IN ? TRANSLATION ? PROCESS INC; ? LOOP. Approved For Release 2005/06/22 : CIA-RDP85-00514R000200010001-4
26=4 171171A7F,1-, 1117375A
267.5 AAA7711 AFIA1F.7 17772,2171
BCS. MSK :12.
3$: JMP. HIBCHK.
;JUST.A.MATCH.STATEfiNO.HODE.LEFT.TO.PROCESS.
? Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSB-C?TPAH OR.(0T3)
TRANSLATION.COMPLETE
mALF6-J. Miii4plii(adAiriQasePitiiii461211,1A-RDP85-00514R000200010001-4
2F,7
2551
i Li
270
271 Lu (i4
.SBTTL. TRANSLATION.COMPLETE.
TRANSLATION.PROCESS.IS.COMPLETED:
013.3: GTIM$S. *SECBUF. END TIME
272 001006
004767
000000.
JSR.
PC.,DELTIM. ;COMPUTE DELTA TIME
273 AA1012.
1.7117in2laF"
AnAnnoc-
MOV.
SECBUF,BAT,HO+RD:SEC. ;TRANSFER.DELTA.TIME TO-SEND.BUFFER.
274 001020
016767
000210'
0000000.
MOV.
SECBUF+2,BAT:NO+SD:TIC.
2(5 HH1H2b
016(6(
vw.141.-.12?2
HHHHUHL.
MOV.
HXTADD,BAT:NO-FSD,FSA.
276 001034
CALL-
WRTTDC.
277
278
NOTIFY OTS,
279
220 001040
SDAT$C.
OTS..BAT.NO,CODE
221 001045
103004
BCC ?
1$
lLiLiUkLi1Iibii
CALL.
DIRERR
283 ARiA54
000167
002124
JMP.
EXIT
284 001050
1$:
RSur d
OTS,CODE. RESUME OTS
C.1 00 1055
10317g12.
BCC ?
2$
iib 001070
CALL.
DIRERR
287 001074
2$:
EXIT$S.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FSA-C.TRANSLATOR.(0T3) MACRO.Mii1a 27-MAR-1-10 i3L13 PfLE?2:1
INDEX-STATE.GENERATION. Approved For Keiease 2005ido/22 : CIA-RDP85r00514R000200010001-4
2e9
290
291
292
293
294
295
295
297
29e
299
300
3A1
R:A2
383
704
305
306
707
788
309
31A
311
312
313
314
315
316
317
318
319
320
321
722
323
324
326
727
328
329
770
'731
332.AA1266
001102.
001105
001112.
001114
001116
001120
AA1122.
AA1124
001126
A81172.
001155
001140
001146
001152.
801155
001150
001164
A01170
001174
A01200
001204
A01210
A81214
001220
001222.
801226
001230
001232-
001234
001236
001240
001242
001245
001250
001252.
001254
el el1?IDID
001264
7i33
334
335
736
" Tr
339
340
341
342?
343
344
345
001272
00 1274
0A1788
001704
_01310
001312
001316
001322
O01326
O01332
001334
001340
001344
?
O12704 000124"
012702. 000020
005001
O05744
001401
000251
005101
A77205
016704 004020'
020457 004024'
103405
062767 000006 A04024'
005267 004022'
062704 004034"
010124
016724 004022'
012714 040000
016703 004024'
062705 004034'
012704 000124'
012701 000020
015702. 014030'
mw. 015302'
012709: 014032'
014412.
001002.
0771A3
000417
012200
510E,300
016722 -
A10214
005023
01021:5
1627
012 .P23
A6AA02.
885267
077130
162703
^ 10357
1-120:567
103404
An 4757
000167
010267
016703
011301
052703
A 15700
006300
000055'
000004
A.488A1
AP4A22'
004034'
004024'
1504.026"
001504
OU1E62
014030"
000126'
0000114
008854'
.SBTTL. IHDEX.STATE.GENERATION.
INDEX STATE.GENERATIOH-
INDEX: MOV.
MOV.
CLR.
1$: TST.
BEO.
2$: ISO
ROL.
SOB.
MOV.
CMP.
BLO.
ADD.
INC.
25151$: ADD.
MOV.
MOV.
MOV.
MO,.
ADD.
MOV.
MUV.
MUV.
CMP.
BLOS.
MOV.
MUV.
El NE
SOB.
BR
*NIBCP+40 R4
ft16.,R2.
RI
-(R4)
2$
RI
R2,1$
FSAOFF,,R4
R4,TDCHXT
2AA$
*417....TDCNXT.
HXTADD.
#TDCT..R4
R1,(R4)+
A
NIADD,(R4)+
4STSINX,(R4)
TDCHXT,R..7
*TDCT,R3
oNIBCP-FAA,R4
;R4=ADDRESS.OF.END OF.HIBBI F COUNTERS.
;R2=*.NIBBLE.COUHTERS.
;R1=INDEX.MASK.(SEG1 OF TOOT ENTRY)
;WAS.THIS.NIBBLE.VALUE.PRESENT?.
;NO.- W
- TNEN.DOT.MARK.THIS.POSITION.
;YES.- THEN.MARK.TNIS-POSITION.
; ENTER. PDS IT ION . INTO. MASK .
; REPEAT- FOR . ALL . N IBBLE . VALUES.
;R4=OFFSET.TO.TDCT Y' TOOT PROCESSED-
;ARE.LF.APPENDING.TO.TDCT?.
-- CONTINUE-
;YES.- THEN. UPDATE POINTERS.
;R4=ADDRESS.OF.TDCT.ENTRY.
;TDCT STATE=R1,NXTADD,*ST$INX.
;R3=ADDRESS.OF-NEXT.AVAILABLE.TDCT.ENTRY.
;R4=ADDRESS.OF.END OF.HIBBLE COUNTERS.
#16,R1 ;RI=0.NIBBLE.COUHTERS-
FREEO,R2. ;R2=ADDRESS.OF.HEXT.FREE.HODE.
2A$: R2,#NPOOLE. ;HAVE.LIE REACHED.THE.END.OF.THE.POOL?.
21$ ;HO.-- CONTINUE.
*NPOOL..R2. ;YES.- RESET,TO.BEGINNING.OF POOL
-
21$: -(R4),(R2) ;TRAHSFER.VECTOR.LENGTH.TO.NODE.
22$ ;IF.VECTOR.LENGTH-NON-ZERO, COMPLETE .NODE.
R1,21$ ;OTHERWISE, TRY.NEXT.NIBBLE.COUNTER.
23$ ;IF.FINISHED.ALL.COUNTERS, READY.FOR.NEXT.STEP.
; AT-THIS-POIHT?A.HODE AND-TDCT.STATE.NEED-TO.BE CREATED.FOR.THIS.INDEVALUE-
22$: MOV. (R2)+ ,R0 ;RO=SIZE OF .VECTOR AREA .(BYTES)
ASL. RE'
MT./.
MUV.
CLR-
MOV.
SUB.
MOV.
ADD.
INC.
SOB.
23$: SUB.
MOV.
CMP.
BLO.
JSR.
JMP.
24$: MOV.
MOV.
MOV.
ADD.
MOV.
NXTNIB,(92)+
R2,(R4)
(95)+
R2,(R3)
#N;VEC,(R3)?
#ST$INXIBITO,
R0,R2.
NXTADD.
R1,20$
*TDOT,19.5
R3,TDONXT
R3,TDOMAX
24$
PC,TDCERR
PS. FREED
OLDNDE,R3
(P3),R1
*N,VEC,R5
CURNIB,R0
;NEXT.NODE.ENTRY.= HEXT.NIBBLE.NUMBER-
;TNIS.NIBBLE.COUNTER.BECOMES A.NODE.VECTOR.PTR.
;NOW.CREATE.TDCT.STATE, I110EX.MASK=0
;HEXT.SEGMEHT.POINTS.TO.NODE
(R3)+;DEFINE.STATE.AS INCOMPLETE.INDEX.STATE
;ADD.VECTOR.AREA.TO.NODE.POSITION.POINTER
;STEP.TDCT.STATE.ADDRESS.
;FINISH.ALL.COUNTERS.
;CONVERT ADDRFSS.TO.OFFSET.
;UPDATE-HEXT.TDCT.OFFSET.POINTER.
IHAVE.LE OVERFLOWED.THE.TDCT?.
;HO.-- CONTINUE.
;YES.- REPORT.CONDITION
;UPDATE FREE NUDE ADDRESS PSI INTER
;RZ=ADDRESS OF NUDE DEFINING VECTORS
;R1 =VECTOR LENGTH.
;R3=000RESS OF VECTORS
;RO=NIBBLE NUMBER -(j5ORD OFFSET)
HSL. RO
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSA-C.TRAN 10R-(OT3) MACRO.M111a 2?---rlARJth-t i3z17 LIri
ApProved-kir KeieasePz.005m/211.11A-RDP85-00514R000200010001-4
345
349 347
348
349
35A
351
352.001345
888170
801752'
353 001352
00131-7.2'!
25$:
354 AA1354
001414'
355 001356
001450'
356 001360
AA15A7-?
7:157
;
359 AA172.F.2
012302.
30$:
359 001354
015204
002016'
368 881378
886304
361 001372.
842784
177741
352-001375
010274.
808064'
353 001402
062764
000002
000054'
354 001410
077114
365 001412
000207
367 001414
012302.
31$:
368 881416
015204
882816'
358 881422-
072427
177775
37A 881426
842784
177741
371 001432.
010274
000054'
372.001436
052754
AAAAA7
0AA0-,4
373 001444
877115
374 001445
A00287
375 001450
012302-
32$:
376 881452
115204
AA2A17'
377 801455
885384
378 881460
042704
177741BIC
379 001464
018274
000854'
3" 001470
062764
000087
AAAAF.4'
381 801476
077114
383 001500
000907
393 001502
012302.
33$:
384 nni5A4.
115204.
882817'
3OSI 001510
072427
177775
386 881514
842784
177741
-- 801520
810274
000854'
388 801524
0.754
080802
808864"
:77881532
077115
..Y718 00156.4.
mmil217
THE.FOLLOWING.LOOP-IS.THE-5ECOND.MOST.TIME-CRITICAL.LOOP IN.THIS-TASK,
IN-ORDER.TO.SPEED.IT.UP, IT-HA5.BEEN SPLIT-INT0.4 LOOPS-SO-THAT.THE-SHIFT.
COUNT.COULD.BE.IMMEDIATE.ACCEtiS: THIS-RFSULTS.IN.A.5 TO-13X.SPFFD.UP6
THE.PURPOSE.OF.THE.LOOP.IS TO.FILL.M.THE.VECTOR.AREA.FOR.EACH.HODE:
JMP. 025(R0) ;CHOOSE.APPROPRIATE LOOP.
30$
31$ ;FIRST NIBBLE.
;SECOND.NIBBLE.
32$ 33$ ;THIRD NIBBLE.
;LART.NIBBLE.
MOV. (R3).-F,R2. R2 =VECTOR
1101 EMC(R2),R4 ;R4=HIBBLE-VALUE.WORD 77F5P-1)
ASL R4
BIC. *HIBMSK,R4
R2,90IBCP(R4) ;TRANSFER.VECTOR.TO.NEXT.VECTOR-ENTRY.OF.NODE.
HUD
SOB ;.-.
#2,NIBCP(R4) FOR-THIS.HIBBLE-VALUE, ALSO.STEP.VECTOR-PTR.
RTS. R1,30$ REPEAT.FOR ALL VECTORS
PC.
r":11:1
*2,NIBCP(R4)
R1,31$
EMC(R2),R4
0-3,R4
*HIBMSK,R4
R2,@HIBCP(R4)
(R7)+,R2. ;LOOP-FOR-2ND-NIBBLE.
RTS. PC.
MOV. (R3)+,R2. ;LOOP-FOR.3RD.NIBBLE.
MO VB- EMC+1(R2),R4
ASL. R4
*HIBMSK,R4
.
P.21,71HIBCP(P4)
n *2,NIBCP(R4)
50B. R1,32$
RTS. PC.
MOV. (R3+ R2 ;LOOP-FOR-4TH.NIBBLE.
MO VB. EMC-1-1(R2),R4
),.
ASH. *-3,R4
BIC. *N1BMSK,R4
i R2 @HISCP(R4)
J,
H0 04
R1,33$
RTS. PL.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-C TRANSLATOR 10T31 MACRO M111$?1313:r7C-a -FECT r RlieiseP220.1155/048/22 : CIA-RDP85-00514R000200010001-4
SEOUENCIAL STATE GENERATION
39..--.
394
395
39F. 017.11935
397 081935
009002.
390 001540
026767
004020'
004024'
299 001545
001001
400 091550
005202.
401 001552-
011:704
004020
402.00155B
062704
004034'
402 001552.
015700
000054?
404 00156B
155700
000124'
405 001572.
01B701
000124'
406 AA1575
A06301
407 001500
000171
001504'
408 AA1504
AAAA01
409 00160F.
011lf:;11:?
410 001610
001624'
411 001512.
An1666?
412.001514
001750'
413
414 001515
004757
000275
415 001522.
000477
415
417 001524
032700
AAAAA1
410 001530
413 001532.
004757
000232
420 001635
088471
421 001540
004757
000254
422 001E44
012702-
423 001550
015704
004024'
424 001554
052704
004034'
425 001550
004767
000234
426 00113134
0004513
427
420.A17.711.
072.27An
FIA0FIA1
AA1B72.
430 001574
0047B7
000170
431 oal7oo
012702.
aciami
432.001704
01571.14
004024'
4733 001710
052704
004034'
434 001714
0047B7
000200
435 001720
00044.6
435 001722.
004767
000172
475( 000111111111#1
(26
0120.M.
00 0U1
430 001732
010704
004024'
439 001735
062704
004034'
440 001742.
004757
000122
441 001746
000425
442-
443 001750
005702.
444 001752
011 141
445 001754
115724
FlAnAFA'
445 001760
115724
000052'
447 001764
e05024
448 001755
012724
15tc.FI0A
.SBTTL. SENENCIALSTATE.GENERATION.
;
SENEHCIAL.STATE GENERATION.
?
SEOPAD: ;THIS.SUBROUTINE.GEHERATES.LEADING.SENENCIAL.STATES
CLR. R2. ;R2=TDCT APPEND.INDICATOR.(0=NOT.APPEHDING)
CMP. FSAOFF,TDCHXT. ;ARE.WE.AT.END.OF.TDCT?.
ONE. 2$ ;HO.-- THEN.WE.ARE REPLACING AN.INTERNAL.STATE.
INC. R2. ;YES.- THEN.WE.ARE APPENDING (R2=1)
2$: no FSAOFF,R4 ;R4=ADDRESS.OF.TDCT.STATE.BEING.PROCESSED.
*TDCT,R4
ii"Ili: CURHIB,RA ;RO=HIBBLE.NUMBER.OF.FIRST.SEO.POSSIBLE.
SUB. SEOCNT,R0
MOV. SEOCHT,R1 ;R1=4*.NIBBLES.FOR.WHICH SEO.STATES.ARE POSSIBLE.
ASL. Ri ;R1=.(WORD.OFFSET)
%IMP. @1$(R1) ;CHOOSE.APPROPRIATE.ROUTINE.TO.HANDLE.CONDITION-
, 1 ;ILLEGAL.CONDITION, ABORT.IF.IT.00CURS.
10$ ;OHLY.1 NIBBLE.HOD.SINGLE.TRANSITION
20$ ;2-CONSECUTIVE.HIBBLES.HAD SINGLE.TRANSITION.
30$ ;3 CONSECUTIVE.HIBBLES.HAD SINGLE.TRAHSITIOH.
40$ ;EHTIRE.VECTOR.HAD.ONLY.ONE.TPANSITIOH.
OHLY.OHE.HIBBLE, MUST.GEHERATE.IHDEX SEND-AC.1AL.
10$: JSR. PC,STISO. ;GENERATE-IHDEX.SEOUENCIAL STATE.
BR 100$
; 2.HIBBLES, BUT .ORE THEY PART.OF.THE.SAME.BYTE?
2A$: BIT. *1..R0 ;IS.FIRST-HIBBLE.HUMBER=0 OR 2?.
BON. 21$ ;NO HOT.SAME.BYTE.
JSR. PC,STJSO. ;YES.- GENERATE.JUMP.SENDICIAL.STATE.
BR 100$
21$: JsR. PC. STISO. ; GENERATE 2.IHDEX.SENENCIAL.STATES
000001ol,R2. ;WE.ARE.NOW APPENDIHG TD
.TO.CT.
In'i
TDCHHT,R4
ADD. *TDCT,R4
jSR. PC,STISO.
BR 100$
PIT pr
20$:
; 3 HIBJ:E.S, MUS R0 T.GEHERATE.INDEX.AND.JUMP.STATE, BUT.IN.WHAT.ORDER?.
Bai . *1,
31$ HO IHDF
PC,STJSO. ;IS.FIRST.HIBBLE.HUMBER=0?.
;.-- X.STATE FIRST.
mov. 41,R2. ;YES.- GENERATE.JUMP.SEO.THEN.INDEX-SEO.
;WE.ARE.NOW.APPENDING?TO.TDCT.
MOV. ToW,NXT,R4
ADD- CT ,R4
3513- PC,5T150.
BR loo$
,. .X....-
31 Y.:a. PCfi8TI80 GENERATE IHDE SEM THEN JUMP CEI .
R2
MOV. ;WE.ARE.HOLI.APPENDING.TO.TDCT?.
MOV. TDCHXT,134
ADD. *1 DCT,R4
JSR. PC,STJSO.
BR 1005
: ENTIRE VECTOR, BUT.IS.IT.AT.END.OF.TDCT?.
40$: TST. R2. ;ARE.WE.APPENDING?
BEO. 41$ ;NO--- CAHHOT?USE.SEO.STATE.. HEXT.ADDRESS.WRONG.
MO VB. 8EOVAL,(R4)+ ;YES.- GEHERATE.SEO.STATE.
MOVB. SEOVAL+2,(R4)+
CLR. (R4)+
MITV? #ST$SEOITXTBIT1S7BITIS2BIT,(R4)+
1111 Approved For Release 2005/08/2 IA-RDP85-00514R000200010001-4
?
FSA-C ? TR A H !OR ? ( T3 ) MACRO ? M11114_ MAR. -pea 4.1' PA4C;W:,
pPr-Civeu ror rcelease-LutratvoiziklA-RDP85-00514R000200010001-4
HOEK I AL STATE ? GENERATION ?
449
001772.
FIA52i,--,7
004022.?
45Fi
FIF11771:..
000411
451
Hm21ml
004767
1...1[01.154
452
002004
005202
453
L1Lizu017,
916(94
004024'
454
002012.
A62704
004034'
455
002016
004767
000046
456
457
002022.
AA57A7.
450
If:ILL:1024
911141.3
459
002026
162704
004034'
460
002037.
010467
004024'
461
002036
020467
004026'
4.62
002042-
103404
463
002044
004767
001052
4.64
007050
000167
001130
465
002054
016767
004024'
466
002062-
005067
000124'
467
UUJbb
000207
468
469
002070
470
002070
116024
000050'
471
002074
105024
472
002076
060267
004022'
473
002102.
016724
004022'
474
00210E,
012724
114000
475
002112.
062700
0AA002
476
002116
000707
477
470
002120
479
002120
116001
000060"
400
002124
005200
401
002125
072700
uHuNu1
402
002132.
403
002134
072127
177775
484
002140
000401
485
002142-
006301
486
002144
042701
177741
487
002150
016124
000130'
481j
002154
060267
004022'
489
002160
016724.
004022'
490
002164
012724
040000
491
00217'0
000207
492
493
002172-
494
002172.
012767
ANNuu4
495
Nuuu
166(6(
000054'
455
1.11,tkil";
IJ i(b(
497
002214
916703
AAA126'
49A
uu??1.2u
ANuN1J4
499
-02224
011305
U 225052705
171020
501
002232-
111567
000050'
502
002236
112567
000061'
503
002242.
111567
000062'
504
002246
112567
FICIAAr:
505
002252.
0047E.7
177260
INC
BR
41$:
JSR-
INC
MOV
ADD
JSR-
117.10$: TST
BEO.
SUB.
NOV.
CMP
BLO
JSR-
JMP
AA4R2A' 101$: MOV
CLR
RTS
000124'
000124'
ilmmm54'
NXTADD
100$
PC,STjS0
P2
TDCNXT,R4
*TOCTfiR4
PC,STjS0
R2.
101$
#TDCT,R4
R4,TOCNXT..
R4,TOOMAX.
101$
PCTDCERR.
EXIT
TDCNXT,FSPOEF-
SEOCNT.
PC.
;GENERATE.2-jUMP-SEO.STATES.
;WE-APE-NOLLAPPENDING-TO.TDOT.
;WERE.ANY-STATES-APPENDED.TO TOO-2
RA=NEXT.TDCT.ENTRY-OFFSET.
;UPDATE.NEXT.TDCT.ENTROFFSET.PTR.
;HAVE.WE OVERFLOWED-TOOT?.
CONTINUE-
REPORT.CONDITION.AND.EXIT-
; ANY. MORE. STATES . MUST- BE. APPENDED. TO- TOOT.
;ALL.DETECTED.SEO-STATES.HAVE.BEEN.CREATED.
;FINISHED.
STJSO: ;THIS-SUBROUTINE.ENTERS.JUMP.SEO STATES-INTO-TDCT.
MOVB. SEOVAL(R0),(R4)+;ENTER.BYTE.JUMP-IS.CONDITIONAL ON
CLRB. (R4)+
STISO:
ADD.
MOV.
MOV.
ADD.
RTS.
;THIS
MOVB
INC-
BIT
BON
ASH-
BR
ASL.
BlIC
MOV.
ADD.
MOV.
MOV.
RTS.
R20-.1XTADO. ;IF.APPENDING, STEP.NEXT-ADDRESS
NXTADDfi1..R4I1+ ;ENTER.NEXT.STATE-ADDRESS.
#ST$JSOIJMPBIT!TXTBIT,(R4)+;ENTER-STATE.OF.00ND: JUMP.SE0-
02,R0 ;STEP.PAST.NIBBLES HANDLED.BY.THIS.STATE.
PC.
SUBROUTINE.ENTERS
SEOVAL(R0),R1
RO
+1,R0
1$
*-7,R1
2$
R1
*NIBMSK,R1
INDONV(R1),(R4)+
R2,IIXTADD.
NXTADD,(R4)+
oST$INX,(R4)+
PC.
SEOST: ;THIS.SUBROUTINE.ENTERS
MOV. 41-4,SEOONT.
OLONDE,R3
CURNIB,SEOONT.
+4,CURNIB.
4fl;VEC,R3
(R3),R5
ADD. 4HE.MC,R5
MOVB- (R5),SEOVAL.
(R5)+,SEOVAL+1
(R5),SEOVAL+2.
(R5)+,SEOVAL+3
PC. SFOPAD.
Approved For Release 2005/08/22 :
Fi-ig-A0T0E51114686ToriP0f61661-4
INDEX. SE0 . STATES . INTO- TOOT.
;STEP-PAST.NIBBLE.HANDLED-BY THIS-STATE.
;WHICH-NIBBLE-OF-SAVED-BYTE.ARE-WE,AFTER?.
;LOW.ORDER.NIBBLE.
;HIGH-ORDER-NIBBLE
;R1=NIBBLE.VALUE.(WORD.OFFSET)
;ENTER.IHDEX.MASK.
;IF-APPENDING, STEP.NEXT-ADDRESS-
;ENTER.NEXT.ADDRESS.
;ENTER.STATE-OF.INDEX.STATE.COMPLETE-
TRAILING 3E0 STATES.(VECTOR LENGTH =1)
;USE.SEOPAD TO HANDLE INITIAL.STATES
;SEOCNT=1-P SPA STATES PH 151 (NIBBLE.O0UNT)
;CURNI8=LAST (FIRST OF NEXT VECTOR)
;R3 =ADDRESS OF VECOTOR IN NODE
;R5=VECTOR
;R5=EMC ADDRESS
;SET-UP SAVED NIBBLE-VAI UES
?
FSA-C-TRANSLATOR-(0T3) MACRO.MI110 27-MAR-B0 13:13 PAGE 24-2
SEOUENCIAL STATE GENERATION Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
511E.
00225E.
016704
004034'
MOv
TDCNXT,R4 ;R4=NEXT AVAILABLE STATE ADDRESS
5A7
AA7262
062704
004034'
ADD
#TDCT,R4
5uu
UU22bb
mm!,( 1!,
1$:
TOT
(R5) IS NEXT STATE.A.MATCH.STATE?.
509
002270
100407
OMI
20$ CREATE.MATCH.STATE.
510
002272.
012524
MOV.
(R5)+.. (R4)+ ;ENTER.SEO.VALUE.
511
002274
RA 5024
CLR
02.4)+
512
002275
012724
15F.AAA
HOY.
*ST$SEOITYTBITIS3BITIS2BIT,(R4)+;DEFINE.STATE AS.SEO.STATE-
513
002302.
005267
004022'
IHC
HXTADD ;UPDATE.NEXT.STATE ADDRESS.
514
FIA27iCIF.
A00757
BR
1$ ;CONTINUEUNTIL.MATCH.STATE.FOUND.
515
002310
011514
20$:
MOV
(R5)..(R4) ;FIITER.MATN.00DF.VALNE.
916
AA271?.
042724
lmmImm
BiC
*100000,(R4)+ ;REMOVE.MATCH.CODE INDICATOR
517
002316
012724
000001
MOV
*SUISTA,(R4)+ ;EHTER-HEXT.ADDRESS=SUISIDE.STATE.
510
002322.
017724
164000
MOV
ItOT$MATITBIT,(R4)-1-;ENTER OTATE.OF-HORMAL.TERM; MATC .STATE.
519
002326
005257
004022'
INC
HXTADD. ;UPDATENEXT-STATE ADDRESS.
520
002332.
152704
004034'
SUB
*TDCT,R4 ;CONVERT ADDRESS.TO-OFFSET.
521
002335
010467
004024'
MOV.
R4.TDCHXT ;UPDATE.HEXT.AVAILABLE.TDflT ENTRY.OFF6ET.PTR.
522
002342.
020457
004026'
CMP
R4,1DCHAX. ;TDCT.OVERFLOW?.
523
002346
103404
BLO
21$ -- FINISHED.
524
575
RA2735A
002354
004757
000167
AAA54F.
000524
JSR
Jnr,
PC,TDCERR ;YES?- REPORT.CONDITIOWAND.EXIT.
EXIT
526
00775A
000207
21$:
RTS
PC
Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
FSA-C.TRAK- OR.(OT3) MACRO.M1110 27-MAR-PA "
GVMASK.&.MATCHT.S6BROUTIHES. Approved For keleisai65,...irt-8/2.1A-RDP85-00514R000200010001-4
528. .S8TTL. OVMASK.e..MATCHT-SUBROUTINES.
c-Dra
538 SUBROOTINE.TO.STEP vECTORS. ALL NIBBLES.OF.PREVIOUS.VECTORS. "VE .BEEN.
531 ; PROCESSED.
533 002352. 010301 6VMASK: MOV. F3 P1 ;R1=ADDRESS.OF.NODE.FOR.VECTOR.STEPPING.
574 002354 Fiii7-TIAMOV? R3 R0 : (), ;RO=VECTOR.LENGTH.
578 AA27.72. AA51-02.
I-...11-I R2. ;R2=NEW.VECTOR.LENGTH.
%1
535 002365 012703 001016' *VMASK,R3 ;R3=ADDRESS.TO.GENERATE.NEW NODE.
537 002374 012123 MCW? (R1)+,(R3)+ ;TRANSFER-VECTOR.LENGTHS
-530 002375 012123 MUV? (R1)+,(R3)+ ;TRANSFER-NIBBLE.NUMBER.
538 002400 012104 1$: t (R1)+,R4 ;R4=OFFSET.OF.E-MATRIX.ENTRY
540 002402. 052704 AnnAA2 'f-i
*2,R4
541 AA2408 AA9784 AA2A18 TST. EMC(R4) ;IS-E-MATRIX-ENTRY A.MATCH-STATE?.
542 002412. 100007 BPL. 2$ ;NO.-- THEN.STEP.VECTOR.
543 002414 004767 AOAA70 JPR. PC,MATCHT. ;YES.- THEH.GEHERATE.MATCH.STATE.IN.TDOT.
544 002420 000402 BR 3$
545 002422. 010423 28: MOV. R4,(R3)+ ;TRANSFER.VECTOR-
545 002424 AA5202. INC. R2. ;KEEP.COUNT.OF.VECTORS.TRANSFERRED.
947 AA-2426 U7171114 38: SOB. R0,1$ ;REPEAT.FOR.ALL.VECTORS.
54.8 AA247.A AA57112. TST. R2. ;WERE.ANY-VECTORS.TRANSFERRED7-
549 002432. AA 1404 BEO. 4$ ;NO.-- FLAG.PONDITION.
550 AA2434 012703 001016' MOV. oVMASK,R3 ;RESET.TO.BEGINNING.OF-NODE.
551 002440 010213 MOV. R2,(R3) ;TRANSFER.VECTOR.LENGTH.TO.NEW.NODE.
992-MA2442 HAM2117 RTS. PC.
553 002444 MAA 21 48: SEC. ;FLAG.CONDITION.
554 002446 000207 RTS. PC.
CCC
556 PUBROUTINE.TO.GENERATE MATCH.STATE-IN.TDCT-
cc7
55R 002450 MATCHT: SAVE RO,R2,R3
55g 002455
58M 00r2.45 2 ?
561 002465
5B2.002472.
563 002475
564 002502
55,5 002504
56B AA250B
557 002510
5bu Hoz-112.
55g AA2516
570 002522
571
572 002524
573 002530
574 082534
975 002540
576 002542.
-77
c
....If i 1711792544
578 00255A
57g ?2555
580 AA2564
581 002555
5612 002572.
583
5g4 002575
016446
04 2 ( 1 it.
015703
052703
002015'
1 A A A A A
004020"
AA4034"
022700
000001
AO1A1A
HH- O2
AA1AA5
012523
012(2.f.
u000m
012723
184000
000425
;
015704
004024"
010457
00402A?
052704
AA4034"
020403
001010
Al7152F.7
004022"
062757
AAAROB
004024'
05 2757
000006
004020'
012827
21$:
015727
0A4022"
012723
184A00
?
l' EMC(R4) ,-(SP) ;STORE.MATCH.CODE.ON.STACK-
E' *100000 ,(SP) ;REMOVE.MATCH.CODE INDICATOR
MOV. FSAOFF,R3
!:1I:g,R3 ;R3=ADDRESS.OF.TDCT.ENTRBEING.PROCESSED.
ADD.
CMP.
BNE. ;IS THIS THE.ONLVECTORP.
2$ ;NO -- MUST.GENERATE.2.STATES.
TST.
BNE. 2$
GENERATE.SINGLE.MATCH STATE.
MOV.
MOV. ---F.MATCH.CODE.AND.NEXT ADDRESS?SUISIDE-
MOV. iiTTR.:1(R.131 FINE.AS.NORMAL.TERM.MATCH.STATE.
BR 3$
2$:TDCNXT,R4 ;R4=NEXT AVAILABLE TDCT.STATE.
MOV. R4,FSAOFF. ; THIS. NEW. STATE . IS ALSO . TO . BE . THE . CURRENT.
:: *TDCT,R4
CMP. R4,R3 ;ARE.WE.APPENDING.TO.TDCTP.
BNE. 21$ ;HO.
INC. NXTADD. ;ADJUST.FOR.NPLI.!3TATE.
b,
ADD * iDCNXT.
.
.
ADD
*5,FSROFF.
MOV. (5P)+ ,(R3)+ ;GENERATE.MATCH.STATE, ENTER MATCH .CODE.
MOV. NXTADD,(R3)+ ;ENTER.NEXT.ADDRESS?OLD.STATE.(NEW.LOCATION)
MOV. *ST$MATITBITfi(R25)+;DEFIHE.AS HORMAL.TERM.MATCH.STATE.
5$: RFSTOR. eA..pa
Approved For Release 2005/0p28/22 : CIA-RDP85-00514R000200010001-4
FSA-C.TRAHSLATOR.(0T3) MACRO-M1110_ 27-MAP-R0 LS-1S PPLE.252-1_
SVMASK-&.MATCHT.SUBROUTINES. Approved Eor Kelease zuu5i0o/22 : CIA-R0P85-00514R000200010001-4
585 002604 000207
RTS. PC-
? Approved For Release 2005/08/2.1A-RDP85-00514R000200010001-4
?
ESA-C?TRAN_ OR-(0T3)
WRITE-EMX.TO.DISK.
MACRO.M111 ElApoVgErP8r lidlaSeP2"
,,,,5,v8/241A-RDP85-00514R000200010001-4
.SBTTL..WRITE.EMX.TO,DISK.
509
59n
591
597.002505
593
594
595
THE.PURPOSE.OF.THIS.SUBROUTINE-IS-TO OPEN.THE.TNT-C.FILE, WRITE.
THE.TERM.DETECTOR.CONTROL.TABLE.TO.DISK.AND.CLOSE.THE.FILE,
WRTTDC::
OPEN.TDCT.FILE-
596 002606
012700
00A7-17n."
MOV. *TDCFDB?RO ;RO->FDB.
597 002612.
012701
000004
MOV. #F11,,FSC?R1 ;R1->FILE.NUMBER
5?..-..1121 0026
Uld4(br
mmumiuG.
JS R. PC?BLDHFL. ;BUILD.FILE.NAME BLOCK.
599 002622.
FDAT$R. ??4-TDC8LK.
5n0 002530
OFMBzw. ;OPEN .FILE
501 002542.
103447
Brs. 6.$
602-002544
015(02.
nnAn27'
NOV. BAT.NO,R2 ;FIND-FDSC ENTRY IN.MCOM.
603 002650
016202.
000000G.
MOV. B5iPTRIP2).R2
51714 002654
n52702.
000222
ADD. 48.FFSC.P2
505 002560
015722-
13100432'
MOV. TDCFDB+F.FHB+N.FID%fP2)+ TRANSFER FOOL:
506 002654
016722.
00044'
MOV. TDCPDB+F.FHB-F.H.FID-4-2.(P2)+
607 002670
016722.
U 00450'
MOV. TDCFDEN-F.FHB+H.FVER,IR2)+
608 A02674
012722.
nnAnn4
MOV. 1PFH.FSC,IR24+
509
510
611
DETERMINE.BLOCK.LENGTH.OF.TDC.AND.INSERT.IN.TDCLGT.
612.
613 0027.00
2Z:
614 002700
Anc;nn2.
CLR. R2-
515 002702
016703
004.024'
MOV. TDCNXT,R3 ;R3 ?BYTE LENGTH OF TDCT.
516 002705
071227
004000
DIV. #N.BUFB,R2. ;R2-000TIENT.
617
;R3 ?REMAINDER.
618 002712.
005703
TOT. R3 ;TEST.REMAINDER.
619 002714
003401
OLE. 3$ ;BRANCH .IF ZERO.
52n 002716
005202.
INC. R2.
621 002720
020227
nnnnnn.
3$:
CMP. R2?*TDCOVR. ;TDCT.TOO.BIG?.
522 002724
007ini5
BGT. 5$ ;YES.
623 002725
4$:
WRITE$ ;WRITE.TDCT.
1=24 002732.
103413
BCO. 51E.
525 002734
WAITS
625 002740
052757
004000
000416'
ADD. *H;BUFB,TDCFD8+F ? BK'./B+2.
527 002745
077211
SOB. R2,4$ ALL-OF IT.
52R.A1127F10
rincT$ *TDCFDB.
529002750
000207
RTS. PC.
530 007752.
5$:
CALL. FCSERR.
531 002755
Flaoir--7
000212
JMP. EXIT
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?
FSA-C.TRANSLATOR.(0T3)
ERROR-NANDLING.ROUTINE.
634
939
939
637
939
MACR9.M1110 27-MAP 90 .17.17 ac,..--
ApprovecrPoT Ke rease-zutri/48/22 : CIA-RDP85-00514R000200010001-4
.SBTTL..ERROR.HANDLING ROUTINE.
.MLIST. MFL9.
DIRECTM.ERROR.
?
639 002772.
011997
00101.0"
DIRERR;;MOV.
(SP),PAR1
;PC.AT.DIRECTIVE-FRROR.
540 002775
016757
HAAAAAu.0010/3.,
MOV.
5DSLI,PAR2.
DSLJ
64i 003004
MOUTSS?
*1SG1,*PAR1
642.003024
009729
543 003029
000197
000152
JMP.
EXIT
;EXIT-
644
645
FCS ERROR
54.6
647 003032.
011997
001010"
FCSERR;;MOV.
(SP),PAR1
;PC.
648 003039
119001
000052
MOVE!
F:ERR(R0),R1
;ERROR-CODE-
549 003042.
010157
001012'
mov.
Ri,PAR2.
550 003046
MOUTSS-
*MSG2,0PAR1
951 803A99
AA5729
TST.
(SP)+
;RESTORE.STACK.
952.003070
000167
000110
JMP.
EXIT
953
554
ILLEGAL.SEARCH.CHARACTER.
655
959 003074
011567
001010"
ERROR2; MOV.
(SP),PAR1
557 003100
MOUTSS.
*MSG5,*PAR1
659 003120
EXIT.
ERROR2.
959
990
TDCT.OVERFLOW.
991
662 003122.
011557
001010'
TDCERR; MOV-
(SP),PAR1
993 AA3129
HOU-MG.
*MSG5..*RAR1
564. 003145
EXIT.
TDCERR.
995
665
MORE.CLPS.RECEIVED.THAN.DESIGNED.FOR.
997
568 007.150
011397
001010?
LIMIT; MOV.
(R3),PAR1 ;VECTORS RECEIVED
659 003154
012767
000125 001012
NOV
oVEC3MX,PAR2. ;DESIGN.LIMIT.
570 003162.
HOUTSS.
*MSG4,#PAR1
571 uu6212.
U1U2U(
RTS.
PC.
972
973 0032A4
EXIT; MOUT$5.
oMSG3
674
675
CLOSE.ALL.FILES.
979
977 00322L?
EXIT1: CLOSES
*EMCFDB-
578 0,717i237 -
CLOSES
*TDCFDB.
1;7c1 003242.
012767
lrrrrr 000022-f
MOV.
*-1,BAMNA.
590 003250
SDATSC.
OTS,BAT:Nn,,CODE.
991 003259
RSUMS,C.
OTS,CODE.
592.003264
EXIT$S.
? Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
F9A-C-TRANI6R-(0T3) MACRO-M1114Wciadf61 kilasectclic
.?/2111A-RDP85-00514R000200010001-4
ERROR. HANDL 4G ROUTINE-
?54
585
585
GR7
GRR
589
690
691
!
695
594
695
695
697
598
1:7.9c)
700
751
000470
080470
111711147
000474
000476
17117105AA
000502-
000504
00050G
AOR51A
000512
AAA514
000516
555040
17152171'
000040
000550
000014
000520'
000067
0005.34'
5555,-
555723
0AAA31
0007SG;
.PSECT--DATA
ERROP.MESSAGES-ARE.PRIHTED OHTIBYMO
STRING DESCRIPTORS.
MSG1: LENGTH OF FORMAT.STRING-
.WORD- LH1E-LN1
.WORD- LH1
MSG2: .WORD- LN2E-LN2 ;ADDS-OF.FORMAT-STRING.
-WORD. LH2-
MSG3: WORD- LH3E-LNS
.WORD- LN3
MSG4: .WORD- LN4E-LH4
.WORD- LH4
M SGS : .WORD- LL-LN5
.-
WORD LHS
MSG6: .WORD. LN6E-LNE.
.WORD- LN
752.
FORMAT STRINGS.
707,
754
000520
104
iff
122.
LN1: .550I7. /DIR. ERROR, PC.=-X10,
755
555555
LN1E:
705
000560
105
103
123
LH2: .ASCIE. /FCS ERROR, P0?X10, ERR .=-1D/
707
000520
LN2E:
705
000520
121
124
0G7-7,
LN 3: .ASCIZ. /OT3 EXITING/.
709
5555?74
LH3E:
7,1A
API5F,7,4
057.
FI92
040
LH4: .ASCIZ. /** WARHING--# CIARS-MD) EXCEED -DESIGN LIMIT-(XIDM1/-
711
000723
LA4E:
712
00072S
132-
105
122-
LAS: .ASCIE7. s2ERO-LEHGTH.EMC:
713
000755
LN5E:
714
0011755
124
104
103
LH6: .ASCIE- /TDCT-OVERFL0W.
715
001007
LNGE:
715
.EVEN.
717
718
; PARAMETERS.
719
720
001010
uuunm
PAR1: .WORD- A ;PC.
721
001012-
AN0Auu
PAR2:: WORD- 0 ;05W-OR-F;ERR-
722-
723
LUN-ASSIGNMENT-
724
725
001014
.MOLUN:;.BLKLI. 1
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA?C.TRANSLATOR.(0T3) MCRO
E?MATRIX.BUFFERS.
M1 1 11.7Apii-Wci'Vesligr WeieliseFk6568/22 : CIA-RDP85-00514R000200010001-4
727
72R
72'71
730
.SEITTL. E?MATRIX.BUFFERS.
VMASK.BUFFER-CIT OVERLAYS EMCLGT-AND VI)
731
AA1A1F.
/MASK:
733-
733
734
735
0A11711E,
AARAAA
EMI LGT:
.WORD.
;BLOCK.LENGTH.OF-EMS
766
mflitrdm
MMHHHH
VILGT:
:WORD.
A
;NO OF.EHTRIES.IH.VI-
737
001022-
VI:
.BLKU.
VI3MS7-2.
73R
739
; EMO
740
741
002015
EMS:
.13LKLi.
Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
FSA-C.TRANIlkOR.(0T3) MACRO.M1116k -MAR m .1.7-1 1
0 27ecr-F9dr. melea7seN65/b8/2.1A-RDP85-00514R000200010001-4
TERM.DETECTU.CONTROL.TABLE-BUFFER
743 .SBTTL?TERM DETECTOR-CANTROL.TABLE-BUFFER
744 ? ?
745 TERM-DETECTOR CONTROL-TABLE-BUFFER.
746
747
000001
SUISTA=1 ;SUICIDE-STATE.ADDRES.S.
748
749
750 004016
000014
Ci-Ii-(OFF; .WORD. 14 ;SAME.AS FSAOFF.INITIALLY.
751 004020
000014
FSAOFF; .WORD. 14 ;OFFSET-OF CURRENT.TDCT-STATE.
752.mm4uzz.
HMI-MU?.
NXTADD; .WORD. ;NEXT.AVAILABLE.STATE-ADDRESS.
753 004024
000014
TDCNXT; .WORD 14 ;NEXT-OVAILABLE.OFFSET.IN.TDCT
754
755
"
756 004025
007770
TDCMAX; .WORD-TDCEND-TDCT-4 ;LARGEST.AVAILABLE.TDCT.OFFSET
r
=r;
(JO
759
780 004072.0
065
103
TDCHDR: .AscII. /5r/ ;TDCT.HEADER.
761 004032
OnAnOn
.WORD.
752
TDCT.STATE.WORD.A
764
765 00407.4
00011111
TDCT Lior;.!D ? 1 ;NEW-ELSE-DEE, ADDS
766 AA41171.
AAARR2.
? LioRD ? 2. ;NEXT.STATE.ADDS-
757 004040
130000
. WORD ? 130000 ;STATE.: CHANGE- ELSE DEE:
758
769
TDCT.STATE.WORD 1 (ELSE- DEF STATE)
770
771 004042-
000000
.WORD-A ;HO-INDEX-BITS-SET, MUST-FAIL-
772- 804044
ARAAR1
1 ;NEXT.STATE?THIS-ONE.
777. 0040.45
040000
WORD. 4n0AA ;INDFX.STATE.ON.CHAR CODE.
774
775
THE REST.OF-THE.TDCT.IS.FILLED.IN DURING TRANSLATION.
776
777 AF1415A
Tpcms2-e.
A Al4A7A
TDCEHDr ;END OF.TDCT.
779
000002-
TDCOVR?TDCBLK/4 ;SIZE IN BLOCKS.
780
781
NODE.DESCRIPTION
782.
783
UUUUmm
N:LGT=0 ;VECTOR.LENGTH.
784
AAAA02.
N;NIB=N:LGT+WORD1 ;NIBBLE-POSITION FOR NODE
7A5
UUUUU4
N,VEC=N:NIB+WORD1 ;START OF-VECTORS.
786
787 014030
014032
FREED; .WORD.NPOOL. ;PT-TO iST.NODE.
788
789
790
NODE.POOLREGION-
?
791 014032.
HPOOL; .BLKW. NP3MSZ.
792.A153A2.
NFOOLE; .8LKW. N73O5:. ;END.OF.POOL, START.OF.PAAL-OVERFLOW AREA,
793
PIARANV
.END. START.
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-C.TRANSLATOR.(OT3)
SYMBOL.TABLE-
ASTKMX-nnA4An G.
PMELuT=stimmu'-'9 G.
BAT:HO. uuum22R.
BITVAL=.0uuuu0
BITO
BIT1 =.AMMAA,..
BIT10 =.0H2HHH
BIT11 ..7-004000
BIT12 =.111AAAA
=.u2unnn
BIT14 -040000
BIT15 -luuouti
BIT2. --timmum4
BIT3 =.110A01.0
BIT4 =.00H0L11
BITS -000040
BITE, -ooainn
BIT? =.1LIHn2uu
BITB -000400
BIT9 -001000
BLDEFL=.****** GX.
BLDNFL=.*****?K GX.
BLOCK-AAIAnn
BSTPTR-****** GX.
El-;:CL!;=.HHHHF-r,,
BS:DBU=.011HuH4
BS,INA-AAAAAA
BS:0PN=.000001
Bs:uKc=.0HHHH72,
BYTEH - MNIMHU
BYTE1 =.UUMUM1
BYTE2.=.HULLIU2.
BYTE3 =. 000003
BYTE4 =.U0HHA4
BYTES =.OLIOUUS
BYTES =.uLIUUBB
BYTE?
BYTES =.00A010
BYTES -AAAA11
BYTVAL= 000012.
B,BSTA. AAAA5,4
B.CHTX. AAAA46
B:roHo. AAAnEn
B:FEMA. 000132
B:FEMB. 0001.42
0:FEM. 000157
B6E-ESA.
B;FFSB. 000212
B4FFSC.
B,FMNR-
B;FOLS.
BLFSAZ.
B:FSBZ.
B:FSCZ.
B:HBLK.
B:HDOC.
B:HRLF.
HHH26,.."
015
11H.ML
?11111?Ap;rZI-gr : CIA-RDP85-00514R000200010001-4
B,HRLR
B:HRLW
B:MMUK
El:NOR))
B:OLSZ
B:OMAP
B4OSPL
B:OTTM
B:OUOP
B:SFDB
B:SIZE
B:SNDP
B:SSO.
B:SSOF
B:STAT
B:STTE
B;UDOC
CBil.
CF:BA
000122.
000124
000052.
UUL1232.
AA0106
000234
000316
000076
AAAA5F
000010
A0A772.
000012.
AAAAA4
AOAASA
0000.4.4
000053
AAA11A
=.HIHLILIH
-00007A
U
010
010
U1A
010
010
A1A
010
A10
A1A
010
010
ela
Alm
Fun
Li 113
olo
Ain
CF:B2-000067
Ufr:B.4 =. UUUULL
CF :BE -000065
CF:DRA-AAn0F4
CF:DR1=.000053
CHKOFF 004016R.
015
CPIXMK=.177770 G
CPIX53-AAAA1A G
CURN I B 000054R ?
015
DB!;LEN-HHH111,-,
DELTIM 0000A0RG
014
DH,Liru Hmmuu?,.
UMh
DH:BF1 000004
005
DH :CTL AAAAAA
005
DH:DMIC 000010
005
DH4FLU ULU:NA.)
HHh
DIRERR 002772Ru
017
DH,DCK. AAOAAA
013
DN:NTP LILIHHH4
1313
DH1HXT 000006
013
OH ROT MUUMU.,..
013
DN:SIZ AAAAiA
1.117.7I
EFM:2.=.000007.
EIXCHT-AAAA1A G
ELSBIT=.010000 G
Fb5CL!-,=.HHH0Hr
ELSMSK=.1777F,1 G
EMACLS=.AAAAA7, G
EM00UT=.001700 G
ENAMSZ=4:11P,AAA G
EMBCL5=.AAAAA4 G
EMBCUT=.0011.30 G
ENBMSZ-AA440A G
ENC. 0020160.
EMCFDB 000170RG
EMCLGT AA10160.
EMCNS2=.001000 G
EMXCHF=.02AAAA G
Approved
EMXDTF= 0I0000 G
ENXEXF= 000001 G.
EMXFDL= UM2MHM
EMXMCD-CUHUB2 b.
EMXMCF=.00100A G.
ENXMSE=.016AAA b.
EMXMTV=.0400AA G.
EMXHB1=.0AAAA2 G.
EMXHB2.-AAAAA4 G.
ErIXNED=.0004AA G.
EMXHS0=.1A00AA G.
EMXHVD=.AR1000 G.
EMXSZF=.0A20AA G.
ENXTRL=.0100AA G.
EMXVDC=.0040AA G.
EMXVVV=.0AA0A1 G.
EMX1NF=.004000 G.
EMXI-IVD=. HAA2UH U.
ENCHT.=.000004 G?
EOBIT-=.010000 G.
ERR1:1R2. 017130740. A17
EXIT. 003204R. 017
EXIT1 0072220. 017
FCSERR. 00:303200. 017
FD.FID. AAAAAA 003
FD.FHB. 0001306 0071:
FD.FVR. AO0AA4 AAA
FD.LEN. 000010 1303
1-1).frUM=.****** OX-
FLIXMK=-177740 G.
FLIXBL=.MAHH4M U.
FLUCLS-AASOA1 G.
FLUCUT=.0130015 G.
FMEPSE-UHA40A U.
hNIXSL=.111HAAA1 U.
FMNPSZ=.0022bu b.
FHPD.7.,E=.AAA4AA G.
FHPSZ.-.A057724 U.
FH.DAR. 001026 011
FN.DBS. 000022. 011
FN.DH0. AAAA4A Oil
FH.EMA. 000012. 011
FH.EMA. n00014 011
FH.EMn. AA001F, All
1.11,11111MH 011
FN.FRB. AAAAA2- A11
mHHH04 011
FH.LGO. 01111034 All
FH.LGH. AAAA7iF.. Ali
FH.MFn. 0130024 nil
FH.MHR. 000010 nil
FH.HMB. 000044 011
ni, FH.F4L..=, AAAnnE Ali
015 FH.ORY. 131313020 011
015 FH.SFA nnnn3A 011
FN.FiF1 00011722. A11
FO:RD.=-****** GX-
FO.WRT=.******
FREED. 01407130.
FSAOFF. 00402
F,ACTL-0001376
F:HLAC=.00NA40
F:BBFS=.000062.
F..BDB.=.00007A
F,BGBC=.0A0057
F:BKDH.-.A0A026
F:BKDS=.000020
F;BKEF-AAAA50
1-:BKR1=.000051
F4BKST=.000024
F4BKVB=.000064
F:CHR-AAAA75
F:CHTG=.000034
F:DFHB=-AAAA46
F:DSPT=.000044
F:DVHM=.00A134
F:EFBK-A0AA1A
F:EFH-AAAA5A
F:EOBB-An0A72.
F:EPR-0nAn52.
F:FACC=.0AAA47,
F;FEBY=.000014
F;FHAM=.000110
F;FHB.=.000102.
F;hTYP=.0UN111",
F:FVER=.000120
F,HIHK-BUHHA4
F;LUN.=.000042.
F.MBCT=.00131354
F:MBOi=.AHHH55
F4NBFG=.0H0A56
F:N000=.00A024
F:HREC=.AAAAA
F:Tqa;=.00H07.0
F.RACC=-AAnnift,
F:RATT=.000001
F:ROMM=.0AAA7.7.4
F:RCTL=.00A017
FLRSIZ-AAAAA2-
F:RTYP-A0AAAA
F6SPDV=.00A072-
F4SPUH=.000074
F;STBK-AAAA72.6
FWHIT=.0001.56
F;URBD=.AAAA20
b;'-UN UL1UUh4
F,VBRZ=.AAAAF,A
GTIM1 A002213013-
GVHASK. AA2:3F2R.
G,TICP=.00001.6
G:TIHR-AAAAAF.
G,TIMI-AAAR1A
015 U:1111M=.BALIAM.)
015 G;TISC=.000012
G,T1YR-AAAAAA
HnU0.1=-L100H21-1
HOUR-2-000005
HSTKMX=.A00100 G.
IHDCHV. 0001300.
INDEK 0131102R-
JUST UUUBUBK.
IO,RVA=.****** GX.
IWBIT.=.004AAA G.
JMPBIT=-0040AA G.
LIMIT.
0031500-
LH1
A005700.
LH1E
00056AR ?
LN2.
A0A56A0 ?
LH2E
0006200 ?
LN3
A A A F,21-710. ?
LN3E
A 0 A 53; 40
LH4
0005.240 ?
LH4E
FIOA7230 ?
LH5
AA0727,0 ?
LN5E
A17117175150
LH6
AAA756R ?
LH6E
001007R.
LOGCLP=.AAOAA2 G.
LUHFIL=.0HHHH4
ION?
LIT;BIHI=.1-1MMAMB U.
M. -000062
MATCHT. AA245AR.
MIH61
MIN..2.=.000010
MODL =.AAAA45
MSGOUT=.****** GX.
MG1 0004700.
MSG2 0004740.
MSG3 00050A0.
MSG4 AAA5A4R.
M5G5 A0A5100.
M5G6 000514R.
MSK: 12. 013137I00.
H. =.MHHHK.d
HDBCLS= AAAAAF, G
HIBCHK. 00A314R.
NIBCP. 00130540.
HIBMSK=.177741
NIXUNI=.UUMA20 b.
NNMASK=.177760 G.
HPECHT=.000144 G.
014 HPEVSZ=.000043 G.
017 HPOOL- 0140720.
HPOOLE. 015302R.
G:TICT=.000014 HH1N5Z=.0I0000 G.
IH.!=ddp. AnnA42. 011 G:TIDA=.0AAAA4 11P2MSZ=.07i(1,000 G.
For Release 2005/08/20CIA-RDP85-00514R000200010001-4
017
015
015
niF1
015
A15
A15
015
015
015
015
A15
015
017
017
015
015
015
FSA--C? TRANWIOR.0"..71T3)
SYMBOL.TABLE-
MACRO .M 1110 27-MAR-00
Approved For
liellseP6b51d81201CIA-RDP85-00514R000200010001-4
?
HP2032-000157. G.
SD:FSA=
000010 G
007.
SS.STT? 000000
004
TAEBIT= 020000 G.
WN:HTP 000004
012-
HP3MSZ=-000524 G.
SD:HRS=
000016 G
003
START 0000AAR
017
TBIT =004000 G.
WN:HXT 00000P
012.
NR30S2=-000125 G.
SD:SEC=
000012 G
003
STISO 002120R
017
TDABLK= 000004 G.
WN:ROT 000002
012.
HXTADD. 004022R.
015
SD :TIC=
000014 G
003
STjS0 002070R
017
TDABMX= 007764 G.
UN 517 000010
012.
NXTHIB. 000055R.-
015
SECBUF
AAA2AF,RG
014
ST$CHG= 121-1HHH
b
TDAMAD= 007760 G.
UN SAL HHHHHH
Ni
N:BFAC=.000004
SEC :1 =
HHH1124
bT$INR= Fli,HHHH
TDBBLK= 000003 G.
UN TIP HHHHH1
012.
H:0HGN=.0000Ab
SEC12 =
000012
ST$INX= 040000
G
TDBCLS= 000005 G.
WORN =.000000
H:BTCH=.000004
SEG1 =
LIUMHHH 3
STEKTO= 100000
G
TDBMAD= 007775 G.
WORD1 =.000002
H:BUFB=.004000
SEG2 =
000002 G
ST$MAT= 150000
G
TDR052= 000074 G.
WORD2.=-000004
H:BUFW=.0020NU
bEG3 =
AUNUU4 C
ST$SE0= 140000
G
TDCBLK= 000010 G.
LIORI13 = ? PI210005
H:DID-U00024
SEG4 =
00000P
5T.A52 000020
006
TDCEND. 014.07.0R.
015 W000'4 -000010
H:DVHM=.000032.
SEOCHT
0001240
015
ST.BS2 000024
006
TDCERR. 0031220.
017 W00015 -000012
H:FID.=.000000
SEORAD
0015P5
A17
5.1 5tH 000000
006
TDCFDB. 0007C2.0R.
015 WORElf; -000014
H:FNAM=.00000b
SEOST
002172R
017
ST.C52 00007.0
005
TDCHDR. 00407:0R.
?115 WORD? -000011;
H:FOS.=.000764
SEOVAL
00NNHAH
015
ST.HRL onnalA
005
TDCMAX. 0040260.
015 WORN: -000020
N:FTW=.000014
SR:ARE
000114
002-ST.LEH 0011044
006
TDCMS2=.004000 G.
WORDq -01101022
H:FVER=.000016
SR:ARS
AAA1A1,--,
002
ST.ORY. 0000A2
00F.
TDCNXT- 004024R-
015 WRDVAL-000024
H:LGT.=.000U0N
SR :DAY
000010
A02
5T.05: 0000:74.
006
TDCOVR=.000002.
WRTTDC. 00250500.
017
HNEXT=.000022.
SRLDLT
000014
002
ST CH nnno4n
00E.
TDCT. 0040340.
01.5 XBATCH-.00AA11-2,
sR,Ec6
000047
0112
bT.UHL 00010104
00b
F1C:1 -000025
xD0LOA=Alump1Ll4
H:RK.b2.-NAAN?Im
SR:ECN
AnnA4F.
n112
sT.XLT Annni4
005
TIC2.-000014
XDBPRO=.0AA012
N:RKTS=.000043
SF EEL
U1111050
AA:7'
SUI5TA= 000001
TRMCUT=.000040 G.
XDMCIH=.0AAAAR1
H:OURY=.000051
SR:FIB
00001?
A02
5U.DBU= 000004
TSTKMX=.000400 G.
XFOSMR=.0A0007
H:STAT=.000020
SR:GRE
000100
002
SU.DOH= 000005
TXTBIT=.010000 G.
XGT5RE=.AAAA14
H:SUHT-AmmAm2.
SR:GRS
000072.
002
SU.IDL= nAAAAA
T1J5BY=.000000 G.
XHITSK-A0AA11
H:UHIT=.000034
SR LEN
000 122
002
!=i1J,LOS= muut11
T:MATC=.000000 G.
XHLMER=.000002
H:VEC.=.000004
SR:LIN
000066
002
5U.5RC= AnAnn7
T:HBAS=.000002 G.
XHOTSK=.000010
OLDHDE. 00012ER.
015 SR LIP
0E10062
naT,
SU.SRP= 000005
T:NDEF=.000000 G.
-!.M5CHE-000000
HHH11H411.
Al5 SR :MOH
llHnIl?O
AA2
SU P5= flhlAflfl
T:5BY1=.000000 G.
--AAAAA.3
FAR$$$=.000027
-F- Hill
nAnn42
on:
AAA02A
T5BY2=.000001 G.
,e,OTA = 00017101
FAR' 00
0151010R.
SR MDS
00003P
002
5:DABA= 000005
TSBY3=.000002 G.
XSULOA=.000005
FAR2. 001012RG.
015
SR:HIN
000030
002
5:DAFF= 000010
T:STAD=.000002 G.
$Dsid CX?
PSTKMX=.000024 G.
bK:Nir
UML1M
002
5:DATN= 000002
T:TRAN=.000000 G.
$$$ -0000420.
020
OER01=.000144
:.'D
SR -TB
00007
nn2
5:FATT= AAAnlizi
T:TYPW=.000004 G.
$$$OST=.000006
OHDCHT=.001000 G.
SR:SRI
AAAAA7
AA2 5:FDO - 000140
VEC1MX=.0007'.75 G.
$$$T1 =.0uN0N3
ORYS2.=.0m2m0u u.
:
SR SUN
000000
002
5:FHAM= 000005
VEC2MX=.0007.75 G.
.CLOSE= ***.*** G.
OTS. 0000150.
015
SE TI
AFIFIA9F
002
5:FHB = 00003F.
1EC31TX=.000125 G.
.FSRCA=.******
OT3.1 000235R.
017
5R :W51
000052
002
5:FHBW= 111111111?
VI. 0010220.
015 .MOLUN. 00101405.
015
OT3.3 000774R.
017
SR :YR
000004
002
5:FNTY= 000004
VIBCUT=.0000:76 G.
.OPFH8-****** G.
O.FESC ULIULJU4
007
SR:1IH
000024
002
5::FTYR= 000002
VILGT. 0010200.
015 .WAIT .=.****** G.
o:HUBK. IIMMMMM
mmr
SR:liR
000015
002
5M1RL = 000240
VIAMNZ=.0004.00 G.
.WRITE-****** G.
0:HUNL. vff1vIk1L1i..
007
559 IT =?
004000 IS
Fi:HFEH= 000020
VI1MS2=.000400 G.
.X0.10.=.***** GX-
0:SIZE. AAAA14
R:SUTH-NUNA02.
007
SS,FID
SS:FNB
AnAnA2
000010
004
004
SiPIT =N01000
S2BIT =002000
G.
G.
VI2MS2=.000400 G.
VI3M52=.000400 G.
...PC1=.00A3AR.
...PC2=.00A470R.
015
015
R:VDBA.-.AAAAAF.
SS:FVR
AnAnnf;
AA4
57FIT = 004000
G.
VMASK. 0010160.
015 ...TPC- m00u21-1
R:VDTH-AAAAA2.
SS:LEN
000012
004
. ABb:
UUUUUU
000
HMAMAN
001
5000FF
000122.
002.
FDSCOF.
000010
0013
SUSOFF.
000012.
004
DHROFF-
000012.
005
STTOFF.
000044
AAP.
OSRLOF.
000014
007
BSTOFF.
000772.
010
FNOFFS-
A001044
A11
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
FSA-C. TRANSLATOR (0T3) MACRO. M1110 27-MAR-90 13:13 PfIL;E. . 72. L77
SYMBOL. TABLE- Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
LHODOF nnnnIn 012.
DHODOF 000010 013
TRHOFF- 000240 014
DATA. 015554 015
$$FSR1 Annnnn 015
CODE. 003272. 017
$DPB$$ 000050 020
ERRORS DETECTED: n
VIRTUAL.MEMORY.USED: 9000 WORDS- (.32 .PAGES)
DYNAMIC .MEMORY: 9140 WORDS. ( 35 PAGES)
ELAPSED.TIME; 000122.
OT3.,9T?/-5P/NL-:8EX;ME=C20,1JP,.MfiTfiOT5IZE,OT3
? Approved For Release 2005/08/21,1A-RDP85-00514R000200010001-4
?
OT,-,3LTSK5 7 MEMORY.ALLOCATION MAR.
27?MAR-80 16
oved For ReleSa005/08/22 : CIA-RDP85-00514R000200010001-4
TASK. NAME. : 0T3
PARTITION.NAME.: HSTSPR.
IDENTIFICATION.: 0736
TASK- UIC. [20,37.
STACK. LIMITS: 000236 001235 001000 00512;
PRG-XFR.ADDRESS: 002126
TOTAL-ADDRESS-WINDOWS: 3.
TASK. IMAGE. SIZE- : 5440. WORDS.
TASK.ADDRESS.LIMITS: 000000 025117.
R?W.DISK-BLK-LIMITS: 000002-000027 000026 0022.
*** ROOT SEGMENT MSGOUT.
R/W-MEM- LIMITS.: 000000 025117. 025114 10828.
DISK.BLK-LIMITS: AnAnn2-000027 0011026 0A07?:
MEMORY-ALLOCATION-SYNOPSIS:
SECTION.-
BLK;:(RW.I,LCL.REL.CON)
BSTOFF:IPW.IfiLCLABS.CON4
CODE :(RW.I.LCL.REL.0011)
DATA :(PW.IfiLCL.PEL.COM)
DNROFF:PW.I.LCL,ABS.CON)
DHODOF:(RWABS,CON)
FDSCOF:(RW.I.LCL.ABS.COH)
FHOFFS:(PW.I,LCLfiABS.0011)
MSGOUT:IRW,I.LCL.REL.CON)
OSPLOF:(PW,IhLCLABS.CON)
SREOFF:IRW.ILCL.ABS,CONI
STTOFF:(PLLILCLbABS,COH4
SUSOFF:(PW.IfiLCL.ABS,C011)
TRHOFF:(RW.I,LCL.REL.CON)
WNODOF:(PW.I.LCL.ABS.CON)
$DPEISS:IPW.ILCL.PEL.COM)
$$F6R1:tRW.D,ORL.RFL OVR)
001236
AOAAAA
000000
0021211
002126
0054.A
005420
AAAAAA
000670
000000
HHUHHH
003272
003272.
015554
015554
AAAAAA
00440.
nnoen.
Huuuu.
A1722,
017226
5170251.
07A20,
AAAAA.
AAAAAA AAAAAA AAAAA.
MUM HHOAAA 000051.
ddULIU HUHUOU OHHHU.
OAAAA AAAAAA AAAAA.
000000 AO0AA0 AAA00.
000000 000000 00000.
000000 000000 00000.
023174 001214 00652k
023174 001214 Ku:52:
OAAAAA AAAAAA AOAAO.
uutIbUu OuLIOULI LIOULIU.
AHHAUH HHOHHH HHOLIA.
HOUUUU 000000 00000.
AAAOAA OAAAAA 00000.
uu0uud 000000 00000.
000000 AAAAAA AAAAA.
AHHHHH HHHHHH HHHHH.
024410 000240 00150.
024410 000240 00160.
AAAAAA 000000 00000.
HHHHHH HHOHHH HHOHH.
034550 01)0050 01)12140.
024651) 1)1)1)1)51) AAA40.
A2472A AAAAAA AAAAA.
024720 OAAAAA AAAAA, FSA OT3.00.3;1
Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
TITLE,-IDENT. FILE,.
FSA
FSO
FSA
FSA
FSA
FSA
FSA
MESSAG.
FSA
FSA
FSA
FSA
FSA
FSA
OT3.08J.:1
OT3.0E0.7,1
OT3.OBJ;1
0-1-3.08,1:41
OT3.06j.:1
OT7..OBJ::1
OT3.08j.:1
MSGOUT,OBJ,11
OT3.08,17.1
OT3.09J.:1
OT3.08J.:1
OT3.OBJ;1
OT3.0Bj.:1
01-3.00J;1
OTS.OBJ;1
07,3:TSK;1741111EMORY.ALLOCATIOH HAP. TKB. PAGE.2.
MSGOUT. 27-MAR-SA I Approved For Relea 00
se 25/08/20CIA-RDP85-00514R000200010001-4
$$FSR2:(RW,D0MLREL,CON) 024720
$$RESL:(RW,ILCL,REL,PON) A251124
STRESMt(RWI,LCL,REL,r0H) 14n00n
GLOBAL.SYMBOLS.
ASTKMX.000400 EMCMSZ-001000
AVELGT nAn025 EMXChp.uznnum
CE IT 0100A0 EMXDTF.010A00
CPIXMK-177770 EMXEXF.nmpinn1
CPIXSZ.000A10 Erixi-Du.UuLuuu
DELTIM.024410-R- EMXMCD.000002
0IRERR.00512A-R. EMXMCF.An1A0A
EIXCHT.OnAA1A EMXMSE.A160An
ELSBIT.010000 EMXMTV.040000
EL6cL)-).nommi7 En NE! 1.11.1MMU,.'
ELSMSK.177761 EMXHB2.AAA004
LMALLti.HMHUU.3 ENXHFD.000400
EMACUT.001700 EMX)..1)--i0.1ouuuu
EMAMS7...111F.AAA EMXHVD.AniAnn
EMBCLP-AAAAA4 EMX!:2F.FIFIA00
EMBCUT.00117.0 EMXTRL.FMAA00
ENBMSZ.004400 EMXVDC.A04000
51A-R. EMXVVV.nnnnu1
EMCFDA.nnF.
000104 171006A.
An00F43 A017154.
A1560A A7n40.
EMXZHE AA400s
ErixoVD mm)1200
EHCHT. minnn4
EOBIT. AlAFIRA
hu6ERR uu516o-R-
FL! M1 177740
FLIXS: OOFIA4A
FLUCLS 000001
FLUCUT 000016
FMEPSZ AAA4nn
FMIX62 nuuoul
FMHPSZ 002260
FHPOSZ 00n400
FHPSZ. A35772.4
5TIM1 ii 450-F
Hc 11 Olin 100
ii IC 004000
JMPBIT AA4AAA
LOGCL.S.O000A2. SD.HPS-0AA016
L$6iAi-unumnf..., RD.F.EC.AnnAl2.
MSu0UT.u27..71',-R. )--;D mn
TIC
HEIBCLP.OonAn6 SEPBUF-024616-R
NIXCHT.ouotvm SEG). ouumUu
HHMASK.177760 SEG2. AA0002.
HPECHT.000144 PEG7. 00Ann4
HPEVSZ.00A043 SSB IT. 004000
HP1MSZ.01000o STSCHG-1201100
HP2MPE.A7i5noo
HP2OSE.n0A157-1 STSIHR.AFmAnn
HP3MS1.000524 STSIHX.A4AAA0
ST$J.S0.100000
NJ 3i= RTSMAT.115AAAA
PAR2. AFIF.47-R, P.TS!"--EQ.141711711.710
PSTKMX.000024 S1BIT. AO1AFIA
OHDOHT.A0lAnn SHIT. OF12000
OP r1 OH 1100 P7,RIT. An4A00
,D,FAA.001A TAEBIT.0256ur,
!' F1A
TBIT. 004000
TDABLK.000AA4
IDABMX.UU7(F4
TDAMAD.007760
TDEIBLK-UUUHU3
TOE' LE
TDBMAD-007775
TDBOSZ.000074
TDCBLK.000010
TDCMSZ.004000
TPMCUT-A00040
TSTKMX.000400
TXTBIT.010AAA
T:JSBY.A0Ann0
T:MATC.0000nA
T:HBAS.000002-
T HDEF.nnunnm
.
T6sBY1 AnnnAn
T,5BY2.000001
T.SBY.3 000002.
1:!-;TAD.nonn)42.
T:TRAH.000000
1,TYPW.UHUUU4
VEC1MX.Ann7,75
IMN2M
VIBC11-1.00007,6
VIHMPZ.nno400
VI1MS2.AnA4An
VI2MSZ.000400
VIZffZ.FIFIA40A
WRTTDC.F0477,4-R.
SEDMSG.023624-R.
.MOLUM.006434-R.
*** TASK.BUILDER.STATISTICS:
TOTAL UDR/.- FILE PEFEREHCES: 17521.
WORK FILE READS: 0.
WORK FILE WRITES: O.
SIEE OF?COPE POOL: 6634. WnPriri (25. PAGES)
SIE OF WORf FILE: ans. WORDS 111. PAGES)
ELAPSED.TIME:On:00:11
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
HL 1ST Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.SBTTL. E?MATRIX.EOUATES.
.PSECT. TRNOFF.
E?MATRD,:.(FSA?A.E.,FSA?B) OFFSETS-AND.BIT.DEFINITIONS.
BYTE0 ;CHARACTER.CODE.(BINARY.VALUE)
BYTE0 ;DOCUMENT.TYPE (BINARY .VALUE)
BYTE0 ;ZONE. 'BINARY VALUE.
BYTE0 ;SUBZONE. (BINARY.VALUE)
WORDO ;*.VECTORS-THAT.EMX.EXPANDS.T0.(BYTES)
WORDO- ;VECTOR.EMX.MERGES.T0.(OFFSET.FROM EMX,START)
EMXMCD?WORDI ;MATCH .CODE. (BINARY.VALUE)
EMXNE1==WORD1 ;NIBBLE .1 (BIT.MATRIX)
EMXNB2==WORD2. ;NIBBLE.2. (BIT.MATRI
EMX-FLAG.DEFINITIONS.IN.COHTROL.WORD.
EMNSO?BIT15 ;NON?SEOUENCIAL.EMX-FLOW
ENXEXF?BITO ;EMX FLOW.EXPANDS-
;FOLLOWING.VALID.ONLY-IF.EMXNS0=0
;NOTE: ALL.IN.NEXT,GROUP.ARE.HUTUALLY.EXCLUSIVE.EXCEPT.
EMXMTV.WHICH.CAN.00CUR.WITH.A1 L.FXCEPT.FMXMCF.
EMXMTV==BIT14 ;THIS-EMENTRREPRESENTS.MULTIPLE.VALUES.
EMXCHF==B ITIS THIS . EMA. ENTRY. IS A . CHARACTER .
EMITF==BIT12- ;THIS.EMX-ENTRY.IS.A.DOCUMENT.TYPE
EMXZNF?BIT11 ;THIS.EMX.ENTRY.IS.A.ZONE.
EMXSZF?BIT10 ;THIS.EMX.ENTRY.IS.A.SUBZONE.
EMXMCF = =B TT9 TN IS EMX ENTRY. IS .A. MATCH . CODE .
; FOLLOWING VAL ID ONLY. IF . EMXMTV=1
EMXVDC?BITII ;VLDC. (VARIABLE.LENGTH.DOWT.CARE)
EMXFDC?BITIO ;FLDC. (FIXED.LENGTH.DON'T.CARE)
EMXNVD?BIT9 ;NVLDC.(NUMERICAL.VLDC)
EMMFD?BITE: ;NFLDC.(NUMERICAL.FLDC)
EMX0VD?BIT7 ;ZVLDC.(7ERO.VLDC)
;FOLLOWIHG.VALID.ONLY'.IF.EMXVDC=1
EMXTRL?BIT12. ;THIS.ENTRIS FOLLOWED.BY.AN.INTERWORD.
EMXVVV?BITO ;SECESSIVE.VLDC.
.PAGE.
.SBTTL. TERN DETECTOR.00NTROL-TABLE.EOUATES.
THE-FOLLOWING.ARE.THE.SEGMENT, WORD, AND-BYTE.
OFFSETS.AND.THE.BIT.DEFINITIONS.FOR-THE.
TERM-DETECTOR.STATE.WORDS:
TECT.CONTROL TABLE OFFSETS
SEGi == B RELATIVE.TDCT-OFFSET.TO.SEGMENT.1
SEG2?SEGI+WORD1 ; TO !=.;EG2.
SEGS ==.SEG2-4-WORD1 ; TO SECT
?
L$STAT. == WORD7, ;BYTE.LENGTH.OF.TDCT.BTATE WORD.
WORD .OFFSETS IN.TDCT.
T,TRAH-11, ;TRANSITION
.90.1-#441*TRere . 00005/08/211\CIA-RDP85-00514R000200010001-4
T:NBAS.==. ;NEXT.BASE.Aii.,!Es:_. .SEGMENT INDE-s>0
?
T:NDEF.==.5EG1
T:STAD-SEG2.
T:MATC.==.SEG1
;TYPE.CODE.; N 4T.
weA,q05/08/211k1A-RDP85-00514R000200010001-4
;NEXT.DEFAU
;NEXT.STATE.ADDRESS.(CHANGE.DEF, JMP/SEQ, MATCH)
;MATCH CODE. SEGMENIT.(MATCH)
BYTE OFFSETS IN.TDCT.
T:.JSBY
T:SBY1 ==.0
MSBY2 ==.T:SBY1+BYTE1
T:SBYS ==.T:SBY2+BYTE1
?
TAEBIT. == BIT13
EOBIT.==.BIT12.
SSBIT.==.BIT11
JHRBIT.--5I111
TXTBIT- == BIT12.
ELSBIT.==.BIT12.
TBIT-BIT11
5151 Ni
S2BIT.==.BIT10
51 ii
;JMP/SEQ.MATCH.BYTE.OFFSET
;SEQ-MATCH.BYTE.OFFSET.1
;SEQ.MATCH.BYTE.OFFSET.2.
;SEQ.MATCH.BYTE.OFFSET.3
BIT.POSITIONS.IN-TDCT.SEGMENT.3 (T:TYPWD)
;INDEX RETRY.BIT (INDEX)
;ELSE.OVERRIDE.BIT.(INDEX)
;SINGLE.SUCCESS.BIT.(INDEX)
;JUMP.IMMEDIATELY.BIT.(JMP/SEQ)
;TEXT-INPUT.
;ELSE-DEFAULT.BIT.(CHANGE.DEF)
;INTERWORD.DEFAULT.BIT.(CHANGE.DEF)
;POTENTIAL.CUP.BIT.(MATCH)
;TERM.BIT.(MATCH)
;END-SEQ.BIT.FOR MATCH BYTE1 (SEQUENTIAL)
;END.SEQ.BIT.FOR MATCH BYTE2.(SEQUENTIAL)
;EHD-SEQ.BIT.FOR MATCH BYTES (SEQUENTIAL)
;
STATE TYPE CODE.BITS.
STSINX.
STSINR.
ST$JSQ.
SflCNC.
STItSEO.
STSMAT.
==
==
==
==
BIT14
BiTi3+DITI4
BIT15
BIT13+BIT15
BIT14+BIT15
BIT13+BIT14+BIT15
.PAGE.
.SBTTL- "SEND BUFFER OFFSETS
THE.FOLLOWING.ARE.THE.OFFSET
DIRECTIVE .BUFFER USED.BY.THE
EXCHAHGE.FDSC.AND.TRANSLATOR
;FD:FID.==
;FD:FVR.==
;FD:FHB.==
GD:FSA- ==
SD:SEC. ==
SD:TIC. ==
SD:HPS. ==
.PAGE.
.SBTTL.
0
FD:FID+WORD2.
FD:FVR+WORD1
FD:LEN.
SD:FSA+WORD1
SD:SEC+WORD1
SD:TIC+WORD1
INDEX STATE
;INDEX.RETRY.STATE.
;JUMP/SEQUENTIAL.
;CHANGE.DEFAULT.
;SEQUENTIAL .STATE.
;MATCH .REPORT.
.DEFINITIONS.OF.THE.HSENDP
.QUERY.TRANSLATOR.AND.OTS.TO
PERFORMANCE DATA
;FDSC.ENTRIES.(FID)
SUBROUTINE.DELTIM.
;HO: OF.FSA.PTATFS.
;ELAPSED .SECONDS.
TICS.
;NODE .POOL SIZE.
SUBROUTINE.TO.CALCULATE.ELAPSED.TIME FROM TIME MEASUREMENT. VALUES.
OBTAINED.THROUGH THE.GTINS DIRECTIVE,
ON .RETURN,
SECBUF-ELAPSED.SECONDS.
SECBUF+2.-ELAPSED.TICS.
DELTIM:;SAVE. R1,P2,RS
MOV- 4PSECBUF,R1
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
#SECDUF,R2- ;R2->EL--SED.SECA
CMP. TIC:2 (Ri) ? TIC:, 1 (R Approygdtfor.. saleaswn [08/22 : CIA-RDP85-00514R000200010001-4
BGE. 1$
ADD. #60.,TIC:2(R1)
INC. SEC :1(R1)
1$: SUB. TIC:1(R1),TIC:2(R1)
MOV. TIC:2(R.1),2(R2)
CMP. SEC:2(R1),SEC:1(R1)
BGE. 2$
ADD. #50.,5EC.2(R1)
INC. MIN:1(R1) ;CARRY .ONE
2$: SUB. SEC:1(R1),SEC:2(R1)
HOY. SBC:2(R1),(R2) ;R2->ELAP5ED.SECONDS
CMP. MIH:2(R1),MIN:1(R1)
BGE. 3$
ADD. #60.,MIN:2(R1)
INC. HOUR.1(R1)
3$: MOV. MIN,2(R1),R3
SUB. MIN:1(RI),R3 ;R7 ==.ELAPSED.MINUTES.
MUL. #60.,R3 ;RI ?.SECONDS.
ADD. R3 ,(R2)
CMP. HOUR.2(R1),HOUR:I(R1)
BLT- 4$
HOUR.2(R1),R7
8U-e. HOUR.1(R1),R3 ;R3 ==-ELAPSED.HOURS
MUL. #3500.,R3 ;CONVER.TO SECONDS.
ADD. R3.. (F.2
; CARRY. 1
;ELAPSED . TICS.
4$:
RESTOR. R1,R2,R3
EXIT. DELTIM.
TEMPORARY -BUFFER FOR.ELAPSED.SECONDS OND TICKS
SECBUFL:.BLKLI. 5.
GTIMI:: .BLKI.J. 8.
; OFFSET DEFIHITIONS.FOR-GET TIME-PARAMETERS BUFFER.
HOUR:2. =. WORD:3
I'IIN2 = HOUR.2+WORD1
SE[:2 = MIN.2+WORD1
TIC2 = 7iFC:2-1-WORD1
HOUR :I = TIC,2+WORD2.
MIN:1 = HnUR.1.1-WORDI
SEC :1 = MIN:1-WORD1
TIC:1 =. SEC,1+WORD1
Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
?
; ? Approved For Release 2005/08/2.IA-RDP85-00514R000200010001-4
;
MACRO TO PRINTBUFFFR.
CREATES.SPOOLFILE RECORDS.
.MACRO- PRT,START,END.
MOV ? R4,-(SP)
NOV. START. R4
MOV. R4,LOCAT-
MOV? EHD,EHDLOC.
JSR. PC,PRIHT.
MOV. (SP).-FmR4
.ENDM-
_MACRO.
PRTH,START,EHD-
MOV- R4,-(SP)
MOV. START R4
Nov ? R4,LOCAT.
MCW? EHD,EHDLOC.
JSR. PC,PRHTH.
NOV? (SP)+,R4
END Ni
MACRO TO TEST.CHARACTER.SIGNIFICANCE.
PARAMETERS.ARECOHDITION,TRUE,AND.FALSE.
COHDITIOH=THE.TEST-COHDITION.
TRUE- =PATH.TO.TAKE IF.CONDITION.TRUE.
FALSE. =PATH?TO.TAKE IF-COHDITION.FALSE.
; ANY.FAHAMEIEH.UAN.BE.HHUUEEDED.HY."!" WHICH.CAUSES.THAT.
PARAMETER.TO.BE.A SUBROUTIHE.CALL.
ML 1ST
.MACRO CHECK,COND,TRUE,FALSE.
.IF.B.COND.
.ERROR- HCONDITIOWCANHOT BE OMITTED'
.EHDC.
.IRPC.X,
.IF.IDH.,
jSR.PC,O'COND. ;CHECK. !COHD,?,?-
.IF.HB.TRUE.
.IRPC-Y,
.IF.IDH-,
BCS ..+1.0 ;CHECK. !COHD,!TRUE,IFALSE.
JSR.PC,0?TRUE.
JSR.FC,O'FALSE.
.MEXIT.
.ENDC.
BCS.FALSE. ;CHECI?. ICOHD,!TRUE,FALSE.
JSR.PC,WTRUE.
.MEXIT?
.EHDM.
.NEXIT.
.EN DC.
?.IF.B.FALSE. Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
BCC ? TRUE ? ; CHECK ? !coNri, TRUE -
. MEX I
.ENDC ? Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
.IRPC?,7).
^ BCC .TRUE. ;CHECK. !COND..TRUE,!FALSE.
JSR-PCOYFALSF.
.MEXIT.
END c:
BCC .TRUE. ;CHECK. ICOND,TRUE.,FALSE.
BCE FALSE
J1EXIT.
.ENDM.
.MEXIT.
.ENDM?
.MEXIT
.ENDC.
.IF.B.FALSE.
.MEXIT ;CHECK. !COND.
.ENDC.
.IRPC.Z..
.IF?IDN. '
BCC -.+6 ;CHFCK.!COND,,!FALSE
JSR.PC,O'FALSE
.MEXIT.
.EMDC.
BUIi.FALSE. ;CHECK. !COHD,FALSE.
.MEXIT
.ENDM.
.ENDC.
BIT-*COND,.R0 ;CHECK.COND,?
.IF.NB.TRUE.
.IFTC.Y,
.^ IF.B?FALSE.
;CHECK.COND.ITRUE.
JSR.PC,O'TRUE.
.NEXIT.
.ENDC.
.IRPC.:,
E^ INE. .+10 ;CHECK.COND,!TRUE,IFALSE.
JSR.PC,ECTRUE.
BR..+6
JSR.PC,O'FALSE
.MEXIT.
.END C.
BED FALSE ;CHECK.COND.,ITRUE,FALSE-
JSR.PC,0?TRUE.
.MEXIT.
.END M.
.MEXIT.
.ENDC.
.IF.B.FALSE.
BNE.TRUE. ;CHECK.COND,TRUE.
.MEXIT.
.ENDC.
.IRPC.:,
.IF.IDN.,
9HE-1-RH. ;CHECK-COND,TRUE,IFALSE.
JSR.PC0YEALSE. Approved For Release 2005/08/20CIA-RDP85-00514R000200010001-4
.MEXIT.
.EDC:
BNE ? TRUE -
BE0 ? FALSE ?
. [lex IT ?
. ENDM?
. ME X I T
. DOM-
. ME X I T ?
DOC ?
? IF B ? FALSE?
ME X I T ?
ENDC ?
. I RFC ? Z.,
. IF? IDN? ,? ! >
BNE ? . +5
JSR ? FC,111' FALSE ?
. ME X IT
ENDC ?
BEG! ? FALSE?
FND!lEX I
M
. ME X IT ?
. DAM-
. ENDM ? CHECK
?? ?? ?? ?
Approvedcor Feri4p.spAIKILREy201kIA-RDP85-00514R000200010001-4
;CHECK ? 00HD?
; CHECK ? COND.. , !FALSE -
; EHEIT. FAI .SE ?
Approved For Release 2005/08/22 : CIA-RDP85-00514R000200010001-4
?