PRMSFT_IMP 16_PROM_Programmer_Mar75 PRMSFT IMP 16 PROM Programmer Mar75

REVISION-G

05/16/74

04/02

5:41PM

PRMSFT

P00343B

03/19115

PAGE

NUMBER

1

0000

2

0000

3

0000

4

0000

5

0000

6

0000

7

0000

,,,,8

00000

q

0000

10

0000

11

0000

12

0000

13

0000

1..4

0000

1')

oooe

16

0000

,.11

0000

18

0000

19

0000

,20

0000

21

0000

22

0000

,,23

0000

24

0000

25

0000

.,,26

.,.an.Q

0

27

0000

28

0000

29

",.o.no

0

30

0000

31

0000

·

..

•

..

•

·

..

·

..

·

..

·

,

....

-'

......

·

..

·

..

·

..

·

..

·

..

·

•

·

...

·

..

·

..

·

..

·

..

·

..

·

....•

·

..

.TITLE

PRMSFT

•

P00343B

03/19115'

~OFT~APE

FOR

THE

PR(M

PROGRAM~ER

fOR

THE

I~P

16l/16P.

WHEN

USING

IMP-16P

WITH

A

CARD

READER:

1.

PRESS

INITIALrZE.

2.

seT

PC

(PQOGRAM

COUNTER)

TO

X'

7FOO~

3.

SET

,DISPLAY

SWITCH

TO

PHOG",

DATA

pOSITiON.-

4.

LOAD

CARD

CECK

TN

CARD

READER.

5.

PUSH

RESET

eN

CARD

READER.

6.

WAIT

UNTIL

GREEN

READY

LtTE

_IS

LIT.

1.

PUSH

RUN

CN

PRCCESSOR.

8.

CARDS

WIll

BE

READ

IN.

9~.

PROGRA~

IS

NOW

READY

TO

USE.

WHE."

L.

2.

3.

4.

5.

6.

""7

.4 ....

__

8.

9.

10.

11.

12.

USING

IMP-16L

WITH

A

CARD

READER:

.

PRESS

INITIALIZE.

PUT 2

CRBGOT

C~RDS

AT

FRONT

CF

DECK.

PUT

lBseR

DECK

NEXT.

. PUT .

CARD

CECfC

__

fOR

PRMSFT,NEXT_

•.

PUT

A

GO

CARD

O~

THE

END.

PUT

CARD

CECK

IN

CARD

READER.

eiJ.s.tt~RESEI

..

ON.

CAR.D.,REACER,

....

,

WAIT

VNTft

GREEN

READY

LITE IS

tIT."

PUSH

AUXl,

ONE

CARD

WILL

BE

READ

IN.

PUSH RUN.

CARDS

WIll

BE

READ

IN.

PROGRAM

IS

NOW

READY

TO

USE.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21._

22.

23.

24.

25.

26.

21.

28.

29.

30.

31.

32.

33.

34.

35.

36.

3'1.

38.

QPVISION-G

05/16/74

J 4 / a 2 5 : 4 1 P

'''I

P~MSFT

PJ03438

03/19/15

PAGE

"jI.J~JlgER

2

32

0000

33

JOOO

14

0000

35

0000

36

0000

37

0000

38

0000

.

39

0.000

40

0000

41

0000

42

0000

43

0000

44

0000

45

0000

46

0000

47

0000

.48

00.00

49

0000

50

0000

51

0000

52

0000

53

oeoo

54

000-0

55

0000

56

0000

.

5:11)0.00-.

".

58

0000

59

0000

b D

...

00.0.0

61

0000

62

0000

63

0000

64

0000

65

0000

66

0000

67

0000

68

0000

69

0000

70

0000

71

0000

72

0000

73

0000

14

0000

1f5

0000

76

0000

77

0000

18

0000

79

0000

80

0000

Bl

0000

82

0000

83

0000

·

"

;

·

"

·

..

·

•

..

'.

,.

..

'II

·

•

·

..

·

..

'"

...

·

..

·

..

·

'It

·

..

·

..

·

..

·

•

PAGE

COMMANDS

USED

WITH

PRMSFT:

TERMINATOR

IS

CARRIAGE

RETURN.

CR

G(HEX

ADDRESS)

CR

GO

TO

~EX

ADDRESS.

H.CR

RE~D

oRCM

TO

WRITE

BUFFER.

I

Ck

(RUB

OUT

FIRST)

READ

COMPLEMENTED

BINARY

TAPE.

J

CR.

READ

RLM

CARDS

TO

TE~P

BUFFER.

K

Ck

lRUBOUT

FIRST)

READ

TRUE

EINARY

TAPE.

L

CR

READ

RlM

PAPER

TAPE

TO

TEMP

BUFFER.

M(HfX

ADDRESS)

CR

MOVE

DATA

STARTING

AT

HEX

ADDRESS.

N

CR

READ

PAPER

TA~E.

o

(HEX

NUMBER)

CR

SET

STARTING

ADDRESS

Of

TE~P

BUFFER.

P

Ck

CHECK

IF

PROM

IS

ERASED

THEN

PROGRAM.

. lJ

...

CR

PRINT

IHE

CtlECK

SUH

..

OE

.IHE

._PRO

M

•.

R(HEX

ADDRESS)

CR

READ

AND

TYPE

PROM

STARTING

AT

HEX

ADDRESS.

S

CR

SET

MonE.

TlHtX

ADDRESS)

CR

TYPE

MEMORY

STARTING

AT

HEX

ADDRESS.

V

(HEX

ADDRESS)

CR

VERIfY

PROM

TO

WRITE

BUFFER.

WIHEX

NUMBER)

CR

FILL

TEMP

BUFFER

WITH

HEX

NUMBER.

X

CR

PRINT

THE

CHECK

SUM

OF

THE

WRITE

BUFFER.

Y{H~X

ADDRESS)

CR

PROGRAM

PRCM

STARTING

AT

HFX

ADDRESS.

1

Ck.

CHECK

IF

PROM

IS

ERASED.

(--------

TYPE

MODE.

BACK

ARROW.

$

TYPE

TEMP

BUfFER

ADDRESS.

ALT

MODE

ESCAPE

FROM

KEYBOARD

REOUEST.

WRITe

BUFFER

IS

fRO~

X'OEOO

TO

X'OFFF.

FOR

MM52D3

CNLY

THE

lOWtR

BUFFER

IS

USEO

X'OEOO

TO

X'OEFF.

39.

40.

41.

42.

43.

44.

45

•

46.

47.

48.

49.

50

•

51.

52.

53.

54.

55.

56.

57.

58.

59.

60.

61.

62._

63

•

.6!t.

65.

66.

61.

68.

69.

10

•

71.

72

•

73.

74.

75.

76.

77.

18.

79.

80.

Bl.

82.

83.

84.

85.

86.

87.

88.

8<:t.

90.

REVISIO~-G

05/16/74

o 4 /

02

5 : 41

p~a

PRMSFT

P00343B

03/19//5

PAGE

NUMBER

3

84

0000

..

PAGE

91

•

85

-0000

• BSECT

92.

86

0000

2403

8

BSTART:

~j-1P

@.+3

;

R_'=COVER

FROM

INIT

93.

87

0001

0002

R

.::

.+1

:DUMMY

94.

--

88

0002

0003-

R • =

.+1

;DUMMY

95

•

89

0003

0304

A

.WO

RD

SPACE

96

•

90

0004

DOOR

B ·

.:

•

+07

97.

91

OOOS

089A

A

SETPl:

•

WORD

SSETPL ;SET

WHICH

PROCESSER •

98.

92

oooe

0891

A INTEST:

.WORD

(TEST ;

INPUT

FROM

KEYBOARD.

99.

93

0000

0848

A PU Te : •

WORD

PPUTe

:WRITE

TO

TTY.

100.

9-4

_OODE

084.C A

GETC:

.WORD PGETC

;GET

CHAR

FROt4

TTY~

101.

95

DOOF

0880

A GECD: .WORD

PGECO

;GET

AND

ECHO

CHAR.

102.

96

0010

OOFF

A

BUFEND:

.WORD

255

:L

ENGTH

OF

ROM

ADDRESS

SP

AC

E.

10.3 •

91

0.011

..

0.342

A

..

M.E

SSA_:

.W.DRD

MESS ; P'Q.LNIER.TO. PR I NT .ME.SSAGE.

104.

98

0012

DOfF A

MFF:

•

WORD

OFF

;~ASK

FOR

LEAST

BYTE •

105.

99

0013

01FF

A 1<511:

.WORD

511

;lENGTH

OF

4K

BUFFER.

106.

..

-

..

_

..

10.0--

. 0'{114

...

OA9.ll

..

AL~RO_MLA

:

..

WORD

ROMI

-';POINTER

TO

INCR

RnM._~

____

107.

101

0015

048C

A

SPACA:

.WORD

SPAC

;POINTER

TO

PRINT

ONE

SPACE.

108

•

102

0016

DeOF

A KF: •

WORn

OF

;MASK

FOR LSD.

109.

.1-03

....

0017

0.000

A

FLA.G.:

.WORD a

;INDICATCR

fOR

HEX

WORD.

110.

104

0018

0000

A

AFLAG:

•

:WORD

0 ; I N

f)

I

CAT

iJR

FOR

ALPHA

weRD.

111.

105

0019

0000

A WHAT: •

WORD

0 ;LAST 4

HEX

WORDS

•

112.

106

OOIA

0000

A

~HERE::

•

WORD

Q

;LAST

2

ALPHA

WORDS

•

113.

107

0018

OOIC B

AC

0:

• =

.+1

114

•

108

OOle

0010

B

AC

1:

• =

.+1

115

•

.1.09_

. .0.0.10

OOIE

B

AC2:

• =

.+1

11_6 •

110

OOIF.

GOlF

R

AC~:

. :

.+1

117

•

III

GOlF

0046

A

t<46:

•

WORD

(}4·1)

;

AS

C1

I F •

118.

112

0020

0002

A RR:

.WORD

2 ;REP

RATE.

119.

113

0021

DODA

A PW: •

WO~D

10

;PUlSE

WIDTH

•

120.

114

)022

0000

A

ROM:

.WORD

a

;CURRENT

ROM

ADDRESS.

121.

lIS

0023.

o

EClQ.

.A..._.$..W.aUE:

...

"

.WD.RD

DEOO

;START

...

AOR

WRJTE

BUFFER

AT

OEOO

TO

OfFF.

122

..

116

0024

OFFF

A

FNOBUF:

.WORD

OFFF

;ENO

OF

WRITE

BUFfER.

123.

117

fH1

"'"

0470

A t

1..1

AT

Tit..

t.Jno

n I

LIlt.

r T •

n·n

l'

"IT

r-"", T ..... I

~"t""""

WAIT.

i24.

v

W'&.,....",

....

L

....

1Il-".'.,&.

~

M • •

",ur>.v

'-"'"'.I

I i

rU..LI"41

Cr"

IU

LU''''-='

.

L1R

..

.D

026.

..

Q3_B1L.A_

...

DHEXA;

.WO.RD

OHEX

;POINTER

TO

PRINT

HEX

WORD.

125.

119

0027

0351

A

CRLFA:

.WORD

CRlF

;POINTER

TO

CRLF.

126.

120

0028

0465

A RF.APWA: •

\t-JORO

RE,AC\~D

~PCINTER

TO

READ

A

PROM

WORD.

127.

121

0029

04EB

.A_LOKSA: .WORD

LOKSE

:POINTER

TO

SEE

IF

,

KEY

BOARD.,}: 1 T

..

128.

122

002A

031C

A

HEX¥A:

..

WORD

HFXY

;

PO

INTER

TO

SEE

IF

HEX

NUMBER.

129.

123

002S

007F

A

K7F:

•

WORD

X'7F

130

•

124

002C

0000

A

RO:

...

WORD

0

131.

125

0020

COOO

A

Rl:

•

WORD

0

132.

126

002E

0000

A

R2:

.WORD

0

133.

121.

002£

0000

A R3 :

.WORD

0

134.

128

0030

0000

A

SFlGS:

.WORD

0

135.

129

0031

0000

A

SA

VS

EL

: •

WORD

0

136

•

13

a

0032

7FD3

A REDCR:

.WORD

07FC3

;16P

READ

CARD

ROUTINE.

137.

131

0033

oeoo

A

BUFFAD:

.WORD

TBUF

138.

132

0034

oeoo

A

TBFAD:

.WORD

T~UF

139.

133

0035

06D3

A CHARGA:

.WORD

CKRG

;CHECK

If

PROTECTED.

140.

134

0036

'~FFF

l\

K3

FFF:

.Wf1RD

03FFF

141.

135

0017

OFFF

A

AOMSK:

•

WORD

OFFF

142

•

REVISION-G

05/16114

PRMSFT

P00343B

03/19/75

136

0038

0000

A

FIRAD:

.WORD

137

C03~

COOO

A HICKSM:

.WORD

o

04/02

5:it1P~

PAGE

NUMBER,

4

143.

144.

R.EVI

SION-G

05/16/7-4

J4/02

5:

41

P

iI;,

PRMSFT

POO3438

03/19/'75

P.AGE

NUMRER

5

138

003A

•

PAGE

145.

.139

003A

.ASECT

146.

140

0000

0118

A

..

=

)118

147.

141

0118

0000

A •

WORD

0,0.0,0,0,0,0.0

148.

0119

0000.

A

all

A

0000

A

0118

0000

A

.01.1 C

OOOO

..

A

0110

0000

A

OIlE

0000

A

OllF

0000

A

142

0120

0060

A

t.P(OR

=

060

149.

143

0120

0068

A

LOR

=

068

150.

.14.4.0.12.0

..

00.01

..

A ZERO 1

151.

145

0120

0002

A

GTEQ

= 2

152.

146

0120

0003

A

COO

.:

3

153

•

147

...

0.12.0.

'OOn.4

....

A.

BITl

4

154.

148

0120

0005

A NlR.O = 5

155.

149

0120

OODA

A eyov

.:

10

156

•

.150

0120

0008.

A l.T.EQ

::

11

151.

151

0120

oooe

A POA

'.-

12

158.

152

012C

0000

A SEl

.:

13

159

•

.15.3

0120

OO.OF

A

DA.TA

=

15

160.

154

0120

DOOF

A

TFMPT

=

15

161.

155

0120

0300

A • =

0300

162

•

REVISfON-G

05/16/74

041

02

5 : 4 1 P

:..,

PRMSFT

P00343B

03/19/75

DAGE

NUMBER

6

156

0300

.PAGE

163.

151

0300

NSTART:

164.

158

0300

2C08 8

JSR

@SETPL

;SET

WH~T

MACHINE

USED.

165.

159

0301

2C77 B

JSR

~CRLC:A

166.

160

0302

2C11

B .JSR

@~ESSA

;

PR

I

NT

NAME

OF

PROGRAM

167.

161

0303

06FF

A •

wORD

MSG

168.

167.

0304

SP

AC

E:

169.

163

.03.04

-4010

A

LI

1.16

;ZERO ST

ACK.

110.

164

0305

4400

A SPACEl:

PUll

0

;00

IT.

171.

165

0306

4t?FF

A

AISZ

1,-1

;DONE

? 1

72.

166

030]

21FD A JMP SPACEl

113.

167

0308

2C27

R

JSR

@CRLFA

114.

168

0309

OA80 A

PFLG

2

;RESET

S

EL

FLAG

175.

1-69

030A

4C3F

A

1..1

O.03F

;AC

Q

.-

ASCI I ?

116.

110

0308

2COO

B

JSR

@PU1C ;PRINT

IT.

177.

111

030C

4C20

A

II

0.020

;ASCII

SPACE.

118.

112

0300

2COO B

JSR

@PUTC

;TYPE

IT.

179.

113

030E

294C

A J

SR

START

;GET

CHAR.

HEX

~RO

IN

WHAT

,AlPH

IN

WHERE.

180.

174

030F

2909

A JSR

SMTHNG

:CHECK

FOR

ALPHA

CHAR.

181.

.1..15

031.0

2.000 B JMP BSTART ;TO START.

182.

176

0311

BOlA

B

LO

O.W'-:ERE

;GET

LAST

2

Al

PHA

CHAR.

183.

171

0312

6012

B

AND

Q,MFF

;LEAVE

JUST

THE

LAST.

184.

178

0313

C104

A_

ADO

O.lIST

;MAKE

POINTER

TO

ADDRESS.

185.

119

0314

3281

A

kCP

Y

0.2

;MOVE

Te

AC2.

186.

180

0315

801<1

R

LO

O.WHAT

:GET

HEX

~"ORD

187.

,._"._1.B~o,O

3.1,,6

13£.oll

..

,

A.,

..

LO.·

3.(2)

;PUI

POIN.IER

IN

3 ...

18B.

I8?

03'11

2300

A J'1P f 3 ) :GO

TH'=R

E

189.

183

0318

06EB

A

LIST:

.WORD

ALIST

190.

REVISION-G

05/16/74

PRMSFT

P00343B

03119115

184

0319

.PAGE

185

03.19

JSR

SMTPNG

186

0319

·

NO

ALPHA

WORD

RECEIVED

..

187

0319

·

NORMAL

RETURN

..

188

03L9

189

0319

SMTtiNG:

190

0319

1818

B

lSI

AfLAG

191

031A

.0201

A RTS 1

192

0318

0200

A RTS

193

031C

194

031C

·

JSR

HEXY

.....•.

195

031C

· I\lO

HEX

NUMBER

RETURN

..

196

031C

·

HEX

NUMBER

RETURN

..

197

03.lC

198

031C

HE

XV:

199

031C

7817

B

ISl

FLAG

200

031D

.0201

A.

RTS

1

201

031E

0200

A

RTS

202

031F

203

031F

204

031F

·

CR

EAT

E A

FCUR

DIGIT

HEX

·

205

031F

206.

031F

207

031F

8419

B

IHf:X:

LD

1.

WHAT

208

0320

5004

A

SHL

1.4

209

0321

.3100

A

RADD

0

...

1

210

0322

~41q

B

Sf

I,WHAT

211

0323

ADI7

B

ST

O.FtAG

212

0324

213C

A JMP

NOW

213

0325

214

0325

GO:

215

03.25

29F6

A

.JSR

HEX-V

216

0326

2000

B

~MP

BSTART

....

,

..,

.A~

