DEC 12 TW2A D_PATCH_Mar70 D PATCH Mar70

~nmnomo

DEC-12-YU2A-D

March,

1970

Copyright(S)l970

by

Digital

Equipment

Corporation

Specifications

contained

in

this

manual,

are

for

general

information

only.

Actual

specifications

are

subject

to

change

without

notice.

The

draw-

ings,

specifications,

and

descriptions

herein

are

the

property

of

Digital

Equipment

Corporation

and

shall

not

be

reproduced

or

copied

or

used

in

whole

or

in

part

as

the

basis

for

the

manufacture

or

sale

of

items

without

written

permission.

The

following

are

registered

trademarks

of

Digital

Equipment

Corporation,

Maynard,

Massachusetts

DEC

PDP

FLIP

CHIP

F'OCAL

DIGITAL

COMPU'l

1

EH

LAB

The

equiprnent

described

herein

is

covered

by

patents

and

patents

pending.

1.0

INTRODUCTION

The

Pl\TCII

program

will

modify

any

loc;:ition

in

any

TBLK

on

tape

unit

1.

Its

primary

function

is

to

provide

a

method

for

making

small

patches

to

LINCtape

binaries.

For

example,

PA'I'CH

can

be

used

to

modify

load

and

go

arguments

in

a

LAP6-DIAL

1

binary

header

TBLK.

Because

PATCH

converses

with

the

user

via

()ANDA,

an

understanding

of

QANDA

conventions

is

necessary

before

using

PATCH.

Refer

to

DEC-12-FISA-D

for

that

information.

2.

0

HARDWl'1RE

REQUIREMENTS

The

minimum

configuration

is

a

PDP-12B.

3.

0 CORE u;.;AGE

PATCH

uses

MBLKs

~,2,

and

3

of

segment

2

and

MBLK

4

of

seg-

ment

3.

The

starting

address

is

4020.

4.0

LOADING PROCEDURE

PATCH

is

loaded

by

the

comma:pd

~LO

PATCH,

UNIT)

Tho

tape

to

be

modified

must

be

on

transport

unit

1;

it

can

be

placed

on

unit

1

either

before

or

after

loading

PATCH. PATCH

is

a

load

and

qo

program.

1

LAP6-DIAL

is

hereafter

referred

to

as

DIAL.

1

5.0

SENSE SWITCH OPTIONS

Raising

Sense

Switch

~

causes

PATCH

to

return

to

DIAL.

Therefore,

MAKE

SURE

SENSE

SWITCH~

IS

DOWN

BEFORE LOADING PATCH.

6.0

9ANDA

DIALOGUE

P/\.'J'Clf

•t1ill

qu(:ry

the

user

by

preEienting

him

with

4

sue-

output

is

to

both

the

scope

and

the

Teletype.

Pressing

LINE

FEED

causes

the

program

to

advance

to

the

in

se-

quence.

There

is

no

option

to

repeat

the

displayed

messages.

All

input

must

be

octal

and

must

be

three

or

four

digits,

as

appropriate.

Leading

zeros,

if

any,

are

required.

RUBOUT

will

delete

the

typed,

one

at

a

time.

G.l

MESSAGE l

When

PATCII

is

started,

it

displays

the

following

message:

TBLK

At

this

point

the

user

types

in

the

number

of

the

tape

block

to

be

modified.

1

Teletype

is

the

registered

trademark

of

the

Teletype

Cor-

poration.

2

When

the

LINE FEED

key

is

pressed,

PATCH

will

read

in

the

re-

quested

TBLK.

If

the

input

is

not

octal,

the

message

is

redis-

played.

6.2

MESSAGE

2

The

is

LOC

Now

the

user

must

type

in

a

value

between

000

and

377

to

specify

which

word

within

the

TBLK

is

to

be

modified.

If

the

value

is

not

between

0-377,

the

message

will

be

redisplayed.

Location

000

is

defined

as

the

first

word

in

the

TBLK;

location

377

is

defined

as

the

last

word

in

the

TBLK. When

the

LINE

FEED

key

is

pressed,

PATCH

retrieves

the

contents

of

the

requested

location

and

displays

them

in

the

If

non-octal

characters

are

typed,

"LOC"

is

redisplayed.

6.3

MESSAGE

3

OLD

VAL

xlx2x3x4

NEW

VAL

x1x2x3x4

is

the

current

contents

of

the

requested

loca-

tion.

The

user

may now

type

in

the

change.

If,

upon

examina-

tion,

no

change

is

to

be

made,

retype

the

old

value

as

the

new

3

value

input,

followed

by

LINE FEED. When LINE

FEED

is

pressed,

NEW

VAL

will

replace

OLD

VAL

in

core.

If

an

error

was

made

in

TBLK,

simply

type

LINE

FEED

or

some

non-octal

characters

follow-

ed

by

LINE FEED.

The

first

display

(TBLK

_)

will

reappear.

(Note

that

any

made

in

core

up

to

this

point

will

not

be

written

onto

the

tape.)

6.4

MESSAGE

4

DO

1 WRI'TE

2

MORE

CHANGES

If

the

user

types

LINE FEED

or

any

key

other

than

1

followed

by

LINE FEED,

PATCH

returns

to

message

2

to

accept

more

changes

within

the

same

TBLK.

If

option

1

is

requested,

all

the

changes

up

to

that

point

are

written

out

on

the

requested

TBLK

and

PATCH

goes

back

to

message

1.

The

program

can

be

aborted

at

any

point

and

reinitialized

by

stopping

and

restarting

at

4020.

A

return

to

DIAL

can

be

effected

while

any

display

is

active

simply

by

raising

Sense

Switch

0.

4

0000

*20

0001

/LINC

TAP~

PATCH(.R

CPATCHl

0002

/ALLOWS

USER

TO

MODtrY

k.'!003

/ANY

WORD

ON

ANY

TBLK

Or

UNIT

1

0004

/ADD

QANOA

BEFORE

ASSEMBLY

0005

15

MAR

70

0006 0020

1020

LDA

/DO

!\O

0007

0021

0020

20

/PRESET

0010

00~2

0004

ESF

0011

0021.S

0643

LDf

3

0012

0k~

2 4

6032

START,

jMP

MESS1

001-3

002:;

6057

JMP

MESS2

0014

00~6

6137

JMP

MESS3

0015

0027

6l.60

JMP

MESS4

0016

00;$0

6024

JMP

START

Ql017

0031

6k'l.24

JMP

START

0020

/DISPLAY

0021

IT

BL.

K

0022

00;s2

1000

MESSl,

LOA

002.s

0033

000k:) 0

/RTN

0024

0034

4056

STC

XITMS1

/JMP

0025

0035

7000

JMP

QA?NIT

0026

00

36

0242

TX

T1

0027

0037

0307

ANS1

00.50

00

4eJ

6130

JMP

CH

KS

NS

/CHK

SSW

el

UPON

0031

/RTN

FROM

QA

ND

A

0032

/HERE

WHEN

DONE

0033

00

41

,J.020 lDA I /PTR

TO

00.34

0042 0307

ANS1

/TBLK

0035

0043

6200

JMP

DE

CO

DE

ICVRT

TO

OCTAi..

0036

0044

6024

JMP

START

/NOT

OCT

AL

0037

0045

1000

LOA

/H

OL

OS

0040

0046

~241

ANSWD

/TBLK

0041

0047

1620

SSE

I /MBl..K 4

0042

0050

4000

0043

0051

1040

STA

012144

00~2

0055

iPW01

/READ

0045

?053

4176

STC

TPW02

/WRITE

0046

20?4

0710

RDC

u

0047

005~

0000

TPWD1r

0

0iZJ50

00:>6

~rn00

x1rns1, 0

0051

/DISPLAY

0052

ILOC

005.5

0057

1000

MESS2,

L.0

A

00?4

:00

60

0~~

~0

()

/RTN

i.}

