Digital PDFs

DIGITAL-8-21-U

December 1965

16 pages

Original

0.7MB

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

OCR Text

IDENTIFICATION
I .I

.2
I .3

Digital-B-ZI-U-Sym

Symbolic Tape Format Generator
May 2,

I965

PUP—8
LIBRARY

Digital—8-2l -U-Sym
Page 2
ABSTRACT

The format generator allows the user to create PDP—8 symbolic tapes with for—

matting. It may be used to condense tapes with spaces by inserting tabs, or merely to align
tabs, instructions, and comments.
3.

REQUIREMENTS

3.1

Storage
Uses 4096-word core memory for buffering and program storage

The program

itself occupies locations 0020-0665.
3.3

Equipment
PDP-8 with ASR 33 or with 750/75A High-Speed Reader/Punch

USAGE

4.l

Loading
The program is loaded with the Binary Loader (see Digital-8-2-U).

4.3

Switch Settings
There are two switch options:

4.3.]

Bit 0

If bit 0 is up, input and output are by means of the high speed reader
and punch

If bit 0 is down, input and output are by means of the ASR 33.

tabs, followed by rubouts, are generated.
is down, spaces are generated.
If bit H is up,

If bit ll

4.3.2

Bit ll:

4.4

Start up/Entry

4.4.]

Load binary tape.

4.4.2

Set C(SR)

4.4.3

Press LOAD ADDRESS.

4.4.4

Set C(SR) for options (see 4.3)

4.4.5

Turn on punch; put symbolic tape in reader; turn on reader.

4.4.6

Press START.

4.4.7

When using high-speed l/O, the program will halt at the end of the tape.
ASR 33, program will not halt.

0200 (starting address of program).

Using

Digital-8-2I -U-Sym
Page 3
RESTRICTIONS

(Not Applicable)

DESCRIPTION
The format generator uses a fixed algorithm that is explained in the flow diagram.
The following is an example of its usage.

It is the original

input symbolic:

*200

/EXAMPLE OF FORMAT
/GENERATOR
BEGIN,O/START OF PROGRAM
KCC

KSF/WAIT FOR FLAG
JMP .—I/FLAG NOT SET YET

KRB/READ IN CHARACTER
DCA CHAR

TAD CHAR

TAD MSPACE/IS IT A SPACE?
SNA CLA

HLT/YES
JMP BEGIN+2/NO INPUT AGAIN

CHAR,O/TEMPORY STORAGE
Ms PACE,— 240/—ASC|| EQUIVALENT
/END OF EXAMPLE
$
This is the output symbolic:
*200

/EXAMPLE OF FORMAT
/GENERATOR
BEGIN,

/START OF PROGRAM

KCC
KSF

JMP .—I
KRB

/WAIT FOR FLAG
/FLAG NOT SET YET
/READ IN CHARACTER

DCA CHAR

TAD CHAR
TAD MSPACE

/IS IT A SPACE?

SNA CLA
HLT

/YES

Digital—8-2I -U-Sym
Page 4

/NO INPUT AGAIN
/TEMPORY STORAGE
/—ASCI| EQUIVALENT

JMP BEGIN+2

CHAR,
MS PACE,

O
—

240

/END OF EXAMPLE
515
7.

METHODS

FORMAT

8.I

Input Data

(Not Applicable)

The program will accept blank tape,
are

removed except when preceded by tabs.

code 200 for Leader/Trailer.

Rubouts

Any legal symbolic tape for the PAL II or

MACRO assemblers will be correctly Formatted.
8.3

Output Data
Output is compatible with either assembler and with the Symbolic Tape Editor.

EXECUTION TIME
Linited by input/output time.

Digital—8-21 —U-Sym
Page 5

10.

PROGRAM

H14

PA LII Assembly

/PAGE
*2“

Listing

/CONSTANTS
@629
0321
muzz
9325
@624
dflZS
mn26
$627
985%

EMSI
amsz
mflfifi

1999
04B“
7549
0039
9999

@330

0577
8211
7766
7775
7564
9014

303%
9&55
3&36
BU57
3848
0341
BfiAZ
9345
@644