"""..,.

41'1)."-

~-,.

R JSR

·-'""\rn·lI

.,...

..

£.-J.f

t).,:)LJ

Ll

.•

L'

<1H

...

~.

Lr

A

218

0328

2419

B

..IMP

@WH.AT

04/02

5:41Pf~

PAGE

~IUMBER

7

;CHECK

IF

AN

ALPH

CHAR

RECEIVED

; I F

-1

NG

AL

P!I.

INPUT.

;

NORMAL

RETURN

;NO

ALPHA

FLAG

;CHECK

IF A

HEX

WORD

RECEIVED.

;SKIP

IF

NO

HEX

;HEX

..

RETUR,N.

;NO

HEX

RETURN.

WORD

;GET

WORD

:MAKE

RDOM

FOR

NEW

;MAKE

WOqO

;STO~f

WORD.

;F

IX

Fl

AG.

;

RE

TURN

;CHECK

FOR

HEX

CHAR

;TO

START.

;GO

TO

ARGUMENT

191.

192.

193.

194.

195.

196.

197.

198.

199.

200.

201.

202.

203.

204.

205.

206.

207.

208.

209.

210.

211.

212.

.213.

214.

215.

216.

217.

218.

219.

220.

221.

222.

223

•

224.

225.

REVISION-G

05/16/74

04/J2

5:41P\1

PRMSFT

POO343B

03/19/7~

PAGE

NUMBER

8

219

0329

.PAGE

226

•

220

0329

·

.JSR

GET

CHAR

FROM

TTY

227.

·

221

0329

· hEX

RETURt-J

HC:X

NUMBER

IN

ACO

228.

•

222

0329

:)

PE

C-I

AL

RETURN

ASCII CHAR

IN

ACO

229.

223

032~

·

ALPHA

~ETUR~

HEX

NU

MB

ER

IN

ACO

0-13

{G-Z}

230.

•

224

0329

·

USES

ACO

231.

•

225

0329

232

•

-

226

0329

2eOf

B

GE

T:

.,lSR

@GECO

:GET

CHAR

IN

ACO

233.

227

032,A

6028

B ttNO O.K1F

;MAKE

7

BIT

ASCII.

234.

228

0328

EI0F A

SKG

O.K39

;SKIP I F

GT

9

235.

229

032C

EIOE

A

SKG

o~

K30

;SKIP

IF

0-9

236.

2_30

0320

2102

,A

JMP

HEX

;KEEP

CHECK

ING

NOT

0-9.

237.

231

032E

6016

B F I

X:

AND

O.KF ;

~ASK

OFF

238.

2-32

032F

C2{)O

A k

TS

;CHAR

IS

HEX

239.

233

0330

f01F

R

HEX:

':)KG

0.K46

;

SK

IP

IF

GT

F

240.

234

0331

EIOB

A

SKG

O,K40

;$

KIP

IF

A-F

241.

235

0332

2102

A

JMP

ALPH

;NOT

A

HEX

NUMBER

242.

236

0333

4809

A

~ISZ

0.9

;MAKE

HEX

NUMBER

243.

237

0334

21F<1 A J''4P

FIX

244.

238

0335

EIOB

A

At

PH:

SKG

O.K5A ;

SKI

P

IF

NOT

ALP.HA

GT

Z.

245.

239

0336

E01F

B

:>KG

O.K46

:SKIP

IF

GT

G-I.

246.

240

0337

0201

A-

RTS 1 :

SPEcr

AL

241.

241

0338

0103

A SUB

Q,K47

:MAKE

A NUMBER BETJiEEN

0-13

248.

242

0339

0202

A R

TS

2

:BETWEEN

0-13

t ( G-Z )

249.

243

0.33A

250.

244

033A

0039

A

K3'9:

.WORD

039

251

.•

245

0338

002F

A

K30:

..

WORD

02F

252.

246

033C

0047

A

K41:

•

WORD

047

253

•

247

0330

0040

A

K40:

.WORD

040

254.

248

033E

aOSA A K5A:

.WORD

OSA

255.

249

033F

0070

A

Al

MOD:

.WORD

070

;ASCII

AlTMODE

256.

2.50

03-40

0000

A

eRR:.

.W-ORD

00

;ASC I I CAHRIAGE

RETUR~

257.

251

0341

007E

A ESC: .WORD

07E'

:ASCII ESCAPE.

258.

RFVISION-G

05/16/74

:)4/02

5:41Pf-1

PRMS

FT

P00343B

03/19/15

oAGE

NUMBER

9

252

0342

.PAGE:

259.

.253

0342

· JSR

@~lESSA

PRINT

MESSAGE

260.

·

254

0342

· ADDRESS

OF

MESS.AGE

261.

"

255

0342

·

KETURN

262.

-tI

.".256.

0342

· PRINTS

~E

SSAGE

UNTTL

A

WORD

OF

All

0 FOUND

263.

•

257

0342

264.

2S8

0342

fiE

5 S :

265.

.259

0342

2913.A

JSR

SAVE

;SAVE

ALL

REG

266.

260

0343

4700

A

PULL

3

267.

261

0344

4300

A

PUSH

3

268.

262

0345

8BOO

A

LD

2,

(

~)

;GET

ADDRESS 'JF MESSAGE

269.

263

0346

8200

A

Ll:

LD

Q,(2}

;GET

WORD

210.

264

0341

4800

A AISZ

0,0

;SKIP

IF

DONE

2'11.

.265

0348,.2102

A.

JMP

KEEP :KEEP

GOING

272.

266

034<3

2~30

A JSR

RFTRV

;GET

SAVED

REG.

273.

267

034A

0201

A

tiTS

1

;RETURN

+1

274.

. .26B.

0348

..

5

..

8.F8..A.

KEEP:

t{OR

0,8

;MOV.E

MOST

TO

LEAST

215.

269

034C

2eOD B

JSR

@PUTC

;PRINT

IT

276.

270

0340

8200

A

LD

0.(7)

;PRINT

lOW

ORDER

271.

<.21.1.

03!tE

2GOD,"-B

JSR

iilPUTC

278.

272

O.34F

4AOI

A

AISI

2,1

;POINT

TO

219.

213

0350

21F5

A

JMP

II

.

GFT

MORE

280.

·9

.2.1A

035.1

281.

275

0351

·

JSR

@CRLFA

PRINT

CR

LF

282.

-tI

276

0351

283.

..

.2.1.7

0.35.1

..

!tLoa

A

...

CRLF:

I r

"_,,n

28.4

•..

t...J.

V"

-..11..1.

278

0352

2eoo

p JSR

mPUTC

: PR I

NT

IT

2'85.

279

0353

4COA

A

LI

O,OA

286.

2ao

0354

2eOD

8

JSR

@PUTC

;

PR

I

NT

IT.

2.87.

281

0.355

0200

A RTS

288.

2R2

0356

289.

.2..83 035.6..

..

SAVE

:,

290.

284

0.356

ACIF

8

ST

3,AC3

;SAVE

AC3.

291.

285

0351

ASiO

B .iT

2,

.aC2

;SAVE

ACl.

292.

236

0358

A41C

B

~T

1,~Cl

;SAVE

ACI.

293.

287

0359

AOIB

B

ST

Q,ACO

;SAVE

ACO.

294.

288

035A

0200

A kTS ; RETURN

295.

REVISION-G

05/16/74

04/0.2

.5

:

41

p~..,

PRMSFT

PQ034:1R

03/19/15

P.AGE

NUMBER

10

289

035B

•

P.4GE

296

•

290

0358

297.

291

0358

..

JSR

STaRT

;

GET

CHAR.

298.

~

292

0351'

·

RETURN

AFTER

A CARR IAGE

RETURN

HAS

BEEN

TYPED.

299.

•

293

0358

· SPECIAL

CHAR

RETURN

300.

•

294

0358

301.

295

035R

302.

296

.Q358 · klTMODE.

START

Cf

PROGR.~M.

303.

4··.

ZQ7

035B

·

oACK

.~R

ROW.

TYPE

WHICH

MCDE

OF

GPERATION.

304.

.,

298

0358

305.

299

0358

306.

300

035B

LAST

4

HEX

DIG

IN

WHAT.

FLAG

-1

I F

NO

HEX

CHAR.

307.

301

0358

· LAS T 2

ALPHA

CHAR

AS

A

NUMBeR

0-13

(

G-Z)

IN

WHeRE.

308.

..

302

035R

••

AFLAG

-1

IF

NO

ALPHA

CHAR.

309.

303

035A

310.

304

0358

START:

311.

305

0358

·4(00

A

LI

0.0

;ZERO

FLAGS

THAT

ARE

USEe.

312.

306

035C

A019

B

Sf

0,

WHAT

;HEX WORD.

313.

307

0350

A01A

R

ST

Q,WhERE

;ALPHA

POINTER.

314.

30B

035£

4CEF

A

LI

0.-1

:

TO

SET

FLAGS

TD

-1.

315.

309

035F

A017

B

ST

Q,FlAG

;HEX

FLAG.

.316.

310

0360

AOIS

B 5T

0,

,a,

t=

LAG

;/llPHA

FLAG.

317.

311

0361.

318.

312

0361

29C7

A

NOw:

JSR

GET

:qEAC/WRITE

FROM

TTY

319.

313

0362

21se

A JMP

IHEX

;HEX

NUMBER

RETURN

320.

314

0363

2106

A JMP

conr,.

.SPECIAL

CHAR

321.

I-'

J.,.-v

....

315

0364

A01S

B ST

O,~fl~G

';SET

AN

ALot-"A

FLaG.

322.

316

0365

S8lA B

LD

2.WHERE

:GET

LAST

INPUTS.

323.

317

0366

SEOS

A

~HL

2.8

;MAKE

ROOM

FOR

NEW.

324.

318

0367

3200

A RADD

0,2

;~AKE

POINTER

325.

319

0368

A8IA

B

~T

2,WHERE

;WHERE

IS

LAST

TWO

ALPHA.

326.

320oD369

21F7

A .;MP

NOW

;KEEP

GOING

UNTILL

.CR

.•

321.

321

036A

328.

322

036A

Fi04

A spec: SKNE O.AlMOr;

;CHECK

FOR

AlTMODE

329.

323

036B

2194

A

JMP

NST~R,T

;SPECIAl

GO

TO

START.

330.

324

036C

FI04

A SKNE O.ESC ;CHECK

FOR

ESCAPE.

331.

325

036C

2192

A.

JMP

NSTART

332.

326

036E

FIOl

A

SKNE

O.CRR

;CHECK

FOR

CARR

I

AGE

RETURN

333.

327

036f

0200

A R

TS

;NORMAL

EXIT

334.

328

0370

F129

A

SKNE

O.B~RR

;CHECK

FOR

BACK

ARROW.

335.

329

0311

211F

A

JMP

BAR

;15.

336.

330

0312

flO6

A SKNE

O.KD

;CHECK

IF

$.

337.

331

0373

2101

A

JMP

TTA

338.

332

0374

21Ee

A

JMP

NOW

;KEEP C

HECK

I

NG

339.

333

0375

3'.0.

.134

0175

TTA:

341.

335

0315

2C27

B

JSR

@CRlFA :CRLF.

342.

336

0316

8033

R

lO

O.RUfFAD ;GET

AODRJ:SS.

343.

337

0317

2C26

R JSR

@OHEXA

;PRINT

IT.

344.

338

0318

2000

R.

JMP

BSTART

345.

339

037<;1

346.

340

0379

0024

A

KD:

•

WORD

024

:ASCII

$.

341.

REVI S IDN-G

05/16/74

04/»2

5:41

0

["1

PRMSFT

POO343B

03/19/15

PAGE

NU~"'3ER

11

34]

037A

.PAGE

348.

342

031A

.

RETRV:

349.

343

031A

801B

B

LO

O.ACO

;RESTORE

ACO.

350.

344

0318

R41C

B

LD

I,AC1

;RESTORE

AC

1.

351.

345

037C

8810

B

LO

2,AC2

:RESTORE

AC2.

352.

346

0310

8Cl E B

lO

3,AC3

;RESTORE

AC3.

353.

347

037E

0200

A

kTS

;RETURN

354.

..

~

-3:4-8 . O.37E

355

•

349

037F

356.

350

037F

060B

A

LISTE:

.WORD

LST

357.

.351

03aO

358.

352

0380

OHEX:

359.

353

0380

2905 A JSR

SAVE

; S

,AVE

All

REG.

360.

..

.,

..

35ft

0381.32.81

A.

RCPY

0.2

;PUT.NUMBER

TO

TYPE

IN

AC2 •

361.

355

0382

4f04

A

II

3.4

;SET

BIT

COUNTER

362.

356

0383

85F8

A to

l,LISTE

;GET

POINTER

TO

LIST

363.

..

35.1-

QaSA

5A.o4

..

A.LOOP:

ROL

2.4

;f'10VE

MDST

TO

LEAST

364.

358

0385

8016

8

lO

Q,KF

;MASK

365.

359

0386

A819

B ST 2,WHAT

;SAVE

WCRD

366.

3.0 .

.0

03131 32.83 A

k.AND

0.2

:MASK

IT

367.

361

0388

3600

A

RAO

[)

1.2

;MAKE

POINTER

368.

362

038~

8200

A

LO

0,(2)

;GET

WORD

TO

TYPE

369

•

..

36..3

O.3.BA2COD

..

B .JSR

@PUTC

:TYPE I T

370.

364

03Se

8819

R

lO

2,WHAT

;GET

WORD

371.

365

038C

4BFF A AIS Z

3,-1

;8UMP

COUNTER

372.

..

36.6

03.8.1:

2Lf6

A

.JMP

lOOP

;NOT

DCNE

313.

367

038€

2~E8

A JSR

RETRV

;GfT

SAVED REG.

314.

368

038F

0200

A RTS

;~ETURN

375.

REVTSION-G

05/16/74

04/02

5:41p

14

PRMS

FT

POO34.3B

03/19/]5

PAGE

NUMBER

12

369

039C

.PAGE

376.

310.0390

BAP:

377.

371

03~O

2C27

B

.JSR

.alCRlFA

318.

372

0391

8010

A

LD

O.13UFEND

:GET

q,OM

lENGTH.

379.

373

0392

F012

B

SKN

E

O.MFF

;SKIP

IF

4K

PROM.

380.

374

03<j3

2103

A

JMP

T2K

:IS

2K

PROM.

381.

375

0394

2el1

B

~SR

@~ESSA

:PRINT

MESSAGE.

382.

3.?6

03<;5

C189 A .WORD

NOW4K

383.

377

0396

2000

B

JMP

BSTART

;TO

STt\RT.

384.

378

0397

2el1

R

T2K:

JSR

@MESSA

;PRINT

MESSAGE.

385.

319

0398

078F A

.WORD

NOW2K

386.

380

039«;

2000

B

JMP

8STI\RT

;TO

ST

AR

T.

387.

381

03CJA

388.

-382

039A

005F

A

BARR:

.WORD

OSF

;AS

C I I

BACK

ARROW.

389.

383

0398

390.

3R4

0398

391.

385

0398

ENDNOW:

392.

386

039R

2el1

B

JSR

@MESSA

;PRINT

MESSAGE.

393.

387

039C

0713

A .WORD

PAD

394.

388

0390

TS:

395.

389

039D

8022

B

l.D

O,RCM

;GET

ROM

ADDRESS.

396.

390

039£

2C26

B

JSR

@OHEXA

;PRINT

ADDRESS.

397.

391

039F

2C21

B

JSR

@CRlFA

398.

392

03AO

2901

A

~SR

BElt

399.

393

03Al

2000

B

JMP

BSTART

:TO

START.

400.

3.94

03A2·

401.

395

03A2

BELL:

402.

396

03A2

403.

397

03A2

4EfC

A

LI

2.-4

;SET

NUMBER

OF

TIMES.

404

.•.

398

03A3

4C07

A

8El

L

1:

II

0,,07

;

ASC

I I BELL.

405.

399

03A4

2eoo

8 JSR

@PUTC

406

•

.

4.Q.O

...

oaA5

4032

A

Ll

1.50

;WAIT

NUMBER.

407.

401

03.Ae

2C25

B J

SR

@lWAITA ;WAIT.

408.

............

03A7

4D32

A

Li

1,50

;WAiT

NUMBER.

409.

"tV'£

403

03AB

2C25

B

.JSR.

@lWATTA ;WAIT.

410.

404

03A9

4A01 A AISZ

2.1

;CHECK

IF DONE.

411.

405

03AA

21FB A

JMP

BELLI

;NO.

412.

406

03AB

0200

A RTS

413.

REVISrON-G

05/16/74

04/02

5:41

D

[J,

PJ:(MS

FT POO343B

03/19/15

PAGE

NU,..,BER

13

401

03AC .PAGE

414.

408

03AC

415.

409

03AC

SETK:

416.

410

03AC

2e2A

B

JSR

@f-4EXYA

:CHECK

IF

H5X

NUMdER.

417.

411-03AO

2101

A

JMP

SETKI

;NO

HEX

NUl.1

BE~.

418.

412

03AE

210;

A JMP

NDMt::S

419.

413

03AF SETK

l:

420

•

414.-03AF

2Cll

B .JSR

@~ESSA

:

PRIN

T

~,u:s

s

,1\

G E

AI

421

•

415

03BO

0189

A •

WORD

NOWLtK

422.

416

03B1

2C11 B

JSR

@MESSA

;PRINT

MESSAGE.

423.

4_11

..

03B2

OJA3

fA.

•

WaRD

BTY4

424.

418

0383

2el1

R

4SR

@MESSA

;PRINT

MESSAGE.

425.

419

03B4

078F

A .WORD

NOW2K

426

•

420

0385

2Cll

8

.JSR

@MESSA

;PRINT

MESSAGE.

427.

421

0386

079A

A .WORD

BTY

428.

422

0381

29A3

A

JSR

START

;GET

CHAR.

429.

423.-03B8

..

NO.MES!

430.

424

0388

8019

B

LD

O.WHAT

;GFT

LAST

4

HEX

WORDS.

431.

425

0389

6016

B

AND

O.KF ;KEEP LAST.

432.

4.26

03BA

4BfE

A AISZ

0.-2

;CHECK

FOR

A

2.

433.

421

038B

2101

A

JMP

.+2

;NOT

2.

434.

428

03BC

2101

A

JMP

S2K

;INITIALIZE

FOR

2K

PROf'J

•

435.

429

03.fin

48FE_

A AIS.l

0,-2

;CHECK

IF

·4

TYPED.

436.

430

03BE

2IFO A

JMP

SET

Kl

;NOT

A 2

OR

4.

437.

431

03BF

438

•

...

"~.

""

..

5J.3.L

.

..

.Q3.BE

SAte! ..

.~3.9.

433

Q3BF

SIDA

A

LO

O,MUL4

;~AKE

X +

5X.

440.

434

03CO

A1

ltE

.~

5T

Q,MULT

441.

435

.03C

1 8813._ B

LD

2,K511

;GET

,~AX

BUFFER

LENGTH

•.

442.

436

03C2

ASIO

A

ST

2,BUFEND

jSTORE

.AT

BUFF

ER

LENGTH.

443.

431

03C3

21ce

A

JMP

BAR

; RETURN.

444.

438-.03C4

445.

43q

03C4

S2K:

446.

440

03C4

8104

A

LO

O,MUL2

;MAKE

x + 3 x.

447.

441

03C5

A149 A

$T

O,MUlT

448.

442

03C6

8812

R

LD

2,MFl=

:GET

BUFFER

LENGTH.

449.

443

03C1

ABIO

B ST

2,BUFENO

;

STOR

E

BUFFER

LEN{;TH.

450.

444

03C8

21e7

A

JMP

B,AR

:,RETURN.

45.1.

445

03C9

452.

446

03(9

453.

441

03C9

5001

A

MUl2:

SHL

1,1

;x

+

3X.

454.

448

03CA

5002

A

MUl4

:

SHL

1,2

;x

+

5X.

455.

REVISrON-G

0:5/16/74

J4/02

5:41P!-~

PRMSFT

DOO3438

03/19/75

PAGE

NU'"v1l3ER

14

449

03(8

• PAGE

456

•

450

03C8

4.57.

451

03C8

458.

452

03C8

2902

A

JSR

ERROR

;DO

IT

•

459.

453

03CC

290

'5

A

JSR

BELL

460.

454

03CO

2000

B

JMP

BSTtRT ;TO

ST

AR

T.

461.

455

03Cs::

ER

ROP:

462.

456

03.C£

2(27

B

JSR

@CRlfA

463.

457

03Cf

2Cll

8 JSR

@MESSA

464.

458

0300

0753

A

.WORD

IS

465.

459

03Dl

SOIA

B

LD

O.

WHER

E

;GET

BAD

WORD

466.

·460

0302

2C26

8

JSR

@OHEXA

467.

461

0303

2el1

R

JSR

@MESSA

468.

462

0304

0756

A

.WORD

5B

469.

463

0305

8300

A

lD

O.{3t

;GET

Gooe

WORD.

470.

464

0306

7C76

R JSR

@OHEXA

;PRINT

IT.

471.

465

0307

2ell

R

JSR

@MESSA

;PRINT

MESSAGE.

472.

466

0308

0710

A •

WORD

B.AOP

473

•

467

0309

2Cl1

B

JSR

@MESSA

:PRINT

MESSAGE.

474.

46..8

03.DA

Q~11.3

.

A.

..

WORD

PAD

475

•

469

0.308

8022

A

LD

O.RCM

;

PR

I

NT

ROM

ADDRESS.

476.

470

030C

2C26

8

JSR

@OHEXA

;oRINT

IT.

417.

471

030D

7819

B

lSZ

WHAT

;SET

WHAT

FOR

USE

wITH.

VAR

•.

_

478.

412

030E

2COC

B

JSR

@INTEST

;SEE

IF

KEYBOARD

HIT.

419.

473

030F

7000

B

JMP

BSTART

:TO

START.

480.

474

a3EC

02.00

A

RTS,

4.81.

J.l

415

03f1

482.

476

03El

483.

477

03El

DOFF

A

MAX:

.WORD

OFF

;MAX

NUMBER

OF

TIMES

TO

HIT

EACH

LOC.

484.

REVISION-G

05/16/74

04/02

5:41

P

r,,\

PR,MSFT

POO343B

03/19/-/5

?AGE

NUMBER

15

478

03E?

• PAGE

485.

.41(1

-03E2

ER~.SE:

486.

480

03E2

2C27

B JSR @CRlFA

487.

481

03F.3

7901

A

.j

SR

ERAS

488

•

48-2

03E4

213f.A

JMP

V

AR

489.

4R3

03F.5

490.

48-4

03E5

491.

485

03E5

' ER,A.5:

492.

486

03F5

4(00

A LI

0.0

;ZERO

ROM

ADDRESS.

493.

481

03F.6

A022

B

ST

Q,R(M ;

DO

IT.

494.

488

O.3E7

8410

B

LD

1,BUfEND

;GET

LENGTH

OF

ROM.

495.

489

03E8

f412

B

SKNE

1.MFF

;SKIP

IF NOT 2K

PROM.

496.

490

03EC;

2107

A JMP

VST~RT

; CHECK

IF

2K

PROM

ERASED.

THEN

PRJ1G.

497.

491

03,EA

2C28

R

V4KQN:

.j

SR

@READ\;A

;READ

DATA InIORD.

498.

492

03EB

4800

A A IS Z

0,0

;CHECK

IF

PROt~

ZERO.

499.

493

03EC

2107

A Ji'4P

EVER

;PROM

NOT

ERASED.

500.

494

03EO

2C14

R

JSR

@ROtJIA

;CHECK

IF

DONE.

501.

495

03EE

71FB A JMP V4KCN ;NOT

DONE.

502.

496

03FF

0200

A

t<.TS

503.

497

03EO

039,8.

_fA

NDNnA,:

.-.

WORD

ENDNOW

504

•

REVISION-G

05/16/74

]4/82

5:

41

P'~

PRMSFT

POO343R

03/19/75

PAGE

NUMBE

R.

16

498

03F1

• PAGE

505.

.499

03Fl

VS

TART:

506.

500

03Fl

2e28

B J

SR

@REACWA

;READ

PROM.

501.

501

03F2

FOl2

A SKNE

Q,MFF

;IF

PRCM

NOT

ERASED

SK

ID

..

508.

502

03F3

2103

A JMP

KEEPE

;ROM

I S

ERASED

KEEP

GO

I~G.

509.

503

03F4

EVER:

510.

504

03F4

2C11 R

JSR

@~ESSA

;PRINT

MESSAGE.

511.

505

03f5

071C.

A .WORD NOTER

512.

506

03F6

21A.6 A

JMP

TS

iDONE

513.

507

03F7

KE

E

PF:

514.

SOB

03F7

2C14

B

~SR

@RO~IA

;BUMP

ROM

ADDRESS.

CHECK

FOR

ENn.

515.

50'9

03F8

21F

8 A

JMP

VSTART

;KEEP

GOING.

516.

510

03Ftj

0200

A RTS

511.

·511

03·FA

518.

512

03FA

VP:

519.

513

03FA

29EA

A

JSR

ERAS

;CHECK

IF

ERASED.

520.

514

03FB

4COO

A PSTAR!

1..1

0.0

;ZERO

ROM

ADDRESS.

521.

515

03Ff

522.

516

03FC

PSTART:

523.

511

03FC

A022

a

:;)1

Q,RCM

;SAVE

ROM

ADDRESS.

524.

518

03FO

8C23

8

to

3,SW8UF :WRITE

BUFFER

ADDRESS

IN

AC3.

525.

519

03FE

3300

A

RAOD

0,3

;CORRFCT

WRITE

BUFFER

.ADORE

SS

..

526.

...

520

O.3FF .

2.(11

S .

...

.JSR

@MESSA

;PRINT

MESSAGE •

527.

521

0400

0704

A •

WORD

WORK

528

•

522

0401

AGAIN:

529.

.,·.-$,2,.3

0401

.

4EOl

A . '

'yo

"\

, ;.WRITE

O~~CE

THEN,READ.

S

30..

......

,G..,L

524

0402

NPR:

531.

525

0407

4004

A LI 1

..

4 ;SET TIME.

532.

. -

..

52.6.0403

2C25

B

...ISR

@LWAITA

;WAIT •

533.

'527

0404

2e28

B .J

SR

@READWA

;READ

WORD

FROM

PQOGRAMMER.

534.

528

0405

F300

A

SKNE

O.f3)

;COMPARE

DATA

535.

..

52,.9

0.406

210.7

A

..IMP

AGO

;

EQUA.L

FLN1SH

536.

530

0407

4AOl

.A

AISZ

2.1

:AOO

1

TO

CDUN

TER

537.

531

0408

F90a

A

~KG

2,MAX

;SKiP

iF

BAD

PROM

538.

532

0409

2101

A

..iMP

.+2

;KEEP

GOING

539

•

533

040A

21CO A -iMP ERRCR-3 ;COUNT

EXCEE

DE

D.

540.

534

0406

2927

A

JSR

TEMPCK

;CHECK

FOR OVER

TEMP.

541.

-535 O,40C

291C

A .JSR

PPRCM

;

PR

OGRA

M

PROM

542.

536

0400

71f4

A

JMP

NPR

;KEEP

GOING.

543.

REVISION-G

05/16/74

PRMSFT

P00343B

03/19115

53'1

040E

.PA

GE

538

040F

AGe:

539

040E

3981

A KCP'Y

5·40

040F

5002

A MULT:

~HL

541

0410

3600

A RADO

542

0411

AG

00

:

543

0411

8420

B

LD

··544

0412

2C25

B ..JSR

545

0413

291F

A JSR

546

0414

2914

A

JSR

5A7 D41S.4AEF A

AISI

548

0416

21FA A JMP

549

0417

2eoe

R

JSR

,550

,0418.250.1.

..

A

JMP

551

0419

480l

A A

ISl

552

041A

2C14

B JSR

.,5.53

041B

2IES

A

JMP

554

041C

2ell

B

JSR

555

041D

0700

A

.WORD

.55,.6

041E

4014,/'\

L.1.

557

041F

4C01

A

LI

558

0420

2eOD

B ,JSR

..

5.5.:9.

.

D421

...

4 9£J=

....

,

,A.

......

AlSZ.

560

0422

2lFO

A ,iMP

561

0423

2D04

A

JSR

562

0424

2el1

Q

VAR:

JSR w

563

0425

e7bA

A

..

WORD

564

0426

2000

B

JMP

565

0427

566

0427

3000

A

XAOA:

•

WORD

567

0428

0553

A

VArRA:

.wORD

56.a

0.429

56q

0429

PPROM::

570

0429

4004

A

Li

511

042A

OEOO

A

SFLG

'512

042B

49FF

A

AISl

573

042C

2IFE

A

.JMP

5.74

042D

OEOO

A

SFlG

575

042E

8421

B

LO

576

042F

2C25

B J

SR

511

0430

OF80

A

PFLG

578

0431

GEaD

A

PFLG

579

0432

0200

A

KTS

2

..

1

1,2

1.2

l

..

RR

@lWAITA

TEMPCK

PPRCfW

2.-1

AGOG

@INTEST

. .

@NDNHA

3,1

@ROMIA

AGAIN

@MESSA

DONE

1.20

0,01

@PUTC

1

•.

-1

•

-2

{ilVAIRA

aH1ESSA

RO'-'V

BSTART

03000

VAIR

1.4

6

1.-1

.-1

1

1.PW

@LWAIT

A

1

6

04/02

5:

/

tl?rJj

Pt1GE

NU~·1gER

17

: S A V E

N!J

M B

ER

•

;MULT

8Y

4.

: M

AK

EX"

..

5 X •

;GET

HOW

LONG

TO

WAIT.

:TO,KEEP-TIME

THE

SAME.

;CHECK

FOR

OVER

TEMP

;p~aGRAM

PROM

,;CaUNTER

MINUS

1

:NOT

DONE

KEEP

PROGRAMMING.

;CHECK

IF

KEYBOARD

HIT.

..

WAS

HIT.

;BUMP

BUFFER

ADDRESS

;

CHECK

I F DONE.

;NOTOONE

KEEP

GOING

;PRINT

MESSAGE

:£EJ

NUMBER

OF

TIMES.

;GET

BELL.

;

TYPE

Y T •

;CHECK

IF

DONE.

;NO

DO

IT

AGAIN.

;VERIFY

PROM.

;PRINT

MESSAGE.

;TO

START.

;SET

WRITE

VOLTAGES

;PROGRAM

PROM

;GET

TI~·H=.

;lONG

WAIT.

:R

ES

ET

FLAG

;RESET

FLAG

544.

545.

546.

547.

548.

549.

550.

551.

552.

553.

554.

555.

556

•

557

•

558.

559.

560.

561.

562.

563.

564.

565.

566

•

567.

568.

569.

~10.

511.

572

•

573.

574.

57.5.

576.

577.

578.

579.

580.

581.

582.

583.

584.

585.

586.

REVISION-G

05/161'74

04/02

5:41P:>1

PRMSFT

POO3438

03/19/75

Pt\G~

'JU~1RER

18

S80

0433

•

PAGE

587

•

_ 5.81

0433

TEMPCK:

588.

582

0433

8022

R

LO

O.RCM

:GET

ReM

AODRE

s s.

589.

583

0434

CI2E

A

ADD

O.TEMPWD

;MAKE

CO\1"1AND

WDRD.

590.

584

0435

29.20

A

JSR

S

ENCA

:SEND

(OMMAN

D.

591.

585

0436

2907

A ,J

SR

SEND ;

DUM~Y

FOR

HARDWARE.

592.

586

0437

"AIT:

593.

581

0431

4004

A

II

1,4

;GET TIME.

594.

588

0438

2C25

8 JSR @LWAITA

;WAIT

BEFORE

GOING

ON.

595.

589

043<)

IFFO

A dOC TEMPT.WAIT ;CHECK

FOR

OVER

TEMP.

596.

590

043A

597.

591

043A

WRITEWO:

598.

592

043A

8022

B

LD

Q,ROM

:GET

ROM

ADDRESS.

599.

593

0438

C125

A

ADD

a.WRITE

;WR

I

TE

ADDRESS

COMMAND.

600.

594

043C

2919

A

JSR

SENSA

;SENO

WORD.

601.

595

0430

8300

A

lD

0.,(3)

;GET

DATA

WORD.

602.

596

043E

603.

597

043F.

604.

598

043E

.

SEND

DATA

TO

PROM

PRCGRAMMER.

605.

"

599

043E

. DATA

IS

CO~PLEMENTED

BEFORE

IT

IS

SENT.

606.

..

600

043E

607.

601

043E

608.

602

043F

609.

603

043E

SEND:

610.

604

043E

'5000

A l..AI

0,0

;

COMPL

EM

ENT

DATA.

611.

605

043F

60.12

6

A~JD

O.MFF

.KEEP

lEA,ST

8

BITS.

612.

606

0440

4DOR

A

II

1

..

8

~NUMBER

Of

91TS

TC

SEN!).

513.

607

0441

5809

A

ROL

0,9

;MOVE

TO

HIGH.

614.

608

0442

2115

A

JMP

ON2

;GO

SEND

DATA.

615.

REVISI'JN-G

01:)/16/74

)4/02

5:41P'~

PRMSFT

POO3438

03/19/15

PAGE

NUMBER,

19

bOg

0443

.Pl\GE

616.

610

.0443

617.

611

0443

4COO

A f<ECV:

LI

0.0

:ZERO

RECEIVED

WORD

b18.

612

0444

4008

A LI

1.8

;SET

COUNTER

619.

613

0445

2102

A JMP

Boce

;CHECK

FeR

BOC

FIRST.

620.

614

0446

'5801

A GOO:

K.OL

0,1

;PUT BIT

IN

CORRECT

POSITION

621.

615

0447

C880

A

PFLG

0 ;

CLOCK

622.

...

~.,.b16

044.£

IF01

....

A .

BGee:

boe

D.,~

TA,

REO

:JF

REC.DATA

A Q

GO

TO

RED.

623

•

611

044Q

4801

/1

AISZ

0111

;ADO

A

ONF

TO

RECEIVED

DATA.

624.

618

044A

49FF

A

REO:

AIS

Z

1.-1

tOONE?

625.

..

.

61q

0448

21FA

A

JMP

GOO

;NO

626

•

620

044C

0880

A

PFLG

0

;NEED

8

CLOCKS.

627.

621

0440

4300

A

PUSH

3 ;

SAVE

AC3.

628.

..

6.

2.2..

04AE

BDlS

..

A LD

3,CPAD

:PUT ADDRESS

OF

CONTROL

PANEL

•

629

.•

623

044F

A01A

8 ST

Q,WHERE

: SAVE

RECEIVED

WORD.

630.

624

0450

0668

A rtOUT

LDR

;SEND

DATA

TO

LITES.

631.

625

.0451

8-022

.8

LD

o,ReM

;GET.

ReM

ADORE

SSe

632.

626

0452

0660

A

KOUT

LPCOR

;SEND

A

OCR

ES

S

TO

LITES.

633.

621

0453

4700

A

PULL

3 ;GET

AC3

BACK.

634.

62.8.

0454.

8..01

A

.B

LO

Q.WHERE

;GET

RECEIVED

\<40RD

..

635.

629

0455

C200

A

RTS

b36.

630

0456

4010

A

SENDA:

LI

1,16

;LOAD

COUNTER

637.

631

..

.04.5.1 .5.801 A SEBDl:

ROL

.,

0,1

638.

632

0458

OB80

A ON2!

PflG

3 ;lERO DATA

FLAG.

639.

633

0459

1304

A

BOC

CDO

,CNE ;

IF

OATA A 1

SET

DATA

FLAG.

640.

. 63,A, .

0.4.5.

A

nilB.Q

....

A

,_

Dt~

.:

.....

P.ELG.

0.,

;CLDCK

nATA

641.

Ut"'l

L},lAc,

..

635

0458

4()Ff A A

rSI

1

.-1

;nONE

SENDING

?

642.

636

045C

21FA

A

JMP

SEBCl

;NO.

643.

637

04.50

0200.

A.

aop; RTS

644.

638

045E

OBOO

A

ONE:

SFlG

3 ;SET

DATA

FLAG.

645

•

639

045F

21FA

A ..iMP

ON

646.

640

0460

647.

REVlSION-G

05/16/74

PRMSFT

P003438

03/19115

641

0460

642

0460

643

0460

644

0460

645

0460

646

0460

641

0460

64B

.0460

649

0460

650

0460

651

0460

652

0460

653

0460

654

0460

655

0460

656

0460

651

0460

658

0460

659

0461

6.60

0462

661

0463

662

0464

663

0465

664

0465

665

0465

,r

'.-

---.6.bh.,-J14b.5

667

0466

668

0467

669

0468

670

046(j

I

.,'11

o t

1.

046A

612

0468

673

046C

674

0460

675

046F

676

046F

671

0470

8000

B400

COOO

8COO

0700

.8022

5000

6010

elF1

29EC

..,nn-:l

L.

-:It)

..

J

B022

C1F5

29E8

2904

0200

A

B

A

B

A

~

B.

A

·

..

·

..

"

·

..

·

"

·

•

SB

IT:

WR

I

TE:

READ:

TEMP

WD:

(PAD:

RE

AOWO:

•

PAGE

[)

ITS

15

14

13

l2

1.1

10

Oq

08

07

vO

.~40RO

•

WORD

.WORD

lO

t.AI

AND

ADD

JSR

,LD

ADO

JSR

.JSR

kTS

04

I J 2 5

:4

1

PM,

PAG~

NU~BER

20

INC

OM

rJ

AND

wOR

o.

STt~RT

BIT.

READ

FR(M

PROGRAM~ER.

ENABLE

VOL

TAGE.

~NABlE

PROGRAM

VOLT~GE.

ENABLE

TEMPERATURE

READ.

TAKE

AWAY

+5

VOLTS

FROM

VB8.

SPARE.

THRU

00

ADDRESS

OF

PRO~.

MSA

FOR

4K

BIT

PROM.

MSB

FOP

2K

BIT

PROM.

MM5203.

LS9.

080CO

; 5T

AR

T

BIT

08400

;LOAD BITS

oeooo

;LOAD

BITS

08COO

;LOAD

BITS

0700

aNt

Y.

15,13,12,10.

15,

14.

15,11.10.

o.

RGr~

e"''-'"

4lJI:l

ROJ~ADDRESS

0,:)

; CtlMPL

E~ENT

A'10HESS.

O,BUFEND

;MASK

OFF

AGOR

ES

5.

0,581T

;PUT

ONLY

START

BIT.

SENCA

;SENC ADDRESS

WORD

SEND

;

OU~t-4y

FeR

HA~DWARE.

O.RCM

.GET

ROM

ADDRESS

O.REAO

;READ

ADDRESS

COMr~AND

SENOA

;SEND

AOD~ESS

WORD

RECV

:RECEIVE

WORD

;RETURN

648

•

649.

650.

651.

652.

653.

654.

655.

656.

657.

658.

659.

660.

661.

662.

663.

664.

665.

666.

667.

668.

669.

670.

611.

672.

673.

074.

615.

616.

617.

678.

679.

680.

681.

6.82

•

683.

684.

REVISION-G

05/16114

PRMSFT

PJ0343B

03119/15

l~

AI

T:

----

5810

A

lOOPP:

49FF

A

21fO

A

0200

A

.PAGE

KOL

AISl

JMP

r{TS

0,16

1.-1

lOOPP

;)4/02

5:41PM

PAGE

NUf'-1

c

3ER

21

;A\~AIT

LOOP

; DONE?

;NO

618

0470

679

0410

680

0470

681

0471

682

0472

683

0473

684

0474

685

0474

686

0474

687

0474

6B.8

04.74

...

689

0474

690

0474

691,

.0.4-15

692

0·476

693

0477

694

0478

695

0418

696

0479

.

,.

PRINT

A LIST

lESS

THAN

VALUE

IN

BUFEND

STARTING

AT

ADDRESS

IN

ACO.

..

_

691

OA7A

698

0478

699

041C

700

0.47D

101

047E

702

047F

"'"

.1

D3,

. .0.4:1£

704

0'480

105

0481

70..6,

OA82

101

0483

708

0484

709

0.485-

710

0486

711

0481

712

04,88

713

0489

714

048A

715

0_4_B8

716

048C

717048C

71B

O.4BC

719

048C

720

048F

721

048F

722

048F

RlIST:

'le2A

8

8023

S.

3381

A

2938

A

Bl:

4E08

A

2C27

B

3C.81

A

2C26

R

2COC

8

2.00.0 B

2e15

8

BUl:

2Cl5.B

....

__

._

..

_

8300

A

2C26

A

2COC

__

B

...

2000

B

4801

A

210.0-. A

2C14

B

2101

A

20.00 B

4AFF

A

21F4

A

21Ee

A

SPAC:

4C20

A

2eOD

B

01'00

A

FEOD

A

KF

Eoa:

oJ

SR

LD

RCPY

JSR

II

J

SR

kCPY

J

SR

"SR

..IMP

.JSR

..JSR

lD

.J

SR

JSR

JMP

A IS Z

_ .iMP

JSR

JMP

Jf<.1P

AISZ

,J

MP

JMP

II

JSR

RTS

..

WORD

@HEXYA

O.SWBUF

0,3

lROtJ

2,8

@CRtFA

3.0

@OHEXA

@INTEST

SST

ART

@SPACA

. @SPACA

0,(3)

@OHEXA

-~INTEST

BST

ART

3,1

• +1

@ROftIA

.+2

8STAPT

2.-1

BUl

Bt

0.020

@PUTC

OFEOO

;CHECK

IF

HEX

NUMBER

TYPED.

;.NO

GET

WRITE

BUFEER

..

4DDRESS

..

;PUT

STARTING

ADDRESS

IN

At3.

;ZERO

ROM

ADDRESS.

;SET

CHAR

PER

LINE

;GETADCRESS

;

PR

I

NT

I T

;KEY80ARD

HIT?

:

IO.

START •

;SPACE

ONE

;GET

DATA

TO

PRINT

;PRINT IT

;KEYBO,AR,O

HIT?

;TO

START.

;BUMP

AOOPESS

; OVERFLOW ..

;CHECK

FeR

END

OF

BUFFER.

;NOT

DONE

..

;10

START.

;BUMP

LI~E

COU~TER

;SAME

LINE

:NO

;GET ASCII

SPACE

;TYPE

IT

;RETURN

b85.

686.

687.

688.

689.

690.

691.

692.

693.

694.

695.

696.

697.

698.

699.

700.

701.

702.

703.

104.

705.

706.

707.

708.

709.

71n

I.L,,"""