0055

20

61

4127

STC

XI

TM

S2

/JMP

krn?6

~3

0

62

1000

JMP

QA

I

NIT

0kl

5 7 .

~'0

6.5

024b

TXT2

0060

~?64

0012

.ANS2

21061 206::>

6130

JMP

CrlKSNS

0062

V:Gb6

1020

LOA

I /PTR

TO

0063

0~J

6 7

0312

A~~

52

IL.OC

0064

-~

0 7 0 62ii10

JMP

DECODE

.::eh5

.~

7

:L

6l~

25

JMP

START+l

1-N

OT

OCTAL

0066

;~ ~~

7 2 Luk,10

t..D

A /HOLDS

LOC

00

67

~~-1

7 j

0~41

ANSWD

/REL

TO

0072J

liU

74

1120

ASA

I

0071

i)Z 75

740~

...

377

~'0

72

~:;

c 7 6

0471

APO

I

00

7 j

?0

7l

61j25

J~iP

START+1

0074

Z.H~~~

1120

AO

A I /2012l0

f''2l

75

0HH

2377 2012l0+377

0076

0102

1040

STA

/SAVE

.-.0077

0103

0233

LOC

/HERE

~100

0Hl4

4~16

STC

16

01~1

ii'.'105

0077

SET I

17

/PiR

TO

OLD

0102

0106

0256

TXT3+4

/VAL

WD

0103

ei07

1016

LOA

16 /OLD·

VAL

TO

AC

0HJ4

0110

0076

SET

I

1~

/CVRT

TO

DIAL

0105

0111

7773

-4

/CODES

FOR

0106

011~

41.:'.32

STC

TEMP

/QANDA

0107

0113

1000

LOOP,

LOA

0110

0114

~~32

TEMP

0111

Cl15

0243

ROL

3

/1

DIG

IT

Ai

0112

0116

4232

STC

TEMP

/A

TIME

0113

0117

a32

ADD

TEMP

0114 0120

1:>6~1

BCL

I

0115

0121

7770

0116

0122

1120

ADA

I

0117

0123 0060

60

0120

2124

1.577

STH

17

/PUT

IN

QA

ND

A

fH21

/TEXT

STRING

0122 0125

0236

XSK I

16

/DONE

?

01';:3

0126

6113

JMP

LOOP

/NO

0124

6127

a000

XITMS2,

0 /YES

RiN

0125

013(1

0440

CHKSNS,

SNS

0 /BA-CK

TO

DIAL

?

0126

~~

131

70·53

JMP

QA

RF

SH

/NO

REF'RESH

0127

/MESSAGE

0130

/

0132

0076

SEi

16

0131

0133

07

21

RCG

0132

0134

0~

77

SEi I

17

0133

0135

7300

0134

0136

6016

JMP 16 /GO

EDITOR

01.55

/DISPLAY

0136

/OL.D

VAL

xx xx

01.37

/NEW

VAL

19

,_

-

0140

2137

1000

MESS3,

LOA

0141

0140

3000

0 /RiN

0142

?141

H57

STC XI

TM

S3

/JMP

0143

~142

1000

JMP

QA

IN

IT

0144

z 1

'~

j £125 2

TX

T3

0145

Ci

44

Z315

Mil S 3

n46

e i

4'.J

6130

JMP

CHKS

NS

0147

0'.-146

1020

LOA

I /PTR

TO

kH5J

~-~

1 4 7

;3315

ANS3

/NEW

VAL

01:;1

1

~

~~

b2QH1

J~P

OE

CODE

/CVRT

TO

OCTAL

;t}l

52

::

i

s1

6,)

24

JMP

START /NOi

OCTAL

2153

:\l

')2

1:J,~~J

LOA

.J1?4

i.

1

15

j

c.'.41

A>JSWO

/HOLDS

NEW

VAL

2::.

?5

21~4

k10?6

SE.

T 16

/PiR

TO

~)

15

6

y1_:)

5

~

1

2

33

LUC

ILOC

.:'.1'.?7

:.~

:L

~,

6

1.

J'.;)6 STA 16

/CHANGE

rs

IN

<~160

··~

1

~-,

l.

..L

...,,,

~;100

XITMS3,

vj

01

Dl

/DISPLAY

0-102

/DO

..

~'

~

t

:5

/1

WRITE

~-~.:..

~

4

/'"'

'r::.

MCJRE

CHANGES

~?

16

~

"'.'.

l

DJ

10

\:1~1

MESS4,

Li.!A

~'166

.<~161

Z.};JJ

~):

Q;

'1

