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

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

Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
HSTS SOFTWARE
LISTINGS
II iii VOL. 5 OF 5
Diagnostics
Part 2
SPEED
TEXT
SEARCH SYSTEM
NGA Review Complete
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
Approved For Release 2005/07/
HSTS MASTER COMPUTER SOFTWARE LISTINGS
SL120100
VOLUME 5 of 5
Prepared for:
Central Intelligence Agency
Washington, DC 20505
R80-016
March 1980
12 : CIA-RDP85-00514R000200030001-2
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER. millp.millo 27-M5R-90 14zA pAr4F.s
'Approved r or Release 2005/07/11,1A-RDP85-00514R000200030001-2
1
2.
7
4
21
24
25
26
27
2,.
29
30
31
72.
77
34
72.5
36
37
713
.3R.1
40
41
42.
43
44
45
46
47
40
49
50
51
54
Fi5
56
57
11
11
.TITLE-.LOADER.
OLIERY.
LOAD.MICROCODE.INTO-HOP.(MRP.AND CP)
LOAD.DATA.MEMORY.FILES
MRP.DATA.MEMORY.
CF DATA MEMORY
OEX.WINDOW.MEMORY-
DEX.LOCATION.MEMORY.
FAL.RAINTER.MEMORY,
FAL.COUNTER.MEMORY.
aB.REFERENCE.PAGE.
OLA.PAGE.0
iTLB.PAGE.1
ALB.PAGF.2.
AEX.sHrrRss.BIT.MEMORY.
SUBDOC.REFERENCE.PAGE.MEMORY.
SLEi?PAGE-MEMORY.
SUBREAD,MEMORY
SUBID.MEMORY.1
SUBID.MEMORY.2
LOADER?PROMPTS.FOR.COMMAND.LINE.INPUT.IN.THE.FORM.OF
A.MEMORY.MNEMONIC.AND.AN.OPTIONALFILE.VERSION-NUMBER:
LOADER. OPENS A.FILE.WHOSE.NAME.IS.IN.THE.FORMLDXX;DAT.
WHERE.XX.IS.REPLACED.BY.THE.MEMORY.MNEMONIC.RND.LOADS.
THR.HOR,
?
-
? '7.
- - - -- ?
-
'II
."?;?,... ? ? ? :
THEFORMATS.OF.THE.INPUT.FILES.VARY:
. ?
THE.MICROCODE.IHPUT.FILES.COHTAIH.THE.LOADABLE.MICROCODE.
IN COLUMNS, THF.FIRST.WORD-OF.THE.FIRST.BLOCK.OF.THE FTLE
CONTAINS .THE NUMBER .OF WORDS.IN.ONE.COLUMN. Er THE
EXPLANATORY.NOTES-TO.THE.PROGRAM 'ACONVRT WHICH.WRITES.THE.
FILES;
FOR . ALL . FRAME. 2. MEMOR IES, THE. LDXX. FILES CONTA IN. ADDRESS/DATA. . .
PAIRS; THE.LORDER.PRE-CLERRS.FRAME.2.MEMORIES.BEFORE LOADIN11.
ONLY.AT-THE.ADDRESSES.ENCOUNTERED.IN.THE.LDXX.FILE, THE.FfRST:.: -
WORD.OF.THE.FIRST.BLOCK.OF.THE.FILE.CONTAINS.THE.NUMBER.OF.
WARDS.TO.BE.LOADED,
FOR?THE-FRAME.1 MEMORIES.(MRP.DATA.MEMORY.AND.CP.DATA.MEMOR'0
THE.LDXX.FILES.CONTAIN DATA.ANLY. THE.FIRST.WORD.OF,THE.RIRST.
BLOCK.OF.THE FILECONTAINS.THE.NUMBER.OF.WORDS.TO.BE LOADFD
THE.TWA.FILES.LDMD,DAT IfIND.LDCD,DHT.ORE.DIFFERENT.FROM-THE.
FRAME.2.FILES.BECAUSE.THEIR.LOADING.IS.DONE-BY?DMA
EXIT. FROM. THE. PROGRAM. TAKES. PLACE ? IN ? RESPONSE ? TO. THE -
COMMAND ? EX ENTERED.FROM.THE.TERMINAL
- - ? 774,714..::t. '? .
.[:ALL. AIOWSS,AIA$S.EXIT$S,ABRT$S,GCMLS,GCMIBS,FSRSZ$,CLEFS.
.MCHLL. FDSDF$,FDRC$A,FDSKSA,FDOPSA,NMBLRS,OFFN$R.
.MCALL. OPENSLI,CLOSE$,READT.,WTRESSSETF$s,WTLOSs.RDAFSs.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2--
.4:1,4tia
?
LOADER. MACRO-M1110 27-MAR-80 14:99 pArs =
ApprovedFor Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
99
60
61
62
63
64
55
RR
R7
6P.
59
70
71
72?17.1005j01j 046E21
75 00510A4 AAAAAA
74 RAMM[lh UMMUMII
75 000010
Ammizm 045555
77 000024 049655
78 AAPIA3A A45R43
791 1390054 045643
RA 000040 045551
81 0011044 045661
82 090050 04554,5
83 000054 045646
84 AAAARA 045651
85 A99954 045551
06 AA0A70 045661
87 000A74 045651
RR AAAIRA F149553
89 1711710104 045663
90 000110 04.5557
91 000114 045663
92.AA0170 045663
93 000124 045551
94
Ah 000130 OUUULIU
9R AA0152. A00001
97 080134
9R oRni4n OAAA00
99 5IAA147. 000000
100 000144 MMIIMMM
101 5100146 [IF-M[1MM
1A2.AAA15A H4-14-11,111M
103 000152. 000000
1514 AAA154 AAAAAA
IA5 00015R AOAAAA
lAR 01111 1551 00A0AA
107 000162.
108 011912. MUMMHM
1A9 000164
110 800154 AAAAAA
111 000165 HUMMUM
112.000170 MMM[11111
113 17100172 AAAAAA
114 mm11(4 F.-WM[1MM
?
988881
510511101
AAAA07
099941
AAAAA7-
4111HHH7';
1101151511
000002.
AAAAA4
b
014732
AhmhAm
014400
073300
014400
1077051
045400
?152000
011300
A7A2AA
155ROA
140700
144AA0
A22RAA
1355130
1407 510
1440110
LI (0.100
113050
LUN.TT-
EFN.1
EFN.3
FEN :33
CMILUN.
INLUN-
FIRST.
ALL.
LAST.
= ?
,
.NL IST.
MYSELF; .RAD5A
TSKTCB; .WORD.
OLDVFO: .WORD.
EFBUFg: .BLKW.
LMM;: .RAD5A
LMD;: .RAD50
LCS:: .RADRA
LCD;; .R11050
LOW; .RAD50
LOLL' .P0050
LFP; .9AD5A
LFCg .RAD5A
LOP: .RAD5A
.RAD5A
L01: .RAD5A
L02: .RAD50
LSF; .R11050
LSO: .PADSO
LSI : .RAD50
L52; .R11051:1
LSP ; .PAD50
LOXg .RAD50
VIRTg: .WORD.
.WORD.
STAT: .BLKW. 2.
EVER: .WORD. A
CODE;: .WORD. A
EPWORD; .WORD.
BIHWDz; ni,FIRD. A
SELEnTE: .WORD.
APLACE;:
LCOUNTg: .WARD.
WCOUNTg: .WARD.
SCOUNT:: .WORD.
DATA1::
DATA:: .1_,_InRD. A
ADORE:
MSTP2;: .WORD?
TRANSF.:: .WORD.
IN5AVI9c; .WORD.
ALLPT;
1
1
33.
7.
4
BEX:-
/LOADER/.
/LDMM/.
/LDND/.
/LDCS/.
/LDCD/.
/LDOW/.
/LDOL/.
/tDFP/.
/LDFC/.
stD00./.
1./,
iLDSF-/.
./L]15 El.
/LDS1/.
/LDS2/.
/LDSR/-
/LDOX/.
LI
1
ii
171
II
171
0
171
;LUN.FOR?TTO
;FVFMT.FIAG.FOR.TTA
;EVENT.FLAG.FOR.HOP.INTERRUPTA
;FVFNT.FLAG.FOR.COMMUNICATING.WITH.EXERCISERH ?
;GOrL.LUN.
;LUN.FOR.LDXX.DAT.FILES- _ ?
_
F IR9T ? 91 FICK ? READ -
;LOAD?ALL.FILES.
;TRANSFER.OF.LAST.BLOCK.OF.FROOEiDATAMEMORY-
,
; ? B -
; 0 L D ? 'VECTOR ? 055 (21- ? ???-'-? ? ?
? t -4
;EVENT-FLAG.BUFFER.
;MRP.MICROFROGRAM.MEM0PrC:01-0t9.
;MRP.DATA.MEMORY.LOA&BLF.ViLE
;CP.CONTROL.STORE-LOADABLE.FILF
;EP? DA TA ? MEMO R Y ? L
.2 OE X Id IIii l?.1- ME MAR y ?
? ?"..??':;:'? .
; OE X ?C' 'LI IT 1,011:
; FHL ? PO INTER ? MIVERY-?
;FAL.COUNTER.MEMORY._
.::OLEI.REFERENCE.PAGE, .
;OLO.PAGE.0
ULEI.PAGE.1
;OLB.PAGE.2.
;SLB .REFERENCE PAGE.
;SLEPPAGE.
:,SIDMEM.1
;SUBRFAD.MEMORY.
;OFX.SUCCFSS.BIT-MEMOWY?
;VIRTUAL BLOCK COUNTER
;IO.STATUS
;FILE.VERSIOI*1 HUMDER
;MEMOP.SELECT.CODE.
THDEX.VALUE,FOR.ERROR.ME$aAGE-TABLE" -
,i.v.7.i..-- i:-.7-7....., .
TARGET.FOR.HUMERIC._U)11Y.081,4NROM:ASCTI-
. ,
ALL,PURPOSE.FLAG. ..... - - . .
PLACE. TO. NvEsquITEL.,QS P-A '''''?; ' ,;:;- ' '.":',,' ' ?
N U MB E 0.-. "Or 'WO R.,DY-0'.111', f-) D::' ?:-. ' ' ,
WORK IHG . COUNTER .
MEMORY. WORD - S 1.15 . I ADE)f;
I
;DATA.FOR.MEMORY WRITE.
;ADDR.FOR-MEMORY.LEITE.!
;DMA.POINTER
? - c?-?? tr141 +, ?
;-> TABLIEHII.ALL,MEMORYWAORtSE:
ALLCT: .WORD.
Approved For Release 2005/07/OCIA-RDP85-0051-666baokabLi-ri
7
LOADER 100 M1110 27--MAR-90 14: 59 PAGE ci--2
Approved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
115 00017R GCMBUFg.:ALKLI. 40. ;COMMAND-LINE-BUFFER
115 000315 Onnenn GCMLENg .WORD. A ;COMMAND.LINE-BUFFER LENGTH.
117 A00320 AAAAA0 GCMPNTE .WORD- A
.:: P'TN IER ? 'TO - COMMA HI D ? C I tlE ? HUFFER ? ., ! v
i is kriFir-C2,27 ? INLINE g .BLKLI. 255; ;INPUT.AREA.FOR-LDXX.DAT.BIOCKS. !.
119 .
120 DATA-MEMURY.LIMITS-TA8LE.(FOR.MEMORY CLEARING)
121
122 001322 - 077777 OXHIGH g ; .WORD 077777 ;K77FIRF7'
123 001324 A7RAAA OXLOUg .WORD. 075uAA ;X:?7C00.?
124 001326 007777 FAHIGHE ..WORD- 4A95. ;X.71RFF
125 00133A AORAAA FALOWE WORD. A
126 AA1332. n03777 LHHIGHg .WORD- A03777 ;X-3FF
127 001334 0000AA LHLOWg .WORD- A
128 001336 000377 SOH IH .WORD. .-:,,.., :._
II REF SUPOLB.
129 orii7.4171 AAAAAA
AM . A
130 001342. 000377 SRHIGHg
SO g WORD.
.WORD. 255. ;SUBREAD-
131 001344 acl0000 siRua,i; .WORD- A
132 001345 007777 SDHIGHg WORD- 4095 ;SIDMEM-1, 2.
16.3 13111.3-113 HHHHHM !:;MLOWZ .WORD. A
134 . .
135 ;
135 ; CONTROL.TABLE.
137 TABLE.OF.VALID-MEMORY-MNEMOMICS-AND-THEIR.ASSOCIATED
138 ROUTINE-ADDRESSES.
139 , 7
140 ;
141 001357- FTBL:
142.001352 101 114 .ASCII.
143 001354 003114' .LORD. AL- ;LOAD-ALL.t'EMORIES.
144 00135R 115 115 .AS1 IIIll-
145 Floi:-..3ii 003222 .WORA-..)? MR HMMC- ;MICROPGMMEMOF.?
14.6 0013R2 115 104 .ASCII. /MD/ ;DATA-MEMORY-
147 aci17.64 003511E .WORD. MRPMDC.
149 001355 103 123 .ASCII. /CS/ ;CONTROL-STORE.
149 AA137A 003.7.227-. .WORD- CPCSC.
150 001372- 103- ;CP-DATA-MEMORY-
153 111314L113 0041.00' 1 n 4 .ASCII
.WORD. OW-
151. 001.374 007,242 .WORD. CPCDC.
152 AA 172,726 121 127 .ASCII. /OW/ ;0Ex.:.W INDOLLMEMOWT.'?
154 001402- 121 114 .ASCII- /0L/ ;OEX.LOCATION.MEMORY
155 001404 004124 .WORD. 155 01:11405 001405 105 120 .ASCII. ;FAL-POINTER.MEMORY-
157 001.4113 00440R WORD. FP
-
158 001412. 10R in: .ASCII. ./FC/ ;FAL-COUNTER-MEMORY.
159 001414 004432 .WORD. FC.
160 00141R 121 122 .ii LII PP ;OLB.REFERENCE.PAGE-
irl'i A01420 004R5R ; Li 0 R D
152.001422. 121 050 .ASCII. /00/ ;OLB-RAGE.0
163 001424 005114'
154 001426 121 061 .WORD? IJA
1.65 511314.311005.142.?
155 AA1432. 121 0R2 WORD. Qi
.ASCII. /01/ ;OLB.PAGE.1
._..
.ASCII? /02/
167 001434 AR5170' _WORD. 02. ;OLB?PAGF-2.
158 001435 ' 121 130 .ASCII.
159 MM 14411 nf7c2,257.T'
:2"gli. C1X' ;OFX.SUCCESS.BIT-MEMORY.
17n 001442. 123 122 ;SUBREAD-MEMORY-
171 AA 1444 003434' .WORD. SR.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001.-2
... .
- r-,? e,' ? ? v,..4.- r
I
_IL,- ?1-!mittr4,-,6gr' ,-- ? ., ?, i ,
-
LOADER- MACRO III 110 27-NAR-20 14:59 PAGE.5-7
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
172-081445
i3
185
173
001450
AO7RPO:
174
881452.
11511
175
001454
All
175
N81455
123
051
177
001460
003502
178
nA1452
123
062
179
001464
AA-2.558'
190
001456
105
130
iGi
001470
005732
182
858074.
FNUM.
183
184
185
185
51511472.
ALLTBL:
187
510 1472
083272
00351e'
188
800814
ALLNUM.
189
190
191
192
193
801522.
015
012
194
801524
PRINT::
195
195
000115
197
198
199
2851
201
2512-
2513
2114
001642.
AAA
205
001543
015
012
1115
206
001547
105
17.0
111
207
001665
015
012
AOA
111111
001571
015
012
1115
209
001577
110
101
122-
11111
AA1735
A15
Ni?
AAA
211
001740
015
Al2
212-
881742
111
115
125
213
001770
015
Ni?
214
AA1772.
in5
122
122.
215
802010
015
012
216
802012.
111
115.
125
217
An2042.
015
012
21R
nn217144
115
111
127.
219
082054
015
812
UN4_Mhh
111
115
103
221
002120
015
Ni?
082122-
123
185
114
--2.50
ASCIZ:
224
11115
225
228
?
.ASCII
.WORD
.WORD
.ASCII
.WORD
.AKCI1
.WORD
.ASCII /EX/
.WORD EXIT
' -FTBL/4>
;SUBREF.MEMORY.
;SUBOLB.MEMORY.
;SIDMEM 1
;SIDMEM.2.
;EXIT.ROUTIHES.
ADDRESSES. OF ALL.DATA.MEMORY.ROUTINES.
.WORD
MRPMMC,CPCSC,MRPMDC,CPCDC,OW,OLIFP,FC,OR,00,01,02.
K. -ALL LI'..-'?
PRINT.LINE-
.BYTE. 15,12.
.NL IST. MEB.
.REPT. (A.
.BYTE. 40
.ENDR.
TABLE.OF.MESSAGES.
;PRECEDE.PRINT.LINE.WITH.CRLF.
.BYTE. 0
.BYTE. 15,12,15,12.
.ASCII- /EXIT.HOR.LOADERs.
.BYTE. 15,12,0
.BYTE. 15,12,15,12,15,12.
.HbUil. /HARDWARE.OLERY.RESOLVER LOADER/.
.BYTE. 15,12,0
.BYTE. 15,12.
./INVALID.HUMERIC VALUE/.
.BYTE- 15,12.
.ASCIZ. sERROP.OH.RErlD/.
.BYTF. 15,12.
.ASCI2. /IHVALID.MEMORY.I1HEMOHIC/.
.BYTE. 15,12.
.1.26c12. IN174 OPERAND/.
.BYTF. 15,12.
siNCORRECT.CHARACTER.COUNT/.
.BYTE. 15,12.
.ASCIE. /SELECT MEMORY OR.EXIT/.
.BYTE.
.EVEN-
.LIST. BEX.
.ilLIST. CND. '=T-n;..=7.=r7VTITVIMVP'
Approved For Release 2005/07/OCIA-RDP85-00514R000200030001-2
LOADER- 100-M1110
27-MAR-8014 59 PAGE .5 4
'Approved.i-o-r Release 2005/07/10CIA-R0P85-00514R000200030001-2
22A
COMMAND.LIHE MAF:RO.
230
'7,71
002152.
GCMBLK
GCMLB 2,,GCMBUFCMILUH.
2734
IMPUT.FILE.FDB.
2735
276
002450
27.7
002450
FDELDFS
25A
A2367,2A
FDRCSA FL' PLiri
27,9
111717f712A
FDBK$A IHLIHE,512,?,STAT.
240
002620
FDOP$A.
241
0021r,2171
INDHAg:
HUBLKS ,DAT
242
002555
FSRSZS 1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER. MACRO.M1110 27-MAR-80 14:59 PAGE.1;
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
244
245
246
247
248
249
002656
START:
250
00255
015757
ummtimmi,
175120
251
002554
013757
000274
175114
252.
002572
012737
005754'
AAA274
254
AA270A
255
002704
012745
177777
255
002710
012745
000A1A
2=7
002714
25E1
002720
012745
000010
259
002724
012746
175000
250
0027310
261
2F0.
21714
21,7,5
Zbb
21;7
268
259
270
271
002734
cOM:
272
AA2774
07.2757
AAAAA7
175205
273
002742.
001402.
274
002744
AAA157
AAA155
e
276
277
278
279
002750
10$:
280
AA2754
281
00275A
107..,..007..1
002752.
002755
AAA752.
284
002770
0227AA
AARAFr.?
1$:
285
002774
001403
285
AA2775
287
003002.
000754
7),0
289
291
2.717
AA..-.7,AA4
012700
HmmA34
.7.,...
?__,n
297,
Ou?.01A
012702
001S52'
294
0A72,1114
295
0074120
1A7AA-2.
2q E.
AA7.072.
003026
000(42.
?
ENTER. HERE
MOV.
MOV.
HOY.
CALL .
MOV.
MOV.
CALL
ricrv.
NOV.
CALL .
$TKTCB,TSKTCB.
172.30274,OLDVEC.
#.8PTI5R,@#274
OUT1
#177777,-(P)
di.O$HSET,-1,SP)
CSRI
#O$RSET,-(SP)
#,-(SP)
CSRI
UP LU- :OMMAHD.LOOP.
SEI FCT ? MEMORY? OR ? EXIT. PROGRAM.
;SAVE.MY.TCB.
;SAVE.VECTOR-HT.274
;MOVE.ITT.MY.ISR.ADDRESS.
;ISSUE.INFORMATION MFFFAGF.
;CLEAR.EVERYTHIHG.
;HOR.RESET
CLEAR RESET
;SET .HO-CLOCKS.
IF 'LOAD ALL FILES, WAS PREVIOUSLY SELECTED, SUMP
DIRECTLY.TO THE ALL FILES SEQUENCING ROUTINE.
BIT.
BFQ-
JMP.
*ALL, SELECT.
10$
ALL2
PROMPT.FOR.MEMORSELECTION
VALIDATE.THE SELFCTIOH.
CALL.
CALL.
BCC ?
CALL.
9R
CMP.
9E0.
CALL.
BR
FiELMErL
FIND
1$
E K2
COM.
*2,R0
2$
ERRI
COM.
MATCH THE.MHEMONIC.FROM.THE
TABLE OF.VALID.MHEMOHICS,
;LOAD .ALL
;110;. READ
;LET.'ALL
OR EXIT;
?
_
MEMORIES.
COMMAHD?LIHE-
COMMAHD.COHTROL
?
LOADING
;PROMPT.FOR.MEMORY.SELECTION.
;FIHD.THE.MEMORY.MHEMOHIC.
;OK, COHTIHUE.
;COMMAHDS.ARE.2
:TRY. AGA IN
COMMAND.LIHE.AGAIHST
LHARS
A .
MO',...' ? ;RO -..HUI1DER OF.MEMORIES.
MOV. ;R2.-> TABLE.OF.MEMORMHEMOHICS.
CALL. ;FIHD.MATCH.IH.TABLE
BC:,:: ? ;OK, CONTINUE-
CALL.
BR
........-- OM- q;
;COMMAND-NOT.IN TABLE
; TRY ? A G Li 1. V:
'
#FHUM,R0
oFTBL R2.
SCAH
7,13
ERR3
COM.
C H E C K ? FURTHER . IN ? THE ? COMMAND . LINE ? FOR ? A ? FILE ? VERS
IL;1t''i .
HUMBER : IF ? THERE ? IS ? ONE, r ON VER T IT ? F R all ASILLI ? laC T A I,; ? .
,
Approved For Release 2005/07/ CIA-RDP85-00514R000200030001-2 -?
LOADER. 1or.111110 27-MAR-80 14' 59 Pvea. 1
APproor Release 2005/07/1OCIA-RDP85-00514R000200030001-2
301
302
303
304
007030
010145
3$:
305
003.037
306
003035
103415
307
003040
700
003044
103004
309
003045
310
003052
00572S
311
003054
000727
312
313
314
315
003056
116767
175064
177552.
4$:
31f;
003064
016767
175056
175046
317
003072
042767
000001
175050
56:
319
003100
012767
000001
175024
319
003105
012601
320
AA311A
000171
000000
TO BINARY, IF?TAERE.Iti HOT OHE. THE FILE.OPEHED.LNII
BE THAT .WITH TNE?HIGHEST.VERSIOH HUMBER,
MOV. R1.-(SP)
CALL FIHO
SCS 5$
CALL. PACK?
BCC 4$
[:ALL ERRS
TST (SA)+
RR CM1
;SAVE,ROUTIHE.ADDRESS.
;LOOK.FOR.FILE.VERSION.NUMBER.
.010THING.THERE,, HO.OVERRIDE.
;CONVERT-OCTAL? VALUE
;EPROR.F1H.CONVERSION
:RESTORE.SP.
;START.OVER
jUMP.TO.THE.ROUTINE.THAT.GOVERHS THE.COMMAND-
0111WD,THDHS+H,FVER.
BIAWDFvER.
0FIRSTJ.SELECT.
01,VIRT+7.
(SP)?,R1
@(R1)
.7. 1-*F RT ? FILE ? ',I:RS .101-1 HUMRE R ?
? OH ? HUMBER
CLI":121R ? F I RST? TIME ? THROUGH'? FLAG ?
IN I I ? V1H. I UHL ? BLOCK ? TO ?
; LOAD ? ROUTINE ? A DDRE!:;!=; ?
oi.:J ? TO ? HUI...ITU...1E ? .
.51
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002000300014,
LOADER rincRo MI 110 27-MAP-80 14:59 PAGE 7
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
322.
323
324
325
326
327
H.
330
331
7;7,2
777
334
776
337
339 003114
AL:
340 003114
052767
n30002
175025
341 003122-
812767
001472'
175042.
342.003130
012767
000014
175036
343
344 003135
ALL 2:
345 003135
005767
175032
346 An3142.
nA10115
347 003144
042757
000002
174775
348 003152.
000167
177556
343
350 no3156
116757
174756
177452.
1$:
351 003164
042757
nA0001
174756
352 003172.
012767
AnnA1711
174732.
353 003200
005767
174770
354 003204
015701
174752
355 003210
062757
000002
174754
355 0n3216
000171
000000
LOAD.ALL.MEMORIES.
SET.UF.TO-SEOUEHLE.THROUGH.ALL.LOAD.ROUTIHES.
HB. ALL LOAD ROUTINES.RETURH.TO.THE.TOP.OF THE.
[0111 ill (.C.Orr). COHTROL.WILL.BE.P.E-ROUTED.HERE
WITHOUT.A.PROMPT OHCE.THE #ALL.FLAG.HAS.BFEH.SET.
IF THE.ORIGIHAL.COMMAND.HAD.A.FILE.VERSIOH HUMBER.
FOLLOWING .IT IN.THE.COMMAHD.LINE, THEN ALL INPUT-
FILES.WITH.THAT.VERSION.HUMBER.WILL.BE.LOADED:
>AL 4
OTHERWISE.THE.FILEc WITH.THE.HIG EST VERSIOH.HUMBERS
WILL.BE.LOADED.
BIS.
rov?
oALL,SELECT.
*ALL18L,ALLFT-
*ALLHUM,ALLCT.
;SET.FLAG.FOR.LOADLM:,AL4:....;,
.7, IN IT IAL IZE ? FO -
; IN I T IAL1LL.
TST. ALLOT. ;FINISHED.?.
BHE. 1$ ;HO, CONTINUE.,
BIC. *ALL ,SELECT. ;OLEAR?ALL FLAG.
JMP. COM. ;RETURN -TO MAIH.LOOP
MOVB. FVER,IHDHB+H.FVER. ;IHSERT.FILE.,,I=SIOH HUMBER
BIC. *FIRST,SELECT- ;CLEAR.'FIRST.TIME?THROUGW FLAG.
MOV. ol,VIRT+2. ;IHIT.VIRTUAL-BLOCK.T0.1
DEC. ALLOT. ;SUB-FROM.rEMORY.COUHT-
MT.). ALLPTfiR1 ;R1 -> MEMORY.RTH?ADDRESS.
ADD. #2,ALLPT. ;POIHT.TO-HEXT.MEMORY.ROUTINE-
JMF. 0(R1) ;JUMP.TO.MEMORY.ROUTIHE.
? Approved For Release 2005/07/OCIA-RDP85-00514R000200030001-2
LOADER. 11110-M1110 27?MAR-20
358
759
751 003222.
14:59 PAGE.'
Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
MEMORY.
HPPHHC:
352-003222.
CALL NPFlin
353 003225
754
000157
177502
jrip COm
'
765
7.1,74;
r
flONTROL RTORE
74L",9
7.70 007232.
371 0'717277.
CALL CPCL-;
772.007235
1300157
177472
JMP COM
374
775
CP DATA.MEMORY.
375
777
37R 007242?
CPCDC:.
779 AA3247?
CALL Up
7,1313 007245
0013157
177452
JMP COM
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
? - ? '41"--. 44: qA.".,7,t; velir Wif
LOADER MACRO M 110 27-NAP-80 14:59 PAGE q
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
3e2.
724
.3515
785
-207
388
389
.511 U
391
3cJ3
7q=
6103252.
003252.
A03250
003266
007,274
.003302.
1111.5.5 113
003314
396
397
3Y.=.18 003320
359 11113320
400 003325
4111 A03334
482003342-
403 003390
41314 003556
4175 AA3352
4A5
407
408
404 007355
410 003355
411 003374
412 003402.
413 1113.34111
414 003415
415 AA3424
415 1111.34311
417
410
419
420 003474
421 003434
422 AA3442.
423 AA34.50
424 003455
425 003454
425 003472.
427 AA3476
428.
42q
470 001502.
431 0035112.
003510
433 AA3515
474 083524
435 61613.572.
435 003540
437 11113544
438
?
012757
UULIUU4
A16757
175052
A12767
11111111111
015757
174624
015757
174520
000167
177414
012767
111111111111
016757
176004
012757
000001
016767
174532
016767
174525
Arinilw
177345
012757
AAAAA5
015,5,
175735
012767
000001
016757
1744711
015757
174454
000157
177300
812757
000007
016757
175574
012767
AAAAni
015767
174436
015757
174432
00131.67
177232
012757
000010
016767
175532
012767
000003
016767
174350
015757
174354
AAA157
177154
OX
SF:
174614
174520
174514
177256
177252.
SO:
174545
174552,
174545
17721A
177204
SP:
174500
174504
174500
177142.
177135
174432
1.74436
174432.
177074
177A7A
LOAD.SUBDOCUMENT.PROCESSOR.MEMORIES.
OEX-SUCCE44.8IT.MEMORY
muv.
MOV-
MOV.
mov.
mov.
CALL.
*S$OX,CODE.
SOHIGH,,LCOUNT.
#1,WCOUNT.
LOX,INDNEHHI:FNAM.
LOX+2,INDNB+N:FNAM+2.
SPLOAD.
COM.
SUBREF.MFMOR
MO V ?
MO V ?
MO V ?
MO .
MOV.
CALL.
JMP?
oSSOR,CODE
SOHIGHLCOUNT
4i,WCOUNT
LSF,INDHB+N:FNANI.
LSF.1-2INDA8-1-NFNAM+2
SPLOAD
COM
SUBOLB.MENOR
MOV.
MOV.
MEN.
M[W.
CALL.
JMP.
*S$08..CODE.
SOHIGH,LCOUNT.
#1,WCOUNT.
LSO,INDN8-01,FNAM.
LSO-1-2.,INDNEI-FN;,FNAM+2.
SPLOAD.
COM.
SUBREAD.MEMOR
MOV
MOV
MOV
NOV
MOV
CALL
?IMP
SIDMEM 1
MO'V ?
?
VIO V ?
MO V ?
CALL ?
j
#S$SR,CODE.
SRHIGH,LCOUNT.
ol,WCOUNT.
LSR,INDH8.1-N,FNAM.
LSR-1-2INDNB.1-N,FNAM-4-.2.
SPLOAD.
COM.
, ,t,CODE
sDHIGH,LCOUNT
03,WCOUNT
LS1,INDNB+N;FNAM
1_S i+2.
SPLOAD
COM
;SET.MEMORY.SELECT.CODE.
;SET.MEMORY.UPPER-BOUND.
;SET.MEMORY.WORD.SIZE.
;PLACE.FILENAME.INTO.INPUT.DNB.
;LOAD THE MEMORY
;SET MEMORY.SELECT CODE
;SET MEMORY.UPPER BOUND
;SET HEMUNCWORD !-.612E.
;PLACE FILE NAME INTO INPUT DNA
;LOAD.THE-MEMORY.
;SET.MEMORY.SELECT-CODE.
!:SET.MEMORY.UPPER.BOOND.
;SET.MEMORY.WORD.SI7E. ? 2
4
;PLACE.FILE I ME-INTO-INPUT-DNB.
= ? 7
t
4:: 11
;LOAD.THF.MEMOR
;SET MEMORY -SELECT CODE.
;SET MEMORY.UPPER POUND
; SET MEMORY. WORD S I ZE
; PLACE F ILE HAME INTO INPUT DNB
;LOAD?THE.NEMORY.
SET MEMORY SELECT-CODF.
;SET.MEMOPY.UPPER.ROUND.
SEMMEMORYWORD.SIZE-
;PLACE.FILE.NAME.INTO.INPUT DNB.
"r071071W717 P
Approved For Release 2005/07/10CIA-RDP85-00514R00020003000T-2
? ,te
? ;1;1,
'
LOADER ?
479
440
1101.Ml 110 27 11 A
14 ?FL '_.
- ? 4prOvea .rar Release 2005/07/1.IA-RDP85-00514R000200030001-2
SIDMEM.2.
441
007.550
442
003550
012757
AAAA14
174754
MOV.
*S$S2,CODE.
:.:SET.MEMORY.SELFCT.CADE.
443
AF172,555
015757
175554
174770
MOV.
SDH IGH ... nn T ?
..:SET.MEMORY.UPPER.BOUND.
444
An7.5F,4
012757
ARAFIA7,
174354
MOV.
41.7,WCOUNT.
..H=2.ET.MEMORY.WORD.SIEF. .
445
AA3572.
A15757
174.315
177026
MOV.
LS2,INDHO+H,,FHAM-
E.FILE.HAME.-1TO.IMPU
445
1711117.1
016757
1747
177022.
MOV.
LS2-1-2,INDHBA-H,FHAM1-2.
447
1711717F,AF
CALL.
SPLOAD.
7.LOAD-THF.MEMORY.
445
003512.
000157
177116
JMP.
LOM.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2.
LOADER. MACRO.M1110 27-MAR-80 14:59 PAGc.in
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
450
451
452.
453
454
455
456
457
;
458
003516
P MD C
459
17103616
005057
174342
4.50
00363.2.
015757
174176
175775
461
007530
016757
174172
176772.
452
1313.313.313
463
454
00-2654
465
455
467
468
469
470
003550
MDHEXT:,
471
003664
1031102
472
003655
000167
000150
473
0A7i672-
012705
000372'
1$:
474
003575
032767
000001
174284
475
003704
001014
475
007,705
052767
000001
174234
477
003714
012567
174234
478
00372R
912757
177777
174240
479
AA3725
025727
174222
000400
480
003734
001413
4R1
482
4.83
484
465
486
003735
026727
174212
000401,71
3$:
487
0037-44
1711713007
488
003745
052767
000004
174174
489
003754
066767
174174
174204
490
003762.
000406
491
003754
06276?
000400
174174
4$:
492
1303772.
166767
174170
174154
493
494
495
495
004000
010567
174164
5$:
437
13134004
012746
AAA004
49A
004010
499
An4F114
032757
000004
174126
500
004022.
001007
501
004024
055757
174135
174132.
502
004072.
005057
174130
5f-17;
004035
000157
177515
51714
505
$116
?
MRP.DATA.MEMOR'f'.
? ' ? ?.; ' '
HAME.BLOCK.FOR.LDMD.DAT,
OPEN FILE.
CLR. MSTR2.
MOV. LMD,INDHB+N:FNAM.
NOV. LMD-1-2,INDH81-H,FHAM+2.
OPEN$R. *INFDB.
GALL. DMASET.
[LEAD. MRP DATA-MEMORY.ADDRESS
;FIACF.FII F?NAMF.INTO.INFUT?DNA.
;STORT.UF.DMA-MICROCODE.
GET.FIRST.REOORD.(BLOCK). FROM.THE.FIRST.WORD.OF.THIS.
BLOCK.SAVE.THE.NUMBER.OF.WORDS.TO.BE.TRANSFERRED.T0-
TNE.MRR,
COLL
BCC.
Jrp.
May'.
BIT.
ONE
BIS.
MO,,?
MOV.
CMP.
BD).
GET
1$
MDDX:
*INLINE,R5
oFIRST,SELECT
*FTRST,3FLECT
(R5)?,LCOUNT
*-1,TRAHSF
LCOUNT,*255,
4$
;RFAD-A.RECORD.
;ERROR, EXIT. -
;POINT.TO.RECORD.READ
;FIRST.TIME.THROUGH.
;HO.
.3ET.FLAG.FOR-FIRST.TIMF.THROUGH- _
;GET?NUMBER.OF.DATA.WORDS.
;START.TRANSFER.COUNT.AT. -1
256 WORDS TO TRANSFER
;YES, 2.TRANSFERS.NEEDED.(COUNTL6CRD-).__
TRANSFER.A.FULL.256-WORD.BLOCK.IF.ROSSIBLE. IF.TRANSFER.
COUNT. IS . LESS THAN OR EQUAI . TO 256, THIS - IS - THE . LAST
TRANSFER,
LCOUMT,*255,
4$
*LAST,SFLECT
LCOUNT,TRANSF
5$
0256?TP1:NSF
TRANSF,LCOUNT-
;MORE THAN A FULL BLOCK LEFT TO TRANSFER
;YES, TRANShER 255 WORDS THIS TIME
;LAST TRANSFER
;TRANSFER REMAINING WORDS
;LOAD CD BY.DMA
;NUMBER OF WORDS To TRANSFER
;SUB FROM TOTAL
SIGNAL.MICROCODE.TO.ACCEPT.DATA.FOR.MRP.
MOV.
MCN.
CALL.
BIT.
EINE.
ADD.
L. Lb
JMF.
EXIT.
R5,INSAVE.
*O$LDMD.,-(SR)
DMA
0LA5L,5ELECT.
111,11 :>
TRAH5F,MRTR2.
IHANSF.
MDHEXT.
;SAVE.POIHTER.TO.IHFUT.DATA.
;SELECT.MRP.DATA.MEMORY.
;LOAD.HRR.DATA.MEMORY?
;FINISHED-?.
;YES.
;SET.CD.ADDRERS.hUR NEM. IHANShER.
;GET-NEXT.RECORD%
----Ir.77r1APINT77=
Approved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
. (777770r:,,t.,YM
'
LOADER ? 110 ? MI 110 27-1112iR-80
507 004042
14:Apapruv-PloPeu-F-..r?-mir-lelease 2005/07/10CIA-RDP85-00514R000200030001-2
MD DX;
903
004042
005045
CLR.
-(SP)
;CLEAR.HOTHING.IN.CSPI
509
004044
012746
176000
MOV.
#0SHICLK,-(SP)
;SET .110-CLOCKS.
510
004050
CALL.
CSR1
511
004094
AA55157
17427
[:LR ?
ORSCR2.
;SET.LOAD.MODE.
512.
613
0134060
CLOSE$
#INFDS.
514
004073
105367
175542
CLREI.
INDHB+H;FVER.
;RESET.FILE.VERSION.HUMBER.
515
004A74
000167
176634
JMP.
COM.
515
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
-
LOADER- MACR0.111110 27-MAR-80
518
519
520
521
522.
523
:59 POG:L1
14 F.,
Approve-a or Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
0.EX WINDOW ? MEMORY-
OEX. LOCATI014 MEMORY.
r!
524 004100
012767
000042
174034
01,1:
#0$0Wo.CODE-;SET MEMORY CODE = WINDOW
525 004105
015757
173725
176512-
NOV- LOW,INDNB+H,FHAM-:PLACE. FILE NAME INTO INPUT ONE:
525 004114
016767
173722
175.505
MEW- LOW+2,IHDHB+H;FHAM+2.
527 004122-
000411
BR OEX.
528.004124
012767
000043
174010
OL;
*DZOL,CODE. ;SET-MEMORY-CODE?LOCATION.
529 004132-
015757
1777A5
175466
MCN? L.OL. INDNB+H; FNAM. ;PLACE.EILE.NAME-INTO.INPUT.DNE0
570 004140
01575.7
173702
176462
MUq- L0L+2, INDHB+H:FHAM+2-
531 004146
532.00414F
OPEN$R. *IHEDB!
535 004154
534
AA5057
173774
CLR [16 1 K2 ! . ;CD-TRANSFER-START-ADDRE8S-
.!?-;4.;.-!.
4.,
:
575
GET.THE.FIRST.RECORD.(BLOCK). THESECOHD.WORD.OF-THE FIRSTL____
--'1-'7'74477-1!'47.!
4-4'''':''':
' ''
.;`.
535
RECORD ? CONTI:II HS ? THE ? HUMBER ? OF ? A D D R ES S ....'D A Ti?--!! HA I F.!S . TO ? BE ; L 0 A ELf ?
".
?:'
'
? '''
??-
577
I H TO ? 0 E X ? MEMOIR Y :. !":;C:C.,,,E. ? TH IS ? '..,?)AL LE . -2.: _,:.11,i:-....
:
.1?
579 004170
OXNEXT:
540 AA4i7A
541 004174
10517102.
;READ.A.RECORD. ?
,
CALL-GET.
j
BCC! 1$
542.00417F
000157
888154
JMP-0XX, ? ;ERROR, EXIT.
543 004202.
1$:
544 004202.
012705
000322'
MOV. *IHLIHE,R5 ;POIHT.TO.RECORD.REPTh_
545 004205
01055.7
175755
MO'vL R5,IHSAVE. ;SET.CC.DMA.BUFFER.ADDRESS-
545 004212.
012725
000001
MOV. #1,(R5)+ ;SETWRITE FLAG IN CD?ADDR.0
547 004215
03275.7
000001
173724
BIT. *FIRST,SELECT. ;FIRST.TIMETHROUGH.
548 004224
001014
BHE. 3$ NO
549 AA4225
052767
00001111
173714
BIS. #FIRST,SELECT. ;SET.FLAG.FOR.FIRST.TIME.THROUGH.
550 004254
012504
MOV. (R5)+,R4 GET COUNT OF.ADDRESS/DATO.PAIRS.
551 004236
001447
BED. OXX:-;EXIT.IF.HOHE.
552 004240
006304
ASL. R4 ;COHVERT.TO.WORD.COUHT.
555 004242-
062704
000002
ADD. #2,R4 ;ADD .SPACE FOR.CODEAHD.COUHT.
554 004245
010467
175702
MOV. R4,LCOUHT. ;GA/F NLIME:ER OF IOTA LURDS-
555 004252-
CALL. DMASET. ;START.UP.DMA.M1CRUCODE.
556
557
TRAHSFER.A.FULL.255-WORD.BLOCK-IF.POSSIBLE. IF.TRAHSFER-
CE-.0
COUHT.IS.LESS.THAH.OR.E.OUAL.TO?256, TNIS-IS-THE.LAST
55g
TRANSFER,
560
561 00425F
025727
175572
000400
3$:
CHP-;MORE-TNAH -BLOCK-LEFT-TO.TRANSFER
552.004254
003007
BGT. 4$ ;YES)! TRANSFER .256 WORDS!THJS.TIME.
555 00425F
564 004274
052757
015757
005004
173654
175554
173664
*LASTfiSELECT ;LAST-TRANSFER!
HAV. LCOUNT,TRAHSI-; [PH!!51- ER ! RENA IN INU?15CRDS -
;.--
555 004702.
555455
BR S+ ;LOAD.CD-BY!DMA.
566 004304
A12767
000400
177554
4$:
MO'.'LCOUNT
*256.,TRAHSF ;NUMBER.OF M0RDS.TA.TRAHSFFP:
567 004212-
166757
177550
173634
TRANSF,LCOUHT ;SUB.FROM.TOTAL.
55.P.
559
IGHP! ? M I CROCODE ? TO ACCEPT ? CP ? DATA. MEMORY- DATA ?
570
571 004720
5$:
572 0043216
577 004324
012746
UMPIMM7i
MOW. 4'FCI$LDCD,-(SE) "ler4111M-SMOMMVP-LWITRI`n! 'IT,' ;''' i'': ? '
Cl2V1 ? DMA! ;LOAD.CP.DATWMpICRY I , ,
574 0164338
052757
AnAnn4
173612.
BIT? *LAST,SELECT. ;FIHISHED.7. -
?
Approved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
LORDER ? 1.3 ? NI 110 27-M0R-80 14: ikloprovEcl Rat-Release 2005/07/41 CIA-RDP85-00514R000200030001-2
?
575
576
57?
004335
171047,4171
004346
001005
066767
000167
173522
177516
173615
ONE
ALL
JMP.
1XLD
TRANSF.,NSTR2.
OXHEST.
;YES.
;SET.CD.ADDRESS.FOR NEXT-TRANSFER...
;GET.NEXT.RECORD.
Ji0
579
004352
580
004852
CALL.
LOADOX.
;LOAD.0EX MEMORY ?IA MICROCODE
581
cr,"")
EXIT-
c1-17
584
0047.56
585
0043513
012745
000040
NOV.
*OSCLRfi-(SP)
;CLEAR.PPS
585
004352
CALL.
PPCR
;WRITE.TO.CONTROL.REGISTER.
07
,
589
004355
004376
105067
175224
1"-LOSE$
CLRB.
*INFD-B.
INDHB-A14FVER.
;RESET?FILE.VERS I ON .HUMBER.::
590
004402
AAR1B7
176326
JMP
CON.
Approved For Release 2005/07/12 :
LOADER MACRO M1110 27-MAR-GO
592.
597,
594
595
595
597
598 8114485 012767 080845
599 004414 015757 173430
500 004422- 016757 173424
501 004470 111111411
(2.82.804472. 012757 888845
587 004440 015757 173410
504 004446 016757 173404
505
505 804454 885857 177504
507 AA4450 005057 173476
688 004454
509 11114470 005257 177470
510 004474 026757 174525
511 004502. 103370
612.
513 AA45A4
514
515 004522.
515 804525 183437
617 004530 012705 0007.72'
618 894534 812704 nAnzten
519 004540 882(5( 000801
520 004545 001012.
621 004550 052757 80017181
522.804556 015557 000002
623 004554 052705 000804
524 004570 152704 000002
525
526 81714574 012557 173364
627 A04500 812557 173355
528.004.504
629 00461A 085757 173340
530 004514 0014.04
531 004515 152704 AAAA82
572.004.522. 007754
533 004524 000775
534
6.35 004525 U12746 Urr?r
635 804572.
577 004.535 012745 AAAA40
578 884542.
579
540 004645
641 004555 105057 175754
542 004662. 000157 176046
14:59 PPI-F...47)
Approved ror Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
; FAL.POINTER.MEMORY.
FAL.COUNTER.MEMORY.
173526 FP: MOV. *O$FP,CODE.
175204 MOV. LFP,INDNB+N,,FMAM.
176200 MOV. LFP4-2,INDNBA-N,FNAM+2-
BR FAL.
177582. FC: MOV. 00$F5:,CODE.
175150 MOV. LFC,INDNB+N;FNAM.
176154 MOV. LFC+2,INDNBi-N:FNAM+2.
FAL: CLR. ADDR
CLR. DATA
1$: CALL. ONEFA.
INC. ADDR
173462. CHF. FAHIGH,ADOR.
AHIS. 1$
OPEN$R. *INFDB.
25:' CALL. GET.
BC5 FAX.
MOV *IHLIME,R5
NOV *256,,R4
173402-BIT. *FIRST,SELECT.
BNE. 3$
173372. BIS *FIRST,SELECT.
177778 MOV 2(R5),LCOUNT.
ADD *4,R5
SUR 02,R4
3$: MOV. (R5)+,ADDR-
MOV. (R5).1-,DATA-
CALL. ONEFA.
DEC. LCOUNT.
REO. FAS.
s *,2,R4
BGT. 3$
BR 2$
FAX MCW. *077777,-(9P)
COLL. STOP
MOV-#O$CLR,-(sP)
CALL. FRCP
CLOSE$ #INFDB.
CLRB. INDNB+N..FVER.
JMP.
! I
;SET.MEMORY.CODE?POINTER.
;PLACE? FILE.NAME.INTO.INPUT.DNB.
;SET MFMORY.SELECT.CODE = COUNTER.
;PLACE FILE NAME INTO INPUT DNB
;5TART.ADDRESS?AT.ZERO.
;CLEAR.DATA.MEMORY.TO.:ERO.
;WRITE.1 WORD.OF-FAL POINTER.MEMORY.
;BUMP.TO.NEXT.ADDRESS.
;CLEARED.ALL.OF.MEMORY.?.
;NO, DO.NEXT.LOCATION.
;READ A? RECORD
;ERROR, EXIT
;POINT TO RECORD READ
;NUMBER OF WORDS IN RECORD (MAX)
;FIRST TIME THROUGH
;NO _ = ,
;SET FLAG FOR FIRST TIME THROUGH
;GET HUMBER OF DATA WORDS
;BUMP PAST COUNT
;SUB FROM TOTAL NUMBER OF WORDS IN RECORD
;GET MEMORY ADDR FROM RECORD
;GET DATA FROM RECORD
;LOAD ONE HEMORY.LOCATION
;SUB FROM OVERALL COUNT
;FINISHED
!:._:;OE-1 FROM TOTAL WORDS
DO NEXT
;READ NEXT RECORD
;HALT .CODE
;LOAD.00L.POINTER.
;CLEAR -PPS
;RESET.FILE.VERSION.NUMBER.
?
4,ta,
.1Wrra4.1M,ICM.tWr"77.>.. er.
if 14 '
?
Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
440
4.
-E ?
p.
LOADER. M41,-M1110 27-MAR-B0 14:59 PAGE?13
Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
544
645
546
547
648
OLB.REFERENCE.PAGE.
649 054655
OR:
550 004555
005057
173272
CLR.
AD DR
551 004572-
805057
177254
CLR.
DATA
552.004575
1$:
CALI ?
ANEOR.
553 004702
005257
177256
INC.
AD [i
654 004706
025757
174420
173250
CMR.
LHHIGH,ADDR.
655 084714
107770
BHIS.
is
656
557 004715
815767
177175
175702.
MO,.
LOR,INDHEAHI,FNAM.
658 004724
016767
173132
175675
MOV.
LOR-4-2,INDNB-FH,FHAM-1-2.
559 004772-
OREN$R.
#IHEDB.
650
651 004750
2$:
CALL.
GET.
562 004754
103437
BCS.
ORX.
553 004756
012705
888722'
#INLINE,R5
654 004752.
012784
000400
MOV.
0.2,55?R4
665 004755
032757
AA0AA1
177154
BIT.
oFIRST,SELECT.
666 004774
001012.
BNm.
3$
bb( 804(7b
052(6(
VIM11I1111
173144
BIS.
#FIRST,SELECT.
558 005004
015557
0510002
173142.
MOV.
2(R5),LCOUHT.
669 005012
052705
1301i004
ADD.
41.,:!.. 115
670 005016
162704
000002
SUE:?
42,R4
571
672.005022
012557
173136
3$:
Mn
(R5)?,ADDR.
673 005025
012557
173138
MOV.
(R5)+,DATA.
674. 005832-
CALL.
ONEOR,
575 AA51175
005757
177112
DEC.
1._I I..:
575 005042
80141714
BEO.
ORX.
677 A1J5044
162704
AAAA82
SUR.
*2,R4
578 005050
003354
BG T.
72:$
579 8855152
888775
BR
2$
68A
681 005054
ORX:
602.005054
012745
1:100013
MOV.
*O$OHLT.,-(SP)
683 005060
CALL.
PPCR
684 005054
012745
800048
MDV?
44,0$CLR,-I',SR)
555 555870
CALL.
PPCR
bi:l 11
bUt FI1351374
CLOSES
*IHFDE-1.
588 005104
105057
175526
CLRB.
INDHEI-FH:FVER.
599 0051113
0A0157
JMR.
COM.
;START ADDRESS AT ZERO
;CLEAR DATA MEMORY' TO ZERO
;WRITE 1 WORD OF SILO REF MFMORY-
;BUMP TO NEXT .ADDRESS
;CLEARFD ALL OF MEMORY.?
;WO, DO NEXT LOCATION
.:PLACE.FILE. AME.INTO.INPUT.DHB.
;READ.A.RECORD.
;ERROR, EXIT.
.:POINT.TO.RECORD.READ.
.:NUMRFR?OF WORDS.IN.RECORD.( OX)
;FIRST.TIME.THROUGH.
;HO.
;SET.FLAG.FOR.FIRST TIME THROUGH.
;GET.HUMBER?OF.DATH WORDS.
;BUMP.PAST COUNT.
;SUB.FROM.TOTAL.HUMBER.OF.WORPLI_LI!F2REIlii7,
?
;GET HEMuRY ADDR FROM RECORD
;GET DATA FROM RECORD
;LOAD OHE MEHORY.LOCATIOH
;SUS FROM OVERALL COUNT
;FINISHED
;SUB-FROWTOTAL.WORDS.
;DO.HEXT.
;READ.NEXT RECORD.
HALT CODE
;CLEAR. PRS
;RESET .FILE vERSIOH.NUMBER.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER. MACRO M1110 27-HAR-80 14:59p PAGE .14
Ap rovea ror Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
591
592
593
594
595
595
597 005114
OA:
b,..ju 1.11.1!,114
599 00512A
AA5124
U12746
HMMIMM
700
701 005132
A16767
016767
172734
172730
175474
71717, 017-15i4n
nnn425
70 A
7 515142
01:
704 005142
A12746
AAAnni
705 005146
706 005152
015757
172712
175446
71717 1-1051F,O
016757
172706
175442.
(HH 005156
AAA412
709 115151751
02:
71.0 AO5i7O
012746
AFIRFIA2
711 005174
712 An5200
015757
172670
175420
713 005206
016757
172564
175414
714
715 5105214
0515057
172744
OLE::
715 00527n
AA5057
172736
717 005224
1$:
710 005270
AA5257
172730INC
719 005274
A25757
174072
172722.
720 0A5242
107770
721
;
722.005244
-7'17
fL.;..
724 AA5252
2$::
725 005266
103437
726 OA527A
01:7:15
AAA7.2.27,
727 005274
0127A4
ARA40A
OLB.PAGE.0
OLB.PAGE.1
0L8.PAGE.2.
MOV? LOO,INDNB+NLENAM. ;FLACE.FILE.NAME-INTO.INPUT.DNB.
Mr.W. #0,-(SP) ;SELECT.PAGE.0
CALL. SELPG. ;SELECT.A.OLB.PAGE.
175470L00.1-2..INDNB+N:FNAM+2
OLB
.-.'"3'?
.
MO V ? *1,-(SP) ;SELECT.PAGE.1
CALL. SELPG.
MOV? L01,INDNB+N,FNAM. ;PLACE.FILE.HAME.INTO.INPUT.DHB.
MCW? LU i?2. FHAM+2
:.
BR OLB.
mov? #2,-(5;F.) :.'11.LFCT.OLO.PAE-'.d.
CALL. SELPG.
MOV? L02,INDNBI-N;FHAM. ;PLACE.FILE.HAME.INTO 11 IT.DNB.
MOV. L0?-1-2,INDHB-FH:FHAM.1-2.
CLR. ADDR ;START.ADDRESS.OT.ZERO.
72A.A053A0
729 005306
770 005310
731 005715
- J757
001012.
Rh2757
015557
AAAA01
R muR01
5151A002
172642.
1(26.6z.
172630
732.0A5724
052705
000004A
7:7, AA5A70
11527U4
OCIO002.'
734
775 0053.4
012557
172624
736 005T0
012567
172616
737 005344
7AR A A
51R7i5
AA5F"..
A7
17 2500
733 005754
301404
74A 005355
162704
AAAA02
741 005362
003354
742.005754
05177ff5
743
744 005755
OBX:
745 005356
01274.5
000013*O$OHLT,-(SP)
745 005772.
747 RA57-175
012746
ARRA4A
CLR. DATA ;CLEAR.DATA.MEMORTO.ZERO.
CALL. ONE0 IF 'TE WORD-OF.OLB PAGE.A MEmoRv -- -
ADDR ;BUMP.TO.NEXT.ADDRESS.
.
CMP. LHHIGH,ADDR. ;CLEARED.ALL.OF? MEMORY.-
OHIS. 1$ ;HO, DO.NEXT.LOCATION.
OPEN$R. *INFDA-
CALL. GET. ;PEAD.A.RECORD.
BCS. OBX. ;ERROR, EXIT.
MOV. *INLIHE,R5
MOV. *255.,R4 ;ROINT.TO.RECORD.RFAD.
;NUMBER .OF WORDS.IM-RECORD.(MW,-
BIT. *FIRST,SELECT. ;FIRST.TIME.THROUGH.
BK. 3$
BIS. *FIRST ,SELECT. =T.FLAG.FOR.FIRST.TIME.THROUGH.
MOV. 2(R5)?LCOUNT. ;GET.HUMBER.OF.DATA.WORDS.
DD ;P.PAST COUNT.
.
BUM
SUB. ZH,2 ;SUB.FROM.TOTAL.NUMBER.OF.WORDS.IM RECORD-
3$:(15)
'::RSI:' +.
rN-1111-1':::: i (R5)+,DATA.
DEC
CALL. =
HT,
?
BFO. OBX.
SUB. *2,R4
OCT. ...
BR .-..,?
? ? ' 4RmuirraBg1707MTNINTWAYW 4iVri.r,',,,W PW
I90....n.4..
n' I'.1_' L.
;CET MEMORY ADDR FROM RECORD
;GET DATA FROM RECORD
;LOAD ONE MEMORY.LOCATION
;SUB FROM OVERALL COUNT
;FINISHED
;SUB FROM TOTAL WORDS
;DO HID!.T
;READ NEXT RECORD
--17k77.77,W4
PPCR
m ';' '''74I "'"11 '''4,11.''''''l
00$CLR,-(SP) .. ,
.
Approved For Release 2005/07/ CIA-RDP85-00514k042660--3000.1.-2
?
LOADER ? MJ.M1110 27?MAR-80ror
14: cif! PArE...,
Approvea Kelease 2005/07/1.IA-RDP85-00514R000200030001-2
74.3 005402.
749
75A FIFIF,4Ala-,
751 005416 105057 175214
r5z.005422 1.1001F.7 175:7;Af;
CALL. PPCR
CLO!;E$ 0IHFDB
CLRO IHOMB-FH:FVER
JHP COM
;RESET.FILE.VERSION.NUMBER.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER MACRO M1110 27-H121R-80
754
-v=c
756 51515425
757 017.15426 PIA9n57 172526
758
759
7F.F1
761 005432.
762.005432. 012745 000001
763 005436
it4 005442. 016746 172506
765 005446
766 005492.
767 005452. 016746 172454
768 005455 055716 172475
769 005462.
770 005455 005046
771 005470
772 005474 005267 172460
773 8055AA 026767 172454
774 005506 002761
775 AA551A AA5171F.7 172444
776 009514 005357 172434
777 00952A
002344
77
f 0
779 0055i2.
780 005540 015757 172412
781
7R2
(ELI
784 005546
7R5 A05.546
7R6 005552. 103460
787 005554 012705 000322'
788 005560 012704 000400
7R9 RA5564 032767 000001
790 005572.
791 005574 A52767 000001
792 009602. 015557 000002
793 AA5610 A62705 000004
794 005614 152704 AAAAA3
795
796
797
79R
799
800 005620
RA1 A05620 025757 172334
802 .005626 001014
A03 AAs630 005767 172320
804 005634 003427
RA5 005636 012746 000001
806 005642.
AA7 005646 009067 172305
RA8 005652. 005357 172275
809 805555 000410
R10 009660
)111
14Ap59 PAGE i5
proved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
SUBDOCUMEHT.PROCESSOR.NEMORIES.
SPLOAD:
CLR RCOUNT.
CLEAR-MEMORY
SPCLR:
MOV? *S$LA,-(SP)
CALL. L: El
LCOUNT,-(SP)
CALL. LBSP
1171$:
CODE,-(RP)
ADD. SCOUNT,ASP.
CALL. SPCR
CLR. -(SP)
CALL. LBSP
INC. SCOUHT.
172450 CMP. SCOUNT,WCOUNT.
BLT. 10$,
CLR. SCOUNT.
DEC. LCOUNT.
BGE. SPCLR.
OPEN$R. *INFDB.
172412. WCOUNT,SCOUNT.
GET.HEXT.IHPUT.RECORD.
SPHEXT:
CALL GET
BCR SPX.
MOV *INLINE,R5
MOV *256.,R4
172396 BIT *FIRST,SELECT
BON
172345 BIS *FIPST,SELECT
172344 MOV. :7-Rti7L.COUHT.
ADD *4,R5
RUB *2,R4
LOOP.THROUGH RECORD AND EXTRACT.
WCOUNT CO NTAINS NUMBFR OF DATA
FIRST?TIME THROUGH, RCOUNT IS INITIALI7FD
SPLOOP:
172330 CMP. SCOUHT,WCOUHT.
BHE. 10$
TST. LCOUNT.
BLE.
MOV. *S$LA,-(SP)
CALL SPCR
CLR. SCOUNT-
DEC. LCOUNT.
20$
10$:
Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
? ?
;INITIALIZF-PAGE.INDEX.
;SET.ADDRESS.SELECT.
;SET.ADDRESS.
;SET.MEMORSELECT.CODE.
;ADD.PAGE,INDEX.IF.APPLICABLE.
;ZERO.TS.MEMORY.VALUE.
;BUMP PAGE INDEX _
;ALL WORDS AT THIS ADDRESs CLLAKED(.
;BRANCH IF NOT
;RESET PAGE INDEX.
;NEXT.LOWER.ADDRESS? -
;ZERO .IT.
;OPEN.INPUT.FILE.
;INITIALIZE.SCOUNT.
;READ.A.RECORD.
;ERROR, EXIT-
;POINT.TO.RECORD.READ.
;NUMBER.OF WORDR.IN.RECORD (MAX)
;FIRST-TIME.THROUGH?
;SET,FLAG.FOR.FIRST.TIMETHROUGH.
;GET-NUMBER.OF.DATA.WORDS.
.011M0 or,c-m 1nHm7
"L'LIIII 'I fl_i! 1.1111111
;SUBTRACT.FROM.RECORD.WORD.COUHT.
ADDRESS AND DATA
WORDS PER ADDRESS VA1 UE
TO WEOUNT
;ADDRESS OR DATA NEXT?
.'..BRANCH-IF DATA
;ALL ADDRESSES BEEN LOADED?
;BRANCH IF SO
;SET ADDRESS SELECT
A L. 1 qi4;Rgr*:'IPiVfin'
;GO.TO.ESTABLISH.ADDRESRv!
1.1.
. 7
? ? .;:t
h:-'A --- "11
'
? ?
1101111111111
LOADER. App-M1110 27-MAR-80
Z9 PAC,'F. 45 1-
14 pr
'Apovecfra Kelease 2005/07/1OCIA-RDP85-00514R000200030001-2
811 005660
016746
172256
?
MT,/
CODE,-(SP)
;SET MEMORY .SELECT CODE
812.005664
813 81115670
066716
172270
ADD
CALL
scouHT,@SP.
SPCR
; ADD PAGE INDEX. IF APPL I CABLE -?,
814 005674
005267
172260
INC .
SCOUHT.
;SET.NEXT.DATAHJORD.INDE
815 005700
2A$:
816 n057An
012546
MOV
(R5)+,-(5P)
;FETCN?LORD.FROM.INPUT.RECORD.-_77:-
817 005702.
CALL
LBSP
818 01715705
005704
DEC
R4
;DECREMENT REnORD.WORD.LOHNT-
819 005710
003343
BGT
SPLOOP.
;PROCESS?NEXT!WORD.IH.RECORD.
820 005712.
000715
BR
SPH EXT.
;READ.NEXT RECORD.
821 005714
SPXz
R22.0A5714
CLOSES
*IHEDB.
823 005724
105067
174706
CLRB.
INDNB+H:FVER.
;RESET.FILE.VERSION.NUMBER.
824 005730
RETURN.
?
LOADER ? MACRO. M1110 27-MAR-90 14:59 PAGE?J
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
A2A
R27
020.
82g
R7A
831
00572,7-
E
IT:
032
005732.
01F,737 172050
000274
833
005740
834
005744
835
8:2A'
005756
hAll.HHUKHM
MOV. OLDVEC..0*274
CALL. EHDTST.
SETF$S. *EFH.33
ESIT$S.
;RESTORE.ORIGINAL.VECTOR.COHTEHTS
.:PUT.OUT.EXIT.MESSAGE.
;SET.GLOBAL.EVEHT-FLAG.
Approved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
LOADER. 141,411118 27-MAR-80 14:59 PAGE..17
Approved ror Release 2005/07/10CIA-RDP85-00514R000200030001-2
?
938
839
B4A
841
842
843
844
845
845 005754
e47 A05764
848
84g AARAAA
RRA AARRA4
AF--11 06617110
852.17106814
853 006016
854
R55 006022.
5:55 AARffR
815785
A127rm
85171811
Affirm?.
172800
AFJOAA3
;
BPTISP:
IHTERRUPT.SERVICE.ROUTINE.
TRAP.INTERRUPTS.FROM.NOR.THROUGN VECTOR.ADDRESS.274
SET.EVENT.FLAG.3
CP DEBUGGING ROUTINES.WILL.READ.CSR.#2-AND DECODE.TNE.INTERRUPT.
SAVE. RA,R1,R2,R3,R4,R5
MOV. TSKTCB,R5 ;LOAD.MY.TCB.
MOV. *EFH.3,R0 ;EVEHT.FLAG.TO.BE.SET.
CALL. $CEFI.
BIS. R0,(R1) SET LOCAL FLAG.
CALL. SDRDSE. ;DECLARE.SIGNIFICHNT EVENT.
RESTOR. RO,R1,R2,R3,R4,R5
RTI.
_
Z..
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
?%7
LOADER. MACRO.M1110 27-MAR-80 14:59 PAGE.18
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
07'7.
I 4-
873
874
R75
R75
R77
878
R7R
RR8
881
8R2
RR:2,
884
RR5
R85
RR8
889
RRO
891
ocrn
A97.
894
095
895
A97
898
R99
9AA
91711
005040
005040
0051144
nn6n5n
01715054
AnfITIFFI
005054
1711716070
AA5074
0n5inn
005112
005115
005122
005125
005132
AAF.Fz.5
005142
nAF.144
005144
005150
006154
006150
OFIF1F.4
005170
El 05174
AAF,2AA
AAA2A4
015745
016746
015745
012746
012746
015746
012746
015745
012745
015746
012745
172120
172055
172875
AAAA4A
000'7155
172046
AnAnni
172024
000053
17217104
AARA54
0167415 171752
ONEFA:
ONE OR
ONE O:
LOAD,ONE.WORD.OF.FAL.POINTER.OR.COUNTFR.MEMORY.
NOV.
CALL.
MOV.
CALL.
CALL.
MCN.
CALL.
RETURN
ADDR,-(SP)
STOP
CODE,-(Sp)
PPCR
DATA,-(SP)
LBPP
4POSCLRp-(SP)
PPCR
;LOAD.ADDR IHTO.00L.POINTER.
;SELECT MEMORY
;WRITE SELECTION TO CONTROL REG
;SEND DATA WORD TO FAL MEMORY
LOAD.ONEWORD.OF.OLB.REFERENCE.PAGE.
MOV.
CALL.
MOV.
CALL.
HOY,
CALL.
MOV.
CALL.
RETURN
#OSOLA,-(SP)
PPCP.
ADDR,-(SPI
LBPP
(SPI
PPCR
DATA, -(SP)
LB PP
LOAD.ONF.WORD.INTO.OLB PAGES.
CALL.
MOV.
CALL.
MOV.
CALL.
MOV.
CALL.
RETURN
14,..0$0LA,-(SPI
PPCP
ADDR,-(SP)
LBPP
*O$OLE1,-(SP)
PPCR
DATA,-(SP)
LBPP
;ADDRESS SELECT FOR OLB PAGE
;SEND TO PP CONTROL REG
-
;ACTUAL ADDRESS
;SEND TO PP
;SELECT OLE REF MEMORY
;DATA .WORD FOR.MEMORY?
;SEHD.DATA TO.PPS.
;ADDRESS.SELECT-FOR.OLB PAGE.
;SEND-70.PP.COHTROL.REG
;ACTUAL.ADDRESS.
;SEND-70.PP.
;SELECT.OLB.REF.MEMORY.
;DATA. WORD FOR .MEMORY.
;SEND.DATA TO.PPS-
Approved For Release 2005/07/1OCIA-RDP85-00514R000200030001-2
d
LOADER Arlin? 27?MAP-80 14:59 PAGE 19
Approved For Release 2005/07/111LA-RDP85-00514R000200030001-2
910
911
912
917.
914
005205
GET::
915
IDAQA1.
91f;
005254
10317105
917
AAR7,51;
916
006262.
919
0171F,21cA
F100421
920
92i
ARS27A
1$:
922.
927;
934
005314
105757
171514
9'7'5
0063217i
110:1.AA
326
005322.
927
AA67,2F,
928
575
Finn21;1
GETSX:
97:0
006334
0004172,
931
AA6331c,
005257
171570
GE TCX
97,2.
AAr:;342
000241
933
005344
GET:.:
READ
FILE-NAME-BLOCK.PRE?INITIALIZED-
OUTPUT:.
C?BIT-CLEAR-
C?BIT.SET.
READ$
BCC
CALL
CALL
BR
? GOOD READ.
? ERROR.ON.READ.
*INFDB, ..*VIRT,*EFH.1,*STAT-
1$
ERRE'
ERHAME.
GETSX-
WTSE$S. #EF1..1.1
CLEF $S.
TSTB-
BGT-
CALL.
CALL-
*EFH.1
STAT
GETCX
ERRS
ERNAME.
SFC.
BR GETX
INC. VIRT+2.
CLC-
RETURN.
;TELL-WHICH.FILE-WAS.IN-ERROR-
;GOOD-COMPLETION.
_
;TELL?WHICH-FILE.WAS IN-ERROP-
;INC-BLOC< COUNTER.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER MACRO M1110 27-NAP-20
935
97,6
937
A3A
q7-3q
940
14:59 PAGE."'0
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
PLACE.A.WILUE.INTO HOR CONTROL.AND.STATITR.RFGISTER.*1
READ CSR1 IHTO A WORK AREAA CLEAR BITS AT 4(SP), SET
BITS AT 2(SF), RE-WRITE CSRI FROM WORK AREA:
941
INPUT:
942
2(SP)
BITS TO.BE.SET
943
4( SP)
BITS TO.BE.CLEARED.
944
945
946 rin345
CSR1::
947 006346
016767
176420
171576
MOV.
OR$CR1,APLACE.
;OFT.THE.CURREHT.VALUE.
948 006754
046667
000004
171570
BIC.
4(5P),APLACE.
;CLEAR.FIRST.
949 006362.
H554-57
UHMI1M2
171562.
BIS.
2(SP),APLACE.
:THEN SET
q5A A06370
01.6767
171556
176420
MOV.
APLACE,OR$CR1
;NOLLRETURN.IT.
951 006376
011666
000004
MOV.
(SP),4(SP)
;MOVE.RETURN.ADDR.TO TOP-OF.STACK.
952.006402
022626
CMP.
;BUMP? STACK.POINTER.PAST.ARAS.
953 006404
RETURN
7.SPLIT.
1.47-
- izZITTIrrOPP7776777777"'
? Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
LOADER. Milif.M1110 27-MAR-20 1440= uT,
o. or Release 2005/07/110CIA-RDP85-00514R000200030001-2
955
955
957
950
959
960
ciF.1
952-
955
954
955
966
957
950
959
970 006405
SCAN:
971 A05406
AlR545
972005410
010045
973 006412.
010145
974
975 01715414
011501
FHOUT1:
976 005416
01271715
00017102
977 AA5422-
122122.
FNIN1:
970 005424
A01003
979 AA5425
AA5-2.A-2.
9RA AA543A
17117-0.72.74
901 A06472
000411
502 005434
050302
FHOUT2:
903 00E.436
005202 ?
9E14 A05440
01715717111
qA9 RAF442
0A1354
906 005444
A12601
957 AA5445
1711:7' 60 O.
980 005450
01250:3
909 006452
A Fi 0251
990 005154
991
992 005455
17110201
FNMTCH;
597. 0054.50
A52705
ACIA002'
994 005454
012602.
995 005455
150002
955 006470
010200
99( AA5472
A126A3
990 005474
080241
999 005475
SCAN.A.TABLE FOR -.VALID.COMMAND/MHEMONIC.
INPUT:
RO ?NUMBER.OF.ENTRIES IN.COMMAND.TABLE.
RI -> CHAP.STRING?IN?GCML.COMMAND.LINE.
TOP.OF COMMAND.TABLE.
ONTPUT:
Ri -> ROUTINE.THAT.GOVERNS.THE.COMMAND.(IF MATCHWAS mADE)
R1 -> CHAR.STRING.IN.COMMAND.LIHE.(IF.NO.MATCH.WAS.MADE)
PO .?PELATIVE.POSITION OF.MATCHED.ENTRY.IN TABLE.
MO .
MOV ?
MO V ?
MOV.
MOV.
CMPB.
BHE.
DEC.
BNE.
BR
ADD.
INC.
DEC.
BHE.
MOV.
MOV.
MOV.
SEC.
RETURN.
MOV.
ADD.
5UB.
MOV.
MOV.
cLr.
RETURN.
R0,?(5P)
(BP),R1
#2,PS
(R1)+,(R2
FHOUT2.
R3
FHIN1
FHMTCH.
R3,R2.
R2-
RA
FHOUTI
(SP)+,P1
(5R)+,R0
R2,R1
02,SP.
(BP)+AF52.
RA,R2.
R2fiR0
" 7 7
1
; A ? R3
SH E? o ? ENTPIF'-
A E? P0111161- ? Tr.r. EEOHLHG OF ? TR I NG ?
;POINT TO NON-BLANK IN?COMMAND LINE.
;NUMBER OF CHARS IN NON-BLANK FIELD
;DOES COMMAND LINE HATCH TA OLE ENTRY
;HO, TRY HEXT TABLE ENTRY.
;5US FROM LOOP COUNT
;COMMAND.FOUHD.IN.TABLE.
;ADD.o.UHCOMPARED.CHARS.TO.POINTER.
;THEN . ADJLIST Tfl . NEXT rifiLIEENTRY.
;5UB.FROMOUTER.LOF
ITRY,AGAIN
;RESTORE.POINTER TO.COMMAND LINE.
RELOAD P0
RESTORE p3'
;COMMAND?NOT.IN.TABLE.
;POIHT.R1 AT.RTN.ADDR.IN.TABLF
;POIN1.TO.INCOMING.R0 ON .3,
IGFT.TOTAL *.TABLE.FNTRIE5.
;GET.POSITION.OF.MATCHED.ENTRY
;PUT.IN.P0 FOR .RETURN. _
;RESTORERS.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
LOADER MACRO MI110 27-MAR-80 14:59 PAGE 72
Apprvoed For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
1001
1002.
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012.
1013
1014
1015
1A1F.
1017
1018
1n19
1020 13l1r.51313
FIND:
1021 006500
010245
1022-005502-
016701
171510
1023 0AF513F.
001440
1024 005510
015702.
171504
1025 005514
122712:
AAAR4A
1$:
1026 006520
001403
1027 AFIF,922
122712.
000054
1028 006526
001004
1021 01716570
005202.
10$:
1030 006532
005301
1031 001:-.534
001357
1032 R05575,
000424
1033
1034 006540
010246
2$:
1035 005542
005000
11.171.=; 006544
122712.
AAA040
3$:
1037 17.11715950
001407
1038 006552
122712-
000054
1039 O01.=.55f=,
00 1404
1040 005550
005202.
1041 005552-
005200
1042.005554
005301
1043 AF155[:75
001355
11144
1045 AAF.57A
010267
171524
1046 006574
010167
171516'
1n47 AAFAAA
A121;1711
104.17-1 17.117-1F,502.
012502.
1049 005504
000241
1050 005505
1051
?
1052.00610
012502.
FSECX:
1053 001.7..612000251
-
1054 00(.7514
?
FIND.THE.NEXT.N0H-OLANK.IN.THE-COMMAND.BUFFER:
THEN.FIND.THE.LENGTH.OF.THE.STRING.THAT-STARTS WITH.THAT.CHARKTER
INPUT:
GCMLEN - HUMBER OF UNPROCESSED BYTES IN .COMMAND LINE
GCMPNT - ADDR OF NEXT UNPROCESSED POSITION IN COMMAND LINE ---
OUTPUT:
R1 -> STRING, RO.-.LENGTH.OF.STRING.
GCMLEN, GCMPNT.UPDATED FOR.NEXT.ENTR'('. INTO THIS ROUTINE.
THIS .ROUTINE IS.DESIGNED.TO.BE.ENTERED.A.NUMBER.OF.TIMES.
IN THE.PARSING.OF.A.00MMAND.LINE. THE.FIELDS.GCMLEN.AND.
GCrPHT.ARE.REFRESHED.WHEH.A.HEW.COMMAHD.LIHE.IS.READ
(SEE.THE.MESSAGE.PRIHTIHO/PROMPTIHS.ROUTINES).
_
-
MOV. R2-SP) ;SAVE.R2.
Hit
GCMLEN,R1 ;#.BYTES.REMAIHING.IN COMMAND BUFFER
*40
2 L FOP A LI:.
1iE.I. ,(R) ;OOK...B _
GuMPNT,R2.
.7,LOAD C
.URREHT-POINTE
:"
DEO. 10$ ;OK, BUMP.TO.HETT.c.HR.
CMPO. #f, (R2) J:COMMA.IN.COMMAND.LpE,
ONE. 2$ ;TREAT.COMMA.AS.BLAHK.-''
DEC. RI ;SUB.FROM.REMINI . EHGTH. '
IHC. R2. ;BUMP.POIHTER.
-1
FSECX.
,1THERE.ARE NONE.
1R
BHE.
1$
BR
FSEC-!
MOV. R2, --.!..SP)
CLR. RO
CMPO. #40 (R2)
DEC!. 4$
CMPB. 4?, (R2)
BEG. 4$
INC. R2.
IHC. PS
DEC.
3$
BI--IE
MOV.
MOV?
MOV?
MCW?
RETURN.
NOV.
SEC.
RETURN.
R2,GCMPNT,
R1,GCMLEN.
(SP).1-,R1
1*-10.HON-BLAHK-FOUND.
;TEMP.SAVE POIHTER.TO.BEq; IHIHS.OF.!=iTRIHr:;-
;CLEAR.CHAR.COUHT.
.:LOOK.FOR.A.BLANK.
.:FOUND.END OF.STRING
TREAT.COMMAS.AS.BLANKS.
;BUMP.POIHTER.
E-:'dJMP.CHAR COUNT
;SUB.FROM.EYIES.RENC.flHIHO.
;SAVE.POIHTER.FOR-HEXT.TIME.
;SAVE.BYTES.REMAIHIHG.FOR.HEXT TIME.
;POINTER.TO.BEGINNING.OF.5TRING-
7.REqTORE.R2-
(SP)+,P2- ;RESTORE.R2.
Approved For Release 2005/07/1.1A-RDP85-00514R000200030001-2
LOADER. M?0.M1110 27-MAR-80 14:59 PAGF.33
Approved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
1055
1057
intiR
1059
1050
1061
1052.
1050
1054
1065
1066
1067
1066
105c.i
1070
1071
1072.
0[7.1f1-61
PACrO:
1073
805615
022700
UMHMMH
1074
005522.
AA2414
1075
006624
010146
117-17
005525
AF.001r=,
112177
0066.7.0
010 100
1A7A
00667.2.
1079
005636
17057.1A0
lARA
006649
020026
1A81
006542-
00101714
10612
006644
010157
171276
1083
1AR4
005650
000241
PCLPX:
loR9
005592.
117195
605554
000251
RSPCX:
117187
006555
GONVERT.WOCTAL.ASCII VALUF.FROM.THE.COMMAND LINE.
INPUT:
RB ---ASCII.00TAL.STRING.CHARACTER.COUNT.
Ri -> ASCII.00TAL.STRING.
OUTPUT:
BINWD.
C-BIT.CLEAR.
C-BIT.SET.
COHVERTED.VALUE.
GOOD.CONVERSION.
ERROR.OH?CONVERSION.
RO, RI DESTROYED.
CMP
El Li
MOV
ADD
MOV
CALL
Ore.
ONE.
MOV.
CLC.
RETURN.
SEC.
RETURN.
#6,90
PSECX.
91,-(SP)
RO,(SP)
R1,RO
CHI!.
RA
PSECX.
R1,BIHWD.
.7.UPPER.LIMIT.1JH.00TAL.DIGITS._
:TOO .MANY. --
;SAVE.STRING.POINTER TEMPORARILY:
;:ADD.CHAR.COUNT.
?.;ET.STRING-ADDR.INTO.R0 FOR.SUORTM.
.:CONVERT?ASCII.00TAL
SUORTH.PUSHD7i.R0 1 TOO.FAR-
;FULL.STRING?CONVERTED.
0-Infi ERROR
Approved For For Release 2005/07/12 : CIA-RDP85-00514R000200030001-2
re..1 ?...wrts r
P.seta
22:. 4
r
LOADER
MACRO
M1110 27-NAP-80
14:'19Ap PAGE '4
proved For Release 2005/07/12: CIA-RDP85-00514R000200030001-2
1089
15190
1091
1.092.
LOAD.00L.POINTER.
1097
15194
?
1015
Finn
STOP;
11.1HH MIlhhhM
Ulheth(
mmmHm2
175424
MEN. 2(SP),OR$LBR.
;MOVE.POINTER.WORD.TO.LOD.BUS.REG.
1097 005555
A12745
001001
NOV. #,-(SP)
;CLEAR.DRIVE.AHD,PULSE.
1098 006672.
052715
000750
B16. *OSCSFL,(SP)
;CLEAR.SELECTION.BITS.
1099 005675
012746
176000*OSHCLK,-(SP)
;SET .HO-CLOCKS .
1100 005702.
::---211.1_1:-.' CSR
1101
1102 ;AA F,7AE,
AO5A45
-(SP)
;CLEAR.HOTHIHG
1103 005710
012745
AA17AA
MOV. o,-(SP)
;SELECT.PPS?AHD.SET.DRIVE.
1104 005714
CALL. CSR[
1105
1105
SET.FAL.LOAD
1107
1108 AR5;72A
11n9
012757
01714nnn
175422.
MOV. 41.015FAL,OR$CR2.
;SET-FAL.LOAD-
iiin
E 11-.e.H.CLOCK.FOR.P'F'S.
1111
1112.006726
012746
000001
MOV. *OSLAPfi-(SP)
;CLEAR.PULSE.
1113 005732.
052716
005000
BIS; *017;RHC.,(SP)
;CLEAR .PRS HO-CLOCK.
1114 006735
005845
CLR. -(SP)
;SET. NOTHING.
1115 006740
CALL. CSRI
1115
;
1117
;
TURH;OFF FAL LOAD.
1118
1119 006744
005067
175422
CLR. ORSCR2.
1120
1121
DE-SELECTION
1122
1123 0A5750
012745
0011101
MOV. *,-(SP)
;CLEAR ? DPI',,;?'P ? AHD ? PUL CE ?
1124 00F,754
052715
00072,50
BIS. *O$CSEL,(SP)
;CLEAR.SELECTION.BITS.
1125 005750
012745
176000*OSHCLK,-(SP)
;SET.HO-CLOCKS -
5
1125 00754
f..!1.ZL CSRI
1127
112R;11057711
171115FA
000002
MOV. (SP: 7 SP)
;MOVE.RETURH.ADDRESS DOLH.STACK.
1129 006774
005726
TST. (SP)+
;POINT.TO.RETURN.ADDRESS.
1170 005775
RETURN.
? Approved For Release 2005/07/10CIA-RDP85-00514R000200030001-2
-?-? .:: .. '''F'''.... :!..i, .
..
'4
LOADER M. M1110 27-HAP-20 14:5q PAGE "5
proved For Release 2005/07/1.IA-RDP85-00514R000200030001-2
1132
1133
1134
1135
1135
1137 0071300
ERNI:1HE:
113R 00711R1J
1139
1140 007130.4
012700
00l524
1141 00711110
A15701
173512
1142 0075114
1143 AA7020
015701
173604
1144 1113 (M4
1145
1145 007070
A127130
RAR120
1147 007034
012701
R01542'
1145 1313713411
122741
11131113413
1 ? :
1149 5107044
001007
1150 13137045
111135.31313
1151 007050
001373
1152.1111117052.
131313440
1153
1154 13117054
2$:
1155
1155
1157 A07172.
012701
001524'
1150 007135
112721
000040
4$:
1159 007142
005300
1150 007144
001774
1161
1152-007146
1153 007152.
1154
1165 007154
ABEND2z:
CONVERT- NAME OF.FILE.IN,ERROR.FROM-RAD -50 TO.ASCII?AHD.PRIHT,
EAvE
MOV.
MOV
CALL,
MU.,?
CALL
RO,R1
*PRINT,,R0
IHDHB+ILFHA1,R1
$C5TA.
IHDH5441,FNAM-1-2,R1
$C5TA.
MOV. *00. ,RA
Nov. 41PRINT+7
CMPB.
ONE. 2$
DEC. RA
ONE. 1$
1111111111111,
,R1
;RO - PRINT.LIME.
;R1 ?RAD -50 WORD.
;CONVERT.FIRST.WORD.
;SECOND.WORD.
;PRIN, LI_I
;POINT.PAST.END.OF-AUFFER.
;LOOK.FOR.A.HOH -BLANK.
LPITE LINE.
.',DEC-CHAR-COUNT.
;HO.HUH-BLANK!.=;?.
010W$S. *I04UVE1 LUH,TTfi*FFH: ?*STAT, *RRIHT-2,RA ABEHD2
MOV. *PRIHT,R1 ;ROINT.TO.STRING.
MO VB. -u 41 ;CLEAR.LINE.TO.BLANK5.
DEC. RO ;DEC.LOOR.CRUNT.
4$
RESTOR. 1111111
RETURN-
AORT$S,*MYSELF.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200030Q0.1-2
- C.1:474
LOADER. MACRO.M1110 27-MAR-80
1157
1168
1159
: 14 %ma cloaE..ae, japroveu i-or Release
41!. c7
?
2005/07/12 : CIA-RDP85-00514R000200030001-2
WRITE.TO.TTO AND PROMPT
1178
;
1171
?
1172.007205
0-85257
178732
EHDTST:
INC- ERWORD. .
-,?
1173 807212.
005257
170726
OUT 1:
IHC? FRWORD.
1174 007215
005257
170722
ERR6:
IHC. ERWORD. Z
14.75 087222.
005257
170715.
ERR5:
IHC. ER WORD.
1175 AA7225
0052F,7
1711712
ERR::
IHC. ERWORD.
1177 8A723R.
A05267
17171705
ERR2g:
INC. ERWORD.
1170 80727.6
885257
17071712
ERR1:
IHC. ERWORD.
1179
.
1180 887242.
NESTOR:.
1181 007242.
8052F7
170575
SELMEM:
IHC' ERWORD.
1182.
AAOAA1
HEST.
?. -HLSTOP>/4
1103
.
1184
USE.THE.IHDEX.ERWORD.TO.COUHT.UP FROM-THE.BOTTOM-
1185
OF THE.MESSAGE.TABLE:, FIHD.THE.EHD.OF.THE.MESSAGE.
1186
FIRST, THEH?THE-BECIHHIHGfi THEH.GET.THE.LEHGTHL
1187
=
1188 887245
016702.
170672
MU,/- ERWORD,R2. ;LOAD LOOP COUNT
1189 08725?.
A12781
1.102150.?
MOV. *ASCIZ,R1 ;POINT Ti' END OF MESSAGE THOLE
1190 007i5
105741
1$:
TSTO. -(R1) ;LOOK FOP END OF MESSAGE
1191 007217.0
A017.76
ONE. 1$ 7
11.92 007252.
1193 A87254
005302.
AA17,74
gi R2. ;LOOP.COUNT.
1$ ;BACK.UP.AHOTHFR.MESSAGE. ,...
?
1194 007255
018188
MIU.,/. Ri,R0 ;SAVE.POIHTER.TO.EHD OF.MESSAGE.
1195 007270
105741
2$:
TSTS. -(R1) ;BACK.UP.TO.BEINHIHO.OF.MESSAGEi_.
119F An:272.
8A1375
BHE. 2$
1197 887274
AA52A1
IHC. R1 ;BUMP.TO.FIRST.CHAR.OF.MESSAGE
1198 007275
1199
1B0100
5UB. R 1 R0 ;RO HOW -MES SAGE.LEHOTH.
,
1?00 0073A0
OIOW$5. *IOWV-0,*LUN,TT,*EFN61?*STAT