Digital PDFs

MAINDEC-08-D2B

December 2000

22 pages

Original

0.5MB

Document:	maindec-08-d2ba-d
Order Number:	MAINDEC-08-D2B
Revision:
Pages:	22
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-d2b/maindec-08-d2ba-d.pdf

OCR Text

MAINDEC-08-D2BA-D

IDENTIFICATION

Product code:

MAINDEC-08-D2BA-D

Product Name:

Exerciser for the PDP-8

Teletype Paper Tape Reader

Date created:

February 15,1967

Maintainer:

Diagnostics Group

Author:

R. Green

Previous code:

MAINDEC 810-A

MAINDEC-08-D2BA-D

ABSTRACT

iiil

This is an exerciser program for the PDP-8 Teletype Paper Tape Reader.

in a random stop-start fashion and errors reported on the Teletype printer.
REQUIREMENTS

Equipment

Standard PDP-8
2.2

Storage
Locations I -2675

2.3

Preliminary Programs

None
LOADING PROCEDURE

The Binary Loader is used.
STARTING PROCEDURE

Control Switch Settings

4.1.1

4.1.2

Test Tape Generator (Part I) SR0

Punch alternate ls and os

SRI

Punch binary count

SR2

Punch all same characterasspecified by sR4-SRll

Tape Read Test (Part 2) SRO

SR]
SR2

SR6

SR7

(1)

(0)

Prin+ on error

(I)

Ignoreerrors

(1)

Print on error

(0)

Print all errors at end of block

(I)

Select block size

(0)

Random block size

(1)

(0)

4.2

`-.i

Stoponerror

SelectsTall

Random stall

SR8

(1)

Resynctapeatendofeach block

SR9

(I)

Read alternate lsand os

SR10

(1)

Read binarycounttape

SRl1

(1)

Reada tapeofall thesamecharacter

Starting Addresses

0200

Test tape generator (part 1)

1625

Read binary counttape oralternate lsand os tape (part2)

2000

Read tape of all the same character (par+ 2)

Test tapes are read

MAINDEC-08-D2BA-D

Program and/or Operator Action

Test Tape Generator (Part 1) a.

Set SR (SWITCH REGISTER) to 0200 and press LOAD ADDRESS.

Set SR for operating mode and press START.

Tape is punched until program is stopped.

To make a closed loop from a tes+ tape,

the punched pattern must be maintained at the splice.

4.3.2

Tape Read Test (Part 2) -

Load test tape tnt.o Teletype reader.

For tape patterns of all the same character ent.er the desired character into memory

location 0034.

Set SR to 2000 and press LOAD ADDRESS.

then press START.

Testing begins.

Set SR to desired configuration,

For other tape patterns omit this paragraph and go to

Set SR t.o 1625.

Press LOAD ADDRESS.

Set SR to desired configuration.

If SR6 is

a 1 (select block size), enter the desired block size into location 0056 before pressing START.

The program reads this block of characters at full speed, then stalls.

If SR7 is a I (select

stall), en+er +he desii.ed s+all into location 2154 before passing START.

between blocks.

This will be the stall

To calculate the stall length convert the stall number I.o decimal and mul-

`-`

tiply by 0.1 msec .

In either case, if no entry is made, the last block size or stall generated by the random
number generator is used.
Push START.

The program reads the test tape until it finds an all-zero character, then it prints an

IN SYNC message and halts.
Press START to resync.
e.
5.

Press CONTINUE to go on.

Testing begins when CONTINUE is pushed.

OPERATING PROCEDURE

See paragraph 4.
5.1

Error Printouts
BLK

LNG XXX

BLK

LNG XXX

LST

STL XXXX

GD XXX

BD XXX

POS XXX

BLOCK LENGTH where XXX is the octal number of

characters in the block being read when the error

occurred .

EE
2

MAINDEC-08-D2BA-D

LST STL XXXX

LAST STALL where XXXX is the octal number, in increment's of 0.1 msec, which specifies tihe stall before

this block was started.

GD XXX

GOOD where XXX is the correct character.

BAD where XXX is the character read .

XXX

POS XXX

POSITION where XXX is +he posi+ion of +he erroneous
character in this block.

RESTRICTIONS (None)

MISCELLANEOUS

Execution Time
Program runs until halted manually.
9.

PROGRAM DESCRIPTION

For test tapes containing a punched pattern (binary count or alternate ls and Os) the program
reads the tape until it detects the first all Os character.

The IN SYNC message is then printed.

For

tapes of all the same character, this step is omitted.

When testing begins, a random number from 0-7 is selected for the number of characters to
be read.

This is referred I.o as the "`block length ."