7521
7565
@315

0945
@646
@847

7557
6246
3993
690%
9639
809%

6658
@351
9652

@355
3&54
0055
9356
6957
0060
fiflél
@962

sass
@064
3865
0066

6&6?
@976

3212
BQGQ

7526
14@@
75€5
74%1

7524
”039

RBGN,
HIRDPT,
MSPACE,
FIELDl,
FCCUNT,
C577,
TAB,
MTABI,
m5.
MFFEED,
MLEADR,
NSLASH,
MCR,
CARRTN,
LFEEB,
RQNT,
MASTER,
RKeN,
MLFEED,

"TABg
SPRCE,
TEMé,
SWTI,
ceMMFL,
EQFLAB,
HCfiMNA,
GET,

5824
5454

4354
1024
1922
7653
5052
5461
9690

“24%
3
9

9377
3211
‘12
-5
“214
214’299

“257
“215
215
212
U

'252

1396-7469
-212
“211
243
a

9
a
a

-254
9

CLA
TAD I 15
DCA CHAR
JHP I GET

72$3
1413

@000

luau
HIRD

SPIGNR,

RDLINE,

9
JMS GET
TAD CHAR

TAD “SPACE
SNA CLA
JHP SPIGNR+1
J“? I SPISNR
REABL

/GET A CHARACTER
ILINE BUFFER

FROM

/R@UTINE TO IENORE SPACES

Digital-8-21-U—Sym
Page 6

/PAGE 2
#236
3286

9231
2232
2285

@234
i295
2296
@227
6219
@211
@212
6215
M214
3215
9216
3217
3220
9221
@222
@225
3224
0225
9226
@227
325%
9251
@252
$255
@254
@255
@256
0257
9243
@241
@242

7243
5949
5959
1950
5925
5325
4479

CLA
DOA

START,

1051
7540
5255
1952
7649
5519
4951
1924
1841
7656
5511
1924
1954
7653
5511
1924
1655
765!
5271
5276
4961
4528
4954
1324
1955
7640
5254
4523

P60,

TAD
DCA
DOA
JHS
TAB

CMA
RCNT
SWT1
MTABI
FCBUNT
FIELDl
I RDLINE
CQHHFL
CLA
P86

/SET UP

INPUT ROUTINE

/SET UP TAB CQUNT

IREAfi IN A LINE
ICGMNA SEEN77

JHP
TAB EQFLAS
SZA CLA

/YES
IEQUAL SEEN77

JNP
JHS
TAE
TAD
SNA
JHP
TAD
TAB
SNA
JMP
TAE
TAD
SNA
JMP
JNP
JNS
JMS
JNS
TAB
TAB
SZA
JMP
JMS

ECHO-1
SPIGNR
CHAR
MASTER
CLA
ECHO
CHAR
NSLASH
CLA
ECHG
CHAR
HCR
CLA

/YES ECH6 LINE

CRLF
TABlA
SPIGNR
PUNCH
GET

/YES
INONE @F THESE~TAB T0 1
IISNORE LEADING SPACES
IPUNCH
IGET NEXT
ICCMMA?

CHAR
HCGHMA

CLA
PG@+1
PUNCH

/CHARACTER ='*'?

IYES ECHU

ICHARACTER ="/”?
IYES°ECHG

ICHARACTER :03?

INC

IYES PUNCH IT

Digital-B—Zl—U—Sym
Page 7
/PAGE 3
3243

3244
B245
B246
@247
@255
9251
6252
@253
@254
U255

U256
@257
UZGU
U261

1023
7659
4352
4061
1924
1322
7650
5266
1524
1935
7555

@356
U367
@319
9311
8312
B313
@314
9315
3315

U317

5311

U264
U265
@266
U267
827%
6271

3272
3273
@274
9275
@276
6277
B390
B301
0362
B353
@364
B3U5

P661,

5271
1924
1934
7655
5392
4320
4354
5247
4328
4061
5247
1836
4331
1537
4331
5293
1'23
7659
4352
5263
1l31
1023
7656
5311
4352
5332
4354
4329
4354
1324
1635
7653
5271

