Digital PDFs

MAINDEC-11-DZMMI-A-D

May 1972

16 pages

Original

0.7MB

Document:	RANDAT
Order Number:	MAINDEC-11-DZMMI-A-D
Revision:	0
Pages:	16
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/memory/MAINDEC-11-DZMMI-A-D_RANDAT_May72.pdf

OCR Text

IDENTIF"ICATION
PROiJUCT CODEI

MA1ND~e·11·DlMMl·A·O
(SUPE~SEOES MAINCEC-l1-01IC>

PROOl.'CT NAME,

R4NOA!

04TE REVl§EO.

MAY

MAINTA!NER,

D14GNOSTIC GROUP

AUT"OR,

JQHN ~ODEN~ISERI ~lM ~ACe:y

1~,19'2

@ 1970, 71, 72

DIGITAL EQUIPMENT CORPORATION'

43ST~A~T

~~I~ T~ST eO~8INE~ A ~4NDO~ NYMSER GENERA!OR ~ITH A R.~DOM
:.~CATION) EXE~Ct~E~ TO CEMON~TRAT£ T~AT THE MlMORY TES1
t;\~ I~ C~PA8~E O~ STORING RANDOM DATA.
!HE RANDOM EXERCISER
P~~vtO~S A READ ~COP OETERMI~E~ BY THE ~EAST SlGNlrlCANT
::TA~ ~lT or THE QATA IN THE ~OCATION UND~R TEST TO rEMON-

S!qATE COHPAT1Bl~JTY 8ET~EEN ~OCA'IONS HO~DI~G RANDOM DATA~
E~:~ E~HOR PR1NTO~T ~ISTS
~~~

eO~HECT

~E~utR~~ENTS

2.1

£JUI~M;NT

OATA,

THE ERROR ADDRESS, ERROR CONTENTS.

WITH A MI~l~UM ~r 4K MEMORY

~JP.'1

2.2,1

QA~DOM

P~OGqAM

STORAG~

rqOM 200 TO

~OAOINg

3~1

~tTHOO

• THE ~OUTt~E USES MEMORY

2~24.

PROCEOUR£

PROCEO~~£

rOR NORMA~'B1NARY TAPES SHOULO BE FO~~OW£D,

1. AS~O~UT£ LOAQtR MUST BE IN MEMOTV
2, P~ACE BINARY TA~E IN REAOER
3, ~~AO ADOR£SS .751~. c- O~TERM1NEO BY AODR~SS Or ~OAD~R)
4, p~~ss "STAAT" (PROGRAM WI~L LOAO),
.~

STARTIN~

•• 1

CONTRO~

PROCEOUR,
SWITCH S£!TJNG

STARTING AT SA 200 AL~
4~2

STARTIN~

SWITCM~~