Another random number from 0-7777 is selected for

thestall to be performedafterthe blockhasbeen read/in.
held constant under switch control.

Both the blocksizeand thestall can be

See paragraph 4.3.2.

During the s+all an ou+put character is sent to the Teletype as an added exercise.

output characters form a binary count pattern when punched.
When running in the random mode, the tape is read in a random stop-start fashion.

u
3

Successive

MAINDEC-08-D2BA-LA

Page 4
10.
IS A E Fi H L T

LISTINGS
P) 0 0 3

ACNRAN

0854

AMSGI

tl S K 5
.YIl

APC®T

1712

tl 1 2 8

A P T E: N D

•Y' 2 5

APTNOW

•yl 5 ')

A§COP

M377

ASTSNC

2155

L3 A a K

®4@1

BAD2

®133

BFPNCH

0213

BGNI

17776
ONE

PALT10

BLKLNG

PBNCNT

BLSTOR

Pc¢T

CEK

POSIT

CHACNT

PRINT2

C K F{ E S C

P FH N T 3

C K T E: N

PRINT4

CNTEN

PRINT6

CONI

PBTEND

a 0 N 1 fl

PRTNOW

CON2

PSWRFG

CONS

PUNCH

CON5

©@

CON6

©©4

CON7

214

CONS

RANUM

BEAD

ROTAT3

ROTAT6

CON9

ScOPF

a F„ A I T

SETONS

0CRSTR

SETUP2

JLY13

STAL
END

STALLI

ERHLT

STAL7©

FOUR

STLSTR

GENRAN

STORLM

GOOD?

STORI

HSKP

STORP

IISZ

STOR3

INF2

STOR4

INF3

STOR5

INF4

STRSNC

INSYNC

SU2

IRI

SVN4HN

IP2
ISSZ
ISZZ

T H R E E.

T H R E: 7 7

TH77

LASTAL
LNGL I M

MSG1

NSKI

TSTZR0
TW6

TYPE
wl o Fi K

MSK2
wl 0 R K 1

MSK3
WORK2

MSK4
in

MAINDEC-08-D2BA-LA
Page 5
/TTY

EPRATIC

BEAD

TEST

(POP-8)

#1
4©01

HLT

d002

JMP

v' 0 W 3

/INTERRUPT
I

ILLEGALLY

ERHLT

d®©4

SCOPE

'4 a a 5

I N F- 5

•4 a a 6

I N F` 4

d@@7

/CONSTANTS,

VARIABLES,

ETC;.

#11
I Fi 1 ,

IR2,

#2fl
M377,

MJ 7 7 6 ,
WORK,

STAL,
P Fi I N T 2 ,
AMSG1,

MSK1,
MSK2,
MSK3 ,

MSK4,

MSK5,

STOR1,

/STORAGE

BAD

CHARACTER

STOR2,

/STORAGE

F-OR

GOOD

CHARACTEF{

STOR3,

/STORAGE

F-OB

BLOCK

STOR4,

/STORAGE

F.OF}

STALL

STOR5,

/STORAGE

FOR

POSI'TI0N

SU2,
SVN4HN,

CON1,
CON2,

CONS ,
CON5,
CON6,
WORK1,
W 0 F? K 2 ,

CHACNT ,

APTEND,

PRTEND

APTNOW,

PRTNOW

ACNRAN,

STORLM,

BLSTOR,
CNTEN'

CENPAN

a
@

F.0.R

LENGTH

BAD

CHAR.

MAINDEC-08-D2BA-LA
Page 6
d®6©

0.©8©

INF2,

b@61
i4062
i4963

q215
7j212
P377

215
212
377
377
392

to®64

m377

d065

q3@2

/8
/L

¢066

v) 0 6 7
'¢E7B

P'24®

¢©71

01314

14072

0316

¢®73
•4@74

@3@7
fl24@

®©75

0133@

BLKLNG,

d©76

a)338

33©

id©77

gri330

35@

•.41@©

P24@

24®

01®1
¢1ffl2

P24©
fl314

24@

i41®3

P]323

wJlfl4

fl324

wlira5

fl24©

A1®6

fl323

v)107

0524

dll8

a;314

dill

%24@

/SPACE

24®

314
316

/N
/G

5©7
24©

/SPACE

33fl

/X
/X
/SPACE
/SPACE

314
323
324
'24%

323
324
314
240

/S
/T
/SPACE

/T
/L
/SPACE

I,4112

pr330

STALL1,

4113

fl33©

33@

`wlll4

fl33©

14115

fl33©

33®

/X
/X
/X

dll6
„117

n24®
0240

24©

/SPACE

24®

/ S P A C; E

v'12©

P3@7

5©7

¢121
¢122
0123
t4124
'4125

fl3®4
P24©
fl55©
P35g
fl55©

5©4

G0002 ,

330

/X
/X

®126

024©

24®

/SPACE

dl27

P24©

249

/ S P A C; E

:413@

Fi3@2

382

I.4131
!4152

fl384
fl24©

3©4

24@

/SPACE

53©

@33B

a)338

