decmate-ii-rom/358360.pal at master · johnsonjh/decmate-ii-rom

History

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

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

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

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

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748

749

750

751

752

753

754

755

756

757

758

759

760

761

762

763

764

765

766

767

768

769

770

771

772

773

774

775

776

777

778

779

780

781

782

783

784

785

786

787

788

789

790

791

792

793

794

795

796

797

798

799

800

801

802

803

804

805

806

807

808

809

810

811

812

813

814

815

816

817

818

819

820

821

822

823

824

825

826

827

828

829

830

831

832

833

834

835

836

837

838

839

840

841

842

843

844

845

846

847

848

849

850

851

852

853

854

855

856

857

858

859

860

861

862

863

864

865

866

867

868

869

870

871

872

873

874

875

876

877

878

879

880

881

882

883

884

885

886

887

888

889

890

891

892

893

894

895

896

897

898

899

900

901

902

903

904

905

906

907

908

909

910

911

912

913

914

915

916

917

918

919

920

921

922

923

924

925

926

927

928

929

930

931

932

933

934

935

936

937

938

939

940

941

942

943

944

945

946

947

948

949

950

951

952

953

954

955

956

957

958

959

960

961

962

963

964

965

966

967

968

969

970

971

972

973

974

975

976

977

978

979

980

981

982

983

984

985

986

987

988

989

990

991

992

993

994

995

996

997

998

999

1000

/ DECMATE II ROM CONTENTS

/ DECODED AND DISASSEMBLED BY CHARLES J. LASNER.

/ LAST EDIT: 02-DEC-1991 02:00:00 CJL

/ MAY BE ASSEMBLED WITH '/J' (PAL8 '/F') SWITCH SET.

/ THIS IS THE CODE USED IN THE DECMATE II PRIMARY CONTROL ROM. IT RESIDES IN

/ THREE 2716 PACKAGES KNOWN AS E113, E114, E115. THE THREE ROMS ARE ENCODED

/ INTO A 12-BIT IMAGE OF AN ENTIRE FIELD IN THE PARTICULAR ORGANIZATION

/ ILLUSTRATED BELOW. FOR ALL ROM CONTENTS: 0.X=BIT X IN THE SPACE 0000-3777,

/ 4.X=BIT X IN THE SPACE 4000-7777.

/ E113: 0 1 2 3 4 5 6 7

/ BIT: 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7

/ E114: 0 1 2 3 4 5 6 7

/ BIT: 4.0 4.1 4.2 4.3 4.4 4.5 4.6 4.7

/ E115: 0 1 2 3 4 5 6 7

/ BIT: 0.8 4.8 0.9 4.9 0.10 4.10 0.11 4.11

/ THIS IS THE ASSEMBLY OF THE RELEASED ROM SET KNOWN AS 358E2, 359E2, 360E2.

/ WHEN THE DECMATE II IS FIRST POWERED UP, ROM CONTROL IS ENABLED FOR ALL DIRECT

/ (IF) AND INDIRECT (DF) REFERENCES TO CP MEMORY, THUS THE CPU STARTS AT

/ ROM-BASED ADDRESS CP07777. THE ROM CODE MOVES A LOADING PROGRAM TO PAGE ZERO

/ OF THE CORRESPONDING RAM IN FIELD ZERO OF CP MEMORY, WHICH IS THEN STARTED.

/ TO ACCOMPLISH THE INITIAL MOVE OF THE LOADER, THE DF CONTROL IS CHANGED TO RAM

/ WHILE RETAINING IF CONTROL IN THE ROM.

/ THE LOADER MOVES THE BULK OF THE ROM CODE TO CP FIELD SEVEN AND THEN STARTS IT

/ THERE. NO CODE IS MOVED TO ANY ADDRESS LOWER THAN 0100, SINCE THE CODE IMAGE

/ IS STORED OFFSET BY 100. THIS MEANS THAT ROM LOCATION 0000 WINDS UP IN FIELD

/ 7 LOCATION 0100 AND SO ON. DURING THE LOAD OPERATION, THE IF CONTROL IS

/ ALWAYS SET TO RAM BECAUSE AT THIS POINT THE LOADER IS RUNNING. THE DF IS

/ SWITCHED BETWEEN ROM AND RAM AS NECESSARY TO ACCOMPLISH THE LOAD OPERATION.

/ AFTER LOADING IS COMPLETE, THE ROM IS TOTALLY DISABLED.

/ DEFINITIONS.

/ OPERATE INSTRUCTIONS.

R3L= 7014 /ROTATE AC LEFT THREE WITHOUT AFFECTING LINK

/ COMBINED OPERATE INSTRUCTIONS.

NL0001= CLA IAC /LOAD AC WITH 0001

NL0002= CLA CLL CML RTL /LOAD AC WITH 0002

NL002A= CLA CLL IAC RAL /LOAD AC WITH 0002 ON 8/I OR NEWER

NL0003= CLA CLL CML IAC RAL /LOAD AC WITH 0003

NL0004= CLA CLL IAC RTL /LOAD AC WITH 0004

NL0006= CLA CLL CML IAC RTL /LOAD AC WITH 0006

NL0010= CLA IAC R3L /LOAD AC WITH 0010

NL0100= CLA IAC BSW /LOAD AC WITH 0100

NL2000= CLA CLL CML RTR /LOAD AC WITH 2000

NL3777= CLA CLL CMA RAR /LOAD AC WITH 3777

NL4000= CLA CLL CML RAR /LOAD AC WITH 4000

NL5777= CLA CLL CMA RTR /LOAD AC WITH 5777

NL6000= CLA CLL CML IAC RTR /LOAD AC WITH 6000

NL7775= CLA CLL CMA RTL /LOAD AC WITH 7775

NL7776= CLA CLL CMA RAL /LOAD AC WITH 7776

NL7777= CLA CMA /LOAD AC WITH 7777

/ PROCESSOR I/O INSTRUCTIONS.

CPD= 6266 /FORCE DF TO REFER TO MAIN MEMORY

GCF= 6256 /GET CURRENT FIELDS

PEX= 6004 /EXIT FROM CP TO MAIN MEMORY

PG0= 6003 /RESET HLTFLG FLIP-FLOP

PRQ3= 6236 /TYPE 3 PANEL REQUEST

PRS= 6000 /READ PANEL STATUS

RSP1= 6207 /READ FIRST STACK POINTER

RSP2= 6227 /READ SECOND STACK POINTER

SPD= 6276 /FORCE DF TO REFER TO CP MEMORY

WSR= 6246 /WRITE SWITCH REGISTER (ROM CONTROL), CLEAR AC

/ INTERNAL I/O INSTRUCTIONS.

KEY= 03 /KEYBOARD DEVICE CODE

TTY= 04 /SCREEN DEVICE CODE

/ VIDEO INTERRUPT INSTRUCTIONS.

VIDINT= 06 /VIDEO INTERRUPT DEVICE CODE

VFL= VIDINT^10+6000 /SET VIDEO INTERRUPT FLAG

VSF= VIDINT^10+6001 /SKIP ON, CLEAR VIDEO INTERRUPT FLAG

VCL= VIDINT^10+6002 /NOP (CLEAR THE AC?)

VNOP1= VIDINT^10+6003 /(NOP?)

VDUMM1= VIDINT^10+6004 /(NOP?)

VIE= VIDINT^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

VDUMM2= VIDINT^10+6006 /(NOP?)

VDUMM3= VIDINT^10+6007 /(NOP?)