711.

112.

113.

'714.

715.

716.

717.

718.

719.

720.

721.

122.

723.

724.

7

25.

126.

721.

728.

729.

REVISION-G

05/16/74

04/

J2

5:

It

1

p;"1

PR~SFT

P00343R

03/19/15

PAGE

NUMtjER

22

723

0490

724

0490

725

0490

776

0490

727

0490

728

0490

729

0490

730,,0.490

731

0491

13/

0492

733

0493

734

04<;4

135

0495

736

0495

1822

8

8422

B

E410

R

0200

A

0201

A

137

0495

AD22 B

738

0496

71F8

A

739

0497

2000

B

·

•

·

,.

·

..

RD~I

:

PR

FAD:

740

0498

2C27

B

llPP:

741

049~

4E08

A

742

049A

8022

B

743

0498

2C26

B

744

049C

2e15

R

745

0490

2e15

&

LPLP:

746

049£

2e28

B

747

049F

2C26

R

748

04"A,D. 2CO.c ,

...

s

749

04Al

2000

B

150

04A2

2C14

B

7Si.0Lt.,A3

2101

A

152

04A4

2000

B

153

04A5

4AFF A

llPPl:

754

OltA6

21f6

A

155

04A1

21FO

A

756

04A8

.PAGE

~SR

@RO~IA

ADD

1

TO

RQ~

ADDRESS

NORMAL

RETURN

ROM

ACORESS

GT

BUFFER

END

I

Sl

LO

~KG

KTS

k

TS

Sf

SKAl

JMP

JSR

LI

LD

JSR

JSR.

JSR

JMP

JSR

JMP

AISZ

.iMP

.J

MP

ROM

1,RCM

1.BUfEND

1

