Digital PDFs

DIGITAL-8-25-U

December 1966

12 pages

Original

0.5MB

Document:	digital-8-25-u-d
Order Number:	DIGITAL-8-25-U
Revision:
Pages:	12
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/digital-8-25-u/digital-8-25-u-d.pdf

OCR Text

IDE NTIFICATIO N
1.]

Digital-8-25-U-Sym

1.2

Signed Decimal Prin‘f, Double Precision
January 19, I966

PDP-B
LIBRARY

Digital-8-25-U-Sym
Page I
2

ABSTRACT

This subroutine permits the typeout of the contents of two consecutive computer words as one
"
l ," the remaintwos complement number. If bit 0 of the high order word is a

signed, double-precision,
ing 23 bits represent a negative integer in twos complement form; if bit 0 equals "0," the remaining bits
represent a positive integer. If the number is negative, a minus sign is printed; if positive, space.
3

REQUIREMENTS

3 l
.

Storage
This subroutine requires 86 core locations.

3.2

Subprograms and/or Subroutine (None)

3.3

Equipment
Basic PDP-8 with ASR-33

USAGE

4.I

Loading
The symbolic tape provided is in PAL III or MACRO-8

language.

It may be assembled with

Neither origin setting nor "$" terminating
but a PAUSE pseudo-instruction is the last line on tape.

the user's program or separately with the proper origin setting.
character exists on the symbolic tape provided,

4.2

Calling Sequence
The subroutine is called by an effective JMS SDPRNT.

The location immediately following

the calling JMS contains the address of the high—order portion of the signed,

double-precision integer

which is stored in the usual double-precision format.
5

RESTRICTIONS (None)

DESCRIPTION

6 I

Discussion

This is a basic subroutine to obtain signed, decimal output corresponding to a double-precision
First, the binary number is sensed to determine

binary word storage in two consecutive locations in memory.
if it is positive or negative.

If positive, a space is printed.

If negative, a minus sign is printed, and the

number complemented to form the absolute value. Then the same algorithm is followed as in the unsigned
double-precision printout (Digital-8—24-U-Sym).
6.2

Examples and/or Applications (None)

6.3

Scaling
The numbers are interpreted and typed out as integers.

METHOD (See Digital-8-24-U)

Digital-8-25-U-Sym
Page 2
8.

FORMAT

8 .I

Input Data (Not Applicable)

8.2

Core Data
The double precision integers are stored in the usual signed,

Digital-8- l 3-F-Sym)

double-precision format, (see

8 .3

Output Data

minus sign.

Output is in the form of seven consecutive decimal digits preceded by either a space or a
Spacing, tabulation, carriage return, etc., are not provided in this subroutine. See Digital-

8-l9-U-Sym which contains subroutines For these purposes.

If the user wishes to print a "+" sign instead

of a space he may change the contents of location SDPLUS from "—l5" to "—2"

EXECUTION TIME

9.l

Minimum

9.2

Maximum

9.3

Average

This subroutine is output limited at IO cps by the ASR-33.
l0.

PROGRAM

l0.l

Core Map (None)

l0.2

Dimension List(s)

10.3

Macro, Parameter, and Variable Lists (None)

l0.4

Program Listing

(None)

/CHECK'@UT PROGRAM FOR

SIGNED:

DOUBLE-PRECISION

PRINTCPOSITIVE

*266

RETURN=JMS

TYCR

PRINT=JMS

SDPRNT

SPACE=JMS

TYSP

DEFINE

<CLA

DEFINE

<CLA

DBLADD

CLLB

DSHFT C

CLLi

DEFINE

<CLA3
INITL:

TAD

DMOVE
TAD

TAD A+13

A+13

3TAD

E+l3

DCA

RAL;

TAD

C3
E

DCA

TAD 8+1;

RALS-DCA

RAL5

DCA

RETURN

CLA

CLL

DCA

TEMP

TAD

F+I>

DCA

3TAD

DCA

'UMBERS)

wKs-n-sz-s-Ioufim
gefiqj
V00

I+dw31

(9-).av1
v30

IlNflOO

av;

(8-)

van

almnoo

manlaa
‘dOl

slmlad

awnma

EOVdS
aav1ea

Nooavn‘awnma

Ian00
dwr dOl
251

Nanlaa
GVL (3-)
v30 ILNDOO
231 BLNROO
de dOl

‘EATJ

(8-)

owl

aiwnoo
anowa ‘NOOHVA
v00

dwal

NOOHVA‘I+NODHVA

lJHSG

ldHSG N038VA‘I+NODEVA
dWZl‘NOOHVA

anvwaa

ldHSG

NODHVA‘I+NOOHVA
ewnma

anowa ‘NOOHVA
dOI

awr

‘dWEl

1800

‘awnwa 1ana @
‘NOOHVA 18nd I
@
‘IanOO
@
‘ZanOO
39va

asnva

lflO-MQEHO/

NVHBOHd

HOJ

GENSIS NOISIOEHd-BWQROG‘

lNIHd

BAILVQEN)