/ VIDEO CONTROLLER INSTRUCTION.

VIDDEV= 12 /VIDEO CONTROLLER DEVICE CODE

APTFL= VIDDEV^10+6000 /SET APT INTERRUPT FLAG

APTSKP= VIDDEV^10+6001 /SKIP ON, CLEAR APT INTERRUPT FLAG

LSCREG= VIDDEV^10+6002 /LOAD VIDEO REGISTER SELECT

CGLOAD= VIDDEV^10+6003 /LOAD CHARACTER GENERATOR ADDRESS/DATA

VLOAD= VIDDEV^10+6004 /LOAD SELECTED REGISTER FROM AC[4-11]

APTIE= VIDDEV^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

VIDCON= VIDDEV^10+6006 /AC TO VIDEO CONTROL

VREAD= VIDDEV^10+6007 /READ SELECTED REGISTER

/ PRINTER INTERFACE INSTRUCTIONS.

PRICON= 32 /PRINTER INPUT DEVICE CODE

PRIFL= PRICON^10+6000 /SET PRINTER INPUT FLAG

PRISKP= PRICON^10+6001 /SKIP ON, CLEAR PRINTER INPUT FLAG

PRICLR= PRICON^10+6002 /CLEAR THE AC

PRINO1= PRICON^10+6003 /NOP

PRIRS= PRICON^10+6004 /OR INPUT BUFFER WITH AC

PRIIE= PRICON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

PRIRB= PRICON^10+6006 /LOAD INPUT BUFFER INTO AC

PRINO2= PRICON^10+6007 /NOP

PROCON= 33 /PRINTER OUTPUT DEVICE CODE

PROFL= PROCON^10+6000 /SET PRINTER OUTPUT FLAG

PROSKP= PROCON^10+6001 /SKIP ON, CLEAR PRINTER OUTPUT FLAG

PRONO1= PROCON^10+6002 /NOP

PRSB= PROCON^10+6003 /LOAD BAUD RATE PER AC[8-11]

PROPC= PROCON^10+6004 /OUTPUT CHARACTER FROM AC[4-11]

PROIE= PROCON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

PROLS= PROCON^10+6006 /OUTPUT CHARACTER FROM AC[4-11], CLEAR AC

PRONO2= PROCON^10+6007 /NOP

/ RD51D I/O INSTRUCTIONS.

RDNOP= 6700 /RESERVED INSTRUCTION

RDSR= 6701 /SKIP ON, CLEAR DATA REQUEST FLAG

RDSC= 6702 /SEND COMMAND PER AC

RDSD= 6703 /SKIP ON, CLEAR DONE FLAG

RDTD= 6704 /TRANSFER DATA TO/FROM AC

RDWE= 6705 /WRITE INTERRUPT ENABLE PER AC[11]

RDSE= 6706 /SKIP ON, CLEAR ERROR FLAG

RDTEST= 6707 /RESERVED TEST INSTRUCTION THAT CLEARS THE AC

/ONLY IF THE RD51D IS INSTALLED.

/ COMMUNICATIONS PORT DEFINITIONS.

PORTIN= 30 /COMMUNICATIONS PORT INPUT DEVICE CODE

IFL= PORTIN^10+6000 /SET COMMUNICATIONS PORT INPUT/OUTPUT FLAG

ISF= PORTIN^10+6001 /SKIP ON, CLEAR PORT INPUT/OUTPUT FLAG

ICF= PORTIN^10+6002 /NOP (CLEAR THE AC?)

INOP1= PORTIN^10+6003 /(NOP?)

IRS= PORTIN^10+6004 /READ COMMUNICATIONS PORT RECEIVE BUFFER

IIE= PORTIN^10+6005 /PORT I/O INTERRUPT ENABLE PER AC[11]

IRB= PORTIN^10+6006 /READ COMMUNICATIONS PORT RECEIVE BUFFER

INOP2= PORTIN^10+6007 /(NOP?)

PORTOUT=31 /COMMUNICATIONS PORT OUTPUT DEVICE CODE

DUMBFL= PORTOUT^10+6000 /SET COMMUNICATIONS PORT DUMMY FLAG

DUMBSF= PORTOUT^10+6001 /SKIP ON, CLEAR COMMUNICATIONS PORT DUMMY FLAG

DUMBCF= PORTOUT^10+6002 /NOP (CLEAR THE AC?)

ONOP1= PORTOUT^10+6003 /(NOP?)

OPC= PORTOUT^10+6004 /LOAD COMMUNICATIONS PORT TRANSMIT BUFFER

DUMBIE= PORTOUT^10+6005 /PORT DUMMY INTERRUPT ENABLE PER AC[11]

OLS= PORTOUT^10+6006 /LOAD COMMUNICATIONS PORT TRANSMIT BUFFER

ONOP2= PORTOUT^10+6007 /(NOP?)

PORTCON=36 /COMMUNICATIONS PORT CONTROL DEVICE CODE

MFL= PORTCON^10+6000 /SET MODEM CHANGE FLAG

MSF= PORTCON^10+6001 /SKIP ON, CLEAR MODEM CHANGE FLAG

MLC= PORTCON^10+6002 /LOAD MODEM CONTROL REGISTER

MSB= PORTCON^10+6003 /LOAD BAUD RATE REGISTER

MRS= PORTCON^10+6004 /READ MODEM STATUS REGISTER

MIE= PORTCON^10+6005 /MODEM CHANGE INTERRUPT ENABLE PER AC[11]

MPSCC= PORTCON^10+6006 /ACCESS MULTIPROTOCOL SERIAL CONTROLLER

MPRESET=PORTCON^10+6007 /RESET MULTIPROTOCOL SERIAL CONTROLLER

/ TTY: TRAP DEFINITIONS.

TTYCON= 07 /DEVICE CODE FOR TTY: TRAP

TTYFL= TTYCON^10+6000 /SET TTY: TRAP FLAG

TTYSF= TTYCON^10+6001 /SKIP ON, CLEAR TTY: TRAP FLAG

TTYCLR= TTYCON^10+6002 /CLEAR THE AC

TTNOP1= TTYCON^10+6003 /NOP

TTNOP2= TTYCON^10+6004 /NOP

TTYIE= TTYCON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

TTNOP3= TTYCON^10+6006 /NOP

TTNOP4= TTYCON^10+6007 /NOP

/ CLOCK DEFINITIONS.

CLKCON= 13 /REAL-TIME CLOCK DEVICE CODE

CLFL= CLKCON^10+6000 /SET CLOCK FLAG

CLSK= CLKCON^10+6001 /SKIP ON, CLEAR CLOCK FLAG

CLNOP1= CLKCON^10+6002 /NOP

CLNOP2= CLKCON^10+6003 /NOP

CLNOP3= CLKCON^10+6004 /NOP

CLIE= CLKCON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

CLNOP4= CLKCON^10+6006 /NOP

CLNOP5= CLKCON^10+6007 /NOP

/ KEYBOARD DEFINITIONS.

KBICON= 11 /KEYBOARD INPUT DEVICE CODE

KBIFL= KBICON^10+6000 /SET KEYBOARD INPUT FLAG

KBISF= KBICON^10+6001 /SKIP ON, CLEAR KEYBOARD INPUT FLAG

KBICLR= KBICON^10+6002 /CLEAR THE AC

KINOP1= KBICON^10+6003 /NOP

KBIRS= KBICON^10+6004 /OR AC WITH KEYBOARD INPUT DATA