O.R('M

O.KFEOO

BS

T.ART

@CRlFA

2,8

A,

R(~-1

@OHEXA

@SPACA

@REAOWA

@OHEXA

@INTEST

eST~RT

@ROfl

I

t~

ll?Pl

BSTART

2.-1

lPlP

llPP

:ADD

1

TO

ROM

ADDRESS.

;GET

ROM

ADDRESS.

;

SK

I P I F

DON

E.

;NORE

TC

GO

RETURN.

;DONERETURN.

;SAVE

STARTING

ADDRESS.

;CHECK

IF

TO

LARGE.

:TO

LARGE.

;SET

WORD

COUNTER

;GET

PROM

ADDRESS

;PRINT

ROM

ADDRESS

;SP.ACE 1

;SPACE 1

;READ

RO"..,.

;PRINT

WORD.

;SEE

if

KEYBOARD HIT.

;

Tn

ST,ART.

;CHECK

FO~

END

OF

BUFFER.

;KEEP

GOING.

;TO

START.

;CHECK

IF

LINE

DONE.

• LINE

NOT

DONE

;LINE

DONE

757

04AB

758

04A8

759

04A8

.

•

FILL

WRITE

BUFFER

WITH

HEX

WORD

THAT

IS

IN

ACO.

76.0

04A8

76i

04A8

ZRO;

162

04AS

8873

B

163

04A9

2903

A

764

04AA 2C11 B

765

04AB

0794

A

76.6 04AC

2000

8

LO

.J

SR

JSR

.WORD

JMP

2,

S

~AlJF

ZERCF

@MESSA

vnOf\

BST~RT

:FILl

WRITE

BUFFER.

~FILL

BUFFER

•

;PRI~T

MESSAGE.

;

TO

STAR

T.

730.

731.

732.

733.

734.

735.

736.

737.

738.

739.

740.

741.

742.

743.

744.

745.

746.

747.

748.

749.

750.

751.

752.

153.

754.

155.

156.

757.

758.

'159.

760

•

761.

762.

J63.

164.

765

•

766.

767.

768.

169.

170.

711.

712.

773.

REVISION-G

05/16/74

04/02

5:itlPH

pq~~SFT

POD

343B

03/19/15

PAGE

NUMBER.

23

767

04AD

•

PA

GE

774.

~.16B

.

.D!tA_D

775

•

769

04AD

ZERC

F:

776.

170

04AD

/905

A J

SR

IROM

;SET

ReM

ADDRESS

TO

o.

771.

711

04AE

A20n

A

ST

0,

{

2)

:STQRE

WORD.

178.

772

04Af

4A01

A AI S l

2,1

~

BU~1

P ADDRESS.

71'S.

773

0480

2C14

B JSR

@ROrv

LA

;OONE?

780.

174-.

OltSI

21EC

A._

..iMP

.-3

:NO

781.

775

0482

0200

A KTS

782.

776

04113

783.

177

04B3

ZROM:

784.

778

0483

4000

A L I

1.0

;

AC

1 = o.

785.

'179

0484

A422

B

ST

1,RCM

;ZERO

ROM

ADDRESS.

186.

180

0485

020.0

A

RIS

781.

781

0486

INBIN:

188.

182

04B6

RI03

A

t-o

o.,ec,..,p

;

FIX

FOR

COM

DATA.

789.

183

0487

A126

A

5T

Q,DCOMPI

790.

784

0488

AIOF

A

ST

o,cco~p

791.

785

04B~

2105

A J

f-iP

NRIf., :

NOltJ

READ

TAPE.

792.

_186.

04BA

193.

787

04BA

5000

A

COMP:

CAL

0.0

:MAKE

l'S

COMP.

794.

788

0488

2100

A

NC

OMP:

JMP

• +1

;DUMMY

•

195.

IR9.

04BC_

......

_

796.

790

04BC

A I N I

~l:

797.

191

04BC

81FE

A

LD

O.NCOMP

;TRUE

DATA.

198.

.,.792

04SD

AiOA

,A.

ST

Q,DC(~P

799.

193

04Rf.

AIIF

A

5T

Q,[)C(!NlPl

800.

RFVISIJN-G

05/16/74

04/32

5:41PM

PRMSFT

POO343B

03/19/75

PAGE

NUMBER

24

794

04BF • PAGE

801

•

795

04Bf

802.

796

04BF

NBIN:

803.

797

04Bf

29F3

A J

SR

lROM

~ZERO

ROM

ADDRESS.

8Q4.

798

04(0

4EOO

A LI

2,O

;ZERO

CHECK

SUM.

805.

799

04C

1

2C

11

B

.j

SR

@\1ESSA ;PRINT

MESSAGE.

806.

800

04(2

0720

A •

WORD

CATI\IO

807

•

801

04C3

2C29.

B

.J.SR

@LOI<SA

;L~AIT

UNTIL

KEYBDERD

HIT

808.

B02

04C4

2C27

B

JSR

@CRlFA

809.

B03

04C5

292C

A JSR

lEACR

:R!:AD

PT

UNT

IL

FF

FOUND

810.

804

04C6

8e23

B

LD

3.SWBUF ; AC3

-=

PCINTER

TO

MEMQRY

811.

805

04C1

ONGO:

812.

806

04C1

2eOF B J

SR

@GETC

;READ

PT

813.

807

04e8

5000

A OCOMP:

CAl

0.0

:COMP

DATA

814.

80B

04C9

6012

B

AND

O,MfF

:MASK

OFF

MOST

SIG

BYTE.

815.

809

04CA

A300

A ST

Q,{3}

;STORE

CATA

816.

810

04C8

3200.

A

RADD

0.2

:MAKE

CHECKSUM.

817.

811

04CC

4801

A AISZ

3.1

: BUMP

POINTER

818.

812

04CO

2C14

R

JSR

@ROf\'

I A

;DONE?

819.

.81.3,.0

!tCE

.liES

..

A

..

,"

JMP

ONGO

; NOT

..

DONE

820.

814

04CF

2944

A JSR PCKSM ;PRINT CHECK

SUM.

821.

B15

0400

2el1

B

.J

SR

@~ESSA

;PRINT

MESSAGE.

822.

..

8.1.6.

0401

0708

A •

WORD

VERf

823

•

817

0402

2937

A JSR

INYN+2

;CHECK

IF

VERIFY.

824.

818

0403

7116

A

JMP

F\JI

:NO

VERIFV.

825.

819

0.40.4

2el1

B

JSR

@MESSA

;PRINT

MESSAGE.

826.

870

04D5

0720

A •

WORD

naTl\IO

827.

821

04D6

2el1

B

JSR

@MESSA

~P~INT

MESSAGE.

828.

82l

0401

0746

A •

WORD

pa.G,~

I N

829.

823

0408

29DA

A JSR

ZROM

;IERO

ROM

ADDRESS.

830.

824

0409

2C29

B

~

SR

@lOKSA

;WAIT

UNTIL

KEY80ERD

HIT

831.

....

825

,.DADA

2C27

...

B

.J.SR

..

@CRlFA

832

•

826

0408

2916

A .J

SR

l

EAOR

:REAO

PT

UNTIL

FF

FOUND

833

•

827

04f)C

8C23

B

LD

3.

SWBUF

;AC3 =

POiNTER

TO

il.iEMORY

834.

828

04DD

ANGO~

835.

829

04DO 2eOF R

~SR

@GETC

;REAO

PT

836.

830

040E

5000

A

OCO~Pl:

LAT

0,,0

;CDMP

DATA

837.

831

040£

601.2

B

AND

O.MFF

.;

MASK OfF MOST SIG

BYTE.

838.

832

04FO

F300

A

.iKNE

0,,(3)

:SKIP

If

DAT~\

DOES

NOT

t·,

A

TCH

839

•

833

04El

2103

A

JMP

OGOOO

;DATA

MATCHES

840.

834

04£2

BFIN:

:DATA

NOT

CORRECT.

841.

835

04E2

2C11 B

oJ

SR

@~1ESSA

;PRINT

MESSAGE.

842.

836

04E3

0733

A •

WORD

NOVFR

843.

831

Q4E4

2000

e JMP

BSTART

;TO START.

844.

REvrSION-G

05/16/74

04/02

5

:41

p~~

PRfoASFT

POO3438

03/191

j 5

PAGE

NUf-A~ER

25

838

04E5

• PAGE

845

•

839

04E5

OGOOD:

846.

840

04F5

4801

A 4

IS

Z

3,1

:BUMP

POINTER

847.

841

04E6

2C14

B

JSR

@RO~

1.4

;;)ONE?

848.

842

04F7

21f5

A

JMP

ANGC

;KEEP

GCING

849.

843

04E8

FIN:

;l)ATA

IS

CORRECT.

850.

844

04E8

2el1

R .J

SR

@~ESSA

;PRINT

MESSAGt:.

851

•

845

04E9

.016A

A .wORD

ROMV

852.

846

04EA

FNI:

853.

841

04EA

2000

B

JMP

B

ST

ART

;TO

STl\RT.

854.

...

8.4B

04EE

855.

849

04EB

lOKSE:

856.

850

04E8

4F38

A

II

3,TTYAD ;SET AC3

TO

TTY

.ADDRESS.

857.

S.51

1"\1'-'"

0005

A

KOUT

5 ;.RESET

TTY.

858.

V·~t;L

852

04EO

2el1

B

JSR

@MESSA

;P~INT

MESSAGE.

859.

853

04EE

0727

A •

WORD

HIT

860

•

B.5A

...

OAEF

2COC

...

B

4SR.

41INTEST

:CHECK

IF

KEYBOARD

HIT.

861.

855

04FO

0200

A

RTS

;YES

862.

856

04Fl

21FO

A JMP •

-2

;NO WAIT.

863.

851

.O.4F2

864.

858

04f2

lEADR:

865.

859

04F2

2eOE

8

.JSR

@GETC

;REAO

CHAR.

866.

86.0

O.4E3

FOl2

B

SKNE

O.MFF

;

RE.AD

UNTIL

RU

BOUT.

867.

861

04F4

0200

A

kTS

868.

862

04F5

21FC

A

..iMP

lEACR

869.

.Bb.3

Q.,!tF.b

a1.o.A~

.

864

04F6

PNTAPE:

871.

865

04F6

29BC

A .J

SR

ZRO~

;ZERO

ROM

600RESS.

872.

866

OAE] 2,92.5

....

A

..

JSR

RPN

;

READ

JAPE

813.

867

04t=8

4000

A

PUSH

0 ;PUT

RETURN

ADDRESS B

874.

868

04F9

A700

A ST 1 t (

3)

;STORE

WORD

875.

..

.8.69 o

4EA

.....

21.011 A Jl1P, •

:+.1

;DUMMY

876

•

870

04FB

2148

A ..iMP

FWD

;RETURN

TO

RPN

877

•

B71

04FC

2(11

B

JSR

::'IMr:"A

•

DO

T

fI..!T

Ut::C"C-Ar-r

878.

IJJJ-:

l~V',,"-~J'I"i'\

.. r "

1.

I"

!

nLJJNUC

•

812

04FD

0762.

A

_.wnRD

PO_ONE.

87'?

873

04FE

2C11

B

~SR

@MESSA

;PR.INT r-1ESSAGE.

880.

874

04Ff

07DR A •

WORD

VERF

881

•

.a.7.5

0.50.0

29D9

..

"

..

A

..

J . .5R I NYf\2

;CHECK

IF VERIFY.

8.82.

876

0501

2IES

A

JMP

FN!

;NOW

VERIFY.

883.

877

0502

291A

~,

~SR

RPN

;REAO

PIN TAPE

884.

B.1..8

_.0.

5

Q.3

4000

A

PUSH

0 ;

S.AVE.

.. R

ET.URN

ADDRESS.

885.

819

0504

F700

A

;:)KNE

1,

(

3)

;SKIP

IF

DATA

NOT

CORRRECT.

886.

880

0505

213E

A

JMP

FWD

:RETURN

TO

RPN

887.

881

0506

2"1DB A

JMP

BFlf\:

;ERROR

888.

882

0501

lIEO

A FINA: .iMP FIN

;~ll

CORRECT

889.

REVI

SION-G

05/16/74

04/02

5:41PM

PRMS

FT

POO343B

03/191,

5

PAGE

NUMBE~

26

883

0508

•

PAGE

d90.

BB4

0508

·

GET

INPUT

Y

OR

t\l.

891.

..

8A5

0508

·

4SR

INYN+2

892.

It

886

0508

· kETURN

FOR

r\.

893.

..

887

0508

·

KET

UR

N

FOR

v.

894.

It

888

0508

895.

889

0508

INYf\l:

896.

890

0508

2(11

B

..I

SR

@MESSA

;PQ.INT

MESSAGE.

891.

891

0509

0801

A

.WORD

ERF

898.

892

050A

2008

A

INYN2:

JSR

@STRA

:GET

CHAR

y

OR

N.

899.

893

0508

SOIA

R

LO

O.WHERE

;GET

INPUT.

900.

894

osoe

6012

B

AND

O.MFF

;MASK

OFF.

901.

895

0500

48F9

A AISZ

0.-7

;CHECK

FGR

N.

902.

896

050E

2101

A ..iMP

.+2

;NOT

N.

903

•

891

050F

0200

A RTS ;N.

904.

89B

0510

4BF5

A

J.\!Sl

0.-11

;CHECK

IF

Y.

905.

899

0511

21F6

A

JMP

INYN

~BAD

INPUT.

906.

900

0512

0201

A K TS 1

;YES.

901.

901

0513

908.

902

0513

0358

A

STRA:

..

WORD

START

909.

903

0514

910.

904

0514

PC

KSM:

911.

905

0514

2(11

B

.JSR

@MESSA

;PRINT

MES

SAGE.

912.

906

0515

01E8

A •

WORD

VEFR

913

.•

907

0516

8039

B lD

O.HICKSM

·~~T

~i.J\..1

MOST

SIG

CKSM.

914.

90a

0.511

2C26

B

JSR

@DHEXA

;PRINT

IT.

915.

90Q

0518

4C20

A l I

0,

I)

20

;

PR

I

NT

A

SPACE.

916.

910

0519

2eoo

B JSR ;lPUTC

917.

911

QSIA

3881

A

RCPY

2.0

;

PUT

CHECK

SUM

IN

ACO.

918.

912

0518

?C26

B

JSR

@OHEXA

;PRINT

NUMBER.

919.

913

051C

0200

A

KTS

920.

REVISIDN-G

05/16/74

04/,)2

5:

41

P'4

PRt.,

SFT

POO343B

03/19115

PAGE

N

LP4

t3

EK

21

914

0.510

•

PA

GE

921.

915

0510

RPN:

922.

916

0510

?C11

B

.J

SQ,

@~1ESSA

~PRINT

MESSAGE.

923.

911

051E

0720

A

.WORD

DATA 10

924.

918

051F

2C29

B

,JSR

@LOKSA

;WAIT

FOR

KEYBRO

HIT

925.

919

0520

2C27

A J

SR

@CRlFA

926.

920

0521

4000

A LI

1.0

~ZERO

WORD

927.

.921

0.522

'tEO,a.

A.

LI

2.0

;ZERO BIT COUNTER

928.

922

0523

8e23

B

LD

3.SWBUF ;AC3 =

BUFFER

POP·.JTER

929.

923

0524

READS:

930.

92,4

0524

2ellE.B

.

.JSR

@GE1C

:REAO

TAPE

931.

925

0525

602B

R

AND

O.K1F

;MAKE

7 BIT

ASCII.

932.

<:)26

0526

48BE

A

~ISl

0.-042

;READ

UNTIL

A B FOUND,.

933

•

92.1

.0527

2lEC

A

..iMP

READB

:NOT

A B

KEEP

READING

934.

928

0528

4000

A

II

1,0

;ZEPO

WORD

935.

929

0529

4F08

A LI

2.8

~SET

BIT

COUNTER

936.

93.0

052

A

NOW.READ:

937.

931

052A

2eOE B JSR

@GETC

;READ

PAPER

TAPE.

938.

932

0528

60?B

8

AND

O.K7F

;MAKE

7

BIT

AS

C I

I.

939.

.933

052£

fLID

A

....

SKNE

Q,KP

~CHECK

FOR

P.

940.

934

{)S20

2107

A

JMP

PREAS

;IT

IS

A

P.

941.

935

052£

FllC

A 5KNE

O.K.N

;15

IT

AN

N?

942

•

936

.

QS2F

210n

A

.JMP

NRE~O

;YES

943.

93"1

0'510

FOlF

R SKNE

0.1<46

;15

IT

AN

F ?

944.

938

0531

210D

A

.JMP

FREAD

:YES

945

•

. 93.9

.il532

...

__

"

...

.EERROR.: •

~".-..

~

....

c

_,

r

94.6.

940

0.532

2C11

B

JSR

@r1ESSA

-:

PRI

f'T

~fSSAGE.

941.

941

0533

0759

A .WORD Bl\DTAPE

948.

942

0534

200.0.8.

JMP

BSTART

;ro

START.

949.

REVISIDN-G

05/16/74

04/02

5:41P\1

PRMS

FT

POO343B

03/19/15

PAGE

NUM

BER

28

943

0535

.PAGE

950.

944

0535

951.

945

0535

PR

E

AS:

952.

q46

0535

5001

A.

SHL

1,1

;SHIFT

WCRD

LEFT

ONE

953.

941

0536

4901

A

~

ISl

1

,1

;ADD

A

BIT

954.

948

0537

GOON:

955.

949

0537

4AOO

A A

IS

Z

2,0

~IF

COUNTER

IS 0

BAD.

956.

950.

-0538

2101

A

JMP

.+2

:

GOOD.

957.

951

0539

2IF8

A

JMP

REPRCR

;TAPE

IS

BAD.

958.

952

053A

4AFF

A

AISI

2,-1

iDEe

COUNTER

959.

953

0538

2100

A

JMP

.+1

;aVER

FLOW

960.

954

053C

2iFO

A JMP

NOWREAD

;GET

MORE

961.

955

0530

962.

-956

05.30

NREA.O:

963.

957

0530

SOOl

A

:lHL

1,1

;SHIFT

ONE

BIT

964.

958

053E

21F8

A JMP

GCCN

965.

959

053F

966.

960

053F

FR

E

AD:

967.

961

053F

4AOO A AISZ

2,0

;SKIP

If

COUNTER

= 0

968.

.962

0540

21Fl

A

JMP

RERROR

;81T

caUNT

BAD

969.

963

0541

4400

A

PULL

0

;SET

RETURN

ADDRESS

970.

964

0542

4000

A

PUSH

0 ;SET

RETURN

ADDRESS

971.

965

0543

0200

A

r(

TS

972.

966

0544

973.

967

0544

FWD:

914.

968

0544

4801

A A

151

"l

_ 1

;BUMP

POINTER

975

•

......

.t.

969

05'45

2(14

B

JSR

@~f1~I

A ;CHECK

IF

DONE

916.

970

0546

2100

A

JMP

REArs

;NOT

DONE

CHECK

FOR

B NOW.

977.

971

0547

4DOO

A LI

1.0

;AC 1

::

o.

918.

972

0548

A42?

B

~T

ItRCM ;ZERC flCM

ADDRESS.

919.

913

054t7

0204

A

RTS

4

;RETfjRN

980.

914

.05-4A

981.

975

054A

C050

A KP: .WORD

050

982.

976

0548

004E

A

KN:

..

WORD

04E

ron':)

70.::J.

971

054C

0424

A

AVAR:

•

WORD

VAR

984.

REVISION-G

05/16/74

84/82

5:41P:;1

PRMSFT

POO343B

03/19/15

PAGE

NU~9Ec<

29

918

0540

• PAGE

985.

919

0540

VARA:

986.

980

0540

85FE

A

LD

1.~V

6R

;GET

RETURN

AOJc{~SS.

987.

981

054E

4100

A

tJUS

H 1 ;PUT

ON

STACK.

988.

982

054E

40-00

-A

PUSH

0

;SAVE

NUMBER.

989.

983

0550

2C27

B

JSR

@CQLFA

990.

984

0551

4400

A

PULL

0 :GET

NUM

B

ER.

991.

_._9B5

,05.5.2 2C2.A_H

JSR

@HEXYA

992.

986

0553

VA.IR:

993.

987

0553

4COO

A

LI

0.0

;SET

ROM

ADDRESS

.-

0

994.

9aB

05

54

____

A C22_ A

ST

O,RC~

;STORE

IT.

995.

989

0555

4EOO

A

LI

2.0

;lERO

CHECK

su~.

996.

990

0556

A839

B

.:->T

2.HICKSM ;SET MOST

SIG

CKSI'J.

TO

o.

997.

..

991

0551

-fA819-B"

~I,

2,WHAI

;SEI

FLAG

•

998.

992

0558

8C23

B

LD

3"SWBUF

;SET AC3 =

POINTER

999.

993

0559

3300

A

RADD

0.3

;FIX

STARTING

ADDRESS.

1000.

994

05SA

,_,P1JIIT:

1001.

995

OS5A

2C28

B

.J

SR

@R

E~DWA

;

READ

PROf",

1002.

996

0558

3200

A

RADD

0'92 ;

MAKE

CHECK

SUM.

1003.

997

055,(

. 1ADB

_A.

__

aoc.

eYO\l

"ADAG

,;CHECKIF

MOR!::

THAN

16.BIT

C

KS~'1

•

1004.

998

0550

F300

A

KEPC:

5KNE

o.

(3)

;SKIP

IF

ERROR

1005.

999

O'55F.

?lOl

A JMP

.+2

;NORMAL

1006.

1000

Q.5.5F

203.1.

A

..

""'

JSR

@ARR

;PRINT

BAD

DATA

THEN

KEEP

CHECKING.

1007.

1001

0560

4801

A AISZ

3.1

j8UMP

POI~TER

1008.

1002

0561

2C14

B J

SR

@RO~IA

~CHECK

FOR

aUF

END.

1009.

1003

05,,62 21.1:1 .A

~MP

PUTIT

;NOT

DONE

1010.

1004

05-~63

8019'

8

lO

O,Wt-t~T

'~GET

t=Ll\

G.

1011.

lO05

0564

4800

A AISZ

0,0

:I~

NO

ERRORS

WILL

BE

ZERO.

1012.

1006

0565

2104

It JMP

NGTVAR

;

AN

ERROR.

1013.

1007

0566

29AD

A JSR PCKSM ;PRINT

CHECK

SUM.

1014.

1008

0567

0200

A

kTS

1015.

1009

05,68

1016.

1010

0568

ADAG:

1011.

,

..........

:!"\~:;n

'i"""l-"'""'tr't..

B 1

SZ

:I:

I

.,.,..

Jil

~

•.•

;BUMP

HIGH

CKSM.

1018.

iV1.1

V::JOO

I

o;,:)~

n

11...

1\:>1'"1

1012

056S

21F3

A JMP KfPC

;00

REST.

1019.

RFVISI;]N-G

05/16/74

)4/J2

5:

41

p'-'\

PRMSFT

POQ

343

B

0'3/19/]5

PAGE

NUMBER

30

1013

056A

• PAGE

1020

•

1014-

056A

1021.

1015

056A

NCTVAR:

1022.

1016

056A

2C11

B

~SR

@~ESS~

;

PI<.

I

NT

MESSAGE.

1023.

1017

0568

0794

A

.WORD

V:JON

1024.

1018

056C

2000

B

..IMP

BST~RT

;TO

STAQT.

1025.

1019

0560

1026.

1020

056C,

PRCK:

1027.

1021

0560

2C21

B

jS~

@CRlFA

1028.

102?

056f

4COO

A

II

0,0

;

SET

ACO

TO

o.

1029.

1023

056F

A039 8

ST

O,HICKSM

;ZERO

HIGH

CHECK

SU!..1.

1030.

1024

0570

A022 B

ST

Q,RCM

;ZERO

PROM

ADDRESS.

1031.

1025

0511

4EOO

A LI

2,0

;ZERO

CHECK

SUM.

1032.

.102h

05J2

2C28.

B

PRl

P:

.JSR

@READWA

;READ

A

PQ.OM

WORD.

1033.

1027

0573

3200

A

RADD

0,2

;UP DATE

CHECK

SUM.

1034.

1028

0574

1 Al a A uoe

CYOV.ADDI

;ADD

ONE

TO

HIGH

CKSM

p.:

BRANCH.

1035.

1029

0515

2C14

B

PRlGP:

jSR

@ROtJIA

;CHECK

FOR

END

..

1036.

1030

0576

?IF8

A

JMP

pqlD

;KEEP

GOING.

1037.

1031

0577

299C

A

00

:

JSR

PCKSM

;PRINT

CHECK

SUM.

1038.

. 1.03.2

057B

2.000

B

..JMP

BSTART :TO START.

1039.

1033

057~

1040.

1034

057<;

Be

K:

1041.

1.035

O.51S

2C27

B JSR

@CRlFA

1042.

1036

057A 4COO A

LI

0,0

:ZERO

ACO.

1043.

1031

0578

A039

B

~T

O.HICKSM

;ZERO

HIGH

CHECK

SU'1.

10

..

4.

lOJ-B

057C.

A022

B

,-"T

a.RCM

;lERC

PRC~·1

ADDRESS

..

1045

.•

,,;)1

103Q

0570

4EOO

A

It

2,0

~lERO

CHECK

SUM.

1046.

1040

057£=

8e23

B

lO

3,

SWBUF ;STARTING

ADOR

ESS

OF

BUFFER.

1047.

1041

OS.1F

eBOO

A

BCKLP:

ADD

2,«

3)

