Digital PDFs

DIGITAL-8-16-S

December 1965

18 pages

Original

1.0MB

Document:	digital-8-16-s-d
Order Number:	DIGITAL-8-16-S
Revision:
Pages:	18
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/digital-8-16-s/digital-8-16-s-d.pdf

OCR Text

IDENTIFICATION
I .I

Digital-84 6-3

Master Tape Duplicator/Verifier

July 20, I965

PDP-B
LIBRARY

Digital -8-l 6-3
Page 2
2.

ABSTRACT

This program will duplicate and verify 8-channel paper tapes using the PDP—8
with high-speed reader and high-speed punch.

The program uses the program interrupt and

allows both the reader and the punch to operate at maximum speed.
The program accumulates two types of checksums while reading and while punch-

ing:

1) the number of nonzero characters on the tape, and 2) the sum of characters on the tape

(both are taken modulo 4096).
When duplicating, the program compares the checksums at the end of the tape
with the checksums accumulated by the read routine.
curred and a message is typed.

If these differ,

reader error has oc-

Tapes are verified by reading them and comparing accumulated

checksums with those at the end of the tape. Only master tapes produced by the program may
be duplicated. The master tape has the two checksums punched at the end.
3.

REQUIREMENTS

3 .l

Storage
The program uses all of memory, except for the last page,

3.3

as a

buffer.

Equipment
PDP-8 with high-speed reader and high—speed punch.

USAGE

4.]

Loading
The program is loaded with the

4.3

Switch Settings

4.3.1

Produce a Master Tape

Binary Loader (see Digital 8—2-U).

A tape is read and duplicated by the punch. When the tape has run out of the
The tape that has been punched is the
the
checksums are punched
accumulated
reader,
It should be compared against the original to ensure that
master tape used for duplication.
.

the tape was read correctly.

4.3.2

Duplicate the Master Tape

The master tape that has been produced (see 4.3.1) is reproduced by the punch.
Checksums are accumulated by the read routine and are compared with the checksums at the

Checksums are punched and are used for verification (see 4.3.3). If the
master tape is short enough to fit into the buffer, the program will notify the operator that
Blank tape is punched between
more copies may be remade without rereading the master.

end of the tape.

copies.

Digital -8-fI 6-5
Page 3
4.3.3

Verify Duplication

Tapes are read and the
accumulated checksums are compared against the checksums punched at the end.
Similar to duplication, but no punching takes place.

4.3.4

General Procedure

4.3.4.I

Set C(SR)

4.3.4.2

Press LOAD ADDRESS; press START; the program will haIt.

4.3.4.3

Set C(SR) for the mode of operation as follows:

0200

Bit 0

Make master tape

Bit I

Bit 2

Duplicate master tape
Verify duplication

Place tape in reader starting on blank tape (all modes of operation must be started
with blank leader tape in the reader).
4.3.4.4

Turn punch on.

4.3.4.5

Turn reader on.

4.3.4.6

Press CONTINUE.

The program will type a message when the operation has been completed and
4.3.4.7
then it will halt.

4.3.4.8

Proceed from step 4.3.4.3 unless multiple copies are bing duplicated.

RESTRICTIONS (Not Applicable)

DESCRIPTION

6.I

Discussion

at full

This program uses the program interrupt to keep the reader and the punch running
speed. The reader fills a buffer and the punch punches from it. Checksums are accu-

mulated by both the reader and the punch routines.
7.

METHODS (Not Applicable)

FORMAT (Not Applicable)

EXECUTION TIME

9.3

Average
Execution time is a function of reader time and punch time and hence depends

upon the

length of the tape.

Digital-8-16-S
Page 4
10.

PROGRAM

10.4

Program Listing

FOR

/TAPE DUPLICATOR

PDP-5/8