SHOULD BE DOWN O~ ![RO.

ADORtSS OR AOOR(SSES
2~e • STA~T WITH AUTOMATIC TEST ~IMIT~
202 • STA~T WITH SE~E~TEO TEST Lt~ITS

',3

~ROG~,M

ANO/OR OPiRATOR ACTION

~OAO P~OGRAM INTO MEMORY,
SET SWlr~H REGISTER TO STARTING ADORESS,

~OAD

A~ORESS

~~ESS

~T.RT,

Z0~~

T~E PR~GRAM WIL~ ~UN T~ROUGH
4J~R~S~ rXELO 4NO ~OOP~

• T[ST or TH~ SE~~CTEO

OPERATlNG PROC(OUR£

5,1

OPERATIO~AL

5.1.1

~ITH A~~ SWl'C~ES OOW~, T~E ~~OGRAM
wIL~ PHINT OUT £qROqS AND CONllNUE

S~!TC~ SETTI~GS

IN rrS!.

5,1,2

SWITCH ~ETTINGS 4HE
SW1~

• 1 OR UP~,,~A~T ON ERROR
SW13 • 1 OR UP~,~I~~tBIT PRINTOUT
SW12. 1 OR UP~,,~4~T ON END or PROGRAM
5~113

AUTOMA!IC TE!T ~JM!TS
t'T~E PROGRAM IS STARTEO AT AODRESS 20~ THE PROGRAM WILL
TEST A~~ AVAILABL~ MEMORY, CARE SHOULD BE-TAKEN TO SELtCT THE
PROPER OPERATIONA~ SwlTC~ SETTING (REr[R !O 5,~,2) BErOR£
STARTIN~,

5~1.4

SELEOT~Q

TEST LIMITS

Ir T~E ~ROGRAM IS STARTEO AT AOQRESS 202 A MES~AGE WILL
BE PRINTEO ON THE TELETYPE IN~TRUCtING T~E OPERATOR ON
THt ME!HOO or SEL~OT!NC OTHER MEMORY T~ST AREA~ ANO THEN
TH~ PR9GRAM WILL ~TO~ AT THE ~IRST or THREE HALTS,
A,

SET THE LOW T~ST LIM!T IN SWITCH R£GI~TER AND
PR~SS

CONT1NU~~

TH~N

ANQ PRESS CONiINut~
TH~N SET THE QPERATIONAL ~WITCH SETTINGS (~Er ~.1,2)

SET T~E ~IGH TEST LIMIT IN THE SWITCH R~GtSTER

AND PRESS CON!rNUE~
T~E PR~~R.M WILL NOW BtGIN TE§TING THE SE~£CTEQ AREA.
THE ~RPGAAM Wl~~ NOT AL~OW LIMITS '0 at SE~ECT~O T~AT
WOULO ~AUS£ ITSE~~ TO IE OESTROYEO~ AN £~CEPTtON TO THIS
WOU~O ~E THE INST~UCT'ONA~ TE~T STORAGE ARtA,
STARTING
T~E ~RPGRAM AT 2~~ OR SELECTINO LIMITS WHICH OVERLAP
T~IS AHEA Wl~~ CA~5E THE TEXT MESSAGE TO Bt OE~TROVED,

5.2

SU8ROU!1~E

5 1 2,1

DAYGEN

AgSTRA~TS

SU~ROUI'NE DAYGEN IS A CA~~ TO T~E RANDOM DATA GENERATOR.
IT IS !~E rU~CTlON or 'HIS SU~ROUTrNE TO GENERATE

Two

RANDOM 16 81T NUM8eRS O~ EAC~ PASS~ T~E A~GORIT~~ fOR THIS TYPE
or NUM~ER GENERATOR MAY BE SUMMARI!EO AS ~OL~OWSI NX129+60474.
01~010'7 (OCTA~) T~E CONSTANT IS 8~OKEN INTO A TRIPLE PR~C!S!ON
WORD A~ rO~LO~SI 000006, 047401, 00105'1
INtTtA~LY N IS PRQVIOEO BY TH~ MAIN ~ROGRAM, ~ITH THE
TWO NUM~ERS ~ROOU~£O ON EACH ~[NERATOR ~A~S SAVEO TO PRIME
THE ~ENER4TO~ rOR THE NEXT PA~St THE ~IGH ORO~R ~ORTION or TH[
TRtP~E PRECISION ARITHMETIC I~ END AROUNO CARRIED INTO T~E LOW
ORO~~ NyMBER, RECIST£RS USED QURIN~ THE s~eROU!lNE ARE
S4VEO ON ENTrRING TH£ !UBROUTZNE AND RESTORED ON EXIT.

'i2,2

ERROR

SUBROUTINE ERROR IS CALLED ~H~NEVER THE ~ROGRAM OE!ECTS A
LOCATIPN WHICH CONTA!NS INCORRECT ~ANOOM OATAI UPON ENTERfNG
THE SU~ROUTINt TH~ INHIBIT PRINT SWITCH (~W1J) IS !EST£O TO
OETE~M1N£ !F T~E .oo~t!S ~NO ~ONTENTS or
WILL B~ PRINTtO. .N EXAM'~E
A ~ANOOM

IS AS ~O~~OWSI

rNCORR~CT
0024~~

RANOOM C4TA 4T THE

THE ERROR LOe4T!ON
DATA ERROR PRINTOUT

~OL~OWING ~OQATIONI

~12304

0123!5

WHERE a4~0 IS THE AOORESS, 12~~4 ARE T~E CONTENTS, ANO 12Jm'
IS T~E CORREOT RANDOM OATA~ I~E SUBROUTl~£ OPON T~E tNO 0'
PRINTJ~~, OR IN T~[ ~VtNT SW1~ IS ~RES£NT, CHE~KS THE ~ALT
SWITCH (S~1') Ir r~E SWITCM I' SET THE PRQGRAM IMMEOI4TELV
RETURN~

TO THE MAlN TEST PROG~'MI

~~!~TS AL~ £~~O~S

6,2

[~ROR

UNLESS

lNHI~!TEO

av SW1~,

H~COVEqy

:tPR£S~ CO~TrNUE
.OOR£S~

TO ~ESTART S;CTION OR RE~OAO ~TAR!lNG

ANO START:

~tSTRI~T!ONS

',1

ST.RTIN~

R£STRICTION

\ONE
'~2

OPERATIONAL RESTRICTION
~ONE

M%SctL~ANEOUS

8,1

EXECUTION TI~t

THE ~R~~RAM AINGS THE T£~£TYP~ BE~L ArTER EVERY
56 p,s~tS TH~U TH~ PRQGRAM W~leH IS APPROXIMAT~LY
O~CE PEA MINUTE wITH 4~ or M£MORV~

QROG~AM

~ESCRIPTION

?W[ ~ANUOH OAT4 G~~E~ATOR TES! (RANDAT) %~ DESIGNED
.~ v~R1FV T~E A8I~!TV Of MEMORY TO STORE RANDOM DATA
:J~fIGWHATIONS Wt!~OUT MA~rUN9TIONt
T~E rEST OERATES
:~ r~R~~ P~A5ES.
T~~ rlRST P~'SE ~OADS T~E MEMORV TEST
lJ~E W1T~ RANOOM NUMBE~St
T~~ SECOND PHA~£ REAO-EXERCISES
T~ES£ N~MBERS WIT~ ADDRESS SE~£CT!ON DETERMINED BV THE
~EAST ~lGNIFICANT OCTAL SIr O~ THE PREVIOUS NUMBER EXERC!S!O~
T~( T~lRO PHAS~ RiINITIA~I~ES AND RERUNS !~E RANDOM
'VM9ER ~ENERATOR, S~QU[NTIA~~~ COM~ARING !HE CONTENTS
T~E

~~CATtONS WJ!~ EACH NUMB;R GENERATEO.
TH; RANDOM
~J~aER IS TURN£O ON AY A CA~~ TO SU8ROUT1NE OAYGEN,
IN TH~
EVENT ~f AN ERROR THE PROGRAM WI~~ JUMP TO THE SUBROUTJNE
ERROR ~OR TH£ OUT~UT PRINTING AND HA~T OPTIONS,

TtST

yo INOICATE THAT rWE PROGRAM IS OPERATING YHE
TE~E'V~E 8£~~ WIL~ RING APPROXfMATfLY [VERY
"INUTE, THE PRO~~AM WJ~~ HA~! AT 'HE END or
£4CH P.~S I' SWIT~~ 12 IS PRE'ENT~ A CON!SNUE
rROM T~E HA~T COR I~ SWITCH 12 IS NOT ~R£~ENr)
WI~~ J~MP TO T~t NEXT PASS~

1'.

~ISTINg

PROGRAM RANDAT
0IHM%A','11

MAINOtC-1~-D2MMI·A

,NI.JST

S~Q

.'ITI.£

P~OGRAM

JCOPVR!G~T

"002421

NOP-241

19,0,

,ENA81.

RANOAT

ASS

I'"

01"8'"

,TRAP CAT~J.lEI~ 2/-11.
010114
111I2.iI
1112'2
"1'214
110216
"8'22.1

I'~

elI00e14
010234

T~G

.~2"m

"'"20'

"""41217
"'1441
""t2J"""
"'t2JiI""

11"'.
.
17"'.
081214 11."'"

1"111242

""lai.6 '..~IIer"'1

SR
L.O~MTI

t2J

HII.HT' t2J
TeIR. 1"564
TDaR. 2".,,66
SW~E(i1
~7"l"
SUMMIT'

M4!NOEe·!1~OlMMI·A

1971,~9?2

START
START.

DIGITAl. EQUIpMENT CORP,. MAYNARO, MiSS. 01754

PROG"A" RANDA'

01"",,','11

0ee22e
0021224
~a~2CJ6

r.Z2l230
0e0232
000234
0221241
2'~e2 ••

0,,124'

00eZ'.
21102"

0"0262

1112'.

MAINO,e-l~·D!HHI·A

"02262

"127~6
":LQl6"~
e2"'2~

"' ' 240

00"77'
16270~

021",,,,,,4

0114e1
0i3727
els,40'

",e""42

001312

"00326

11'334

'''''3''

111'3'.
1113"

1113'2
I,e3,6

2!IUJJ6'

0,,0366

"JPJ414

PH'B"'6
0aB41.
'''''0416
aUJ42.
18"426
00!43.
000442
0004'0
"0"4'6
01110462
00"466
"0214'0
011J0.,4
11J021.'6
"0"500
21021504
"005216
2100510

TST

16270~

B1'~61

11'712
17'711

012761 1~7710
"12761 "'1226"
0.2761 0~'~'"
012'06 "2262
21127212 2I~226.
1111.7., ""13'1
e1810,
B"771 171636
BIS,.01
02176' 11'630
1~'~20

tU''''662

MOV

NO"

SEE
# ••

S~i
SR
SUB

Mev
Mav

_
21'00644 STARTll MQV

lifO V

,.iiI

MOV
fI10V
MOV
HOY

17'65~

1776!5c

1176"t

HIIET.

01 7.7
'
BI"001
"'12767
PJ12767

17"'2

11'56i

1234'6

010'3i
01D052t

MOV
CTI.SETI HAL.T
AU'OSTi MOV
HQV
NX'ASSa MOV
HOY
MOV
REWRVT. JI"
MOV
CMP

"16761
"167021
~0.767

1tJ14420
llIa"'061
12110'"

0.44~Z

11 51a
'

"ae067
101001

11"aJa

"16767

17 74'" ",,"41a

fll0fll765

81.0

8tH

Mev
CHP
EH.q

ME:MC~NI

'M~Gl,"2

HI§e:r

"WRe:~,L.OI.MT

e~Q

0~Ql522
aJ2IQI!S1~

AUTOS.
'.'0,B!L.l.C'f
IMQErA,LOI.M'
*.''''',H!L.MT
'6UF'F'f;R,"6

.SWAE(i,1.0I.MT

eMP

1~6"3

'-'"B!L.lee,

'Q.E'~i~O·t. M'

MOV
HAL.T
TIY

11"'~

02105221
"'0051 4
11"22
2102131 4

'3a",x~
,,~,"'ILMT

'$WREG,L.OLMT

1r'~la

~16161

CMP

11'611

11:S411~

*1''''' •• ''3

'~WRE<t

21"'7'1
BI1401
02'767

Mev

iTESTP01NT IN EACW BANK
iTfST
JPRECAUTIONARY OEl.AY
iNO TRApt CONTINUE
jTRAPP!O.

'*~2"END.eR

TiT

el.O

ItACE 2

~7,TO'

SEQ

11'611

,,3

,'42

J,R

~ALT

161SIJ

IBUF'F'tA,X6
"6,X3
(X3).

S\JB
TST

8tC

S1i
S2'

l'-"AY-72

BEQ
CMP

"'0"7'~

,,".02 0ee300

""3'" "S.1767
"101111

130316
B0148"

SEE.

"02734

16270~

1e3.QJ~

MOV

TL.GI

0121"
-'~le2'.
""" . *1%7"1
--...u.3J"-'
.' .PJn..u4·-117 61"
:
.. .,... -_.. ,....
..
a10~21

START.

0~0"42

0,5737

...."_ ........

HACYll.61t

IH~ET

,SWRtG
CTI.I£T

CTI.5ET
.SWAtt;,H!L.ft4T
IM~2J4'6.LQNUM

*1'~'43.'"'I~UM

L.ONUM,SAVLO
HINUM.SAv~r

L.OL.MT.XI
"',OAVQ£N
_(4), (21).
"2I,HILMT
MtMCZN
-C~),(0H'

"e,HILMT
MEMC~N

REW.RYT
I.OL.MT,E:XRAOO

J·SCT»1·£1,It .'~f(£Jt ...~.:-"
tfll., ~¥t~ '~;e. . "'::11, I tnll

iGET END ~F' PGM MARKER
;SrT HILM'

;S!T 1..'

j'UT L.eLMT IN I"'-EC ANO e-ONTINUE
iLOOI<
1.0L.MT

'0"J' D£r~RREO

ja~'NC~

;C~K

LOLMT)1.0ADPT
iL.OL.M'CLOAOPT J USE LMT DE'INED
;L.OL.MT~LOAO'T, STO~E INPU'
(LOOI< fOR NILlttT
JI~'NC~ I' DErERAEO
jC~1< HtLMJ)L.Ol.MT
iBAANC~ I
Hll.MT<LOLMf

(S'ORE SWREG
~WlIT

rOA, PGM CONfROL. SEL.EC'IONS

JI~%Tl~LIIE L.ONUM ~OC"lON
iotTTO ~O~ HINUM
iS1V[ rOR ~tAOCK INITtALlI1TtOR

iS1VE 'OR REAOCI< INIT1'~1!'TiON
jQ~T LOL.MT rOA R0
iGfN[A1TE TWO RANDOM NUMgE~S
iWRITE 1ST NUMBER
;C~N COUNT UP TO HILMT
il' SO GO EX£ACIZE TEST F"SfL.D
iWAITE 2NO NUMiER
iC~N cou~, U~ TO HILHT
ilr SO GO EXERClzt TEST 'IEL.O
;L.OO~ INO CONTfNUE WRITING
iQtT L.OLMT

PROGR.~ ::(4~O.6T
,,~tl

OiMMl

~~0516
.D~~524

~~0532

·D"~536
~~~'40
~.DilI'46
.D~.a5'4
l~0'621

MAJNO£C·l~·CIMMI·A

HAeY11.61~

011767
21427.'
0e15161
21211430
016761

NXERCZ' MOV

0,"1,"17
00'361

0211'7"11

I~Q.I"2
1~0"4

2101402
1lJ05i67
066761
0a.76'1
1"1741
me140.
062761
0121161

10061:10
"061:16
:lQJt614
1;"616
ll'621
"'0626
IQJ0631
"'634
""64i
III".

""!.
~1"'6

1"'.64
1'''''''
~"6"

1""2
r'I,'4

00046~

e00461

0210446
00e1436
0021432

0210440

000211:11

00"42c

I1"Zl0414
0210 4 121
000316

0iHJ402
1'17J7Z

''''1'01:12

08036i

lIPSIT, AOO

00eJ2!
010321

RtAOCKI MOV
MOV
MOV
REAOON, J~R

0i043~

SIC

)(~eZON'

0~2767

"~67"1

1'1'13'"

016161
014161
02441.
011402
0141"
0218""
113012
0i1572'
02442.1
0114"2

~~"~26

~2.6'167

0013:52

,,121126

otC

MA~I<

XROll

BiT
lU:Q
INC
AOO

CMP

SI.05

8M
BF(

eM'

s(;a

J'"
CMP

"IUJJ34
1~,j16

B~IS

'1''71'
~il"712
~lr"'1.

110716

"1722

.,112.
11'732
"I"~'

",,4,
""4'
1117',
11l7!4
Ill"6

IDt,.0

111'62
111164
1~'7'2

!.17'"
"J"6

IlIJlI2i1

"2.2167
1115"1
1111'1'
Z2.2111
21131m2
21e1,,1lJ ..
"04712
0212124iJ
0002421
0002 4 £1
e;J27"1,
001401
k'ilee0iJ
000167

""R
CM'

TiT

QJ01l124Z
1~17i0

)(RCi!ON
*1,SVMASI<

,.6

SVMASK
SVMASI<,£XA40D
tlCRAOO,HJI.MT
NXERCi!
RtAOCI(
'2,e:X~AOD

lCRC1
1.0L.MT,xe
SAVL.O,1.0NUM
SAVHl,HlNUM
~7,OAVGEN

"C")"~0
..~

"',ERROR

un.

.',ERROR

.',HIL.MT
tNO'ASS
(1)+

R£ADON

SR
ENDPASIIIN~

at'-I.~T

T5T8

'TeSR

MOV

,2217"TOBA

eNt
MOV

QlI"2~Z

1~'2!12

180021'1
"IU'i'l42

·C~),""I

103112
""'72£1
0101"
"05261

1~'12'6

CM'

Ii;

"'1'"
.il17,4 021161

MA~K,SVMASI<

.£XRAOO,~E)(RAOO

X',HILMT
E:NOPASS

1",'6 1lI1I4767 01";)1·

B~~

1"24~

MOV

BtQ
ENOAOR, J~R
NOP
NOP

CONTCK
'.'IlI,BtL!.C'

_.42,"2

1~'4"QI

17122~

CONTCI<,

iE~E~C!SE ~OCATION T~E

NUMeER

,0' TIMES sP£csrIEO
BY
BIT or RANDOM NUMBER
T~[

j~S OCTA~

iS~TUP MAS~

TO CK tOR 000 NO.

ilNCREMENT 000 NOt TO STAY ON EVEN
.SOUNO!, AOO TO ADDRESS PO!NTE.
iCKN I' ADORESS UP TO ~ILMT
iCONTINUE tX£RCli£ Ir c. HJLMT
i£)(ERC! COMPLETE, GO C~ MEMO~V
. ilNC~EMENT ADORESS POINT[~
iLOQP ANO TRY AG.IN
,~OT IN LObMT IN R0
jREINI'IAL.IZE LONUM
;O!TTO F'OA "UNUM
tGO GENERA'E NUMBERS
iC~ AGAINST MEMORY
;$t(1" NX l' OK
"'0 ER~OR ROUTJNE
iCKN 'OR COUNT UP '0 H!LMT
;BPtANC~

I' )u

;JUST tNCA~MENTING
iC~N 2ND WORO AGAINST MEtt10~V
iSl<lP NX !' 01(
iTO £R-OR ROUTSNE
iC~N HIL.t4' ACAIN
iB"ANC~ I' ),

iINCRtMEN'ING AGAIN

i~eop TO CONTINUE READ
;INC~EM£NTSNG PASS ITE~A'ION

iGO CK MALT-CONTINUE SWITC~
;RrlN!'JAL.l~t COUNTER
jC~N "v .VAl~ABiL1TY
"WilT L;oo,
JFUN~

A DING

OONTCK

~1, (2)

NOP

0~0iJe21

;SET UP I. SOB I N ~11t 3f~
"ANO IN OATA
jCKN rOR a OCTA~ B1T
;BRANCIof If" I2l
;SAVE MASK CONTENTS

i!IPBIT

B~JS

T'T

"AGE 3

.£XRAOO,MASI<
!I1A!1<

MASK

eM"

161!'J1

'17777~ I

TST
BEQ
MOV

SEQ
SR

~12l140.

~~iZI'62

,D.J0,,4

0021466

1,.,7721
12100454

15·M.Y·72

aiT

*100iJlI •• SW"EO

HAI.T
JMP

,."

;CKN HA~T.eONTINUE SWJTCM
iS~lP NX tr NO SWITCM

NXPASS

iJUMP rOR NEXT p.SS

ee;Q

COUNTER

PROGRAM ~ANDAT
OcMH I A', 1111

MArNote.1~.O!MHl·A

MAeY11.61~

15.MAY-72

161JI

IIA(;E 4

,RANDOM DATA G~NERATOR SUS"OUT!NE
'~"'10132

""10~6

"211012
~J01"16

2101022
2101026
2101032
2101036
2'01042
201044
ee1046
"eU"0
"010'2
""10'4
"0UHJ6
"01062
"0106"
"010'"
21010'2
"011?J16
21811'"
21"1112
0:1'11"6

~1~061

010161
01"'261

"'10~61

012704
016100
0161~1

"12703
00'0212
0"6;500
006101
"06102
00'J03
0IU,3':'
0661""
015501
066702.
0"'502
0627210

"m'
,"l,
2115'''2

21"1116
0tn1Ze
0151114
0"1126
eHU 2. 32
0"1134
0"11"0
0iJ11"4

8621"1
81?J""2
"62102
0602"0
0215501
018061
211",,2'
012116,
","124
2116'0"
21161"1
01""2

" "ll.!'"
02111'.
02111'6
0211160
"211162
"el1164
0el1166

02102'"
0101""
"0"""'''
0100021
021"0121"
00"000

~~1110
0~1114

02111 ,,,
QI~11'2

0011'4
"'01116
21012""
2101202
0012~4

001206

01610~

00000(t1

"'''21001
121""0"'''
02100""
02100""
0,"'0"0
000000
00"0021

~02!1'0

DAVGEN, MOV

0~0166

MOV

MOV
MOV
MOV
MOV
MOV
MOV

000164
00"162
001156
000134
00!:132

"0"",,,.,

C~R

SHIF"TI

A~L.
R~L

RQL.

OEC

BN!:

ADO
Ace
ACD
Ace
AQO
Age

""0104
008180
0~10"

AQ~

,,0,SVl[RO
,,1,5VONE
"2.SVT"IO
"3,SVT~lP

*ENDGEN,"4
~ONUM,"0

HINU M,Xl

*',XJ

""
"1

"2
,,~
Sloflr!
L.0NUM,,,,,
-1
HINUM,~1

*10'7,~"

"1
"2

'.'."1,"1

"~'4e1

ADO

""""l']6

ADO
ACO

·t.I2

MQV

"" L.CNUt4

ADC

Age

"""" .. 2

MOV

Mev

8IUI"~6

MOV
!"tov

0100S6
""e0S4
0""032

MOV
MOV
MOV

"~8"3"

Rt~

ENOGr:NI 0

"21

BELL-CT. 21

L.ONUM.
HINUM,
SAVI.OI

t!J

"
SV!ERO'
SVONEI
0
SVTWO. "
SV'RIPI
SAVHI.

t!J

2'1

svrOUR, 0

,,2."0
X~

".,(4).

,,~,HINU"

",,(').
SVIERO,II
SVaNE,X1

SVYWO'''2
SVTRIP.X3

,'SAVN (C) R0
,SAVN CC) R1
iSAVN ~ C) R2
VN l C) A3
iGrT ENO or SUBRTN MAR~ER
;SET UP R0 WIT~ 5 OIGITS L.OW
is!T UP R1 WIT~ 5 DIGITS MIGIof
iSET U" S~I'T COUNT
'C~EAR R2
iS~I'T R0 ~E'T ANO
J~O'ATt CAA~Y INTO ~SB OF" Ri ANO
,RofATE CARAy OUT or Rl INTo Ai
,'O!CR[M[N' R3
;CONTINUE $HI'T ~OOP
jAOON !N NUMBER TO MAKE )( !29

,. s.

i~~OllOGATE CAR~Y
iAOON !N NUMaE~ TO
i'~OPOGATE CAR~Y

MAKE )( 12t)

iAeDN ~ow eONSTANT
;'~O~O~'TE CAR~IE'

,. 'IItO'OGATE AO'II N
jA~ON HIG~ CONSTANt
"''''OPOOATI CARlity
jA~DN H!GWEST CONS'ANT
iRtPAIM[ A8 WITH HIGH OIel'
JPI'IO'-OISAT£ CAR"Y
i'OT AI B.CKIN ~ONUM

(HOLD ,ONUM 'Q~ 'AqGAA"
I~OT R a.CK IN HINUM
jWe~O
tNUM 'Q~ 'ROG~AM

JRETURN 0.,. TO I'tI.Rl,-Z
;ANO AS
jRtTURN TO PROGRAM

PROGRAM RANOAT

~A!NO~e.11.D2MMl·A

MACY11,61~

EXFUDO I 0

15.MAY·72

16131

flAGE: 5

O~MMtA·.P11

01211210

?'1ZI0~00

0a1212
01211214
0.,1216
001220
01211224
00123"
001234
0121124,
001244
0012!Z

000000

1311£1461
010061
01"'161
032711
001064
"3.27212
004161

"'1ZI12~4

01"''''°2

2101256
01211262
001266
"012'"
001276
ee130,
ZrlJ131"
0rlJ1J12
0(81314

~"~000
e'~H'000

12104767
10'771
100315
~3.27'7

a"1~44

12105267
026121
0"1364
211101212
1ZJ05e61
004'6'1
lla5771
1183"
1127'7
11'7'7
1"2137'

"e1~14

",,?r:;

eZ1~2J

001;524
001a!.
0":'J32

011a41

ee1346
Z'13"

O11364
12!t:13'.
1212:13'2
011.ce,
""1414
0014~6

001"14
'Ha.c22
011 .. 24
2101426
0~1432

0Z14:!6

001442

1lJ~2111

0141.'
1"'"
1183"

01,7'7
UHJ117

10"~75

012117
0;)27'1
""14"1
0sellZl8
0167Z4
11'1610"
0161~~

0"02~7

171162
171146
117144
0iZlZl00

116751?

002100
0"''''464

J~R

MOV

0021162

SPACE.

1~612i
000,4~
1~1114

17 1 110

12!
MASKI
SVMASKt
SPOCI<I '"
ERRORI MOV
MOV
MOV
BIT
BNt
MOV

0"21021~

C~R

J~R

1ZI~1121

TST8

116~61

002121'
11.644

1,,,6'6

,,~ea12

17t63t

B~C

MOV
T'!B
SPL.

e~§J"

2:e"212

1'1~"t
1.,t"~

1~7"4

1'1"41
1~"36

*23.,,"T09R
.TCSR
1';'4

""PRYAa

Mev

T~!B

BPL.

MQV

SWCHI<.

I·~

J§R

I~L,

11~612

SWCH!<
*MSG2.%2
"',TOP
"O,,,2
""PRTAB
.TCSR
SPACE
#24Q1,.TOBR
SPOCK
SPOCK,'6
SPACE
• XfJ,"2
SPOCK
,,7,PRTA8
'TCSR

*212"T09111

TITB

P.leeZ1'
1146",4

*200"'1ZI"SW~EG

MOV

11'.11

1Z~21mil

TSTB

B~~

Mev
INC
CMP
BNt
MOV

11611~

1~'6'6

s.r'~2.

J~R

"4,SVF'OUR
"QI,SVi![RO
,,1,SVONE

.,vrroUFi,"Z

.TCSR
I·~

.2~,,'ToeA

·T~SR
t·~

.212,'TOBR

JSAVN Rm,R1. ANO R4

INHIBIT PRINT MASt<
iSW UP,SK1 P PRINTING
is!NO "INCORRECT RANDOM OATA" MESSAGE

iS~TUP

jGrT ee) RI

iGO ~R!NT .DORtSS
jet< TTY AVAIL.
jSfNO SPACE

;eli( 6 SPACES
jG~T E~ROR

OAT •

"GO TO pRINT ~OUTJNE:
jef( TT~

;stNO CR
iCJ< 1"Y

iS~NO ~F'

(G!T CORRECT DATA rOR I'RiNTEA
JGO PRfNT
iCIitN , Y

ce) or R4

,'S!NO eft
;eRN 1'TY

is£NO ~F'

BIT

*10021JI"SWREIi

;SI:TUP HAL.T MASK
iS~IP HAL.' IF' NOT WALT ON ERRO~

Mav
Mev

SV'OUR."t4
SV![RO."0
SVONE."1

,'R!TURN I NO DATA TO R",~l. I

SEQ
HAL.T
MOV
FlYS

"RETURN TO PROGRAM

PROGRAM R,lNOAT
OiMMIA",P11
"''1444

0t'14!50
0"14,4
001460
G!!01466
00141.
0211502
0211~11!

2101'14

001'16

e"1~20
0"1~22

""1'31

0115,'32

O01'41
011'4.
0'1551
O11"4
001561
011562
081'"

0115'4
011611
8.1612

081618

001614
0211622
011,626
001632
011636
0211641
01164.
0816'2
02116'4
0016',
21211661
011666
"81612
0116'.
"0171'
""171.
"01716
"01711
"01712
"01714
001116
00112"
"01122
001124
0"1726

"01730
001732
"01134
001736

~.lN~te·1.·ClMHI·A

MACY11.61t

~e506'

e'002!52

PRTABI Cl.R

('0'067

i!00244
2101726
00121177

:'12704
142717
"12161
r1276'
t'412767
1~57"

10~375

t-0572'2
1034e4

Z~a00;

001211210'

00001211
lr64'4

C~R
~OV

176522

BICB

MOV

~"02l0

00121210
00020~

~OV

MOV
WAIT11

T~TB

BPe
T~T

eMi

12100260

176462

MOV

176452

016'0~

0'0"261
00121146

04610~

00014"
"0121134

MINUS. HOV
STARTXI MOV
MQV
COM
Bte
BtQ
MKNUf'11 ADO
INC
eM'"
BNt
WRTOCI ADD
MOV

~127"
2'''~40~

2127 1 7
12110267
"'1'16'
391410
2'66767
2105261

0~Ha44

1300130

066,6'

0.'31~

0210130

0~0126

Be11221
02670~
"'137.
862767 21J"26"
016724 ·a001a6
066767 0&1la'2
0215,61 0210072
085861 0&10078
e85361 '''''''66
21111411
0~27e~

02/0"03

010'42

2'8137,
01J073e
2112767
1"7"

"'1~6;)16
HlJ 21'"

20'367

00,a20

1.,3"
0144'1 1~';S12

0""112

AQO

0e01'!

CL.R
C~A
o~e
B~Q

"3,,,.0

"'''213t

MOADD.

MQV
400

XI.SST'
WAlTZ'

eN';
BFt
MOV
TIT8

00021'""
""""'
00"0"0

00"0""
00"""8
0,e""0
e0"0""
00"000
e000"0

'HH~001

~"0,,0"

e~I.

MOV
0,0
8t;Q

""140~

00"76'
009207

DtO

HorHMI

SEVEN,
TOOOL.EI
otCMl.'
WGTCT,
BINeT.
ASCNTI
I.IST.

er:t

fIt!S

rJ
2f
~

e
0
0
~

0
0

15-,..AV·72

16130

BINCT
WGTCT
#t.iST,"4
•• 77,.TCSR
.5,ASCNT
.7,SEVEN
'l,OECML.

PAGE 6

iG£T L.!ST ADORESS
,·CLR'. tNT 'I.AG

'TCSR

W/dT1
"2
MINUS
.260,.TOBR
STARTX
*261,.T09R
SEVEN,Xl
,,2,TOOOL.t
TOOOI.E
TOOOL.E,X3
WRTOC
DECMI.,WGTC'
BINeT
WGTCT,x:s
MKNUM
*2~0,BrNCT

BINe T,(4).
SEVEN,OECML;
WGTCT
BINCT
AseNT
XI.IST
1113,,,;,

SEVEN, SEVEN
"3
MOAOO

S'ARTX

*'.A~CNT

.TCSR
WAIT2

iNEG SIGN IIR%NT 1
jPOS SIGN PRINT

,~UT

MASK IN "3

iGrT REAOY TO OOOOL.E NUHSEA IN TOOOI.E

iCOMP£NSA'ES rOR COMPI.£MENT OUAING BIC
i4ND IN OCTAl. CHA"ACT£A
jitRO, WRITE I IN L.IST
'-COUNT UP TO
;4NO RECORD
iSiM£ BINARY WEICH'
"KEEP eOUNTN
iAOD ASCII PRt'!X
iW~ITE ASCSI C"AR IN L.IST
jt~PAN~ BINARY WEIGHT

is C~A~ IN L.lST
is!T x, rQR ADO LOOP
jM1K!Ntl SEVENTV BE SEVEN
,NX S!VEN SET GET NX OC"A~
iSfNO B CHAR TO TT9

·C~)"TOe~

ASCNT
HOF'HM
W.IT2
X7

i,tNISH PRINTING GET NXT NUM
iHEAO "OR !-faME

PROGRAM RANoAT

~AINO£C·l~·OiMMI·A

o aM MJA', P11

0~174~

12101746
e~J1752

12101754
el2l1762
"'01766
12101770
"'01716
Ii!H21 2 " '" 2
"'02""'6
12102010
~"2014

"02016
"02022
002£724
2102038
2102032
2102036
"02kU0
"02046
0020'i
"020'4
"02062
"02066
"020"
21020'2
"02"'4
00207'

142777
105771
1"0375
112717
105771
UH~3"

112777
112261
121261

"" 162

"02262
"02264
"02266
"022'"
"0 2 ~H'12
"02J10
002316
"02324
"02332
0e12340
002345
"02352
"02360

1'6242

~~~215

116230

TOPI

112277
"0"'64
105111
li"!~15

112777
10571'
10031'
112711
121261
001402
105202
0021743
000201

'~2.EOMI<

T5T8

a~~

176162

Move

1r6152

ATRATEJ TSTB
BPI.

"'00215
116136
0"0212
0~01/J10

,.4

(2)+,EOMK

ATRATE
4t"2,."
ATRATE
4tTCSR

(2)+,eTDBR

,;... ',: .,
*23.5,!,TDBR

iS~NO

TOP~~:
'TCS~

17614~

17~130

Mova

*2~2;'TCBR
'~2,EOMI<

INca

~t,

".,

TSTa
BPI.

CMPS
BtQ

BR
EOMK.
0'~11l

0'~'4~

,8YTE

iMOVE IN tOM M.RKER
iCOMPARE rOR e:OM
jet( TTY
;WAIT rOR CONE
"MOVE eHAIIUCTER

.~4

Mova·

. ...

jaRANcw BAOK

eARRJAGt R£TURN

"05ft

."'t

TOPl

.Sr:NO ~JNE F'EEO
jC~N ENO MESSAGE M.RK
js~p NX2 I' EOMK
iINCFtM'N ~2
;NO EOM, so l.OOP

I/J

.t:VEN

MSG21

,."'CII "INCORRECT RANOOM eATA AT THE 'O~~OWINQ ~OeATSeNI,'

Qe;,.

02"11~

,,4044;

021/J10~

,,'3511
041514
2141111

.~VEN

.,Qf;F'.+'00

BurF'ERI o

04644fr'

2120131

022112~

0~4514

214451'

051'24
051440

053"40
2144'21
2142522
051105

2141524
044507

046511

eMPS
BE;Q

1 1 6166

21'21'"
12';1117

"'53517

is[ND I.,;INE F'EEI'

CMPB

0""JII

052123
123

#2~2,.TD8R

S,Q

00"1"~

"'"

12'c011e

Move

.MOve

~0a074
0~"012'

002108
0444'. 041516
042'22 ,,;2.03
04'101 e~"ClJ4
04","'4 0~0'24
020124 ~~'12'
"41500 "~6114
12141111-' 2201'"
04"5~~ 044;24

2102262
0"~"0"
kH'"'' 00
121514!57
04650,
042101

is[ND CARRIAGE RETURN

TSTB

8P.~
1'621~

#177,.TCSR

"TOSR

,114
#215"TD8R
"TCSR

Mova

116222
~00212

810e
TS18
BP~

~01411

121221
001406
105177
10"31,

"212;1118
0121C1J6
002114
021 2122
0212131
"02136
0022,44
"022,'2
e;0 2 161: 02''''c
2

~"21"

1 7 6236

0511~4

QErA.
MSG1.

.ASCIIJ/SET MLMORV AOQRESS ~IMtTS VIA SWITCH REGiSTER',

2151521~
04051~

leriJ

liHS2105

04604i'

21;11eS
0'2111

04444£7

e~6"4i'J

,ASCII'SET ~OW£R ~tMtT IN SW.R~G AND PRESS CONTINUf',

tiRO;",,, 1l.~OAT

4.rNO£C·l1·0~MMI-A

MACY11.~S.t

15·H4Y·12

16"0

"AGE 8

wZ~MI'·.'ll.

Z'a2J66

0~0116

"~3523

05105~

"'43505

(2140440

04211t

1341440

04 7 11'

34452~

etZ21124
3,,0122
0i0124
0l652'

35"12~

",23'. e'5l'l040 ~42522
~~24~2
l~2410
J~2416

., 1~24!2
~,~24321

a~2436

lQZ444
~"24'2

;,aZ4'"
a.,Z466
"al4'4
I~Z4'"
a"2'~4

aitZ512

11IZ'!J

2',2,a6

fI'2'~4

~t2'42

(tll'!1

,,1'52
,,2561

ItIZ"6
lI,Z,'4
112612
,,2610
11262.6

"'52516

Z4252J
04252fJ
"4451'
352,440
020101
051120

0~0105

0~'101
0~S.51!J5

04"e~

0~2116

125

0~2116

12142525

04'112.
046511
04452'
0201215
04'524
026464
04006'
044514
042.1.'
1ZI'21."
040522
044'27
~201'"

04612'
B'~I"l

100

05152~

"4"11~

042522
02010!
02012~
04711~
04310~

2J~210'

04604"

0~6114

0410"

052111

2I2012~
2IJ3"6~

0~3461

03346!

0~4'15

051'2!

a~61e5
QJ~4'1e
0~3'16

0~'114

"42;1)4

0!2524

•• SCII'UNO£~INEO ~!MITS wr~~ BE SET TO 2264-17.70.,

02e12~

0~S.214"

0!2;23

,ASCI!JstT UPPER ~IMrT IN $W.R[G AND ~RESS CONTINUE"

04451~

,A~C11'~IMITS

0'~51~

~21J12~
0211e~

042,1.'
04e5fJt
027511~

.,NO

BELOW TH!S R.N~E wrL~ at O['AU~TEOi'

P,.OGR AM ., ~I\O' T
OlMMll 1 Pl1
A~eNr

BINeT
O'YGE~

tNDPAS
HO"~H

1.1ST

MA1Note.1~·OlM~I·A
SY~901. TABi.E

A!RATE

~01'2~
:d"1'2~

B~"rER

~~011~

EOMK

::lECML.

J2'1~02

~1Z1'1°
~01"2~

j./JI.~T

a0226~

MSG2

L.OI.~"

MINUS

M~~Cl'

00a510

NX".SS

~0~44Z

SAVI.O
SPACE

a0117 2

SEE

""0312
;012027

StjM M1T
SV.TRIP
SWRE:G

M'~l

~'.OCK

51·"Tl

SYON[
SWCMK
TI.S

WAITS,

xl.l,r
S~

PRTAB

Zl0063rc
~i27126~

a2ll..1~
~01'1l'

0"1661

,RRORS OtTECT~CI

0022176
0002~'

000204
0015~2
0"21fr'~

RtAOON

SPOCI(

0012.6

00"26~

1I'''22~2

001'+.'

001444
liHH~6'1'

TOOOl.E
WAIT2
lCROtON

0"023!

0022'~2

"0022'
~H!J"2.'

001204

MACY11f61~

15.MAY"72

A\JTQST
CONTCK

BE:LI..CT
elL.SET

EN~Ge:N

"o0754

rXRAOO

~iNUM

01l1122~

001170
001166
001562
0"0240

MASK
MO.OO

ERROH

1.0NUM
MKNUM

Il
NOP
Q[r
9102162
01210462
REWRYT

~l~ET

NXr:RCi!

QE:'A

stART
SVF'OUR
SVTWO

001712
000220

5AVH!
SH!F'T
ST1RTX

001206
001202

SV!ERO

TOfi

001740

SEVEN

TPSR

~016~6
0005~6

W~!CT

00"210

0007$4

PACE 9

ENOADR

001Zl2~'

"2111,.

''H~''426

16130

XRC1

0eil21~

"017Z~

"(lIe~"6

• 002624

0et1164

000424
001156
001210
000376
001212
001644

,,0"'16
002264
001174
00104~

001540

SVMASK

001214

foeR

0·~02l.2
~e200Z

1'0111
WFuoe

lIPB!T

04'1176

001602
000620

PROGRAM RANOAT

M~tNOEe.l1.0lMMl.A

OiMMIA'."11
~DiMMrA,JlM~IA-DlMMIA/SOL.

RUN-TIME, 2 • 0 SECONDS
CORE USE J I