'4135

fl33@

ul56
wll37

P124®
fi248

240

rdi4©

p,32©

32©

ai4i

fi3i7

4142

@323

317
323

8 A I) 2 ,

53fl

33©

dl34

33m

330
330

/X
/X

24®

/SPACE
/SPACE

/P
/0
/S

vil43

0240

24©

•4144
•4145

fl33®
055©

POSIT,

¢146

fl35©

53®

/X
/X

W147

Pi375

375

/END

33®

/SPACE

24©

•413.3

33@

/SPACE

33©

MAINDEC-08-D2BA-LA

Page 7
iilllii!

/TAPE

LOOP

GENERATOR

tt 2 0 0
BGN1,

LAS

/TEST

RAL

/F.OR

TAPE

SWITCH

RE:GISTER

PATTEBN

SZL

JMP

PALT10

/PUNCH

PBNCNT

/PUNCH

JMP

PSWREG

/PUNCH

JMP

BGN1

ALTERNATE

1'S,0'S

FiAL

SZL
JMP

BANAF}Y

COUNT

Fi A L -

SZL

/TAPE

PUNCH

id213

000fl

BFPNCH,

®214
`J]215

72®©
1213

CLA
TAD

BF.PNCH

ra2i6
@217

322©
5223

DCA

PUNCH

JMP

.+4

%22®

@©©©

PUNCH'

%221

6941

TSF

8222

5221

JMP

'd223

6®46

TLS

rd224

562©

JMP

ROUTINE

.-1
I

PuNCH

/ALTEF{NATE

0NES

PALT1@,

AND

JMS

ZEF}OS

BFPNCH

CLA
CMA

JMS

PUNCH

CLA

JMS

PUNCH

JMP

PALT1©+1

/BINAF}Y

C;OUNT

PBNCNT,

JMS

BF.PNCH

CLA
IAC

JMS

PUNCH

JMP

PBNCNT+2

/PUNCH

SPE:CIFIC

@241

4213

PSWF}E:G,

9242

72@@

CLA

@243

76©4

LAS

®244

4228

JMS

PUNCH

¢245

5242

JMP

.-3

CHAF`ACTEF}

JMS

BFPNCH

SPECIFIC

CHARACTEB