KBIIE= KBICON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

KBIRB= KBICON^10+6006 /READ KEYBOARD INPUT DATA INTO AC

KINOP2= KBICON^10+6007 /NOP

KBOCON= 05 /KEYBOARD OUTPUT DEVICE CODE

KBOFL= KBOCON^10+6000 /SET KEYBOARD OUTPUT FLAG

KBOSF= KBOCON^10+6001 /SKIP ON, CLEAR KEYBOARD OUTPUT FLAG

KONOP1= KBOCON^10+6002 /NOP

KONOP2= KBOCON^10+6003 /NOP

KBOPC= KBOCON^10+6004 /OUTPUT AC TO KEYBOARD

KBOIE= KBOCON^10+6005 /WRITE INTERRUPT ENABLE PER AC[11]

KBOLS= KBOCON^10+6006 /OUTPUT AC TO KEYBOARD, CLEAR AC

KONOP3= KBOCON^10+6007 /NOP

/ RX50/RX01/RX02 DEFINITIONS.

RXCON= 75 /RX50 DEVICE CODE

SEL= RXCON^10+6000 /SELECT DISKETTE PAIR PER AC[0] AND AC[11]

LCD= RXCON^10+6001 /LOAD COMMAND REGISTER, CLEAR AC

XDR= RXCON^10+6002 /TRANSFER DATA

STR= RXCON^10+6003 /SKIP ON TRANSFER FLAG, CLEAR TRANSFER FLAG

SER= RXCON^10+6004 /SKIP ON ERROR FLAG, CLEAR ERROR FLAG

SDN= RXCON^10+6005 /SKIP ON DONE FLAG, CLEAR DONE FLAG

INTR= RXCON^10+6006 /WRITE INTERRUPT ENABLE PER AC[11]

RXINIT= RXCON^10+6007 /INITIALIZE CONTROLLER AND DRIVES

/ MRI DEFINITIONS.

JMPIC= JMP I . /CURRENT PAGE JMP I

/ OTHER DEFINITIONS.

A= 0 /EVEN HALF OF COMMUNICATIONS CHIP

APUCON= 14 /APU/XPU DEVICE CODE

B= 1 /ODD HALF OF COMMUNICATIONS CHIP

DTIME= 400 /DISK WAIT TIME-OUT FACTOR

ROWADR= 3660 /ROWTABLE ADDRESS IN FIELD 1

T0S3BUF=5350 /TRACK 0, SECTOR 3 BUFFER IN FIELD 1

FIELD 7 /MOST OF THE CODE EXECUTES IN FIELD 7

PAGE 37 /STARTUP PAGE

/ THE ROM STARTS UP HERE (JUMPED TO FROM THE END OF THE PAGE). SINCE WE ARE

/ STARTING FROM POWERUP, BOTH CONTROL BITS ARE CLEARED. THE ROM IS REFERENCED

/ WHEN MEMORY IS READ VIA BOTH THE INSTRUCTION AND DATA FIELDS INITIALLY.

/ FURTHER, FORCE-ZERO MODE IS IN EFFECT WHICH MUST BE CLEARED TO USE EXTENDED

/ MEMORY.

ROMGO= . /ROM STARTS HERE

ROMGO, CIF 00 /SET OUR OWN FIELD; START CLEARING FZ MODE

JMP .+1 /THIS JUST LOADS OUR FIELD, BUT CLEARS FZ MODE

NL4000 /SETUP PATTERN FOR RAM DATA FIELD

WSR /ROM IS ONLY IF NOW, DF IS RAM

/ APPARENTLY THE RAM MAY NOT YET BE WORKING, SO VARIOUS TESTS ARE DONE UNTIL IT

/ RESPONDS CORRECTLY.

MEMTST, CLA STL /CLEAN UP AND SET A STOP BIT

WATLUP, ISZ I ATABLE+0/(L4001) /BUMP UP TEST LOCATION

NOP /IN CASE IT SKIPS

RAL /MOVE PATTERN OVER

SMA /DONE ENOUGH?

JMP WATLUP /NO, KEEP GOING

CLA /CLEAN UP

SPD /FORCE INDIRECT REFERENCES TO CP MEMORY

/ TRY TO STORE ALL ZEROES INTO THE RAM TEST LOCATION.

DCA I ATABLE+0/(L4001) /ATTEMPT TO STORE CLEAR PATTERN

TAD I ATABLE+0/(L4001) /GET IT BACK

SZA CLA /SKIP IF ACTUALLY CLEAR

JMP MEMTST /GO BACK IF IT FLUNKS

/ TRY TO STORE ALTERNATING ZEROES AND ONES INTO THE RAM TEST LOCATION.

TAD L2525/(2525) /GET A DATA PATTERN

DCA I ATABLE+0/(L4001) /ATTEMPT TO STORE IT

TAD I ATABLE+0/(L4001) /GET IT BACK

TAD L5252/(5252) /ADD ON NEGATED PATTERN

IAC /ADD ONE TO FINISH THE COMPARISON

SZA CLA /SKIP IF IT MATCHES

JMP MEMTST /GO DO IT AGAIN IF IT FLUNKS

/ TRY TO STORE ALTERNATING ONES AND ZEROES INTO THE RAM TEST LOCATION.

TAD L5252/(5252) /GET A DATA PATTERN

DCA I ATABLE+0/(L4001) /ATTEMPT TO STORE IT

TAD I ATABLE+0/(L4001) /GET IT BACK

TAD L2525/(2525) /ADD ON NEGATED PATTERN

IAC /ADD ONE TO FINISH THE COMPARISON

SZA CLA /SKIP IF IT MATCHES

JMP MEMTST /GO DO IT AGAIN IF IT FLUNKS

/ TRY TO STORE ALL ONES INTO THE RAM TEST LOCATION.

NL7777 /SET DATA PATTERN

DCA I ATABLE+0/(L4001) /ATTEMPT TO STORE IT

NL0001 CLL /SET NEGATED PATTERN FOR COMPARISON

TAD I ATABLE+0/(L4001) /ADD ON TEST VALUE

SZA CLA /SKIP IF IT MATCHES

JMP MEMTST /GO DO IT AGAIN IF IT FLUNKS

/ MOVE THE IMAGE OF THE LOADING PROGRAM TO PAGE ZERO OF RAM.

TAD LPROGM+0/(4001) /GET A WORD

DCA I ATABLE+0/(L4001) /PUT A WORD

TAD LPROGM+1/(CODEXC-1) /GET A WORD

DCA I ATABLE+1/(XR6) /PUT A WORD

TAD LPROGM+2/(-ROMGO+1) /GET A WORD

DCA I ATABLE+2/(MOVCNT) /PUT A WORD

TAD LPROGM+3/(NL7777 CLL) /GET A WORD

DCA I ATABLE+3/(LOADIT+0) /PUT A WORD

TAD LPROGM+4/(DCA XR1) /GET A WORD

DCA I ATABLE+4/(LOADIT+1) /PUT A WORD

TAD LPROGM+5/(CDF 00) /GET A WORD

DCA I ATABLE+5/(LOADLP+0) /PUT A WORD

TAD LPROGM+6/(NL0001) /GET A WORD

DCA I ATABLE+6/(LOADLP+1) /PUT A WORD

TAD LPROGM+7/(WSR) /GET A WORD

DCA I ATABLE+7/(LOADLP+2) /PUT A WORD

TAD LPROGM+10/(TAD I XR1) /GET A WORD