~?

4177

~;r

c

XITMS4

n

11

• ..,

,,

o~

/.]

2

t..'.

JMP

QA

I

NIT

i..' -!

~

u171

Z2o7

TXT4

~~

1;

;_

l_'

-~

~1

.,

~~

.5

2

~~

A;,JS

4

0173

~·1

bo

0:32

JMP

CH

KS

NS

··-·-'~~:::

~

-7

~:--:-:--o--

-~-__iJ_~

_A

7_

~

..

-i77

___

SLL_I

_1.l_

_

. e:l

75

0170

0S20

ANS4

0176.

--il.7.~-·

13.37

i..OH.

I

17

0177

0172

1460

SAE

I

0200

Z173

0061

61

0201

0174

6025

JMP

START+1

0202

Z175

0714

WRC

u /WRITE

IT

.OUT

21203

f.'176

£j000 TPW02, 0

2204

z

117

.J

;7J

VJ

e;

XITMS4, 0

/Rnl

22125 /STRIP

DIAL

0206

/CODES

AND

U07

/CONVERT

TO

1

2210

/PACKED

WORD

0211

/SKP

RTN

I

F'

OCTAL

0212

/PTR

TO

CODES

0213

II

S

IN

AC

0214

e.20i

0056

DECODE,

SET

16 /RTN

0215

02~!1

0000

0

/JMP

0216

Z202

4017

STC

17

0217

2!:00

4241

STC

ANS

WO

3220

22;;)'1

0236

XSK

I 16

/ASSUME

ITS

OK

0221

0205

1337

NXTCHR,

LOH

I 17

/GET

A

CODE

0222

e206

14.2J~

SHD

I

0223

7:227

7400

/DONE

?

~224

;02U

b016

JMP

16

/YES

0225

0211

1420

SHO

I

0226 0212

3400

/DONE

?

0227

02::..s

6~16

JMP

16

/YES

0230

0214

1560

BCL.

I

/1

DIG

IT

0231

l215

7770

/ONLY

2232

k:216

4232

src

TEMP

/SAVE

2233

2217

2241

ADD

ANSWD

/OL.D

RESULT

0234

~·2a

Z243

ROL

3

/MOVE

OVER