~DEC-1/15/65
READ AND PUNCH UTILIZING
/SINGLE SUFFERING
/PROGRAM INTERRUPT
/COMPUTE A CHARACTER COUNT AND CHECKSUM
/FOR EACH TAPE
COMPARE WITH CHECKS AT
/END OF TAPE
/CHECKS ARE ALSO COMPUTED DURING PUNCHING
/AND COMPARED
/THREE MODES OF OPERATION:
MAKE MASTER TAPE
/A. SWITCH 6 ON
/B. SWITCH 1 ON
DUPLICATE MASTER TAPE
/C. SWITCH 2 ON
VERIFY DUPLICATION
/DURING DUPLICATION, THE PROGRAM WILL NOTIFY
/THE OPERATOR WHETHER OR NOT MORE COPIES
/CAN BE MADE WITHOUT RE-READING THE
/MASTER
/DEEINITIONS OF INTERRUPT LOCATIONS:
/EOR THE PDP'S; INTERIM
/FOR THE PDP-S; INTERzl
/PAGE 1
INTERIQ
/

*INTER+1
JMP HNDL
DPRT
TESI
TESZ

/HANDLE

/AUTO-INDEX REGISTER
/AUTO-INDEX REGISTER

6091

5D2fi

@002
ODDS
GBDA

@632
D6DD

@316
@917

GOOD

0823
3921
3322

6011
7416
5431

@025

6921
741%
5454

RSF
SKP
JMP
PSF
SKP
JMP

4567
6091
5400

DSMS,

JMS
ION
JMP

GOOD

READ,

D615

NPNT,
E1,
£2,

INTERRUPT

*16

8624

DD25
@326
DD27
@933
@631
@932
@933
D354

DOUG

6D14

5627
GOOD

NDXR,
NDXP,
HNDL,

READ

/750

PNC

/75A

CRLE

INTER

REC
JMP DSMS

CAUSED

INTERRUPT

PUNCH CAUSED INTERRUPT
/EXTRANEOUS-CLEAR FLAGS
/ENABLE INTERRUPT
/RETURN
/CALLED AS A
/SUBROUTINE TO PROVIDE
/RETURN ADDRESS
/CALLED AS SUBROUTINE

Digital-84 6-5
Page 5
9935

9936
9937

6926
7299
5927

9949
9941
9942
9943
9944
9945

1417
7519
5579

9946
9947
9959
9951
9952
9953
9954
9955
9956
9957

2145
7999
1147

3143
1143
7449

3147

9196
9197

1143
4934
5949
6912
3142
5195
1142
7449
2144
7999
1146
3146
1169
3157
7419
5155
1142
3416
2163
7419
5571
4931
2164
5955
7249
3175
5949
1142
1161
7649

@119

5069

@111
@112
$113

1153
5957
5869

9969

9961
9962
9963
.9964
9965
9966
9967
9979
9971
9972

9973
9974
9975
9976

9977
9199
9191
9192
9193
9194
9195

PNCH,

@114

1142

@115

1162

RDl,

RSTl,

RSTZ,

FRST,

SCND,

PLS
CLA
JMP DSMS

/PROVIDES RETURN

TAD I NDXP
SPA
JMP I PDUN
DCA HLD2
TAD HLDZ
SZA
ISZ ZROP
NOP
TAD CHKP
DCA CHKP
TAD HLDZ
JMS PNC
JMP PNCH
RRB
DCA HLDl
JMP FRST
TAD HLDl
SZA
ISZ ZROR
NOP
TAD CHKR
DCA CHKR
TAD TIME
DCA TIMR
SKP
JMP VY
TAD HLDl
DCA I NDXR
ISZ RCNT
SKP
JMP I FUL
JMS READ
ISZ STRT
JMP RDl
CLA CMA
DCA SCON
JMP PNCH
TAD HLDl
TAD TSTl
SZA CLA

/GET

NEXT CHARACTER
/IF IT IS 7777,1T
/IS END OF TEXT

JMP RST1+1
TAD TRYZ
DCA RSTl
JMP RST1+1
TAD HLDl
TAD TST2

/IF IT IS-SET SWITCH
/TO TEST FOR SECOND
/CHARACTER NEXT

/COUNT NON-ZERO
/MODULO 4096
/ACCUMULATE SUM

CHARACTERS
MODULO 4696

/GO GET NEXT
/READ 756 BUFFER
/SAVE IT
/OR ”SCND" OR ”THRD”