DCA I ATABLE+10/(LOADLP+3) /PUT A WORD

TAD LPROGM+11/(MQL) /GET A WORD

DCA I ATABLE+11/(LOADLP+4) /PUT A WORD

TAD LPROGM+12/(TAD L4001) /GET A WORD

DCA I ATABLE+12/(LOADLP+5) /PUT A WORD

TAD LPROGM+13/(WSR) /GET A WORD

DCA I ATABLE+13/(LOADLP+6) /PUT A WORD

TAD LPROGM+14/(CLA MQA) /GET A WORD

DCA I ATABLE+14/(LOADLP+7) /PUT A WORD

TAD LPROGM+15/(CDF 70) /GET A WORD

DCA I ATABLE+15/(LOADLP+10) /PUT A WORD

TAD LPROGM+16/(DCA I XR6) /GET A WORD

DCA I ATABLE+16/(LOADLP+11) /PUT A WORD

TAD LPROGM+17/(ISZ MOVCNT) /GET A WORD

DCA I ATABLE+17/(LOADLP+12) /PUT A WORD

TAD LPROGM+20/(JMP LOADLP) /GET A WORD

DCA I ATABLE+20/(LOADLP+13) /PUT A WORD

TAD LPROGM+21/(CIF 70) /GET A WORD

DCA I ATABLE+21/(LOADLP+14) /PUT A WORD

TAD LPROGM+22/(JMP I .+1) /GET A WORD

DCA I ATABLE+22/(LOADLP+15) /PUT A WORD

TAD LPROGM+23/(CODESTART) /GET A WORD

DCA I ATABLE+23/(LOADLP+16) /PUT A WORD

/ NOW STARTUP THE LOADER TO MOVE THE CODE TO RAM.

NL0001 /SETUP FOR

WSR /RAM IF AND ROM DF

JMP LOADIT /GO START IT UP

L2525, 2525 /DATA

L5252, 5252 /PATTERNS

LPROGM= . /IMAGE OF LOADING PROGRAM HERE

RELOC 11 /FOOL THE ASSEMBLER

XR1, /AUTO-INDEX USED FOR MOVING THE ROM

RELOC 15 /FOOL THE ASSEMBLER SOME MORE

LOADER= . /LOADER EXECUTES FROM HERE

L4001, 4001 /ROM DISABLE CONSTANT

XR6, CODEXC-1 /RAM STORE POINTER

MOVCNT, -ROMGO+1 /MOVE COUNTER

/ THE LOADER STARTS HERE. ALL IF REFERENCES ARE NOW IN RAM. THE CODE IN THE

/ ROM WILL BE MOVED TO FIELD 7.

LOADIT, NL7777 CLL /SET (AUTO-INCREMENTED) POINTER

DCA XR1 /TO LOWEST ROM LOCATION

LOADLP, CDF 00 /ROM CODE IS IN FIELD ZERO

NL0001 /SETUP FOR

WSR /RAM IF AND ROM DF

TAD I XR1 /GET A ROM WORD

MQL /SAVE IT FOR NOW

TAD L4001/(4001) /SETUP FOR

WSR /RAM IF AND RAM DF

CLA MQA /GET THE ROM VALUE

CDF 70 /CODE LOADS INTO FIELD SEVEN

DCA I XR6 /STORE INTO RAM

ISZ MOVCNT /DONE YET?

JMP LOADLP /NO, KEEP GOING

CIF 70 /GOTO NEW EXECUTION FIELD

JMP I .+1/(CODESTART) /GO START IT UP

CODESTART /THROUGH HERE

RELOC /UN-FOOL THE ASSEMBLER

ATABLE, LOADER+00 /TABLE OF LOADING ADDRESSES FOR MOVED LOADER

LOADER+01 /

LOADER+02 /

LOADER+03 /

LOADER+04 /

LOADER+05 /

LOADER+06 /

LOADER+07 /

LOADER+10 /

LOADER+11 /

LOADER+12 /

LOADER+13 /

LOADER+14 /

LOADER+15 /

LOADER+16 /

LOADER+17 /

LOADER+20 /

LOADER+21 /

LOADER+22 /

LOADER+23 /LAST ADDRESS OF MOVED LOADER CODE

ZBLOCK 7776-. /EMPTY SPACE

/ WHEN THE CODE IS IN RAM, THESE LOCATIONS IN CP FIELD 0 ARE USED AS THE START

/ OF THE CP INTERRUPT HANDLER. THE MAIN MEMORY INTERRUPTED PC IS STORED IN CP

/ 00000 AND CONTROL IS REGAINED AT CP 07777. INVARIABLY, THE INSTRUCTION USED

/ THERE IS JMP I .-1. THE POINTER ADDRESS IS THEREFORE STORED HERE AT CP 07776.

ROMSP, .-. /USED LATER AS CP INTERRUPT POINTER

/ THE ROM PROGRAM GAINS CONTROL HERE. ALSO USED LATER FOR CP INTERRUPTS.

ROMST, JMP ROMGO /CONTINUE THERE

/ START OF PAGE ZERO WHILE RUNNING IN FIELD 7. THESE LOCATIONS ARE NOT LOADED

/ BY THE ROM'S LOADING PROGRAM BUT ARE USED BY THE MOVED CODE AS TEMPORARIES.

*0 /START AT THE BEGINNING

NOPUNCH /DON'T GENERATE BINARY

RIMADR, /APT RIM-LOADER TEMPORARY

INTADR, /CP-INTERRUPTS PC STORED HERE

/ THE FOLLOWING ARE DEFINITIONS FOR MAIN MEMORY INTERRUPTS IN FIELD 0.

INTADR, .-. /MAIN-MEMORY INTERRUPTS PC STORED HERE

INT1, JMP I INT2 /WHAT'S PUT HERE IN MAIN MEMORY FIELD 0

INT2, INTHND /POINTER TO MAIN MEMORY INTERRUPT HANDLER

TIMEOUT,.-. /TIME-OUT COUNTER FOR LOOPBACK TEST

CLKTICK,.-. /CLOCK TICK COUNTER FOR LOOPBACK TEST

CSTATUS,.-. /COUNT PATTERN PROGRESS STATUS

PATTERN,.-. /COUNT PATTERN TEMPORARY

TSTATUS,.-. /LOOPBACK CP TEST STATUS

*10 /GET TO AUTO-INDEX AREA

XR0, .-. /AUTO-INDEX REGISTER 0

XR1, .-. /AUTO-INDEX REGISTER 1

XR2, .-. /AUTO-INDEX REGISTER 2

XR3, .-. /AUTO-INDEX REGISTER 3

XR4, .-. /AUTO-INDEX REGISTER 4

XR5, .-. /AUTO-INDEX REGISTER 5

XR6, .-. /AUTO-INDEX REGISTER 6

XR7, .-. /AUTO-INDEX REGISTER 7

*20 /GET PAST AUTO-INDEX AREA

CTMP1, .-. /OUTPUT COUNTING TEMPORARY FOR LOOPBACK TEST

CTMP2, .-. /INPUT COUNTING TEMPORARY FOR LOOPBACK TEST

CNTLO, .-. /LOW-ORDER COUNTER FOR LOOPBACK TESTING

CNTHI, .-. /HIGH-ORDER COUNTER FOR LOOPBACK TESTING

TEMP1, .-. /TEMPORARY

TEMP2, .-. /TEMPORARY

TEMP3, .-. /TEMPORARY