;UPDATA

CHECK

SUM.

1048.

1042

0580

1A06

A

dOC

eYOV.OAD

;AOD

ONE

TO

HIGH

CKSM

IF

BRANCH.

1049.

1043

0581

4801

A KKPP:

AISl

3,,1

;UP

DATA

BUFFER

POINTER.

1050.

10.44

05.82

2.C14 B

.J$R

@ROMI.A

:CHECK

IF

DONE.

1051

•

1045

0583

21FR

A

JMP

8CKlP

;KEEP

GOING.

1052.

i046

0584

21F2

A

,.IMP

00

;OONE.

1053.

1047

0585

1054.

1048

0585

ADDl:

1055.

1049

0585

7839

B 1 SZ

HICKSM

;ADD

1

TO

HIGH

CKSM.

1056.

1,0.50

0586

2IEE

A

.,lMP

PRLGP

:RETURN.

1057

•

1051

0587

1058.

1052

0587

DAD:

1059.

1053

0587

1839

B

lSl

HICKSM

;ADD

1

TO

HIGH

CKSM.

1060.

1054

0588

2IF8

A JMP

KKPP

;RETURN.

1061.

REVrSTOI\i-G

05/16/74

04/02

5:41pf"1

PR~-1

SFT

PQ0343B

03/19115

PAGE

NUMfjER

31

1055

0589

.FAGE

IJ62.

1056

0589

1063.

1057

058<;

DUP:

1064.

10')8

0589

2eI1

R JSR

@ME

S

S,A

;DRINT Mr::SSAGE.

1065.

-1059

OSSA

0770

A

.WORD

lDRCM

1066.

1060

0588

2C29

R

.;SR

@lCKSA

;WAIT

FeR

INPUT

1067.

1061

058e

4COO A l I

0.0

;SET

ROM

ADDRESS

1068.

---1062-,0580

A022

-8

.'iT a,ReM

~SAVE

IT

lQ69.

1063

058E

8C23

B

LD

3,SwBUF ;

ME

~ORY

POINTER

1070.

1064

058f

DUPED:

1071.

1Q65_

Q58F

2C28

A

~SR

@REt'DWA

:READ

FROM

PROM

1072.

IJ66

0590

A30a

A

5T

o t

(3)

;STORE

IT

1073.

1067

0591

4BOI

A A

IS

l

3,1

:BUMP

POINTER

1014.

l06a

0592

?C14. B

4SR

@ROr.'IA

;ADD

ONE

Tn

A~ORESS.

1075.

1069

0'593

?lFB

A

JMP

DUPED

:NOT

DONE

1076.

1070

05~4

298F

A

JSR

VAIR

;VER I

FY.

1017.

1011

0595

2500

A JMP

alFFIN

:

PR

I NT

MESSAGE.

1076.

1012

0596

1019.

1073

0596

C4E8

A FF

IN:

.WORD

FIN

1080.

IO?.!!

..

-.05

91

1081.

1075

0591

03CE

A

AR

R:

·.WORD

ERROP

1082.

1076

0598

1083.

107.7-_

0..59

..

.8

1084.

1078

o5ge

0639

A

TNG!

:

.WURD

PTf\GI

1085.

1079

059<;

C004

A K4 !

.WORD

4

1086.

lOBO 05.9.ft

1087

•.

lOR

1 OS9A

10B8.

1082

059A

RF

DCRl:

1089.

1083

059A

4FIO A

LI

3,CR.A.O

;ADDRESS

OF

CR.

1090.

1084

0598

8168

A

LD

O,CRBUF

:ADORESS

OF

BUFFER.

1091.

1085

059C

0602

A

ROUT

STAI\O

;READ

CARD.

1092.

108.6

.,QS9JI

lC01._.A

~

..

. hOC

POA,.+2

;CHECK.IF

RECEIVED.

109.3.

1087

059E

21FD A

JMP

.-2

1094.

1068

059F

0401

A

WTlOP;

kIN

STATUS

.GET

STATUS.

1095.

1

oat}

05AQ

7164

A

~KAl

