Digital PDFs

XX-84989-73

December 1964

35 pages

Original

0.7MB

Document:	PDP-5 pgmLibr 1964
Order Number:	XX-84989-73
Revision:
Pages:	35
Original Filename:	http://bitsavers.org/pdf/dec/pdp5/PDP-5_pgmLibr_1964.pdf

OCR Text

PDP-5

PROGRfu~

LIBRARY

December 17, 1964

r:) ,.

IJ.. / f! "'e
(f

ORIGINAL
PROGRAJ.'i

Ce I"e

U ~ r ~r .' ~y\

rl C::!

] ) E-C

W ~

;"!

1/ e/I lI'e c;;

/1'

. '(

~ /" E'.;(.) ::.51 5 I~

IV,:-ht bl'!r5 ~

SUPERCEDED
BY

DEC

DIGITAL

NAHE

5-1-S

8-3-S

t PAL (Program Assembly Language for PDP-5)

5-2-A

8-l1-F

Two's Complement Multiply Subroutine

5-3-0

8-18-U

Teletype Output Package

5-4-A

8-10-U

BCD to Binary Conversion

5-5-8

8-12-8

ODT(Octal Debugging Tape)

5-7-A

8-9-F

Square Root (Singe Precision)

5-8-U

8-6-U

Octal Dump on Teletype (High)

5-9-A

8-12-F

2's Complement Single Precision
Divide Subroutine

5-10-A

Signed Decimal to Binary Input

5-11-A

Double Precision Binary-Dec. Conversion
and Output (Signed)

5-17-A

8 - I:)-F

Single Precision Sine Calculation

5-18-A

Single Precision Cosine Calculation

5-20-U

Message-5

5-21-10

8-22-U

Unsigned Decimal Print, DCPT

5-22-1

8-1-U

Rim & Bin Loader

5-23-1

8-2-U

tBinary Loader 750

5-24-0

8-5-U

Binary P·unch 33

5-25-0

8-5-U

tBinary Punch 75A

5-26-0

8-4-U

Read-in-Mode (RIM) Punch 33

5-29-1
5-30-A
5-31.-U

tRIM Loader 750
8-5-S

Interpretive Floating Point Arithmetic
Package
Signed Single Precision, Decimal
Memory Dump (High)

Page 2

ORIGINAL
PROGRAM
DEC

SUPERCEDED
BY

DIGITAL

NAME
Single Precision Binary to Decimal
Conversion and Typeout (Signed)

5-32-A
5-33-A

8-l3-F

Double Precision Multiply

5-34-A

8-l4-F

Double Precision Divide

5-36-A

8-5-S

PDP-5 Floading Point and I/O Package

5-37-S

8-l-S

PDP-5 Paper Tape Editor

5-4l-U

Octal Dump on Teletype under Program
Control

5-42-U

Signed, Single Precision, Decimal Memory Dump on Teletype under Program
Control

5-43-D

8-l0-S

Square Root Calculation in Floating
Point

5-46-A