ZBLOCK 1 /EMPTY SPACE

/ THESE SIX ARE PRINTED AS A GROUP.

TM0, .-. /TEMPORARY

COMTM1, .-. /COMMUNICATIONS PORT TESTING TEMPORARY

MTM1, .-. /TEMPORARY

MTM2, .-. /TEMPORARY

SP1SAVE,.-. /FIRST STACK POINTER SAVED HERE

SP2SAVE,.-. /SECOND STACK POINTER SAVED HERE

MTM5, .-. /TEMPORARY

MTM6, .-. /TEMPORARY

MTM7, .-. /TEMPORARY

TINC, .-. /TEMPORARY

T0, .-. /TEMPORARY

T1, .-. /TEMPORARY

T2, .-. /TESTING TEMPORARY

T3, .-. /TEMPORARY

T4, .-. /TEMPORARY

T5, .-. /TEMPORARY

T6, .-. /TEMPORARY

T7, .-. /TEMPORARY

T8, .-. /TEMPORARY

RXCMD, .-. /LATEST RX50 COMMAND

ESTATUS,.-. /CUMULATIVE ERROR STATUS

LCHAR, .-. /LATEST COMMAND CHARACTER IN SETUP ROUTINE

ROW, .-. /ROW POSITION FOR CHARACTER ROUTINES

COLUMN, .-. /COLUMN POSITION FOR CHARACTER ROUTINES

CCNT, .-. /DELIMITER CHARACTER SEARCH COUNT

PSTATUS,.-. /STATUS AT POWER-ON

ENPUNCH /RESTORE BINARY

/ START OF ROM-BASED CODE.

*0 /START AT THE BEGINNING

ROMADR= . /WHERE IT IS LOADED WHILE IN ROM

RELOC 100 /FOOL THE ASSEMBLER

CODEXC= . /WHERE IT RUNS IN FIELD 7

3732 /THIS LOCATION IS PROBABLY A VERSION NUMBER

PCHRPRT,CHRPRT /POINTER TO SCREEN CHARACTER OUTPUT ROUTINE

PPPTABL,PPTABLE /POINTER TO PROGRAMMING TABLE POINTER

PROWLOA,ROWLOAD /POINTER TO ROWTABLE AND REGISTER LOAD ROUTINE

Z7, 7 /CONSTANT 0007

Z10, 10 /CONSTANT 0010

Z12, 12 /CONSTANT 0012

Z17, 17 /CONSTANT 0017

Z20, 20 /CONSTANT 0020

Z102, 102 /CONSTANT 0102

Z200, 200 /CONSTANT 0200

Z237, 237 /CONSTANT 0237

Z0301, 0301 /CONSTANT 0301

Z377, 377 /CONSTANT 0377

Z400, 400 /CONSTANT 0400

Z2525, 2525 /CONSTANT 2525

Z3777, 3777 /CONSTANT 3777

JMPIM1, ROMSP&177+JMPIC /JMP I .-1 CONSTANT FOR RESTART ADDRESS

ZCDF, CDF 00 /CONSTANT 6201

PWRIBUF,WRIBUFFER /POINTER TO WRITE BUFFER

PAPTROU,APTROUTINE /POINTER TO APT ROUTINE

6777 /CONSTANT 6777 (UNUSED?)

Z7766, 7766 /CONSTANT 7766

Z7760, 7760 /CONSTANT 7760

Z7741, 7741 /CONSTANT 7741

Z7400, 7400 /CONSTANT 7400

DTIMOUT,-DTIME /DISK WAIT TIMEOUT FACTOR

Z7775, 7775 /CONSTANT 7775

CPIADDR,/ROMSP /POINTER ADDRESS FOR CP-INTERRUPTS

Z7776, 7776 /CONSTANT 7776

PROMST, ROMST /ROM (RE)START ADDRESS FOR INTERRUPTS, ETC.

LBLADR, LBLOAD-1 /LOOPBACK TEST CODE ADDRESS (-1)

LBMCNT, LBTEST-LBTEND /LENGTH OF LOOPBACK TEST CODE TO BE MOVED

CPLADR, CPLOAD-1 /CP-INTERRUPT CODE ADDRESS (-1)

CPMCNT, CPLOAD-CPEND2 /LENGTH OF CP-INTERRUPT CODE TO BE MOVED

PCOMLOA,COMLOAD /=> COMMUNICATIONS CHIP REGISTER LOAD ROUTINE

PCOMREA,COMREAD /=> COMMUNICATIONS CHIP REGISTER READ ROUTINE

PCLR23, CLR23 /POINTER TO FIELD 2, 3 CLEAR ROUTINE

PRXCOMD,RXCOMD /POINTER TO RXCOMD ROUTINE

PSSTRIN,SSTRING /POINTER TO SSTRING ROUTINE

/ THE FOLLOWING LOCATION IS UNREFERENCED; PERHAPS THERE IS A CONVENTION ABOUT

/ WHERE TO RESTART THE ROM PROGRAM?

PRGDONE /POINTER TO PRGDONE ROUTINE (UNUSED?)

PMEMCOM,MEMCOMP /POINTER TO MEMORY COMPARE ROUTINE

PKBDIN, KBDIN /POINTER TO KEYBOARD INPUT ROUTINE

PCALLSU,CALLSUB /POINTER TO TEST (SUBROUTINE) LOCATION

Z205, 205 /CONSTANT 0205

ZBLOCK 21 /EMPTY SPACE

/ ********

SUBR /POINTER TO SUBR

SUB176, .-. /ENTRY HERE

JMP I .-2/[SUBR] /GO THERE

PAGE

/ THIS IS WHERE THE CODE STARTS AFTER THE LOADER HAS MOVED IT FROM 00000 TO

/ 70100. AT THIS POINT THE ROM IS TOTALLY DISABLED. IF AUTOMATIC PRODUCT

/ TESTING IS IN PROGRESS, IT IS POSSIBLE THAT A PREVIOUSLY LOADED MAIN MEMORY

/ TEST PROGRAM HAS EXITED VIA A PANEL REQUEST INSTRUCTION. THIS ACTION CAUSES A

/ TOTAL RESTART TO THIS LOCATION.

CODESTA=. /THE CODE STARTS HERE

CODESTA,CLA CLL /CLEAN UP

PRS /GET (POWER-ON) STATUS NOW

DCA PSTATUS /SAVE FOR LATER

PG0 /RESET THE HLTFLG FLIP-FLOP

/ THE PIE CHIPS HAVE TO BE PROGRAMMED BEFORE THEY CAN BE USED. UP UNTIL NOW ALL

/ IOTS HAVE BEEN INTERNAL; AN UNIMPLEMENTED EXTERNAL IOT (6777) WILL BE USED TO

/ LOAD IN THE DEVICE-SPECIFIC INFORMATION.

TAD I PPPTABLE/[PPTABLE] /GET PROGRAMMING TABLE POINTER

DCA XR0 /STASH THE POINTER

PRGLUP, TAD I XR0 /GET THE LATEST

SNA /SKIP IF NOT AT END

JMP PRGDONE /CONTINUE THERE IF DONE

6777 /UN-IMPLEMENTED EXTERNAL IOT TO SETUP CHIPS

CLA /CLEAN UP

JMP PRGLUP /KEEP GOING

/ COMES HERE WHEN I/O PORT INITIALIZING IS DONE.

PRGDONE,TAD Z237/[237] /GET PORT ENABLE VALUE

MLC /ENABLE ALL OUTPUT LINES