/COUNT

MODULO 4996

/ACCUMULATE SUM
/RESET END‘OF-TAPE TIMER

/GET CHARACTER
/PUT IN BUFFER
/IS BUFFER FULL?
/NO
/YES
/FETCH NEXT CHARACTER
/DELAY START OF PUNCHING

/START PUNCHING
/TEST TO SEE IF
/CHARACTER IS FIRST
/IN CHECK-SUM IDENTIFIER

/CHECK FOR SECOND CHARACTER
IF FOUND

/IN IDENTIFIER

DigifaI-B-I 6-5
Page 6
@116
@117
812%
@121

7640

0122
@123
6124

596%

0125
@126
@127

1142
1161
764%

@136
@151
D152
@153
0154
@135

5123
7249
5416

@156
6157
D14@
@141

515%
554%
@393
@565

@142

6900
099%

@145
@144
$145
3146

@147
615%
0151
@152
2153
@154
U155
@156
@157
8166
@161
$162
@163
9164
B165
9166
0167
@170
@171
@172

@175
@174
U175
@176
@177

SZA
JMP
TAD
DCA

5125
1154
5657
1152
5121

THRD,

0090
EDGE
0990
GOOD
OGOB

51$5
5114

5125
4331
5055
OBOE
9009
7526
7653
@960
@699
760%

741%
@545
@603
0529
@077
@699
U906
DUDE

B377
0602

DCA
JMS

GETI,
HLD1,
HLD2,
ZROR,
ZROP,
CHKR,
CHKP,
MZRO,
MCHK,
TRY1,
TRY2,
TRYS,
VY,
TIMR,
TIME,
TSTl,
TST2,
RCNT,
STRT,
NOPT,
SKIP,
CRLF,
PDUN,
FUL,
BIT6,
DCON,
VCNT,
SCON,
C377,
TWO,

/TEST FOR THIRD NEXT
/IF NOT, RESET FOR FIRST

JMP RST1+1
TAD TRYI
JMP 0-3
TAD HLDI
TAD TSTl

SZA
JMP
CLA
DCA
JMS

4541
5151
4541

@699

CLA
.+4
TRY3
RSTI

/TEST FOR THIRD CHARACTER
/IN IDENTIFIER
IF FOUND
/READ CHECKS FROM TAPE
/IF NOT
RESET FOR FIRST
-

CLA

CMA

I NDXR
I GETI
MCHK
I GETI

/SET

DCA MZRO
JMP I 0+1
SWTI
GET

QEGQEE

JMP
JMP
JMP
JMS
JMP

END-OF PUNCH

FLAG

/MEASURED

CHECK-SUM

/MEASURED

ZERO‘COUNT

/GET

12-BIT

WORD

/# 0F NON‘ZERO READ
/#OF NON-ZERO PUNCHED
/CHECK SUM
READ
-

/CHECK SUM
PUNCH
/#OF NON-ZERO MEASURED
/CHECK SUM
MEASURED
-

FRST
SCND
THRD
READ
RDl

/WHEN VERIFYING-DON'
/PUNCHING

START

7526
7655

/2'S COMPLEMENT IST AND 3RD IDENTIFIER
/TWO'S COMPLEMENT OF 2ND IDENTIFIER

B
5

NOP
SKP
CFLG
fl

BFUL
@677
B

3
G

@377
BOEZ

/START

OF PUNCHING

FLAG

Digi’ra I -8-1 6-3
Page 7
*299

9299

9291
9292
9295

9294
9295
9296
9297
9219
9211
9212
9215
9214
9215
9216
9217
9229
9221
9222
9225
9224
9225
9226
9227
9259
9251
9252
9255
9254
9255
9256
9257
9249
9241
9242
9245
9244
9245
9246
9247
9259
9251
9252
9255
9254
9255
9256
9257
9269
9261

7299
5174
7299
5144
5145

5146
5147
5175
6912
6922
7299
5175
1152
5557
1166
5979
1166
5595
1541
5164
7492
7694
7994
7459
5259
7994
7459
5255
7994
7659
5241
7949
5224
1165
5595
1165
5979
1542
5556
5261
7299
1545
5556
5174
5261
7299
1544
5556

