Digital PDFs

MAINDEC-08-DHLQA-B-D

December 1977

64 pages

Original

6.4MB

Document:	maindec-08-dhlqa-b-d
Order Number:	MAINDEC-08-DHLQA-B-D
Revision:
Pages:	64
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-dhlqa/maindec-08-dhlqa-b-d.pdf

OCR Text

IDEHTIFICATIQN

pamnucr

canw:

MAXNDECmQEwDHLQAwawfl'

Pamuucr

NAME:

Lapéa PRINTER EIAGfiosrxc

PRODUCT

ngrq:

JULY

1977

MAINTAINEP;

DIAGWDSTIC

AUTHDEI

DAVID

GRQUP

GRIN

INFDRMATIDN 1% THIS DOCUMENT IS SUBJECT TD CHANGE WITHQUT NQTICE
SHOULD NOT EE CQNSTRUED A5 A COMMITMENT BY DIGITAL EQUIPMENT
CORPQRATXQN. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR AN! ERRORS THAT MAY APPEAR 1% THIS DDCUMEMT,
THE
AND

THE SOFTWARE DESCRIBED IN THIS DDCUMENT IS Fuawzsaan TO THE PURCHASER
UNDER A L¥Csusa FDR USE HE A SINGLE COMPUTER SYSTEM AND CAN BE CUPIED
(WITH INCLUSION a? DIGITAL'S COPYREGHT NQTICE) QNLY FUR USE 1N SUCH
SYSTEM. EXCEPT AS MAY QTHERWISE BE PROVIDED lN WRITING BY DIG;TAL.

moutyagar CDRPQRATIDN ASSUMES N0 REstwserLITx FOR THE use

DIGITAL
0R RELIABILTTX 0F

ITS

SUFTWARE

EQUIPMENT

THAT

NUT

SUPPLIED
.

DIGITAL,
CQPYRIGHT

”(‘14,

1.
:{iuil‘
4;

"fix,
I

jf:”L."TZ;

“,3

\‘
m
r"

(C)

1977,

DIGITAL

EQUIPMENT

CORPORATION

PTABLE OF CONTENTS
guano

A» a O

ononw-nu

ABSTRACT

REQUIREMENTS
HARDWARE

Nunam

STflnAGE

PEEDEQUISITE

SQFTWARE

RESTRICTIQNS
STANDARD

TENT

PECCEDNEE

LEADING TEE PRQGRAM
PACAAAN INITILIZATICN
INITIALIZATICN FUR A NCEoACTIVE CCNSCLE PACKAGE
INITIALIZATIDN FOR AN ACTIVE CQNSULE PACKAGE
CHANGING EENICE CQDES
CHANGING DEVICE CNDEA DE A
CBNSQLE PACKAGE
CHANGING EETICE CCDEs 0N AN ACTIVE CEESCLE PACKAGE
IETANNAL ACGIC/DATA TEET CESCRIPTLOE
REA INTERNAL LCGIC/DATA TEST CE A NDNwACTIVE CCEECLE PACKAGE
REE INTERNAL LDGIC/DATA TEST UN AN ACTTVE CONSOLE PACKAGE
DYNAMIC PRINTER TEST CESCRIPTIEE
RUN DYNAMIC PRINTER TEST ON A NEE-ACTIVE CCESELE PACKAGE
RUN DYNAMIC PRINTER TEST CA AN ACTIVE CCNECEE PACKAGE
REE SPECIAL DYNAMIC PRINTER TESTS

ifihfiuhGifidfi$uhibfidbfinhfihdbéwpilb.30.'.D'.O'OCOIO.'.°O.

mtflUHMtflUflmtfiUHfi “COCODUDQIwwmnm»»o
o~a¢n whoa

NON~ACTIVE

RECNINENENTS
PROCEDURES
CPEAATICN CF CCESGEE PACKAGE
CDETRDL CHARACTEAE
SELECTING TEST NUMBER
CHANGING-PSNECC SNITCH RECTSTEN

EERnRs

LQGIC
LQGTC
LOGIC

ERRERS
ERRERS EN
ERRORS

CCNSCLE
ACTIVE CONSOLE

NEE-ACTIVE

STATUS ERRORS
STATUS ERACAS ON A EDNuACTIVE CCNSOLE
STATUS ERRORS ON AN ACTIVE CENSCLE
DATA ERRORS
DATA ERRORS ON A MUN-ACTIVE CUNSOLE
DATA ERRCNS BE AN ACTIVE CCNSCLE
A

no Nib-h

on MT"

SWITCH REGISTER SETTINGS

.‘O

NORMAL OPERATIQH SWITCHES

ERRGR

q .O

meow a.. “ 0
K) c O

SWITCHES

REVISIONS
ADDITIDMAL INFQRMATIQN
STARTING ADDRESSES
ADDRESSE$
SPEcIAL

LISTING

AESTRAPT

1.0

wfinuaugw

THE LQPwa pnINIER DIAGNQ$TIC WILL TEST ALL THE LOGIC ON THE
LQPmB PARALnEL INTERFACE MODULE (M8366) THAT CAN BE TESTED
VIA PROGRAM INSTRUCTIQN,
Ia aaoaa TU-TEST 80TH THE INTERFACE
LQGIC AND PRINTER Lacie CQMPLETELYp 50TH THE LQGIC AND DYNAMIC
TESTS MUST BE RUN,

THIS DIAGNOSTIC CAN ALSO BE USED QN THE
PARALLEL INTERFACE AND PRINTER LOGIC»

VT78

SYSTEM

TEST

TflE

CONSOLE PACKAGE WITH SQFTWARE CONTRDLLED SWITCH REGISTER
HAS BEEN ENPQRPDRATED IHTQ THIS DIAGNOSTIC T9 ALLOW THE
PROGRAM TD RUN WITH UR WITBQUT A HARQWARE SWITCH REGISTfiRa
TD INIEIBIT QLL HALTS WITHlfl THE PROGRAM, AND IQ HAVE
1? THE
'COMMUNICATIQNS WITH THE DIAGNOSTIC VIA A TERMINAL.
CONSOLE SWITCH REGISTER PACKAGE'IS NUT ACTIVE; TEEN THE PRQGRAM
WILL RUN WITH OR WITHDUT THE HARDWARE SWITCH REGISTER.
ALL ERRQRfi AND END Q? PASS INDICATIQNS WIPL RESULT IN A HALT;
A

THE INFORMATIQN NECESSARY TU IHTERPRfiT ERROR HALTS OR
MESSAGES IS CUNTAIfiED 1% SECTIDN 5 UMBER ERRDRS.

REQUIREMENTS

2,0

anuwnugnaaa.

HARDWARE

2.1

ammuungu

THE FOLLOWING
PROGRAM;

HARDWARE

FOR EXECUTIUE

REQUIRED

THIS

FIELD

PRDcESSDR:

pepmsa,

as.

MEMHRY:

nxmxmum

SPECIAL:

DIABLD

HYTYPE

PROGRAM

MUST BE LflADED INTO
0F READ/flRITE MEMORY,
LUCATIDNS 0000 TD 7577.

LEAST

FREREQUISITE

SOFTWARE

-.wnwuwulnflq

mono-nun

ALL OF THE BASIC 9DPw8A. E,
HAVE BEEN RUN SUCCESSFULLY.

3.0

vrva

INTKRFACE

INTERFACE
11

(M8366)
WITH TERMINAL

(DPTIONAL)

PRINTER

STORAGE

2,2

2.3

as:

4K R/w MEMQRY

LQP-B PARALLEL
consonm SERIAL

aprxaws:

THE

8?.

Fp-M

FIELD 0 CDNTAINING AT
THE PROGRAM DCCUPIES

VT78

CPU

AND

MEMORY
,

RESTRICTIONS
nmwmwugnpwtn

RUNNING
THAT

THE

OF
LQ

INTERNAL LOGIC/DATA TEST REQUIRES
PRINTER BE PLACED OFF LINE BY

THE

TESTS

MUST

PRESSING THE SWITCH LABLED "PAUSE", GR B! REMOVING
TEE MAINTENANCE COVER LQCATED AT TEE FRONT OF THE
.PRTNTER, ON SUNE OLDER PRINTERS; PRESSING "PAUSE" MAY
NOT DRDP "PRINTER READY“, BIT Q, WHICH WILL CAUSE A
STATUE ERROR. IN THIS CASE; REMUVE THE MAINTENANCE

COVER.

FREESING A KEY ON THE CDNSQLE TERMINAL WITH
CQNSDLE PACKAGE NDN-ACTIVE WILL EAVE NU EFFECT ON
THE PROGRAMe PRESSTNG A NGNfiCDNTRQL KEY; NITN ACTIVE
CGNSQLE; DURING EXECUTIQN OF THE PRDGRAN WILL RESULT
IN A PRQGRAN STALL; THE CHARACTER BEING ECHUED. AND THE
PRUGRAM BEING RESUNED.

RUNNING QF THE
Tflw L9 PRINTER

DYNAMIC PRINTER TESTS REQUIRES THAT
PLACEQ ON LINE .BY REPLACING
AND/DR PRESSING THE SNITCH
TEE NAINTENANCE
LARLED "PAUEE"
BE

CDVER

4.0

STANDARD

TQ.FULLY

T351

TENT

THH

INTERFACE Lacie,

PRBCEDURE

THE

PARAGRAPH 4.4
PARAGRAPH 4.5
PARAGRAPH 4.5

4.1

HHINTHH, CUNNHCTING HAHLH,
FOLLONING SECTIONS MUST BE

AND

RUN CHHHLHTHNY:

INTERNAL LDGIC/DATA TEST
DYNAMIC PRINTER TEST
SPECIAL HHNAHIC PRINTER IHSHH

LUADING THE PRUGRAN

PROCESSQR — prwaA, H, F, N;
LDAD THE HHHGHAH INTU FIELD Q

LOADHH

HHIHG

THH

BINARY

STANDARD

TECHNIQUE

PROCESSOR

VT78:

VT78 SYSTEMS THIS DIAGNDSTIC 15 PRQVIDED ALONG WITH A SYSTEM
MONITOR 0N PLDPPY MEIDIA. TU LOAN rHH SYSTEM MUNITUR SIMPLH INSERT

FOR

FLO?PY HISKETTH CONTAINING THH DIAGNOSTIC INTO EITNER DRIVE RXAQ
RXAI AND PRESS THE VT78 START HUTTHN. THE SYSTEM HILL RESPOND QN THE
VIDEO DHsHHAY WITH A START NHHSAGH , FOLLOWED BY A NHGHPI CHARACTER. TO CALL AND START THE DIAGNDsTIC TYPE 'R DHLQAB' FDLLDWEB
BY THE RETUDN KEY. THE SYSIHH HILL RESPOND WITH A DISPLAY HF
THE PROGRAM HANH AND QURHHHI PSEUDQ SHITCH REGISTER SETTING AND
WAIT FOR HSHR‘SHLHCTIQN (SEE SECTIUN 6.0). THIS DIAGNOSTIC ON THE
FLOPHX DIHKHTTH HAS BEEN PRE—INITIALIZED FOR USE ON A VT78 SYSTEM
5! IssuHING
(LOC 22 BIT 2 z 1), ALSO STARTING THE DIAGNOSTIC
9? DHLQAB' WILL EXECUTE THE DHNAHIC PRINTER TEST AND NOT THE INTERNAL
LOGIC/DATA TEST. THE vr7a CPU HIAGNHSTIC CHECKS BUT THE INTERNAL
INTERFACE LHGIC.
THE

‘

4.2

PRQGRAM

THE

PRQGRAM,
A.

INITIALIZATIQN

WHEN

LOADED,

INITIALIZED

SWITCH REGISTER
SWITCH REGISTER)

HARDWARE

PSUEDD

RUN

FOLLUNS:

(USES LDCATIDN 0020

B,
C.
D.
IF

4K 0? fiEAD/WBITE MKMQRY
THE MINIMUM REQUIREMENT
CQN$QLE PACKAGE INACTIVE (PAPER IAPE MEDlA)
CDwSDLE PACKAGE ACTIVE (615K EED§A)
v

IS DESIRED TQ CHANGE THE PRQGRAH INlTIALIZATIQN FRQE
ABUVEa GD TD THE APPRDFRIATE PARAGRAPH LISTED BELOW.
CHANGING DEVICE CODES,
OTHERWISE; GO TO ?ARAGRAPH 4.3
IT

THE

4,2,1

FOR

INITTALIZATIQN

mow-Acrxva CONSOLE PACKAGE

USE HAHDflARE SWITCH REGISTER. LEAD ADDREfiS TO
THIS IS HARDWARE
0021 IN FIELD 0: AND DEPOSIT 4000,
CDMFIGURATIO” WQRD CNS: AND SETTING BIT 0 TO A
ONE (1) TELLS THE PROGRAM T0 USE TfiE HARDWARE SWITCH
TO

FEGISTER.

TO USE psuapo swxrca REGISTER:
IN FIELD 0. amp DEPQSIT mono.
AND DEPQSIT THE DESIRED swxrca

LDC
LOC
LDC

FIELD

@921
0022

FIELD
FIELE

0021
0020

PSUEDD

SWITCH REGISTER
HARDWARC CDNFIG. wORD QNE

HARDWARD CQMFIG,
LQAD

WORD

TWQ

ADDRESS

9900.

papmsxr

INITTALIZATIDN FOR AN ACTIVE

ADDRESS
ADDRESS

RCGISTER CONTENTS.

CQNSQLE pAcKAcfi.

rag

DEACTIVATE
AND

0072

4.2.2

0020

LOAD
LQAD

HARDWARE SWITCH
SECTION 4.2.1 A.

USE

swcha

PSUEDD

CDNSOLE

PACKAGE

INSTRUCTIQNS

straucrxuns

sacwxom 4,2,1
rm

camsnnz

0400.

CHANGING DEVICE

CODES

U....fl-.

‘5’“...

AND

THE

ACTIVATE
uggasxr

4.3

HQOQCQ

PACKAGE;

LOAD ADDRESS

0022

WHEH LOADED, IS INITIALIZED FOR DEVICE CODE 550x
QRINTER, IF IT IS DESIRED TO CHANGE THIS DEVICE CODE:

PRUGRAM,

FOR

THE LG
FELLOW THE

IN$TRUCTIQNS IN THE APPRQPRIATE PARAGRAPH BELOW FOR
DR AN ACTIVE CONSOLE PACKAGE, IF EU CHANGE IN
RUN 1NTERNAL
DEVICE CUBE IS REQUIRED: G0 T0 PARAGRAPH 4.4
A

NDNFACT£VE

LDGICIDATA

TEST.

4.3.1 'CHANGING

DEVICE

come

NDN‘ACTIVE cumsoLe

PACKAGE

nuuwunon

.mwnuw

an...

.QQW-DLIQI-

Owl-wid-

USING

PSUEDU

SWITCH

INTO

LOAD

THE

0090

(THE

LOAD

ADDRESS I0 202. paass "CLEAR”
F, OR M. PRESS "INIT” THEN

Eva-8E.

Qua-QQO

DESIRED
PSUEDC

DEVICE
SWITCH

BITS

3'8

LDCATIQN

PROGRAM

PRESSIfiG
OF

THE

HARDWARE

wxwa

THE

NEW

DEVICE cups

AFTER

HALT.

WILL

BITS.3“8.

CHANGING IOT
IN AC BITS awe.

wlhh CAUSE THE PRQGPAM TO START
THE PROGRAM MAX NOW BE STARTED AT

QTfiER

STARTING

SWITCH

THE
QME

ADDRESSES.

LGQATIQN 0021 QF FIELD Q
LOAD ADERESS T0 202.
SET SWITCH REGISTER BITS

A.
B.

DEVICE CODE

ULD

"CONT"

TEST

LOGIC

WITH

PROGRAM

pamss "CENT",
DEvICE c0035?

USING

HALT

WILL

MUST

CONTAIN

4XXX.

3*3 TD DESIRED DEVICE CDDE.v
THEN "CQfiT" QN A POP-8E; F, M. UR
PRESS "INIT" THEN "RUN" 0N A PDP'BA.
PRQGRAM WILL HALT WITH OLD DEVICE CQDE IN AC BITS 3'8.
PRESS ”CQNT”. PRQGRAM ELLL ”ALT; AFTER CHAQGING IOT
DEVICE CQDES, WITH THE NEW DEVICE CODE 1N AC BITS 3‘8.
PRVSSING "CONT“ HILL CAUSE TflE PfiOGRAM TO START THE
EQGIC TEST DR Tfifi PRBGRAM MAY NOW EE STARTED AT QNE
OF THE OTHER STARTING ADDRESSES,

C,
D;

PRESS

"CLEAR”

E.
F,

CHANGING

433¢2

USING

SWITCH

PSUEDD
A.

a.
c,

ACTIVE

CQNSULE

PACKAGE

QESIRED DEVICE CODE INTD 5115 3-3 0? LOCATIDH
PSUEDU swrmca REGISTER).
START THE PROGRAM AT ADDRESS 202.
Tap PRQGRAM WILL CHANGE THE 101 DEVICE c0955. PRINT THE
MEsSAGE “use a 99x0" (WHERE "xx" EQUALS THE NEN DEVICE
cane; AND ASK THE swxrca REGISTER EQUALS QUEsIION (SR: ).

LOAD
0020

USING HARDNARE

CQDES

DEVICE

THE

(THE

SWITCH

REGISTfiR:

LnrATIQN 0921 a? FIELD o MUST CQNTAIN 4xxx.
Lane THE DESIRED DEVICE CODE INTH BITS 3.3 a? THE
serCH REGISTER,
START THE PRDGRAM AT ADDRESS 202.
'

C.
9,

INTERNAL LQGIC/DATA TEST DESCRIFTIDN

4,4

THE

THE paaeagm WILL CHAMGE THE IUT DEVICE amass,
PRTNT THE MESSAGE "DSC=oxxo" (WHERE "xx” EQUALS THE
NEW DEVICE CHDE) AND ASK THE SWITCH REGISTER EQUALS
QUESTION (SR: 3,

LUGIC

TEST

EUFFER

DATA

CDNSISTa

THE

FULLOWING

TESTS:

’

IOT

Mova PAPER

LUAD

TEST 2

LQAD

TEST

mwgs AND ALL
ALTERNATING DNES
ALL

zanus
AND

ZERDS

TEST

FLOATING QNE BIT CHECK
FLOATING ZERQ EIT CHECK
BINARY COUNT; EVER! NUMfiER

.TEST 4
TEST 5
EDT 3

MOVE

TEST 6
TEST 7
TEfiT 10
TEST 11
TEST 12

LQAD ALL OflES ANS ALL ZERDS
LOAD ALTERNATING ONES AND ZERQS
FLOATING flflfl BIT CHECK
FLQATING ZERU BIT CHECK
BINARY CDUflT; EVERY NUMSER

CARRIfiGE

IDT

CHARACTER

wag

.QHQQ

walnut-nuan-

TEST
TE$T
TEST
TEST
TEST

13
14
15
16
1?

ALL

LSAD
LDAD

QMES

AND

ZERQS

ALQ

ALTERNAIING DNES AND ZERQS

FhUATING DNE BIT CHECK
FLDATING ZERO BIT CHECK
EINARY CDUNT; £VERY NUMBER

ACCUMULATOR TEST

CHECK

TEST 20
TEST 21
TEST 2?
TEST 23
TEST 24
TEaT 25
TEST-26

THAT CAF
AC usxma

CLEAR
CHECK
CHECK
CLEAR

CLEARS DATA

INSTRUCTION

xomz
AC using IDTB
AC USING IUT4
THAT AC 13 NUT
THAT AC :3 mar
AC USING IQTé

CLEAR
CLEAR

BUFFER

CHAMGED

CHANGED

IQTO
10??

“

DQNE FLAG TESTS
.Q,’

0".

“If."

TEST 27
TEST 30
TEST 31
TEST 32
TEST 33
TEST 34

DONE
DONE

USING
USIHG
DUNE USING
DDNE USING
DQNE USING
DUNE USING

SET
$ET
SET
SET
SET
SET

STATUS

magnum

munagnuw

TEST
TEST
TEST

LQAD
BIT
BIT

36
37

TEST 40
TEST 41
TEST 42
TEST 43

SKIP

BIT

GEES
CHECK
CHECK

AND

CLEAR

AND

INTERRUPT

IUTE

CLEAR DONE
CLEAR DONE
CLEAR DONE
CLEAR DONE

ALL

ZERUS

IQTS
IUTQ
IOT7
USING CAF

BITS

10:

CHECK
CHECK

USING CA?

INSTRUCTION

TESTS

CHECK SKIP AND
RUN

DQflE

CLEAR DONE IDTZ

BIT 11
CHECK
CLEAR STATUS REGISTER

TEST 44

4,4,1

ALL
5

IUT6
lDTb
IOIé
IDT6
IQT6
IDTé

INTERNAL LOGIC/DATA

luraaaupr
TEST

ENABLE
NUNQACTIVE CQNSObE

PACKAGE

PLACE PRIHTER EFF LINE EY REfiflVING MAINTENANCE CUVER
fififi SECTIQN 5&0 FDR SNITCH fififilfiTER fiETTINGS.
3TART THE PROGRQM AT ADDRESS ZOQa
Tfifi LDGIE TEST WELL LQQP CQNTENUDUSLY.
PRESfiING “CONT” Nth RESTART TfiE LQGIC TESTQ

A3
Ba

C9
fig
Ea

4.492

33?

?NTERNAL LGGZCIQATA

TEST

UN,AN ACTIVE CON$DLE

PACKEGE

wan

wmwmmwmw

wnwmflmnmum

mama

numaflww

THE

ATTEMPT
?RINTEF

ES MADE TB RUN 18E
”UN LINE" (READY):

43$

DYMAMI?

PRINTER

TEST

@HE

fiTANDARfi

DYfififilC

PRINTER

TESTS CDNSIfiT

99m

umfiwmwwn

uwwwmmu

maunmum

wnumm

TEST
TEST
TEST
TEST
TEST
TEST

TEST

@5
47
$0
51
52

TE$T RITE
STATUS ERRGR KILL

3?:

wmwwwmm

THE SPECIAL

DYNAMIC

PRINTfiP

TESTS

CQNSifiT OF:

QWQWQQQ

win-wanna“

aquamaa

mamma-

flmNM'EWD

“fig

TEST 56
TEST

QPERATOR GEfiERATED PRINT
RAISE AME LQwER RXBEQN
FQICTIUE FEED TEfiT 19 BY

TEST 60

TEST 45

RESULT,

DESCRIPTIDE

BIWDIPECTEQNAL FRINTING

LEGIC

HQRIZONTAL SPACIEG TEST lflIT CHECK
VERTICAL $PACING.TE$T
ffilT CHECK
QAERIAGE PQSITIUNING TEfiTH
ONE LINE 8? EfiCH CHARACTER; 96 almas,
SWXRL PfiTTERN; 95 LINES
RIBBDN LIFT AME QRQP WETH QVERPRIWT
RANQQM CHARACTER LINE PAIRS
NQNwFRINTING CHARACTER CUDES TEfiT
PRINT QHEEL VIBRATIOfi TEST

TEST 53
TEST 54

mmmwumu

9L§CE PREMTER BF? hINE BY REMOVING MAIHTENANCE CDVERa
SEE SEflTiflfi 6&6 FUR SWITCH Raexswaa amrwassa
swan? Tag yRQGRAM A? ADDRESS 2003
THE LOGXC TEfiT Wink L60? $09$ TIMES AND PRINT ”EMD
0F LOGIC TEST” AND "PAS$ CQUNT Xxxxflg WHERE "xxxxn :3
ananxr QCTAL NUMBER,

Ag
3,
c.
D.

NOTES

amwmmm

EOREZQNTAL

SPAQING

I“

LINE

RAwfiflfl

MATRIX

TEST

wars

TEST BEGINS BE RESTQRISG THE PRINTER AND DVERPRINTIRG
THE PleTER LINE FEEDS AND CARRIAGE RETURNS:
PRYNTS A DDT AME THEN MQVES THE CARRIAGE TD THE REGHT
By THE MAGflITUDE 0F BIT 11 3 1/120 INCH, AND PRINTS
ANDTHER QQTg
THIfi PRQCESS CDNTINUES UNTIL ALL
BITS ARE TESTEDQ
BITS 1w11 ARE TESTED-FQR PRQFER
MAQMITUDE AND gxr 0 is TESTED QURING A CARRIAGE RETURE.
A

mma

THE
DATA

PRifif

PATTERN

BUFFER

RITfi

1011

BITS

§HUULD APPEAR

CARR§AQE

FHLLUNSS

MDVEMfiNT-MAGNITUDE

QVERERINT

(NO MD¥EMENT3

RIT

11ml
39:1
9:&
as;
721
6:1

BIT
EXT
a1:
RIT
n11
BIT

5E1
4:1

RIT
RI?
BIT
BIT

£%CH

1/30
if$5

INCH
INCH

2/15

INCH

4/15
8/15

INCH
ENCH
1/35
2/15
fiilfi
$115

1
2

331

231

4
a

i=1

TEST 46

lxizo
li§fl

VERTICAL

AME
Afifi
Afifl

Awy

INCH

IMQE
INCMKS
IfiCfiEfi

IfiCHES

TfiST

SPACiwfi

a? RESTDRIEG rag paxawaa gum QVERPREfiTlfifi A
(2) INCH LIME 0r DEDERSCQRESQ THE pRIflTaa IS THEN
HEsTQREn AGAIN ARE THE 9APEE Is ADVANCED ax THE MAGNLTUDE
A Nfiw TWU (23 iNfiH 51mg 6? UNEERSCQRE$
a? BIT 10 a 1/48 IMQHQ
Tfils paacass CQNTIEUES QNTEL ALL 0? BITS
Is wa PfiINTED.
T0 TEST BIT o FDR BI»DIREGTIQNA§
iw10 ARE TESTED.
PAmER MQVEMENT; GPTIONAL rgsw 50? THE FRICTIUH
FEED TEST fiUfiT as RUNQ

THTS was? assxas
THG

“

THE

8UFFER

DATA

RITS

BIT
HIT

BIT

SHQULD

’

7:1
6:1
5:1
4:3
3:1
2:1
131

311
BIT

BIT
BIT
BIT
RIT

TEST 47

MAGNITUDE

MOVEMENT

(Na MDVEMgflT)
-

AND

:33 INCH

AmD
A&D
AND

ZEB

CARRIAGE

AS FQLLQfiSa

DVERPRINT
1/48 INCH
1/24 INCH
iii? INCH
Inch
1/6
1/; INCH
INCH
213

APPEfiR

PAPER

BITS

inifl
1Q:1
931
881

PATTERN

INCHES
INCHES
INCHES

1/3
2/3

FQSITIQNING TEST

THIS TEST BEGIflS a! RESTDRING THE PRINTER AND PRINTING
THE CARRIAGE THfiN mevas THE FULL
THE LETTER "1".
WIDTH 9? THE PAGE (13.1 INCBES) TO THE RIGHT MARGIN
Amn paxmrs THE LETTER "I”.
THE CARRIAGE THEN
MOVES LEFT ACRQSS THE PAGE TD A POSITION 1/60 INCH
T0 THE RIGHT D? THE FIRST "I": AND PRINTS-AN ”I",
”

&Qw

THE CARRIAGE

mavas

RIGHT

PDSITION

1/60

lNcH TD THE LEFT 0? THE EIGHTMOST "I“ AND PRINTS AN
Tflls NARROWING 0F CARR;AGE SWING CONTINUES
"In.
0N THE SAME LINE uywxn A CDMPLEIE LINE OF "In’s SPACED
1/50 INCH APART Is DUNE.
TflERE SHOULD BE ND OVERPRINT
OF THE VERTICAL PURTIDN OF THE LETTER ”I”.
THE

BATTSRN

APPEARS

FULLONS:

1111IIIIIIIIIIIIIIIIIIIIIIIII1111111111111111I1111IIIIIIIIII
THERE

WILL

”1“'S

PER

INCH

FOR

TOTAL

786.

TEST SQ

LINE

9MB

EACH

CHARACTER;

LINES:
'

BIaDIBECTIONAL

Ffierlwsg
aasxwa E! R§3T0Rxwe THE pRINTER AND SENDING
ASPII CfiDE e49 TO THE PRINTER (SEE MAINTENANCE MANUAL
AN ENTIRE LINE HF EACH 0?
FD? CfikfiACTER PRINTE33e
TH? 95 PGSSIBLE CMARACTERfi is PRINTED FQR Ascxx
THE FIRST LLNE IS PRINTED FROM LEFT Ta
CQnEs 649 THROQGH 177;
FISHTa THE sacuwo LIME is PRImTEo FRQM RIGHT rm LEFT} AND 30
0N9 ALL 909 NUMBERED LINEs WILL BE PRINTED FRQM LEFT Tu
RIQHTp ALL EVEN NUMBERED axfias WILL BE PRINTED FROM RIGHT TO

Tats EE§T

bEwTQ
§INCE BITS 4W1Q 0F THE DATA EUFFER ARE USED FOR
CHARACTER §RINTIMG THE Ascxx coca IS SHIFTED LEFT
3mg (13 PDfilTIQfi ax THE PROGRAM BEFQRE BEING SENT
TQ THE PRINTER, THUS: ASCII CODE 04o BECOMES 100,
IN ABDITIDM, ALL gmusap BITS OF THE DATA BUFFER
ARE SET 10 THE ONE (1) cownxwxom FOR MAXIMUM
CROSS TALK weasa CASE TESTINGQ
THEREFQRE THE
ACTUAL CODE SENT TO THE PRINTER FDR ASCII c033
040 wanna BE 7501; (u&useu BITS o~3 AND $11 11
AEE ALL SET T0 THE mag (12 STATE).

EDTE§

TE$T 51

PATTERfip

SwIRL

Qé

LINES

Tats TEST aaast EY RESTURING THE PRINTER AND PRINTlfiG
A LINE STARTLNG warn ASCII CQDE 040 FQR THE FIRST
CHARACTER, CQDE 041 FQR THE SECBND CHARACTER; ETC,
REESE
THE NEXT LINE REGIMS wITH ASCLI $903 041, ETC.
TD MAIfiTENANCE MANUAL FDR CHARACTER PRINTEE F93
EACH ASCIL sang.
“

NOTE:

ALL 95 ascxx CUDES 04o~177 ARE
A5611 sang 040 15 new A aqux,
MANUAL FUR cmaaacr CHARACTERS.

RIfiBDfl

was? 52

LIFT

AND

DROP

WITH

PRINTING
REFER mu

CHARACTERS.

MAINTEHAMCE

avmapaxmw

ax RESTDRING THE PRXNTER AND paxmwgwa
THE PRINTER
WITH THE RIfiBUN LIFTED,
'CARRIAGE MQVES RIGHT 03E PRINT PQSITIBN AHD A CAPITAL
"Ma 15 AGAIN sxaucx WIIH THE RIBBON DRUPPED.
THE
NEXT "M" 15 PRINTED WlTH THE RlflEON up. ETC,
EVERY EVEN fiUMBERfiD ”M" 15 STRUCK wITH THE RIBBON
EVERY ODD NUMBERfiD "M" 15 STRUCK NITH'THE RIBBQN
pawn.
THE SAME LINE Is Tfigw UVERPRIMTED FRDM RIGHT TO
99.

THIS

EEGIMS

"M”

TEST
CAPITAL

PATTERN

THE

LEFT.
THE

PATTfiRH

nova;

SHOULD
M

CQNTLNUES FDR'FLVECSJ
APPEAR

,.,

LINES.

FOLLOWS:

ETc;

BEST RESULTS. use A MXLAR (SINGLE SIDED) RIBBON
CLEAN PRINT WHEEL,
OTHERWISE THE PRINT WHEEL WILL
RETAIN INK (CLOTH pxueoy) AND THE “M”'$ STRUCK WITH
RIBBON DRQPPED WILL APPEAR ONLY SLIGHTLY LIGHTER THAN
Tansg STRUCK wxrn RIBBDN up.

FQR
AND

TEgT

RANDQH CHARACTEQ LINE PAIRfi

PRINTS PAIRS D? RANDQMLX GENERATED LINES;
A PAIR SHQULD EB IDENTICAL TO THE
UTHER LINE 0? THfi PAIR,
24 PAIRS OF LIHES
WILL BE PRINTED, EACH PAIR SEPARATED BY A ELANK LINEa

THYfi TEST

EACH LINE

TEST

Tst

TEST

PRTMTER,

NQNwPRIfiTING CHARACTER CQDES TEST
sanps ASCII c0953 00 THROUGH
THE CHARACTER PRINTEQ SHOULD

ALL

PRINT waas, scha
THE PRINT WHEEL; 1o
SHQULD EE PRINTED.
6?

I»

TEST 55

FPINT

WHEEL

"w”

THE
FOR
THIS IS'TKE ”HUME” POSITIQN
LINES D? THE CHARACTER "w"

VIBRATIQS

TEST

THYS TEST PRINTS 1Q LINES CQHSISTING 0F "ACA3ACA8".
THESE CHARACTERS ARE ADJACENT PDSITIQNS UN THE PRINT
WHEEL RITE LfiTTER ”A” BETWEEfi "C" ARD ”x".
THE
'PRINTIfiG OF THIS PATTERN WILD RESULT IN A VfiRY
FAQID VIBRATIQfl 9? THE PRINT WHEEL.

J»

TEST 55

QPERfiTQR

GENERATED

PRIfiT

LIfiE

THTS was? AQLDWS THE QPERATUR TD TYPE IN A CHARACTER
STRING 9? UP TB 132 CHARACTERS ANQ CAUSE Tats TEXT
sTpING To BE PRINTED 0N THE b0 PRINTER BY TERMINATING
THE CHARACTER 5TR1NG WITH A CARRIAGE RETURN,
THE
L0 PRINTER WILL REPEAT THIS CHARACTER STRING
UNmIL ANQTHER CHARACTER 15 TYPED FOLLOW1MG THE
cAnRIAGE RETURN,

TEST 57

RAISE

AfiD

LOWER

RIBBDN

THTS TEST IS DESIGNED FDR TROUBLESHOOTING THE
THE PRINTER IS HESTORED AND
FIREDN LIFT MECHANXSM,
THEN THE RIBEQN hIFTS AND DROPS AT A RATE DETERMINED
BY A DELAY SUBRUUTINE,

TEST 60

FRICTION

FEED

TEST

RANDOM

MATRIX

VERIFIES THE FRICTION FEED. Bl-DIRECTIDNAL
A
MQVEMENT CAPAEILITIES UP THE PRINTER.
CHARACTER MATRIX; 10 BY 10 CaARAQTERs (9x9 INCHEs)
Is PRIfiTED WITH ONE (1) INCH SPACING BETWEEN
CHARACTERS. THE PRINT P0$IT19NS ARE SELECTfifi RANDOM”e
THE MATRIX MAY ALSO BE PRINTED AS cars 8! SETTING
LQflATIOM "cswmcan TD ALL zsaos.

wars TEST

PAuEF

4.5.1

RUN

DYNAMIC

PRINTER

TEST

NDNnACTIVE CONSOLE

PACKAGE

LOAD ADDRESS T0 201.
fiELECT ANY SWITCH REGISTER OPTIONS (SEE SECTION 6,0):
PRESS "CLEAR" THEN "CONT" UN A PDP~8£9 F; M QR "INIT“
THEN ”RUN" ON A PDPnaA.
THE PRQGRAM WILL CYCLE THROUGH TESTS 45 THROUGH 55
CGMTINUDUSLY UNLESS HALT AT END OF PASS IS SELECTED
(SEE

SECTIQN

6.03-

TEST

A”

ACTIVE

CONSOLE

PACKAGE

SELECT AMY STITCH REGISTER OPTIONS (SEE SECTION 6 ,0).
START THE PROGRAM AT ADDRESS 201.
THE PROGRAM WILL CYCLE THROUGH TESTS 45 THROUGH 55
CONTINUGURLY UNLESS HALT AT END OF PASS IS SELECTED
(SEE SECTIHM 6.0).
REFER TQ SECTTOR 4.7 FUR CONSOLE PACKAGE OPERATION,

aux

SPECIAL

DYNAMIC

ppxnrgn

TESTS

Qua

”Iguana

oawwnow

anucuwn

nun”!

A.
Ba
C9

4.5

PRINTER

nquch

Rum

4,5,2

asauxagmsars

4.6.1
A,

REQUIRES A CONSULE AND TMAT CQMSDLE PACKAGE BE
ACTIVE (SEE SECTIQN 4 ,7).
TEST SQ REQUIRES THAT THE FURMS TRACTDR BE REMOVED AND
THF PAPER TED FROM T.HE REAR DE THE PLATEN (REFER TD

TEST 56

MAINTEMAMCE MAMUAL).

PRQCRDURES

4.6.2

nunwnunmun

ITEST 56

WITH

DRERATQR

CONSOLE

GEMERATED

PACKAGE

ACTIVE

PRINT Lima
AND

TERMIMAL

DR-LINE,

THE

WRICH WILL BE
ECHQED mm THE TERMIMAL WHEN A CARRIAGE RETURN Is IYPED,
THE ENTIRE CHARACTER STRING WILL BE QUTPUT T0 THE L0“
RRIMTER CONTINUDUSLY UMTIL ANOTHER CHARACTER IS TIRED an
THE CQMsQLE TERMINAL. THE PROGRAM WILL THEM ACCEPT A REM
CHARACTER STRING TERMINATED a! A CARRIAGE RETURN,

hpmaATQR MAY IMPUT UP Ta 132 CHARACTERs.

RUN!

1.
2.
3.

4.
5.
6,
7.
_

START THE FRQGRAM AT ADDRESS 203.
TYPE CQNTRDL-G;
PRQGRAM PRIMTS “RR: " AND WAITfi FQR'KEYBOARD INPUT
0? NEw Fsuapa SWITCH REGISTER CONTERTS.
TYPE "55" Fabnowan BY CARRIAGE RETURM.
THIS WILL CAUSE THE PROGRAM IQ BEGIN TEST 56.
THE PRDGRAR IS yaw WAITIMG FUR INPUT 0? THE
CHARACTER STRIRG To BE PRINTED um THE LQP-B PRXNTER,
rypxmc COATRUL-T FOLLOWEQ By'cuwTRoL-G wLLL AGATN
ASK THE "saw " QUESTION AND A NEW was: NUMBER MAY
Now as xwpur IN psuaou SWITCH REGISTER BITS a~11.
'

NOTE:

TEST

THE TESTS IN THIS PRUGRAM ARE NUMBERED xN
TYPINGMDF AM INVALID 1&5?
DCTAL FORMAT.
NUMBER MILL RESULT IN PRDGRAM TRANSFER TD‘
VALID TEST RUMBERS
TEST 1 BF LOGIC TESTS.
ARE 1 THRQUGH 60 (DCTAL).
RAISE

AND

LOWER RIBBON

THTS TEST WILL RAISE AMD LDWER T33 RIBBON ON THE LQP'B‘
PRINTER AT A RATE DETERMINED BY THE OCTAL NUMBER FULLUWING

$UBRGUTI§E (SEE PROGRAM hXSTING TST§73
DESIGNED FOR TRQUELESfiQUTING OF THE RIflEDN

QELAY

CALL

'THYS TEST

yle MECHANISM,
TU

Rug:

COwSDLE

NUM~ACT;VE:

saw

HARDWARE

panama

SwiTCfl REGISTER

EQUAL

'0057a
START THE PRQGRAM AT ADDRESS
TEST WILL L00? CDNTINUOUSLY.

2.
3.

203,

ACTIVE:

CQNSQLE

START THE PPDGRAH AT ADDRESS 293.
TYPE CONTRQLaa.
PROGRAM PRINTS "saw » AND wAITs FDR KEYBUARD
1N9UT OF NEW PfiUKDQ SWITCH REGISTER cumrgnws.
TYPE "57” FDLLQWED a! CARRIAGfi RETURN;
THIS WILL CAUSE THE PRQGRAM T0 EEGIN TEST 57.
TYPIHG CDMTRflL-T FDLhQWEU ax CQNTRmLma WILL AGAlN
ASK THE "SRu H Quasrxoy.“aun A.~Ew rasr NUMBER MA!
yaw 52 INPUT xx PSUEfiQ swxrcu REGISTER $115 éaiza

1.
2.
3,

4.
5.

THIS

FQfiMAT. TYPING OF
REsULT

PRDGRAM

NUMBERED IN OCTAL
TEST NUMBER WILL
1% PROGRAM TRANSFER T0 TEST 1'0? LOGIC
VALID TEST NUMBERS ARE 1 Taauuaa ac

THE TESTS_IN

NDTE:

ARE

INVALID

‘

masts.
(QCTAL).
Ce

TEST 60

FRICTIQN

FEED

TfiST

THTS TEST PRINTS 1 10 EX 1Q CHARACTER OR DDT MATRIX. THE
SPACING BETWEEN CHARACTERS IS SET TO UNE£1J INCH. THIS
SPACING MAX BE CHANGED BY CHANGIfiG THE CONTENTS OF
LQCATION "Llfllwfl FUR LINE SPACIMG AND LGCATLQN “CDLIN”
FQR COLUMN SPACIHG (REFER TO PRQ§RAM LISTING U? TSTSO).
M

NOTE:

TRACTOR MUST BE REMOVED AND THE PAPER
a? PLATEN (REFER TU MAINTENANCE”

FDRMS

THE
Fan

FRUM

REAR

MANUAL).
THF

PATTERN

R.C

F
G

C
D

E
F

l
J

E F
F a
G H

G
H
I

I
J
K

d
K

I
J

1
J
K
L
M

I
J

D
P

P
Q

P
Q
R

FOR BEST RESULTS
an ONE (1) PAGE.

own

INCH

SHOULD

Aanva

APPEAR

FQLLDHSS

THE ENTIRE
ADJUST THE
PRINT WHEEL.

PATTERN

PAPER

SHDULD BE PRINTED
FOR TOP OF FORM ABOUT

CHANGE

THE

PATTERN

LQCATIQM CSWTCH
T0 ALL ZERQS,

SECTION

REFER

4,5

FRQM CfiARAgTERS T0 DOTS: SET
f0 PRHGRAM LISTING 0F TSTGO)

FOR

FURTHER

DESCRIPTION,

NQNvACTIVE:

HARDWARE on psuapo swcha REGISTER
START was PRQGRAM AT ADDRESS 203.
TEST WILL LDDP courxnuoushy.

EQUAL

SET

1.
2a
3,

CUNSGLE

0050.

ACTIVE!

START THE PRUGRAM AT ADDRESS 203.
TYPE camraoL-G,
PRQGQAQ FRIMTS "SRu " 0N CDNSDLE AND waTs FDR
KEYBQARD INPUT BF NEW PSUEDQ SWITCH REGISTER CUNTENTS¢
TYPE "50" FOhLUWED 5y CARRIAGE RETURN,
THIS WILL CAUSE THE PRQGRAM T0 BEGIN was: so.
TYPIMG CQHTRDLIT FDLLDwED BY CONTRflhfiG WILL AGAIN
ASK THE "5“” ” QUESTION; AND A NEW Tasr NUMBER MAY
new BE INPUT IN 959£a0 SWITCH REGISTER BITS 5-11;

1.
2.
3'

‘

4.
5.

TESTS IN THIS FRUGRAM ARE NUMBERED xu
DCTAL FORMAT. TYPING 9? AN xyvauxo TEST
NUMBfiR WILL RESULT IN'paucaAM TRANSFER TO
TEST 1 n? LOGIC TESTS. VALID TEST NUMBERS
ARE 1 THRQUGH 60 gocrAL).
THE

NOTE:

OPERATION Q? CQNSULE PACKAGE

THE CONSOLE

PACKAGE uses THREE LOCATIONS
SPECIAL FUNCTIONs, THESE Locarxous ARE:
LDC
LDC
LDC
SEE

TEST

RUN:

CQMSQLE

4,7

(REFER

SECTION

20
21
22
5

psueno
_

FOR

LDCATIOfi

BIT
BIT

3
3

PAGE

szTcH REG;SIER

HARDWARE CQNFIGURATIQM
aAauwARE CUNFLGURATION

FIELD

wean
wean

QNE

TwD

SWITCH REGISTER SETTINGS,
21

LDCATIQN

BIT
BIT

USE
USE

SWITCH REGISTER
HARDWARE SWITCH REGISTER

PSUEDD

CUNSULE
CONSULE

PACKAGE
PACKAGE

IHACTIVE

AQTIVE

4.7.1‘ CONTROL CHARACTERS

CTRl/C

RETURN

QPfiRATING

SYSTEM

MDHITOR,

FOR

CTRL/G

'ALmes

CHANGING

$WITCH

SOFTWARE

PSUEDQ

FQLLDWED BY A LINfi FEEDa CDNTIEUES
FRUGRAM I? FQLLQWED BY CARRIAGE RETURNa

CTRL/fi

STOP

PROGRAM

AND

WAIT

FOR

PROGRAM

FROM

CTRL/S,

CUNTRQL

CHARACTER,
CTRL/Q

CONTINUE

CTRL/K

R$STURE

CTRL/T

PRQGRAM WAITS FOR A CTRL/G; ASKS ”$38 ”
QUESTION, DESIRED TEST MUMBER Is mow EfiTERED
IMTQ PSUEDU SWITCH REGISTER BITS 6~11.-

PRINTER

RESTAHT

AND

CURRENT TEST.

SELEQTIfiG TEST USING PSUEDQ SWITCH REGISTER

4.7.2

STARTING THE PROGRhfi AT LQCATION 203 15 EQUIVALENT T0 TYPING QTRL/T
WHILE THE PROGRAM IS RUNNING, THE PROGRAM WAITS FDR THE USER T0
TYPE CTRL/G AND EfiTER THE DESIRED TEST NUMBER IN PSUEDG SWITC§
REGISTER arvs 6'11.

EXAMPLES

TYfiE CTRL/T WHELE PROGRAM
AT ADDRESS 203a

$¥pE

C.
0.

usma TYPES 004s
PRnGRAM

NOTES

4.7.3
A.

CTRL/G

RUNNING

“5R: » Quasrxan,
BY CARR;AGE ngunm,
TEST 45.

MILL

NQW

BEGIN

TESTS ARE NUMBERED IN OCTAL TU PERMIT USE UF
PSUEDQ SWITCH REGISTER FOR TEST SELECTION.

CHANGING PSUEDO

SWITCH

m.aw.nuu

wanna.

nwumuofiu

WHILE

weaning

PROGRAM

PRQGRAM
IS

.c,

PRUGRAM

PRDGRAM ASKS
FOLLOWED

RUNNING,

USER

TYPES

CTRL/G

TEQEINAL.
B-

START

THE

RESPQNDS BY PRINTING
CURRENT PSUEDD SWITCH

CONSOQE

”“6
SRaXXXX" WHERE
REGISTER CONTENTS.

XXXX

USER NOW TYPES UP TO FDURC4) UCTAL DIGITS WHICH WILL BE
ENTERED FRQM RIGHT TO LEFT INTO THE PSUEDQ SWITCH REGISTER.
IF A CHARACTER OTHER THAN 0 THRU 7 IS TYPED; THE PBQGRAM
WILL REASK THE "SR3 ” QUESTIOS,

AFTER

TYpING NEW PSUEDU szTCH REGISTER CONTENTS, USER
TYDES CARRIAGE RETURN TO CONTINuu THE PRDGRAM 0R LINE
FEED T0 RESTART THE CURRENI SECTION 0? TESTS. sea

sagrxou

5.0

IF
LQ

FDR

SWITCH

OPTIONS.

ERRORS

THE PROGRAM DETECTS
PRINTER A NUMEER 0F

ERROR EITHER IN DATA OR STATUS OF
QPTIDNS ARE AVAILABLE TO THE USER:
AN

THE

INHIBIT ERROR HALT

A9
a.
c.
0.
REFER

Lon?
Len?

ERROR

TEST

INHIBIT

ERROR

SEfiTIQfi

TYPEUUT

FOR

SEITCH

SETTINGS-T0

SELECT THE DESIRED

OFTIUNS,

591

LQGIC

wRRQRS

”WU.“

O’DUVW

DURING THE PUNNlfifi QF THE LOGIC TESTS: IF THE PROGRAM DETECTS A
FAULT IN TH? INTERFACE LQGIC THE PROGRAM WILL EITHER
HALT IF CQNsDLE IS MDT ACTIVE 0R PRINT AN ERROR MESSAGE IF
CDNSDLE IS ACTIVE.

L0§IC

5.191

ERRDRfi

PRfiGRAM
CUUNTER

HON-ACTIVE

WILL HALT WITH
AT THE TIME 0F

THE

CONSOLE

CONTENTS

ERROR

THE

RESTORE THE
AND PROGRAM

PRESSIHG "CONTINUE” WILL
AT THE TIME OF THE ERROR
"COMTINUE" AGAIn
RESUME AND EITHER RESTAPT
FRHM THE ERROR, DEPENDIHG

PRRsSIMG

WILL

THE

PRDGRAM

ACCUMULATDR,

CAUSE

AC TQ ITS
WIhL HALT
THE

VALUE

AGAIN.

pRDGRAM

FAILING TEST OR camrxuug
mm SWITCH SETTINGS. (SEE

SEfiTIQN a).

L0§Ic

5.1.2

ERRORS

ACTIVE

CONSQLE

PRHGRAM WILL PRINT THE Fouuuwxnc

ERRQR

MESSAGE:

DHLQA FAILED
PC=XXXX

AC3XXXX

MQ=XXXX

FLSXXXX

WAITING

5.2

THE

PROGRA%

THE

ALLOW

USER

(SEE

sacrxan

STATUS

ERRDRS

C..”9I§

0139...

3
6

5),

FOLLOWING STATUS
arr
BIT
BLT
BIT
BIT

New WAITING FDR CTRL/G ID as TYPED ax
SETTING 0F PSUEDD SWITCH REGISTER 0PTIDNS

BITS

ARE

INTEREST

PRINTER READY (POWER
CHARACTER READY
CARRIAGE READY
PAPER READY
CHECK ERROR

THE

PRUGRAMZ

0m)

DURING PRINTER QPEPATIGN (DYNAMIC TESTS) THE PROGRAM WAITS
FOR THE APPPQPRIATE READY BIT TQ EQUAL A ONE (1) PRIOR TO
IF THE READY BIT DOES NOT
ISSUING THE CORRESPDNDING IUT.
RETURN WITHIN FIVE (S) SECONDS; THE PROGRAM CONSIDERS THIS

$TATUS
THIS

DETECT

5.2.1

AND

ERRQRS

NQN-ACTIVE

CQNSULE

unwmwu

anumuumwmo

“589$wa

pRnGRAM WILL MALT wxwa 9: AT TIME 9? ERRDR IN THE AC”
Famssst "cumwxaU$" wILL CAUSE THE 9RQGRAM T0 PLACE”
EXnEC?EB STATUS IN AC ANQ HALTe
vagasxmg "cmarxwuan WILL CAUSE PRQGRAM Tm FLAGS ACTUAL
$TATU$ 1w ac nan HALTa
Pfirfifiififi “cumwxwugu AGAIN WILL CAUSE THE PRQGRAfi 10
RESUME fififi KITHER RESTART THE FAILING TEST 0n COHEXfiUE
yang ERROR m$?&m91wg mm swxrcn RuGISTER SETTIMGS (SEE

c.
0,

aserxuw

5),
AW

$CTIVE

WILL

THE

$$AIUs

ERRQR

flfi

5,2,2 ~5TATUS ERRfiRS
FROGRAM

Lands

PC a xxxx
EXpECTEn :
WAITING

DATA

ERRORS

non.

w..."

5.3.1

xxxx

CDNSQLE

FthUWING ERRQR MESSAGE:

ACTUAL

xxxx

THE PRDGRAM Ifi fiDW WAITIEG FDR CTRL/G Tfl BE TYPES fl!
USER TU ALLQW SETTING QF PSUEDD SWITCE REGISTER 0PTIDNS
($RE SECTIQM 6).

5.3

CHECK ERROR DCCURS THE PRUGRAM WILL
STATUS ERRQR HANDLING EQUTIHEQ

noma-u

{

THE

STATUS

ERROR.

SATA

BRRQRS

fiQHVACTIVE

CQNSQLE

can.

own—on

all

annuuvuuwu

99:39qu

WILL

HALT

WITH p: AT TIME 0? ERRQR
WILL CAUSE THE PROGRAM

IN
TB

THE Ac.
PLACE THE

A.
3.

PFDGRAM

PRESSIMG "comrluug" WILL CAUSE THE paocaam TD PLACE THE
DATA READ EACK IN THE AC AND aALT.
anssme "comrxmusn AGAIN WILD CAUSE THE PRDGRAM T0
RESUME AND EITHfiR RESTART THE FAILING TEST 0a CONTINUE
FRnM THE ERRQR nfipgmnxmc ow SWITCH REGISTaR SETTINGS

PRESSIMG "CDNTINUE"
nAyA SENT xu THE AC

ANQ

HALT.
”

SECTIDN

(swE
DATA

5.3.2

THE

ERRQRS

PROGRAM

Lanna

DATA

pc 2 xxxx
WAITING

THE
THE

CQNSULE

ACTlVE

WILL

THE

xxxx

RECEIVED:

FOLLOWING ERROR MESSAGE!

ERRUR

saur:

xxxx

IS fiDW WAITING FOR GIRL/G TO BE TYPED BY
ALLOW SETTING 0F PSEUDD SWITCH REGISTER
(SEE SECTION 53.

PROGRAM
USER TO

OPTIONS

a).

6&0

SWITCH REGISTER

5‘1

“QRMAL OFERATIflM
mflmcwv

wwmwwmuun

RLL

6.2

7.0

SETTINGS

SWITCHES

SHED?

fiWITCHEfi

mwuuu

”wummmm

mummmaum

SRO
5g,
SR?

SR3

$34

1
INHIBI?
1
LQQ? um
1. Lamp um
HALT DH
a
ENHIEIT
1

ERRUR
ERRUR
TEST

HAL?

CQMPLETION
ERROR

PRDGRAM

PASS

TYPEUUT

Ravxsznms
wfluwwamau

REVISIDN

8,0

MBDIFICATIUNS TD RUN

SYSTEMS.

wunngwwupwm

STARTING ADDPESSES
fiflmnwngn

mmpmmwvmn

L05

2&0

LDC
LDC

201
202
203

LQC
8.2

VT78

ADDITIDNAL IfiFQRMATIDN
utwwwnaawu

8.1

LQGIC TESTS
PRINTER T$ST$
CHAHGE flEVICE Cflflfi
SELECT TEST USIHG SWITCH REGISTER

SPECIAL ADDRESfiES
Oflwonw.

nymphs-nu

THE PROGRAM USES THREE LOCATIQNS TO DETERMINE CHARACTER SPACINGa
THE PROGRAM IS
LINE SPACINGg AND NUMBER DP CHARACTERS PER LINE.
INITIALLY SET TO 132 CHARACTERS PER LINE, 10 CHARACTERS PER INCH;
AND 6 LINES PER INCH,
THESE LOCATIQNS ARE:

sYMHDLIC

ADDRESS

VALUE

SbACE

125

0014

12/120

126
127

9020
0204

3/43
132

LTNE

NOTE:

NAME

SET LOCATION "LINE" TD 0110 IF 8 mea WIDE
PAPER IS BEIHG usan, THIS IS EQUIVALENT T0
PER LINE.

THESE VALUES
VALUES FDR A

CHARACTER

SPACING

LINE-SPACING

CHARACTERS

PER

LINE

CHARACTERS
“

CQRRESPOND WITH A 10 PITCH CHARACTER WHEEL, TU SET THESE
12 PITCH CHARACTER WHEEL CHANGE THESE VALUES TO THE

FOLLDWING:
125
126

0012

L?
LTNE

127

023b

fipACE

0015

10/120
6/48
158

CHARACTER SPACING
LINE SPACING
CHARACTERS PER LINE

SET LDCETION “LINE” T0 012E EF 8 LNCH WKQE
THIS IE EQULVALEET TD
PAPER IS BEING USED»

NOTE:

TSTE?

EEC

REDEE

SET Ears LECEEEEE E0

EEEEE

1534
1703

3111

LQC

CSWTCH

SET TETS LUCATIDE TQ DQOQ
ALPHABFTICAL PATTERN“

FER

VALUE

USING

VALUE
DOTS

EEECIAE ECEEEEEE EXIST IE EH15
Nam EXECUTEE EEEEEG EEE EEEEAE
SEQUENcE THEY ARE FDR EEE EEEE BY
EAEE EECEEELCAE EDEEEEEEEEE EE TEE

Two
EEE

RESTDRE

EEEE

EQUEEEE

EHIs

‘

CHARACTERS

3044
INCH

EEEEE,

7777

INSTEAD UF

PEQGEAE,

EEICH

EEEE

EERSEEE Q UALIFI.ED
PRINTER.

LGPE

ISSUE CUEEIEDUE

EESEEEE

INEEEUCTIENS

TD EEE Lupe EEIEEEE. EEAEE THE ERUGEEE AE EEE LQCAIIUN
EAELEE "RESTLP" EEICE IE EECAEEE EEMEDIAEEEE FEELEEIEG
TEST 60. THIS EDGE EIEL RUN CDNTINDUSLY UNTTL A
CQNTRQL CEAEACIEE IS IEPEU Ex THE UEERATDE.
2a

RAISE 0E EEEEE EIEEUE

THIS IS A REUTINE T0 BAI$E DR LOWER THE RIEBQE OF THE
LQPR PRINTER: T0 ALLOW ADJUSTMENT 0F RIBBON HEIGHT,
STADT THE PRQGRAE AT THE LOCATION LABhED "RIBBON";
WHICH IS LQCATED IMMEDIATELY FOLLOWING TEST 609
(SE? PROGRAM LISTING); EACH TIME A KEY IS TYPED 0N
THE QPERATQR‘S TERMINAL: THE RIBBDN Wlhh EITHER RAISE

LDWER (DEPEEDIEG ON ITS QREVIOUS CDNDITIQNJ¢
TYPING A VALID CUETRDL CHARACTER (SEE SECTIDN 4.7)

WILL

9.0

LISTING
'“Hfl’C.

TERMINATE

THIS

ROUTINE.

lLQP-B

PRINTER

PAL10

DIAGNOSTIC

1-AUG~77

RACE

14140

“

SEQ

0021

”

lLGP-a

PRINTER DIAGNOSTIC

QWQG‘UhUNH

0000
0001
0002

0003

0000

0000
5402
4000
4015

LOCO.
ADDRSI.
ADDRST,
ADDRS3,

A
_

JMP

INTSVC
RESTRT

ADDRSZ
IGO

INTERRUPT

ROUTINE

SERVICE

x
0010

410

0010
0011

0000

INDXID.

0000

INDXII;

0012
0013

0000

INDXIZ:

0000
0000

INDx13.
INDx14,

0014

0020

420

0000

PSNR,

0000
0400

OD1SEL,
ORTSEL,

oooo
0400

4423
3200
4424

LDSK:

JMS

LORD:

OMS

I
I
0020
0021
0022

0023

IPSUEDO

SWITCN REGISTER
/HARDNARE CONFIGURATION
IHARDWARE CONFIGURATION
I

ISKIP ON

/READ

DATA

BURNER

/LOAD

DATA

BQEFER,

MOVE

PAPER.

[LOAD

DATA

BURNER,

MOVE

CARRIAGE

ILDAD DATA

BUTTER.

3205

LUMP:

0025

4425
3214

LORERT
OMS I .
LDMRRT

4425
3223
4427
3232
4430
3237
4431
3245
4432

LORD:

OMS

0027
0030

0031
0032

I
1

OMS

DORE:

JMS

I“.

‘

CHAR

AC4-1o

IREAD

STATUS

REG.

CLR DONE

IOT5

/LOAD

STATUS

REG.

SET

IDT6

IRESTURE

DONE

IINITIALIZE AND

3265
4435
3324

INTST:

DSLOAO
OMS I .

4437

DATERR:

OMS

ENDTST:

JMS

VBGNTSTI

OMS

CHECK

CARRIAGE,

LDRERT

LOADDE:

RECOVERY

IOT7
»

SET

FOR

TEST

TSTSGN

TSTIN

3430

3342
RAITa

ERRDAT
I .
TSTEND
OMS I .

ICDMMDN ERROR HANDLER
[ROUTINE

DATA

LOAD

/ROUTINE TO
IOFF LINE
IROUTINE TO

BUFFER
'

INITIALIzE

”

TOR TEST

NITN

PRINTER

4033
4442
4053
4443

DRINTER

HANDLE

DATA

ERRORS

IRDUTINE T0 HANDLE SCOPE LODPIING AT TEST
xx? ERROR ENCOUNTERED
IWAIT FDR INDIVIDUAL READY BITS ACTIVE

END

“

‘

0441

IOT4

4435

0042

IOT2

IOT3

LOLSRT

OMS I .
ERRORS
OMS I .

4441

CLR AC.

‘

DORSET
LQLS=

ERROR:

4440

IOTI

”

4434
3500

0040

LORCRT
OMS

LQRS=

0033

0n37

IOTD
INTO

0034

0036

DONE FLAG

LOMCRT
LORD:

3250
4433
3400

0035

NORO

LQSKRT

0024

0026

ONE
Two

NORD

ANAIT

SNAITz

OMS I
NAITS

DELAY:

OMS

DIAGNOSTIC

/NAIT

/VARIAELE

ALL

FDR

READY

ACTIVE

BITS

“

PALID

1-AUG-77

ADELAI
OMS I I

/ROUTINE

DELAI

ROUTINE

PAGE

14:40

1-1
SEQ
“

0043
0044

0045

0046
0047

0050
0051

5244
4444
4573
4445
4430
4446
3312
4447
4200
4450
4205
4451

ECHO:

CHARACTER

TYPED

XECHO
CTLCHK:

JMS

/ROUTINE

CHKCTL
JMS

I
CRKRDI

SAVEAC:

OMS I .
ACSAVE
OMS I .

RSTRAC:

ICHECK

KBCHKB

READ!

BITS

SAVE

AND

IROUTINE

RESTORE CONTENTS

CONTENTS

/STATUS

IROUTINE

TO CHECK FDR KEVSDARD
“

ROTCHRa

0053

4526
4454

LINEND:

0055

0056
0057

0060
0061

0062
0063

0064

0065
0066

0067
0070

0071

4534

0073

0074
0075
0076
0077

OMS I .
CHRROT
OMS I .

MOVCR:

OMS I .
CARMUV
ONS I .

4457

MDVPAR:

CRMOV
OMS I

LSTLINs

OMS

4112
4473
4126
4474
4135
4475

0247
0117
0000

IROUTINE
ICHECR

FOR

SHIFT
END

ASCII

BIT

ONE

DLACE LEFT

LINE

ENDLIN
MOVCAR=

4472
0072

INTERVENTION

4455
4400
4455
4441
4314
4450
4545
4461
4471
4462
4557
4453
4500
4454
4507
4455
5274
4466
4305
4457
4702
4470
5015
4471
5477

LINK

ERROR HANDLER

CHKKB

4510
4453

LINK
AND

‘

OMS I .
ERSTAT
OMS

VALID CONTROL CHARACTER

IROUTINE

ACRSTR
STATER:

FOR

CHECK

RDICHK:

0052

0054

CONSOLE

4213
4452

ECHO

/MOVE CARRIAGE SUEROUTINE
[MOVE CARRIAGE

ABSOLUTE COORDINATE

‘

IMOVE

PAPER

SUSROUTINE

PARMOV
1'

XCRLF:

I .
LINLST
OMS I .

ICHECK FUR LAST

LINE

IEXECUTE CARRIAGE RETURN,

LINE FEED

CRLERT
PSPACB:

LSPACES

OMS I .
SPACER
OMS

[SPACE

ONE

DRINT

ROSITION

THE

RIGHT

POSITION

THE

LEFT

ISPACE

ONE

“

SRACEL

LAS:

JMS I .
XPRINT
OMS I .

C8ACTV=

OMS

PRINT=

/ROUTINE

ONE CHARACTER ON

HANDLE LAs

IRDUTINE

CHECK FDR ACTIVE CONSOLE

INSTRUCTION

LASRT

“

ACTVCR
MESAGE:

OMS

‘

/ROUTINE

I'.

‘

IMESSAGE

ROUTINE

IROUTINE

MESPRT
REGPRTS
MANCNG:
RANDOM:

OMS I'.
PRTREG
OMS I .
CNGMAN
OMS I".

PRINT THE CONTENTS OF A REGISTER
‘

/ROUTINE TO

CHANGE

DEVICE

SELECT CODES

NRAND
SAVGEN:
RESGEN:

OMS I .
XSAVGN
OMS I .

XRESGN
VT7SCKIJMS I .
CKVT78
"

STNASK,
SVAC,

117

/STATUS REGISTER

USED BIT MASK
'

0022

ILGPOS

PRINTER

111
112

0700
0101

113
114
115
316
117
119
119

120

121
122
123
120
125
126
127

0102
0103
0104

0105

0106/
0107
0110
0111
0512
0113
0114

DIAGNOSTIC
0000

PALIO

SAVAC:
SAVLNKA
SAVMQ,

SAVFLG,

K003:

0003

K007;

0007
0021
0023

2525

02525;

2525

0000

XDATA.
SVSTAT,

IEAVE

isAVE STATUS READ

LINCRT,

IEAVE LINE COONT
ISAVE IATERRpRT CONDITION
IEAVE AREA TOR EARECTEO sTATus
ISAVE AREA FOR MOVE CARRIAGE MAGNITUDE
iSAVE CARRIAGE MOVE MAGNITUDE
IEAVE AREA ROR EXPECTED STATUS
/sAVE AREA FOR PAPER MOVEMENT MAGNITUDE
IEAVE AREA FOR CHARACTER TO PRINT
ISAVE AREA FOR CHARACTER SHIFTED LEFT ONE
ISAVE AREA FOR CARRIAGE DIRECTION
ISAVE AREA FOR CHARACTER SPACING
/EAVE AREA RDR LINE FEED MAGNITUDE
I132 CHARACTERS PER LINE
INUMBER 0F LINES T0 PRINT
IWANTED STATUS SAVE AREA
IFIRST CHARACTER OF A TEsT
IFIRST CHARACTER OF A PATTERN
ISAVE CHARACTER COUNT

0000

129

0122

0000
0000

130
131
132
133
I34
135

0123

0000

SAVPRI

0124
0725
0126

0000
0000

CHAR,
CHARRT,

0000

0014
0020

CARDKR.
SPACE.
LFa

INTFLGI
XSTAT,
SAVMVa
SAVMOV,

SAVDAT,

0
0

0200

LINE:

137

0132

0000

138
139

0133

0000

LINES,
WSTAT.

0130
0135

0000

0136

0000

0137
0140
0141
0142

0000

151
£52

153
154
155
150
x157

0000
0000

0500
6007
6102
7501
7421
6030
6004
6005

7002
6035

FIRST,
FSTCHR,
CRRCNT,
KBSAV,
SAVPOS;
MUVMAG,

0
0

FOR

EXPECTED

SEQ

0024

DATA

0
0500

DSCNOW,

PLACE
”

ISAVE KEIOOARO CHARACTER
ISAVE CARRIAGE POSITION
ISAVE CARRIAGE MOVEMENT MAGNITUDE
ICURRENT DEVICE SELECT CODE

‘

CAF=6007
SPLaéloz
MQA=7501
M0037421
KCF=6030
GTF=6004
RTFEGOOS
55W=7002
KIE=6035
I
/

158

/§TATUS

159

BITS

160

161
i62
163
164
165

ILQP'B

AREA

”

14
20
204

0000

0023

5252

128

0000

EEO

6000

0000

A42
143
144
145
146
147
148
149
150

1-2

A021;
K0237
K50000
05252:

0117
0120
0121

140
141

RAGE

0000
0000

136

14:40

0000
0000
0000
0003
0007
0021
0023
6000
5252

0115
0110

0127
0130
0131

ioAUG-77

v142A

PRINTER

PRINTER READY

4000
2000

LQRD¥34000

[BET

LQCHR=2000

1000
0400
3400
0100

LDCARRIOOO
DOPAR=0400
,DQDUN=3400
ILPLFT30100

CHARACTER READY
IBIT 1
/BIT 2
CARRIAGE READY
IOIT 3
PARER'REAOI
ALL OPERATIONS
IBITS 1.2.3
IEIT 5
SELECT LEFT PLATEN

PALlO

DIAGNOSTIC

V142A

1-AUG-77

PAGE

14:40

DONE

1'3
w

LOCHK=0040
LQDUTIDOZO
LOREDE0004
LQBLK=0002

166

0040

467
168
169

0020
0004
0002

170

0001

LQIEN=0001

171
172
173
174
175
176
177
178
179
180

7400

ALRDY=74OO

IOT'S

lLGP-S
6500

XLQSKBGSOO

6501'

ALDRB=6501
XLQMP=6502
XLQMCBGSOB

6502
6503
6504
6505

XDDRs=6505‘

6506

XLQL836506

0507'

XLQRE=6507
/0ATA

BUFFER

4000

187
188

4000
0000

189
190

0200

I
0200

201

202
203

204
205
206
207
208
209
210
211
212
213
214
215
216

217
218
219
220

USED

SUBROUTINE
ISKIP 0N DONE FLAG
IREAD DATA BOFEER
IMDVE PAPER
[MOVE CARRIAGE
IPRINT CHARACTER
IREAD STATUS
ILOAD STATUS
'

x00PC=6504

PRRETaéooo
PRADVao
CARDFT=4000
CARRGTao

196
197
198
199
200

NOT

IRESTORE

183
184
185
186

195

SET

181
182

191
192
193
194

6
CHECK ERROR CONDITION
IBIT>7
OUT OF PAPER
PRINT‘RED
IBLT 9
[BIT 10
PRINT BLACK
[BIT 11
INTERRUPT ENABLE
ALL READY BITS
[BITS 0'1l2I3I

/BIT

0000

CONSTANTS
[PAPER PETRACT
IPAPER ADVANCE
IMDVE CARRIAGE

IMUYE CARRIAG;

BIT 0 3 ONE
BIT 0 = ZERO
BIT 0 3 ONE
LEFT
RIGHT
BIT 0 8 ZERO
J

/
I

0200
0701
0202

0203

4204
4204
4204
4204

JMS

START

0M5
0M5
JMs

START
START
START

/GD
IGO
IGD

IGO

TD BEGINNING OF LOGIC TESTS
TD BEGINNING OF PRINTER TESTS
T0 DSC
MDQIFICATIDN ROUTINE
TU SELECTED TEST

I
/

0204
0205
0906
0007

0210
0211
0212

0213
0214

0000

START.

6030
4466
7410

CSACTV
SKP
JMP

5216

0715

4467
6160

0716

3777'

0217
0220
0221
0722
0223
0724
0225
0226
0227

1376
1230
1375
3231
1631
3232
6475
4237
5632

CLA CLL CMA
TAD START
DCA SAVADD
KC?

7340
1204
3230

MESA§E
MANDEC
DCA P053
TAD

{-200

TAD

SAVADD

TAD

(STARTB

DCA
TAD

GOAOD

0000

ICLEAR

pAss

IVT78/
IVT79/

SYSTEM UNDER TEST 3 VT78 I
INSERT OVERWRITES FOR
YES

COUNT

I GDADD
DCA'RSIART
VT78CK

005
00?
I

OQBO

.+3

ICLEAR KYBD FLAG
ICHECK FDR ACTIVE CONSOLE
ISKIP IF CONSOLE Is ACTIVE
ICONSDLE NUT ACTIVE, SKIP MESSAGE

SAVADD,

INSDW
I RETART

VT78

TESTING

ILGP-S

PRINTER DIAGNOSTIC

221
222

0731
0232

0000

GOAOD.

0000

RSTART,

223
224

0733

0400

STARTS,

TsTl

0734
0935

1400
5455
5623

225

225
227

0236

232
233
234
235
235
237
239

PAGE

14:40

IRESTART

1-4

559

0025

550

0025

ADDRESS

25245
IOTCNG
TSELCT
I
I

228
229
230

231

1-AU6-77

v1423

RALID

IVT7B/
0737
0240
0241
0742
0743
0244
0745

0000

0246

5437

ROUTINE

V790w1

{IAC

IVT78I

DCA

V7aON2

IVT79/

JMP

I INsUN

IUT76I

TAD
DOA
IAD
DCA

3772'
1371
3770'

OVRRNRITEs FOR TESTING ON

INSERT

IVT78/
IVT78/
IVT78/
IVT78/
IVT7B/

INSDW.

1374
3075
1373

233
240
241

g003
STMASK

(NOR

TAD

DVERWRITE

STATUS

7278

SYSTEM.

REG MASK

OVORNRITES TO ACCOUNT FOR DATA BUFFER INVERSION
'

”

IN
"

7279
’

IVT78/

ROUTINE To CHECK

SYSTEM

UNDER TEST

727a

242

243

0947

244
245

0950

245

0252

247
242
249
250
251
252
253
254
255
255
257
258

0751
0753

0754
0755

0000
1022

7005
7714
5547
2247
5547

0370

3301

0371

7001

0372

3270
7000
0003
0233
7500
1355
0400

0373
0274
0175
0176

0377

259

0400

263
265

0401
0402
0403

4436
7340
4435
4425

266

0404

4437

267
268
269

0405
0407
0410

7300
4435
4425
4437

0411

4440

0606

0412
0413

0422
0423

4440

0414

280

0417

281
282
283
284
285
286
287

0420

288

0424

289

0425
0425
0427
0430

295
296
297
298
299

0421

30b

307
308
309
310
311
312
313
314
315
316

0431
0432
0433

0434
0435

0436

4435
7301
4435

2521.

LOAD

INTST
CLA CLL
LDADDB

GNES

ALL

Inc:

BIT

YES

RETURN

CALL+1

RETURN

CALL+2

AND

USING

ZERDS

IOT2

[INIT AND SET UP FOR SCOPE LOOP
ISET UP TO LUAU ALL ONES
ILOAD DATA BUFFER AND CHECK FOR

CMA

LUNR
DATERR
CLA

IDATA

CLL

/SET

DATA

ERRORS

ERROR
TO

LOAD

ALL

ZEROS

‘

LOADOO
LUMP

OATRRR
ONDTST

7522,

[DATA

ERROR

TEST LOOPING ON

/CHECK FDR

ALTERNATING

LOAD

ONES

ZERUS

AND

USING

ERROR
1022

PALIO

v142A

1-AUG-77

INTsT
TAD C5252

14:40

ILOAD

5252

/DATA
ILOAD

ERROR
2525

IDATA

ERROR

PAGE

LOADDB
OUR?
DATERR
TAD

C2525

LOADOB
LOMP
UAIRRR

ENDIST

2523,

FLOAT A ONE USING IO22

INTST
CLA CLL

IAC

IAC=DDOI

LOADDB

LUMP
DATERR

4425
4437
1077
7100
7004
7420

TAD

IDATA

ERROR

ILDOP

UNTIL

SVAC

CLL
RAL
SNL
JMP

5225
4440

.-7

ALL

3175 CHECKED

ENDTST
I

IROUTINE

FLOAT

ZERO

USING

1072

I;
0437

0440
0441
0442
0443
0444

4435
7344

2574.

INTST
CLA CLL CMA RAL

IACa7776
‘

4435

LOADDB

4425
4437
1077

LONR
DATERR
TAD SVAC
STL
RAL
52L
JMP .-7
ENDTST

0445
0446
0447

7120
7004

0450

5241

0451

4440

7430

L11

IDATA

ERROR

ILODP

UNTIL ALL BITS CHECKED
'

IROUTINE

LOAD

OVER!

NUMBER

USING

3022

ZERDS

USING

324

0462

325

0463

4435
7301
4435
4425
4437
1077
7001
742D
5254
4440

326
327
328
329

cxvr7a

7278

*400

IPUUTINE

322
323

320
321

0452
0453
0454
0455
0456
0457
0460
0461

317
318
319

JMP

cxvr7a

TEST

300

301
302
303
304
305

CKVT78

DIAGNOSTIC
4435
1111
4435
4425
4437
1112
4435
4425
4437

0415
0416

291
292
293
294

152

525 UNDER

IVT78/
IVT78/
IVT78/
/VT78/

279

290

ON?

IRDUTINE

ILQP—S VPRINTER

276
277
278

OPZSEL
CLA

274

275

SPA

262

271
272
273

/VT78/
IVT78/
IVT78/

RTL

/RDUTINE

261

270

o
TAD

260

264

CRVT78.

2575.

INTST
CLA

CLO
LOADQU

IAC

LONR
‘

DATERR
1A0 SVAC
IAC
SNL
0MP .-6
ENDTST
I

IROUTINE

LOAD

0464

4436

TSTS,

INTST

ALL

ONES

AND

1023

1-5

ILQPUB

PRINTER DI3GNQSTIC

330
331

0465
0460

332
333
334
335

0467
0470
0471
0472

336

,0473

337'
338
339
340
341
342
343
344
345
346
347
348
349
350
351

0474
0475

PAL10

V1421

1-AUG-77

CLA

CMA

1AC-7777

gun
LOADDB

7340
4435

RAGR

14x40

1-6

§EQ

0027

sac

ooze

RQMC

4426

4437

DATERR

7300
4435
4426
4437
4440

CLA

IDATA ERRUR
ISET UP TO LUAD

can

ALL

ZER05

LOADQB
LGMC

DATERR
ENDTST

/DATA

ERROR
ICHECK FDR TEST LODPING on

ERROR

/RDUTINE

LUAD

ALTERNATING

ONES

AND

ZERDS

USING

IDT3

0476
0477
0600
0601

0502
0603
0504
0605

0506
0607

352
353
354
355
356

4436

TST7,

1111
4435
4426
4437
1112
4435
4426
4437
4440

INTST
TAD 65252
LOADDB
LQMC
DATERR
TAD C2525

ILORD

5252

IDATA

ERROR

USING

IGT3

00A008
LQMC
DATERR
ENDTST
/

/RDUTINE

FhUAT

ONE

INTST

4436
7301
4435

358
359
360

0510
Gail
0612
0513
0614
0:15

1077

TAD

361

0516

362
363
364
365

0:17

7100
7004
7420
5312

CLL
RAL

4440

ENDTST

357

0620

0521
0622

TSTIO:

CLA

IAC

CLL

IACR0001

LUADDB
LQMC
DATERR

4426
4437

/DATA

ERROR
'

366

svac

SNL
JMP

ILQOP

.-7

UNTIL

ALL

BITS CHECKED

lRQUTINE

367
360
369
370
371
372

FLOAT

USING

ZERO

IOT3

373
374
375
376

377
378
379

TSTIII

INTST
CLA CLL
LOADDB

0623
0624
0625
0626
0627
0630
0631
0632

4436
7344
4435

0533

7430

0534
0635

5325
4440

SZL
JMP

4426
4437
1077

LQMC
DAIERR
TAD SVAC

7120

STL

7004

RAL

380
381

CMA

HAL

IAC=7776

L31

1'7

ILQDP

UNTIL ALL

BITS

CHECKED

ENDTST
I

IRQUTINE

LOAD

EVERY

NUMBER

USING

IDT3
.

382
383
384

0636
0637

lLQP-B

PRINTER

385

0640

4435

LOADDB

386
387
388
389
390
391
392
393
394
395

0541
0642
0543
0644

4426

UQMC
DATERR
TAD SVAC

396

0650

397
398
399

0651
0652
0553
0554
0855
0656
0657
0660
0661
0562

400

401

402
403
404
405

406
407
408

0645
0646

0547

4436
7301

TST12I

DIAGNOSTIC

4437
1077
7001
7420
5340
4440

INTST
CLA CLb

IAC

IACS

PALIO

V142A

1*AUGD77

0001

PAGE

14840

1-7

IAC
SNL

JM9 6‘5
ENDTST
1
IRDUTINE

LOAD ALL

ONES

AND

ZEROS

qsxuc Iowa

4436
7340
4435

TST13'

INTST
CLR CLL CMA
LOADDB

IINIT AND SET UP FOR SCOPE LOOP
ISET UP TO LOAD ALL ONES
"

4427
4437

LQPC
DATERR

/DATA

7300

CLA CLL

[SET UP

4435
4427

LOADDB

ERROR
TO LOAD

ALL

ZERDS

‘
'

LQPC
DATERR

/DATA ERROR
ICHECK FOR TEST

4437
4440

ENDTST

5777'

JMP

TST14

LOAD

LOORING 0N ERROR

0677

0600

PAGE
/

0600
0601
0602
0603
0604

4436
1111
4435
4427
4437

TST14,

0605

1112
4435
4427
4437
4440

409

410

411
412
413
414

415

416
417
418
419
420
421
422
423
424
425
426
427'
428
429
430
431

432
434

435

436
437
439

[ROUTINE

ALTERNATING ONES

AND

ZEROS

USING

IDT4

0606

0607
0610
0611

xmrsw
TAD 05252
LUADDB

LQPC
DATERR
TAD

92525

LDADDB
LQPC
DATERR
ENDTST
I
IRDUTINE

ILOAD

5252

[DATA
ILUAD

ERROR
2525

IDATA

ERROR

FLOAT A ONE USING

IDT4

0612
0613

0614
0615
0616

0617
0620

0621
0622
0623
0624

4436
7301
4435
4427
4437
1077
7100
7004
7420
5214
4440

TST15J

INTST
CLA CLL

IAC

LoADDB
nova

DATERR
TAD svac
cnn
RRL
SNL
JMP .-7
ENDTST

/DATA ERROR

ILGOP UNTIL ALL
‘

[ROUTINE

FLOAT

ZERO

USING

IOT4

BITS
'

CHECKED

‘

lLQP-S
439
440
441
442
443
444

445
446

447
448
449

450
451
452
453
454
455
450
457
458

459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475

PRINTER

0625

0626

0627
0630
0631
0632
0633

443a
‘7344
443s
4427

0534
0635
0636
0637

7430
5227
4440

0540

4136

0641
0A42

0643
0644
0645

7301
4435
4427
4437
1077

0546

7001

0647

7420

0650
0551
0652
0653

5242

0655

0656
0657
0560

NUMBER

EVERY

USING

IOT4

IAC

LUAOUB'
L090
OATERR
TAO SVAC
TAC
SAL
JMP 3.6
EUOTST

UNTIL

ILOOP

VI78CK
TST21

4475

NUMBER

ETERY

TRIED

SYSTEM UNDER TEST u VT78 ?
YES - SKIP TEST 20. IN VT78 CAF
DOES NUT CLEAR pRINTER‘DATA

/VT78/
/VT78/
/VT78/

JMP

5265

4435
7340

TEST

CAF

THAT

CLEARS OATA

INSTRUCTION

OUTEER.

BUFFER

INTST

TSTzo,

CLA CLL
LOAODO

4435
4425
4437
6007

IAC=7777

CMA

ISET

FOR

ROUTANE

DATA

CHECK

LoMp
DATERR

/LOAD DATA EUEEER WITH 1072
IDATA

ERROR

CAP

/INIT

BUS.

0565

4440

ENDTST

”

SHOULD CLEAR

[DATA

BUFFER

NOT

CLEAREO

DATA

BUFFER

CLEARED

CAF

INSTRUCTION

IROUTIRE

CHECK

THAT

TOT:

0570

4435

INTST

TST21.

7340
4125

CLA

7440
4434
4440

szA

COL

IAC=7777

CMA

ILGAD

LOMR

ERRDR
EOOTST

DATA

BUFFER

NOT CLEAREO

IAC

RITH

IOT2

490

/ROUTTNE
/

493

0674
0675

lLQP-B

PRINTER

494

0676
0577
0700

0701

4430

TSTzz.

7340

DIAGNOSTIC
4426
7440
4434
4440

CHECK

THAT

IS CLEARED

INTST
CLA CLL

CMA

IAC=7777

PALIO

v142A

1-AUG-77
ILOAO

LOMC
SZA
ERROR
ENDTST
/
IROUTIRE

500

CHECK

IOT3

PAGE

14140

DATA

BUFFER WITH

lAC-NDT CLEAREO BY

IOT3

“

THAT

CLEARED

IOT4

0702
0703
0704
0705
0706

0707

4436
7340
4427
7440
4434
4440

INTST
CLA CLL CMA
LORC
szA
ERROR
ENOTST

TST23,

/Ac=7777
ILDAD OATA
NDT

[AC

BUEFER

CLEARED

WITH

IDT4

‘

IRDUTINE

INSURE

THAT

NOT CHANGED BY

IOT

0710
0711
0712
0713

0714
0715
0716
0717
0720

0721
0722
0723

0724

443a
7340
4423
7000

IMTST
CLA CLL CMA

TST24.

IAC a 7777
IISSUE TOT

LQSK

NO?

7001
7440
4434
7300

IAC

IADD

SZA

/AC SHOULD a o
/Ac CHANGED Bx
/AC a o
IISSUE TOT 0

ERROR

ONE

IOT

”

‘

:.CLA

CLL

4423

LOSK

7000

7440

NO?
SZA

[AC

4434
4440

ERROR

IAC

ENDTST

S23

540
541
542
543
$44
545
546
547
549

UNTIL ALL BITS CHECKED

TST17.

0664

0672
0573

528
529
530
531
$32
533
~534
535
536
537
538
539

ILDDP

LOAD

LORR
SZA
ERROR

487
488
489

524
525
526
527

INTST
CLA CLL

4424
7440
4434

0571

520
521
S22

.-7

ENDTST

0654

486

519

0030

RAL
szL
JMP

0566
0A6?

518

SEQ

LEI

‘

IROUTINE

483
484
485

513
514
515
516
517

IACI7776

LORC
DATERR
TAO SVAC
STL

4440

482

507
508
509
510
511
512

0029

478
479
480
481

503
504
505
506

AER
.

LOAOUE

IROUTINE

0563

501
502

1‘8

0661
0662

497
498
499

PAGE

14840

l-AUG-77

INTST
CLA CLL CMA RAL

T5715.

4437
1077
7120
7004

476

495
496

V142A‘

477

491
492

PAL10

DIAGNOSQIC

STILL o
CHANGED a!
”

IROUTINE

INSURE

THAT

NOT CHANGED

TOT 7

0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737

4436
7340
4432
7001
7440
4434

INTST
CLA CLL CMA

TST25.

IAC a 7777
[ISSUE IDT
IADD ONE

LORE

LAC
SEA
ERROR
CLA §LL
LORE
SZA
ERROR
ENDTST

7300
4432
7440
4434
4440

IAC SHOULD a o
/Ac CHARGED BT
/AC

10T7

s'o

IIOT 7
IAC STILL - 0
100, AC CHANGED

IOT7

“

IROUTINE

CRECK THAT AC

18 CLEAREO

IOT-6

0740

4435

0741
0742
0743
0744
0745

7340

INTST
CLA CLL CMA

TST26.

LOLs

4431
7440
4434
4440

IAC I 7777
ILOAD STATUS REGISTER IOT 6
lAC SHOULD a o
IAC NOT CLEARED BY TOT 6
'

52A
ERROR
ENDTST

‘

/ROUTINE

/ANO

CLEARED

CHECK THAT DONE FLAG :5
Br IOTs

SET

IQT6

1-9

lLQPTB
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

PRINTER

FALIO

DIAGNOSTIC

1-AUG-77

V142A

PAGE

14:40

1-10

§EQ

0031

SEQ

0032

0746
0747
0750

0751
0752
0753
0754
0755
0756
0757

4436
7300
4431
4423

TST27.

INTST
OLA QLL
LOLS
LQSK
ERROR
LGRS
LQSK
JMP .+2
ERROR

1134
4430
4423
5357
1434
4440

/SET DONE IOTS
[SKIP ON DONE FLAG
/IOT 6 DID NOT SET DONE FLAG OR SKIP HIGH
zREAD STATUS CLEAR DONE TOT 5
ISKIP IF DONE FLAG STILL SET
/FLAG CLEARSO
IFLAG NOT CLEARSD BY IOT 6 UR SKIP STUCK Low

ENOTST

IROUTINE TO CHECK THAT
IAND CLEARSD SI IOT 2

DONE

FLAG

SET

TOT

4436

TSTSD,

INTsT
CLA GLL

0760
0761
0762
0763
0764
0765
0766
0767
0770

7300
4431
4423
4434
4425
4423
5371
4434

0771
0772

4440

LQSK
JMP .+2
ERROR
SNDTST

5777'

GM? TST31

DONE IOT 6
ISKIP ON DONE FLAG
IIDT 6 DID NOT SET DONE FLAG OR SKIP STUCK HIGH
IIUT 2. SHOULD CLEAR DONE
ISKIF IF DONE FLAG STILL SET
IFLAG CLEAREO
IFLAG NOT CLEARED BY IOT 2 UR SKIP STUCK LOU
ISET

LOLS
LQSK

ERROR
LUMP

575

576

0777

1000
1000

577

PAGE
/

578
TO CHECK THAT
CLEARED SI TOT 3

579

/ROUTINE

580

/AND
/

531
582
583
584
585

1000
1001
1002

1003

586
587
588

1004
1005

589

1007
1010
1011

590

591
592

1006

4436

TST31.

7300
4431
4423

INTST
CLA CLL
LOLS_
LDSK

FLAG

SET

IOT

ISET DONE FLAG IOT S
ISKIP ON DONE FLAG SET
IDONE FLAG NUT SET BY TOT 6
ICLEAR DONE FLAG IOT 3
ISKIP IF DONE FLAG STILL SET
/DONE FLAG CLEAFEO OK
IDONE FLAG NOT CLEARED ST IOT
[OR SKIP STUCA Low

ERROR

4434
4426
4423
5211
4434
4440

DONE

LONG
LOSK
GM? .+2
ERROR
ENDTST

IROUTINE TO CHECK THAT
/AND CLEARED BY IUT 4

593

594
595

DOUE

FLAG

SET

IOT

596
597
598
599
600
601
602

1014
1015
1016

ILGP-B

PRINTER

603

1021

5223

604
605
606

1022

4434
4440

1012

1013

1017
1020

4436
7300
4431

TST32.

INTsT
CLA

CLL
ISET DONE FLAG IDT 6
ISKIP ON DONE FLAG-SET
IDONS FLAG NOT SET BY IOT

LDLS

4423

LGSK

4434
4427
4423

ERROR
LGPC

/CLEAR
ISAIP

LGSK

DIAGNOSTIC

v142A

PALiO

DUNE FLAG TOT 4
IF DONE FLAG STILL

1-AUG-77

6
SET

PAGE

14:40

1-11
”

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
533

1023

JMP .+2
ERROR

ENDTST

/AND

1024
1025
1026
1027
1030
1031

4436
7300
4431
4423
4434
4432
4423

1032
1033

5235

1034
1035

4434
4440

TST33.

DONE

FLAG

SET

IOT

CLL
/SET DONE FLAG IOT 6
ISKIP ON DONE FLAG SET
IDONE FLAG NOT SET BY IOT 6
ICLEAR DONE FLAG TOT 7
ICHECK DONE FLAG FOR CLEARED CONDITION
IOONE FLAG CLEARED UK
/DONE FLAG NOT CLEARED BY IOT 7 0R SKIP
ISTUCK LOW

LGLS
LQSK
ERROR
LQRE
LQSK
JMP

.+2
ERROR
ENDTST

‘

IROUTINE

CHECK

IAND CLEARED

DONE FLAG
INSTRUCTION

THAT

CAF

SET

IOT

/
1036

1037

1040
1041
1042
1043
1044
1045
1046
1047

4436
7300
4431
4423

T5T34.

INTST

CLA CLL

ERROR
CAF
LOSK
JMP .+2
ERROR
ENOTST

4434
6007
4423
5247

4434
4440

[ROUTINE TO CHECK
IALL ONES AGO ALL

1050
1051
1052
1053
1054
1055
1056
1057
1060
1061
1062
1063
1064

4436
7300
4431
4430
0076
7440
4451
7340
4431
4430
0076

1377

1067

1070

5776'

1066

TSTSS.

READ-WRITE BITS oF
ZEROS

INTST
CLA CLL
LOLS
LGRS
AND STMASK
SZA
STATER
OLA GLL CMA
LGLS
LORS
AND
TAD

STMASF
(7661

STATUS

ILOAD ZERDS INTO STATUS REGISTER
IREAD STATUS
IMASK BITS 5.8. 9.10.11 (ONLY BITS 10 S 11 ON VT78)
ISKIP IF BITS 5.8.9.10.11 ALL ZERO (DNLI BITS 10 S
IONE OR MORE READ-WRITE BITS NOT GLEARED
IAC a 7777
ILOAD ONES INTO STATUS REGISTER
‘

IREAO STATUS
IMASK BITS 5.8 .9.10.11
IADD Two's CDMPLEMENT

(ONLY BITS 10 A
"

VT7S)

VT78)
‘

7440
4451
4440
4475

1065

ISET DONE FLAG IOT 6
ISKIP ON DONE FLAG SET
IDONE FLAG NOT SET SI IOT 6
[CLEAR DONE FLAG WITH CAF INSTRUCTION
ICHECK DONE FLAG FOR CLEARED CONDITION
/DONE FLAG cLEARED DK
IDONE FLAG NOT CLEARED OI CAF OR SKIP STUCK Low

LDLS
LOSK

651
652
653
654
655
656
657

INTST
CLA

/
/

650

IOT

635

644

ISKIP

TO CHECK THAT
CLEARED SI IOT 7

/ROUTIUE

634

645
646
647
648
649

/DONE

FLAG CLEARSD 0K
FLAG NOT CLEAREU
STUCK LOU

636
637
638
639
640
641
642
643

IDDNE

SZA

STATES
ENDTST

VT7BCK
JMP

TST41

ISKIP IF ALL BITS BET
[ONE OR MORE OF BITS 5.8. 9.10.11 NOT SET (10 A 11
IIN STATUS REGISTER
IVT78/ SYSTEM UNDER TEST 3 VT78 7
SKIP TESTS 36.37 AND 40. IN VT78
IVT7S/ YES
IVT78/
STATUS BITS 5.8.AND 9 DO NOT EXIST.
-

VT7§7

/LQP~8

PRINTER DIAGNOSTIC

658
659
660
661
662
663
SS4
665

666

667
668
669

670
e71

672
673
674
e75

676
577
678
679
680

IRDUTINE

1072

7300

1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105
1106
1107
1110

1375
4431
4430

LQLS
LQRS

1111
1112

1113

TST36.

TAD

AND

0371
1373
7440
5303

TAD

4451
7300

1374
4431
4430

0374
1373
7440
4451
1440

1115
1116

7300

687

1117
1120
1121

690
S91
692

1122

693

1125

694

1126
1127
1130
1131

ILOAD

(100
@7700

1123

1124

TST37.

/LOAD

20005

IALL

011

EXCEPT

LOAD

S ATUS
S-ATus

IREAD

17051 BIT S

17700
ISKIP IF 817 5
1017 5 NOT SET

IS SET
AFTER LOAD

STATUS

CHECK

BIT

STATUS

RfigISTER

0MP

4430

0371
1370
7440

1136»

4440

[SKIP
IBIT

1017

BIT

SET

CLEAREQ UK
NOT CLEARED

ZEROS EXCEPT
ILUAD STATUS
IPEAD STATUS
ITEST BIT a

AFTER LOAD
BIT

IALL

STATUS

’

ISKIP IF BIT 8
/BIT 8 NOT SET

4451

BIT

1+2

IS SET
AFTER LOAD

STATUS

710

1143

711
712

ILQPVS

PRINTER

713

1146
1147
1150
1151
1152
1153
1154
1155
1156
1157

CHECK

1367

INT5T
CLA CLL
TAD 17773

4431

LQLS

1144

4430
0366

1145

1365

LQRS
AND 14
TAD (7774

TST40;

DIAGNOSTIC

PALiO

7640

521
JMP

SIT

v142A

TAD

1161

4431
4430
0366
1365
7640
4451
4440

LQLS
LQRS
AND 14
TAD 17774
62A QLA
STATER
ENDTST

1162

5776'

JMP

1165
1166
1167
1170

7774

0010

732

1171
1172

733

1173

7700

734
735
736
737

1174
1175
1176

0100

1177

7661
1200

STATUS

1'AUG’77
15x1?

.+2
STATER
CLA CLL

5351
4451
7300

[ALL ONES EXCEPT
ILDAD STATUS
IREAD STATUS
ITEST BIT 9

00A

1366

1160

/0LL ONES EXCEPT
[LOAD STATUS
IREAD STATUS
ITEST BIT a

17767

STATES
CLA CLL
TAD (10
LQLS
LQRS
AND {10
TAD (7770
52A
STATER
ENDTST

1371
4431

1132
1133
1134
1135

INTST
CLA CLL

SZA

5326
4451
7300

4436
7300

1517

BIT

CLEAPEP

IS
UK

PAGE

CLEARED AFTER

~07

1'13

SET

BIT

IALL ZEROS EXCEPT
ILUAD STATUS

14140

IBIT

BIT

0010

STATUS

IREAD STATUS
ITSST BIT 9
ISKIP IF BIT 9
IBIT 9 NOT SE7

IS SET
AFTER LOAD

STATUS

TST41

0004

7773
7770
7767

7677
1200

PAGE.
7

738

739

IROUTINS

740
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

0031

STATUS

‘

LQLS
LQRS
AND (10
TAD 17770

4430
0371
1370
7440

1137
1140
1141
1142

741

SS0

LQLS
LQRS
AND {100

TAD

1372
4431

731

BIT

EXCEPT

STATUS
STATUS
BIT 5

iREAD
ITEST

STATER
ENDTST

IRUUTINE

722
723
724
725
726
727
778
729
730

0031

00015103

ONES

[ALL

(7677

SZA

704

721

310705

15x19 1? 3:7 5 IS SET
IBIT 5 CLEARSQ UK
1317 5 NUT CSEARED AFTER

TAD

705
706
707
708
709

716
717
718
719
720

000

005
686

715

SZA
JMP .+2
STATER
CLA CLL
TAD 1100

IROUTINE
4436

714

1912

1114

697
698
599
700
701
702
703

CHECK BIT 5

INTST’
CLA CLL

684

090

0136

682

695

PAGE

14340

1071

683

689

1-AUG-77

V1420

681

688

P1010

CHECK BIT

STATUS

[ALL

ONES

EXCEPT BIT

1900
1201
1702
1703
1704
1705
1?06
1707

4436

7300
1377
4431
0376
1375
7640

1716

1217
1220
1921
1722

7640
4451
4440

1213
1214
1?15

INTST
CLA CLL
TAD (7775
6065
LQRS
AND 12

4430

5212
4451
7300
1376
4431
4430
0376

1210
1211
1712

TST41,

TAD

(7776

SZA
JMP

00A

ILQAD
IREAD
ITEST

STATUS
STATUS
BIT

ISKIP

BIT

SET

.+2

STATER
CLA ¢LL
TAD (2

IBIT

NOT

AFTER

QQEARED

IALL ZEROS EXCEPT
ILOAD STATUS
IPEAD STATUS
ITEST BIT 10

BIT

L005
LQRS
AND (2
TAD (7776.
SZA 900
STATER
ENDTST

1375

ISKIP IF BIT 10
IBIT 10 NOT SET

IRDUTINE

CHECK

BIT

STATUS

IALL

ONES

4436
7300

1375

STATUS

SET

AFTER LOAD

1723
1224
1225

LOAD

‘

TST42.

RESISTER

INTST
CLA CLL
TAD

Q7776

EXCEPT

BIT

STATUS

‘

ILQP-B

PRINTER

757

1226

768
799
770
771
772
773
774
775
779
777
779
779
790
781

1727
1230
1231

1735
1736
1237
1740.
1241
1242
1243
1244

792

1245

1232

1233
1234

DIAGNOSTIC
4431
4430
0374
1373
7640
5235
4451
7300
1374
4431
4430
0374
1373

7142A

LQLS
LQRS
AND

TAD
52A
JMP

{1
(7777
90A
.+2

CLA CLL
TAD £1
LGLS

Leas
AND
TAD

18AUGI77
[LOAD

STATER

(1
(7777

52A CLA
STATER

7640
4451
4440

793
794
795
786

PALIO

14140

PAGE

1-14

999.0035

STATUS

IREAD STATUS
ITEST BIT 11
[SKIP IF 917 11 ~97 CLEAAED
IBIT 11 CLEAAAD ox
/917 11 ~07 CLEARED AFTER LOAD

STATUS

ISET BIT 11
ILUAD STATUS
IREAD STATUS
IMASK BIT 11
ISKIP IF SET
IBIT 11 NOT SET

AFTER

LOAD

STATUS

ENDTST
I

IRDUTINE

CHECK THAT

STATUS

CLEARED

CA?

17797

797

1246
1247

799

1750

799
790
791
792
793
794

1751

1755
1256

6007

795

1257

4430

795
797

1260
1761

7640

799

1262

4451

STATER
CAF
LQRS
AND STMASK
szA CLA
STATER

1963

4440

ENDTST

1252
1253

1254

4436
7340
4431
4430
0076
1372
7640
4451

TST430

CLA CLL CMA
Lens
LQRS
AND STMASK
TAD
92A

0076

(7991

CLA

IAC a
ILDAD
IREAD

7777
STATUS

STATUS
BITS s.a.9,10.11 (ONLY 10 a 11 FOR v7781
IADD TWD‘S CQHPLEMENT
15x19 IF BITS 5;s.9.10,11 ALL SET (ONLY 10 A 11 ON VT78)
IONE on MORE or BITS 579.9710.11 NOT SET
(10 a 11 ON 7773)
ICLEAR STATUS REGXGTEA
IREAD STATUS
ITEST BITS 5.8.9.1o.11 (ONLY 10 a 11 UN VT79)
ISKIP 1? ALL CLEARED
ioma OR MORE 0? BITS 57859710711 NOT CLEARED B! CAF
I
(10 s 11 UN 7773)
IMASK

”

‘

“

799
800

so:
902

903

/0F

904

905
906
907
896
809
970
811

912

TO CHECK THAT INTERRUPT ENABLE (BIT 11)
STATUS REGISTER WILL GENERATE INTERRUPT REQUEST

[ROUTINE

1964
1765

4436

1966

4431

LQLS

1767
1270
1771

4423
4434

uosx

1772

TST44I

7300

INTST
CLA CLL
ISET DUNE FLAG
[SKIP ON DONE FLAG
IDONE FLAG NOT SET

ERROR
ION

6001
7000
6002

N09

7300

CLA

CLL

CLA

107

813

1273
1774

814
815
816

1275
1276
1777

1116
7640
4434

TAD
SZA

818

1300

7300

CDA

819

1301
1102
1303

3116
4423

DCA

821

4434

ERROR

ILQP08

PRINTER

822
823
824
825
826
827
828
829
830
831
832

1304
1305
1306
1307
1310
1111
1312
1313

7300

cLA

6001
7201
4431
7000
6002
7300

ION

CLA

1116

TAD

1314

7650

1315
1316
1317
1320
1321
1322
1123
1124
1125
1326
1327
1330
1331

4434
7300

SNA CLA
ERROR

3116
4430
4423
7410
4434
6001
7000
6002
7300
1116
7440

1332

4434

lNTFLG

ERROR

817

820

833

834
835
836
837
838

839
840
841
842
843
844

PALIO

CbA

V142A

IAC

~09

CLA

DcA

CLL
INTFLG

LQRS

LQSK
sxp

ERROR
ION

N0?
10?

CLA

900

TAD-INTFLG
SZA

EBRDR

1333

2366

1334

5771'

182
JMP

1335
1336
1137
1340
1341

4466

CBACTV

7410

SKP

5347
4467

o+10
MESAGE
ENDLOG

856
857
858
859
860

861
862
863
864
865
866
867

868
869
870
871
872
873
874
875
876

1342
1343

1344
1345
1346

9009:
TSTi

JMP

6125
4467
6137
2365
1365
4470
4465
0371
7650

MESAGE
PASCNT
ISZ PASS
TAD PASS

REGPRT
LAS
AND

1347
1150
1351
1352

5771’

SNA
JMP

1353

4466

CBACTV

1354
1355

7410
7402

HLT

1356
1357
1360

4466

CBACTV

7410
5771‘

SKP
0MP

4467

MESAGE

1351
1362
1763

6000
4445

1364

5363

1365
1366

0000
0000

IDT

FLAG
FLAG

INTERRUPT

STALL

NUT

WITH

FLAG

SET?

SET

1-AUG-77

14:40

1—15

PAGE

999
IBIT 11
INTERRU9T ENABLE
ISET INTERRUPE ENABLE
IWAIT FDR INTERRUPT
-

10F

845

852
853
854
855

ICLEAR
IDDNE
IDONE

LOLS

847
848

851

STATUS

CLL

846

849
850

LOAD

/GET PROGRAM INTERRUPT FLAG
ISKIP IF NO INTERRUPT
IDGNE FLAG CAUSED INTERRUPT
IINTERRUPT ENABLE CLEARED

Cbh
INTFLG

LQSK

DIAGNOSTIC

IINTERRUPT UN
/WAIT FOR INTERRUPT
IINTERRUPT OFF

(400

PROGRAM ANTERRUPT FLAG
ISKIP IF INTERRUPT FLAG §ET
IINTERRUPT
ENABLE FAILED T0
IGET

1571

SKP

TSTI

WAITNG

CTLCHK
JMP

PASS;
LUUPC'

INTERRUPT

IOT

IGET

PROGRAM INTERRUPT FLAG
ISKIP IF CLEAR
IPROGRAM INTERRUPTED WITH puns FLAG
ICLEARED AND INTERRUPT ENABLE SET”
/INCREMENT LOUP COUNTER
ICDNTINUE Logic TESTS

ICHECK

FOR

ISKIP IF
ICONSDLE

ACTIVE CONSOLE
CONSOLE ACTIVE
N07

ACTIVE,

NOT

IPRINT END or PASS MESSAGE
IMESSAGE

ADDRESS

IPRINT PASS COUNT
IINCREMENT PASS COUNT
IGET PASS CUUNT
IPRINT PASS COUNT
IGET SWITCHES”
[TEST 833. HALT AT COMPLETIUN
ISKIP IF sass:
ISR3=0
CONTINUE TEST
ICHECK FOR ACTIVE CONSOLE
ICONSDLE ACTxVE. Do NOT HALT
ICUNSDLE NOT ACTIVE
ICHECK FOR ACTIVE CONSOLE
ISKIP IF CONSQLE IS ACTIVE
ICDNTINUE WITH LOGIC TEST
IPRINT "WAITING” MESSAGE
IMESSAGE POINTER
INAIT FOR CONTROL CHARACTER
'

CLA

CAUSE

ICLEAR INTERBUPT FLAG
[CLEAR DUNE FDAG
lSKIP IF DONE FLAG STILL SET
IDUNE FLAG CLEA8ED
IDONE FLAG NUT CLEARED BY LGRS
'IINTERRUPT UN
IWAIT FDR INTERRUPT
IINTERRUPT or;

0‘1

IPASS COUNT
[LOOP COUNT

PASS

0036

/LQP-8

PRINTER

877
878
879
880
861
882
883

1371

0400

1372
1373
1374

7661
7777
0001
7776
0002
7775

1375

1376
1377

DIAGNOSTIC

PAGE

14:00

1°AUG'77

V142A

1‘16

884

PAGE
I

885

I/0*“fi***flfififi‘*i***§#**§§**#§*§**fififlfiNfififififiiififififiiififlfifififififiNfifi

1400

886

887:
888

/
I

889

Iififi0ii*fiifiN»#***#***%%******#***********fififififlflfifififififlfififififlfifififififi
/
/
IROUTINE TO CHECK INDIVIDUAL BKTS OF DATA BUFFER
IFOR CORRECT CARRIAGE POSITIONING

890
891
892
893

894
895

1400

3777'

896
897
898
899

1401

4433
1375
3124
3231
7305

900
901

902
903
904
905
906
907

1402
1403
1404
1405
1d06
1407
1410
1411
1412
1413

914

1414
1&15
1416
1417
1420
1421
1422
1423

915

1424

916
917
918

1425
1426
1427
1530
1431

908
909

910
911
912
913

919
920
921

/
TST45!

TAD

DCA

gse
CHAR

DCA

90545

CLA

CLL

IAC

RAL

PRINT
PRINT
152 P0545

XCRLF
90945:

4456

4464
4461

1231
7104
3231
1231
7700‘
5213
4440

KBCHK
PRINT
TAD 90345
MDVCR
PRINT
XCRLF
TAD P0345
CLL

P0545

§LA

JMP P0945
ENDTST
JMP TST46

5232
P0345:

923

IROUTINE TO CHECK INDIVIDUAU
IPAPER POSITIONING

930

ILQP-B

PRINTER

931

1437

932

1440

933
934

1441
1442

935

1443

936
937

1444

938
939
940
941
942
943
944

945
946
947

948
949

950
951
952
953
954
955
950
957

958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973

1445
1446
1447
1450
1451
1452
1453
1454
1455
1456
1457
1460
1461
1462
1463

1464
14b5
146b
1467
1470
1471
1472
1473
1474
1475

DEG

0038

BUFFER FOR CORRECT

DATA

TST459

1375

3124.
7001

3256

DIAGNOSTIC

4452
4462
4464

PLP46A,
PLP4SBI

1136

1275
7640
5244
4457

CLO

CODE EUR UNDERLINE
ISAVE IT
[SET BIT 11
ISETUP PAPER MOVEMENT MAGNITUDE
'

V142A

1¢AUG-77

IAC

ISET BIT 1o
ILIFT RIBBON

RAL

IGET

CLA

PLP468
MOVPAR
PRADV

MAGQéI

TAD

MAG46
RAL

SWAIT
STATER
CLA

_7640

CLL

TAD

MAG45

[GET

SZA
JMP

QLA

[SKIP IF ALL BITS TESTED

PLP46A
ENDTST
JMP TST47

LIN46;

LQRE

4451
7300
1256

CHARACTERS

”

MA646
SWAIT
‘STATER

4442

”

CLL
DCA

LENGTH

1-17

LIN46

1256

LINE

PAGE

14840

ISAVE IT
ICLEAR CHARACTER COUNT
xcnacx FOR KEanAaD INTERVENTION
IMOVE CARRIAGE ONE SPACE RIGHT
IPRINT A CHARACTER
IGET CHARACTER COUNT
[NEGATE IT
IADD NUMBER or CHARACTERS PER LINE
ISKIP IF END 0? LINE
INOT END or L1NE, CONTINUE PRINTING
IMOVE PAPER
IPAPER DIRECTION a ADVANCE
IPAPER MOVEMENT MAGNITUDE
IGET PAPER MOVEMENT MAGNLTUDE
IROTATE TO TEST NEXT BIT or DATA BUFFER
ISAVE NEW pAPER MOVEMENT MAGNITUDE
[WAIT FOR READY BITS
IREADY DIT STDTus ERROR
lRESTURE PRINTER
[WAIT FOR READY BITS
IREADY 317 STATUS ERROR

KBCHK'
RSPACE
PRINT
TAD CHRCNT

7104
3256
4442
4451
4432

5243
4440
5276
0000

IASCII

Dabs
TAD (24
DCA LIN46
DCA CHRCNT

CIA
TAD
SZA
JMP

7041

0000
0000

PALlO
CLA

7305
4431

1374
3275
3136

BCDTDT
TAD (137
DCA CHAR
LAC
DCA MAG46

PAPER

MOVEMENT

MAGNITUDE

ICONTINUE PRINTING
ICHECK FOR TEST LOOP
IGO TO NEXT TEST
ISTORAGE AREA FOR LINE

LENGTH

LINE WITH 1/60 INCH SPACING
ACRDss PAGE FOR EACH NEW

ONE

MDVINC

‘

1476
1477
1500
1%01

4433
1373
3124
3332

1502

1334
3333
7305

1803

975

980

1805
1806
1907
1310
1511
1512

981
982
983
984
985

1513
1514
1515
1%16
1517

978
979

4433

IROUTINE T0 PRINT THE LETTER I
IBETWEEN EACH LETTER: CARRIAGE
IPRINT POSITION

1504

977

/
I

974
976

BITS

1432
1433
1434
1435
1436

929

CDUNT

/
/

927
928

PASS

IASCII CODE FOR PERIOD
ISAVE IT
ICDEAR PRINT POSITION COORDLNATE
ISET BIT 10
ILIFT RIBBON
IPRiNT A PERIOD
IOVERPRINT A PERIOD
ISET BIT 11 OF NEW PRINT POSITION
iCARRIAGE RENORN: LINE FEED
ICHECK FOR KEXBOARD XNTERVENTION
IPRINT AT LEFTMOST POSITION
IGET NEW PRINT POSITION
IMOVE CARRIAGE TO NEW PRINT POSITION
IPRINT AT NEW PRINT POSITION
[GO BACK TO LEFTMUST POSTIUN AND LINE FEED
[GET PRINT POSITION
IROTATE LEFT TO TEST NEXT BIT OF DATA BUFFER
[SAVE UPDATED PRINT POSITION
[GET NEW PRINT POSITION
ISKIP IF ALL BITS TESTED
iCONTINUE PR1NTING
ICHECK FOR TEST LOOP
/GO TO NEXT TEST
[STORAGE AREA FOR PRINT POSITION
‘

RAL

sMA

0037

DCA~PUS§5
TAD

D39

TESTS

ICLEAR

PCOUNT

LQLS

4464

0000

DCA

DYNAMIC

BGNTST

4431
4464
2231
4461
4452
4464
1231

BEGINNING

922

924
925
926

,,/"._\\

PALIU

TST47I

TAD

4931

1332
4456
4464
4452

1332
7041

1333
7650
S330
1333

BGNTST
TAD (111
DCA CHAR
DCA LSTART

PLP47Q

PRINT
KBCHK
TAD LSTART
CIA

LEND
QLA

any TsT47A
TAD LEND

CHARACTDR

”1”

ISAVE‘IT

RMOST

DCA LEND
CLA CUD IAC
LDLs
TAD LSTART
MDVCR

TAD
SNA

IGET

RAL

ICLEAR LEFT COORDINATE
[GET RICHTMDST COORDINATE
ISAVE IT
/SET BIT 10

[LIFT RIBBDN
IGET LEFT-COORDINATE
IMOVE CARRIAQD TO NEW
IPR1NT CHARACTER

POSITION
‘

[CHECK FOR KEYBDARD INTERVENTION
IGET LEFT CDDRDINATC
INEGATE IT
IADD RIGHT COORDINATE
ISKIP IF NOT EQUAL
[CHECK FOR TEST LOOP
[GET RIGHT COORDINATE
'

lLQP-B

PRINTER

980

1520
1521
1522

987
988

989
990
991
992
993

1523

1024

1525

4464

2332
2332
7340
1333

1520
1527
1530

3333
S306

994

995
996
997

1831
1532
1033

5772'

998

1534

4440
0000

0000
3044

1002

1015
1010

1017
1018
1019

1020
1021
1022

R0051;

3044

1-18

A030 0039

1/60 INCH TD LINE START POSITIUN
[AC 2 MINUS TWO
ISUBTRACT 1/60 INCH FROM LINE END
IUPDATE LEFT QUORDINATE

IADD

RAL

/CHECK

TEST

FOR

LOOP

IRLGHTMUST COORDINATE

I
I

1%72
1%73
1674
1575
1576
1577

1600
0111
0024

0137
0056

2465
1600

1008
1009
1010
1011
1012
1013
1014

TST47A;
LSIART.
LEND.

PAGE

14100

[MOVE CARRIAGE
[PRINT CHARACTER

,999
1000
1001
1003
1004
1005
1006
1007

MDVCR
PRINT
152 LSTART
132 DSTART
CLA 00L CMA
TAD 08ND
DCA 0500
JMP PLP47
ENDTST
GM? TSTSO

4050

IOAUGu77

V142A

PALlO

DIAGNDsTIC

PAGE
/

IROUTINE

ONE

LINE

EACH

GEARACTER

1500
1501
1502
1503
1504

1505
1506
1507
1510
1511

1512
1513

1023

1514

1024
1025

1515

1510

1026

4433
1377
3124
1370
3132

TSTSO;

DCA
TAD

3245
7305
4431
4452
4404
4454
5231
2115
7000

BGNTST
TAD C40

prso.

IGET FIRST CfiARACTER
ISAVE IT
IGET NUMBER OF LINES

CHAR
1140

(96)

”

DCA LINES
DCA DSWTCH
CLA CLL IAC
L0Ls
KBCHK
PRINT
LINEND
JMP

NESOA

Isz

LINCNT

/SAVE

ICLEAR

CARRIAGE DIRECTION SWITCH
ISET BIT 10
ILIFT PRINTER RIBBON
[CHECK FUR KEYBOARD INIERVEHTION
IPRINT CHARACTER 10 LOCATION CHARRT
/CHECK FUR END OF LINE
/NDT END 0F LINE. CONTINUE PRINTING
[INCREMENT LINE COUNT
/00N'T SKIP IF LINCNT OVERFDDws
”

RAL

NOP

1130

TAD

1017
1520

3222
4457

DCA

.43

1027
1028

1521

0000

lLQP-B

PRINTER

1029
1030
1031

1522

0000

1523

4400

1524

5240

1032

1625
1520
1527
1530

4442
4451
4440

LINE FEED MAGNITUDE
FDR LINE FEED
MOVE DAPER SUBRDUTINE
IDIRECTIQN EQUAL ADVANCE PAPER
[GET

ISAVE
ICALL

MOVpAa

DIAGNOSTIC

PALIO

v142A

1-AUG-77

14140

PAGE

2
SEQ

1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045

1046
1047
1048
1049
1050

1051
1052
1053

0000
LSILIN
JMP 05500

swAIT
STATER
ENDTST
JMP 15151

5775'

IMODIFIED LINE FEED MAGNITUDE
/CHECK FOR LAST LINE T0 PRINT
INOT LAST LINE CONTINUE PRINTING
IWAIT FDR LAST CHARACTER TO BE PRINTED
IONE OR MORE READY BITS NOT READY
/CHECK FOR TEST LOOP
IGD TU NEXT TEST

1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643'
1644

5210

1645
1775
1776
1777

0000
2000
0140
0040

DSWTCH,

2000

PAGE

1245
7650
4462
1245
7040
4463
5210
2124

NESDA,

DSWTCH
CLA

132 CHAR
TAD DszCH
CMA
DCA Dswrca
JMP PLPSO

IGET CARRIAGE DIRECTION/SWITCH
ISKIP IF DIRECTION Is LEFT
IDIRECTION IS RIGHT ONE SPACE
IGET CARRIAGE DIRECTION SWITCH
ISKIP IF DIREQTION Is RIGHT
IDIRECTION :5 LEFT ONE SPACE
ICONTINUE PRINTING
IINCREMENT TD NEXT CHARACTER
{GET CARRIAGE DIRECTION SWITCH
ICDMPLEMENT 1T
/5sz NED szTCa
ICONTINUE PRINTING

ICARRIAGE

TAD
SNA

RSPACE
TAD
52A

DSWTCH

CLA

LSPACE
JMP 90950

00508.

1245
7040

3245
/

1054
1055

DIRECTION

SWITCH

/
ISWIRL

1056
1057
1058
1059
1060

2000
2001

4433

1061
1062
1063

2002
2003
2004

3135

PATTERN

OF ALL

CHARACTERS

AQL/PRINT

POSITIONS

1377
1377

3134

TSTSI.

BGNTST
TAD (40
DCA FSTCHR
TAD
DCA

150
FIRST

IIOF.CHK KYBDISETUP TEST
[GET FIRST CflARACTER
ISAVE IT
[GET FIRST CHARACTER
ISAVE FIR51”CHARACTER or
”

LDDP.INIT MODULE

was:

0040

[LOP-8

PRINTER DIAGNOSTIC

?Ab10

1-AUG-77

V142A

PAGE

14:40

3
SEQ
‘”

1065

2005
2006

1066

2007

1376
3132
7305

1067
1068
1069

2010

4431

2011

1135

2012
2013

3124
4452
4464
4454
5226
2115
7000
4461

1064

1070
1071
1072

2014
2015

1073
1074
1075

2016
2017
2620
2021

1076

1077
1078
1079‘
1080
1081
1082

TAD

OCA LINES
CLA COD IAC
LOLS

PLPSIR:
PhP5130

RAL

TAD.RSTCHR
DCA CHAR
KBCHK
PRINT
LINEND
JMP NESIA
ISZ LINCNT

N0?

2022

4460

2023
2024
2025

5243

XCRLF
LSTLIN
JMP NESiB

4440

ENDTST

5245

JMP

TSTSZ

2025

7300
2124
1375
7041
1124
7650
5237

CLA
Isz
TAD

COL
CHAR

[

2027
2030
2031
2n32
2033

1083
1084
1085
1086

1087
1u88

2034

1089
1090
1091

1092
1093
1094
1095
1096

2035
2n36
2037
2040
2n41
2042

4462
5213
4462
1134

2043
2044

2135

NESIA:

PLpsgb

[INCREMENT 79 NEXT CHARACTER
ICHECK FOR LAST CHARACTER
[FORM Two's CUMPLEMENT
[ADD CURRENT CHARACTER
[SKIP IF NOT LAST CHARACTER
[LAST CHARACTER
[MOVE CARRIAGE TO NEXT PRINT
ICONTIROE RRIDTING
[MOVE CARRIAGE TO NEXT PRINT
[GET FIRST CHARACTER
[SET OR TO BEGIN AGAIN
[CONTINUE PRINTING

ISZ

FSTCHR

[INCREMENT

JMP

PLPSLA

[PRINT

(200

CIA
TAD

CHAR

SNA
JMP

CLA

.+3
RSPACE
PLPSIB

JMP

RSPACE

POSITION
'

POSITION
‘

‘

TAD

3124
5213

DCA
OMP

FIRST
CHAR

1097

NESIB;

5211

NfiXT

LINE

/
/

1100

1101

[ROUTINE TD PRINT FIVE LINES OF CAPITAL
/0VERPRINT AND BI-DIRECTIDNAL PRINTING,
[AND DROP EVERY OTHER CHARACTER

1102

CHARACTER

STQRTING

1098
1099

”M"

WITH
RIBBON

AND

1103
1104

LIFT

1105
1106
1107
1108
1109
1110

/
2045
/

2046
2047
2050

4433
1374
312%
1373

TSTSZI

3132

DGNTST
TAD (115
DCA CHAR
TAD 112

2OS1
2052
2053
2054

1116
1117

2OSO
2057

1118

2060

[LQP-S

PRINTER

1119

2061

4454

LINRNO

1120

ZOO?

S303
2115
7000

JMP
ISZ

2055

3334
4443
7777
7305

PLPSZA:

[SAVE

[CLEAR

PALlO

RIBBON

SWITCH

[THIS LOCATION MAY BE MODIFIED T0
ISET BIT 10
[LIFT RIBBON
[CHECK FOR KEYBOARD INTERVENTION
[PRINT DNE CHARACTER

RAL

PLP52Bn

DIAGNOSTIC

"M"

[SAVE

4431
4452
44b4

ASCII CHARACTER
IT
LINES TO PRINT

[GET

DCA LINES
DCA RIBNSZ
DELAY
7777
CLA CLL IAC

1111
1112
1113
1114
111$

v142A

PAGE

14:40

I-AuO-77

5L0w

DATTTRA
‘

3-1
SEQ
“

1121

2n63

1122

2054
2065
2n66
2067

1123
1124
1125
1126
1127

2n71

1128

2072

1129

2073
2074
2075
2076
2077
2100
2101

1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141

1142
1143
1144
1145
1146

1147
1148
1149

2n70

4443
7777

7300
4431
4452
4464
4454
5316
2115
7000

NESZA

CLA

CONTINUE
OVERFLUWS

[THIS

LOCATION

MAY

COL

MUD3FIED

SLOW

SPEED

[DROP

LOLs

PLPSZD,

LINE

[INCREMENT LINE COUNT
[DUMMY IN CASE LINE COUNT

LIACNT

DELAY
7777

RIBBON
[CHECK FOR KEYBOARD INTERVENTION
[PRINT ONE CflKRACTER
[CHECK FUR END OF LINE
[NOT END OF LINE. CONTINUE
[INCREMENT LINE COUNT
[DUMMY IN CASE LINE COUNT UVERFLDWS
[CHECK FOR LAST LINE 0? TEST
[NOT LAST LINE, CONTINUE
[CHECK FOR TEST LOOP
[GO TO NEXT TEST

KBCHK
PRINT
LINEND
amp nssza
lSZ LINCOT
NOP

LSTLIN
amp NE52C
ENDTST
JMP TsT53

2102

S332
4440
5772'

2103

4462

2104
2105

1334

RSPACE
TAD RIBst

7040

CMA

3334

DcA

1334

TAO Rzausz
SNA CLA
JMP PLpszA
DELAY
7777
LOLs
JMP PLP52O

2106
2107
2110
2111
2112
2113'
2114
2115

NESZA:

[SPACE ONE PRINT POSITION
IGET RIBBON SWITCH
ICOMPLEMENT IT
[SAVE NED RIBBON szTCH
[GET NEW RIBBON SWITCH
[SKIP 1r RIBBON 15 UP
[CONTINUE TITO RIBBON UP

RIGHT
"

’

7650

5253
4443
7777

4431
5257

RIBst

[THIS LOCATION
[LOWER RIBBON
[CONTINUE WITfl

MAY

RIBBON

MODIFIED

SLOW

SPEED

ODOR

SPEED

DOWN

[

2116

4463

1151
1152

2117

1334

2120

2123

7040
3334
1334
7640

2124
2125

5265
4443

2126

7777

2127

7305
4431
5271

1159
1160
1161
1162

[CHECK FOR END OF
[NUT END OF LINE,

NOP

PLPSQCO

4460

1150

1153
1154
1155
1156
1157
1158

0041

[GET NUMBER OF LINES TU PRINT (951
[SAVE IT
[SET BIT 10
[LIFT PRINTER.RIBBON
[GET FIRST CHARACTER
/SAVO IT To BEGIN PATTERN
[CHECK FOR KEYBOARD INTERVENTION
[PRINT CHARACTER IN LOCATION CHARRT
xcazcx FOR COD 0? LINE
[NOT END OF LINE, CONTINUE PRINTING
[INCREMENT LINE COUNT
[DUMMY IF LINE COUNT UVERFLOWS
[EXECUTE CARRIAGE RETURN AND LINE FEED
[CHECK FDR LAST LINE T0 PRINT
[NUT LAST LINE. CONTINUE PRINTING
xcuzcx FOR TEST LOOP
/OO
NEXT TEST

{140

2121
2122

2130
2131

NE52B.

LSPACE
TAD
CMA
OCA
TAD

RIsnsz

RIRN52

[SPACE ONE PRINT POSITION
[GET RIBBON SWITCH
[COMPLEMENT IT
[SAVE NED RIBBON SWITCH
[GET NEW RIBBON SWITCH

szA

CLA

[SKIP

RIBst

RIBBON

DOWN

[CONTINUE WITH RIBBON

JMP PLPSZC
DELAY
7777

LEFT

DOWN

‘

CLA

LQLS
OMP

CLL IAC
PLpszp

RAL

11515 LOCATION
[SET BIT 10‘

MAY

[RAISE RIBBON
[CONTINUE RITH RIBBON

MODIFIED
'

1163

2132

1164.
1165

2133

2134

4461
5253
0000

1106

"$52CI

XCRLF
amp PLPSZA

RIBNSZD

1107

1168
1169
1170
1171
1172

2175

1173

2177

2172
2173
2174

2175

2200
0012
0115
0200
0140
0040

IEXECUTE CARRIAGE RETURN.
[CONTINUE WITR NEXT LINE
[RIBBON szTCO

LINE

FEED

0042

lLQP-B

PRINTER DIAGNOfiTIC

PAL10

V142A

1-AUGW77

14140

PAGE

3!:

PAGE

2200
1174

SEC

0063

SEQ

0044

/
IRODTINE TO OENERATE PAIRS 0F LINES CONSISTINC 0F
IRANDOM CHARACTERS. EACH PAIR OF LINES SHOULD BE

1175
1176

1177
1178
1179
1180
1191
1182

1183
1184
1185

1186
1187
1188
1189
1190
1191

1192
1193
1194
1195
1196
1197

1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209

2200
2201

2202
'2903

2204
2205
2206
2707
2210
2211
2712
2713
2214

2215
2216
2217
2720
2221

2222
2223
2224
2225
2226
2727
2230
2231

2232
2733
2234
2235
2236

1210
1211
1212

2237
2240
2241

1213

2242
2243

1214
1215
1216

1217
1218
1219
1220
1221

1222
1223

2904

2245
2246

2747
2250

2251
2752

[LOP-8

PRINTER

1239

2264
2265
2766
2767
2270
2271
2272
2073
2274

1245
1246
1247
1248
1249
1250
1251
1252

1255
1256

DCA RANz
SAVGEN

KBCHK

RLRSSA,

0652
4472
3124

RANDOM
DCA DEAR
TAD CHAR

1124
0372

AND
TAD

SPA
’

@177
€600
CLA

’

LINENO
0ND NESIA

RESCEN
XCRLF
ROCHE

RANDOM
DCA CHAR
TAD CHAR
AND @177
TAD (-40
EPA CLA

3124
1124
0372
1371
7710
5227
4464
4454
5253
4461
4461
2115
4460
5211
4440
5255

PLP53B
PRINT
LINEND
JMP

GM?

INASK ASCII BITS
IIS IT A PRINTING CHARACTER CODE?
ISKIR IF IES
ICET A NEN CODE
IPRINT THE CHARACTER
ICHECK FOR END 0? LINE
INOVE THE CARRIAGE
IRESTORE THE RRIMES
IDO A CR AND LF
ICHECK.ROR OPERATOR INTERVENTION
IGET A RANDOM CHARACTER
ISAVE IT
IGET IT
INASK ASCII BITS
.I15 IT A PRINTING CHARACTER CODE
ISKIP IF YES

PLpsaA
PRINT

PLP53B,

‘

”

IGET CHARACTER

JNR

4474
4461
4452
4672

IGET A
IPRINT

NEN

RANDOM

NUMBER

THE CHARACTER
ICHECR FDR END 0? LINE
INOVE CARRIAGE
IDO A CR AND L?

03536

XCRLF

”

XCRLE
162 LINCNT
LSTLIN
ORR

COUNT
FDR LAST LINE T0 PRINT
NEXT PAIR OF RANDOM LINES
FDR TEST LOOP

IINCREMENT‘L1NE

PLPsaA~1

ICHECK
ISTART

ENDTST
JMP TSTS4

ICHECK
IOO TO NEXT

RSRACE

ISPACE CARRIAGE

TEST

4462
5212

NE53A.

JMP

“

PLysaA

4462

NE538.

5227

RSPACE
JMD PLP538

ISRACE

PALIO

1-AUG—77

CARRIAGE
”

DIAGNOSTIC

VIAZA

RAGE

16:40

3-3

2763

1240
1241
1242
1243
1244

1374
3773‘
0673

lNDN-PRINTING CHARACTER CODES TEST
ISHOULD PRINT CHARACTER AT HOME POSITION
IPRINT WHEEL IN ALL CASES

1238

1236

LOLS
TAD $1234‘
DCA RANT
TAD £5670

3775’

1371
7710
5212
4464
4454
5251

I26 PAIRS or RANDOM CHARACTER LINES
ISAVE NUNRER 0F LINES TO PRINT
ISET SIT 10
ILIFT RIBBON
IGET PRIME
ISAVE IT
IOET SECOND PRIME
ISAVE IT
ISAVE PRINES
ICHECK FOR OPERATOR INTERVENTION
IGENERATE A RANDOM CHARACTER
ISAVE IT

RAL

1237

1235

2755
2256
2757
2260
2761
2762

1234

ECNTST
TAD £30
DCA LINES
CLA 900 IAC

TSTSI.

2753
2254

1233

0033
1377
3132
7305
4431
1376

1224
1225
1226
1227

1228
1229
1230
1231
1232

”

IIDENTICAL

BCNTST
CLA CLL
DCA CHAR
IAC HAL
LDLS
TAD £12
DCA LINES

TST549

4433
7300
3124

7005
4431

1370
3132
4452
4464
4454

2115
7000

XCRLF
LSTLIN
ON? PLP54
ENDTST

0040

2777
2300
2301
2302
2303
2304
2305

7300
2124
1124
0366

"‘

IND

4461

5767'

TEST

ILIFT RIBBON
/10 LINES TO PRINT
ISAVE IT
ICHECK FDR OPERATOR INTERVENTION
IPRINT CHARACTER
ICHECK FOR END 0? LINE
IGET READY FOR NEXT CHARACTER
IINCREMENT LINE COUNT

NO?

4460
5264

2776

FDR

KSCRK
PRINT
LINEND
0MP NESAA
162 LINCNT

PLP54p

5277

2275

IINIT

ICLEAR CHARACTER CODE
ISET BIT 10

0ND

TSTSS

'CLA

CLL
CHAR

SKIP
IDO A CR AND LR
ICHECK FOR LAST LINE
ISTART NEXT LINE
ICHECK FOR TEST LOOP
IGO'TD NEXT TEST
.

NESAA,

ISZ
TAD CHAR
AND

IINCRENENT CHARACTER‘CODE
IGET CHARACTER
INASK TO NONkpRINTING CODE

(37

3124

DCA CHAR

4462

RSPACE

5264

JMP

PLP54

CHARACTER
ISRACE CARRIAGE RIGHT
ICONTINOE TEST

ISAVE

I
I

2366
2367

2370
2371
2372
2373

2374
2375
2376
2377

0037
2400
0012
7740
0177
4145
5610
4144
1234
0030
2400

PAGE
I
I

IROUTINE
I

2400

1278
1279
1281

2401
2402
2403
2404
2405

2406

4433
1377
3132
7005
4431
1376
3124

TSTSS.

PLRSS.

BGNTST
TAD 912
DCA LINES
IAC HAL
LOLS
TAD g101
DCA CHAR

”ACAI"

FDR

RAPID

WHEEL
_

IINIT FDR TEST
I10 LINES TO RRINT
ISAVE IT
ISET SIT 10
ILIFT RIBBON
ICODE FOR ”A”

ISAVE

CHARACTER

VISRATION
.

ILQPDS

PRINTER

1282
1283
1284

2407
2410
2411
2412
2413
2414
2415
2416
2417
2420
2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434
2435
2436

1285
1286

1287
1288
1289
1290
1291

1292
1293

1294
1295
1296
1297
1298
1299
1300
1301
1302
1303

1304
1305
1306
1307
1308
1309
1310
1311

1312
1313
1314
1315

1316
1317
1318

1319‘
1320

1321
1322
1323.
1324
1325
1326
1327
1328

2437
2440
2441
2442
2443
2444
2445
2446
2447
2450

DIAGNOSTIC

7410

SKP'

5251
4462
7300

JNP ELINSS
RSRACE

4464
4454

PRINT
LINEND

7410

SKP
amp

5251

1353
1354
1355

1356
1357

1358
1359

2460

/2461

2115
7000

2462
2463
2404

5773'

2465

0000

PRINTER

0046

INTERVENTION

“A"

(72

ELINSS
PDRss

ISZ
MOP

LINCNT

LINE
DTNE

IGET CODE FOR "3”
[SAVE 1T
[CHECK FOR OPERATOR INTERVENTION
[PRINT THE "1"
/CHECK FCR END 0? LINE
ISKIP IF NOT END OF LINE
KSET UP FOR NEXT LINE
ISPACE CARRIAGE
[CONTINUE THIS LINE

CHAR

amp

NOT END
FOR NEAT

CARRIACE

ELINSSU

IINCREMENT LTNE COUNT
IND SKIP
IDO A CR AND L?
ICHECK EUR LAST LINE
ICONTTNUE TEST
[CHECK EUR TEST LOOP
IRRTNT PASS COUNT MESSAGE
IMESSAGE POINTER
/INCRENENT PASS COUNT
IGET PASS couNT
IPRINT PASS CQUNT
ILDDP 0N PRINTER TESTS
'

MESAGE
PASCNT
ISZ PCDUNT
PCUUNT

TAD

REGPRT
JMP TST45+1

PCOUNT,

/PASS

CDUNT

PALIO

V142A

1-AUG’77

PAGE

14:40

3'5

IPRINT LINE IN LENGTH TRE OPERATOR MAY ALSO INITIATE THE
IPRINTING SEQUENCE BY TYPING CARRIAGE RETURN, WHEN ANT
ICHARACTER IS TYPED ON THE OPERATOR S CONSOLE. THE n0 PRINTING
IWILL CEASE UNTIL A CARRLAGE RETURN IS TYPED OR THE LINE LENGTH
IIS

REACHED,

2466
2467

4433

2470

3011
3353

2471
2472
2473
2474

2475
2476
.2477
2500
2901
2502
2903

2504

2521
2922
2523
2924

2525
2926
2927
2530

2531
2532
2533
2934

2535
2R3b

2537
2940
2641

2542
2543

1390

2544
2945

1391

2946

TST56!

1372

3411

CLR56A,

2353
1131
7041
1353

LQPSSA.

TAD

SZA

CLRSSB,

1372
3011
7305

1353

7640

CLA
CLRSSA

CNTSSE
(BUFF‘l
INDX11

IGET

115
CLA

DCA

XCRLF

LOPSEBo

TAD

DCA
KSF
SKP
JMP

CHAR

TAD
CIA
TAD
szA

CNTSSE

INDX11

TSTsa
PRINT
ISZ CNTssB

CNTESA
CLA

NEGATED CHARACTER
IWAS IT CARRIAGE RETURN?
[SKIP IF 1E5
ISKTP 1E NO
160 SET UP EUR L0 PRINTING
IGET NEGATED CHARACTER
IMAKE IT POSITIVE
ISAVE IT IN BUFFER
/INCRENENT LOCATTON COUNTER
[GET LINE LENGTH
INEGATE 1T
IADD LOCATION COUNTER
ISKIP 1E EQUAL
ICONTINUE STORING CHARACTERS
ICLEAR CHARACTER DUMP COUNTER
IGET ADDRESS OF CHARACTER BUFFER
ISET UP ADDRESS POINTER
ISET BIT 1o
”

CNT56B

TAD (BUFF-l
DCA 1N0x11
CLA CLL IAC
LQLS

4431
4461

2354
1354
7041

“

SKP
JMP CLRSSB
TAD KBSAV
CIA
DCA I INDX11
ISZ CNTEGA
TAU LINE
CIA
TAD CNTssA
SZA CLA
JMP LOPSSA

1353
7640

4464

CNTSSA

0MP 0’1
KBCHK
CLA CLL
TAD KBSAV

7041

1411
3124
6031
7410
5266

LINE

TAD
SZA

TAD
DCA
KS?

IGET ADDRESS OE CHARACTER BUFFER
ISET UP ADDRESS DOINTER'
ICLEAR LOCATION COUNTER
ICLEAR A CHARACTER BUFFER LOCATION
IINCREMENT LOCATION COUNTER
ICET LTNE LENGTN
iNEGATE 1T
I1NCRENENT LOCATION CUUNTER
ISKIP 1E EQUAL
/CONTTNUE CLEARING BUFFER
[CLEAR LOCATION'COUNTER
IGET ADDRESS 0? CHARACTER BUFFER
/SET UP ADDRESS POINTER
IWAIT FOR OPERATOR INTERVENTION

CNTSSA

TAD
CIA

JMP
DCA

1137

5304
3354

BGNTST
TAD (BUFF'1
DCA 1NDx11
UCA CNTSéA
DCA 3 1N0311
ISZ

7640
5272
3353
1372
3011
6031
5304
4452
7300

2353
1131

1389

IF
UP

[SPACE

RSPACE

DIAGNOSTIC

2920

1383
1384
1385
1386
1387
1388

THE

TO ONE LQ PRINT LINE OF CHARACTERS FROM
IDPERATOR'S TERMINAL AND SEND THEM OUT REPEATEDLY TC L0 PRINTER,
iTHE PRINTING OF THESE CHARACTERS WIEL BEGIN AUTOMATICALLY IF
ITHE NUMBER OF CHAPACTERE INPUT BY THE OPERATOR EQUALS ONE

1137
7041
3411

1382

ISET

PRINT
LINEND

/
IROUTINE

2515
2916
2517

1376

ISKIP

ELINSS

KBCHK

SKP
JMP

"A"

ICHECK EDA END OF LINE

REPACE
CLA CLL
TAD
DCA

EUR

‘

IPRINT

SKP

JMP

CODE

ISAVE IT
ICHECK FOR OPERATOR

1366

1375

SEC

CARRIAGE

1371
7640
7410
5326

A1377
1378
1379
1380
1381

[GET

ENDTST

2911
2512
2513
2914

1373
1374

TAD

4440
4467
6137
2265
1265
4470

1362
1363
1364
1365

1371
1372

0065

IGET CODE EUR "C”
ISAVE 1T
ICRECK TOR OPERATOR INTERVENTIUN
IPRINT "C"
ICHECK TOR END OF EINE
lsKIP IF NET END OE EINE
ISET up EUR NEXT LINE
lSPACE CARRTAGE

DCA
KBCHK
PRINT
LINEND

XCRLF
LSTLIN
JMP PLPSS

2505
2506
2507
2910

1370

ISPACE

CLL
giol
CHAR

4461,
4460
5205

1360
1361

1367
1368
1369

NEC

"A”

2451
2452
2453
2454
2455
2456
2457

1340

1352

RACE 3~4

TNTERVENTION

‘

RSRACE
CLA

1337
1338
1339

1344
1345
1346
1347
1348
1349
1350
1351

“

END OE LINE
xsxxp 1E NET END OE LINE
[SET UP FOR NEXT LINE

EL1N55

4462

7300
1376
'3124
4452
4464
4454
7410
5251
4462
7300
1374
3124
4452
4464
4454
7410
5251
4462
5205

1334
1335
1336

1341
1342
1343

14:40

EUR OPERATOR

ICEECN RCA

CLA CLL
TAD 1103
DCA CNAR
ACCRA

4452

1-AUG-77
iCHECK
IPRINT

1375
3124

1329

lLQP-B

IV142A

KBCHK
PRINT
LINEND

1330

1331
1332
1333

PALIO

4452
4464
4054

”

RAD

ILIET RIBBON
IEXECUTE CARRIAGE

RETURN, LINE FEED ON no
BUFFER

IGET A CHARACTER FROM
/SET UP FOR L0 PRINT
/TEST KETEDARU FLAG
ISKIP IF NOT SET

[BEGIN AGAIN
IPRINT ON L0
IINCREMENT

CHARACTER BUM? COUNTER

lLQP-S

1392
1393
1394

2547

7010

2850

1395
1396
1397

2552
2653

5320
4062
5334
0000
0000

1398

2651

2654

1416
1417

1418
1419
1420

1421

2557
DISC
2561
2562
2563
2564
2665
2666

2567

4437

1435
1436
1437

2573
2074
2675

2576
2677

1456
1457
1458

1459
1460
1461
1462
1463

1464
1465
1466
1467
1468
1469
1470

1471
1472

1473
1474
1475
1476
1477
1478
1479

CLA CLL
LOLS

JMP

5350

RAL

‘

{SET BIT 10
/L1FT RIBBON
[DELAY

ILOWER

RIRSDN

/CHECK

FDR

TSTS7+1

ILOOP ON

OPERATOR

INTERVENTION

TEST

0015

0777
7401
0072
0103
0101
0012
PAGE
TD PRINT A 10 SI 10 DOT MATRIX
INDTE: THIS IS A TEST OF THE FRICTION FEED MECHANISM
[AND THEREFORE TMS PAPER IN THE L0 PRINTER MUST
xsa FED FROM THE MACK OF THE PRINTER AND THE
[TRACTOR FEED MECMANISM MUST BE REMOVED

[ROUTINE

2603
2604

4433
7305
4431
1377
3776'

2605
2506

1375
3774'

2607

1373
3320

2600
2601
2602

2610

2612
2613
2614
2615
2616

2617
2620

TSTSU,

SSNTST
CLL

CLA

IAC

TAD

@1234

DCA

RAN1

TAD

(5670

DCA
TAD
DOA

RANz

CNTSDA
NUNSUA
NUMSDB
LINSDA

DCA
DCA
OCA
DCA

1373»
3325

TAD

(«144

DCA

DDTCNT

CDLOOA

1372

TAD

(«12

3327

DCA

CNTSDU

RAL10

v142A

1371
3010

5223

DCA 100x10
DCA I INDx10
152 CNTeoA
JMP .-2

2626

1370

TAD

IBUFFI-I

2627
2630

3010
1372
3326

DCA
TAO
DCA
DCA
152

INDMIO

2631

2632
2633
2634
2635
2636
2637
2640
2641
2642
2643

2644
2645
2646
2647
2650
2651
2652
2653
2654
2655
2656
2657
2660
2661
2662

3410
2326

3410

LRSDB.

2330
1330

IAD

2320
5232
7300
1331
1307

I INDXIO
NUM60A
NUM60A

CLL

TAD
TAD

NUMSOB

RANDOM NUMBER

IPREPARE

[CLEAR
/CLEAR

AREA

ICLEAR
/CLEAR

NORK

AREA

NORA

AREA

IPREPARE

/CET

ICONTINUE
IGET

g~12
CNTSDA
NUM6OA

TAD

NUMSDB

152
JMP

CNT6OB
LPODB
RANDOM

0300

AND

(177

3314
1314
1373
7700
5253
1314

DCA
TAD

RANADI

TAD

(-144
OLA
Lpeoc

TAD

1320
3321
1322

3-7

SE0

COUNTER
BUFFER

ADDRESS

’

.TAD

1317
7041

PAGE

ICONTINUE LuADING BUFFER

TAD
DCA

DCA

MATRIX

1372
3326
1330
1331
2327
5232
4472

3323

DOT

ICALCULATE NEXT NUMBER
[INCREMENT COUNTER

ICLEAR

2567

:00

[PREPARE T0 LOAD SECOND BUFFER
ILOAD A BUFFER LOCATION
IINCREMENT NUMBER TO LOAD

ISAVE

1484
1485
1486
1487
1483
1489

CLEARING

SECOND

{CALCULATE

TAD

BUFFER

14:40

IINCREMENT

(100

DCA

LDC

ADDRESS
/SAVE IT FOR CLEARING
ICLEAR A UUFFER LOCATION

NUMSDB

1365

100

BUFFER

NUMSOA

JMP
TAD
TAD

1-AUG-77

DCA

SMA

PRIME

AREA

DCA

LRSoC.

CLEAR

NORA
WORK

3331
3330

3315
1715
7640
5253
2715
1314
1364
3316
1716
0363
7002
3320
1715
0362

2705
2706
2707

CNT60A

CLA

2663

2666

RANDOM NUMBER PRIME

IRESTDRE

(-12

NUMSDS
152 CNTSDA
JMP LRSDD

,2664

2665

ISUFF-I

TAD

1331

IRESTORE

3330
333:
3317
3322

DIAGNOSTIC

ISET BIT 10
ILIFT RIBBON

IoIAA

TAD

2621
2622
2623
2624
2625

RAL

LOLS

1480

1500

IAC

DELAY
7777
CLA CLL
LOLS
DRLAI
7777
KRCMK

1481
1482
1483

1490
1491
1492
1493
1494
1495
1496
1497
1498
1499

LOWER RISDON

PRINTER

1455

AND

lLQP-S

1453
1454

RAISE

2671
2672

2611

1449
1450
1451
1452

SGNTST

TST57,

1438
1439
1440
1441
1442
1443
1444
1445

1446
1447
1448

POSITION TO THE RIGHT
ICONTINUE PRINTING ON CURRENT LINE
ISTDRAGE FDR'SUFFER LOCATION COUNTER

4043
7777
4452

1426
1427

1434

000 0047

ISPACE ONE

7305
4431
4443
7777
7300
4431

2000

1433

CLRSSD

RSRACS
LORASB

CNTSSA.
CNTSSB.

3-6

PAGE

14340

ISKIF IF NOT EQUAL
/START NEXT LINE

2555
CRUD

1422
1423
1424
1425

1420
1429
1430
1431
1432

JMP

l'AUG'77

V142A

1400

1408
1409
1410
1411
1412
1413
1414
1415

SAP

JMP

IROUTINE

1399
1401
1402
1403
1404
1405
1406
1407

PAL10

PRINTER DIAGNOSTIC

ISET
IGET
/ADD

NUMBER

INCRRMENTAL COUNTER

UP COUNTER FOR
COLUMN COUNTER

L00?

COUNTER
/INCREMRNT LOOP COUNTER
LINE

/CONTINUR LOADING BUFFER
IGET A RANDOM NUMBER
IMASK T0 7 B1T5
ISAVE IT

RANA01
ITEST FOR BUFFER ADDRESS
ISKIP IF WITHIN BUFFER
/GET A NEW RANDOM NUMBER

RANADI

ISUFF'
RANA02
I RANA02

IGET

ADDRESS

RANDOM

USED

INDICATOR

ISKIP IF TRIS LOCATION NOT USED

SZA
JMP
Isz
TAD
TAD

OLA
LFSDC

DCA
TAD

IGET LINE AND COLUMN INFORMATION
IMASK FIRST 6 BITS
ISMAF INTO OTHER BYTE
ISAVE LINE 7
0-11
[GET LINE AND COLUMN INFORMATION

AND

TAD
AND

NEW

ADDRESS

RANA02
RANADI

IREMEMBER THIS LOCATION

(RUFFI

ICALCULATE ADDRESS

RANA03

/SAVU

RANA03

@7700

BSW

DCA

”

IGET

LINsoB
I RANAD3
(77

§OL608

[GET

IMASK
ISAVE

USED

RANDOM-NUMBER
IN

SECOND

SECOND
COLUMN

BITS

0-11

LINSDA
'

CIA
TAD

DCA
TAD

LINSDU
LINSOC

COLSDA

BUFFER

INEGATE IT
IADD NON LIN;

NUMBER

ISAVE RELATIVE LINE NUMSER
IGET OLD COLUMN NUMBER

oer

iLQPUS

PRINTER

1501

2710
2711
2712

1502
1503
1504

1505
1506
1507
1508
1509

2713

JMP

V142A

1*AU5777

COLsOO

ISRVE

COLOOC
CALOO

PAGE

14100

INEGATE IT
lADD NEW COLUMN

RELATIVE

3-8

§30

0009

§EO

0090

NUMBER
COLUMN NUMBER

2714
2715
2716

2717
2720
2721
2722
2723
2724

1517
1518
1519

2726
2727
2730
2731

2725

0000

RANADII

0000

0000
0000

RANADQy
fiANAD3p
LINODAa
LINGOBI
LINOOCO
CULOOA:
COLOGB:
COLGOCU
DUTCHT;

0000

CNTOOAC

0000

CNT6OBp
NUMSOA,
NUMOQB,

0000
0000
0000

0000
0000

0000

1523

1524

2761

1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537

2702

1538

PADIO
CIA
TAD
DCA

7041
1323
3324
§
5761
I

1510
1511
1512
1513
1514
1515
1516

1520
1521
1522

DIAGNOCTIC

/RANOON ADDRESS WORK AREA 01
IRANDOM AOORNss WORK AREA #2
IRANOOM ADDRESS NORK AREA 03
ILINE NUMBER WORK AREA #1
[LINE NUMBER NORR AREA 02
IDINE NUMBER WORK AREA #3
ICOLUMN NUMBER NORN AREA 11
ICUOUNN NUMBER WORN AREA 02
/COLUMN NUMBER WORK AREA 73
1007 MATRIX COUNTER
/COUNOOR #1
ICUUNTER 12
INUMBER WORK AREA 01
INUMBER WORK AREA 12

CCOCOCOCQCO

”

2763
2704
2705

2766
2707

2770
2771
2772
2773
2774
2775
2776
2777
PAGE

1539
1540
1541
1542

1543
1544

1545
1546

1547’
1548
1549
1550

1551
1552
1553

/
I

CALGO,

3000
3001

JMP
SPA
JMF

FEEDA:

3006
3007
3010

OININ

INCREMENTS OF ONE INCH
IINCREMENT NUMBER OF INCHES
ICONTINUE INCREMENTING
[SAVE PAPER MOVEMENT MAGNITUDE
/SAVE PAPER MOVEMENT DIRECTION
IGO TO CObUMNMCALCULATE ROUTINE
/CLEAR PAPER MOVEMENT MAGNITUDE

COOCAO

MAGOOA

5276

1556

3017
3020
3021
3022
3023

3777'
1312
2777'

3024

3025
3020
3027
3030
3031

PETA,

PALlo

V142A

JMP CDLCAL
DCA LINOOC
TAD LININ'
ISZ LINSOC
«

5220

JMP

3256
7313
3255

DCA MAGéOA
CLA CLL IAC
DCA DIRGOA
TAD COLBOC
SNA
JMP ZMOVEB

1776'

COLCAL,

7450
5293

5245

3033
3034

7041

..2

SPA

7510

3032

RMOVEB,

3770'

JMP

LMUVEB

CIA
DCA

CULGOC

TAD
ISZ

COLGOC

3035
3036

2776'

1572
1574
1575
1576

3037
3040
3091
3042
3043

1577
3579

3044
3045

5235
3261
3260
5254
3261
5254

1579

3046

1580
1391

3047

2776'

DCA QULOOC
TAD CULIN—
ISZ CULSOC

3050.

5240

JMP

0‘2

1592

3051
3052
3053

3261
7313
3260

DCA
CLA
DCA

COL

1573

1593
1584
1585
1586

1587
1599
1599
1590
1591
1592
1593
1594
1595

1596

1597
1599
1599
1600
1601
1602
1603
1601
1605

3776'

JMP

ZMOVEB.

DCA
DCA
JMP
DCA
JMP

LMDVEB,

1313

1-AOGa77
IGD

14:40

RACO

COLUMN CALCULATE

3-9

ROUTINE

IADD INCREMENTS OF INCHES
IINCREMENT INCH COUNTER
i/CONTINUE ADDING INCHES
ISAVE PAPER MOVEMENT MAGNITUDE
RTR ISET BIT 0
ISAVE PAPER MOVEMENT DIRECTION
IGET RELATIVO COLUMN POSITION
ISKIP IF NEGATIVE OR POSITIVE
ICU T0 ZERO CARRIAGE MOVEMENT ROUTINE
ISKIP IF POSITIVE
100 T0 CARRIAGE LEFT ROUTINE
'

COLIN

1570
1571

1313

IADD

LINOOC
DIRGOA

DIAGNOSTIC

TAD
ISZ
JMP

UCA

3016

POSITIVEaNEGATE

ISAVE

DCA

ZNOVEA,

UIN6OC

JMP

PRINTER

1566
1567
1568
1569

INUMBER

DCA

OCA

1555

1565

RETA

CIA

3014

lLQPvB

1561
1562
15b3
1564

IGET RELATIVE LINE NUMBER
ISKIP IF NEGATIVE OR POSITIVE
/GO TO MOVE ZERO ROUTINE
ISKIP I? ROSIIIVE

ZMOVEA

9‘2
MAGGOA

3015

1560

LINSOC

3011
3012
3013

1554

1557
1550
1569

TAD
SNA

3002
“3003
3004
3005

1000 INCREMENT OF ONE INCR
IINCREMENT INCH COUNTER
ICONTINUE AOOINC INCHES
/SAVE CARRIAOO MOVEMENT MAGNITUDE
ISAVE CARRIAGE MOVEMENT OIRECIION=RICHT
IGO MOVE PAPER AND CARRIAGE
/ZERO CARRIAGE NOVEMONI‘
IGD MOVE PAPER

0'2
MAGGOB
DIROOB

”

MOVbO
MAGéOB
MUV60

MAGOOB
IAC

INCREMENT OF ONE INCH
[INCREMENT INCH COUNTER
ICONTINUE ADDING INCHES
ISAVE CARRIAGE MOVEMENT MAGNITUDE
ISET BIT ZERO FOR LEFT DIRECTION
IADD

RTR

DIPéOB

3054
3055
3056

3057
3060
3061
3062
3063
3060
3065
3066

3067
3070
3071
3072
3073
3074
3075
3076
3077

1606

3100

1607
1608
1609

3101
3102

MOVbOI
DIROOA;

MOVPAR

0000
4455

MAGOOA,

0000

DIROOB,

0000
4452
7300

MAGbOB:

4457
0000

1775'
3774'

1773'
3772'
1311
7650
5276

1775'
1773'
1371
1370
3124
4469
2767'
5766'

lMOVE PAPER
[PAPER DIRECTION
IPAPER MOVEMENT MAGNITUDE

MOVCAR

[MOVE CARRIAGE
ICARRIAGE DIRECTION

[CARRIAGE MOVEMENT MAGNITUDE
ICHECK FOR OPERATOR INTERVENTION

KBCHK
CLA COL
TAD LINOOO
DCA LINOOA
TAD théoB
DCA COL6oA
TAD CSWTCH
SNA QLA‘
JMP .04
TAD 010603
“

TAD
TAD
TAD

COLBOB

IGET NEU LINE NUMBER
ISAVE IT As OLD LINE NUMBER
IGET NEU COLUNN NUMBER
ISAVE IT As DOD COLUMN NUMBER
IGET CHARACTER PRINT swlrcu
IONIP”IF NOT ZERO
'

IPRINT A DOT MATRIX
IGET
1000

NEW
NEW

LINE NUMBER
COLUMN NUMBER

1301u56
156
'

DCA CHAR

/5AVE CHARACTER T0 PRINT
IPRINT CHARACTER AT CURRENT COURDINATES
IINCREMENT CORRRCTOR COUNT
IGET NEXT CHARACTER COORDINATE
'

ISZ
JMP

DOTCNT

LPBOC

3103

4457

MOVPAR

[MOVE

PAPER

‘

lLQP-B

PRINTER

1610

3100

1611
1612
1613
1614

3105
3106

3107
3110

DIAGNOfiTIC

PALlO

0000
1100
4442
4451
5705'

V142A

1'AUG'77

PAGE

14840

3-10

1100

I6 INCHES
INAIT FOR READY
IAOL READT BITE
ILOOR ON TEST‘

SNAIT
STATER
35260

ONP

5E0

0051

5E0

0052

5175

NOT UP

1615
1616

1617
1618
1619

I
.3111

3112

3113

7777
0100
0170

CERTCH.
LININ.
COLIN.

7777
0140
0170

ICHARACTER

oooonDUTs

STITCH

XXXIRADPHABETICAL

1620

1621

1622
1623
1624
1625
1626

1627
1628
1629
1630

IROUTINE
IUNTIL A

SEND

CONTINOUE RESTORE
IE TYPED ET

OUT

CONTROL

QHARACTER

SIGNALS
OPERATOR

3114
3115
3116

4432
4452

RESTLP,

5314

DORE
KOCNK
JMP

IRESTORE PRINTER
ICHECK POR OPERATOR INTERVENTION
ICONTINUE SENOING RESTORE

.oz

1632

I
I
I

1633

IROUTINE

1634
1635

I
I

1636
1637
1638
1639
1640
1641

ITYPE ANY KET ON UPERATOR’S TERMINAL TO CHANGE POSITION
IUF RIREON (UP OR DONN), TTPE A CONTROL CHARACTER TU
IEXIT FROM THIS ROUTINE.

1631

1642
1643
1644
1645
1646

3123
3124

3126
3127

1650
1651
1662
1653

3130

1658
1659
1660

1661
1662
1663

1664

ILQP-B

3131
3132

7305

RIRRON,

4431
6030
0031
5322
4452
7300
4431
0031
5327
4452
5317

K8?
JMP

3165
3166
3107

2600
2053
2725

3170
3171
317'
317
3174
3175
3176
3177

0056
0223
2722

MECHANISM

ISET BIT 10
IRAIGE RIBBON
ICDEAR KEYBUARD
FOR

FLAG

KEIBOARD

ICHECK FOR CONTROL CHARACTER
IDONER RIBBON

.-1

KBCHK

RIBBON

IRAIT FUR KEIBOARD ELAG
ICRECK FOR CONTROL CRARACTER
IGO RAISE RIDRON AGAIN

2723
2717

2720
2724
2721

PRINTER DIAGNOSTIC

PALIO

v142A

1-AuG-77

14:40

3-11

PAGE

PAGE
I
I

1668
1669
1670
1671

ld-flfiri-l32fifiifiiibfiflflififil’fiiiifiififiiifitbflfiiflfifi‘l‘bifiiifiiWithin!“
I
OEGINNING 0F SURROUTINEE
I
I

1672
1673
1674

lifi“26326373266316*!”-iii-ii{##3##*§*§*****§&***iivl’ifivivfiffiifiiiti
I

1675

I
ILQPB

IOT

SURROUTINES

ITHIs

ROUTINE

NILE

SKIP THE

INSTRUCTION

DONE

FLAG

SET

3200
3201

3202
3203
3204

0000
5500
5500
2200
5000

LOSKRT.

IOT0,

XLOSK
JMP
152
JMP

DUSKRT

UOSKRT
I
LQSKRT

ISKIP

/DID

NOT

DONE FLAG
SKIP: GO TO
ISKIP SUCCESSFUL
INORMAL RETURN

ERROR

ROUTINE
‘

I
[THIS

ROUTINE

WILL

READ

THE CONTENTS OR

THE

DATA

BUFFER

INTO

I
0000

1691

3705
3206
3207
3210

1692
1693
1694

3211
3212
3213

3122

1690

RAL

INAIT

JMP

1667

1689

RIBBON

.~1

CLA 96L
DOLE
AGE
JMP

1666

1686
1687
1688

IAC

KECHK

1684
1685

CbL

KCF

1665

1683

CDA

3200

1676
1677
1678
1679
1680
1681
1682

LOWER

3117
3120
3121
3122

3125

1657

‘

1648
1649

1655
1656

RAISE

1647

1654

6501

LORERT,
IOTI,

XLCRB

IREAD DATA

SKP

7410
4430
1122
5605

RUEFER

ERROR
DCA SAVDAT
TAD SAVDAT
0MP I
LQRBRT

IREAD DATA

SKIPPED
ISAVE DATA EOEFER'
IGET DATA BUFFER
INORMAL RETURN
_

1695

1696
1697

ITHIs ROUTINE

1698
1699
1700
1701
1702

1703
1704
1705
1706

1707
1708
1709
1710

1711
1712
1713
1714
1715
1716
1717
1718

WILD

ADVANCE

OR RETRACT

THE

PAPER

AND

EXIT

WITH

CLEARED

3214
3215
3216

3217
3220
3221
3222

0000

LOMPRT.

3123
3123
6502
5614
4434

1022.

SAVPR
TAD SAVPR
XLQMP
JMP I DOMPRT
ERROR
JMP I
LUNPRT
DCA

5614

[SAVE PAPER MOTION MAGNITUDE
IGET MAGNITUOE
INOVE PAPER
INURMAL RETURN
INOVE PAPER §KIPPED
IERROR RETURN‘

ITHIS
I

3223

0000

3224
3225
3226
3227
3230
3231

3120
1120
6503
5623
4434
5623

ROUTINE WILD MOVE

LOMCRT,

IOT3.

TAD SAVMV
XLGMC
JMP 1
LONCRT

DCA

SAVMV

DEFT

OR RIGHT

AND

EXIT
I

WITH Ac

CLR

ISAvE

ERROR
OUR

THE CARRIAGE

DOMCRT

MOVE MAGNITUDE
IGET MAGNITUDE'

IMOVE CARRIAGE
INORMAL RETURN
INOVE CARRIAGE
IERROR RETURN'

SKIPPED

I
I
I

ITHIs

ROUTINE WILD

PRINT THE

CHARACTER

BITS

4e10

AND EXIT

WITH AC

CLR

[LOP-8

PRINTER

PALIG

DIAGNOSTIC

v142A

1~AUG-77

14:40

PAGE 3-12
SSS

ODDS

1719
1720
1721

1722
1723
1724
1725
1726
1727
1728

3745

1735
1736
1737

1741
1742
1743
1744
1745
1740
1747

Dooo

1752

1753
1754

1755
1756
1757
1758
1759
1760
1701
1762
1763
1764
1765

1766
1767
3768
1709

UMP

DQPCRT
LORCRT

CHARACTER

[NORMAL RETURN
/PR1NT TOT SKARRSD
IERRDR RETURN‘

READ

NILL

LDRSRT,
IOTS,

THE

STATUS

INTO

XLQRS

/READ

STATUS

7410
4434

SK?
ERROR

IREAD

STATUS SKIPRED

3114

USA
TAD
JMP

6505

SVSTAT
SUSTAT
LORSRT
I

ISAVE STATUS
ISET STATUS
INDRMAL RETURN

ROUTINE

/TRIS

3747
3950
3251
3952

3753
3754
3955
3756
3257

LOADS

STATUS

3246

‘

1114
5637

0000

LOLSRT,

SEND

DCA

SVSTAT

ISAVE

1114

TAD

SYSTAT
(117

IGET

AND

3114

6506
5545
4434
SSAS

FROM

0377
3117
1114

1748

1749
1750
1751

/RRANT

XLURC
JMP A
ERROR

5632
4434
5632

1734

1740

ITHIS ROUTINE

1733

1738
1739

LORCRT.
IOTS;

3237
3240
3241
'3742
3743
3?44

1729
1730
1731
1732

0000
6504

3232
3233
3734
3?35
3236

ASTAT
SVSTAT
XLDLS
DCA

/GET

TAD

IOTé,

/
ITHIS

STATUS

STATUS TO SEND

IMASK BITS 550,9,1o.11
ISAVE EXPECTED STATUS

JMP I
SRROR
JMP 1

LDLSRT

RDUTINE

RESTORES

LDLSRT

STATUS

(READ,NRITS OATS)
'

“

SEND

ILDAD STATUS REGISTER
INORNAL RETURN
ILDAD STATUS SKIPPED
/ERRUR RETURN“

CARRIAGE

HOME

POSITION

3760
3761
3702
3R63
3954

0000

LURERT,

6507
SSSU
4434
5660

IOT7,

XLQRE
JMP A
ERROR
JMP I

LDRERT
LURERT

IRSSTDRD CARRIAGE
INORMAL RETURN
/RESTORE SKIPPED
IERRDR RETURN

ROME

POSITION

IRGUTINE TO LOAD DATA BUTTER
iCALL IS LOADDS FOLLOWED BY IDT 2,3:UR A
IRETURNS TO CALL RLUS TNO IR DATA ERROR, CALL PLUS THREE 1? DATA OR
lNUTE: ON THE VTTS. DATA READ FROM DATA BUFFER IS THE CDMRLEMENT OF DATA

32D5

0000

3200

3077
1077

3967

3770
'3771
3972

7041
3311

3273

327s

3974

1077
0000
7440
4434

1770
1771
1772

3275
3270

1773

3777

ILQPnS

PRINTER

1774
1775
1770
1777
1778
1779
1780

3100

DDLOAD.

DCA
TAD

v780N1,

IRDUTINE TD LOAD AND
ISAVE NUMBER TO LOAD

SVAC
SVAC

CIA/NDP

XCTI:

XCT1

TAD

SVAC

SZA
ERROR

DIAGNOSTIC

PALIO

IVT7B/

DSLDAD

TAD
DCA

WRITTEN

BUFFER

DATA

DCA,COM91

1665

CHECK

vT42A

CREATE COMPLEMENT TO CHECK ANSWER:
ISAVE CDMRLINENT
/GET IOT CALL INSTRUCTION
ISIORS IOT FUR EXECUTION
IGET NUMBER TO LOAD IN DATA BUFFER
INODIFIED JMS TD IOT SUSROUTINE
/SK1R 1F AC_CLEARED
IAC NOT CLEARED B! IDT

1-AUG-77

PAGE

14:40

NOP

VT78

3-13
SEQ

1781
1782
1783

3101

3302
3303
3304

4424
7000
3122
1122

3106
3307
3310

1311
7450
2265
2205
5665

3111

0000

3305

1784
1785
i786

V780w2,

LORD
NOR/IAC
DCA SAVDAT

IVT78/ IAC
ISAVE DATA

BUFFER

FO§ VT78

SAVDAT

/OET

TAD

CDNR1

IADD UNE'S COMPLINENT OR EXPECTED DATA
lSKIP IF DATA READ NOT EQUAL TO DATA EXPECTED
IBUMP RETURN ADDRESS POINTER IF UR
IBUMP RETURN ADDRESS

SNA

DATA

“'

152
152
AND

CUMPio

DSLOAD
DSLOAU
A DDLDAD

1
/

/ROUT1NE

1787

CHECK

READY BITS

3312

0000

1789
1790
1791

3313

1792

3716

4430
3114
1114
0376

LORs
DCA STSTAT
TAD SVSTAT
AND (40

1793
1794

3317
3320
3321
3322
3323

7540
4451
1114
0375

SZA

1796
1797
1798
1799
1800
1301
1802
1803
1804
1805

DATA

TAD

1788

1795

“

IREAD

3314
3115

CHKRDY.

IREAD

STATUS IDTS
/SAVE STATUS
IGET STATUS
ITEST FDR CHECK ERROR

QLA

ISKIP

STATER

CRECK

ICHECK CONDITION

ERROR
ON LO PRINTER

5712

TAD
AND

SVSTAT

GM?

(7400

CUKRDT

IMASK BITS
/RETURN

0.1.2.3

IROUTINE

INITIALIZS

LORD

MODULE FOR

STATIC

TESTS

0000

TSTIN,

1807
1808

1809

ICALLED

KBCHK

4452
6002
5007
4432
3117
4445
7440

1806

ICHECK

BY
FOR

"INTST"

OPERATOR INTERVENTION
'

‘

10F

CAF
DORE
DCA XSTAT

ICLEAR

IVT78/

ALL
CAR

FLAGS

IN VT7S DOES NOT ACTIVATE RESTORE
/SAVE EXPECTED STATUS
ICHECK READY BITS FOR CLEAR CONDITION
'

RDYCUK

’

SZA

ISKIP'IR ALL CLEAR

STATER
CLA CLL CMA
TAD TSTIN
DCA TSTLDP
DCA TNTFLG

IDNE OR MORE READY BITS SET
ISUBTRACT ONE‘FRDN JMS FOR TST LOOP
/GET TEST LOOP ADDRESS
/SAVE TEST LOOP ADDRESS
ICLEAR SORTNARE INTERRURT FLAG

1810

1811
1812

4451
7340

1813
1814
1615

1324
3350
3116
5724

1816

JMP

1817

1818

1819
1820

IRUUTINE
I

1821

1822
1823
1824
1825
1826

3342
3143
3344
3345
3346
3347

7006
7700
5742
5750

3350

oooo

0000
4465

TSTEND.

TSTIN
D

INITIATE TEST LOORING

LAS
RTL

[CHECK swxrcfi
IFOR SIT

SMA
JMP

QLA

JMP

ISKIP
TSTEND
TSTLOP

2 a
YES

TSTLOR.
/

ICONTINUE T0 NEXT TEST
ILDDP UN CURRENT TEST
‘

1827
1828

‘7

STRDSE

0054

[LOP-8
1829
1830
1831
1832
1833
1834
1835
1836
1837

1838
1839
1840

1841
1842

PAL10

PRINTER DIAGNOSTIC

IROUTIME
I

7142A

1~AUG~77

PAGE

14140

3-11

580

0055

580

0055

PERFORM RESTORE OPERATION
.

‘

3951

0000

3352

6002
7300
3140
4432
1375
3133
$442
4451
7300

ID?
CLA 900
DCA SAvas
LQRE

SSA

DDS

5751

009

3953
3154
3955

3356
3957
3980
3361
3382
3303

RESTOR;

TAD

POINTER

ICLEAR POSITION
IRESTQRE

17400

DCA WSTAT
SWAIT

ISAVE

STATER

IALL

IWAIT

WANTED STATU§
FOR ALL READY
READY BITS NOT

SET

BITS
UP

RESTOR

1843
1844
1845
1846

3375
3376
3377

7400
0040
0117
3400

1887
1898
1819
1850
1851

IROUTINE TO SET UP TEST, INITIALIZE MODULE
ISET 0? SCOPE LOOPS
[CALLED BY BGNTST FOLLOWED BY 0 IF SUBTEST
IFGLLDWED BY SUBTEST LOOP ADDRESS
I
'

1852

1853
1854

0000

1867

3400
3401
3402
3403
3404
3405
3406
3407
3410
3411
3412
3413
3414
3415‘

1868

3416

1869
1870
1871
1872

3417
3120

3227
2200

3421
3322

6007
4432
4442

1855
1856
1857
1858
1859
1860
1861

1852
1853
1864

1855
1855

1873

1874
1875
1876
1877
1878

PAGE
I

3423
3424
3125
3426
3427

TSTBGN,

ID?

7340
1200

CLA CLL CMA
TAD TSTBGN
DCA TSTLOP
DCA INTFLG
KBCHK
DCA LINCNT
DCA CHRCNT
DCA SAVPDS
TAD I TSTBGN
SZA CDA
JMP INIT
Isz TSTBGN
TAD I TSTBGN

3116
4452
3115
3136
3140
1600
7840
5221
2200
1500

DCA

4451

'4461
5600
0000

XCRLF

1881

1882

3130

ILQP-B

PRINTS?

1883

3431
3432
3433
3434
3435
3436
3437
3440
3441
3442

1889
1890
1391

1892
1893
1894

1995
1896
1897
1898

1999
1900
1901
1902

1903
1904
1905
1905

1907
1909
1909
1910
1911
1912

1913
1914

1915
1915

1917
1918
1919

0000

1777'
3256

PALlO

V142A

TSTLOP

LAS

SPA
amp

ERDI

CLA CLL CMA
TAD ERRDAT
HLT
CLA CLL

3444
3445
3446
3447
3450
3451
3452
3453
3454
3455

1077
7402

TAD
HLT
CLA
TAD
HLT

3456

0000
4465

3443

7300
1122
7402

ERDII

SVAC

RETURN

AND

LINE

V178

FEED
'

SAVDAT

CLA

5656
5630

amp
JMP

I
1

7004

100021
ERRDAT

PAGE

14840

3-15

ACTIVE

ICONSULE

ICONSOLE N07 ACTIVE, GET
ISKIP IF BIT 0:0
IGD CHECK FOR ERROR L00?

SWITCHES

IGET

FAILING
IN

IERROR PC
IGET

AC
AT

PC
AC

TIME

ERROR

gun

LAS
RAL
SPA

4965

1-AUG-77

IGET TEST Loop ADDRESS
ISAVE 1T
ICHECK FOR ACTIVE CONSOLE

IAC

7710

ERROR
IN

DATA READ BACK
IDATA READ BACK IN Ac
IGET

IGET SWITCHES
IRDTATE FDR BIT 1
ISKIP Ir BIT 1:0
ILODP ON TEST
ICUNTINUE TEST

CHECK

3457
3460
3461
3462
3463

3664
3465
3466
3467
3470
3471
3472
3473

TLUOPIJ
DATPRTI

0376
7640
5304
4467
4467

4470
4467
6103

1935
1935
1937

3515
3516

LAS
AND

1200

82A
JMP

CLA
ERDZ

RCEDD

6024
7340
1230

4470
4467
6107
7300
1122
4470
4465
7710
5251
4467
6000
6030
6031
5312

MESAGE
LDATER
MESAGE

6071

3476
3477
3300
3501
3502
3303
3504
3505
3506
3507
3510
3511
3512
3513
3314

1931

IEXECUIE A CARRIAGE
/GO TO TEST

HANDLER

7340
1230
7902
7300

1077

1933

TSTBGN

DCA 100091
CBACTV
0MP DATPRT

5257
4465
7510
5251

7300

1925
1925
1927
1928
1929
1930
1931
1932

STROBE

TAD

4456

3475

1924

‘

ERROR

ERRDAT,

DIAGNOSTIC

'3474

1920
1921
1922
1923

I
IDATA
I

1997
1888

IINTERRUPT OFF
ISUBTRACT one FROM JMS FOR 1551 LOOP
IGET TEST L00? ADDRESS
ISAVE 7551 LOG? ADDRESS
ICLEAR SOFTWARE PROGRAM INT FLAG
ICHECK FOR OPERATOR INTERVENTION
[CLEAR LINE CUUNTER
ICLEAR CHARACTER COUNTER
ICDEAR POSITION POINTER
/CHECK FOR SUBTEST LOOP
IIS THERE A SUBTEST LOOP
IND, INIT MODULE
IBUMP 005 TU L00? ADDRESS
IGET L00? ADDsts
ISAVE IT FOR SCOPE LOOPING
xaunp ans TO RETURN ADDRESS
ICLEAR ALL FLAGS
IVT78/ CAF DOES NOT ACTIVATE RESTORE
waIT FOR ALA READY BITS
IPRINTER ~01 READY

JMP

ERRLOP,

1879

1886

ERRLOP

ISZ TSTBGN
CAF
Lena
SWAIT
STATER

INIT,

1880

1884
1885

6002

3777'

LOOP

IGET FAILING

MESAGE

IPRINT

SENT

IMESSAGE

MESAGE
Rcvo
CLA CLL
TAD SAVDAT
REGPRT
DAS
SPA CDA
'

JMP

ERD1

ERROR

ISKIP IF BIT 430
ISO TU WAIT ROUTINE
IPRINT DATA ERROR MESSAGE
IMESSAGE POINTER
IPRINT PC: MESSAGE
IMESSAGE POINTER

CLA CLL CMA
TAD ERRDAT
REGPRT

CLA CLL
TAD SVAc
REGPRT

ERD2I

IGET SWITCHES
IMASK BIT 4' INHIBIT

IPRINT FAILING PC
SENT

MESSAGE

POINTER

IGET DATA SENT
IPRINT DATA SENT
IPRINT RECEIVED MESSAGE
IMESSAGE POINTER
IGET DATA READ SACK
lPRINT DATA READ BACK

[GET SWITCHES”
ISKIP IF BIT 0:0
[60 CHECK FOR 1251 LOOP

7300

MESAGE
WAITNG
KCF
KSF
JMP .-1
CLA CLL

IPRINT WAITING-MESSAGE
IMESSAGE POINTER
ICLEAR KYBD FLAG
ITEST KYBD FLAG
Icnmrxuus WAITING

6034
0375

KRS

IREAD

AND

”

ERD3I

(177

MESSAGE

IMASK

KEYBOARD BUFFER,
TD 7 BITS

NOT

CLEAR FLAG
'

lLGP-8

PRINTER

1938

3517

1939

3320

1940
-1941

3‘21
3322

1942
1943

3023

1944
1945
1946
1947
1948
1949

DIAGNOSTIC

7771

3675

0177
0200
3350
3600

3576
3R77

0000
3077

3602

1957
1958
1959
1960

3603
3604
3605

3102
6004

3600

4406

1961

3607
3610
3611
3612
3613
3614
3615
3616
3617
3620
3621

5236
4465
7710
5225
1102
7421
1103
6005
7340

3622
3623

7300

1970
3971
1972
1973
1974

1975

ERRORS,

3103

3624

SRA

1200
7402
1077
7402
7300
1777‘
3235

TAD

ERRURS

HLT
CLA

COO

TAD

SVAC

HLT
CLA

CLL

TAD

TSILOR

DCA
LAS
RAL

TLDOPZ

4405
7004

7710

SPA

OLA

5635

JMP

I
I

1983

0000

ILOOR2.

1984

3636

4465

GRRRRT,

3985

3637
3640
3641

0376
7040

1991

3642
3543
3644
3645

leP-B

PRINTER

1992
1994

3646
3647
3650

1995

3651

1996
1997

3652
3653
3654
3655

i993

1998
1999
2000
2001
2002
2003
2004

3656

2005

3663
3664
3665
3666
3667

2006

2007
2008
2009
2010
2011
2012
2013
2014

2015
2016
2017

2018
2019
2020

2021
2022
2023
2024
2025
2026
2027
2028

3657
3660
3661
3662

3670
3671
3672
3573
3674
3675
3676
3677
3700
3701
3702
3703
3704

JMP

5600

5265
4407
bizs
4467
6024

DIAGNOSTIC

7340
1200
4470
4467

4465

ERRsz.

SVAc

AND

TAD
52A
JMP

OLA

’

I177
(-7
OLA

NOT

IRANOLE CTRL-G
IGD CHECK ROR ERROR LOOP

ERRSl

/
/

3774
3775
3776
3777

7771
0177
0200

3350
PAGE
I

IINTERRUPT

SERVICG

ROUTINE

/
4000

4001

4002
4003
4004
4005
4006

4447
6102
5224
7501
3213

INISVG,

SAVRAG
SRO
OMR

MOA
DOA MD
TAD

OCA
TAD
DCA

4011
4012

3214
1212
3000
7402
5403

4013

0000

4007
4010

ISAVE Ac
[SKIP ON

FLAGS

1000

STRTIN.
MO,

HLT
JMP
0

3-17

ERROR
’

IREAD KYBD BUFFER.
IMASK TD 7 BITS
ICHECK FDR GIRL-G
ISKIP IF CTRL-G

ERR83
KRCRK

JMP

PAGE

14:40

NAITNG
KCF
KSF
JMP .wI
OLA COL

1374

TYPEDUT

IGET RAILING PC
IPRINT RAILING PC
IPRINT AC: MESSAGE
/MESSAGE POINTER
IGRI AC AT TIME OF ERROR
IPRINT CONTENTS OF Ac AT TIME OF
{PRINT M0: MESSAGE
xMESSAGG POINTER
IGET MO AT TIME OR ERROR
IPRINT NO AT TIME OF ERROR
[PRINT FL: MGSSAGE
IMRSSAGR POINTER
IGET FLAGS
IPRINT FLAGS
[GET SWITCHES
[SKIP IF BIT use
/GO CHECK FOR ERROR LOOP
[PRINT WAITING MESSAGE
[MESSAGE PDINTER
ICLEAR KYBD RLAG
ITEST KISD FLAG
ICDNTINUE WAITING FOR KYBD FLAG

LAS

0375

/
I

2043
2044
2045

1-AUG-77

V142A

KRS

2030
2031
2032
2033
2034
2035
2036

2042

0058

1:0

RAL10

ERR51
MESAGE

7640
5272
4452
522s

SIT

CHECK

BIT

ADDRESS

IGET SWITCHES
ITEST BIT 4
ISKIP 1F BIT 4:0
IBIT 4:1. INHiBIT ERROR
[PRINT ERROR MESSAGE
IMESSAGE PUINTER
IPRINT PC: MESSAGE
IMESSAGE POINTER

LAS

SPA
JMP

RRRsa.

ERROR

OF ERROR

(200
52A CLA
JMP ERRSZ
NRSAGE
FAIL
MESAGE
PCEQL

MESAGE
00000
TAD SAVMO
REGPRT
NESAGG
FLEQL
TAD SAVRLG
REGPRT

5273
7300
6034

4000

2040
2041

ISKIP

TIME

IAD

0000

6030
6031

IRUTATE

REGPRT

7710
5225
4467

TIME

TLOOpz
ERRORS

MESAGE
ACEQL

1077
4470
4467
6035
1102
4470
4467
6042
1103
4470

/GSI TEST LOOP
/SAVE IT
iGET SWITCHES

OLA COL CMA
TAD ERRORS
REGPRT

SO30

1007

AND

2029

2037
2038
2039

SRO

[GET RAILING PC
IRAILING PC IN Ac

IAC

3633
3634
3635

ERRSI.

ACTIVE

/SKIP IR BIT an
IGO CHECK ROR ERROR LOOP
IGET NO
IRESTURE M0
IGET FLAGS
iRESTDRE FLAGS

OLA

JMP ERRS:
TAD SAVMQ
MQL
IAO SAVFLG
RIF
OLA CLO DNA

3632

1990

AG
IGET MO
ISAVE IT
IGET IRE FLAGS
/SAVE THEM
ICHECK RUR ACTIVE CONSOLE
/GO TO PRINT ROUTINE
IGET SwITCREs; CONSOLE NOT

DAR

1981
1982

1988
1989

0°57

/SAVE

‘

1980

1986
1987

RRR

SSA SVAC
MQA
OCA SAVMO
GTF
DCA SAVRLG
CBACTV
OUR ERRPRT

1979

1978

PAGg 3-16

ROUTINE
BY ERROR

3625
3626
3627
3630
3631

1976
1977

14840

PAGE

ICALLED

7501

1968
1969

1'AUG-77

ICHECK FOR CDNTROLnG
ISKIP IF CONTROL-G
ICONTINUE WAITlNG FOR CONTROLRG
IHANDLE A CONTROL-G
/GU CHECK FDR ERROR LOOP

ERDS
KBCHK
GM? SRDI

IERRUR

1956

1965
1906
1967

SZA
amp

v142A

g-7
OLA

3955

1954

TAD

3674

3600
3601

1962
1963

PALIO

/
/

1950

1951
1952
1953
1954

1374
7640
5311
4452
5251

AND

LINK

POWER Low
LOW CHECK FLAGS

INOT POWER
100! MG
ISAVE IT
IGET PC
ISAVE IT

STRTIN

[GET RESIARI

ISAVE IT

lHALT
IGD T0 RESTART ROUTINE
[MG STORAGE AREA

ADORsa

INSTRUCTION

”

CLEAR FLAG
‘

ILQPHB

2046
2047
2048
2049
2050
2051

4014

2052

4022
4023

2053
2054
2055
2055
2057
2050
2050
2050
2051
2052

0000

4015

1213

4016

7421

4017

1777'
3223

4020

402L

4450
5023
0000

PC:
RESTRT0

4025
4026

4027
4030
4031
4032

4452
4423

RESADD,
FLAGS:

TSTLDP
RESADD

RESADD

KBCHK

ICHEGK FUR KEYBOARD INTERVENTION
ITEST L0 FLAG
IND L0 FLAG
IAC87777
[SET SUFTWARE INTERRUPT FLAG
IRESTURE AC ANC LINK
IRETURN TU PROGRAM
'

LQSK
JMP 5+3

5231
7340
3115

900 CMA
101500
552200
JMP ; LOCO

050
DCA

4450
5400

2057

IRUUTINE

2068
2059
2070

IIN

LOCATION

[RETURN CALL
IBIT
/

2071

2079

4033
4034
4035
4036
4037
4040
4041
4042

2080

4043

3115
1133
1375
3117

2081
2082
2083
2084
2085
2086
2087
2088
2089
2090

4044

4445

4045
4046

4051
4052
4053
4054
4055

2091

4056

’2092

4057

0133
7440
5255
2261
5244
2262
5244
5633
7300
4450
2233

2093
2094
2095
2096

4060
4061
4062

4047

4050

0000

AWAIT:

WALT FOR INDIVIDUAL REAQY BITS;
WSTAT
+1 IF STATUS ERRUR' CALL +2 I?

SET

3261

MASK

STORED

ISAVE

AC AND 0105
ICLEAR 152 0000050
724 LOOPSv
1552 up LOOP COUNTER
ICLEAR INTERRUPT FLAG
IGET WANTED 510005
IADD PRINTER READY AND 210500 up
ISAVE IT
1022 READY 512 STATUS
12552 WANTED STATUS BITS
[SKIP IF ~02 READY
15x11 2200 WAIT LOOP
IINCREMENT Isz COUNTER
xcumwxqu WAITING
IINCREMENT 0000 COUNTER
ICONTINUE WAITING
7520205 ~00 READY. ERRGR 251020
"

TAD
DCA
DCA
TAD
TAD
DCA

1375
3252

0000

c0000;
102200
WSTAT

14002

WLQUP,

XSTAT
RDYCHK

WATUUTp

$25
JMP WATQUT
152 COUNT
JMP wLUOP
152 COUNTI
GM? WLUUP
JMP I AWAIT
CLA gLL

AND

WSTAT

lRESTORE AC AND LINK
IBUMP RETURN POINTER

251200

5533
0000

1-30

COUNT:
CUUNTI.

182

AWAIT

QM?

AWAIT

0
0

/
/

2099

[ROUTINE TU WAIT FOR
IIN LOCATIUN WSTAT

2100

2101
2102
2103
2104
2105
2106

TEST

APPROPRIATE'READY

SAVEAC
DCA CDUNT

4447

2097
2098

ILGP-B

/
/

2078

050 0059

4024

2077

Da1a

AREA

JMP

2054
2055
2055

2074
2075
2075

TAD
MQL
TAD
DCA

PAGE

14140

IPC STORAGE
IGET MQ
xaasruaa IT

RSTRAC

2053

2072
2073

1-AUG-77

V142A

PALIO

PRINTER DIAGND5TIC

PRINTER

DIAGNOSTIC

PALIO

IRETURN CALL +1
IBITS ARE SET

V142A
IF

READY

ALL

BITS SET,

1~AUG-77

STATUS

ERROR;

TEST

14840

CALL

AND

LINK

MASK

STORED

PAGE

3-19

APPROPRIATE

RgADY

WAITS:

4063

0000

4064
4065

4447
3310

SAVEAC
DCA CUUNTZ

4066
4067
4070
4071
4072
4073
4074

1375'
3311

TAD

ISAVE

ICLEAR Isz COUNTER
124 LOOPS
1357 UP 0009 COUNTER
/
ICLEAR INTERRUPT FLAG
IGET WANTED STATUS
ISAVE IT FOR EXPECTED 570105
/GET READY BIT STATUS
/ADD Two's COMPLEMENT or ALL
ISKIP 12 NOT ALL READY
IEXIT FROM WAIT LOOP
IINCREMENT ISZ COUNTER
ICONTINUE WA1TING
'

2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117

4446

4076

1373
7450
5304

4077

2310

4100

5273

4075

(-30

DCA CUUNT3
DCA INTFLG

3116
1374:
3117

TAD

DCA

SL009,

Q7400

XSTAT

RDYCHK
TAD

£400

SNA

JMP EXIT
ISZ COUNT?
JMP $0009

READY

550

0050

PRINTER

2118
2119
2120
2121

4101

2311

152

4102

5273

4103

5663

4104

7300

amp snoop
amp I WAITS
CLA CLL

EXIT:

PRINTER

2122

4105

4450

RSTRAQ

2123
2124

4106

2263

4107
4110
4111

5663

182
JMP

2125

2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145

0000
0000

2150
2151
2152
2153
2154
2155
2156

WAITS

14:40

PAGE

IRESTDRE AC AND LINK
[BUMP RETURN POINTER
IRETURN, ALL READY BITS

WAITS

0
0

IGENERATE

RANDOM

EXIT

NUMBER.

WITH

NUMBER

4102

4115

0000
7301
1344
1345

4116

7106

4117

3344

4120

1345
7012
1344
3345
1345
5712

4113

4114

4121
4122

4123
4124
4125

XRAND;

ICALL

"RANDOM”
'

CLA

cup

TAD
TAD

CLL
DCA

IAC
RAN1
RAN2

RTL

RANI

TAD

RAN2

RTR

TAD
DCA
TAD

amp

RAN1
RAN2
RAN2

XRAND

I
/

;

ISAVE RANDOM

PRIMES

GENERATOR

4126
4127
4130

4131
4132

4133
4134

0000

xsnvcn,

/CALL

CLA
TAD
DCA
TAD

7200
1344
~3346
1345
3347
5725

DCA
amp
I
IRESTDRE

2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167

COUNT20
COUNT3:

1-AUG077

V142A

/
/
/
/

2146

2147
2148
2149

PAL10

PAGE

14140

RANDOM

RANI
SAVI
RANZ
SAV2
XSAVGN

”SAVGEN”

GENERATOR

PRIMES

4135
4136
4137
4140
4141
4142

7200
1346
3344
1347

4143

5735

0000

XRESGN,

CLA
TAD
DCA
TAD

3345

DCA
JMP
/

2168

4145

1234
5670

2169

4146
4147

0000

RANZ:
SAVi:

0000

SAV2:

4144

2170
2171
2172
2173

4173

2174

4174

2175
2176

4175
4176

RANI,

I
0400
7400
4002

7750

ICALL

1234
5670
0
0

SAVI
RAN1
SAV2
RANZ
I

xasscn

IINCREMENT L00? COUNTER
ICQNTINUE WA1TING
/5717us no: READY; zaaua RETURN

cpu~wa

lLQP-8

DIAGNOSTIC

1‘AUG'77

V142A

PALIO

DIAGNOSTIC

ILQP-B

"nascenn

sag 9951

§Eo
SET

0052

lLQP-B
2177

4177

4200

PAGE
I
IROUTINE

0000

ACSAVE,

4701

3100

4202

7010

4203

3101
5500

4204

IROUTINE
I

2195
2196
2197
2198
2199
2200
2201
2202
2203
2205
2205
2206

4205
4706
4707

AND

LINE

EXIT

NITR

BOTH

AND

0000

ACRSTR.

SAVAC

4710
4215
1716

4717
4720
4721

AND

LINK

CLA
TAD

SAVLNK

7004

RAL
TAD
OUR

SAVAC

1100

5505

0000

CLL

IOET

LINK

IGET

ACRSTR

ERROR

HANDLER

2215

4734

2215
2217
2218
2219
2220

4735
4236
4737

2221

4231

7300
1114
7402
7300

CLA
TAD

’

CLL

CMA

ERSTAT

IGET

CLA
TAD

HLT
CLA
TAD

CLL

ASTAT

IGET EXPECTED STATUS
IEXPECTED STATUS IN AC

CLL
SVSTAT

IGET ACTUAL STATUS
IACTUAL STATUS IN AC

HLT

CLA

EAST.

CLL

TAD

TSTLOP

DCA

TLODP3’

LAS

4455
7004

RAL
SPA

7710

4740
4741

5542

JMP

5513

JMP

4242

0000

TLOOP3.

FAILING~PC
PC IN Ac

IFAILING

HLT

1777'
3242

2222

INFU
ICONSOLE NOT ACTIVE. GET SNITCRES
ISKIP 1F SIT 050. ERROR HALT
IGO CHECK FOR ERROR LOOP

CLA
JNP SRS1

7340

1213

ICHECK FOR ACTIVE CONSOLE
ICONSOLE IS ACTIVE, GO PRINT

LAS
SPA

5232

7402
7300
1117
7402

CBACTV
JMP STPRNT

4455

4222

4226

ERSTAT,

5243
4455
7710

4723

4732
4733

OLA
I
I

TLOOP3
ERSTAT

IGET TEST LOOP ADDRESS
IT
IGET SWITCHES
IROTATE FUR BIT 1 CHECK
[SKIP IF BIT 1:0
ILDOP ON TEST
ICONTINUE TEST
ISAVE

2225

4243
4244
4245

2226

4746

2227

4747

2228
2229
2230

4750

ILOP-B

PRINTER

2231

4953

4251
4252

4754
4755

4455
0375
7540
5755

4455

4767
4770
4271

7710
5232

AND

@200

szA
050

CLA

V142A

PALIO
CLA

7300
1213

4266

4764

IGET SWITCHES
ITEST BIT 4. INHIBIT ERRROR
ISKIP IF SIT 400
IGO CHECK FOR ERROR HALT
IPRINT A MESSAGE
ISTATUS ERROR MESSAGE

LAS

ERS2
NESAGE
LSTERR
MESAGE
PCEGL

DIAGNOSTIC

4765

4262
4263

STPRNT,

4457
5005
4457
5024

4470
4457
5054
1117
4470
4457
5052
1114
4470

4256
4757
4260
4761

CLL

1-AUG-77

14:40

TIPEOUT

PAGE

5-2

CMA

ERSTAT
REGPRT
NESAGE
EXPECT
TAD

TAD

IPRINT

FAILING

IEXPECTED
IGET EXPECTED

XSTAT

STATUS

REGPRT
MESAGE
ACTUAL
TAD SVSTAT
REGPRT

IPRINT

LAS

IGET SWITCHES
ISKIP IF BIT 0:0, ERROR HALT
IGO CHECK FDR ERROR LOOP
IPRINT WAITING!I MESSAGE

IACTUAL STATUS
IGET ACTUAL STATUS
IPRINT IT

5000

2248

4273

2249
2250
2251
2252

4774
4775

5030
5031
5274
7300
5034
0375
1374
7540
5273
4452
5232

4776
4277

2254

4300
4301

2255

4302

2255
2257

4303
4304
4305

2250
2251
2252
2253
2254

ERST,

SPA
OUR

NAITNG
KCF
K5?
JMP
CLA
KRS

ERsa.

IMESSAGE POINTER
ICLEAR KYBD FLAG
ITEST KYBD FLAG
INAIT FUR OPERATOR

.-1

INTERVENTION

§LL
IREAD

KYBD,

NOT

CLEAR

[MASK TO 7 BITS
ITEST FOR cTRL-G
ISKIP IR CTRLsG

AND-(177
TAD («7
SZA OLA
JMP ERsa

FLAG

ICONTINUE WAITING FOR CTRL-G
IHANDLE CTRL-G
IGO CHECK FOR ERROR LOOP

KBCHK
ERS1

JMP
I
I

IROUTINE

FOR

CRECR

ACTIVE

CONSOLE

I
0000

2255
2255

4307

7300

4310

2257

4311

2255
2259

4312
4313

2270
2271
2272
2273
2274
2275
2275

4314
4115

1022
0373
7540
5705
2305
5705

ACTVCS,

o
CLA
TAD
AND

szA
JMP
ISz
JMP

CLL

0P25EL
‘

1400
OLA
I ACTVCS
ACTVCB
I

ACTVCR

IGET HARDWARE CONFIGURATION WORD TwO
IMASK SIT 3
ISKIP IF NoN ACTIVE CONSOLE
IRETURN CALL +1 FDR ACTIVE CONSOLE
/BUMP RETURN POINTER
IRETURN CALL +2 FOR NON ACTIVE CONSOLE
'

INOVE

PAPER

ROUTINE

\/
IROROOSSSSNNSSSSOROOR

2277
2275
2279

2250
2281
2282

2234
2255

ERSl

4306

2233

90A

MESAGE

4457

4772

2255
2259

0064

'ACSAVE

RESTORE

4727
4730

2253

§EQ

LINK CLEARED

ISAVE AC
IGET LINK
ISAVE LINK

SAVLNK

7300
1101

ISTATUS
4713

2210
2211
2212
2213
2214

2245
2247

0055

4224
4725

2233
2234

SAVE

SEQ

’

4210
4211
4212

2207
2208
2209

2223
2224

JMP
I

2194

5-1

PAGE

DOA
RAR
DCA

2187
2188
2189
2190

2193

14140

4200

2186

2191
2192

1-AUG-77

V142A

3350

2178
2179
2180

2181
2182
2183
2184
2185

PAL10

PRINTER DIAGNOSTIC

CALLED 811

I
I

MOVPAR

PRADV‘

IPAPER DIRECTION

xxxx

IPAPER MOVEMENT NAGNITUDE
.

I§i*&***i§*#**§****§*
I

4316
4317
4320

0000

7300

1373

PARNOV,

CLA
TAD

OLD
£0400

IPAPER READY BIT 3.

PRINTER

READ! BIT 0

ILQP¢8

PRINTER

2286
2287

4121

PADIO

DIAGNOSTIC

l-AUG-77

V142A

PAGE

14:10

5-3
GOG

0055

”'"

2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301

2302
2303
2304

4322
4323
4224

4325
4326
4127

4330
4331
4332

3133
1716
2316

DCA
TAD

WSTAT
I PARMDV

152

PARNUV

1710

TAD

4441
4451
4435

WAIT

2320
2321
2322

DQMP
DATERR
182 PARMOV

/MUVE
IDATA
[BUMP

RARMOV

’

STATER

4425
4437

2316

4133

JD?

5716

PARNOV

I
0400

4373
4774

7771

4175

0177

4376
4177

0200

3350
PAGE
[MOVE CARRIAGE

RDUTINE

I
lirfifi‘ififififi-Qfififl'fifififi-fififlfifi
I

CALLED BY:

MDVCAR

CARLFT

XXXX

/CARRIAGE
ICARRfAGE

DIRECTION
MOVEMENT

MAGNITUDE

I
/¢%***#§§*%***#*W§#*%*
/
4400

0000

4401

7300

4407
4403

1377

4404

4405
1406
4407
4510
4411

CARMDV,

CLA
TAD

CDL

DEA

(1000

ICARRIAGE

3133
1600
3126

WSTAT
I CADMOV

[SAVE

TAD

DCA

CARDIR

1126

TAD

7640
5221
2200

CARDIR
GOA

1600,
3141

DCA

2327
2323
2329

4410
4115

1141

MUVMAG

4416

1140
3140

2330

4417

1141

2331

4420

5232

TAD
TAD
DCA
TAD
JMF

2332
2333

4421

2200
1600
3141

ISZ

CARMOV
I CARMDV
MUVMAG
MDVMAG

4422
4423

READY

BIT

READY

PRINTER

2335
2336
2337
2338
2339

4424
4425
4426
4427

1141
7041

4430

1126

lLQP-B

PRINTER

2340
2341

4431
4432
4433
4434
4435

1141
4441
4451
4435

4436
4437

4437
2200

4440

5600

NOVRGI,

MOVDFT.

TAD
DCA

3140

DIAGNOSTIC

STATUS

IGET CARRIAGE DIRECTION
ISAVE CARRIAGE DIRECTION
IGET CARRIAGE DIRECTION
[SKIP IF MDVE RIGHT
IGU TO CARRIAGE LEFT RDUTINE
IINCREMENT DOINTOR TO MOVE MAGNITUDE

MOVDFT

CARNOV
I CARMDV
MDVMAG

[GET CARRIAGE MOVE MAGNITUDE
ISAVE IT
IGGT IT AGAIN
[ADD CURRENT POSITION
/UPDATE CARRIAGE POSITION POINTER
IGET CARRIAGE MOVE MAGNITUDE
IGU WAIT FOR CARRIAGE ROAD!
'

SAVPOS
SAVPUS
MUVMAG
MVWAIT

llNCREMENT PUINTER
IGET CARRIAGE MOVE
ISAVE

MOVE

MAGNITUDE

ET
IT AGAIN

SAVPDS
SAVPOS
TAD CARDIR

IGET
IFORM NEGATIVE
ISUBTRACT FROM CURRENT POSITION
IUPDATE CARRIAGE POSITION POINTER
[GET CARRIAGE DIRECTION

PALIO

I-AUG—77

TAD

CMA
TAD
DCA

1140

NANTED

BIT

‘

4412
4413

2334

PAPER
ERROR AFTER 101
RETURN FOINTER

$21
GM?
Isz
TAD

2323
2324
2325
2326

”

4400

2305
2300
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319

LOADDR

ISAVE WANTED STATUS. PAPDR READY, BIT 3
IGET DAPRR DIRECTION
[INCREMENT DOINTER TD PDPER MDVE NAGNITUDE
IAOO PAPER MOVEMENT MAGNITUDE
INAII FDR PAPER READY
iPAPER ROADV DID NOT RETURN
ILOAD DATA DUIFOR

IAC

7142A

PAGE

14140

5-4
SEQ
'

2342

2343
2344
2345
2346
2347

4426

2356
2357
2358
2359
2360

2361
2362
2363
2304

2305
2366
2367
2308
2359
2370
2371
2372
2373
2374
2375
237a
2377
2378
2379
2380

2381
2382
2383
2384

2385
2386
2387
2388
2389
2390
2391
2392
2393
2394

132

CARNOV

JMP

CARRIAGE NOVE MAGNITUDE
INAIT'FOR CARRIAGE READY
ICARRIAGE READY DID NOT RETURN
[LOAD DATA BUFFER'FOR MOVE CARRIAGE
IADD

IIDT 3 MOVE CARRIAGE
[DATA ERROR AFTER IOT
IBUMP RETURN POINTER
IRETURN

CARMDV

234a
2349
2350
2351
2352

2353
2354
2355

MVWAIT.

TAD MDVMAG
WAIT
STATER
LOADDB
LQMC
DATERR

[ROUTINE TO MOVE DARRIRGE TO ANY DESIRED PRINT POSITION
IENTER THIS SUBRQUTINE WITH PRINT POSITION COORDINATE
IIN AC, CALLED BY:
MOVCR
/

4441

0000

4442
4443
4444

3121

DCA

1140

7041

TAD
CIA

4445
444a

7700

TAD
SMA

GOA

4447

5257

0MP

RITCR

CRMGV,

1121

SAVMDV
SAVPDS

ISAVE DESIRED POSITION
IGET CURRENT POSITION
INEGATE IT
iADD DESIRED POSITION
ISKIP IF DESIRED POSITION Is DEPT OF
ICURRENT POSITION
IDESIRED POSITION Is RIGHT OF CURRENT
IPOSITION
IGET DESIRED POSITION
INEGATO IT
IADD CURRENT POSITION
ISAVE MOVE NAGNITUDE
[SET CARRIAGE'LEFT BIT o
ISAVE IT
IGU MOVE CARRIAGE
IGET CURRENT POSITION
INEGATE IT
IADD CARRIAGE MOVE MAGNITUDE
[MASK MAGNITUDE
[SAVE 1T
ICLEAR BIT 0 FOR MOVE CARRIAGE RIGHT

SAVMDV
'

‘

4450

1121

LFTCR,

TAD

4451

7041

;

4452
4453
4454
4455

1140
3267
1376

4456
4457
4460
4461
4462

5265

CIA
TAD
DCA
TAD
DCA
GM?
TAD
CIA
TAD

4463
4464

4465
4466
4467
4470

3266

1140
7041

RITCRp

1121
0375
3267
3266
4455

0000
0000
5641

MOVE,
DIRECT:
MAG:

SAVMOV
SAVPDS
MAG

(CARLFT

DiRECT
MOVE
SAVPDS
SAVMDV

AND

13777

DCA

MAG

DCA DIEECI
MOVCAR

IMOVE CARRIAGE
fSAVE AREA FOR CARRIAGE
ISAVE AREA FOR CARRIAGE
[RETURN

O
0

JMP

I CRMDV

EXECUIE

DIRECTION

MOVEMENT MAGNIIUDE
'

“‘

lRDUTINE
I

4471
4472
4473
4474

4475
4476
4477
4000
4501
4002
4803

0000

CRLFRT:

7300
1140
3277
4455
4000
0000

7300
1130
3305
4457

CLA
TAD

CARRIAGE

RETURN,

DINO

FEED

FROM

QDD

SAVPDS

DCA CARMAG
MDVCAR
M

CARLFT

CARMAG,

CLA CDL
TAD DF
DCA PARMAG
MOVPAR

IGET CURRENT POSITION
IGAVE'IT FOR CARRIAGE RETURN
[MOVE CARRIAGO
/DIRECTIDN a LEFT BIT 0 a 1
ICARRIAGE NOVDNENI MAGNIIUDE
IGCI

ISAVE
[MOVE

VALUE FOR PAPER FEED
IT FOR DINO FEED
PAPER

AN! CARRIAGE

pogzrxou

0066

lLQP-B
2395
2390
2397
2393
2399
2400

4504
4505
4506

2401
2402
2403
2404

4407’

2405
2405
2407
2408
2409
2410

PALIO

PRINTER DIAGNOSTIC

0000

lvflUG-77

71425

PARNAC.

5471

0
JMP

14:40

PAGE

/OIRECTION a ADVANCE
SIT
/PAPER NOVENENT NAGNITUOE

PRAOV

0000

595

SEC

0057

SEC

0068

’

I CRLNRT

iROUTINE

CLA
TAO

CAL
12000

OCA

NSTAT

CHARACTER ON LO

PRINTER

4510

4811
4%12
4513
4514
4515
4816

0000
7300
1374
3133

APRINT,

4453
1125
1373
4441

207002
TAO CHARRT

4817
4§20

4451
4435

STATER
LCAOCE

4!?!
4522
4%23
4624

4427
4437
2136
7000
5707

LOPC

$7401"

TAD

ICHARACTER REACT SIT 1
/SAVE FOR NANTEO STATUS
IROTATE CHARACTER STORED IN CEAR
/OET ROTATEO CHARACTER
ISET UNUSED BITS FDR CROSS TALK TEST
lwAIT NOR CHARACTER READY
[CHARACTER READY DID NOT RETURN
ILOAO DATA SOCCER RITE CHARACTER TO PRINT
xANO PRINT IT
/IOT 4
PRINT CNARACTER
[DATA ERROR AFTER TOT 4
/INCRENENT CHARACTER COUNT
110 CASE CARCNT OVERELONS
/RETURN
‘

NAIT

2411
2412
2413
2414
2415
2416
2417

4525

OATERR
Isz CHRCNT

N02
JMP

XPRINT

2419

IROUTINE TO ROTATE ASCII CHARACTER CODE
IANO STORE IT IN OOCATION CRARRT

2420

2410

2421
2422
2423
2424
2425
2420

4626
4827
4%30

4531
4532
4633

0000

CARROT,

OCA
GM?
/

2420
2429
2430
2431
2432
2433
2434
2435
2430
2437
2433

/
IRDUTINE

2439

2440
’2441

2442
2443
2444

IPETURN
IRETURN

4845

ENOLIN,

CALL
CALL

4846

0000

4547

1115

ILQP-B

PRINTER

2450
2451
2452
2453
2454
2455
2456
2457

4550

4551
4‘52
4153
4954

4555
4§56

LINLST,

CLL

ENOLIN

/GET CHARACTER COUNT
IFDRM Two's CONPLENENT
/AOU NUNSER OE CHARACTERS PER
[SKIP IF END ON LINE
IRETURN IF NOT END 07 LINE
/CLEAR CHARACTER COUNTER
[BUMP RETURN POINTER

/RETURN

IAC

LINE
OLA
I
ENOLIN

CNRCNT

ENDLIN

PLUS

Two

CHECK EOR LAST
+1

LINE OF A PRINT PATTERN
NOT LAST LINE
LAST LINE HAS BEEN PRINTED

LINCNT

PALIO

DIAGNOSTIC

v142A

CIA
TAO LINES
szA CLA
JMP I LINLST

7041
1132
7440
574E
3132
2340
5744

DCA
152
JMP

TEST

LINES
LINLST
I

LINLST

/CET

LINE

CDUNT

1-AUGn77

PACE

14140

5-6

/RORN TNO'S CONPLENENT
/AUO NUMBER OF LINES TO PRINT
[SKIP IF ENOUGH LINES PRINTED
/RETURN IF NOT ENOUGH LINES PRINTED
/CLEAR ANOUNT OR LINES
IBUMP RETURN POINTER
IRETURN CALL PLUS Two

IROUTINE

2459
2460
2461
2462

/CALL

MOVE

CARRIAGE

ONE

SPACE

‘

RSPACE

4S57

0000

4560
4E61
4962

7300

4663

4455

CLA CAL
TAD SPACE
DCA SPSIzR
NOVCAR

4564
4565
4566
4573

0000

CARROT

4574
4575
34576
4677

SPACER,

1127

3305

0000
5757
7401
2000
3777
4000
1000
4000

525122.

JMP

SPACER

IGET

SIZE

ISAVE
[MOVE

OP CHARACTER SPAClNG
PRINT POSITIONING

FOR

‘

CARRIAGE

/OIRECTION a
/SPACE SIZE
[RETURN

RIGHT

‘

PAGE
/
/

/ROOTINE TO MOVE CARRIAGE ONE SPACE
ICALLED BY LSPACE

THE

LEFT

4500
4501
4502

4503
4604
4605
4606

4507

0000
7300

SPACEL,

4000
0000
5600

CLA
TAO

1127
3206
4455

CLL

SPACE

DCA SPSIzL
NOVCAR
CARLET

/GET SIZE OF CHARACTER SPACINC
/SAVE IT FOR PRINT POSITIONING
IMDVE CARRIAGE
[DIRECTION 3 LEFT
ISPACE SIzE
“

SPSIZL.

CAP

I SPACEL

IROUTINE TO CHECK FDR NEIEOARO
IAND TEST FOR CTRL CHARACTER
ICALLEO BY KBCHK

2490

2491
2492
2493
2494
2495
2496
2497
2493
2499
2500
2501
2502
2503

CALL

LINE

TAO

2458

2485
2486
2487
2488
2489

/RETURN

CHRRQT

2448
2449

2474
2475
2476
2477
2478
2479
2480
2491
2492
2483
2484

NORMAL ASCII CHARACTER
LEFT ONE POSITION
SHIETEO ASCII CHARACTER

IROTATE

/RETURN

2473

/SAVE

JMP

5734

/RETURN

2471
2472

/CET

CAARRT

TAO CHRCNT
CMA
TAO
szA
JMP
OCA
152

2446
2447

2468
2469
2470

CLA

2445

2467

CHAR

I
0000
4534
7300
4535
4536 ,1136
4337
7041
4540
1131
7440
4541
5734
4542
4843
3134
4K44
2334

2464
2465
2466

LOCATION

TO CHECK FOR END OF RRINT LINE
IS CALL PLUS ONE IE NOT END OF LINE
IS CAOL PLUS INC IF END OF LINE

IROUTINE

2463

000
CHAR

RAL

2427

CLA
TAO

7300
1124
7004
312s
5726

STORED

INTERVENTION
‘

’

4610
4611

4512
4613
4614
4615
4616

4617

0000
3226
7010
3227
4466
6031

CHKKB,

4445
4444

4621

7300

[SAVE AC
[GET LINK

ACSV

RAR
DCA

LINNSV
COACTV

[SAVE

‘

K5?
JMP

5221

4520

OCA

KSOUT

CTLCNK
ECHO

ISKIP

IT
Ir

NON

ACTIVE

‘

KBOUT.

CLA

CLL

CONSOLE

/TEST AEIROARO FLAG
IGO'TO PROCRAE RETURN ROUTINE
ICHECK FOR CONTROL CHARACTER
/NOT CONTROL CHAR. so ECHO IT

ILQPva

PRINTER

PAL10

DIAGNOSTIC

2504
2505
2506
2507
2508
2509
2510
2511

LINKSV

4523
4524
4625

1227
7004
1225
5610

TAD
RAL
TAD

JD?

1“CHKKS

4626

0000

4627

0000

4622

ACSV'
LINKSV.

laAUG-77

V142A

PAGE

14340

5*?

DINA

IGET
IRESTDRE'IT

ACSV

TD CHECK FOR EACH 0? SIX VALID CONTROL CHARACTERS
DPERATOR'S CONSOLE. TEE STA (67 VALID CONTROL CHARACTERS ARES

CTRL/C

RETURN

2517
2518

I
/
/

CTRL/G

2519

2520
2521
2522

ALLOWS CHANGING 0? SOFTWARE SWITCH REGISTER
RESTARTS DIAGNOSTIC IF FOLLOWED BY LINE FEED
CONTINUES DIAGNOSIgC FROM INTERRUPTIDN FOINT

CTRL/Q

CONTINUES

2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533

I
/

CTRL/S

STUPS

CTRL/K

RESTDRES

CTRL/T

TDDLDTED BY
TO BE TYPED

6-11

IFRDM
/

DIAGNOSTIC

AND

PRINTER

AND

CTRL

FDR

WAITS

QQNTINUES

QHARACTER

CURRENT

TEST

CTRL'G
INTO

ALLOWS

DESIRED

NUMBER

TEST

PSUEDD SdITCH REG;STER

BITS

CEACTV

2534

SK?

2535
253b

4633
4634

7410
5630
b031

2537
2538
2539
2540

4635
463D
4637

5630

4540

2541

4541

7D41
3137
1137

4642

1104

4644

7450

4545
4646
4547
4550
4551
4652

577S'
1137

4553

lLQP-B

PRINTER

2559

4663
4664

4654

4655
4456
4557

4660

4661
4662

4665

4666
4&6?

4670
4671
4672

CHKCTL,

6036
0377

4543

2551
2552
2553
2554
2555
2556
2557
2558

JMP

CHKCTL

KSF
JMP
KRB

CHKCTL

AND

1177

’

CIA
DCA
TAD
TAD
SNA
amp
TAD
TAD
SNA
JMP
TAD

1105
7650
5775*
1137

KBSAV
KBSAV
K003
CDA

1137
1107
7550

5773'
1137

1372

7550
5771'
1137
1370
7550
4767'
5630

IRETURN IF MDT
IREAD KEYBOARD
IMASK TD 7 BIT
lNEGATE IT
ISAVE KETBDARD
/GET CHARACTER

SET
BUFFER
ASCII
'

CHARACTER

IT CONTROL-C?
“

ISKIP

KBSAV

IT ND
[RETURN TO SYSTEM MONITOR
IGET CHARACTER
115 IT CTRLuC?
ISKIP IF NO
ICU To SWITCH REGISTER QUESTION
IGET CHARACTER

KBSAV

K007

gDA

Caswcx

K021

/IS

CLA

ISKIP

QCODT

ICONTINUE DIAGNUSTIC

KBSAV
K023

IGET CHARACTER
/IS IT CTRL-S?
/SKIP IF NO
[STOP TEST
IGET CHARACTER

CDA
SSTOP
KBSAv

PALlO

DIAGNOSTIC

ICHECK FOR CONSOLE ACTIVE
ISKIP IT CDNSDLE Is ACTIVE
ICONSOLE NUT ACTIVE. RETURN
ITEST TTY FLAG

/IS

MDNITR

TAD
SNA
JMP
TAD
TAD
SNA
JMP
TAD

1105
7650
5774'

v142A

CTRL'Q?
IF

1~AUG~77
IT

PAGE

14340

5-8

CTRL-T?

TAD
SNA
0MP
TAD
TAD
SNA

124
CDA

115

TECHO

ISKIP IF NOT
IGD TD TEST SELECT

KDSAV

IGET

113

115

JMS

RESTGR
1 CHKCTL

ROUTINE
'

gDA

JMP

CHARACTER

IT CTRL-K
ISKIP IF NO
[RESTORE PRINTER

/
.

IRDUTINE

2570
0000

4574

6036
0377
SD46

4675
4676

4577
4700

4701

XECHD.

NON

CTRL CHARACTER

EDHO

KRB
AND

1177

IMASK TD 7 BITS
[PRINT 0N TTT
ITEST DONE FLAG

.-1

IWAIT

/RETURN

4673

CONSOLE

TLS
TSF
JMP
0MP

6041
5277
5573

XECDD

FUR

DUNE FLAG

/
I

IMESSAGE PRINT ROUTINE
IA "7" CHARACTER CAUSES

CARRIAGE

RETURN

LINE

FEED

4702
4703

0000
7240

4704

1702
3010
2302

4705
4706
4707

4710
‘4711

4712
4713
4714
4715
4716

1410

4720
4721

5307
0000

4724
4725
4726
4727
4730

2612
2613

4740

0000

0356
7450
5702

1365
7450
5337

1364
7510
1363
1362
4761'
5722
4760'
5722

CLA
TAD

MESLP,

MSRGHT,
TYPECH,

CMA
I

MESPRT

DCA
152
TAD
DCA

MSRGHT

TAD

MSRGHT

RTR
RTR
RTR
JMS
TAD
JMS
JMP

7012
7012
4322

1321
4322

4722
4723

MESPRT,

3321
1321
7012

4717

4731
4732
4733
4734
4735
4736
4737

2610
2611

RDTURN

4460

2604
2605
2606
2607
2608
2609

CARRIAGE

FOLLOWED

oooo

2600
2601
2602
2603

SYSIEM MONITOR

4631
4532

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599

OPERATING

4530

2565
2566
2567
2568
2569

0070

2515

2560
2561
2562
2563
2564

SEQ

AC
IRETURN
IAC SAVE AREA
[LINK SAVE AREA

IROUTINE

2547
2548
2549
2550

0069

IGET

2512
2513
2514
2515

2542
2543
2544
2545
2546

SEQ

‘

1~Dx1o
MESPRT
1

INDX10

IGET

MESSAGE ADDRESS
ISAVE IT IN MESSAGE POINTER
IINCREMENT RETURN POINTER
IGET TWD 6 BIT PACKED ASCII CHARACTERS
'

TxpEca
MSRGHT
TYPECH

[SAVE THEM
/GET THEM

IPRINT FIRST CHARACTER
IGET SECOND CHARACTER
IPRINT SEconD‘CHARACTER
ICDNTINUE PRINTING

MESLP

o
o

AND

177

SNA

[MASK 6 BIT ASCII
ISKIP IF NOT END OF MESSAGE
IEND OF MESSAGE RETURN
"

JMP
TAD

T MESPRT
1-43

SNA

JMP
TAD

[IS

.+7

SPA
TAD

TAD

g1oo
{240

JMS PRNT1
JMP I TYPECH
JMS CRLT
amp

TYPECH

IYESI'DD A

CR AND

ILQPnS

PRINTER DIAGNOSTIC

2614
2615

2616
2617

2618
2619
2620
2621

2622
2623
2621
2625
2626

2627
2628
2629
2630

2631

4760

4761
4762

4763,

0003

4765
4766
4767
4770
4771
4772
4773
4774
4775
4776
4777

7736

5002

0177
6000

5003
5004
5005
5006

0000
6046
6041
5202

0300
I
I
To

PRINT ONE CHARACTER

93071.

706
TSF
JMP .-1
TC?
CLA CLL
JMP I PRNTx

6042
7300
3600
I

IRDUTINE

EXECUTE

5013
5014
5015

CRLF,

CLA
TAD

00s
TAD
003
amp

FEED

CLL

(15
PRNT1

(12
PRNT1
I

can?

PRINT CONTENTS

PRTREG.

DCA
TAD
DCA
CLL
TAD

REGCUN
(-4
PRTCNT

ISAVE REGISTER CONTENTS
ISET up PRINT COUNTER

R£GCON

IGET

2660

5017

2661
2662

5020

5021

3244
137s
3243

2663
2664
2665
2666

5022
5023
5024
5025

7100
1244
7004
7004

2667

5026

7006

ILOP-B

PRINTER

2668
2669
2670
2671
2672
2673
2674
2675
2676

5027

4447

SAVEAC

5030
5031

4450
0374
1373
4200
4450

RSTRAt

5032
5033

5034
5035
5036
5037
5040

5041
5042

HAL

000009,

RAL
RTL

DIAGNOSTIC

PALSO

AND

TAD
JMS

71421

JMP
CLA
TAD
JMS
JMP

5225
7300

1372:
4200
6616

1°AUG“77

PAGE

14140

5-10

17
160
PRNT1

[PRINT A DIGIT
IRESTORE AC AND LINK
IINCREMENT CQUNTER
ICUNTINUE PRINTING REGISTER CONTENTS

RSTRAC
152 PRTCNT

2243

REGLOP

900
IPRINT

9240

SPACE

PRNT1

PRTREG

IRETURN

5043
5044

0000

PRTCNT,

0000

REGCUN,

5172
5173
5174
5175
5176
5177

0240
0060
0007

7774
0012
0015
6200

PAGE

2690
2691
2692

2693

IROUTINE TO CHECK
IFOLLOWING A CTRL

2694

5200

2695

5701
5902

2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721

LINE

[ROUTINE
0000

2706
2707
2708
2709

AND

5016

2700
2701
2702
2703
2704
2705

RETURN

2659

2697
2698
2699

CARRIAGE

2658

2696

7300
1377
4200
1376
4200
5607

2689
2689

0072

5601

5010
5011
5012

2687

$20

5400

2647
264a

2695
2686

0071

5317
5340

0000

2684

000

3351

5007

2682
2683

5-9

0077

2646

2681

PAGE

2638
2639

2677
2678
2679
2680

14140

0013
5614
0024

IROUTINE

5000
5001

2652
2653
2654
2655
2656
2657

1'AUGw77

5007
5000
0240
0100

4764

2636
2637

2649
2650
2651

V102A

2632
2633
2634
2636

2600
2641
2642
2643
2644
2645

PAL10

5203
5004
5205
5206

5207
5210
5211
5212

5213
5214
5215
5216

0000
6036

KBCRLF.

0377
3236
1236
1376
7640
7410
5217
1236
1375
7640
7410
5225
5600

o
KPB
AND

5217

5224

1774'
7650
5224

1773'

LINE

IREAD KyBD BUFFER
IMASK TO SEVEN BITS
ISAVE CHAR

TAD
TAD

KBSV
(-15

[GET CHAR
[IS ITxCARRIAGE

szA

90A

[SKIP

TAD
SZA
SKP
JMP
JMP

3020
5772'

RETURN

1177
Kasv

SK?
JMP CRDUT
TAD Kasv

CRDUT.

CARRIAGE

TAD
SNA
0MP
TAD

FEED TYPED

DCA

5220
5221
5222
5923

FUR

(-12

90A
LFDUT

1'08CRLF

‘

RETURN?

CARRIAGE

RETURN

I60 TD CONTINUE WITH
IGET KYBD c000
IIS IT LINE (BED?
ISKIP IF LINE‘FEED

PROGRAM

IGO TO BEGIN OF PROGRAM
INUT CR UR‘LFa RETURN

PSWCH

QDA‘
.+3

DCA

PSRSVI
PSWR

DMP

KBDUT

IGET NEW SWITCH REGISTER
ISAVE IN psuEbD SWITCH REGISTER
IRETURN AND CDNTINUE
'

5225
5226

5227
5230
5731

1774'
7650
5232
1773'
3020

07007.

TAD
_SNA
JMP
TAD
DCA

PSWCH

96A”
+3

PSRSVI
PSWR

[GET NEW
[SAVE IN

SWITCH

PSUE00

[LOP-S

5232

1771'

5233
5234

3235
5635

5235

0000

2727

5235

2728
2729
2730
2731
2732
2733
2734
2735
2738
2737

PALI o

PRINTER DIAGNOSTIC

2722
2723
2724
2725
2726

TAD
OCA
JMP

1-AUG-77

v142A

GDBAK

[RETURN

888108180

0000

8887,

IKYBD CHA8

SAVE

IROUTINE

HANDLE

SWITCH

5241

5242
5243

7300
1370
4767'
4766'
5765‘

888882.

CLA 000
TAO 1277
JMS 98071
JMS CRLF
JMP CBSWCK+6

ICUDE

FDR

IPRINT

5244
5745
5745
5547

5250
5251
5252
5553

5254
5255
5755
5257
5750

5261
5582
5563
5704

0000

CLL

TAD

3271
2244
1272
3273
2273
5253
7000
7000
7000
7000
2271
7610
5044

ocA

DOLATN

182

AOEDAT‘
023
OCOUNT

~08
NO?
NO?

ISZ
SKP

JMP

DELAYN

90A
I

ADEDAT

ADELAY

5767
5970

5251

ADEbAY
ADELAY
ADELAY
0008

5271

0000

DETERMINED

OCTAL

AND

JMP

11.2 USEC.
I3.8 0888.
l2.6 USEC.
I2.6 USEC.
I2.8 058C.
I2.6 USEC.
I2.8 USEC.
I2.5 USEC.
I1.2 USEC.
I1.2 USEC.
I1.2 USEC,
11.2 0888.
I2.e 058C.
I1.2 0580.
I2.4 USEC.
I3.8 088C.
I3.8 USEC.
I2.6 USEC.
I2.6 USEC.
I192 USEC.

29.4 USEC.
21.8 0880.

5572

7755

5273

0000

DELAYH,
M23:
DCDUNT;

«23
0

I
I

5202

5674

I
I

IROUTINE TO 8A0008 LAS
I808T szTCH REGISTER

INSTRUCTION

FROM

EITHER

HARDWARE

LASRT.

CLA
TAD

900

081550

8AL10

DIAGNOSTIC

IGET HAROwARE CONTROL

v142A

7614

1020

1-AUG-77

14:40

ISKIP IF BIT o = 0
I00 A 0A8 AND SKIP
[GET PSUEDD SWITCH

SPA 900
7814
TAD PSWR
JMP I LASRT

WORD

ONE

PACE

5-12

IROOTINE

CHECK

808

OCTAL

DIGTT

I
5103

0000

5104

1238

TAD

Kasv

5305

1364
7710

1-60
90A

5237
1235

TAD
SPA
GM?
TAD

7041

CIA

1363

TAD
SPA
000

90A

TAD
JMP

KBSV
I OCTCHK

2788
2789

2790
2791
2792
2793
2794
2795
2796
2797
2798
2799

5107

5105

5310
5111

5312
5113
5114
5115
5116

OCTCHK.

[GET CHARACTER
IsusTRACT 50
ISKIP IF GREATER THAN ASCLI CODE
INOT AN OCTAL NUMBER
[GET CHARACTER
INEGATE IT
IADD 70
ISKIP :8 LESS THAN ASCII CODE 70
INOT AN OCTAD NUMBER
'

SWRERR
KBSV

60
'

7710

5237
1238
5703

(57
508088

’

2800
2801

I
I

IROUTINE
I

5117
5120
5121
5122
5123
5124

72810
2811
2812
2813
2814
2815
2816

5325
5125
5327

2817

5334
5335
5336

2827
2828
2829
2830
2831

961

7710

2826

DCOONT

NO?

AND
AND

5777
5100
5101

2825

DCA
152
JMP

AND

PRINTER

2818
2818
2820
2821
2822
2823
2824

TAD

0644
0244
0244

5766

2777
2778

2809

0008.

A080AT

0644

5965

ILOP-a

2808

8007108 AGAIN

’

CLA

7300
1021

2805

ADELAY.

1844

7300

0000

2806
2807

88028158

5974

2802
2803
2804

MARK

”

5275
5276

2783
2784
2785
2786
2787

0074

QUESTION MARK

QUESTTDN

ICRa LF
ISTART SWITCH

2788
2770
2771
2772
2773
2774
2775
2776

2779
2780
2781
2782

500

ERROR

5237
5700

2703
2764
2765
2765
2767
2768

AREA

2759
2760
2781
2762

78578

‘

IRDUTINE TO PERMIT VARTABLE 08087 As
[NUMBER FULLQWLNG DELAY CALL

2757
2758

’

2739
2740
2741
2742
2743
2744
2745
2746
2747

2749
2750
2751
2752
2753
2754
2755
2756

0073

2738

2748

850

GDBAK
"

GOBAK,

PAGE 5.11

14140

RSTART

5130
5331
5132
5133

5137

7300

HANDLE

CONTROL

’

SSTUP:

4766'

1362
4767'
1351
4767'
4467
6024

CLA 900
JMS €808
TAD (336
JMS PRNTI
TAD 1123
088 PRN71

IEXECUTE CR AND
/PRINT 0? ARROW
IPR1NT

’

MESAGE

8CEOL
C00 CMA
CHKKB
REGPRT
KC?

7340
1750'

CLA
TAD

4470
6030
6031
5333
0445
4444
5332

K8?
JMP

KEYBOARD FLAG
IWAIT FOR OPERATOR INTERVENTION
'

CTLCHK
ECHO
GM?

ICLEAR

.-1

.-5

ICHECK FOR CONTROL CHARACTER
IECHO CHARACTER
ICONTINDE WATTING FOR CONTROL CHARACTER
"

”

5340
5141

5342

7300
4756'
1362
4757'

5143
5344
5145
5846
5347

6030
5772'

5157

0121

1357
4767'

OCONT.

CLA C00
ans CRLF
TAD (336
JMS PRNT1
TAD (121
JMS

IPRINT

ARROW
’

PRNT1

KC?
000

/PRINT

KBOUT

ICLEAR KEYBOARD FLAG
IRETURN TO PROGRAM

ILQPOB

PRINTER

2832
2833
2834

5360
5361
5302

2835

5363
5354
5165

2836

2837
2838
2939
2800

2841
2842
2843
2844
2845
2845
2947

2948
2849
2850
2851
2852
2853
2854
2855
2855
2857
2858
2859
2860
2861

2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872

5306
5367
5770
5371
5372
5773
5174

5375
5376
5377

QIAGNOSIIC

V142A

5400

PAGE
I
/

6030
4777'
7300
1376
4775'

CBSWCK:

IRGUTINE

5401
5402

5403
5404
5405
5406

HANDLE CONTROL

5407

5410
5411
5412
5413

KCF
0N8

CRDF

900
1330

TAD

4775'
4467
6047

PATTI

SNITCHES
lPRINT THE SWITCH

‘

IROUTINE
I

CDA
DCA
DCA

000

TAD

(.4

/SET

ROTCNT

6031

DCA
KS?

5221

JNP

3253

CHANCE

PSUEDO

SWITCH

PSRSVI

ICDEAR

SWITCH

DDILD

PSNCN

ICLEAR

030300

500

4444

ECHO
JMS
JMS
AND

DCA

PSRSVI

CDA
DCA

CNA

NDCRDF

7240

5432

3255
6031

ILQP-B

PRINTER

2886

5434

5233

JMP

2887

5435
5436
5437
5440
5441
5442
5443
5444

4445

CTLCfiK

4444

ECHO
JMS KBCRLF
JMS OCTCHN
AND 97
DCA Psasvz
TAD PSRSVI
RTL

5433

5445
5546
5447

DSRDOP.

DIACNDSTIC

4771'
4770'
0307

3254
1253
7005
7004

5233

2900
2901

5452

5766'

2902
2903
2904
2905
2906
2907
2908
2909
2910

5453
5454
5455

AREA
CHANGE

SWITCH
'

LOOP COUNTER

DCTCHK

ICHECK FDR CR 0R
ICHECK FOR DCTAL

IMASK

FIRST

ISAVE

PSWCH

ISET

PSNR CHANGE SWITCH
ICHECK FDR OPERATOR INTERVENTION

KSF

PALID

LF
NUMBER

DIGIT

V142A

1-AUG-77

PAGE

14:40

.-1

ICHECK FDR CR 0R
ICHECK FOR DCTAD
lMASK NEXT DIGIT

LF
NUMBER

’

RAD

1254
3253
2772'

5450
5451

.vi
CTLCHK

4445

5431

5427

CUNTENTS

5430

TAD

DCA
ISZ

GM?
JMP

PSRSVZ
PSRSVI
ROTCNT
PSRLDP
SNRERR

ISAVD NEW SWITCH REGISTER
IINCREMENT RDTATE COUNTER
ICONTINOE BUILDING NEN SWR
ITDD MAN! DIGITS TTPED
‘

I
0000

PSRSVI.

0000

PSRSV2,
PSNCH.

0000

IPSWR

CHANGE

SWITCH

I
/

IRDDTINE

ADDON

CHANGING 0F

DEVICE

SELECT

CODES

5456
5457
5460

4466
5270
7300
1142
7402
4465
4471
1142
7402

2914
2915

5461
5462
5463
5464

2916
2917

5465
5466

2913
2919

5467
5470

5705'

2920
2921
2922
2923
2924

5471
5472

4471
4467

5473
5474

6020

5475

1142
4470

2925

5476

5765'

.5477

0000

5500
5501

0364
3142
1142
1110
3335
1335
3736

0455

2925
2927

2940

0075

MESSAGE

IGST

950000,

2883
2884
2885

2930
2931
2932
2933
2934
2935
2936
2937
2938
2939

SR:

SREDD

4771'
4770'
0367
3253

2928
2929

SS0

AARON

5426

2913

/
I

5424
5625

2911
2912

iPRINT
/?RINT

2880
2081
2882

2899

”/PRINT

FLAG

'“

MESAGD

4470
5214

2878
2879

2893
2894
2895
2896
2897
2898

0075

(107
PRNTI

LAS
REGPRT
DMD PSDDDD

4465

2876
x2877

2892

550

ICDSAR KEYBDARD

CDA
JMS
TAD
JMS

1374

3255
1373
3772'

2890
2891

5°13

5400

5416
5417
5420
5421
5422
5423

2889

PAGE

,14140

4621
5453
5455
7766
7763
0177

7300

2688

1-AuC-77

5000
0277
0232

5414
5415

2873
2874
2875

PAL10

4010
0123
0336
0067
7720
5406
5007

IDTCNG,

CSACTV
009

CLA
TAD

IDTNDS
CDD
DSCNDN

HLT
LAS

MANCNG

IDTNES,

TAD
HLT

DSCNON

JMP
LAS

TST1

MANCNG
MDSAGS
DSCEOL
TAD

DSCNON

REGPRT
JMP TST1

ICHECK FOR ACTIVE
ICONSOLE ACTIVE

CONSOLE

I
I

5502

5503
5504
5505
5506

5507
5510
5511
5512
5513

2335
1335
3737
2335

1335

CNGMAN,

0
AND

(0770

DCA

DSCNDN

TAD
TAD

DCA
TAD
DCA
152
TAD

DSCNDN

$6000
IDTSTR
IOTSTR
I ITABD
IDTSTN

IDTSTR
DCA I ITABI
132
TAD

IOTSTR
IOTSTF

ICONSDDE NDT ACTIVE
IGET OLD DEVICE CODE
IODD DEVICE CODE IN AC 3-8
IGET NEN DEVICE CODE
ICHANGE IDT DEVICE CODES
IGET NEW DEVICE CODE
[NEW DEVICE CODE IN AC 3-8
100 To LOGIC TESTS
[GET NEW DEVICE CODE
ICHANGE IDT DEVICE CODES
IPRINT MESSAGE
108C:
[GET NEW DEVICE CODE
IPRINT NEW DEVICE CODE
I60 TD LOGIC TEST

ISAVE NEW 050
IGET IT
IADD IOT DP CODE
ISAVE IT
'

ISAVD

IDTo

IINCREMENT FUR

IOT1

ISAVE IOTl
IINCREMENT FUR

IDT2

‘

5-14

ILQP-B

PRINTER

2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953

5514
5515
5516

3740

5817

3741

5520
5321
5‘22
5523
5624
5625
5326

2335
1335
3742

DIAGNDSTIC

2335
7335

2335
1335
3743
2335

5527

1335

5330

3744

2954

5531

2955
2950
2957
2958
2959
2960
2961
2962

5332

5334

2335
1335
3745
5577

5535

ouoo

5533

PALIO
DCA
x32

TAD

iDTSTR

1 rTAas
TDTSTR
TGTSTR
; ITA34

TAD

IDTSTR

DCA
152
TAD

DCA
152

IDTSTR

IDTé
IINCREMENT

TAD

IDTSTR
T‘ITAB7
1 CNGNAN

ISAVE 10T7
[RETURN

DCA
JMP

10T0

ITAB1,

2963

5540

2964
2965
2960
2967
2908
2969
2970
2971

5341
5542
5543
5544
5545

3225
3233
3240
3254
3261

ITAaz.
ITABB.

IOTI
IGT2
1073

5564
55b5
5366

0770

5567

2981
2982
2983

5800

5606
5607
5610
5611

PRINTER

5612
5613

3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049

FOR

007a

IOT7

ITABA.
ITANS.
ITABé.
ITAB7n

10T4
lUTS
TGTG

IUT?

5600

PAGE
/

0000

ROTCNT,

2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005

3037
3038

§EQ

;

lLQP-B

.3035
3036

FDR

5007

7300

3031
3032
3033
3034

ISAVE

7774

4777'
1376

3027
3028
3029
3030

IOTS

TDTGTR
ITABS

0107
5000
0336

5602
5603
5604
5605

3020
3021
3022
3023
3024
3025
3026

ISAVE LOTS
IINCREMENT

5600

5601

3006

IDTS

ITABS
IDTSTR

IOTSTR

5200

2987

3007
3008
3009
3010
3011
3012
3013
3014
3015
301a
3017
3018
3019

IUT4

0400

2980

2992
2993
2994

FUR

ISAVE 10T4
IINCREMENT FUR

5237
0007
5303

2984
2985

2991

0077

5370
5571
5572
5573
5574
5675
5376
5577

2990

§EQ

ITABO.

2989

TGT3

5-15

3217

2988

FOR

PAGE

3206

2979
2980

14:40

ISAVE 10T3
IINCREMENT

TUTSTR,

3201

2977
2978

1-AuG-77
ISAVE 10T2
IINCREMENT

DCA
162
TAD
DCA
152

5536
5537

2972
2973
2974
2975
2976

v;42A

ITAB:
EDTSTR

NQNITR,

CLA

GLD

JMS

CRLF

TAD (336
JMS PRNT1

4775'
1374

TAD

(103

4775'

JMS

PRNT1

4407

MESAGE

0146

MONRET

5612

JMP

DIAGNDSTIC
7500

.+1

PALIO

V142A

1-AUG-77

PAGE

14:40

5-16

7600
HGT

7402
/

I
/

IROUTINE

8080

JMS
CLA
TAD

CRLF
CDL

0M3

PRNT1

TAD
JMS
JMP

{124

CTRL-T

5614
5615
5616

5617
5620
5621
5622

4777'
7300
1375
4775'
1373
4775'
5223

TECHOa

£336

IGET

UPARRDN CODE

/GET

PRNT1
TSELCT

IRDUTINE TD SELECT A TEST USING PSDEDG SWITCH REGISTER
ITHIs ROUTINE WAITS FOR A CTNL-G. ASKS SR8 QUESTION.
IACCEPTS TEST NUMBER IN BITS 6-11 or PSUEDD SWITCH
IREGISTER, AND STARTS THE DIAGNOSTIC FROM TEST NUMBER
“

ISELECTED.
/

4466

TSELCT.

CSACTV

5623
5624

5230
4465

JMP
LAS

$05000

5625

5626

5244

amp

TSET

5627
5630

5030

4444

Tpsuoo.

5031

5231
7300
6034
0372
1371
7b4o
5227
4452
7300
1020
0370

ECHO
KCF
KSF

.-1

CLA
KRS

gun

AND
TAD

(177

szA

GDA

JMP

TPSUDU-i

‘

KYBD

BUFFER.
BITS

NOT CLEAR FLAG
”

[MASK T0 7
IIS IT CTRL-G?

(-7
'

[SKIP 1? YES
1N0. CONTINUE WAITING
INANDLE A CTRL-G
’

’

/GET PSUEDO swcha REGISTER
INAsx BITS 6-i1
ICALCULATE STARTING ADDRESS
ISAVE POINTER
"

TSET,

AND

TAD

DcA

3252
1652

TAD

3253
5653

DCA
JMP
I

oooo

IREAD

KBCHK
CLA GDL
TAD 20

1367

oooo

ICDEAR KEYBDARD FLAG
ITEST KYBD FLAG
waIT FOR A GHARACTER

JMP

TPDINT.
GDTEsT.

£77
(STRTAB
TPQINT

I TPGTNT
GDTEsT
I

GDTGST

‘

ISAVE STARTING ADDRESS
IGD TO THE SEQECTED TEST
,

o
o

ITEGT TABLE POINTER
ITEST ADDRESS POINTER

START+1
TGT1
TSTz

160 T0

0205
0400

0412
0424

0437
0452

STRTAB.

T5T3
TST4
TSTS

BEGINNING OF
'“

DIAGNOSTIC
’

lLQP-B

PALIO

PRINTER DIAGNOSTIC

l-AUG'77

V142A

PAGE

14140

5'17
550
”

3050

5062

3051

5563

3052
3053
1054
3055
3056
3057

5564
5663
5566

5667
5670

5671
5672
5573

3058
3059
3060
3061
~3062
3063
3064
3065
3066

5574
5675
5576
5677
6700
5701
5702
5703

3067
3068

5704

3060
3070
3071
3072

5705
5706
5707
5710
5711
5712

3073
3074
3075
3076

3077
3078
3079
3060
3051
3002
3083
3084
3005

308b
3087
3088
3069
3090
3091
3092
3093
3094
3095

'3096
3097

75710
75711

0523
0536
0550
0600
0612
0625
0640

75712
75713
75714

75715
75716
75717
75720
75721
75722

0654
0666

0674
0702
0710
0725

75723
75724
75725
75726
75727
75730
75731
75732
75733
75734

0740

0746
0760
1000
1012
1024
1036
1050

75735

1071

75736

5713

1114

5714
5715
5716
5717
5720
5721
5722
5723
5724
5725
5726
5727
5730
5731
5732
5733
5734
5735
5736
5737
5740

1137

75737
75740
75741
75742
75743
75744
75745
75746
75747
75750
75751
75752
75753
75754
75755

1200
1223

1246
1264
1400
1432

1476
1600

2000
2045
2200
2255
2400
2466
2555
2600
0205
0205
0205
0205

0206
0205
0205

3102
3103
3104

5743
5744
5745
5746
5747
5750

lLQP-B

0310755

3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115

5751

0205

5752
5753
5767
5770
5771

0205

5772
5773

0177

3099
3100
3101

7577

0510

5741
5742

3099

TST56

75757
75760
5733741

57127+1
57107+1
57107+1

5715711
START+1
5703741
57157+1
'5735741
5733771
START+1
57107+1

0205
0205
0205
0205
0205

0135005710

PALIO

71424

1-100-77

14:40

0105

5-18
SEQ
”

3116

5774

5775
5776
5777

5654
0077
7771
0124
0103
5000

I
/

6005

6006

6007
6010

6011
6012

6013

3129

6014
6015
6016
6017
6020
6021
6022
6023
6024
6025

‘6026
6027
6030
6031
6032
6033
6034
6035

6036
6037
6040

3130

MESSAGES

.51

6000
6001
6003

3128

6004

3127

START

/
I05000500506565705655050005555555005

6002

3126

PAGE

l05050505550550565650550505555555505

3122
3123

3125

0336
5007

3117
3118
3119
3120
3121

3124

5730741
5710741
57107+1

0205

6000

6041
6042

4327
0111
2411
1607
4300
4314
2120
5570
4023
2401
2425
2340
0522

WAITNG.

TEXT

"fiWAITINGt"

LSTERR;

TEXT

"3LOP-8

DSCEQL'

TEXT

"#DSCB

PCEGL;

TEXT

”0

PC:

ACEGL:

TEXT

AC5

MQEQLp

TEXT

”

MOI

FLEQL:

TEXT

”

FL!

STATUS

2217
2243
0000

4304
2303
7540
0000

4340

2003
7540
0000
4040
4040
4001
0375
4000
4040
4040
4015
2175
4000
4060

0079

”

7576

0464
0476

ERROR?"

0050

lLQP-S

PRINTER DIAGNOSTIC

PALIO

1-AUG-77

V142A

—

14:40

gsa 0081
6043

4040

6044

4000
1475

6045
3131

3132

6046
0047
6050

4000
4040

16051
6052
6053

4023
2275
4000
TEXT

”flEXPECTan

6062

ACTUAL:

10x1

0063

4040

6064
6065

4001
0324

5006

2501
1475
4000

LDATER,

TEXT

"xuupae

DATA

SENT,

TEXT

SENT:

RCVD;

TEXT

RECEIVED:

FAIL;

13x1

"#DHLOA

ENDLOG,

15x1

"1210

PALlO

V142A

0070
6071
6072
6073

0076
6077
6100

6101

3138

/LQP*8

EXPECT:

6075

3137

0305

6074

3136

SR:

3020
0503
2405
0475
4000
4040

6007

3135

6055

6060
6061

3134

TEXT

6054

6056
0057

3133

SREQL:

4040

4314

4004
0124
0140
0522
2217
2243
0000

5104

0516

6105

2472
4000

0113
6114
6115

4023

4022
0503
0511
2005

0472
4000
4304

FAILEDfi"

1014

0115
6117
6120

2101

0121

0111

6122
6123
6124
6125
6120
6127

BaaoRgn

2120
5570

6102
6103

6106
6107
0110
6111
6112

ACTUAL=

4000

1405

0443
0000

4305

15518"

LDGIC

1604

4017

6130

0640

6131

1417

PRINTER DIAGNOSTIC

1-AUG-77

14140

§EQ

3139

6132

0711

6133

0340
2405
2374
4300
4320
0123
2340
0317
2516
2475

0134
6135
6136
6137

6140
6141
6142

6143
0144

3140

6145
6146
6147
6150

6151
6152
6153
0154
6155

0156
6157
3141

6160

6161
6162

6172
0173

1624
0522
4004
1101
0710
1723
2411

6174
6175

0340
4015

6176
5177

0111
1604

6700
5201
$702

0503

6703

3142
3143
3144
3145
3140
3147
314%
3149
3150
3151

4314
2120
5570
4020

0171

MUNRET’

TEXT

"#RETURN

MANDECI

TEXT

”flhQP-B

0143

0206

0000

CHARACTER

7000
0000

07000

BUFF,
/

0000

ZBLDCK

0000

BUFFI:

144

7146

MONITURH"

PRINTER

DIAGNOSIIC

1421

I
[START

7001
7145

5560
7055
0410

6904
6005

7000

COUNT:

4300

2211

6170

"#PASS

2417
4015
1716
1124
1722

6164
6165
6166

TEXT

4000

4322
0524
2522
1640

6163

6167

PASCNT,

0000

ZBLDCK

144

BUFFER

STORAGE

AREA

MAINDEC'OS-DHLGAfifi

0082

(LOP-8

PRINTER

DIAGNOSTIC

3152
3153

[LOP-8

0000
0100

0200
0300

PAL10

V142A

1-AUG-77

14100

PAGE

5-21

FRINTER DIAGNOSTIC

11110000
11111111

11111000
11111111

PALlO

V1420

1-AUG-77

14:40

PAGE

11111111
11111111

11111111

11100000

00000000

11111111
00000000

11111100

00000000

11111111

00000000

11111111

0600” 11111111

11111111
00000000
00000000

11111111

11111111
11111111

11111111

11111111
11111111

11100000

11111111
00000001

11111111

11111111
11111111

11111111
11100001

0700

11111111

11111111
11111111

1000
1100

11111111
11111111

11111111

11111111
11111111

11111111
11100111

11111111
11111111

1200
1300

11111111
11111111

v11111111
11111111

11111111

11111110

11111111
01111111

11111111
11111111

'1 1111111
00

00000000

11111111

11111111
ocuooooo

11111111
00111111

11111100

00000000

00000000'

00000000
00000000

00000000
00000111

1400
1500
1600

9033

§E0

0084

5-22

0400
0500

gga

$$8

11111111

1 1111

11111111

1700

11111111
00000000

00000000

11111111
00000000

2000
2100

11111111
11111111

11111111

11111000

00000000

11111111
00000000

11111111
00111111

2200
2300

1111111
1111100

11111111

11111111
00000000

11111111

00000000

11111111
00000011

11111111
11111111

2400
2500'

11111111
11111111

11111111
01111111

2600

11111111
11111111

11111111

11111111
11111111

11111111
11000000

11111111
00000000

11111111

2700

01111111

11111111
11111111

3000

11111111

11111111
11111111

11111111

3100

11111111

11100000

00000000

11111111
00000111

11111111
11111111

3200

11111111
11111111

11111111

3300

11111111

11111111
11110000

11111111
00000111

3400
3500

11111111
11111111

11111111
11110000

11111111
00000000

00001111

3600

11111111

11111000

00000000

11111111
00000000

11111111

3700

00000000

11111111

11111111
00001111

lLGP-B

PRINTER

14840

1'AUGU77

9108

5~23

11111111
11111111

11111111

00000000

11111111
11111111

11111111
11110000

11111111
00000000

11111111

11111911

00000000

00011111

11111111
11111411

11111111
11111111

11111111
11111110

11111111
00011111

11111111
11111111

11111111
10000000

00000000

4200
4300

11111111

4400

4700

V142A

11111111

4600

PAL10

11111111
11111111

4000
4100

4500

DIAGNOSTIC

11111111

§£Q

0035

§so

oose

11111111
00011111

11111111
11111111

11111211

00000000
00000000

00000009

22111111

5000
5100

11111111

00000000

11111000
00000000

00000000

5200
5300

11111111
11111111

1111111
1111111

11111111
11111111

11111111
00000001

5400
5500

11111111
11111111

11111111

11111111
11111100

11111111
00000000

11111111
00001111

11111111
11111111

5600
5700

11111111
11111111

11111111

11111111
11111111

11111111
11110000

11111111
00000001

11111111
11111111

6000

11111111
11111411

11111111
11111111

'11111111
11111111

11111111
11111111

11111111

6100

11111111

11111111
11111111

6200

11111110

00000000

6300

00000000

00000000
00000000

7000

11111111

7100

1111(111

11111111

11111111
11111111

7200
7300

11111111
11111111

11111111
11090000

11111111

00000000

11111111
00000000

11111111

00000000

11111111
00000000

PRINTER

DIAGNOSTIC

00000000

00111111
11111111
11111111

6400
6500
6600

,/flm a

6700

7400

7500
7600

7700

ILQP-S

1~AUGI77

PALIO

V142A

CPL?

5007

ACRSTR
ACSAVE

6030
4205
4200

CPLFRT

4471

Iuvx1o
110x11

ACEGL

14840

CRMOV

4441

INDx12

ACSV

4626

09001

ACTHAL
ACTVCB
ADDDSI
ADDDSZ
ADDPSS

6062
4306

CSWTCH
CTLCHK
DATERR
DATPRT
DBLDAD

5217
3111

INDX14

4445

INIT

4437

3457

INSUW
INTFLG

3265

INTST

ADELAY

5244
7400
4033
4433

Imrsvc

DIRbOA
DIRéOB

5273
4443
5271
3055
3050

DIRECT

4466

000?
DDTCNT
DSCEQL

5251

ALRnY
AhAIT
BGNTST
BSW
80F?

BUFrl

0001
0002
0003

7002
7000
7145

C2575
C52R2
CSACTV

0112
0111

CBSWCK
CkF
CALfiO
CARHIR
CARLFT
CARMAG
CARMOV

5400
6007
3000

CARPGT

0000

CHAR
CHARRT

ChficTL

0124
0125
4630

CHKKB
CHKRDY

4610
3312

CHRCNT

0136
4526
0247
2472
2526
5477
2553
2554
2726
2727
2722
2723
2724

CHRRDT

CKVT78
CLRSGA
CLRsea
CNGMAN

CNTséA
CNTSGB
CNTGOA
CNTSOB
CULGOA
COL608
COLsOC

CDLCAL

CPLTN
COMpl
couuT

eBUMTl
COUMTZ
COUNTS

4466

0126
4000
4477
4400

3026
3113
3311
4061
4062
4110
4111

DCOUNT
DELAY
DELAYN

DSCNDW
DszCH
ECHO

ELIN55

ENDLIN
ENDLUG
ENDTST
ERDI
ERDZ
ERDB
ERRDAT

ERRLUP
ERROR
ERRORS
ERRPRT
ERRSI
ERRSZ
ERRS3
ERSI
ERSZ
ERSB
ERSTAT
EXIT
EXPECT
FAIL
FEEDA

INDX13

2725

IQTO
10?:
IDTZ
IUT3
1014
IDTS
IOTé

5020
0142

1017
101000

1645

IDTMES
IDTSTR

4444

2451
4534

ITABO

ITABI
ITAB2
ITAB3

PAGE

5-24

0010

LINCNT

0115

0011
0012
0013
0014
3421

Lina

013;

LINEND

4454

LINES

0132
3112

0237

LINLST

LININ

LINKSV

0115
4436

LMDVEB

4000
3201
3206

LOCO
LUDPC

3217
3226

LOPSGB
LPGOB

3233

LPeoc

3240

DPLFT

LOADDB
LOPssn

3045
4435
0000
1366
2504
2534

2632
2553
0100
0002
1000

3254'

LQBLK

3251

LQCAR

5456

LQCHK

LQCHR
LODDN

0040
2000
3400

5470
5535
5536
5537
5540

LQIEN

0001

3246
4425

3451

ITA34

5542

bubs
LQLSRT
LQMC
LQMCRT

3504

ITABS
ITAas
1TAB7

5543

L9H?

4425

5545

LQMPRT
LQOUT

K003

0104

LGPAR

K007
K021
K023
K6000

0105

LGPC

0400
4427

LQPCRT

3232

Lona

4424
3205

KBCRLF

0105
0107
0110
4452
5200

KBOUT

4521

0004

KBSAV

0137
5236
6030
6035

LQRED
LQRERT

LQRS
LGRSRT

4430

Lusx

4423

LGSKRT
LSPACE

4463

6125
4440

3511
3430
3427
4434

3600
3636
3625

3665
3672
4232
4266
4273

5541

5544

KBCHK

4104
6054

KBsV
KCF
KIE
LAs

6115

LAsRT

3005

LDATER

4213

4465
’

5274
6071

LQRBRT
LORDY'
LQRE

LSTART

FIRST
FLAGS

4024

FLEQL

6042

FSTCHR

0135

GOA00

0231
5235

GOBAK
GDTEST
GT?

4627
4546

0134

5653

6004

LEND
LF
LFOUT

1533
0130

LSTERR

L$TLIN

4431

3223
3214

0020

4000

4432

3260

3237
3200

1532
6005
4460

M23

5272

LFTCR
LIN46
LINsOA
LINéOB

1475
2717

MAG
MAG46
MAGéOA

2720

Llneoc

aAcsos

4467
1456
3056
3061

2721

5225

4450

MANQNG

4471

ILGP-B

FRINTER
MANDEC

M$SAGE
MESLP
MESPRT

MQNTTR
MONRET
MDVso
MUVCAR
MUVcR

6160

4467
4707
4702
5601

6146
3054

V142A

PLPSZD

2071
2312
3227

SAVEfiC

2263

SAVLNK

PLP53A
PLP53B
00054

3431
0000

SAVMV

PRINT
PRNT1

4354

SAVPUS

5000
4000

SAVPR‘

5043

SL009

5015
5433
5353
5454
5414
5455
0020
5340
4144
4145
2714

SPACE

2715

STMASK
STPRNT

0141

MDVPAR
MDVwGT

4457

PSRLQP
PSRSVI
PSRSVZ

MVWAIT

4411
4013
7501
6035
7421
4721
4432

NESoA

1631

NESOB
NE51A
NESiB
NESQA

1640
2026

MSREHT

NESgB
NE59C
NES§A
NE533
NESAA

NUMgOA
NUMsoB
DCTEHK
OPlsEL
opstL
pARMAG
PARMUV
PASCNT
PASS

PCEQL
PCOHNT
PLPaS
PLPAbA
PLPabB
PLP47

5303

0021
0022
4505
4316
6137
1365
4014
6024
2465
1413
1443
1444
1506

PSWCH
PSWR

QCDNT
RANI
RAN2
PANADi
RANA02

RANAQJ
RANDOM
Rcvo

6107

RDXCHK

4446

REGCON

5044

REGLOP
PEGPRT
RESADD
RESGEN
RESTLP
PESTUR
RESTRT

5025
4470
4023
4474
3114

RETA

RIBBON
RIBN52
RITCR
RMOST
RMDVEB
ROTCHR
ROTCNT
RSPACE
RSTART
RSTRAC

4450

4146

2065

SAVDAT

4147
0100
0230
0122

PALIO

V142A

XLQDC
xLOnB
XLOPE
XLQPS
XLQsK
XPRTNT
XPAND
XPESGN
XSAVGN
XSTAT

ZMUvEA
ZMOVEB

6503

6502
6504

6501
6507
6505

6500

4507
4112
4135
4126
0117
3015
3043

DETWCTED!

LINKS GENEDATED:
RUN-TIME!

USED

SECONDS

START
STARTS

STATER

STRTAB
STRTIN
SVAC
SVSTAT
SWAIT
SWRERR

T5125

0725

0121
0102
0120
0140
0123

3513

35330
TST31

TST32
TSTBJ

IST34
TSTBS

4600
4557
6102
4606
4565
6067
5317
0204
0233
4451
0076
4243
5654

TST37
TETQ
TST§O

$3136

T5141

TST42
T5143

TST44
TST45
TST46
T8T47

TST47A

TSTS

4012
0077
0114

4242

TPDINT

5652
5630
5623
5644

TST2
TSTZO
TST21
TST22
TST23

TST26
WSTZ?

4013
0127

TLUUP3
TPSUDO
TSELCT
TSET
T511
TSTIO
TST11
TSTIZ
TSTIJ
TST14
TST15
TSle
TST17

i-AUG-77

0710

TLUDP2

TECHO

5'25
TST24

4442
5237
5614
3456
3635

TLQOPI

4453
5500
4452
0232

SAVZ
SAVAC
SAVADD

XLQMC
XLQMP

SREOL
SSTOP

1534
3033

SAV1

6506

SPSIZF

4457

2011
2013
2053
2057

4673

SPSIZL

2134

PLPRIA

DIAGNOSTIC

SPL

6005

XECHO
XLQLS

SPACER

4015
3017
3117

PAGE

4447
0103
4473
0101

3103

SPACEL

3351

RTF

PRINTER

SENT

2715
4472

'1610

PLpszA
prsze
PLpszc

CORE

PSUEDD

PLPSO

pnpqaa

ERRORS

2043
2103
2116
2132
2251
2253
2277
2730
2731

SAVFLG
SAVGEN
SAVMUV
SAVMQ

MUVMAG

MQL

14140

2405

MUVhFT

M0800

1*AUGu77

PLPSS
P0545
PRADV

PRRET
PRTCNT
PRTREG

MG
MQA

PALlO

4455
4456
4465
4421

MOVE

lLQP-S

DIhGNDSTIC

1476
1530
0452
1600

2200

2255
2400
2466

T5T7
TSTBGN

2555
0464
2600
0476
3400

TSTEND

3342

TSTIN

TSTLOP

3324
3350

TYPECH

4722

V780w1

3270
3301
4475

0523
0536

V780w2

0550

VT78CK

0600
0612
0625
0640

WAIT
WAITNG
WAITS
WATOUT

4441
6000

4063
4055

0412

WLDDP

0654

WSTAT

0666

XCRLF

4461

0674
0702

XCT1

3275
0113

14840

XDATA

PAGE

0088

1137
1200
1223
1246
1264
1400
1432

2000

TSTbO

320

1114
0437

2045

TST57
T526

0400
0510

1050
1071

TSTSZ

TSTSb

0087

0740
0746
0424
0760
1000
1012
1024
1036

TSTSO
T5151
TST53
TSTS4
TST55

SEQ

4044

0033

5a26

ACEOL
ACRSTR

31288
21890
21813

ACSAVE
ACSV
ACTUAL
ACTVCB
ADDR31
ADDRSZ
ADDP53
ADELAY

§£9 0°89

2506

2194
2185
2508#

31338
22043

2289

2270

2744

2746

2757

2758

2759

2760

2761

2092
908

2093
1011

1059

110?

1179

1232

1446

1480

31461

1960

2199

2098

2271

2044
27420

ALRDY
AWAIT
BGNTST
BSW
BUFF

20721
896

2089
926

1491
1355

1376

BUFFi

1487

31490

276

347
343

204

848

418
414
862

865

1885

2735
475
15411
2320
2368
2390#
23151
2466
898
1234
2406
25327
2494#
1788#
935
24214
243!
1353
13753
29285
1348
1387
1449

2852?
629

794

1803

1871

280

C2525
C5252
CSACTV
CSSWCK
CAF

CAL60

CARDIR
CARLFT
CARMAG
CARMOV
CAPRGT
CHAR
CHARRT
CHKCTL
CHKKB

CHKRDY
CHRCNT
CHRPDT
CKVT78

CLRSSA
CLPSSB
CNGMAN
CNTSGA
CNT56B

CNTéoA
CNTbUB
COLboA
CULéoB

2389

2339
2485

2319

2324

2325

2332

2333

2346

2347

928

970
1253

1013
1255

1044

1059

1083
1299

1086
1308

2537

2566

2321

1252
2425
2535
2507

1281

1862

2414

248

249

1351
1388

1354
1397#

1454

1459

939
247

2435

2490

1369

1372

1390

1467

15172

1470

1518*

1500

15133
1514#
1563
1553:

1569

1602
1571

1578

1580

2734

2805

2823~

zasg

1590

26463
23848
2355#
2710#
1616K
870
266

2652
2397

2501
270

2818

400

404

417

2877
283
421

1768
27663

1790

1781

1782

1123,

1145

1157

1404

2923
1045
2878

2930
1047

2931

2702

CSWTCH
CTLCHK
DATERR
DATPRT

1906!
17638
2749
1113
2755
1562

DBLOAD
DCDUNT
DELAY
DELAYN
DIR60A
DIP608
DIRECT

_1sa4
2376
2762
1516*
3126“

DLOP

DOTCNT
DSCFQL
DSCNUW
DSWTCH

2912

1037
2502
1795
24330
31387
271

ECHO

ELLNSS
ENDLIN
ENDLOG
ENDTST

ERDl
E802
€803
EPRDAT
ERPLOP
ERROR

279

2819
1304

2439

1313
2441

2888
13175

1903
496
604

614

1713
1970

1723
1982

1731
1993

2022

ERRORS
ERRPRT
ERRSI

19543
1984*
19750

2009

ERRSZ
ERR53
€881
€852
ER53
ERSTAT
EXIT

20073
2020
22133

2245

1063
2055*
3130*

SEQ

2887
292
430

306
444

320
458

337

350

333
474

2294

365
545
918

379
559
959

392
573

405

994

1034

423
so;
107?

:13:

535
809

544
816

554
821

559

568

572

as;

34¢

346
2345

2413

35?

1408

2205

1092

702

10503
3021

2442

487
600

FEEDA
FIRST
FLAGS
FLEQL

3003

1607

2916
1040

1891

EXPECT
FAIL

2987

27643
1587#
15908
23783

478

2203#
2256
21983
2121#
31323
31377

13960

2380

18823
1877#
590
1703

1209

20951

1942

1248
18990
19273
1940

119?

2125#
21263

1929

654

1191
2423

1605

1783#

29B
488

$63

1109

16193

284
479
680
1322

1093
1382

1597

20943

GROUT

3017

1393
2957

2085
2087
2116
2118

2512

2909

2420

COUNT
COUNTI
COUNT?
COUNT3

CRLFRT
CPMDV

2533

1129

2813

CULIN
CDMP1

CPL?

1290

140;

1797

1502
15135
1555
1579
1778

CDLsoC
COLCAh

1803

312
497
724

325
505

759

338

351

522
782

536
800

591

435

519

1915

505

.2232

516
618
1745

521

531

628

632
1773

175;

0090

FSTCHP
GOADD
GUBAK

GOTEST
GTF
INDXIO
INDX11
INDXIZ
INDXl3
INDX14
INIT
INSDW
INTFLG
INTST

INTSVC
1070
10?!
1072
IOTS
IDT4
IOTS
IDT6
IOT7
IOTCNG
IOTMES
IDTSTR

10150
ITABl
10152
11153
11134

11135,
ITABb
17137
K003
K007
K021
K023
x5000

«scan

140#

1061

2723
3038
1510

2720
3039
1958

117

1447

128
130
147
158

1345

451
440

18718
231%
814
262
454

824

640

1866

217
1259

16818
16891
17011
17111
17211
17291

17440
17520
725
2910
2933
2954
2935

2938
2941
2044
2047
2950
2953
2956
1158
1168

117$
118$
1197
690

1:09

2594#

KB§V

2597

2000

1428

KCF

1500

KIE
LAS

1550

LINKSV
LINLST
LMDVEB
LDADDB

LOCO
LDDPC
LOP55A
LOP568

LPGOB
LP60€
LPLFT
LQBLK
LGCAR
LQCHK
LQCHR
LQDDN
LQIEN
LQLS

LQLSRT

2965
2966
2967
2968
29099
29197
2934
2955
29618
29628
29639

238
819
275
470
662

1455
1368

2586
1377

2518;
1381

829
288

833

842
316

1815
329

1959

2059
355

2077

492
706

501

510

540

396

550

592

741

$1?
599

760

526
786

393
564

426

483
634

2937

2939

2940

2942

2943

2915

2946

2948

2949

2951

2952

979

1070

1117
1651

1127

1189
1860

1202
1941

1239

1282

1291

1300

1803

2021

2055

2257

3031

2007

2201

2216

2223

302

342

369

2109

805

SEQ

0092

510

1011
Q73
1350
2707
21641
934
1440

1492
1499

1248
1361
'731

1371
1848
2497

1567

2936
29598

29648
2965#
2966#

29676
29681
2543
2547
2551
2555
2932
906
1359
2708
25038
1361
2698
203

936
1410
2879

2715
1366
2703
1643

1592
2889
2829
2541

1019
1628

1646

2542

2546

2559

2562

2787
2012

2791
2248

2550
2796
2815

2554

27271
1932

2828

2852

3022

1906

1927

1962

1978

1984

1897

1899

2919

3019

991

992

1595
1594
1547
1121
2437
1119
1111

1131

1556
1215

1129

1198

1181

1238

2455

2456

277
415

281

290

304

318

419

428

442

456

552

584

744
1147

767
1183

598
776
1236

349

232‘

27748

1822
2914
2780

3134*
982
1025

985
2392

997%

2717#
941

1496
1490
15120
1023
1349
1021
1015

1557
2504
24431

9611
15108
15118
1541
1074
1370

1072
1065
16179
25098
2453

1601

1549

1558

12.49

1317

1211

1241

1861

2449

1284
2454

1293

1302

1311

335

1277

2451

15701
254
39a
2061
9741

268
402

331
472

2292

344
2343

34B
2010

642
825
1403

648
901
1407

665
932
1431

1642

35?

371

1374
1395
1460
1478

542
718

1126
17381

LQMC
LQMCRT
LQMP

332
17088

LQMPRT
LQUUT
LGPAR
LQPC
LGPCRT
LGRB
LGRBRT
LORDY
LQRE
LGRED
LQRERT
LGRS

16988

LQRSRT

1452'
13567

0091

2963
2964

858

LASRT

LINES
LININ

1448
1347

§EQ

2961
2962

2861

LINE
LINEND

1096

20348

KBCRLF
KBDUT
KBSAV

LDATEF
LEND
LF
LFOUT
LFTCR
LIN46
L1N60A
LIN6OB
LIN60C
LINCNT

1068
2219
27250
30123

1471
1484

1608

1745
336
1712
269
1702

399
17200

612
788

626

1270

1379

358

372

386

587

2344

291

305

319

495

569

420

429

443

457

601

2412

952

1627

1ao§

1836

666

675

688

697

719

745

807

e74

975

2291

16888
528

17510
555
795
17280

1789

754

Ba?

1018

1648

696
1067

LOSE

512
808
16808
1042
976
31258

LQSKRT
LSPACE
LSTART
LSTERR
LSTLIN
M23
MAG
MAG46
MAGbOA
MAG6OB
MANCNG
MANDEC
MESAGE

MOVLFT
MDVMAG

MDVPAR
MOVRGT
MG

MQA

MQEGL
MOD
MSRGHT
MVWAIT

556

835

2056
1684

990

938

989

1030
2765#

1077

1133,

1216

2375
946#
1554
1576
2915

23793
947
1560
1582

949

956

567

1320

853

868

2227

2229

1323
2234

1910

1912

2238

2246

2585

2537

2602

15863
2377
977

2388
986

2465

2326

2327

2330

2334

944

1027

1586

1609

2045#
1956

2037

909

2370
2323
1440
798

2335
2394

2038
1488
2000
1498
2589
2131
1n22
1031
1073
1078
1120

PAPMAG
PARMDV
PASCNT
PASS

2393

23963
22833
1324
855

2287
31394
856

2288

2289

2295

050

PC
PCEQL
PCOUNT

2040

2046#
1991
1325

2230
1326

2811

PLP45
PLP46A
PLP465

0060
935#
936#
9763
1019#

1130
1134
1199
1?12

1242
1a38

209

1913

:95

958
943
993
1043

PLP54

1739#

PLPSS
P0845
PRADV

1790#

186$

945

2395

89%

902

903

1283
26368
2991

1292
2642
3006

2674
2659#
2899
2720

2681?
2679

299

PRNTI

1240
2610
2989

PRRET
PRTCNT

195#
2662

PRTREG

RESADD
RESGEN
RESTLP
RESTOR
RESTRT
RETA
RIBBON

1sea
2992

SEQ

0094

1995

2340

22850
2713
2992
2063
2710
193
2553

1135
1187
1474
1481

1488
1018

1923

1144
1148
1156
1161

1217

1209

1225
1257
1321

1247
1315
904

1545
16410

912
907
1301
2649

915
910

9208

1310

938
1386

1606

2651

2672

2678

2897

2902#

978

987

1020

1071

1118

1128

1491'

1210

2733

2807

2809

2825

2527

2959

2853

2006

2233

2237

2244

2514

3008

2871

2882

2893

2372
2721

2304

29043

1433
1435

2135
2136

2138

2141

2151

2162

2142
1507#

2153

2167*
2164

21683

1479
1485
1493

2139
1485

2143

1475
1482
1489
1190

1921

1926

1994

1998

2002

29033

1203

2779

15084

15094
1472

31363
1808

1058

908

1222

28703
2717
2714
2822*

.2896

2664
2675
857

1627#
1832#

1048

1094
1164

1196

618

978

31278

13313

1097
1090

2660
2666*
2962
2050

2297

8733

917

10683
10703
11133
1117#
1123#
1127;
11891
1202#

REGLUP
REGPRT

1930
292:

2266

PLPQ7
PLPSO
PLPSlA
PL951B
PLPS2A
PLP5ZB
PLPSZC
PLP52D
PLPSBA
PLPSBB

RANDOM

1922

2359

2047

15190
15206

RCVD
RDYCHK
REGCON

1917
2810

31293

1469

RAN2
RANADI
RANAD2
RANAD3

0093

23243

1468

QCONT
RANl

$30

23321

1465
1464
2890

PSNR

ag§

2484

1457
1462
2880

PSRSVl
PSRSVZ
PSUEDO
PSWCH

613

23778

1439
27864
208
218

PSRLDP

502

2920
851
2010

207
2003
2597
25833
29863
31401
1577
1589

25933

0P15EL
OPZSEL

599

15919

2595

NUMSOA

see

1538:

2048

NUMbOB
OCTCHK

585

9961

1966

NES2C
NESSA
NES3B
NE54A

570

1246

2590
23418
10371
10440
10827
1096!
1138?
1150!
11638
12211
12247
1251#
1450
1458
2797
2776
244

NESOA
NESOB
NESlA
NESIB
NES2A
wasza

_/ ‘\.

553
1683

31410

MESLP
MESPRT
MDNITR
MDNPET
M0960
MOVCAR
MOVCR
MOVE

518‘
320
1682
1150

2924
2052
1200
1842
20478
15563
1652

2081
26820

2112

1327

1916

zosac'
2565

RIBN52
93703

2162

99097
RMOVEB

072
15695

307099
907007
RSPACE
957197
997910
979
9191

1112

713

2979
961

215
669
_

1321
2152

1139
23716
9991
2906
2999
937
219
2051
1969
2161

9172
3971:
SAVADD
537017
319310

2151
1119
202

2163
2192

1291

snvrnc

1111
1033
1121
1291
1131
1271
1131
1301

1692
2034
1969
1169
2136
2366

917990
SAVLNK
SAVMUV
91700

33907
SAVPOS
51799
SENT
SLOOP

99309
993096
SPACER
990

SPSIZL
SPSIZR
SREQL
SSTDP
START

STARTS
STATER

STMASK
STPRNT
STPTAB
579710
svnc

636

1019

21121
1313
93

1973
2483
2464
2960

2557
193
3100
212

211

1957
1709
1935
1699
31339
2117

2463
26901
24613
2036
24800
24670
31310
2804#
194
3101

1101

1142

1151

1153

1154

11650

1039
2221
2060

21699
21703
2193
2209
1693
2073
1967
2191
2359
1966
1710
1963
1700

1099
2722

1091

1139

1221

2091

2122

2669

2673

1997

1925

2337

2339

2357

2366

2371

2396

201
3105

3004

3093
3107

3094

3095

3096

693
1794
796

701

715

1811

1840

723
1874

1226

1256

1237

1296

1777
2669

2309
2001

2373

2329

195

196

3102

3103

3104

1990

3106

954

671
1033

679
1613

1090

233

644

650

790

781

793

2700

22230

3035
2041
1103
1920

30440
20443

1770

1999

750

758

773

2291

2342

2409

1765

321

360

379

389

431

445

159

1769

1710

1743

1791

1795

2211

2240

953

1032

1612

1939

1790
1973

2795

2900

2961
1991
1077
2215
3036

1902
1991
2219
3037

TPSUDD

3018

TSELCT
7597

226

30220
3009
30341
2621
3052
3053
3051
3055
0136
3057
3059
3039
3046

967

2919

2926

3045

$9317
SWRERR

531
29311

7ECH0
TLDOPI
TLODPZ
700093
720107

3020
723
1551
1691

3931
1961

406
1261
4406
1549

9751
1701
465
4923
5011
5103

4931

3065
3066

5641
674

3068
5921
3070
3071
3072
3073
3074
3075
3049

6401
6621
6941
3021
7061

656
7663

590

0096

7961
9053
229

76796
75717

019
960

757179

989
1163
995
1935

1090
1136
1219
1219
13431
14011
3291
11293

1121
40

19053
19931

3030

30171

947

961

3056

3061

3067

3047

3076
725
3079
3079
3090
9951
9267
9693
9941
3049
10113

10591
11077
11791
12321
12761
1395
1411
3050
1614
3051
18540

‘

22211
30113

3060

5901
5501
2991

5963
6101
6241

1733

3062
3063
3064

9261

75713
75744
75795

TSTBGN

3099

653

1997
1739

75760
7577

309g

223%
646

307

7675
75750
75751
79752
75753
T8T54
75755
73756
75757
7076

3097
'

1973

TST27
7073
73730
75731
70732
75733
75734
75735
75736
75737
7971
75740
75741
75742

1399

2119
2492
2097
2469

293

75726

1319

2006

1955
1732
950
2790
30030

76713
76714
7571s
76716
73717
7672
76720
76721
TST22
TST23
73724
75725

1306

1776
2105

951

070

1237

76710
76711
76712

0090

29931

798

$70737

7971

690

3069

7411

1329
3092
3083

3077

3091

3091
3095
3096
3037
3099
3009
3090
3091
3092

1857

1850

1867

1868

1870

1876

TSTEND

TSTIN
TSTLDP

TYPECH
v780w1
vveowz
VTTBCK

1073

WAIT
WAITNG

510
8b9

WAITS
WATOUT
WLOOP
WSTAT
XCRLF
XCTI
XDATA
xscao
XLQLS
XLQMC
XLQMP
XLOPC
XLQRB
XLQRE
XLQRS
XLOSK
XPRINT

2n84
20811
1380
831
1769

XRAND

102
106

1754

181%
1793
1744

104
1264
1543
1365

zmovan

ZMOVEB

464

655
2408

1976

2049

2214

17668
1775*
216
2290

1931
21040
20908

2341
2011
2120

2086
1838

2088

905

911

2078

2207
2123

31248
2124

2032
1076

2286

2318

2004

.1163

1201

121?

2080

2111

2208

2235

1214

1245

1319

1380

1175

17718

1681
24010

2133#
21590
2149#

1742

258$

400
574
712

5768

708
'

1711
1701
1721
1089
1752
1729

209

711

590
589
686

668

)L1174
.L1175

667
604

.L117b

656

uL1177

,L1371
.L1372

2577

1744

257$

934
232

.L1165

.L2774
.L2775
.L277b

2613

710

?36
235

.L2765
.L2756
.L2767
.L2770
,L2771
.L7772
,L2773

1883

2611

212

937

.L0371
.L0372
.L0373
,L0374
,L0315
.00376
,L0377
.Los77
.L0777

,L27b4

1858

25990

15545
15764
2510
252%
2534
254K
2558
2563

.L0370

,L177b
9L1777
.L2172
.L2173
.L2174
.L2175
9L2176
IL2177
.L2366
|L2367
.L2370
.L2371
.L2372
.L2373
.L2374
,L2375
.L2376
,L2377
,L2571
5L2572
.L2573
.L2574
.L2575
.L2570
.L2577
.L2751
.L2762
.L2753

§£n 0097

1816

1813
1827#

2596

25710

1801
177?
1763
1789

xsTAT

.L1373
.b1374
.L1375
.L1376
.L1377
.L1572
.L1573
.L1574
,L1575
,L1576
.L1577
.01775

1825

1826

1220

xaassu
xsnvcm

.L1166
,L1167
.L1170
.L1171
.L1172
.L1173

18210
1802*

1814
2594
235
737

2416
2144
2165
2155
1807

4088

721
717
7298
699
695
732#
677

727#
720

7288

730%
698

731$

7334
734%

676

551

073
735%
725
737#

947
791
770

859
8784
779

861

867

769

775
756
752

879%
778
766
755

880}
881$
882?

747
746

743
995

969
033
927
097

R95
1n35
1014
1012
1136
1110
1108
1084

10051
10068
10070
1051!
10523

1053#
11681
11694

11704

11718
11728
1062

1254

12618

1249

12627
12630

1237
1194

1193

1207
1205

1187

12605

1186
1185'

1267#
12683

1184

1269#

1180
1162

1270?
14156
1355
1417#
14188
1419#
1298

1144
1128
1307

1289
1280
1276

1451
1446

15327

1487
1480
1473
1463

12648

12658

34163

14200

1421!
1524?
1525}
15263
15270
15280
15296
15308
15318

1904
1494
1490

1173*

1376

1444
1436

1453
1442

1435

15351

1434
1433

1536‘
15373

1466
1476

8777

§gn

8830
10028
1003#
10043

1n60

1064

7361

15330
15347

0098

.L2777
.L3165
,L3166
,L3157
”L3170
9L3171
“L317?
5L3173
.L3174
3L3175
3L3176
3L3177
.L3375
9L3375

1507
1604
3&03
1797
1596
1795
1594
1563
1921
1795
1792

.L3377

1741

.L3574
5L3575
.L3576
.L3577
0L3774
.L3775

1933
1937
1907
2013
2017

”L3776
.L3777
9L4173

1976
2113

1432
1514

1503

assa

1985

15380
16500
1655#
1656?
16570
26580
16598
1602
16610
1601
1569
1547

16620
1571
1549

1837

18440

21740
21750
2107
21770
2235
23018
23028
23038
23040

9L4573
,L4574
.L4575
.L4576
_.L4577
,L4750

GL4761
.L4762
.Lé763
,L4764
,Lé765
.L4766
.L4767
9L477U
.L4771
,I.L4772
.L4773

.L4774
.L4775
.L4776

2403

2574
2169

2317
2612

2610
2609

2608
2600
2603

2600
2865
2363
2§61
2559
2557
2553
2869
2545

.L4777

0L5365

5L5367
.L5371
.L5372

0100

19090

2176*
23000

24708
24710

24720
24738
20168
26178
26183
26190
26200
2621§
26220
2623‘
2624#
26258
26260
26270
2628#
2629#
26308

26318

2687?

gh5176
.L5177

3L5357
.L5350
,L5351
.L5362
.L5303
.L5354
.L5365

SEQ

16630
16648

24590

2573
26843
26850
26960

.L5172
5L5173
.L5174
.L5175

1580
1558

2027#
20280
2173#

2140

2253
2224
2214
2407

1578
1556

19473

i948#
1883
2025#
20263

2079
2075

"2254

1660#

18453

.L4174

2049
2257

0099

18463
19468

,L4175
3L4175
3L4177
.L4373
.L4374
,L4375
954376
.L4377

gzu

26888
26898

28310
2813
2308
2706
2793

2788
2735
2734
2733
2732
2722
2715
2713
2710
2704

2599
2696
2929
2918
2900

2881
2880
2379
2974
2873
2957
2856
2855
2853
3035
3n34
3028
3027
3007
2990
2989
2968
2987

769
746

232
711

2570
559
1110

2563

2832#
28336
2024
28353

28340

r2836?
23370
2805
2807
28408
2841#
2829
2720
2717
28458
28460
28470
29708
2925
2972#

2891
2890

2889
2898
29773

2823
2809

23337
2325

2827

28399

2842#
28430
28448

29710
29733
29740
29758
29760
“3/

29780
2858
2980#
2981*

29793

31083
3109#

31103
31118
31120
31130
2991
3005
3003
775
752
2558
717
2686*
695
11690
2624!

3006

3003

31100

31150
3116#
778
755

9907
882%

2606
720
2881

2520»
7291

698

1237

289i

2973#

731#
1263:

1276

1421*

2650

26888

1362

1415#

$33

10046
1270#

1180

997

1261#
1053#
1006?

2571

2685#

2793
1307

2835#

1494

1525?

667
1280

1298

1254
1n12

1989

2957
@59

1108
1v41
2926
2:08

Soc?
Q27
1014
1193

1328
995

1035
1135
1249
ags

1514
1508
1595
1594
1541

eVS237
.V5303
.V5317
.V5340
.V5400
“V5405
.V5453
,V5455
.V5600
,VSBO!

1792

3034
1463

3109:
1530s

18954

7342
1420a
2990

2608

2619s

3113#

1064
12653
3027
1907

11723

1473

15293

1937

1947»

2017

1985

2027:

2224

23033

2980#
877#

2999
2113

217;:

20253

2253

2302a

2539

257;

2267

2285

23003

2913

2925

297;;

2214

2304!

3111#

1948#

226m

2677

2594s

2834#

2855

859

861

957

2317

2473:

3005

3115*
'

4088

2970#
576*
725
12693

7369
1432

15389

2403

2470?

2588

1417#
10022
10513
11683
1262#
10073
1654?
1b55#
16613
1601

1662#

1547

1549

1556

1558

166%#

1660#
1571

1578

1580

16638

1949#

1975

20288

2049

1433
1435

1537»
15358

16598

1569

SEQ 0402
2177*

2465

2374
2368
2079
1185

1187
29:3
2715
2610
3008

28423
2733

2612
2879

2734
29758

2807

2809

2825

2827

2839i

2856

2858

29793

2805

2823

2838#

2853

2981*

2987

3003

31167

15323

3110“

2q00
29748

2980
2557

2853
2549
2735
2843#

2713
2710

2844#
29763

2874
2545

,V5514
,vs654
.V5570
.V6777
.V7ooo
0V7001
,V7l44

2561

.V7145

1487
1796
2407
210
1436
651
664
668

,v7400
,V7401
.V7600
,V7634
.V7661
3V7677
.V7700
.V7720
9V7735
.V7740
“V7750
,V7763
.V7765
.V7767
.V7770
.V7771
“V7773
.V7774
.V7775

2622i

13733

2568

16563

237
1:58

2600

§EQ o;o&

1657#

2840#
2824

1602

1504
935

1062

2&183

1507

.vasoz

,V5007
,VSZOO

1206

1%97
1%96
1563

,vaooo
.v327o

.vsooo

11708
18468
2831#
2333#
31128
1005?
10523

11713
16585
2841?

656
1194
909

.vssso
.V3351
.v3777
,V4000
,v4002
,v4144
,V4145
.V4610
.V4621

1%19fi
29787
1003fi

2847*

2a06
947
406
2929

1060
1604

673

inea
1503

2722

26898
26262

14188

2696

212
2509
2732

2648
2559

3635
1186

1344
234
236

1434f

1535;

1376
1480

1416;
1523#

1446

18448

2110

21743

1476
791

1534*
878#

1451

1490

15263

1466

1533:

7704

28458

730!
2018

2025;

2254

23017

3028

727#

2661

2687#

2973

29777

7333

2788

2603
1194

1264B
2176*

2075
2699
1444

586
590
1938
708
712
743

8833

2989

2991

3005

,v777e

747

756

766

881%