JMS I PROWLOAD/[ROWLOAD] /CALL ROWTABLE AND REGISTER LOAD ROUTINE

JMS I PCLR23/[CLR23] /CLEAR FIELDS 2, 3 (AND BITS IN 13705, 13707)

CDF 70 /BACK TO OUR FIELD

NL7776 /-2

DCA XR0 /SETUP COUNTER

VAGAIN, DCA XR1 /CLEAR TIME-OUT COUNTER

VWATLP, VSF /VIDEO RETRACE FLAG UP?

SKP /SKIP IF NOT

JMP VPAST /JUMP IF SO

ISZ XR1 /WAITING TOO LONG?

JMP VWATLP /NO, KEEP GOING

JMP PRGDONE /YES, GO DO IT ALL OVER AGAIN

VPAST, TAD L72/(72) /GET VALUE FOR REGISTER 3A

LSCREG /LOAD THE REGISTER

VREAD /GET THE STATUS THERE, CLEAR INTERNAL FLAGS

CLA /CLEAN UP

ISZ XR0 /DONE IT ENOUGH TIMES?

JMP VAGAIN /NO, GO DO IT AGAIN

/ FOR SOME PURPOSE, WE NEED TO STORE 0100 INTO CP20301.

NL0100 CLL /GET VALUE

CDF 20 /GOTO BUFFER FIELD

DCA I Z0301/[0301] /STORE IN BUFFER

CDF 70 /BACK TO OUR FIELD

/ IF THE PRINTER PORT HAS THE APTEN LINE GROUNDED, WE GO IMMEDIATELY INTO THE

/ AUTOMATIC PRODUCT TEST DOWNLOAD MODE. THIS COULD BE A SECONDARY CALL TO THE

/ DOWNLOAD ROUTINE IF A PREVIOUSLY LOADED ROUTINE EXITED VIA A PANEL REQUEST

/ INSTEAD OF HLT.

APTSKP /AUTOMATIC PRODUCT TEST REQUESTED?

JMP MEMTEST /NO, JUST KEEP GOING

JMS I .+1; DOWNLOAD /YES, GO DOWNLOAD SOME STUFF.

L72, 72 /CONSTANT 0072

/ MEMORY TESTING. ALTERNATING ONES AND ZEROES ARE STORED INTO ALL FIELDS IN

/ MAIN MEMORY AND FIELDS 2-6 IN CP MEMORY. CHECK IF THE PATTERN WORKED AND THEN

/ REVERSE ALL PARAMETERS EACH PASS FOR SEVERAL ITERATIONS.

MEMTEST,CPD /INDIRECT TO MAIN MEMORY FROM NOW ON

CDF 70 /RESET TO OUR FIELD FIRST (WHY?)

DCA T2 /CLEAR FIELD COUNTER

/ EXECUTE CDF TO LATEST TEST FIELD.

MLODLP, TAD T2 /GET LATEST FIELD

AND Z7/[7] /JUST FIELD BITS

R3L /MOVE UP

TAD ZCDF/[CDF] /MAKE IT A CDF INSTRUCTION

DCA .+1 /STORE IN-LINE

HLT+.-. /WILL BE CDF TEST FIELD INSTRUCTION

DCA T1 /CLEAR ADDRESS POINTER

/ STORE TEST PATTERN IN LATEST TEST FIELD.

FILLIT, TAD Z2525 /GET ALTERNATING TEST PATTERN

DCA I T1 /STASH INTO TEST MEMORY

ISZ T1 /BUMP TO NEXT

JMP FILLIT /GO BACK FOR MORE

/ BUMP TO NEXT FIELD AND CHECK WHICH MEMORY BANK WE ARE TESTING.

ISZ T2 /BUMP TO NEXT FIELD

TAD T2 /GET LATEST FIELD

AND Z10/[10] /JUST GROUP BIT

SNA CLA /SKIP IF FIRST GROUP DONE

JMP MLODLP /GO BACK AGAIN

/ CP MEMORY IS BEING TESTED; CHECK IF WE JUST LOADED FIELD 6.

TAD T2 /GET LATEST FIELD

IAC /LOOK AT NEXT TENTATIVE FIELD

AND Z20/[20] /CHECK IF AT LAST MEMBER (WHICH WOULD BE US!)

SZA CLA /SKIP IF NOT THERE YET

JMP MEMLOADED /JUMP IF AT END

/ CHECK IF WE ARE JUST FINISHED LOADING MAIN MEMORY.

TAD T2 /GET LATEST FIELD

AND Z7/[7] /JUST FIELD BITS

SZA CLA /SKIP IF GROUP DONE

JMP MLODLP /GO BACK AGAIN

/ SWITCH INDIRECTS BACK TO CP MEMORY. AVOID TESTS IN FIELDS 0 AND 1.

SPD /WILL BE CP INDIRECTS FROM NOW ON

ISZ T2 /BUMP LATEST FIELD

ISZ T2 /DO IT TWICE

JMP MLODLP /KEEP GOING

/ COMES HERE WHEN ALL TESTABLE FIELDS ARE FILLED WITH THE TEST PATTERN.

MEMLOAD,DCA T1 /CLEAR ADDRESS POINTER

DCA T2 /CLEAR FIELD COUNTER

TAD Z2525/[2525] /GET TEST VALUE

CMA /INVERT FOR CHECKING LATER

DCA T0 /STASH IT

CPD /MAIN MEMORY INDIRECTS FROM NOW ON

NL0001 /SETUP FOR SINGLE

DCA TINC /FIELD INCREMENT

NL7775 /SETUP FOR THREE

DCA XR1 /COMPLETE TEST PASSES

MTSTLP, JMS I PMEMCOMP/[MEMCOMP] /CHECK LATEST FIELD FOR PROPER TEST VALUE

JMP MEMTEST /MEMORY FAILED TO MATCH, GO BACK FOR MORE

TAD TINC /GET INCREMENT

TAD T2 /UPDATE FIELD

DCA T2 /STORE BACK

TAD TINC /GET INCREMENTAL FACTOR

SPA CLA /SKIP IF STILL ADDING

JMP CDWNTST /JUMP IF NOT

/ FOUND OUT IF WE ARE FINISHED (JUST TESTED CP FIELD 6) WHILE COUNTING FORWARD.

TAD T2 /GET CURRENT FIELD

IAC /TENTATIVELY ADD ONE

AND Z20/[20] /CHECK IF AT LAST FIELD

SNA CLA /SKIP IF SO

JMP CPMTST /JUMP IF NOT

/ BACKUP TO FIELD 6 TO START NEXT TEST PASS.

NL7777 /BACKUP

TAD T2 /ADD ON LATEST FIELD

BACKEND,DCA T2 /STORE BACK

JMP PASSEND /CONTINUE THERE

/ COUNTING FIELDS DOWN; CHECK IF WE JUST FINISHED A PASS.

CDWNTST,TAD T2 /GET CURRENT FIELD

SPA CLA /SKIP IF STILL VALID

JMP BACKEND /JUMP IF NOT

/ CHECK IF WE ARE ABOUT TO START TESTING CP MEMORY.

CPMTST, TAD T2 /GET CURRENT FIELD

AND Z10/[10] /CHECK IF INTO CP GROUP

SNA CLA /SKIP IF SO

JMP MTSTLP /KEEP GOING

TAD TINC /GET INCREMENTAL FACTOR

SPA CLA /SKIP IF STILL POSITIVE