MAINDEC-08-D2BA-LA
Page 8
/TY

PBINT

ROUTINE

# 4 @'@

®4©©

MSG1,

d4@1

BACK,

a
JMS

ld 4 a 2

TAD

•4 4 © 3

TLS

:a 4 © 4

TAD

END

3485

SEA

CLA

wl 4 a 6

SKP

JMP

0410
d411
d412
4413

TSF

CRWAIT,

•2) 4 1 4

DCA

W0BKI

d415
0416

TAB

M7776

CRWAIT

JMP
JMP

STAL7©

IRI

.-1

BACK+1
TAD

DCA

WORK

ISZ

W0BK

JMP

.-1

ISZ

WORKI

/STALL

M25

FOR

/CARRIAGE

JMP

CRWAIT+2

JMP

BETURN

MSG1

M25,
ENDi

-25
-375

u`.
/7fl

M.S.

STALL

STAL7%'

CLA
TAD

DCA

WORK

TAB

M7776

DCA

WOPKI

ISZ

WOF}KI

JMP

.-1

ISZ

WORK

JMP

§TAL7©+4

JMP

STAL7©

M4,

-4

SCOPE,

LAS

/CHECK

F.OB

SCOPE

MODE

RTL
SZL
ISZ

SCOPE

JMP

/YES,

SCOPE

ERHLT,

SCOPE

MODE.

]CR

RETURN

/RETURN

/CHECK

LAS
SMA

CLA

ISZ

E:RHLT

JMP

EfiHLT

F.OR

HALT

/N0

HALT

EPB0Fi

ERR0B.

|CR

RETUF{N

/RETURN

I.-

MAINDEC-08-D2BA-LA
Page 9
¢455

fl@08

SE:TUP2,

b456

73©©

CLA

'd457

1©56

TAD

BLSTOR

©©31

AND

MSK4

d461

4362

JMS

ROTAT6

0
CLL

/BLOCK

LENGTH

/STALL

TW6

STALLI
LASTAL
MSK4

ROTAT6

STALL1+1
LASTAL
MSK2

ROTAT3

STALL1+2
LASTAL

MSKI
TW6

STALLlt3
S T 0 Fi 5
MSK4

Fi 0 T A T 6

/CHARACTEF{

POSITION

MAINDEC-08-D2BA-LA
Page 10

¢524
9525

POSIT+1
STOR5

to 5 2 6

MSKI

'4 5 2 7

TW6

0530

POSIT+2

t4 5 3 1

STOR2

'JO 5 3 2

MSK5

U533

Fi 0 T A T 6

'd 5 3 4

/GOOD

3123

DCA

G00D2

4555
¢536

1®34

TAB

STOF}2

0@27

AND

MSK2

vi 5 3 7

4371

JMS

ROTAT3

0540
d541

3124

DCA

C00D2+1

]©34

TAD

STOR2

ra 5 4 2

fl826

AND

MSK1

0543
¢544

]377

TAD

TW6

3125

DCA

C00D2+2

rd 5 4 5

1@33

TAD

STOR1

id 5 4 6
®547
•4 5 5 0

0®3®

AND

MSK5

4362

JMS

ROTAT6

3133
]q33

DCA
TAD

BAD2
STOR1

d551
4552
t' 5 5 3

@©27

AND

MSK2

4371

JMS

ROTAT3

v0 5 5 4

3134

DCA

BAD2+1

id 5 5 5

1©33

TAD

STORl

d556
0557

fl©26

AND

MSK1

1377

TAD

TW6

ro 5 6 0

3135

DCA

BAD2+2

0561

5655

JMP

rd 5 6 2

flo@O

POTAT6'

dy 5 6 3

7©12

F{TF{

d564

7012

RTR

7012

F2TF3

1377

TAD

7100

CLL

`4 5 6 5

#566
0567
4570
¢571

5762

JMP

ROTAT3,

•a 5 7 2

7@12

RTFi

CHARACTEB

SE:TUP2
a

TW6