Q,H(O

;CHECK

IF

ERRO

R.

1096.

1090

OSAl

0200

A

R.TS

;ERRQR.

1091.

1091

05A2 5eFE A

SHR

0.2

1098.

lOQ2

05A3

14FB

A riDe

BIT1.WTlCP

;BUSY.

1099.

1093

05A4

0201

A

'{TS

1

:DONE.

1100.

1094

05A5

1t

01.

1095

05A5

1102.

1096

05A5

CR

FR

:

1103.

1097

05A5

4400

A

PULL

0

1104.

1098

05A6

4FID A

LI

3.CPAD :

GET

CARD

Rf.=ADER

ADDRESS,.

1105.

1099

05A7

0401

A

KIN

STATUS

;GET

STATUS.

1106.

1100

O'5A8 7IFO A

~KAl

O.K4

;SKIP

IF

O~

lIl\JE.

1107.

1101

05ACi

2101

l\

JMP

CR.

;NOT

ON

LINE.

1108.

1102

05AA

216E

A

~HP

IN

ERR

;ERROR.

1109.

REVISION-G

OC5/16/74

041

J2

5 :

41

P

~·1

PRMSFT

POO343R

03/19/75

Pt\G~

NUM8ER

32

1103

o 5.t\8

..

PAGE

1110.

1104

05A8

CR

:

1111.

1105

05AB

2960

A

..JSR.

NEW

;FIX

FLAGS

FOR

BUFFER

;~JDPESS.

1112.

1106

O'5AC

ALII A

51

a, A "DC

Q,

;SET

.AND

INSTRUCTION.

1113.

1107

05AO

2el1

A

JSR

@~ESSA

;PRINT

MESSAGE.

1114.

1108

05AE

0807

A

.WORD

CRRl

1115.

1109

05AF

2C29

B

.J

SR

@lrJf(SA

;WAIT

FOQ.

KEYBOARD

HIT.

1116.

1110

05HO 2.G27 B .J

SR

@CRLFA

1111.

1111

0581

2101

A

.JMP

CRRlM

1118.

1112

0582

1119.

1113

0582

TORSC:

1120.

1114

05B2

2919

A

JSR

CRCKSM

;CHECK

SUM

UNTILl

nONE.

1121.

1115

O'5R3

CRRLM:

1122.

.1116

0583

2928

A

JSR

READCR ;READ A CARD.

1123.

1117

0584

25E3

A

oJ

MP

@TNGI

;OONE R

EADI

NG.

WAS

AN

*.

1124.

1118

o

'5R

5

8300

A LO o t

(3)

:GET RECORD TYPE.

1125.

1119

0586

12.FB A

bOC

GTEC~TORSC

;TITLE

OR

SYMBOL.

1126.

1120

05A7

7151

A SK.AZ

Q,M4000

;SKIP

IF

OAT

A.

1127.

1121

05R8

21F9

A

JMP

TORSC

:ENO

RECORD

..

1128.

1122

0589

CR

OAT.A.:

1129.

1123

05R9

2912

A.

J

SR

CRCKSM

:CHECK

RECORD.

1130.

1124

058A

8D49

A LD 3,CRBUf

;AOORESS

OF

CAPO BUFFER.

1131.

1125

05HB

8100

A

LD

1.

(

3)

;GET

lENGTH.

1132.

1126

O'5BC

6436

R

~NO

1,K3FFf

;KEEP

LENGTH.

1133.

1121

0580

8303

A LD

O~3(3)

;GET INITIAL

ADDRESS.

113·4.

.1128

05.BE

.~O3.7

B

ANDeR.

,:

~AND

O

.•

ADMSK ;.KEEP l

E.AST.

BI.TS.

1 1 "'l

~

~.L_';J.

1129

05BF

3281

A

kCPY

0,2

1136.

1130

05CO

C833

B

AOD

2.BUFFAD

;ADDRfSS

Of

WR

I

TE

BUFFEP

..

1137.

,.113..l

O.5C-.1

.s.038. B

.LD

O.FIRAD

:CHECK

IF

FIRST

..

1138.

1132

05C2

1501

~.

oOC

NZRC,NFRN

;NO.

1139.

1133

05C3

td1~R

B

ST

2.FIRAO

;YE

S

SAVE

ADDRESS.

1140.

,.L.13..4.

O.5C4 A·.9FC A

..

NfR.N!

-llSZ

1,-4

.;UP

OAT

E L

ENGT

H ..

1.141.

1135

05CS

CR

ST:

1142.

1136

05C5

8306

A

LD

0,6(3)

;GET

OAT

A.

1143.

1131

...

O . .5C6

A200

A

Sf

0,

(

2)

: STORE

IT.

1144.

1138

05C7

4AOI

A

41S1

2.1

1145.

1139

05C8

4801

A A I S l

3,1

1146.

1140

O·5C9

49Ff

A

I41S1

1,

-1

:CHECK

IF

CARD

DONE.

1147.

1141

05CA

21FA A

JMP

CQST

;NO.

1148.

1142

05CP

21F7

A

..IMP

CRRLM

1149.

REvrSION-G

05/16/74

0't/02

5:41P~

PQ~SFT

P003438

03/19/'5

PAGE

NUMBE~

33

1143

05ce

•

PAGE

1150

•

11!t4

-05ee

CRCKSM:

1151.

1145

05ee

8031

A

LD

3,

C R8UF

1152.

1146

05CO

8300

A

LO

0,

(

3)

:GET

l ENG!

H.

1153.

1141

oseE

6036

B

~ND

O.K3FFF ;KEEP

LENGTH.

1154.

1148

05CF

3281

A

kCP

Y

0,2

;

lENGT

H

IN

AC2.

1155.

1149

0500

8301

A

LD

0,1(31

;GET

CHECK

SUM.

1156.

-1150

050-1

1109.-

A

.~-

Aloe

IERC,ENDCK

;NO

CHECK

SUM.

1157.

1151

0502

5001

A

CAl

0,1

;FORM

2ICO~P.

1158.

1152

0503

3181

A

rtCPV

0

..

1

~CHECK

SUM

IN

ACl.

1159.

1153

050.4

.8302 A

Ln_

0.2(3)

:GET

WORD.

1160.

1154

0505

3100

A

RADD

0,1

;UP DATE

CHECK

SUM.

1161.

1155

0506

4601

A AISZ

.3

.1

;BUMP

POINTER.

1162.

1156

0507.

4Aff

..

A.

AISZ

2

..

-1

; CHECK

.IE

_

DONE.

1163.

1157

0508

21FB A JMP

.-4

1164.

1158

05D~

4900

A

AISI

1.0

:

CHECK

IF

OK.

1165.

115.9

Q5.DA-

___

2101.'

_A_

--

JMP

.+2

:Bfl,O

CHECK

SUM.

1166.

1160

0508

0200

A

EN

OCK: RTS

1167.

1161

05DC

294F

A JSR

BADCK

;CHECK

IF

REPEAT.

1168.

1162

05.DO

4400

..

A

PULL

0

1169.

1163

05DE

21CC

A

JMP

CQ.

;YE

s.

1110.

1164

05DF

1171.

1165,.Q_S.DF

DOLO

..

A

CRAD,

--~.

2*8

1172.

1166

OSOF

COO2

A STANO -2

1173.

1167

05f)F

OOOI

A

STATUS

= 1

1114.

~

E V I S I 0

f\)

-G

0'5/16/74

04/02

5 :41Pr-,1

PQ.MSFT

POO3438

03/1S

115

PAGE

NUMBER

34

1168

05DF

• PAGE

1175

•

1169

05DF

READeR:

1116.

1170

05Df

8924

A

LD

2,CRBUF

~

GET

CAR')

BUFF

ER.

1117.

1171

OSEO

2C32

8

.J

SR

@RErCR

;READ

A

CARD.

1118.

1172

05El

21e3

A

JMP

CRER :ERROR.

1179.

1173

05F.2

8021

A

LD

3,CPBUF

1180.

1174

05E3

3E81

A RCPY

3.2

;AC2

IS

PO

INTER.

1181.

1L75

05E4

8300

A.

LD

O~(31

;GET

PUNCH

WORD.

1182.

1176

05125

0121

A

SUB

O.A

STR

;CHECK

IF

*.

1183.

1177

OSE6

1501

A

oDe

NZPO

••

+2

;NO

+2.

1184.

1178

OSE7

0200

A

RTS

tWAS

AN

*.

1185.

1179

OSE8

4001

A

II

1.1

;SET

COUNTER.

1186.

1180

05E9

A419

B

Sf

1.WHAT

;BfT

CCUNTER.

1187.

118.1

05EA

AC1A

fL

ST

3.WhERE :ADDRESS.

1188.

1182

Q5f:B

901

A B

STEPl:

LO

O.

@hHERE ;GET

PUNCH

WORD.

1189.

1183

05Ee

781

A B

1SZ

WHERE

,BUMP

AODR

ESS.

1190.

1184

o.5EO

BDlS

A.

LD

3.ATBl

:CONVERT

TABLE.

1191.

1185

05EE

1108

A

oOC

ZERC.

STE

P2 ;

BL

,ANK.

1192.

1186

05fF

f300

A Sl.

OPl:

SKNE

O,,{~)

;CHECK

FOR

CHAR.

1193.

1187

05FO

2106

~A

JMP

STEP2

:MATCH.

1194.

1188

o

5f1

4B01 A AISZ

3,1

;BUMP

POINTER.

1195.

1189

05F2

E015

A SKG

3.ETBl

:SKIP

IF

BAD

CHAR.

1196.

...

~1~190

a.sF3 2.lEB-

..

A

.J.M.P

SLOP!

;KEEPCHECKING.

1197

•

1191

05F4

2C11

R

~SR

@MESSA

;PRINT

MESSAGE.

1198.

1192

OSf5

0810

A

.WORD

INVAl

1199.

_.,

",,1

L9.3

..

05E6,

.2000

....

B

..

,.

..I.MP.

eST

.ART

•

Tn

START

•.

1200

..

".,J.U

11

<]4

05~7

1201.

1195

05F7

OOOE

A STEP2:

SUB

3,ATBl

;CREATE

WORD.

1202.

1196

05F

8

5004

A S.HL

1,,4

;MAKE

ROCM

FOR

NE'1l

BIG.

1203.

1197

05F9

3000

A

kADD

3.1

;MAKt

WORD.

1204.

1198

05fA

8019

B

LO

O.WHAT

;GET

COUNT.

1205.

..

,

..

1199

05FB

1303

A .. riOC ODD,STEP3 ·

1206.

..

1200

05FC

1402

A

tine

BIT1,$TEP3

·

1207.

•

1201

05FD

A600

A ST

1.(2;

,PUT

NEw

WuRD

AWAY.

120B.

1202

05FE

4AOl A AI S l

2.1

;BUMP

POINTER.

1209.

1203

05FF

7819

8 STFP3:

ISl

WHAT

;BUMP

COUNT.

1210.

1204

0600

4888

A

AISI

0,-72

;CHECK

FOR

END

OF

CAR

C.

1211.

..

12.05

0.601

21E9,

A

.JMP

srI:

PI

:NO.

1212

•

i206

0602

8001

A

LO

3.CR

BUF

1213.

1207

0603

0201

A

kTS

1

1214.

REVISIDN-G

05/16/74

04/02

5!41P~

PRMSFT

POO343B

03/19/;;'

5

PAGE

\JU

t.,

B

E::(.

35

1208

0604

•

PAGE

1215.

1209

0604

OSAF

A

CR

aUF:

...

wORD

CBUFF

1216.

1210

0605

OOCO

A

fC

0:

•

WORD

OCO

1217.

1211

0606

0825

A

ATRL:

.WORD

Tal

1218.

1212

0607

-0422

A

AS

TR.:

.WORD

0422

1219.

1213

0608

0834

A ET8L:

.WORD

TBl +15

1220.

1214

0609

4000

A

~4000:

.WORD

04000

1221.

-1215

06CA

035B

A ASIART:

_.

WORD

START

1222.

1216

060B

0000

A

lSWB:

.WORD

0000

1223.

1217

060e

1224.

_

....

12~8

060C

1225.

1219

OcOC

NEW:

1226.

1220

Oboe

4000

A

II

1.0

;SET

FIRST

FLAG.

1221.

..

-1221

0.00.0

A43£

B ST 1.FIRAD

1228

•

1222

ObOE

8033

B

LD

O.BUFFAO

~CHr:CK

IF

DEFAUl

T

BUfF

fR.

1229.

1223

060F

F034

B SKNE

O.T8FAf)

;

IF

YES

NO

SKIP.

1230.

.1224

.0.6.10

_2.10..3

A

JMP

OLD

:NO

READ

TO

FIXED

BUFFER.

1231

•

1225

0611

A03<i

B :)T O.HICKSM ;SET

NEW

BUFFER

FLAG.

1232.

1226

0612

8104

A

lD

O.ANDL

;SET MASK

FOR

4K.

1233.

.1227

(1.613

02DU

...

A

...

~

RTS

1234.

1278

0614

1235.

1229

0614

OLD:

1236.

123Q

0..614 A.439. . B

..

_

...

.:JI _

1.HICKSM

; SET

DEFAULT

BUFFER

FLAG.

1231

•

1231

0615

8107

A lD

O~Af\DS

~SET

MASK

FOR

512

WORDS.

1238.

1232

0616

0200

A

KTS

1239.

1233

0617

12.4.0._

1234

0617

6037

B

AN

DL:

AND

O.AOMSK

1241.

1235

0618

6013

B

ANDS:

4ND

O.K

511

1242.

REV!SION-G

05/16/74

04/02

5:41P''4

PRMSFT

POO3't3A

03/19/15

PAGE

NUMBER

36

1236

0619

• PAGE

1243

•

1231

0619

1244.

1238

ObIS

1245.

1239

0619

1246.

1240

0619

2C11 B INFRR: J Sf(

@"1ESSA

;

PP

I

NT

MESSAGE.

1247.

1241

061A

0819

A

.WORD

XMIS

1248.

1242

0618

2000

R JMP

BSTART

;TO

5T

~R

T.

1249.

12.43

061.C

1250.

1244

Oble

CKSM:

1251.

1245

061C

4BFF

A AISZ

3.-1

~UPDATE

LENGTH.

1252.

1246

0610

2101.

A

..iMP

.+2

;NOT

DDNE.

1253.

1241

Oblf

2103

A

JMP

BADe

:DONE.

1254.

1248

061F

2q55

A .JSR REAC2

;READ

WORD.

1255.

1249

0.620

.3200

A

KADD

0.2

; UPOAT E

CHECK

SUM.

1.256.

1250

0621

0200

A

RTS

;NORMAL

NOT

DONE

RETURN.

1251.

1251

0622

7819

B

BADD:

t

Sl

WHAT

;

CH

ECK

If

THERE

WAS

A

CKSM.

1258.

1252

0623

2101

A

JMP

.+2

:THFRE

WAS

A CHECK

SUM.

1259.

12'53

0624

0201

A R

TS

1

;NORMAL

DONE

RETURN.

1260.

1254

0625

4AOO

A

AISZ

2.0

;SKIP

If

CHECK

SUM

OK.

1261.

1255

0626

21D1

A

...

~MP

..

+2

1262.

1256

0627

0201

A

RTS

1

;GOOD.

1263.

1257

0628

2903

A

.j

SR

BADCK

;CHECK

IF

REPEAT.

1264

•

1258

062<3

4400

A

PULL

0

1265.

125q

062~

4400

4

PULL

0

1266.

1260

062B

2108

A

JMP

PTI ;YES.

1267.

,102.6..1

.

0,6.7.C

1268

•

1262

062e

2el1

B

SA

nCK:

~SR

@~ESSA

:PRINT

~~

ES

SAGE.

126q.

1263

0620

01C 7 A •

WORD

CKER

1210.

1264

06.2E

200.2

A JSR

@INYNA

;GET

YES

OR

NO

..

12'11.

1265

062F

2000

B

J'4P

BSTART

;TO START.

1272.

1266

0630

0200

A k

TS

;YES.

1213.

Ub.l

0631

~

.

1214.

1268

0631

050A

A

INYNA:

.WORD

I

!\JY

N 2

1215.

REVISION-G

05/16/74

PRMSFT

P00343B

03/19115

1269

0632

•

PA

GE

1210

0632

PT:

1211

0632

290

CJ

A J

SR

1212

0633

A151 A

51

1213,

O.63!t.

2CIL.B.-PTl:

. J.SR

1214

0635

0720

A •

WORD

1275

0636

2C29

B

.JSR

127h.

0.637

2C21

.B~

JSR

1271

0638

2942

A

JSR

1278

063<1

PTNG

I:

127"1

0639

2el1

B JSR

1280

063A

074A

A .WORD

1281

06.38

8038

B

l.D

---.12B2

..

O .

.63C

2£2.6.8.-

.....

...

SR

1283

06.30

8039

B

LO

1284

063E

1529

A

tiDe

l2B5

Qb3F

8.01

..

0

..

-

-.8.

..

LO

12B6

0640

8833

B

LD

1287

0641

F012

B

SKNE

128..8 06:42

2102.

A

..

JMP

12A9

0643

2C27

B JSR

1290

0644

216B

A

JMP

_

..

129

...

1

..

0.tAS,.,

..

2G1L

..

8 .

DUMB:

.JSR

1292

0646

07F:O A •

WORD

1293

0647

20C2

A

JSR

.129.4

.0.6A8 aU1A._B

LD

1295

0649

883·~

B

LO

1296

064A

6012

R

AND

1297

0648

48FB

A

AISZ

1298

064C

2101

A

JMP

1299

0640

2162

A

.j

MP

13.Q.0

06.4.E

A

3.F

,1.

A

...

_ AISZ

1.301

064F

21F5

A

.JMP

1302

0650

8C23

B

LO

1303

0651

89SQ

A

LO

1304

0652

2960

A

JSR

1305

0653

2101

A

JMP

~EW

OtAf\DPT

@MESSA

DATttln

@LOKSA

@CRLFA

PTRlM

@MESSA

STAPTA

Q,FIRAD

@.QHEXA

O.HICKSM

NZ

Re.

PTON

O.BUfEND

2,BUFFI\O

O.MFF

.+3

@CRlFA

MOVIE

@MESSA

Ul

@ASTART

0,*

Wf-ER

E

2,Bl'FF~D

O,MFF

0.-5

.+2

MOVIE

0,-9

nUMB

3.SwRUF

2,lSWB

MOVE

•

+2

04/02

5:41D;Y1

PAGE

NUMBE~

37

;FIX

FLAGS

fOR

BUFFER.

;SET

MASK

INSTRUCTION.

;.Pp

INT

MESSAGE.

;WAIT

FOR

KEYBOARD

HIT

•

;READ

RLM

PAPER

TAPE.

;PRINT

MESSAGE.

;GET

FIRST

BUFFER

ADDRESS.

;I?RINI

IT.

;CHECK

IF

FIXED

BUFFER

OR

NOT.

.NO.

:CHECK

FOR

2K.

:IS

NOT

2K.

;P.RINT

MESSAGE

•

;GET

LAST

CHAR.

:GEICHAR.

~KEEP

LAST.

;CHECK

IF

LOWER.

;

YE

S •

;

CH

E

CK

1 F

UP

PE

R •

;S.AD

CHAR.

..

.,....,.......

.....

I""l

.ut:J

1

u.

;GET

FROM.

~MOVE

IT.

1276.

1277.

1218.

1279.

1280

•

1281

•

1282.

1283.

1284.

1285.

1286.

1287.

1288.

1289.

1290.

1291.

1292.

.1293.

1294.

1295.

1296.

1297.

1298

•

1299.

1300.

1-301.

1302.

1303.

L304.

1305.

1.306.

1307.

1308

•

1309.

1310.

1311.

1312

•

REVISTON-G

05/16/74

:]4/

J2

5:41PH

PR~SFT

POO343B

03/19/75

PAGE

NUMRER

38

1306

0654

• PAGE

1313

•

1301

0654

PTNG:

1314.

1308

0654

2C27

B

,j

SR

@CRLFt\

1315.

1309

0655

2el1

B J

SR

@~-1E

S

SA

;PRINT

MESS

AGE.

1316.

1310

0656

07AB

A .WORD

LOR

1317.

1311

0657

2DR? A

JSR

@ASTART

;GET

CHAR.

1318.

1312

0658

801.A 8

1..D

O,WHERE

~GET

LAST

CHAR.

1319.

1313

0659

6012

B

AND

O.fJFF

:KEEP

JUST

LAST.

1320.

1314

065A

48FB

A

AISl

o

,-~

;CHECK

IF

l.

1321.

1315

0658

2101

A

JMP

•

+2

;NOT

AN

l •

1322.

1316

06S(

210E

A JMP

lEF

1323.

1317

065C

48FA

A AISZ

0,-6

;CHECK

IF

R.

1324.

1318

OoSE

21F5

A

JMP

PTNG

·;NOT L

OR

R.

1325.

·1319

065F

4(00

A

1..1

0.0

;ZEP.O.

1326.

1320

0660

A022 B

':>T

O.RCM

:ZERO

ROM

ADDRESS.

1327.

1321

0661

Be2]

B

LD

3.SWBUF

;GET

STARTING

ADDRESS CF BUF.

1328.

1322

0662

8300

A

Rl

t:

LO

0,(3)

;GET

WCRD.

1.329.

1323

0663

601.2 B

~ND

O~MFF

;MASK

OfF

MSO.

1330.

1324

0664

A300

A

~T

0.(3)

;STOR~

IT.

1331.

1325

.0665

4B.o1 A AISZ

3.1

;BUM,P

ADDRESS.

1332.

1326

0666

2C14

R

JSR

@ROMIA

; BUf'lP POINTER.

1333.

1321

0667

21FA A

JMP

Rll

;NOT

DONE.

1334.

1328.

0668

2.(L1

B

PTON:

JSR

@MESSA

:PRINT t,'ESSAGE.

1335.

1329

066~

0194

A •

WORD

vaef\

1336

•

1330

066A

2000

B

~MP

SST

ART

:TO STAR

T.

1331.

.

·133.1

o.66S

1338

•

1332

0668

1339.

1333

066B

4COO

A l.E

F:

LI

0,0

:ZERC ACO.

1340.

1334

066C

A022

B

';)T

Q,ROM

;ZERO

ROM

ll.ODRESS.

1341.

1335

0660

8C?3

8

lD

3,

SwBUF

;GET

STARTING

ltDDRESS

OF

BUF.

1342.

1336

066f

8300

A LL

L:

lD

O.

f

3)

;GET

WORD.

1343.

13.37

066F

seFB

A SHR

0,8

;PUT

tviOST

TO

LEAST.

1344.

1338

0670

A300

A ST

0.,(3)

;STORE

IT.

1345.

1339

0671

4801

A A

IS

Z

1,i

;BUMP

.ADORE

SSe

1346.

1.340

0672

2(14

B .J

SR

@~O"'IA

1347.

1341

0613

21FA A JMP

llL

:NOT

DONE.

1348.

1342

0674

21F3

A

JMP

PTOt-.:

1349.

REVTSION-G

05/16/74

PRMSFT

PJ03438

03/19115

134"3

0615

..

1344

-0615

1345

0615

1346

0675

-.1341,

06.76

134R

0671

134<}

067E

..

,1350

~067

S

1351

061A

1352

0678

2COE 8

31BIA

2eOE R

5008

A

3400

A.

0200

A

PE

A02:

PTRlM:

-.

PA

GE

J

SR

i'\Cpy

~SR

SHL

KADD

RTS

.13530678

2920

A

JSR

1354

067e

29F8

A JSR

13~5

061D

121C

A

doe

,,-135.6,.Ob.1£_

llaA.".,A.~,

..

-

__

..

__

,._

--$

K.A_I

.

1357

067F

2116

A

JMP

1358

0680

,---859.

06BO

..

~PTnATA--:

1360

0680

2910

A

1361

0681

29qA A

,-,13.62

0682

2100

... A

....

_

..

",.,

1363

0683

2998

A

1364

0684

7100

A

_ _

1365

_

06.85

,_,6

Q3

7

B."

.ANDP T :

1366

0686

C033

Ii

1367

0687

AOIA

B

..

,136.8,

ObItS _ . .803B,.B_,.

1369

06'8'9

1502

A

1370

068A

BOlA R

.1371

06BB

A038

B.

1312

ObBe

FRSTP:

1313

ObBe

298F

A

...

13.7 4, ,06.8 D

210.0

..

,A_".

131')

ObBE

2980

A

i376

D68F

2iOO A

JSR

JMP.

J

SR

JMP

.

AND-_

ADD

!->T

tlOC

lD

5T

JSR

Jt4P

_

JSR

JMP

1377

0690

1378

06S1

1379

0692

.,13.8..0._

0693

2988

2101

21EB

BOlA

A

B-

STOhTA:

.JSR

-JMP

JMP

ST

1381

0694

781A

1382

0695

21FA

138.3

0696

29.07

1384

0697

2984

1385

06<18

21FE

.

1386

0695

020.0

A

I

Sl

JMP

ENDRC:

JSR

JMP

R

TS

@GETC

0,1

2GETC

1.,8

1.0

LSTX

REA02

GTEQ.,TORS

Q,.M!tOO.O

.

ENDRC

FIXL

CKSM

. •

+1

CKSM

.+1

Q.,

AD.flSK

0,

BUFFA.D

Q,WrERE

D.FIRAD

~lRC,F~STP

0,

WrEQ E

O.FIRAD

CKSM

•

+1

CKSM

•

+i

CKSM

.+2

PTRLM

Q,@WHERE

WHERE

STDATA

FIXl

CKSM

•

-1

04/02

5:41P~'"

PAGE

NUMBER

39

:

GET

C

I-iA

R.

,SAVE

IN

ACl.

;GET

CHAR.

:MOVE

TO

MOST.

; FORM

.WORD

•

;WAIT

FOR

STX

CHAR.

;READ

A 2

FRAME

WORD.

;GO

TO

TITLE

OR

SYMBOL.

.:.c.

HE

C.K.,

EOB

...

D A T A

,.

;END

RECORD.

;FIX

LENGTH.

; READ

TYPE.

;DUMMY

•

;REAO

INITIAL

ADDRESS.

.•.

M.ASK

OFF

•

;MAKE

STARTING

ADDRESS.

;SAVE

ADDRESS.

;

CHECK

If.F

IRS T •

;CHECK

IF

fI~ST.

;SAVE

FIRST

ADDRESS

IN

FIPAD.

;READ

TYPE

1.

;QUMMY

•..

_

;READ

TYPE

2.

;READ

DATA

..

;NORMAL

RETURN.

;RFAD

;

STORE

OAT

.~.

;8lJMP

POINTER.

;GO

GET

NEXT.

;fIX

LENGTH

AND

CHECK

~UM.

;READ

WORD

UPDATE

CHECK

SUM.

;NOT

DONE.

;ALLDONE

•

1350.

1351

•

1352.

1353.

1354.

1355.

1356.

1357.

1358.

1359.

1360.

1361.

1362.

1363.

1364.

1365.

1366.

1367.

1368.

1369.

1.37.0.

1371.

1372.

_

1373.

1374.

1375

.•

1376.

1317.

1378.

1319.

1380.

1381

•

1382.

i383

•

1384.

1385.

1386.

1387.

1388.

1389.

1390.

1391.

1392

•

1393.

REVISION-f;

05/16/74

04/02

5:+1PM

PRMSFT

POO3438

03/19J15

PAG!:

NUA4BER

40

1381

069A

• PAGE

1394

•

.

.1388

069A

2903

A.

TORS:

JSR

FIXL

;FIX LENGTH.

1395.

1389

069B

2980

A JSR

CKS~

:RE

AC

UPO~TE

CHECK

SUM.

1396.

1390

069C

21Ff

A ,JMP

.-1

:NOT

DONE.

1391.

1391

0690

21DO A

JMP

PTRlM

:READ

1398.

1392

069E

1399.

1393

069E

F I

XL

:

1400.

1394

06t:U~

6036

8

AND

O.1<3FFF

jKEEP

LENGTH.

1401.

1395

069F

3381

A

kCPY

0.3

;LENGTH

IN

AC3.

1402.

1396

06AO 4ROl A

AI

SZ

3,1

;CORRECT

LENGTH.

1403.

1391

DbAl

2903

A JSR

REA02

; R

E!~

0

CHECK

SU~.

1404.

1398

06A2

4800

A .k

IS

Z

0.0

;

CH

E

CK

IF

CHECK

SUM

IS o •

1405.

1399

06A3

210?

A

~MP

YES

;NOT

o.

1406.

1-40.0.

06A4

40FE

..

tt.-

..

4..1

1.-1

;SET

FLAG.

1407.

1401

06A5

A419

B ST

1,

wH.~T

~STORE

IT.

1408.

1402

Q6A6

5001

A YES:

l...AI

0,1

;FORM

2'S

COMP.

1409.

1403

06A7

3281

A RCPY

0,.2

;AC2

HAS

CHECK

.SUM.

1410.

1404

06A8

0200

A

RTS

1411.

RFVISIO~-G

05/16/74

PRMSFT

PJ0343B

03/19/75

1405

06A9

1406

06A9

1407

06AS

1408

06AA

1409

06A6

1410

06AC

1411

D6Af)

.

1412

.Oi;AD

1413

06AO

1414

06AE

1415

06Af

1416

06BO

1417

06BO

..

,l.!tlB.

068.1

1419

0682

1420

0683

-1421.0683

1422

06B3

2COE B

48Ft:

A

21FD

A

0200

A

2C2A

B

8033

A

3281

A

8C23

8

2901

A

21Al A

1423

0683

4COO

A

1424.Q6B:lt

AD.22

.B

LS

IX:

MOVEE:

MOVIE:

MOVE:

1425

06B5

8200

A MOVl:

1426

0686

A300

A

1~21oQ6B1AAOl

A.

1428

06138

4801

A

1429

0689

2C14

B

1.43.0.

...

n6.B.A

2iFA

A.

1431

O'6BA

OlOOA

1432

Ob8e

1433

06BC

1434

06Be

1435

ObBe

..

143.6

0.6..8

D

1437

068E

2e2A

B

8034."

B

2C35

B

i438

ObBF A033 B

1439

06(0

8410

R

1440

06Cl

A418

B

1441

06C2

F034

R

..

1442

.06(3

2102

A

1443

06(4

80.74

B

1444

06C5

2101

A

SR

G:

1445

06(6

SRGl:

1446

06C6

8013

R

1447

06C7

SRGlO:

1448

06(7

AGIO

B

1449

06C8

F412

B

1450

06Cg

7106

A

1451

06CA 4COO A

•

PAGE

,JSR

AISl

JMP

R

TS

JSR

LO

Rep),

LO

JSR

JMP

LI

;:iT

LD

ST

~JSI

AISZ

.j

SR

JMP

KTS

jSR

lD

...

JSR

ST

lO

51

SKNE

JMP

LD

JMP

LD

.:>1

SKNE

~MP

LI

@GETC

0,-2

.-2

@HEXYA

O.BUFFAD

0.2

3,

S

WBU

F

MOVE

PT~G

0.0

O,RCM

0,

(2)

0,

(:)

2.1

3

..

1

@RO~IA

fJ,OVL

@HEXYA

Q,TBFAO

@CHARGA

"'"

.,"'

1

ir.,-

a.

n.

\,)"OvrrAU

1,BUFEND

1.AFLAG

Q,TBFAD

SRGl

O.Ef\OBUF

SRGtO

O.K511

O.BLFEND

1.MFF

MM5203

D.O

04/02

5:41PM

PAGE

~U~~BEQ

41

;GET

CHAR.

:CHECK

FOR

STX

CHAR.

•

NOT

IT.

:SEE IF

THERE

WAS

A

CHAR.

;NO

USE

READ

IN

BUFF~R.

;PUT

FROM

ADDQESS

IN

ACZ.

;PUT

TO

ADDRESS

IN

AC3.

;MOVE

IT.

;00

OPTIONS.

;ZERO

ROM

ADDRESS.

;GET

WORD.

;

STORE

IT.

.CHECK

FOR

END.

.NO.

;CHECK

IF

CHAR.

:NO_GET

TEMP

ADORESSA

;CHECK

IF

PROTECTED.

;SAVE

MODE

IN

AFLAG.

;CHECK

IF

NEW

OR

OLD

BUFFER

ADDRESS.

:DEFAULT

BUFFER.

;SET

RANGE

OF

PROM

TO

4K.

;SET

BUFFER

LENGTH

TO

511.

;CHFCK

IF

4K

OR

2K

PROMS.

;15

4K

DROM

ZERO

BUFFER.

1412

•

1413.

1414.

1415.

1416

•

1417.

1418.

1419.

1420.

1421.

1422.

1423.

1424.

1425.

1426.

1427.

1428.

1429.

1430.

1431.

1432.

1433.

1434.

1435.

1436

•

1437.

1'+38.

1439.

1440.

1441.

1442.

14·43 •

1444.

1446.

1447.

1448.

1449

•

1450.

1451.

1452.

1453.

1454.

1455.

1456.

1457.

1458.

REVISION-G

05/1t/74

04/02

5:41P~

PRMSFT

POD

3438

03/19/J5

PAGE

~UMfH:R.

42

1452

06(8

.PAGE

1459.

1453

06CB

SRGLl:

1460.

1454

06Ce

8833

R

LD

2,BUFFAD

;!=ILL

TEMP

BUFFER.

1461.

1455

06CC

2000

A

.JSR

@ERCF

;FILL

BU

FFER.

1462.

1456

06f.C

8018

B

LD

Q,AFLAG

;FIX

MODE.

1463.

1457

06CE

AOIO

B

.:)T

O,BlJFEND

1464.

1458

06(F

2502

A

JMP

@TT/iA ;

PR

I

NT

BACK.

1465.

1459

0600

MM5203:

1466.

1460

0600

4CFF

A

LI

0.-1

;MOOE

IS

2K

PROM.

1467.

1461

0601

21F9

A

JMP

SRGll

1468.

1462

06D2

1469.

1463

0602

1410.

1464

06D2

0375

A

TT

4A.:

•

WORD

TIA

1471

•

.

1.465

06D3

1472.

1466

0603

1473.

1467

0603

CKRG:

1474.

--1468

0603

EI05

A SKG

Q,PROTEC

;CHECK

IF

PROTECTtD.

1415.

1469

0604

2101

A

JMP

ERRG

;

PR

aT

EC

TEO

ERROR.

1476.

1410

0605

0700

A

kTS

;NO

RETURN.

1477.

1411

0606

ERRG:

1478.

1472

0606

2el1

B

JSR

@~ESSA

;PRINT

MESSAGE

1479.

1473

0607

073F

A

.WORD

PQ,OT

1480.

1474

0608

2000

R .JMP

BSTART

1481.

1415

0609

1482.

1476

06D<3

OBFE

A

PRQTEC:

•

\~O

RD

FENC-l

1483.

1477

DoDA

04AO A

ERCf!

.WORD

ZERCF

14.84.

1-11

REVISIJN-G

05/16/74

04

I

;)

2 5 : 4 1 P

~

PRMSFT

P003438

03/19/75

PAGE

NUMBEQ

43

1478

0608

.PAGk:

1-485.

1479

060B

1486.

1480

06DR

2030

A

LS

T:

.ASCII

• 0 1 2 3 4 5 b 7 8 9

,~

!3

C 0 E

Ft

1487.

06DC

2031

A

0600

2032

A

060E

2033

A

06DF

2034

A

06fO

2035

A

06Fl

2036

A

ObE2

2037

A

06E3

2038

A

06E4

2039

A

06E5

2041

.A

06E6

2042

_A

06E7

2043

A

06F8

2044

A

06£9

204_5 A

06EA

2046

A

1481

06FB

1488.

1482

06£8

1489.

1483

06ER

AlIST:

1490.

1484

06FB

0325

A

.WORD

GO

G

GO

TO

*********

1491.

L485

0.6£C

05a9

A

.WORD

Dur

· H

~EAJ

FROM

PROM

TO

MEMORY

BUFFER.

1492.

•

1486

06ED

0486

A

.WORD

INBIN

; I

REi~D

COML

E~4

ENTEO

O~TA

TAPE.

1493.

1487

ObEt: 05AB A .wORD

CQ.

J

READ

RL~

CARDS.

1494.

1488

06EF

048C

A

.wORD

BININ

· K

READ

TRUE

PAPER T*PE.

1495,.

,

148'1

06FO

0632

A •

WORD

PT

· L

REAO

RlM

P~PfR

TllPE

•

1496.

•

1490

06Fl

06AO A

.WClRo

MOVEF

; M

~CVE

ME~QRY.

1497.

1491

_

06f2

04F6

_

A •

WORD

PNT

~p~

,.

N

QEA~

IN

PAPER

TAPE.

1498.

..

1492

06F3

ObBe

A •

WORD

SRG

· a

SET

TEM

P

BUFFEQ.

ADDRESS.

1499

•

..

1493

06F4

01FA

_A

.WORD

VP

· P

VERIFY/PROGRAM

PROM.

1500.

..

.1494

06F5

05.6.O.A

-_

•

WORD

PRCK · Q PRINT

CHECK

SUM,

Of

PROM.

1501

•

,

1495

06F6

0495

A

.WORD

PREAD

· R LIST

ROM.

TYPE

STARTING

HEX

ADR.

1502.

•

11

l.cnL

1"'1£"""

1'\"")1Ir

"-

,-u·

..

nn

~

r:"T

tl

r

~

r:"T

...

r"'\

n

'"

1/

.l"'\;n n

••

1503

•

.l...,.7U

l_.Jor

f

Y.2I-H.,

~

.nur\u

.;:)c~"

.::l

,)[:1

L

Ui"'i.

Lt"

!"'KU!"'!.

14.97

06FB

0414

A •

WORD

RlIST

· T

TYPE

MEMORY

LOCATIONS.

1504.

,.

1498

06F9

0304

A

.WORD

SPACE

,.

U

1505.

•

1499

06FA

054D

A

.WORD

VARA

· V

VEP.

r

FY

MEMORY

BUFFER

TO

PROM.

1506.

..

1500

06FB

04A8

A •

WORD

ZRO

; W FILL

TEMP

BUFFER

WITH

HEX

CHAR

•

1507.

1501

06FC

0579

A

.WORD

BCK

X

PRINT

CHECK

SUM

OF

BUFFER.

1508.

1502

06FD

03FC

A •

WORD

PST~RT

y

PROGRAM

PQOM.

1509

•

1503

06FE

03E2

A

.WORD

ERASE

Z

CHECK

IF

PRO~

IS

ERASEO.

1510.

REV

I S I

;)N-G

05/16/74

04/02

5:':'lPM

PR~~SFT

POO343A

03/19/,5

PAGE

NU,,"1BER

44

1504

06fF

•

PA.

GE

1511.

1'505

06.F

.F

5052

A MSG:

.ASCII

·PR~SFT.et

1512.

0700

405::3 A

0701

4654

A

0102

42?O A

15J6

0703

0000

A •

~~O

R 0 0

1513.

1501

0704

1514.

1508

01.04

CDOA

A wORK: .WORO

DDCA

1515.

1509

0705

5052

A • A

SC

1 I '

PROG~AM'JIING.

f

1516.

0706

4F41

A

01Q7

5.241

A

0708

4n4D

A

OIOg

494E

A

-010A

472~

A

0708

2020

A

1510

070C

0000

A

.WORD

0

1517.

1511

0700

1518.

1512

0700

1519.

1513

070n

DONE:

1520.

1514

0700

.5645

A

.A

SC 1 I

'VERIFING.'

1521.

070E

5249

A

070F

4649

A

0710

4E47

A

0111

2E70

A

1515

0712

0000

A

.WORD

0

1522.

REVISIOf\-G

OS/16/74

04/J2

5

:41

P

~1

PRMSFT POD3438

03/19/15

PAGE

NU~~

3E q

45

1516

0713

• PAGE

1523

•

1511

0713

2050

A

PA

0:

• ASCII •

PRO~

AT

,ADDRESS

t

1524

•

0714

524F

A

0715

4020

A

0716

41'54 A

0717

2041

A

0118

444'

..

A

01.19

5?45

.A.

071A

5353

A

07113

2020

A

151.8

..

011C

..

00Q.0

A.

..

WORD

a

1525

•

1519

0710

1526.

1520

0710

2042

A

B.A

OP:

•

AS

C I I t

BAD'

1527.

01.IE

1t144.A

1521

011F

COOO

A •

WORD

a

1528.

1522

0720

1529.

1523

Q120

..

1530.

1524

0'120

cnOA

A CATAIO:

.WORD

ooaA

1531.

1525

0721

4C4F

A

.ASCI

I •

LOAD

TAPE.'

1532.

0]22

..

41.44

.A

0723

2054

A

0724

4150

A

0125

452£

A

1526

0126

COOO

A

.wORD

0

1533.

1527

07?7

1534.

.1.52B

Q12.1

1535.

1529

0721

t-:IT:

153c.

1530

0127

2048

A •

AS

C I I t HIT SPACE

WHEN

READY.'

1537.

0728

4954

..

A

072<1

2053

A

012A

5041

A

012.B

434S

...

A

..

072C

2051

A

OJ2D

4845

ta

012E

4E20

It.

01?F

5245

A

0730

4144

A

0731

592E

A

i531

0732

0000

A •

WORO

0

1538

•

R~VISION-G

05/16114

041

J2

5:4lPM

PRMSFT

P00343B

03/19/15

PAGE

NU~SER

46

153?

0733

.PAGE

1539.

1533

.0133

154.0 •

1534

0733

4E4F

A

NO

VER: •

AS

C I I 'NOT CORRECT

TRY

,~GAIN.'

1541.

0734

547.0

A

0135

434F

A

.0736

525?

A

0737

454.3

A

Ll138. 5rt2D A

.0739

5452

A

013A

5920

A

073B

4147

A

013C

4149

A

073D

4E2E A

1535

07.3E 000.0 A

.WORD

{)

1542.

1536

073J:

1543.

1537

073F

nOaA A

PROT:

.WORD

nOOA

1544.

1538

.0140

5052

A •

AS

C I I •

PRCTECTED.·

154.5 •

0741

4F54

A

0742

4543

A

0743

544.5_ A

0744

442f

A

1539

0145

0000

A

.WORD

0

1546.

15-40

-014,6--A147

A .PAGAIN:

..

ASCII 'AGAIN.'

1547.

0147

4149

A

014R

4F?E

A

.. .15.41

,0,-14,9,-

OO~lO

A,

•

waRD

a

15.48

•

11542

074a.

1549.

1543

074A

1550.

1544

OJ-itA

-4649

A

SJ

ARIA:

.ASC

I I

'FIRST

ADDRESS

=

1551.

0748

5253

A

074C

5420

A

,a.,7AO

,4,lft4

..

A

074E

4452

A

074F

4553

A

0750

5320

A

0151

3020

A

1545

0752

0000

A

.wORD

0

1552.

REVISION-G

05/16/74

04/J2

j:41P'1

PRMSFT

POO343B

03/19/15

PAGE

f\JUM8

ER

47

1546

0753

.PAGE

1553.

1541

0753

1554.

1548

07')3

4q53

A

IS:

• A

SC

I I

Irs

,

1555.

0754

2020

A

1549

0755

0000

.A

.WORD

0

1556.

1550

0756

1557.

1551

0756

2053

A

SB:

.ASCII

f

58

I

1558.

..

0751

422D

..

A.

1552

0158

0000

A

.WORD

0

1559.

1553

0759

1560.

1554

0759

cnDA

A

SA

D1

APE:

.WORD

ODOA

1561.

1555

075A

502F

A

.A

SC I I

IP/N

TAPE

BAD.

I

1562.

0158

4F20

A

O.7SC

.5441

.....

A

..

0750

5045

A

075E

2042

A

O.75F

4.144

A._

0760

2E20

A

1556

0161

0000

A

.WORD

0

1563.

1.5.5.7

0162

1564.

1558

0162

50?F

A

PDONE:

.ASCII

• PI N

TAPE

DONE.'

1565.

0763

4E20

A

0764

.544.1. A

0765

5045

A

0166

2044

A

0161

:4.F4E

.A

..

0168

45lF

.a

1559

076tj

0000

A

.WORD

0

1566.

REV

IS

Hlk-G

Oi:J/l6114

04/02

5:41PM

PRMSFT

PD03438

03/191'75

PAGE

NUMBEQ

48

1560

076A

• PAGE

1567

•

1561

076A

1568.

1562

Q76A

2043

A ROMV: •

AS

C I I 1 CCRRJ:CT. '

1569.

0768

4F5?

A

076C

5245

A

0760

4354

A

076E

2ElO

A

1563

076F

0000

A

.wORD

0

1570.

1564

0170

1511.

1565

077C

1572.

1566

0770

aOOA. A

LDROM:

.WORD

OODA

1573.

1567

0771

5055

A •

AS

C I I ' PUT

PROM

IN

SOCKET.

•

1574.

0772

5420

A.

0113

5052

A

0774

4F40

A

0775

2049

A

0776

4E20

A

0117

534F

A

0778

4348

A

0779

4554

A

077A

2E20

A

1568

0778

0000

A

.WORD

a

1575.

156g

017C

1576.

1570

077C

1577.

1571

077C

aOCA

A

NOTER:

.WORD

anOA

1578.

15.12

0:]::7.0

1579.

1573

0770

4E4F A •

AS

C I I

'NOT

ERi~SFD

AT

A.DDR!::

S S ,

1580.

077E

5420

A

017F

4552

A

0780

4153

A

0781

4544

A

07.82

.2041

A

0783

5420

A

0784

4144

A

0185

4452

A

0786

4553

A

0787

5320

A

1574

07aa

0000

A •

WORn

0

1.581

•

REVI

SION-G

05/16/"14

04/02

5 :41Pt-1

PRMSFT

POO?l43 B

03/19/75

PAGE

NUMBER

49

1575

0789

.PAGE

1582.

1576

0789

1583.

1571

0189

aOCA

A NOW4K:

.WORD

000

.~

1584.

1578

078A

4040

A

.ASCII

t

fJM5204.'

1585.

078S

35'32

A

07BC

3034

A

0180

2E20

A

,151Q

018E

0000

A

.WORD

0

1586.

1580

078F

1581.

1581

078F

1588.

158.2

078F

NOW2K:

1589

•

1583

07aF

2040

A • ASCII t

M~5203.1

1590.

01'90

4Dl5

A

0791

3230

A

0792

332E

A

1584

0793

0000

A •

WORD

0

1591.

158'5

0794.

1592.

1586

0794

1593.

1587

0194

COOA

A \JOON:

.WORD

aDD

A

1594

•

1588

0795

444E

A • ASCII

'f)ONE.'

1595.

0796

41:45

A

0791

2E20

A

1589

079B

aoaA

.IA

..

.WORD

OOOA"O

1596.

0199

0000

A

1590

079A

1591.

,15.,9.1

,019A

2D54

_"A"B T V,:

..

Ase

II

,

TYPE

2

'CR)

• I

1598.

01<)8