JMP NEGTST /JUMP IF NOT

/ CHECK IF FIRST TIME IN CP MEMORY; SWITCH OVER TO CP INDIRECTS AND BYPASS

/ TESTING OF FIELD 0 AND FIELD 1.

< 7802 div class="react-code-text react-code-line-contents" style="min-height:auto">

TAD T2 /GET LATEST FIELD

AND Z7/[7] /JUST FIELD BITS

SNA CLA /SKIP IF NOT AT ZERO

NL002A /ELSE START HERE

TAD T2 /ADD ON CURRENT FIELD

DCA T2 /STORE BACK

SPD /PANEL INDIRECTS FROM NOW ON

JMP MTSTLP /CONTINUE THERE

/ IF COUNTING FIELDS DOWN, WE MUST AVOID FIELD 0 AND FIELD 1; IF CP FIELD 2 WAS

/ JUST FINISHED, THEN SWITCH OVER TO MAIN FIELD 7.

NEGTST, NL7777 /-1

TAD T2 /COMPARE TO LATEST FIELD

AND Z7/[7] /JUST FIELD BITS

SZA CLA /SKIP IF WE ARE AT FIELD 1

JMP MTSTLP /JUST KEEP GOING

CPD /MAIN MEMORY INDIRECTS FROM NOW ON

TAD Z7/[7] /SETUP FOR FIELD 7

DCA T2 /STASH IN FIELD COUNTER

JMP MTSTLP /CONTINUE THERE

/ COMES HERE AT THE END OF A TEST PASS OVER ALL TESTED FIELDS.

PASSEND,TAD TINC /GET INCREMENT FACTOR

CIA /INVERT IT

DCA TINC /STORE BACK

TAD T0 /GET TEST PATTERN COMPARE VALUE

CMA /INVERT THE BITS

DCA T0 /STORE BACK

TAD TINC /GET INCREMENT AGAIN

SPA CLA /SKIP IF POSITIVE

NL7777 /ELSE SET -1

DCA T1 /STORE EITHER WAY

ISZ XR1 /DONE ENOUGH PASSES?

JMP I PMTSTLP/(MTSTLP) /NO, KEEP GOING

JMS I PCLR23/[CLR23] /CLEAR FIELDS 2, 3 (AND BITS IN 13705, 13707)

CDF 70 /BACK TO OUR FIELD

APTSKP /AUTOMATIC PRODUCT TESTING?

SKP /SKIP IF NOT

JMS I PAPTROUTINE/[APTROUTINE]/CALL ROUTINE IF SO

/ MOVE CP 72600-72746 TO MAIN 00200-00346. THIS IS THE MAIN MEMORY ROUTINE AND

/ INTERRUPT HANDLER FOR THE PRINTER LOOPBACK TEST.

TAD LBLADR/[LBLOAD-1] /SETUP THE

DCA XR0 /SOURCE POINTER

TAD LBMCNT/[LBTEST-LBTEND] /SETUP THE

DCA XR1 /MOVE COUNTER

TAD LBADR/(LBTEST-1) /SETUP THE

DCA XR2 /DESTINATION POINTER

LBMVLP, TAD I XR0 /GET A WORD

CDF 00 /GOING TO FIELD 0

CPD /GOING TO MAIN MEMORY

DCA I XR2 /PUT A WORD

SPD /INDIRECTS BACK TO CP MEMORY AGAIN

CDF 70 /BACK TO OUR FIELD

ISZ XR1 /DONE YET?

JMP LBMVLP /NO, GO BACK

/ MOVE CP 73000-75600 TO CP 04000-06600. THIS IS THE CP-INTERRUPT HANDLER FOR

/ THE PRINTER LOOPBACK TEST.

/ PROGRAMMING NOTE: THE LENGTH OF EXECUTABLE CODE REQUIRED TO BE RELOCATED IS

/ APPARENTLY MUCH SMALLER THAN THE ACTUAL AMOUNT OF CODE MOVED. THE LENGTH

/ SHOULD BE CPEND-CPINT INSTEAD OF CPEND2-CPLOAD. THIS LENGTH MAY INTERFERE

/ WITH AUTOMATIC PRODUCT TESTING OR CAUSE SOME OTHER BUG. IT IS NOT KNOWN AT

/ THIS TIME IF THE ORIGINAL PROGRAMMER'S INTENTION WAS TO OVERLAY ANY OTHER CODE

/ BEYOND THE INTERRUPT HANDLER, BUT THIS SOURCE CODE FOLLOWS THE ROM CONTENTS,

/ BUGS AND ALL :-).

TAD CPLADR/[CPLOAD-1] /SETUP THE

DCA XR0 /SOURCE POINTER

TAD CPMCNT/[CPLOAD-CPEND2] /SETUP THE

DCA XR1 /MOVE COUNTER

NL3777/TAD (CPINT-1) /SETUP THE

DCA XR2 /DESTINATION POINTER

CPMVLP, TAD I XR0 /GET A WORD

CDF 00 /GOING TO FIELD 0

DCA I XR2 /PUT A WORD

CDF 70 /BACK TO OUR FIELD

ISZ XR1 /DONE YET?

JMP CPMVLP /NO, KEEP GOING

/ NOW WE HAVE TO MOVE JMP I .-1 TO CP 07777 AND 4000 TO CP 07776 TO COMPLETE THE

/ INTERRUPT HANDLER.

NL4000/TAD (CPINT) /GET INTERRUPT HANDLING ADDRESS

CDF 00 /GOING TO FIELD 0

DCA I CPIADDRESS/[ROMSP] /STORE IN POINTER LOCATION

TAD JMPIM1/[ROMSP&177+JMPIC]/GET JMP I .-1 INSTRUCTION

DCA I PROMST/[ROMST] /STORE IN RESTART ADDRESS

CIF CDF 00 /GOING TO FIELD 0

CPD /INDIRECTS TO MAIN MEMORY

PEX /LEAVING CP MEMORY

JMP I Z200/[200] /GO START IT UP

LBADR, LBTEST-1 /LOOPBACK TEST ADDRESS (-1)

PMTSTLP,MTSTLP /POINTER TO LOOP BRANCH

/ COMES HERE WHEN THE PRINTER LOOPBACK TEST IS DONE TO TEST THE KEYBOARD IN

/ LOOPBACK MODE.

LBDONE, DCA ESTATUS /SAVE (POSSIBLE ERROR) RESULTS

TAD L16/(16) /GET 9600 BAUD VALUE

PRSB /SET BAUD RATE

CLA /CLEAN UP

DCA CTMP1 /CLEAR OUTPUT TEST VALUE

DCA CTMP2 /CLEAR INPUT TEST VALUE

DCA CNTLO /CLEAR LOW-ORDER COUNTER

TAD M52/(-52) /SETUP THE

DCA CNTHI /HIGH-ORDER COUNTER

APTSKP /AUTOMATIC PRODUCT TESTING?

TAD Z20/[20] /NO, GET LOOPBACK MODE VALUE

VIDCON /LOAD NEW MODE EITHER WAY

KBIRB /READ KEYBOARD DATA TO SET UART

CLA /THROW IT AWAY

KBOPC /OUTPUT <NUL> TO UART NOW

LUPLUP, KBISF /KEYBOARD INPUT FLAG UP?

SKP /SKIP IF NOT

JMP LUPIN /JUMP IF SO

KBOSF /KEYBOARD OUTPUT FLAG UP?

SKP /SKIP IF NOT