34 OISP(./'.ftl TE- S T

6-4~-M

5-53-1/0

Expensive Adding Machine

8-33-U
MAINDEC

DECtog-5
Maintenance Routines

5-l2-M

801

Maindec 501 (Instruction Test)

5-l3-M

810

Maindec 510 (Reacier Test Program)

5-l4-M

812

Maindec 512 (Punch Test)

5-l5-M

802

Maindec 502 (Memory Checkerboard)

5-l6-M

803

Maindec 503 (Address Test Program)

5-l9-M

814

Maindec 514 (Teleprinter Test Program)

5-38-M

814

PDP-5 Read Alpha Test

page 3

ORIGINAL
PROGRAM

SUPERCEDED
Maintenance Routines

DEC

MAINDEC

5-40-M

811

tHigh Speed Reader Test t Type 750

5-44-M

817

tHigh Speed Punch Test

5-50-M

820

Memory Extend Test

5-52-M

5-63-- r/v
5-54-M
5-55-M

Teletype 634S Test
0(<0 TOG-'-

0 GC "(06

57A Basic Program
Drum 250

t Programs for High Speed Reader and Punch

PDP-5 PROGRAM LIBRARY

NUMBER:

DEC - 5 - 10 - A .

NAME:

S1gned Decimal to Binary Input

DATE:

Revised

AUTHOR:

Larry Portner - DEC

SPECS:

Length: 6410 Registers

ABSTRACT:

Th1s routine will accept a string of deoimal d1gits from

June 18 1 1964

the teletype and convert them to a signed two' s complement binary number (if a sign is specified).
The string may contain a sign (-or spaoe) and the digits
from 0-9; _...
a rubout
will ~.~ase the wo:t'd an~ allow the ope.............
.....
-"""'-,

~~."'-......

-.~..

........

rator to re-enter the value.
must appear first.

. . ,"

\...

The sign, if one appears,

Any character other than - I space,

0-9 or rubout will cause the routine to terminate, as
will a sign in any but the first position.

The charac-

ter which causes the routine to terminate will be found
in location If save".

If the first legal charaoter is not

a sign (space or-) the sign of the conversion will be
positive.

DEC - 5 - 10 - A
page 2

DESCRIPTION
This routine will convert a signed or unsigned string of decimal numbers read from the ,teletype keyboard to its binary equivalent.

If a minus sign is specified, the result is in twols

complement form.
The first character is examined, and if it is sign (space
or -), a switch is set to provide the correct sign for the conversion.
Succeeding characters are then examined.

A rubout will wipe

out intermediate results and allow a restart.

Any non-digit, in-

cluding a sign, will cause the routine to ter.minate.

Upon the

return, the binary value will be in the accumulator.

The charac-

ter which caused termination will be in "save", and a zero in
test indicates no conversion has taken place.
The user must initialize the keyboard flag if there is a
possibility the flag may be on before the input string has been
started.

I LIBRARY I

DEC - 5 - 10 - A
Page 3
!.decimal to binary input conversion routine
/routine accepts a string of digits, a space or a minus sign
/routine will terminate on any other character
/character which terminates will be in save.
/calling sequence:
jms dbcv
/
return after terminator. result in ac

i(200

dbcv,

pos,

skip,

exit,
swch,
cont,

cIa cll
dca test
tad sevt
dca swch
dca temp
jms chin
dca save
tad save
tad rbt
sna
jmp dbcv+1 /;: ~.:
tad spc J!. ? I' ~sna
jmp tst
tad neg
sza
jmp skip
tad test
sza cIa
jmp exit
tad fort
tad sevt
dca swch
isz test
jmp dbcv+6
cIa
tad save
tad numb
sma
jmp exit
tad nine
sma
jmp cant
cIa
tad temp

L-'

jmp i dbcv
dca sav2
tad temp
rtl cll
ral

LI BRARY

DEC - 5 - 10 - A
Page 4

ectl,

dca save
tad temp
ral
tad save

ret,

tad sav2
isz test
jmp dbcv+5
tad test
sza cIa
jmp exit
jmp pes

tst,

nine,
temp,
save,
sav2,
rbt,
spc,
test,
neg,
fort,
sevt,
numb,
chin,

12
0
0
0
7401
0137
0
7763
0041
7000
7506
0
ksf
jmp .-1
krb
tIs
jmp i chin

i~DPI

15
III

BRARY

*200
D POl " 0
CLA CLL
DCA TEST
TAD SEVT
DCA S\\'CH
DCA TEMP
JMS CHIN

DCA SfJ.VF..
TAD SAVE
TAD RBT
SNA
JMP 080J+ 1

TAD SPC
SNA

JMP TST
TAD
SZA

NEG

~JMP

SKIP
TAD TEST
SZA

POS,

CLA

JMP EXIT
TAD FORT
TAD SEVT
DCA SWCH
I S2 TEST
JMP DBCV+6

SKIP, CLA
TAD SAVE
TAD NUMB

SMA
JMP EXIT
TAD

NINE

SMA
JMP CONT

EXIT,

CLA

SWCH,

TAD TEIVtP
JMP I

CONT,

DBCV

DCA SAV2
TI1,D TEMP

RTL ell

RAL
OCTL, DCA SA) E
TAD TEMP
RAL
TAD StlV E

RET"

TAD

SAV?

ISZ TEST
JMP DBCV+ 5
TST,

TAD TEST

SZA CLA
JMP EXIT
JMP POS

NINE,
T F'tvIP"
SAVE,

I?
0

0
SAV'?, r
RRT,
7401
SPC,
QH37

TEST,
NEG"

FORT,

fJ\0L!1

776:?-:

SF" T"

7000

N BMB"

7 506

CHIN" V
KSF
JMP .-1
KRR

TLS

JMP I CHIN

PDP-5 PROGRAM LIBRARY

NUMBER:

DEC-5-11-A

NAME:

Double Prec ision Binary-Dec imal Conversion and Output (Signed)

AUTHOR:

Larry Portner

DATE:

November 27, 1963

SPECS:

Length: 134
8
TS (Teletype Symbolic)

NEEDED:

Self-contained

ABSTRACT:

This routine wi II convert two binary words (where the high order word
contains a sign) to a signed decimal number and type it out.

PDP

LIBRARY

DEC-5-11-A
Page 2

DESCRIPTION
Given the address of the high order word of two words which comprise a 23 bit binary number
and a 1 bit sign, this routine wi II convert the binary value to its decimal equivalent and type
it out, preceded by a space or a minus sign.

USAGE
Ca II ing sequence:
jms dbnd
address of high order word
return:
Routine will type a sign +7 digits. User must provide formatting.

I~
15!
i
I
LI BRARY

DEC-5-11-A
Page 3

*200
DBND!

ARND,

DO,

o
ClA Cll
TAD I DBND
DCA GET
TAD I GET
SPA
CMl
ClA
TAD PLUS
SZl
TAD MNS
JMS PRNT
TAD I GET
Cll
SPA
CMA CMl
DCA HIGH
TAD lOOP
DCA CNT
TAD ADDR
DCA Z 0010
ISZ GET
ISZ DBND
TAD I GET
SZl
CMA Cll lAC
SZl
ISZ HIGH
DCA lOW
TAD I Z 0010
DCA HSUB
JMS DO
ISZ CNT
JMP ARND
TAD PLUS
JMS PRNT
JMP I DBND

TAD I Z 0010
DCA lSUB
ell
TAD lSUB
TAD lOW

51
I
I
LIBRARY

DEC-5-11-A
Page 4

OUT,

PRNT,

DCA TEML
R,ll,L
TAD HSUB
TAD HIGH
SPA
JMP OUT
ISZ BOX
DCA HIGH
TAD TEML
DCA LOW
JMP D0+3
CLA
TAD BOX
JMS PRNT
DCA BOX
JMPIDO

TAD TWO
TSF
JMP .-1
TLS
CLA
JMP I PRNT
LOOP,
CNT,
HIGH,
LOW,
ADDR,
TWO,
PLUS,
MNS,
HSUB,
LSUB,
BOX,
TEML,
GET,
CON1,

7771

o
o
o

CON1-l

0260
7760
0015

o
o
o
o
o

7413
6700
7747
4540
7775
4360
7777

'PDF

[ LIBRARY

DEC-5-11-A

Pose 5

6030
7777
7634
7777
7766
7777
7777
$

'FDF

,LIBRARY!

it I. "]lff~ -" -.
IDOL1FLE FFFCI!::lOi\ El{\F:EY 'iO LECIt"'PL COt,'\'Ff-:SIO[\! AND TYPEOUT
~'f- La
[; EN D, G
eLt, elL
TAD I LEi\'r

IZ 20Q~

02lZ1
02f22
02E2
£2: 20.6

02e 5

02eE
e;207
021 e·

16eQ.
3316
1716
7510
7e20
72e;0

DC~

GE'T

TPD I EET
SFP.

CML

CLA
TAD PLUS
SZL

1310

0212
0213
0214

7L120
1 31 1
.6273
1716

TAD I GET

0215
0216

71!Z0
7510

SPA

0217
0220
0221

7~j60

CMP, CML

3304
1302

TAD LOOP

021 1

TAD MNS

J f" .....C"
'A

eLL

DCA HIGH
DCA

UJ 222

0223

PR~~T

Ci\}T

1306

TAD ADDF:

022Li

3f 10

DCt~

0225

2316

ISZ GET

0226
0227

22120

I SZ DBND
TPD I GE1

Z fH!i 10

023C
fi231
(() 2 3·2
e! 232

1716
7.630
7141
7 Li3Ql
2 3tZ Lt

(i 23 L,

:330 5

(?~~35

lL!10
3312

ARND, 1AD I Z 0010

f2)236

0237
02LJe

4245
23fi3

JMS DO

e·2L!1
10242
fZI2LJ3
2 L Li
02LJ5
02L:6
02L;7

5235
131(2"'
LI273
5 6fH:)
10000
1 Ldei
3313

JMP
TAD
JMS
Jt.tJF

02se)
0251
12252

7100
1313

TAD LSUB

f1253

1305
3315

TAD LO ~\
DCA TEMl

0254
0255

7/2J04
1312

TAD HStS

(2:256
0257

1304
751 e:

SPPi

e'26CZ!
e261
0262

5266
2314
330Li

0263

1315

TP,D TEt-iJL

0264

3305

0265

5250

DCA Lor
JMP DO+3

0266

7200
1314
4273
331L;
56L!5

£1267
027e,
0271
eE7?

SZL
CfvlP eLL

lAC

SZL
IEZ hIFl-i
DCA LO v'
DCA HSl'E

I SZ CNT

DO,

AEND
PLUS
FRNT
I D6ND

£)

TAD I Z 001€
DCA

L~,UB

eLL

F~f-;l

TPJ; HIGH
Jf'.-1p 0 UT
15Z SOX

DCA hIGh

OUT.,

CL.A
TAD

EO}~

JMS PENT
DCA 80/\

JMP I CO

f273
C 27 L;

CCC[

027~

6k:~ L 1

527::·

0277

610 L:: 6
72e0

£·3160

c;,(,..

TtL T\10
TC'...:r
Jfv:F • - 1
TLS

13{2'7

[:276

e 301

fFi\T ...

CLA
JMP I FF-i\ T

5673

e: 302

7771

LOOP ...

7771

IZ 303

~!0f,e

CNT ...

>".-'

e000

e 30.6,

0305

ee.00

HIGH",
LOlt:",

(2'306

0316

ACDP",

CON 1- 1

f3e7
e'310
0311
0312
0313
(: 31 4
f2~ 31 5

0260

T\,:O "
fLUS"

0260
7760

t4NS,
HSlIB"
LSCB ...
ROX ...

0015

7760
0015

G000
0000
0000

0000

0316

o(cH2i0

0317
0320
0321

7413
6700

0322

7747
45L10

I?
Vi

TEML, 12
GET,
0
CON 1 '" 7L!13
67100
77L?
Ll5L:tZi

0323
f)324
fj 325

7775

~36e

.q3t':0

e:::,26

7777
6030

7777
6v<:-H2?

0327
0330
(-5331
e332

0333

£3 23L~
ADDF:

ARND
EO)::
CN1
CONl

DBND

7777
763Ll
7777
7766
7777
7777
030E
0235
031 Ll

03e:3
0317
020~5

0245

FET

0316
0304

HIGH
hSUB

LOOP
LOy
LSUE

MNS
o LT
PLLS
Ff;NT
TEML
1\-"0

0312
03e2
030'5
(2;313
e31 1
0266
~) 310

0273
Q:;31 5
0307

7777

7634

7777
7766
7777
7777

oc p T -- 0

PDP-5 PROGRAM LIBRARY

NUMBER:

DEC - 5 - 31 - U

NAME:

Signed, Single Precision, Decimal Memory Dump (High)

DATE:

Writeup revised

AUTHOR:

Larry Portner - DEC

SPECS:

Length 12810 Registers

June 30, 1964

ASR-33, PAL Binary Format
SA 7000;
ABSTRACT:

Occupies 7000-7177.

Given the limits of an area in memory, this routine
will perform 2's complement binary to signed decimal
conversion upon each word, and type it out, a variable
number of words per line with the address of the first
word in each line appearing in front of each line.

I5l

I LIBRARY I

DEC - 5 - 31 - U
Page 2

DESCRIPTION:
This routine will convert a series of 2 1 8 complement
binary words to signed decimal and type them out,
giving the user the option of specifying the area of
memory to be converted and the number of words to be
typed on each line.

USAGE:
A)

The maximum number per line is

start the routine by placing the starting address

(7000) in the console switches and pressing LOAD
ADDRESS.
B)

Enter the octal number of words per line in the
console switches and press START.

The program will immediately halt.

Enter the be-

ginning address of the area to be dumped in the
switches, press CONTINUE.
D)

Enter the ending address in the switches, press
CONTINUE.

To dump successive blocks using the same number of
words per line, repeat C a~d D.
To change the number of words per line, repeat A
through D.

DEC - 5 - 31 - u
page 3
/single precision decimal memory dump
¥TOOO

tIs

jms lfcr
osr
sna
jmp .+3
cia
dca parm

jmp ddmp

sbnc,

spa

cml
dca bal
dca box
tad cntr
dca cnt
tad addr
dac xyz+2
tad plus
szl
tad mns
jms prnt
tad val
spa

xyz,

addr,
box,

ent,
val,
entr,
can,

cma iac
dca val
tad val
tad con
sma
1sz box
sma
jmp xyz
cIa
tad box
jms prnt
dca box
isz xyz+2
isz cnt
jmp xyz+1
tad plus
jms prnt
tad plus
jrns prnt
jmp i sbnc
tad can

o
o
7774
6030
7634
7766
7777

DEC - 5 - 31 - u
page 4

p~nt,

tad two
L-_~

vl:>.J.

jmp .-1
tIs
cIa ell
jmp i prnt
two,
plus,
rons,
ddmp,

nowl,

loop"

rnskl.i.,

form,
line,
end,
bgn,
olup,

0260

7760
0015

cIa
tIs
hlt
osr
dea bgn
hlt
osr
dea end
tad bgn
ema iae
ell
tad end
ema
dca end
ell
tad form
dca olup
tad parm
dca line
tad bgn
jms ocpt
tad i bgn
jms sbnc
isz bgn
1sz end
jmp .+3
jms Ifcr
jmp ddmp
isz line
jmp loop
jms Ifcr
cIa
jmp newl

7000
774
0
0
0

PDP

II BRARY

DEC - 5 - 31 - u
page 5

oept,

ell
dea wait
tad rnsk4
and wait
rtl
rtl
jrns prnt

Ifer,

er,
If,

wait,
parrn,

tad. wait
rtl
ral
isz olup
jmp oept+1
ela
tad plus
jrns prnt
cIa
jrnp i oept
0

tad er
jrns ~rnt
tad f
jrns prnt
jmp i Ifer
7735
7732

0
0-4

r5l

ILIBRARY I

seNe.. - 5
PDP-5 PROGRAM LIBRARY

NUMBER:

DEC - 5 - 32 - A

NAME:

Single Precision Binary to Decimal Conversion and typeout
(signed. )

AUTHOR:

Larry Portner - DEC

DATE:

January 16, 1964

SPECS:

Length: 5110 Registers
TS (ASR-33, PAL Symbolic)

ABSTRACT:

This routine will convert a two's complement binary
word to it's signed decimal equivalent and type it
out.

DESCRIPTION:
This routine 1s entered with a two's comple~ent binary
word in the accumulator and will convert it to its
signed decimal equivalent and type it out, preceded by
a space or a minus sign.
USAGE:

Calling sequence:
tad binary word
jms sbnc
return

LIBRARY

DEC - 5 - 32 - A
page 2

/binary to decimal conversion and typeout
/single precision
tad binary word
/calling sequence:
jms sbnc
return

sbnc,

xyz,

addr,
box,
cnt,
val,
cntr,
con,

ell
spa
cml
dca val
dca box
tad cntr
dca cnt
tad addr
dca xyz+2
tad plus
szl
tad mns
jrns prnt
tad val
spa
cma iac
dca val
tad val
tad con
sma
isz box
sma
jrnp xyz
cIa
tad box
jms prnt
dca box
isz xyz+2
isz cnt
jmp xyz+1
jmp i sbnc
tad can
0
0
0

7774
6030
7634
7766
7777
PDP

LIBRARY

DEC - 5 - 32 - A
Page 3

prnt,

two,
plus,
mns,

0260
7760
0015

tad two
tsf
jmp .-1
tIs
cIa ell
jrnp i prnt

iPDPi

:51

I liBRARY 1
' - - -_ _I

sswc.-s
/Plf'.!PEY TO fECIrYjPL CO{\:\EF::IOi': Pf')[ TYPEOUT
/5INGLF PRECISION
/CPlLING ~EQLE~\CE:

TtD Blf\~PF'Y
Jt-" ~ SBf\JC
EFTURf'l

/
/

*2ed?J
~-: 2fZ (2-

k?0f;C

~.aNC",

l2,'2((' 1

71 e~J
7510

CLl
CML

0205
02e'6

702e'
32L13
32L!1
1244

!Z 2fZ2
0202020..6

SPA

DCA

\)Pl

DCP

E07
TAD CNTF:

0207

3242

DCA CNT

12/210

12L!0

0211
0212
0213
021 A

3223
1261
7430
1262
4251

TAD ADDFDCA XYZ+2
TAD Pll:S

0?1S
0216

12Li3

0217

75112'
7041

0220
0221
0222
12)223
022L1
0225

022f
0227
023(j
0231
0232

e233

SZl
TAD MNS
JMS FFNT
TAD \iPl
SPP.
eMA lAC

32LI3

XYZ, DC? VAL

12.43
12L!5

TAD VAL
TAD CO £\1

7500

sr::F

22.41
750(2:'
5221

7200
1241
L!251
32Lil

I~Z

BOX

SMA
JMP
eLP,

XYZ

TtT BOX
JMS F Rf\~ T
DCA BOX
ISZ XYZ+2
ISZ eNT

e23L;
0235

2223

e236
0237

5.222

JMF XYZ+l

56-0ei
12L!5

JMP I

SENe

ADDF,

T.AD CON

02.40
0241
02L2

13243
02L;Lj
0245

22LJ2

0000
0000
000e
777LJ

6030

0246

763Li

02L!7

7766
7777

0250
0251
0252
0253
025Ll
0255
Qi 256

0257
0260
0261
0262

e;ee:0

1260
60 ill
5253

BOX"

Ci'\ 1" 0

VAL, 0
CNTF,
CON,
763Li

777~
6~}30

7766
7777
PFNT, 0
T.AD T\>.'O

TSF
JMP .-1

7300

TLS
CLP CLl

5651
0260

JMP I PFNT
T \t,!O -' e~ 2 t e·

776e
0015

MNS"

60L!6

ADDR

02L10

BOX

02~1

CNT

0242

PLUS,

7760
0015

tl'OFL

SSNC.-S
cr<TF
COi\

e-2L;,t
e2LJ5

MNS

0262

PLL~

e,2El

PRNT

e251

SENe

020e

T \,,0

lZi260
02L;3
0221

\;PL
XYZ

PDP-5 PROGRAM LIBRARY

NUMBER:

DEC - 5 - 41 - U

NAME:

Octal Dump on Teletype under Program Control

DATE:

April 1, 1964

AUTHOR:

R. Winslow, J.E. Richardson - DEC

SPECS:

Length 76

Registers

PAL Symbolic
NEEDED:

ASR-33

ABSTRACT:

Subroutine to type out the contents of an area in
memory as octal numbers.

I5l

I LI BRARY I

DEC - 5 - 41 - u
page 2

DESCRIPTION

This subroutine will convert a series of 2'8 complement
binary numbers to their octal equivalence and type them out on
the ASR-33.

In the calling sequenoe, the user speoifies the

area of memory to be typed out.
The first number on each line is the address in octal of
the following word.
address.

Four words are typed out following eaoh

A carriage return/line feed oombination is generated

both prior to and after the typeout.
Calling Sequence
•
•

•

jms odum

/subroutine called

/address of init1al word

/address of final word
fretum with AC and
/11nk clear.

I5l

I LI BRARY I

DEC - 5 - 41 - u
page 3
/PDP-5 OCTAL DUMP SUBROUTINE
x200

pnu.rn,

pnu2,

den,
ptem,
tdit,
peon,

ptem
tad peon
dca dcn
tad ptem
ral
ral
rtl
dca ptem
tad ptem
and pcon+1
tad peon+2
jms i tdit
tad ptem
isz den
jmp pnu2
cIa
jmp 1 pnurn

d~a.Qee

o
o
typn
7774

/7774

/initialize digit counter

/260

/typn (type a digit)

/digit counter
/constants

o dum ,

dum2,

260

jms erlf
tad i odum
dca lock
isz odurn
tad 1 odum
isz odurn
cma
tad lock
dea 11m
jmp .+3
isz Ipcn
jmp durn3
tad peon
dca lpcn
jms crlf
tad lock
jms pnum
tad peon
dca crlf
tad cons+2
jrns typn
isz crlf
jmp .-3

/get lower limit
/get upper limit

/initialize range counter
lend of line

/-4

/reset item counter
/carr,ret.and line feed
linter-com. to pnum

/-4
/240 (space)

PDP

LI BRARY

DEC - 5 - 41 - u
page

dum3,

cIa
tad i lock
jms pnum
tad cons+2
jms typn
isz lock
isz lim
jmp dum2
jms crlf
jmp i odum

typn,

crlf,

lock,
lim,
Ipcn,
cons,

linter-com. to pnum
/240 (space)
!index location pOinter
/ end of range
/return to main program

tsf
jmp .-1
tIs
cIa
jmp i typn
cIa cll
tad cons+1
jrns typn
tad cons
jms typn
jmp i crlf

/212 (line feed)

0
0

212
215

/constants

240

151

I LIBRARY I

PDP-5 PROGRAM LIBRARY

NUMBER:

DEC - 5 - 42 - U

NAIvlE:

Signed, Single Precision, Decimal Memory Dump
on Teletype under Program Control

DATE:

April 1, 1964

AUTHOR:

Larry Portner, J.E. Richardson - DEC'

SPECS:

Length 12610 Registers

NEEDED:

ASR-33

ABSTRACT:

Subroutine to type out the contents of an area in

PAL Symbolic

memory as signed, decimal numbers.

151
I

LIBRARY

DEC - 5 - 42 - u
page 2

DESCRIPTION
This subroutine will convert a series of 2 1 s complement
binary words to decimal and type them out on the ASR-33.

The

user specifies the area of memory to be typed out and the number of words per line.
The first number on each line is the address in octal of
the following word.

The maximum number of words per line which

can be specified is 118.

A carriage return/line feed combina-

tion is given both prior to and after the typeout.
Calling Sequence:
•

•

jms ddurn

IN= number of words per line
!in octal
!subroutine called

/address of initial word

/address of final word

tad N

/return. AC and link clear
•

Note:

If the AC contains zero when the subroutine is called,
the most recent specification of number of words per
line will be taken.
The subroutine itself is set up to type out 4 words
per line unless otherwise specified.

15
III
B RARY

DEC - 5 - 42 - U
Page 3

!single precision decimal memory dump on teletype.
junder program control
Icalling sequence:
!tad n
IIIN" = number of words per line
!jms ddum !subroutine called
lia
linitial address to be typed
If a
Ifinal address to be typed
><200

ddum,

sbnc,

xyz,

sna
jmp .+3
cia
dca parrn
jms lfcr
jmp ddmp

spa
cml
dca val
dca box
tad cntr
dca cnt
tad addr
dca xyz+2
tad plus
szl
tad rons
jms prnt
tad val
spa
crna iac
dca val
tad val
tad con
sma
isz box
sma
jmp xyz
cIa
tad box
jms prnt
dca box
1sz xyz+2
isz cnt
jrnp xyz+1
tad plus
jms prnt
tad plus
jms prnt
jmp i sbnc

151

i LIBRARY I

DEC - 5 - 42 - u
page 4

addr,

tad con

o
o

box,
ent,
val,
entr,
con,

6030

prnt,

two,
plus,

mns,

ddmp,

newl,

loop,

o
7774

7634
7766
7777
tad two
tsf
jrnp .-1
tIs
ola ell
jrn~ i prnt'
0200

7760
·0015

tad i ddurn
dea bgn
isz ddurn
tad i ddurn
isz. ddurn
dea end
. tad bgn
erna iae
ell
tad end
erna
dca end
ell
tad form
dca olup
tad parm
dea line
tad bgn
jrns oept
tad i bgn
jrns sbne
isz bgl}
isz end
jrnp .+3
jms Ifcr
jmp i ddurn
~sz line
·jmp loop
jrns Ifcr
cla
jmp newl

IPDPi
,5
ILIBRARY

DEC - 5 - 42 - u
page 5

msk4,
form,
line,
end,
bgn,
olup,
ocpt,

7000
7774
0
0
0

Ifcr,

cr,

If,

wait,
parm,
$

0
0

cll
dca wait
tad msk4
and wait
rtl
rtl
jms prnt
tad wait
rtl
ral
isz olup
jmp ocpt+1
cIa
tad plus
jms prnt
cIa
jmp i ocpt

tad cr
jms prnt
tad If
jms prnt
jrnp i Ifcr
7735
7732
0
0-4

FDF

LIBRARY