;(3235

Z.2

21

2232

ADD

TEMP

/UPOATE

0236

;3222

4241

STC

ANSWO

/NEW

RESULT

0237

?223

1317

LOH

17

/CHK

THAT

ITS

OCTAL

0240

(?224

1560

8CL l

0241

2225

7707

0242

22~6

1460

SAE

I

2243

::

c_

27

0360 0060

Z244

~,

"<

,.,

'(~

'-

v_

t..

6234

JMP

l.OCFIX

/NOT

OCTAL

0245

2:231

6~05

JMP

NXTCHR

22

46

i:~'.

2 j 2

000~;

TEMP, 0

2247

·.~

r·)

-,

.,_.c_

vV

02100

LOC,

0

02::>0

0'.2

04

hl20

LOCFIX1

LDA

Z251

;·235

7776

-1

2252

.-:156

2216

ADO

16 IRTN

TO

PC+l

~253

''?..37

4J16

STC

16

IVS

PC+2

0.2

54

::

;~

4

:.:

6·J16

JMP

16

£25?

l~

~

41

l~'f

ii

VY

AN

SW

0,

[/:

2256

;:

24 2

J624

2256

(';:-

43

;)214

;:

2

56

~~

2 4

il

U74

?256

:·245

6334

t2

t:i6

TXTl

I

i[Xi

tFTBL.K<3\2

~257

~bl4

2257

'i·C:..

-·

17Z3

il257

' c '

7463

~257

l,

c.

1

34

V·

0257

TXT2,

TEXT

tFLOC<3\2

026')

2

.,

0617

,,

;~2

60

~

3

14

~

1

4

~260

2 4

4226

0260

2 5

0114

JQ«::OiJ

0260

~"-~~91

-

0261

0262

0263

0264

02

64

0264

02,

64

02 64

02

64

0265

02

66

0267

0270

0271

02

72

02

73

02

74

0275

0276

0277

0300

0301

0302

0303

0384

0305

0306

0-5

07

0310

031.1

0312

0313

0~14

0315

0316

;D31]

0320

0321

33t.:2

23

2~~

J3t:4

J325

;.;'.12

=>o

0257

220~

0261

2!2

62

;~

2 6

'5

C264

'.:;::6'.:i

02

66

02bl

027D

~'.:271

~~2

72

i273

0274

\?2 7:,

'32

76

0277

~:

.3

~~:

b

("''"?

q-1

~;0

U..!.

2302

0303

~1304

C3D5

(Z;3

06

ldD7

~'31~3

k-311

0312

f:

1

313

V~)lt;

'~'=31

~.,

?-516

:(

1 -

.._,.J..

I

j

2k.!

321

::SC'C.'

i..

IL

1

«'.

i:· {

Lj

4z;40

4040

4~43

0616

0527

4Z26

0114

7464

3400

2604

1774

6143

ri/661

4027

2211

2405

4306

6240

1517

2235

4~J

03

1J01

1607

0523

34

00

C~J

00

~q;,::10

~000

00

0f';

0000

e~~

;H?l

Z00VJ

Zk'1~.rn

~,

l6

2

'{)

~;~!Yi

2

/,;c0

c;~k·

1

D

TXT3,

TEXT

'H'OLO

VAL

F"NO! VAL

(4

\2

TXT4~

TEXT

tF'D0<1

F'l

WRITE

F2

MORE

CH

AN

GE

S\

2

AN

Sl,

0

AN

S2

I 0

3

AN

S3,

2

AA

AE

NO,

~:

/ADD

QA\DA

/ASSEMBLE

100

SB

PATCH,UNIT~L<CR)

/5

MAR

7'/,

/QANDA

SUBROUTINE

FOR

THE

/POP-12

/REMOVE

61000

BELOW

IF

/INSERTI~G

SOURCE

DIRECTLY

/INTO

YOUR

PROGRAM

SOURCE

*1000

/REttJV[,

IF

DESIRED

I

/TO

~ESE

TJ

I\ITIAL!~E

THE

ROUTINE

!

72e

QAINI

11

l.OA

/SAVE

JMP

RETURN

.;

..:2

;c'.

i;~

k:"·

1?J1

A:JD

G

STA

AJD

J."L.+3

5TC

l

...

:'i

A 1

I j

:-iP

+ 3

IPTR

TO

FIRST

PARAH

/GET

FIRST

PARAM

0326

lt10

3~64

ADD

QAQ+l

/PTR

TO

HALF"WOR0

.. 1

0327

1011

~057

STC

QAG-3

0330

1012

1021

LJ A I 1

03.H

1:~13

:?Z?2

STC

QARFSH-1

0332

1014

4~106

STC

6 /XR6

USED

AS

A

SWITCH,

=0

If

NO

ANSWER

F'IELO,

=1777

l

F'

YES

03

-13

1315

0043

QACA1

SET

3

/XR3

TO

PTR

TO

ANSWERS

~~

3 3 4 1

16

1052

QARF"SH-1

;1J S5 1 . : 7

~j

44

SET

4

/XR4

:o

PTR

TO

QUESTIONS

0336

1z2

yl

P57

QAG"'3

03.57

/TO

HERE

IF

FIRST

TIME

THROUGH

OR

FOLLOWING

A

CR

0340

1

21

U41

SET

1

0341

l/J22

Z,(;04

4

0342

1Li23

7272J

JMP

QAT

0343

1024

0016

NOP

/F

0344

1025

1324

LOH

I 4

/H'

BUMP

PTR

IF H

OR

F

0345

12

26

7231

QAO,

JMP

QAO

0346

1;":27

7;135

JMP

,+6

174

;?)34

7

1030

72150

JMP

QAE

/34

0350

10

31

14

60

SAE

1 /CR?

0351

1032

0¥)

4 3

43

0352

1030

7226

JMP

QAD

/NO

0353

1V34

7021

JMP

QACA+4

/EXAMINE

0354

IINITIALI~E

ANSWER

BUFR

03'5

1

05

1343

SiH 3

174

TO

ANSWERS

0356

12,36

1324

LOH

I 4

/NEXT

HALFWORD

0357

rn37

1120

AOA.

I

~360

1040

7717

-60

0361

Hl41

0017

COM

0~6~

1i142

4t06

STC

6

0363

~i.

0 4 3

13

63

STH

I 3

!IC

! N

AC

0364

1C44

3226

XS!<

I 6

0365

1l45

7043

JMP

.-2

0366

H46

1323

LDH

I 3

/BUMP

PTR

TO

A

NS

WERS

0367

1?47

7026

JMP

QAO

0370

/ANSWER

BUFR

IS

INITIATED

0371

1~~5

0

1343

QAE,

STH

3

0372

lt~

::>1

zc~

6 4 SET I 4 /XR4

TO

PTR

TO

LAST

TYPED

CHAR

IN

ANSWER

BUF'R

0373

P'.:<?

;;:JL1~2

7

0.574 /

........

-RE·ENTER

HERE

TO

RHRESH-·-·

8375

L'.1::>3

H)U

QARFSH,

LDA

/INITIAL

y POSITION

0376

rn:,4

'i~2

77

27

7

0377

1(-'.:

5 5

?113

STC

QAH

...

1

21430 1

c.~

':)

6

.-~

6 3

StT

I 3 /XR3

TO

PTR

TO

HALFWORD

QUESTIONS

..

1

0401

1

57

~

:~j

0

k~

(l

;;,

('.)402 i

..

-~

6

Y.

0

.)

~~

4 5

SET

5 /XR5

TO

PTR

TO

LAST

DISPLAYED

CHAR

IN

ANSWER

BUF"R

~H

03

1 61 1

52

GARF'SH-1

24e14

1./6~

~~

/·

41.

QAG,

SET

1

li4

L~5

U6~

.'.

2

1

k:l3

3

0406

1::

')4

7.27U

JMP

QA

T

~~

4

~

7 L1

b')

I

.:.

17 4

J~1

p • + 7

IF"

;J

41J

1~:.6

()

15

2

,S

LDf..i

I 3

/H,

8UMP

PTR

~1411

l

~:'

6 /

~

'.i.,I

Lu

A I

/!\JEl

THER,

ASSUME

HALF

SI

i!E

!41?

l?

7

.-1

l

":i•<'

t1C

L I

•.

< 1 •

~

...

~

,)

.)

~

'

~~

STC

QA

'."1+2

/SET

!

NSTR

TO

CLEAR

FF

FOR

HALF

SI~E

/414

..

-1

:'

t.'

)

.)

..L.::

A;JD

JAW

lf\lCF

IN

AC

8415

C7

.5

·,1

,--~

~7;

1 J:"\P

QAM

J4lb

.

'/

/l

L 5

{~

3

l_DH

I

:s

/8UMP PTR

0417

':"/'_5 , ?

z~

L'.J

A I

/14

2;)

,:·-

/

f)

i

~.)

~~

i.:'~

3SE I

{)4

21

~J

/ 7

_)

l.

J

:s

STC

QAM•2

/SET INSTR

TO

SET

FF

FOR

FULL

SIH

0422

1

I~:'.~

_._

...

_

....

,'.S"JU

AD

0

QAW+1

/ADD

9U

IN

AC

04~3

lk:il

~245

GAM,

STC

QAP+3

04

::>4

j

~J

2

1:1:12

4

M::;C

I 4

/EAD

CONTROL

REGISTER

H23

_HZ$

0427

0430

2'4

31

24-52

Z.433

J434

2435

;?436

24

37

0440

0441

2442

i]443

J444

24

4?

2446

~447

D4::>0

0451

0452

2453

0454

z45:,

~~

4

56

2457

0460

J4

61

~4

02

l4

63

~~

4

64

24

65

Z466

0467

J4

72

~4

72

;;

4

73

.~4

74

~:

4 7

'..:)

~~~

~ ~

6

;~~477

..

~'5

0t;J

2?J3

~?

04

;.;:;

C'.5

~~5

J 6

14.~

5:

2

\:'·5

:3

~'l

5:

4

~-)

j,. 5

-,._;;

l,,,.,.,J

.,;,

........

252

2~2

1U3

,Ll_,Q4

11.tl5

11

~;,6

11

'..7'7