5174
4545

LOOP,

LOPl,

CRTE,

GO,

CLA
DCA Z VCNT
CLA
DCA ZROR
DCA ZROP
DCA Z CHKR
DCA Z CHKP
DCA DCON
RRB
PCF
CLA
DCA SCON .'
TAD Z TRYl
DCA Z RSTl
TAD Z SKIP
DCA Z RST2
TAD Z SKIP
DCA SWTl
TAD DLAY
DCA Z STRT
HLT
CLA OSR
RAL
SZL
JMP CRTE
RAL
SZL
JMP DUP
RAL
SZL CLA
JMP .+5
CMA
JMP LOP1
TAD NOPT
DCA SWTI
TAD Z NOPT
DCA RST2
TAD VRPT
DCA CONR
JNP GO
CLA
TAD CRPT
DCA CONR
DCA Z VCNT
JMP GO
CLA
TAD DUPT
DCA CONR
DCA Z VCNT
JMS CFLG

/RE5ET

VERIFY COUNT

/RE5ET PUNCH,READER
/COMPUTED CHECKS

/RESET BUFFER OVER FLAG
/CLEAR HARDWARE FLAGS

/RESET START
/SET PROGRAM

PUNCH FLAG
SWITCHES

/SET

START OF PUNCHING DELAY

/BIT

9:1,

CREATE MASTER

/BIT

1:1,

DUPLICATE

/BIT 2:1, VERIFY
/ERROR SET C(AC):7777

PUNCHING
DON'T
/WAIT FOR PUNCH
/NO

/DON'T

START PUNCHING

/SET-UP RETURN FOR

END

/SET'UP

RETURN FOR

END

/SET-UP RETURN FOR

END

/CLEAR FLAGS

Digi’rcI-B-I 6-5
Page 8
9262

1337

TAD BUF

9263
9264
9265

3916
1337
3917

DCA

9266
9267
9279
9271
9272
9273
9274
9275
9276
9277

1349
3163
1333
3999
1169
3157
4931
5955
2157
5276
6992
7249
3416
7419
5736
1336
3179
1175
7799
5315
6991
7299
5313
1334
3999
5192
7249
3416
2173
1335
3179
5397
1341

9399

9391

9392
9393
9394
9395
9396
9397
9319
9311
9312
9313
9314
9315
9316
9317
9329
9321
9322
9323
9324
9325
9326

9327
9339
9331
9332
9333
9334
9335
9336
9337

3164
3175
6922
5262
9276
9312

9349
9341

1274
7769

9342

9499

9343

9494

9326
9999
1963

SAT,

SWTl,

BFUL,

FILL,

SA,
5A1,
RET,
CONR,
BUF,
ova,
DLAY,
VRPT,
CRPT,

NDXR
TAD BUF
DCA NDXP
TAD OVR
DCA RCNT
TAD SA
DCA INTER
TAD Z TIME
DCA TIMR
JNS READ
JMP Z RDI
ISZ Z TIMR
JMP .‘1
IOF
CLA CMA
DCA I Z NDXR
SKP
JMP I CONR
TAD CONR
DCA PDUN
TAD Z SCON
SMA CLA
JMP .+4
ION

CLA
JMP
TAD
DCA
JMP
CLA
DCA
ISZ
TAD
DCA
JMP
TAD

0-1
5A1

/SET-UP BUFFER
/POINTERS FOR
/READ AND PUNCH
/SET

BUFFER~FULL COUNT

/INITIALIZE INTERRUPT
ISET END-OF-TAPE TIMER
/START READING

/END-OF-TAPE
/SET END‘OF-PUNCHING
/OR NOP FOR VERIFY

/SET

RETURN

FOR

PUNCH

FLAG

DONE

/DID WE START PUNCHING?
/NO
/YES
WAIT FOR PUNCHING
-

/START

PUNCHING

INTER
Z FRST'3
CMA

/BUFFER'FULL

I Z NDXR
Z DCON
RET
Z PDUN

/SET-UP END-OF-PUNCHING