5950

A

079C

4520

A

0790

3220

A

079E

2843

A

079F

5229

A

O.1.Ail

2E2-0 A

1592

07Al

COOA

A

.wORD

ODO~

1599.

1593

07A2

0000

A .WORO 0

'I

f

~""

j""\

.lovv.

1594

01A3

1601.

1595

o

1/J

3

2054

A BT Y4: • A

SC

I I •

TYPE

4

(CR).'

1602.

07A4

5950

A

07A5

4.520

A

07A6

3420

A

01A1

2843

A

07AB

5229

A

07A9

2F.20 A

1596

07AA

0000

A

.WORD

0

1603.

RFVISION-G

05/16/74

J4/J2

5:

41

PA

1

PRMSFT POO343B

03/191"15

PAGE "lUMBER

50

1591

07AB

• PAGE

1604

•

1598

01AB

16·)5.

1599

01AB

aOOA

A LOR:

..

WJRD

QDO~

1606

•

1600

01AC

2020

A

.ASCII

lEF

T

BYTE

TYPE

L

(CR).'

1607.

DJAe

4C45

A

07AE

4654

A

07AF

2042

A

01BO

5954

A

01Al

4520

A

0782

5459

A

07B3

5045

A

07B4

?04C A

01RS

2028

A

0-7B6

4352

A

0187

292E

A

1601

07A8

1608.

1602

07B8

20/0

A

.ASCII

t

QIGHT

BYTE

TYPE

R

(CR)

• '

1609.

07B9

5249

A

01BA

4748

A

07B8

5420,

A

01Be

4259

A

0780

5445

A

01RE

2054

A

07BF

5950

A

07CO

4520

A

OJ!:l.

5220

A

-D1C2

2843

A

07C3

522q

A

01C4

2E20

A

160.3 o

7C5

ODOA

A

.WORD

OOOA.O

1610.

07C6

0000

A

1-604

01.C7

..

1611.

1605

0'1e7

it

348

A

CKER!

..

ASC

I I

'CHECK

SIJM

ERROR.

•

1612.

07C8

4.543 A

01C9

4820

A

07eA

5355

A

07CB

4020

A

07·C.c.

45.57

·A

07CO

5?4F

A

07CE

522E

A

1606

01eF

aDo

A A

.WOR;)

aDD

A

1613.

1607

0100

5452

A

.ASCII

I TRY

AGAIN?

Y

OR

N.

t

1614.

0701

5920

A

0702

4147

A

070]

4149

A

0704

4E3F

A

01D.5

2059

A

0706

204F

A

0707

5220

A

-0-1·08

4.E2.E.

A

1608

070S

OOOA

A

.wU=<.D

J

DO

f.

,0

16l5.

07DA

0000

A

REvrSIDN-G

05/16/74

04/02

'5

:

41

p~..,

PRMSFT

POO343P-

03/19/75

P~GE

NUMBER

51

160S

0708

..

PAGE

1616.

1610

070R

1617.

1611

070B

1618.

1612

0708

COOA

A

VERF:

•

WORD

ODO~

1619

•

1613

-OJoe

5645

A •

AS

C I I 'VERIFY

TAPE?

Y

OR

N I

1620

•

0700

5.249

A

07DE

4659

A

07Df:

2.05.4--A

07EO

4150

A

07El

45.3F

A

Q1E2

2059

A

07E3

204F

A

07F.4

5220

A

O.1ES

4E20

A

1614

o

7£:6

COOA

A .wORD

ODOA.O

1621.

07F7

0000

A

-16L5.

-OlEa.

1622.

1616

Q1F8

1623.

1617

07F8

VFFR:

1624.

1618

O . .1EB

2043

.-Il

00. •

AS

C I I ,

CI<SM

= ,

1625.

01E9

4853

A

01EA

4020

A

01EA

3020

A

1619

07EC

0000

A •

W1Q.

0 0

1626.

1620

07FD

1627.

1621

Q1EO

1_62.8.

1677

07FO UL:

1629.

1623

07ED

7051)

A

.ASCII

•

UPPER

256

'J

(CR)

,

1630.

07EE

5050

A

07EF

4552

A

07FO

2032

A

O.7Ft.

.3536.-.A

01F2

2055

A