(SHEBWDN

@@8*

SWP=N80138

BOAL

SWP=1NIHd_

lNfidGS

SWP=33VdS

dSkl

ENIJBG

VWO>

BNIJBG

V13>

GGUWSG

5110

ldHSG

5170

ENIJEG

fUWO>
ENIJEG

BRSWEG

V30

£I+V

GVlf

{1+3

V30

51+8‘0Vl

SI+V

£168

0V1

0V1!

£125

281

V30

0V1

EAOHG
OWL

0V1

{TUE

VOG

.7680'

<G'VOG

630
9

fd
H

v13>

sfiws

avl

£110

av;

{1+9

v30

GVl

<I+d

svwo
st+9

van

:31

swva

av;

061

£I+H

v13

£110

GVl

£31

voa

£31

dON

Digital-8-25~UéSym
Page 4
Control Program (mod i fied*)
RETURN

INITL:

CLA CLL
DCA

TEMP

DCA

TEMP+I

TAD ('5)
DCA COUNTI
TAD

(-2)

DCA

COUNT2

RETURN

TOP:

PRINT;

DNUMB

SPACE
DBLSUB

DNUMB:

TEM

ARCON

ISZ

COUNT!

JMP

TOP

RETURN

FIVE:

TAD

(‘5)

DCA

COUNT}

ISZ

COUNTZ

JMP

TOP

TAD

(~2)

DCA

COUNTZ

DMOVE VARCON,
DSHFT

VARCON+1:VARCON

DSHFT

VARCON+1:VARCON
VARCON:TEMP

DBLADD

DSHFT

VARCON+1:VARCON

DMOVE

VARCON:

TOP

JMP

TEMP:

DUBL

DNUMB:

DUBL

VARCON:

DUBL

COUNTI:

COUNTZJ

TEM:

G
‘I

PAGE

PAUSE

/SIGNED'DECIMAL
ICALLING

PRINT:

SEQUENCE:

DOUBLE

JMS

PRECISION

SDPRNT

ISUBROUTINE

CALLED

HIADDR

/ADDRESS

HIGH

RETURN

/RETURN

WITH

SDPRNT:

ORDER
AND

WORD
CLEAR

CLA

CLL

TAD

DCA

SDGET

SDPRNT

TAD

SMA

CLA

SDGET

/PICK

ADDRESS

/PICK

HIGH-ORER

/IS

CODE

TAD

SDPLUS

IND:

SDMNS

/YES:

GENERATE

JMS

SDTYPE

/TYPE

OUT

TAD

/PICK

HIGH-ORDER

SDGET

/IS

GENERATE

*Modificotions mode on this Macro in check-out.

WORD

NEGATIVE?

TAD

SPA

HIGH-ORDER

CODE

POSITIVE?

FOR

SPACE

FOR

"MINUS"

WORD

AGAIN

WORD

Digital-8-25-U-Sym
Page 5

Signed Double Precision Print-out Positive Numbers

flfififlflfifl

flfiflflfifll

@QQfififiE

@ZfifiQBS

$933364

BQQQQMS

Qfiflflgflé

@ZQQQQ?

$989368

@3933Q9

wawuwlm

EQflQQEQ

QQQQQSQ

GEQQG4Q

@QQQGSQ

flflflfiflé®

$388976

®®@@@8@

@®@@@9@

Qflflfllflfl

flflfiglgfl

QEGQZflfl

QQQQS®Q

QQQQAQQ

@QQQSflQ

flgflfiéfifl

BfiQQ7QQ

®@@®8@@

9%9E9EE

@Efllfiflg

@QQIEQQ

@flflZflflQ

QQESQQQ

@304GGQ

QEQSQEQ

@flfléflflfl

M9073®$

@@@8@@@

@QZEQQB

@936fifig

9699393
@34QQQQ

QEIQQQQ

Zfilflflflfl

mmezomu

@fl70883

®®86399

@g99638

BIQEQQQ

fllflflgflfl

323%009

B3®flfl®®

@4EBGQQ

BSQQQQQ

Qéflflflflfl

@7QQGQQ

@8@®@®®

B9fl®®®fl

lgflfiflflfi

lflfiflflflg

2%figflflg

SQQGQQE

4flflgfigfi'

éfiéfiflflfl

7383339

89$®flfl®

~7777216

@QSEQEQ

SQQQEQE
“6777216

'6777

Double Precision Print-our Negative Numbers

330$®fl®

~®flflgafll

~®flfiflfl92

«guaoaos

-fl@@®®®6

4mwamog7‘-$flgwozs

eoooaoe9

-@awaa1@

-@33@92$

-@a@a@3@

-@g®@gsa

~aozooea

-aa@@®7o

~oaauoga-~awoa@9a

—@90@1@@

-@mu31@m

~oumw2®a

~awoasea

«gaao4og

~3omoseo

4®ummsoa

~owuw7oo

40oo38o@'~@®@@9@®

~@@@1@%@

—aaalgao

-wageaoo

-@®@3®@2

-aom4@aa

euoasoog

~mousuog

—mu@7@@@

~uwaaao®

1gou9aau

-@@1@@@@

-@@193@@

-mo2®azm

~393393a

-a@4a®@@

—gwsoao@

-ou6®aam

~oa7amoa

-Q®8@B@@

«ao9wuoa

-@1waoog

-®1@@@®@

-@2®@u®o

-33%@@g@

~34ooaga

~asoooma

-@6@®aum

-g7mawoa

~38®GQEG

-a9@a@®@

-1@®@@@9

¥1®@@®®@

~2o®®ouo

-39@@@@o

~4eagoga

-5@®@gom

~5wmamaw

~7auuawa

-893@@@@

7777216

6777216

73222784

355

~33®®®fi3~-3®®®@®4
-@oooo4a

wKs—n-gz-s-Ioufim
960d 9
003

1WD

‘ON/

030

HSIHGS

38018/

251

13005

001

13005

125
003

113

301

‘ONEVGS

0001

‘531/

030

00105

30015/

001

300105

11010.32110111N1/

030

10305

001

000005

030

01005

100005

XBGNI/

MDId/

251

01005

030

805H05

001

1 01005
01005
005105

001

005105

001

00105

030

103105

30111500

EZIWVIlINI/

251

113

35H

ELHOHBHS

HEMOd

0000

0000'03000~Mo1
0310003

803
JO

1338803
N31

EWBHOG/

NOISIOEHd

1001103000

318Vl

EElNIOd

EBVMNIW
an

10301“

aaaao-HBIH

1330003

001

030

‘OGGS

001103A0

H01H05

251

803

an 03000-001 0000
51/ MN11 £135
(531/ 0000 5.001 1030310003

251

01005

MN17

133

080M

HAIlISOd

x310/

010/

125

‘11

lNBWEWdWUO

”L"
JO

SHBMOd

N8fl138
NI

ESR'HOJ

3001005

NOILOVHLBHS

100
001

005005

001

HBIHGS
010/

00?

10005

‘00/

1N003

251

x0005

030

005

‘lfiOGS

‘EdAlGS

3000

001005

10003’1531/ 100 ~3N00 x3001 11010
1150030/ 301010030 aaaao-HBIH N01100d

001

103105

3001500/

030

00105

am?

0005

03/

001010030
000

x300

03000-001

13001005

N011000

01090

013
001

x0005

0310/

901110530

50F

301105

3011/

100

030

x0005

3211011101/

251

10305

EAVH/

dwr

000005

‘ON/

dWF

100005

0
001

11310

03011

301003130

11010
01

“0“

“L“

511010

1x30

11010

-3000

1531/

3011000005
1003011/ 3NI1000

NEHLBH

00105

511
151
awr

I-

013

113

301105
JO

‘dOOWGS

.L-...

anOO/

‘MGGVGS

WNOOGS‘

WVLINI/

‘OMlOS

E98

31500/

‘SUWdGS

SI-

.3130Vd5u/

‘SNWGS

uSfiNINu/

‘lNOGS

‘HSIHOS
‘MOWGS
‘GHSHUS

ISE’S

NEABS

SSEHGGV
3003
0.1.

001

SlISIG
J0

SHBMOd

N31

511010

del

3000015/ 5N0110301

33V?d3¥‘..+..

“8““

Digital-8—25-U-Sym
Page 7
SDLSUB:
SDBDX’

SDTEML:
-SDGET:

SDPTR:
SDCQNL)

7413

/TABLE

67ZB

/”l:@@@:@®$

7747

/‘l@@:@@@

4540
7775

/‘I@:®Zg

436%
7777

/'1:@$Q

6Z3®
7777

/‘135

7634
7777

/’IE

7766
7777

7777

PAUSE

/'1

POWERS

TEN

Dig i to l-8-25-U-Sym
Page 8
I I

II .1

DIAGRAMS
Flow Chart

ENTRY

PICK UP ADDRESS OF
HIGH
ORDER WORD
-

PICK UP DOUBLE
PRECISION NUMBER FOR
USE IN SUBROUTINE

INITIALIZE COUNTERS
AND POINTERS

PICK UP CURRENT

POWER OF TEN

r
INDEX TO PICK UP
NEXT POWER OF TEN.
PUT DIGIT COUNT
TO ZERO

PERFORM DOUBLE
PRECISION SUBTRACT
FROM NUMBER

INDEX DIGIT

DID IT

YES

UNDERFLOW

STORE REMAINING
PORTION OF DOUBLE

PRECISION NUMBER

PICK UP

GENERATED

DIGIT

TYPE IT OUT

HAVE

7 DIGITS BEEN

TYPED OUT

?
YES

SUBROUTINE
FINISHED

)

Digital- 8—25-U-Sym
Page 9
12.

REFERENCES

12.]

Other Library Programs

Digital-8-13-F-Sym
Digital-8- I 9-U-Sym
Digital-8—24-U-Sym