BFUL'II
DLAY
DCA STRT
DCA Z SCON
PCF
JNP GO+1
SAT
BFUL‘S
FILL

/'FILL'

/ENTER WHEN BUFFER
/OVERFLOWED AND HAS

/BEEN

PUNCHED

X‘l
X+219
7769

VRFY
CRET

/START OF BUFFER
/BUFFER-FULL COUNT
/DELAY START OF PUNCHING
/DONE POINTERS

FLAG

Digital-84 6-5
Page 9
B344
3345

@445
BOOB

U346
0347

6942
6672

835%

6772
65D2
6732
732%
7312
6722
7904
6732
6652
6534
6032
5745

G351
U352
B353
B354
B355

B356
B357
936%
@361
0362
B363

DUPT,
CFLG,

DUPL
O

/CLEAR FLAGS

TCF
6372
MMCF

/TELEPRINTER

6562
6732
CLA CLL
RTR

/LIGHT PEN
/MICRO TAPE
/PLOTTER
/DISABLE ERF

6722
RAL
6732
6652
6534
KCC
JMP I

FLAG (57A)

CML
/SET

C(AC):26EO
/DISABLE WCO FLAG (57A)
/SET C(AC):4OBO
/DISABLE TCR FLAG (57A)

/LINE-PRINTER FLAG
/138

CFLG

ADC

FLAG

/KEY-BOARD (AND AC)

PAUSE
#463
O4DO
G401

D402
O403
3434
@495
@436
O4fl7
341%
@411
@412
@413
@414
@415
@416
0417
042%
@421
@422
B423
@424
0425
@426
@427
O43B

2174
4493
5361
5351
4494
5345
4314
1327
3336
1325
4934
1326
4634
1325
4034
1146
1176
4231
1144
1177
4231
4314
1335
4734

VRFY,

CRET,

ISZ
JMS
JMP
JMP
JMS
JMP
JMS
TAD
DCA
TAD
JMS
TAD
JMS
TAD

JMS
TAD
TAD
JMS
TAD
TAD
JMS
JMS
TAD
JMS
JMP

5733

@431

0009

@432
@433
@434

3143
1143
7012

DCA
TAD
RTR

@435

7312

RTR

Z VCNT
I E1
VER
VOK
I E2
MER
BLNK
HERE

INTER
T1
Z PNC
T2
PNC
T1
PNC
CHKR
C377
SIX
Z ZROR
Z TWO
SIX
BLNK
ADI
I PRNT
I LOP

/COMPUTED VS MEASURED CHECKS
/VERIFY ERROR
/VERIFY OK
/COMPUTED VS PUNCHED
/MEMORY ERROR

/SET INTERRUPT POINTER
/PUNCH CHECKSUM
/IDENTIFIER CODES
/BIT PATTERN IS:
/151£1B18
/fllfilfllfll
/151£1018
/PUNCH CHECKS
/ALTER CHECKS

/PUNCH

BLANK TAPE

/PUNCH NUMBER

SIX,
Z HLD2
HLD2

/IN

IN AC

BINARY FORMAT

Digital-84 6-5
Page 10
@457
@443

7Q12
@172
4354

8441

1145

D442

@172

B445
0444
B445
@446
B447

4954
5651
4435

@456

@453
@451
@452

@455
@454
0455

@456
@457
@460
3461

D462
0465
@464

3465
D466

@467
647%
B471
B472
0475
0474
B475
@476
@477
B5B%

RTR
AND

JMS
TAD
AND
JMS

JMP

DUPL,

5547
4494

GOl,

5545
1527
5930
1525
4654
1146
4251
1144
4251
4514
1175
7646

JMS
JMP
JMS
JMP
TAD
DCA
TAD
JMS
TAD
JMS

TAD
JMS
JMS
TAD
SZA
JMP
TAD
SZA
JMP
TAD
JMS
HLT
CLA
CMA
DCA
TAD
DCA
TAD
DCA
DCA

5556
1524
7646
5595
1556
4754
7492
7654
7841
5524
1552

5170
1569

B501
B592
0535

5917
5145

5147