U262
W263

TABl,

P362,
SPUNCH,

CRLF,

TABlA,

TABS,

TAB FIELBl
CLA
JHS TABIT
JMS SPIENR
TAfi CHAR
TAD MSPACE
SNA CLA
JHP SPUNCH
TAE CHAR
TAD MCR
SNA CLA

JMP CRLF
TAD CHAR
TAB HSLASH
SNA CLA
JNP TAB3
JNS PUNCH
JMS GET
JNP P691

lNe“ TAB BVER
[IGNBRE SPACES

ISPACE?
IPUNCH IT AND TENURE SPACES

ICR?

/YES

/"/'7
/YES TAB T6 STQP 3
IPUNCH 1T
IaET NEXT

JMS PUNCH
JNS SPIGNR

JMP P601
TAB CARRTN
JNS FUN
TAB LFEEE
JMS FUN
JHP START
TAB FIELB1
SNA CLA
JMS TABIT
JMP P562
TAN H3
TAB FIELDl
SNA

ECHU,

IIN FIELB?

/PUNCH

ITAB

CR, LF

T6 ETC?

/IN FIELE 3?

CLA

JMP ECHO
JMS TABIT
JMP TAB3
JMS GET
JMS PUNCH
JHS SET
TAB CHAR
TAB HCR
SNA CLA
JMP CRLF
JHP ECHG

/YES
lNe TAB EVER

IECHO UNTIL CR

Digital-8-21—U—Sym
Page 8
/PAGE 4
332%

3036

3321
6322
B323
B324
B325
0326
@327
H356
0331
@332
@355
@334
@335
3336
6537
@543
6341
@542
B343
6344
C545
8346
@347
@356
@351
@552
0353
@354
$355
6556
9357
B365
0361
0362
B363
@364
C365
0366
B367
337%
@571
@372
9373

1524

4331
2925
572%
1353
3325
2923
5720
3069
5351

PUNCH,

T69,

€846
6941
5346
5542

7664
7619
7629
5367
1627
4531
1926
4351
1936
5625
2623
5752
1346
4331
2025
5367
5363

/PUNCH CHARACTER

FUN,

5344
1551
6526
5621
534%
7236

6563
930%

IPUNCH AND CCUNT

TAB CHAR
JMS PUN
ISZ FCOUNT
JNP I PUNCH
TAD MTABI
ECA FCGUNT
ISZ FIELfll
JMP I PUNCH

7634
7739

5751
1351

BCA TEMP
CLA 08R
SMA CLA
JMP T60
TAfl TEMP
PLS
PSF
JMP 0-1
CLA
JMP I PUN
TAD TEMP
TLS
TSF
JMP 0-1
JHP TGO‘Z

IOUTPUT77
I33ASR
IPUNCH IT H.5PEED

TEMP,
TABIT,

SPACIT,

CLA OSR
RAH
SNL CLA
JMP SPACIT
TAE TAB
JMS FUN
TAD C377
JHS PUN
TAB MTABl
DCA FCGUNT
ISZ FIELBI
JMP I TABIT
TAB SPACE
JMS FUN
ISZ FCCUNT
JMP SPACIT
JHP SPACIT-4

ITAIS 9R SPACES

ISPACES

IN AC

Digital-8-21-U-Sym
Page 9
IPACE 5
IREAE ROUTINES
#406
3499
@401
@402
3463
B404
6405
3496

”4%?
941%
@411
@412
6415
3434
94i§
B415

U417
U420

U42!
3422
6425
9424
0425
C426
0427

U439
@451
9432
@435
9434

9906

7544
7729
5256
294a
5247
2053
741a
5252
5259
1929
3212
1242
544a
6814
2447
2247
7415
5235
661!
5225
7292
5912
4264
5216
3415
264%
5215
5241

HIRE,

CLA CSR

/INPUT SOURCE?

SMA

RDIN,

JHP
ISZ
JHP
ISZ
SK?
JHP
UCA
TAD
DCA
TAU
BCA
RFC
BCA
ISZ
SKP
JMP
RSF
JNP
CLA
RRB
JNS
JHP
BCA
152
J“?
JMP

K80
Z RCNT
GCHR

SUTl

I35ASR
IIS BUFFER EMPTY?
/NO
IBIB TAPE ENE?

ENBF
SUTl

IYES

NNN

RBGN
19
RK6N
RCNT

/YES

TENS
TEMC

FULl

63 HALT

REAE IN A BUFFER

IBET A CHARACTER
ISTART CéUNTING
ICCGUNTER .VERFLEU

IYES
IN.
INB

/YES
TEST
RUIN
I 19
Z RCNT
REIN
FULL

END OF TAPE
FLAG SET YET?
CEUNT AEAIN
READ IN CHARACTER

ITEST INPUT
/I€N6RE IT
ISTORE IT
/IS BUFFER FULL YET?
INS
IYES

FULL

Digital-8-21—U-Sym
Page 10
/PAGE 6

B435
B456

@457
0446

9441
9442
9443
9444

B445
9446
8447
9450
8451
0452
9453
0454
@455
@456
6457
6460
@461
@462
@463
3464
@465
9466
@457
6479
9471
B472
@475
3474
9475
3476
6477
9530
9591
8502
9535
9534
B535
0506

7249
5959
1949
7941
1942
7459
5252
5949
1929
5912
1412
5924
5699
7249

FULI.

FULL,

GCHR,
ENBF,

3949

7492
5254
6931
5256
6936
4264
5256
5259
9999
5924
1924
1945
7659
5664
1924
1944
7659
5664
1924
1945
1649
5594
1946

7419
1924
2264
5664

CLA
RCA
TAB
CMA
TAB
SNA
JNP
RCA
TAB

ITAPE RAN SPF END
/SET ENE 0F TAPE SWITCH

IRESET CGUNTER FOR READ

TAD
BCA
JMP
CLA
BOA

/PICK UP A CHAR FRGM BUFFER
IYES

HLT

K65,

JMP
KSF
JHP
KRB
JHS TEST
JHP K69
JMP GCHR+I

TEST,
BCA
TAD
TAD
SNA
JHP
TAB
TAB

CHAR
CHAR

NLFEED
CLA
I TEST

CHAR
HRBOUT
SNA CLA
JHP I TEST
TAD CHAR
TAB MTAB
SZA CLA
JHF 6+3
TAB SPACE
SKP
TAB CHAR
ISZ TEST
JMP I TEST

11251 INPUT
xxauoas 11
/TEST INPUT
/RETURN T6 CALL+1
/IF T0 BE ISNBREH
/IS IT LINEFEEB?

/YES-IGNORE
/IS

IT RUBGUT?

/YES-IGNORE
/IS

IT TAB?

IN. GET ORIGINAL

/YES-CHANGE T0 SPACE

{Ffififi 7
#599

Digital-8-21—U-Sym

/R.UTINE T9 REA9 A
3606
@691
@692

0359
5852
3fl51

6695

3257

9604
@665

1265
5013
4421
1024
7450
5269
1062
7459
5263
1935
7650

6866

@697
0610

0611
9612
0615
9614

@515
@515

@617
@629

@621
$622
0623
@624

@625
@526
@527
965%

@631
@652
0653
9634
6635
0635
3637
$549

0641
@642
0645
6644
@645
$646
0647
”65%
@651
6652
@655
@654
6655
@656
0657
366%
@661
3662
@665
0664
3665

5269
1324
5416
1324
1954
7640
5250
2257
5266
1824
1264
7650
5247
1224
1953
7659
5253
1024
1635
7643
5266
1265
5915
5633
1257

READL,

R39,

SETl,

7659
2fi52
529G

1257
7653

SETZ,

2951

5296
$399

1924
4565
5296
9551
7593
@666

SFLAG,
P307,

BUFl,

3
3CA
”CA
ECA
TAfi
BOA
JNS
TAE
SNA

Page 11

LINE

EQFLAB
CEHHFL
SFLAG
BUFI
13
I HIRDFT

T6 ALL FLAGS

/SET BUFFER PQINTER
/REAB A CHARACTER

CHAR

JMF
TA9
SNA
JMP
TAB
SNA
JHP
TAB
ECA
TA9
TAB
SZA
JHP
152
JMF
TAF
TA?
SNA
JHP
TAE
TAB
SNA
JMP
TAB
TAa
SZA
JMP
TAD
BOA
J“?
TAD

P337
MFFEEE

/PUNCH BLANK
/FORM FEED?

P337
MLEABR

/COEE 230?

ISZ
JNP
TA9
SNA
ISZ

EQFLAG

CLA
PG@7
CHAR
I 15
CHAR
MSLASH
CLA
.+5
SFLAQ
REC
CHAR
HEQUL
CLA
SETI
CHAR
HCQMHA
CLA
SETZ
CHAR
HCR
CLA
RGE
BUFI
13
I REABL
SFLAG
SNA CLA
R39
SFLAG
CLA
CEHMFL
JMP Rafi

TAB CHAR
JHS I 0+2
JMF 33$
FUN

0+1

/YES*PUNCH IT

IYES PUNCH IT

/NGNE::ST6RE IT
/IS IT SLASH?
INS

/YES SET CfiflflENT FLAG

/IS IT EQUAL SIEN?

[SET =FLAG IF NfiT IN C6MHENT
/IS

IT A CGMMA?

/SET
/IS

,FLAG IF NQT IN CfiflHENT
IT CR?

IN6:C®NTINUE
/YES SET UP BUFFER
IEXIT

BUFI
CARRTN
CHAR
CGMMFL
CRLF
6577
ECHB

ENBF
EDFLAG
FCOUNT
FIELDI
FULL
FULI

5655
0036
6024

SPIGNR
SPUNCH
START

9051
3271
9926
9311
B452
5352
0925
8025

SUTI

9441
5455

GCHR

@447

GET
HIRD
ifiRDPT

3654
9496
6321
B456

K60

LFEED
MHSTER
MCGMMA
NCR
MEQUL
MFFEED
MLEADR
MLFEED
MBOUT
“SLASH
MSPACE
MTAB
MTABI
M3
P69
P691
P602
P667
PUN
PUNCH
RBGN
RCNT
RDIN
RDLINE
READL
R65
RKGN
SETI
SETZ
SFLAG
SPACE

SPACIT

@357
3941
3353
6935
9664
6932
0953
6043
8044
@334
3322
0845
363%
9631
6253

@247
3265
3669
0551

@329
@626
@942
5416
6670
9663
6666
3042
6547
9655
6557
3646
3567

EAR

TABIT
T331
IABIA
TABS
TEMP
TENS
TEST

T60

@851
3266
9293
6550
0027
3552
$245

8276
6592
0351
9647
5464
6344

Digital—8—21-U-Sym
Page 12

DIAGRAMS

1].]

Flow Charts

11.1.]