ROTAT6
©

®573

7@1@

RAR

¢574

1377

TAD

TW6

wl 5 7 5
y21 5 7 6

7108
5771

CLL
JMP

VJ57 7

026®

TW6.

/BAD

CHARACTEF3

ROTAT5
26©

``-``

MAINDEC-08-D2BA-LA
Page I 1
/RANDOM

NUMBER

GENERATOR

il 1 6 a @
GENRAN,

CLA

TAB

RANUM

F{AL
SzL

all

TAD
DCA

TAD
AND

SZA

JMP

.+4

TAD

FOUR

TAB

BANUM

JMP

CENRAN

CLA
TAD

RANUM

JMP

GENRAN

f3ANUM,

THREE,

2371

TSTZRO,

FOUR'

MAINDEC-08-D2BA-LA
Page 12
/TAPE

LOOP

1625
1626
1627

1311
3911
4425

DCA

163©

1021

STF}SNC,

TAD

SYNC

ROUTINE

PBINT6
IRI

JMS

AMSGI
TAB

DCA

M7776

DLY13

/CHECK

KRB

FOR

SYNC

CHABACTEBS

KSF

JMP

.-1

CLA

KRS
/TEST

SNA

JMP

INSYNC

|SZ

DLY13

JMP

STBSNG+2

CHARACTER

/15

F}EAD

SECOND

TIMER

CLA

TAD

PRINTS

DGA

IRI

JMS

JMP

STRSNC
CLA
I

/SYNC

C'HARACTER

TAD

PBINT4

IRI

DETECTED

APCBT

DCA

JMS

OUT

AMSGI

INSYNC,
DCA

/TIME

AMSCI

1655
1656

76®4
70®6

LAS

1657

7©2j6

RTL

SZL

1661

38
5266

JMP

.+5

1662

182@

TAD

M377

1663

7402

HLT

/CHECK

SW3

RTL