DCA

@564
@565

5645
2524

O506

741%
5556
1557
4754

JMP
ISZ
SKP
JMP
TAD
JMS
HLT CLA
JMP TST4-5

@507
D510
0511
@512
2515
B514
@515

@516
@517

7662
5530
GOOD
1525
5157
4654

TST4,

BLNK,
TAD MCNT
DCA Z TIMR
JMS Z PNC

/COMPARE COMPUTED
/READER ERROR
/COMPARE COMPUTED
/MEMORY ERROR

MEASURED CHECKS

PUNCHED CHECKS

/PUNCH THIRD IDENTIFIER
/READER STOPPED WHEN THIRD IDENTIFIER
/HAS BEEN FOUND, IE IT IS NOT IN THE
/BUFFER

/PUNCH BLANK TAPE

IBUFFER

OVERLAP-NO MORE DUP.

/STARTED MULTIPLE DUPLICATION??
/MULTIPLE DUPLICATION HAS STARTED

IREAD

NUMBER

FROM

/SET RETURN FOR PUNCHING DONE
/RESET BUFFER POINTER
/RESET PUNCH'COMPUTED CHECKS

/START PUNCHING
/ARE WE DONE YET?

/YES
/NO

/HALT
/MAKE NEXT

COPY
/SUBROUTINE TO PUNCH
/BLANK TAPE

DigHOI-8-16-S
Page 11
0520

0521

2157
5517

0522
0525
0524

5714
7600

0525
0526

0252
0125
0550

0527
0550
0551
0552
0555
0554
0555
0556
0557
0540

MCNT,

0000

HERE,

7200
5550
0447
0202
0675

HERl,
LOP,
PRNT,
ADI,
ADZ,
A05,
AD4,
ADS,
A06,

0541
0542
0545

0741
0751
1007
1017
1026
1056
1045

0544
0545

1054
1542

0546

5554

0547
0550

1545
5554

RER,

0551

1174

vox,

0552
0555
0554
0555
0556
0557
0560

4402
1540

0561
0562
0565
0564
0565
0566
0567
0570

0571
0572
0575
0574
0575
0576
0577

4754
5755
1541
5554
1065

1174
4402

AD7,
MER,

DOK,

BF,
VER,

1544

5554
0000

4051
6012
7106
7006
7006
5142
4051
6012
1142
5765

GET,

ISZ
JMP

Z TIMR
0-2

JMP

BLNK

7600
0

0252
/CODES FOR CHECK-SUM
0125
/IDENTIFIERS
HERE+1
CLA
JMP 0-1
GOl
LOOP
PRIN
TABl
/MASTER CREATED
TABZ
/PRINT TABLE
TAB5
/PRINT TABLE
TAB4
/VERIFY OK
TAB5
/DUP OK
TABG
/MEMORY ERROR
TAB7
/READER ERROR
TAB8
/VERIFY ERROR
TAD AD6
JMP VOK+5
TAD AD7
JMP VOK+5
TAD Z VCNT /VERIFY OK
JMS I Z NPNT
TAD AD4
JMS I PRNT
JMP I LOP
TAD AD5
/DUPLICATION OK
JMP VOK+5
X'l
TAD Z VCNT /VERIFY OK
JMS I Z NPNT
TAD AD8
JMP VOK+5
0
/ROUTINE TO READ 2-6BIT CHARACTERS
JMS Z READ
RRB
CLL RTL
RTL
RTL
DCA Z HLDl
JMS Z READ
RRB
TAD Z HLDl
JMP I GET

Digital-8—16-S
Page 12
*669
O6OO

GOOD

@691
0602
@693
@604

726%

Z ZROR /TO MEASURED SUMS
IAC
/IF EQUAL, RETURN TO CALL+2
Z MZRO /OTHERWISE RETURN TO CALL +1
CLA
I TESl
Z CHKR
CMA IAC
TAD Z MCHK
CLA

7041
115%
7640
5696
1146

$610
@611
@612

7041
1151
7653

@613
@614

22OO
56%9
OOOO

ISZ
JMP

743%
5242
720%
1142
1271
4525
5142
2245
2272
5244