JMP LUPOUT /JUMP IF SO

ISZ CNTLO /DONE WAITING?

JMP LUPLUP /NO, KEEP GOING

ISZ CNTHI /ENOUGH TIMES?

JMP LUPLUP /NO, KEEP GOING

JMP LUPTIMOUT /YES, CONTINUE THERE

LUPIN, KBISF /SKIP ON, CLEARING THE INPUT FLAG

L16, 16 /9600 BAUD RATE VALUE; HERE IN CASE IT SKIPS

KBIRB /GET THE INPUT VALUE

AND Z377/[377] /JUST 8-BIT CHARACTER

CIA /INVERT FOR TEST

TAD CTMP2 /COMPARE TO TEST VALUE

SZA CLA /SKIP IF IT MATCHES

VIDCON /CLEAR LOOPBACK IF NOT

TAD CTMP2 /GET INPUT PATTERN VALUE

JMS I PCOUNTUP/(COUNTUP) /BUMP TO NEXT VALUE

JMP LUPDONE /ALL VALUES USED

DCA CTMP2 /SAVE UPDATED VALUE

JMP LUPLUP /KEEP GOING

LUPOUT, KBOSF /SKIP ON, THUS CLEARING OUTPUT FLAG

NOP /JUST IN CASE IT SKIPS

TAD CTMP1 /GET COUNT PATTERN VALUE

JMS I PCOUNTUP/(COUNTUP) /BUMP TO NEXT VALUE

JMP LUPLUP /ALL VALUES USED; KEEP GOING FOR INPUT'S SAKE

DCA CTMP1 /SAVE UPDATED VALUE

TAD CTMP1 /GET IT BACK

KBOLS /OUTPUT IT

CLA /CLEAN UP

JMP LUPLUP /KEEP GOING

M52, -52 /CONSTANT 7726

PCOUNTU,COUNTUP-LBTEST+LBLOAD /POINTER TO COUNTUP ROUTINE

L375, 375 /CONSTANT 0375

PTSTBUF,TSTBUFFER-1 /POINTER TO TEST BUFFER

PKBTEND,KBTEND /POINTER TO END OF KEYBOARD TEST

/ COMES HERE WHEN THE LOOPBACK TEST TIMES OUT.

LUPTIMO,NL0010 CLL /INDICATE TIME-OUT ENDED THE TEST

/ COMES HERE WHEN THE COUNT PATTERN IS FINISHED TO (POSSIBLY) TEST THE KEYBOARD.

LUPDONE,TAD ESTATUS /GET TEST ERROR STATUS

DCA ESTATUS /STORE (POSSIBLY) UPDATED VALUE

VIDCON /CLEAR VIDEO CONTROL

APTSKP /AUTOMATIC PRODUCT TESTING?

SKP /SKIP IF NOT

JMP I PKBTEND/(KBTEND) /JUMP IF SO TO BYPASS TEST

DCA XR2 /CLEAR RECEIVED CHARACTER COUNT

KBIRB /READ BUFFER NOW TO RESET UART

CLA /CLEAN UP

TAD L375/[375] /GET "JUMP TO POWER UP" VALUE

KBOLS /OUTPUT TO KEYBOARD

KBOSF /WAIT FOR IT

JMP .-1 /'TIL DONE

KBOSF /SKIP ON, THUS CLEARING THE FLAG

40/NOP /HERE IN CASE IT SKIPS (UNREFERENCED?)

CLA /CLEAN UP

TAD Z7766/[-12] /SETUP THE

DCA CNTHI /HIGH-ORDER COUNT

DCA CNTLO /CLEAR LOW-ORDER COUNT

TAD PTSTBUFF/(TSTBUFFER-1) /SETUP THE

DCA XR1 /BUFFER POINTER

KEYLUP, KBISF /FLAG UP?

SKP /SKIP IF NOT

JMP GOTKEY /JUMP IF SO

ISZ CNTLO /WAITING TOO LONG?

JMP KEYLUP /NO, KEEP TRYING

ISZ CNTHI /TOO MANY TIMES?

JMP KEYLUP /NO, KEEP TRYING

/ NO (FURTHER) KEYBOARD INPUT.

JMP KBTIMOUT /CONTINUE THERE

/ COMES HERE WHEN A KEYBOARD CHARACTER IS RECEIVED.

GOTKEY, KBISF /SKIP ON, THUS CLEARING THE FLAG

NOP /IN CASE IT SKIPS

KBIRB /GET THE CHARACTER

AND Z377/[377] /JUST 8 BITS

DCA I XR1 /STORE INTO THE BUFFER

ISZ XR2 /BUMP CHARACTER COUNT

JMP KEYLUP /KEEP GOING

/ COMES HERE WHEN KEYBOARD INPUT TIMES OUT.

KBTIMOU,TAD L7774/(-4) /GET EXPECTED COUNT

TAD XR2 /COMPARE TO ACTUAL

SNA /SKIP IF OTHER THAN EXPECTED

TAD I PTSTBEND/(TSTBEND) /ELSE LOOK AT LAST CHARACTER RECEIVED

SZA CLA /SKIP IF LAST CHARACTER WAS A <NUL>

TAD Z20/[20] /ELSE ADD ON KEYBOARD ERROR VALUE

TAD ESTATUS /GET CUMULATIVE STATUS

DCA ESTATUS /STORE BACK

KBTEND, JMP I .+1/(COMTEST) /CONTINUE THERE

COMTEST /THROUGH HERE

PTSTBEN,TSTBEND-1 /POINTER TO END OF TEST KEYBOARD BUFFER

L7774, 7774 /CONSTANT 7774

L342, 342 /CONSTANT 0342

L320, 320 /CONSTANT 0320

A7740, 7740 /CONSTANT 7740

PAPTSTR,APTSTRT /STARTING ADDRESS FOR DOWNLOAD

/ DIRECT DOWN-LOAD ROUTINE. CALLED VIA JMS I .+1;DOWNLOAD IF APTEN IS SET. THE

/ FORMAT IS STANDARD PAPER-TAPE RIM FORMAT WITHOUT A LEADER. LOADING IS TO MAIN

/ MEMORY FIELD 7. THE ROUTINE IS ALSO CALLABLE AFTER A PREVIOUSLY LOADED

/ PROGRAM EXITS VIA A PANEL REQUEST INSTEAD OF A HLT INSTRUCTION. THIS CAUSES A

/ TOTAL RESTART OF ALL CODE INITIALLY MOVED FROM THE ROM TO CP FIELD 7. IN THIS

/ SITUATION, CODE LOADED INTO MAIN MEMORY 76000-77777 WILL BE MOVED TO CP

/ 76000-7777 TO BECOME THE NEXT CP-INTERRUPT HANDLER, ETC. EXIT VIA HLT

/ INSTRUCTION RETURNS TO A DESIGNATED ENTRY POINT TO LOAD MORE CODE.

DOWNLOA,.-. /DOWN-LOAD ROUTINE

ISZ DOWNLOAD /BUMP PAST CALL POINTER

CDF 70 /ENSURE OUR FIELD

TAD Z400/[400] /SET POWER-ON MASK

AND PSTATUS /GET POWER-ON BIT

SNA CLA /SKIP IF SET

JMP DWNAGN /JUMP IF NOT

DCA CMSW /INDICATE MOVABLE CODE NOT LOADED YET

View remainder of file in raw view

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

358360.pal

358360.pal

Files

358360.pal

Latest commit

History

358360.pal

File metadata and controls