`\J'
/START

/C;ONTINUE

RESYNC
T0

/IF

SELECTING

/OF{

STALL,

/IF

READING

/CHAR.

PUT

BLOCK

LOAD

ALL

LENGTH

PARAMETERS

SAME

STOFi2

SNA

JMP

STRSNC

LAS

/SET

IST

CHAR.

COMPARE:

BAR

S£L
JMP

SETONS+4

F(TR

SZL
JMP

SETONS

CLA
TAD

ONE

DCA

STOR2

JMP

SETONS+4

SETONS,

AND

CLA

CMA

TH77

DCA

STOR2

JMP

.+1

2©©0
DLY13,

1
377
POSIT+2
PC@T

MAINDEC-08-D2BA-LA
Page 13

FEN

BLOCK

HOUSEKEEPING

/SET

/ST0BAGE

ERRORED

CHAR

LIMIT

+4
I

AGNRAN

LNGLIM

/GE:T

RANDOM

BLOCK

/MAX

LENGTH

177

/GET

RANDOM

/MAX

STALL

LENGTH

BLSTOR
BLSTOR

STOR3

+3
I

AGNBAN

STALL

STLSTR
STLSTR

/CLEAR

ERROF}

SEC
STORAGE:

MAINDEC-08-D2BA-LA
Page 14
/F{EAD-COMPAFiE:
BEAD,

LOOP

KF{B

KSF

JMP
ISZ

.-1
CHACNT

GLA

KRS
DCA

STOF(1

TAB

STORI

/READ

/SKIP

IF.

CHARACTER

CIA

TAD

ST0B2

S£A
JMS

LAS

/GOOD

BAR

/SET

SZL

/GOOD

JMP

COMPARE

/BAD

APTNOW

CHABACTEF}

ISSZ

/ALL

SAME

IISZ

/BINAF{Y

S=L
JMP

COUNT

CLA

TAD

STOR2

CMA

AND

THRE77

DCA

STOR2

ISSZ

|SZ

STOR2

/INCBEMENT

COUNT

STOR2
AND

THRE77

DCA

STOR2

ISSZ,
JMP

/MASK

IS£

BITS
/CHECK

/NOT

FOR

END

BLOCK

END

/CHECK

FOR

STORED

ERROB

Ef]RORS

CON6

DCA

182

TAD

If32

APTEND

SPA
JMS

STOR3

READ

CLA

TAD

OUT

/SKIP

/PRINT

ERR0BS.

END

BLOCK

CLA

TAD

STLSTR

DCA

LASTAL

ISZZ,
SKP
JMP

ISZ

STOR4

/STALL
/OF-1®©

INCREMENTS

US.

CKF{E:SC

CLA

MAINDEC-08-D2BA-LA
Page 15
TAD

CON7

DCA

WORK

ISZ

WOPK

JMP

.-1

JMP

ISZZ

CKRESC,
ND

/1®®US

/CHEC,K

LAS

C;ON1@

/START

HSKP
/CONSTANTS

AND

CON7,
CONS,

-3B
221

4©

CON1®,

1©

LNGLIM,

THRE77.
M12®,
M1'

377
-12®
-1

M3©,

-3®
%

ASTSNC,

PcflT'

VARIABLES

CON,,

STLSTR,

STALL

STRSNC

NEW

BLOCK

FOFi

RESYNC

MAINDEC-08-D2BA-LA
Page 16
-COMPABE

LOOP

SUBROUTINES

PRTNOW

/E:RROR

/OR

REPOFiTING

NOW

LATEB

TYPE-5

/PFilNT

/STOBE

ERRORS.

NOW

,PRINT

LATER

STORLM

/LIMIT

DCRSTR
/PUT

MSK5

EF!f}

CHAR

BEACHED
STOF}ACE

IIR2

STORI
I

IFi2

STOR2
I

IF(2

CHACNT
I

IF\2

JMS

HLT
JMP

AEftHLT

/READ
I

/SKIP

FOB

HALT

EBB0B

EBROR

PFiTNOW

LAS

RTL
RTL

SZL
JMS

CKTEN

TYPEi

CLA

TAB

CHACNT

DCA

STOR5

TAD

PFuNT2

DCA

/PBINT

BAD

AND

GOOD

IPI

JMS

SU2

JMS

AMSGI

JMP

CEK

DCRSTR,

CLA

CMA

DCA
JMP

ST0BLM
I

PFiTNOW

``u

MAINDEC-08-D2BA-LA
Page ]7
/PRINT

ERRORS

PRTEND,

END

BLOCK

CLA

TAD

STOF32

DCA

AEBHLT-3

TAD

DCA

STORI

IR2

TAD

DCA

STOR2

182

TAB

DCA

STOR5

IR2

TAD

PRINT2

DCA

IRI

JMS

SU2

JMS

AMSGI

TAD

IR2

SPA

CLA

JMP

PRTEND+4

CLA

TAD

AERHLT-5

DCA

STOR2

JMP

PRTEND

CKTEN,

ISZ

CNTEN

JMP

JMP
I
STRSNC

`u`

CKTEN

.+1

/PUT

BAD

CHAF}

/PUT

GOOD

/PUT

POSITION

CHAIR

STOR1

ST082

STOR5

MAINDEC-08-D2BA-LA
Page 18
/TTY

PR|NTOUTS

#2600
NF3,

215
212
377
377
SOS

3©1

/A
/N
/N

316
316
317
324

/0
/T

24@

/SPACE

323
331

316

/Y
/N

5©3

375

/END

INF4,

215
212
377
377
311
316
249
323
331
316
393
256

/I
/N
/SPACE

/S
/Y
/N

/a
/.

24®

/SPACE

323
324
301

322

524

24®

/SPACE

324
317
240
322

3©5

/T
/A

/0
/SPACE

323
331
316

/Y
/N

SOS

24©

/SPACE

303
317
516
324
256

24®

/SPACE

/©
/N

MAINDEC-08-D2BA-LA
Page 19

/0
/SPACE

/0
/N
/END

`.L`