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

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

Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
HIGH VOL. 4 OF 5
LISTINGS
HSTS SOFTWARE
Diagnostics
SPEED Part I
TEXT
SEARCH SYSTEM
NGA review(s) completed.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
Approved For Release 2005/07/12
HSTS MASTER COMPUTER SOFTWARE LISTINGS
SL120100
VOLUME 4 of 5
Prepared for:
Central Intelligence Agency
Washington, DC 20505
R80-016
March 1980
CIA-RDP85-00514R000200020001-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TNT-....MACRO.MItIO
2.
7
4
5
8
9
10
11
12.
13
14
15
16
17
18
19
20
21
1549proVeSMrRelease 2005/07/12 : CIA-RDP85-00514R000200020001-3
.^ LIST. MEB.
TERM.DETECTOR.MEMORY TESTS
MA IN
THIS.MODULE.EXECUTES.MEMORY.TEST CYCLES; ALL CONTROL
INFORMATION.FOR-A.TEST CYCLE.IS.OBTAINED.FROM.THE.
COMMAND LINE. TMT.BUILDS.TABLES.AND.SETS.FLAGS.IN.
ORDER.THAT-THERE-NEED.BE.HO.USER IHTERVENTIOH.DURING
THE.EXECUTIOH.OF.THE.CYCLE. THE.PROMPTS.FOR-COMMAHD-
LINE.INFUT.AHD.GEHERAL TMT.ACTION.ARE;
yr.
1. PROMPT.FOR.ALL-TESTSA ALL MEMORIES FULL RANGE
IF THE ANSWER IS 'Y' TMT.BUILDS.A.COMPLETE.MEMORY.
TEST.CYCLING.TABLEA THEWPROCEEDS.T0.5. (FOR.TOW4T-- -
STRUCTURE OF-THE.TABLEA SEE-BELOLLREF-TABLE.- CURRENT JUMP
TABLE).
IF.THE.AHSWER.IS.'W, PROCEED TO.2.FOR.MORE.SELECTIVE.PROMPTS.
22 2. PROMPT.FOR.MEMORIES TO.BE.TESTED.
23 TMT SCANS THE.COMMAHD-LINE.RESPONSE.AND SETS.8.FLAG.FOR.
24. EACH-MEMORYHINEMONIC.IT.FINDS.
25 0 3 PROMPT.FOR.MEMORLIMITS.
2f7. IF.A.MEMORY.WAS.SELECTED.IN.2 (IE. ITS.FLAG.WAS.SET),-
27 TMT.PROMPTS.FOR-HUMERICAL.VALUES.WHICH.DEFIHE.THAT.
28 PORTION.OF.A.MEMORY ON-WHICH.THE.TESTS.ARE.TO.BE.RUN: TMT
PUTS.THE-MEMORY.LIMITS.FROM.THE.COMMAND LINE RESPONSE ?
30 INTO.A.TABLE:
31 4. PROMPT.FOR.TESTS.
TMT.SCAHS THE.COMMAHD.LINE.RESPONSE.FOR TEST NI
7.'17
THEN A FOR' EACH.MEMORWHOSE.FLAG.IS.UPA TMT.BUILDS.A.
34 ENTRY.IH:THE.CURREHT.JUMP.TABLE.(SEE-BELOL).
35 5. PROMPT.FOR.LOOP.OH.TEST. ?
35 TMT.SETS.A.FLAG.THAT.DETERMINES.WHETHER A.TEST.CYCLE.
37 WILL.BE.EXECUTED.ONCE.OR.EXECUTED.REPEATEDLY.
72.H PROMPT.FOR.ERROR.OPTIONS.
39 TMT.SETS.FLOGS.WHICH.DETERMINE.WHAT.ACTION.WILL.BE.
40 TAKEN.IH.THE.EVENT.OF.AH.ERROR.
41 7. PUT.OUT.DIRECTIONS.FOR.STOPPING.TEST.
42. TMT.ALLOWS-THE.TEST CYCLE-TO.BE-INTERRUPTED.BY
43 AN.UHSOLICTED.CHARACTER.IHTERRUPT.FROM.THE.TERMIHAL.
44 R. TEST-CYCLE.BEGINS.
45 HO.MORE.PROMPTIHG:
46
47
49 REFEREHCE.TABLE.-.CURREHT.JUMP.TABLE.
49
51
52
57
THE.ACTUAL.EXECUTIOH.OF.A.TEST.CYCLE.DEPENDS.UPON.THE.
CONTENTS.OF.THE-CURREHT.JUMP.TABLE: TMT.FILLS.IN.THIS.
TABLE.BY.MOVIHG.ENTRIES.FROM.THE REFERENCE TABLE DEPENDING
UPON.WHICH.MENORIES.AND.WHICH.TESTS.WERE.SELECTED.
55,4e4
EACH.TEST.1 - 12.HAS.ITS.OLIWOMIrrterlaUTMETMM
51; THE.REFERENCE.TABLE.EHTRIES.ARE.THE.ADDRESSCS.OF.THESE.
57 ;
Approved For Release 2005/07/ CIA-RDP85-00514R00
CONTROL.ROUTI FOR.EACH.TE!;IA IHElig6pLE.Tki'BLE
UUU1-.5
411
11110.M1110Aripr PAG2-1
oved 'For Release 2005/07/1OCIA-RDP85-00514R000200020001-3 ,
58
59
60
61
52.
63
64
65
66'
A7
68
69
70
71
72-
73
74
75
76
77
79
79
80
81
84
85
86
97
88
R9
90
91
97,
94
q5
9F,
97
98
99
1051
1511
1.02.
1.03
104
105
106
iA7
108
eGNTAINS.IN.COHTIGUOUS POSITIONS THE.CONTROL.ROUTINE
ADDRESS.REPLICATED.A.NUMBER.OF.TIMES: THE.HUMBER.OF.
REPLICATIONS IS.EQUAL.TO-TNE.NUMBER-OF.MEMORIES.TAWf-
CAN-BE.TESTED-(IE, 6, THE.VALUE.OF-THE-EGUATE.'MEW).
SO, FOR.EXAMPLE., SINCE. THERE AE 6 NEMORIESA0,TEST:CS-
L;ONTROL? ROUTINE ADDRESS WILL BE REPEATED iH?THE?REFEREHCE.
TABLES TIMES
; WORD. Ti,T1,T1,T1,T1,T1
;
EACH ADDRESS HERE-IS-A PLACE-HOLDE.R.:TOF70fflEMORY:-THATIS
THE.FIRST.'T1' (POSITION.0) ISA PLACE-HOLDER.FOR.FSA-A,
THE.SECOND.?T1 (POSITION 1) I5.0-PLACE-HOLDER.FOR.FSA-B,
; THE.THIRD.(POSITION.2) FOR.FSA-C, THE.FOURTH.(POSITION.3)
; FOR.THE.INPUT.BUFFER, THE.FIFTH-(POSITIOH 4) FOR.THE
; OUTPUT.BUFFER, AND.THE SIXTH (POSITIONS) FOR.THE.BYTE.
; TRANSLATOR: THE.IDEA.HERE-IS.THAT.RATHER.THAN.HAVING SEPARATE.
CONTROL.ROUTIHES.FOR.EACH.MEMORY FOR.EACH.TEST, TNT4?CAH.
; MAKE.USE.OF.THE.POSITIONS.OF.ADDRESSES IN THE.TABLE:
THE.FILLING.OF.THE.CURREHT.JUMP.TABLE.TAKES.PLACE.AS
FOLLOWS: A.UHIOUE.FLAG IS.SET.IN A.FLAG.WORD.FOR.EACH.
MEMORY .WHOSE MHEMOHIC.TNT-EHCOUNTERS.IH.THE.COMMAHD.
LINE.RESPONSE.THE.THE.PROMPT."SELECT.MEMORIES'7. EACH
POSITION.IN.THE.FLAG.WORD.(0 - 5) CORRESPOHDS.TO.A.
MEMORY PLACE HOLDER.POSITION.IH.THE.REF.TABLE.AND.
; CURREHT.JUMP TABLE: EG. THE FLAG FOR.FSA-A IS IN
;
POSITION El IH.THE.FLAG WORD.AND.THE.PLACE-HOLDER.
POSITION FOR FSA-A-IS.0 (SEE ABOVE). THEN.FOR.EACH.TEST.
HUMBER.TMT.ENCOUHTERS.IN.THE.COMMAND.LINE.RESPONSE.TO.
THE.PROMPT.'SELECT.TEST(S)', TMT MOVES .THE ADDRESS.OF.THAT:
TESTS.CONTROL.ROUTINE FROM.THE.REF-TABLE.TO-THE.CURRENT '
.JL1MP TABLE DEPEND ING LIPON THE MEMORY FLAG E.ETTINGS iE TMT-
; SCAHS.THE.MEMORY.FLAG.WORD.AND.FOR.EVERY.BIT.SET.MOVES.
AN ADDRESS.FROM.THE.REF.TABLE.TO THE.CURRENT.JUMP.TABLE
EXAMPLE:
IF TMT.ENCOUHTERS.A.'1" IN.THE.COMMAND-LIHE.RESPONSE
"SELECT.TEST(S)' AND.THE.FLAGS.FOR.FSA-A.AND.THE?OUTPUT-
; BUFFER.HAVE.BEEN-PREVIOUSLY.SEM TMT.WILL.MCNE.TEST.1'S.
CONTROL.ROUTINE.ADDRESS.FROM.THE REF TABLE TO.THELCURRENT:.
jUMP.TABLE.IN.POSITIOHS.0 AND .4 FOR.TEST.1.
REF TABLE
WORD. T1,T1,T1,T1,T1,T1
.WORD. T2,T2,T2,T2,T2,T2-
;
CURRENT .JUMP TABLE:
.WORD. T1,0,0,0,T1,0
; WORD.
MEMORY CYCLING
THE CYCLE CONTROL ROUTINE MAINTAINS A POINTER TO THE
CURRENT JUMP TABLE. THE CONTROL ROUTINE SCANS THE TABLE-
: UNTIL IT FINDS A HOH-ZERO ENTRY. IT DERF-ES THE MEMORY
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3-;--- ,
TNT.MACRO .M1110 27-MAR-80 15:38 PAGE-8-2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TO BE-TESTED FROMTHE.PLACE-HOLDING.CHARACTERISTICS.OF.
THE-TABLE:
115
115
117
118
119
120
121
122-
123
124
125
125
127
128
129
13A
131
132.
133
134
135
1.315
137
138
139
140
141
142.
143
144
145
145
147
148
149
15A
151
152.
153
154
155
156
157
158
1 bb
150
161
152-
153
164
165
166
157
162
159
179
171
1. GETS.THE.PIJSITIOH.OF.THE.CURRENT.NON_.EpO.py.
RELATIVE.TO.THE.BEGINNING-OF-THE-TABLE:
2: DIVIDES.THIS.NUMBER BY.THE.NUMBER.OF-MEMORIES: THE.
REMAINDER GIVES-THE PLACE-HOLDER VALUE
FOR-EXAMPLE, IF .'INPUT BUFFER :f AND.'TEST.2' HAVE BEEN
SELECTED, THE.CURRENT.JUMP-TABLE WILL-CONTAIN.THE.
FOLLOWING-INFORMATION:
.WORD.
.WORD. 0T2,0,0
THE.FIRST.NON-ZERO.ENTRY.IN.THE.TABLE.IS-AT.OFFSET.9.
THE-REMAINDER.FROM.THE DIVISION-OF.9 BY -5 (6 ?NUMBER.
OF MEMORIES) 15.3. THE VALUE.3 IS.THE.PLACE-HOLDER--
VALUE.FOR.THE.INPUT.BUFFER,
THE-CONTROL.ROUTINE.PASSES-CONTROL.TO-THE.TEST.CONTROL.
ROUTINE.WHOSE.ADDRESS.IS.THE.CURRENT.NON-ZERO.ENTRY.IN.
THE-CURRENT.JUMP.TABLE. THE.CYCLE-CONTROL-ROUTIME.PASSES.
THE.REMAINDER.FROM.THE ABOVE-DIVISION.IN.RO. THE TEST
CONTROL-ROUTINE.USES.THE.CONTENTS.OF.R0 AS AN.INDE
INTO.A.TABLE OF.TMT.SUB-MODULEMMEMORY.TEST ADDRESSES. -
THE.TEST.CONTROL.ROUTINE.IN.TURN PASSES.CONTROL-TO.THE.
ROUTINE.IN.THE.SUB-MODULE.THAT.W1LL.EXECUTE.THE.TEST ON-
THE.CORRECT-MEMORY:
ALL.SUB-MODULE.ROUTINES.ARE.LOCATED.IN.THE MODULE.TTEST:
ALL.OF.THESE ROUTINES.RETURN.TO.THE.TEST-CONTROL-ROUTINE.
THAT.CALLED.THEM: THE.TEST.CONTROL.ROUTINES.RETURN.TO.THE.
CYCLING.ROUTINE.WHICH.SCANS.THE-CURRENT.JUMP.TABLE.FOR.THE.
NEST.NON-ZERO.ENTRY:
EXIT.FROM.THE.PROGRAM-DEPENDS?UPON.THE-STATUS-OF.THE CURRENT _
JUMP TABLE LOOP.OPTIONS, HALT.OPTIONS, OR TERMINAL.INPUT:
JUMP.TABLE.EMPT
LOOF.OPTION-OFF.
LOOP COUNT
HALT.OPTION.ON.
COUNT .+ ?H.?
- EXIT.
- EXECUTE.ONE.TEST CYCLE.
- EXECUTE.A.NUMBER OF.CYCLEa EOUBL,T ?
THE.LOOP.rOUNT.
- HALT.AFTE-ONE.ERROR.
- PRINT.A.NUMBER.OF.MESSAGES EQUAL-TO-
THE.COUNT.AND.HALT.
WHILE.THE.TESTS.ARE.RUNNING THE ENTERING.FROM.THE.TERMINAL.
OF ANY.CHARACTER.OTHER THAN .W, C, P, OR.T.(THESE-HAVE.SPECIAL.
MEANINGS.- SEE.THE.ROUTINE.'AST) STOPS.THE.TESTS.IMMEDIATELY:
MEMORY TESTS:
rmarnermaleVIr 4171'- rir "1"
Approved For LR' ..3
TMT-- 1100-111110 27-MAR-Se 15 .3S PAgE 7
'Approvea'Fr Release 2005/07/OCIA-RDP85-00514R000200020-001-3
172.
173
174
175
TEST-02,
TEST.07
TEST 04
TEST 05
WRITE,ZEROS,.
WRITE.OHES.
WRITE .125252.
WRITE/READ.145314 AND 031453
175
TEST -BE
MEMORY.CROSS-TALK.TEST.
177
TEST 87
WRITE .ADDRESS COMPLEMEHT.INTO.ADDRESs.
178
TEST 08
WRITE.000377 AND 177488
179
TEST.05
SHIFT-BIT.TEST.
10
iel
TEST 18
TEST ii
WRITE.USER.SUPPLIED?TEST.PATTERH.
BIT MARCH.TEST.
TEST 12
ADDRESSING TEST
183
184
1R5
186
187
188
185
19A
151
192.
153
194
195
195
ASSEMBLY: FROM C5.3J
MCR,MAC THMLF=IM04,TMT?
TASK .BUILD:
TMT..TMT=TMT.,TTEST.
/ ?
PAR=PAR14K.
TASK=. TNT
ASG=TTA:1
ASF4=TTA:2.
OH TERM DETECTOR PACK
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
--
-
P401;-
"?-.1tookr, r#
TMT- MACRO-Mune 27-MAR-80 15:Z8 PAGE 9
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
198
199
2AA
281
202-
203
204
?
205
205
088881
LUN:TT-
207
000001
EFN:1
2AP.
AA0002.
CMILUN.
2519
21A
211
212-
ARAAA1
LOOP-
213
0000A2.
TESTS
214
AAA0114
TEST 151
215
000010
ALLTST.
21F.
AnAn7n
HALT.
217
RAA04A
ERROR.
218
219
?
220
221
000001
222.
000007.
B ?
223
000004
C ?
224
000010
I ?
225
00002121
0
225
AA0040
T?
227
229 AORRA0
131574
077434:iJ
MYSELF;
2340 UUUUU4
nUUUU
ASTWPD;
2.51 UU000b
STAT:
232.000017.
AA0RAA
ER WORD
233 000014
eacione
ERLIM:
234 000015
HHHHHH
BINWD:
23b 000020
UHUHUH
UPPER:
265 mmIlm.22.
HMHHHH
LOWER;
237 000024
000000
BASE:
23A An0A2R.
AAARAA
HTIO:
239 000030
AA0000
T6FACT:
240 000032.
GEHOUFg
241 000154
AAAAAA
GCHLEH:
242.00015F
000000
GCMPHT:
246 000150
UUtildUld
PASSH:
244 0001F2.
00001711
PASS:
245 000164
AA0000
LAOPCT:
Z4e. 000161-.
LIUUULIU
SELECT;
247 000170
Ocl000n
MTPHT:
240 000172.
RA0000
mTCNT:
249 000174
AAAA00
SETTBL:
2,tm HMMIrh
umomM4
251 Libu,100
UUUU14
252-
254
?
LOCAL.DATA.AREAS.
7
.MCALL. OIOWSS OIOSSEXITS,ABRTSSAGCMLt,GCMLBS,FSRSZ$,CLEF$S,ASTX$S
1
.75 .
;LUN FOR TTO
;EVEHT-FLAG.FOR-TTO
;LUH.FOR GCML.
SETTINGS.OR.FLAG.WORD.'BASE
1 .LOOP FLAG
2? ;TEST.6 IN?EFFECT.
4 ;TEST 10 IN EFFECT
10 ;ALL?TESTS.IN?EFFECT.
20 ;HALT.FLAG?
40 ;ERROR?HAS?OCCURRED?
SETTINGS FOR FLAG-LORD ?SELECT'
.NLIST
.RAD50
.WORD-
.BLKW.
.WORD.
.WORD.
.WORD.
-WORD.
.WORD.
.unRD.
.^ WORD.
.WORD.
.WORD.
WORD ?
.WARD.
.^ WORD.
iLILiLI
.WORD-
.WORD?
1 H
2. ;ESA-- B
4 ;ESA.- C
10 ;INPUT.BUFFER.
20 ;OUTPUT?BUFFER-
40 ;BYTE.TRANSLATOR-
BEX?
0
0
A
0
0
41,
A
A
1
A
0
T$FSAA.
T$FSAB.
TIF SAC.
;ABORT.THIS.TASK.
;RECEIVER-FOR.CHAR FROM TERMINAL.
10 STATUS
INFO/ERROR?MESSAG INDEX.
;MAX-ERROR-MESSAGES-TO-PRINT
;VALUES.CONVERTED?FROM.COMMAND.LINE-
;WORK.FIELD.FOR.UPPER.MEMORY LIMITS.
;WORK-FIELD.FOR.LOWER.MEMORY LIMITS.
;GENERAL FLAG.
;USER.TEST.PATTERN
;ADDRESS SKIP-FACTOR.FOR.TEST.IS
;COMMAND LINE-BUFFER.
;COMMAND LINE.LENGTH.
; 0 I HTER TO ? CO MMA ND.LI NE
; HI CH ? Lire D ? OF ? PASS 17.CILIF1
; LOW .1,10RD ? OF ? PASS ? COUNT.
LOOP COUNT
;MEMORSELECT.FLAG WORD.
;CURRENT JUMP.TABLE POINTER.
;CURRENT JUMP TABLE. COUNT.
SELECT FSA--A
;SELECT .FSA-B.
A
TABLE-USED.IN.TRANSLATING.FROM.ASCII.DECIMALTOBJORY.
Approved For Release 2005/07/0 CIA-RDP85-00514R000200020001,-3
TMT-.- .11100.M1110
27-MAP-80 15;38 PAGE 9-1 44101e *041wA4 'V%
Approved For Release 2005/07/41/CIA-RDP85-00514R000200020001-3
,C=
1,11,11/121,12 ?
255
257 milm63
258
259
260
251
262.000401
267.
254
265
255
257
OAA253'
001
ar3a4s1'
051
OAAA27
OR2:?'
040'
003
062-
TPOCT:
?
ALLSTR:
STPLEN
=. .1-51
.BYTE.
TROCT+177
STRING.OF.ALL.TESTS.(USED.AS.PSEUDO.COMMAND.LINE)
.ASCII. /1 2 3 4 5 5 7 8 9 11 12/.
=. .-ALLSTR.
.EVEN?
VALID MEMORY MNEMONICS AND MEMORY SELECT.'FLAGSEITINGS
258 000430
CT8L:
259 OAA43A
181
115'?
.ASCII. /AM/ ;FSA.A-
270 000432.
000001
.WORD. A?
271 AAA434
102?
115
?
5150 II;FSA.B.
272 00047.5
0001,102.
8-
277, 888448
103
ASCII. /CM/ ;FSA .C.
274 000442.
uuuUu4
.WORD. C?
275 888444
111
1512
.ASCII. /IB/ ;INPUT.BUFFER?
276 000446
000010
.WORD. I.
277 nnn45n
117
182
.ASCII. /08/ ;OUTPUT?BUFFER?
278 000452.
Elecie2a
.WORD. U.
279 000454
102
124.
.ASCII. /BT/ ;BYTE .TRANSLATOR.
2851 0004.56
0510040
.WORD. T?
281
umnimb
CHUM.
=.
282.
2R7.
MEMORY.TEST.CONTROL.ROUTINEADDRESSES.(REFERENCE)
284
285 000450
MTPEF:
2867 000460
005054'
006054
.005064'
.WORD-T1,T1,T1,T1,T1,T1
287 000474
0515074'
005074?
8515074'
WORD. T2,T2,T2,T2,T2,T2.
288 AnnFlin
08611171'
0051151'
006110'
.WORD. T3,T3,T3,T3,T3,73
289 000524
006126'
006126'
005125'
.WORD. T4,T4,T4,T4,T4,T4
280 008548
005144'
005144',
005144'
.WORD. T5,T5,T5,T5,T5,T5
291 000554
006174'
006174'
05117.4'
.WORD. T5,T5,T5,T6,T6,T5
292.00057n
005200'
006200'.
,5105200'
.WORD. T7,T7,T7,T7,T7,T7
2R3 nAn604
nn8210'
00210'
01715210'
.WORD. T8,T8,T8,T8,T8,T8
294 088620
006240'
005240'
0062451'
.WORD. T9,T9,T9,T9,T9,T5
A8864
006274'
006274?.
005274"
.WORD. TI0,T10,T10,T10,T10,T10
296 8.00650
806300'
0083n0:
.WORD. T11,T11,T11,T11,T11,T11
297 01:I8664
006424'
006424'
006424"
.WORD. T12,T12,T12,T12,T12,T12.
2gR
2gg
LOWER.AND.UPPER.MEMORY LIMITS (REFERENCE)
7.7inn
301 000700
LIMPEF;
707J2.eina7nA
01211777
.WORD 1777 ;FSA-A.UPPER.LIMIT
HHH012.
PIMUMMI
.WORD. A
304 5188704
001777
.WORD. 1777 ;FSA-B?UPPER.LIMIT
.31-15 PIHU(PM,
MMMIUM
.WORD. A
:
386 000710
001777
.WORD. 1777 ;FSA-C.UPPER.LIMIT
307 880712.
nffinnn
.WORD. 51
388 5100714
163776
.WORD. 1572,775 ;INPUT.BUFFER?UPER LIMIT.
.301 nnA716
16nAnn
.1JuRil 160000
310 000720
0037-76
WORD 3776 ;OUTPUT-BUFFER?UPER.LIMIT.
311 800722.
Annnnn
.mnFT 0
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3_,
TMT-? ? ? ? ? MACRO ! M 1 10 27-MAR-20.15 :AO p rgVA ? rao:i Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
312.000724
313 000725
314
315
315
317
318
319
320 000730
321 AAA77.A
333
377
324
725 001150
001150
327
324;
330
1 Hmizi-ivt
332.001214
333
000377
AAAAAA
000014
000014
HUHHH6
LIMMUM-
TESTS
MEM
MTSUB:
WORD.
WORD!
=.
255.
Fl

;BYTETRANSLATOR.UPPER-LIMIT
MEMORY.TEST.ROUTINE.ADDRESSES.(CURRENT.JUMP-TABLE)
12 :0-IUMRFR!OF.TFSTS.
::HUMBER.OF.MEMORIES.
BLKU
LOWER.OND.UPPER.MEMORY LIMITS.(CURRENT!TEST)
CURL IM:
.BLKW. LIMHUM.
Ii
SUB-MODULEMEMORY-TEST ROUTINE ADDRESSES.
MilMMVIMU-UVIMMVIMG.MHMHHHU.HTADDRc WORD.
uuuduuu.uuuuuu-uUbuuut,T1ADDR: .WORD.
;TEADDR:
.WORD.
.WORD.
.WORD.
334 00127.0
mm1244
336 001250
777
338
7,39
340
00B0BBG.0000000-POBABBG
UUIiI_1LiU UIJUUU' UUfrJkiI.
0000000-B000A0G;00A000G
T7ADDR:
IUDADD:
TCUADD:
341 AA1274
AAAPIAA
CKDATA
342.1711711276
Annnoil
343 001300
BBABAO
344 001302.
UUUuUU
PPEADD::
345 001304
milmmmm
EPRDP::
345 001705
OAAAAA
ERPCT::
347 mm..-2,1m
,IPIHMHP1
348 001312
c.iacioela
EPL12::
349 001714
000000
75A
351 001316
040
040. .
040
kaiRK:
352-001323
124
105! !!:
123
THEIG:
3S3 171013A
120
101
123
PHSG;
354 001335
105
101.
111
FMSG:
355 001355
101
104.
104
CIMSG:
356 001366
105
130. .
120
ENSG:
357 A014AA
122!
lAR
RMSG:
35A 001412
052-
040 E
052.
UNMSG:
359
360
361
662 B01417
FTBL:
7-1672. AB1417
105
123.
101
364 001425
106
1.3.3
101
365 AA 1.433
105
123!
101
t 001441
111
115-
120
357 001447
117
125
124
368 001455
102.
124
122.
STUFF. STUFF
*-1-1F-F1FT1F,
WORD. T6F,
T7FfiT7FfiT7Ffi
Ti2F-DfiT12FD
T12FU,T12F11,
STUFFfiSTUFI,STUFOfiSTUFT.
T11.T10,T1T.
T6F,T6FfiT6IfiT60fiT6T.
T7IfiT70fiT7T.
T1.2FDT12IDT120DT12TD?
T12FUfiT12IU,T120U,T12TU.
ERROR!ROUTINEWORK AREAS.
.WORD
.WORD
.W0PD
.WORD
.W0PD
WORD?
WORD
WORD
.WORD
/ ?
/TEST./.
/PASS./.
/FAILING.MEMORY:
.ADDRESSz
/EXPECTED: /.
/RECEIVED:
MEMORY .NAMES
.ASCII. /FSA-A.s.
.ASCII. /FSA-S./.
.ASCII! /ESA-C./.
.ASCII. /IMPUT./.
.ASCII! /OUTPUT/.
.ASCII! /BTRANS/.
Approved For Release 2005/07/1
;TEST PATTERN
.:TEST 12 READ.TEST PATTERN.
;TEST .12 WRITE.TEST.PATTERN.
;CURRENT MEMORADDRESS.
;ADDRESS AT ERROR
;NUMBER.OF.ERRORS.
ERRONEOUS RESULTS FROM.MEMORY.- 1
-
IA-RDP85-00514R000200020001-3
TNT- IS M1110 27-MAR-80 15:38 PAGE 9-1-i
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3-
369
370
371
72.73.
373 001453
015
012
374 001465
PRINT:
7,75
376
000116
378
7,79
380
381
7n7
384
385 001603
000
386 001604
015
012'?
015
387 001610
124
105
123
7,A9 001626
R19
012:
015
399 001632.
124
105
123
39A 001651
A19
Al2:
391 001593
109
115:-
124
7292.AA1717
A15
R12
015
7.93 001727.
115
105;
115
7,94 AA1757.
A19
Al2.
015
395 001760
124
105
122.
S:71.6 MM2M25
019
012
AAA
397 0020.30
015
01.2
7,9A AA7A7i3.
124
105
123
7;99 AA-2122-
A19
Al2'
4A11 AA2124
1A5
122.
122.
481 A02157
015
012
000
4A2.AA2162.
019
R12
48.3 002164
iii
116
176
404 002211
015
Al2
405 002213
111
116
126
405 AA22.37
A15
Ai2 ?
407 002241
111
116
126
408 11112266
015
111/
409 002270
111
116.
126
4.1.11 111127.14.
bib
Al2.
411 002316
111
114'
114
412.AA2342.
A19
Al2
413 0023441
111
116-
126
414 AR2411A
bib
Ai2
415 002402-
111
115.?
125
416 A112436
015
1,112
417 002440
111
116
126
418 AA29A2.
bib
R12
419 002504
111
115.
125
420 1117925
A19
012
421 002527
105
116
124
422.AA299.3
A15
Ai2.
423 007995
114
117
117
424 A02576
A19
Ai2
435 002600
105
116
124
PRINT LINE
.BYTE.
15,12. ;PRECEDE.PRINT LINE.W TN:BPIF.
.NLIST MEB.
.REPT. f0 7n
.
-BYTE. 40
.EHDR.
.LIST. MEEI.
TABLE.OF.MESSAGES.
BYTE. 0
BYTE. 15,12,15,12.
ASCIZ. /TEST(S) ENDED/.
BYTE. 15,12,15,12.
ASCIZ. /TEST(S) HALTED/.
BYTE- 15,12.
ASC 12 /ENTER.ANY.CHARACTER.TO.STOP.TEST(S)/.
BYTE. 15,12,15,12.
ASC 12 /MEMORY.TEST(S) STARTED/
BYTE. 15,12,15,12,15,12.
ASCII. /TERM .DETECTOR MEMORY TEST DIAGNOSTICS/.
BYTE. 15,12,0
ayTE. 15,12.
.ASCIE /TEST 5 INCOMFATABLE.WITH.MEMORY LIMITS. TEST DISCAR;EV.-
BYTE. 15,12.
ASCII. /ERRORt NO. SELECTIONS: EXIT./.
BYTE. 15,12,0
BYTE- 15,12.
ASC 12 /INVALID ERROR OPTION/.
.BYTE. 15,12.
.ASC 12 /INVALID LOOP OPTION/.
.BYTE. 15,12.
.ASCIZ /INVALID TEST PATTERN/.
.BYTE. 15,12.
.ASCIZ. /INVALID TEST NUMBER/.
.BYTE. 15,12.
.ASCIE. /ILLEGAL ODD.ADDRESS/.
.BYTE. 15,12.
.ASCIZ. /INVALID UPPER MEMORY.LIMITS
.BYTE. 15,12.
ASS IL /INVALID LOWER MEMORY LIMITS/.
.BYTE. 15,12.
.ASCIL. /INVALID MEMOR)-..OR.BUFFER.MNEMONIC/.
.BYTE. 15,12.
ASS IL /INVALID RESPONSE/.
.BYTE. 15,12.
.ASCIZ. ENTER ERROR CONTROL/.
.BYTE. 15,12.
.APCIZ. /LOOP.ON.TEST(S)?/.
.BYTE. 15,12.
.A8cIZ. 'ENTER PATTERN FOR.TEST.10/.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TNT-
MACP0 M1110 27-MAR-80
15:38 PAGE 9-4
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
425 002632.
015
012
;BYTE.
15,12-
427 002574
123
105.-
. 114
.0SCIE
J5ELECT TEST/.
428 002650
015
012
.BYTE.
15,12.
429 002652.
105
116'
? 124
.ASCIZ.
/ENTER.MEMORLIMITS.FOR BYTE.TRANSLATOR/-
477s-0 ni7i272.3.
015
012?
:BYTE.
15,12.
431 002724
105
116.
124
.ASCIZ.
/ENTER.MEMORY.LIMITS.FOR OUTPUT .BUFFER/.
432.002772.
015
012
:BYTE.
15,12.
433 002774
105
116.
124
.ASCIZ.
/ENTER.MEMORY.LIMITS.FOR INPUT-BUFFER/.
434 003041
015
012
.BYTE.
15,12.
435 003047
105
116
- 124
ABC I?
/ENTER.MEMORY-LIMITS FOR FSA-C/-
436 007101
015
012
.BYTE.
15,12.
43? 007107
105
116
124
.ASCIE.
-ENTER. MEMORY LIMITS FOR FSA-8/-
438 003141
015
012
.8YTE-
15,12.
439 007143
105
116
124
.050I2.
/EHTER.MEMORY LIMITS.FOR FSA-A/.
440 007201
015
012
.BYTE.
15,12.
441 0032
123
105
114
.ASCIZ.
/SELECT.MEMORY./.
442.003221
015
012
.BYTE.
15,12'
443 322.
101
114,
114
.ASCIZ.
/ALL TESTS., ALL .MEMORIES, FULL RANGE?/
444 00727
777
AtiCIZ:
;BYTE-
377
445
446
447 007272.
PMSG2:
448 003272.
120
101
127
.ASCII.
/PASS.HUMBER./
449
000014
.-PM5G2,
450
451 003705
ENDOF:
452 007706
105
116
104
.ASCII
/END OF PASS/
453
000514
ENDLH.
=.
.-EHDOF.
454
.EVEN.
455
.LIST.
BEX.
456
.N_IST.
CND.
457
458
459
COMMAND.LINE MACRO.
450
461
;
452 013.3.322
GCMBLK:
GCMLB$
2,,GCMBUF.,CMILUN-
00332
002.
.BYTE.
00331,--,4
AA?.
.BYTE.
CMILUN.
003370
0035 i0
.WORD.
65$
003376
001
.BYTE.
1
1313.3.341
.BYTE.
FD:TMFD,REC1FD,CCL-
007462.
AAA
.8YTE.
0
nR7457
047
.BYTE.
GE,COMIGE:INDIGE,CLOIGE,SIZ.
003474
3r r
002:
.BYTE.
-1,2
007476
'''R7172.55171'
.WORD.
64$
3500
000032
.WORD?
GCMBUF
AR-2.5R2.
1315
1112,
.ASCII.
PRINT LINE
1535 007354
116725
171741
MOVB ASWRK+3,(R5)+ ;MOVE 1 DIGIT OF TEST'NUMBER '
1536 007350
116725
171736,
MOB A3WRK+4,(R.5)+
1537 007354
005205
INC.PS
1539
1539
PASS.
1540
1541 007355
004767
001115,
JSR- PC,PASSC. ;PRINT.OUT.PASS.HUMBER.
1542 007372
005205
INC. R5 ;BUMP.PRINT.LINE.POINTER.
1543
;
1544
MEMORY.
1545
1546
1547
USE.THE.REMAINDER.FROM THE ABOVE D IVIS JON AS AN IX
_
INTO.A.TABLE OF .MEMORY NAMES,
1548
1543 007374
1550 007576
012601
012700
0uU1S?

MOV.
MOV. 47FI-J' R1 ;LOAD . REMAIHDER . FROM- DIVISION. A2OVE
;SYSTEM.SUBP.TWEXPECTS.MULTIPLIEP.IN.P.0
1551 007402.
1552 00-7406
004757
012700
000000G
001417'
JSR. ,.
MOV. PC $MUL
4.PFTBL,RA ;POINT.TO.TABLE.OF MEMORY.NOMES.
1553 007412.
1554 007414
060100
012701
000006? .
ADD.RiR0 POINT.TOTHEONETHAT.FAHLED
MOV ? ;..-.
;NUMBER.OF.CHARS-IN,NAME.
1555 0n7420
112025
4$:
MOVE (R.0)+,(R5).+. ;MOVE-NAMB.TO.PRINT.LINE?
1555 007422.
01715301
DEC. R1
1557 007424
0111375
BNE. 4$
1559 007426
005205
INC.PS
1559
1550
ADDRESS.
1551
1562-007430
016701
171546. .
MOV. PREADD,R1 ;LOAD.ERPOR.ADDRESS. -
1563 007434
004757
001014: .
JSR. PC,UNPK. ;CONVERT TO.PBINTABLE.CHARS.
1564 007440
005205P5
;BUMP.PRINT.LINE.POINTER?
IT::.T.PATTERN
1565
1565
1557
1558 007442.
015701
171525
NOV CKDATA,R1 ;LOAD.MEMMORTEST PATTERN.
1559 007445
004757
OO1MH
TSP PCfiUNPK. ;COHVERT
1570 0A7452-
1571 007455
1572.
004767
000475
001224. .
JSR. PC CONSOL ;ELSE.LRITE.TO.CONSOLE.
BR ,.
REST ;EXIT.AST.
1573
1574
HK1NT. lEsi.rHTILRH-HLuNt.
1575
1575
1577 0074.1
CAST:
1578 007460
612705
0014455
MOV. *PRINT,P5
1579 007464
015701
171604, ?
MO'.." . CKDATA,R1 ;LOAD.TEST.PATTERN . 7
1580 007470
004767
000760,H
.
JSR. PC,UNPK. ;CONVERT TO ASCII '
1581 007474
004767
001202: .
JSR. PC,CONSOL. ;WPITE.TO.TTO
1582 G07500
000464
BR REST
1588
;
1584
1585
PRINT.OUT.TEST.HUMBER.ALOHE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002000200013z
TMT---.MACRO.M1110 27-MAR-80- 15:38 PAGE.21-2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
1586
1587
1588 DERIVE.TEST.NUMBER.FROMTNE.POSITION.OF.THE.CURRENT.
15A9 MEMORY.TEST.CONTROL.ROOTINE.IWTHE.CURRENT JUIP.TABLE:
1590
1591 GET.TNE.OFFSET.FROM.TNE.BEGIHNING.OF.THE.TABLE, DIVIDE
1592. B" THE.NUMBER.OF.MEMORIES.IWTHE TABLE, THE QUOTIENT
1593 IS THE.TEST.HUMBER.(ZERO-RELATIVE).
1594
1595
1596. 007502.
THST:
1597 607502.
012700
0061 i6
MOV. o,R0 ;LOAD.NUMBER.OF.TESTS.(TOTAL)
1598 007506
166700
170450
SUB. MTCNTR171 ;SUB.CURRENT.ROUTINE.HUMBER.
1599 667512.
012701
000005.
MOV- *MEM,R1 ;5YSTEM.SUBRTN.EXPECT5.DIVI5OR.IN.R1
1500 007516
004757
AAAAAAG.
S F1 ? ;DIVIDEND.IS.IH.R1
1501 007.522.
010001
MOV. RO,R1 ;PREPARE FOR-CONVERSION.TO.DECIMAL.
1602.007524
005201
INC. R1 ;ADJUST.ZERO.RELATIVE.HUMBER
1503 007526
012700
171017.15:'
MOV. *ASURK,R0 ;CONVERT INTO.I.JORIELD:71cm-i3171*--?.',31`
1504 007532.
012702.
000001:
MOV.;SUPPLY LEADING ZEROS
1605 AF1757-3
mn4767
AAAF1001].
JSR. PC,$CBDSG. ;CONVERT BINARY TO DECIMAL.
1506
1507 007542.
012705
001465 ;
MOV. *PRINT,R5 ;R5 -> PRINT LINE.
1508 007545
115725
171547
MOVB ASURK+3..(R5)+ ;MOVE .1 DIGIT OF.TEST NUMBER
1509 007552.
116725
171544:
MOVB ASURK+4,(R5)+
1610 007556
004757
001120:
JSR. PC,CONSOL
16ii 00752-
000437.
BR REST
1612.
1613
1514
1615
EXIT.PROGRAM
1615
1617
1618
IF THE,'ALL.TESTS, ALL MEMORIES, FULL.RANGP OPTION.
1619
IS IH.EFFECT, TNE.PASS HUMBER.FOR.THE.PREVIOUS-PASS.
1520
NAS.ALREADY.BEEN.PRINTED-OUT.(SEE.'MTMAIW).
1621
1622 AA7564
EAST:
?
1627. 007954
004757
0111270
JSR. PC. HLTTST. ;WRITE.HALT.MESSAGE-
1524 007570
032767
000010,
170225 BIT. #ALLTST,BASE. ;ALL.TESTS.?.
1525 007575
AniA75
LI Nb REST
1626
1627
162R.
PRINT NUMBER. OF PASSES ALONE.
1629
1630
1631 51075051
POST:
1632 007500
012700
n01465'
MOV. 4PRINT,R0 ;POINT.TO?PRINT.LIFE.."--
1633 007504
012701?
A00115
MOV. 478.,R1 ;HUMBER?OF?CHAR?POSITIONS?
1634 007610
112720
000040
1$: MOVB 040,(R.0)4-;CLEAR?THE?LINE?
1635 007614
005301
DEC. R1
16735 007616
001374
ENE. 1$
1637
1638 007620
012705
001455'
MOv. *PRINT,R5 ;POINT.TO.PRINT.LINE.
1639 007524
1640 0075720
012700
012701
003272
000014,
Mov. *PMSG2,R0 ; I MT,:-ILLaill=16046W41#
"
MOV. *RM2LN,R1 ,
; GtR77177717,17171,
1641 007634
112025
'2,t; MOYB (R.0)+, (R5)+ ;MOVE .STING TO PRINT LINE
1642.007636
005301
DEC RI,
Approved For Release 2005/07/11FIA-RDP85-00514R000200020001-3
?
?
TNT? .11110-M1110 27-MAR-80 .15:38 PAGE 21-3
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3 -
1543
007540
001375
ONE....
2$
1544
1545
007542.
004757
000542.
-
JSR.
PC,PAS3r.
;CONVERT DOUBLE .WORD
1545
007645
004757
001030.
-
JSR.
PC,CONSOL.
1547
?
,
1548
007552
REST:
RESTOR.
RO,R1,R2,R3,R4,R5
007552.
012605
MOV.
p+ p5
007554
012504
MOV.
007655
012603
MOV.
00761,7,n
012602.
MO'v'.
FIA717.59.
012601
MOV.
(SP)+,R1
007654
012600
MOV.
(SP)+,R0
1549
1550
007555
122757
000120!
170110
Gripe.
#'?P,ASTURD.
;PRINT-# PASSES.AND.CONTINUE
1651
007674
001414
BED.
10$
1552.007575
122767
000103;
.170100
CMPB.
*1C,ASTWRD.
;PRIHT-TEST.PATTERN.AND.CONTINUE.
1653
007704
001410
BED.
10$
1554
A17705
122757
A0A124
170070
CMPB.
4-1-,ASTURD.
;PRINT.TEST.NUMBER AND.CONTINUE.'Y-.
1655
007714
001404
BED.
10$
1555
007715
122757
0FIA127.
170050
CMPB.
14.W,ASTURD.
;PRINT.WHERE-AND.CONTINUE.
1557
007724
001003
ONE.
1$
;HO, EXIT.
1558
1559
007736
10$:
ASTX$S.
007725
01.2745
MOV.
007730
163
001.
.BYTE.
115.,1
007732
104377
EMT.
4-0
1660
1551 007734
012701
001455'?
1$:
MOV.
*PRINT,R1
;POINT.TO.PRINT.LINE.
1662.007740
0127017.1
000115
?
MOV.
#78.,R0
;HUMBER.OF.BYTES.
1553
007744
112711
000040 ,
2$:
MOVB
*40,(R1)
;CLEAR-LINE.TO.BLANKS
1664
007750
01.715300
DEC.
RD
1555
007752
001374
ONE.
2$
1556
007754
112767
000015:
'171503
MOVB.
#15,PRINT.
;WRITE-OUT.1 CR+LF
1557
007752
112767
000012.- .
171475
NOVO.
#12,PRINT+1
155A
007770
004767
000705.
J5R-
PC,CONSOL.
1659
;
1570
007774
EXIT$S
007774
012746
MOV.
if.PC)+,-(P)
007775
063
001
.0YTE.
51.,1
010000
104377
EMT.
+0
rnt
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200.0,20
el
1
?
*AL.'
?
Y
r
TMTp-r-M4FRO.M1110 27....rinp_Ro .t4p13FiRvect_for Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
1672
1673
1674
1575
1676
1577
1578
1679
1580
1581
1682.
1583
1584
1695
1505
1687
1588
1689
1590
1681
1592.
1593
1h94
1595
1695
1697
1598
1699
1700
1701
1702.
1703
1704
1705
1705
1707
1709
1709
1710
1711
1712-
1713
010002.
LIMITS:
1714
010002.
004775
000005
1715
010006
004767
000252.-
1716
010012-
103472
1717
010014
004757
0007.72'
1719
R1RR2R
1R72,FIR7i
171B
01.0022.
004757
001112.
1720
010025
000755
1721
1722
?
172:6
1724
ninA72.1,1
025756
157762
AF1A002.
i-
172%
01007-76
117172.007.
1726
01004A
004757
001074-
1727
010044
000755
1728
SUBRTN.FOR.MEMORY.LIMITS.
INPUT:
2(SP4
.4(SP)
5(SP)
OUTPUT:
(SP)
21SP)
ABSOLUTE LOWER LIMITS.
ABSOLUTE .UPPER LIMITS.
ADDRESS-OF.PROMPT.ROUTINE.
CURRENT.WORKING.LOWER.LIMITS.
CURRENT.WORKING.UPPER.LIMITS.
WORK-FIELDS USED;
LOWER-
UPPER.
PROMPT.FOR.LIMITS: R. RESPONSE.MEANS-TO.TAKE
THE .ABSOLUTE LOWER .AND UPPER.LIMITS.AND.RETURN.
THEM.ON.THE.STACK. OTHERWISE.IF.THE.RESPONSE.IS.IM.
THE -FORM:
Mmuumm HNHH12.
THIS-ROUTINE CONVERTS.THE-FIRST.VALUE-AND.COMPARES?IT.
AGAINST.THE.MEMORY.?S.ABSOLUTE.LOWER.LIMITS AT.2(SP). IF.
THE.NEW?LIMITS-ARE.IN.RANGE, THEY.ARE.PLACED.IN-A.
TEMPORARWORK.FIELD. THE.ROUTINE.THEN.CHECKS-THE-COMMAND.
LINE.FOR-THE UPPER .LIMITS, CONVERTS-THEM, AND .COMPARES.
THEM.AGAINST THE.MEMOR"CS.ABSOLUTE.UPPER.LIMITS: IF THE
NEW.LIMITS.ARE.IN.RANGE, THEY.ARE.PLACE-IN A.TEMPORARY.
WORK AREA THE -ROUTINE THEN.COMPARES.THE.HEW.UPPER.LIMITS.
WITH.THE.NEW LOWER.LIMITS. IF-THE.NEW.UPPERLIMITS.ARE.
EQUAL.TO-OR.OREATER.THAN.THE.NEW LOWER LIMITS.. BOTH NEW
VALUES.ARE-PLACED.ON.THE-STACK: THE.ROUTINE.THAT-CALLED.
LIMITS.WILL-TAKE.THESE VALUES.OFF.THE.STACK.AND-PLACE.
THEM.IN.THE.'CURRENT.LIMITS.TABLP', DURING THE. MEMORY
TEST.CYCLE, THE-LIMITS FROM.THIS TABLE.ARE MADE.AVAILABLE.
TO THE.MEMORTEST.ROUTINES,
JSR- PC,@5(SP) ;PROMPT.FOR.LIMITS
JSR. PC,FIND.. ;FIRST.FIND.A.NUMBER.
BCfl. LIMX2. ;HO .OVERRIDES, LEAVE -LIMITS ALor
JSR. PC.. PACKS ;CONVERT LOWER.LIMIT-T0-5144V '
BCC. 1$ ;VALUE.OK, CONTINUE.
JSR. PC,ERR4
BR LIMITS. ;TRY.AGAIN-
UHELK LLIWLK.LIMITS.
CMP BINWD,2(SP)
BHIS. 2$
JSR. PC,ERR4
BR LIMITS.
;COMPARE LOWER LIMITS
: OK..04141-4,444 ,
TR)". AGA IN
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TMT- .111/0 M1110 27-MAR-90 15:38 PAGE 22-1
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3-!
1729
1730
1731
1732.
1733
1734
ALSO.CHECK.NEW.LOWER-LIMITS.AGAINST.ABSOLUTE.UPPER.LIMITS-
ON THE .STACK. AN ERROR HERE.WOULD.SHOLLUP.BELOW.BUT.IT.
IS MORE.CORRECT.TO.REPORT.AN.ERROR.IH.LOWER.LIMITS.IF.
IF THE.HEW?LOWER.LIMITS.ARE.NIGNER.TNAH.TNE.ABSOLUTE
UPPER.LIMITS.
1735
A10046
026766
157744
001i084
2$:
CMP. BINWD,4(SP)
;IS.NEW.LOW.LIMIT.GT.ABS.UPPER.LIMIT:
1736
1737
A10054
A10056
1A14A3
004757
01.11[7155'
nr. FTTERR4
;NO, HEW LOWER.LIMIT.IS.OK.
1739
010052.
000747
BR LIMITS.
1739
;
1740
;
SAVE.NEW.LOWER.LIMITS: FIND
MEW.UPPER.LIMITS.IN.COMMAND.
1741
LINE:
1742.
1743
010064
015757
157725
.1677313
2A :
MOV. BINWD,LOWER.
;MOVE .111 HEW.LOW.LIMITS.
1744
010072.
004767
000176
JSR. PC,FIND.
;FIND.UPPER.LIMITS IN.COMMAND.LINE.
1745
010076
103003
BCC- 3$
;OK, CONTINUE.
1745
010100
004757
001030
JS ? PC,ERR5
1747
010104
000736
BJ:R. LIMITS.
;START.OVER.
1749
;
1749
1750
1751
0101A6
010112.
010114
51
0047617
103003
AA4767
0007,00.
001A14-
3$;
PC,PACK.
BCC.
JSR. g.,ERR5
;ON VERT UPPER .LIMITS.
C
;OK, CONTINUE.
1752
010120
0017177.0
BR LIMITS.
;STORT.OVER.
1753
1754 .
CHECK.NEW.UPPER.LIMITS.
1755
1755
010122-
026766
167670
o00004
:49:
Ohl'. BINWD,4(SP)
;COMPARE UPPER LIMITS.
1757
010130
1E11403
BLOS. 5$
;OK, CONTINUE.
1759
010132.
004767
000775?
JSR. PC,ERR5
1759
810136
AAA771
BR LIMITS.
;START.OVER.
1750
1761
;
COMPARE.HEW.LOWER.LINITS.WITH.NEW.UPPER.LIMITS:
1762.
1763
010140
015767
167652
167552.
5$:
MOV. BINWD,UPPER.
;PLACE.NEW.UPPER.LIMIT.ONE5TOCK.
1764
010146
025757
157650
157544
CMP. LOWER ,UPPER.
;IS.UPPER.LIMIT GT LOWER .LIMIT.
1755
010154
1014072.
BLOS. LII] X
;YES, EXIT.
1.755
010156
004767
000752:
JSR. PC,ERR5
1767
010152.
000707
BR LIMITS.
;TRY .AGAIN.
1768
,
1769
1770
010154
010172-
015766
015756
157532
157522
0130002.
LJUULI4
LIMX:
MOV. LOWER(SP)
UPPER .,4(SP)
ff
;PUT NEW LOWER.LIMITS.ON.STACK.
...
;PUT .HEW UPPERLIMITSOHSTO
1771
010200
A99797
LIMX2:
C
: P.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-
TMT- MACRO M1110 27-rpp-eo 151,3R PAGE 7'7
ApProved FitiV Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
1773
1774
1775
1775
1777
1778
1779
1780
1781
1782.
1783
1784
1785
17196
1787
1788
1789
1790
1791
1792.
1793
1794
1795
1796
1797
179A
1799
18.80
1801
1802.
1883
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1815
1817
SCAN.A.TABLE FOR.A.',MLID.COMMAHD/MHEMONIC.
INPUT:
RO --NUMBER.OF.EHTRIES IH.COMMAHD.TABLE.
RI -> CHAR.STRING.IH.GCML.COMMAND.LINE.
R2 -> TOP. OF COMMAND TABLE
OUTPUT
RI -> ROUTIHE-THAT.GOVERNS.THE.COMMAND.(IF MATCH .WAS MAD
R1 -> CHAR?STRING.IN.COMMOHD.LINE.(IF.H0.MATCHWAS.MADE),
RB --RELATIVE.POSITION OF.MATCHED-ENTRIN TABLE.
010202.
SCAN:
010202.
818346
Mg.,"?
R3,-(SP)
818284
810045
MEN.
R0,-(SP)
010205
010146
MOV?
R1,-(SP)
818218
811501
FHOUTI: NOY.
'SP RI
010212
17.112703
000082
MO,.
#2,P3
010216
122122.
FHIH1: CMPB.
(Ri)+,(R2)+
010220
881803
BNE-
FHOUT2.
018922
005207-1
DEC.
R3
818224
801374
BNE.
FHIH1
010226
000411
BR
FHMTCH.
01023.0
0602.
FNOUT2: ADD.
R3,R2.
010232
005202.
INC.
R2.
010234
005300
DEC.
RO
010236
001364
BNE.
FHOUTI
018240
012601
NOV.
(SP)+,R1
010242
912580
MOV.
(SP)+,R0
018244
012603
MOv.
(SP)+,R3
010245
000251
SEC.
01025171
000207
RTS.
PC ?
A10732
818281
PHMTCH: MOV.
R2,R1
018254
052706
000082
ADD.
018250
012602.
MOV.
(SP)+,P.2.
018262
150082.
SUB.
RO,R2.
818254
A18288
MOw
R2,RO
010266
012603
MOV.
(SP)+,R3
010270
000241
CLC.
010272
000207
RTS.
PC ?
;SAVE R3
.:SAUJLJLJ1I.E.! ,
0.747FiNNI -EtTRING.
;POINt?TOJI0H-BLANK.IN.COMMAND.LINE.
;HUMBER-OF.CHARS.IN.NON-BLAHK.FIELD.
;DOES.COMMAND.LIHE MATCN.TABLE.ENTRY.
.:NO. TRY NEXT.TABLE.ENTRY.
;SUB.FROM.LOOP.COUNT.
;COMMAND FOUHD.IN.TABLE.
;ADD.*.UNCOMPARED.CHARS.TO-POINTER
;THEN.ADJUST.TO.NEXT?TABLE.ENTRY.
;SUB.FROM.OUTER.LOOP.COUNT.
;TRY AGAIN
;RESTORE COMMAND.LINE-POIHTER.
;RESTORE RO
;RESTORE R3
;COMMAND NOT.IN.TABLE.
;POINT.R1 AT.MEMORY.FLAG.IH.TABLE.
;POIHT.TO.INCOMING RB OWSTACK.
;GET.TOTAL-*.TABLE ENTRIES.
;GET.POSITION.OF.MATCHED? ENTRY
;PUT.IN-R0 FOR RETURN
;RESTORE R3
Approved For Release 2005/07/141)CIA-RDP85-00514R000200020001-3
7q.,Y
TMT- 4110 M1110 27-MAR-80 15:38 PAGE 24
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-1,:
1819
1020
1821
1822-
1823
1824
1825
1826
1827
1828.
1829
1830
1831
1832.
1833
1834
1835
1836
1837
1838 010274
FIND:
1839 010274
810246
1840 010275
01E1701
157552
1841 010302.
001440
1842.010304
018702.
157646 ?
1843 010310
122712.
000040
1$:
1844 010314
001403
1845 010316
122712.
88nA94.?
1845 010322.
0811004
1847 010324
005202.
10$:
1848 010326
005301
1849 01171330
001357
1850 010332.
000424
1851
1852.010334
010248
2$:
1853 010335
005000
1854 010340
122712.
000040.
3$:
1855 010344
001407
1856 010346
122712.
000054
1857 010352
0014A4
1858 010354
AA52A2.
1659 010356
005200
1850 010360
005301
1861 010382
AF117.F.F.
1852.
1853 010384
0102F,7
157555
4$:
1854 010370
01011'7,7'
157550.
1865 010374
012601
1866 010378
012f.=.02.
1867 010400
000241
1858 010402.
000207
1859
1870 010404
012602.
FSECX:
11171 0181406-
000251
IP72-010410
000207
FIND.THE.NEXT-NON-BLANK-IN.THE.COMMAND.BUFFER,
THEN.FIND.THE.LENGTH.OF.THE.STRING.THHT.STARTS.WITH.THAT.CHARACTER:
INPUT:
GCMLEN. - HUMBER.OF.UNPROCESSED BYTES.IN.COMMAND.LINE.
GCMPNT. - ADDR.OF.NEXT UNPROCESSED.POSITION.IN.COMMAND.LINE.
OUTPUT:
RI -> STRING, RO =-LENGTH.OF.STRING.
GCMLEN, GCMPNT.UPDATED FOR.NEXT.ENTRY.INTO
THIS ROUTINE.
THIS.ROUTIME IS.DESIGNED.TO.BE.ENTERED.A.NUMBER.OF.TIMES
IN THE.PARSING.OF-A.COMMAND.LINE. THE.FIELDS.GCMLEN.AND.
GCMPHT.ARE.REFRESHED.WHEM.H.NEW.COMMAHD.LINE.IS.READ
(SEE.THE.MESSAGE.PRINTING/PROMPTING-CODE).
MOV.
MOv.
BE0-
MOv.
CMPB
BEQ.
CMPB
BHE.
INC.
DEC.
BNE.
BR
MW.
CLR.
CMPB
BE0-
CMPB
BEO.
INC.
INC.
DEC.
BNE.
NOV.
-MOV.
MOV.
MnV.
CLC.
RTS.
MOV
SEC
P.2.,-(SP)
GCHLEH,R1
FSECX.
GCMPHT,R2-
040,(R2)
10$
(R2)
2$
R2.
R1
1$
FSECX.
R2),-(SP)
RO
*4171,(R2)
4$
*?(R2)
4$
R2
RO
R1
3$
R2GCMPNT.
R1,GCMLEN1
(SP)+,R1
:5P)+. R2
PC.
PC.
;SAVE. P.2
;*.BYTES REMAINING IN COMMAND BUFFER.
;THERE.ARE-HONE.
;LOAD.CURRENT.POINTER.
;LOOK.FOR.A.BLANK.
;OK., BUMP.TO.NEXT.CHAR-
;COMMA.IN.COMMAND.LINE.
;TREAT.COMMA.AS.BLAMK.
BLIMP POINTER
;SUB.FROM.REMAIMING.LENGTH.
;110.HON-BLANK.FOUND.
;TEMP SAFE-POINTER TO.BEGINNING OFT SIR
;CLEAR-CHAR.COUNT.
;LOOK-FOR.A.BLANK.
;FOUND-END.OF.STRING-
-ft4PEAT.COMMAS.AS.BLANKS.
;BUMP .POINTER.
;BUMP.CHAR.COUNT.
;SUB.FROM.BYTES-REMAINING.
;SAVE.POINTER.FOR-NEXT.TJME.
;SAVE.BYTES.REMAINING.FOR.NEXT.TIME.
;POINTER TO.BEGINHING.OF.STRING.
;RESTORE R2.
;RESTORE R2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
7.77,40A
TMT- MACRO M1110 27-MAR-80 15:A38 PAGE
pproved For Release 2005/07/12 : CIA-RpP85-00514R000200020001-3
1874
1075
18(E.
1877
1878
1879
iRR0
1881
1882
1883
1884
1885
1886
1887 010412.
1888 010412-
1889 818411;
189A 01A42A
1891 010422.
1892-010424
1897. 019426
1834 010432.
1895 01047.4
ibLib 01047i6
1897 010449
1898
1899 010444
19nn 01171441L.
1991 010459
1902-A10452
1903
1904
1905
1906
1907
i9AR
CONVERT-AN-ASCII-OCTAL VALUE-FROM-THE-COMMAND-LINE-INTO 8INARY
,LEGAL-STRINGS-CONTAIN-FROM-1 TO -6 CHARACTERS.
INPUT:
RO =-NUMBER-OF-CHARACTERS-IN-ASCII STRING.
RI -> STRING
822788
901614
01A14F.
POCK:
OUTPUT:
THE-FIELD-'BINWD
CMP. *6,R0
BNE. PSECX-
MOv-R.1,-(SP)
CONTAINS.THE-CONVERTED.VALUE-
;UPPER-LIMIT-ON-OCTAL-DIGITS
;ERROR-EXIT
LI KING POINTER-TEMPORARILY
060016
ADD-
R9 5p)
;ADD-CHAR-COUNT-
AlA1AA
MOV?
R1,RO
;GET-STRING-ADDR-INTO-R0 FOR SUBRTN-.
994757
APAAAAG.:
JSP.-
PCASCOTB.
;CONVERT ASCII-OCTAL-
00500
DEC-
RO
;SUBRTN-PUSHES-R0 1 TOO-FAR-
020026
CHF'.
RO,(SP)i-
;FULL-STRING CONVERTED
0111004
ONE-
PSECX.
;NO. ERROR.
010167
167352. ,
MON-
R1. BINWD
SAVE CONVERTED VALUE
000241
01710:71717
PCLCX:
CLC
PTS
PC-
741
000251
PSECX:
SEC
000207
PTS
PC
rn.
CONVERT. A VALUE FROM B IHARV TO PR INTABLE. FORM
RI ?WORD-TO BE
->
PRINT LINE
1909
1910
1911 010454
1912-010454
UNP K:
?
RO,R1,R2-
010454
oinn47.
MO V ?
R0,-(919)
010456
0101.46
MOV ?
R1,-(SP)
010460
010246
MOV
R2.-(SP)
1913
1914 01:71452.
01 9500
NOV-
R5,RO
1315 01:14H4
12012 ?
I?Jkivimm 1
MOV-
#1,R2-
1916 010470
694757
UUMMUUG.
JSR.-
PC.$C80MG-
1917 0104(4
818885
MOV-
RO,R5
19IR 910476
005205
INC-
R5
1919
1920 oia5o0
RESTOR
RO,R1,R2-
Flio5cla
012602-
NOV-
(SP)+,R2-
01A5A2.
al26A1
MOV-
(SP)+,R1
010504
a12600
MOV-
(SP)+,RA
1921 010506
Heal?
RTS?
PC.
;PREPARE TO.caLLAI4e IttariN
;KEEP LEALixr
.,?161;-.9No
;RESLUE I6E.RDINTER
;AND-BUM.P.IT-
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
TMT- .11110 M1110 27-MAR-80 15:38 PAGE.26
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
1923
1924
1925
1926
1927
192R.
1929
1930
1931
1932.
1933
1934
1935 810510
PASSC:
1935 91010
17109757
167444'
1937 010514
801811
1338 010516
010500
1939 010528
0115701
16743E'.
1940 010524
012792.
000001-
1941 018531
0M405(
MHHHH411,..
1942 010534
010005
1943 010536
000453
1944
1945 A10540
016701
167414-,
DOUBLE:
1946 010544
016702
167412- ?
194? 010550
010346
1940 010552.
010446
1949
1350 010554
012703
000012
1951 010558
012704
810570.?
1952 010564
112724
AFIAAF.A
1$:
1953 010570
0057.07
1954 010572.
001374
1955
1356 010574
012704
810702'
195? AlAf=dRA
012703
AAAA12'
1958 a1asa4
01.2700
0130Al2'
2$:
1959 A10B10
010610
01-147F,7
AARRAAG.
1950 919514
052700
AA0A5A
A1A620
110044
iRf:12 Fl1nR22.
005303
1953 010524
001367
1954
1955 010626
012703
000012?.
1966 010632.
122724
OAAA6A
3$:?
1967 010636 '
001003
1958 010540
005171.03
1959 010642.
001373
1970 010644
0052072,
1971
1972.F-110646
A057;A4
4$:
1373 010650
010401
1974 010552.
010702.
1975
1975 A10654
112125
9$:
1977 011715.56
.1117157,02.
1978 010550
01711375
CONVERT-NUMBER.OF.PASSES.TO.ASCII.DECIMAL.
INCLUDE.DOUBLE.WORD.CONVERSION.(BINARTO.ASCII-DECIMAL)
INPUT: R5 -> PRINT.LINE.
FIELD.?PASS.? = LOU ORDER PASS COUNT
FIELD.?PASSW ?HIGH.ORDER.PASS.COUHT.
OUTPUT: R5 -> NEXT PRINT LINE:t4kERTEVYALUE.
? ,
TET. PASSE!. :15 PASS NUMBER.A-DOUBLE.WORD.
ONE. DOUBLE. ;YES, CONVERT.DOUBLE.WORD.
MOV? R5,R0 ;PREPARE TO.CALL.CONVERSION.RTN.
MOV. PASS.. Fl
MTV. #1,R2. ;NUMBER-TO.BE CONVERTED.
;SUPPLY LEADING ZEROS
JSR. PC,$CODSG.
tL.V. PASSX. ;EXIT.
R0,R5 ;RESTORE PRINT.LIHE.POINTER.
MOV?
MO,?
MOVB
DEC?
.BHE?
MOV
MOV
MOV
CALL
JRR
ADD
MO VB
DEC
BHE
MOV.
CMPO.
EINE.
DEC?
BHE.
INC.
DEC.
MO V?
mov ?
PASSH,R1
PASS,R2.
R4,-(SP)
*10.,R3
*ASCHST,R4
#60,(R4)+
R3
1$
*ASCNST+12,R4
*12,R3
*10. .R8
$DDIV
PC,$DDIV.
*BA ,R0
R0,-(R4)
R3
2$
#12,R3
*60,(R4)+
4$
R3
3$
R3
R4
R4 Fl
R3,R2.
;LOAD.HIGH.WORD.
;LOAD.LOW.WORD.
_
;R3 .COUNTBR
;R4->COMTP5ION:STORAtE?AREA
;CLEAR.STORAGE.AREA.TO.O'S
;R4->LAST.OYTE.OF.STORAGE,
ASCII.NO: (REMAINDER+60 OCTAL)
;FlIEIMU4&L4VDMG..ZER,OS'
THELAST.ONE.IS OK.
;R1-> RESULT.
;02?LEHGTH.OF.RESULT.
MOVB (P1)+ .1P5)-1- ;MOVE CONEPTED VALUE TO PRINT LINE
DEC R2
ONE 5$
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020901-3
TMT--...MRCRO.M1110 274-MAR-80 15:38 PAGE.26-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
1979
1980 010552- 012604 MOV. (SP)+,R4
olAIL;f:-4 17-1126A7. mov.
1982.010666 Aar.12o7 PASSX: RTS. PC. ;RETURN.
18?
1984
1985 010570 ASCHST: .BLKW. 5 ;CONVERSION.STORAGE.AREA.
A A'
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
?
TNT?
1987
1988
1909
1990
1991
lir M1110 27-MAP-80 15:38
PAGE.27
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
WRITE-A-PRINT.LINE.TO.TTO
1992.
010702.
CONSOLt
1993
018782
012700
000120
MOV.
*80.,R0 .:PRINT.BUFFER.BYTE COUNT.
1994
010706
012701
001603'
MOV.
*PRINT+78.,R1 ;POINT.PAST.END OF BUFFER.
1995
010712.
122741
000040
1$:
CMPB.
*40,-(R1) ;LOOK.FOR.A.HOH-BLAHK-
1996
010716
001003.
BNE.
2$ ;OK, WRITE.LINE.
1997
01072A
FIA9-2,RA
DEC.
RD DEC.CNAR-COUNT.
1998
010722.
001373
SHE.
1$
1999
010724
000436
BR
ABEND2. .:NO.NON-SLANKS?.
2000
2001
010726
010W$R.
*IO,WVB,*LUH,TT,*EFN1?*5TAT,, PRINT.LINE.
SAVE
MOV.
MOV.
MOV.
MOV
MOV
MOV.
MOv.
JPR,
MOV.
INC.
125R511.3.355
RESTOR.
013356
012604
MOV.
0133R0
ai267,n7.
MOV.
0133P2.
Si .45512.
MOV.
013364
012601
MOV.
013366
012600
MOV.
1259 013370
00020?
RTS.
R8,R1,R2,R3,R4
R0,-(SP)
RI,-(SP)
R4,-(SP)
R5,RO
*1,R2.
PC,SCBOMG.
K51.. Kb
R5
R0,R1,R2,R3,R4
(SP)+,R4
(SP)+,R3
(SP)+,R2.
(SP)+,R0
PC.
;PREPARE TO.CALL.5YSTEM.PUBRTN.
;KEEP LEADING ZEROS
;CONVERT TO.00TAL.ASCII.
;RESTORE PRINT.LINE.POINT
;AND.BUMP.IT.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 ,?-
A
TMAIN 4100 M1110 27-MAR-80 13:A39 27
pprovedPAGE For Release 2005/07/101A-RDP85-00514R000200020001-3
1298
1291
1292
1293
1294
1295 013554
005267
164230-
ENDTST::
1296. 013568
885267
1.54224 ?
ENFILE::
1297 01.3564
885,26.7
164228.
ENDMEM::
1298 013578
885257
154214 ?
STOP::
1299 013574
005267
15421.0.
OUTI::
1308 013688
005267
154204-
ERR23::
1301 013604
005267
164200?
ERR22::
1302.013510
885267
154174
ERR21::
1303 013614
005267
154170
ERR20::
1304 013628
085267
164154
ERR19::
1305 013624
885267
164160
ERR18::
1305 017.157.0
005257
154154,
ERR 1?::
1307 013534
805257
164150
ERR15::
1308 013640
005267
154144.
[PP 15
172.8A 013644
00527
164140'.
ERR14::
1310 013658
885267
154134
ERR13::
1.311 01.3654
005267
164130
ERR12::
1312.013660
885257
154124-
ERR11::
1313 013564
005267
164120
ERR 10::
1314 013670
085267
164114
ERR9::
1315 013674
005267
154110-
ERRS::
1316 813788
085267
164184-
ERR7::
1317 013784
005257
154100.
ERR6::
1310 013710
005257
164074',
ERRS: :
1319 013714
005257
164878.
ERR4::
328 013728
885267
154864
ERR3::
1321 813724
005267
154060
ERR2::
-- 813738
885267
154854:
ERRI::
1623
.
1324 013734
NESTOP:
?5 013734
805
1P.4858.
LPTST::
132(.-- 813748
88527
154044-
SELTST::
1327 013744
005257
154040:
BASEL::
1328.
808883
NEST.
1329
1338
1331
1332.
;
1333
1334 01.3750
015702..,
154034.......
!,
1335 013754
012701
087613'
136 017750
105741
1$:
1337 013762
001376
1338 013764
805382.
1339 813766
001374
1340 01.377n
AlAlne
1341 013772.
105741
2$:
1342.813774
001376
1343 013776
005201
1344 014000
160100
1345
1346 814882
WRITE.TO.TTO AND.PROMPT-
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC- ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD-
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ERWORD.
INC. ER WORD.
INC. ERWORD.
INC. ERWORD.
=. ./4
USE.THE.INDEX.ERWORD-TO.COUNT-UP FROM.THE.00TTOM.OF.
THE.MESSAGE.TABLE: FIND-THE.END.OF.THE.MESSAGE.FIRST,
THEN.THE.BEGINNING THEN.GET.THE LENGTH,
MOV.
TSTO.
ONE.
DEC.
ONE.
MOV.
TSTB.
ONE.
INC.
SUB.
ERWORD..R.2.
#ASC17,,R1
1$
R2.
1$
RI,R0
2$
R1
RI RB
;LOAD, LOOP.COUNT
..:POINT.TO.END.OF.MESSAGE.TABLE.
;LOOK.FOR.END.OF.MESSAGE.
;LOOP COUNT
;BACK UP ANOTHER MESSAGE";,
;SAVE POINTER Tn END OF I15
;BACK UP TO BEGINNING OF MESS
;BUMP TO FIRST.CHAR.OF.MESSAGE.
;RO HOW?MESSAGE.LENGTH.
OIWOS #IO.WVB..#LUN.TT,#EFN.1...*STHT,KR1.R8-.ABEND
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002000212001-3
'
TMiN iC PC, hi 11027-MAR-90 13:39 PAGE.27-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
014002 005045
A14A04 0A5A45
Ai4AAR A1i5045
A14R1A AARA45
01401.2. 010045
014014 010145
014a1ls AA5A45
A14A2A L112(4h UmMMU4
014024 005046
014A25 112715 A00001 ?
814032 812745 onnnal ?
014035 012745 AAA5188G.
814042 012745
014044 RA7. 1)14
014046 104377
0148551 1035102
014052 004757 000114
1347
134e 014055
A14A51,7, 012745. AARAR1
014052- 012746
014064 037 01i2
01.4065 104R77
1.341 13140713 1A5757
1350 014074 003436
1351
1352.
1353
1354 014075 022767 008003 163704
1355 1)14104 002427
1356 014105 012700 c.10002W-
1357 014112. 012701 1300120.
I3513 014115 112720 000040
1359 014122 0053111
1350 014124 001374
1351
1352.
1363
1364
1355
1366
1357
1358 014126
0141.2R 01271)1) 0075147:-
01.4132 eo5a,so 001142
014135 004757 0AARRAG-
1369 014142 103413
1370 014144 015057 000145 .153770
1371 1314152 012701 uuU020'
1372.014156 012(h(
1373 014154 510581,,,7
1374 014170 1)A132A7
1375
1375 0141.72.
01.41r2- 012(45 UMI-MMW
0141.76 017646 000000
173142U2- db2(bb UUMMO2
16:3710 ? ;
MLHM,J1'
153520
CLR.
CLR.
CLR.
CLR.
MOV.
MOV.
CI R.
MOv.
CLR.
MOVB.
MOV,
MOw.
MOv.
.BYTE
EMT.
BCC: ?
.-ISR.
CLEFSS.
MOV.
MOV.
.BYTE.
EMT.
TSTB.
BLE.
*EFH.1
*EFN.1,-(SP)
(PC)+,-(SP)
.1-0
STAT
ABEND.
ISSUE.GOML.
CMP. oNEST,ERWORD.
BLT-
MOY.
3$: MOVB.
DEC.
BNE.
TTX:
ABEND:
TTX.
*GCMBUF,R0
*90.,R1
*40,(R0)+
RI
3$
GOOD RETURN
;NO.
;PROMPT.W TH.MESSAGE.
JUST.EXIT.
;POINT.TO.COMMAND.LINE.BUFFER.
;HUMBER.OF.BYTES.IN.BUFFER.
;CLEAR- COMMAND LINE.
;FINISHED?.
;NO.
ISSUE'GET.COMMAND.LIHE
RET.UP.FIELDS:
GCHBUF. - WORK.AREA.TO HOLD.COMMAND.LINt-
GCMLEN. - LENGTH.OF.LIME.READ.
GOMPHT- - POINTER.TO.COMMAND.LINE.(SET.TO.POINTTO
GCMLS
MOV
CLR
J5R
BC 5.
MO,*
MO,.
MOV
CLR
RTS
*GCMBLK
*GCMBLK,R0
G:PSDS(RO)
GCML1
ABEND
G,CMLD(RO)
*GCMBUF,R1
*GCMBUF,GC
,GCMLEN.;SAVE.LENGTH.
;POINT.TO.COMMAND.BUFFER.
MPNT ;INITIALIZE.COMMAND.BUFFER.POINTER-
ERWORD. ;CLEAR..ERZOR.24;40B5W4NDJCATOR.
PC. ;AND-RETURN.
BEGIhNING)
ABRT$S. *MYSELF
MOV *MYSELF,-(SP)
MOV @(SP),-(SP)
v.04q0
.AHuuu2. ADD. *2.2(a
Approved For Release 2005/87/1 IA-RDP85-00514R000200020001-3
TMAIN. 11100.M1110 27-MAR-GO
172,77
1378
? ?TTtr:
Approved For Release 2005/07/1.IAADP85-00514R000200020001-3 ?
13;33 PAGE :7-
Ule44:1M HHHHK2 M8M8P12.
014216 012746
A14220 123 Ao7;
014222. 104377
MOV. g2(SP),2(SP)
:BYTE R72..,3
EMT
.END. START.
-
Approved For Release 2005/07/12 : Cd4akIRDiajr.(10
4,4
T
.:71r
,
TMAIN. MACRO
SYMBOL TABLE
MI110 27-MAP-80 1339 PAGE 27-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
ABEND 014172R.
ABEND2. 013522R.
HHIuH. uum2uh1
ALOW AAA210RG
ALUCKE-040000
ALUOE.-004000
APLACE. 000016RG.
ASCIL 007613R
AST 012755R.
ASTFLG-000020 G.
ASTWRD 000146R-
A01
BASE.
BASEL.
BHIGH.
BIHWD.
BITVAL=
BITO =
AlAARA
AnnAl4RG.
013744RG.
000212RG.
000012RG?
n00AAA
uuuuu1
BIT1 =-1111MMML.
BIT10 -002000
BITI1 -004000
BIT12.-010000
BIT13 -02000A
8ITI4 -040000
Eli Iii -10AAAA
BIT2. -umuuu4
BI T5 -0001110
BIT4 =? 000020
PIT5 -000040
BITS -000100
BIT? -000200
BITS. -000400
BIT9 -001000
BLOW- 000214RG?
?TEND. 005450RG.
BTOVER- 005452RG.
BTRAHS. 005250RG-
BUFCX. 010770R.
BUFCX2. 011206R.
BUFF5A. 010626R0.
BUFSET. 011014RG.
BUFS2. 011004PG.
BUFXX. 011002R.
BUFXX2- 011220R.
BYTEA =.MIHMHU
BYTE! -000001
BYTE10-000012.
BYTE11-000015
BYTE12-000014
BYTE13-000015
BYTE14-0001711
BYTE15-000017
BYTE 16=
BYTE17-uuuu21
BYTE1S-000022.
BYTE19-000025
BYTE2.-Huumu.d.
?
BYTE20=-000024
BYTE21-000025
BYTE22-00002f7.
BYTE23-000027
BYTE24-AAAA7A
BY1E25=-000031
BYTE26-000032.
BYTE27-000117.7.
BYTE2R-000054
BYTE2B-000035
BYTE7: -000007:
BYTE7.0-00007E
BYTE51-000037
BYTE32-000040
BYTE35-000041
BYTE34=-61610042
BYTE35-000043
BYTE36-000044
BYTE57-000045
BYTE38-000046
BYTE39-000047
BYTE4 -000004
BYTE40=-00005A
BYTE41-A00051
BYTE42-000A52
BYTE43.-000053
BY1E44.=-AA0A54
BYTE45-000055
BYTE46-000056
BYTE47-000057
BYTE4800171060
BYTE49-A610061
BYTE5 -000005
BYTE50-000062
BYTE51=:000065
BYTE52-'000064
BYTE53-000065
BYTE54-000066
BYTE55-000067
BYTE56-000070
BYTE57-000071
BYTE58-000072
BYTE59=-000077.
BYTES =.0ARAN'..-,
BYTE60= 000074
BYTES1-:000075
BYTE62-000076
BYTES3-000077
BYTES4-T1AA1An
BYTE65-000101
BYTESS-000102
BYTES? =000103
BYTES8=-000104
BYTESS-000105
BYTE( =.MIIHM-17
BYTE70-00010
BYTE71-000107
Approved
BYTE72-000110
BYTE73-000111
BYTE74-000112.
BYTE75-000113
BYTE76=.000114
BYTE??- 000115
BYTE78-000116
BYTE7P-000117
BYTES -000010
BYTE80-000120
BYTESI-000121
BYTE02-000122.
BYTER3-000127.
BYTE84-000124
BYTE85-000125
BYTESS-A0A126
BYTES?-000127
BYTES'8-000130
BYTES9-00A131
BYTES -000011
BYTER0-000137.
BYTE91-000133
BYTE92-000134
BYTEP3-000135
BYTE94-000136
BYTE95-000137
BYTE96-000140
BYTES?-000141
BYTE90-000142-
BYTE99-017.10143
BYTVAL-000144
CBKALL-001000'
CBI/4
000114
STI::
000114
004767
0000000.
000120
103003
Anvils??
004767
000ROOG.
000125
000543
000170
004757
Ouutiumu.
1$:
000174
11713003
000175
004757
HHHHHML1.
R171A1415.
AAAR.35
000144
1.104767
ULJUULitiU.
2$:
A0F115A
111;TiRA7,
000152
0047e7
0000000.
000155
01710527
;
000160
012700
000010.
3$:
RR0154
171127A2
nnpnnw
000170
004757
MMHHHIIG
000174
1Frinn-72
0001,76
004767
0000000.
A00202
OAA515
000204
01016(
ummuuuG,
4$:
000210
004767
000000G-
000214
0157R1
RORRORG.,
STIN:
ARA22A
000171
FIAAAAA
STORE,
PERFORM.SECOND.LEVEL.PARSING.
EG. IN?THE.COMMAND:
>ST.0 CR.
PARSE.TNE.'0'
JSR.
BCC.
JSR.
8R
JSR
BCG.
JRR.
BR
PC,FIND.
1$
PC. ERR3
ST1X
PC PACK
2$
PC,ERR4
ST1X
s:LOCATE.OPERAND.IN COMMAND?LINE.
;OK., CONTINUE.
MISSING.OPERAND,
;EXIT.
CONVERT COMMAND ? L I HE ? '../ALLI-E---TO ? BA-HR
.:CONVERSION.SUCCESSFUL.
INVALID NUMER IC 7flLUE

CONTINUE.PARSING.
FIND.THE.REGISTER.MNEMOHIC
JSR
BCC
JSR
BR
PC. FIND ?
3$
PC. ERR3
ST1X
IN.TNE.COMMAND.LINE.
LOCATE REG MNEMONIC-
CONTINUE.
rMISSING.OPERAND
MATCH.THEMNEMONIC.FROM.THE.D6W
THE.TABLE.OF VALID.MHEMOHICS,
HU,.
MU../
JSR.
BCC
JSR.
BR
#ST1LN,R0
*ST1TBL,R2.
PC. 5CAN.
4$
PC. ERR5
ST1X
4.; I f7EG it"t ? ,
,INUMBER.OF.TABLEENTRIES.
.:POINT.TO.TABLE-
WATCH.AGAINST.COMMAND-LINE.
WATCH.WAS.MADE.
v'INVALID.REGISTER MNEMONIC
'SAVE.TNE.POINTER.TO-TNE.ROUTINE.ASSOC
REGISTER, R1 ?> ROUTIMEADDRESS:
CALL ROUTINE TO.SCAN.THE.COMMAND LINE
INDICATOR: EG
>ST ? CR ? L ?
LOOP ? FLAG WILL ? BE ? SET ? IF ? IND ifl
JUMP ? TO ROUT I HE ? TO ?LOAD ? pECiI_SITR;
IHTED A? LOOP
FRWOM,
MOV. R1,RTHPT. SAVE?POINTER
JSR. PC,LOOPR. ..:LOOP.ON TEST.
MOV. RTNPT,R1 ;POINT-TO.ROUTINE.
JMP- @(RI) ;JUMP .TO ROUTINE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TREG- MACRO?111110 27-MAR-80 15;39 PAGE?52.
Approved For Release 2005/07/12 : CIA-RDP55-00514R000200020001-3
1
115 ;
115 ,
11? ; STORE.INTO.THE.MEMORY.ADDRESS.REGISTERS.FOR-THE-FSPCS.
119 000224 012767 AAAAAA. ?0AFIA00G ETA :: MOV. #T$FSAA,APLACE ;SELECT.FSH.A.
126 660232. 00640? BR STOP ;MOVE?SELECTIOWTO TO.
,
121 66627.4 012767 UHUU04 0000011U 5-1-Elg: NOV. #T$FSAB,APLACE ;SELECT.FSA.B. 4.
122.660242. oaa41-33 BR STOR
123 000244 0127F,7 000014, AAAAOAG tiTC:: MO V #T$FSACAPPLACE ;SELECT.FA
124
125 006252. 052767 020000 000000G?gTOR: BIS. #T$SCLK,APLACE 7.START.CLOCK. 1
126 066260 016767 66061710G,176760 Mg.,/? APLACE,TD$CTW. ;MOVE .TO CONTROL RED
127 uum2hh 016757 OAAOAAG,1757.62. MOV. BINIADfiTDSTAW. ;MOVE.VALUE?FROM.COMMAND?LINE-
128 000274 000454 BR STLP ;CHECK.LOOP?FLAG.
129 ;
136 ;
STORE.INTO.INPUT.BUFFER.MAR.
---
24 .2.
131
132 1.
.000276 012767 666640 76350 5-FI;: MnV.
MCN? #T$ I CD , TD$CT1,J.
41=TS I BAR , TDIITA LI ; E H A B L E ? I f?A TE R F A C E - A f?-I D ? C 0 R 0 L
1,1
133 A667,04 612757 0066 17576 ? ..,,,,,0071s.011,'117
??
.. ...
TA,. voill
UTPUMBUFFER?MAR
132
139 Ann327. 012757 000040 :1767.50 STO:: MOV. *T$ICD,TD$CTL1. ;ENABLE.IHTERFACE.AND.CHTL.
140 AAA372.A A12757 000H 17552 MCIV? 4.1.1-$02WA,T1'$TAW ;SELECT?OUTPUT.BUFFER.
141 UOU636 016(6( UUtil.JUUU..1(b7.64mov. ,TEI BINUDSTDU. ;MOVE?WORD ?TO.TRAH2FER.REG..
142.000344
0a1430
BR STLP
143
-.1.?.,v? ;" .,.:
144 ; STORE.INTO.THE.BYTE?TRANSLATOR?MAR. '
145 ;
146 008346 012767 000040. 175360 STBT:: MOV ? __, ......; 0.
#T$ICD,TD$CTU. ;EHABLEINTERFACE?ANTROL.
147 060754 012757 01710030. -175352. MO v? *T$BTAR,TD$TAU ;SELECT-BYTETPAUSLATOR. . .
148 A3A752. 01675? 000nAAG..175754 MOV. BINWElfiTD$TDLI- ;TRAMSEEP-DATIR440,RP..
149 00037.A A00411,-; BR STLP
150 ;
151 : STOREINTO?THESECTOR.COUNTER.
152.
153 A00372. 012767 666046..?175356 5T2C:: tr:li2, ,176362- #T$ICO,TO$CTW. ;ENABLE.INTERFACE?AND.CONTROL
154 000406 01276? 00002 .
#T$SC,TOSTALI. .:SELECT.SECTOR.COUNTER.
155 006465 016767 060000G:175364 MOV. 8INLID,TO$TOLI- ;TRANSFER.DATA.WORD.
155 686414 600404 BR STLP
157 ;
152 ; STOREINTO?THE-CONTROL REGISTER.
159 150 000416 016767 A 00 .1.
0AnG75350 STCR:: NOV. BINUO, W. TO$CT ;MOVE.TO CONTROL .REG. ? '.'*.t .?.. ,;..'?..
161 666424 600400 BR STLP
152.
153
164 flfl045 072767 0066661,..666600G?gTLP: BIT. *LOOP ,BASE. ;LOOP?FLAG?011.
166 .
155 006474 001267 21-1E STIN ;YES, REPEAT.
157 066475 ST1X:
168 000435 004757 AAOAAAG-.
16!..7) UU0442 OU1b( UUMUUUG.' TAri PC, l< ILL ; K I LL ? AST
?
C 0 MN 000157 ? (:,.I.H.Eg, ,;?,
. A ?1'.':;.2
?
?
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
TREG- M1 10 27-MAR-80 15: Approved ForRelease 2005/07/1.IA-RDP85-00514R0002000200d1 400 139 PAGE 6
-3,
- 7A1,'
171
172.
173
174
175
176
177
178
179
180
000446
PEI::
181
000445
004767
UmUtitiu-:
182.
AAA452.
ip-130A72,
183
000454
004767
000000G.]
1E14
eaae6a
oaas74
185
18F.
187
188
189
000452.
012700
000013
i$:
190
ARA466
012702
0A0040'
191
000472-
004767
ummetuut;..
192.
ARA47F.
11-172.01713
197.
cloo-soa
004757
000000G-
194
1710051714
ROOSF.2
195
195
197
198
199
200
201
202.
203
204
0101h7
1.11.111MHHU-
2$:
205
000512.
004757
000000G.
205
000515
015701
AAAARFIG.
REIN;
2A7
000522.
000171
AAAAAA
208
20q
210
211
212
000525
REAA::
213
000525
012757
000000. '175360
214
000534
015701
176372
215
000540
000523
216
217
218
219
AAP1542-
REBA::
22A
AAA547.
012757
AAAAA4 1(521FA
221
AGA55A
015701
175372
RPA554
000515
2 3
224
225
225
000555
RECA::
227
000555
01271;7
000014 175-7160
READ
PERFORM SECOND LEVEL PARSING
EG. IN THE COMMAND;
;RE CR
PARSE THE 'CR'
JSR.
BCC.
JqR-
BR
PC,FIND.
1$
FC. ERR3
RE1X
;LOCATE.THE.REGISTER-.MHEMONC.
;FOUND-ONE.
MISSING.OPERAND
MATCH-THE.REGISTER.MHEMONIC.FROM THE.COMMAND-LINE.
AGAINST.A.TABLE.OF.VALID.MHEMOHICS:
NOV.
MOV.
JSR.
BCC.
JS R.
BR
#RE1LH,R0
#RE1T8L,R2.
PC SCAN
is
PC ERRS
RE1X
;HUMBER.OF.TABLE.EHTRIES.
;POINT.TO.TABLE.
;MATCH.AGAINST.COMMAND.LINE.
;MATCH.WAS.MADE.
INVALID.REGISTER MNEMONIC'7
*
SAVE.THE.POINTER?TO.THE.ROUTIHE.ASSOCI
REGISTER: RI -> ROUTINE .ADDRESS:
OA"L.ROUTINE TO.SCAN.THE.COMMAND LINE
INDICATOR: EG;
>RE.CR.L.
LOOP.FLAG.WILL.BE.SET.IF.INDICATOR.IE
JUMP-TO.ROUTINE.TO.READ.REGISTER.
NOV
JSR
Mn,?
jMP
RI,RTNIPT
PC,LOOPR?
RTNPT,R1
ill IR.1)
ATEri-jAt'tk?
,HE.
FOR.A-LOOP.
PRESENT:
;SAVE.ROUTINE.POINTER.
LOOP OH TEST?.
;PCJINT.TO.ROYTJ,M.Fy
;GO -THERE. -
READ.FSA.A.MEMORY.ADDRESS.REGISTER.
MO,,.
MOV.
BR .
#T$FSAATD
TDSTAR,R1
REPUT.
CTW ;SELECT.FSA.A.
.:GET. PEG CONTENTS.
;PRINT.
MEMORV.
MOV. #T$FSABTDSCTW ;SELECT-FSA.B.
MOV. TD$TAR,R1 ;GET.REG CONTENTS-.
BR REPUT. ;AND.PR.111T:
READ.F9A-C.MEMORY.ADDRESS.REGISTER-
MOV *T$FSI:iCTIIWTW
Approved For Release 2005/07/12 : CIA-RDP85'
6020Q114-3., .
TREG- MACRO-M1110 27-MAR-80 15:39 PAGE-6-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
MEN- TD$TARR1 GET REG CONTENTS.
BR REPUT- ;PRINT-
READ INPUT.BUFFER-MEMORY-ADDRESS REGISTER-
725.000564
015701
1767.72:.
229 000570
000507
230
231
233 0An572-
RE IA:
234 000572-
012767
000040 176360
235 000600
012767
000024 ? J76352-
235 000505
015701
175374 ?
237 000512
00047
'7)70
239
240
241 000514
REDO::
242-000514
012757
000040. 175354-1
243 000522.
012757
000034 ? 176352.
244 000E.7i0
016701
176374-
245 000634
00045
245
247
248
249 0011535
kTA::
25A 00057F,
012757
000040 176350
251 000544
012757'
000030 175352,
252 nnnE.52.
015701
175374
253 000556
000454
254
255
256
1 AAAFF0
RESC::
250 000E50
0127E17
000040H 176350
259 000555
012757
uu0u22. 176362.
260 000574
015701
175374
251 000700
000447.
252.
263
254
265 000702.
FEU::
266 On0702-
016701
176370 .
267 000705
000440
258
269
?
?
270
271 000710
016701
176376:
PESW::
272.000714
000435
277.
274
275
276 000715
277.000711;
012767
000040 1767.60
278 000724
012767
000030, ?1753152,
279 000732.
015701
176374
2:710 AA736
anR424
281
2R2.
283
284 000740
?
110V .
MA-? ?
NOV-
BR
#T$ICDTD$CTW-
#T$IBARTD$TAW
TD$TDR,R1
REPUT-
;SELECT-INTERFAEE.AND-EONTROL,.
;SELECT-INPUT-BUF-REG.
;GET. REG CONTENTS-
;PRINT-
RFAD-OUTPUT-BUFFER-MEMORADDRESS-REGISTER
MOv-
MOV-
MnV?
BR
#T$ICD,TD$CTW-
#T$OBRATD$TAW
TD$TDR,R1
REPUT-
;SELECT.INTERFACE.AND.CONTROL-
;SELECT-OUTPUT.BUFFER.MAR.
;GET.REG CONTENTS.
;PRINT.
READ.BYTE.TRAMSLATOR.MEMORY.ADDRESS.REGISTER.
MLW-
MCW?
MDV?
BR
#T$IODTD$CTLI.
#T$BTAR,TD$TAW
TD$TDR,R1
REP UT
READ-SECTOR-COUNTff;:
MOw-
NOV-
MOV-
BR
*T$ICDfiTD$CTW.
#T$SC,TD$TAI,L
TD$TDRRI
REFUT-
READ-CONTROL REGISTER.
MOV- TD$CTR,R1
BR REPUT.
READ-STATUR.REGISTER-
MOV.
BR
;SELECT INTERFACE AND CONTROL
;SELECT BYTE TRANSLATOR._
;GET BYTE TRANS MkR.:
;PRINT
-
".,'?.7W-.7-
;SELECT-INTERFACE-AHD-CONTROL-
;SELECT-SECTOR-COUNTER-
;READ-SECTOR-COUNTER-
;AHD-PRINT-
,Nr{o
;LOAD-CONTROL-REG-
;PRINT-IT-
TD$SW.,R1 ;LOAD STATUS REG
REPUT
READ ? NI SC ? CONTROL ? S I GFIALS-77 ? ?
#T$ICD,TD$CTW-
oT$BTAR,TDSTAW
TD$TDR,R1
REPUT-
PRINT-TD-OUTPUT-TO-OR-.
;SELECT-INTERFACE-AND-CONTROL-
;LOAD-MISC-REG.
;READ-MISC-REG-
-
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
TREG- /1110 Mu 10 27-1HP-80 15:39 PAGE 6-2-
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
285 000740
286 000744
287 000750
.71100
,......, 0110752.
289 000750
290 000764
291 000766
292 000772.
2q72. AnA771;
294 001002-
295 001006
LOOP296
2R7
2..:18
299 0511010
300 001010
301 001016
30 0010:0
303 001026
304 0010732.
7.05 AA107iF.
305
307 001042-
308 001050
72,09
7.10 515115152.
311 001052.
312.0010 60
.31:3 8811154
314
315
016701
032701
1101005
012767
004767
000425
012705
015701
00477
0047'S?
000415
032757
001011
052757
012705
004(67
004767
032767
001222
042767
1'7.
00477
IIMMlin(
000881
175344
1000110
046505,.uumwd0G.
000000G.-
AnAnOOG. IS:
175346
ORAAARG,'
000000G.
REPUT:
000000G.000000G-
AAAA00G.A00000G.
000000G.
uuutik3uu-
HMMIIMML,.
;
UunAmuu.AviuNmml,RELP;
REIX:
AnnrInnG.000000G-
AA0000G.
MMMUUF%.
MOV. TD$OHR,R1
BIT. *T$OUTA,R1
BHE. 11;
MOV. #PEM,PRIHT.
J!5R. PC,CONSOL.
BR RELP
MOV. oPRINTR5
MOV. ,
JSR. TD$OTR,R1
jSR. PC,UNPK.
PC,CONSOL.
RRRELP
PRINT REGISTER CONTENTS.
BIT. ItoNCE,BASE.
.
BNE RELP
BIS. #ONCE,BASE-
MOV-
jSR. 4PRINT,R5
PC,UHPK.
JSR- PC,CONSOL.
BIT.
BNE. *LOOP,BASE.
REIN
#ONCE,BASE.
.W.;.1 PC ILL .
MP. XX.
J COM
.END.
;READ.OUTPUT.WAILABLE.REG.
;IS.OUTPUT.AYAILABLE.
;YES, PRINT.
;EMPTY.
;WRITE .MESSAGE.
;TEST.LOOP.
;POINT7TO.RfNT:.:DHE.
;READ.OUTPU-T,;;
;CONVERT
;PRINT. I.:L.
;TEST
;CONTENTS-ALREADPRINTED.ONCE.
;YES, SKIP.SUBSEOUENT.PRINTINGS.
;SET.FLAG.FOR.LINE PRINTED..?
2gZ.TPOINTER.TO-PRINT:LINE.;
;WRITE.TO.TTO
;LOUP.FLAG.OH.
;YES, REPEAT.
;CLEAR.LOCAL.FLAG.
;KILL.AST.(IF.THERE.WAS.OHE)
.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TREG- MACRO.M1J10
SYMBOL TABLE
ALUCKE-040000
ALUOE.-AA4AAA
APLACE-****** GX.
001 =? 010000
BASE. -****** GX.
BIHWO--****** GX.
BITVAL-AAAAAA
BITA =.AAAAA1
BIT1 -uoumu2-
BIT10 =.111.12HMM
BIT11 -004000
BIT12.-AlAAA0
BIT13 -u2oduu
BIT14 -A4Anne
BIT15 -1AAAmm
BIT2. -AAAAA4
BIT3 -000010
0IT4 =. 009020
BITS -A0A04A
BITE =.17001A0
BIT? =. 009200
6ITB -000400
;,IT5.71 =.17I01000
BYTE0 --ROARAA
BYTE1 -0000A1
BYTE10-AAAA12.
BYTE11-AAAA1
BYTE12-000014
BYTE13-000015
B1'TE14-AAAA1S.
BYTE 15=
BYTE1S-AAAARA
BYTE17-000021
BYTE 10=
BYTE19-AAAA27.
BYTE2.-000002.
BYTE20-000024
BYTE21-1j1j1jHzb
BYTE22-uAAA2H
BYTE26.-HHHH27
BYTE24-000030
BYTF25-AAAA31
BYTE2S-AAAA:2.2.
BY-1E27-00007'2.
BYTE28-0011074
BYTE29-A00A7.5
BYTE7. -1A0993
BYTE3A-RAAA7,6
BYTE31-00007.7
BYTE32-nn094.0
ByTE7.7.-000041
BYTE.34=-090942.
BYTE:3.5-000043
BYTE36-000044
BYTE7.7-000045
BYTE7A-000045
BYTE39-000047
?
27-MAR-80 15:39 PAGE 5-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
BYTE4 -000004
BYTE40-000050
BYTE41-000051
BYTE42=-AAAA52?
BYTE43-000053
BYTE44-0AAA54
BYTE45-AAAA55
BYTE4S-ARAA5E,
BYTE47-000057
BYTE4P-AAAAhA
BYTE49=-000051
BYTES =-UMmmm9
ENTE50-AAAN52.
BYTES 1=
BYTE52=-000064
BYTE57.=-000065
BYTE54=.000066
BYTE55-000067
BYTE56-0A007n
BYTE57=-000071
BYTE58-000072.
BYTE9q-AAAA77.
BYTES -AA0A0P.
BYTE60-AA0074
BiTE61-000075
BYTE62-000075
BYTE63i-000077
BYTE64-000100
BYTE65=.000101
BYTE66=-AAA1A2.
BYTEE7=.000103
BYTES8=-A0A104
BYTES9-000105
BYTE? =-1111MMI17
BYTE7A=-000105
BYTE71-AAA1A7
BYTE72-000110
BYTE7.3-000111
BYTE74-000112.
BYTE75-000117.
BYTE76=.000114
BYTF77-AFIF1115 ?
BYTE78-000116
BYTE79-000117.
BYTES -000010
BYTE80-000120
BYTE01-000121
BYTE62-AA11i?2.
BYTE8.3=.000123
BYTE84-000124
BYTER5=-AnA129
BYTESP--AAA12P.
BYTES:7-000127
BYTE80-000170
BYTE89-000131
BYTES -000011
BYTE90-000132.
BYTE91-000133
BYTE92-000134
BYTE93-000135
BYTE9.4-0001
BYTE95-00017.7
BYTE96-000140
BYTE97-000141
BYTE98-000142
BYTE99-000143
BYTVAL-AAA144
CEIKr2ILL=-AA1Ann
CBKOLK-AAA4An
CHOBRE=.1000AA
COMXX? ****:,fc*.
c0H!:-.;0L = ?
CPCCEH-AinARA
CPREAD=-0400AA
CPWRTE-A2AAAA
C6ADRO-000004
CSEOCI-DJUumu
CSOE- -000040
C3WRTE-000100
LOP... P9=
DB$CPP-A014ti7
DB$SPT=.1-imlu2
DB$TPC-AAAA27.
DISPGS-10A0AA
DMAAWR-A0AA05
DMARRO-A0A0A7.2.
D10NWK-AAUAA4
EHBR. =.010000
ERR3 -******
ERR4 -******
ERRS -******
FIHO. -******
KILL. -******
LOC:EH-OAAIAA
LOC,WA-A4ARAn
LOC:WB-1AAAAA
LOOP. -******
LOOPR.-******
MAREH1-AAAAA1
MAREH2-004000
MARLOD-01000A
MAROUT-AHAUA2.
MEW.;LU=-1,1M2MMM
MAR60U-00004A
mEIKALL-ooionn
MBKCLK-000400
MMADRD-ARA1An
MMLEFT--AnnAA2-
MMOE- =-AAAPIA4
MMURTE-AAAA1A
M1-10BRE=-1AAAAA
MREN1 -000001
MREN2.-HLHHHH
OX.
OX.
GX.
OX?
H. -000144
ONCE. -****** GX.
PACK. =. ****+:* GX-
PLB. -000010
PLC. -AA0020
PLO.
PLRWR.-ARA2AA
PLR:EN=.11UU2UU
RRIHT.-****** OX.
ORSCR1-17E420
ORSCR2-17E422.
C1R$LBR-176424
0$ATTH-A0A1AA
C.!VEICL-=-0AFIFIA1
OS000P-000040
D$CHB.-000400
0$CHRL-AAA200
0$CLR.-AAAA4A
0$CHC.-030000
0$CP. -000050
0$CPCC-AAAA1A
0$CP2.-000750
050!=..C.-010000
0$CSEL-A007.2.50
0$CSET-A0AA07.
0$5SP.-020000
0$OMA.-000001
0$ENBK-04A0AA
U$EHOF-U21.JUUU
0$FAL.-A04AAA
OSFC. -000045
0$F0. -000044
05FP. -00004E.
0$HBF-AAAAA2.
05ICP-00111006
0$IMB.-000003
0$IHRL-000002.
0$IMRP-000007
0$LBD...-AA1AAA
0$LBDP-001001
0$LBP-000A01
0$LOCD-AA1-11
0$LOMD-AAAAA4
0$LOPP-Hu2HUU
0$LHP.-A10000
0$MHC.-140000
0$MR. -AAAA52-
0$MRP.-000040
0$MRP2-000240
0$MSC--A4AAAA
0SMSET-000004
0$MSP.-100000
0$HCLK-1760AA
0$PP. -AAA100
0$PPSW-A0A37#-
0$0L -000043
0$0LA.-000053
0S0LS.-000054
0$01.R.-000001
050W -01710042
U$RDED-uumuuh
0$RDMD=-00000
0$R9K-001000
0$RHC.-005000
1:15RC.-004000
0SPSET-000010
OSSM -1AAAAA
0P5AP -000120
OV5P2 --000340
REAA 00052RG. AA?.
REBA 000542RG. 002.
RECO 00055EIRG 002.
RECR 00B707.R1:= 002.
REIA 0005,7715R )Y7 ;171,02..
REIN 009516. 0627.
RELP 001.042R. 0A2-
RENS 1100716R.G, 01712-
REDA -106144RG.: 002.
PEJJ 1O1 OK. ?
REOR- 000740RG 002:.
REGC. .00A65AqG 002.
RESW 000711'RG. 002.
RETA 00063ER0. A02.
REI 000445R0. 002.
RE1LH.--0000172. G.
REITBL. 0A0040RG. An?.
RE1X 001052R-
RO:EN-000200
RaLVA-02171000
RTMPT.-****** GX-
SCAH -****** GX-
SE0:CI-000010
STA- HHH,...4._4[0.3- AA?.
STB. 00027.4RG. AA?.
STBT 00034E.1RG. 902.
STC- 000244RG. A02.
STOP 000416RG 002
STI. 000276RG 002.
STIN 000214R. 002.
STLP 000425R.
BTO. Li11ii3 ;91j.
STOP -017125.2R? AA?.
STSC 000.372R1 A A2.
ST1 000114RG.
ST1LH ? =? AAAA1A G ?
ST1TBL ? FinnpinFIRG? 002
STI Fino?47,F.R ? 997.
SOLR? = ? APAAFIA
c
0$PP7.--.0007:00 S$OR
MSYH. -000040 0$OHLT-000013 S$OX
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
hn rip14'
)-
= ?
ElIJUNtIb -
TREG- ADO M1110 27-MAR-80 15:39 PAGE-6-4
SYMBOL-T. Approved For Release 2005/07/1.IA-RDP85-00514R000200020601-3.
R$AR-
T$IBA1=-000024
WORD15-000035
WORD44-000130
11Ii11322
S$S1 =.000010
TSI1E-----U2UU1iU
WORD15-000040
WORD45-000137-
WORD74?UUU2,'4
=.000014
T$IBF....114AAAA
WORD17-00A047-
WORD46-000134
WUHD.(b?mum,:ys
TD$CTR-176770
T$ICD-=.A171171A4A
WORD1R-000044
WORD47-00017,5
WORD75-000730
TD$CTW-1710
T$MODE=.0R4AAA
WORD19-000046
WORD 48 = ? 000140
77 = ?roof,..-12.3.7
TD$111L-004000
T$08- ?000036
WURD2?mmvimm4
WORD4R-000147.
WORD7R=:00077.4
TD$MEM-000270
T$OBE--004000
WORD20-000050
it ?000017-
WORD79-000235
TD$OAR-176344
T$08F?.010000
WORD21-000092-
WORDA=.000144
WORDR =. 0005120
TD$OTR-176346
T$OBRA?AAAA72.4
WORD22-000054
WORD51-00014A
WORD 80 = ? 000240
TD$ORD-000274
T$OBWA-000032.
WORD27.--000055
WORD52-000150
WORDR1-000242
TD$8W.-17E.375
T$OUTA-100000
WORD24-00A0AA
WORD F17-1-000157-
WORDR2-000244
TDSTAR-1715372.
T$RBD0?mmm,uu
WORD25-000057.
WORD54-000154
WORD133-000246
TDSTAW-176762.
T$RHEI--000040
WORD2S-000054
WORD55-000155
WORD84-000250
TD$TDR-1715374
T$RSET-040000
WORD27?u131111sH
WORD56-000150
WORDR5-000252
TD$TDW-1763f7.4
T$RO.
WORD2R?A0AA7A
WORD7-00A1A2-
WORDRA-00024
T$AD. ?000020
T$SCLK?HeLl-INHH
WORD2R?AAAA72.
WORD9S?AAR1A4
WORDR7?AAA25A
T$BA. --AAAAA7.
T$SEG1?uuuumu
WORD3 ?000005
WORD59-000165
WORD8R?OAA250
TSBD. ?000010
T$SEG2-000001
WORD30-000074
WORDS ?000014
WORN:9-0002157
T$BS0.-1umumu
T$5EU3=-MHMIK,,.
WORD...31-000075
WORDA0-000170
WORDR ?flonn7,2
TEBT. ?000020
T$So. =-AAAAA1
WORD32-000100
WORD61-0A0177.
WORD9A-000254--
T$EITAR-000A30
T$UBUR?DINHHH
WORD62-000174
WORD91= ? 00k.1285
T$EITD.?uuzuud
T$1CLK-00.0400
WORD34= 000104
WORDS:3-000175
R D92 = ? 51510270
T$CD. ?000100
TSB-BEN-00002A
II it=
WORDA4-0002AA
Ld 0 Rt1117?,; =
T$CLK.-002000
UBD4P-1=-Hmmm.,-.m
WORD36-000110
WORDA5?AAA202-
woRD94= ? 0002747-
T$DIRK-000200
UHIRK. =?****** CX.
WORD7;7-0A0112.
WORD56= ? 000204
WORD95 = ? 000276
T$DRD-000004
T$EMEM-010000
WORDO ?00000A
WO1-1D1 ?000002.
UJORD3S= ? 000114
WORN9-00011E,
WORDS7-00020A
13O11DS:R-17100210
WORDRA-0007.00
WORDR7-000307
T$F121A-171001100
WORD 10=
WORD4 ---AAA01A
WORDA9-000217.
WORD98-000304
T$F;A1i-000004
WORD11-00007A
WORD4A-000170
WORD7 ?000016
WORD99-000305
T$FSAC-000014
T$F502-000010
WORD 12=
WORD17.-000032.
HflR D41 ? 00A 172 ?
R D 42 = AA A124
WORD70-000214
WORD71-00021A
WRDVOL-000310 '
XTREAD-001000
TSIB- =.1.1HMKh
WORD14=-A000:2,4
WORD47.-00017A
WORD72= ? A05172A
XTURTE-000400
. pos. 000000 000
0051000 001
TRES. 001070 002
ERRORS DETECTED A
VIRTUAL MEMORY -USED: 3265 WORDS. (.13 PAGES)
DYNAMIC -MEMORY: 3860 WORDS. ( 14 PAGES)
ELAPSED.TINE; 0000:45
TREG,TREG/-SP=E20,1JIM.,E20,1:TREG-
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TMEM-. Nil? @ 27-MAR-80 15:37 PAGE .5
Approved For Release 2005/07/1
2?MMMHMH
-2
4
5
6
9
1A
12.
13
14
15
15
17
18
19
20
21 nrinnui
LDITBL::
'4"Z-MMMMUM
101
115
000002.
eiga-332,'
24 UUMUU4
102.
115 ?
25 FIFIAARIL.1
26 0005110
1513
115
27 000012
000422.!
2R.PIAAR14
iii
RAFIAll;
AA1i451,:".'
30 H1iuu'L0
117
102
31 000022.
000654'
32.1.100024
102.
124 ?
U0H0211.
UU1112'
34
0AAARf:.1
LD1LN.
35
3R
3R nn212171171
39 000517.0
101
115
40 000032
001650'
41 1AAA54
102.
115
AA17A4'
43 000040
103
115 -
44 AAAA47
An1.740'
45 0051044
111
102
46 AA01i48
001774'
47 000050
117
102
48 00AA52.
AA2A72.!
49 0000.54
? 102.
124.
50 0A0A5C--.
AA221A'
51
000685
PR:1LN.
52.
54
55
54
57 OAAAGA
LD1::
.TITLE?TMEM
.PSECT. TMEM
MEB.
IA-RDP85-00514R000200020001-3
TERM. DETECTOR ? 'MANUAL! DEBUGG DIG .AIDS ?
MEMORY ? EXERCISES.
COMMANDS:
LD LOAD MEMORIES
PR PRINT.MEMORY.CONTENTS.
ONCE.A.COMMAND.HAS.BEEN.EXECUTED (0R.AN.ERROR.ENCOUNTERED)
THIS.MODULE.RETURNS?CONTROL.TO.THE-MODULE.TMAIN.AT.LOCATION.
'romxx.7:
TABLE-OF-VALID.MEMORY.MNEMONICS.AND.THE.ADDRESSES.OF THEIR
ASSOCIATED .ROUTINES:
.ASCII. ;FSA.A.
WORD. LDAM
ASCII. ;FSA.B.
WORD. LDBM
ASCII. ;FSA.C.
WORD. LDCM
ASCII. ;INPUT .BUFFER.
WORD. LDIB
ASCII. /08/ OUTPUT BUFFER
WORD. LDOB
ASCII. /BT/ ;BYTE.TRANSLATOR.
.WORD. LOOT
== /4
PRINT.
.ASCII. /Am/ ;FSA.A.
.WORD. PRAM
.ASCII. /BM/ ;FSA.B.
.WORD. PRBM
.ASCII. /CM/ ;FSA.C.
.WORD. PROM
.ASCII. ;INPUT.BUFFER.
.WORD. PRIB
.ASCII. /08/ ;OUTPUT BUFFER
.WORD- PROB
.ASCII. /BT/- ;BYTE.TRANSLATOR.
.WORD. PRBT
== ?.-PRiTBL>/4
LOAD.
Approved For Release 2005/07/12 : CIA-RDP85-00514R00020002Q001-3
TMEM-.. MACRO nil 113 27-MAR-80 15:37 RAGE,5-1
Approved Fbr Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
58 000050 004757 000000G'
59 000064 103004
50 000055 004757 ULINHHHO.
51 000072 000457 001246
5253 000075 012700 000005 -
64 u001u2 i.112702- ummHuu
bJ AA01171E. 004757 000000G-
55 000112. 103004
h( HM0114 UM4(h( HHHHHHb'
LLI 000120 000167 001220
70
71
72.
74
75
-
JAR.
BCC-
JSR.
Jr1P
PC ,FIND.
1$
PC. ERR3
LD1X
;LOCATE.MEMORY.MNEMONIC.IN.COMMAND.LINE-
;OK, CONTINUE.
;AMISSING.OPERAND
;EXIT.
,
MOv- #LD1LNR0 ;NUMBER.OF.TABLE.ENTRIES.'
t' *LD1TBL,R2. POINT.TO.TABLE.
...T1v ;
F
! i PC,SCAN. ;MATCH.AGAINST.COMMAND.LINE.
Bcr.? 2$
ERRS ;MATCH.WAS.MADE
PC, .
JSR ;'INVALID.MEMORY.MNEMONIU
RIP. LDIX
SAVE POINTER TO.ROUTINE.ASSOCIATED.WITH-THE.MEMORY.MNEMONIC.
SCAN.THE.REMAINDER.OF-THE.COMMAND-LINE-FOR CONTROL .INFORMATION:
1. START.ADDRESS.ONLY: REPEAT.PROMPT.FOR.EACH.MEMORY LOCATION.
FROM.THE.START.ADDRESS.FORWARDL NB; END OF .MEMORY (AS.DETECTED.
BY.THE.OMAIN.SUBROUTINE.PDATA) OR.A. RESPONSE TO.THE.PROMPT'
WILL.TERMINATE.THE.LOAD:
---- ?
>LD.08-0
START .ADDRESS, LOOP INDICATOR. LOOP.ON.THE.LOADI.NG.OF.
THIS.ONE.MEMORY.LOCATION.ONLY.
>LD.OB.0 L.
3. START ADDRESS. END ADDRESS. NO .LOOP: ISSUE.ONLY.ONE.
PROMPT.AND.FILL.MEMORY.(BETWEEN.START.AND.END.ADDRESSEE)
WITH.THIS VALUE:
>LD.OB.0 6
4. START ADDRESS END ADDRESS. LOOP.INDICATOR: ISSUE ONLY ONE
PROMPT.AND.LOOP.ON.THE.LOADING.OF.MEMORY.(BETWEEN START.
AND.END.ADDRESSES) WITH.THIS.VALUE
>L1i.OB.0 6 L.
000124 010167 AmmeIHMG: 2$: MOV. R1,RTNPT. ;SAVE .POINTER.
.0110130 004757 012108005- JSP... PC,FIND. ;LOCATE.START-ADDR IN.COMMAND.LINE.
000134 1071104 BCC. 3$ OF CONTINUE.
000136 004767 000000G, J5R. PC. ERR3 v-MISSING.OPERAND
O00142 000167 0111176 JM? LDIX ;EXIT.
000146 004767 uuuutiuu- 3$: JSR. PC. PACK ;CONVERT COMMAND-LINE.VALUE.TO-BINARY.
O00152. 107.004 EL .0 ? 4$ ;CONVERSION.SUCCESSFUL.
000154 004757 000000G. JSR. PC,ERR4 v'INVALID-NUMERIC.VALUE
000160 000167 001160 JMP. LD1X
080154
880172
mmOLHM
015757
01575?
012767
HHHHHHI,MACIA0F1G.4$:
HMHPIMMb.HHHHMHb.
177777 umuuuul..4.
000205 004757 HHHHHHu.-
000212 1071004
000214 852757 HummHui,H1-1000Ub-
000222. 000437
?
a
Mgv,.
MUV.
BINWD,MSTRT.
BINWD,MSTR2.
*--1,MEND.
;SAVE.LOADING.START.ADDRESS
SAVE IT TWICE-(FOR.REFRESH ON-LOOP)
;INIT.END-ADDRESS.
START.ADDRESS.HAS.BEEN FOUND: SCAN.FOR.END ADDRESS.
OR LOOP.INDICATOR..(CONDITIONS.2, 3 ABOVE). IF THERE
IS NOTHING.FURTHER.IN.THE.COMMAND.LINE, CONDITION
-
1 IS.IN.EFFECT:
PC,FIND. ;SCAN.COMMAND.LINE
BCC. 5$ ' ;SOME- _
BIB. oRP,BASE- ;SIGNAL. J P P MP
BR 9$ ;JUMP.TO RTN.
Approved For Release 2005/07/10CIA-RDP85-00514R000200020001-3
TMEM- 4100 M1110 27-MAP-80 1537 PAGE 5-22 Aft
Approved For Release 2005/07/1wIA-RDP85-00514R000200020001-3
115 FIAO224 122711
115 00027.0 001006
117 A00232. 015767
000114 ? 5$:
6$:
; ?
MMI-IMMMU.MMHFIMMU.($:
UHUMHMLI.
118 080240 004757 00001:10U..
119 000244 000425
120
121 000245 004757 UHMMMM6.'
122-000252. 103004
123 000254 004767 000000G.
124 000250 000157 17101M6171
125
125
127
128
129 000254 016767
130 000272. 004757
131 000275 103411
132-008700 122711 000114 ?
133 000304 001404
134 ono3os 004767 liuuutlut..?,
135 000312- 000157 001025 1
136 000316 004767 00000013.
137
138 000322. 016701 0000006.
139 000325 000171 AAAAAA. ?
140
141
142
143
144 000372
145 000332-
146 000340
147 000344
148 000350
149 000354
150 000356
151 0007,1f--;7.
152
153
154
155 1100365
156 000356 012767
157 000374 015745
158 000400 016746
159 000404 004757
160 000410 11717-14A2-
012767 UUMMMU Ail:10000G.
016746 0000000.
215745 0080006.
804767 0000006.
103402
004767 0000006.
000157 000755
00017104 0000006
0000008
000800G.
OARAAAG.
151 000412. 1.1[14(67 1-91HuHHI,
162 oao416 000157 000722. .
153
154
155
155 080422-
157 000422. 012767
160 000430 016745
169 000434 015746
170 000440 004767
171 000444 103402-
A00814 0000006-
00000AG.
AAAAAAG..
000000G.'.
LDAM::
CMPB.
BNE.
NOV.
JSR.
BR
JSR.
BOO.
JSR.
JMP.
4+1._, (R1)
?
6$
MSTR T MEND ?
PC, HANG ?
9$
PC,PACK.
7$
PC,ERR4
LD1X
;LOOP INDICATOR
;NO, MUST.BE.UPPER ADDRESS.
;LOWER.ADDRESS.BECOMES.UPPER ADDRESS.
;HOW.TO.ETOP.LOOP.
;JUMP.TO RTH
;CONVERT UPPER ADDRESS
;OK, CONTINUE.
;PINVALID.HUMERIC.VALUP!
;AND EXIT
SAVE.END.ADDRESS.(BINARY)
CHECK.FOR.LOOP.INDICAOR.AFTER END.ADDR.(CONDITION.4).
MY.
JSR ?
BCS-
CMPB
BE0
JSR
JMP.
JSR.
MDV ?
?MP ?
8INUDfiMEND.
PC,FIND.
9$
*q_,(R1)
8$
PC,ERR1
LDIX
PC,HANG.
RTNPT,R1
@(R.1)
LOAD.FSA.A.
MOV. #T$FSAA,APLACE
MOV. AHIGH,-(SP)
MOV. ALOW,-(SP)
JSR. PC,BUFFSA.
BCS. 1$
jSR. PC,LDCNTL
1$: JMP. LD 1:::
LOAD.FSA.B.
LOOM::
MOV ?
MOV
MOV.
JSR
BcS.
JSR.
1$: JMP.
A
LOOM::
#T$FSAB,APLACE
BHIGH,-(SP)
BLOW,-(SP)
PC,BUFFSA.
1$
PC,LOCHTL.
LD1X
LOAD FSA .C.
;SET-UP.ENDING.ADDRESS.
;CHECK.FOR.LOOP.INDICATOR.
;NO.LOOP
;CORRECT INDICATOR
;YES, CONTINUE.
;NO, PUT OUT.MESSAGE.
;AHD EXIT
;HOW.TO.STOP.LOOP.
;POINT.TO.ROUTINE.
;JUMP .TO ROUTINE.
;SELECT.FSA.A FOR.SUBRTN.
;UPPER .MEMORY LIMIT.
;LOWER -LIMIT.
CHECK ADDRESS LIMITS, ETC.
;FAILED.CHECK.
LOAD FSA
AND EXIT
;SELECT.FSA.B.FOR-SUBRTN.
;UPPER.MEMORY.LIMIT.
;LOWER .LIMIT.
;CHECK.ADDRESS.LIMITS, ETC-
;FAILED.CHECK.
LOAD FSA
;AND .EXIT.
7
mnv. #T$FSAC,APLACE ;SELECT.FSA.C.FOR7ttfiRT41
MOV. CHIGH,-(SP) ;MOVE.UPPER.MEMORY LIMIT.
CLOW,-(SP) ;LOWER.LIMIT.
JSR. PC,BUFFSA. ;CHECK.ADDRESS-LIMITS, ETC.
Approved For Release 200g/07/12 : CIA-RDP8F5H-6614R66200020001-3
0?,?
TMEM- MACRO iii 110 27-NAR-80 15:37 PAGE 5-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
172.000446 004757 000000G.:
173 A00452. 000157 0AA555.
174
175
176
177
178
179 000456
180 onA456 012767 00u,..00,
181 000464 0167415 0000001,.
182-000470 016746 OORAO0G.?
103 AAA474 AA47t:',7 AAAAAAG.
104 000500 11-1AA2.
195 A00502. 0A0157 000535
186
187 mmm,-.,Kb W3(b UUUh13U HHHHHHU.
jSR. PC..LDCHTL.
1$: JMP. LD 1X
LDIB::
0000000.
188 000514
109 000515
190 000522
131 000524
192 i520
193 AAA572,2
194 000536
19b UUL1b42.
195 000546
197 AAA5'714
FIR
FJ9
200
201 AAA551,.".
202 000562
207. 000564
204 000570
Hm..15(..2
205 0011575
207 000502
2i.718 000506
209 000512
210 000520
211 000525
212.0m11
213 000535
214 000540
215 000544
216 AAA11.52.
217
218
219
.3.31.71
001420
004767 01100001,-
1113002.
000157 00014 ?
102002
000157
015702
016(12
085,757
U 1313 (LU
APAFAF
00110001,.
mommuo,-
AAAAAAG.AAAAAAG.
004757 0000000.
103002
000157 000554 ,
102004
O04(6( HMUMMHb.
000167 00AF-1-42 ?
UlbrU AARAAAG,
016712 AARAAAG.
055757 m0mvalmu.mu00001,
100$:
1$:
1A$:
20$:
2$:
3A$:
40$:
132F.767- 000000G .000000G.
101765
O32757 41111111111, ? 41 411,11,11,911, ?
001002
000157 000500
015767 0000000.0000000-50$:
000757,
221 000654
222-000554 012757
223 HoH552 016745
224 0006E16 01574E1
225 000572. 004757
775 000675 103002
227 000700 000167
?
000040 001-JULIO,
000000G
HAOAAAG.
AAAAAAG.
000440
LDOB::
LOAD.INPUT.BUFFER-
MOV.
MOV
MOV
JSR
BCC ?
IMP
BIT.
BEO.
JSR.
BCC ?
JMP.
BVC.
JMP.
NOV.
MCI1,.
ADD.
BR
;LOAD FSA
;AHD EXIT
#T$DISK,APLACE ;SIMULATE DISK
IHIGH,-(SP) ;SUPPLY UPPER MEMORY.'...LIMft.'
ILOW,-(SP) ;LOWER LIMIT
11.10$ ;1714:4R t'41E:
PC A BUFS2 TO LI:iD:
LD1X
*RP,BASE.
2$
PC,PDATA.
10$
LD1X
20$
LD1X
MSTR2,R.2.
DATA1,(R2)
INCVAL,MSTR2-
1$
;REPEAT.PROMPT.7.
;NO, ONCE ONLY
;READ.DATA.FROM.COMMAND-LINE
NOT END OF MEMORY
;IF.END.OR.ERROR, EXIT-
; RESPOHSE.TO.PROMPT.
;YES, EXIT.
;LOAD IB ADDRESS
;LOAD.
;ADVANCE ADDRESS.
;REPEAT.
PROMPT-ONCE.THEN.FILL.MEMORY,,_
JAR
BCC.
JMP.
BVC
JSR
JMP
MOV-
MOV.
ADD
CMP
BLUR.
BIT
ONE
jMP
MO V
BR
PC,PDATA
30$
LD1X
40$
PCERR3
LD1X
MSTR2,R2.
DATA1,(R2)
IHCVAL,MSTR2.
MSTR2,MEHD.
40$
*LOOP BASE.
50$
LD1X
MSTRT,MSTR2.
40$
LOAD-OUTPUT.BUFFER.
MOV. *T$ICD,APLACE.
MOV. OHIGH,-(SA)
MOV. OLOW,-(SP)
JSR. PC,BUFA2.
8CC. 100$
JMP. LD1X
.:PROMPT ONCE
NOT END OF MEMORY OR ERROR
IF YES.. EXIT.
; RESPONSE.TO.PROMPT.
;YES, MISSIHG.OPERAND.
;LOAD IB ADDRESS.
;ADVANCE ADI4tSfZ
;HAS.UPPER.OgOOR, LIMIT.BEEH
;NO, CONTINUE?H ?
;REPEAT.COMMAND.
;YES, CONTINUE.
;ELSE EXIT
;REINITIALIZE.ADDRESS.
REACHED.
;SET.INTERFACF.AND CONTROL.FOR-SUBRTH.
;SUPPLY.UPPER.MEMORLIMIT.
LOWER.LINIT
;PREPARE FaRipaciA.N.444, 16
;OK, CONTINUE. ?
;ERROR, EXIT.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001:f
TMEM- 11100 M1110 27-MAR-80 15:37 PAGE 5-4
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
229
270
-571
7
277
234
275
236
277
278
27'61
240
241
242.
243
244
245
246
247
248
249
250
251
252-
-757
254
255
256
257
258
259
260
261
252.
267
254
265
266
267
268
269
270
271
000704
900712
000714
000720
000722
000726
000730
000734
000742-
000750
AAA756
000764
000772.
000774
001000
00 1002
001006
001010
001.014
001020
001025
001074
001042
0111050
001056
001064
001066
001074
001076
001102-
001110
01.11112 ?
001112
001120
001124
001170
(2-001134
-D,72
274 001176
275 001144
276 001146
277 001152
270 801154
279 An1160
280 001162
281 881165
7R2.001174
283 001202
404 uulzid
285 001216
032767
001470
004767
103002.
000167
102002-
000167
012767
01676?
012767
016767
066767
800750
HmUmmUU.HOUUOUU.100$:
0000000. 1$:
000416
10$:
000410
000032 176362- 208:
000000G ,A76364
000036 176362-
0008800176364
umHmuuu.00001JuG.
BIT.
BEO.
JSR-
BCC
BVC-
JMP-
MOV.
M0V.
NOV.
MO'.,'
ADD
BR
#RP,BASE.
2$
PC,PDATA,
10$
LD1X
20$
LD1X
#-T$OBWA,TD$TAW
MSTR2,TD$TDW
*T$08,TD$TALI
DATA1,TD$TDW.
INCVAL,MSTR2.
1$
PROMPT .ONCE
;REPEAT PROMPT
ONCE ONLY
;HEAD: DOL. 1: ,I7;:ij ? 1.414141D ?LINE
:HOT ? END 0 ? MEN'OR
;IF.ENILOP.ERROR, EXIT.
;PR-08-0 L.
START ADDRESS. END
MEMORY.BETWEEN-THE
>PR.08-0 5
START ADDRESS.. END
OF BETWEEN-
PRINT-ONLY.THE.CON
>PR.08.0 6 L-
MOV.
JSR.
BCC.
JSR
JMP.
JSR.
BCC.
JSR.
JMP.
RI,RTNPT.
PC,FIND.
3$
PC,ERR3
PRIX
PC,PACK-
4$
PC,ERR4
PRIX
.ADDRESS, NO LOOP PRINT.THE.CONTENTS
?START-ADDRESS-AND.THE-END.ADDRESS,
. ADDRESS, LOOP . INDICATOR READ . THE . CONTENTS.
THE - START- AND - END . ADDRESSES HOWEVE, 7:7;
TENTS-OF.MEMORY.AT-THE.START-ADDRESS.
;SAVE POINTER
;LOCATE START ADDR IN COMMAND LINE
;OK, CONTINUE
MISSING OPERAND':
;EXIT.
;CONVERT COMMAND TO BINARY.
:
110 E? ION SEFUL
riNVALID NUHERIC VALUE?
: ?
MOV
Z
BINWD .MSTP2 :SAVE IT TWICE
: BINWD.MSTRT
*--.1U1END
;SA.,E LOADING START ADDRESS
;INIT END ADDRESS,
Approved For Release 2005/07/12 : CIA-RDP84-MONQAPV2099
TMEM- ? ? ? MACR0. nii lel 27.-MAR-BO 15:37 . PAGE, Fc-.1_
Appro ved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
372.
373
374
375
375
377
378 001510
379 001514
380 001515
381 001524
382.
383 001526
384 001532.
385 001534
386 Oi1b,42-
387 001550
380 001554
389
350 001556
391 001562
392.001564
AA157A
394
355
.396
797
390 001574
399 001602.
400 001F,06
401 001510
402 001514
403 001616
404 001522
405 001525
405 nn1F34
407
4HA uu1h4H
4A9 001644
410
411
4/2
413
414 001550
415 0011550
416 AR1F55
417 001F62
418
419 001572
420 001.574
421 001700
422
423
424
425 001704
START.ADDRESS.HAS.BEEN FOUND: SCAN.FOR.END ADDRESS OR
LOOPANDICATOR.(CONDITIONS.2, 3 ABOVE). IF THERE.IS-
NOTHING.FURTHER.IN.THE COMMAND LINE. CONDITION .1 IS.
IN EFFECT:
004767
000000G-
JSR PC,FIND. ;SCAN.COMMAND.LINE
103004
BCC . 5$ ;SOMETHING .THERE.
016767
0000000.000000G.'
MSTRT,MEND. SET END ADDR?START.ADDR.
000449
BR 9$ JUMP TO RTN.
122711
000114? , $ :
CMPB *q..,(R1) .:LOOP INDICATOR
001011
ONE 5$ ;NO, NUST.BE.UPPER ADDRESS.
052757
AHHAAMG-UmAANAG.
BIS. *OUT,BASE. ;SET.FLOG.FOR.OUTPUT-CONTROL
Hlb(H7
HHHHHML.1.1111UMMMb'
MOV. MSTRT,MEND. ;LOWER.ADDRESS.BECOMES.UPPER
ADDRESS.
004767
0000000.
jSR. FC HANG ;HOLLTO.STOP.LOOP.
000471
BR g$ JUMP TO RTH-
004767
000000G. $
JSR? PC,PACK. ;CONVERT UPPER ADDRESS
1031304
BLO 7$ ;OK, CONTINUE.
004767
FIMMIIMMU.
JSR. PC. ERR4 riNVALID-NUMERIC.VALUU
000167
17755A
JMP LDIX ;AND.EXIT.
SAVE.END.ADDRESS.(BINARY)
CHECK.FOR.LOOP.INDICATOR.AFTER.END.ADDRESS (CONDITION
4 ? _
016767
0000008-0000000.7$:
mnv. BINWD,MEND. ;SET.UP.ENDING.ADDRESS.
004767
0006000
JSR. PC,FIND. ;CHECK-FOR.LOOP.INDICATOR.
103414
9$ ;NO.LOOP
122711
000114
OMP8-;CORRECT LOOP.INDICATOR.
001404
0E0. 8$ ;YES, CONTINUE.
aa4,7757
000000G.
JSR. PC,ERR1
000157
000900. ?
JMP. PRIX ;EXIT.
052757
0000000 00000008$:
BIS. *OUT BASE ;SET.OUTPUT.CONTROL.
RA47F,7
onnAnnG-
JSR. PC,HANG. ;HOLI.TO.STOP.LOOP.
;
MIHM1
HMHHHHU-9$:
MaV ? RTNPT,R1 ;POINT.TO.ROUTINE.
UM Fl
AnnAAA.
JMP @ (R I) JUMP TO RnUTINE.
PRINT FROM ESA A
PRAM::
012767
016745
01574.F.,
0A47F,7
103402
00.47F,7
OnAlF.7
426 MU17114 UlZ(b(
42( UU1712 Ulb(46
428 001716 016746
?
000000. 0000000. MOV.
AAAAAAG NOV.
ORAAAAG. NOY.
AFIAAF971G-. JSR.
BCS.
AAAAAAG:JSR
000472 1$: JMP.
*T$FSAA,APLACE
AHIGH,-(SP)
ALob..1,-(P)
pc,BuFFsA.
1$
PC. PRCNTL.
PRIX
PRINT.FROM FSA B
PPBM::
umuum4 uUtiLJUI.JU NOV
UtiUd1J136 NO'
AAAAAAG
Approved For Release
;SELECT.FSA-A.FOR.SUBRTN.
;UPPER.MEMORY-LIMIT.
;LnUFR.LIMIT.
;CHECK.ADDRESS AGAINST.MEMI1W.LIMIT5.
;CHECK FAILED
;PRINT MEMORY.
;AND.EXIT
#T$FSAB:A L T b- UEfRTIq
BHIGH,-(SP) ;UPPER.MEMORLIMIT-
2005/07/1 1A-RDPi5--165421ii013-02000200011-4S
.
4'
' r%1T!
TMEM-- .14110 M1110 27-MAR-80 15:37 PAGE-5-1- ? RDP85-00514R00000020
Approved ForRelease 2005/07/1.IA- 201-3
42P 001722-004767 PC,BUFFSA.
0000000. JAR. :CHECK.ADDRESS.AGAINSTEMORY.LIMITS.
470 001725 103402 1$
BrS. ;CHECK'f*ttED,
431 001(70 004757 Ummmmul.3. PC,PRCNTL.
JSR. ;PRIHT.MEMORY.
432.001734 000157 000355 ? 1$: PRIX
MP. .:AND EXIT
433
434 PRINT.FROM.FSA.C.
435
435 001740
7
437 001740
012757
0991114 H71171AAAITIG
MOV. *T$FSAC,APLACE
&4PDR?SUBIZN.
438 001745
4.59 001(!-12.
015745
015(415
M11011001_1:
HMMIIMMG.
mnv. CHIGH,-(SP)
NOV. CLOW,-(SP)
;MOVE .'UPPER MEMORY LIRIT.
7.:;Lt-intR
440 001755
004757
000000G.
JSR. PC,BUFFSA.
;CHECK ADDRESS AGAINST MEMORY.LIMITS
441 001752.
107402.
"BCS- 1$
;CHECK -FAILED
442.001754
00475?
UUIJUUU1.3.
JSR? PC,pRCHTL.
;PRINT MEMORY
443 001770
AAA157
AAA 772
1$:
JMP. PRIX
.:AND EXIT
444
445
445
PRINT.FROMINPUT.BUFFER.
447
448 001774
PRIB::
449 01711774
012757
AF.102171171 AAAAAAG.
MCIV. *T$DISK,OPLACE
;SELECT.pq,K,-ISIMULATION
450 002002.
015745
ARAAAAG,
MnV. IH IGH.
;SUPPLY UPPER MEMORY.LINIT
451 00?mm5
015745
HHHHHHU.;
MOV. ILOW,-(SP)
;LOWER LIMIT
452.002012.
004757
0000000.
JSR. PC,BUFS2.
;PREPARE Ti: LOAD
457 002015
103547
BCP. PRIX
;ERROR ENCOUNTERED
454
455 0lizu,...0
016702.
0000000.
1$:
MOV. MSTR2,R2.
;LOAD IS ADDRESS
456 002024
011267
UbLJULIOLI.
Ni :1'? (R.2),DATA1
;READ .IB
457 002930
004757
AOAAOAG.
.3 SR PC,PRDATA.
;CALL PRINT SUBROUTINE.
458
459 1302034
A667F.7
UMMHMMI, MHMUIJMU.
ADD. INCVAL,MSTR2.
;ADVANCE ADDRESS.
.450 002042
0263767
UMUUMUI.3 UMUUUUU.
CMP. MSTR2,MEND.
;HAS.UPPER-MEMORMIT.BEEN REACHED:
451 002050
101757
BLOS. 1$
;NO, CONTINUE,-
452. 0102052
032757
MMHVIMMU AARAAAG.
BIT. *LOOP,BASE-
;LOOP.Off ?.
453 0020A0
1701522.
BEQ. PRIX
;HO, EXIT.
454 002052.
015757
ULIEJUIJUI, UMUUUMU-
MOV-MSTRT,MSTR2.
;REIHIT.ADDRESS
455 007070
AAA757.
BR 1$
;START O'ER
455
457
46e
PRIHT.FROM.OUTPUT.BUFFER.
459
470 0000172.
PROB::
471 002072.
012757
000040 ?000000G.
MOv. #T$ICD,APLACE.
;SELECT.IHTERFACE.AHD.CONTROL FOR.SUERTH-
472.002100
015745
00AAAOG
MOV. OHIGH,-(SP)
;SUPPLY.UPPER.MEMORY.LIMIT
473 002104
015745
AAAAAAG
MOV. OLOW,-(SP)
;LOWER.LIMIT.
474 002110
004757
9000000
JSR. PC,BUFS2.
;PREPARE FOR LOAD
475 002114
1113504
BCS PRIX
;ERROR.
475
477 002115
012757
OAAA7.4. 175752.
1
MOV. #T$OBRA,TD$TAW
;SELECT.OUTPUT.BUFFER.WRITE.REG
470 I03 124
AAAARAG .175364
MnV. MSTR2,TD$TDW
;MUVE.ADDR.TO-TRANSFER.REG
479 0171212.
91275?
175372.
MOV. *T$OB,TD$TAR-
;PREPARE FOR LOAD
480 002140
015757
176374 0000000.
MOV. TD$TDR,DATA1
LOAD
481 002145
09475?
UUmumuu
JSR. PC,PRDATA.
;CALL PRINT SUBROUTINE.
462.
483 002152-
055757
00000011% 0000i000
ADD? INCVAL,MSTR2.
ADVANCE ADDRESS
484 002150
02575?
ULIUULIUL'? UUIJUUULI-
CMP. MSTR2,MEND
;HAS.UPPER.NEMORY.LIMIT.BEEN REACHED.
485 17102165
101757
BLOS. 1$
;NO, CONTINUE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
4
TMEM- MACRO Ml 110 27-MAR-80 15:37 PAGE
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
486 002170
032767
Uuummul,utiuu00G.
487 0171217E.
0014572.
4UU UT2:200
016(6(
HHUMU1I,UMMMUU13.
[111*11'1
000743
430
491
?=-1 92 ?
?
493
?
?
494 0612210
PRBT::
495 002210
012757
Finnneln 000000G?
495 002215
015745
AAAAAA&.
4:37 u-12,,:2-
016746
PiAAAAAG?
4J0Ub
004757
AAAANDG?
499 0022.3c-'
103435
500
;.
501 007234
012757
000030 175352.
1$:
503.002247
015757
0000008.175364
503 002750
012757
1.11....mmzm 1(6372.
504 002256
015757
176374 .0U0000G.
tinti 002254
004757
AAAAROG
51711.;
tmr LIrLI
ubb(hr
PIHUHMMU.HHHHHHU.
508 002275
025757
MUUMHMU.MHUMM116.
509 002304
101753
510 002305
032757
mmiluunG.AAAAPIAG.
511 002314
001404
512.002315
015757
UMMHIJUI,?UNUMMIU.
513 002324
000743
514
515
516 002325
PRIX:
517 002625
042(5(
MMUlmmi .41HUMMVI.,
518 082334
004757
AAAAAAG.
519 002340
000157
A0AAARG.,
520
521
000001
BIT.
BEQ.
MOV.
BR
*LOOP,BASE.
PRIX
MSTRT,MSTR2.
1$
;LOOP.ON
;NO, EXIT.
;REINIT.ADDRESS.
;START.OVER
PRINT.FROM.BYTE.TRANSLATOR.
MCW
MOV
MOV
J5R.
BCS
ADD.
CMP.
BLOB.
BIT.
BEO.
MOV.
BR
BIC
JSR
JMP
.END.
oT$ICD,APLACE.
THIGH,-(BP)
TLOW,-(SP)
PC,BUFSET.
PRIX
#T$BTAR,TD$TAW
MSTR2,TD$TDW
#T$BT,TD$TAR.
TD$TDR,DATO1
PC,PRDATA.
INCVAL,MSTR2.
MSTR2,MEND
1$
#LGOPBASE-
PRIX
MSTRT,MSTR2.
1$
1-4141-11
;SELECT.INTERFACE.AND.CNTL FOR SUBRTN.
;SUPPLY.MEMORY.UPPER.LIMIT
;LOWER-LIMIT.
;PREPARE FOR LOAD
;ERROR.
;SELECT.BYTE.TRANS REG.
;MOVE.ADDR.TO.TRANSFER.REG
;SELECT.BYTE-TRONS MEMORY.
;LOAD.BYTE.TRANS.
;CALL PRINT SUBROUTINE.
;ADVANCE ADDRESS.
;HAS.UPPER.MEMORLIMIT BEEN REACHED.
;NO, CONTINUE.
;LrinP.ON ?.
EXIT.
;REINIT.ADDRESS
.START O'ER
*,BASE.ICLEAR.CONTROL.FLAGS.
Pc,KILL. ;KILL.AST.(IF.THERE.WAS.OHE)
COMXX.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
THEM-.. 1100.M1110
SYMBOL.T ?
AHIGH.-******
ALOW -******
ALUCKE-04000A
ALHOE--004nAn
APLACE-****** GX.
A01 -010000
BASE. -******
BHIGH--******
BIHWD-******
BITVAL-000AAA
BITO -HHHHH1
BIT1 -000002.
BIT10 -002000
BIT11 -004000
8IT12.-010000
BIT13 -H2HHHH
BIT14 =.040000
0I115 -100000
0IT2. =?00171An4
BIT3 -01710010
BIT4 -000070
BITS -000040
BITS -RA0100
BIT? -000200
BITS -.P004n0
BITS -001000
BLOW. -******
BUFFSA-******
BUFSET-******
BUFS2.-******
BYTE0 =-MMHMHM
BYTE1 -000001
BYTE10-0000P
? 11= 0000
BYTE12-000014
BY-FEL:3-000015
B1TE14-00001E.
BYTE15-000017
BYTE16-HHumzu
BYTE17-mmtm,f1
BYTE10-000022
BYTE1.7.1.-u1Juu26
BYTE2--HHHH1j,
BYTE20-H[HHL4
BYTE21-000025
BYTE22-00002E.
BYTE23-000027
Eh-7E24-00007n
BYTE25-00007,1
8Y-1E25-000032
BYTE27-000037.
BYTE28-000034
BYTE29-000035
BYTE3 -uuuuu7,
BYTE.7.0-171000.
BYTE31-0000.37
BYTE72-AAAA4A
GX?
OX?
GX.
GX.
GX.
27-MAR-80. 15:37 PAGE.6
Approved For-4_ Kelease 2005/07/1.IA-RDP85-00514R000200020001-3
BYTE33-000041
BYTE34-000042.
BYTE:35-000047.
BYTE36-000044
BYTE:23?-000045
BYTE:38-000046
BYTES9-000047
BYTE4 -RAAAA4
BYTE40-000050
BYTE41-000051
BYTE42-000A52.
BYTE43-000057
BYTE44-000054
BYTE45-000055
BYTE46=.0000
BYTE47-000057
BYTE48-000060
BYTE49=-000061
BYTES -000009
BYTE50-0000F.2.
BYTE51-000057.
BYTE52-uuuuB4
BYTE53-000055
BYTE.54-000066
BYTE55-AAAAS7
Uri-HS-000070
BYTE57-000071
BYTE5.0-000072-
BYTE59-000077,
BYTES -00000F.
BYTES0-000074
BYTE61-000075
BYTE62-AAA07F.
BYTE63-000077
BYTE-64-000100
BYTE-65-000101
BYTE66-000102.
BYTES7-000107,
BYTt6u-u00104
BYTE.69-000105
BYTE( =?01710007
BYTE70-000106
BYTE71-000107
BYTE72=-000110
BYTE73-000111
BYTE74-000112;
BYTE75-'000117.
BYTE76-'000114
El 00115
BYTE78-000116
BYTE7S-000117
BYTES; -000010
BYTEB0-000120
BYTES1-000121
BYTE82-000122.
BYTES3-000123
BYTES4-000124
Approved
BYTE-85-000125
BYTE86-00012F.
BYTES?-000127
BYTE88=-FIAA13A
LD1
00005ORG
002.0SCHB-000400
LO1LH
-000006 G
0$CHRL-000200
LO1TBL
000000R0
002.0$CLR.-000040
LDIX.
0017.44P-
002.0$CHC.-00000
BYTE89-000131 LU[: EN=
BYTES. -000011 LOC:WA-040000
BYTE90-000172. LO 15=
BYTES1= 000133 Loop ? = ? ******
BYTE-92-000174 MAREH1-000001
BYTE-93-000135 MAREH2-004000
BYTE94-00017.6 MARLOD-010000
BYTEq5=.000137 MAROUT-000002.
BYTE:RS-00014A MAR W0=
BYTES?-000141 MAR:GU-1100040
BYTE98-000142- MBKALL-001000
BYTER9-000147. MBULK=.000400
BYTVAL-000144 MEHD. -******
CBKALL-001000 MMADRO-000100
CBKCLK-000400 MMLEFT-000002.
CHIGH.-****** OX MMOE. -000004
CLow ? = ? ****:** OX- MMWRTE-000R10
CHOBRE-1000uH MHOBRE-1AuHHu
= . ::+,:***** G::.MREH1 -000001
CFCCEH-A1AAA0 MREH2 =? 020000
CPREAD-040000 MSTRT -****** CX
CPWRTE-020000 MSTR2-****** GX.
CSADRO-000004 MSYH. -000040
CSEULI-1H0000 Ho -000144
CSOE. -000040 OH ION -******
CSWRTE-000100 ['LOU. -******
DATA1 = . *:***::: CX ONCE. -******
OBR:RD-AAAA01 OUT. -******
DEISCPP-0014.57 PACK. =.******
DB$SPT-00002F. PLATO =.******
DB$TPC-AAA023 PLB. -000010
OISPGF-100000 PLC. -000020
DMAALF-AA0AAS PLO. -000030
MARRD-AAAAA7. PLRWR.-000200
DMARLF-uHuuH4 PLR:EH-00020A
EHBR. -010000 PRAM-
ERR1 -****** GX? PROM. 001704RG.
ERR:7. -****** GX. PRBT. 002210RG.
ERR4 .-****** ox PROM. 00174ORG.
ERRF, -****** GX. PRCHTL= ****** GX.
FIHD. -****** PROATA= ****** GX.
OX?
GX ?
HANG. -****** GX.' PRIB. 001774RG.
IHIGH.-****** GX. PROB. 00217172RG.
ILOW. -****** Gx? FR1 0A1352P.S.
INCVAL-****** OX PRALH-=-000AA6 G.
KILL. = ****** ox PR1TBL. 00007.0RG.
LOAM 000332R0 002?PR1X- 0027.2R.
LOOM. 000365RG. 002.0R$CR1-176420
LOBT. 001112RG. 002-0R$0R2-175422.
LOOM- 000422R0 002.0R$LBR-176424
LOCHTL= ****** OX ? 0$ATTH-000100
LOIS. 000455RG. 002.0$BCL.-UUU0U1
LOOB. 000654PG. 002.0$CCOP=.000040
For Release 2005/07/12 : CIA-RDP85-00514R0002000
0$CP -0000.50_
0$CPCC=.00001171___i,":'
O$CP2-0002.F.0
0$050-=.010000
O$CSEL-000360
0$CSET-000002
0$CFF.-020000 ,
()SOMA ? = ? 00000
OSEHBK = ? 040000
0$EHOP-020000
0$FAL.-0104000
0$Fr -000045
0$F0 = ? 00004.4
0$FP -000045_
0$HBF.-A-OPMA2---
OSICP-AARAAF.,
0$IHEI-000003
U$IHRL-11111111112
0$IMRP-AAA007
Q$LEID-nA100A
0$LBDP-001001
0$LBR.-00000.1
0$LDCD-AART.-1037
0$LOMD-AAA0.0-4,
OsELDPP=.002RBO-*
OiLAP-AJOW0-:
o c ? ='?-? 1-40 0 0 0
0$MR tTFIC,IF1052'
0$MRP.=.000040-
OSURP2-0A0240
0-$[1SC-04000.0
0$M!;ET-,000004
0$MSP ? = ? l'20800::
0$HCLK=?:.175000.
11:1$PP -000100.
002.0.$PR3W=:0007.20
002.0$1P2.-000300
002.Q$OHLT=..J7100017.
002. OSOL =?1100043
OSOLA.=.000057.
0$0LB.=-000054
A02.0$0LR.=-000001
002.0600 -000042
002.0RDCD=.000005
0SRD1-1D-000005
002.0SPEBK-001000
002- 0440:
(74?.5E'tgeElo10
0$SM =- 100.000
0$SP -000120
065P2.-000340
RGQ4-"-o111120u
TMEM- MACRO M1110
27-1AR-80 15:37 PAGE
SYMBOL TABLE
Approved For-Release 2005/07/12 :
CIA-RDP85-00514R000200020001-3
RGO,VA-u2nuu
T$CLK-002000
WORD1 ---emmU112.
WORD4A-0001201
RP =.****** Gx.
T$DIRK=.000200
WORD1A-AAAA74
WORD41=.000122.
RTHPT =.****** GX.
T$DRD =.00A0A4
WORD11-000025
WO RD42=4.100174
SCAH--****** Gx.
TSEMEM=.01000A
WORD 12-000070
WORD47,=.000126
SEO,CI=.000Aln
TSF5,;AH-Limmimm
W0RD13=.17.10.
WORD44=.000130
B$CLR-00000A
TSFSAB-uuuub4
WORD14=.000034
WORD45=.000172,2.
=.UUM111.11
TSF!;AC-AAAA14
WORD15-000075
WORD45-000134
=.1.1[IMMK5
TSFRE12-0010010
000D15=.000040
WO R D47 = ? 000135
S$OR.=. JLRjijh
T$10.
WORD17-000042-
WORD4A-A0A140
!;$1:4X. =.11MMI1M4
T$IBAR-0001024
WOR1'1A=.001044
WORD49=.A00142.
S$SR. =? 013000?
T$IBE-A2Annn
WORD19-000045
WORDS -A00017.
sssi =. 000018
T$IBF-040000
WORD2-000004
WORD50-000144
S$S2. -000014
T$I00-00004A
WORD:A-00005A
WORD51-AAA141,7,
TD$CTR=? 171537n
T$MODE=.0A4000
WORD21-0A0092.
WORD52-1711710150
TD$CTW=.17P.360
T$OB.
WORD22-000054
WORD57=4100152.
TD$IHL=.171040pn
T$OBB.=.004000
W0RD23-00AA56
WORD54-000154
TD$MEM-000270
T$OBF-010000
WORD24---uumhu
1J0RD55-00015
TD$OAR=.175344
T$OBRA=.0AAA74
WORD25=.00002.
WORD56=-118010
TD$OTR=.17P345
T$OBWA=-00817.172.2.
WORD2=.080054
WORD57=.00012.
TD$QRD=.000274
T$OUTA=.1000AA
UJORD27= 000055
W0RD58=.000164
TD$BW.=.176376
T$RBDO=.000200
WORD2B=.000070
WORD59=-000155
TD$TAR=.176372.
T$1HB-000040
WORD241=.000072.
WORD67. =W0014
-$TAW=.176362.
T$RSET=.040000
WORD7 =.000A0f;
WORDI;.-,0=4,100170
CD$TDR=.176374
T$!=iC-
WORD30-000074
WOR1)61-000172.
TD$TDW=.1763F4
T$SCLK=suzuuuu
LJORD31=000075
WORD62-000174
THIGH .=.****** rX-
TV:EG1-..mmmmmh
WORD72=.0001AA
WORD87.=.000171':-,
TLOW. =.******
TSSEG2-000001
WORD7,7=.0AA1PR.
WORDR4-..0011RFin
TsAD. --AAAA2P
ISbLuA-Hilmuu>,.
WORD64-0171011.714
WORD65-00A202.
T$BA. -uuLluu2
T$S0. -AA0A01
II PD5= 011,1105
WORDB6-000204
T$BD. -Annnin
ISUULP-i-lmmmmm
WORD75.--.AAniln
WORDF.7=.0002A
TSB!;0.=.1A00013
TS1 CA K = 000400
WOR1177---000112.
WORDA=.000210
T$BT.
T$RBEH=-000020
LioRD7R-000114
IOPDE3= 1100: i
T$BTAR-00007,A
UBD:IH=-Umilu,u
LIORD3S= 000115
WORD? =.000111
T$BTD.=.00200A
WOR00 -171171171888
WORD4 =.1711710010
WORD70-0001214
T$CD.
=.0017111.10
. ABS:
000000
000
UdUnin
001
TMEM-
002744
17102.
ERRORS .DETECTED: 0
VIRTUAL.MEMORY.USED: 3537 WORDS. (.14 PAGES)
UMAMIC.MEMORY: 4916 WORDS. ( 18 PAGES)
ELAPSED TIME: 00:00:51
iMMTMEM/-SP=E20,17IM,C20,1:1TMEM.
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
WORD71....APIA215
WIRD72-UN.4.41J
LIORD77.--t
WORD74=.000224
WORD79-000226
WORD76=.17.10077A
WORD77=.000272
WOR1J7B-0A0234
WORD79-0100235
WORDA =. 000020
1JnRDRA-AAA240
WORD81-000242
WORDA2=.000244
WORDR7-000245
WORDA4=.0172250
WORD85=.17100252
WORDA5=-000254
WEQ,081-7.4.00U25e'-'
WORDRA2017102b70
WORD89-000262
WORDS =. 0100022
WORD90=.171002f;4
WORD91=-017102147.A
WORD92-000270
WORD93-000272
WORD94-000274
WORD95-1700276
1JORD9=.17.100300
WORDA7=.000702
1.JORD98=.808304
WORD99= . 000705
WRD VA L = 0 A 031R- -
XTREAD=:01711000
XTWRTE=.0A04AA
TDATA. MACRO-MI 110 27?MOR-80 15:36 RAGE.5
1
2-muumNu
Approved For Release 2905/07/12 : CIA-RDP85-00514R000200020001-3
.TITLE?TDATA.
.PSECT. TDATA-
.LIST. MEB.
3
4
5
6
9
181
11
12.
13
14
15
16
17
18
19
2R
21
22.
24
2525
27
29
7.171
:31
7.2
33
000000
CH1TBL::
34
HMHHHH
111
1812 ?
35
000002
000260'
36
uuuuR4
102.
124. .
37
RRRARF
000376'
38
000002.
CH1LN.
39
481
,
41
;
42
081818110
LI1TBL::
43
080010
ill
102
44
000012
000672
45
000014
. 102.
124,?
46
000016
001072
47
000002.
LI1LN.
48
49
50
51
008020
DF1TBL::
52
1..m..?41..1
111
1R2. '
53
000022
001366
54
000024
102.
124: ?
FF
RAORDS
001576'
56
nAAAA2.
DF LN.
4
J444400,4"
TERM.DETECTOR."MANUAL DEBUGGING AIDS. . .
DATA.COMMANDS.(INPUT.BUFFER.AND.BYTE.TRAN8LATOR)-
COMMANDS;
DA FILL LOCAL.BUFFER.WITH-DATA FOR TD INPUT .BUFFER:
CH CHANGE.DATA.IN LOCAL SUFFER OR.IN.LOCAL.BYTE
TRANSLATOR TABLES
LI LIST CONTENTS.OF-LOCAL.DATH.BUFFER OR- LOCAL
BYTE TRANSLATOR TABLES
EN MARK THE.END.OF.THE.LOCAL.DATA.BUFFER.
IF READ LOCAL.DATA.BUFFER.OR.LOCAL.BYTE-TRANSLATOR.
TOBLES.FROM.DISK.
TR TRANSFER .LOCAL DATA.BUFFER-TO.TERM DETECTOR,-.
INPUT.BUFFER.OR.LOCAL.BYTEsTRTIMIgTaR770
,
TERM DETECTOR?BYTE.TRANSLATOR.
ONCE.A.COMMAND-HAS.BEEN.EXECUTED (OR.AN.ERROR.ENCOUNTERED)
THIS.MODULE.RETURNS.CONTROL.TO.THE.MODOLE.TMAIN-ATLOCATION.
"COMXW::
.MCALL. OPEN$RfiGET$,CLOSES
TABLE-OF.VALID.BUFFER.MNEMONICS.AND.THEIR.ASSOCIATED
ROUTINE.ADDRESSES.
.ASCII.
.WORD. CHIB
.ASCII. /BT/
.WORD. CHBT
? /4
LIST.
.ASCII.
.WORD. Liie
.ASCII.
.WORD. LIST
? /4
DATH.FILES.
.ASCII. /1B/
.WORD- DFIB
_ASCII. /BT/
.WORD. DF9T
== /4
;INPUT BUFFER.
;BYTE.TRANSLATOR-
INPUT .SUFFER.
:BYTE- TRAIIS LgT4f1f,7,,'
INPUT BUFFER
;BYTE-TRANSLATOR.
,
? Approved For Release 2005/07/10CIA-RDP85-00514R000200020001-3
4'47
(
TDATA. 11100.M1110 27-MAR-80 15;36 PAGES-1 .
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001,=3'
58
59
50 0000270
TR1TBL::
61 ARR1717A
111
102
62.000032-
6021.34'
53 000034
1R2-
124.
54 000035
002226'
55
TR1LN-
55
57
68
59
7E1
71
72.
73
;
74
?
75
75
77
?
78
?
79
80
81
82.
?
R7
84
R5
R5
8?
8R
89
9A
91 00E1840
DAT::
92,AAAA48
AA5A57
OmmHAHG:
33 008044
A05057
1,71.18mmAu.;
94 000050
012700
AOAAAAG.
95 ARA054
012701
rinlpinn
95 00005A
005020
1$:
97 OAAA52-
005301
98 00006;4
001375
99
iMM UULlUbb
018700
0000005
1U1 000072
012701
001252
102-000076
005020
103 000 100
005301
104 000102
003375
105
105
107
188
103
;
110
111 000104
012704
AAAAAAG.
112-000110
012705
HMFIFIMMU.
113 000114
004767
ARARRAG.
DATA:
114 000128
005767
mmAmmHb.
TRANSFER.
.ASCII- /I8/
.WORD. TRIO
.ASCIIsBTi
.WORD. TRBT
/4
DATA.
INPUT BUFFER
;BYTE TRANSLATOR.
NO OPERANDS.
THIS.ROUTINE PUTS.OUT.PROMPTS-FOR.DATA.AND READS THE COMMAND.
LINE: IT-THEN-CALLS.A.SUBROUTINE IN-TMAIN.WHICH.PROCE$SUi_:,.
THE-COMMAND-LINE.AND-PLACES.IT-INTO-TWO.BUFFERS: rffE77771-1E
BUFFERS-IS.SIMPLY.A.MIRROR-OF.THE-COMMAND.LINE-INPUT TO BE:
USED-FOR.VERIFICATION: THE-OTHER BUFFER IS THEE-BIT BYTE.
BUFFER-WHICH WILL.EVENTUALLY-BE-TRANSFERRED.TO.THE.
TERN L'ETECTOR INPUT BUFFER (SEE THE TRc AND RU
COMMANDS).
NB. SINCE.THELOCAL.INPUT.BUFFER IS.TRANSFERRED.TO.
THE.TERM.DETECTOR-IN.16-BIT.WORDS.AND.THERE.ARE.8
5-BIT-BYTES.IN.3 16-BIT .WORDS.. THE.HUMBER.OF-6-BIT.
BYTES-IN.THE LOCAL.DATA.BUFFER.SHOULD.BEDIVISIBLE.
BY 8. NO.CHECKING.IS.DONE HOWEVER:
CLEAR.LOCAL-DATA.BUFFER-(BOTH.THE.E-BIT-BYTE.TABLE.
AND-THE.8-SIT-ASCII-MIRROR.TABLE).
CLR.
CL R.
MOV.
MOV.
CLR ?
DEC.
BNE.
MOV
Mliv
CLR
DEC
BST
COUNT ? ; CLEAR ? B I T ? SH IFT ? COUNTER ? ??:4?-
DATALH ? ; CLEAR ? LEI?IGTH ? OF ? DATA' "- ?$?
?
*DTBL,R0 ;POINT.T0.6.--.BIT.BYTE-TABLE-
*+1,R1 ;NUMBER-OF.WORDS.IN.TABLE. . .
;CLEAR-DATA-TABLE.
R1
is
*DSAVE.,R0
#1364./2,R1
(RO)+
R1
2$
;POINT.TO.ASCII.MIRROR.TABLE-
;NUMBER.OF-WORDS.
;CLEAR.TABLE-
READ.'DATIM FROM .CONSOLE.
CALL.ROUTINE TO.ADD.1 COMMAND.LINE-?S.WORTH OF-DA-F
TO THE TABLES A- RESPONSE.TO.THE.PROMPL___...,
TERMINATES-THE.COMMAND. ?
MO(. *DTBL.P4 ;R4 -' 6-BIT BITE TABLE
MOV #IISHVEPS ?:R.5 ---,, MIRROR INPUT TABLE
JSR PCGCONLY ;GET COMMAND LINE
TST GLMLEN ;ANYTHING THERE
Approved For Release 2005/07/12 : CIA-RDP85-00514R00020002_
4.114i - ? 4 1 , I
TDATA. MACRO.M1110 27-MAR-80 15:36 PAGE.5-2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115 000124 991497 BEO. NIX ;HO. EXIT.
111,:-. 0171t7112f; 094757 AAAAAAG. JSR. PC,DBLD. ;ELSE.PROCESS.DATA CHAPS
117 000132. 103404BCP. LA IX ;DATA.OVERFLOLLOR-EPROR.
11171 000174 Ubb(b( ummmmut,AmmAnAG. .
ADD. DPLUSfiDATALM. ;ACCUMULATE LENGTH OF DATA
119 A00142. A0A7F..4 BR DATA ;GET.HHOTHER.LINE-
12A
121 AAA144 ..IPI1X:
122.000144 OAA1F,7 00000 JMP .
00. - COMXX,
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
"4 tar. . ?,?.6
?441'
4
TDATA. 11100.M1110 27-MAR-8O 15'36 PAGE:..5
A i-O
pprovea r Release 2005/07/1.IA-RDP85-00514R000200020001-3
124
125
126
127
122
129
130
131
132.
133 000150
CHI: :
134 000150
004767
0000000.
135 000154
103004
136 000156
004767
uutiuuuu.
Anci162
137 .
R00167
AA A360
138
139
;
140
141
.1$
142.000166
012700
000002
143 AAA172.
0127u2.
[-mummy
144 000176
004767
uuuuuuu-
145 milm2m2.
1u3u04
146 000204
004757
UMM M
HMU.
147 HAA21A
AAA167
RAR332
148
149
150
151
152
153
154 000214
0l0167
OARAAAG.
2$:
155 000220
004767
000000G.'JSR
156 000224
103003
15r VIVI
0A4o,r
HHHHHHU.
iSR 000232
000545
159 AAA234
004767
AAAAAAG.
3$:
160 000240
103003
161 AAA242
0A4767
OAAOAAG.
162.AAA246
AAA537
163
164
165
166 000790
016701
AAAAAAG,
4$
167 AAA254
000171
AAAAAA
169
169
170
171
172,
173
174
175
176
177
178
179 000260
CHIB::
180 000260
005767
U1JUUUHL,
CHANGE.
PERFORM.SECOND.LEVELPARSING.
EG. IN.THE.COMMAND:
>CH.IB,A
PARSE.THE.'18
JSR. PC,FIND.
BCC 1$
PC,EPR3
JNF CHIX
MATCH THEMNEMONIC.FROM.THE COMMAND LINE AGAINST THE
TABLE OF,VALID.MNEMONICS,
MDV 4CH1LN,R0 ;NUMBER.OF.TABLE-ENTRIES.
PC SCAN ;CHECK.COMMAND.LINEAGAINST.TABLE-
*CH1TBL,R2. ;TABLE.OF.RESPONSES/RTN.ADDRESSES.
BCC. 2$
OK, CONTINUE
JMP JSR.
. Nfi irRS ;-
;'INVALID.MEMORYJ1NEMONIU
-
;FIND-THE-BUFFER.MHEMONIC.IN COMMAND LINE.
;OK, CONTINUE.
MISSING.OPERAND
SAVE.THE.POINTER.TO.THE.ROUTINE.ASSOCIATED WITH.THE.
BUFFER; RI -> ROUTINE ADDRESS
SCAN.THE.COMMANDWINEFOR.THE'START.CHANGEADDRESS.
THESTART.ADDRESS.IS.ZERO-PELATIVE:
RI,RTMPT ;SAVE.POINTER.TO.RTH.ADDRESS
PC,FIND. ;LOCATESTART.CHANGEADDRAN COMMAPLLJNE.
BCC. 3$ ;OK, CONTINUE.
JsR. PC,ERR3 ;'HISSING .OPERAND
BR CHIX ;EXIT.
JSR. PC,FACK. ;CONVERT COMMAND.LINEVALUE.Tft:pIWIRY.
BCC. 4$ ;CONVERSION.SUCCESSFUL. ??
JSR. PC,ERR4 ;'INVALID.NUMERICNALUEf
9R CHIX
JUMP TO.THE.ROUTIHE TO CHANGE.BUFFER.CONTENTS,
MOV RTHPT,R1 ;POINT-TO.POUTINE.
JMP. hD(R1) ;GO .THERE.
INPUT .BUFFER
NB. SINCE,THE.LOCAL,INPUT-BUFFER IS.TRONSFERRED.TO.
THETERMDETECTOR.IN.16-BIT.WORDS.AND.THERE-ARE.8
6-BIT.BYTES.IN.3 16-BIT.WORDS, THENUMBER.OF.6-BIT.
BYTES.IWTHE LOCAL.DATA.BUFFER.SHOULD.BE.DIVISIBLE-
,
BY 8. NO.CHECKING.IS.DONE, HOWEVER:
TET- DATALN
Approved For Release 2005/07/12
HAS DATA' COVHAND.BEEN.EXECUT
: CIA-RDP85-00514R000200020001-3-:,:!r
1
TDRTA- MACRO .M1110 27-MAR-130 15:36 PAGE 6-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
191 uuu.254 001009 BNE. 40$ ;YES, CONTINUE.
mu4(b( UMMUUUU. JSR. PC ERR? ;DATA-MUST.PRECEED CHANGE.
109 000272. 000525 BR UH1A
184
185
DETERMINE.WHERE.IN.THE TWO.TABLES.(6-BIT.BYTE.AND.8-BIT.-
185
ASCII.MIRROR TABLE) TO START.CHANGING, DO.THIS.FOR.THE...
187
5-BIT.BYTE.TABLE.BY.CONVERTING.THE.START.CHANGE.ADDRESSY
188
FROM.THE.COMMAND.LINE.INTO.A.AN.OFFSET.INTO.THE.5-BIT.
189
BYTE.TABLE, THE.FIELD.'OFF5 IS.THE.OUTPUT FROM:THE.
190
ROUTINE .OFFSET: THE.FIELD.'BINWD IS-THE:START:CHANGE.
191
ADDRESS FROM THE.COMMAND.LINE.(IN.BINARY).
192.
197 880274
004757
numummu.-40$:
J9R. PC OFFSET ;CALCULATE.5-BIT.TABLE.OFFSET.
194 A0030m
u12(u4
uummmmu.
May'. #DTBL,R4 ;R4 -> 6-BIT.TABLE
195 000304
056704
OAAAAMG.,
ADD-OFF6,R4 ;START.CHANGING.HERE.
195 888718
812705
AROAAAG.
MCW. #DSAVE,R5 ;R5 -> 8-BIT.MIRROR.TABLE.
197 0807.14
055705
HHHHHHU.
ADD. BINUD,R5 ;START.CHANGING-HERE.
198 8887,2171
816767
Ammimplu.mummAAu-
MOV. BINUD,CHLEN ;INIT.FOR.NEW.LENGTH.OF.844614,,7
Icrq
?
20m
PUT-OUT.PROMPT.FOR.CHANGE.DATA, CALL.SUBROUTIME.TO.
201
PROCESS.COMMAND.LINE.(SEE.?DW COMMAND.ABO'vE).
7-17.-12
ADD-THE.HUMBER.OF.6-BIT.CHARACTERS.FROM.THE.
203
PROCESSED.COMMAND.LIHE TO.THE.CHANGE.START
21:14
ADDRESS;
205
205 AAA725
0047?
AAOAAAG.. 5$:
JSR PC,GCONLY. ;GET.C.CMAND.LINE.
207 000332.
005757
00AAAAG.:
TST GCMLEN-;ANYTHING-THERE-
?AA AFIA7.72.F.
21719 AAA:2417i
oni4n7
FIA47F.7
MARAOAG.
BEO 5$ ;NO, RESPONSE
.J SR PC,DBLD-,:CHANGE DATA TABLE.
21.11 000344
107.50A
BCS CH1X ;ERROR, EXIT.
211 000345
855757
uumumuu-000000G.
ADD DPLUS,CHLEN ACCUMULATE LENGTH OF.DATA.BUFFER.
212 800354
000754
BR 5$ ;PROMPT.FOR.MORE.CHANGE.DATH
213
214
SPECIAL PROCESSING:
215
THE-FIELD.?DATALW CONTAINS.THE-HUMBER:OF.6-BIT.BYTES:
215
IN THE LOCAL DATA.BUFFER.(SEE.'DW COMMAND). IF.THE-
21?
CHANGE.COMMAND-IS.IN.THE.FORM:
218
>CH.I8.2.
219
AND.THE.DATA BUFFER.CONTAINS.'ABCDE AND.THE.CHANGE-DATA.IS.
22A
1234', THE.DATA.BUFFER.WILL.CONTAIM.'AB1234' AND.DATALH.WILL.
221
BE UPDATED.T0.5: IF, HOWEVER, THE.CHANGE.DATA.IS.'12' THEN.
222.
THE.DATA.BUFFER.WILL.CONTAIN.'AB12D.! AND.DATALN.WILL REMAIN.
27:2,
AT 5. THE.FIELD.'DATALW CONTAINS.THE.LENGTH.OF.THE.DATA
224
BUFFER.BEFORE.ANY.CHANGES: THE-FIELD.?CHLEW CONTAINS.
225
THE.LENGTH.OF.THE.BUFFER.AFTER.THE.CHANGES. THE LARGER
226
OF THE.TWO.WILL.BECOME THE.HEW.'DATALW:
*7,07
278 ? 888395
025757
uHuNHmu?08AAAOG-5$:
CMP. CHLEM,DATALN-;WHICH.ISBIGGER
229 00072A4
AA:247A
BLE. CH1X ;DATALH.
M AA0355
015757
HMHHHH.HUMMMUL,
CHLEH, DATALN. ;REPLACE DATALN.
231 000374
000454
BR 1H IX ;EXIT.
234
235
237
?
BYTE.TRAHSLATOR.
THE.FIELD.'BINWD CONTAI1S.THE.CHMMT11176, .
WHIC
WORD NUMBER EU, THE.COMMANDi!
1A.ZERO-RELATIVE.
Approved For Release 20 5/07/101A-RDP85-00514R000200020001-3
TDATA. 11100.M1110
238
239
240
241
242
243
244
245
245
247
240
249
250
251
252
254
755
255
257
758
2b17.J
250
261
252
253
264
265
255
267
258
259
270
271
272
273
274
275
275
277
000376
000376
000404
Ann4FIE.
000412.
000414
000422
000424
uuu4.52?
000435
000442.
.000445
000450
000452.
27-MAP-80 15:36 PAGE 6--".
Approved For Release2005/07/1.IA-RDP85-00514R000200020001-3
;
?
CHBT::
075777 utiuuuulS?000000C.
103403
004757 AAAAAAG.:
000455
032767 0000000.0000000.3$:
001014
05276?mummmmu.mmummmu.
012700 mmumuuu.
012701 uuuuuuu.
012702. 000000C..
012021
005302.
001375
000454 012702
080460 0157113
000464 17185383
000466 AF.A3A2.
?
.-170
279 000470
280 000474
281 AAA500
202.
2R3
284
205
ACIA5A2.
787 000505
2L18 uuu5lu
289 000514
790
29i
7g7
293 000515
794 000522.
004757
00476?
103422-
00uuum,
HUMVIMMI,'
A00000G.
UMUMUMU$,
004757 AAAAAAG..
103003
004757 UHHIJUULI.
00R414
020227 0000000.
103403
WILL-START.CHANGING.THE.BYTE.TRAHSLATOR.OVERRIDE.TABLE.
(SEE.BELOW) AT.WORD.7:
CMP.
BLO.
JSR.
BR
BIHWD..# ;STORT.ADDRESS.IN.RABEE-
3$ ;YES, CONTINUE.
PC. ERR20 ;'START.ADDRESS OUT.OF.RANGE
CHIX ;EXIT.
THE.CHANGE.COMMAND.CREATES.A.BYTE.TRANSLATOR-OVERRIDE.TABLE.
(WHICHAS.A.COMPLETE.COPY.OF.THE BYTE.TRANSLATOR.TABLE). ALL.
ALL.CHANGES.HRE.APPLIED.TO.THE.OVERRIDE.TABLE. THE
TABLE.IS.TRANSFERRED.TO.THE.TERM DETECTOR.BY.EITHER.THE.'TR
OR THE.."RW COMMAND: IF.THIS.ROUTINE.IS.BEING.ENTERED.FOR.
THE-FIRST.TIME, COPTHE.BYTE-TRANSLATOR.TABLETO.THE.
OVERRIDE.TABLE:
BIT.
ONE.
BIS.
MuV.
MOV.
MOV.
30$: May'.
DEC.
BNE.
4$:
5 $ :
*RIDE,BASE.
4$
#RIDE,BASE.
*BTRANS,R0
#BTOVER,R1
;FIRST.USE.OF."CHANGP.
;NO, LEAVE.OVERRIDE.TABLE.ALONE-
;FLAG.ROUTINE.ENTERED.
;POINT.TO.DEFAULT.TABLE.
;POINT.TO.OVERRIDE TABLE.
o/2,R2.;NUMBER.OF.WORDS.
(R0)+, (RI) + ;LOAD.OVERRIDETABLE.
R2.
30$
LOAD.THE.CHAMGESTART?ADDRESS-IN BYTES-INTO.R2.
MOV.
MOV.
ASL.
ADD.
*BTOVER,R2.
BINUD,R3
R3
R3,R2.
;POINT.TO.OVERRIDE TABLE.
;LOAD-WORD.OFFSET.
;SHIFT.FOR.BYTE-OFFSET.
;START.CHANGING.HERE.
PROMPT-FOR.A LINE.OF.CHANGE.DATA. THECOMMAND.LINE.
MAY.CONTAIN.MORETHEN.ONE-WORD.OF.DATA: EG:
>000000 000000 000000 000000 000000 000000
CHAHGE.5 CONTIGUOUS.WORDS.WORTH.OF-BYTE.TRANSLATOR?CODES:
RESPONSE-TO.THE PROMPT.TERMINATES.THE.COMMAND.
JSR
JSR
BC 3.
PC, GCONLY.
PC,FIHD.
CHIX
;READ.COMMAND.LINE
;LOUATE.AN.OVERRIDE.WORD.
; RESPONSE, EXIT.
.CONVERT-THE.OVERRIDE.VALUE-TO.BINARY: ANY.ERROR.IN.
CONVERSION.TERMINATES.THE.COMMAND:
5$:
PC,PACK.
8$
PC,ERRA
CHI.'
;CONVERT NUMERIC-VALUE.
;OK, CONTINUE.
_
IIIVALID.HUM.=-RIC.VALUE.
;EXIT.
_ ? '
CHECK-FOR.TABLE.OVERFLOW: IF.OYERFLOW, TERMINATE COMMAND;
8$: CMP R2,1*BTOVER+.',BTEND-BTPANS, :END OF TABLE REACHED
OLD 10$ ;NO: CONTINUE
Approved For Release 2005/07/12 : CIA-RDP85-00514R00020002000173
,
;
?
TDATA
MACRO M1110 27-MAR-20 15:36 PAGE 6-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
295
000524
004757
000000G..
JSR.
.PC,ERR17
;TABLE.OVERFLOU
296
000530
000406
BR
CN1X
;EXIT.
297
00057.2-
016722.
Arl0FIA0G.
10$:
MOV.
BIN1D,(R2)+
;ENTER.WORD.IM.BT-TABLE.
290
000536
004757
mmmmmmG..
JSR ?
PC,FIND.
;LOCATE.MEXT.OVERRIDE.WORD.
?
299
AA1542-
107757
Bro.
6$
;PROCESS STRING.
300
000544
000751
BR
5$
;GET.COMMAND.LINE.
301
7,1712.
303
000545
CH1Xt
304
AAR546
000167
000AAAG.
JMP.
COMXX.
?
AnOrr(r, t'117_217iN,' "Vrrir9Fr Pril3,4tt '1V./ It'.V349/11.,
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
11100 M1110 27-MAR-80 15:35 PAGE-7
Approved For Release 2005/07/11.IA-RDP85-00514R000200020001-3
TDATA
305
307
3E18
3A9
310
311
312.
313
314
315 000552.
LII::
315 000552.
.7104757
AAAAAAG.
317 000555
103004
318 AAA55A
004787
MMUMIMU..
319 000564
000157
000424
320
321
322
324 AAAti7A
0127AA
AAAAA2
1$:
325 800574
0127102.
000010'
326, mUllhelU
H047f-.7
HUUVIMMG-
327 000504
103004
328 .0RAF,A5
904767
AAOAAAG-
329 ElElElb 1.4
OA0167
AAA378
330
331
332
333
334
335
335 000516
010187
MMUHM111.3-
2$:
637 000b22.
004767
M000001.3.
33R AAA828
103004
.3.313 000530
0A4757
0000AAG.
34A RAFIF,724
arlo167
Aff-172.!--.;4
341 000640
El 0476?
1-1411-11-11-11-11, ?
3$:
342 .000644
103004
343 000545
A04757
000000G.
344 AAP8.52.
An17111:77
OAA338
345
346
347
348 tIM M1313 I-
004757
AAAAAAG.
4$:
349 AAA552.
016701
AAAAAAG-
350 AAA885,
AAA171
AOAAAA
351
'2=7
354
355
357
358
359
361
352
90575?
AA 1003
0047'57
LIIB::
AAAAAAG
LIST-
PERFORM.SECOND.LEVEL.PARSING.
EG. IN.THE,COMMAND:
>LI.IB.0
PARSE.THE.'IB
JSR.
BCC.
JSR
JM?
PC,FIND.
1$
PC,ERR3
LI1X
;LOCATE-BUFFER.MNEMONIC.IN.COMMAND
;OK, CONTINUE.
;'MISSING.OPERAND
;EXIT.
MATCH.THEJINEMOHIC.FROM.THE.COMMAND.LINE.AGAINST.THE
TABLE.OF.VALID.MNEMONICS,
MOV.
Mo
JSR ?
BCC ?
JSR.
JMP.
*LI1LN,R0
#LI1TBL,R2-
PC,SCAN.
2$
PC. ERR5
LI1X
;NUMBER.OF.TABLE.ENTRIES.
;POINT.TO-TABLE.
IMATCH.AGAINST.COMMAND.LINE.
;MATCH.WAS.MADE.
rjNVALID.MEMORY.MNEMONIU
SAVE.THE.POINTER.TO.THE.ROUTINE ASSOCIATED WITH THE.
BUFFER, R1 -> ROUTINE ADDRESS
SCAN,THE.COMMAND.LINE.FOR.THE.'START.LIST.RDDRESS,
THESTART.ADDRESS,IS.ZERO-RELATIVE,
MOv.
JSR.
BCC?
JSR.
JMP.
JSR.
BCC.
JSR?
JMP?
R1,RTNPT.
PC,FIND.
3$
PC,ERR3
LI1X
PC:. PACK.
4$
PC,ERR4
LI1X
;SAVE POINTER
;LOCATE LIST START ADDP IN COMMANIT LIE
;OK, CONTINUE
v*MISSING OPERAND
;EXIT
;CONVERT COMMAND LINE VALUE TO BINARY
;CONVERSION SUCCESSFUL _
.:'INVALID NUMERIC VALUE
LINE-
JUMP TO THE ROUTINE LIST.BUFFER.CONTENTS:
JSR
MOV.
JMP ?
PC,HANG.
RTNPT,R1
@(R1)
INPUT .BUFFER
;HOW.TO.STOP.PRINT
;POINT.TO.ROUTINE.
JUMP TO ROUTINE.
. :'.2;".?jr;
CHECK.WHETHER.THERE.IS ANY .5-BIT BYTE DATA IN THE.
. .
TABLE, :trip
TST DATALN :HAS '111-1TH COMMAND BEEN EXECUTED
BNE 20$ ;YES. h CONTINUE
OULAJUUb JSR PC.ERPB ;DATA COMMAND MUST PPECEED ?LIS
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 -
TDATA ? MACRO . M1110 27-MAR-80 15 prE4a ilRelease 2005/07/12 : CIA-RDP85-00514R000200020001-3
363 000704 000543
364
365
365
367 000706 026767
368 000714 002403
369 A00716 A114767
370 00A722. AAA5734
371
372
373
374
375
376
377 000724 012700
378 000730 055700
379 000734 00517101
ScIU 000(35 012(05 1300MU1.
381
382.
303
384
385
7.06 000742
387 000750
388 000752
.389 131113754
390 000755
791 13A13762.
792.
797
3q4
795
396 000764
397 0A0(70
398 000772
799 AAA774
41313 AA1000
401 001002-
402.001004
407
404 001005
405 001012
406 001016
407 001020
408 001024
40q 0011.1.30
410 001074
411 001036
412 001042
413 131311344
414 001050
415 13171117194
416
417
418
419
13MMIHMU.MMUM00U.2M$:
0AAAAAG.
AAAAAAG-
111-111mmmu.
BR LI1X
CHECK.WHETHER-TNE.START.LIST.ADDRESS.IS.IN RANGE.
CMP.
BLT.
JSR.
OR
BINWD,DATALH.
25$
PC..ERR9
LI1X
IS LIST START.ADDRESS.IN.RANGE.
;YES, CONTINUE.
;OUT.OF.RANGE.
LIST.FROM.THE.0-BIT.ASCII.MIRROR TABLE, HOT.FROM.THE
6-BIT-BYTE.TABLE, SEE.THE.'DW ROUTINE FOR NOTES OH
THE.CREATION OF.THE.MIRROR.TABLE, THE.FIELD.'BINWD
CONTAINS THE LIST.START.ADDRESS.
29$: MOv.
ADD.
CLR.
MOV.
032767 800000G.880ARAG.7.$:
001521
105710
001003
004757 AANDAAG. -
000514
122710
uALA0b
005201
022701
002426
11202ti
000755
000015
ARA110
052701 1313001.14.
022701 000110 '
802417
1.12r-3
112725
12272A
001403
112725 131313131313
0E10402.
112725
112725
F.100772,2
000074
000061
AN711112
001056 004767
411
000062'
000075
*DSAVE,R0
BINWD,R0
R1
*FR INT.
;POINT TO.ASCII VERSION OF DATA
;START.LIST.HERE.
;CLEAR-PRINT-LINE.CHAR.COUNIER.
IRS -> PRINT.LINE.
THE.LOOP.FLAG.IS.USED.TO.CONTROL THE.LIST.COMMAND:_
ANY.CHARACTER.ENTERED.FROM.THE-TERMIHAL.ENDS.THE.-7'
COMMAND.AS.DOES.A.0 VALUE.IN.THE DATA TABLE
BIT. *LOOP,BASE.
BEO. LI1X
TSTB (R0)
ONE 30$
JSR. PC:. CONSOL.
OR LI1X
IF IN ISHED 7
;YES, EXIT.
;END.OF.TABLE.
;NO, CONTINUE.
;PRINT-LAST.LINE-
;AHD.EXIT.
THE.BINARVALUES.15 (CARRAIGE-RETURH) AND 12.
(LINE-FEED) ARE.PRINTED.OUT-AS. AND..
30$: CMPB. *15,(R0) ; IN ASCII.DATA.
BGE. 4$ ;PROCESS OF.
INC. R1 ;ADD.TO-PRINT.LINE CHAR COUNT.
CMP. *7R1 ;PRIHT.LINE.FULL.
OLT. 7$ ;YES, WRITE.TO-TTO
MOVE:. (R0)+,(R5)-1- ;MOVE.CHAR.TO.PRINT.LINE.
BR 3$ ;GET.NEXT.CHAR.
ADD. *4,R1 ;ADD.FOR ANGLE BRACKETS
CMP. *72,,R1 ;ENOUGH.SPACE.ON.CURRENT.LIHE.
BLT. 7$ ;NO, WRITE .CURRENT LINE.
MOVB. *'?,(P.5)+ CLOSE BRACKETS
BR 3$ ;GET.NEXT.CHAR.
A
WRITE.OHE LINE-TO.THE romsoLE.
,
Approved For Release 2005/07/12 A-RDP85-00514R000200020001-3
P C C ; LIR I TE ? LINE ? TO -Fro
JSR.
AFIAAAAG. 7$:
?
TDATA- 14100 11E1
420 001062.
421 001064.
422.001070
423
424
425
426
427
428.
429
430
431
432.001072-
433 001.072.
434 001100
435 001102.
436 001105
437
438
439
440
441
442.
443 001110
444 001116
445 001120
446 001124
447
448
449
450 001126
451 001132
452.001135
453 001140
454
455
456
457
458
459 001142.
460 001145
461 001152.
452.001154
463 001150
464 001154
465 001165'
465 001170
45r 5m117'2
458 551175
463 001204
470 001205
471
472.001210
473
474
4rh MO1214
476 001220
Approved For Release
27-MAR20 2005/07/1.IA-RDP85-00514R000200020001-3
- 15:36 PAU_7-2-
005001
.112015 MMIVIMMU.:
000724
LIBT::
032757 001.1000u -000000u.
001003
004767 mmuumuG.
000442.
025727 UNIJUOmu.mAAmomu.1$:
103403
00477 AAAAAAG.
OAA47'172.
012702- AAAAAAG.
0115703 OAAAAAG.
005303
060302.
2$:
CLR.
NOV.
. BR
RI
*PRINT,R5
3$
BYTE .TRANSLATOR.
;CLEAR.PRINT.LINE.CHAR.COUNT
.:RESET PRINT LINE. POINTER.
;PRINT.NEXT.78 CHARS.
CHECK.WHETHER-THE.?CW COMMAND.HAS.BEEN.USED.TO.
CREATE.A.BYTE.TRANSLATOR.OVERRIDE.TABLE: LIST.
CANNOT.BE.DONE.OTHERWISE:
BIT.
BHP.
5.
BR
*155.. SASS
1$
Hu,ERR22.
LI1X
7.771T-
;HAS.BT.TABLE-BEEN OVERRIDEN
;YEti, CONTINUE.
FOR BT CHANGE COMMAND MUST PRECEED LIST'
;EXIT.
CHECK.WHETHER.THE.START.LIST.ADDRESS IS IN RANGE:
THE.FIELD."BINWD, CONTAINS.THE.WORD.OFFSET WHICH.
IS THE-START ADDRESS:
WILL.BE.USED TO.GET.THE.START.ADDRESS:
CM?-
BLO.
JSR.
BR
BINWD,# ;IS-START.ADDRESS IN RANGE
2$ ;YES, CONTINUE-
PC,ERR2A ;"START ADDRESS ANT OF .RANGE HIGW!
LI1X ;EXIT.
LIST.THE.OVERRIDE.TABLE:
NW.??
MCN
AS_
ADD.
#BTOVER,R2.
BINWD,R3
R3
R3,R2.
;POINT TO BT OVERRIDE-TABLE.
;LOAD.WORD.OFFSET.
;SHIFT.FOR.BYTE.OFFSET.
;START.LIST.HERE.
USE-THE.LOOP FLAG.TO-CONTROL.PRINTING:
ANY.CHARACTER.ENTERED.FROM.THE.CONSOLE.TERMINATES.
THE.COMMAND.AS-DOES.END.OF.DATA:
012705 HMHHHHU. 3$: MOV. oPRINT,R5 ;POINT.TO.PRINT.LINE. _
..
012703 AAACIA5 MOV. #5,R3 ;COUNT-HUMBER.OF.WORDS.IN.PRINT.LINE.
012201 4$: NOV. (R2)+ ,R1 ;LOAD.WORD.FROM.BT 0VERRIDE.TABLE-
004767 OAOAAAG. JSR. PC,OHPK. ;CONVERT FOR .PRINTING.
020227 AnnnnAr. CM?. R2,44.8TOVER+ ;END.O.P.TABLE.REACHED
103011 BHIS 5$ ;YES, EXIT.
005303 DEC. R3 ;SUB.FROM.PRINT.LINE.COUNT-
00137A BHE. 4$ ;CONVERT NEXT.TABLE.ENTRY.
0047H7 HMHHHHU. JSR. PC CON'-! ;PRINT-LINE.
032757 AUHUUHU.AmUHUAI,BIT. *LOOP ,BASE LOOP ON
001403
BED. LI1X ;NO, EXIT-
000755 BR 3$ ;START.WITH.FRESH.LINE.
004767 000000G.- 5$: JSR. PC,CONSOL. ;PRINT.LAST.LINE.
8147 HHHH[11.11, Li 1X: JSP PC4rILL
600167 000000G. JMP COM
Approved For Release 2005/07/12 : CIA-RDP85-00514R00020002000.
;KILL
AST
THERE
WAS -ONE)
TDATA MACRO M1110 27-MAR-80 15:35 PAGE R
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
472
479
480
481.
482.
483
484
405
485
487
488
419
490
491
492.
497.
494 001224
EN1::
495 001224
004757
AmmmmHu.'
496 00127.0
1r.-1-2471A7
497 AR127;2.
171171471W.
AARAAFIG.'
498 001236
000425
499 AA1240
An47F7
AOAPIAAG:
5AA 001244
11,717A17172
h1.11 UU1,141'..
HP14('H(
1.11,1MHHHU.'
502-001252.
eao417
51117,
504
;
',[715
END DATA
CHANGE.THE.NUMBER.OF.6-BIT.BYTE.CHARACTERS TO.BE.
TRANSFERRED.TO.THE.TERM.DETECTOR INPUT -BUFFER: THE.
CONTENTS.OF.THE.BUFFER REMAINED.UNCHANGED:
NB. SINCE.THE.LOCAL.INPUT.BUFFER IS.TRANSFERRED.TO.
THE.TERM.DETECTOR.IN.16-BIT.WORDS.AND.THERE.ARE.8
6-BIT.BYTES.IN.3 16-BIT.WORDS, THE.NUMBER-OF.6-BIT.
BYTES.IN.THE LOCAL.DATA.BUFFER.SHOULD.BE.DIVISIBLE.
BY 8. NO.CHECKING.IS.DONE, HOWEVER;
JsR. PC,FIND. ;LOCATE ? END ? VALUE. IN-CO ril;44,14.---644:4- ,,,. ,y--yr, 74 ,:T-; ' , ." = ?
BrC. 3$ ;OK, CONTINUE.
JSR. PC,ERR3 ;'MISSING.OPERAND': ,
BR EN1X ;EXIT. _??
JSR. PC,PACK. ;CONVERT COMMAND.LINE.VALUE.TO.BINARY-
BCC. 4$ :CONVERSION.PUCCESSFUL.
JSR. PCfiERR4 ;IHVALID.HUMERIC.VALUP
BR EN1X
THE.END.VALUE.CANNOT.BE-ZERO,
506 001254
507 001250
513 AA1262.
509 00126F,
510
005767
08101717.
0A4757
000411
0000000.
AAAARAG.
4$:
TST. BINWD. ;IS.END.VALUE.ZERO
BNE. 5$ ;NO, CONTINUE.
JSR. PC,ERR4 ;REPORT.INVALID.VALUE. 1
BR EH1X ;AND.EXIT.
511
THE.?DATW COMMAHD.MUST.HAVE.BEEH.PREVIOUSLY.EXECUTED1
512.
IF IT.HAS.BEEHfi REPLACE.THE.COHTEHTS.OF.THE.FIELD.
513
'DATALW (LEHGTH.OF.LOCAL.DATA.BUFFER) WITH.THE.
514
EHD.VALUE.FROM.THE.COMMAHD.LIHE:
515
516 00127A
0A57F,7
APIAAAFIG.?
5$:
TST. DATALN. HAS LATH COMMAND.BEEN.EXECUTED.
517 001274
001003
BNE. 6$ ;YES, CONTINUE.
518 001275
004757
uuutiuuu..
JSR. PC,ERR10 ;DATA.COMMAND.MUST PRECEED.'END'7
51c1 17.1t7117;1712.
piRA41J72,
BR EH1X
520 0111304
015757
088 8808888880
6$:
MOV. BINWD,DATALN. ;REPLACE LENGTH OF 'DATA
521
522.001312.
-EN1Y:
523 001312-
000157
0000000.
JMP. COMXX.
nL,
? Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
?
TDATA POO Mu 10 27-MAP-80 15:36 PAGE.9
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3,
599
525
527
532-
534
535
536
537 00131J;
bF1::
556 601516
004757
000800G.
539 001, 22.
103004
540 001724
A04757
AnOOFFIG,
541 001770
008157
1JAA514
542
543
544
545
.7145 1.1H172,j4
1-112(MM
AHHA11..-'
1$:
547 001340
01271-2-
HAuL120'
!-14.6 1101.544
1.111MMMMI,
549 001750
107004
550 001352-
004(5(
Humummt,,
551 001356
008167
000466
552.6A17.62.
AA A171
AAAAAA
2$:
=C-7.
554
555
555
997
558
559
. 560
561
562.
553
954
569
955,
567
568 001355
569 061366 005067 uuuuuuG: CLR: COUNT. ;CLEAR.BIT.SHIFT.COUNTER.
570 001772: 0A5057 000000G.t CLR. DATALN. ;CLEAR.LENGTH.OF.'DATW
571 001376 012700 0000000- NOV. #DTBL,R0 ;POINT.T0.6-BIT.BYTE?TA8LE.
572-RA1402- 012761 AA 109A MOV- # 6-BIT-BYTE TABLE
AAAAAAG.: MOV. *DSAVE,R5 ;RS -> B-BIT.ASCII MIRROR TABLE
OPEN$R. *TXTFDB.
UMMMMH-
MOV.
*TXTFDBRO
112760
HP14(h(
OAAARAG.TIA0A17100.
HHHHHHU.
.IIF.
JSR.
HB,#FO:RD,
PC. .OPEH.
MOVB.*FO.RD,F:FACC(RA)
107.005
BCC.
4$
Hm.4(f-..(
1.11-1MMIMU.
JSR.
PC,ERR12.
;ERROR.OH.OPEH.
OUbUb7
1.11.11.1MMMU.
CLR.
DATALN.
;AS.THOUGH.RTN.WAS NOT ENTERED
L liii555
BR
iii- l:(
READ.ONE.RECORD: CALL ROUTINE IN TMAIN.TO.ADD.ONE.
RECORDS.WORTH-OF.DATA TO THE LOCAL TABLE
4$:
GET$ *TXTEDB. ;READ 'DATPC FILE.
012700
AAAAAAG:
MOV. *TXTEDB,R0
004767
AOAOAAG-
JSR. PC. .GET.
103414
BCE;? 5$ ;ERROR-OR.END-OF.FILE-
ii 1606?
hmviuuu.riumildob.
MOV. F:NRBD(R0),GCMLEN.;LENGTH.OF.LINE.READ.
012701
FIRRARAG-
MOV. *0CMBUF,R1 ;POINT.TO.LINE-
004767
AAAAAAG-
jsR. PC,DBLD. ;BUILD.5-BIT-BYTE.TABLE.
107551
BCS. DF1X ;ERROR.OR.END.OF.TABLE.
05576?
UHHHHUU u8ukau0G.
ADD. DPLUS,DATALN. ;ACCUMULATE .LENGTH
00075?
BR 4$ ;GET.NEXT-LINE.
;
122760
17((56 Ji00t1U0U.5$:
OMPB. *-10.,F:ERR(RO) ;END.OF.FILE.
001405
BE0 6$ ;YES, PUT.OUT.MESS. GE.
004757
MMMMMML,-
JSR PC. ERR ;ERROR.ON.GET.
A05AILIT,
nAA4A2'
005151000-
CLR. DATALN. ;AS.THOUGH-RTN.WAS NOT ENTERED
BR 7$ ;CLOSE.FILE.AND.EXIT.
HMMHMML-5$:
JSR. PC,ENFILE.
7$:
CLOSES *TXTEDB.
0127AA
AAAAOAG-
MOV. *TXTFDB,R0
004767
000000G-
JSR. PC. .CLOSE.
nnA575
BR in- 1::::;
LOAD.BYTE.TRANSLATOR.BUFFER.FROM DI5K:
READ.THE.FILE.?TRANS,TXT INTO.THE.BYTE.TRANSLATOR.
OVERRIDE .TABLE: THE.FILEON.DISK MUST.BE?A FULL .64
WORD .TABLE:
DEBT::
A127AA
A0A00AG-
MOV. #BTOVER,R0 ;POINT.TO.BYTE.TRANS.TABLE.
012701
000100 ?
4447.4.,R1 ;NUMBER.OF.WORDS.
aA5A2A
1$:
CLR. (RA)+ CLEAR TABLE
0057,01
DEC. R1
00.372,(F.1,
BG T. 1$
OPEN.'TRANS:TX-P.
44,1*.nrireir MTN, 177X-k-ITIF7,77Wir':
OPEN$R. *TREDEL
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
TDR.TA 10 M1110 27-MAR-80 15:36 PAGE 9-2.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
001614 012700
001520 112750
001626 004757
632.001632. 103003
533 001554 004757
F.34 AA1E40 AAA5A3
1;35
535
537
660 mm11:-.42.
539 001.646
mm1i.,4h H12mm mmmmumG.
001552. 004757 000ARAG.
640 001655 10317121
641 001660 122760 177766 0000000.
1642.A01665 AA14A3
6.472, 001570 0A47F,7 AAAAAAG.
644 A01574 000447
001100AG.
0110000G.HUUMMHI,
1100011110'
AAAARAG..
012(02. MAAMMAG,
545
645-
F47
640 001575
649 001704
650 001.710
001710
001714
651 001720
652.
653
654
555
555
557
558
001722.
559 mm1(5u
560 001774
5451 001740
662 001742.
653 001746
166.4
565 001790 A11477 A000AAG.
LOU 001754 103003
567 001756 004757
658 01711702. AAA414
E,F,A
2$:
3$:
MOV.
.IIF
JSR.
ecc.
BR
#TREDB,R0
NB,#FO:RD,
PC ,.OPEN.
2$
PC,ERR14
Li- IX
TOP.OF.LOOP: READ FILE.
MOV.
GET$
rlOw?
.3 SR
BCC
COPS.
BE 13.
.3 SR.
BR
*BTOVER,R2.
ItTREDB.
ItTREDB,R0
PC,.GET.
5$
0-10.,F.ERR(R.0)
20$
PC. ERR
30$
MOVB.#FO.RD,F:FACC(RO)
;ERROR.ON.OPEN-
;R2.-> BYTE-TRANS TABLE.
;OK, PROCESS RECORD
;END?OF.FILE-
;YES, EXIT.
;ERRAR.ON-GET.
;CLOSE FILE
EXIT.OWSUCCEBBFUL.FILLING.OF.TABLE,
0527E.7
nA11AARG?AnA11AnG.20$:
BIS
#RIDE,BASE.
;SET.FLAG-FOR.OVERRIDE.TABLE FILLED.
004757
OAAARAG.
JSR
PC,ENFILE.
;PRINT?END-OF-FILE MESSAGE
CLOSE$
#TRFDB.
012700
00000AG.
MOV
#TREDB,R0
AA47F7
000000G,
JSR
PC.. .CLOSE.
000453
BR
OF i::
;EXIT
016067 UUUMMMGAIDOMMUG.b$:
012701 0000000.
A04767 0A0000G.
10317103
0047F,7 AAAAAAG-
000422.
uu00U01.1.
5(0 001(04 FIHMMHML
671 001770 103403
br2
A7:2,
674
675
676
677
678
679
680
581
-mA1((2
001775
AA2AAA
002004
API21711A
002012.
MH4(h(
13130405
016722.
004767
107.357
000715
HHHHMMU.
AAAAA0G.!
000000G.'
PROCESS.ONE.RECORD: EACH.RECORD.MAY.CONTAIN-SEVERAL.TABLE.
VALUES-SEPARATED.BY.BLANKS: IN.ORDER.TO.PARSE-THEM EASILY
MAKING.USE.OF.EXISTING SUBROUTINES, THE.RECORDS.AREREAD.
INTO.THE.COMMAND.LINE.BUFFER.GCMBUF:
MOk?,?,.
MOV?
JSR.
BCC ?
JBR ?
BR
JSR.
BCC.
JSR.
BR
PMP.
BLO
JSR
BR
MOV.
JsRo
BCC
BR
'04"frr`,?,
F:HRBD(R0),GCMLEN.;PRETEND DISK RECORD IS A COMMANa.LINE- ' fy,
4GCMBUF,R1 ;POINT.TO RECORD READ
PC,FIND.
7$
PC,ERR16
30$
FC,PACK.
8$
PC,ERR4
30$
;LOCATE.A.TABLE.VALUE.
;OK, CONTINUE.
;EMPTY.INPUMLINE.
;CLOSE.FILE.AND.EXIT.
;CONVERT NUMERIC VALUE FROM DISK REQOP.D.
;OK, CONTINUE
INVALID NUMERIC VALUE':
;CLOSE FILE AND EXIT.
R2,400TOVER-1- ;END.OF?TABLE.REACHED.
10$
PC,ERR17
74'1$
BIN1JJD,(R2)+
PC.. FIND
7$
3$
;NO, CONTINUE.
;TABLEOVERFLOW
;CLOSE.FILE-AND.EXIT.
ENTER WORD IN BT TABLE.
;LOCATE.NEXT-TABLE VALUE.
;PROCESS STRING.
;NOTHING THERE: FINISHED.WITH.T4tS?REe0RD:
EXIMON-ERROR: CLEAR.OVERRIDETABLEAND.FLAG:
082014 30$: CLOSE$ #TREDB
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
?hr
Are"'
TDATA. MACRO.M111A 27-MAR-80 15:35 PAGE 9-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
UU2014 012708 HHHHUU6j MOV. *TREDB.,R0
11112W-T1 554(h( MMHHHHU-JSR. PC .CLOSE.
582.
?.
bU.3 mm21-124
U42(6(
1.11.11.1MHMU-HMHHHMI_;-
BIC.
*RIDE,BASE.
;CLEAR-BT.OYERRIDE FLAG.
684 002032.
012700
OCIUULIU
MEN-
oBTOVER,R0
;POINT TO OVERRIDE TABLE.
685 AF12[713F.
812701
555455.
MOV.
*255.,R1
;HUMBER.OF.WORDS-IN.TABLE.
585 002042.
An5A2A
35$:
CLR.
(RFD+
;CLEAR -TABLE.
687 002044
005301
DEC-
R1
f:;RR
017117i75
BHE-
35$
F.,9A
591 002050
DF1X:
692 -121.-Fie
000157
000000G..
JHP.
COMXX.
?
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
TDATA- 11100 MI110 27-MAR-80 1536 PAGE 10
Approved For Release 2005/07/1111A-RDP85-00514R000200020001-3
694
695
697
698
699
7171171
7511
702
703
7A4
7515
705
802054
TRI::
707
002054
00476?
0uLui
703
AA21.71f;A
1A:2AA7
7A9
AA2AF,2
AA-47F.7
OAAAAAG-.
TRANSFER.
MOVE.LOCAL.DATA.TABLE.TO.TERM.DETECTOR.INPUT.BUFFER.
OR BYTE.TRANSLATOR.OVERRIDE.TABLE.TO.TERM.DETECTOR.
BYTE-TRANSLATOR:
PERFORM.SECOND.LEVEL.PARSING.
EG, IN.THE.COMMAND:
>TR-IB.
PARSE.THE.'IB
JSR PC,FIND. ;FIND.THE.BUFFER.MNEMONIC.IN COMMAND.LINE.
1$ ;O K, CONTINUE-
ICR PC,ERR3 ;"MISSING OPERAND'
r11.1 HM2Mhh MMW-1.32 BR TRi"
711
712.
MATCH-THE.MNEMONIC.IN.THE-COMMAND LINE AGAINST THE.
713
TABLE.OF.VALID.MNEMONICS:
714
(lb
1302078
012700
UPWWW12.
l$:
*TR1LN,R0 ;NUMBER-OF.TABLE-ENTRIES-
715
AA2A74
A127A2.
AAAA7,w .
NOV. *TRI.TBL,R2. ;TALE.OF RESPONSES/PIN ADDRESSES
717
FIA2l0A
0047F.7
AAAAAAG:
TSR PC,SCAN. ;MATCH.COMMAND-LINE.AGAINST.TABLE.
718
0512104
103003
BCC. 2$ ;OK, CONTINUE.
(IH
002106
u04(5(
UUUUHUG.
JSR. PC,ERR18 ;'INVALID TABLE.NAME
72A
AA2112
RAA52171
BR TRiX
721
722.
723
724
;
725
776
727
728
779 0132114
010167
AAAAAAG.
2$:
750 1151212A
004757
HHHHHHU.
731 002124
015701
ARAAAAG.
TRINz?
732 002130
000171
nAnnAn.
733
734
735
755
77,7
730
739
740
741
742-AA2134
TR TB
743
002134
A12757
00171AAA.- 176376
744
002142
A12767
AAA2AA '17656A
745
00210
015701
AAAAAAG.
746
002154
005301
747
002156
0l57U2.
UUOUIJUU.
748
002152
05d71201
749
002164
AA5201
750
0A2155
005201
SAVE.THE.POINTER. 10.1HE.HUUllNL.AbbUL1HIED WITH.THE
BUFFER: RI -> ROUTINE.ADDRESS:
CALL.A.ROUTINE.TO.SCAN THE.COMMAND.LINE.FOR.A.LOOP.
INDICATOR: EG
>TR.IB.L.
LOOP.FLAG.WILL.BE SET? IF.INDICATOR.IS.PRESENT:
MOv. R1,RTNPT ;SAVE.POINTER.TO.ROUTINE.
J5R. PC,LOOPR. ;LOOP .ON TRANSFER.
MU.V. RTNPT,R1 ;POINT.TO.RTN.
JMP- 51(R1) ;JUMP. TO ROUTINE.
TRANSFER.FROM.LOCAL-DATA.BUFFER.TO.TERM.DETECTOR.
INPUT .BUFFER. THE.FIELD.'DATALW CONTAINS.THE.NUMBER
OF 6-BIT.BYTE.CHARACTERS.IN.THE-LOCAL.BUFFER: CONVERT.
THIS.VALUE.INTO.A.NUMBER PDP 11 WORDS.FOR-CONTROLLING.
THE TRANSFER.
t t:11'i #0,TD$SW RESET .TD
. ;.
*T$DISK..TD$CTW ;SIMULATE.DISK.INPUT-
2T
DATALN,R1 ;NUMBER.OF.5-BIT.PYTES
t RI. ???41..e. ? mOi1
;MULT.BY 2.
NEN. DATALH,R2. ;HUMBER.OF.8-8IT.8YTE.
ADD. R2,R1 ;RESULT?NUMBER.OF.BYTES.X.3
ASR. RI ;NOLI.DIVIDE.B)).8.
ASR. Ri ;FOR .NUMBER.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
TDATA. MACR0.111110 27-MAR-80
751 002170
(H2 HH23.,.....4.'?
75.3 nn22nn
754
755
755
757 002204
75R 002210
759 002212.
750 00222A
751 002222.
757.002224
753
754
75.5
7EG
757
758
759
770
771
772.
774 5102225
775 002225
rr5
MM22A4
777 05122451
7713 002'245
UU22b2
(bn LIULI
rui nil12h3
782 002255
783 002270
784 002274
795 AF1274:17
785 00271A
787 002315
788 0027,24
799 002330
790 002334
791 0112335
797.002740
793 002342
794
795
795,
(Sr
798
799 An2754
enn
901 002360
8812.
803
005201
015757
012702.
15:35 PAG 10-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
HMHHHHLAIMMIMMU.
Li Li Li U Li Li U
016703 000000G-
A12213
052757 000002 ?0000000.
06153611
nA3370
000447
012757
hlz(nz
015757
01270n
032757
4-1M 1 441.3
012701
000402
012701
012757
5112757
016757
012757
012157
005257
005-.2,00
003351
AF-15:7;A?.
5101341
1$:
000000: 176376
1.-IH11MH4-?
HHHHHHUYAMMMMUG.
000100 ? 1$:
UUuLlub.UUUULJUL,
nnnnnnG.
000000G.
000040 1757.50
000030. .,175752.
000000G.175754
UUULI2U 175352.
176364
000000G-
2$:
4$:
002344 TRLP:
002344 A72757 AAAAAAG.AAAAAAG
002352 001264
AA2754
004767 AnAAARG.
000167 000000G.
A0P-IFIA1
TR IX:
A5R?
MOV?
R1
ILOW,MSTR2,
#DTBL,R2.
TRANSFER .THE TABLE.
MOV.
ADD
DEC DEC.
BST.
BR
MSTR2,R3
(R2:1+. (02)
02,MSTR2.
R1
1$
TRLP
;OF?WORDS.
;IB.START?ADDRESS.
6-BIT.BYTE-TABLE.
;POINT TO 18
;LOAD .IB
;ADVANCE ADDRESS.
;TEST.LOOP.FLAG.
TRANSFER?BYTE.TRAHSLATOR.TABLE.TO.TD.
. ? IR.
IF A BYTE TRANSLATOR OVERRIDE TABLE HAS BEE11,24,111.,,,frirtm,ymIcio
(SEE THE 'CH AND OF COMMANDS). THEN TRANSFER IT
TO THE TERM DETECTOR: OTHERWISE TRANSFER THE DEFA4t-T
BTE TRANSLATOR TABLE: IN EITHER CASE TRANSFER THE'.
SAME TABLE FOUR TIMES:
MOV.
MOV.
NOV.
MEN.
BIT
BEO-
MOV,
BR
MOV.
MOV.
MUV.
MCA'.
MOV.
MOV.
INC.
0E2.
BST.
DEC
BNE.
#0,TD$SW.
TLOW,MSTR2.
#64.,R0
#RIDE,BASE
.71d-
-
Z--1!
#BTOVER,R1
3$
#BTRAN5,R1
#T$ICD,TD$CTW.
#T$BTAR,TD$TAW
MSTR2,TD$T0W
#T$BT,TD$TAW.
(R1)+,TD$TDW.
MSTR2.
RO
4$
R2.
1$
BIT, #LOOP,BASE.
EINE - TRIH
JSR PC,KILL.
jMP.
END
.:RESET
;RESET.TD.
;TRANSFER.SAME.TABLE.4 TIMES
;LOAD-START.ADDRESS.
;NUMBER.OF.WORDS.IN?TABLE.
;IS.OVERRIDE.TABLE IHLISE
;NO.
;POINT TO.OVERRIDE TABLE.
;Ri -> BYTETRANS TABLE.
;SET.INTERFACE.AND CONTROL.
;SELECT?BYTE.TRANS MAR.
;SELECT?BYTE.TRANS MEMORY.
;ADVANCE ADDRESS.
;SUB.FROM.OUTER-LOOP.00UNT.
;LOOP .ON TRANSFER.
;YES, REPEAT-
;KILL.AH AST.(IF-THERE-WAS.ONE)
-71 it ?
A"Mit
Approved For Release 2005/07/101A-RDP85-00514R000200020001-3
SYMBOL TW Approved For Release 2005/07/1.IA-RDP85-00514R000200020 ' '?
TDATA. /11110.M1110 27-MAR-80- 15:35 PGE 10-2
ALUCKE=.040A00
ALUOE-AA4AAA
001 -010000
BASE. =.****** GX.
BINWD.=.****** FN.
BITVAL=.000000
BITO ---AAAA01
BITI -MHFIHML.
BIT10 =.uu,ouu
BIT11 -004000
8IT12.-AinA00
BIT13 ---.A2uHmm
BIT14 -040000
BIT15 =-1MMMH1.1
BI12. =? 000004
BIT3 =.0ARA1A
BIT4 =.mHylu2o
BITS =. 000040
BITS =. 000100
BIT? -kimplzmA
BITS. -00040A
BITS =. 001000
BIND=****** 14X.
BTOVER=.****** GX.
BTRANS=.******
BYTEA =.MHHHHA
BYTE' =.[IMMMU1
BYTE10-000012
BYTE11=.000013
BYTE12=.000014
BYTE13.-000015
BYTE14.-000015
BYTE15=.000017
BYTEIG=.0AAA,m
BYTE17=.0mAA,..1
BYTE1A=.000022
BYTE 19=
BYTE2.-HAH0A2
BYTE20.-uum124
BYTE21.-000025
BYTE22=.00002B
BYTE2=.AAAA27
BYTE24-000030
BYTE25=?000071
BYTE2S-1210007.2
BYTE27.-AAAA3A
BYTE2A=.000034
BYTE29=.000075
BYTE3 =.000003
BYTE3A-AA11ABA
BYTE31=.000077
BYTE32-000040
BYTE33=.000041
BYTE34-AAAA42
BYTE35-000047.2.
BYTE3B-AAAA44
BYTE37=.000045
BYTE3B=.000046 BYTES -000011 EN1X 001312R
BYTE:F:9= 000047 BYTEsA= 000172 ERR10 = ****** GX
BYTE4 = muuuu4 BYTES 1= 000132
BYTE4A= 000050 B -
YTE92000174 ERR11 = **..***>iMAC.OMAIH,LP=IM04,0MAIN. FROM.C5,33.
TASK BUILD
I. HOR.STAND-ALONE.PACK.COMMAHD.FILEAID02.CMD.
AIDOR/AL/CP/TA,AIDOR=OMAIN,MRP,MRLD,MRPR,MRREST,MRBUG,
CP,CPLD,CPPR,CPRERT,CPBUG1,CPBUG2,
BCE,BCREST,
PPS,PPLD,PPPR,PPREST,
MRPSUB,CPSUB,PPSUB,C1,50JRSX11M,STB/SS.
PAR=PAR14K.
ASC=TTO:1:2.
.7/
HPIC.SYSTEM COMMAND FILE AIDOR,CMD (USING OVERLAYS)
****:********** NOTE ******.********
TASK BUILD MUST BE DONE ON NP IC /04
MAPPING DOES HOT COME OUT RIRHT WHEN TIB-I DqN770N
EG: ADDRESS OF SYSTEM? ROUTINE SDIV.COMES OUT INCORRECTLY.
************** NOTE **************
AIDOR/AL/CP,OIDOR=AIDOR/MP.
TASK=AIDOR.
PAR=GEH:40000:40000
ASG=TTA:1:2.
OVERLADESCRIPTION.AIDOR:ODL;
--
ROOT. OMAIN-C1,50PSS11M:STB/SS-*(A,B,C,D), , . ?
.FCTR. MRP-MRPSUB-CPSUB-*(MRLD,MRPR,'MR7EWMRBUG)
.FCTR. CP-MRPSUB-CPSUB-PPSUB-(CPBUG1,CPBUG2,CPREST,CPLDfrOPPR)
.FCTR. BCE-BCREST.
.FCTR. PPS-MRPSUB-CPSUB-PPSUB-(PPLD,PPPR,PPREST)
r:
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200021:1001-3
'
DMA IN MACRO.111110 27-MAR-8O 15:17 PAGE.?
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115
115
117 LOCAL.DATA.AREAS,
118
119
128
121
122.
123 .GLOBL.
124
125 000160 G:DPRM. == 000160
125 000001 LUH,TT. == 1 ;READ/WRITE.770
127 nnnnni EFN:1 == 1
128 000002. EFN42. == 2.
129 A1A1A7. 3
130 OUULJU4 EFF1,4 .,.= 4
131 AAA041 EFH:33 == 33.
132 UUUM11.2. CMILUN. =.
133
134 000004 LOOP- == 4
135 008100 ONCE. == 1110
136 000200 ASTFLG == 280
01711AAA HP == 1AAA
138 002800 OUT. 2000
139 004000 BREAK == 4000
140 010000 HEOLB. 10000
141
142
143 .NLIST. BEX.
144 000009 AA3694 066420. MYSELF:: .RAD50 /AMR/.
145 UULIE14 111.1MHMM TSKTCB:: .WARD. A
146 000006 000000 OLDVEC:: .WORD.- 0
147 000010 046572.1 014732. LOADER: .RAD50 /tOADER/.
148 000014 EFBUF:: .BLKW. 4
149 000024 STAT:: .BLKW. 2.
150 800030 000800 ERWORD:: .WORD. 0
151 AAAA-2,7. nannnn BINwpz: .WORD. 0
152 000034 AAAAAA BASE:: .WORD. A
is: mitiM6H MHAAMM APLACE:: .WORD. 0
154 000040 GCMBUF:: .BLKW. 41.
155 000187 RAAAAA GCMLFH:: WORD. A
156 M110164 MHHHHM GCMPHT;: .WORD. A
pp( 0001hfn 111-11-IMMM ASTURDt: .WORD. A
158 000170 000800 RTHPT:: .WORD. 0
159 AAA 172 nnnnnn MSTRT:: .WORD- 0
15A 000174 AOAA0A MSTP.2:: .WORD. A
181 000176 MMMULUI MEND:: .WORD. A
162.000200 UUUUU0 INCVAL:: .WORD. A
166 AmAzA2 MHAAHM RSPCHT:: .WORD. A
164 008704 008008 UPLIM:: .WORD. A
165
ibb ou02.0B WWORDS:
167 A002A 000AA0 DATA1::
168 080210 00AAAA DATA2:: .WORD. A
169 008212 OAAAAA DATA3:: .WORD.
17o 000214 aeioaRia D01A4:: .WORD. A
171
,
,
.MCALL. OIOW$9010$5fiEXIT$9,ABRTS5GCM1 $,GCMLAS,F5R5a$,I7LFF$5.
.NCALL. ASTX$SfiRDAF$SfiWTSESSfiSETF$SROST$S
;EVEHT-FLAG.FOR TTA
.:EVEHT.FLAG FOR HOR.IHTERRUPTS
EVENT FLAG FOR UHSOLICITED.TERMINAL.INTERRUPTS.
EVENT FLAG FOR COMMUNICATION.WITH.HOR.LOADER.
LOOP.ON.COMMAHD.
;PRINT.ONE WORD .ONLY
;0I0.+ AST ISSUED.
;REPEAT.PROMPT.
.:COHTROL.PRINTIHG.OF MEMORY.CONTENTS.
;BREAKPOIHT.SET.
;HO.CILB.ERASE.
.:TCB.OF.MY TASK.
.:OLD.VECTOR.AT.274
;EVEHT.FLG-BUFFER.
.:IHDD.,.:-VALUE.FOR.ERROR.MESSAGE TABLE.
;TARGET.FOR.HUMERIC.COHVERSIOHS.FROM-SCII-
ALL.PURPOSE.FLAG.
.:PRELIM.BIT.SETTIHGS FOR-CSR 1
;COMMAHD.LIHE.BUFFER
;COMMAHD.LINE.LENGTH
;COMMAND.LIHF-POIHTER.
.:RECEIVER.FOR.AST.CHAR.
;RTH.ADDR.SAVE.AREA.
;START.ADDR.FOR.MEMORLOADIHG/PRINFITIHG_
7.6.1ORKIHG.ADDR.FOR-LOAD/PRIHT.74 '
.:EHD.ADDR.FOR.MEMORY LOOFTFTG/PRIN.FTING.
.:MEMOFY.IHCREMEHT.VALUE.
COMMAHD.LIHE) RERPONSE.COUHT
MEMORY.UPPER.LIMIT.
.:LOAD/PRIHT.VALUES.
? Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
DMA IN ?Mu 1i3 27-MAR-80 15:17 PAGE?
Approved For Release 2005/07/101A-RDP85-00514R000200020001-3
808215
AAA22A
00022L_
AAAP24
AAAP2F.7.
0110230
000232
AAA27,4
182 80025
197. 808240
184 000247
185 AAA244
1815 AAA24E,
187 AAA2FIR
188 000252
199 OAA2ti4
190 000255
191 AAA2F,A
192 080252
1.93 00024
194 000255
19ti AAR27A
196 000272
197 FR,i171774
198
199
200
201 000275
202.
203 0003
21714
71715
206
20?
7A8
21719
210 800475
211
HHHUMM
007777
AAAAAA
A77777
071,7,AAA
007777
AAAAAA
AA2AAA
AAAAAA
000177
RAAAAA
8000 14
AnAnAA
00A37T
AAAAAA
A00377
AAAAAA
0A7777
0RAAAA
000356'
000 001
F1011377'
ReA7-.177 RIP. 0172,
OAA475"
050
051
MEMORY-LIMITS.TABLE.
MMHIGH:: .WORD.
MMLOW:: .WORD.
MDHIGH:: -WORD.
MDLOW:: .WORD.
CSHIGH:: .WORD.
CSLOW:: .WORD.
CDHIGH:: .WORD.
CDLOW:: .WORD.
OXHIGH:: .WORD.
OXLOWL.: .WORD-
FAHIGH: .WORD.
FALOW:: .WORD.
LHHIGH:: .WORD.
LHLOW:: .WORD.
HLHIGH:: .WORD.
HLLOW:: .WORD.
BLHIGH:: .WORD.
BLLOW:: .WORD.
SOHIGHt: .WARD.
SOLOW:: .WORD.
SRH IGH:: .WORD.
SRLOW:: .WORD.
ADH ICH _WORD.
SDLOW:: .WORD-
TPTEL::
002-
A14
255.
0
4095.
A
117123,
LI
4095.
A
A77777
075080
4095.
A
IA24.
A
127:
A
12:
A
255,
A
255.
A
4095.
A
WRP.MICROPGM.MFMORY
WR.P.DATA.MEMOR
.:CP.CONTROL.STORE.
.:C.F.DATA.MEMORY.
:=X7FFF'7 OEX.MEMORIES
FAL MEMORIES
.:LHP.MEMORIES.(ACTILF's- -401.
.:.HRL.BUFFER.IH.CC.MEMORY.'
;BCL.IH.CC MEMORY
SF REFERENCE. OLB.MEMORIES-
:SP-SIDREAD.MEMORY.
;SP.SIDMEM MEMORY.
TABLE.USED.IN CONVERSION FROM ASCII HEX TO BINARY.
=.
.BYTE.
=.
.BYTE.
?
?58
TRTBL+101
10-11-12, 13.,14.,15.
TRTBL4-177
TBALE.USED.IN.CONVERSIOH.FROM BINARY TO ASCII HEX.
052. TRTBL2g: .ASCII./01234567R9ABCDEF/.
.EVEN.
LEGAL .ADDRESS) '?
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3.
T
OMAIN? MACRO.M1110 27-MAR-80 15:A17 PAGES
pproved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
213
214
215 FIRST.LEVEL.CONTROLTABLE.
216 PROCESSOP.MNEMONICS.AND.ASSOCIATED.OMAIN.SUB-MODULE.
217 ADDRESSES.
,11-1
219
220 onn51F; PTBL:
221 000516 115 122 . ASCI I ? /MR/ ;MATCH?REROPT.PROCESSOR?
222 ? 000520UL-1.1.1LIMMb ? .WORD? MRP?
-7,,?_,7. -.2
-_ 000522? 103 120 HL II /CP/ ;CONTROL?PROCESSOR?
224 000524 uumuu0u? .1,10RD? CF?
225 000526 102 ? 103? .ASCII? /BC/
226 000530 000000G? .WORD? BCE? ;BUP?CONTROLELEMENT
227 000532 120 .ASCII? ;PIPELINE?PROCESSORS
228 000534 000000G? ?
27'71 000536 123 12A
120. .ASCII?
.WORD PPS?
230 000540 000000G? .WORD? SFS.
231 000542 105 130 .ASCII ? /EX/
000544 RR2370' WORD- EXIT
, 000006FNUM. '
-? .-FTBL>/4
234
235 -
5 , PRINT?LINE?
237
27.9 000545 015 012
238 000550 PRINT::
240 000115 .REPT ? 78.
241 .BYTE 40
242? .EHDR?
243
244'
245 TAKE?OF?HESSAGES?
246
247
248 MHIJI,15F, ORO .BYTE 0
24g 000557 015 012 015 .BYTE ? 15?12,15,12?
250 000573 105 130 111 .ASCII? /EXIT?HOR?DEBUGGING?AIDS/?
251 000722 015 012- 000 .BYTE? 15,12,0
,,J,..1 000725 015 012.? .BYTE 15,12?
253 000727 124 ill? 115 .ASCIZ? /TIME?OUT?ON FREE?RUN/? ,
254 R00754 015 012 - .0i IL 15,12?
255 000755 105 116-- 104 .ASCI. /END OF FILE REACHED/
256 001002 015 012- .8YTE? 15,12?
257 001004
1::i /
Ai2 '
116 104 ASC 12 /END OF MEMORY REACHED
250 001032-I
.BYTE? 15,12?
259 0010724 1515 115, : 124 ,A5rI2? /ENTER?ANCHAPACTER TO EXIT LOOP/
250 001075 015 012.
251 001102 110 101 015 .BYTE? 15,12A15,12,15,12?
122? .ASCII? /HARDWARE?OUERY.RESOLVER MANUAL?DEBUGGING AIDS/?
262?001 i 60 015 or 000 .BYTE? 15,12,0
2(-72, 001163 015 012 .BYTE ? 15,12-
264 001165 111 116 126 .ASC 12 /INVALID COMMAND/.
2e5 001205 015 012 .BYTE ? 15,12?
266 001707 111 ,116? 126 .ASCIZ? /INVALID LOT *07F' ?
257 001233 015 012 .BYTE? 15,12? .i.1.:: '
750 001235 111 116 126 .ASCIZ? /INVALID UPPER mEmoRy?tAmi.T5-
261.-,9 001271 015 012 .BYTE- 15,12? . A
II Approved For Release 2005/07/11111A-RDP85-00514R000200020001'-3
;SUBDOCUMENT.PROCESSOR.
;EXIT.
,? ' vIA A,
??
101
.BYTE 15.12 ;PPEC Ei";c7.R.F*104+T ? kerfrr71 CRLF ?
40111mm :
O I Ni ? 100 111110 27-MAR-80 15: 17 PAGE ? 8-1_
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3-.
t,
MR
270 881273
271 0017-
272.001331
273 801373
274 131317.75
275 001425
276 001427
277 881451
278 081463
279 001511
20.8 001513
281 001533
282.001535
293 081555
284 001557
205 001606
286 001610
287 001665
289
298
291
292.
2,747,
294
295
296 001666
257 ?1112174
111
116;
125
.A5CIZ.
015
012.
.BYTE.
111
116
103
HL 12
015
012
.BYTE.
111
116.
;
125
.ASC 12
815
812
:
.BYTE.
111
116
'
125
.ACIE..
015
012
;BYTE.
111
116
'
126
.ASCIZ.
015
812
:BYTE.
115
111-
123
.ASCI2-
015
812
.BYTE.
115
111
123
.ASCIZ.
015
012
:BYTE.
116
11?
116
.ASCI:.
015
012
.BYTE.
120
122
117
.ASCI2-
-1;77
ASCI:::
.BYTE.
.LIST.
.NLIST.
?INVALID .LOWER MEMORY.LIMITS?.
15,12.
?INCORRECT.COMMAND.CHARACTER.TCOUNT?:
15,12.
?INVALID.MEMORY.MHEMOHIC?.
15,12.
?INVALID REGISTER.MHEMOHIC
15,12.
?INVALID.NUMERIC.VALUE?.
15,12.
sMISSING.OPERAND?.
15,12.
?MiSSING.COMMAND?.
15,12.
sHON-EXISTEHT.PROCESSOR?
15,12.
?PROCESSOR.MHEMONIC MUST PRECEED NEXT.COMMAND?.
377
BEX?
CND.
COMMAND.LIHE MACRO.
GOMBLK:: GOMLB$ 2,,GOMBUFfiCMILUN
PERKS 1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3,1.
OMAIN. MACRO.M1110 27-MAR-80 .15:17 PAGE.9
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
299
3An
3A1
.3A2.
3A3
7,04
002174
705
002174
306
ii El
016757
OuutiuuG.175576
30?
105511 El
6513767
000274 175572.
308
002214
01273?
003330" 000274
309
310
311
312.
002222.
012746
177777 ?
313
005550
012746
0000 10
314
002232.
P;15
002235
012746
AnnAlA
316
002242.
17'745
176000
317
AA2245
31.8
AR2'7,52.
01:2746
000040- ?
319
An22ti6
32A
005505.
012745
LIMMIIMM
321
01712256-
323
324
327
330
331
332-
334
339
002272
739F.,
002272
012767
020040:? 177950
337
nA23AA
338
002304
999
002910
109009
340
002312.
341
002316
nOn759
342
00220
022700
000002
343
005.354
001403
344
005550
345
002.332.
Ann757
346
347
348
349
390
351
352
354
395
002334
012700
AnnAAF
?
START:
RESEL:
1$:
ENTER. HERE
CALL.
MOV.
MOV.
NAV.
OUT1
$TKTCB,TSKTCB.
041-274,OLDVEC.
#BPTISR,0#274
START-OFF.WITN.MASTER.RESET,
NOV.
MOV.
CALL.
MOV-
MO
CALL.
MCW?
CALL.
MOV?
CALL.
#177777,-(SP)
4lO$RSET,-(SP)
CSR1
41A$RSET,-(SP)
#,-(SP)
CSR1
*A$CLR,-(9P)
PP CR
#S$CLR,-(SP)
SPCR
; ISSUE. INFORMATION. MESSAGE...
;SAVE.MY-TCB.
;SAVEVECTOR.AT.274
;MOVE-IN.NY.INTERRUPT.NANDLER ADDR.
NO-CLOCKS.U.I.CSR.#1
;CLEAR.CSR1
;SET RESET
;RESET .NOR
;CLEAR .RESET.
;SET NO.CLKS
;MOVE.TO.CSR1
;REIHNIBIT FAL PROCEESOR.
; CLEAR ? SP. ADDRESS SELECT
PUT OUT.INITIAL PROMPT. LOCATE 2-CHAR PROCESSOR/COMMAND MNEADNIC,
EG. IF-THE.COMMAND LINE READS:
>MR LD MD 0
LOCATE THE 'MR,
MR
CP ?
BC -
PP
SP
EX
MOV.
CALL.
CALL.
Bcc.
CALL.
BR
CMP.
EEO.
CALL.
BR
MATCH REPORT PROCESSOR
CONTROL PROCESSOR.
BUS CONTROL ELEMENT.
PIPELINED PROCESSORS
SUBDOCUMEHT PROCESSAR.
EXIT DEBUGGING AIDS (COMMAND)
#20040,GCMBLK+G:DPRM+2
GCOHLY
FIND
1$
ERR2
RESEL.
#2,RO
COMXX.
ERRE;
RESEL
;CLEAR.PROCESSOR.HAME.
;ISSUE.GCML.
;FIND.THE.PROCESSOR.MHEMOHIC.
;OK, CANTU-WE.
;NOTHING.IN.COMMAND.LINE.
;COMMANDS.ARE.2.CNORS.
;INCORRECT CHAR .COUNT.
;TRY-AGAIN
-
TOP OF.PROCESSAR-LAOP
MATCH PROCESSOR. NAME? AGAINST.TABLE OF NAMES 1- CONTROL ROUTINE
ADDRESSES.
R1 -
PROCESSOR.MHEMONIC-IN.THE.COMMAND.LINE.
comxxc; mov #FNum.PA
Approved For Release 2005/07/1
--mrrecTrPTTYM
;RO --HUMBER.OF-PROCESSORS.
IA-RDP85-00514R000200020001-3
?
fet
QMAIN. 11110.M1110 27-MAR-80 '15:17 PAGE.9-1
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
356
002340
n12782-
8885 i5
357
002344
72, 5R
1202350
107,005
7259
A02353.
350
002355
361
002352.
000743
352
757.
364
355
;
7,55
357
358
359
378
00274
3$:
371
7,77.

3(3
374
..f. 1 ._.
.
375
887770
EXIT
377
002370
016737
175412
000274
378
002376
7.73
?102402.
MOV. *FTBL,R2.
CAL !I-ZAN
Bi
::C

3$
CALL. ERR2
CALL ERR1
BR RESEL.
TRANSFER.CONTROLTO.ONE.OF.THE.OMAIN.SUB-MODULES?
FOR.FURTHER.COMMAND.LIME.PARSIHG
R1 -> SUB-MODULE.(CONTROL.ROUTINE) ADDRESS
JMP. 0(R.1)
;R2.-> TABLE-OF.PROCESSOR,MHEMONICS.
;FIND.MATCH.IN-TOBLE
;OK, CONTINUE-
;COMMAND.NOT.IWTABLE.
;WHAT.TO-Dn.NEXT.
;TRr' AGAIN
EXIT .PROGRAM
MOV. OLDVEC,@*274
CALL- EHDPRT.
EXIT$S.
;RESTORE.ORIGINAL VECTOR CONTENTS
;PUT.OUT-END.OF.RUH.MESSAGE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 ?
OMPIN. MACRO.M1110 27-MAR-80
381
382-
3R3
15:17 PAGE.10
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
ROUTINE.TO.PLACE.A.VALUE.INTO.CONTROL/STATUS.
384
REGISTER .1 (176420).
385
366
READ.THE.CURRENT-VALUE OF.CSR1, CLEAR THE.BITS-
387
-200
AT 4(SP) IN.A.CSR1 WORK.AREA., SET.THE BITS AT
IN THE.SAME.WORK.AREA: RE-WRITE.CSR1.
389
390
IHPUT:
391
21SP) - BITS.TO.BE.SET.IN.CSR1
39.).
4k6P) - BITS.TO.BE.CLEARED.IN.CFR1
393
394
385 002410
CSR 1::
396 002410
016767
176420
175420
MOV. ORSCR1,APLACE. ;GET THE- CURRENT VALUE-
7,97 002415
045667
080004
175412.
4(SP),APLACE. ;CLEAR.FIRST.
72.9A 002424
056667
HMHMM
175404
BIS. 2(SP),APLACE. ;THEN .SET.
399 AR 2432
016767
175400
176420
MCW. APL4CEOR$CR1 ;NOURETURN.IT.
400 002440
011555
080004
MOV. (SP),4(FP) ;MOVE.RETURN HOOP TO TOP OF.STACW.
401 002444
022626
CMP. (SP)+,(FP)+ ;PUMP.STACK.POINTER.PAST.ARGS
402-002446
RETHRH. ;LEAVE.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
QMAIN- 27-MAR-80 15:17 PAGE.11
Approved For Release 2005/07/141A-RDP85-00514R000200020001-3
404
405
406
407
408
4119
410
411
412.
413
414
415
415 002450
417 0A245A
418
419
42n
421 002462.
422-
423
424
425 002524
425 002536
CALL.HARDWARE.OUERRESOLVER.LOADER.
************** NOTE-**************
WHEN.ON.THE.NPIC.SYSTEM?DO.NOT.USE.CL-IF.CCIN.AND.CCOUT.
ARE.RUHNING.
************** NOTE.**************
CL;:
;.
CLEAR GLOBAL EVENT FLAG
CLEF$S- *EFN.33
REOUEST.LOADER.
ROSTSS. *LOADER.
WAIT.FOR.'LOADER TO.SET.EVENT.FLAG.
WTSET.S. *EFN.33
RETURN.
Approved For Release 2005/07/12 : CIA-RDP85-0
r .04 ?
OMAIN. tncRosmIllo 27-MAR-80.15:17 PAGE.12.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
422.
429
430
431
432.
433
434
41'5
436
437
438
439
440
441
442.
443
444
445
445
447
448
449
450
451
452.
453
454
455
456
457
450
459
450
461
442.
453
454
455
455
457
450
459
470
471
472
473
474
475
476
477
478
479
455
401
402.
403
484
SET.UP.BEFORE.PROMPTING.ON-ANY.'LD'? COMMAND.OR.BEFORE.
EXECUTING.ANY.'"PR COMMAND,
CALLED.BROUTIHES.IN.MMLD, MMPR, CPLD, CPPR,
PPPR: THE.FIELDS.SET.UP.HERE.ARE USED....IA.THE..-OMfl+WI--- ?
PROMPTING.SUBROUTINE.PDATA.AND.THE.PRINT.ROUTIME-PRDATA:
IHPUT:
2(SP)
4.(SP)
5(SP)
OUTPUT:
IH:VAL.
MEND.
RSPCHT.
LOAD/PRINT.START.ADDRESS
LOWER.MEMORY.LIMIT.
UPPER.MEMORY.LIMIT.
1
- VALUE.BY.WHICH.MEMORY.ADDRESS.IHOREMENTS..
- ADDRE5S.OF.LAST.WORD.IH.MEMORY.T0,.,BE.LOADED/PR4NTED...-
- HUMBER.OF.WORDS.TO.EXPECT.IN-COMMAHD.LIHE.(MEMORY.WIDTH)
C-BIT.GLEAR. NO.ERROR.(START.ADDRESS.IS IN RANGE:
C-BIT.SET- ERROR.IH.RAHGE.
MEMORY.
MM
MD
CP
CD
HL
BL
OW
OL
FP
FC
OR
OP
01
02
OX
OB
SR
Si
S2
082548 012767 000004: 175434 BUFS4:: MOV.
002546 012767 000001.: 175424 MOV.
002554 000433 BR
002556 012767 000003;. .175415 8UFS3:: MOV.
002554 012757 uuuuui ? '175405 MOV.
002572 000424 BR
002574 012767 AO8832 1754AA BUFS2:: MOV.
00261712 012767 AAAAA1 17577A MOV?
0A2610 000415 BR
002512. 012757 000001 175352- BUFSETz: MOV-
AR2F,20 012757 APAPIA1 175352. MOV.
002526 1113114115 BR
002650 012757 000001?
4110
INC VAL
1
1
1
1
2.
2.
-1
1
1
1
1
1
1
1
1
1
1
1
*4,RSPCHT.
*1,IHCVAL.
SET.
#3,RSPCHT.
*1,IHCVAL.
SET.
*2,RPPCHT.
*1,INCVAL.
SET.
*1,RSPCHT.
*1,INCVAL.
SET.
175344 BUFSMr: MOV. *1,RSPfl- ? dLT8 IET.1 WORD-
Approved For Release 2005/07/1 1A-RDP85-00514rw0on0o2m01-3
RSPCNIT?
1
4
1
1
1
1
1
1
1
1
1
1
3
3
'
?
;HUMBER .OF WORDS.TO.PROMPT.
BUFFERP.IHC.BY.1
;HUMBER .OF WORDS-TO.PROMPT.
;IBUFFERS.INC.BY-1
;PROMPT.2.WORDS.
;BUFFERS. INC ? BY 1 -
4111"11051- irlr Y ' '
?
OMAIN.
110 27-MAR-80. 15:17 PAGE 12-1 ?
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
4P5 00263F,
01276(
000002
175334
MOV.
#2,INCVAL.
486
487 00267.44
022767
1(((((
1(b324.
SET:
CMP.
0-1,MEND.
4ee 002652.
001003
SHE.
10$
409 oci2F.Fi4
0117
000004
,1797.14
NOV.
4(58),MEND,
490 002652
026766
1757,;04;-
000007.
10$:
CMP.
MSTRT,2(SP)
491 0012701
107.0072,
1$
492.002672.
CALL
ERRS
4A:R AA2f.7.71,
000424
BR
BUFCX2
494 002700
0257E5
175272,
885151514
1$:
CMP.
MEND.. 4(5.p)
.4(.;F, 002706
101403
BLOB.
496 002710
CALL.
ERR 10
4A7 002714
000415
BR
SUFCX2
498 002715
026767
175250
175252.
251:
CMP.
MSTRT,MEND.
499 002724
101403
BLOB.
3$
500 002726
CALL.
ERR 10
501 0027:;2.
000405
BR
BUFCX2.
51712.
:SR?, 0512734
011655
000004
MO V ?
(SP),4(SP)
5514 E1027413
062705
000004',
ADD
41,4,5P-
51715 51512744
1710171241
CLC
5515 002745
0510405
BR
SUFXX2.
5517 0512750
011666
UHM0514
BUFCX2c
MOV
(SP)..4(sP)
500 002754
062706
oeoae4
ADD
51719 802760
000251
SEC
510 002753.
9UFXX2
RETURN.
INF
ISUFFERSINL Mi
f.flUftr END ADDO SET UP
;YES
;SET END ADDR = MEMORY UPPER-LIMIT-
;IS LOAD ADDRESS IN RANGE (LOU)
;OK, CONTINUE
;OUT OF RANGE
;IS.ADDR.IN.RANGEHIGH.Y.--7*Tr-
CONTLNUE. _ ' ?
;IS.STARMADDR.LOWER THAN END ADDR.
111...:LEJIOF.RANGE.
;MOVERETURN.ADDRESS
;ADJUST-SP (FOR?MEMLIMITS)
;RETURN.
;MOVE.RETURN.ADDRESS
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
.47
I
r?t
QMA IN ? MACRO. 11 11e 27-MAR-80 15:17', RAGE. 13
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
512.
;
513
514
515
515
517
518
51R
520
521
527.
524
;
525
526
527
;
528
529
530
;
561
572.
533
534
535
537
=70
539 002764
PDATA::
540 002754
025757
175204
175204
541 002772.
101403
542.A02774
543 AA7MAA
AP11.714F.0
544
545 00300.2.
016701
175166.
10$:
546 003006
012705
000550'
547 0613012
548 003016
549
5561 003022.
012757
020040
177015
551 003030
012767
020040
177012.
552003035
553 A17171A42:
112757
0061015
175776
554 0613IV-150
112757
000012?
176771
555 A:717.05E.
55F. 0031962.
103424
557
5561 003064
012705
mmm2Ut.'
553 007.070
015704
175106
560 003074
2$:
561 003100
103003
552.003102.
51;7, AA31A5
1119194 lb
564 An3110
016725
174716 -
3$:
555 A03114
19195.3194
566 003116
001414
567 00312A
568 003124
1193363
Approved
PROMPTING.CONTROL.FOR.LOADING-ALL.MEMORIES AND BUFFERS
READ.NUMERIC DATA FROM THE.COMMAND.LINE,.CONVERT.AND STORE.
INTO.A.COMMON.BUFFER: EG: IF-THE INITIATING.COMMAND.IS;
CP.).LD.CS.0
THIS ROUTINE WILL.PUT.OUT.A.PROMPT.AND.EXPECT.4 NUMERIC.
VALUES.IN.RETURN;
>AAAO 0A00 0000 0000
THIS .ROUTINE CONVERTS.THESE.ASCII.HEVALUES.INTO.BINARY.
AND.STORES.THEM.INTO.DATA1, DATA2, DATA3, DATA4
INPUT: (SET.UP.BY.OMAIN-SUBROUTINE.BUFSET)'
MSTR2. - CURRENT.MEMORY.ADDRESS
MEND.. - MEMORUPPER ADDRESS. LIMIT
RSPCHT. - NUMBER.OF.WORDS.TO.EXPECT.IN COMMAND .LINE.
OUTPUT;
WORDS.(DATA1, DATA2, DATA3, DATA4) DEPENDING.UPON.RSPCNT.
r-BIT.P.LEAR, V-BIT.CLEAR.
C-BIT.CLEAR, V-BIT.SET
C-BIT.SET, V-BIT-CLEAR
REGISTERS -1, 4, 5 DESTROYED
CMP.
BLOS.
CALL.
BR
MOV.
MOV
CALL
CALL.
MOV.
MOV.
CALL.
MOVB.
MOVB.
CALL.
BCS.
MOV.
MOV.
CALL.
BCC.
CALL.
BR
MOV.
DEC.
reEo.
CALL.
BCC.
MSTR2,MEND
10$
ENDMEM.
PD CX
MSTR2,R1
*PRINT R5
UNPK
CONSOL.
#20040,GEMBLK+G,DPRM.
*20040,GCMBLK+G,DPRMA-2.
GCONL'r'.
*15,GCMBLK+G,DPRM.
*12,13CMBLK-443,DPRM+1
FIND
PD VX
*WWORDS,RS
RSPCNTfiR4
PACK
3$
ERR4
PDCX
BINWD,(R5)+
R4
PDCCX.
FIND
NORMAL RETURN
RESPONSE TO PROMPT '
END OF MEMORY OR CONVERSION ERROR.
;UPPER.MEMORY.LIMIT.REACHED
;NO, CONTINUE.
;END.OF.MEMORY.RENaHEa.-.
.:SET. CARRY AND EXIT
;PREPARE.TO.PRINT.ADDRESS.
;POINT.TO.PRIHT.LINE
;CONVERT .ADDRESS.
;PRINT.OUT ADDRESS.
;ERASE.CR.AND.LF-
;ERASE.PROCESSOR.MNEMONIC
;PROMPT.
;RESTORE.CR.
RESTORE LF
;LOCATE.FIRST.DAT40JORD.COMMAND.LINE.
; RESKWIZE, Z-XI7 J,
,
ORDS
_
A.
FRWtC0FFAHD-LINE.GO.INTO-THIS.TABLE.
NUMBER OF WORDS.TO.EXPECT.
;CANVERT-WORD.TO.BINARY-
CONTINUE.
INVALID-NUMERIC.VALUE":
;AND.EXIT.
;MOVE.WORD TO TABLE
;SUB t
-TrifTrat,ETy0 ? .?. .
F IND NEXT WORD . 7 ? ;,:(,? ?
,
-
,
, C ?--
?
'
$
2$ ;OK, CONTINUE.
ForRelease2005/07/14,1A-RDP85-00514R000200020001-3
?
it",11.971,r,
QMAIN. 11110.M1110 27-MAR-80 15:17 PAGE .13-1
Approved For Release .2005/07/101A-RDP85-00514R000200020001-3
559 003125
570 003132.
571
000403
CALL.
BR
ERRZ.
PDCX
572-003134
080241
PDVX
CLO
573 003135
000252.
SEV
574 00314A
110171405
BR
575 003142.
01710242.
PDCX:
CLV
57F. 003144
11An2f=1
SEC
577 003146
000402.
BR
PDDX
578 00315171
000241
579 00315.2,
000242.
CL'.,.'
51=10 003154
PDDX:
RETURN.
11
? ? .
'MISSING OPERAND
; INDICATE ? RESPONSE ?
0?.W.
7
; END OF MEMORY OR CONVERSION.ERROR:
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
-
'T411,af
,
QMAIN. MACRO.M1110, 27-MAR-:80 15:17 PAGE.I4
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
5R2-
584 COMMON PRINT ROUTINE.
565 THIS.ROUTIHE CONVERTS.VALUES.IN.THE.FIELD.'WWORDS TO.
506 ASCII.HEX.(DEPENDING.OH.RSPCHT) AND TMHEM.(TTO)
J 0
568
589
590
591
tic'? ?
593
594
595
;
595
?
597
,
598 007156
PRDATA:;
599 007155
032767
002000
174650
500 007154
001407
501 003165
032757
000100
174540
502.007174
001025
507 003175
052757
000100.
174530
504
;
505 003204
015701
174764-
10$:
506 007210
507 007214
012705
000550 ',.
I:10R
;
509 003220
0127U4
UULI2Ub' '
51.0 007224
016703
174752.
611 007230
052705
000002
1$:
512.007274
012401
513 003235
614 007242
005707
615 003244
001371
516 003245
617
618 007252.
PRDX:
INPUT:
#OUT.FLAG.
ONCE FLAG
RSPCHT.
Mgh.
- WHEN LOOP.OPTIOWIS.IN.EFFECT, PRINT .1 WORD -ONLY.
- CONTROL-PRINTING-OF-1 WORD.WHE.H.#OUT-IS-SET.
- NUMBER.OF.WORDS.TO.PRINT (SEE.?BUFSET, RTH)
- MEMORY .ADDRESS (SEE-'8UFSEM
- MEMORY.WORDS.(DATA1, DATA2, DATA3, DATA4)
REGISTERS .1, 7, 4, 5 DESTROYED.
BIT- #OUT,BASE. ;OUTPUT.COHTROL.AN.
BEQ. 10$ ;NO, SKIP.OUTPUT.CONTRO ?
L...-..-
BIT. *ONCE,BASE.
ME. PRDX ;OHE.LINE.PRINTED. --.
;YES, EXIT
BI3. 4ONCE,BASE.
MSTR2,R1 ;FIRST CONVERT ADDRESS TO.ASCI.I
H -
E
UNPK. ;POIHT.TO.PRIHT.LINE
#RRINT,R5
;PERFORM.CONVERSION.
MOV. #WWORDS,R4 ;POIHT.TO.WORDS.FOR.PRINTING.
HUY. RSPCHT,R3
#2,R5 ;NUMBER .OF MEM-WORDS TO.PRINT.
ADD. ;ADVANCE-PRINT-LINE-POINTER.
(R4)+,R1 ;LOAD.ONE.WORD.
(.:1:ZL UNPK ;CONVERT.IT.TO.ASCII
.DEC. R3 ;DEC.WARD-COUHT.
ME, 1$ ;REPEAT.
CALL- COHSOL. ;PRINT.LIHE-
RETURN.
Approved For Release 2005/07/10CIA-RDP85-00514R000200020001-3
[MAIN. 11100.M1110 27-MAR-80 15:17 PAGE.15
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
620
(-721
522.
623
624
52:71
626
627
F.28
529
530
631
532
007254
GCONLY::
67.3
003254
012700
000048."'
534
0072,267471
012701
000051
535
003264
005020
1$:
636
003256
005301
637
0072,270
001379
538
639
003272.
540
003305
01606?
@00 145
174646
641
AA72.714
012767
0000401'
174642.
642
0037;22
012701
080840'
647.
003325
GET.COMMAND.LINE.FROM.TERMINAL.
OUTPUT:
GCMBUF. - WORK.AREA.TO HOLD COMMAND LI NE
GCMLEN. - LENGTH.OF.LINE.READ.
GCMPNT. - POINTER.TO.COMMAND.LINE.(SET.TO.POINT.TowEGINNING)
SEE 2FIND.! SUBROUTINE.FOR.THE.USE.AND.UPLOIAKiTHEGE.PIELDG.
MOV.
l
tl?
e
DEC.
ONE.
GCML$
MOV.
MOV.
MCN.
RETURN
*GCMOUF,R0
*41.,R1
(RO)+
R1
1$
*GCMBLK.
G;CMLD(R0),GCMLEN.
*GrMOUF,GCMPHT
*GCMBUF,R1
;POINT.._14i7Eop1MW.LINE BUFFER
;NUMBER OF WORaS.IN BUFFER
;CLEAR COMMAND LINE
;FINISHED?
;NO
SAVE LENGTH
;INIT.COMMAHD.LINE.POINTER.
POINT P1 TO COMMAND LINE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020091-3
OMAIN.
645
545
547
648
549
p7,5A
551
552
557
554
555
557
F,5P,
559
650
661
552.
553
554
MACRO.M1110 27-MAR-80
03733171
AA72,77,A
00E344 015705 174434
AP7,75A 012700 000007,;
0171:7.354
FI0711;At ASOAll
003352.
003355
0074402- 00171002.
, 01,
15:17 PAGE 15
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
INTERRUPT SERVICE ROUTINE
TRAP INTERRUPTS FROM HORz44-TROUH'IVECTOR. ADbRESS . 274 -
SET EVENT FLAG 3
MICROCODE (MRP AND CP) DEBUGGING ROUTINES WILL READ CSR #2
DECODE THE INTERRUPT
?
BPTISR:
SAVE. R3,R1,R2,R3,R4,R5
? MOV- TSKTC9R5
MOV. #EFN.3,R0 ;EVENT.FLAG.TO.BE:SET.
CALL. $CEFI.
BIS. R0,(R1) ;SET.LOCAL FLAG.
CALL. $DRDSE. ;DECLARE.SIGNIFICANT EVENT-
RESTOR R0,R1,R2,R3,R4,R5
RTI.
kc194117f31111T."11,f
Approved For Release 2005/07/111FIA-RDP85-00514R000200020001-3
AND
-
:74
?MAIN. 11110.M1110 27-MAR-80 15:17 PAGE.17?
Approved For Release 2005/07/11/iA-RDID85-00514R000200020001,VT.
666
667
668
669
578
671 003404
672.003404
673 00341171
574 1-10412.
575 003416
676 003420
577 003424
678
103437
122711
001403
00041.
000114-:,
LOOPP::
;
DETECT ? LOOP IND I CATOR IN COMMAND LINE ? _ .
CALL. FIND ;LOCATE RESPONSE
BCB. LOOPX. ;NOTHING.THERE, EXIT
OMPB. *q_.(R1 ;LOOP -INDICATOR.
BEG. ,)
HANG ;OK, CONTINUE. :
CALL. ERR11 ;WRONO-CHARACTER
BR LOOPX-
679
:
GIVE.DIRECTIONS-FOR.EXITING.LOOP
680
581
;
:
ISSUE.0.10.(ATTACH) FOR UNSOLICITED?CHARACTER.INTERRUPT.
;?
6R2.00426
1,,,R3 087.434
684 003442.
585
0527F,7
1-1527F,7
000200?
00011114
.174400
174372
HANG::
BIS. #ASTFLG,BABE. .:SET.FLAG.FOR.OIO.ISSUED.
BIS. *LOOP ,BASE. :SET.FLAG.FOR.LOOP. 7
CALL. STOP ;GIVE.DIRECTIONS-FOR STOPPING-?TEST.
. .
See; 003.446
687
?
OIO$B. *I0,ATA,*LUN,TT,,,.?
688 003510
LOOPX:
689 0072.510
RETURN,
690
;
691
:
692.
HANG.OIO.FOR
F.972,
''.
INTERRUPT FROM.TERMIHAL.(BREAKPOINT.RTHS)
RI:14
595 0072512.
HANG2::
696 003512-
052767
000200
-174314
BIS. *ASTFLG,BASE. , ;SET.FLAG.FOR.OIO.I8SUED.
697 0072.B2171
OIOSS. *I0.ATA,*LUHTT,..?,
698 087552.
RETURN-
699
700
701
; .
KI?L.AST.(BY DETACH)
702.
70:
704?
;
?
.
;
???? VW. I)
DETACH.IS.ISSUED.BECAUSE.THE.LOOP.OIO.ATTACH.AND.THE -0.2. ?
7
BREAKPOINT.GIO.ATTACH.EACH-HAS.ITS.OWN.AST.
705
706 003554
KILL::
707 .17107I554
04.27F,7
000004-
174242.
BIC- *LOOF,BASE. ;CLEAR.LOOP.FLAG.
71710 003572.
032767
u0m2m0.
174234
BIT'. *ASTFLG,BASE. ;HAS BEEN ISSUED?
709 0072.15A171
001427.
EEO. 15 :HO, DO.NOT.DETACH.
710 AA7,1,-,A2.
042757
AR1200
174224
BIC. *ASTFI G,BABE. [LEAP 010 F] An.
711 003610
GIOU$S. 0I0,DET,*LUN,TT.?
712 003650
1$:
RETURN.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
WAIN. MACR0.111_10 27-MOR-80
714
715
716
717 007.652.
15:17 PAGE 18
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
AST.FOR.LOOP OH TEST
AST:
.!
718 0072,652.
012667
174310
MOV. (SP)+,ASTWRD.
:GET.CHAR.OFF-STACK.
719 003656
042767
000004.
174150
*LOOP,BASE.
;CLEAR,LOOP.FLAG.
720 003664
ASTX$S.
721
?.?
722
AST.FOR.BREAKPOINT.0i0
723
724 81713672.
AST2:
725 003F.72.
0126F.7
174270.
NOV LSP4+.ASTURD
726 81713675
SETF$S 4EFN.4
:SET EVENT FLAG? FRO TERMINAL
INTERRUPT-
727
72R.0A371n
ASTX$S
14
?.1
t
-"6".'47441011.riMitrilTrItliirnevur"frirlkr";'
^:4 ? -
? Approved For Release 2005/07/1201A-RDP85-00514R000200020001-3
I 'Vs
'
()MAIN. 11100.M1110 27-MAR-80 15:17 PAGE.19
Approved For Release 2005/07/1.IA-RDP05-00514R000200020001-3
730
731
733
734
735
735
737
738
759
740
?
741
742. 003715
SCAN::
743 003715
010345
744 007,720
010045
745 007.729.
010145
746
747 885724
011501
FNOUT1:
748 005726
0127850
mmmm82
749 883752
122122.
FNIN1:
750 003734
oaloo3
751 A05736
0057,1717,
752-A87.74A
oRi72,74
757. AA7,742
808411
754 003744
050302.
FNOUT2t
755 885746
AA571-12.
756 003758
005300
757 8A5757.
001564
758 003754
012601
759 885756
ai26ao
76A A85768
ol26o3
761 0037F,-,2.
000251
762-0617754
763
754 807766
0102 Eli
FNMTCHt
765 887,77A
05271716
AAA882.
765 005774
012502.
757 085776
160002.
768 004000
010200
769 884802
012603
770 004004
000241
771 17184886
SCAN.A.TABLE FOR.A.VALID?COMMAND/MNEMONIC.
INPUT:
RO --HUMBER.OF.ENTRIES IN.COMMAND.-ITIBLE.
RI -> CHAR.STRING.IWGCML.COMMAND.LINE.
R2 -> TOP OF COMMAND TABLE
OUTPUT
R1 -> ROUTINE?THAT.GOVERNS.THE.COMMAND.(IF MATCH MAR MADE)
R1 -> CHAR.STRING.IN.COMMAND.LINE.(IF.NO?MATCHWAS.MADE)
RO -..RELATIVE?POSITION OF.MATCHED?ENTRIN TABLE.
MO V?
MUV?
MUV.
MOV.
MOV.
CMPO.
ONE.
DEC.
BNE.
BR
ADD.
INC.
DEC
ONE.
MOV.
May'.
MOV.
SEC.
RETURN.
MOV.
ADD-
MOV.
'6U8
MO??
MUV
CLC
RETURN.
R3,-(SP)
R0,-(SP)
(SP),R1
02,R3
(R1)+,(R2)+
FHOUT2.
R3
FNIN1
FNMTCH
R3,R2
R2
RA
FNOUT1
(SP)+,R1
(SP)+,R3
R2AR1
*2,8,P.
(SP)+,R2.
RO,R2.
R2,RO
(SP)+,R5
;SAVE.R3
;SAVE.*.ENTRIES.
;SAVE?POINTER.TO.DEGINNING.OF.STRING.
;PO INT ? TO H 0 H-BLAN4._IN? CD1`41.AND LINE ?
; HUMBER ? OF CHARS. IN ? HON-BLANK F IELD ?
; DOES ? COMMAND ? LINE ? MATCH ? TABLE ENTRY.
;NO, TRY.NEXT-TABLEENTRY-
;SUB.FROM?LOOP.COUNT
;COMMAND FOUND IN TABLE
;ADD * UNCOMPARED CHAPS TO.POINTER.
;THEN ADJUST TO NEXT TABLE ENTRY
;5U8 FROM OUTER LOOP COUNT
;TRY .AGAIN
;RESTORE R1
;COMMAND.NOT.IWTABLE.
;POINT .R1 AT.RTWADDR.IN.TABL,E,
;POINT-TO?INCOMING.R0 ON.STACK
;GET .TOTAL *.TABLE?ENTRIES. '
;GETHROSITION.OF.MATCHED.ENTRY
;PUT?IN.R0 FOR RETURN
RESTORE P3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200029901:
OMAIN. MA0RO.M1110 27-MAR-80
15AP"ProV4FOY? Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
773 FIND.THE.NEXT.NON-BLANK.IN.THE.COMMAND.BUFFER.
774 THEN.FIND.THE.LENGTH.OF.THE.STRING.THAT.STARTS.WITH.THAT.CHARACTER,
778
777
778
779
788
78i
79.2.
787.
764
765
785
f00
789
798 884010
791 80714018
7.712.084012
793 004016
794 884828
795 884824
795 884858
787 884832
798 nci4A7,F,
799 1-104A4A
8171A AA4A42
801 004844
882.884848
803
984 884858
885 084052
806 884854
807 084868
889 884852
809 0040
R18 884878
811 884872.
812 004074
913 004076
814
815 084188
816 084184
817 004110
bid 084112
819 004114
8251 004115
821
e22 en412A
823 884122
824 004124
FIND::
INPUT:
GCMLEN. NUMBER.OF.UNPROCESSED BYTES.IN.COMMANii.LINE.
GCMPNT. - ADDR.OF.NEXT UNPROCESSED.POSITION.IN.COMMAND.LINE:-
OUTPUT;
RI -> STRING, RO ..?LENGTH-OF.STRING.
GCMLEN, GCMPNT.UPDATED FOR.HEXT.ENTRY.INTO THIS.ROUTINE.
TH IS . ROUT I NE . IS . DES I GNED TO BE ENTERED . A . HUMBLm . OF hilLS
IN THE.PARSING.OF.A.COMMAND.LINE. THE.FIELDS.GCMLEN.AND.
GCMPHT.ORE.REFRESHED.LHEM-A.NELI.COMMAND.LINE.IS.READ
(SEE.THE.SUBROUTIME.?GCOHLY'2).
010246
MOV.
R2fi-(SP)
;SAVE.R2.
0115701
174144, ?
MOV ?
GCMLENfiR1
;*.BYTES.REMAINING..._IN.COMMAND.BUFFER?
001440
BEO.
FSECX.
THERE ARE HONE.
816782.
174148 ?
MOV..
GCMPHT,R2.
;LOAD.CURRENT.POINTER.
122712.
8e0040
1$:
CMPB.
#40,(R2)
;LOOK.FOR.H.BLANK.
881405
BEO.
10$
BUMP.TO-HEXT.CHAR.
122712.
808854.
CMPB.
;COMMA.IN.COMMAND.LINE.
881884
ONE.
2$
;TREAT.COMMA.AS.BLANK.
A17152A7.
10$:
INC.
R2.
;BUMP.POINTER.
085381
DEC.
Ri
;BUB.FROM.REMAINING.LENGTH.
e017.57
8NE.
1$
808424
Elk!
FSECX.
;NO.N0H-BLANK.FOUND
818248
2$:
MOV
R2..-(SP)
;TEMP SAVE POINTER.TO.BEGINNING.OF STRING.
885880
CLR.
RO
;CLEAR.CHAR.CAUNT.
122712.
merio
3$:
CMPB.
*48,(R2)
;LOOK.FOR.A.BLANK.
881487
BEA.
4$
;FOUND .END OF.STRING
122712.
8881154'
CMP6.
41.'?(R2)
;TREHT.COMMAS.AS.BLANKS.
001404
8E0.
4$
885282.
INC.
R2.
;BUMP.POINTER.
885208
INC.
RO
BLIMP CHAR COUNT.
885381
DEC.
R1
;SUB.FROM.BYTES.REMAINING.
001386
ONE.
3$
810267
174868'
4$:
MOV.
R2,GCMPNT.
;SAVE POINTER FOR NEXT TIME
818167
174852 -
MOV
RI,GCMLEN.
;SAVE BYTES RE-MINI-MG FOR.,41EiT?TIME.
012681
MOV.
(SP)+,R1
;POINTER TO BEGINIIii.10 1-4-P-StR.111df;'
812682.
(SP)+,R2-
;RESTORE R2
800241
SLC.
RETURN.
?
812682.
FSECX:
MOY
(SP)+,R2.
;RESTORE .R2-
000251
SEC
1
RETURN
? Approved For Release 2005/07/1201A-RDP85-00514R000200020001-3
OMAIN 11110.M1110 27-MAR-80, 15:17 PAGE-91
Approved For Release 2005/07/1.1A-RDP85-00514R00020002000113
?'"WA,tti
1;78
oo",
u4.1"
828.
R29
830
931
834
835
836
R7)17.
839 004125
840 004128
841 00417.2
842.004134
843
844
845
846
847 004150
848 004154
849 004155
R5A 004180
e51 004154
R52.004155
097. 004172?
854 004174
855 004200
856 004202.
857 004288
R5R 004210
859 004214
860 004218
851 004222
862.AR14124
853
864
els5
866
85.7
R8R
859 004230
1J7A 004232
871 004234
872-004240
873 004242
874 004244
875 004250
878 084252
877 004254
878 004258
879 004260
880 004284
881 004270
R82.004272.
CONVERT-AN.ASSII.HEX-VALUE.FROM-THE.COMMAND.LINE INT0.8INARY.
LEGAL-STRINGS.CONTHIN.FR0M.1 TO.4 CHARA8TERR.
INPUT:
RO =.HUMBER?OF.CH RACTERS.IN.ASCII.STRING.
R1 -> STRING
OUTPUT;
THE.FIELD.'BINWV CONTAINS-THE,CONVERTED.VALUE.
005057
005045
173700
PACK::
CLR. BIMWD. ; CLEAR . CONVERTED ?__VALUE ? FIELD ?
CLR. --(SP) CLEAR FOR COMD.C..ODE INDICATOR
SAVE. R0,R1,R2AR3,R4,R5
'
DETERMINE.THE.CONVERSION.FACTOR (POWER .OF 15) FOR.
THE LEFTMOST ASCII CHARACTER
022700
000004-.
CHF. #4,R0 ;UPPER.LIMIT.FOR.HEX DIGITS.
082455
BLT. PRECX. ;ERROR .EXIT,
010002.
MOV. RA ,R2. ;HUMBER .OF CHARS.COHTROLS.LOOP
022700
000804-
CMP. *4,R0 ;4 CHARS.?
001003
ONE. 1$
012700
A10800-
MOV. *4085.,R0 ;HEX.CONVERSION FACTOR.FOR.HIGWORDER.CHAR.
000418
BR 4$ ENTER LOOP
022700
000003
1$:
CMP. #5,RA ;3 CHARS.?
001803
ONE. 2$
012700
nnA4nn
MOV. *2515.,R17.1 ;CONVERSION-FACTO:1R FOR HIGH .ORDER CHAR.
000410
OR 4$ ;EHTER.LOOP7 ?,
i
022700
000802-
2$:
CMP. *2,R0 ;2.CHRPS
881803
BNE. 3$ .-71
012780
000028
MOV ? 41-15 PM ;CONVERRI-ONI;EfICJOR,FOR.HIGH.ORDER.CHAR.
000402.
BR 4$
012700
000001
3$:
MOV. 01,R0 ;1 CHAR.
MULTIPLY.EACH.CHARACTER.IS.VALUE.OY.ITS.CONVERSION.
FACTOR; THE.CONVERSION FACTOR .IS REDUCED.OA-POLIER:
OF 16 H5 THE ARCII.STRING.IS.SCAHHED.FROM.LEFT.TO.
010105
4$:
RIGHT,
MOV. RI R5 ;MOVE INPUT?POINTER.TR R5
112503
HLOOP;
MOvB. (R5)+ ,R3 ;GET .ASCII VALUE.INTO.A?REG..
012704
000276
' *TRTOL,R4 ;POINT.TO.TRANSLATE.TABLE.
080304
111401
R3 R4 ;ADD .VALUE OF.CHARACTER.7
=El. (R4),R1 ;MOVE.BIHARY.VALUETO.A.REG%.
:0:
022784
001402
000358' '
*TRTOL+60,R4
BED . ;WAS.INPUT44-1AR.ZERO
1$ ...._)Y55.., :LLIII.,;5:;!QK.L, .,
105701
TSTB. RI ;WAS .TABLE ROSIT,IpH.EMPTY.
001415
BEO. PSECX. ;YESA,4TRANStATION.UNSUCCESSFUL
01004.8
1$:R0,
-(SP) ;HSAVE.FOR DIVISION LATER
ML.
$MUL ;MULT.OY.16 TO.SOME.POWER.
880187
173542
ADD. R1,BINOD. ;ACCUM.CONVERTED.VALUE.
812800
MOV. (SF) +. ;RELOAD .FACTOR.
012781
UHMKM
MO'? ? #16,,R1 ;LUAD.DIVISOR.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
,
DMA IN ? MACRO
883 00427E.
884 004302
88%A047,n4
M1110 27-MAIR-EIO
005302.
0013!52.
15: 17. F'ACE ? 21-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
GALL. $D1V REDUCE FACTOR
DEC. R2. .:SUB.FROM.LOOP.COUNT
BNE. HLOOP.
886
RR7
004306
000403
;
BR
PCLCX.
;EXIT.
PAR
RR9
004310
A0i4316
012766
177777
000014
PSECX:
PCLCX:
MOV
RESTOR.
RO,R1,R2,R2,R4,R5
;SET COHD.CODE INDICATOR.
890
.
891
004377
017.15726
TST.
(SP)+
;GET COND. CODE.INDICATOR.
892
004774
0012402.
BLT.
1$
;DO.9E.0
893
004336
000241
CLC.
954
004340
000401
BR
PACKX.
AND RETURN
R95
004342
000261
1$:
SEC.
896
004344
PACKXz
RETURN.
-0,44.-:wrrifirrrrer090,17M;4,
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
OMAIN. 4110.Mill0 27-MAR-80': 15:17 PAGE.22. _
Approved For Release 2005/07/1 IA-RDP85-00514R0002000200013 .??? ?
RciR
B99
900
91.11
91712.
9013
;
CONVERT .A VALUE FROM.BINARY.TO PRINTABLE FORM:
Ri = WORD TO BE .CONVERTED
R5 -> PRINT.LINE
904 004345
9A5 AA4745
qArl-.
907 1104360
908 004364
909 004770
910 004772.
gll 01047.75
912.004402.
917 004405
914 004410
cJ15 004412-
916 004414
917 094416
918
919 004422.
coA 004434
0162705
012702.
nininn
012701
012703
050103
111745
A171574.12.
001356
062705
AA0004
mum1IA4
000020
000475'. ? ..
AAA0A5
UNPK
1$:
SAVE.
ADD.
MOV.
MOv.
MOV.
CALL-
MOV.
ADD.
MOVO.
DEC'
ONE.
fliDD.
RESTOR.
RETURN.
RO,R1,R2,R3,R4
#4,R5
#4,R2.
R1,R0
#16R1
$D1V
#TRTOL2,R3
R1,R3
(R3),-(R5)
R2.
1$
RO,R1,R2,H,R4
.CDO.LAST-CHAP.FIRST.
.:NUMBER .OF HEX-DIGITS-FOR.A.WORD.
;SUBRTN.EXPEOTS.DIVIDEND.IN-RO
;.LOAD.DIVIDOR-
;POINT TO TRANSLATE TABLE
;ADD 4 BIT VALUE
;MOVE CHAR TO PRINT LINE
;DEC INNER LOOP cogoT
;BUMP PRINT LINER TER
Approved For Release 2005/07/12 : CIA-RD
".?.!
-"5;??
i
()MAIN- MACRO-M1110 27?MAR-80 :15:17 PAGE 23
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
922
923
924 WRITE-A.PRINT-LINE.TO.TTO
925
92F7,
927 @04435
CONSOLc:
9218.004436
SAVE-
R0,R1
929
979 004442.
012788
8nn12n
MOV?t9F1
P8
;PRINT-BUFFER-BYTE-COUNT.
931 004446
012701
muldHHH'
HOY-
*PRINT+78..R1
;POINT.PAST.END.OF-EUFFER.
932-004452
122741
000048
1$:
CMPB.
*40,?(R1)
;LOOK-FOR-A-NON?BLANK.
333 004455
001883
ONE
2$
WRITE LINE.
934 004460
005300
DEC.
RD
;DEC-CHAR.COUHT.
935 A04457.
001773
ONE.
1$
935 004454
000440
BR
ABEND2-
;NO.HOM?BLANKS?.
937
938 0E14455
939
2$:
OIOW$S
*I1::WVB,*LU4TT,*EFN:1?*STAT,..,-(SP)
#,(SP)
4t,-(SP)
itO$MRP2(SP)
CSR1
#0$MNC,-(SP)
*,-(SP)
CSR1
DE-SELECTION
MOV.
BIS.
MUq?
CALL.
#,-(SP)
4,KOSCSEL>,(SP
#,OR$CR2.;SET.ATTN.CODE.READY
,
MOV. OR$CR2R1 ;READ CSR2
BIT. *O$ATTN,R1 ;ATTN.CLEAR.
BHE. 1$ ;NO, REAL' AGAIN
MOV.
MOV.
BIT.
BHE.
#041,0R$LBR. ;CD .MEMORY START ADDRESS =
4t,OR$CR2.;SET.CC-TO-CP.
OR$CR2,R1 ;READ CSR2
*O$CCCP,R1 ;IS.CC.TO.CP.CLEAR-
2$ ;NO, REAL' AGAIN
MOV. *1,0R$LBR. ;TRANSFER?COUNT.=-1 WORD.
HOY- #PR.MD.0
2, BTART.ADDRESS, LOOP INDICATOR. LOOP.ON.THE.READING?Op.
g1OHE.MEMORY.LOCATIOH.OHLY. PRIHT.THE.COHTEHTS ONLY.
ONLY.
L.
3. START .ADDRESS, END.ADDREBS, NO .LOOP, PRINT.TNE.CaTENTS.
OF. MEMORY BETWEEN.TNE.BTART AND.END.ADDRESBES
MR>PR.MD.0 7
4. START.ADDRESE, END .ADDRESS, LOOP-INDICATOR: READ.THE.CONTENVS.
OF MEMORY BETWEEN.TNE.START.AND.END.ADDRESSES, HOWEVER, _PRINT,
OHLY.THE.CONTENTS.OF.MEMORAT.THE.START.ADDRESB:
MR>PR.MD.0 7 L.
777..
MOV
CALL
Kt ?
CALL.
JNP
CA,L
BC:
JMP
MOV?
MOV.
MOV?
R1,RTNPT.
FIND
3$
ER P4
PRIX
PACK
4$
ERRS
PRIX
BINWEI,MSTRT.
BINWD,MSTR2.
*-1,MEND,
;SAVE,POINTER.
;LOCATE.HOH-BLAHK.TH COMMAND.LINE.
;OK, CONTINUE.
MISSING.OPERAND
;EXIT.
;CONVERT.COMMAND.LINE.VALUE.TO BINARY.
;CONVERSION.SUCCESSFUL.
INVALID,NUMERIC.VALUP
;SAVE.PRINT.START.ADDRESS.
;SAVE.IT.TWICE.
;INIT.END.ADDRESS-
START.ADDRESS.HAS.BEEN FOUND, SCAN.FOR.END ADDRESS.OR-
LOOP.INDICATOR.(CONDITIONS.2, 3 ABOVE). IF THERE.IS.HOTKIN
FORTNER.IN.THECOMMAND LINE, CONDITION.1 IS.IM.EFFECT:
CALL. FIND
BCC. 5$
MOV. MSTRT,MEND.
BR 9$
CMPB
BNE
BIS
MOV.
CALL
BR
CALL.
BCC
cA_L
JMP
PACK
7$
ERRS
PRIX
? SAVE.ENENADDRESS.(BINARY)
CHECK.FOR.LOOP.INDICATOR.AFTER.END.ADDRE (CnRDI7TON.4)4
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
;SCAH.COMMAHD.LIHE.
;SOMETHING THERE.
;SET.END.ADDR?START OMR.
;JUMP.TO.RTH.
;LOOP .INDICATOR.
;NO, MUST.BE.UPPER.ADDRESS.
;SET.FLAG.FOR.OUTPUT CONTROL.
;SET.END.ADDR?START.ADDR.
;HOW.TO.STOP.LOOP.
;JUMP-TO.RTH.
;CONVERT UPPER
;OK, CONTINUE
;INVALID NUMERIC
;EXIT
MRPR- MACRO-M1110 27-MAR-80 15:11 PorpL9-.7,.
Approved-Far Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115
116
000222
016767
000000G000000G.7$:
117
000230
118
000234
103414
119
800--.6.
122711
000114
120
000242
001404
121
A00244
122:
0002A
008167
0nA614
123
000254
052767
00000850008805. 8$:
124
000252.
125
125
000255
016701
0000005. 9$:
127
000272
008171
HMHHHH
129
129
130
131
132.
000275
PRIM;
133
001.12(h
iiIrnr4H
UUUUUUU
134
AnA7.A?
015746
AnAAAAG.
135
AAA3A6
136
000312
103An7.
137
000514
000167
1100550
138
139
AAA72,2A
01574.6
000000G. 1$:
140
000324
141
AAA67-2.A
A12746
AAAAA6
142.
008334
143
AAA340
005046
144
000542
145
000345
146
000352.
012567
nAoriAIDG.
147
148
000356
016746
UIJULIJJ.
149
000762.
150
000366
012746
000004
151
AAA:2,72
152.
000376
005045
153
000480
154
000404
155
000410
012557
000000G-
155
000414
005046
157
000416
158
159
000422:
150
000425
103002:
161
880420
000157
808434
152.
163
A1111474
065757
0000005 0000005.2 :
154
UUL-1442.
025757
L1UL1LiUUU HUHUUUL,
155
AnO4F,A
101727.
166
000452.
032767
AAOAAAG AA0A0A5.
167
0A046A
R01002.
158
000462,
000167
000402
169
000456
015767
AAAAAAG 0800005 2$
170
000474
000711
171
?
No: P.
MOV
CALL.
BCS.
CMPB.
BEQ.
CALL.
JMP.
BIS.
CALL.
BINUD,MEND.
FIND
9$
$"L (RI)
8$
ERR11
PRIX .
41.0UT,BASE.
HANG
MOV. RTHPT,R1
Jr F: fid( R.1)
PRIFIT.FROM.MICROPGM.MEMOR'('.
MO'.?
maq
CALL.
BCC
JMP
MOV.
CALL.
MO'.?
CALL
CLR.
CALL.
CA: L.
MOV.
MO'?
CALL
MOV.
CALL.
CLR:
CALL.
CALL:
MOV.
CLR.
CALL.
CALL
BCC
JMP
ADD.
CMP:
BLOC;.
BIT.
BNE.
jMP.
MOV:
BR
MMHIGN,-(SP)
MML01,1,-(SP)
BUFS2-
1$
PRIX
MSTR2,-(SP)
SEOMM.
41,4.MM0E+MMLEFT>m-(SP)
MRPCR:
-(SP)
LBMRP:
MRPLB:
(SP)+,DATA1
MSTR2,-(SP)
SEOMM
#,-(5P)
MRPCR
-(3P)
LBMRP.
MRPLB
(SP)+,DATA2-
-(FP)
MRPCR
PRDATA:
2$
PRIX
INCVAL,MSTR2
MSTR2,MEHD
*LOOP BASE'
3$
PR1X
MSTRT,MSTR2-
1$
;SET:UP.EHD.ADDRESS:
;CNECK.FOR LOOP:INDICATLIR:'
;NO:L00P.
;CORRECT-LOOP.INDICATOR.
;YES.
NO
;SET:OUTPUT:CONTROL:
;HOLLT0.5TOP.LOOP:
;POINT.TO-ROUTINE.
;JUMP.TO.ROUTINE:
;SUPPLY.UPPER:MEMORY
;LOWER.LIMIT:
;PREPARE:FOR:LOAD- -
;NO .ERROR:
;ERROR.
;SEND:CURRENT.ADDRESS. ,
;SEOUENCE.UP:TO.PRINT.STAFT:ADDRESS.
;DIRECT.CHTL.WORD:TO MRP:
;ISSUE:CLOCK:TO.REINNIBIT
;REOUEST.MRP.TO.LOD:BUS.
;GET:MRP:WORD:FROM.STACK.
BR SELECT
NS:
.:Q.EHD.CURRENT-ADDREFS.
;SEOUENCE.UP:TO.PRINT:START.ADDRESS.
;SELFCT:RIONT.HALF:OF:PLR-
;DIRECT.CHTL.WORD.TO MRP.
;CLOCK.TO.REINNIBIT-BRANCN:REGISTER.
;REOUEST:MRP.TO.LOD:BUS: HS.
;GET.MRP:WORD.FROM:STACK.
;CLEAR.MRP CONTROL REG
;PRINT.MEMORY:COHTENTS.
;HOT:END:OF:MEMORY.
;END.OF.MEMORY.
;ADVANCE .ADDRESS
HAS UPPER MEMOR'r LIMIT:BEEN:REACHED-
;NO, CONTINUE.
LOOP-ON
.7,YES,, CONTINUE.
t ?
;AND.REPEAT?PAINT.; l?
Approved For Release 2005/07/101A-RDP85-00514R000200020001-3
L.
MRPR- 11110.M1110 27-MAR-80 15:11 PAI1E5-3_
Approved For Kelease 2005/07/1.1A-RDP55-00514R000200020001-3
172.
173
174
175 000475
PR MD;:
175 11[1[1475
015746
MMHMUUL.
177 000502
016745
000000U.?
17R AAA9AF
179 000512
103556
180
181 000514
012745
00072.77
182.0110F120
183
184 AA171524
00504
185 000525
186 000532
005046
187 000534
188
185 000540
005045
190 11111,1542
191
192.000545
005045
193 E10E1550
194 000554
1505045
195 000555
195
197 000552
012757
001000 .175422,
198 000570
012757
120000 1(6422.
199 000575
012745
Ann72.60
200 00121012
052715
001001
201 000505
052715
17001210
'.000512
005045.
203 000514
204
205 000520
01275?
1511511)5 Li 176424
PRMD:
205 1115155.55
012757
120100 -175422.
207 000634
015701
176422
1$:
208 AA0540
032701
AAA1A0
209 000544
001373
210
211 000545
016767
000050U 175424
212 .000654
012757
120040 176422.
213 AAAF.F0-
015701
175422
2$:
214 AAA555
032701
000040
z15 000572
001373
216
217 000574
01275?
1111HUM1 175424
218 ARA7A2
012757
120040 176422.
219 000710
015701
175422
$ :
220 AAA714
A32701
AAAA4A:
221 AAA720
001373
222
223 000722
812767
0000E101,176424
224 000770
012757
120040 175422.
225
225
227
229 000736
PRINT.FROM.DATA.MEMORY
MOV.
MOV?
CALL.
BCS.
MOV?
CA__.
CLR-
CALL.
CL R.
CALL.
MDHIGH,-(SP)
MDLOW,-(SP)
BUFSET.
PRIX
*377,-(SP)
SEMI-
-(SP)
MRPCR.
-(SP)
LBMRP.
CLR. -(SP)
CALL. SEOCS.
CLR
CALL
CLR
CALL
MOV.
MOV
MOV
BIS
BIS.
CLR
CALL.
-(9P)
CPCR
-(!1-1P)
LBCP
#O$REBK,OR$CR2
0,OR$CR2.
*O$CSEL,-(SP)
o,(SP)
*,(SP)
-(SP)
CSR1
SUPPLYHMEMORY.UPPER
;LOWER.LIMIT.
;PREPARE-FOR.LOAD.
;ERROR.
;SET MRP? MICRO ADDRESS --ly.'?FF (JUMP SELF)
;REINHIBIT BRANCH CONTROL REG
;SINGLE.CLOCK.TO.REINHIBIT-BRANCH-REGI.STER.
;START.MICROCODE.AT.0
;REINHIBIT BRANCH CONTROL.REG
;SINGLE.CLOCK.TO.REINHIBIT.BRANCH.REGISTER.
;RE-ARM .INTERRUPTS.
;SET.SEARCH.MODE.+ ENABLE INTERRUPTS.
;CLEAR .ALL SELECTIONS.
;CLEAR.DRIVE.AND.PULSE-
;CLEAR.CP.NO-CLOCK.
;SET.HOTHING.
MOV- *O$PDMD,OR$LBR .:MOVE.ATTH CODE.TO.L0D-BUR-REG
MCN.i. *,OR$CR2.;SET.ATTN.CODE.READY,
MOV. OR$CR2,R1 ;READ.CSR2 ----
BIT. *O$ATTN,R1 ;ATTN.CLEAR.
BHE. 1$ ;NO, READ AGAIN
,
NOV. MSTR2fiOR$LBR. ::CD .MEMORY START ADDRESS ?
M0',,,? 11.,OR$CR2.;:SET.CC.TO.CP.
MT./. OR$CR2,R1 ;READ CSR2
BIT. *0$CCCP,R1 ;IS.CC.TO-CP.CLEAR.
BHE. 2$ ;NO, READ AGAIN
MOV.
MOV.
NOV.
BIT.
BNE.
*1,0R$LBR
*c:.
;LOOK FOR.ADDR.IN-COMMAND LINE
;HONE THERE, USE CURRENT MAR
;CONVERT START ADDRESS
;OK, CONTINUE
;ERROR ON CONVERSION
;IS.ADDRESS.IN.RANSE
;YES, CONTINUE.
;OUT.OF.RANSE.HIGH.
SEQUENCE.UP.TO.SINGLE.STEP.ADDRESS.(IF.NECESSARY)
SET.SEARCH.MODE.
SINGLE .CLOCK ALL.TO.EXECUTE.ONE.INSTRUCTIOH.
SET.LOAD.MODE.
MOV.
CALL.
CLR.
CALL.
MOV.
CALL
CLR
CALL
BIHUD,?(SP)
SEOMM
?(RP)
MRPCR.
#1777,?(SP)
SEQCB.
?(SP)
CPCP
;PROVIDE START ADDRESS.FOR.SEQUENCER.
;SEQUENCE ONLY.oP TO START:ADDREB
:REINHIBIT BRANCH CONTROL REG
;SET.CP.MILHULUDE IU 1NNULUUUS
;REINHIBIT BR.CONTROL.REG--
MCW ?*0$5MbOR$CP2 :SET SEARCH MODE 41ri
MO./ 40?0$nNCI-0$RHU...,?LSP) ;CLEAR MRP AND PRE74^Ae? iLKT4
BIS #,Q$LBD+O$LBP.-.LSP ;CLP DRIVE & PULSE
NOV *O$M5P.?(SPI ?:SET SINGLE CLOCK ALL?
CALL :._, :HOVE TO CSP1
CLP ?LSP) CLEAR NOTHING
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
MRBUG- MACRO M1110 27-1AR-80 15:09 PAGE 5-2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
119 000252. 012745 146616161?
115 000255
117
116 000272 009067 176422
119 OA11271';
120 ULIU.:3L12 8U816,' deiLIUULIU.
121
122.
123
124
125
125
127
128-000306
NOV. #,-(SP) ,ISET.MRP.AND.PPS-NO-CLOCKS.
CALL. CSR1
CLR. OR$CR2.
CALL. MRPMP.
JMr
MRPXH.
PROCEED ?
EG. MR>G0.
MR>G0.22
;AND.REWRITE.CSR1
;SET-LOAD.MODE.
;PRINT.MICROPGM-AIWESS.
129 080386 CALL- FIND ;LOOK.FOR.START.ADDRESS.
138 AAA 72,12. 103431 BCS- MGO. ;NONE, GO.FROM.PRESENT.ADDRESS
131 000314 CALL. PACK ;CONVERT.START-ADDRESS.
132.000320 103004 BCC. 1$ ;OK, CONTINUE.
133 000322. CALL. ERR5 ;ERROR.ON.CONVERSION
134 000325 RARIF,7 AAAAAAG. JMP. .MRPSX.
135 ?
175 6180732- 028767 8vivIH1jUL.01.11.1.808U.1$: CHF- MMHIGH,BINWD. ;IS.START.ADDRESS.IN RANGE.
137 86107.48 61A7AA4 BGT. 2$ ;YES, CONTINUE.
130 088342. CALL. ERRIO ;OUT.OF.RONGE-HIGH.
133 111tH 41- AAA 167 AAAAARG. JMP. MRPXX.
140
141 AAA752.H 15746 MMHHHHU. 2$: MnV. BINWD,-(SP)
142 8007.56 CALL. SEAMM.
143
144 000352. 005046 CLR.
145 000354 CALL. MRPCR.
145 AFIF17,7A
147 0A61772. CALL. LBMPP.
148
149
150
151
152 000375 MGO:
153 000376 012746 001777 MOV. #1777,-(SP)
154 0110402. CALL. 6-5.0CS.
155 AAA41715 AAti045 CLR.
155 000410 CALL. ,APCR
157
158 FlA11414 61057' HHHHMHb?UNHMMMU.
159 080472. 001047
160 000424 012757 100000. 175422.
11:11 An8477. 012745 14F.0A0
162 861046 052716 nninnl
163 000442. 005046
154 000444
155
166
167
168
159 000450
170
171 000462- CALL. HAHG2.
;PROVIDE-START-ADDRESS.FOR.SEAUENCER.
;9EAUENCE.ONLY.UP-TO START ADDRESS
7.REINHI8IT BRANCH-CONTROL.REG.
;SINGLE CLOCK. TO REINHIBIT:BRANCH REGISTER.
IF A.BREAKPOINT-IS.IN.EFFECT, BRANCH.TO-CODE.THAT.PRERARES.
TO FIELD.IT: ELSE.START.FREE.RUN WITHOUT -BREAKPOINTS.
;SET.CP.MICROCODE.TO INNOCUOUS LOC.(Xf3FFf)
;REINHIBIT BR.CONTROL.REG.
BIT. *BREAK. BASE. ;PROCEED.TO.BREAKPOINT.
BNE. MBK. ;YES, SET.UP.FOR.BOT.
MOV. #0$SM,OR$CR2. ;SET-SEARCH.MODE.
MOV- *,-(SP) ;CLEAR .MRP AND.PPS.NO-CLuCKS.
BIS. #. PRINT.LIME.
;CONVERT.NRA.
.:PRINT.OH.CONSOLE.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
-
MRBUG- MACRO.N1110
SYMBOL TABLE
ALUCKE-040000
ALIJOE-004000
AT1 OnnssnRG.
A01 -sinFos
BASE. =-******
BINWD.=.******
BITVAL-snsssa
BITS =.s0nssi
BIT1 =.0000s2
BITis =.[102mmm
BIT11 =.0040n0
BIT12.=.s10sss
0IT13 -021;1000
BIT14 =.0400s0
BIT15 =.10FissA
BIT2. -0Assn4
BIT3 =? 05100161
BIT4 -AA002A
BITS =. 0190040
BITE =. 00611061
BIT? =.ouu2ou
BITS. =-CIAA4n171
BITS -00100s
BREAK.=.***** GX.
BYTES -.000000
BYTE1 -00171001
BYTE10-000012.
BYTE11=.0171s013
BYTE12=-000014
BYTE13=.00001E
BYTE14=.0051016
BYTE15-000017
BYTE 16=
BYTE17=?dUMM?1
BYTE18=.00s022
BYTE 19= FIMM[1,2
BYTE2- 000007
BYTE20= 000024
BYTE21= 000029
BYTE22= 000026
BYTE2= 0011NL7
BYTE24= 00510720
BYTE25= 0011031
BYTE26= 000072
BYTE27= 000033
BYTE2R= 000074
BYTE29=.00007F,
BYTE3 -000007,
BYTE30-000035
BYTE31=.000077
BYTE:32-000040
B47E33-000041
BYTE34=.000042
BYTE35-17100043
BYTE36-000044
BYTE37=.000045
BYTE-ie.-000046
EX.
EX.
27-MAR-80 15:09 PAGES-1
Approved For Release 2005/07/12
BYTE39.
BYTE4
002-0YTE40=.
BYTE41=0
BYTE 42=.
BYTE 43=.
BYTE44=.
BYTE 45=?
BYTE 45=.
BYTE47=.
BYTE 48
BYTE 49=.
BYTES =.
BYTE 50=.
BYTES 1=.
BYTE52=.
BYTE53=.
BYTE54=
BYTE55=
BYTES6=.
BYTES?=
BYTE5S=
BYTE59=.
BYTEE =
BYTE60=
BYTEE1=
ByTE62=
BYTE63=
BYTE64=
BYTE65=
BYTE66=
BYTES?"
SYTE68=
ByTE69=
BYTE? =
BYTE70=
BYTE71=
BYTE72=
BYTE73=
BYTE74=
BYTE75=
BYTE76=
BYTE??"
BYTE78=
BYTE79=
? BYTES =
BYTE80=
BYTES1=
BYTE82=
BYTE83=
BYTE84=
BYTE85=
BYTEs6=
BYTES? =
BYTE88=
BYTE89=
BYTES =
000047
000004
000050
000051
000052-
000053
000054
sssn55
000056
000057
000060
000061
000005
000062.
AAARE.72.
ARAAF.4
000055
.AFIAArr.dc,
OMMHHH?
000070
.000071
.000072-
000073
.000006
.1-100074
.'000075
.000076
.000077
.:000100
.000101
.000102.
.000103
.000104
-000105
.000007
.000106
.1100107
.000110
.000111
.000112.
.000113
.000114
.000115
.000116
-000117
.000010
.000120
.000121
.000122-
-000123
.000124
.000125
.000126
.000127
.000130
-000131
.000011
Approved
SYTE90-000172.2-
BYTE91-00017-7,3
BYTE92=-0001.34
BYTE93-000135
BYTE94-00013E.
BYTE95=.000137
Ell-EH-AC.10140
BYTES?" 000141
BYTE9B=.000142
BYTE-99=-000147
BYTVAL-000144
C0KALL=.001000
CBKCLK-000400
CHOB1E-1000001
CONSOL-******
CPCCEN-A1AAAA
CPCR. -****** GX.
CPREAD-A40000
NPURTE=.04.,N0NN
CSADRO-UNHUN4
CSE-DCI-100000
CSOE. =.0017117140
5:SR1 = ? ******
CSLPTE=.000100
DBR:RD=.00NUN1
DB$CPP-001457
DB$SPT=.000026
DEL$TPC=.000023
DISPGS=.1U0UUN
DMAAWR=.000005
DMARRO=.0HHH07
DMARWR-.00UUN4
EFBUF.=.****** EX.
EFN:3 =.****** EX.
EFH:4 =.****** EX.
EHBR. =.010000
ERR 10 =.****** GX.
ERR4 =. ***'=.'1* GX.
ERRS =.****** GX.
FIND. =.****** EX.
001 000305RE.
HANG2-****** GX.
KILL. =.****** GX.
LBMRP.-****** GX.
LOCEN=.00011710
LOCNAA-040000
LOC;WB-100000
MAREH1=.000001
MAREH2=-004000
MARLOO=.010A00
MAROUT=.0000A2.
MAK:Lo-oN2umm
.
MAR:OU=.22M2
MBK R.
MBKALL=.001000
MBKOLK=.000400
MGO. 000376R.
For Release 2005/07/1
? T
: CIA-RDP85-00514R000200020001-3
CX.
GX ?
MMADRD=.000100
rgaT:i'[=1:g
MMOE. =.000004
MMURTE=.000010
MNOBRE=.100000
MREN1 =.1710017101
MREH2.=.020000
MRPCR-****** GX.
MRPLB.=.****** GX.
MRPMP. 000725R-
MRPXX-..****** GX.
OX?
MSYN.
H.
=.000040
=0000144
0E1
000106R0.
PACK.
=.****** OX.
PLB.
-000010
PLC.
=.1.100070
PLO.
-AAAA72.0
PLRWR-11002mH
PLR:EH-000200
PRIHT-****** GX.
OR$CR1=.176420
OR$0R2=.176422.
OR$LBR=.176A2A
0$ATTH-0001110
0$BCL.-UUNUU1
0$CCCP=.000040
0$CHB-SA0400
0$CHRL-000200
O$CLR.=.000040
O$CH6.=.030000
0$CP. =.0000171
0$CPC0=.000010
0$CP2.-000260
0$CSC.=.010000
0$CSEL-001717.60
0$CSET=.017.10002.
0$0SP.=.0700051
0$DMA-000001
002.0$ENBK=.04171000
0$EHOP=.070AAA
0$FAL-004000
0$FC. =.00004S
OSP?. -000044
O$FP. =.000046
0$HBF.=.00n0A2.
0$ICP-05105106
U$1HB? ".000003
0$IHRL-00171002.
0$IMRP=.000007
0$LBD.=.001Ann
O$LBDP=.001001
002.0$LBP -uummv
0$LHP.=.010000
Q$MHC.=.140000
0$MR -000052
0$MRP.-000040
0$MRP2-000240
0$MC.-040000
0$M-ET=.s0Sn04
0$MSP.=.100000
0$NCLK=.176000
0$PP =0510511051
802-0$PP!.:U=.0610320
0$PP2.=.000300
0$OHLT-.000013
0$0L =.SsS047.
00700soi 121-0000572,
0$0LB.=.0000S4
0$0LR-=.0A0001
0$01J =.000A42.
0$R000=.600005
0$RDMD-000006,
0$REBK=.0.010007
0$RHC.=.0171F.AFIA
USW:Z-004000
0$R5ET=.000010
=. 10000.51
0$!SP =.510012171
O$SP2.-000340
REID:EN-00020A
RGO:1A=.0120000
SEOCS.=.****** GX.
SE M M ? = ? CX ?
SE0:CI=.000010
551 000132R0.
S$CLR.=.000000
S$LA
550 El
S$UR
=0051510511
=000005
= Affinne.
S$OX =.0U0NN4
S$SR =..NuHHH7
S$S1 =001710010
5$52 -000014
TO$CTR=.176370
TO$CTW=.176360
TO$IHL=.004000
TO$MEM=.000270
TO$OAR=.176544
? TO$OTR=.17r--.7,41;
TO$ORD=-000274
TO$SLI.=.176376
TD$TAR=.176372
TO$TOW-1712
TO$TOR-176374
TD$TOW=.17E.-2.4
OSLOCO=.017.01.-.
0$LDMO=-ARARA4 T$BD
002.0$LOPP-002000 TSRO
IA-RDP85-00514R000200020001-3
flA1,471R,
000010
= iLlUUUM
-
MR9UG 1' DM1118
symBoL.Tallp.
L1iiEI
TSBTAR-AAAA7A
T$STD.-uu2mmm
T$CD. -000100
27-MAR-RA .6--
1509 PRGE 9
Approved For Release2005/07/101A-RDP85-00514R000200020001-3
TVREGi-mmmitim WUHD2h-AAAAF.4 WORDS1-000146 WORD77-000232
TS!RE52=-17100001 130RD27-mmmmHh 1..J0 RD52-AAA150 wORD78= ? 05102:34
WORD2R-000070 WORD52-000157. LIORD79.- 000235
T$S0. -AAAAA1 WORD29-000072. WORD4.---000154 WORN! ---000020
T$CLK--mmzmvim
T$UBUs=.1AAAAA
WORD3 --AARAFIF.
WORD59-000155
WOR080-A00240.-
1-TISK=.000288
T$DRD.-HHAAA4
TS1CLK-000400
T$1iBEN-AAAA2A
WORD30-000074
WORD31-A1JAO7F,
WORD55--4100150
1d0RLI57-00017.
13-P10012744-er
0
TEMEM=.010000
U8D:1H-000020
WORD32-000100
WORDS0-000154
WORDR3-000246
1$1-!:',HA-ummium-
uHpK. GX.
WORD72-0001A2.
WORDSS= AAAlic;S
WORDA4=...0A0250
T$FSAB-000004
WORDH =0UMMIHM
WORD34-000104
WORDf7. = 51011014
WORD85...=L000252
TSFSAC-00A014
WUKD1 -UUHLIA2.
WORD35-000106
WORDF.0= 000170
WORD0-000254
T$FSB2-000010
WORD 10=
WORD36-000110
WORDS1= 000172.
WORD87-000256
T$IB. -uuum,b
WORD11-000025
WORD7.7-000112.
WORDf7.2= 115151174
WORDR8-000260
T$1BAR-AAAA24
WORD12-01012312
WORD7.8=-000114
WORDS3= 0510175
WORDR9-000262.
TSIBE.-020000
WORD172,-000072,2.
W0RD39-000115
WURDb4= 0003110
WOF,L9 -.000022-
TSIBF.-040000
WORD14-000034
WORD4 -000010
WORD65= 000202
W&R,D-c.10-H000,264
T$ICD.-AA1045i
WORD15=-AAA0
WORD40-000120
WORDSF.= 0051204
1UARD5100266
T$M0DE-004A00
WORD1R-000040
WORD41-000122.
WORMS7= 000206
1JAR1;'92-':,-..000270.
T$AS. -A0AA7S
WORD17-000A42.
WORD42-000124
WARMS'S= 000210
WORD93-00.0272
T$DETE-a04000
WORD18-000044
WORD43-000125
WORDS9= O 000212.
__44.JORD945.0510274'
T$OBF.=.01AAAn
WORDI9-000046
WORD44-000130
WORD7 = 0AAA1IF.
--WORD95-000276
T$OBRA=.0AAA7.4
WORD2. -AAAA114
WORD49-000132.
WORD7A= 000214
?IJORD9=.171817.1380
TVI8WA=.888837,
WORD2A-AAA055i
WORD45-000134
WORD71= ? 00021F.
WORD97-000302
T$OUTA-100000
WORD21-000052.
WORD47-.000.136
WORD77= ? 000220
WORD91.1.1-000.:104
TSR320-000208
WORD22=,0171A054
WORD4e=.000140
WORD73=
WORD99-0007306
TSRHEI-OAAA40
WORD23-51011056
WO RD49=-Ann14?-
WORD74= O 000224
WREIVAL-000310
T$RSET=.04AAAFt
WORD24-5100050
WORDS -000017.
WORD75= .00022s
XTREAD=.0A1000
T$SC. -001'1022.
WORD25-800062.
WORD50-00A144
WORD76= ? 0510238
XTURTE-AA0400
TSsCLK-02AAAA
iRE15. 000000 000
OULIUUU 001
MRBUG. 000765 002.
ERRORS-DETECTED4 0
VIRTUAL.MEMORY.USEDz 3584 WORDS. (.14 PAGES)
DYNAMIC.MEMORY; 491S WORDS. 1 18 PAGES)
ELAPSED.TIME: 00:00:48
MRSUG,.MROUG/-SP=120,13IM,C20,13MRSUG.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
CP 11110-M11I0 27-MAR-SO 14:40 PAGES
Approved For Release 2005/07/1 IA-RDP85-00514R000200020001-3'
1 .TITLE-GR,-.
2.000000 .PSECT-CP.
7 .LIST.MEB.
4
7
9
22.
23
24
25
25
27
28-
29
31
32
33
34
3F1
36
37
NARDWARE.OUERY.RESOLVER.'MANUAL? DEBUGGING AIDS-
COHTROL.PROCESSOR.TEST ROUTINES.
PARSE-TNE.COMMAND.LINE AND.TRANSFER.CONTROL.TO-ONE.OF.THE.
CP SUB-MODULES.OR.BACK TO.OMAIH: COHTROL.COULD.HAVE.BEEH.
PASSED.TO.CP IN.OHE.OF THREE.WAYS:
1. FKuM.uMAIN.IF.uP.WAS.SELECTED AS.THE-FIRST PROCESSOR.
UPOH.ENTRTO.THE.PROGRAM.
>CP.LD.CD A
R: FROM.OMAIN.IF.CP.WAS.SELECTED FROM.OHE.OF.OMAIWS
OTHER .SUB-MODULES.
MR>CP.LD.CD.A
7. ON .RETURN FROM ONE OF-CPS .SUB-MODULES.
CP>LD.CD.A
CP PARSES AT THE.SECOND.LEVEL-OF CONTROL.(SEE-NOTES.AT.
OMAIN.ON.LEVELS.OF.CONTROL). IN.TNE.EXAMPLES.ABOVE, CP.
WOULD.PARSE.'LD.! AND.TRANSFER.COHTROL,TO.THE.CP.SUB-
MODULE.CPLD: IF.CP.SHOULD.ENCOUNTER.A.STRING.WNICN.IS.
HOT-H.VALID.COMMAND.MNEMONIC.. CP CONSIDERS THE.STRING.TO.
BE H.PROCESSOR.MNEMONIC.AND.RETURNS.CONTROL.TO.OMAIN. EG:
CP>MR.LD.MM.0
THE.STRING.'MR IS .HOT A.VALID.CP (SECOND.LEVEL) COMMAND:
CP RETURNS.COHTROL-TO.OMAIN.LHICH IN.TURN.WILL.TRAHSFER.
COHTROL.TO.ITS.SUB-MODULE.MRP:
GP SUB-MODULES:
CP_D. LOAD MEMORIES.
CPPR. PRINT.MENORY.CONTENTS.
CPREST. REMAIHING.COMMANDS.(EXCEPT DEBUGGING COMMANDS)
CPBUGI DEBUGGING.COMMANDS-
CPBUG2. DEBUGGING.COMMAHDS.
if
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002 2000
11-'4 .fr'7471t.
CP- MACRO.M1110 27-MAR-90 1440 PAGE 6 I
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
:Eq
40
41
42
43
44
45 AA8A80
46 FIFIMMVIVI
4( 000002
48 000084
4:1 000006
50 nnAAtin
51 000012
'''? 880814
b6 U0111116
54 A1AA20
55 800022
5E. AA0n24
!--1( UMUUt.
5R nninincin
59 1:71A017-17,2
60 000054
61 000035
(.7,2 8110040
63 000042
64 AAAA44
65 000045
I.:7,F, ARRAF,A
h( milHu,-,2
68 11111:1054
59 UULflibb
70 AAACIA
71 000062
72 000054
(6 UHUUbin
74 000870
75 000072
75
101
0000u0U
117
nuum00u.
114
0000A0G-
122
mvimmAHU.
12A
AROAFIAG
123
VIIIVIHMMU
1n7
AAAAAOG
inP,
000000G
123
OAAAAAG
1221A5
0000000
114
MkifIHMIL
120
Humuumi,
120
00000OG
122
ULIUUOUU
103
AARAAAG
000017
124 '
105
122
187
117172.
123
117
122
124

104
122
102
123
114 ?
;
r?
?
..
*
.
..
CPTBL:
CFNUM
TABLE OF CP?COMMAND-MNEMONICS AND THEIR.(SSOCIATED-ROUTi-NEr-----,---77-t--,:tt-t---7,--.
ADDRESSES ..
?
- ? ,;i?,r7t't,.."
.A3CII /AT/ ;SET BREAKPOINT - 7 r ? ,
.WORD 0T2?
Ye
.ASCII /OF/ ;DISABLE BREAKPOINT
.WORD OF2
.ASCII ;LOAD ALL REGISTERS
.WORD LR2
.050.1I .(RG/ -.:F7RIqT7E4.V7717.ti:'
.WORD RG2
.F11SCII /PC/ ;SINGLE STEP A NUMBER OF TIMES (PROCEED)
.WORD P1:2
.ASCII /SS/ ;SINGLE STEP
.WORD S!=;2 r
.ASCII /GO/ ;PROCEED FROM BREAKPOINT :- - t
.WORD GO2
.ASCII /FR/ ;RUN BOTH MRP AND CP
.WORD FR2
.ASCII /ST/ ;STORE INTO A
.WORI) BT2
.ASCII FE READ FROM A REG
.WORD RE2
.ASCII /LD / .:L0t7-1D MEMORY --,--
.WORD LD2
HEI :II I /PR/ ;PR II:.;R011.,11410,F,
.WORD PR2
.ASCII
.WORD PB2 ;PRINT BUFFERS
.ASCII /RS/
.WORD h-
..ISCII /CL/ ;CALL HOP LOADER
.WORD CL2
= /4
?
,1
't
I
'
r,
r
4t4
i
?
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
?
CP-
11110.M1110 27-MAR-80 14:40 PAGE.?
Approved For Release 2005/07/141A-RDP85.-00514R00020001000I.:3
78
79
RO
di
09e074 mdmiidu
R2-
R.3
84
85 000075
86 000075 855200
87 800100 0n0170'
88 090 102 000000
89 000104 000000
RA 000105 OAAAAA
91 000110 000530'
92-000112. AAAAAA
973 000114 000000
94 000115 AAAAAA
95 000120
96
97
98
RR 090130
100 00017.0
101 A90579
102 1515.351
103 000532
104 000534
105 000536
105
107 000540
IAR 000542
109 000544
110 000545
111 AAA550
112.
113 000552.
114 009554
?115 0051555
115 000.250
117 017.1171562
118
119 000554
120 000555
121 000570
122 000572
123 0.00574
124 RA9575
125
125
INDEWORD.FOR.READING AND.WRITING-CF REGISTERS-
INDEX:: .WORD. A
BCL.
BCL::
.WORD. 128.
.WORD. HUB.
.WORD. 0
.WORD. 0
.WORD. A
.WORD. HRL.
.WORD. A
.WORD. 0
.WORD. A
.BLKLI. 4
;BUFFERS ARE 128 WORDS.
;HIT.LIST.BUFFER.
;HRL.BUFFER.
;END OF BUFFER ADDRESSES
HUB::
HIT.LIST.AND HRL.BUFFERS.
.BLKW.
129.
HRL::
000001
.WORD.
HMHHH1
; = X .7 De El 1
021042.
.WORD.
021042.
071454
.WORD
031454
=X" 3334?
000401
.WORD?
0004511
000004
.WORD.
000004
;=X, 0004'
052525
.WORD.
052529
.:=X"5555"
053145
.WORD.
053145
51510402.
.WORD.
000402
511
AAAAA2-
.LURD.
0000A2.
;.--K7A002"
000007
.WORD.
5100007
:1-.X.70007"
104210
WORD.
104210
114531
.WORD.
1141531
000407
001402.
.WORD.
.WORD.
000407
001402.
.:=X'?0103"
.:=X0302"
000012.
.WORD
000012
135673
WORD.
175573
BEIBB"
145314
.WORD
145314
000401
.WORD
000401
14111000
.WORD-
140000
.BLKLL
128. -?. -HRL/2>
.LIST.
ElEX.
AL 1ST
CND.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
CP-? MACRO. M 110 27-MAR-60 14:40 PAGE ? 13
- Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
126.
129
130
131
132.
133
0511130
cp::
134
5101130
004757
HMHHHOG.
135
001134
117.1-1TIA-2
135
001135
004757
000000G
137
001142
000422
138
001144
022700
1100002
1$:
1.39
001150
01-11403
140
001152.
004767
01-11.-1000G
141
001155
AAA414
142
143
001150
01271-10
AAAA17.
144
001154
A12702
AAAAAA'
145
nAl17F:
17-104757
mmAAAOG
145
001.174
103003
147
00117G
004757
AAAARAG
148
001202.
000402
149
1.50
151
152
HH12m4
0851171
HOMMMH?
3$:
153
154
155
156
157
158
001210
159
001210
0127E7
050.103
AAAAAAr..
150
11111215
004757
000000G
161
001222
004767
mutlmmul,
152.001226
103003
153
1-1012.3n
004757
AARARAG
154
001234
000765
155
001236
022700
008002!
1$:
156
001242.
001403
lb(
001244
HH4Kfr.(
LILIUUUHL,
158
001250
8051757
159
170
001252
012700
000817,
2$:
171
17-10125E,
0127112
AO0AAW
172
001252
0I.14767
MHMHHHU
173
001266
103005
174
001270
042767
UULIULIUU,UOUOIJ15G-
175
001275
000167
HHHHHHI,
176
177
178
1(9
001302
0001K1
000000. ,
3$ ?
CP ROUTINES.
jSR. PC,FIND.
BCC. 1$
JSR. PC,ERR3
BR CPXX
CMP. *2,R0
BEO. 2$
jSR. PC,ERRS
BR CPXX
MOw-
MO'.,?
BCC.
JSR.
BR
*CPNUM,R0
*CPTBL,R2
PC,BCAN
3$
PC,ERR12
CP XX
;LOCATE.THE.COMMAND.IN-THE.COMMAND.LINE.
;OK, CONTINUE.
;COMMANDS.ORE.2.CHARS.
;TRY.AGAIN.
;RO = NUMBER OF COMMANDS
;R2 -> TABLE OF COMMAND MEMONICS _
;FIND.WITCH IN TABLE:
;COMMAND HOT IN*TAULE7'
;TRY.OGAIN
JUMP TO THE.ROUTINE.THAT.GOVERNS THE.COMMAND.
JMP. Ed(R
LOCAL CP LOOP: INCLUDE PROMPIT:E;DRilr. tAMMHND:
MO-,1JSR
JSR.
BCC.
J!=a.
BR
CMP.
BEO.
JSR.
BR
*PCP,GCMBLKA-G:DPRM1-2.;MOVE.CP.NAME TO.GCM BLOCK.
PC. GCONL'y'. ;PROMPT.
PC,FIND. ;LOCATE-THE.COMMAND IN
1$ ;OK, CONTINUE.
PC,ERR3
CPXX
*2,R0
2$
PC,ERRO
CPXX
*CPNUM,R0
..*CPTBL,R2
PC,SCAN
3$
*BREAK, BASE
COMXX.
;COMMANDS.ARE:2.0 A q.
; TRGA4 ?
*Ft.,
THE COMMAND.LINE.
;RO =.NUMBER.OF.COMMAND5.
;R2.-> TABLF.OF.COMMAND.MNEMONICS.
;FIHD-MATCH.IN.TABLE.
;OK, CONTINUE.
;CLEAR.BREAKPOINT.FLAG
;RETURN.T0.0MAIN: LOOK FOR-PROCESSOR.MIEMONIC:
JUMP.TO.THE.ROUTINE.THAT.GOVERNS THE. COMMAND.
JMP. Ca(R
.4 .4..f*W
Approved For Release 2005/07/1111A-RDP85-00514R000200020001-3
CP 11100 M1110 27-M1:1P-80 14:40 PAGE.9
Approved For Release 2005/07/1 IA-RDP85-00514R000200020001-3
181
182-
193
184
1R5
185
197
188
199
190
191
192
1972,
194
195
196
197 001305
198 0017.06 000207
***************
TEMPORARILT DELETED.
********w***********
LDPEG::
LOAD.A.CP.INTERHAL.REGISTER.
UPOH.ENTRY:
RO ?REGISTER.NUMBER.
THE.FIELD.?BIHWD CONTAINS.THE.91T.PATTERN T0-9E.LOADED.
RTS. PC.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001=3- -
f
'AAA,
CP
MACRO-111110 -27-MAR-80 14:40- PAGF...1A
Approved rtir Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
200
201
202.
21113
; ********************
204
TEMPORARILDELETED-
205
;
206
21717
21718
PRINT-CR-REGISTERS-
210
211
;
UPON -ENTRY:
212-
RO ?REGISTER-TO-BE-READ-
213
214
UPON-E)RG.
CALL.SUBROUTIHE.IN-CP.TO.READ.REGISTERS.
RG7::
0127514
1,11,11,11,1ML, '
MOV.
#2,R4
;PRINT IN 2 SETS OF 8 PEGS EACH
A05000
CLR.
RA
;REGISTER? INDICATOR
812705
80A880G,
1$:
MOV.
*PRIHT,R5
;RS ?> PRINT LINE
A12703
00A010-
MOV.
#8.,R3
;PRINT 8 PEGS OH A.;LINEI
2$:
CALL.
CALL.
REREG.
UHPK
;READ A CP REGISTE,R,,z,
;CONVERT TO ASC I,1:
005205
INC.
R5
;BUMP RRIN4PMETPOI4TER?
A05200
INC.
RO
;BUMP REG INDICATOR
00530
DEC.
P.7
8813711
BHE
CAL,
2$
COHSOL
:STAY OH CUPPEHLME
WRITE LINE TO
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
? -
CPBLIG1 MORO .11111r1 27-MAR-80 14: 41 PAGE ? 9-2.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115 000250 005304
116 8802e2. 801760
117 AAA264 A00167
118
119
12A
121
122-
123
124 888270
125 0011270
? 126 000274 103004
127 000276
12R.AAR7,A2- AAA1F,7 A.RAFICIAG.
129 080305
17.0 0007.12. 107004
131 000314
17;2-A00720 17.11-IFI167 MMMMMkIU-
133
134 AAA:324 AA5767
135 Ani.T.7.30 001004
136 01710.37i2
mmm..661.0 mumihK 1,11,11,1141,11-11,
13A 000342 016767 mi....mHmmu.177430 3$:
139 000350 000460
148
141
142
143
144
145
145
147
148
149
150
151
HHHHHHI,
16(
AAAAAAG.
DEC-- R4
BHE. 1$
JMP. CPXX
SINGLE-STEP.A.NUMBER.OF-TIMES-
CP>PC-4
PC2::
CALL.
BCC.
CALL-
JMP.
1$: CALL-
BCC.
CALL.
JMP.
2$: TST.
BHE
CALL
JMP
MOV
BR
01710752.
0007,32.
000356 103455
000360
152- 800154 11717804
153 AAA766
154 0[10.6(2 UNUlh(
155
15E, 00071,75 026767 Anni100G-00000017;.1
157 000404 003004
158 000406
1E19 000412 000167 0001100G-I
112;n
161
152-
153
164
165
166 000416 016767
167 000424
168 00047.0 103421
159 @00432-
170 000436 1.03004
171 000440
UHHHHHI,
? ?
FIND
1$
ERR4
CPXX
PACK
2$
ERRS
CPXX
BINWD
3$
ERRS.
CPXX
BINUD,SSCNT.
SSCLR.
SINGLE.STEP.
CP>SS.
CP>SS-6
CP>SS-5 2.
CALL
BCS
CALL
BCC.
CALL
JHP
CMP-
BGT.
CALL.
JMP.
FIND
SSCLR.
PACK
1$
ERRS_
CPXX
CSHIF4H1.BINWD-
2$
ERR 18
CPXX
;DO-SECOND SET-OF-B
;LOOK.FOR.COUNT-IN.COMMAND.LINE-
;OK, CONTINUE.
;COUNT.MISSING.
;CONVERT .COUNT.
;OK, CONTINUE.
;ERROR.ON-CONVERSION
;COUNT-0 2-
;HO,. CONTINUE.
;COUNT.MUST.BE.GT-0
;SAVE-COUNT.
;ENTER.SS.COMMAND.
;LOOK.FOR.START-ADDR IN-COMMOND-LINE-
;NONE.TNERE, USE-CURRENT-MAR.?.
;CONVERT-START-ADDRESS.
;OK, CONTINUE-
;ERROR.ON-CONYERSION
;IS-START-ADDRESS.IN RANGE.
;YES, CONTINUE-
;OUT.OF.RANGE.HIGH.
uu START.ADDRESS-FOUND AND CONVERTED NOW.LOOK.FOR.
COUNT.(NUMBER-OF-SINGLE-STEPS). EG, IN THE COMMAND:
CP>SS.6 2.
LOOK.FOR-THE
AAAAAAG .773,'15 2$: MO.2. BINWD,SSTRT-
CA_L- FIND
BCS. 5$
CALL. PACK
BCC. 3$
CALL- ERRS
- Approved For Release 2005/07/121101A-RDP85-00514R000200020001-3
;SAVE START ADDRESS
;LOOKFOR-COUNT IN COMMAND LINE-
01U-
;OK, CONTINUE4-
;ERROR.ON-CONVERSION
t
CPBUG1.110 MI 110 27-MAR-80 14Approved For3 Release 2005/07/1111A-RDP85-00514R000200020001-3
p.:41 PAGE.5
172.MMH444
UMUll')(
UHHHHHI,
173
174 Nuu4su
ous7b(
00000Ub
3$:
175 00171454
001004
176 1710045
1.77 TIAT142
ARA167
000A00G.
178 000466
016767
ULIUUULlb-,177304
4$:
179
180
181
182.
183
184
1P5 000474
015746
177302. .
$ :
186 000500
187 00A9A4
005045
lee RAA5A6
189
190
191
192-A00512.
012767
10010100 176422.
SSCLR;
193 000520
012746
A7A11A
3$:
194 000524
052716
000360
1.7:35 AAA57,0
052716
001001
196 A01057.4
012746
A7AAAA.
197 AAA540
198 000544
005046
199 000546
012746
07iFIOR1
200 000552-
201
202-
207.
204
2R5 FI115-5f;
AR501c7
176422_
206 000562
005767
177212
2A7 AAA5F.A
0A14u....j
20S A00570
005367
177204
209 000574
001346
210
.4$:
211 000575
?
MMHIh( HOumn1,-
JMP. CFN
TST.
ONE.
CALL.
MOV.
BINWD.
4$
ERRS
CPXX
BINWD,SSCNT.
;COUNT .=-0
;HO, CONTINUE.
;SAVECOUHT.
SEOUENCE.UP.TO.SINGLE-STEP.ADDRESS.(IF?NECESSARY)
SINGLE.CLOCK ALL.TO.EXECUTE.ONE.INSTRUCTION.
HO. SINGLE.STEP.CANNOT BE.USED.IN.SENDING.THE.
OCL.ADDRESS-TO.THE.CP:
MOV.
CALL.
CLR.
CALL.
SSTRT,-(SP)
SEQCS
-(SP)
CF CR
SET.UP.FOR.SINGLE.CLOCK.
MOV.
MOV.
BIS.
BIS.
MOV.
CALL.
CLR.
MOV.
CALL.
*OZSM,OR$CR2
qt,-(SP)
*,(SP)
*,(SP)
#0$CSP,-(SP)
CSR1
-(SP)
1,-(SP)
CSR1
;PROVIDE START ADDRESS-FOR SEQUENCER.
;SEQUENCE ONLY UP TO START ADDRESS
CLEAR CF CONTROL REG
;SET.SEARCH.MODE.
;CLEAR .PPS AND.CP.NO-CLOCKS.
;CLEAR-SELECT-BITS.
;CLEAR?DRIVE.AND.PULSE.
;SET.SINGLE.CLOCK.ALL.
;WRITE.CSR1
;CLEAR.NOTHIHG.
;SET.PPS.AND.CP.NO-CLOCKS.
;AND.RE-WRITE-CSR1
SINGLE.STEP.A.NUMBER.OF.TIMES.DEPENDING-UPON THE.
COUNT.IN.FIELD.'SSCFM.
CLR.
T8T.
BE
Q.
DEC.
ONE.
0(7.R2
SSCNT
A?.
SSCHT
SSCLR
CALL. CPMP
JM9. CPXX
;SET LOAD MODE?
;SS A NUMBER OF.TIMES.? - -
;HO, EXIT SS RTH
? -
;EXECUTENEXT.INST71,1CTI01.
;PR INT ? M I CF.!OPGM- ADDRESS
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
CPBUG4
214
215
215
217
218
MACRO. I11110 27-MAR-80 14:41 PAGE ? r7
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
PRINT-CP.MICROPROGRAM.ADDRESS.

219
APPIFIF;
CPMP:
ii
UUHL.MH
UY2(46
u11uu4
MOV.
#,-(SP)
;READ.CS.ADDRESS.SELECT.BIT:-A
221
."
000512
00011'-1
CALL.
CALL.
CPCR
CPLB
;WRITE.CP.CONTROL.REGISTER,"-?
;REQUEST.CP.TO.LOD.BUS-
223
00022
012601
MOV.
(SP)+,R1
;UHLORD.MPA.
224
00024
04271
17008
BIC.
*176000,R1
;CLEAR-UPPER.5 BITS.
225
22R
000530
00067.4
012705
00A0000.
MOV.
CALL.
#PRINT,RS
UNPK
;POINT.TO.PRINT.LINE
CONVERT MPG
227
000540
CALL.
CoHSoL.
;WRITE.TO.CONSOLE.
228
FIFIA44
005045
CLR.
;CLEAR.CP.CR.
225
000545
CALL.
cpu.
230
000552.
RETURN
231
000001
.END.
"4
Approved For Release 2005/07/10FIA-RDP85-00514R000200020001-3
CPBUG1 ? 1111110 ? MI 1 le
SYMBOL ? TAw?
ALLICKE-A4APIAP
1,4LUOE.-0A4APIA
27-MAP-80 14:41 PAGE.-1
Approved For Release 2005/07/1OCIA-RDP85-00514R000200020001-3
BYTE39=-AAPI347 BYTE90-no017,2-MMOE. ....UMMV11-14 0$MSET=.5100004
BYTE4 =.4Juum14 BYTE91-Ao017:2, MM1JRTE-000010 0$MP.-1AAAAA
AT2. uummm4Ku-
002.BYTE4O=-00AA5A
BYTE92-000134
MHOBRE-100000
0$HCLK-176000
A01 =.01.011An ?
BYTE41=-000051
BYTE93-0001725
MREH1 -000001
DOFF -5100100
BASE. =.****** GX.
BYTE42----non17152.
1YTE94-on013P.
MREH2.-020000
0$RPSW-000321.7.1
BINWD-=.****** GX.
BYTE47.=-PinnA5-.7,
BYTE95-5100137
MWH. -0110040
0$PP2.-000300
BITVAL=.fl00000
BYTE44.-AAAAP4
BYTE9S-OAA14A
H. -A00144
0$OHLT-00001
BITO =.00n0o1
BYTE45=.00A055
BYTE97=.0051141
0F2. 000112RG-
002 000L -0000.43
BIT). =.[IFIFIMPI,..
BYTE46=-000055
BYTE98-flon142-
PACK. =. ........*:*1< GX.
0$0L0.-00515153
BIT10 =.[IFL.MHM
BYTE47.=.000057
BYTEss-AA0147
PC?. 0PI027ARG.
5102.0$0LB.-000054
BIT11 =?AR4AFIA
BYTE4B-----offInsn
BYTVAL=.000144
PLB. -00001A
0$0LR.-000001
0IT12-=.1711AAAA
BYTE45-000061
OBALL=-0A1AAA
PLC. =.1,11,1HHeaU
OSOW -AAAA42
BIT13 -.HLHHHM
BYTES -.MMIMM9
CBKCLK-onn4nA
PLO. -.051007.11
0$ROCD-171011005
BIT14 --.A4AmOR
BYTE50--00A052-
CHOBRE-100500
PLRWR.-AAA2An
0$ROMD-05105105
BIT15 -.1APIAOPI
BYTE51-----000057.;
COHAOL=.****** GX.
PLR:EN-AAA2AA
0$REBK-AA1000
BIT2.
BYTE52-000064
CPCCEN-A1A0A0
PRIHT.-.****** GX.
0$RHC.-.AAFMAA
BITS -AnArlin
BYTE.,=.[.-Immmh9
CROP. -****** OX.
0R$CR1-17F.42171
cl$RR.c.=.171A4nnn
8IT4 =.HHHML-
BYTE54=.000065
CPLB. =.****** GX.
OR$CR2-176422.
o$RsET-AAAA1A
BITS =.0A0A4A
BYTE55=-0012067
CFMP- 0006o6R-
002.0R$LBR-176424
0$SM -101711711710
BITS =.00010e
BYTE56=-000070
CPREAD=.04000n
0$0TTH-000100
0$sP =.0AA12A
BIT? =.A0O20A
BYTE57=-0510071
CPLIRTE-o20floo
0$BCL.-A00AA1
o$sp2.-Finn72,4171
BITS- -Arlo4FIA
BYTE58=.0AnA72.
c ? = ? :4,-.:?+?::44:40+0i, OX.
0$000P-00051451
REREG.=.****** GX?
BITS =-OolO00
BYTE5S=.000077
CSADRD-000004
0$0HB--000400
RG0:EN=-000200
BREAK =-****** GX.
BYTES -000006
05E1I1:I=.1uuuuu
0$0HRL-0002051
RG0,V0.-1131-J1-iJc
BYILH =.HHHHUM
BYTE60=-000074
CSHIGH-****** OX?
0$0LR.-5100040
R02. 000216R0. -
BYTE1 =.uuuuu1
BYTES1=-A0on75
CSOE. =-000040
0$0510.-030000
SEOCs.=.****** GX-
BYTE1A=.0171oR12.
BYTEA2.-000075
CSR1 =-****** OX.
0$CP. -000060
SEO,CI-000010
BYTE11-000013
BYTE5:3-000077
CSURTE-oOO1O0
0$0PCC-000010
SSCLR. Ar.10512R-
BYTE12-000014
BYTE64=.0510100
DBR:RD-oriA0o1
0$0P2.-017151260
SFiCNT. OAAAAAR.
BYTE13-000015
BYTE65=-000101
DB$CPP=.0A1497
0$050--010000
!=;STRT. 000002R.
BYTE14=.00001A
BYTES6=-0051102-
DB$SPT=.001.1025
0$0SEL-0003f:.0
SS?. OP-1035251G:-
BYTE15=.000017
BYTE57=.000103
DB$TPC-.0A0023
0$0SET-000002.
Ei$CLR.-0510000
BYTE1A-mimm,m
BYTEPa--.AOA1A4
DisPG!=i-lonAnn
0$0--iP.-.1.120411.11.1
BOLA -.1141MMH1
BYTE 17=
BYTESs=.0oll1A5
DM00WR=.000005
000110 =5100001
8$08 -An001715?.....
BYTE1P-000022.
BiiEK
DMARHD-uutitiu3
0$EMBK=.040000
BOOR
BYTE19-000023
BYTE70=.000105
DMARWR=.0OBOO4
0$EHOP=.020000
S$OX
BYTE2-000002-
BYTE71-AAA1A7
ENBR. -010000
0$FAL-O04A0O
s$sR =.000AA7
BYTE2A-000024
BYTE72=-0001151
ERR 10 =.****** OX.
0$FC- =. 000045
5051 --zoaalo
BYTE21=-uumH25
BYTE73-000111
ERR4 =.****** 51
0$F0. -000044
5$52 -000014
BYTE22-uutiu,..s
BYTE74=-000112-
ERRS =.****** GX.
0$FP. =. 051515145
T0$0TR-176370
BYTE27--000027
BYTE75-05101172.
FIND. =.****** GX-
0$HBF.-0AAAn2.
T0$0TW=.176360
BYTE24--AAFIA7w1
BYTE76=-000114
LBCP. -****** GX.
0$ICP.-5151051516
TD$M=?1-.11:1417F1F.) _
BYTE29-000071
BYTE77=-51051115
LDREG.=-****** GX.
0$IHB.-UUUHU3
TO$MEM-00027.0:
BYTE25-000032.
BYTE7B=.0A01115
LOC:EH-1.'101711AF!
0$IHRL-OAAAA2.
TO$CAR-J76344
BYTE27-PIAAA
BYTE28-o00034
BYTE79----000117
BYTES =.0A1.1o1A
LOCWA-O4oRAPI
Loc,w8=-1AnAAA
0$IMRP-OAAAA7
0$LBD-On1AFIn
TE47171TR7:"MnIF.'",
BYTE2s=.11AAA7c.-
BYTES0=-AAO12A
LR2- 000175RG.
002.0$LBDP=.001001
T1155W.=.176,727E.
BYTE3 -000003
BYTE81=-000121
MAREH1-000001
0$LBP.=.0510001
176372
BYIE.61.1=.MHHH.,
BYTE31=-000037
BYTES2=.0o0122-
BYTE87.-000127.
mAREN2-AA4AAR
NARLop-AlonnA
0$LDCD-0005151%
0$LOMD-000004
TDSTAW=.17636-
TDSTDR=.17f;T;74
BYTE22-oRAP140
BYTE33-000041
BYTE94=-O00124
BYTE85-000125
MAROUT-0A0002.
NIHR:Lu=.uuLlu
0$LOPP-Hm2mvim
Q$LHP.-A1AA00
1.45i30.14=.1(5s514,
BYTE34=-000042.
BYTES6=.00o126
MAR:OU-A00A4A
osmmc.=.14nnnn
T$BA, :.-7c000002
BYTE35=--000043
BYTE87=.0Ao127
MBKALL-AA10AA
osmR. -AAAA52.
T$BD =. 000010
BYTE36-000044
BYTES8=.0001711
ME:KC:LK-000400
0$MRP.-000040
T$BSO.-100000
BYTE37=.000045
BYTE89-000131
MMADRO-000100
0$MRP2-000240
T$BT =. 00515120
BYTE70=-000046
BYTES =.A00011
MMLEhl-Um001.12.
0$MSC.-040000
T$BTAR=.0o0A?si
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020
c.F.BLIG1 ? MACRO. 11E3
S'alBOL ? THBLE ?
27-MAR-8n 14:41 PAG.E?
Approvea Forilelease 2005/07/12 :
CIA-RDP85-00514R000200020001-3
T$BTD.=-17117120n0
It-jL.62=.[Imilt1H1
WORD27-ACIAAF;F,
WORD52-000150
WORD7R=.000234
TSCD. =-171AA1AA
T$SEG7=-5100002
wnRD2R-6100070
WORD97.-000152.
WORD73-00027.5
T$S0- -0000611
WORD29-800072.
WORD54=.000154
WORD8 = . 000020
T$DISK=.0110200
T$DRD-ARAnn4
TS1JBUR=.1A0000
T$1CLK=.1710514013
WORDS =? 000005
WORD7.0-000074
WORD55=.000155
WORD56=.00010
WORN:0=-000240
WORD81=.000242
T$E1EM=.0121000
T$FSAA-milmimm
I$FsHs-HHHHH4
T$86EN-AA0020
UBD:IH-HHHHLI-1
UMPK. =.****** GX.
WORD7.1.-6100075
WORD32-000100
WORD33=.000102.
WORD57=.000152.
WORD8=.0001E4
WORD59-0001545
W0RD82=.000244_.
WORD83-000246
WORN:4-000250
-FF50C=.0017.1014
WORD0 =. 000003
WORD74-000104
WORDS =.000014
WORN:5=-000252
T$FSB2-000010
WORD1 =' 0051002
WARD35=.000117.15
WORD571-0510170
WnRDR5=.000254
TSIB. --uum12h
WORD11j-AR1A24
WORD7.5=.000110
1JORD61=-000172.
W00087= 000255,
TIBAR-uu0u24
WORD11-AAAn26
WORD37-000117.
WORD67.2=-000174
WORDAR=.0AA2f7.0,1
T$IBE-A2AnAn
WORD12-AAAA7-1A
WORD7R-080114
WORD3=.171001717.
WO.R.DAPi= AA0262.,
TSIBF.=.041100
LuRD13-0005172.
WORD7.9-51510115
WORD5L4=.000200
WORDS =-000022
T$ICD-00004A
WORD14-ARA034
WORD4 -000010
WuHD5b-UULT2H2.
WORD90=.000264
T$MODE=.004000
=.0000.31,7;
WORD 15=
WORD1S-AA0040
WORD40-000120
WORD41=,000122.
WORDS6=.000204
WORDP,7=.000705
WORDS1= 00025-5
WORD92= 000270
T$OBE.=.004AAR
WORD17-000042.
WORD42-000124
WOR&R=-0051211.71
WORDP3= 000272
T$OBF-AlAAAA
WORD 18=
WORD43=-000175
WORD69=.000212.
WORD94= 000274
Tt0BRA=.000034
J3=, 000045
W0RD44-000170
WORD? -A0AA16
WORD95= . 000276 .
T$OBWEII-0130037
WORD2-=-000004
WORD45=.000172.2.
WORD70=.000214
WORD95=-000300
T$OUTA=.1AAPIAA
WORD2A-nAAA5n
WORD45-000134
WORD71=-000216
WORD97-000302
T$RBDO=.0AA2AA
WORD21=:AAAA52-
WORD47-6100135
wuRD(2-uu6221-1
WORD90-000304
TIJRNS-A0171040
WORD22-000054
WORD46-000140
WORD73-u51uZL.
WORD9S=.017103AIL-,
T$RSET=.04AAAA
WORD23=.017106155
WORD49-000142.
W0RD74-m51m4
URINAL-1710031U,
T$SC. --uuuuzz
WORD24=-500050
WORDS =.1100012.
WORD75,=.000775
XTREAD-00101.710
T$SOLK-H2uHmm
WORD29-000062.
WORD50-AU0144
WORD76-000230
XTURTE=.000400
T$SSG1=.00AAA0
WORD265-'000054
WORD51=-000145
WORD77-000232.
ABS: AAAAAA 000
000000 poi
cPeuGi 000554
ERRORS DETECTED 0
VIRTUAL MEMORY -USED: 3220 WORDS. (.13 PAGES)
DYNAMIC MEMORY 3860 WORDS. ( 14 PAGES)
ELAPSED.TIME: 00:00:44
LPEUGCPBUG1.,5P-E20,1]IME20,17CPBUGI
Approved For Release 2005/07/111,1A-RDP85-00514R000200020001-3
CPBUG2. MACRO.M1110
2.HH0uum
27-MAR-80
14:42. PAGES
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
.TITLE-GRBUG2.
.PSECT.CPBUG2.
3
4
HARDWARE-OUERY.RESOLVER.'MANUAL DEBUGGING AIDS.
7
CONTROL.PROCESSOR.TEST ROUTINES.
w ?
******* PROTOTYRE.VERSION. *******
8
9
COMMANDS:
10
GO PROCEED.FROM.BREAKPOINT.
ii
FR FREE RUN. -
12.
13
14
********************
15
DISCLAIMER:
17
IN PIER FAR THE.BREAKPOINT.ROUTINES.TO-WORK-PROPERLY.
18
THERE.MUST.BE.A.'PIPELINE.REGISTER.ONLV CL,01:414,-44,01-S-r? '
-"
19
; WOULD.ALLOW.THE.CHANGING.OF.PLR.CONTENTS.WITHOUT.CAUSING.
20
? AN INSTRUCTION.TO.BE.EXECUTED, A5.IT.STANDS-NOW, THE PIPE-
21
LINE.REGISTER.CLOCK-I8 TIED.TO.THE.SEOUENCER.CLOCK. WHEN-,
22
A.BREAKPOINT HAS.BEEH.REACHED., ANY.OPERATION.INVOLVING.
23
; A.PLR.CLOCK.(EG, PRINTING.NICROPGM.MEMORY) WILL .EXECUTE.,
24
; THE.INSTRUCTION.IN.THE PLR, THE .2900 5EOUENCER.STACKTI
25
ALSO.SOMETIMES.CHANGED.
7f;
27
-*********
; **********129
2171
30
.MCALL. WTSESS,CLEF$S,WTLO$S,RDAF$S.
31
72
77
.HLIST. PEX.
34
000000
115
122
120
MRPMSG: .ASCIZ. .MRF BREAKPOINT/-
75
000A17
110
111
!
124
HBMSG: .ASCIE. /HIT LIST .INTERRUPT/.
76
000042-
110
122
114
HRLMSG; HSL 12 /HPL INTERRUPT/.
77
17100060
104
115
?
101
DMAMSG; ASC 12 /DMA INTERRUPT/.
7R
000076
125
116
?
111
UHMSG; .ASCII? /UNIDENTIFIED.IHTERRUPT,
79
.EVEN.
4.0
HL 1ST CND.
? Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
?
CPBUG2 11110 M1110 27-MAP-80 14:42 PAGE.6
Approved For Release 2005/07/11,1A-RDP85-00514R000200620001-3
42.
43
44
45
46
47
49
49
50
51
52
?100136
54
54 000135
55 000142.
56 000144
57 000150
58 000152.
59 00A155
50
61 017491E,2.
52.000170
53 000172.
b4 M111.11(b
65
55
F,7
59
70
71
72.
73 AAA21.'12
74 Hmm.,mh
75 Aff.121A
75 000214
77 000216
78 1.11.1[1.
79 AAA224
RA 000230
81 AAA27,4
82 000242
A7, AAA2415
84
R5
95
R7
89 000252-
clA 800252.
91 00075A
92.
94
95
'_716 Utili2bb 1112(41', HUIJUU4
AAA272.
98 008275
DEBUGGING ROUTINES.
PROCEED.
G02::
THE GO COMMAND.RUNS.THECP.MICROCODE.OHLY.
TO RUN.BOTN.CP.AHD.MRP USE."FW'
EG. FR>Go.
CP>G0.22
CALL FIND ;LOOK,FOR.START.ADDRESS.
103443
BCS.
CGO.
;NONE, GO.FROM.PRESEHT.ADDRESS
CALL.
PACK
;CONVERT-START.ADDRESS.
1031111.4
BCC
1$
;OK, CONTINUE.
CALL.
ERRS.
;ERROR.ON?rONvERS.4041- 77.
0A0157
000000G.
JMP.
CPXX
t712757
A1AAAAG.A0AAAAG.is:
CMP.
CSHIGH.,BINWD.
;IS-START.ADDRESS.IN RANGE.
003004
BC T?
CALL.
2$
ERR 10
;YER, CONTINUE-
;OUT.OF.RANGE.HIGH.
UMM15(
Umvimmmb,
JMP.
CPXX
IF THE ? COMMAND- IS:
CP>GO? 0
THEN. SCAN ? THE ? COMMAND. LINE ? FURTHER ? FOR ? aHLet,
_ _
F DLI
T- HE ? "H MEANS NOT ? TO ERASE ? THE...ILL El ' MO.
BE LOOKED AT.
A1157-E.7
ARAAAAG.
2$:
TST. BINWD.
;GO FROM ZERO
801015
BNE. 4$
;NO, CONTINUE
CALL. FIND
;LOOK FOR 'IT? IN COMMAND.LINE
103412.
BCS. 4$
;NOT THERE, ERASE OLB
122711
000115
CMPB. #-?N,(R1)
;MAKE SURE IT IS AN
001404
BEO. 3$
;OK, CONTINUE
CAL ERR 12
00A157
000000G.'
JMP. CPXX
;BAD COMMAND
0527E,7
mmAAmmu.21000014-3$:
BIS. *NEOLB,BWSE.
;SET FLAG EDE4:NO OLB;AVASE. .
015745
AnAAAAG.
4$:
NOv. BINWD,-(SP)
CALL. SEOCS.
;PROVIDE sTnkT AVDRESS. FOR SEQUENCER.
iSEZEtE,.-ONLY UP TO ST'ART ADDRESS
?
?
SET.UP.TO.FIELD.INTERRUPTS.
, 'OPERATIONAL INTERRUPTS ARE HIT BUFFER:INTFRRIIPTS, HP.1
INTERRUPTS, AND.DMA.INTERRUPTS:
CGO:
01275.7
APIAFAA
176422.
MOV. o,OR$CR2.;CLEAR.OPERATIONAL.INTERRUPTS-.--
012767
AF.11A0A
175422.
MOV. *0$REBK,ORSCR2 RE-ARM INTERRUPTS
READ ? M I CF.!OPGM- ADDRESS TO . SEE ? WHERE ? SEQUENCER.. ?
IS CURRENTLY SITTING?
?.1
MOV? #CSADRD,-(SP)
CALL- CPCR ;ENABLE .CS ADDRESS.- ALSO-REINHIBIT.BR.
, CALL. CPLB ;REOUEST.CF.TO.L0D-BUS-
Approved For Release 2005/07/12 : CIA-RDP85-00514R00020002 "
?
tit-1 -
CPBUG2 MACRO M1110 27-1HP-90 1442 NGE
Approved For Kelease 2005/07/12 : CIA-RDP85-00514R000200020001-3
99 000302. 005045
inn 000304
101 000710 012601
102.000712. 042701 175000 -
107
104
105
11215 AAA715 009701
107 000720 001011
108 00072:27..
109
110 0171A32F, 012700 000000G-
111 01710772 016702. 0000000-
112.000776 00502171
113 01710340 00531712.
114 AAA.342. AA1375
115
116
11?
lie
119
120 000344 032(6( mmuimm6.111-100m116.10$:
121 000352. 001075
122.000754 012757 1.20000 176422.
123 000767: 012746 00072,(-70
124 000756 552716 551551
125 000772. 052715 036000
126 AA0775 005045
127 000400
129
129
130
131
132-000404 1711715701
133 000406 001026
134 000410 012767
135 000416 012767
136 5513424 015(01
13? 00047,0 032701
138 171171171474
17.9
140 0004705 012757
141 000444 012767
142-00171452. 016701
147 000455 072701
144 005462. 551777
145
146
147
148
149
150
151 000454
152.
153 000476
154 000502.
155 000506
OCR.
CALL
MOV.
BIC.
-(SP)
CPCR
(SP)+mR1
*17601.10,R1
CCEAR.THE.CONTROL.REGISTER-
;CP-WORD.RETURNEDAN STACK.
;CLEAR.UNUSED-BITS.
IF GO.FROM.ZERO, INITIALIZE-PPS.AHD.CLEAR.HIT.BUFFER
TST.
BNE.
CALL.
MOV.
MOV.
2P$: CLR.
DEC.
BN E.
;
?
001373
AnnAP1
120100
176422
13115 1135
176424
176422-
11$:
1j000001,1(E.424
120040 '176422.
176422 12$:
00017140
1$:
R1
10$
PPINIT-
*HLB,R0
BCL,R2.
(RFD+
R.2
20$
;START.FROM-ZERO-
;NO, CONTINUE.
;DO .IT.
;POINT.TO-HIT-BUFFER
; LOAD NUMBER . OF . LORDS . IN H IT:DUFFER
;CLEAR-HIT LIST
IF A ? BREAK:PO If-IT ? IS ? IN EFFECTA BRANCH ? TA ? COIL THAT ? PREELAPFS..?.:_ '
TO FIELD. A ? BREAKPOINT? INTERRUPT: ELSE ? START ? FREE ? RUN
biITHOUT? BREAKPO I NTS
Si
BNE
MOv
MO''
B IS
B IS
CLR
CALL
05J5EAK4BASE
CBK
-14-
*,-(SP
*,(0$LBD+O$LBP>
#-(O$CNCA-O$RHC>
-(SP)
CSR1
- ?
;PROCEED.FROM.BREAKPoINT.
;YES, SET.UP.FOR.BREAKPOINT.-
;EHABLE-OPERATIONAL.IHTERRUPTS
;CLR.SELECT.BITS.
;CLEAR.DRIVE-AND.PULSE.
;CLEAR .PPS AHD-CP.NO-CLOCKS-.
;SET.HOTHING.
;RE-WRITE.CSR1
IF STARTING.FROM.ZERO, SEND-THE-BCL-ADDRESS-OVER.T0-
TNE.CP:
TST.
ONE
MOV.
MOV.
MOV.
BIT.
ONE
R1
1$
#O$BCL,OR$LBR.
#,
OR$CR2,R1
#O$ATTH,RI
11$
Mn"-" #E1CL,OR$LBR
MOV. 4I.(O$CCCP+O$SM-1-0$ENOP>,
OR$CR2,R1
BIT #0$CCCP,R1
BHE 12$
;START.FROM.ZER0.7.
;WORD-NOT.ZERO-
;SET.ATTH.CODE-1
OR$CR2.;SET.ATTH.CODE.READY
;READ?CSR2
;IS.ATTN.BIT.CLEAR-
;NO, LOOP.UHTIL-IT.IS.
;MOVE.BCL.ADDR.TO-LOD-BUS.REG.
OR$CR2.;SET.CC-TO.CP.SLAVE-DATA.READY-
;READ CSR2
;IS-CC.TO.CP.CLEAR.
;NO, LOOP.UNTIL.IT.IS.
PROVIDE,FOR.INTERRUPT.FROM.TERMINAL.TO.RETURH.CONTROL.
TO USER.(IN.CASE.MICROCODE.NAHOS UP.OR.RUHS.FPRFVER),
CALL.SUBROUTINE.THAT.WAITS.FOR.INTERRUPTS.THEH.DECODES
THEM,
CLEF$S *EFH.4
;CLEAR 010 EVEHT.FLAG.
?
77.s.'71F7 ,-T.1,77,4;;,,, ?
CALL. HANG2- ; I SSU EAr erlrferMirMfAVYr%"
CALL. LII NT ;WAIT.FOR.EVENTS.?
'," .3k
CALL- KILL ILL 11111
? Approved For Release 2005/07/12101A-RDP85-00514R000200020001-3
4' ? ;v., r ? ???-t t 1 ? ?
14
CPBUG2. le MI110 27-MAR-90 :42. PAGE._6-2.
Approved For Release 2005/07/1I/IA-RDP85-00514R000200020001-3
156
157
158
159 000512 005046
150 000514 012745 056000
i6i 0110520
162-000524 w05046
163 000525
164 000552 005067 175422
165 000536
lbb mmyr-142 mmmihr mmmmmmt,.
167
168
169
170
171 000546
172.000546
173
174 00056A
175
176
1.77
179
179
CBK:
190 AAA572.
012746
001000
181 000576
182.000502.
A12767
110000:
176422.
193 000610
012746
000360-
184 000614
052716
001001'
185 000620
052716
036000
185 000524
AA50.46
187 000626
188
199
190
191
192 000652-
nA9701
133 000634
001026
134 000656
012757
800001
176424
195 000644
012757
120100
17E422.
1q5 AA8552.
016701
176422
11$:
197 000656
032701
000100'
198 A00662.
001777
199
UUUbb4
012017
MMIIMMMU-1(b424
201 000672 ?
012757
'120040
175422.
202.000700
016701
175422
203 000704
072701
000040
204 000710
001373
205
206
207
208
209
210
211 000712.
1$:
212.000715
TURH.OFF.CLOCKS, SET.LOAD-MODE,
CLR.
MOV.
CALL.
[:LR.
CALL
CL R.
CALL
JMP.
-(SP)
4o -(SP)
CSRI
-(SP)
cPrR
OR$CR2.
CPMP
CPXX
EXPECT.TO.HIT A-BREAKPOIHT,
CLEF$S. *EFN.3
CLEF$S. *EFN.4
SET.BKPT.ALLOW.BIT-IN.CP
SET.SEARCH.MODE.
SET.FREE.RUH CLOCK.
PRINT-MICROPGM.ADDRESS.
CLEAR NOTHING
ISET-PPS.AND.CP Mu-CLOCKS;WRITECSR 1
;SET.CP.CONTROL.REG TO ZERO.
;DO .IT.
;SET LOAD MODE
;PRIHT.MICROPGM ADDRESS.
;CLEAR.BREAKPOINT.EVENT.FLAG-
;CLEAR.OIO EVENT FLAG
CONTROL REG.
MOV. *CBKALLOW.,-(SP) ;SET.CP.COHTROL.BIT.
CPCR ;WRITE.CP.CONTROL.WORD.
*,OR$CR2- ;SET.SEARCH.MODE.
*,-(SP) ;CLR.SELECT.BITS.
MO v.
MOV.
BIS.
BIS.
CLR-
LALL.
*,(SP)
*.?(SP)
-(SP)
CSRI
;CLEAR DRIVE AND PULSE
;CLEAR PPS AND CP NO-CLOCKSv
;SET NOTHING
;RE-WRITE CSRI
IF STARTING.FROM.ZERO, SEND.THE.BCL.ADDRESS.OVER.TO.
THE CF
TST. RI ;START.FROM.ZER0.?.
BNE. 1$ ;WORD.NOT.ZERO.
MOV. *0$8CL,OR$LBR. ;SET.ATTN.CODE-=.1
MOV. *,OR$CR2.;SET.ATTN.CODE READY
MCV. OR$CR2,R1 ;READ.CSR2
BIT. #0$ATTH.,R1 ;IS.ATTH.BIT.CLEAR.
BHE. 11$ ;NO, LOOP.UNTIL.IT.IS.
MOV. *BCL,OR$LBR
NOV o,OR$CR2
499 AA21A4 012767 FIMMHHHIA.M11111,11.21.3.
500 002112 012700 000042? = BCL+1A
*HRL,.
oHRLMSG,R0
501 002115 A0A411 BR
5112. ; PMSG
507 CHECK-FOR-DMA-INTERRUPT-
504 NB. DMA.USES HIT-BUFFER-INTERRUPT REOUEST FROM CP.
(EEE.CP.MIOROCODE).
51.-.5-7,
507 0R2120 122767 111-1VIMM1 AAAAmmu-7,$: CMPB. *O$DMA,APLACE- ;DMA- 2
508 002126 001030 BNE- UN ID
503 0A215A A12757 1004AA 175422. *,OR$CR2- ;CLEAR .DMA INTERRUPT JSING-HIT DUE -FLAG)
;HRL-INTERRUPT
;NO, TRY-NEXT.
;CLEAR-HRL INTERRUPT
;PUT-BUFFER-ADDRESS BACK-IN BCL.
;POINT-TO-HRL-MESSAGE.
510 002175 012700 OFIAA5
512. tET.MESSAGE: CLEAR INTERRUPT -FLAG: WAIT-FOR.NEXT.INTERRUPT:
W *DMAM5G,R0 ;POINT.TO-DMA-MESSRGE
511
513 ?
514 002142- 012705 mulmmUb. PMSG:- NOV- *PRINT,R5 .--!--rryirprfrrm.:.-r rfFir-774'
515 002146 112025 3$: MOVB (R0)+,(R5)+
516 002150 0011375BNE. 3$
III Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
CPBUG2. 11110.M1110 27 -MAR -80 14 'ApAi2pru"vic9 .r'Ri5r2 Release 2005/07/1410CIA-RDP85-00514R000200020001-3
517.
002152.
CALL. COHSOL. ;WRITE.MESSAGETO.TERMINAL.
51S
515
002155
CLEF$S. *EFH.3 ;CLEAR?NOR INTERRUPT.EVENTFLAG.
520
521
002170
012767
101000 176422.
#ST-0 CR.
ST2::
.PARSE.TNE.'0'
LHLL FIND
;FIND.OPERAND.IN-COMMAND.LINE.
103004
Bcc. 1$
CONTINUE.
CA'LL ERR4
;NOTHING.THERE-
000167
000636.
JMP ST2X
;RETUR.H.TO TOP.OF.LOOP.(r7ROFIPT)
1$:
CALL PACK
;CONVERT.VALUE.IN.COMMAND.LINE TO BINARY
103004
BCC: 2$
CALL ERR5
000157
000620
JMP ST2X
CONTINUE.PARSING.
FIND.THE.REGISTER.MNEMONIC
COMMAND.LINE.
2$:
CALL. FIND
;LOCATE.A.NON-BLANK.
103004
BCC. 3$
CALL. ERR4
000157
000602.
JMR-ST2X
MMMHOM
$
4Z:
ST2IN:
MATCN.TNE.MNEMONIC.FROM.TNE.COMMAND.LINE.AGAINST-TNE
TABLE.OF.VALID.MNEMONICS:
MOV
CALL
BCC
CALL
JMP
*ST2LN,R0
#ST2TBL,R2.
SCAH
4$
ERRS
ST2X
;NUMBER.OF TABLE
;R2.-> TABLE.
WATCN.AGAINST
;OK, CONTINUE.
COMMAND.LINE.
SAVE.TNE.POINTER-TO.TNE.ROUTIHE.ASSOCIATED WITH.TAE.
REGISTER, R1 -> ROUTINE. ADDRESS,
CHILL ROUTINE TO.SCAN.COMMAND-LINE.FOR.LOOP INDICATOR.
EG. CP>5T.0 CR.L.
LOOP.FLAG.WILL.BE.SET.IF.INDICATOR.IS-PRESENT:
JUMP.TO.ROUTINE.TO.LOAD.REGISTER.
MDI
CAL,.
MU..?
JMP
R1,RTHPT.
LOOPR.
RTHPT,R1
cd(RI)
;SAVE POINTER TO.,1441,.
;LOOP? _
;POINT T
;EXECUTE:AbUTNE
CP CONTROL PEG
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020 Q1-3
CPREST- MACRO.M1110
172.000400
173 000400
174 000404
175 000410
175
i77
178
179 000414
180 000414
181 000420
182-0004z4
183 000430
184 000434
185
186
187
188
189
190
151
192.
193
194
135
195
197
158
199
200
201
202
203
204
205
206
207
208
209 0071571.1
210 000530
211 000534
212.1-IA054A
213 000544
214 AAARL-1A
215 000552
216 0171171991,
217
218
219
220
221
000440
000440
009444
AAA45A
000454
AAA,47,171
000454
0171047A
ARA474
AAA5AA
AAA9A4
000510
000512
000515
RAA92n
000524
224
225
226
228
27-MAR--SO 14:44 PAGE 5-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
016746 0000000-
000157 000504 ?
012746 998400
015745 HHHHHUU-
000157 0017146171
012745 01.102
012745 010000
012745 000001
016746 01.200001,:
012745 000230
005046
005845
000157 000370
012746 000200.
015745
005046
000157 0007.1716 ?
kIHMMMM.
012746 000210
016746 AAAA0AG.
005045
ST2CRJ:
ST2BK
MO'V.
CALL.
JMP.
BINWD,-(SP)
CPCR
ST2LP.
BREAKPOINT-REG.
CALL-
MO'.'
CALL.
RT.
*CBKCLKENfi-(SP)
CR CR
BINWD-(SP)
LB CP
ST2LP.
, pr
;MOVE-DATA TO.LOD?BUS.REG-
;DIRECT-CNTL.WORD.TO CR-
TEST-LOOP FLAG.
;SET?CP.CNTL.FOR-BREAKPOINT.
;DIRECT.CNTL.WORD.TO CP.
;LOAD-DATA WORD. INTO LOAD S119-REG..
;SET.BCE.CNTL.WORD.
;TEST-LOOP FLAG.
MEMORY ADDRESS.REG.
ST2MA::
MW.1'? *,-(SP)
CALL. CR CR
;DIRECT-it:NI-CT-MR-1Y Ti: CP.
MOV?
CAI L?
*KMARLOD>,-(SP)
LB CR
;SEND-MAR-LOD-BIT,
;SEND.DATA
NS?
MOV
#, -(SP)
; SET ? AND ? AIESO ?
NS.
CALL .
CP CR
;CLEAPLR7D.EjjABLE..RITS
HS.
MOV?
BINWD,-(SP)
WIORD ? TO. LOD? BUS ? REG
UALL.
LB CF
TO.CP?y(MAR)
MOV.
#,-(SP)
CALL-
Li-' L:
;DIRECT.CNTL.WORD.TO CP CR.
NS.
CL R.
-(SP)
;CLEAR.PLR-D-BITS.
NS.
CALL.
LB CR
;SEND.DATA TO.CP-
NS:
CLR?
-(SP)
;CLEAR.CP.CR.BITS.
NS.
CALL.
CPCR
DIRECT.CNTL.WORD.TO.CP.CR.
NS.
JMP.
ST2LP
ST2PA::
CP PIPELINE-REG-SECTION-A
NOTE:
HOY
CALL.
MOV
CALL
CLR
CHLL
JMP-
IF.CSR.#2.IS.SET.UP.FOR.SEARCH.MODE.FOR
4 PIPELINE-ROUTINES-WILL NOTWORK. !!!!
*PLRWR,-(SP)
CPCR
BINWD -(SP)
LBCP
-(SP)
CPCR
ST2LP.
CP PIPELINE-REG
CAUTION: DO. NOT
UP THE.BU8.
ALSO-DO.NOT-USE
MOV
CALL-
CALL-
ANY.REASON, THESE.
;DIRECT.CNTL.WORD.TO CP.
;MOVE.DATA WORD.TO.LOD.BUS.REG
;SEND-DATA TO-CP.
; CLEAR-THE-CONTROL-REGISTER. NS.:
;TEST-FOR-REPEAT.
SECTION.B.
SET.BIT.14 DURING-THIS-TEST: IT WILL LOCK.
XXXI, X ':x2, XXX5, XXX7, OR '
#,-(SP)
CPCR
BINWDfi-(SP)
LB CF
;MOVE-DATA IOPD.
;SEND.DATA TO?CP.-
CLR.
Approved For Release 2005/0//1.1A-RDP85-00514k00200020001-3
LdD
,
CPREST- 9100 M1110 27-MAR-80 14:44 PAGE-5-4
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
229 000604
23171 000610 000157 00030.4
231
2q2.
.-J77
.7174
416J
97,f;
000614
7 000614 012745 000220
238 000020
2139 00A624 015745
240 01710171
241 800554 005045
242.000636
243 000642. 000157 000252
244
245
246
247
246
4q
250
251
252
2 Si
254
255
256
258
259
200
261
252
263
254
205
266
257
200
.7,6A
270
271
772
AAA7AA
AAA7AA
.000704
AAATin
00A714
0007-20
000724
000730
ARIA7-2.7.
1711711717
273
274
276
277
278
279
260
281
767.
20
285
000742
000742
000746
000752
00A755
000762
0nA766
nn0772
n[70774
001000
012746 000230
015745 UUMMIM-
005045
000157 000220
012745 OAA21A
012745 008005
315745 HUUMMIL,
0050415
000150
012(45 0002101
012745 0000104
015745 00010000.
005045
000167 000114
ST2PC::
ST2PD::
ST2DA;:
ST2DD::
GALL. CPuR
JMP. ST2LP.
CP PIPELIMEREG
CAUTION DO .NOT
UP THE Bus
NOV
CALL.
MOV.
CALL.
CLR.
CALL-
JMP.
CLEAR-THE.CONTROL REGISTER. HS.
;TEST.FOR.REPEAT.
SECTION .C.
SET.BIT.14 DURING.THIS.TESTL IT .WILL LOCK,
o,-(SP)
CPCR
BINUD,-(SP)
LB CP
-(SP)
CPCR
ST2LP.
CP PIPELINE.REG.SECTION.D.
CAUTION; DO.NOT.SET.BIT.11
UP THE.BUS.
MOV-
CALL.
MEW-
CALL.
CL R.
CALL.
JMP.
o,-(SP)
CP CR
BIHWD,-(SP)
LBCP
-(SP)
CP CR
ST2LP.
WRITE-DMA.ADDRESS REGISTER.
MOV
CALL
NOV.
CALL
MOV
CALL
CLR
CALL
JMP
*,-(SP)
CF CR
41.,DMAAWRH,-(5P)
LBCP
BIHWD,-(SP)
LBCP
-(5P)
CP17P
ST2LP.
LPITE.DMA.DATA.REGISTER.
MOV
CA: L
MOV
CAL
MOV
CALL
CLR
CALL
JMP
#,-(SP)
CPCR
*DMARURH,-(SP)
LBCP
BIHWD,-(SP)
LBCP
-(SP)
CPCR
ST2LP.
LOAD CP. REGISTERS
;DIRECT.CNTL.WORD.TO CP.
;MOVE.DATA WORD.TO.LOD.BUS.REG
;SEND.DATA TO.CP.
CLEAR.THE.CONTROL.REGITER7: HS.
;TEST-FOR.REPEAT.
DURING THIS .TEST: IT WILL LOCK-
;DIRECT.CNTL-WORD.TO CP.
MOVE DATA WORD.TO.LOD.BUR.REG
;SEND.DATA TO.CP.
415.
CLEAR.THE.CONTROL.REGI5TER.
;SET.UP.PLR.B. IO
;SET.VALUE FOR.CONTROL.WURaA,
;SEND .WORD TO CF
;SET .VALUE FOR.DMA.REG.
;TRANSFER.TO.CP.
;CLEAR?CP.CONTROL.REG.
;SET-UP.PLR.B.
;SET.VALUE FOR.CONTROL.WORD.
;SEHD.WORD TO CP
SET VALUE FOR.DMA:kEG,-
;TRANSFER.TO.CP..
;CLEAR.CP.0
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020Q01-3
CPREST- 111:1C P0
266 001004
297 0111010
Hi jin 27-MAP-80 14:44 P121GE 5-5
Approved For-Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
0052137 0000005- ST2RF:: INC INDEX.
0052137 AAAAAAG ST2RE:: INC INDEX
-1:j0Uului4
'-i1L15216K
1:3000001z.
ST2RD::
INC
INDEX.
289 11011712171
17105257
00000515
ST2R1::::
INC
INDEX.
:951 [1 VI 1024
1111h 2f-, (
114.1MHPIFiLl
ST2RE1::
INC
INDEX.
291 001030
1105257
510000515G
ST2RA::
INC
INDEX.
z.001034
005267
0000005
ST2R9::
INC
INDEX-
793 01711040
A nti2F,7
000A AAG
5T2R8::
INC
INDEX-
294 515115144
51115T
HHHHHHU
STNDEX2R7::
INCINC.
295 00117150
13052571305257
005 51515:
ST2R6::
INC
INDEX
296 NU1054
005267
00000AG.
ST2R5::
INC
INDEX
297 0010130
0115257
00000515
5T2R4::
INC
INDEX
001064
An52F.7
AnnnnnG
2R3::
INC
INDEX.
299 n01171711
00521'7.7
000000G.
012R2::
INC
INDEX
300 1111 1N(4
005267
000000G
ST2R1::
INC
INDEX.
301 001100
ST2Rn::
3112.
;
A1111110
U160311
MMMVIMMU
MOH.
INDEX,,R0
;PREPARE.TO.DALL-SrdEPiTi=?'
304 001104
CNLL
LDREG
;LOAD .REGISTER.
jOb 51511110510.50
457
1,91MMIN U
CLR
INDEX.
305 001114
000157
ARARAA
RIP
ST2LP
307
?
,
SAR
:
309
310 531120
ST2LP:
?i ll NN1120
312 001126
11.327h(
An1402-
ANNNANU.NNAUNNU.
-F"
ill-T
#LOOP..,BASE.
ST2X
;REPEAT .7.
NO
3 nn1130
000167
177234
9T2iN
314
,
315 0111134
ST2X:
316 001134
11
317 1111411
A01711137
000000G
!CZ:.
KILL
CPX:X
;KILL.AST.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
CPREST- 11110 M1110 27-1AR-90 14:44 PAGE 6
Approved For Release 2005/07/1WIA-RDP85-00514R000200020001-3
319
320
321
323
324
325
327
?
328.001144 RE2::
329 001144
330 001150
103004
331 001152
332 001155
01101E7
000C2,45
72,7
334
;
335
338
337 001162
339 001155
012700
012702
000023
00014.4.?
1$:
339 001172
340 001178
107004
341 001200
342 11A1204
000187
000320 -
343
344
345
346
347
;
348
349
350
351 001210
010167
ORAAAOG.
2$:
352 001214
353 001220
016701
AHMMMI-11,'
RE2IN:
354 001224
0001(1
UMMMHM
355
h
357
35A
359 001230
k2 M1=4::
350 A01230
012746
000002
361 001234
362.001240
353 001244
005046
364 001246
365 001252
012601
356 001254
000167
000702
357
3105
?
369
370 001780
RE2MP::
..5(1 1U1260
L.112(4e.
O1.3ULIU4.
372.001254
377; A13127171
374 001274
1710504
375 001278
READ.
PERFORM.THIRD.LEVEL.PARSING.
EQ. IN THE-
CP>RE.CR.
PARSE.THE.?CR
-
CALL. FIND ;FIND.A.REG.MNEMONIC IN
BCC ? 16 ;OK, CONTINUE.
CALL. ERR4 ;NOTHING -THERE.
JMP. RE2X ;RETURN.TO TOP.OF.LOOP.(PROMPT)
MATCH.THE.REGISTER MNEMONIC FROM THE.COMMAND.LINE AGAINST--,
THETABLE.OF VALID MNEMONICS.
MT.,. 4RE2LN,R0 ;HUMBER .OF TABLE ENTRIES
MOV. #RE2TBL,R2. ;R2.-> TABLE-
CALL. SCAN ;MATCH.AGAIHST.COMMAND.LINE.
BCC. 2$ ;OK, CONTINUE.
CALL. ERRS
JMP. RE2X
SAVE.THE.POINTER.TO?THEROUTINE ASSOCIATED WITH THE?
REGISTER. R1 -> ROUTINEADDRESS.
CALL ROUTINE TO.SCAH.COMMAND.LINE.FOR.LOOP INDICATOR.
EG. CP>RE.C.R L.
LOOP.FLAG.WILL.BE.SET.IF.INDICATOR IS.PRESEHT:
?JUMP.TO.ROUTINE.TO.LORD.REGISTER.
MT.". R1,RTNPT. ;SAVE.POINTER?TO.RTH
CALL LOOPR. ;LOOP?.
NOV. RTHPT,R1 ;POINT.TO.ROUTIME.
JMP. ca(R1) .:EXECUTE.ROUTINE.
MEMORY ADDRESS REG
MOV oLD.CD.0
54
55
57 PAAA2A
57
LD2::
.ASCII.
.WORD. LD2C5.
A
.WORD LD2CD
. ,
1:
IA: 11
.WORD. LD2HL.
.ASCII.
WORD. LD2BL-
== /4
LOAD.
PERFORM.THIPD.LEVEL.PARSIHG.
EG. IH.THE.COMMAHD:
PARSE.TH.?CD?
;LOAD.MICROPGM.MEMORY.
;LOAD.DATA MEMOR.-
;LOAD.HKL.BUFFER.
;LUAD.BCL.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
CPLD- .MACRO-M1110 27-MAR-8O
58 AMMH2U
59 000e24 1071304
6L1 UU1.1026
R1 AAAA7.2. AAAlf-7.7 AA 1276
?-. 4i? -7 - - F V
1443 PAGES-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 ,
CALL. FIND ;LOCATE.THE.MEMORY.MNEMONIC-IN THE COMMAND.LINE-
BCC-1$ 70K, CONTINUE-
CALL. ERR4 MISSING-OPERAND'7
JMP-L. ?. ;EXIT.
F.72,
(1,4
MATCH.MNEMONIC.IN .THE.COMMAND.LINEAGAINST TABLE-OF-VALID-MNEMONICS.
?
65
00AA7F
A127AA
PAAAA4
1$:
MOV- #LD2LN,R0 ;NUMBER-OF TABLE.ENTRIES-
66
080042.
01270v2
uumumW
MOV- #LD2TBL,R2. 7POINT?TO?TABLE.
67
000A4F,
CALL- SCAN ;MATCH.AGAINST.COMMAND.LINE.
68
000052-
103004
BCC ? 2$ ;MATCH-WAS MADE-
69
PAAA54
CALL. ERR? INVALID-MEMORY.MNEMONIC
7A
0000Ed71
000167
001210 ?
?
JMP. LD2X ? -7 '177
71
72.
?
SAVE POINTER TO- ROUTINE ? ASSOC TOTED ? Li I TH ? THE ? MEMOR'y' ? MHEMOH IC '
73
SCAN THE ? REMA I NDER.- OF ? THE ? COMMAND- L I HE ? FOR CONTROL ? INFORMATION :
74
75
1. START-ADDRESS.ONLY: REPEAT PROMPT- FOR- EACH- MEN?kLOEA-LON
76
A
FROM THE START ADDRESS FORWARD NB: END ['F? MEMORY (AS DETECTED
77
BY-THE.CMAIN.SUBROUTINE-PDATO) OR.A. RESPONSE TO-THE:PROMPT.
78
WILL-TERMINATETHE.LOAD:
79
A
CP>LD.CD-0
BA
ei
2: START-ADDRESS, LOOP INDICATOR. LOOP-ON-THELOADING.OF.:,,,
THIS.OHEMEMORY-LOCATION.ONLY.
R2.
CP>LD-CD-0 L-
83
3. START-ADDRESS, END -ADDRESS, NO ISSUE-ONLY-ONE.
84
PROMPT-AND?FILL?MEMORY-(BETWEEN.START.AND-END-ADDRESSES)
R5
;
WITH-THIS VALUE:
GP>LD.CD.0 7
87
4. START?ADDRES, END .ADDRESS, LOOP.INDICATOR: ISSUE ONLY.ONE.
AR
PROMPT.AND-LOOP-ON.THE.LOADING-OF.MEMORY-(BETWEEN START-
R9
AND.EHD.ADDRESSES) WITH
9A
CP>LD?CD.0 7 L-
91
92
93 MMUHh4
010157
0000085-2$:
MOV. R1,RTNPT.
;9AVE POINTER
94 00007A
CALL. FIND
;LOCATE START ADDRE9S.IN COMMAND LINE.
95 AAAA74
10.31104
BCC. 3$
;OK, CONTINUE
96 AAAA7F.
CALL-ERR4
;."MISSING?OPERAND
97 000102
000157
001166
JME. 132X
;EXIT-
98 000105
3$:
CALL-PACK
;OONVERT-COMMAND LINE.VALUE.TO BINARY.
99 AA0112
1A7.004
BCC ? 4$
;CONVERSION SUCCESSFUL
100 000114
CALL. ERRS
;?IHVALID NUMERIC VALUE.7
iAi AAA12A
ennilw
001150 ?
JMP. LD 2X
102
103 0[10124
016767
0000005.0000005.4$:
MOv . BINWD.d1STRT.
;SAVE LOADING START ADDRESS
104 000132
016757
muuHumu.0001JUUU.
BINWD,MSTR2.
;SAVE IT-TWICE (FOR REFRESH OH LOOP')
105 000140
012757
177777 viLuuutiu.
MOV. It-1,MEHD.
;INIT END ADDRESS
105
107
START-ADDRESS-HAS-BEEN
FOUND: SCAN.FOR.END ADDRESS.OR?LOOP
lee
IHDICATOR-(COHDITIONS-2, 3 ABOVE). IF-THERE-IS-NOTHING.
is9
FURTHER.IN-THE-COMMAND LINE, CONDITION.1 IS.IN-EFFECT:
lin
ill 000145
CALL. FIND
;SCAH.COMM'-- H
112.000152.
107.004
BCC. 5$
113 000154
052767
UHUMMMI,.4"MHMMMU.
BIS- #RP,BASE.
;SIGNAL-TO-REPEATAPROMPT:cfYX4.,"-..
114 000152.
000437
BR 9$
;JUMP-TO-RM.
?
Approved For Release 2005/07/14r IA-RDP85-00514R000200020001-3
?
Lij
Approved For Release2005/07/1.1A-RDP85-00514R000200020001-3
CPLD---. rep .M1110 27-MAR-80 14:43 PAGE.5,-2-
115
116 Ann164 122711 000114 B$: CMPB. #'1...,(R1) ;LOOP .INDICATOR.
117 000170 001006 ONE 6$ ;NO, MUST.BEUPPER.ADDRES-5.
116 0001(2. 01ho.....K Hu0H0AU.UHU000U. HUN/. MSTRT,MEND. ;SET.END.ADDR?START.ADDR.
119 VIHM,...,MM CALL. HANG ;HOW.T0.5TOP.LOOP:
12A FiRA2A4 A00426 BR 9$ ;JUMP.TO.RTN.
121
122. FIRIA201,7. 5$: CALL. PACK ;CONVFRT.UPPER.ADDRES
NE S.
124 000214 L.
ERRS- ;OK, CONTINUE.
123 ARA212 1A3An4 7$
125 000220 000167 001050 ' JMP. LD2X ;INVALID.HUMERIC.
;EXIT.
126
127 SAVE.END.ADDRESS.(BINAR'0
128-
129
13H 01i1.1224 Ulbr.b( mmmmilmtummmmmi,.7$:INWD,MEND. ;SET.UP.END.ADDRESS:
131 nAn232- MnML. FIND ;CHECK.FOR LOOP.INDICATOR.
132.A1J023R 103411BCS 9$
133
0A024A 122711 O 1.-k
AA114 .
CMPB. L.,(R ) ;NO.LOOP-
;CORRECT.INDICATOR.
134 000244 001404 BEG. 8$ ;YES, CONTINUE.
135 000245 CALL. ERR 11 ;LOOP-OPTION.ERROR-
136 AAA252. 000167 001016 ? JMP. LD2X
137 000255 8$: CALL. HANG ;HOLI.TO.STOP.LOOP.
138
1.69 0HH2h2- 015701 MHUHHHU. 9$:RTNPT,R1 ;POINT.TO.ROUTINE.
140 000255 800171 An0AAA? ? NI 0(R1) ;JUMP.TO.ROUTIHE.
141
142.
143 LOAD .CONTROL STORE
144
145 ;
146 000272- LD2CS::
147 000272. 0115045 CLR. -(SP) ;CLEAR.NOTHING.
148 000274 012746 000002. MOV. #0$CSET,-(SP) ;CP .RESET.
149 000300;DO.IT.
15n 0007;04 01274F. Annnn2 V. 2:LET,-(SP) ;CLEAR.CP.RESET.
151 000310 005045 CLR. -(SP) ;SET.HOTHING.
152 000712 CALL. CSR1
153
154 nn031R 016745 AAAnnAG- MCW. CSHIGH,-(SP)
1.5 ARA:2,72 015745 171171000017;. MCIV? CSI 01,1,-(SP)
156 nOn325 CALL. BUFS4
157 000332 103002. BCC 100$
158 AAA534 AAA1R7 A00734. .
JMP. LD2X
159
lbu 000.-;41.1 062(6( u11ummilu.1100000G-100$: BIT. *RP,BASE-
151 000346 001415 BEG. 2$
152 000350 1$:
C
000754 107,002 BCC
154 AAA755 AAA157 000 1. ...:[.. PLATO 1A$
..
153, -
.
LD2X
155 000352 102002. 10$: BVC. 20$
155 000354 000167 000704 JMD. LD2X
157 000370 20$: CALL. LOADrsi.
168 080374 A767 00milm0t,8080881, ADD. I111 AL,MSTR2.
1159 000402. 000762 BR 1$
170 '
171
Approve;c1 For Rerefrahlig/67/TdY6IALzkiked0514R00020002
CHECK.FOR.LOOP.INDICATOR.AFTER.END.ADDRESS (CONDUKI.N.
;SUPPLY.UPPER.MEMORY LIMIT.
;LOWER.LIMIT-
;PREPARE.TO.LOAD.
;NO.ERRORS, CONTINUE
;REPEAT PROMPT-
;NO, ONCE ONLY
:READ DATA FROM. COMMAND LINE -
;NOT END OF MEMOR'4
; IF END, EXIT T4
[P > R ESP Caj--.14',J41(
;EXIT OH PR.CD.0
START ADDRESS. LOOP INDICATOR. LOOP.ON.THE.READING0E-
THIS.ONE.MEMORY-LOCATION.ONLY. PRINT.THE.CONTENTS ONLY.
ONCE;
CP>LD.CD.0 L.
START .ADDRESS, END .ADDRESS, NO .LOOP, PRINT.THE CONTENTS
Li
83
84
A5
87
RR
69
OF.MEMORY BETWEEN.THE.START AND.END.ADDRESSES:
CP>PR.CD.0 7
4. START ADDRESS END ADDRESS LOOP.INDICATOR: READ.THE.CONTENTS.
OF .MEMORY BETWEEN.THE.START.AND.END.ADDRESSES. HOWEVER, PRINT.
ONLY.THE.CONTENTS.OF.MEHORAT.THE.START.ADDRESS:
CP>PR.CD-0 7 L?
90
000070
010167
0000006. 2$:
NOV. R1,RTHPT.
;SAVE .POINTER.
91
088074
CALL-FIND
;LOCATE.NON?BLANK.IN :l:lMMAND
92
51518188
10717194
BCC. 3$
,LINE
;OK, CONTINUE.
97
000182.
CALL. ERR4
1"MISSING.OPERAND"
94
000106
000157-
001114
JMP. PR2X
;EXIT.
95
000112.
3$:
CALL. PACK
;CONVERT.COMMAND.LW.VALWE.TO BINARY-
96
0051115
107004
BCC. 4$
;CONVERRION.9NRRFRSFUL.
97
000120
CALL. ERR5
INVALID.NUMERIC VALUE! -
90
000124
000157
001075
JHP. PR2X
99
1851
000170
0167157
0000000.0000000-4$:
MO'. BINWD,MSTRT.
;SAE PRINT.START.ADDRESS.
181
Aum17A
filb(b(
HWIHMHU.MHHHMMU.
BIN1JD,MSTR2.
;SAVE IT TWICE.
102
000144
012757
177777 0000886
;INIT END ADDRESS
1117
104
START.ADDRESS.HAS.BEEN FOUND,
SCAN.FOR.END ADDRESS OR
105
LOOP.INDICATOR.(CONDITIONS.2,
3 ABOVE). IF THERE.IS.NOTHING.
106
FURTHER.IN.THE.COMMAND LINE,
CONDITION.1 IS.IN.EFFECT:
107
7
108
0001F2
CALL- FIND
;SCAN COMMAND
109
000156
183004
BCC. 5$
;SOMETHING THERE "
110
uum160
elle.(br"
uutiuuuu-uuuuu0u.
MOV. MSTRT,MEND.
;SET END ATSUk = START'-"ki4A)R.
ill
0001515
000445
BR 9$
;JUMP TO RTH
112.
117,
00017A
122711
000114 5$:?
CMPB. #!1_,(R1)
LOOP INDICATOR
114
000174
001011
BNE. 5$
;NO, MUST.BE.UPPER.ADDRESS.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
CPPR- meun N,110 27-MAR-BO 14:44 PAGE.5-7,
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115
116
117
118
119
120
121
122.
123
124
125
126
127
128.
128
17A
131
080176
000204
000212
000215
AAA270
000224
AAA225
000232.
000236
000244
0002561
8610252
0527E.7 AAAAAAG AAAAAAG
1315757 MMIHMH1,0mHuUMI,
AAA471
103004
000167 000770
BIS.
MOV.
CALL
BR
CALL.
BCC?
CALL.
?IMP.
4KOUT,BA5E.
MSTRT,MEND.
HANG
9$
PACK
7$
ERRS,
PR2X
;SET.FLAG.FOR.OUTPUT CONTROL.
;SET.END-ADDR?START.ADDR.
;HOLI.TO.STOP.LOOP.
;JUMP.TO.RTN.
_
;flONVFRT.UPPI-.R.HDpgrsS.?
;OK, CONTINUE.
;INVALID.HUMEPIC.
;EXIT.
SAVE.END:ADDRESS.(BINARY)
CHECK.FOR.LOOP.INDICATOR.AFTER.END
016767 UHFINUULI.AOHUULIG ($: MT./. BINWD,MEND.
COLL. FIND
BCS. 9$
800114 CMPB. 4?1_,(R )
BEO. e$
CALL. ERR11
JMP. PR2X
8$: BIS. #OUT,BASE.
CALL. HANG
9$: MOV. RTHPL,R1
JMP- @(R1)
PR2CS::
103414
122711
132.000255 001404
1..63
134
135
135
137
13-
13-.1
140
141
142.
143
144
145
146
147
148
149
150
151
152-
153
154
155
155
1.57
158
159
160
161
152.
163
164
165
166
157
159
170
171
191107115
000312
61803 12
AAA714
RAA72,7A
000324
AAA330
11110732
000535
000342
000345
000352
000354
000350
000354
000370
AAA374
ocio4o0
AAA4A7
000406
000412.
um0415
000422.
000426
000432
00121167 000735-
052757 080.000G 0000080
mihrmi MHIIMMMU.
AHA171 HMHHHH .
AA5045
012745 000002:
012746 000002
005045
015746 AOAAAAG.
0115746 000090G.
103002.
0801.67
1116746
012746
005045
012557 AAAAAAG.
U16(46 UUMALIAb.'
012746 AAAAHA
PRINT.FROM.CONTROL.STORE-
1$:
CL R
MUV?
CALL.
MUV?
CLR.
CALL?
MOV.
MOV.
CALL-
BCC.
JMP.
Mu V.
CALL.
MOV.
CALL.
CLR.
CALL.
CALL.
MOw.
MOv.
CALL MSTR2,-(SP)
. REOCS. .1***44101011?-
; TO, ;561. 81-Or
NOV. 4KCROE+PLB>,-(RP) ;SELECT.CHTL.S-TORE-SECT.B-.
CALL. CPCR ,SET.CP.CHTL.REG.
Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3
-(SP)
#Q$CSET,-(SP)
CSR1
*O$CSET,-(SP)
-(SP)
CSR1
CSHIGH,-(SP)
CSLOW,-(SP)
BUFS4
1$
PR2N
MSTR2,-(SP)
REO CS
41-CSOE,-(5P)
CPCR
-(SP)
LBCP
CPLB
(5P)+,DATA1
ADDRESS (CONDITION
4)
;SET.UP.END.ADDRESS.
CHECK FOR LOOP.INDICATOR.
;NO.LOOP,
;CORRECT.LOOP INDICATOR.
;YES.
;NO.
;SET.OUTPUT.CONTROL.
;HOLI-TO.STOP.LOOP.
;POINT.TO.ROUTINE.
;JUNP.TO.ROUTIME.
;CLEAR-NOTHING.
RESET.
;DO.IT.
;CLEAR.CP.RESET.
SET NOTHING
;SUPPLI'.UPPER.MEMORY LIMIT.
;LOWER.LIMIT.
;PREPARE.FOR.LOAD.
NO ERROR
;SEND.CURRENT-ADDRESS. -
;SEOUENCE.UP.TO.PRINT.START.ADDRESS.
;SELECT.CNTL.STORE.SECT.A.
;SET.CP.CNTL.REG.
;CLOCK.TO.RESET.BR.REG.FF.
;REOUEST?CP.TO-LOD.BUS.
;SAVE.FOR.PRINTING.
CPPR- rOO MI 11E1 27-MAR-80 14: 44 .oved PAGE..
Appr For Release 2005/07/1.IA-RDP85-00514R000200020001-3
172 000436
173 000440
174 000444
175 009450
175
005046
912F67
0A0000G-.
CLR
CALL
CALL
MOV
-(SP)
LB CF
CPLB
(SP)+,DATA2
UHU454
Fi1br'46
HmideimMU..
MOV.
MSTR2,-(SP)
178 AFIA4F,A
CALL-
sEOCS.
179 900454
012745
000060
MOV.
# HIT LIST.BUFFER.
;NUMBER.OF WORDS.IN-BUFFER.
;R5 -> PRINT-LINE.
;NUMBER -OF WORDS .PER PRINT.LINE.
LOAD MOPS TO.PRINT.INTO.R1
;CONVERT.TO.ASCII.HEX.
;FINISHED.WITH.TABLE ?.
;YES, EXIT
;FINISHED.WITH.CURRENT.PRINT.LINE.?-
;YES, WRITE.TO.CONSOLE.
;BUMP.PRINT.LIHE.POINTER.
;GET.NEXT.WORD.
;WRITE.TO.TERMINAL-
;CONTINUE.WRITING.
;NO, EXIT.
;INITIALIZE.NEXT.PRINT.LINE.
;WRITE.TO.TERMINAL.
;HOW-TO STOP PRINT
-> HRL BUFFER
;NU40,14,
44,
;NUMBER OF WORDS- ,PER, PRIKT LINE-
;LOAD WORD TO.PRINT INTO RI
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
CPPR- 14110.M1110 27-MAR-80 14:44 PAGE.E.
Approved For-1 Release 2005/07/1416A-RDP85-00514R000200020001-3
353 001434
CALL.
UHRK
354 001440
305300
DEC.
RO
355 001442.
1313141.3
BEQ.
4$
356 001444
0A5302.
DEC.
R2.
357 001446
AA14A2.
BEQ.
3$
358 AA 145A
305205
INC.
RS
359 AA1452-
000757
BR
2$
360
361 001454
3$:
CALL.
CONSOL.
31'02. 131314613
1362(67
Utlueluut,,u0U0dub.
BIT?
*LOOP,BASE.
Si 001466
354 Al71147A
001472.
000754
BEQ.
BR
P82 X1$ 1$
3A,5 AA1472
4
CALL.
CONSOL.
366 001476
300426
BR
PB2X
3A7
3A5
359
PRINT.OUT.BCL-
370
371
372 AA150A
PB2BL:;
373 1311151111
A127072,
RAAAAAG-
MCV
*BCL. P3
374 001504
012700
0E10015
MLIN ?
*13.,R0
375 AA1510
A127A5
AAAAAAG.
1$:
rlav ?
*PRINTfiR5
376 001514
012702!
00AAA7
Mo v ?
4F7 P2
377 AA 152A
A127,01
2$:
v ?
378 001522
LALL.
UNPK
379 A01526
0A5-2AA
DEC.
RO
3RA AA1530
001407
BEQ.
4$
381 001532.
AA53.A2.
DEC.
R2.
382.001534
001402.
BE Q.
3$
353 0171156
005205
INC.
R5
384 001540
000757
BR
2$
7,55
386 001542.
3$:
CALL.
COHSOL.
307 001546
000760
BR
1$
388 1201550
4$:
CALL.
Ca-F;OL.
359
390 001554
FS2X: ?
391 001554
CALL.
KILL
392.0015511
AAA1A7
AAAAAAG.?
JMP.
CPXX
393
394
000001
.END.
;CONVERT.TO.ASCII.HEX.
;FINISHED.WITH.TABLE C.
;YES.. EXIT
;FINISHED.WITH.CURRENT.PRINT.LINE-?.
;YES,, WRITE.TO.CONSOLE.
;BUMP.PRINT.LINE.PO4HTER
;GET.MEXT.LUPD.
;WRITE.TO.TERMIHAL.
.:CONTINUE.LPITING.
;I10, EXIT.
;IMITIALIZEJIEXT.PRINT.LIME.
WRITE.TO.TERMINAL.
?,!
;R3 -> BCL BUFFER.
;NUMBER .OF WORDS.IN?RUFFER.
;R5 -> PRINT.LIME.
;NUMBER.OF WORDS.PER PRINT.LINE. .
LOAD WORD TO.PRINT.INTO.R1
;CONVERT.TO.ASCII.NEX.
;FINISNED.WITH.TABLE C.
;YES.. EXIT
;FINISHED.WITH.CURREHT.PRINMLINE:
;YES.. WRITE.TO.CONSOLE.
;BUMP.PRINT.LINE.POINTER.
;GET.NEXT.WORD.
;WRITE.TO.TERMINAL.
;INITIALIZE? NEXT PRINT Lug: ,Y.
;WRITE TO TERMINAL
; KILL ? AST ?
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 ,
?
?
1
CPPR- MACRO -M1110 27-MAR-80 14:44 PAGE.6-2
SYMBOL.TABLE-
ALUCKE=.A4AAAA
ALUDE.=.0A4AAA
.A01 =? 010055
BASE. =.******
Bet. =.*****
BINWD-=.******
BITYAL=.0AAAAA
BITS =.uuuuul
BITI =.1.11,11.11.1M?.
SITIO -um,,m-im
BIT11 =.AA4AAA
BIT12 =.010A00
BIT13 =.u2Hmmm
BIT14 =.040000A
BIT15 =.1AA0A
BIT2. =' 555554
BITS =' 000010 171
BIT4 =' 050025
BITS 55011140BITE, 000100
BIT? = mtim2mti
BITS. 000405 171
BITS =' 001000
BUFSET-******
BUFS4 =.******
BYTES =.AAAAAA
BYTEI =' '00001
Eh-7E10-000012.
BYTE11=.0171AA17
BYTE12-055014
BYTE13-000015
BYTE14=.000016
BYTE15=.000017
sYlE1b-uuHK.21-1
BYTE17=.00AA21.
BYTE1B=.00002?.
BYTE19-AAAA77
6-.17E2-000002.
BYIE2u-HHHK24
BYTE21=.000025
BYTE22-171Ann2i;*
BYTE23=.00AA27
BYTE24=0FIAAA72.A
BYTE25-800031
BYTE2E,=.17117IFIA7,2-
BYTE27-AAAA-.7-z',
BYTE28=-AFIA7?,4
BYTE29-00007.5
SYTE7,'1 =-AAFIFIA-;
BYTE3A=.AA0A3E,
BYTE7.1=.00007.7
BYTE32=.0000400
BYTE= .00041
BYTE34=.000042.
BYTE36=.00171171471,
BYTE36-000544
BYTE37=.0AnA45
1-4X
GX
OX.
GX.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
BYTE7a-A50046
BYTE39-005047
BYTE4 =' 000004
BYTE40-000055
BYTE41-.055051
BYTE42=.000052.
BYTE43-00017153
BYTE44=.000054
BYTE45-00A055
BYTE46=.0000E6
BYTE47-ANDA57
BYTE4B-000060
BYTE49-A5A561
BYTES -AAAAA5
BYTE5A=.1710A02.
BY1E51-000063
BYTE52=.0A55E4
BYTE53-AAAAF5
BYTE54=.171FIAAFF
BYTE55.=.000067
BYTE9-00061711
BYTE57-000071
BYTE50-000072.
BY-FE5S-000073
BYTE'S -000006
BYTE60-AAAP-174
BYTEE,1-AAAA79
BYTE62.-.000076
BYTEE-000077
BYTE64=-000100
BYTE65-0001A1
BYTE66=.000102.
BYTEE7=.0001072.
BY-1E68-0001114
BYTES9-AAA105
BYTE? =.1.JUUHUI7
BYTE7A-Annin
BYTE71-000107
BYTE72=.000110
BYTE73=:000111
BYTE74=.0A0112.
BYTE75-000113
BYTE7E=.000114
BYTE77=.000115
BYTE70=.00011
BYTE79-A610117
BYTER --AAAA1A
BYTE80-000120
BYTE81=.000121
BYTE02-000122.
BYTE07,=-000127,
BYTE84=-000124
BYTE05=.00012
BYTE86-000126
BYTE87=.000127
BYTES -000011
BYTE9n=? 000177
BYTE91= 00017.7.1
8'1.7E92-000134
BYTE97.= 000 135
BYTE94= 000135
BYTEAS= 0001:7;7
BYTE96= 000140
BYTE97= 000141
ByTE98= 000142
BYTE99= 000143
BYTVAL= 000144
OBKALL= 0A1AAA
CBKCLK= 000400
CDHIGH= ****** GX.
CDLOW = ****** GX
?NOE:RE-10000A
COt-.FOL= ****** GX
CPCCEI.1= 010000
CPCR = ****** GX
CPLB =.******
CPREAD=? 040000
CPWRTE= 020000
CPXX = ****** 07
Cc;ADRD= 000004
rHEOCI=? 155555
CSHIGH= ****** GX.
CSLOW? = ****** 07
CEDE =6100040
UtiRI = ****** G7
CSWRTE= 000100
DATA1 = ****** 0X
DATA2 = ****** GX
DATA? = 0 ****** GX.
DATA4 = ******
DBR,RD= 000001
D.B$CPP= 001457
DB$SPT= 00002f,
DB$TPC= 000023
DISPU:i= 100000
EINHAwK=HHHHWI
DNARRD= Fal
DMARWR=
EFH:3 = ****** GX.
ENBR = 010nAn
ERR 11 *****.i, GX
ERR4 = ****** GX
ERRS = ****** CX.
ERR? =.****** GX.
FIND = ****** CX
HANG = GX
HLB = ****** GX
HR_ - ****** GX
IHCVAL= ****** GX.
KILL = ****** GX
BYTE88=.000170 LBCP. = ****** gX
BYTE83= 00011 LBMRP = ****** rx
Approved For Release 2005/07/1
LnC,EN-A0A1Fin
Loc,wri= 040000
Loc,we= 100000
LOOP S. ****** GX.
MAREH1= 000001
MAREH2=.004000
MARLOD= 010000
MAROUT= 000002.
MAR:L.0-00200A
MAR:OU= 000040
MBKALL= 001000
MBKCLK= 000400
MEND = ****** CX.
MMADRD= 000100
MMLEFT= 000002
MMOE = 000004
MMWRTE= 000010
MHOBRE= 100000
MREN1 =0000611
MREH2 = 020000
MRPCR = ****** GX
MSTRT =.****** CX
MSTR2 = ****** GX
MSYH = 000040
=0000144
ONCE 0 = 0 ****** 57
OUT = ****** CX
PACK = ****** 0X
PB2 001244RG
PB2BL. 001500R0
PB2HB 001314R0
PS2HL 001405R0
PB2LH =.0000072. G
P62TBL. 00001ARG
PB2X 001554R
PLB =61006110
PLC = nrinn7A
PLO = 000070
PLRWR =6100200
PLR:EH= 000200
PRCD 0007FTIR
PRCDX 00121AR
PRDATA= ****** GX.
PRIHT = ****** CX
PR2 000024RG
PR2CD 0n0572-2R0
PR2LH =1 000002 u
HH21BL. HHHVIMMKU
PR2X
OR$CR1= 17i:.420
OR$CR2= 175422
OR$LEIR=
0$ATTN=
0$BCL.=
0$CCCP=
?SONE.=
IA-RDP85-0051
GISCHRL-AAA2AA
esCLR-AAAn4A
OSCHC.=.07.0000
0$CP =
CISCRCC=
0$CP2.=
0$C5C.=
0$CSEL=
USC SET=
0$CSP.=
0$DMA.=
O$EHBK=
U$L4A.UH=
0$FAL.=
0$FC =
0$F0 =
nthEm _
41,
FIAOAF,0
051001A77...
A0026Q:V-
010000-
AAA:2.50
000002;
n21-71nnn?
000001
040000
4121.11,1MM
004000
000045
AAA044
AnnA46
CI.I7LaF.,=40.000e2
05ICP.=.000006
00710613
0$IHRL=.01710002
0$IMRP=.050007
0$LBD-5101000
O$LBDP=.001001
0$LBP-mmmumi
O$LDCD.--000003
0$LDMI)=.AABA04
CISLDPP=.171AZAAB
002.0$LHP-010000
002.0SMNC.=.14006151
5102.0$MR =.AAAA52
002.0$MRP-000040
0$MRP2-000240
002 0$MSC-040000-
002 0$MSET=.000004
0$MSP.=.100000_
OVOLK=.175000
0$PP =-000100
0$PPSW=.000320
0$PP2-01710300
007 0$OHLT=-00001:2,
002 ()SOL =-0130043
0$0LA. -. 000053 ,
=Jr#10b0I'
40110042 ?
Tm, n$REirli,='.0A0005 ?
O'IRDMD=-AFP,DAA ?
002.0:t.REBK-AniAAA
0F12.0$RNC-AFIE,BAft
-a$Rsc. 004000 ,
0$RSET=.000010
O 175424 0$SM = 100000
000100,w 110,7+ 1;1,$SPI44p1,0001.20
00000f 04*-JP2000340
000040 ROO:EN= 000200
000400 P00 VA= 020000
4R000200020001-3
ORPR- 110.M110 27-MAR-90 :44 PAGE.6-3
SYMBOL 1 14
.T^ ? Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
RTHPT?-******
SCAN. =. :*.**.*1-*
sEOCS.-******
SECIMM.-******
SED.C.1-0AA0111
S$CLR.-000011171
S$LA. =. 0010001
S$0B. =.mmvimm5
-0110A06
S$OX. -uuuuu4
sssR. -0010007
3$91 -0000110
5$32. =.01:101014
TD$CTR-176370
TD$CT0=.1761
TD$INL=.0A4AAA
TD$MEM-000270
TD$OAR-176344
TD$OTR-17634F.
TD$ORD=.0A0274
TEISSW-1757.7F,
TDSTAR-175372.
TOSTAW-17672.
TEIST00-176374
TD$TDW=.17E17-1R4
TSAI). -AA002171
T$BA. =.[IMUMM2.
T$BD. =. 01010
T$EIS0.-100A00
T$81. -000020
TSEITAR-AAAA-211
T$BT0.-An2Ann
T$CD. -002100
T$OLK-uu,mum
GX.
oX ?
0X
. ABS. AAAAAA 000
222222 001
CPPR. 001564 002.
ERRORS DETECTED 0
1$015K=.11HU2mU
T$DRD.-A110004
T$EMEM-A100AR
T$F!--4AA-FulmalM
T$FSAB=.000004
T$FSAC-000014
T$F902-000010
TSIB -AARA2A;
T$IBAR-000024
T$ISE.-020u01J
T$ISE.-040A0A
TSICD-AAAA4171
T$MnDE-An4AAA
T$08. -0A0036
T$O1iE-01714000
T$OBF.-01A000
T$OBRA-01710072.4
T$0B1J2-000032.
T$OUTA-1AAAAA
T$REIDO-mAm2mm
T$RHB--01.10040
T$RSET-040000
T$9C. =.. 000022
TV;OLK-A2Ann0
T$FiEG1=-000000
T$5E02=.000001
ILTHLuA-uHM1jH2.
-AAAAA1
ISUUW-i=.11-1HHHH
T$ICL1::::-000400
T$99EN.=-Ammu2m
US]) 1N=
UHPK. -****** GX.
WORDO =. 000000
LA.W.D1
WORD10.-0000124
WORD11-nnA09f;',
WORD12-000030
WORD13-011012.
WORD40-000120
000041= ? 011E1122
1:10A1711
0011-2.6764
WORD14-01711.71074
WORD45=...C130132 ?
WORD15-0001.17.5
000046-000134
WO RD16-000040
000247-00017.6
WORD17-000042.
000248-000140
WORD18=?OAA044
000249-0001142.
OUR]) 19=
000.25 -0010012.
WORD2.=:000004
000050-0010144
WORD20-000050
000051-000146
000021=.000052.
000952-00010
WOR1122-000054
000053-000152.
WORD23-010017155
WORD5,4-01710154.
WORD24-000050
000055-000155..
WORD25= ? 000062 ?
LJ0RD55,0&i50.
R D26= ? 000054
WOR.D57=_? 000152.?..
LiuR027= ? 1-1111,11,1F,f,
000058-000164
WOR D28= ? 000070
0130259-000166
00RD23-000072.
WORDS -000014
VIRTUAL...MEMORY-USED: 3571 WORDS. (.15 PAGES)
DYNAMIC. MEMORY 4916 WORDS. 1 18 PAGES)
ELAPSED.TIME: 00:00:50
uPPR,SPPR/-SP=C20,1JIMAE20,1]CFPR.
00003 = ? RAFIFIFIE.
000050-000170
WORNA-000074
0007151-0010172.
WORD31-0001075
0O0062-000174
000032-0001010
000253-000176
0OR1.?7.-0AA102.
1)1:0017,4-0100200
000234= ? 000104
WORDAF- 000202 ?
WORD35-0A0105
WORD65-000204
000035=.1711710110
00E167= ? 00021:15
01301137= 0100112
LIOR DAR= ?OIl 12.1?07.7
000030.-000114
1,10 R Eif.7.9...=_Zen 0212
WORD39-000116
L.10 R D7 =7. 00015
0O004 -000010
000270-000214
W00071-000277
000272-A0022A
1.0RA73-1.1[10222
WOR974-000224
0O0D75-00022Z
000075=-00027.0'
000077-0017127.2
000079-000234
000079-08027.6
710008 -000020
000950= ? 0100240
W009A1-000242
0O0282-000244
WORD87.-110024
1)1307154=:0T1020-
000285---121.1.710252
13ORDe6=.0002.54-.
000087-12100256
WORDSA-AA0250
WORDS9=:0717121.712
WORD9 ..-ff1017122,
WORD90-000254
01:101191-000256
W000927.01.710270
WORD93=J:01710272
WORD94--17100274
WOR,D95-AAH271:-.
_ WORD917.0007.00
,,..,WO0D977.000302
"-0O0998--0007.04
J00099-000306
WRDVAL-A0072.10
XTREAD.%001000
XTURTE-A00400
?"'f-
V I I
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
a ,
BCE
leo M1110
27-MAP-SO
1
nnnnnn
3
4
5
7
8
9
10
11
12.
13
14
15
16
17
18
19
20
21
22
23
24
25
26

27
2R
3A
14:Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
35 PAGE.5
.TITLE- BCE.
.PSECT. BCE
.LIST HEB
31
?
33
34
35
35
AAAARA
7.17
1-4,1171AFIA
123
124
33
060602
HIJUHHHO.
39
000004
122.
105
4A
000A01E;
AOAROOG.
41
110A1A
122.
123
42
0011012
um:mom,
43
000003
HARDWARE.OUERRESOLVER.'MANUALS DEBUGGING AIDS.
BUS.CONTROL.ELEMENT.TEST.ROUTINES.
PARSE-THE-COMMAHD-LINE AND-TRANSFER-CONTROL-TO-ONE-OF-THE-
BCE-SUB-MODULE5-0R.BArK-TO-OMAIN. CONTROL-COULD-HAVE BEEN.
PASSED.TO.BCE.IN.ONE.OF.THREE.WAYS:
1. rjr&OMAIN-IF-8CE-WAS.SELECTED-AS THE-FIRST-PROCESSOR-
ENTRY-TO.THE-PROGRAM-
>BC-I:J.0 Cl
21 FROM-OMAIN-IF.BCE-WAE SELECTED-FROM.ONE OF.0MAIWS-
OTHER-SUB-MODULES.
CP>BC.ST-A CI
5. ON-RETURH FROM.ONE-OF-BCEI'S-SUB-MODULES
BC>ST-0 Cl
BCE.PARSES-AT-THE-SECOND-LEVEL-OF-CONTROL.(SEE-NOTES AT.
QMAIN-ON.LEVELS-OF-CONTROL). IN BCE.
WOUST.PARSE.'LD AND-TRANSFER-CONTROL-TO-THE-8CE-SUB-
MODULE.BCREST, IF.BCE.SHOULD.ENCOUHTER.A.STRIHG.WHICH.IS.
NOT.A.VALID.COMMAND-MHEMONir, BCE.CONSIDERS-THE.STRING.TO.
BE A.PROCESSOR.MNEMONIC.AND.RETURNS.CONTROL.T0.0MAIN. EG:
BC>CP.LD.CS.0
THE.STRING.?CP IS.NOT A.VALID.BCE (SECOND LEVEL) COMMAND:
BCE.RETURNS.CONTROL.TO OMAIN.WHICH IN .TURN WILL.TRAHSFER.
CONTROL.To.ITS.SUB-MODULE-rP:
BCE-SUB-MODULES:
BCREST. ALL.BCE.COMMANDS.
kTBL:
;STORE.INTO.A.REG.
.WORD. ST3
.ASCII ;READ.FROM.A.REG.
.WORD. RE3
.ASCII /RS/ ;RESET-HOR-
.WORD. RS3
BCNUM. =. /4
-
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
BCE- ? ? ?'? MACRO - Tll.110 27-MAR-8O 14: 35 PAGE ?
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
45
45
47
48
49
50 008014
51 000014 004757 0000009-
11-16HH6
mmmu22. 41414(H( MHPIMMMU.
54 nAnO2i;- 00n422
55 000030 022700 000002. -
55 00011134 001403
57 AnnA3F, nn4.77 nAnAn0G.
513 3nnn42. nn1i414
59
Fd71 FIRR044
61 nnon5n
H&VIPIHMh4
63 000060
64 ossols2?
F,5 n00061;
86
58
67
n127nn nnnnn3
012702 Hmemmw
kimifimumu ?
103003
004767 onnnnnG.
AnA4A2.
mmmmol 410411(1 414J414141H
70
71
72
74
75 000074
76 000074 012757
77 000102- 004757
78 000106 0047E.T
79 000112 103003
An Ann114 004757
el AAA120 n[71075
82 00173122 077700
613 000125 001403
84 R00130 004757
85 000134 000757
85
87 000135 01270A 000003
uu AHA142 41414141MW
119 000145 004757 FIRRARRO.
90 000152- 103002
91 000154 00016( muliuUL.
92
9R
94
95 000150 000171 000000
95
97 000001
ECE-ROUTINES
ocE::
?
4.11-51:1
MOV
MOV
JSR
BC:
JSP
BR
PC,FIND-
1$
PC. ERRS
BCEXX.
#2,RO
2$ .
PC.. ERR8
BCEXX.
4BCNUM,R0
#BCTBL,R2-
PC,SCAH.
3$
PC,ERR12-
BCEM
;LOCATE-THE-COMMAND-IN-THE-COMMAND-LINE.
;OK, CONTINUE-
;COMMANDS.ARE-2-CHARS.
;TRY AGAIN-
;RA =-HUMBER-OF.COMMANDS-
;R2- -> TABLE-OF-COMMAND-MNEMONICS-
;FIND-MATCH-IN-TABLE-
;OK, CONTINUE.
;COMMAND NOT-IN.TABLE-
;TRY-AGAIN.
JUMP TO.THE.ROUTINE.THAT.GOVERNS THE-COMMAND-
3$: JMP. Ed(R.1)
;
BCEXX::
LOCAL-BCE.LOOP: INCLUDE-PROMPT-FOR-BCE-COMMAND:
041502 nnrinnnr. MOV.
AAAARAG. JRR.
uummmil, JER.
BCC.
AAAAAAG. JSR-
BR
000002 1$: CMP.
BED-
AROAAAO. JBR.
BR
2$:
R$:
MOV.
MOV.
ISP-
BCC
JMR.
#PBC,GCMBLK+G:DPRM-4-2-;MOVE BCE NAME-TO-GCMIBLOCK-
PC,GCOHLY. ;PROMPT.
PC,FIND. ;LOCATE.TNE-COMMAND-IN,TNE-COMMAND-LINE-
1$ ;OK, CONTINUE-
PC. ERR3
BCFXX.
#2,R0 ;COMMANDS-ARE-2-CHARS-
2$
PC. ERR8
BCEXX:. ;TRY-AGAIN-
#8CHUM,R0
4t-BCTBL,R2-
PC,!;CAN-
3$
COMXX.
;RO ?HUMBER-OF-COMMANDS-
;R2. -> TABLE-OF.COMMAND-MNEMONICS-
;FIND-MATCH-IN-TABLE-
.
CONTINUE.
;RETURH-TO-'MAIW: LOOK.F077PR00577M'MNEMOHIC-
JUMP.TO THEROUTINE.THAT.GOVERNS THE.COMMAND-
iMP.
.END.
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
BCE 411E0 ? (11110 27-MAR.--80 14:35 PAGE ? .6-1 .
SYMBOL ? Ti-W ? Approved For Release 2005/07/1.1A-RDP85-00514R000200020001-3.
ALUCKE-040080
ALU8E-08481710
SO1 ...818880
BCE. 008814RG.
BCEXX. 000074RG.
BCHUM.-mmmmil7
BCTBL. 888888R.
BITVAL-AASSAn
BITE! =.uuuuu1
BIT1 -080082.
BIT10 ---UU2Liuu
BIT11 -084800
BIT12--010000
--.HLMUMH
BIT14 -A4FIFIAA
BIT'S -188888
BI12. -000804
BIT3 = 008810
BIT4 -88AssA
BITS =-FinnA4A
BITE, -00018A
BIT7 -11mmLoil
BITS. --ARA4An
BITS -AA1Ans
BYTE0 -000000
BYTE1 --888881
BYTE10-880812.
BYTE11-17180817.
BYTE12=.008014
BYTE13=-AAAA15
BYTE14-1:15,081E.
BYTE15-000017
ElYiE16-uumu2U
BYTE17-888821
BYTE18-AAA022.
BYTE1S-888827
BYTE2.-080802.
BYTE20-888874
BYTE21-0.085125
BYTE22-008026
BYTE23-000027
BYTE24-A111878
BYTE25-888871
BYTE2S-88887.2.
BYTE27-008033
BYTE2S-888874
BYTE2S-888875
8YTE7 --.AAAAA7,
BYTE30-000035
BYTE31-888877
BYTE32-818840
BYTE33-080041
BYTE34-888842.
BYTE39=
BYTES=
BYTE37=
BYTE38=
BYTE39-000047
BYTE4 --AAAAA4
BYTE4A-080058
082 BYTE41888891
882 BYTE42='.000052
BYTE472--888857
002 BYTE44-:000054
BYTE45-000057
BYTE45-000056
BYTE47-808877
BYTE4S-000868
BYTE43-000061
BYTES -UUUUU5
BYTE50-AAAAF,2
BYTES1-880063
BYTE52-888854
BYIEb.6-UuuU65
BYiEb4-88mu6h
BYTE55-808857
BYTE56-888870
BYTE57-000071
BYTEsA-s88872
BYTEs7-.888877
bylEf, ....11MMHMh
BYTE60-800074
BYTE61-088879
BYTE62-888875
BYTE63.-808877
BYTE64-000108
BYTE65-888181
BYTE66-888182
BYTE57.-,.080187
BYTE68-000184
BYTE63-8081115
BYTE? =.11HVIMM?
BYTE70-880186
BYTE71=?000107
BYTE72-880118
BYTE77-880111
BYTE74-000112
BYTE75-000117
BYTE75-888114
BYTE77=.88171115
BYTE78-888116
BYTE79-000117
BYTES -888818
BYTES8-888128
-5'1'7E81-A88121
BYTES2-000122
BYTEs7-88817
BYTE84-888124
BYTEs5-888125
El-7E86-088126
BYTE87-888127
BYTEss-888178
BYTE89-8A8171
BYTES -000011
Approved
BYTE98-888132.
BYTES1-888173
BYTE92-088134
BYTE93-800175
BYTES4-088175
BYTES5-080137
BYTE96-00014A
BYTE97-000141
BYTE98-000142.
BYTE99-088143
BYTVAL-000144
CBKALL-001080
CBKCLK-000400
CHOBRE-108008
C 0 = >V** :*** 5 TABLE.OF.COMMAND.MNEMONICS.
'11_1ZL. SCAN ;FIND?MATCH.IN.TABLE
Br.C. ? 3$ ;OK, CONTINUE.
taLL. ERR12. ;COMMAND.HOT.IN TABLE.
PPSXX. ;TRY.AGAIN
4,'cl4f;"11:
;LOCATE THE COMMAND IN.THE COMMAND-LINE
CONTINUE
;COMMANDS.ARE.2.CHARS.
TRY AGAIN
JUMP.TO.THE.ROUTINE.THAT GOVERNS THE COMMAND
?IMP. 0(R1)
LOCAL.PPS.LOOP, INCLUDE-PROMPT.FOR.PPS.COMIND:
NOV. #PPP,GCMBLK+G:DPRM+2. ;MOVE.PPS.NAME-TO.GCM?BLOCK.
CALL. GCONLY. ;PROMPT.
CALL. FIND ; LOCATE ? THE ? COMMAND ? IN! ? THE ? COMMAND ? LINE ?
; nK.h CONTINUE - - -.'
CALLC--
? ERR3 -:-
BR PPSXX
CMP,
',R0
BEO. ;COMMANDS.ARE-2?CHARS.
CALL. ERR8
BR PPSXX.
;TFY.AGAIN
MOV. #PPNUM,R0 ;RB .-NUMBER.OF.COMMANDS.
MUY. 4PPTBLJ.P2. ;R2.-> TABLE.OF.COMMAND.MNEMONICS-
CALL. SCAN ;FIND.MATCH.IN.TABLE
BcC - 3$ ;OK, CONTINUE.
JMP. COMXX. "RETURN TO MA IN LOOK.FOR.PROCESSOR.MNEMONIC-
JUMP TO.THEROUTINETHAT.GOVERNS THE COMMAND
jMP- @(RI)
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002000200,01-3
r
-.11M01:4
PPS--...MACRO.M1110 27-MAR-80 15:26
Approved r or Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
120
121
122.
123
124
125 0002E.1
OREG;:
126 0002AF,
012746
00070A
127 000212-
12R ni..-1021
012746
000200
129 0002-
L30 000226
01274E.
000202.
131 000232.
132 00027;6
012746
A21101JA .
133 000242
134 on1j24F,
ol6646
000002
135 OA07,ti'7,
13F.
137
138
139 000256
012748
001001
14A Finn21
1719271F,
AAF-172,RA
141 000255
012746
175000
142 000272
052711;
FIA17172.00
143 000276
144
145 000307
012746
OAF,AAA? ;
146 000705
00504.6
147 000310
145
149
150
151 000314
012746
001001
152 000320
052715
000360
153 000324
012746
176000
154 000330
155
158 000634
011656
AAAL10..,
157 111051340
005725
158 000:147
SET.UP.O-REGISTER.
NOV. #,-(SP) ;BIT.PATTPRH.FOR.PLR RIF4HT
CALL. MRPCR. ' ;WRITE? TO.MRP.CONTROL.RELISTER
MOV- #RGO.EN,-(SP) ;EHABLE.0-REG.LOAD
CALL. LBMRP. ;SEND.EHABLE.TO.MRP .
MO'..-- *,-(SP) ;BIT.POTTERN.FOR.PL.R. LEFT
CALL. MRPCR- ;WRITE TO.MRR.CONTgUE.REG'
NOV. *RGO.VAL,-(!:;p).,-,-i-a.r .544," col RtirM70 D 's.i.' ? -!7 :,,;;
cALL. LBMRP. ;SENY.COMMPHDTW'MRP-'
MOV. 2(SP),-(SP) ;SEND-OEM ADDRESS.
CALL. LBMRP.
EXTRA CLOCK.FOR.PPS.
NOV.
BIS.
MOV.
BIS.
CALL.
qtLD.OW.A
e6
PARSE.THE.'CU
57
5R
59 000050
70 00A050
71 000054
72 888855
73 A88A52
74
75
75
77
(8 UMHA be,
79 0A0072
RA 0001176
81 00015.7.
82.00A104
83 AAAilA
84
86
R7
88
89
90
01
92.
93
04
cJ5
9E,
97
9R
99
IAA
101
182-
1U.3
1A4
105
103004
000157
001572.
012700
000010-
012702.
OAIDAAA'
1113004
AA0157
001544
106 000114 010167 0808000-
1U( 000120
lAR 000124 103004
109 AAA125
110 000132. 800167 001522.
111 008135.
112 000142. 107.004
113 008144
114 ocialso 000167?001504
LD4::
1$:
2$:
CALL.
Kr ?
CALL.
JMP.
FIND
1$
ER P4
LD 4X
MATCH.THE.MNEMONIC.
OF VALID.MNEMOHICS.
rov.
MT./.
CALL.
BcC: ?
CALL.
JMP%
#LD4LN,R0
#LD4TBL,R.2.
SCAN
2$
ERR?
LD4X
44.
;DATA FIELD FOR TRANSFER TO CD
;CODE FOR MEMORY.SELECTIOH
;LOCATE.MEMOR'l MNEMONIC IN.COMMAND.LINE.
;OK, C0NTINUE.
v"MISSING.OPERAND
;EXIT.
IN.THE.COMMAND LINE AGAINST THE-TABLE7..
. ; LtUMB.ER ? CIE TA B L E ? EN TR IETS ?
??,RQ,IAT ? TO TABU
''.: MATCH AGA INSIT.it0 mmArlD'. LINE-
MATCH ? LAS MADE ?
I HvAL ID- MEMORY ? MNEMON I U'
SAVE- POINTER TO.ROUTINE.ASSOCIATED.WITH.THE.MEMORY.MNEMONIC.
SCAN.THE.REMAINDER.OF.THE.COMMAND.LINE?FOR .CONTROLINFORMATION:
1. START.ADDRESS.ONLY: REPEAT.PROMPLEOREAC.WMEMORY LOCATION.
FROM-THE.START.ADDRESS.FORWARD: NB:: END OF. MEMORY (AS-DETECTED.
BY.THE.OMAIN.SUBROUTINE.PDATA) OR.A: R.F_ONSE TOJHE.PROMPT.
WILL.TERMINATE.THE.LOAD1
PP>LD.QW.0
24 START .ADDRESS, LOOP INDICATOR. LOOP.ON.THE.LOADING.OF-
THIS.ONE.MEMORY.LOCATION.ONLY.
PP>LD.OW.0 L.
3. START .ADDRESS, END .ADDRESS, NO .LOOP: ISSUB.ONLONE.
PROMPT.AND.FILL-MEMORY.C.BETILIEEN,STARTAND.END,.ADDRESSES)
_ , .
WITH .THIS VALUE:
PP>LD-UW.0 7
4. START .ADDRESS, END .ADDRESS, LOOP .INDICATOR: ISSUE ONLY.ONE.
PROMPT.AND.LOOP.ON.THE.LOADING.OF.MEMORY.(BETWEEN START-
AND.END.ADDRESSES) WITH.THIS.VALUE:
PP>LD.OW.0 7 L.
MC,v.
CALL.
BCL
CALL.
JMP.
CALL.
BCC.
.CALL.
Ri,RTNPT.
FIND
3$
ERR4
LD4X
PACK
4$
ERRS.
;SAVE.POINTER.
"LOCATE.RTAPT.ADDRE IN.COMMAND.LINE.-
AK,7cONTINUE.
'4EXAr
;CONVERT.COMMAND.LINE.VALUE?TO BINARY.
;CONVERSION-SUCCESSFUL.
It...4LID.NUMERIC-VALUE7
JMP. LD4X
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-4,
? .
PPLD MACRO M1110 27-MAR-80 15:23 PAGE 5-R
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115
115 000154 015767 miuuuuG.0000005.4$: NOV- BINWD,MSTRT-
117 AFIA1F2 0167F.7MHHHHHU.MMMMMUU-
rilP: BINWD,MSTR2
[71 .
118 A0A17 012757 177777 A1.10H00u- *-1,MEND-
119
120
121
122.
123
124 000176 CALL- FIND ;SCAN-COMMAND.LINE-
120 850282 10317104 BCC. 5$ ;SOMETHING THERE.
126 050204 052767 0000A0G.OH00mUu.
127 0082 12 ORA437 Ns' l'..P.,BASE- SIGNAL TO REPEAT PROMPT
9$ ;JUMP.TO.RTN.
128
129 008214 122711 AAA1141?.; CMPB. 4L (RI)
17.0 UUM22U 1,181Hu ENE- ;LOOP INDICATOR
ES ;NO, MUST.BE-UPPER.ADDRESS.
131 AOA R22 A15757 Hmummil?mHHHHH6. MOV. MSTRT,MEND- ;SET.END-ADDR?START-ADDR.
132-00023A CALL. HANG ;HOW.TO.STOP-LOOP.
133 000274 000426 BR 9$ ;JUMP.TO.P.TN.
124
135 000236 b$: CALL- PACK ;CONVERT-UPPER.ADDRESS.
136 000242. 1030047$ ;OK, CONTINUE-
137 000244 CALL. ERRS ;INVALID.NUMERIC.
' 000250 0AA157 001504 LD4X ;EXIT.
129
140 SA'E.END.ADDRESS-(BINAR'y")
141 CHECK.FOR.LOOP.INDICATOR-AFTER.END-ADDRESS (CONDITION.4)
142 ;
143 ARA2S4 A15757 ARAAARO.OAARRAG.7$: MOV. BINWD,MEND. ;SET.UP-END-ADDRESS.
144 0002E2 CALL. FIND CHECK FOR LOOP-INDICATOR.
145 000766 103411P$ HO LOOP
146 000270 122711 OAA114 r-?14- *L.,(R1) ;CORRECT .INDICATOR.
147 000274 001404 e$ ;YES, CONTINUE-
155 81,18: 00A171 ARAAAA
152 AA0312 016701 umiumil, 9$: !!! :T:1:1-11GPIT,R1 ;POINT-TO.ROUTINE.
148 000276 ;LOOP.OPTION-ERROR
149 nni7171712 0001E7 88 14b LD4X
IFR ROR705 8$: ____??_....
;HOW.TO.STOP.LOOP. -
151
154 @(R1) ;JUMP.TO.ROUTINE.
155
156
157
158
159
160 000322 012767 500042 A77516 LD4OW:: NOV. #0$016rODE.
161 17-1171030 00040111 BR OEX.
162 0007.32 012767 080043. 17751716 LD4OL:: NOV. *0$0L. CODE.
163
164 0037-140 016746 uumNuNG. OEX: In HIGH -' ;SUPPLUPPER.MEMORY LIMIT.
165 00844 n 15746 AA A0F1 171 G - OXLOW,-(SP) LIMIT
1600035011:1.!I'L. BUFSET. ;PREPARE.FOR-LOAD.
157 00054 102100i. BCC. 1$ ;OK, CONTINUE.
168 0A07,56 000167 0017,76 JMP. LD4X - - ---
1Aq I111TT7140t
. ,
-.,
;SAVE LOADING START ADDRESS
; SAVE IT TWICE (Fog. REF RESH,4v1L1W.P#
, .
.11J0J-T-EN_D-ADDRESS. -
START-ADDRESS.HAS.BEEN FOUND, SCAN.FOR.END ADDRESS.OR.LOOP
INDICATOR.(CONDITIONS.2, 3 ABOVE). IF.THERE.IS.NOTHING-
FURTHER.IN.THE-COMMAND LINE, CONDITION.1 IS.IN.EFFECT,
LOAD-OEX.WINDOW.MEMORY
LOAD-OEX.LOCATION-MEMORY-
, .
;SET.MEMORY-SELECT.CODE?WINDAW.
;SET.MEMORSELECT.CODE.=-LOCATION-
170
171
?
WRITE.DATO.FOR.OEX.INTO.CP.DATA.MEMOPY, SKIP.CD.WORDS.0.: 1 .
(RESERVED.FOR.W-ITE.FLAG.AND.IRRUI3FEF?COUUT.- E.BELOW).
Approved For Release 2005/07/1 IA-RDP85-00514R000200020001SE.-3
PPLD 11110 M1110 27-MAR-80 15:23 PAGE 5-3
Approved For Release 2005/07/1 IA-ROP85-00514R000200020001-3
172.
173
174
175
175
177 AFIA3F2.
012757
000002 177450
1$:
178 000370
005057
177445
179 000374
005045
100 0007,75
181 000402.
085045
182. 000404
183 000410
012745
000377
1.84 00041.4
185 000428
005045
186 000422.
187 000426
012767
001AA0 175422.
188 U i-1114.-14
U 120.-.1(
12HUmm 1(5422.
189 OA0442.
012745
AnA7FA
1.90 AAA446
A52716
AOlAni
191 000452.
052715
030A00
192 AAA496
AA5A45
193 00046 El
194
195 UUU4b4
1,152(h(
00uAAuG.AmiuuUU
196 000472.
0014.311
197 000474
7$:
198 00A5AA
103421
199 000502
102420
200 00171504
016757
A00000G.1777i7i2-
201 000512.
202'000516
Ulb(b(
MMMHMUU'l((.32U
203 000524
204 AAAF,72.A AA9267
205 000554 065767
205 000542. 000754
207
208 000544
209 000550 000167
210
211
212.
213 000594
214 080550 103401
215 0110552 1112004
215 000554
217 000570
218 000574
219 000602
2zu HHHhHH
221 00171614
222.AA21c2A AA5257
223 000624 066757
224 AA192 026767
225 000540 101755
225 0130642.
--f 000646 0.32(6(
225 A1351554 AA17.72-
000167
016(5(
015(5(
177306
MMHHH1,16-MAHHHH6.
001284
3$:
4$:
5$:
001154
UUMmm[11,1(7242. 5$:
0u00001,177230
177216
ellimIHPIL,frimmmmmb.
mmmmmmi?mmmtimmG.
7$:
IfiLid006.3.[JOUPJUUL,
WRITE.OEX.DATA.IN.THE.FORMADDRDATAfiADDRDATA....
WHEN-THE.LOADING.OF-CD IS.COMPLETED,_1:1OLLL.TH.E.SUBROLIT'INE.
OXLOADD-WHICH.IN.TURN.STARTS.UP.THE.MICROCODE:TO:LOAD!THE-.
OEX:
MOv.
CLR.
CLR.
CAL_.
CLR?
CALL.
mok,/ ?
CALL.
CLR.
CALL.
MOV.
MOV.
MOV.
BIS.
BIS.
CLR.
CALL.
BIT.
8E0.
CALL.
BCS.
BVS.
MOV.
CALL.
MOV.
CALL.
INC.
ADD.
BR
#2,CDADD
OXCNT.
-(SP)
555155
-(8P)
CPCR
*377,-(SP)
SEOMM.
-(SP)
MRPCR.
#0$REBK,OR$CR2
#,OR$CR2.
#0$CSEL,-(SP)
#PR-OW.0
66 PARGE.THE.'ow
67
68
59 090054 PPPR4::
nnnn5,4 CALL. FIND
71 000060 103004 BCC- 1$
72-000n62. CALL. ERR4
73 000066 0001s7 U0,ube. JMP. PR4X
74
75 000072. 012700 000044- 1$: NOV. -
*PR4LN,R0 ;NUMBER.OF_IA91, E.NTRIE17
76 AA0076 012702- AnAnAn' MOV. *PR4TBL,R.2. ;POINT.TO.ERYL ? ;,',1
77 A00102
.FIA4 216L. SCAN ;MATCH.AGAINST.COMMAHDLINE
70 AnAlA6 1.07 .
2$ ;MATCH.WAS MADE.
79 0001 10 CALL. ERR? ;'INVALID.MEMFIRY.MNEMONIU
80 000114 eloole7 0112040 JMP- PR4X
el
82.
83
94
85 1 START.ADDRESS-ONLY: PRINT.ONE MEMORY LOCATION:
PP>PR.OW-0
97 START.ADDRESS, LOOP INDICATOR. LOOP.ON.TNE.READING.OF.
THIS.ONE.MEMORLOCATION.ONLY. PRINT-THE.CONTENTS ONLY
89 ?ONCE:
PP>LD.W.0 L.
91 3. START.ADDRESS, END.ADDRESSfi NO -LOOP: PRIat.1:7NE.CONTEHTS.
92 OF .MEMORY BETWEEN.THE-START Amp.END.RDAT4Es:. ?
53 PP>PR.OLLO 7
94 4. START .ADDRESS, END-ADDRESSfi LOOP.INDICATOR: KEADTHE.,CONTENTS.'
95 OF MEMORY BETWEEM.TNE.START AND.END-ADDREIISEE NOLEVER., PRINT.
eq.3
97
9R
99 000190
100 000124
101 000130
102 000152
10172, 00017C;
104 000142
105 800146
106 100150
1U( 0UU154
108
10'.3 udulbu
iln AnalEap
111 000174
112.
;NUMBER .OF !EX? ADDR/DATA.PAIRS
;CODE.FOR.MEMORSEI ECTION-
;LOCATE.MEMORY.MNEMONIC.IN.COMMAND.LINE.
;OKJ. CONTINUE.
MISSING.OPERAND'2
;EXIT.
SANE POINTER TO.ROUTINE.ASSOCIATED.WITH.TNE.MEMORY.MNEMONIC.
SCAN.THE.REMAINDER.OF.THE.COMMAND.LINE.FOR CONTROL INFORMATION:
010167
103004
0001E.7.
103004
ULIU16(
915(6(
HiHrhr
012767
000000G. 2$:
,002016
3$:
f1 11
UUULIOULAJUU0UUG.4$:
HMHP11,11,11_,MHOMMMU-
1777(7 111.14-WW911,
OHLY.TNE.CONTENTS.N.MEMORY
PP>PR.OW.0
tiny.
CALL.
DCC
CALL
CALL
DCC
.
W
MO,,.
MOV.
MCW.
HT.THE-START.ADbRESS:
7 L.
R1,RTNPT. ;SAVE POINTER
FIND ;LOCATE NON-BLANK IN COMMAND LIHE
3$ ;OK, CONTINUE
ERR4 MISSING OPERAND
PR4X ;EXIT - ?
PACK ;CONVERT COMMAND LINE VALUE TO BINARY
4$ ;CONVERSION SUCCESSFUL ,
ERRS INVALID UUn'LERIc,'VALUE
PR4X
BINWD,MSTRT-
BINWD,MSTR2-
41.-1,MEND.
A'1E R0641-25OOT ADDRESS
v%.1.614VE IT TWICE
;IN IT END ADDRESS
113 START.ADDRESS.HAS.BEEN FOUND: SCAN-FOR.END ADDRESS OR
114 LOOP.INDICATOR.(CONDITIONS.2, 3 ABOVE). IF TNERE.IS.NOTHING.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
PPPR- MACRO M1110 27-MAR-80 15:24 PAGE.5-'
Approved For-Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
115 FURTHER-IN-THE-COMMAND LINE, CONDITION .1 IS.IH-EFFECT,
115
117 CALL. FIND
118 000205 103AA4 BCC- 5$
113 000210 015767 00000AG.000000G. MOV. MSTRT,MEND.
120 A00215 000445 BR 9$
121
122.000220 122711 000114 5$: CMP[-1. #L, (R1)
123 000224 001011 BHE. 5$
124 000225 052767 000000G.A0AAAAG. BIS. *OUT ,BASE.
125 000234 016757mmmiNmu.uNANNALi. MSTRT,MEND.
125 000242- M. HANG
127 000245 000431 BR 9$
128
11 000250
130 000254 103004
131 000255
132.000252 000157 001572
133
134
135
135
1.37 HMK,,,,,fnh 015(6(
138 000274
139 000700 103414
140 000302. 122711
141 FIAP7A1; 001404
142-000315
143 000314 000157
144 A0A320 052767
145 1100325.
145
147 A00362. 015701
148 000335 000171
149
150
;SCAN.COMMAND.LINE.
;SOMETHING THERE-
;SET.END.ADDR?START.ADDR.
;JUMP.TO.RTH.
;LOOP.INDICATOR.
;NO, MUST.BE.UPPER-ADDRESS.
;SET.FLAG.FOR.nUTPUT CONTROL
;SET.END.ADDR?START.ADDR.,
;HOW.TO.STOP.LOOP.
;JUMP.TO.RTH.
FA: CALL. PACK ;CONVERT.UPPER.ADDRESS.
BCC. 7$ ;OK, CONTINUE.
:ALL ERW.--1 ;INVALID-NUMERIC.
JMP. PR4X ;EXIT.
SAYE.END.ADDRESS.(BINAR:y")
CHECK.. FOR. LOOP ? IND I CATOR ? AFTER ? END ? ADDRESS (..COND IT'
PIMMI.11.11-111.1UMMI.11,.( :
MCN.
BINWDMEND.
;SET.UP.END.ADDRESS.
CALL.
FIND
; CHECK ? FOR,J4OP ? OD CATOR ?
BCE
9$
; NCI ? LOrrFr?-?:;"F
500114
CORRECT. ? L(.10,. IND I C TEIF!
BEO.
8$
;YES.
CALL.
ERR11
001540
JMP.
PR4X
;HO.
AnAnnAG-AAAAAAG.R$:
BIS.
#OUT,BASE-
;SET.OUTPUT.CONTRAL.
CALL.
HANG
;HOW.TO.STOP.LOOP.
MMMMMMU.5I

Mo
RTNPT;R1
;POINT.TO.ROUTINE.
AAAARA
0(R1)
;JUMP.TO.ROUTINE.
151 PRINT.FROM.OEX.WINDOLI.MEMOR
152- PRINT.FROM.OEX.LOCATION.MEMORY.
153
154
155 000342 n12757
156 005750 000403
157 AA0752 012757
158
159 HMM'10 315745
150 000.-254 015746
151 0007.70
162 000.374 103002
1 000375 000157
63
164
f
000042
-BCC.
177502.
PR4OW::
MOV.
#0$0WCODE.
;SET.MEMORCODE?WINDOLI.
BR
POE::
RAA047
177472.
PF 41'L
MOV.
of.-,I$OL,CODE.
SET CODE.
HMHM11111,.
PflE
ru
0XHIF4H;-(SP)
;SUPPLY.UPPER.MEMORY LIMIT.
AnOACIAG-
MOV-
OXLOW,-(SP)
;LOWER.LIMIT
CALL.
BUFSET.
;PREPARE.FOR.LOAD.

1$
;HO .ERROR.
001555
JMP.
PR4X
;ERROR.
155 CALCULATE-THE.HUMBER.OF.WORDS TO TRANSFER.
166 1'1TR2.?START.ADDRESS.
157 MEND. ?END.ADDRESS.
158
4IS'L
lbJ
880402 0 i500 UMHPIHMU. 1$: MOV. MSTR2,R: et(1,,
170 000406 016701 000000G. MEND,R1 ;LOAD.EHD.ADDRESS.
171 000412. 11-AAA1 SUB. P0 P1 ;GET.HUMBER.OF.WORDS TO
? Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
PPPR?
?
M1110 27-MAR-80 15:24 PAGE-5-3
Approved For Release 2005/07/11L-RDP85-00514R000200020001-3
172.000414
005281
177 000418
810187
177426
174
175
176
177
178 000422.
sac-17048
179 888424
180 000430
007045
101 888472
18$ 211310435
012745
AFIA777.
183 n00442
184 800448
005046
165 F1111714=471
186 1711F1454
012767
881000. 175422.
187 000482
012757
12AFIAA 178422.
188 000470
012748
000360.
117.19 000474
F152718
081081
190 0005210
052715
070000:
181 OAA504
A215A48
192 0011506
193
194 000512
005057
177326.
195 000516
085067
177324.
196 000522
197 88171528
015787
177315 177312.
19R AnA5734
19'9
2[710
21:11
2[712
7J1-71
204 0011540
016767
0UUUUUG.177300
2$:
205 000545
2015 6100552.
807267
177255
2217 AAAFF?E,
055767
0002121215 00000215
208 0005E54
025757
UM0u0u1,[jHumiuu.
21-719 1117-0572.
101752
210
211 000574
005045
212.000578
012746
176000
213 AFinn'
214 AAAFFIF
005087
178422
215
216
218
LId217
220
221 800512.
STRTMC:
277 AAAF.12.
015745
177234 ?
223 808516
224 000522
012746
001780
225 000526
225 000532.
085048
888674
228 000540
012745
0011377
IHC.
MU,/ ?
R1
R1,0XCHT.
;+1 (BEACUSE.OF.ZERO-REL
;SAVE .COUNT
WRITE.THE.FLOG.('0' =.READ) AND.THE.TRANSFER.COUNT.JHTO.
THE.FIRST.TWO.LOCATIONS.OF.CP.DATA.MEMORY:
CL R.
CALL.
CLR.
CALL.
MOV.
CALL
CLR.
CALL.
MOV.
MOV.
MOW.
BIS.
BIS-
CLR.
CALL.
CLR
CLR
CALL.
MOV
CALL.
-(SP)
-(SP)
CPCR
SEOMM.
-(SP)
MRPCR.
#O$REBK,)R$CR2
#,OR$CR2.
#O$CSEL,-(SP)
# (SP)
#O$CNC,(SP)
-(SP)
CSR1
CDADD.
CDDAT
LOADCD-
OXCHT,CDDAT
LOADCD
START MICROCODE AT .0
;RESET BR INHIBIT
;SET.MRP.MICRO.ADDRESS =..K7FP' (JUMP. SELF)
;RESET.BR-INHIBIT.
;RE-ARM .INTERRUPTS.
;SET.SEARCH.MODE.+ ENABLE INTERRUPTS
.:CLEAR ALL SELECTIONS.
;CLEAR-DRIVE.AHD.PULSE.
;CLEAR.CP.NO-CLOCK.
;SET.NOTHING.
;WRITE FLAG TO CL' ADDR
;FLAG FOR 'READ OEX
;WRITE.OEX ADDR/DATA PAIRS.COUNT.TO.CD.LOC.1
NOW.FILL.EVERY.OTHER,LOCATION.IN CP.DATA-MEMORY.
WITH.A.OEX.ADDRESS.(UP TO.THE.UPPER.LIMIT.OF.
OEX.MEMORY.AS.ENTERED.IN?THE.COMMAND.LINE).
MOV.
CALL.
INC
ADD.
CMP.
BLOS.
CLP.
MOV.
CALL.
CLR.
MSTR2,CDDAT
LOADCD.
CDADD.
INCVAL,MSTR2.
MSTR2.J1END.
2$
-(SP)
*O$HCLK,-(SP)
5; RI
OR$CR2.
;PUT OEX ADDRESS IN CP DATA MEMORY.
;LI ADCD INCREMENTS CDADD
;INCREMENT AGAIN - PASS 1 AbDRESS.
ADVANCE.OEX ADDRESS
;HAS -UPPER MEM LIMIT BECREAC;HED.
;NO, CONTINUE
;CLEAR NOTHING IN
;SET NO-CLOCKS
;SET.LOAD.MODE.
RUN. THE. OEX. MICROCODE: MICOCODE. READS. 0?? CONTENTS. INTO.
CP DATA MEMOF.V SLOTS 8K 1PPED OBOE iE THE.DATA.IS READ
IN FOLLOWING EACH.ADDRESS: THE.FIRST.DATO.WORD.IS.IN CP.
DATA.MEHORY.LOCATION.3.
NOV.
CALL.
MOW.
CALL.
CODE,-(SP)
PPCR
41760,-(SP)
SEOCS
;SELECT .WINDOW OFt LocgTIOm.mEmopy
w,
;START CP MiTROZODE PIT .W3F0'
CLP -(SP) :RESET BR INHIBIT
CALL CPCP
HOY 4377.-ISP4 :SET HRP MICRO ADDRESS
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
(JUMP ? SELF)
PPPR- MACRO .M1110 27-MAR-80
230
080544
000558 8619046
231 000552.
232.000656 012767
233 800554 M12(br.
234 000572. 012745
235 000576 052715
235 000702- 052715
237 6100705 6105045
27.8 8807161
239
24A
241
242.000714
243
001800
?
15 : 24 PAGE 5-4
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
176422.
1(5422.
244 800726
245
245 000740
005045
247 000742-
012746
175000 ?
248 880746
249 000752.
005067
176422.
250
251
L'
253 000755
085845
254 nnn7F.,n
295 000754
005046
255 000755
257 008772.
012746
800377
25R 000775
259 001002.
005046
250 001004
251 001010
012767
081618111
176422.
252.001015
012757
12000A
I176422.
263 00117124
012746
000350.
264 001030
052716
001001.
265 001034
052716
030800.
255 001040
8615045
257 001042.
268
269 nnio46
015757
AAAR88G ?AAAABAG.
270 001054
012757
000003
176762?
271 001062.
012767
000005
175424
108:
272.001070
012767
120100
175422?
273 001076
015701
176422
58 :
274 001102.
032701
A00100*
275 001105
001373
275
277 901110
016767
176730
176424
278 001116
012757
128040
175422.
279 001124
016701
176422
58:
280 001130
032701
000040'
281 801134
001373
2R2.
2613 001135
81575?
000801
176424
284 001144
012757
120040
176422.
285 001152.
015701
175422-
78:
?
GALL.
CLR.
CALL.
MOV.
MOV.
MOV.
813.
BI3.
[:LR.
CALL.
SEOMM.
-(SP) :RESET BR- INHIBIT
MRPCR
#08REBK..O.R$CR2 ;PE-ARM INTERRUPTS
#,OR$CR2 ;SET LOAD PPS MODE -I- ENABLE-1.11TERRUP15...r
*O$CSEL..-(SP) ;CLEAR ALL SELELTIONS
#,(SP) ;CLEAR DRIVE AND? PULSE
#08NCLKfi(SP) CLEAR- ALL NO-CLOCKS
-(SP) ;SET NOTHING
[SRI
WAIT.FOR.IHTERRUPT.FROM.CP.
UTSE$S. 0EFN.3
CLEF$S. *EFH.3
GLR-
MOV.
CALL.
CLR.
-(SP)
#08NCLK,-(SP)
[SRI
OR-$0R2-
CLEAR- NOTHING.IN.CSR1
;SET.NO-CLOCKS.
;SET.LOAD MODE
PRINT-0Ex.:?VALUES.FROM.CP.DATA?MEMORY.
GLR.
CALL.
CLR.
CALL.
MOV.
CALL.
CLIP ?
CALL.
MOV.
MOV.
NEN.
BIS.
BIS.
CLR.
CALL.
-(SP)
SEOCS-
-(SP)
CF CR
*377,-(SP)
SEOMM.
-(SP)
MRPCR.
*O$REBK,OR$CR2
*...OR$CR2.
*O$CSEL,-(SP)
*.(08LEID+D$L8P>,(SP)
*O$CHC,(SP)
--(SP)
CSR1
;START.MICROCODE.AT.0
;RESET.BP.INHIBIT.
;SET?MRP.MICRO.ADDRESS...XFF (JUMP- SELF)
;RESET.BR-INHIBIT.
;RE-ARMINTERRUPTS.
;SET.SEARCH-MODE.+ ENABLE INTERRUPTS
;CLEAR.ALL SELECTIONS.
;CLEAR?DRIVE.AND.PULSE.
;CLEAR.CP.NO-CLOCK.
;SET?NOTHING.
MOV. MSTRT,MSTR2. ;KEI-HIESH.I3IHRI.ADDRE63.
MOV. *3,CDADD. ;START.PRINTING.FROM CP-DATA.ADDR.3
Mr.W. *O$RDCD..OR$LBR ;MOVE?ATTN CODE.TO.LOD.BUS.REG
rig'!/1
oRscR2 , Rt ; READ . CSR 2
*,OR$CR2.;SEMATTN.CODE.READ
Y .
BIT. #08ATTN,R1 ;ATTN.CLEAR.
BHP. 5$ ;NO, READ.AGAIN.
MOV. CDADD,OR$LBR. ;CD-MEMORY START-ADDRESS.
MOV. *4-
=zx
FAL.COUNTER.MEMORY.
;10LB.REF.PAGE-
.T,OLB.PAGE.A
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
.1WPTA,2
PPREST- MACRO. M1 27?MAR-80.15,
0F
Approverr Foi-Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
58
5609
61
62-
R.3
64
55
66 000050
ST4::
57 000050
56 000054
103004
69 000055
70 000062
000167
000176
71 HVIMMhb
1$:
77! nnen72-
1072.004
7-7; R 0,7174
74 ARR1R0
1,10017
R5A160 ?
75
76
77
78
79 000194
2$:
RR 000110
103004
81 000112
e2.606116
claGi67
000142..
8%
; ?
84
Rti
86
87 000122.
012700
000004,
3$: ?
RR 000126
912702.
AAARAW
89 000132
90 000136
103004
91 000140
92-130101144
000167
130113114.
94
;
'Elf;
98
;
99
;
100
;
101 000150
010167
mimmuell,
4$:
102.000154
103 mmulHm
1.116731
mmm,immi?
ST4IN:
104 00016.4
00017.1
ARRARR
105
105
1R7
?
1R9
109 000170
ST4CR::
110 01..1131(0
010(46
000000G.
III 000174
112 000200
000427.
113
114
?
STORE-
PERFORM.TNIRD.LEVEL.PARSING.
EG. IN.THE.COMMAND:
PP>ST.0 CR.
PARSE.THE.'0?
'CALL. FIND
BCr. 1$
CALL. ERR4
JMP. ST4X
CALL. PACK
BCC. 2$
CALL. ERR5
JMP. ST4X
;FIND.A.OPERAND.IN.COMMAND.LINE.
;OK, CONTINUE.
;HOTHING.THERE
RETURN TO TOP OF.LOOP.(PROMPT)
CONVERT.VALUE IN.COMMAND.LINE Ti: BINARY
CONTINUE PARSING:
FIND.THE REGISTER -MHEMONIC.IN.THE.COMMAND LINE.
CALL. FIND
3$
CALL. ERR4
JMP. ST4X
;LOCATE .A NON?BLANK.
MATCH THE.MHEMOHIC.FROM.THE.COMMAND.LINE-AGAINST-THE
TABLE OF-VALID.MHEMOHICS,
MOV. #ST4LN,R0 ;NUMBER.OF TABLE.ENTRIES.
MOV. *ST4TBL,R2. ;R2.?> TABLE.
CALL. SCAN ;LOOK.FOR.REG.NNEMOHIC.
BCC. 4$ ;OK, CONTINUE.
CALL. ERRS
jMP. ST4X
SAVE.THE.POINTER.TO.THE.ROUTINE.ASSOCIATED WITH.THE
REGISTER, R1 ?> ROUTINE.ADDRESS,
CALL .ROUTINE TO.SCHH.COMMAND.LINE.FOR LOOP INDICATOR.
EG. PP>ST.0 CR -L.
LOOP.FLAG.WILL.BE.SET.IF.INDICATOR.IS PRESENT,
JUMP.TO.
XL. R1,RTNPT.
ROUTINE.TO.LOAD.REGISTER.

LOOPR-
MOV'. RTNPT,R1
JMP. lia(R1)
PPS.rONTROL.REGISTER.
MOV. BINWD,?(SP)
CALL. PPCR
BR ST4LP.
DCL POINTER
Approved For Release 2005/07/1*CIA-RDP85-00514R000200020001-3
;RAVE.POINTER-TO.RTN
;LOOP?.
;POINT.TO.ROUTINE.
EXECUTE.RRUTINE-.
;DATA.FOR.LOD.BUS.REG
:WRITE.Tn -nml-Dr"
-
T7 ./:cc
IFIAVAr!VP't 7070'
;
PPREST- ISO M1110 27-11AP?B0 15:')5 PAGE
Approved For Release 2005/07/10CIA?RDP85-00514R000200020001-3
115
116
000202.
ST4OP::
117
utiu2usz-
815746
UUUHULJU.
MOV BINUD,?SP)
118
vulm2mh
CALL STOP
119
000212
000416
BP ST4LP
120
121
LOAD.MASK.REGISTER.
122.
123
000214
ST4NR::
124
000214
012745
000097'
125
800220
CALL. PPCR
125
000224
015745
000A000.
MOV- BINWD,?(SP)
127
00037.0
CALL. LBPSC.
128
000234
000405
BR ST4LP.
129
130
LOAD.PPS.0?REG.
131
132
000275
ST4OR::
133
000235
015746
000000G.
MOV. BINLID,?(SP)
134
000242-
CALL. DREG
17.5
000245
00A400
BR ST4LP.
17,6
137
138
000250
ST4LP:
139
000250
032757
umiHmmu.'0000A0G,
BIT- #LOOP,BASE-
140
000256
001402
BED- ST4X
141
80020
0001F.7
177674 -
JMP. ST4IN.
142
143
000264
ST4X:
144
000264
CALL. KILL
14b
LIUU2KM
LIUM1b(
UUULIUMU.
JHR. PIRSXX.
;WORD.FOR.00L.POINTER.
;LOAD.00L.POINTER.
;TEST.FOR.LOOP.
;MASK.REGISTER.SSLECT.FOR-PP CR-
;LOAD.PP.CONTROL.REG
;WORD.FOR.MWW.REGIRTER.
;SEND.MASK WORD.
:TEST.FOR.LOOP.
.;LIORD.FOR.O?REG.
;STORE IT
;TEST.FOR.LoOP.
;REPEAT.?.
.0.10 EXIT-
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
S
ij
PPREST- MACRO.M1110 27-MAR-80 15:25 PAGE b
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
147
148
149
150
151
152
157.
154
155
156 000274
PE4::
157 88827'4
158 000700
103004
159 880302.
160 000306
000167
000164'
151
162.
163
154
IF;Fi 0007.12.
012700
800081
1$:
166 000315
812782.
888820
167 1711711717,22.
158 008326
103004
169 88072.12.8
170 0003724
0001.57
00017,16
171
172.
173
174
iF5
176
177
178
179 800340
010167
0000005.
2$:
leo 000344
181 080.350
016701
mmmumul,
RE4IN:
182 000354
000171
000000
183
184
185
185
187 880360
PE4SW::
188 800368
012746
00 1001
lAcy 888764
852715
0003E.0
198 888370
01274.5
17Ed880 ? .
191 888374
1.19271f:;
nriFi-2.2A
192 000400
193 000484
816781
175424
194 000410
042701
17777,4 ?
195
196 800414
812746
800320
197 A0042171
00504F.
198 888422
199 088475
080480
2AA
71:711
7.-1-712-5100430
PE4PUT:
21:97. 0004.30
0-72767
AAAAAAG
ABAAAOG?
?
READ..
PERFORM.THIRD.LEVEL-PARSING.
ES. IN.THE.COMMAND:
PP>RE.CR.
PARSE.THE.'CR
CALL
BCC
CALL
YMP
FIND
1$
ER R4
RE4X
;LOCATE.A.RES-MNEMONIC.
MATCH.THE.RESISTER.MHEMONIC.FROM THE.COMMAND.LINE.ASAINST.
THE.TABLE.OF VALID MNEMONICS
MO?
MOV.
CALL.
BCC
CALL
jMP?
#RE4LN,R0
#RE4TBL,P.2.
SCAN
2$
ERRE
RE4X
;NUMBER. OF TABLE.ENTRIES.
;R2.-> TABLE.
;LOOK.FOR.RES.MNEMONJa,.
;OK, CONTINUE- -
SAVE.THE.POINTER.TO.THE.ROUTINE.ASSOC,IATEDITH THE
REGISTER: R1 -> ROUTINEADDRESS:
CALL.ROUTIHE TO.SCAWCOMMAND.LINE.FOR LOOP INDIrATOR.
ES. PP>RE.CR L.
LOOP..FLAG.WILL.BE.SET.IF.INDICATOR IS PRESENT;
JUMP.TO.ROUTINE.TO.READ.RESISTER.
MOV.
CALL.
MOV.
JMP.
R1,RTNPT. ;SAVE.POINTER.TO.MN:1?
-
LOOPR. ;LOOP?.
RTNPT,R1
;;EXECUTEROUTINV
STATUS.WORD.
MOV.
BIS.
MOV.
BIS. -
CALL.
MOV.
B I c ?
MOV.
CLR?
CPL.L.
BR
#,
00$CSEL,(SP)
40$MCLK,-(SP)
4F-011PPSW,(SP)
CSR1
OR$L8R,R1
#177774,R1
00$PPSLI,-(5P)
-OSP)
CSR1
RE4PUT.
-(SP) ;CLEAR.DRIVE.AND.PULSE.
;CLEAR.SELECT.BITS.
SET NO-CLOCKS -
;READ.PPS.STATUS.WORD.
; H y PE
? ? ?
;CLEAR.ALL BITS.EXCEPT.L00.3
.:CLEAR.PP.sTATUS.REOUEST-
;SET.NOTHING.
;PRINT AND TEST LOOP FLAG-
- ecUmw - A
BIT #0110E.B1:6E_
'cred
Approved For Release 2005/07/ CIA-RDP85-00514kg a
1-3
I
PPREST- 11110.M1110 27-MAR-BO Ap 15:7-5 PPGE.17,-1 / ? proved For Relpase 2005/07/11V14A100514R00.0200020001-3
li.
204 000426 001011 -"ONE. 1$
2A5 01A440 A527671-1Hum-imb-milmuljeu. B IS #OHCE,BASE.
.-'" .
206 000446 012705 000000G..#PRIHT,R5
207 000452. .7-1 M- UHPK
-
2AR AAA456 i CALL- CONSOL-
209 ?,);
210 000462 032767 CpOgar.7.11,01Al2 .T.i.1$:BIT-
#LOOPBASE- ;REPEAT- 2-
211 0O1714711 2Al4A2-
212-000472 000167 177652 WS RE4X ;HO, EXIT.
RE4IH.
213 ;
214 000475 RE4X:
215 00047E. 042767 AAAAAAG-AAAAAAG- *OHCEBASE-
216 000504
2( mUh1H 000157 UlimHliml,- . JMF
KILL
1 000510
PPSXX-
;YES., SKIP PRINT-
;SET.FLAG.FOR.PRIHTED.OHCE.
;POIHT-TO.PRIHT.LIHE -
;COHVERT.WILUE.IH.R1 FOR.PRINTING.?
;PRIHT.IT.
;CLEAR.PRINT.COHTROL FLAG.
;KILL-AST-
Approved For Release 2005/07/12 : CIA-RDP85-00514R0002000U001
Y1'
1 e
?
PPREET- MACRO M1110 27-MAP--8
4prgoia F-eor Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
219
220
221
222.
.723
000514
224 000514
225 0120520 103004
276 AAAR22-
227 00A526 000167 000524
22R
229 0A0972,2. 012700
77,11 AAA536 A127A2.
231 000542
222.1n0545 103004
227' 000550
AAA554 OnA167 000476
235
235 0510550 010167 OnnAnAG-
2:7;7 0051564
30 000570 015701
239 0011574 000171
240
241
242.
243
244
245 0506.00
246 AA0600 012746
247 000.504 052716
248 OAA61A A12746
249 000514
750
251
252
253 000620 012746 00000.
254 000624 009045
255 000525
255
257
"ocn
25q
260 000532 012746 000025.
261 0011636
21;2
263
264
255
266 AAA542 AA5A67 176424
257 000546 005046
251=1 000550 012746
Ann654
270
271
272
273 800650 012757 004000 176422.
274 000446 A12747 077777 176424
275 000674 005067 176422
000005
AAAA24'
HHHHMHU.
AAAAAA
?
ER4::
1$:
2$:
ER4IN:
ERASE.
COLL.
BC:C.
CALL.
JMP.
MOV.
MOV.
CALL.
BCC:
CALL.
JMP-
MOV.
CALL.
MOV.
JMP.
FIND
1$
ERR4
ER 4k
#ER4LN,R0
*ER4TBL,R2.
SCAN
2$
ERRE;
ER 4k
R1,RTHPT.
LOOPR.
RTHPT,R1
0(R1)
CLEAR.FALCOUNTERS.
ER4FC.;:
MOV.
BIS.
MOV.
CALL.
o,-(SP)
#O$CSEL,(S,P)
40$NCLK,-(SP)
CSRI
TURN.ON,PPS.CLOCKS.
MOV. #O$RNC,-(SP)
CLR. -(SP)
CALL. CSR1
SET.PPS.00NTROL.REGISTER.
MOV *025,-(SP)
CALL. PPCR
SET LOS
SET.LOD
CLR.
CLR.
MO',??
CALL.
BUS.REGISTER.= El
BUS DRIVE. SELECT .PPS.
OR$LBR.
-(RP)
*,-(5P)
CSR1
;FIND.A.NON-BLANK.IN COMMAND_LJNE.
;OK, CONTINUE.
iNOTHING.THERE.
RETURN.TO TOP.OF.LOOP.(PROMPT)
;NUMBER .OF TABLE.ENTRIES.
;R2--> TABLE.
;LOOK.FOR.MNEMONIC.
;OK, CONTINUE.
;SAVE.POINTER.TO.RTN
;LOOP?.
;POINT.TO.ROUTINE.
EXECUTE ROUTINE.
;CLEAR.DRIVE.AND.PULSE.
;CLEAR.SELECTION-BITS.
;SETA-ICI-CLOCKS-
;CLEAR PPS NO-CLOCKS (START.PPS'Y
;SET NOTHING
;SET.PPCR = .19?
;CLEAR NOTHING
;SELECT.PPS.AND.SET.DRIVE.
SET FAL LOD.ON, SET.LOS.BUS.REG, TURN FAL LOS OFF
MOV. #O$FOL,OR$CR.2.
MOV. #1-i(((i'(,UK$LBH
aLR. ripTc122.
Approved For Release 2005/071.CIA-RDP85-00514kb0k0020001-3
,
PPREST- o miii El 27-MAR-90 15. z.25 PCCR 1
iv-proved' Flir Release 2005/07/1111CIA-RDP85,005,14R000200020001 -3
271;
278
27.9
281
282-000700
012701
000454
287
000704
889888
284
131313 ('1313
017,017100
295
800710
5105701
285
000712.
001775
e:Of
28R
2R0
290
000714
012745
001300
291
000728
012745
175000
292
800724
297
294
295
295
000770
012745
800040
297
000774
299
000740
000167
000312
299
SRA
301
302-
7.1717,
704
000744
705
000744
0127415
001001
305
000750
052715
000750
707
000754
012746
171,-,000.
709
000760
7.09
3iR
311
312-000754
012745
MMhHHM?
313
00077.0
005045
314
000772.
315
316
317
318
000775
012745
000141
719
00 1802.
7,71:71
7i21
324
0010515
005057
175424.
S25
001012
005045
326
001014
012745
001300-
001020
329
330
331
001A24
012757
010000
332
001032
005057
?176422
Li() IT? 2- Ms- Fop.. F-L ? TO ? F 'HIGH?
ADD ? = ? 3.171_13
DEC ? = ? 2: F;;51d !:7;
BHE ? ? 1.87US
MOV. *300. R1
CLR. RO
1$: ADD. RO,RO
DEC ? R1
BNE. 1$
;EXECUTE 300 TIMES
;ADD-NOTHING.
CLEAR LOD.BUS.DRIVE,, DESELECT.PPS-
Mgv. o,-(SP)
MCN- #0$HCLK,-(SP)
CALL CSRI
CLEAR.PP.CR.
MOV- #0$CLR -(SP)
CALL. PPCR
?RIP- ER4X
CLEAR.OLB REFERENCE PAGE
ER40R.::
MOV. *SP.LD.OX.0
18
3. ON- RETURN FROM.ONE.OF.SPS.RUB-MODULES.
19
!.;P>LD
20
21
SP PARSES AT THE? SECOND LEVEL OF CONTROL.SEE.N, T,5,T::---
22.
OMAIN ON LEVELS OF CONTROL). IN THE ExAmptffg.,i.nee)t;.,W,',
23
WOULD PARSE ?Lt?. AND TRANSFER CONTROL TO. THE'SP SUB- -
24
MODULE SPLD: IF SP SHOULD ENCOUNTER - A sIRIJAppHfa,1 IS :
25
HOT A VAL ID COMMAND MHEMON If: SP CONS IDERA:7HE.. STRING-TO- '
BE A PROCESSOR MNEMONIC AND RETURNS CONTROL TO-OMAIN. ES:
f
?
29
30
31
32.
34
36
:27
38
SP>CP LD CS 0
THE STRING "CIF IS HOT A VALID SP (SECOND LEVEL) COMMAND:
SP RETURNS CONTROL TO OMA IN WHICH IH .TURN WILL TRANSFER
CONTROL TO ITS SUB-MODULE. CP:
SP SUS-MODULES:
SPLD. LOAD MEMORIES.
SPPR. PRIHT.MEMORY.CONTENTS.
SPREST. ALL.OTHER.SP.COMMANDS.
.MCALL. WTSE$S.,CLEF$S-
Approved For Release 2005/07/111CIA-RDP85-00514R000200020001-3
;
?"Yi t
.
,
?
;
SP 11110.M1110 27-MAR-80 15:31 PA1E-6 ,rter:r
Approved For Release 2005/07/111/CIA'-RDP85L0051414060200020001-=3'7'''
r.";;'..`..7':?;;71T
?
11
40
41
42.
43
44
45
;
;
;
TABLE OF SF. CONIMAND MNEMONICS AND THEIR ASSOCIATED
LJLI I lNh ALL ;dhS?
v. ?
.41.
000000
SPTBL:
47
UUULIUM
114
104
.ASCII. /LD/
LOAD MEMORY
48
OULIU02.
.WORD. LD5
49
000004
120
122.?
.ASCII. /PR/
;PRINT-FROM-MEMORY-
tO
OUUOUb
bijUUULIU-
.WORD. SPPR5
51
000010
120
123
.ASCII. /PS/
;PAGE-SWITCH-
52
000012
UULIUUMG.
.WORD. PS5
97.
54
000014
LikiUi1b
103
000000G-
114
.WORD- CL5
?
55
000004
SPNUM.
=. /4
5f7.,
58
GODE.FOR.MEMORSELECTION.
59
bLI UldUe120 ULIPJULIU
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3 t -
4 e
/4
,
SP MACRO 1- 110 27-MAR-
813 15 4prgfirel ior Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
52.
53
54
SP ROUTINES.
65
5F.
57 000022.
SPS::
-
68 000022.
CALL. FIND
;LOCATE.THE.COMMAND.IN-THE.COMMAND..LINE-
59 000026.
1831303
BCC. 1$
;OKA CONTINUE.
70 FlooKo
CALL. ERR3
71 000034
000422.
BR SPSXY.
7.7 ? 000035
822700
000002
1$:
CMP. *2,R0
;COMMANDS.ARE-2.CHARS.
73 0A0042.
00140
.
BEO 2$
74 000044
CALL. ERRS.
79 000050
13013414
BR SPSXX.
;TRY AGAIN
75
77 0A0052.
012700
013AAA4
2$:#SPNUMARO
MOV.
;RO =-NUMBER.OF.COMMANDS.
78 n00056
7... 88801,72-
012702.
000000'
Mow. *SPTBLAR2.
CALL- SCAN
;R2.-> TABLE.OF.COMMAND.MHEMONICS.
;FIND.MATCH.IN.TABLE '
RA nAAAFA
1A31.710
-6Cr. 3$
;nKfi CONTINUE.
81 A00070
CALL. ERR 12
;COMMAND.HOT.IWTABLE.
82000074
000402.
BR SPSXX.
;TRY .AGAIN
83
84
JUMP.TO.THE.ROUTINE.THAT.GOVERNS THE COMMAND
85
86
077
L.!
R9
90
91
belt:10(6
tjuU1(1
UOULJUU
3$:
;
?
?
? ?
?RIP. 1.11(R1)
LOCAL.SP.LOOP: INCLUDE PROMPT.FOR.SP.COMMAND:
*1
92
000102
SPSXX::
000102.
A12757
0501271
000000C.
MOV. 4v5PAGCMBLK-FG:DPRM-4-2. ;MOVE SP NAME TO GCM BLOCK
94
000110
CALL. GCONLY. ;PROMPT
95
000114
CALL. FIND ;LOCATE THE COMMAND IN THE COMMAND.LINE.
96
000120
107007
BCC. is ;OK, CONTINUE
97
A00122
CALL. ERRE
AR
000126
000765
BR
m131j1.31
N22010
mmmom, ?
1$:
CMP- *2,R0 ;COMMA DS.ARE.2.CHARS.
Inn
00017.4
A014171
BEO. 2$
101
000135
CALL. ERRS
102
000142.
000757
BR SPSXX. ; TRY. AGA IN
103
104
000144
012700
080004
$ ?
MOV. *SPNUMARO ;RA =.NUMBER.OF COMMANDS.
185
088150
01270:2
AAAAAA'
MOV. oSPTBLAR2. ;R2.-> TABLE.OF.COMMAND.MNEAlaqiES.
106
A00154
CALL. SCAN ;FIND.MATCH.IN.TABLE
107
108
0118160
000157.
10317102
000157
milmmmtiG.
8Cr. 3$ ;OKA CONTINUE. 77t"
JMP. COMXX. ;RETURWTO ..mRimf-,'LooK.EbR.F.RncE5sOPHIAEMONIC*=-?
11;19
110
JUMP.TO.THE.ROUTIHE.THAT.GOVERNS THE.COMMAND.
111
112
uni
000000MFOI
3$:
jr1P .
Approved For Release 2005/07/0 CIA-RDP85-00514R000200020001-3
SP .0. r11110 27-flAR-80 15:7'11 PAGE ?B
Approved i-or Release 2005/07/
114
115
0000Fil
. ENID ?
dIA.-140085-00514k000200020001-3
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
SP MACRO Mi 110
SYMBOL TABLE
ALUCKE-040060
FILUOE-na40n3
Al -Ainnon
BITVAL-mmmmilm
BITE! ---0000001
BITI -0enan2.
BIT10 -
BIT11 -AA40A0
BIT12-010000
B T13 = ?
BIT14 -04ffinn
BIT15 -1AA0A0
8IT2. =0000004
BIT3 -AAAR1A
BIT4 =-01-10020
BIT5 ?FlAn040.
-0Fle100
BIT7 =.1111m2mu
BITS. =0000400
BITS =. 551500
BYTE@ -Uuutiuu
BYTE1 =. frjUIjjkj1
BYTE10-000012.
BYTE11-00A017;
BYTE12-000014
BYTE-13-000015
BYTE14=-500516
BYTE15-000017
BYTE 15=
BYTE17= 055521
BYTEiu= uui
BYTEltl=
BYTE2- UNUUL-12.
BYTE20= 500024
BYTE21= AAAA25
BYTE22= AFinFes
BYTE23= 300027
BYTE24-0019e0
BYTE25=.000031
DYTE26=?00007.2
BYTE27-000033
BYTE28-1iORA7-14
BYTE29-000035
BYTE?. =?00AAA72.
BYTE30-000036
BYTE31-00007.?
BYTE32-0011040
BYTE33=-11019041
BYTE34-0190042
BYTE35-nn5n43
BYTE36-Ann044
bYTE?7,-AAAA45
BYTE38-001304
BYTE3q-00004?
BYTE4 -HHHHH4
BYTE40-000050
BYTE41-000051
?
27-MAP-00PAG R-1
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
BYTE42=A700052.
BYTE43-FIARA97
BYTE44=-050054
BYTE45-00RA99
BYTE46-000056
BYTE47-000097
BYTE48- PonnSn
BYTE49-A00061
BYTES -uukluu5
BYTE50-1:n0062.
BYTE51-ROAAF.3
BYTE52-000064
BYTE53.-550065
BYTE54-006105E.
BYTE55-000057
BYTE5S-AA0A7A
BYTE57-000071
BYTE58-000072.
BYTE59=:000073
BYTES =. 0061005
BYTE6u=s000074
ByTE61=.000075
BYTEF.2-00610775
BYTE63-RAAA77
BYTE64=.000100
01'7E65-RA0101
BYTE66.-AAA102.
BYTE67-01710107.
BYTESS-000104
0YTE159-0ffi1AFI
BYTE? --AnAFIA7
BYTE70-AAA1AF,
BYTE71-000107
BYTE72-00011171
BYTE73-6100111
BYTE74-000112.
BYTE75=.000113
BYTE76-000114
BYTE77-000115
BYTE 713=
BYTE79-000117
BYTES =? 000010
BYTESO-000120
BYTES1=-000121
BYTES2=.000122.
BYTES3=.000123
BYTES4=.17100124
BYTE85-000125
BYTESS-000126
BYTE87-000127
BYTESB-AAA1721A
BYTE89-A00131
BYTES -000011
BYTEq0-AA017.2.
BYTE91=-A11017
0YTEL-d2=.000134
BYTE9.3-000135
Approved
BYTE94-0001725
BYTE95-00013?
BYTE96.-AAA14171
BYTES?-000141
BYTE99-000142.
BYTE919-0n0147.
BYTVAL-A00144
CBKALL-017110N0
CBKCLK-000400
CL5 =-****** GX-
C006RE-100000
CODE. 0uki02uhe.U.
COMXX-****** GX.
CFCCEH=.010AA0
CPREAD-A4AAAA
CRWRIE-H,'uniu
C5ADRD-u1-1lJuH4
CSEOCI=-1RARRR
CSOE. -A00040
CSURTE=.0A0100
DBR:RD-U0UUH1
DBSCPP-001457
DEVRT-000025
DE$IHL.-00002..6
DISPGS=.100000
DMAAWR-A0001715
DMARRD-000007.
tim1ik1Lw=?1100004
EHBR. -010000
ERR 12-
ERR?. -******
ERRS .-******
FIHD. -.******
GCMBLK-******
G,DPRM-******
LDS -******
LOC,EN-AnAlAn
LocAJA-a40000
LOC:LIB=.1AAAOR
MAREH1-HH01101
MAREN2-004000
MARLOD-010R00
MAROUT-AnAnn2.
MAR.00=-FinRA40
MoKALL-noinnn
MOKCLK=.0n04no
MMADRD=.0A0100
MMLEFT-AAA01712.
MMOE. -17105504
MMURTE-000010
MHOBRE-10000n
MREH1 =.HHHHH1
MREH2-=.026106A
MSYH? -000040
PLB. =
PLC- =
PLO- =
PLRWR.=
PLR EH=
PS5 =
OPSCR1=
ORSCR2=.
OR$LOR=
0$ATTH=
OSBCL-=
002.0SCCCP=
OSCHB.=
0$CHRL=
OSCLR.=
0$CHC.=
0$CP. =
OSCPCC=
0$CP2.=
0$CBC.=
0$usEL=
OSCSET=
OSCSR.=
0$DMA.=
OSEH0K=
OSEHOP=
0$FOL.=
011FC. =
OSEO. =
0$EP. =
USHER .=
OSICP.=
CISIHB.=
0$IHRL=
CISIMRP=
O$LBD-=
1171$LETP=
0$LBH.=
0$LDCD=
0$LDMD=
0$LDPP=
0$LHP.=
0$MHC.=
0$MR. =
0$MAP.=
0$MRP2=
OVISC.=
CI$MSET=
QVISP.=
QV-IC:LK=
Q$PP- =
0$PPEW=
.000010 OSOLR-A110.001
-000020 0$01J =-RAR042
IVAN 0$RDCD 0$PDMD-000005
- Anuin5
.0002UU ? 0$REBK-0010FIA
O ****** 51LD.OX,0 L,
74 ; 3. STARMADDRESS, END .ADDRESS, HO Li ISSUE,ONLY.OHE.
75 ;
7R PROMPT.AND.FILL.MEMORY.(BETWW
EESTART.AND.END.ADDRESSES),--
WITH ,THIS VALUE, ,..'.-
77 ; SP>LD.OW-R 7 ? , ?_1;10 ; ? , ? 1
78 ( ; 4. START .ADDRESS, END .ADDRESS, LOOP.INDICATEIR: IS.SU.E_ONLY.ONE.,
79 ; PROMPT.ANDWOOP.OH.THE.LOADING.OF.MEMORY.C.BETWEEN START:
80 AND.END.ADDRESSES) WITN.THISNALUE:
81 ; SP>LD.OW.0 7 L.
R2. ,
83 ;
84 000074 010167 0000800- 2$: Mg../. R1,RTNPT. ;SAVE .POINTER- -
R5 Anoinn CALL. FIND ;LOCATE.START.ADDRESS.IWCOMMAND.LINE.
RR A00184 107004
87 000106
88 AA0112. 800157 000552. !JI:" :71 3$
ERR4 ;OK, CONTINUE.
;"MISSING.OPERAND
LD5X ;EXIT.
89 0801 15 3$: ;CONVERT.COMMAND.LINE.VALUE.TO BINARY-
90 POOP,. 107004 nt7. P4:CK ;CONVERSIOWSUCCESSFUL.
91 000124 CALL, ERRS ;'INVALID.HUMERIC,VALUE
92 800170 000167 000544: JMP. LD5X
97, ;
94 000174 dlbrbr UtimvimmU.MULIUUU.4$: MOV, BIMWDfiMSTRT. ;SAVELOADING,START.ADDRESS.
95 01710142. 016757 UHMHUHLIAJUdddIJU. MOV. BINWD,M5TR2. ;SAVEAT.TWICE,(FOR.REFRESN.ON LOOP)
95 AnniFin 812757 1(r(rr 00Hmumb. MOV. *i MEND ;INIT.END.ADDRESS.
97 ?
BR ; START.ADDRESS.HAS,BEEN FOUND, SCAN.FOR.END ADDRESS.OR.LOOP.
99 ; INDICATOR.(CONDITIONS.2, 3 ABOVE). IF-THERE.IS.NOTHING.
inn ; FURTHER.IN.THE.COMMAND LINE, CONDITION.1 IS.IN.EFFECT:
101
I612 000156 ,CALL. FIND
103 000162. 103004 BCC, 5$
104 800164 052767 AuumlAu.AAAmmmi? BIS. #RP,BASE.
105 000172. 00047.7 BR , 9$
105 ;
107 000174 122711 000114 5$: CMPB L,(R1)
108 000200 001005 EINE . 6$
109 000202- 015767 uu1immuG.000000G- MO V ? MSTRTMEND.
110 008210 CALL. HANG
111 000214 000425 BR 9$
112 -,1---..777r4417777.7.mie,,,,irl-: X717477711,:. '4,it .t.,...
113 000216 5$: CALL, PACK
114 AAA222. 107004 BCC. ;CONVERT.UPPER.ADDRESS. .
7$ ;OK, CONTINUE.
? Approved For Release 2005/07/10CIA-RDP85-00514R000200020001-3
;SCAN.COMMAND.LINE.
;SOMETHING THERE.
;SIGNAL.TO REPEAT.PROMPT-
;JUMP?TO.RTN-
;LOOP-INDICATOR,
;NO, MUST.BE.USPER.ADDRESS-
;SET.END.ADDR?STARMADDR.
;HOW.TO.STOR.LOOP.
;JUMP.TO.RTN.
SPLD reo. mit io 27-MOR-20 15:72- PAL; . ? ? ,
APproved Fr 2005/07/1.1A-14CP-
i- 85005-14R000200020001.-3 .
115 000224
116 000230 0001E7 000444
117
118
119
120
121 000234 016767 1-1000001.1.011m0UN6.7$:
122.000242-
127. 000241; 103411
124 000950 122711 000114
125 000294 001404
126 000256
127 FIRA2f;2. 000167 000412
000265
129
130 000272. 016701 u0liu001
131 000275 0170171 000000
177.
133
134
135
136 000302- 012767 000004 0000000.LD5OXI.:
137 000310 000420
138
i39
140
141 0011312. 012767 HUUMMh mmmimmu.L.D5OB:: MOV.
142-000320 000414
143
144
145
145 000322- LD5OR.:7.
147 000322- 012757 000905. 0017101100.
140 1100330 00041A
149
150
151
152.000773. LD5SR::
153 000332. 012757- 0A0007 00A000G-
154 000340 016745 0000000 ?
155 000344 015746 HMHHHHU
156 AA0356 n004n4
157 000352. 1350:
158 000352. 016746
159 0007515 01574
15171 000352. LDSGO:.
161 990362.
162.000366 103002.
163 0007.70 01.710.17 017107.04. ?
164
165 0007,74 07.2757 000000G-0AAAA9G.1$:
156 000402, 001414
167 000404 2$:
158 000410 107401
169 000412. 102002.
170 000414
171 000414. 000157
?
?
?
8$:
9$:
?
A
?
CALL. ERRS
JMP. LD5X
;INVALID.NUMERIC.
;EXIT.
SAVE.END.ADDRESS.(BINARY)
CHECK.FOR.LOuP.INDICATOR.AFTER.END.ODDRESS
MO','
CA
BCS ?
CMPB.
BE O.
CALL.
JMP?
CALL.
BINWD,MEND.
FIND
9$
#L,(R.1)
9$
ERR 11
LD5X
HANG
MOV. RTHPT,R1
._IMP. @(R1)
LOAD.OEX-MEMOR'e.
NOV. *9$O) RESPONSE, CONTINUE.
;LOAD.48 BIT MEF1ORT'
;BUMP.ADDRESS.
;REPEAT.
;PROMPT.
;END.OF.MEMORY-
;HO. RESPONSE, CONTINUE.
;L000.48 BIT .MEMORY.
;ADVANCE.ADDRESS. -
;HAS.UPPER MEMORY.LIMIT.BEEN-REA.CHED*,
;NO, CONTINUE.
;LOOP.OH.
;YES, CONTINUE.
;REINITIALIZE.ADDRESS.
;CLEAR SP.
;WRITE TO CONTROL REG
;CLEAR? PROMPT FLAG -
;KILL AST (IF THERE WAS. ONE)
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
SPLD----MACRO 11I110 27-MAR-
80
15 Aiprglie; -7(:)r
Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
254
255
256
LOAD.SINGLE.WORD.MEMORY
000726
LOD5M1:
258
00072E
012746
000001
MOV. itS$LA,-(SP)
259
AA07-2,2
CALL. SF CR
260
00077..7,
016745
0000000.
MOV. MSTR2,-(SP)
261
AAA 742.
CALL. LBSP
0u0746
015745
HUUNMHU.
MOV. CODE,-(SP)
263
nAn757.
CALL. SKR
264
000756
016745
00MAA01,
NAV. DAT01,-(SP)
265
A5A752.
CALL. LBSP
255
000766
RETURN.
257
265
LOAD .3 WORD .MEMORY.
7f;-9
270
E100770
LOD5M3:
271
A0577R
SAVE CODE,DATA1
272.
nAlAAA
CALL LOD5MI
2772,
A11FIA4
005267
HHHHHHU
INC CODE
.,.. 4
aoiaia
016767
AnAAAAG
000000G.
MOV DATA2,DATA1
275
05101F.
CALL? LOD5M1
276
001022.
005257
uuuummi,
CODE
2(r
Hm1H2f.,
01b(6(
UM0HAMI,
AHMAHM1_,.
MOV DATA3,DATA1
278
001034
CALL LOD5M1
27.1)
A01040
RESTOP. CODE,DATAI
28 El
001058
RETURN.
281
Q
0000A1
.END
:ADDRESS.SPLErT.
;SEND.TO.SP.CONTROL.REG.
.;ACTUAL .ADDRESS.
SEND TO
SELECT MEMORY
DATA' WORD FOR MEMORY
SEND DATA TO 5.
;LOAD WORD A
;SELECT WORD B
;SET UP DATAI
;LOAD WORD B
;SELECT WORD C.
;SET.UP DATAI
;LOAD WORD C
hi
q71FrTYMIMMIIMMY
Approved For Release 2005/07/OCIA-RDP85-00514R000200020001-3
,
GPLD 4110-MI110
SYMBOL.T ?
ALUCKE-A4AAAA
ALLIOE.-0A4AA0
A01 -AIAAAn
BASE. .-****** GX.
BINWO-****** GX.
BITVAL-AAA0A171
BITA =.0000A1
BITI --uuuuti2
BIT10
BITII -1-1040A0
BIT12.-010000
BIT13 --u2..Huuu
BIT14 -0401100
BIT15 =.1Luuum
BIT2. =.0AAAA4
BITE -000010
BIT4 =.11HHHH
BITS =-000A4F1
BITE. -AAAIFI0
DIT7
BITS. -0004AA
BITS =.1711,11AAA
BUFAET-****** GX.
BUFSE -****** GX:
BYTEA -AAAAA0
BYTE1 =.0AA0n1
BYTE10-A0AA12.
BYTE11-000313
BYTE12-AAAA14
BYTE13-A0A1115
BYTE14-000011;
BYTE15-000017
BYTE16-AAAA211
BYTE17=.000021
BYTE18=.000022-
BYTE19-0000-23
BYTE2.-AAAAA2.
BYTE2u-H0HH24
BYTE21-00A025
BYTE22-00A026
BYTF23-00A027
BYTE24=? RAA1-10
BYTE25=.00A031
BYTE26=.000032.
BYTE27=-AAA97.7
BYTE28-AAAA72.4
BYTE29-AAAA72.5
BYTE3 =.uukluil3
BYTE70=-AAA072A
BYTE31-AAA0-2.7
BYTEE2-AAAA4A
BYTEEE-AAA041
BYTE34=-A0nA42.
BYTE35-AARA47.
BYTE35-500A44
BYTE37-000045
BYTEE8-AAAA46
27-MAR-GO 15:2. PAG E.7-1
Approved For Release 2005/07/ CIA-RDP85-00514R000200a200014
. ? . ?
BYTE7,9= AAAA47
BYTE4 = AAOAA4
BYTE40= AA0A5A
BYTE41= 0AnA51
BYTE42= AAn052.
BYTE43= AAFIA53
BYTE44= 001;1054
BYTE45= 000055
BYTE46= 000055
BYTE47=?AAA057
BYTE4B= 000060
BYTE49= 000061
BYTEE = o1Inoo5
BYTE50= ACIAAA2.
BYTE51= 0A00572.
BYTE52.= uutiut.4
BYTE53..--.AAnA5
BYTE54-0FIAA
BYTE55-AAAAA7
unEsb-uutium
BYTE.57-.1100071
BYTE511.-AAAA72
BYTE519=.000077,
BYTE6 -000005
BYTEAO-AA0A74
BYTEA1=.000075
BYTEE.2-ARAA76
BYTEE.3=-AnA077
BYTEF;4=-A0A1A0
BYTEF;5=.A00101
BYTEA6-0A0102-
BYTE67-000103
BYTE5S-000104
BYTE69-000105
BYTE7 -AA11007
BYTE70-000106
BYTE71-000107
BYTE72=.000110
BYTE73-000111
BYTE74=-000112.
BYTE75-0001172,
BYTE76-000114
BYTE77-000115
BYTE78=.00011A
BYTE7R-A00117
BYTEA -00001A
BYTERO=.00111211
BYTEEM-AAA121
BYTEA2=.000122.
BYTE03-AAA127
BYTE84-AAA124
BYTE85-AA0125
BYTEA6--AnAl2A
BYTEA7-AAA127
BYTE88-0AA170
BYTE-89-000131
BYTES -A00011
Approved
BYTER0=-0001:12. LOC,WA=.040AAA 0$ICP.-HHHHHF-
BYTEA1=-AA0177, Lnc:Le-innnnn p$THP-AAAAA7
BYTE92=.00017,4 LOO5M1 000726R. 002.0$IHRL-LimmbH2.
BYTE93-000135 LO55M3 0A077AR. 00-2.0$IMRP-AAAAA7
BYTE94-11A017'1A LOOP. =.****** GX. O$LBD.-,R01000
BYTEA5-AA017.7 MAREN1=.000001
BYTE96-000140 MAREN2-0040A0
BYTE97-000141 MARLOD-01AAA0
BYTE98-000142. MAROUT-AA0A02.
BYTE-q9=-00A147 mAR:Lo-u04414vt
B1TVAL-000144 MAR:67776B8040, ,
CBKALL=.00100A MBKALL-A01A00 -
CBKCLK=.000400 MBKOLK=.000400
CNOBRE-IAAAAA MEND ? =? ****** ?
CODE. .-****** GX. MMADRD-000100
CPCCEN-010000 MMLEFT=.000002.
CPREAD-A4n0AA MMOE. -AAOAA4
CPLFTE-A2AAAA MMURTE-A00A1A
CSADR1'=.000004 MN0BRE-100000
1..:!7JEuCI-Imuumn MREHI -000001 '-
CSOE. -AAA040 1'1REH2.=.020Ar1.a.. ,
CSURTE=.0001A0 MFTRT-****** DX
DATA1 =,****** GX. MSTR2.=.******.LX,
DATA2-****** DX. MSYN. -AAAA40
DATA?. =.****** GX. H. -000144
OBR,RD=.0AA001 PACK. =.******
OB$CPP-001457 PDATA.=.******
DB$tiPT-AA1102F, PLB. =.AAAA1A
OB$TPC-AAA027 PLC. -000A2A
DISPGS=.1AAOAA PLO. =.0AAA7.0
DMAALF-AAA005 PLRWR-0-002AA
DMARRD-000003 PLREN-000200
DMARLIR-AAAAA4 ORSCR1=.17F.420
ENBR. --A1AAAA 0R$CR2=.17422
ERR 11 -****** GX. OR$LBR=. 17E41747:
ERR4 -****** GX? 0$ATTN-000100'
ERRS --****** GX. 0$BCL-000001
ERR? --****** GX. 0$CCCP-AAAA4A
FIND. -****** GX. OSCHB-00-0400
HANG. -****** GX. 0$CHRL-000200
INCVAL-****** DX. 0$CLR.-000040
KILL. -****** GX. 01-CHC-072,0AAA
LBSP. -****** U OTCP. =.00C950,_
LIT 000030RG. 002.0$CFP.0 -71-Fribp
LD5GO. A111172.A2R 002.0$CP
LDSLN-AAAAAF. D. 171.0p0 ,
LD50. 000352R. 002.O$CSEL= 003E0
DX ?
GX?
0$LBDP-0A1001--
0$LBA-=.0HUFJ01.
04-.LDCD-UUUUK-2.
D$(;:?DPO=.002000
,J JUUJ
-0$MNC-140000
0$MR -000052
CISMRP-00004A
0$MRP2=- 000240
? 0$MAC:- = ? 1140000
OVIRET= ? 0000.04
_ ___R$MSP ? 100000
:.,,,CISHC,LK=1,/e;000
p
=E1OEI1LIu
,Q$APSW=::AFIAT-7.20
1:71$PR7,201107.00
0$OHLT=.1100A172.
Q$OL =. 1100043
osoLA-nnon53
0$0LB-AAAA54
0$17ALR-nnnnell
0$0W -A001147
0$RDCD-AAAPIA5
0$RDMD=.0.00,01743
0$REBK=:,001000..
Q$R11e;?,,x,001::0?00
..:,;0$R!,:d.?-?? p.,?-?11114AAA ???
-0$RSEt.=-1117111A10
CISSM;= ? 100000,
'0$SP'? '=.AA012A
0V8P2.=.11A0340
RGO:EN-0A02AA
RGO,VA-020000
RP.
LDFOB
LO5OR
LDS':...
LO5A
LO5SR.
000312RG.
0110722RG.
AFIA302PG.
000572,4R.
OAA372RG.
LD5S1 A00515RG.
AAF152ARG.
LD5TBL. 000A00RG.
LD5X. 000700R.
LOC,EN-AAA10-0
For Release 2005707r
00?.0$CSET=.00A002.
011?.0$C!BA -020000
0112-u$DMA.-11011AA1
002.0$ENBK=-040000
002.0$EHOP-11200011
002.O$FAL-004000
0112.O$FC. =.000045
A112 .0$F0. -000044
002.0$FP. -000046_
aop2o
=.****** GX.
RTNPT-::****** GX.
biL,12,0 . = Gx
SLniDrl - ****** G X ? ?
iSED C:1:= ?1.1A00
SPCR -=:****** GX-
.'iSPSXX,''=!******,GX.
SOHIGH,j.****** GX-
SOLOLL=.****** GX.
SRHIGH=?******
SRLOW-,.***'*** DX
s.scLR.--nno9--
S$LA =.0n0Av
SSOB =.AAA1105
SSOR =.uuUuue.
S$OX =.0u1.JUI-34
S$SR, 7-1A111107
SPLD mAcPo H1110 27-MAR-80 15:37J PAGE.7-2.
SYMBOL TABLE Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
S$S4.00.-AAAA1A
S$52. =.0A1A14
7D1121-R=.176370
T.D$0TW=.175350
TD$INW=.11A4AAA
TD$MEM=.0A027A
TD$OAR=.1761344
TD$OTR=.171,7,72.4f;
TD$ORD=.000274
TD$SW.=.17F.37F,
TD$TAR=.175372.
rD$TAW=.1.76352.
(D$TDR=.176374
ID$TDW=.176354
-000020
T$BA. =.AAAA02.
TTBD- -RAARin
T$B5O.=.1AAOAA
T$EIT. =. 888828
T$BTAR-ARAA72.171
TSBTD-An2Ann
T$CD. =.171017110171
T$CLK.=.0A2A0A
-1/3DI5K-080700
T$DRD-Limmvim4
T$EMEM-.01A0AA
T$FSHA-UlduuLlu
T$FSAB-uouuu4
T$FS'1210=-AAAA14
TSFSB2=.00171010
TSIB. -000025
1$1BAK-UUmm24
? ABS. AAAAAA 000
FiLiumUU 001
SRLD. 001052. AA?.
ERRORS.DETECTED:
TSIBE.=? 0251000
TSIBF.= A4AAA0
TSICD.= 000048
TSMODE= 004000
T$OB. = 0OAAA3F,
T$OBE.= 171114171051
T$OBF.= 010000
T$OBRA= 0 000074
T$OBWR= 01710032.
T$OUTA= 180080
TSRBDU=.013U.200
T$RHB..=.1710AR4A
T$RBET-A40AAA
T$SC. -000027-
TSSCLK=.0200AA
TIISEGI-mmuuum
T$SEG2-HPIAmu1
1$!--;EU= mmmuu.d.
T$S0. =AJUIJUU1
TSLIBu!1-; =
T$1CLK-000400
TVEIBEH-umuu,u
UBD,IH-LIAuALA
WORDA -AAAnnn
WORDI =.171AAAA9.
WUND1m-Hmilw,-.4
WORD11=0000026
WORD12-000070
WORD17-1710PIA72.2.
WORD14-00017134
WORD15=.00007.5
WORD1R=.0A0A4A
VIRTUAL.MEMORY.USED: 3456 WORDS. (.14 PAGES)
DYNAMIC.MEVURY: 4915 WORDS. ( 18 PAGES)
ELARSED.TIME: 00:00:45
SPLD,SRLD/-SP=E20,1JIM,C20,13SPLD..
WORD17-000042.
WORD18-AROA44
WORD13-888045
WORD2.-000004
WORD20-000050
WORD21-000052.
WORD22=.0AA054
W0RD23-000055
WORD24-000050
WORD25=.000852.
WORD26=0880064
WORD27.-0808
WORD2S-000070
WUHD2=.1f1UUU7--'.
WORDS-UUUUMH
WORD30-AAA074
WORM1=0AAR075.
WORD32-008180
1J0RD33=.000182.
W00234-.000104
1jORD35=-000105
WORD36=.000110
WORD37=.000112.
WORD78-008114
WORD7g.R=.AAA11F.
WORD4 -AAA01A
WORD40=.000120
WORD41-008122.
WORD42-000124
WORD47.-088125
WORD44=.80017.0
W0RD45-800170.
W0RD45=.000134
WORD47=.008135
WORD4R-000148
WORD49=.000149-
WORD5 =-080812.
WORD58-808144
WORD1=.008145
WORD52=.088150
WORD53=.000152.
WORD54=.000154
WORD55=.080156
WORD56=.000150
WORD57=.008157.
WORD58.=.000154
WORD59=-0011165
WORDS =.1.7100014
WORD50-080170
WORD61-5100172.
WORD62-000174
WORD63-.000175
WORDf,-.4=.008780
WORD65=.000202.
WORD66=.000204
WORD67=.000285
WORD68-080710
WORD69=.00A217.
WORD? =.000A11-7.
WORD70-008214
1JORD71=.0002I5
WORD72-AAA72A
WORD73=.000222.
7.777-1.111WW
W00D74-000224
WORD75=? 0510225
WORD7= 008270
WORD77= 808272
WORD7R=? 510827.4
WORD79= 80027.6
WORDR = 080020
WORDRA= AAA*7'411
WORD81= 008242
WORD82= 888244
WORDR3= 008245
WORD84=.04.1'04.71,0.
ttiRt85=I:1;042A?.::;-
WORD85=.a0002541,
W0RD87R00255
WORD8R=i000250
1J0RD89=.80022
WORDS = 8510022
WORD90=? 0051254
WORDS1= LIMU2bh
WORD92= 800770
WORD93= 000272
1LIORD94-01710274
WORD95= 800276
WORDSF=.= 00072.01.1
WORD97=?RAA7,A7
WORD9R= 000304
WORD99= AFIA7MF,
MRDVAI = 0003151
XTREAD= 001088
XTURTE=.0nA4AA
,
Approved For Release 2005/07/0 CIA-RDP85-00514R000200020001-3
? ?
'AV:1
SPPR-
MACRO.M1110 27-MAR-80 15133 PAGF 9
ApprovecrFor Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
1
.2?UPWIHMU
7
4
5
8
7
10
11
12?
13
14
15
18
17
18
19
2A
21
25 000000
24 008RA0 121 190
25 FinonA2
? MIMM14 125 122
? 660006- 000546"
.3i3MHMjUj 123 106,
23 oetoo12. 1Joo372.6?
9A AARA14 123
31 000016 000326'
^ A00020 122 061
27 ARFIF122 OA0470'
24 HHHM..L.4 122 062.
35 1a6625 000500'
56 AAAR3A
37
39
39
48
41
42
43
44
45
46
47 AO0A3A
48 eI00030
49 00A5124 1831184
5A AFIFIAT,'F
51 000042 000167 000614
53
54
55
11-117-117-14f; A127AC-1 AFIF-11-172.1,1
57 000052 012702. anAnnn..
?
.TITLE--SPPR
.PSECT. SPPR
HARDWARE.OUERRESOLVER.'MANUAL? DEBUGGING pIps.
SUBDOCUMEHT.PROCESSOR.TEST.ROUTINES.
COMMANDS:
PR PRINT.SR?MEMORIES.
ONCE-A.COMMANDJAAS.BBEWEXECUTED (OR.AN.ERROR.ENCOUNTEREDY
THIS.MODULE.RETURNS.CONTROL.TO.THE.MODULESP.AT.LOCATION.
.MCALL. WT9E$8fiCLEF$S.
TABLE.OF.VALID.SF.MEMORY.MNEMONICS.AND.ADDREBSES.OF.THEIR.
ASSOCIATED .ROUTINES.
PR5TBL::
.ASCII ADX/
.WORD. PR5Uk
.ASCII
.WORD. PR5SR
.ASCII. /SF/
.WORD. PR5OR.
.ASCII.
.WORD. PR508.
.ASOII? /51/
.WORD. PR5S1
.ASCII
.WORD. PR592.
PR5LN. ..-PR5TBL>
SPPR5::
PRINT.
PERFORM.THIRD.LEVEL.PARSING.
ES, IN.THE.COMMAND:
9P>PR.OX.0
PARSE .THE."--'
;OEXJ1EMORY.
;SUBREAD.MEMORY
;SDLB.REr:
SOLD
;SIITe
StrEftlE ' 2 ?
-
Cr2LL. FIND ;LOCATE.MEMORY.MNEMONIC IH.COMMAND.LIME.
DCC: ? 1$ ;OK, CONTINUE.
CALL. ERR4 MISSING OPERAND
PR5X ;EXIT-
MATCH.TNE.MNEMONIC,IN TNE-COMMAND.LINE.AGAIMST-THE.TABLE
OF VALID.MNEMONICS.
1$: MOV. #PR5LN,R0 ;NUMBER.OF. !ABLE:ENTRIES.
Approved For ReireaSe 200gre CIA-RDP85-00514A iiodiookbbbk3
'
SPPR- ISO ? M1110 27-MAR-90 15 : PAGE ? 5-
Ap-proved For1 Release 2005/07/1.1A-RDF45-00514R000200020001-3
Be 00099 CALL- SCAN
59 000062. 103004
AAAA4 CALL. ERR?
61 000070 000167 008558 JMP. PR5X
52
63
64
55
;MATCH? AGAINST COMMAND LINE,
;MATCH WAS MADE.
INVALI.D.AEHORY,1111EMON,IC!
SAVE' POINTER TO.ROUTINE.ASSOCIATED.WTTOTTRE.MEMOMNEMONIC.
SCAN.THE.REMAINDER-OF.THE-COMMAND.Ljk: -OCCONTROCINFORMATION:
55
I. START.ADDRESS.ONLY: REPEAT?PROMPT.FOR,EACH-MEMORY LOCATION.
67 FROM.THE.START.ADDRESS.FORMARD: NB: END OF .MEMORY (AS DETECTED'
68 BY.THE.OMAIN.SUBROUTINE?PDATA) OR.A. RESPONSE TO-THE.PROMPT?
69 WILL.TERMINATE.THE.LORD:
701 SP>PR.OX.0
71 START ADDRESS. LOOP INDICATOR. LOOP.ON.THE.LOADING.OF.
72. THIS.ONE.MEMORY.LOCATION.ONLY.
73 8P>PR.OX.0 L.
74 3. START .ADDRESS, END .ADDRESS, MU LOOP ISSUE.ONLY-ONE., ?
75 PROMPT.AND.FILL.MEMORBETWEEN.START.AND.ENII.ADI*EUES)
??
76 WITH .THIS VALUE
77 sP>PR.OLi?A
79 ; 4. START .ADDRESS, END
79 PROMPT.AND.LOOP.ON
80 AND.END.ADDRESSES)
81 SP>PR?01,1.0 7 L.
82.
n7
84 000074 0111187 0000000 2$: MOV. P.1,RTNPT.
85 000180 CALL. FIND
85 080184 1A7AA4 BCC 5$
87 000106 CALL. ERR4
R8 RAA112 80817 8R8544 JMP. PR5X
89 000116 3$: CALL. PACK
90 888122 1030114 8CC. 4$
91 000124 CALL. ERRS
92 AA0150 AAA167 011052 JMP. PR5X
93
34 000134 016767 ut11muul..1.000009G.4$: MOV-
95 000142 815767 Hmmuutiu.uummumb. MOV.
96 880158 812757 177777 ?AAAAAAG MOV.
97
9R
99
188
inl
102808155
183 000162. 183894
104 888154 815757 Atimmmtli,HAAHANU.
I05 809172 000445
185
107 000174 122711 000114 5$: CMPB. *.?L,(8.1) ;LOOP.INDICATOR.-7-
1A8 8882AA 8M 1811 8NE. 6$ ;NO, MUST.BE.USPER:ADDRES
11..13 muuLu'Ll 052757 umuumuu.AmmmumG. BIS. *OUT, BASE. ;SET.FLAG.OR.OUTPUT CONTROL--
11u u8821m u1H7h7 umumuuu.mmuutimli. NOV. MSTRT,MEND. ;SET-END-ADfR.g:START.ADDR. ?
111 000216 CALL. HANG ;HOW.TO.STOP.LOOP.
112.AA0222. 088431 BR q$ ;JUMP.TO.RTN.
ADDRESS, LOOP.INDICAtOR: ISSUE ONL'f,'.0NE.
THE.LOADING.OF.MEMORBETWEEN START.
WITH.THIS.VALUE:
;SAVE.POINTER.
;LOCATE.START,ADDRESS.IN.COMMHH,D.LINE.
CONTINUE.
;"MISSING.OPERAND,.?'
;EXIT., ,
;CONVERT.COMMAND.LINE.VALUE.TO BINARY.
;CONVERSIONCCESSFUL. ,
;.?INVALID-NUMERIC.VALUE
BINWD,MSTRT. ;SAVE.LOADING.START.ADDRESS.
BINWD,MSTR2. ;SAVE.IT.TWICE-(FOR.REFRESH.ON
*-1,MEND. ;INIT.END.ADDRESS , -
START.ADDRESS.HAS.BEEN FOUND: 5CAfT:FEFTEND,AbDRES8OR.?00P.
INDICATOR.(CONDITIONS.2, 3 ABOVE)=.-7-IF:.THE$EJIS.NOTHING-
FURTHER.IN.THE.COMMAND LINE, CONDITIONA IS-IN.EFFECT:
CALL.. FIND ;SCAN.COMMAND.LINE.
BCC. 5$ ;SOMETHING THERE.
MO'' ? MSTRT,MEND. ;SET.END.ADDR?START-ADDR.
BR 5$ ;JUMP.TO.RTN.
113
114
080224
Approved For Release 20u 7/12 : CIA-RDP85 Clefe0600500M
, ,
LOOP)
? SPPR-
MACRO.M1110
27-MAR-80
15:33 PAGE-5-2-
Approved For Release2005/07/12 : CIA-RDP85-00514R000200020001-3
115 000230 103004
115 000232
117 Onn27;fr, AAA157 000470
118
lig
120
121
122 000242. 015767 utluuu0G.0000008 7$:
123 000250
124 000254 103414
125 000255 122711 000114 ?
125 000262- 001404
127 UUH4
12e 000270 000167 000366
129 080774 8$:
OU1112(4 Ub2(b( 000000...UUH1UU6
131 000302
132
1.4.3 OAA7,A5 016701 00000AG. 9$:
134 000312 000171 000000
135
136
137
138
139 00071E. 0127E7. 000004 11800000
140 0007,24 000420
141
142.
143
144 000325 012757 000005 00u0001,
14:5 001714 RIF10414
145
147
148
149 171817176
150 000336 012757 uniuub 0000008
151 00072.44 017104ici
152.
157.1
154
155 000.345 PR5SR::
156 F1007246 012767 0AA007 000000G-
157 0007.94 016744, u0u000G-
158 000350 015745 uuldeluLG.
15c.1 17-00.3Re- 0004114
1150 000:355
151 008756 015746 0000008,
152.1710072 015746 0000008.
163 000775
154 171011775
165 AAA4A2 1073EiL12.
155 00040e 000167 000252
167
158 01710410 $:
159 00A410 ALL RD5M1
170 000414 0167E7 uuwid uu
uu uuuum. MOV. DATA4,DATA1 7717117117S ArLL)14TE4E 757
"
C.
171 000427 CALL- PRDATA.
Approved For Release 2005/07/10,1A-RDP85-005141Q606620001-3
PRS0x::
BCC... 7$
CALL ERRS
IMP PR5X
;OK, CONTINUE.
;INVALID.NUMERIC.
;EXIT. _
SAVE-END.ADDRES5.(BINARY)
CHECK.FOR-LOOP.INDICATOR.AFTER END ADDRESS (CONDITInN
MOV. BINWD,MEHD-
CALL. FIND
Br.!=;. 9$
CMPEI. #ft.,.(R1)
8E0. 8$
CALL. ERR 11
IMP. PR5X
3
4)
;SET.UP.END.ADDRESa.
;CHECK.FOR LOOP.INDICATOR-
;NO-LOOP-
;CORRECT.INDICATOR.
;YES. CONTINUE.
LOOP OPTION
BIS? *OUT. HANG ;SET.OUTPUT.CONTROL.
CALL. HANG ;HOW-TO.STOP.LOOP.
IMP1D.-.
RTNPT,R1 ;POIHT.TO.ROUTINE.
(R1) .:JUMP TO ROUTINE
PRINT.0-Y MEMORY.'
MOV. #S$OX,CODE.
BR PR50
PRINT-SDLB PAGE MEMORY
PR5OBt: MOV. #S$OB,CODE.
BR PR50
PRINT.OLB.REFERENCE.PAGE.
PP5OR::
MOV #s$OR,CODE ;SET MEMORY SELECT CODE = REFERENCE PAGE -
BP PP50
;SET.MEMORY.SELECT.CODE.=-idEX:
;SET-MEMORY.SELECT.CODE?SDLB PAGE.
PR50:
PR5Gn:
PRIHT.SUBREAD.MEMORY.
MOV ?
MO".'
N
MO kt,"
?
#S$SR,CODE.
SRHIGH,-(SP)
SRLOW,-(SP)
PR5G0
;SUPPLY.UPPER.MEMORY LIMIT.
;LOWER .LIMIT.
SOHIGH.-(SP) ;SUPPLY-UPPER.MEMORY
SOLOW,-(SP) ;LOWER.LIMIT.
CALL- BUFSET. ;PREPARE-FOR.PRINT.
BCC. 1$ ;OK, CONTINUE.
IMP. PR5X ;ERROR, EXIT.
ttt,
1
?
? otittoi ?:?;?;
,
SPPR- 11110.M1110 27-MAR-80 15:33 PAGE.5-3
Approved For Release 2005/07/10CIA-RDP05-00514R000200020001-3 '
et9T.
172-
173
174
175
176
177
178
17-J
180
Fir-1171426
timm47,4
88111442.
000444
rin0452-
mHA454,
1,11,1H4bu
00046
855757
025757
1A17F,?.
032767
00 1002
000167
015(6(
000750
98510510G. 888G-
Hm1.11.11.1mu.mmmmmmu-
UUUUMMIMMUUMMIJ.
A00202
UMMMIIHU.MMUUMUU.H$:
ADD.
CMP-
BUDS.
BIT.
SHE.
JMP-
MUV.
BR
INCVAL,MSTR2.
MSTR2,MEHD-
1$
*LOOP.BASE-
8$
FR 6::
MSTRT,MSTR2.
1$
;BUMP.ADDRESS-
;HAS-UPPER MEMORY.LIMIT.BEEN-REACHED-
;HO CONTINUE.
;LOOP.OH.
?
;YES. CONTINUE. --
;REINITIALIEE.ADDRESS.
? I
? a
;
,
45: .
5
; 5
.
,
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
M VP ?
? '
SPPR- MACRO M1110 27-MAR-80 157-7,3 PAnE4--.
Approve-a vor Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
182-
183
PRINT- SIDMEM (MULTIPLE PAGES)
184 000470
PR5S1::
195 0004711
01277
800010 0000000.
NOV.
#S$S1,CODE.
186 000476
AnA41172,
BR
PR5S
187 000500
PR5S2t:
188 000500
012767
000014 13000000.
#S$52,CODE.
189 000506
PR5S:
100 OF1A5A
016745
0000000.
MOV?
SDHIGH,-(SP)
191 000512.
Ulb(46
MMUMHUU.
MOV.
SDLOW,-(SP)
192.000515
CALL.
BUFS3
1973 RR0522.
1.03002.
BCC.
1$
194 000524
00015?
000132
JMP.
PR5X
195
195 000530
1$:
197 10530
SAVE.
CODE
198 808F574
::ALL
RD5M1
1,7;9 000540
17115757
AAAARAG?0000FIRG.
MOV.
DATA4,DATA1
200 000545
005267
000000G.
INC.
coDE
201 000552.
CALL.
RD5M1
202 i8555
016757
MMMMMMI,MMIIMMHb.
MDV ?
DATA4,DATA2.
20-2 AA15F/
00ti7E7
0000000-
INC.
CODE
2P4 000570
GALL.
RD5M1
2Ca!-1 000hr'4
111hrhr
HMMHMMU 11.11-11-1MM.
MOV.
DATA4,DAT':
21716 0E-10P-12
RESTOR.
CODE
20?
208 000505
GA-L.
PRDATA.
209 000612
103002
BCC
20$
210 000614
00015T,
000042
JMP.
PR5X
211
212 000528
20$:
211 000520
066767
8000000 8888880
ADD
IHCVAL,MSTR2.
214 000525
02675?
0000HH1,41111-111M111,.
OMR.
MSTR2,MEHD.
215 00017174
101735
BLOS.
1$
215 000535
032767
OuUuuuL.ULIUI-Juui...
BIT
*LOOP ,BASE.
217 AAA544
001002.
BHE
8$
21R AAAR45
ARA11:7,7
000010
JMR
PR5X
219 000552.
01575?
3.30000UUMH1.11.11,.U000UMU.U$:
NOV.
MSTRT,MSTR2.
220 000550
000722
UR
1$
221
221 000652.
PP5X:
224 000662.
012746
001.710AA
MOM.
*S$CLR,-(SP)
225 000666
CALL.
bPOR
72F. 000672
042757
OAAAOAC-OAAOAAG.
BIC.
*,BASE.
227 000700
22e 0007134
.000167
ocinFicloc
CALL.
_IMP. ?
KILL
SPSX'k
;SELECT.SIDMEM-1
;5ELECT.SIDMEM.2.
;SUPPLUPPER.MEMORY LIMIT.
;LOWER .LIMIT.
PREPARE FOR
CONTINUE.
? ;ERROR, EXIT.
;READ MEMORY .WORD
;SAVE FOR
;SELECT WIIRD
;READ MEMORY Liop.a..:6 ,,7
;SAVE FOR PRIHTIHQ-,
;SELECT WORD C
;READ mEma-Lbiovgic.
;SAVE FOR PRINTING':
;PRINT.MEMORY?CONTENTS-
;NOT?END-OF.MEMORY.
;END.OF.MEMORY.
;BUMP.ADDRESS.
.:HAS UPPER MEMORY.LIMIT.BEEN.REACHED.
;NO, CONTINUE.
;LOOP.OH.
;YES, CONTINUE.
;REINITIALIZE-ADDRESS.
;CLEAR -SP.
;WRITE.TO.CONTROL.REG.
;CLEAR.PROMPT.FLAG.
;KILL.AST.(IF.THERE-WAS.OHE)
Approved For Release 2005/07/14IFIA-RDP85-00514R000200020001-3
SPPR- 190 MI110 27-1AP-80 15:33 PGE 7
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
-
230
23 i
070
PRINT-SINGLE WORD.MEMOR'r".
233 000710
45M1:
f,!
234 00171710
012745
000001
MOV.
;ADDRESS SELECT
235 000714
236 000720
016745
uukauLIUG-
CALL. SPCR
MOV. M5TR2?(SP)
;SEND TO SP CONTROL,.REG-7-...6:
;ACTUAL ADDRESS
237 000724
CALL. LBSP
;SEND TO SP
217,8 00077,0
016745
0000000.
MOV. CODE,?(SP)
;SELECT MEMORY.
235 000734
CALL. SPCR
A
240 000740
CALL. SPLB
;DO SF TO LOS BUS
"241 Hm11(44
i1bbi
1.11.1HHHMU.
MOV. (SP)+,DATA4
;FETCH. DATA.
242,000750
RETURN-
243
244
nonoot
END.
-
. ? ,;,?,1'
'
I
- 4
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3-__.
I ,I.
? ? . i
?? ? ? ' ,
?
,
IIIPP.
SPPR- MACR0-H1110
SYMBOL TABLE
ALUCKE-040000
ALUOE-004000
A01 -010000
BASE. =.******
BIHWD.-******
BITVAL-AAOAAA
BITO -A0A001
BIT1
BIT10 =.0A2AA8
BIT11 =.00400
BIT12 -AlAAAA
BiT17 -A2AAAA
BIT14 -A4AAAA
5IT15 =.1AAAAP
BIT2. =.1.11.1MUM4
BIT3 -.AAAA1A
eiT4 =-0AAA20
BITS =.AAAA40
BITE -AAA10A
BI T7 -0AA20A
BITE. -000400
BITS =.001000
BUFSET-******
BUFS3
8)7E0 =.000A0d
BYTE1 -0000A1
BYTE10-000012
BYTE11=.0AAA13
BYTE12=.000014
BYTE17.-000015
BYTE 14=
BYTE15-0A0017
BYTE1b=.1,1H0m2u
BYTE17-000021
BYTE 18=
bYILII:J=.HMWA
BYTE2.-uu1Juu2
BYTE20=-000024
BYTE21-...000025
BYTE22=.000825
BYTE23.-u0uLr-2(
BYTE24-000030
BYTE25-1108031
BYTE2F,-00007.2.
BYTE27-000033
BYTE20-000074
BYTE29=-000035
BYTE3 -AAAAA-2.
BYTE30-000076
BYTE31-000037
BYTE32-000040
BYTE33=.000841
BYTE:34-000042.
BYTE35-000043
BYTE35-008044
BYTE37-800045
BYTE30-000045
GX.
GX.
GX?
OX ?
27-MAR-SO .15'73 PAGE? 7-
Approvea r or Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
BYTE39=.000047
BYTE4 -ORA004
BYTE4A= AAAASA
BYTE41=.000051
BYTE42=.000052.
BYTE47-000057.
BYTE44-000054
BYTE4S-000055
BYTE45-008056
BYTE47-880057
BYTE4A-088050
BYTE49-088851
BYTES -AAAAAS
BYTE5A-008052.
BYTE51-AAA0A7
BYTE52-080854
BYTES3-8000E5
BYTE54-0000155
BYTEs5-000057
BYTE55,888870
BYTE57-000071
BYTESB-AAAA72
BYTE59=-000073
BYTES -00000A
BYTE50-000074
BYTE61-00A075
BYTE62=.AAAA7A
BYTE63-080877
BYTE64-000100
BYTE65-AAA1A1
BYTE66-000102
BYTE57-080103
BYTE68-000104
BYTE69-000106
BYTE? -000007
BYTE70-01j01AA
BYTE? 1=
BYTE72-000110
BYTE73-000111
BYTE74-008112
BYTE75-000113
BYTE76-800114
BYTE??-A00115
BYTE78-080115
BYTE79-000117
BYTES -080810
BYTEB0=-000120
BYTE01-000121
6YTE02=.000122
BYTER3-000127
BYTES4-000124
BYTE85-880126
BYTEB6-000126
BYTES7-000127
BYTES8=.000170
BYTE89=.00017.1
BYTES -000011
Approved For
BYTE90-000132. MMADRD-000100
BYTE91-000137 MMLEFT-000A02.
BYTE92-5100174 rricc. =-HHHHH4
BYTE93-000135 MMURTE=.000010
BYTE94=.000135 MHOBRE=.1000A0
BYTE95=.0AA17,7 MREH1 =.000AA1
BYTES5=.0518140 MREM2.-028000
BYTE.97=.00A141 MSTRT.=.****** GX.
BYTE90=-5100142. riE-..;TR2? Gx.
BYTER9-0A8143 MSYH. =.005i040
BYTYAL-OAA144 H.=. 51510144
CEIKALL=.5181000 ONCE. =.****** GX.
CBKOLK-AAA4AA nUT. =.****** V.
CHOPRE-Immimm POCK, =.****** G.
CODE. -****** GX. PLB. =. 080010
CPCCEH-A10AA0 PLC. -0AAA2A
CPREAD-A4AAAA PLO- -AAAA:=1A
CPWRTE-0200A0 PLRWR-A0A20A
CSADRD=.AAHAA4 PLR.EH-AAA2AA
CSEOCI=.10AAA0 PRDATA-****** GX-
CSOE. -000040 PR5GO. 000775R. 0021-4PPSW,=-Mag-
CSURTE-AAA1AA PR5LH-A0AA7A G.
DATA I =.****** OX- PR50. AAA..7AAR.
DATA2.-****** GX. PR500. 000326RG.
DATA3 =.****** GX. PR5OR. AAA7DP.RG
* .
DATA4 =.***** PR50X. AOA:2.11:;RG.
D0R:RD=.00A0n1 PR5S. 00050AR.
DB$CPP=.0A1457 PR5SR. 000346RG.
DB$SPT-000025 P8551 00047080.
DB$TPC-AAAA27 PR5S2. AAASAARG.
DISPGS-1A0AAA PR5TBL. AAAAAARG.
DMAAWR-000005 PRax.:. 000662R-
DMARRD=.00AAA3 085081-17642
LP 0
DMAR-AAA0A4 OR$CR2=.17A422.
EHBR. -010000 OR$LBR-176424
ERRil -****** GX. 0$ATTH=.000100
ERR4 -****** GX. 0$BCL.-A00AA1
osoccp=.0R0040
ERR.? =.****** OX. 0$CHB-AAA4AA
FIHD * *
- =.**** GX. 0$CHRL-00A2A0
HANG- -****** GX. 0$CLR.=.00AA40
*
IHCVAL-***** GX. 0$CHC.--..A7,AAAA
KILL. =-****** OX- 0$CP. -AAAAAA
-** *
*** OX- 0$CPCC-000010
LOC:EN=.0A01AA 0$CP2.=.00A2F,0
LOC4WA=...A4AAAA 151: Si: .=.A1AAAA
'L0'-WEr=. 1011000 0$CSEL = 000:150LOOP- -*****?* 0$CSET-AAAAA2.
MAREH1=-AAAA01 0$Cs8.-A2AAAA
MAREN2-0A4AAA 0$DMA...-AAAAA1
MARLOD-A1AAAA 0$EHBK-A4AAAA
MAROUT-A0AAEP 0$EHOP-A2P-In0A
MAR:Lu=.002000 0$FAL.-A04AAA
MAR,OU- A
AAAA40 0$FC. -AAA45
MBKALL-OAIAAA 0$F0. =.AAAA44
MBKCLK-AAA400 0$FP. =.000A46
MEND- =.****** OX- OSHBF.=.0AAAA2. si$OR -PAPAAA
Release 2005/07/ CIA7RDP85-00,514R000200020001-3-
0$ICP.=.000006
0$IHB-Am00A72,
0$IHRL-A0A0A2
U$IMHP-U0L1UU(
C! $ L B D = OA 10
C!$LBDP = ? 0A10A ---
0$LBP? =? 05100511
-000003
Oa:MD-000004
0$LDPP=.002000
0$LHP.=.01000A
0$MHC? -140000
0$MR =.0A002
0$MRP.=
[151515140
0$MRp2=
A24A
0$MSC-=
Li 411111111
0$MSET=
0$MSP.=
5151515104111111111111111111UH
O$NCLK=
17517551051A
0$PP =
OAA1AA
a$PP2.=i011,U?3diU
51512-osaHLTEInci01.7
AA2.0$0L = 0O004
002.0$0LA.=,JIAAV51:
,
11112-$ C! L B ? =4 AAAA54'
002-O$OLR.-415151001
002-0$0U -000042,-
AA2.0$RDCD-AAOAA
1102.0$RDMD-AAA0Af:, -
0512.0$REBK-00151051
002.0$RHC.=.006000
0$RSC-AA4AAO:
0$RsET-00510I.51'
0$311 -100000
0$SP -000120
0$5P2.=000340
805111 0007108. 002:
RGO:E11=-0AA2AA
RGO:V121=? 020000
RTHPT?=.****** X.
ROAM =.****** OX-
SDHIGH-.****** GX.
SDLOW.=.****** GX-
REO:CI-AA0A1A
SPCR =.******_X
SPLB = ****** GX.
SPPRS 00007.080.
SPSXX.= ****** ox-
SOH I GH = OX ?
SOLOW.= c***** 1-4X.
SRHIGH= :****
SRLOW.=.****** GX.
,,xe47-P.,00.00gtw'ilTP
S$u,CP,. = 000005
002.
SPPR- Iglio.m1110 27-MAR-80 Ap-pro PAGE.7-2-
SYMBOL TS. ved rorRelease 2005/07/1.IA-RDP85-00514R000200020001-3
5$0X-
=.008004
SSR
-0017100:
S$51
=.1710Fic1e
S$82.
-000014
TD$OTR=.176370
TD$OTW=.173E.0
TDSIHL=.17104Ann
TD$MEM-000270
TD$OAR-176344
TD$OTR-1:6346
TD$ORD-000274
TD$SW.-176376
TD$THR-176372.
TDSTAW-175352.
TD$TDR-175374
TD$TDL1-1:6364
T$AD.
-000020
TSBA-
-0051002.
T$BD.
-000010
T$880--100000
T$E1T- -000020
T$BTAR-A00030
T$ETD.-002PAPI
T$CD- -000100
1$uLK---ii.s2mmu
T$DISK-000200
T$DRD--mumiN4
T$EMEM-010000
I$FSAA-mmmimm
T$FSA8-AAA004
T$FSAC-000014
T$FSB2-000010
085; 000000 000
000000 001
SPPR. 000752- 002.
ERRORS DETECTED n
T$iB-171171017.12f;
T$IBAR-000024
T$IBE.-020000
T$I815.-040000
T$ICD.-000040
T$M0DE-0045100
T$08- -0000705
T$OBE.-17.104000
T$08F-010000
T$OBRA-000034
T$OBWA-AAAA32.
T$OUTH-lmlumu
T$REID0-0n12,30
TSPHB.-00n040
T$R5ET-0400051
T$SC. -000022.
T$5CLK-Hzmmum
T$SEG1-Numuum
T$5Eu2-1-JUNIJUl
T$SEG3-umuuu2.
T$80. -mmuUU1
T$USUS-1HHNNm
T$1CLK-000400
T$813EN-Uuuwifi
UBD:111-AAAA2A
WORD0 -000000
W00511 -000002.
WORD10-uumi24
WoRD11-HNNH?fn
800512-00000
81:105115-000052.
WORD14-000034
VIRTUAL.MEMORY.USED2 3411 WORDS. (.14 PAGES)
DYNAMIC-MEMORY: 4916 WORDS. ( 18 PAGES)
ELAPSED-TIME: 00:00:46
DPPR,SPPR/-8P=C20,17IM,E20,1JSPPR.
8005115-17100035 8005144= 888138 8005177---888272
11::,1111F1:=2.
WORD46= 000134 WORD74-AAA224
WORD:S-000226
WORD45= AnA172.2.
RDIS=.000044 WORD47- 000136 110051:6-00023A
WORD19-0000415 WORD4P= 000140
WORD2.-mmINN4 WORD49= 000142. liYgg:12=
WORD2A-AAAARA MOODS = 000012.
WORD21-000052. WORD50= ORA 144 WORD7C1- 17-1F1A2726
WORD22-000054 laRDFii= FICIA14fl. WOPD R -HHHHLM
WORDRA-AnA24n
WORD23-A0A0515 01)57= R00150 WORDR1-5100242
WORD24-0171001 I WORD53= A00152- WORD82-000244
WORD29-0A0052. WORD54= 000154 WORD872.-AAA24F.
W00512F.-0A0AF4 WORD55-AnAl5F.
WORD27-AARAFA 8005155=. 000160 lij.:111-1-1==
5IORD2R-000070 811105157=000 152 800586-000254
WORD:w. =-AAARAF.
WORD29-171AnA72. WORD5R-A0A1F.4
WORDF,9-AAA1Fd2. TiRDP:=47100255,
WORD3A-000074 WORD5 -000014 RDAR-AAA2f;A
WORDP9-0171074;7,
8005131-000076 800560-000170 800519 -000027
WORD32-000100 W5'RD61-000172- WORD90-000251A
WORD7i7.7.-AAA102- WORDQ-AAA174 WORD91-AFIA26
WO RD:4=-000104 WORDP.3-0AA17P. III ID-C=
uJOFf'S= 0110135 01105164-UUU2UU WORD93-000272
WORD36-000110 WORD65-000202. WOR1I94-000274
8O05137-000112. 8005156-000204 8005195-000275
WORD7,A-000114 WORDic.7.-A0A21-7.1 WIRDC15.--AnnAn
11075179= 01113 W005168-000210
- WORD97-000702
WORD67.9-000212
WORD4 -000010 WORD9R-00072.04
WORD4A-= WORD: -00O016 WORD-
9901710-2.0F.
WORD41- 81:101:0-000214 WRDVAL-00072.10
8005142-000124 8005171-000216 STREAD-001000
WORD43-00012f; WORD72-000220 XTURTE-AAA400
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
ro,
SPREST- 11110.M1110 27-MAR-00 15:33 PILIGE.
Approved kn. Release 2005/07/1031A-RDP.85-00514R00020002004
. ?
1
2.171171A1;10171
3
4
5
F.
7
,-.D
A
10
11
12.
13
14
15 OnOnAPI
i6 000000
17 uuuuu4
18
IA 000010CL5:.:
20 AAAR1.71
21 000014
22
77
dU01157
000167
1.711700A1
UmmUmU6.
000000G:
:
,
;
,
P85::
:
.TITLE?SPREST,...
.PSECT. SPREST.
MARDWARE.QuERY.RESOLVER.?MANUAL' DEBUGGING AIDS.
SUBDOCUMENT.PROCESSOR.TEST.ROUTINES.
COMMANDS:
PS SWITCH.OLB.PAGES.
ANCE.A.COMMAHD.HAS.BBEN.EXECUTED (OR.AN.ERROR.ENCOUNTERED)
THIti.MODULE.RETURNS.CONTROL.TO.THE.MODULE.SP.AT.LOCATION- -..-
'SPSXX,,
1.,31Lp_L._. KILL ILL HET
--
SPSXX. -
; EXIT?
CALL. CL.
:1MP. ;CALL.ROUTIHE.IN.MAIN.
SPSXX. EIT.
;X
., END.

'
.?-.
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
it
SPREST- MACP.O.M1110 27-MAR-80 15:33 PAGE
SYMBOL-TABLE-
ALUCKE-040000
ALUOE--004000
-1:01 -01AAno
BITVAL-milmmin
5rTA
iAT1 -000002-
BITIO
BIT11 -1710417100
BIT12-01nAAR
BIT13 -uzilumu
BIT14 -04AAA0
BIT15 -10A1711710
BIT2- -000004
BIT3 -000010
BIT4 ='[1[111[12M
BIT5 -000040
BITS -17100100
BIT? -000200
BITS- -000400
8IT9 -001000
BYIEu -uuuumil
BYTE1 =-uuuuu1
BYTE10-000012-
BYTE11-000013
BYTE12-000014
BYTE13-000015
:3YTE14-5110015
BYTE15-000017
BYTE16=-0A002[74
0YTE17-uuuu21
0YTE18-11mHmkfz-
SYTE19-mmu23
JYTE2--AAAN:12.
OYTE20-000024
6-7TE21-000025
,-JYTE22-00002f7,
BYTE23-000027
BYTE24-000030
BYTE25-000031
BY-1E25-000032.
BYTE27-000033
BYTE28-000034
BYTE29-000035
BYTE3 ---uuuuu3
BYTE30-00003E.
BYTE31-000037
BYTE32=-FinA040
BYTE33-000041
BYTE34-000042-
BYTE35-000043
11YTE36-00004e
BYTE37-000045
BYTE38=
BYTE39=
BYTE4 =
BYTE40=
BYTE41=
-00004G
00171047
nrinn5n
0110051
Approved
BYTE42--000052
BYTE43-000053
BYTE44-000054
BYTE45-000n55
BYTE46-000055
BYTE47-000057
byiE48-ummkunm
BYT549.---nnAA15.1
BYTES -000005
BYTE5A-00005.2.
BYTE51-AAAA5.7
BYTE52-000054
BYIE53-mmmm5
BYTE54-000065
BYTE55-000067
BYTE55-000070
BYTES?" 000071
BYTE58-000072-
BYTE59-000.073
BYTES -uuumkih
BYTE:60-000074
BYTES 1=
BYTE-62=-00007f;
BYTEJ.7.3=-000077
BYTES4=-000100
BYTE65-000101
BYTE66-000102.
BYTES?" 000103
BYTER5-0510104
BYTE69-000105
BYTE? =.MMMM-17
BYTE70-000106
BYTE71-000107
BYTE72-000110
BYTE73-000111
BYTE74-000112.
BYTE75-000113
BYTE76-000114
BYTE??-0510115
BYTE7B-000115
BYTE79-000117
BYTEB -000010
BYTES:0=-00012A
BYTEB1-0051121
BYTEB2-000122-
BYTEB3-000123
BYTEB4-17100124
BYTEB5-000125
BYTE86-000125;
BYTEB7-000127
BYTEBB-Annlyin
BYTE89-00011
BYTE9 -000011
BYTE90-000172.
BYTE91-A0F1137
BYTE32-000134
BYTE93-0510135
Approved
? 5-1
For Release 2005/07/12
BYTE94-000136
BYTE95-000137
BYTE96-000140
BYTE97-000141
BYTE9B-000142-
BYTE99-000143.
BYTV0L-000144
CBKALL-001000
CBKCLK-000400
CL
0L5 0000i09
CHOBRE-1AAARA
C5CCEN-010000
CPREAD-040000
CPWRTE-ULuuuU
CSADRD-HHHHH4
CSEOCI-100UuU
CSOE- -000040
CSURTE-000100
DBRLRD-uuuuu1
DBOOPP-001457
DB$B5T-uuumLb
DB$TFC=-000023
DISPGS-IUUUUU
DMAALP-000005
DMARRD-000003
DMAKIJR-uuuuu4
ENBR- -010000
KILL. -**.****
L0LLEM-000100
L0u,WA-040000
LOCLLE-1n0000
MAHENI-UUUUU1
MAREN2-004000
MARLOD=.010000
MAROUT-000002.
MARLL0=.002000
MARL0U=.000040
MSKALL=.001000
MBKOLK=.000400
NTIADRD-000100
MMLEFT=.000002.
MMOE. -mmviHm4
MMURTE-000010
MMOBRE-1uuUUU
MREN1 =-uuuuu1
MREN2.=.02U00U
MSYM.
=.000040
H.
-000144
PLS.
-000010
PLC.
.---LJUUU2U
PLD-
-AAAA7-.0
PLRWR--Uuuzuu
PLR.EH-000200
555 FinPAACIP
OP$CR1-176420
056092-176422-
For Release 2005/07/1
: CIA-RDP85-00514R000200020001-3
Ox ?
G?
OX ?
G ?
002
OR$LBR-176424
CI6ATTN-000100
0$BCL-mummmi
0$000P-0051040
0$0HB.=.000400
0$0HRL=.00071.710
0$CLR.=.0A0040
0$0110.=.030000
0$05. -0000R0
0$0500-000010
0$052-=-000250
00020 =010000
0$0SEL-000350
0$05ET-000007
00065-020000
0$0MA--000001
0$ENBK-040000
O$EHOP-02A00A
0$FAL--004000
0$Fr. =.00F1A45
0$F0. -000044
O$FP.
0$HBF.=.AAAAA2
00105 =0000515
0$11-0.-UUUUU.3
O$IHRL-UUUUU2
USINHH-UHHHH(
0$LBD--00101710
O$LBD5-001001
U$LBP--uuumu1
OSLLI0D=.MMMHH3
0$LDMD-000004
UOLDPH-Ho?mmh
0$LHP-010000
0$MHC-140000
0$MR. =.51005152
0$MRP.=.00004171
0$MRP2=.000740
O$M5C--040000
0$MSET-000004
0$1155.=.10017100
0000LK=.175000
0$55. =.000100
0$PPSW-000320
0$P52.=.000300
0$0HLT=-000013
0$0L. =.000043
0$0L0--000053
O$0LB-=-000054
0$0LR.=.000001
Q$UW- =-51005147
0$5001-51005105
0$RDMD-000005
0$SM =.11.JULJUU
0$55 =.00A120
00552= 000340
RG0LEN=-000300
RG0LV0=.020000
SE0LCI-000010
555XX--******
S$CLR? = ? 000 000
SOLO -uuuumi
b$OB -uuuuU5
S$OP =-017-100171F,
S$OX =.00011104
S$SR -000007
2$61 =.000010
5$52 =.0510014
T51$0TR-175.370
T11$0TW-175350
TD$INL-004000
TD$MEM-00027t77
T51$00R-1715344--
TDOOTF.! = ? 175.4:
TD$ORD=4100a2
-1,$c;LI.==q7N737K
TD$TAR-176372,
T516101,1-176262
TD$TDR-176374
TD$TDW-17f;364
TOAD -AFIFIA2A
T$BA -000002
T$BD -000010
T$BSO-=-J000.0.1,
T$BT -17.100.00
LIE TAR = ? annEj.:313
TSBTD ? = ? Fin2A0F1
Tsui -AAAJOA
T$CLK.=.002000
T$DISK-000200
T$DRD-ORAAA4
*ISE MEM= .T0-1 an IT
T$FSHA-000000-
T$FSAB-000004
T$FSAC-000014
T$FSB2=.000010
T$I8
i$1.BAR=70'0d024
t*tEICT:VA0pA:
T$ISF.=040000
T$ICD.=.0171004C
T$MODE=.004000-
T$08 =.00003F,
00400A
T$OBF?=.A1OPIAA
T$OSR0=.0000.754
$;R EBK= ? O01.0gf-4atili,A*- ,
002 OsRHC .-;=771,176-"c7?4114 Sillit4=. 5
C$R5C--00417100 T$RBDO-AAA9AA '
9OPSEI-0171B010 T$RITE--000040
IA-RDP85-0051 4R000200020001-3
Gx-
,
L
SPREST- OMl1113 27-MAR-80 15:33 PAGE-5-2
SYMBOL-T/41V Approved For Release 2005/07/10CIA-RDP85-00514R0002000200013
TVRSET=.040000
T$SC- =.HUUL122.
TSSOLK=.8281.Juu
TSPEG1-A000AA
t$Stu2---uuuuu1
T$60. -000081
T$OBLP;=.1.8AA00
T$1CLK=.00040171
T$6-6EH=.8888zu
UBD.IN-A0082A
wiIRDA -..mmmmvim
WORD1 JUUUi
WnRD18---HuL4
WORD11-A0A02F.
WOR012--.000030
1JORD13-000077.
WORD14-AAAK24
unRD1.5.--.0AAK-7,F
WnRD111..-000040
WORD17-000042-
WORD16-0001144
WORD19-00004F
. ABS. 000000 000
HuAn0 001
!=iFIREST. 000020 17102..
ERRORS DETECTED n
WORD2.-U8Uuu4 WORD40-0001213
WnR1170-00nn5A WORD41-000122.
WORD42=.000124
WORD21-AAAA57.
WORD22-8AA054 WOR1343-000125
WuR.D23-000055 1J0R1344-000172d0
WOND24=.0u0050 WORD45=-0nn.
W
WORD4F.=.00n17,4 ORD25-0000(1,2.
1,JORD26-000054 WORD47=.000136
WORD27=.000056 WORD48-000140
WoRD?zu.--8Uti078 1,JOR1349-000142.
WORD29=.88O872. WORD5 -000012.
WORD7 --AAAAAF WORD50-000144
WORD30-000074 WORD51-A0014F,
WORD72.1-AAAA7F WORD52-A0A15A
WORD572.-A0A152.
WORD7.2---AAA1An
WORD7,72--AAA1A2. WOR1154-000194
WORD:24-AAA104 WORD55-0A015F.
WOR1375-A0A10F. WORDRE.=.000150
WORD7.6-0013110 LIORD57-AnAlp,7.
WORD77=-000112- WORD5R-000154
WORD3B=.000114 W1JRD59.....0001155
WORD6 =-00An14
WORD7.9=.0AA11F
WORD4 =-00A01A WORD60-008170
VIRTUAL.MEMORY.USED: 3001 WORDS. 1.12.PAGES)
DYNAMIC-MEMORY; 3850 WORDS. 1 14 PAGES)
ELAPSED TIME: 00:00:39
SPRE0T,SPREST/-SP=E20,17IM,E20,1]SPREST.
WORD61-000172
WORD52-000174
WOR136=.000175
WORD64-UULI2UU
WORD6b=.ULIPYU2.
WOHDbb= muLr,T14
WORt07,7-000205
WORMS-000718
WORD69=.000212
WORD7 -000015
WORD7A=.000214
WORD71-000216
WORD72=-000220
WORD77.- 000222.
WORD74=.000724
WORD75= 00027f;
WORD75=.01.10230
WORN-7-0007717.
WORD7121= 000274
WuRD.79- An07,76
WORM = 000020
WORD8A=.000240
WORD81= 000742.
WORDR2-1300244
WORD03=-000745
WORD94=.4.00025n
WORD85=,000252
WOHD86=.000254
WORDS?-. 0130226
WORDRA=-0171A2F,A
WORD89-00025.2
WORDP -.AA0O27
WORD90-0002F4
WORD91-000255
WORD92-000270
WORD97.=.000277
WORD94%,00827.4
WORD95:000300.
WORD97=. 000:302
WORD9R-AA872.4.
WORD99=i,TAA07A5
WRINOL=.000310
XTREAD=.0n1nAn
XTURTE=.000400
Approved For Release 2005/07/12 : CIA-RDP85-00514R000200020001-3
SPSUE3- *O. Mill0 27-MAR-8015:34 PRGE.5
Approved For Release 2005/07/1.IA-RDP85-00514R000200020001-3
2?HHHUMM
7
4
5
7
9
10
11
12?
13
14
15
16
17
DESTINATION1
18
000E193
20 000000
LBSP::
21 utiuuou
016567
uuu002
176424
22.000001L-.
012746
001001
23 000012.
C-12716
0007.50
24 000011,.-.
012746
176000
25 UUUU22.
052716
000340
nonA2f;
27
2:71.01710072,2.
012744;
00F,AAA
29 ARIA036
012746
001AAA
30 009042.
31
34 000045
01274E.
901001
35 000052.
052716
000360
36 00AA56
012746
176A11A
37 171AFIA2-
70
AF100F.I';
11116
099002
40 000072.
005726
41 000074
.PSECT. SPSUB.
.MCALL- WTSE$S,CLEF$S.
HARDWARE.OUERRESOLVER.'MAHUAL DEBUGGING AIDS.
SUBDOCUMEHT.PROCESOR.SUBROUTINES.
DATA.TRANSFER-
LOD.BUS.REGISTER.TO.A.DESTINATIOWON.TNE.SP.BUS.
INPUT:
20SP) DATA FOR.PRE-SELECTED.SP
9.
MOV. 2(SP),OR$LBR. ;MOVE.DATA TO.LOD.BUS.REG.
MOV. *,-(SP) ;CLR.DRIVE AND.FULSE
BIS. o,(SP) ;CLR.SELECTION.BITS.
MOV? #