(\'7

C"'l.

')

(\')

0 A

v

~

I

..J

£.

V£.V

....

0:7£_4_

.4352.cA.

07F5

2920

A

1624

07F6

1631.

1625

001F6

204C

A •

AS

C I I ,

lCWER

256

L

(C

R)

t

1632.

07F7

4F57

A

07F8

4552

A

07F9

2032

A

07fA

3536

A

07FB

204C

A

01FC

2028

A

07FD

4352

A

07FE

2920

A

1626

07FF

COOA

A

.WORD

DODA.a

1633.

0800

0000

A

REViSlfJN-G

05116/74

J4/02

5:41Pi>1

PRMSFT POO343R

03/19/75

PAGE

NU~BER

52

1.627

0801

•

PA.

GE

1634.

1628

0801

1635.

1629

0801

0004

A

FR

F:

.WORD

COOA

1636.

1630

0802

5920

A ..

ASCII

'V

CR

Nt

1631.

0803

4F52

A

0804

204f

A

1631

0805

OOOA

A .wORD

ODOA.O

1638.

0806

0.000 A

1632

0807

1639.

1633

0807

OOOA

A

CP.

RL

: .WORD

aDD

A

1640.

1634

0808

4041

A

..

AS

C I I

'MAKE

CR

READY. •

1641.

0809

4B45

A

DaDA

2043

A

080B

52~O

A

080e

5245

A

0800

4144

A

OBOE

59?E

A

1635

080F

0000

A

.WORD

0

1642.

1636

0810

1643

•

16.31

0810

CDOA

A

IN

VAL:

•

wORD

nOOA

1644

•

1638

0811

494E

A • A

SC

I I 'INVALID

CHAR.'

1645.

0812

5641

A

0813

4C49

A

0814

4420

A

0815

4348

A

0816

415.2 A

0811

2E20

.A

1639

0818

0000

A •

WDRD

0

1646

•

1640

0819

1647.

1641

0819

aOOA

A XMIS:

.WORD

anOA

1648.

1642

DalA

5452

A

.ASCII

'TRANSM

[SSION

ERROR.'

1649.

nSIS

4·1.4£ A

D81e

5340

A

0810

4953

A

OBlE

5349

A

081F

4F4f

A

0820

2045

A

0821

5252

A

0822

4F52

A

R.

0823

2E20

A

1...6,43-

nS2.lt.

...

0000

A

.WORD

0

1650.

REVISrON-G

05/16/74

0't/02

5::

41

P:~

PRMSFT

POO343B

03/19/15

PAGE

NU~"BER

.53

1644

0825

.PAGE

1051.

1645

0825

TSl:

1652.

1646

0825

C200

A •

WORD

020e

..

o.

1653

•

..

1647

0826

0100

A •

WORD

0100

1.

Ib54

•

.1.648

,0827

OOHO

A

..

WORD

0080

..

2 •

1655

•

,

1649

0828

0040

A •

WORD

0040

·

3.

1656

•

"

1650

0829

0020

A •

WORD

0020

·

4.

1651

•

t

, ..

1651.

O.82A

0010

A

..

WORD

0010

·

5.

1658.

"

1652

082B

0008

A •

WORD

0008

·

6.

1659

•

1653

082C

0004

A •

WORD

0004

·

7.

1660

•

,1654

0820

0002

,A

__

•

WORD

0002

·

8.

Ib61

•

1655

OB2E

0001

A •

WORD

0001

"

9.

1662

•

1656

082F

0900

A •

WORD

0900

·

A.

1663

•

-.

,

..

165,1

0830

0880

.A

•

WORD

08BO

· B.

1664

•

"

1658

08.31

0840

A

..

WORD

0840

,.

c.

1665

•

..

1659

0832

0820

A •

WORD

0820

·

D.

1666

•

1660

0833

OB1,0

.A

•

WORD

0810

.-

E.

1667

•

-.

1661

0834

0808

A

.WORD

0808

..

f.

1668.

•

REVISION-G

05/16/74

04/02

5:41P~'"

PRMS

FT

POO343B

03/191

i5

PAGE

~UM

BER

54

1662

083'5

• PAGE

1bb9.

1663

0835

1670.

1664

DE35

FFF5

A

DELAY

.:

OFFF5

1611.

1665

0835

FfF6

A

DE

LA

Vi =

OFfF6

1672.

1666

0835

FFFB

A

TTYSR

= OFFFB

1673.

1667

0835

:

nSCltlATOR.

1674.

1668

0835

1615.

1669

,

..

0835

1676.

1670

0835

0029

A

TA

.:

41

1677.

1671

0835

0009

A

EA

= 9

1678.

1672

0835

0016

A

EB

=

22

1619.

1673

0835

0026

A

EC

=

38

1680.

1674

0835

0038

A

TTYAD

-=

1*8

1681.

,1675

0835

1682.

1616

0835

1683.

1677

0835

· kIN 2 =

READ

A BIT FROM TTY.

1684.

"

1678

0835

·

KIN

4 -

TURN

ON

READER

RELAY,.

1685.

..

1679

0835

·

K.IN

5 =

RE

SET.

1686.

·

1680

0835

·

KIN

6 -

SET

BIT 7

IF

INTERRUPT

REQ.

1687.

•

,.1,681

0835

1688.

1682

0835

·

ROUT

1 =

TURN

ON

INTERRUPT

ENABL

E.

1689.

•

1683

0835

·

kOUT

3 =

SEND

A

BIT

TO

TTY.

1690.

•

L6.84

0835

· ROUT 4

.-

TURN

ON

READER

RELAY.

1691.

·

1685

0835

·

r<.OUT

5 = RESET.

1692.

..

RfVISION-G

05/16/74

PRMSFT

PQ0343B

03/19/15

1686

0835

•

P.A

GE

.168.1

.

0835

.

fElEIYPE

.

1688

0835

1689

0835

291E

A

LPUTC:

JSR

1690

.0836

3181

A

RCPY

1691

0837

4C30

A

Ll

1692

083e

O~F6

A

JSRI

"-.1693 .

0839

4E09._.A

..

L1

1694

083A

4F38

A

II

1695

083B

0603

A

ROUT

1.696

083C

03F5_ A

LPl.;

JSR

I

1691

0830

5829

A

KOl

1698

083E

4AFf

A

AISl

_·,,-

..

16.99

08.3F

2101

A

~MP

1100

0840

2104

A

JMP

1701

0841

59FF

A

ROR

1702

08.42

3481

A

RCPY

1703

0843

0603

A

kOUT

1104

0844

21F1

A.

JMP

.

-,

....

L105

0845

.,4.CEf

A_

£:001\1

:

L.I.

1706

0846

0603

A

ROUT

1707

0847

2118

A

JMP

.

L7.o8

084.8

1709

0848

1110

0848

,

..

,,._L1.11,,,Q8.:4.8

29.0.8

A,Pf?UTC; .

JSR.

'1712

0849

2001

A JSR@

1113

084A

2115

A

JMP

....

,.171:4

..

0848

1715

0848

7E59

A

PPUTCA:

.WORD

TRANSMIT

S!\VER

0.1

Q,X t

30

DELAYl

2.9

3,TTYAD

3

DEL.AY

O,TA

2.-1

..

+2

nDON

1,

1

1.0

3

LPI

0.-1

3

RETRR

SAVER

PPUTCA

RETPR

07E59

04/02

5:41PM

PAGE

Nur,'3Er<

55

CHARACTER.

ROUT

I

Nt

FOR

IMP

-

16L

•

1693.

1694.

1695.

1696.

1691.

1698.

1699

.•

1700

•

1701.

1702.

1703.

1104.

1705.

17.06.

1707.

1108.

1709.

1710.

1711

•

1712.

1713.

1714

•

1115.

1116.

1717.

111.8.

1719.

1720

•

1721.

1722.

REV

I

~

r

n~l-G

05/16/74

J4/02

5:41P;-1

PRMSFT

POO343B

03/19/75

PAGE

NUMBER

56

1116

084C

p"

.,..,....

•

/4.

\:II:

1123.

1717

084C

..,ET

CY~RACTER

ROUTINE

!=OR

IMP

-16P •

1724.

1118

084C

1725.

1719

084C

?S07

A

PGETe:

J

SR

SAVER

1726.

1120

0840

2002

A

JSR

@PGETCA

1727.

1121

084f

A02e

R

~T

o

,R

0

1728.

1722

084f

2110

A

JMP

RETRR

1"129.

1123

0850

1730.

1724

0850

1E3R A

PGETCA:

•

WORD

07E3B

1731

•

1

725

0851

1132.

172.6

0851

. liET

CHA

RAe

TER

RaUT I

NE

FOR

IMP-16L.

1133.

.

1727

0851

lGFTC:

1734.

1

728

OB51

2902

A JSR

SAVER

1735.

172-9

0852

C3EB A

JSR

I rrYSR

1736.

1730

0853

21FA

A

-I

MP

PGETC+2

1737.

1 7.31

0854

1738.

-17-32

0854

SAVER:

1139.

1733

0854

AD2e

8

Sf

Q,RO

;SAVE

RD.

I740.

1134

0855

A420

B

ST

1

,R

1

:S.AVE

RO.

1741.

.11-35

0&5.6

ABlE

B

ST

2.R2

;SAVE

R2.

1742.

1

736

0857

AC2F R

ST

3.R3

;SAVE

R3.

1743.

1737

0858

0080

A

PUSHF

1144.

1

738

0859

4400

A

pULL

0

1745.

1

739

08SA

A030

B

~T

O.S~lGS

1146.

1740

0858

4(01

A

LI

0.1

1747.

11.4.1.

.0.851:

58EF

.A

kOR

0.,17

1.14.8.

1742

0650

A031

B

Sf

O.SA\jS~L

1149.

1143

085E

B02e

B

LO

0,

RO

1750.

1744

085F

0200

A RTS

;RETURN.

1751.

1145

0860

1752.

1746

OB60

1753.

114.7

..

C18b.O

1

'154

•

1148

0860

RETRR:

1155.

1749

08bO

QL...?n

B

in

1

D1

• n

r::

C'

Tnn,..

n'

i

756.

"\.,1

....

L-

I~

L.

v

L'''L

-,'"'I,c.:>tUr\C

!'"\~.

1150

OU.!

882_E.

..

_B.

Ln.

2

.•

R2

;RESTORE

R2.

1157.

1151

0862

8e2F

8

LD

3.R3

;Rr::STORE

R3.

1758.

1152

0863

80.30

B

LO

O.SFLGS

1759.

.....

-1

..

·15·3

0864·

400'{)

-A

POSH 0

1760.

1154

0865

0280

A

PUllF

1761.

1

755

0866

8031

B

LD

D,

SAVSEL

1762.

17'i6

0867

7130

A

~KAZ

O.ITEST+7

1163.

1751

0868

O~OO

A

~FLG

2

1764.

1

758

086

C;

8C2C

R

LO

O.RQ ;

RES

TOR

E RO.

1765.

1159

OE6A

0200

A R

TS

;R~TURN

1166.

REVISIGN-G

05/16/74

04/02

5!41PM.

PRMSFT

POO343R

03/19115

PAGE

NUM8E~

57

1160

0868

.P~,GE

1167.

1761

0868

GET

CHtP,ACTER

AND

ECHO

ROUTINE

1768.

1762

OB6R

1169.

1163

086E

29E8

A

lGECO:

.JSR

SA

VEt<

1770.

1764

OB6C

4F38

A

LI

3.TTYAD

1111.

1765

0860

OABO

A

PFlG

2

1172.

1766

OB6E

0605

A

i<.OUT

5

1773.

1161

086F

4EOB.

A

LI

2.8

1774.

1768

0870

0604

A

i<.OUT

4

1775.

1769

0811

0402

A KIN 2

1116.

1110

..

08"12

1201

A

oDe

2,

.+2

1177.

1771

0873

21FO

A

JMP

.-2

1718.

1772

0874

4C09

A

LI

O.EA

1179.

.1773

0815

03f6

A

.J.SR

I

OElA.Yl

1780.

1714

Q816

58EA

A

ROR

O.ES

1781.

1775

0877

0402

A kIN 2

1782.

1176

QBJ8

120L.

A

DOC

2,.+2

1783.

1711

0879

21F4

A JMP

lGECO+3

1784.

1778

oa7A

0603

A

lP3:

;{OUT 3

1185.

.

,.11T9

OB7S 0:iF5 A .JSR I

DELAY

.

1186

•

1180

OB7C

5826

A

kOL

O,EC

1787.

1781

0870

0402

A kIN 2

1788.

1182

o.alE

6100

A

AND

Q,MASK

1789.

1

783

087F

50FF

A

SHR

1,1

1790.

1784

ORRO

3182

A ri.XOR

0,1

1191.

17.85

.0.8B.1

4A.FF

A AISI

2,-1

11.92.

1786

OA8·~

?IF7

A

JMP

LP3

1193.

1181

0883

0603

A

KOUT

3

1794.

1788

0884

03F5

A JSR I

DELAY

1795.

1789

0885

4CFF

A

II

0,-1

1796.

1790

0886

0603

A

ROUT

3

1797

•

.

1191

D8.B.l

03F5

A

.J.SR

I

DELAY

1"798 •

1792

0888

0605

A

ROUT

5

1199.

1

...,o~

nQOC

~nc:o

1\

(-un

1

(')

i800.

...

l

.......

V'\.J'U

~

.J

V.I

" M

~'H"

J.

to

.

.1..1.94

...

Q.B

..

8.A.

3.48.1.

A RCPY

1.0

1801.

1795

088B

21r.2

A

...iMP

PGE

TC+2

1802.

1796

08RC

1803.

1197

OBBe

8000

A

Mt\SK:

.wORD

X'8000

1804.

REVISION-G

05/16/74

04/02

5:41P~~

PRMSFT POO343R

03/19/75

PAGE

NUM8ER

58

1.198

0880

• PAGE

1805.

.119.9

088.0

1806.

1800

0880

29C6

A

PGErO:

JSR

S.AVER

IB07.

1801

OB8E

2001

A JSR@

PGECOA

1808.

1802

D8aF

2lBE A

JMP

PGETC+2

1809.

1803

0890

1810.

1804

0890

1E73

A PGECOA:

.WORD

07F.73

1811.

1805

0891

1812.

1806

0891

181.3.

1807

0891

1814.

1808

0891

· TELETYPE

INPUT

T

J:~

T

1815.

·

1809

0891

1816.

1810

0891

k TS 1 -

NORMAL

RETURN

1817.

18-11

0891

·

r<.

TS

0

.-

ATTE~PT

TO

INPUT

1318.

·

1812

0891

1819.

1813

0891

29C2

A

ITEST:

JSR SAVER

1820.

1814

0892

4FOO A L I

3.0

1821.

1815

0893

0406

A

KIN

6

1822.

1816

0894

5C08

A SHL

0,8

1823.

1817

0895

120.1 A riDe

2,.+2

1824.

1818

0896

21C9

A

JMP

RETRR

1825.

1819

0897

29C8

A

.J

SR

RETRR

1826.

1820

08g8

0201

A R

IS

1

1827.

REVISION-G

05/16/74

PRMSFT

P00343B

03/19115

1821

089S

•

PA

GE

1822

0899

18?3

08Qg

lELETYPE

1824

0899

1825

OBSS

0018

A GPCS =

1876

OSCJg

0760

A

CC

PAD:

.WORD

1821

089A

1828

.oa9A

29B9~A,SSErpl:

JSR

1829

0898

80FO

A

LD

1830

089C

0418

A

RIN

1831

0890

48.01 A

AISZ

1832

089E

2103

A JMP

1833

089F

4F38

A RST:

LI

l83.4

.

DEAO.

,C605

A,

k.OUT

1835

OBA1

2ISE

A JMP

1836

OEAl

,L831.

DeA2

1838

OBA2

8108

A

lINIT:

LO

1839

OBA3

Aoon

B

~T

_

..

1.8-40 OBAft B

lOl~_.A-,.

LD"

1841

08A5

AOOE

B

sf

1842

08A6

8106

A

LD

1843

08A1

AOOF

B

ST

\844

08AB

8105

A

LD

1845

08A<1

A032

B

ST

1,8.4b

oaAA

.2lE4.,A" ,

J.t,""e.,.

1847

OBAB

1848

081.\B

0835

A

lP

UTeA:

..

~10RD

1849

08AC

0851

A.

LGETCA:

·.WORD

1850

D8AD

C868

A lGFCOh:

.WORD

1851

08AE

059A

A

lR

EOCR: .WORD

1.8.5.2

,Q.8AE

1853

08Af

OBFF

A

CRUFf:

."=

1854

08FF

08fF

A FEND:

.=

1855

O.8FF

OCOO

.A.

TBUf

=

S Y S

TE~

018

0760

SAVER

3.CCPAD

GPCS

0,1

lINIT

3.TTYAO

5

RETRR

O,LPUTCA

O,DUTC

D,LGETCA

09

G

ETC

Q,LGECOA

O,GEeO

Q,LREOCR

O,REDCR

I"'\!"''T

J"!\,:)

I,

lPUTC

lGEIC

LGECG

REDCRl

•

+80

0COO

04/:')2

5:41PM

PAGE

NUMBER

59

INITIAlIZATICN/RESET

1828

•

1829.

1830.

1831.

1832.

1833.

1834.

1835.

1836.

18.37.

1838.

1839.

1840.

184.1.

1842.

1843.

1844.

1845.

1846.

1847.

1848.

1849.

1850.

1851.

1852.

1853

•

1854.

1855.

1856.

185'7.

1858.

1859.

1860

•

i86i.

1862.

REVISION-G

05/16/74

PRMSFT

P00343B

03/19/15

l856

08FF

1851

08FF

030.0 A • PAGE

.END

NSTART

****** o

ERRORS

IN

ASSEMBLY

)4/,)2

5:41P\1

PAGE

NUM~ER

60

1863

•

1864.

REVISION-G

05/16/74

0't/02

:3:41Pi\1

PRMSfT

P00343R

03/19115

P-AGE

''-JU\1BER

61

ACO

ACt

AC2

AC3

ADAG

ADDl

AQMSK

AFlAG

AGAIN

AGO

0018

B ODIC B

0010

B OOlE 0

0568

A

05E5

A

0037

B

0018

B

0401

A 04QE A

AGOO

ALIST

AlMOD

AlPrl

ANDCR

ANet

ANDPT

ANDS

ANGO

ARR

0411

A 06EB A Q33F A

0335

A 05BE A

0611

A

0685

A

0618

A

0400

A

0597

A

ASTART

ASTR

ATBl

AVAR

SAaCK

PAce

eAOP

BADTAP

BAR

BARR

DbDA A

0607

_

fA

0606

A

054C

A

062C

A

0622

,0.

0710

A

01.59

A

0390

A

039AA

BCK

BCKlP

BEll

BElli

BFIN BININ

BIT1

Bl

80ce

BSTART

0519

A

051F

A

03A2

A

03A3

A

04E2

A 04EC A

0004

A

0478

A

0448

A

0000

B

STY

BTY4

BUFEND

BUFFAu

BUL

CBUFF

CCPAO

CHARGA

CKER

CKRG

07.9A A.

07A3

A

0010

B

0033

0

041F

A

DBAf

A

0899

A

0035

B

07C7

A

0603

A

CKSM

COMP

CPAD

CR

CRAD

CRBUF

CRCKSM

CRDATA

CRER

CRlF

061e

A 04BA A

Q464

A 05&8 A

0010

A

0604

A

osee

A

05B9

A

0545

A

0351

A

CRlFA

eRR

CRRl

CRRLM

CRST

CYCV

DAD

DATA

OATAIC

DCOMP

-00.27B

0340

A

OB.Q.1.

A

.0.583

~

05C5

A

OOOA

A

0581

A OO.oE

...

J~

0120

A Q4CB

.4

DeOMPl

DOON

OEl~Y

OELAYl

DONE

DUMB

OUP

DUPED

EA

EB

.

04DE

..

A_

o

845.

___

A.

FEF5

.. A

_FEF6

A Q700_ A

0645

A

J589

A

05BF

A.

_.0009 A

)016._A

Fe

ENCBUF

ENCCK

ENONO~

ENDRC

ER~S

ERASE

ERF

EROF

ERRG

0026

A_

D02~

B

USDS

A 0393.

A.0696

A Q3E5 A 03E2 A

0801

A

Q6DAA

06D6

A

'"

ERROR

ESC

FTRt

fVER

FENO

FFIN FIN

FI~A

FIRAD

~TX

_03CE

A

0341

A

060.8.A

03F4

A 08FF A

0596

A

04E8

A

0507

.1\0038

B

032E

A

fIXl

FlaG

FNI

FREAD

FRSTP

FWC

GECD

GET

GETC

GO

_

Ob

..

9E

A

0.011

B

04EA

...

A 0.53F. A

068C

/J.

0544

A aODF B

Q329

A.

COOE

B

032.5.

A

GOO

GOON

GPCS

GTEQ

HCO

HEX

HEXT

HExva

HICKSM

HIT

0446

A

0537

A

0018

A

0002

A

0605

A

0330

A

031C

A

002A

B

0039

B

0727

A

IHEX

INRIN

INERR

INTESi INVAl

INYN

INYN2

INYNA

IS

ITEST

Q31F A

0486

A

0619.A

Dooe

ti

0810

A

Dsoa

A

Q50AA

0631

A

0753

A

0891

A

K30 K39

K3FFF

K4

K40 K46 K41 K511

K5A

KIF

033B A

033A

A

0036

B

0599

A

033D

4

aOIF

B 033C A

0013

B 033F A

0028

B

KD

KEEP

KFEPE

KEPC

KF

KFEOO

KKPP

KN

KP

II

Q319

A

0348

A

03Fl

_A

0550

A

0016

B

048F

A

0581

A

0548

A 054A A

0346

A

LDR

lOROM

lEACR

lEF

lGECO

lGECOA

lGETC

lGETCA

LINIT

LIST

0068

A

0110

A

04F2

A

0668

~

0868

A

18~O

A

0851

A 08AC A 08A2 A

0318

A

LISTE

Lll

LlPP

llPPl

lOKSA lOKSE

LOOP

lDOPP lCR

lPl

Q31F A

06bE

A

0498

A 04A5 A

0029

B

04EB

A

0384

A

0470

A OlAS A

a83C

A

REVI

SIClN-G

05/16/74

)4/02

5:41pr"1

PRMSFT

POO343B

03/191,

5 PftGE

f\lU~BER

62

lP3

LPCDR

LPLP 1

PUTe

lPUTCA

LRFOCR

LST

lsrx lSWB LTEQ

D87A

A.

0060

A

0490

h

0835

H.

08AB

A

08AE

A

06D8

,a,

06A9

A

060B

A

0008

A

tWAlT

lWAITA

M4000

~~ASK

MAX

MESS

fo'ESS4

~fC:

MM5203 MOVE

047Q

A

0025

B

0609

A

OBBC

A

03El

A

0342

.A

0011

B

0012

B

0600

A

0683

A

MOVfE

tJOVIF

MCVL

MSG

MUl2

MUl4

~UL

T NBIN

NCCMP

NONCh

06AD

~

A 06.EO A

D6B5

A 06.FF J-l

03C9

A

03CA

A

040F

A

04BF

.A

048B

A

03FO

A

NEW

NFRN

NGtiES

NOTER

NOTVAP

NO\lFR

NOW

NCW2K

NCW4K

NOWREA

Oboe

A

05C4

A

03B8

A 077C A

056A

A

0733

A

0361

.A

078F

A

0789

A 052A A

NPR

NREAD

NSTART

NlRO

OD

ODD

OGDOD

CHEX

CHEXA

OLD

0.1.,02 A

.0530

A

0300

A

0005

A

0517

A

000.3

.A

04ES A

0380

A

0026

8

0614

A

ON

CN2

ONE

CNGO

OOP

PtlC

PAGAIN

PCKSM

PDONE

PGECO

045A

...

A

0458.

A

045E

A

04(,7

A

045D

A

0713

A

0746

A

0514

A

0162

A

0880

A

PGECOA

PGFTC

PGETCA

PNTAPt:

POA

PPJ<O~

PPUTC

PPUTCA

PRCK

PREAO

08,90

A.

O,84.C

...

".A

0850

A 04.F6

...

oooe

A

0429

A

0848

A

084B

A

0560

A 0.4.95 A

PREAS PRlGP

PRlP

PROT

PROTEC

PSTAR

PSTART

PT

PTI

PTOATA

0535,

A

0575

A

0512

A

073f

a o.6D9 A

03FB

A

03FC

A

0632

A

0634

A

0680

A

PTON

PTNG

PTNGI

PTRlfl'l

PUTe

PUTIT

P\M

RO

Rl R2

0668

A

0654

A

0639

A

Q6.1B.

A

D.O.OD

B

055.,A

A

0021

B

oozc

n

002D

B D

..

02.E

B.

D

R3

READ

REAOB

READeR

R.EADWA

READWD

RECV

RED

REDCR

Q.02.F

H Q4

..

62

A.

0.6.15 A 0..524 A

050F

A

0028

B

0465

A

0443

A

044A.

A

0032

B

REOCRl

R.ERROR

RFTRR

R ETRV RLIST RLl

ROM

ROMI

RCpllA

ROMV

,1159

A.

,A

.0.5.32

A

,OS60A

O.3.7AA 0,.414 A Ol:t62 A

0022

B

.0490

A

0014

B

076A

A

RPN

RR

RST

S2K

S4K

SAVE

S.AVER

SAVStl

58

S8iT

OSlD.A

0,.020 B .OB9F A

03.C4

A

O.3BF

.A

035.6

.~

0854

A

0031

B

0756

A

0460

~

SESDl

SEt

SEND

SENDA

SETK

SETKI

SETPl

SflGS

Slep1

SMTHNG

0.457

A

0000

A

04.3£

A

045-6

;:.L

03Ae

A

03AF

A

0008

B

0030

B

05EF

A

0319

A

SPAC

SPACA SPACE

SPACEl.

S

pee

SRG

SRGL

SRGlL SRGlO

SSETPl

04BC

A

0015

B

0304

A

03Q5

A

0364

A

06Be

.A

06C6

A

06CB

A

06C7

A

089A

A

STAND

START

STAR

TA

STATU.)

STDATA

STEPl STEP2 STEP3 STRA

sweUF

o.o.02.A

0.358

A OI4A A

0001

k

0690

A

05EB

A

05F7

A

05FF

A.

0513

A

0023

B

T2K

TA

TBFAD

T~t

TBUr

T E

P'PCK

TEMPT

Tf:MPWC

TNGI

TORS

0397

A

0029

A

.0.034

B

OB25

J...

oeoo

fl.

0433

.~

DOOF

A

0463

A

0598

A

069A

A

TOR

SC

TS

TTA

TTAA

TTYAO

TTYSR

UL

V4KON

VAIR

VAIRA

05R2

A

03<;0

A

0375

A

06D2

4-4

0038

A fFEB

.~

07EO

A

03EA

A

0553

A

0428

A

REVISlnN-G

05/16/74

04/02

5:41P;>1

PRMSFT

P00343B

03/19/15

PAGE

!\JU\13ER

63

VAR

VARA

VDCN

VEFR

V

ERf=

VD

VST~RT

WAIT

WHAT

WHERE

0424

A

0540

A

0794

A

07EB

A

070B

A

03fA

A

03Fl

A

0437

A.

0019

B OOlA.B

WORK

WRITE

WP(TEW

nTLOP

XAOA

XM

IS

YES

ZERO

ZEROF

ZRO

0104

A

0461

A

043A

A

059F

M.

0427

A

081~

A

06A6

A

0001

A

04'~D

A

04A8

A

ZROM

0483

A

.D

82E D3.A4

PRMSFT_IMP 16_PROM_Programmer_Mar75 PRMSFT IMP 16 PROM Programmer Mar75

Navigation menu

Versions of this User Manual:

Views

Navigation