111~;

1111

11:.3

1114

111'.:i

1ilb

1117

11211

1121

11

!:'.2

:1.12

.s

11~4

1125

11~6

1127

11.Si

1131

1132

1103

113

4

11.55

1136

1137

114D

1141

114~

1143

1144

:'..145

....

146

11'.:il

J.1?;2

:1?3

~

...

..:.....

~

~\.

.,i..

.~

~

1 1 64

-i

\_

152~

n(30

.JZrH

;A(~6:1,

li.20

7737

-.~

'":'~

n

..

._.,:

J.,'

l.J

:'..323

ld32

7

~~

01

7136

142J

4 3

~H:~

7J62

7242

1114

7242

1520

7510

1325

7232

7_114

7114

7125

75

21

04

70

7004

02

62

1412

14

02

7311

1422

7

t!.2

3

/2

~6

7 J 53

1422

7175

1422

7

505

1422

7ci15

~

..

4 2 2

7

53

1422

7175

1~22

7>153

?172

7231

/

:?

63

72o3

1:5

22:

1

·-

7 2

:,)

:.~

\'J

/;

"4:

7 ,

..

, l

~~

4 4

0.

~:

7,)53

? 1

:s

iJ4

.::...:..

7S

7:232

77

7J53

)

:~

'.?

~

7 7

~

QA

J,

SSE

200

:-1SC

4

SET

1

10

0

L.DA

-40

1..DH

I 3

J~'1P

QA0+1.

JMP

QAt

JMP

Q.\J

SHD

I

430!2!

JMP

QAG

JMP

QAP

JMP

QAH

JMP

QAP

SRO I

/SWITCH

JMP

QAF

LJY

I 5

-J'·:

P

QA

O+

1

JMP

QAH

J't, P

QA

H

J~~P

QAI-4

J~

P

GE

TK

BO

AE

I

/THIS

INSTR

CHANGES,

EITHER

BSE

&

OR

BC(

&

-

-·-

-

/AC

TO

CONTROL

REGISTER

/XR1

lO

INlTIAL

X

PQSIT!ON

/Y

COORDINATE

MULTIPLE

/Y

COORDINATE

/74

BUMP

PTR

TO

PUT

40

lN

AC

/34

/NEITHE:R

/CR,

MOVE

X

AND

V

COORDINATE

/ISPLAV

CHAR

/PICK

UP

/TO

HERE

Ir

DISPLAYING

ANSWER

surR

TO

DISPLAY

CURSOR.

EITHER

0000

OR

7777

/IFXR4=XR5,

THEN

SWITCHs7777

/QUESTION

MODE

174

/34

/NEITHER,

DISPLAY

IT

0

HE

RE

I F 0 I

SP

LA

YE

0

BU

FF

ER

JMP

QAB

/NOTHING

TYPED

.

EXIT

SET

I 2

QAY

SHO

2

JMP

QAK+4

SHD

I 2

J"1 P

QA

N

\St< 6

-..i"\P QARFSH

3r1D

I 2

J:~

P

QA

L

S!-iO

! 2

J·'~P

QAK

ILF?

/YES.

EXIT

/CR?

/IS

THERE

AN

ANSWER

FIELD?

!<?

I>?

SriD I 2 /ALT?

J

~.,

P

QA

CA

IRE

IN

I T I A

LI

~

E

S~J

I

~

/BACK

SLASH?

J~P

QA~FSH

!IGNORE

:;;iQ

I 2

/RUBOUT?

~~P

QAL

/IGNORE

s~J

1 2

/TAB?

JMP

QARFSH

/IGNORE

S1C

t+'

/ACCEPTABLE

CHAR

~~

:AO

/TEST

~~

0

QAQ

/74

BACK

PTR

UP

BY

1

J~P

GAQ

/34

'

L'J.; I

/OK~

STORE

IT

.)"1p

4

QAO+i

~

.....

~p

Q,~RrSH

_,.;

~7)

/t~ED

iSPLAY

/TO

HERE

IF

RU88!0

OR

<

174

IGNORE

~5,4

~~25

0~26

:'~27

v~

>3it

0:;

3.l

e532

0533

0534

0535

0536

_0537

0540

0541

0542

0543

0544

0545

0546

0547

0550.

fQ55l

0552

0553

0554

0'~5

0556

-·-·

"~57

0560

~561

0562

~593

~564

0,65

0~66

0567

0570

0571

0572

0573

0574

0575

0576

0577

0600

0601

0602

0603

0604

0605

0606

0607

0610

0611

0612

0613

0614

0615

0616

0617

0620

0021

"62(

1201

1202

1203

1204

u;;;,

1d06

1207

1210

1211

1212

1213

1214

1215

'

...