TESl
I TESl
/COMPARE PUNCH COMPUTED

TESZ,
CLA
TAD
CMA
TAD
SZA
JMP
TAD
CMA
TAD
SNA
ISZ
JMP

7290
1145
7941
1144
7643
5615
1146
7041
1147
765%
2215
5615
993%
3145
5142
1264
3272
1265
3245
7419
5143
71OO
1143
1265
7435
2142

ICOMPARE READER COMPUTED SUMS

CLA
TAD
CMA
TAD
SZA
JMP
TAD

1144

@695
@636
@607

@615
@616
$617
O62O
@621
@622
0625
@624
9625
@626
0627
9650
0631
0652
@653
@654
@655
@656
@637
@648
0641
@642
@643
0644
@645
B646
@647
@650
@651
@652
0655
@654
@655
0656
0657
@666
@661

TESl,

DPRT,
DCA
DCA
TAD
DCA
TAD

XYZ,

DCA
SKP
DCA

Z ZROP
IAC

/TO READER

SUMS

COMPUTED SUMS

Z ZROR /IF EQUAL, RETURN TO CALL+2
/OTHERWISE RETURN TO CALL+1
CLA
I TESZ
Z CHKR
IAC
Z CHKP
CLA
TESZ
I TESZ
/CONVERT BINARY WIRD IN AC
Z HLD2 /TO 4 DIGIT UNSIGNED DECIMAL
Z HLDl /NUMBER AND TYPE IT
CNTR
CNT
/IDENTICAL TO ROUTINE IN LIBRARY
ADDR

XYZ+3

Z HLD2
CLL
TAD Z HLD2
TAD CON
SZL
ISZ Z HLD1

SZL
JMP XYZ
CLA
TAD Z HLDl
TAD C265
JMS TYPE
DCA Z HLDl
ISZ XYZ+5
ISZ CNT
JMP XYZ+2

Digital-84 6-5
Page 13
0662

0663

0664
0665
0666

0667
0670
0671
0672
0673
0674
0675
0676
0677
0700
0701
0702
0703
0704
0705
0706
0707
0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
0741

5632
1265
7774
6030
7634
7766
7777
0260
0000
0000

ADDR,
CNTR,
CON,

C260,
CNT

PRIN,

0742

2324

0743

0522

Z HLD2
TAD I HLD2
SNA
JMP CR

1543
7450
5320
7012
7012
7012
4310
1543
4310
2143
5275
0000

0260
0
DCA

3143

0172
1334
7510
1335
1336
4325
5710
1337
4325
1340
4325
5673
0000
6046
6041
5327
6042
7200
5725
7740
0100
0240
0215
0212
1501

I DPRT
TAD CON
7774
6030
7634
7766
7777

JMP

RTR
RTR
RTR

/ROUTINE T0 PRINT A STRING
/OF PACKED ASCII CHARACTERS
/ENTER WITH S.A. OF STRING IN

/AC; EXIT

ON 0 ELEMENT
lAFTER TYPING CR-LF

GPRT
I Z HLDZ
GPRT
ISZ Z HLD2
JMP PRIN+2
0
/THIS ROUTINE CONVERTS
AND Z BIT6 /6BIT TO ASCII
TAD M40

JMS
TAD
JMS

GPRT,

SPA
TAD
TAD
JMS
JMP
TAD
JMS
TAD
JMS
JMP

TYPE,

0100
C200

TYPE
I GPRT
CAR
TYPE

/TYPE

CR-LF

LP
TYPE
I PRIN
/TYPE CHARACTER IN AC

TLS
TSF
JMP
TCF

M40,
0199,
0200,
CAR,
LF,
TABI,

CLA
JMP I
7740
0100
0240
0215
0212
1501
2324
0522

TYPE

/PRINT TABLES

IN STRING

Digital-8-16-S
Page 14
0744
0745
0746
0747

4005
2205

0124

0750
0751
0752

0000

0124
0504
0000
2505
2440
2527
1124
0510
0525
4024
1740
1625
1502
0522
4017
0640
0517
2011
0525
4024
1740
0205
4015
0104
0540
2022
0525
2540
0517
1624
1116
2505