Main Algorithm
READ

Digital-8-21—U-Sym
Page 13

UNE

COMMA

EQUAL

FLAG=1°

FLAG=1?

YES

IGNORE
LEADING

SPACES

YES

IGNORE

LEADING SPACES

T
PUNCH
CHARACTER

YES
/?

GET

CHARACTER

PUNCH CARRIAGE-

YES
‘

RETURN LINE FEED

l
NO

YES

PUNCH

CHARACTER

fl
H

TAB TO

STOP

IGNORE
SPACES

PUNCH

CHARACTER

IGNORE
SPACES

TAB TO

STOP

PUNCH

CHARACTER

1
GET

CHARACTER

GET NEXT

Digital—8-21-U-Sym
11.1.2

Page 14

Read-Line Subrouhne

O -' COMMA FLAG
0—. EQUAL FLAG

O —- SLASH FLAG

READ A
CHARACTER

BLANK?

PUNCHIT

.»

PUT
IN

CHARACTER

BUFFER

SET
‘

SLASH FLAG

SET
fi'

EQUAL FLAG

SET
COM MA FLAG

NO
CR?

EXIT

SUBROUTINE

Digital-8-21-U—Sym
Page 15

(Not Applicable)

12.

REFERENCES

13.

ADDENDA (Not Applicable)