"""'.t

...

/

.i.&;.J.U

1217

1220

1221

1222

1223

1224

1225

1226

1227

1233

1231

1232

1233

1234

1235

1236

1237

1240

1241

1242

1243

1244

1245

1246

1247

1250

1251

1252

12?3

1254

12?5

1256

12~7

1260

1261

U62

1263

l2b4

1265

1266

1267

1270

1271

1272

1273

1602

1460

--

0:037

7263

r:;

)4:)

;iJ:i

04

%'J43

0:304

7213

1325

1623

72 32

0016

0011

1345

0450

7212

7263

0206

7311

7231

7053

70

51

7225

1j24

J.420

7400

6000

1460

0034

0220

6000

0241

3430

4002

-5506

3506

~001

4001

2~105

~HH7

2004

0450

0011

5127

3113

1742

1762

6

~12J

0

1020

3777

1140

•J004

7053

1321

1420

0600

6000

QAN

I

QAO,

QAP,

QAQ,

QAT,

LOH

2

SAE

I

37

JMP

QAQ

SET

5

4

SET

3

4

JMP

,+2

LOH

I 5

LOH

I 3

JMP

QA0+1

NOP

CLR

STH

5

AZ!E

JMP

,

-7

JMP

QAQ

XSK

6

JMP

,QAK+4

JMP

QA

0

JMP

QARFSH

JMP

QAE+l

JMP

QAN+2

LOH

I 4

SHD

I

7400

JMP

0

SAE

I

34

XSK

I 0

XSK

I 0

JMP

0

ROL

1

ADD

QAX+4

STC

2

ADO

QAU

ADD

QAU

ADD

1

STC

1

ADD

5

COM

ADD

4

AtE

CLR

STC

QAI-2

ADD

QAH-1

DSC

2

DSC

I 2

JMP

0

LOA

I

-4000

ADM

4

JMP

QARFSH

LOH

1

SHD

I

060~

JMP

0

/TEST

THE

CHAR

/RUBOUT?

!NO,

BACK

P-To-~·~---~

/BUMP

PTR

/GET

/IF

74

OR

34,

REPLACE

CURRENT

CHAR

WITH

0

/WAS

IT

74

OR

34?

/NO,

CONTINUE

/BACK

PTR

UP

BY

1

/TO

HERE

IF

CR

/EXIT

ROUTINE

IF

NO

ANSWER

FIELD

/74

MOVE

PTR

TO

FIELD

/34

END

OF

BUFR,

MOVE

PTR

TO

FIRST

QUESTION

rIELD

/S\R

I

+1

74

BEGIN

f

lELO

I

+2

34

END

BUFR

I

+3

NEITHER

74

NOR

34

/S\R

TO

DISP

LINC

CHAR

IN

AC

/MULT

BY

2

FOR

INDEX

TO

ADDRESS

OF

TABLE

/ADDRESS

OF

CHAR

TO

OISP

IN

XR2

/THIS

INSTR

CHANGES,

EITHER

OP

OR

ADD

9U

/ADD

4

TO

XR1

TO

SPACE

CHAR

/GET

ADDRESS

OF

ANSWER

BUFR

/SWITCH=0

OR

7777

/Y

COORDINATE

IN

AC

/DISPLAY

CHAR

/BACK

UP

PTR

BY

1

/REDISPLAY

I

/S\R

I

+1

F

+2

H

-t3

NEITl:~ER

0623

_,~----

__

,062~

0625

0626

0627

.0030

(!1631

C633

0634

0635

0636

0637

0640

0641

0642

0643

@644

0645

0646

0647

0650

0651

0652

0653

0654

0655

0656

06

57

0660

0661

0662

0663

0664

0665

0666

0667

~~6

70

;(;671

0672

0673

~l\6

74

0675

(J\7

01

0702

07~3

0705

ti 7

~j

6

~1707

~717

27

2;j

1274

127~

1276

1277

1

:H.rn

.J.301

::.

3

~::.3

U04

13

~~5

1306

1307

1310

1311

:1312

1313

1314

131:,

13:!.6

1317

1320

1321

1322

J.323

13

24

1325

1326

1327

1330

13

31

1332

133-:i

1460

00Hi

0220

62~2

:.

:~

2 3

:;

;4z

7::.25

1324

0470

7263

7424

1020

21001

1140

1:2Z4

7004

0101

~\:01

4477

7744

5177

2051

4136

2241

4177

3641

4577

4:

45

4477

4

::

44

4::_

36

:3~6

':77

1337

771~

:S4~

774:

J..341

...

~!4·:

13

4~~

,l

-I

4 2

},

~~

i.

c-

..

-~

4 7

,.,

~

-._;

•t.:.,;

.l..

~

:~-

7 7

QAt1

QAK,

QAV;

SAE

l

:lJL

_____

XSK

I 0

XSK

I

121

JMP

0

LCH

3

L[;

A

4()

JMP

QA

1-4

LOH

I 4

AtE

I

JMP

QAQ

JMP

QAX

LOA

1

ADM

QAB

JMP

QAB

0101

0Hi1

4477

7744

5177

2651

4136

2241

4177

364j,,

4577

4145

4477

4;;

44

4136

2645

1077

7710

7741

013

41

41_42

4076

1077

4324

11

77

z,301

31:177

7730

,)(l/

7

7706

'1

77

41

-f

4

7'7

3044

.::'c:

76

vJ3

7 6

44

77

3146

5121

I~

b

51

4C40

I

!TO

HERE

IF >

/IS

CURRENT

CHAR

BLANK?

/YES~

IGNORE

/MOVE

DOT

FORWARD

!TO

HERE

TO

EXIT

WITH

SKIP

/CHARACTER

PATTERNS

/KBO

0,

ILLEGAL;

USED

AS

MARKER

/2:8

/3:C

/4:0

/5:E

/6

:F

17

tG

/10:H

/ 1

:1.:

I

/12!J

/13:K

/14gL

/151M

/22:P

/21~

/22:R

123:5

/24!T

0722 1367

4077

4;"77

07230

1370

0177

.12.

5

UJ

......

0724

1371

7701 7701

0725

1372

0176

/26:

v

0726

13

73

7402

0727

1374

zr,77

:/J677

/27:W

0730

1375

7701

0731

1376 1463

1463

/30:X

0732

1377

6314

0733

1400

0770

/31;Y

0734

14V1 72J07

7007

0735

14~:2

4543

/32:t

0736

1403

6151

0737

1404

4177

/33U

0740

1405

0J00

2!000

07

41

/34:BACKSLASH

IGNORED

ON

INPUT

0742

141:".6

~~000

e

/NOT

USED

0743

1407

02100

~1

/NOT

USED

0744

1410

0000

~~0

00

/35:J

0745

1411

77 41

7741

0746

/CODES

36:ALT1

37:RUBOUT

NOT

DISPLAYED

0747

1412

4543

QAY,

4543

/LF,CR

0750

1413

7476 7476

I<,>

0751

1414

3634

/ALT, BACKSLASH

0752

141?

:~

·;

4 7

3747

/RUBOUT,

TAB

0753

1416

iH~00

0000

/40:SPACE

0754

1417

;J000

0000

0755

1420

75

k1k)

7500

/41:X?

0756

14

21

02

0~~

0030

07 57

14

22

70

00

7000

/4

2:

"

016J

1423

inz

J370

PH

/CODES

43:

,

44:,

45:LF

NOT

DISPLAYED

375~

1424

72

32

QAX,

JMP

QA0+1

37o3

1425

7263

JMP

QAQ

07

64

1426

7263

Jrv1P

QA

Q

0765

14

27

7

5.3

Y1f'

QARFS-H

0766

143U

:!_,)16

QAV

i/767

J.

4

01

~J

/

~~

~-~

0

/NOT

USED

Vi77J

j_

4

.32

'):~

66

5166

/4

6:

&

0771

14

.):_)

,,?26

v~

5 2 6

nn

/CODE

47:

TAB

NOT

DISPLAYED

0773

~-

4 j 4

;'

. J

,~

'.:·;

x)

/NOT

USED

~)7

7 4 J 4

35

,'

}

,~;I)

;.; /NOT

USED

0775

1 't

~~6

~)

b

;;

£1

30~0

/50:

(

(!)776

!

4.)

7

.·~

41

~~

,)

41

;p77

14

4

;;~

1

-11

JV

4100

/51:

)

10~0

:441

,·.

·1

.St'

S,36

Hrn1

::_4

42 2

~

5~)

2~150

/52:*

1~'1

~2

1_

4

4j

)

..

J5?

Vll:H50

F

1

~'3

1444

j-4

,:.,4

.~41~4

/53:+

1~

1

04

l44S

J437

i(14

37

1~J~.~?

·~

.4

6

'?

J2'

;'

1

500

/54:

.

j}J6

·~l

~

7

·-

c

._'1'.U6

J..C1;?i7

/*

~:'

'~

!:

4

,·

·~

~}

4

/55:-

1Vl10 4'.)1 4

,;::;4

,·,4 ci4

1f~'1:

I~

~-)

~

'

i,

,1.1

,i

k' J 1

/56:

.

_:.

~):

2 4

:),)

j

('~

;~

...

~-'

~J ~~

1Jl3

.:t

)4

Zb

;-'1

-~b

01

/57:\

1J14

4

~5

43

3C

4~,30

HH5

4?b

4'.:>36

4'.:i

36

/60:0

1010

4

'j7

5651

3651

HH?

460

21kll

2l~H

/61:

1

.,

QI.,

QI

A

61

1/11

77

(,11

77

1021

1462

4523

/62&2

1022

1463

2151 2151

1023

:;_

4

64

4122

/63:3

1024

1465

2651

:1.025

1466

2414

/6414

1026

1467

0477

04

77

1027

14

70

5172

/65:5

::.l-30

14

71

1;651

0651

1031

1472

15;~6

1506

/66:6

1032

1473

4225

1033

1474

4443

/67:7

1034

1475

62150

6050

1035

1476

5126

170:

8

1036

14

77

2651

1037

1500

5122

171:

9

1040

1501

3651

1041

1.

5

02

2200

172::

1042

1~03

0000

00~0

1043

1504

4601

173:;

1044

15

05

;~000

1045

/CODE

74:<NOT

DISPLAYED

1046

1506

"002

QAU,

2 /CONSTANT

1047 1587

0002

0

/NOT

USED

1050

15

li~

1212 1212

/75;

=

1051

1511

1212

1052

/CODE

76:>

NOT_

DISflLAY£D

1053

1:>12

0016

QAW,

NOP

10

54

1513

35

06

ADD

QA

U

10 55

1514

40

20

4020

17

7:?

1056

1515

2'./

55

2055

10

57

I

10

60

16

17

bZ

QA

F,

DSC

T

~

rn61

17

6000

1062

22l

7131

JMP

QA

I

1063

I

1064

/END

Q+A

1

~165

I

12166 I

1067

I

1070

I

1:071

/KEYBOARD

INPUT

ROUTINE

12

72

I

li175

QAKR8=61Zl36

/PDP

.. 8

!OT

KBD

HJ

74

QATSF=6041 /TSF

U75

QATLS=61Zl4A

ITLS

1076

I

1J77

;~

1 1 il:J

GETKBQ,

LOA

11J2

:?2

3

(~ ~~

e1

11~H

2

~5

?643

STC

QAEXIT+6

/SAVE

RETURN

1102

24

c

~l

2'

1

ADD

1 /SAVE

XRS

1

ANO

2

11

~~3

21)

56~0

STC

QAEXIT+3

1104

i.b -

/2

ADD

2

11V5

~)

2 7

'lti4?

STC

QA.EX

IT,~5

11

~J6

~)

.)

tt

'?6

36

s

...

,...

i~

QAEXIT+l

11<:7

":i3l

~;

1

'.5

;<'

r··

T

,_:)I

/WAS

SOMETHING TYPED?

111

t_1

-, j

h,,::

~Iv

J''iP 0 /NOl

EX

IT

1111

•,

....

'\

.......

~~

!0

./:

108

v

'-

... )

..l.

L J. -

'j

.)

·~

0

5o

QA

KRB

/GET

TTY

CHAR

t

CLEAR

FL.AG

1113

0-~,

1,: 6.'i

STA

I /SA.VE

IT

....

-

1114

56

~1

:~)

~,

0

QA

TY,

0

1115

__

-~)

j 7 1 .. : 2

~-

ADA

I

111b

-,_::."C"

/

'j

4~~

-2

37

1117

·~

'.?

41

~4:;

1

APO

/BETWEEN

200

AND

2377

1547

:5

'.;)2

/:?

61

16

54

7'7J

1'.:J

36

1461

7554

I

JMP QACNTR

SET

I 1

QACHAR-1

SET

I 2

-7

LOA

JATY

SAE

l 1

JM

P , + 2

/CONTROL

CHAR,

CHECK

tOR

CR,Lt,TAB

/NO

11U

1121

1122

.1123

1124

1125

1126

1127

1130

1131

1132

1133

1134

1135

1136

1137

1140

1141

1142

15~3

7635

?222

'7?51

JMP

QAEXIT

/ILLEGAL

CHAR.

OONT

ECHO

1554

XSK

I 2

/CHECKED

THEM

ALL?

1143

1144

1145

1146

.1147

1150

.1151

1152

.1.153

1154

..

115_5

1156

.-11.57

1160

.U61.

1162

...

l.163

1164

J,195.

1166

.-1197.

.1170

1556

:557

1561

1562

15

64

::..5

t-5

15

6b

1::i

6 7

15

71.'

1571

1572

1573

157~

'J.575

1576

,1577

1MH

1622

l6~i3

112il

74

40

24

51

7575

1461

7''J72

10

20

23

34

7644

()2

37

7637

14

61

7635

_1637_

iQ00

1536

?644

3536

1560

7700

7637

1111

1634

1460

1172

1605

7755

_.1173.

--

1(?__06_

]6_21.

1174

1607

1020

_11z.5

".191¥3

0043

1176

1611

5636

.1177

-

--

-

1612 1020

-

1200

1613

0215

~1201

.1~14

7644

i202

1615

1020

~~12.0.3.

16

lq_

ij_(212

1204

1617

7644

-12.05

16

{!;j

7 6

3?

I

.-4

AOA

I

..

337

APO

JMP

QALEGL

SAE

JMP

LO

A

334

JMP

LO

A

37

JMP

I 1

,+7

I

QATPE

I

QAEXIT+2

SAE

I 1

JMP

QAEX

IT

JMP

QAEXIT+2

QALEGL•

LOA

QATY

JMP

QATPE

ADD

QA

TV

BCL

I

7700

JMP

.Q~~)(U+2

/TO

HERE

IF'

CONTROL

CHAR

QACNTR,

SAE

I

7755

.JMP

QACKLF'

LO

A·

I

43

~'

STC

QAEXIT+1

LOA

I

215

JMP

QATPE

LOA

I

21~

JMP

QATPE

JMP

QAEX

lT

.1206

I

....12.01.... _ 16.21

___

H60

..

QACKLf.1

.SA.E

.1

-.1.210

1622

7752

• ..12.11.....

..

.....

.1..6-23

]627

.

___

JMP

,

+.4

1212

1624

1020

LOA

I

..12.13.

-~-·------162

5

..

0

0.

45..

_ 4

:L_

_ . .

__

_

.12!4

1626

7611

JHP

QACNTR+5

/BETWEEN

240

AND

337?

/YES.

LEGAL

CHAR

/NO,

CHECK

FURTHER,

/RUBOUT

/ECHO

BACKSLASH

/LEGAL

EXIT

IILl..EGAI..

/ALT

/EXIT,

0-0NT

ECHO

/ECHO

CH~R

/CR

/LF'

~~----_____,l.6:Z..1

..

,.

__

..l!lbJ\t_

..

____

-·--·-----·-··-·-S.At

...

-1

...

----~----··

________

··-----------·-·--·--------

..

----------·-·------

____

..........

------··

.....

_

.....

____

......

_

'--1"~,_.·~·;:···J_·

...

_J>

J<...,.

__

...... _....

...,

...

~.

-----

1217

1631

7635

JMP

QAEX

IT

II

LLEGAL

•••.

- -

..

~--:-,

--

------~

¥.

-·~:~

.

.1220

1632

1020

L.D

A 1

1221

1633

0l:47

~-······---.,.,~--

·-·--

47

1222

1634

7637

j~~

p

QAEXIT+2

IEX!T,

DONT

ECHO

,

.,.....

.........

'"--···

...

'"'-'"·-

1223

I

1224

16

05

1'.:,'

2,)

QAEXIT,

LJA

/GET

6

..

BIT ASCII

1225

1636

CL?

~J

0 e

1226

::.

:')

j 7

;;

?J

Ol

S

~~

T 1

/RESTORE

XRS

....

1227

16

4

~~·

zc~c~~

c~

1230

1641

0062

SET

2

1231

1642

i~000

;~

12s2

1640

6Z00

JMP

IEX

IR

S\R

GETKBQ

1233

/S\R

TO

PRINT

CC

AC.)

1234

1644

05~0

QATPE,

108

1235

1645

6J46

QATLS

/POP-8

IOT

TLS

12

36

1646

1000

LO

A

12 37

16

4 7

0000

0

1240

16

5~l

5654

STC

,+4

/SAVE

RE

TURN

1241

1651

0?00

IO

B

1242

16'.:l 2

6041

QATSF

/WAIT

F"OR

F'LAG

1243

1653

76

51

j~

p

.-2

1244

16

:;4

6000

JMP

/EX

IT

1245

I

1246

1.6?5

?243

QACHAR,

243

/HASH

1247

16

j6

~J2

44

24

4

/DOLLAR

SIGN

1250

1657

0245

245

/PER

CENT

1251

lb

6~J

~02

4 7 24 7

/APOSTROPHE

1252

16

61

~3

00

31'.!0

I AT

SIGN

12

53

16

62

J3

36

33

6

/UP

ARROW

12

?4

16

63

l13

37

33 7

/8

ACK

AR

ROW

12 55

16

64

00

40

4?l

/RUBOUT

12

56

16

65

00

36

/ALT

1257

/ENO

OF

S\R

GE

TK

BO

AAAEND

-

·-A.NS.WO

ANS1

ANS2

Ar~ss

M~S4

CH

KS

NS

DECODE

GETKBD

LOG

LOCFIX

LOOP

MESS1

MESS2

MESS3

MESS4

NXTCHR

QAB

QACA

QA

CHAR

QACKLF

QACNTR

t)AD

QAE

QAEXIT

QAF

QAG

4322

424_1

4307

4312

4315

4 .520

4130

42L

0

5521

4~33

4204

41U

4032

4057

4137

4160

4205

5~104

5015

5655

56d

5604

5

v32

6

5050

56.55

5516

5062

~AH

:.;114

g~iNIT~t--

QAJ

~6

_

QAK

?;)05

QAKRB

6;;J36

QAL

?175

QALEGL

J?75

QAM

?HH

QA

N 5223_

..

QAO

52.51

QAP

5242

QAQ

5263

QARF'SH

5053

QAT

5270

__

QATL.S

6 04 6 _

QATPE

5644

QA

lSF

604L

QATY

5536

QAU

5506

QAV

5316

QAW

5512

QAX

5424

QAY

5412

QAc

5301

START.

4024

__

TEMP

4232

!PWD1 405.5

TPWD2

4176

TXT1

4242

TXT2

4246

TXT3

4252

TXT4

4267

X I

TM

S-1

4 0 5

6.

XI

TMS2

412

7

XlTMS3

4157.

XITMS4

4177

DEC 12 TW2A D_PATCH_Mar70 D PATCH Mar70

DEC-12-TW2A-D_PATCH_Mar70 DEC-12-TW2A-D_PATCH_Mar70

Navigation menu

Versions of this User Manual:

Views

Navigation