0755
0754
0755
0756
0757
0760
0761
0762
0765
0764
0765
0766
0767
0770
0771
0772
0775
0774

0775
0776
0777
1000
1001
1002
1005
1004
1005
1006
1007
1010
1011
1012
1015
1014
1015
1016
1017
1020
1021
1022
1025
1024
1025

0504

2505
2440
2527
1124
0510
0525

TABZ,

4024
1740

1625
1502
0522
4017
0640
0517
2011
0525
4024
1740
0205
4015
0104
0540
2022
0525
2540
0517

1624
1116
2505
0000
2022
0525

0000

2022
0525
2540
0517
1624
1116
2505

2540

0517
1624

1116
2505
0000
4040
2605
2211
0651
4017
1540
0000

0000

TAB4,

4040
2605

2211
0651
4017
1540
0000

Digital-8-16-S
Page 15

1640
1713

0425
2014
1103
0124
1117
1640
1713

0000

1026

0425

1027
1030

2014

1031
1032

1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045

1046

1047
1050

1051

1103
0124
1117

1505
1517

2231
4005
2222
1722
0000

2205
0104
0522
4005

1054

2222
1722
0000
4040

1055
1056

2605
2211

1052
1053

1057

0631

1060
1061

4005
2222

1062
1063
1064

0000

ADDR
ADI

AD2
AD3
AD4
AD5
AD6
407

408
BF

BFUL
BIT6
BLNK
BUF
CAR

CFLG
CHKP

TABS,

TAB7,

0663
0535
0536

0537
0540

0541
0542
0543
0544
0560
0320
0172
0514
0337
0737
0345

0147

CHKR

0146

CNT

0672

4005
2222
1722
0000
2205
0104

0522
4005

2222

1722
0000

TABS,

4040

2605
2211
0631
4005
2222
1722
0000

1722
0000

1505
1517
2231

/START OF BUFFER

Digital-8-16-S
Page 16
CNTR
CON
CONR
CR

0664
@665
9336
B723

CRET
CRLF

0494
@167
6543
925%
@755
@736
@671
@176
@524
@175
@341
@556
@652
@927
@255
@445
@544
@665

CRPT
CRTE
0100
0299
C260
CS7?
DCNT
DCON

DLAY
DOK

DPRT
DSMS
DUP
DUPL
DUPT
E1
E2
FILL
FRST
FUL
GET
GETl
GO
G01
GPRT
HERE
HERI
HLDl
HLD2
HNDL

INTER
LF
LOOP
LOP
LOPl
MCHK
MC NT
MER

MZRO
M4O

NDXP
NDXR
NOPT
NPNT

0034

@526
@165

@171
0565
@141
@261
@447
9716
@527
9532
@142
@143
@620
@993
974%
@202
@533

@224
9151
@525
@545

@150
@754
0917
@916
0165
OOOZ

Digital-8-16-S
Page 17
OVR

954%

PDUN
PNC
PNCH

@176
@954

FRIN
PRNT
RCNT
RDI
READ
HER
RET
RSTI
RSTZ
SAT
8A1
SCND
SCON

SIX
SKIP
STRT
SWTI
TABl
TABZ
TAB3
TAB4
TABS
TABS
TAB?

TABs
TESI
TESZ
THRD
TIME
TIMR

@646
@673
@554
3163
@055
9051
0547
8555
@957
037%
@553
@276
@554
9114
6175
@431
@166
@164
@565
@741
@751
1067
1217
1626
1936
1045
1354
9690
6615
6125
016%

@157

TRYl
TRYZ
TRYS

@152

TSTl
TSTZ
TST4
TWO

9161
0162
@595
0177
B725
@525
@526
@174
@561
0551
0499
6542
0155

TYPE
T1

T2
VCNT
VER
VOK

VRFY
VRPT

@153
@154

Digital-84 6-3
Page l8

XYZ

zROP
7ROR
L...

1064
@642
0145
9144

ll.

DIAGRAMS (Not Applicable)

12.

REFERENCES (Not Applicable)