PDF 5412 MDP Vol 5 5
·\ · I

·--·=-- · · · · . · · =- · t! . . . . ---- ._,__ - .--- --~ -··-- ,,__ _,.-., ~--- ·----l-

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

.,.;.

.o,..._ ·· ·-.

-~':: ~.-~-- .~ ~-'":":~. · .. _...

;ot- .........:....::-..

> '<- "'ih"'- ··-"

_... .··

.,,.. ~-.---:,...,,.........'(.::~-~-. :--..~..;:._,.,,.,i;;.: ..t~:;,;:;"'~~~ i<. ~-··-· ,.....·.,,

·

·

· · · · ··c. ~-~-.~:~·s.·-:;..~;.·.~J~~-~~~~,,-·--., ~,..,.+:~ef".W ~.-.,.......,._..,.:- ":':'"":-.;,,,~<~".... ·

-·

· ·

, ..
·;

c
c teM MAl~TENANCE DIAGNOSTIC PROGRAM

PART NO.

5558??8

· IBM MAIN1'ENANCE OIAGNC$11C PROGAA·

PAGE

t ·

-

.

PARf' NDe 5558'178

40FI
(
ERR LOC Ge.tECT CODE

ADOR STMT SOURCE STA~~MENT

40FI
0

3741 ST$TE~ TEST MODULE

PAGE

IA

c
c eooc
CAOC

c

OACC 40FI

0AC2 40

0AC3 01

OA04 ODCE

OA06 OAOC

CAC8 0000

c

OAOA 405000

c

OAOI OA02

EAR LOC 08.IECT CODE

2 ·

3

DECK I

LAST CHG :oa 01 74 '

· · SEQ 0

5

START 0

6

TREP

1

., · 8

.

.

.

.

.

.

.

C. ~. G. .

.

.

.X.·

.O.A.O.O.·

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

I
:

9
.. ., · to ·

SECT1CN PREFACE

.:
.:

11 12

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

,

0

...13

DC XL2·40FI·

PROGRAM ID AND REVISION LEVEL

OAUD 01 CAOE 80 OAOF FFFF

CC XLl·40'

CP END INTERRUPT FLAG

0A03 IS

DC XL 1901 ·

CURRENT ROUT!NE NUMBER

OA05 16

DC

AL2CJM)

INTERRuPT MANDLER

OAO? 17

DC

AL~(ATNOIJ

ADOR~SS OF FIRST ROUTINE

OAQg 1e

cc

XL~·oooo·

ERROR RECORDING TABLE

OAOC 19 UDTl oc

XL~··osoco·

3741

OA JI 31 41 133A

OAI!! 3C 00 131A

AOOR STllT SOURCE STATEllENY

t.i\00
OAOE OAlO

21 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .~··$ . . . . . . . . . . . . .

22 ·
23 ·

·
THIS ~C~11tiE ·AITES.A CATTERN OR READS AECORD5 DEPENDING·

* 24 ·
25

ON IT

HCtir
·AIT

THE 3741
S f'CR 374

IS
1

l:~'!"EfTEAURUPPe T.

1T CHECKS FOR
READ lllODE OR

ERRORS.
WAITE ·ODE·

·
·

U·

·

22'8? ···········it····..··················-··#·······...···--···...····..····

29 RTNOI OC

30

DC

31

oc

32

at ·ao·

Rt!VTtNE I
MANUAL IN'P.RVEMION AEQUl~ED ~·ST ROUTINE

33.

34 · 35 ·

INJ~IAL SET ~p FCP SYS'TEN TEST·

.!6 ..

37
... .38
·3o9

LIO NYI

FUNBtT.LF".'NC
IN'T~LGe··no·

FUftlCTION ae'G T~ x··ooo·
Cl.EAR INTERRUPT FLAG

c

·2 ·
43.

SET UF FOR I~ LCCP

44' ·

48

c

OAl9 '3C !!E 1319

46

0

OAlC OC 00 OF5~ 1319
OA2'3 OC 7E OFSCil ·!!!A

·7 48

OA29 OC 04 1!2F 13~A

49

0

OA2F OC 04 OEEO 132F

50 SJ

CM'A·X·~s·

START WIT" o~ FJEl..D

BUFF2+127CtteCHAR

PROPOGATE ·CHA~· TffROUGH 8UFFeA

RUFF2+126(t2"PlwBUFF2+17.7

SEOC!l.~~#CNE 8U~F2+S(~l.SEO

INITIALIZE tOUNTER CFOFOFll PUT COUNT INTO BUFFER

c
(

0 0~35 F3 40 04

OA38

51

52 · WA IT FQR SOME 3741 S:GNAt. BEFOPE BEGINNING. THEN IG.-.ORE THAT 53 · FIRST JNTeRRPUTe

54 BEG

SIC

55 HGRDV EQU

SDfSASeSC~TR\.
·

DISABLE INTERRUPT.

( (

OA 3e 30 4~ 1340

OA~C 39 03 l33F

0

OA40 3t;i FC 1340
OA44 CC 90 OA!JO

OA48 CO e7 OCCF

e

0A4C CO 87 OA38

56

S~!

SH!3eS\.J~ES

57

1'8f' SNS3-l·Jl·03·

·AIT FOR READ OR WPIT£ MODE ETCe

58

TeF SNS39··eo··EDS·81PE·ECR+EC~+AT DR EAACMS.

59 60

er IG.11

. e

SUP

eRANCH IF ONf! ~ MQqE IS ONe GO TC SUPBIV! SOR

61

I!

t'GS:DY

e2

(
c

OASO 3C ST OA'7A

0

t>A54 F3 40 01

· 63 IGA
6· 65
66

. .VI SIC

SRESE T · !C ~TRL

SET UP FOR Ab ROUTINE TO IGNORE TttJS IST INTeARUPT·
~ILL T~IS l"TERRUPTe

0

66 66

0

6., · 68 ·

-------~~----------.~~------------

69 ·

(

70 ·

(

0

.,.71
71

(
c

c

OA~'1 OC 7F OED.A OFSA

OASC CO 87 OA?!!

0

OAf'l CO E7 CC?8 OA65 30 FF 1312

0Af'9 CO 81 0095

0

OAeo co e7 OA5"P
·

72 Wl.ODP 73
7· 75 ?& 77 78
79

f'QU
tl!VC
e e
CLI
ee e

·
BUFf'-1+127Cl281·BUFF2+127

NOV£ PATTERN 8UFF~ ~ IA:I 8UF'F

AW

GO TO RE.AO.AiatT£ ROU11NE

c·ceuF

CHANGE PATTERN IN BUFFER

UfOeJC·FFt

SEE IF UNEXPECTED ltnEctRUPT OC.atlllRtrO

UNf WLC~P

BRANCK. lF SD EAANCH tsAC1t FC)R NEXT RECORD

(...

OA71 CO P7 OA7!1
c

BO
81 81

···

FIL\.ER

(

81

DA1£

l~AVG?·

EC' M>. 824?65 .

PROG 10 PAGE

40F-t

0 DA'TF
c ec No.

I EAUG74 e24765

PROG 10 PAGE

. \:

· ·

--y-iI ---

(
I..
···

teM MAl~TENANCE OIAGNO!TIC PROGRAM

Jr:c
\o;i;i'
···
PART NO· f'AGE

PART NOe PAGE

!5!5!58?'7 8
2A

40Fl !741 SVSTE'1 TE5T lllODU\..E .

(

ERR LOC CBJECT cooe

ADDA STMT SOURCE STATE·ENT

·OFI
(')

3741 SVStE~ TEST MODULE

F.RR LDC. OBJECT CODE

AODR STMT s~~CE STATEMENT

(

OA75 34 oe oe7o

r
'\. ...

OA79 F2 07 ce 0A7C CO e7 OCFE

c

OA8Cl !O 43 1340 OA~4 3C C? OA7A

OAee 39 FC 13AO

(

oAec co 90 0871

CA90 :?c; 03 133F

(

0A9A CO 10 OBF7

OAt;E 38 03 133F

CA4iiC CO 10 OCE2
(_

c

OAlaO !C A2 0AC3

()AAA !l! 01 133F

(

OAAe :!9 Oi t33F

OAAC F2 10 04

OAAF 3C 41 OAC3
(.

( OAE:: F! 43 oe

OAeE :!1 42 133E

(

(IAE-A :!I 44 OF5C

OAEE CO 87 OOA9

(
0AC2 F3 00 00

(

OAC5 3C 02 OC6F

OAC9 Ct 42 OAOO

OACO F2 e7 CC

OAOO (;O e7 OClC

OA04 CO E7 OCB3

OACB CO e7 OAC«;

83 ...............
B8e86s47·*·.···R·W·R·ER·AE·CA·D·C!·R·C·IRWI·! ·R··IRT·EI·T·RE·O·!·U·AT·!I·N·DE·E.·T·E·R·M·I·N·E·D··e·v··3·?·4·1··S·E·T**U*P*·*·

OAB3 OAOC

8889 · · · · · · · · · - · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·. .······. .··

90 R"

ST

RWf;+3.AR~

91 IGB

.IC

tGC.JC·07·

92

e

GE TINT

SET UP FIETURN ALTERED TO IGNORE lST INTERRUPT WAIT FOR INTERRUPT

93

94

S"S SNS3eSLINES

SNS 10 TRANSFER l.INl:S

95 JGC

MVI IGE+1.x 1 07·

IGNORE 1ST INTERRUPT ONLY

96 · 97 9@

TEST FCR EPRCR INCICATION

TeF

SN!3.x·eo·+EDS+BIPE+EOR+EO~+AT

8F

STATER

IF NOT OFF. GD 9RINT STATUS ERROR

99 100 101 102 103 104 t04

TEF BT TeN BT

SNS3-1.x·o3· NO.,COE SNS3-t.x·e3· TCWODE

5EE IF READ OR WRITE MOOE ON STATUS ERROR I~ BOTW OFF SEE IF READ OP WRITE MOOE ON STATUS ERROR IF BOTH ON

104

105 105
* 105
106 1(17 108 109
110 Ill

SET UP RE-0 CR W~ITE AC~DING TO 3'741

MVI DOU0+1 eS·RITE

TBN

SN53-le~·OJ·

IF READ MOOE ON ANO

TBF SN!3-l·ll'02'

WRITE MODE OFF.

.JT

MOCEOIC

..va OC!IO+l·SREAD

THEN GO.ON WITH WRITE OTHERWISE ASSUME READ

112

112

112
113 MODECW ecu

114

510

us

t.10

ll&

LIO

117

e

ue

119 ·

120 00510 SIO

121 ·

122

MVI

123 WAITBV TIO

124

.J

125. ISBSV B

126

a

127

e

128 SNOTS\' eou

129

·
RE.SCTLt LEMiTt'!eLLCR BUFF I l l 1 l.C AR ENABLE
WSEC12 ISESY1TBSV SNC1'BY ·A IT TDOBSY
·W·ITBY

RESPOND TO WRITE,READ MODE LOAD LENGTH COUNT REGISTER (7F! LOAD OATA AOORESS REGISTER ENASLE UJTERRUPTS (MOD l5J
~lO TO REAO OR WRITE
eRANCH IF .SUSY GO WAIT FOR eusv TO DROP IF Tl~EOUT· HALT ERROR
NOT BUSY

G
e
0
0
0 .
0

OAFF CO BT 0222
oec3 ·oe2
oeos co el' OA3!!
0809 36.08 1330 oaoc ~2 i;o 1.7 0810 F! 43 ~0 0813 CO 87 t121A OBI? CE oete ·F CB 19 1140 OBIE 4031 oetc co eT ri222 CB21 401!1 082:! CO eT 0A3!

0827 39 EC 1340
oe2e co 90 oen

OB2F 30 FF 133E

0

OB:!! F2 01 30

OB3t: 3C 01 CC6F

OB:!A Ct) 87 OC IC

0

063E CO 87 OA4E

OB'l2 CO !7 083A

OB4E F~ 43 10

0849 CO 87 Cl21E

CB40 01

CiB·E 1~3E

l'850 1198

oes2 co 87 021·

OBS6 C6

OBST 33

oet:e t 19&

0

CBSA 4CS8

oesc cc e7 0222

OBECI ·oee

0

OBE2 CO 8"1 0A3!S

oet:t: co e7 ODA9
OBEA F3 43 08 oeEC co e7 0000

145

B

0804 146 tn82 OC

t47

B

HALT
XL2·4082 1 BEG

RETURN TO SEGl~~ING

148 149 · CHECK FDR OAT- TRANSFER P~AITY ERROR

t'BIT 0818 OBIA OBIC
0622

1!50

151 NOOPOK "fBN

152

.JF

153 154

SIO
e

155

I)('

156

DC

1"57

oc

158

c:

159

B

160 HT81 CC

161

e

SN!2-t.x·ce· NOCTPE
RS~BOPE.SCTLI
PRlhT X1.. p C6· AL IC ~SG?-MSG'781 AL2(MSG7)
JCL~··oe1·
HALT
xL~··oe1·
BEG

DATA XFER PARITY ERROR ? SENSE R£SPO~SE ' BUS OUT PARITY EPR e~s OUT PARITY ERROR
RETURN TC 8EGINNING

162
163 * CHECK STAT~~ ERROR

082'7
0840 OB4F OBSI 0856 · OBST 0859 0858 0861

164
t6S NODTPE eau

1!!6

TBF

167

er-

168

C1. t

169

.rr:

1'70

..v1

171 WI

e

17~

.B

173

e

174

SIC

175

e

1'76

cc

1.,7

oc

178

DC

179

180

e

1e1

.DC

182

oc

18'3

DC

184

· DC

185

e

186 14T88 oc

18'7

e

·SNS3.x·eo·+ECS+BIPE+EO~+AT CMECK FOR STATUS ERRORS

STATER

IF NOT CFFe -PRINT STATUS ERROR

SNS21X·FF·

LCR c FF ?

ACK
wsec.t
W ··AeIT
WI ~s ... sCTLI UHFAt::K

WAIT ONE
SE CON!>
~ESPONSE TD LCR ERROR SET UP FC'UND LCR YAi.UE

XLl·t·

Al.2(SN52)

AL2C·SG9t

"1NT
XLl·C~·
ALllMSG9-tfSG98) AL2CMSG9)
XL~··oee·
HAl.T
JCt..~··oee·
BEG

RETURN TO SEGINNING

188
······ 189
190
··· 191
192 l.93 AOK l94 t95 RWR

RES~CND TO SUCCESSFU\. SIG

·-· B
SU:l 8

ENABLE RE.SCTLl

ALLOW NEXT INTERRUPT RESPONSE CSIC SUCCESSFUL) RETURN TO CALLER

OAOC CO E7 OCFE

130

B

GE11NT

WAIT FOR INTeRRUPT

131

OAEO 30 4! 1340

132

SL'!IS SNS31SLINES

SNS 1,0 TRANSFER LINES

OAEA OC 01 133E 1348
(

133 134

MVC SNS212leSNS21

OBTAIN STATUS (SENSED PREVIOUSLY)

0

OAEA 3e OA l33D CAFE cc 90 oeo9
0AF2 F? 43 50 OAFS CO 87 021 A
CAF9 CE
OAFA 28 CAFI! lOFI o·Fc i0oe2

0AF9 OAFA OAFC OAFE

135 · 136 137
138 139 140 141 142 143 144

C~ECK FC .. NC-CP

TBN
BF
SIC
e
DC
oc cc
DC

SNS2-l1Jr·04· NOOPOK RSi:<+RECJ1!CTLI PRINT XLl'C6· AL l(lllSG6-ll~GEB) AL201SG6)
JCL~··oe2·

QUIT IF NO-OP BIT ON·
SENSE RESPCNSE,EOJ NO-DP·D 510

···
0

DATE EC NOe

tSNCVT4 e2AU!70

PROG ID PAGE

40F-1 2

e DATE
OEC NO.

IC!AUG74 e24'7E!5

15NCV74 824ETO

9ROG tD 9AG£

40F-I
2&

· c

·

·

·

·

·

·

···

·

·

·

·

·

·

0
-~·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

JBM MAINTENANCE DIAGNCSTIC PROGRAM

PART NOe PAGE

555877e

IBM M~l~TENANCE DIAGNCSTIC PROGRAM

3 (

PART NOe PAGE

( (·
c
I'
'·
(
c
{
L (

40Fl 3741 SYSTEW TEST MODULE

r 40Fl

E~ LCC OBJECT COOE

ADDR STMT SOURCE STATEMEN~

ERR LOC DSJECT CODE

AODR STMT SOURCE STATEMENT

119978 *· *··SU··B·P·C·U·T·I·N·E·S··································*·

199 ·

·

oeEF co e7 OA3!5
08F3 CO 87 0000

264

e

BEE

26!5

266 STATRR B

267

RE TUR"'

RETURN TO BEGINNING

{

220010 ················¥································

267 267

201

267

(

* 202 ···········
203 STATER

268 ···········
* 269 · NOMODE

c 0871 34 ce OBF6

0871

204 ··························
* 205 STATER EQU

206

ST

SET UP RETURN

OBF7 34 oe OClB

* 270 ··························
OBF7 271 NOMOOE EQU

272

ST

NCWCDR+3.ARR

SET UP RETURN

(

0875 ~e OB 1340

(

CB79 :.:!«; F7 1340

087[) F2 90 C7

oeeo F:! 43 oe

(

cee:? cc e7 OA3e

207
2oe · 20Q · 210 211 212 213
214

FOR ENO CF J~B. RESFONSE IS GtVENe THEN CONTROL IS RETURNED TO

ROUTINE VHICH ·AITS FOR A SIGNAL FROM 3741·

TBN SNS3.EOJ

IF ITS EOJ ONLY

TEF SNS3.X 1 FF·-EOJ

THEN RESPOND

JF

STATt

OTHERVISE1 GO ON WITH ERROR

SID REeSCTLl

e

~G~OY

RESPOND TO EOJ GO BACK AND VAIT FOR READINESS

ceFe co e7 021e

c

CBFF 02 ocoo 1340

CC02 124!!

OCC4 CO 87 021A
ocoe ce

OBFF OCOl OC03
OCOB

273 274 275 276 277 278
279
280

e

UNf'ACK

DC

XL 1·2·

DC

ALUSNS3)

DC

ALUMSG13)

e

PRINT

cc XLl ·ccs·

UNPACX SNS INTO PRINT~UT NC READ CA WRITE MODEe

(

CBl!!7 F3 43 oe

OBBAo CO E7 OBBE

C£!8E CO B7 021E

CB92 02
oe9:;: 1:!40

cec;s oe5A cec;7 cc e7 c21A

21~

0987 216 STATt EOU

217

SIC

218

B

219

e

0892 220

cc

0894 221

DC

0896 222

DC

223

e

·
RE.SCTL1
···
UNPACK IL 192 ·
AL~CSfl.!3)
AL2CSTATMG) PAINT

RESPOffD

OC09 33 OCOA 1245
ococ ·cec
OCOE CO 87 0222
oc12 ·oec
OC14 CC @7 OA35
oc1e co e7 ccoo

OC09 OCOB OCOD
OCl3

281

cc

282

DC

283

DC

284

8

285 HTBC DC

286

B

287

288 NCMODR B

289 ···········

AL1CMSG13-WSGl3B) ALUMSG13 J XL2'408C 1 HALT
XL~··oec·
BEG
;;e;URN

8C NO READ OR WRITE MODE ON. RETURN TO BEGINNING

01!9£! C2
cec;c 2!
089C 0£5A
·· oe9F" ·oe3

OB9B OB9C OS9E OSAO

224 225 226 227
228 229 · 230 ·

DC

XL 1 1C2 1

cc

IL1'35'

DC

AL2( STATMGI

DC

SHIFT OFF BITS ANO PCT

STATUS ERROR IN tESSAGE DESCRIBING THAT SIT

ANO PRINT

231 ·

232 ·

c · oeu c2 01 OF7t OBAS OC 01 1332 13·0
OBA£! OE 00 13!2 1!~2
· Of'Bl CO AO OBBC
oees 02 en 14
oeee co e7 OBAB

233

LA

234

MVC

235 SPLDOP ALC

236

BOL

237

LA

238

8

STAB1 >CAI WOl'I< C2 l1SNS3 WOf;I(( 1) eWCRK SElPT SLENC ,)(RI l.XRl SPU>CP

· · oBec 239 SETPT ECU

oeec !& 01 oeee

2·0

ST

F81XAl

('·
CBCO 38 04 1340

241

242

TEN SN!3.AT

OBC4 F2 90 lA

2·· (

OBC7 3C ·2 OAC:!

once F2 ct 13

2·3

JF

NOT AT

CLI DO !IO+ 11 S"RI TE

245

JNE NOT AT

oece co 87 021A

246

B

PRINT

0 (

oeo2 et

OBD:!! 5B

0804 12'-0

0 OBOE CO 87 021"

OBD2 247 0803 248 0805 249
250

DC

XL 1881 1

cc

AL1CMSG14-MSG14BI

DC

AL2CMSG14)

B

PRINT

c oeo- et:

OBDA 251

DC

XLt·86·

oece se ceoc 12FB

OBOB 252 08DD 253

DC

ALlCMSGl~-tllSGlEB)

cc

~2Cti!SGl51

oeoe F2 e .. 08

254

J

HLTAT

OSEI 255 NOTAT EQU

· 256

· Of!El CO 87 021A
08E5 1!6 OBEE 14
P· · OBE7 0000

257
aees 258
OBE6 259
OBE8 260

B

PRINT

DC XL1·e6·

DC

Ai.lCSLENI

oc ALH·-·>

261

CSE9 ca 87 0222
· 08EC 4083

262 HLTAT B
oeee 263 HT83 DC

PUT SNS3 INTO WRK AREA IF THAT BIT IS DNe GO PRINT CONTINUE UNTIL BIT FOUND POINT TO LINE WHICH DESCR1aes Bl~ SEE IF THIS WAS ATTENTIO REQWD IF NOT CONTINUE NORMALLY WERE WE WRITIN6 WHEN ATT REQ·D FOUND IF NOT1 CONTINUE NORMALLY PRINT ATT REQ·O, BUT IGNORE MAYBE
IGNORE IF 10E1 ON 3741 SCREEN
MSG CONTINUED
ERROR DURING WAIT FOR R'V MC'OE

<!ClC 34 oe OC68 OC20 CO e7 OCCF OC24 30 00 OC6F CC28 F2 81 12 OC2E! OC 01 OC7l OCEF OC31 OF 01 OC6F OC6F OC :!!7 OC 01 OC6D OC73 OC!C OC FF OC3D OC3D OC43 OC 3B OC43 OC43 OC49 OF 01 OC6D OC75 OC4F F2 01 10 OC~2 OC 01 OC6D OC73 OC58 OF 01 OC7 l OC7~ OCSE CO 81 0C68 OCE2 OE 01 OC6B OC77 OC68 CO 87 0000
CC6C 0000 OC6E 0000 CC7C 0000 OC72 O!Ee 0Cl4 0001 OClf 0004

· DATE

1fAUG7·

EC ND· t!l24lff

l!SNC¥'P4 e2·e1'0

PR06 ID PAGE

40F-l

DATE

l~AUG74

3 · EC NOe @247E5

* 290 WAIT * 229912 ·*····SU··B·R~O·\J·T·IN·E·····A··IT·S···I ··M·I·L·L·I ·S·E·C···PE·R···C·A·L·L· ·AFTER EACH SEC IT

* 293 ·
294

DECREMENTS SEC~ND COUNT. SAWPLE Ll~KAGE - -

295 · 296 · 297. 298. 299 ·

LOOP

MVI WSEC15

B

WAIT

e

TIMOUT

B

LOOP

BEFOPE LOOP· SET UP · OF SECCINOS <~- LINKAGE TO Tl~eGUT ~OUTINE <~- WAIT RETURNS HERE FOR TttlOUT <~- WAIT RETURNS HERE NOMALLY

300 · 301 ...........................................

OClC
OC6D OC6F OC71 OC73 OC75 OC7T

302

30! WAIT EQU

304

. ST

:!105

B

306

CLI

307

.JE

308

.. vc

309

SLC

310

MVC

:!It OLDSEC CLC

312

CLC

313

SLC

314

JNZ

315

MVC

316

SLC

317

BZ

318 WAITRN ALC

!19 W'-ITR B

'320
321 VCNT DC ::122 vsec DC

323 WSECA DC

:!!24 VlOOO DC

:!25 wooot oc

326 wooo· oc

!27

327

·
VAITR+3.ARR
SUF WSEC.O OLCSEC WSECA(U ·"SEC
WSECC 2) .... sec
WCNTC21.Wt000
·C 2S6J ·*
·CEO>.· wct.TC21.wooo1 WAITl'N WCNTC2J.·lCOO WSECAC211WOOOl WA ITR
·-·WAITR+3~21.wooo·
XL2·f>OOO·
JCL2·0GOO· XL2·oooo· IL:C·1000·
IL2· t · IL2 9 4·

SET tF RETURN GO T~ SUPERVISOR NEW COUNT VALUE ~
PUT NE- ~~C COUNT INTO WOR~ ,ERO THE MAIN SEC COUNT· :SET UP TO DO 1000 TIMES -.AIT t tllLLI
DD 1000 TIMES THROUGH LOOP
SET UP TO DO ANOTHER 1000 MILLI SEC DECREMENT NUMBER DF SEC TO WAIT IF IT Tl ..ED OUT1 RETURN DIRECTLY RETURN TO CALLER +4

PROG ID PAGE

40F-l 3A

(.

,.

·

i,

·

IBM MAJ~TENANCE OlAGNCSTIC PROGRAM

PART NO .. PAGE

555877e

IBM MAl~TENANCE OIAGNCSTIC PROGRAM

" (!

PART NOe PAGE

55587?9
4A

40Ft :!741 SYSTEW TEST NCDULE

(} 40Fl

?741 SYSTEM TEST MODULE

ERR LOC oeJECT CODE
(
,.
\. ..

ADDA ST~T SOURCE STATEMENT

332289 ·*·C·H·E·B·U·F·····

:.'130 ·

·

331 ...............................

332 · CHANGE BUFFER FCR ·RITE ·

ERR LCC OE.IECT CODE
· ·

ADOR STMT SOURCE STATEMENT

387 · TCMODE ·

388 ·······························

* 389 · COME ~Ef'E IF BOTH READ

* 390 ·

AND WRITE MODES CN·

3g1 ................................

333 ·

OR READ.

*

(

334 · PATTER~ SEQUENCE. ee AA FF 01 00 55 AA FF 01 00 55 ···

335 ·······························

(
( ( r·
\.
(
· ·

cc7e 34 ce oce2
OC7C 30 01 1319 oc8o F2 01 07 CCI!:! 3C 00 1319 OCB7 F2 87 OD
OCBA OE 00 1?19 t310 OC90 F2 20 O· OC93 3C 01 1319
OC97 OC 00 OF5A 1?19 OC90 OC 7E OF59 OFSA orA3 06 06 132F 132A oc A9 oc 04 oeE2 l32F
OCAF CO e7 0000

OC8A OC97

336

337 CMGBUF ST

338

CLI

Cl- U!UR+3" ARR CH-R.x·o1·

FOR RETURN IF CHAR WAS JUST 01· FORCE 00

'.."39 340 341 342 CMGl 343

JNE
!!VI
J
eou
ALC

CMG! CHIRwx·oo·
NOl<AP
·
CH-P(1)1INCVAL

DtlN 1 T INC~MENT

344

JNOL

345

MVI

346 NORAP ecu

347

MVC

348

MVC

349

AZ

350

MVC

351

352 CHGBUR 8

353

NOf'AP

AFTER FF FORCE TO 01

·
BUFF2+127(l)eCHAR

BUFF2+12~Cl27)eBUFF2~127 PROPOGATE

SEQC5le!l;UMONE

INCREMENT EBCDIC RECORD COUNTER

BUFF2+7CE)eSEQ

ANO PUT JT INTO BUFFER

·-·

RETURN TC CALLER

3!53

3!53

353 354 ···········

355 · TOOBSY it
3576 ····3··7·4·1··e·U·S·Y··T·O·O··L·O·N·G·-~·········

358 ·

·

359 ...............................

OCE~ CO 87 -021 A
OCEE Cfi
OCE7 28 ocEa 1168 OCEA 4CeE

0

ocec co e7 0222

OCFO 40S6

·

OCF2 CO 87 0A3!i

·

·

·

OCF6 34 oe 0094

CCFA 3C OT OC6F

·

OCFE 30 40 OAOO 0002 F2 et 07

·

oooe 30 cs 02co
0009 F2 81 23

OCE6 OCE7 OCE9 OCEB
OCFl

392

393 TOMOOE B

394

DC

?9!5

DC

396

DC

397

DC

PRINT
XL t 1 C6 · AL IC MSG8-WSG8S)
AL2CMSG81 xL2·4oee·

BOTH MODES ON

398

399

e

400 !-IT86 DC

401

B

GO BACK TO BEGINNING

·02 402 402

402

403 ............

* * 404 GETIHT

405 ·······························

·06 · WAIT FCR AN INTE~RUFT

*

* AOT

*

408 ·······························

409

410 GETlNT ST

411

MVI

FOR RETURN WAIT 2 SEC FOff INTERRUPT

412 413 · 414 415 416 417

CHECK IF USING INTERRUPTS CR .IUST THE PENDING BITe

CLI x·100·.x·40·

ARE WE RELOCATED ?

.IE

HNGPNO

IF NOT· WAIT FOR PENDING ONLY

CLI SMCDeC·E·

ARE WE MODEL 15·

..-e HNGINT

IF NOT· WAIT F(tq PENDING ONLY

418

oce? 34 oe occE

oce7 co 87 021,,.

ocee c2

CJCBC 27
cceo 11c2

OC8F 401!E

OCCt CO 87 0222

OCC! 4Cl!E

OCC7 CO 87 OA'35

~·
"-'

occe co e7 0000

OCBB OCBC OCBE occo
OCC6

360

361 TOOSSY ST

362

B

363

DC

36·

DC

365

DC

366

DC

367

B

368 HT8E DC

!69

e

370 TOOBSR B

371

371

371

371 372 ............

TOCBSR+3 ·ARR PRINT XLI ·C2 1 ALl(MSGlO-MSGlOB)
Al.2CMSG10) ><L2·4cee· HALT a2e4oee·
--·BEG

FOR RETURH COMPARE E~OR ON RECORD XXX
BUSY T~ LONG RETUr.N TO BEGINNING
RET~N

?73 · SUP

·

374 ·······························

375 · BRANCl-'ES TO S~PERYl~CR IF IN SYSTEM TEST ..aoe.

376 ·

OT~ER·ISE ~ETUf<~S TO CALLER

·

ODOC 30 42 133E

·

0010 OC 01 1348 133E 0016 38 20 1330

OOlA F2 10 OC

ODlC CO 87 OClC

0021 CO 87 004A

c

002!5 cc e7 oooc OD29 F~ 40 01

OD2C F2 @7 13

·

e

002F 30 FF 131A OD3! F2 Sl OC

0036 C~ 87 OCtC

OD?A CO 87 004A

·

OO!E CO 87 OD2F

* 418
419

WAIT FDR INTERAUFT PENDING

420 HNGPND SNS SNS2eSSTAT

421

MVC SNS21C2leSNS2

422 · 423 424
·~s
426
427 428 INTOC 429

Tl!!N JT
B B B
S10 J

SN!2-twJ1·2c· INTDC ·AIT NOIERR HNGFND SRESET ·SC lliTAL
PE~D

430

430 ·31 ·

WAIT FDR IN1ERRUPT

432 HNGINT CL1 lNTFLG1X 1 FF·

433

JE

PEND

434

e

·AIT

·35

S

NO IE RR

436

B

HNGINT

PUT SNS ~ INTO SNS21 FOR US1! LATER
AS IF SNSEO ev INTERRUPT ROUTINE
IS INTERRuPT PENOlNG BIT CN ? WAIT UNTIL IT DOES
RESET tT wtfEN IT COMES
INT~RllUPT RECEIEVEO \"ET ? WAIT TIL IT DOES TIMEOUT LOOP SACK

OCCF 3· ce OCEl

OCC3 30 "0 OAOO

(

c

OC07 F2 et 04 OCCA CO e7 OAOA

ocoe cc e7 0000

L (
· · · ·

·

337778 ······*························

379 SUP

ST

SUFR+3.Af<Fl

380

Cl.I x·OAOO·.x·40 1

381

.IE

SUPR

382

B

383

384 SUPR B

385

ENTf<V
·-·

385

385

385 386

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

FOR RETURN
see IF WE ARE RELOCAlcDo
tF NOTe GO RIGHT BACK. GO TO SUPERVISOR
RETURN

PROG ID
· · · · · · · · ·PAGE

437

437

,. 0042 3C 00 l!lA 0046 co 87 0091

438 PEND MVI lNl'FLG. )(I oo·

439

B

GETR

CLEAR I NT FLAG GO RETURN TO ~ALLER

·
· 004A 30 43 1340

·

0041!' 38 04 133F

00!:2 F2 10 OA

·40

··o441 · INTERRUPT OR INTERRUPT PENDING N~T FOUND·

* 442

FIRST SEE IF DEVICE tS ON LINE

443

·43 444 NOJERR SNS

445

TSN

446

.n

SN!3.SLINES SNS3-1·x·041 ONLN

FIRST CHECK IF ON-LINE
IF ON-LINl:e THEN GCl ON

40F-1
· ···· · · · · · · · · · · · · 4

DATE

lf.AUGl'4

EC NO o 8247:!:

t!5NCY74 624270

PROG JO PAGE

·

·

·

l
I
·I

· ·-·

· ·· ,. ~.. :

. -· . . . · . . . . · . ·-~- -"··-"'·-~-Y '""''~-~--- -~_ ,_J_ ""'="'-~~,.,;.~,;,«.,~--' .....-._ _,.,

..--,_,._,-._, ------·-'' ,,,,,,

,, '

....

'''"·'--"'''''

:@_

·

··---·-~-·

· -. _.... ...:·· ··.,, ·· ,., ::

- J :,..- -~·:·._.., · -- ·

·

·

·

·

- -----·-~··_',·_·,__.___··~_.. ~-_~ ,_A:- -~·~ ·_A__ ---:-:· ·~

(
ISM MAl~TENANCE 01AGNC!T1C PJ;CG~AM

PART NOe PAGE

:i ·

!!i·. 5558T7e

letl MAl~TENMtlCE DIAGNOSTIC PSIOGSIAM .

PART tGe PAGE

5!i!i877e !IA

3?41 STSTE~ 1E!T ~ODULE

C) 40F 1 3'741 SYS"ft:I' TES'I ll!ODULE

EPA LOC CS.JECT COOE

(

cos~ co B7 0222

co!c; ·c:eo

c

ocse co 87 OA:?S

(
OOSF :!O 40 OACC
ODE~ F2 81 OA CDH' :!D CS 0200 ODE-A F2 01 03 ODEC F2 87 00
(

0070 CO 87 1121 A
C0'74 CE
0075 2e 007e OFFO t07f 4CE4
007A F2 e7 OA

COTO CO e7 0081 CE
ooe2 ""
OOe:! lC4C
ooes ·ce·

021A

coe7 cc e7 0222

ooee .o.oe·

(

ooec cc e7 OA35

OD"il CC E7 0000

(

(

coca CO S7 021A

r
'

oo~c; C6 COSA 2e _009E 1 lEA

Ot>90 41087
(

0091= CO B7 0222

OOA3 40e?

(

COA!: CO 27 OA3S

c

c

(

(

(

CDA10 34 Ct' ODC5

OOAC 30 40 OAOO

AOOA !TMT SOURCE STATEMENT

OOSA
OOSF
0074 OC7S 0077 0079
0081 0082 ooe4
oce6
ooec
0095 0099 OD9A 009C OD9E OCA4

4·7

e

448 HT80 DC

HALT
XL:&··oaa·

NOT ON-LINE

449

B

BEG

RETURN TO eeGtNNING

450

450
· 451 ONLN EOU
452 · CHECK 1F USl~G INTER~FTS OR JUST THE PENDING BJTe

453

CL1 x·,tOO·.>e·40·

A~E VE RELOCATED ?

454 455

.JE

NOt=NO

CL! SMCCeC·E·

IF NOTw PENDING BIT MtSSEOe ARE WE MODEL 1 !Se

4!56 457

JNf! .J

NOt="'D
NOJN'T

1F NOT· PENOINE BIT MISSED.
IF so. ACTUAL INTERRUPT MISSED

·SB

·SB

459
e 460 NOPND

PRINT

INT PENO BIT NOT ON

4l61 462

DC

XLl·C6·

cc

AL U·S6l-Jl!GISJ

463

DC

AL:&IMSGU

464

DC

465

.J

466

467 NCINT B

468

DC

PRINT
l<Ll8C6·

EXPECfEO INTERRUPT OJD NOT OCCUR

469

DC

AL 11 MSG2-M!G2BI

470

DC

AU!01SG2>

471

DC

472
473 NOIHT e
474 HT84 DC

HALT

INTERRUPT DID NOT OCCUR

475

B

RETURN TO BEGINNING

476 GETR B

RETURN TD CALLER

477

4T8

478

479 ···········

480 · UNE

o

* 448821· · · · ·U·N·E·X·P·E·C·T·E·D· ·J·ti·;T·E-R·f;·IU·P·T· · · · · · · ·O·

483 ·

·

484 ·······························

48S 486 UNE 4e7 488 489 A90
491

· ECU

e

PRINT

DC

XLt·C6·

oc

ALICMSE11-MSG11B1

DC

AL2(MSGll)

cc XL:&··oe7·

Uf'!EXP INTERRUPT·

492

493 HNJ

B

494 HT87 DC

HALT
XL:&·4oeT·

UNEXPECTED INTERRUPT.

·95

B

SEG

49~

496

"96

·06

696

497 . . . . . . . . . . . . . . . . . . . . . . . . . .. . .

498 *

INTERRPUT- ENAeLING AOUTIN!:'.

499 ·

!SOC ··········· . .··············501

502 · INTERA~UT A. aaGS

503 ·

EXPFLG

50.4 ·
sos ..

IHTFLG

506 ENABLE S'f

ENISLR+:'9 ·RR

SOT

CLI x··oo·.x··o·

FM RETURN ARE WE PELOC:ATED ?

ERR LOC Ot!..JECT CODE
CCBI F2 et OE ooe4 30 cs 0200 ooee ,.2 01 '>7 CDS!! 3C FF 131 l
OCBF f'3 .a 02
OOC2 CO e7 OOOct

ODCE 30 42 t3o\e

ODCA 3fl 20 1347

0

OOCE CC 90 OAOE

0002 3C ff 1311

oooe 3C oo 1311

0

OCCA F2 81 04

ODCD 3C FF 1312

l'OEl ::SC FF 131.ll.

ODE~ CO 87 CA\2

ODE'i F:! 40 OS

ODEC CO t!7 OAlllS

"A"1

eDFO 34 08 0£1 ! ODF4 CO 87 021E

COFe 40

ODF9 CE9A

ODFe OBFF

COFC CO E7 02IA

0

OEOl At

OEC2 CO e7 021E

OEC6 40

CEC7 CIECA

c

OEC~ OE!FF
Of!CI! CC 87 021 A

<lEOF A~

CEJO CO 87 0300

0

0
·

0

OE 14 34 08 OE3l'

()EIS CC E!7 G21E

OEI< 40
oeu:: oFtA

OEIF O@FF

Ai>DR '5.,..T SOURCE STATEMeNT

508

.n: ENABLR

IF NOT· t>QN·T ENABLE

509

<LI SMCOeC·E·

ARE WE MCDEL 1 Se

510

,ffllf ENABLA

IF NOT. OON·T ENABl.E

511

.. VI

512

SID

513 EflfASLR 8

514

EXf:FLG·X·FF·
·-·S£fliAth set.Tf;\.

SHOW INTEPRUPT IS ExPEC1'EO
EWABl.E INTERAP"JTS RETURN TO CALL~

551165 ·· ~······IN~T·E·R·R·P·U··T··H··A·N·C·L·tN·G··R··OUTINE

517 ·

ODC6

518 519 520

*····························

IH

· EOU

521

'S"S

SN!21e~!TAT

522

TSN SN!21-l·ll·20·

15 ~UT INT PEND BIT CN ?

523

BF

N(;TME

IF HOTe LEAVEe

524

".:LI EXPFLG.X·FF·

DID WE EXPECT THIS INTERRUPT ?

525

MVI EXO:FLG·X'00"

RESET EXPECT FLA6

526 S27 528

....,..IE
fil'YJ

·+l UN>CeX 1 FF·
tNTFLGeX·~F·

SHO· Utl.'E XPECTEO INTERRUPT SHOW tNTERRuPT DIO OCCUR

529 530

8
&IC

RE STOA SOJSAf+$RE~ETeSCNTRL RESET INTERRUPT ~NO rtsAeLE

531

e

NXTINT

GO TO SUPERVISOR JN C~SE STILL IN INT

532

532

532

534!
532 533 ·············

534 · DU~Pl

·

535 ~

·

553367 ···O·U·M·P·-·~·C·C·i·f'J·T·E·N·T·S··C·F··E·U·F·F~E·R··I ··········...····

S:!B ·

·

539 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. .

540 DUMPl ST

54i

!'.I

DU~P~A+3eARR
UNS:ACK

FOR AETUttN UNPACtc FIRST Mat.F OF 1?8 B\'TE RFC

OOF8 542 ODFA 543
ODFC 544 545

CC

IL1·64 1

.OC

AL2(BUFF1+631

DC

)CL/i 1 8FF·

8

PAlhT

0CP 8\FFRI ·.

OEOl 546

DC

JfLl'At'

FROM OWi l!\IFFZA

OE06
OE08
OEOA
OEOF

547

548

B

!549

DC

5!50

·cc

551

DC

552

B

553

DC

554 OUMPIR S

555

!5!5!5

CJNF"CK IL 1 ·e4·
ALUSUFFl+l27J XL2·8ff·
Pfl INT
·-·XL J·A6·

UNPACIC SECOND MM.,F OF 128 8YTE REC
OCP 5Uf'F1!W FROM OW SUFFER
RETURN 'TO CALLEa

555

!SSS

S!i!S

55e ········. . . . .

557 · DUMP2 0

558 ·

·

559 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

* 560 OUMPS CONTENTS OF SUFFER 2

·

ffl ·

·

OEIC OElE
oezo

!556632 b·U·M··P·2···ST·····O··U·l·ll·P·2·R~+·!·e··M··--·······FO·R·.R.E.T.U·R·N

564

a

UNPACK

UNPACK Ft-ST

565

DC

566

oc

-.L~CBUFf"t+e3J

567

DC

XL2 1 8FF·

DCP BUFFER

HALF OF 12e BYTE REC

DATC
EC ""'O·

PROG 10 PAGE

40F-l 5

0 t>ATf EC fl;Oa
0

U~AUG74
824765

15NDY?4 e24e70

PROG JO PAGE

40F-t 5A

. 1
j

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

J
·! o
0

·

IEM ~Al~TENANCE OIAGNCSTIC PROGRAM

40Fl :!741 SVSTEM TEST MODULE

ERR LCC CEJECT CODE

ADDA STMT SOURCE STATEMENT

OEU CO E7 021A CE25 Al

OEH CC E7 021E

OE~A 40

ee2e OF5A

(

0£20 OBFF

OE2F CO 87 021"

OF!:! AE

OE:!4 CO 87 0000

OE25
OE2A OE2C OE2E OE33

568

B

569

DC

51'0

571

B

572

DC

573

DC

574

oc

575

e

576

DC

577 DUMP2R B

UN FACK tLl·64· a2ceuFF2+1271
._.XL~·eFF·
PRINT X\.l 9116·

( ( (

c
(
c c
c
c
,_
c
(_

c
c

c

DATF
c EC NO.

lEAUG74 e247Ef:

· · ·c~

· · · ·

PART NOe PAGE

0 - 5S581'7e 6

1SM MAINTENANCE OtAGtiCSTIC A:!DGRAM

PART NOe ·5558776

PAGE

6A

c 4DFI 3741 SYSTEM TEST MODULE

ERR LCC CEJECT coce

ADDR STMT SOURCE STATEMEN~

FRDl'I OWN SUFFER UNPACK SECOND ~ALF OF 128 BYTE REC
OCP euFFER FROM OWN SUFFER RETUJaN TO CA~ER

0
0 0
c
0 G 0
0
0
c
0
0 0 0
()
0 0

·· 5s7~9 · ·····$·········¥································

t;81 *

·ESSAGES

·

~2$

·

~3·

·

..·················..· 584.

·

OE:!8 C960r.640E309Cl05 OF.SA

585 586

·ST~A·Y·M··G·o··c~···C·L·~·S···l·-·D···T·PA·oN·SFER

LtNES

-SENSE

3-

xxxx·

CE4C E2CEC5C94003C9CS

586

OE4E C!E24~EOE2C!O!E2

586

OE50 CS4CF36040~040ET

586

CE5e E7E7l:7

586 587

oese

OESB ()EDA
OED8 OF5A

587 588 BUFFI 599 590 8UFFS'
!591

.eou
DS £2U OS

· ·CLl28
n12r;

READ BUff~
REt.D SUFFFO

OFSB 59?

DC

CLt· ·

CF5C OE5!3

593 CWSO ~94 SUFFl8 DC
595

AL2CBUFFtl

LEFT ENP OF READ FteL.O

595

S9'5 OFSE CtE3E3~lC!CeD4Cf OF71 596 STAS

C~2C·ATTACHlleNT RST

·

OF'EE DSE34C09E2E34040

596

t'FEE ·0404040

596

OF72 CSDSC440DECE40C4 OFSS 591'

oc

CF7- CIE3Cl40E2C5E340

!59?

OFE2 4C404040

597

OFeE F~F7F4Fl40C2E4E2 CW99 598

oc

CL20·3741 eus IN PR~Y ERR·

OFel: 4CC905400709E3E8

598

oFc;e 4t)CSt"t;D9

599

~F9A CSDSC44006C64009 OFAO !;99

· DC CL20·END OF RECORD .

·

OF·2 CSC306D~C44040·0

599

OFAA 40404040

'599

OFAE CSDSC44006C640CI OFCI 600

DC

CL21·ENO C~ .JOB

·

CFe6 OEC240404C4C404~ OFeE 40404040 OFC2 F3F?F4Fl4CCIE3E! OFOS

600 600 601

DC:

CLi0·3741 ATTENTION REOD ·

OFCA CSDSE3C90ED540D9

601

OFD2 C5C8C440
OFD5 OF06 60C905E~C509D9E4 OFFD OFDE 07E340D7C~DSC4C9 CFE6 D~C76040C2C~E!40 OFEE C4C9C4400SDEE340 OFFE C?OED4C~4CD60S4C
OFFO OFFE C~OSE3CSD9D9E4D7 \024

601
602 6C!3 MSGIB 604 MSGl
604 604 604 604
60'5 lllSG2S 606

ecu oc
EGU DC

·-·CL40·-J~TERRUPT PENDING- BIT DID NCT COME ON ·
.. ,
CL 39 · tNTEAAUPT LEW!t. 5 010 NOT occ~ AFTER ..,.

l~CE E340D3CSE5CSD340 IOOE F~4~C4C9C440DSC6 IOIE E240CEC3C3E40940

606 606 606

lOlE CIC6E3CSD~40F7

606

1025 40E2C5C3CECSC4E2 104C 60T MSG2 DC

CL40 9 SECCNDSe

·

t02D 4e4040404C404040

607

1035 4C40404040404040

60'7'

10:!0 40404C4~40404040

60'?

·-l 1045 40·0&C404C4C4040

607

t04C 608 MSG38 EOU

104C 4C404C4040

1051 609 MSG3A DC

10!2 40D4D6C4C540D~~S 1079 610 MSG3 DC

CL!·

·

CL40· ·ODE ONLY EXPECTED ON·

·

tOSA C3E840C5ETD7C!C3

610

10E2 E~C!C4400EOS4840

610

IOEA 4040404040404040

610

1072 4040404040404040

610

101'9 611 MSG4B t;CU

·-·

PROG 10
PAGE

40F-1 6

0 DATE OEC t-10.

lf:AUG74 e24765

15NCY74 824870

PROG 10 PAGE

·

·

·

·

·

···

·

·

·

....

·

·

·

·
·

·

·

·

·

·

·

·

·
I

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

· I

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

....._,.....,

PART NOe 5558771

(

PART NOw 5558778

IBM MAINTENANCE 011.GNCSTJC PRCGRAM .

PAGE

71l

PAGE

7 ()

40F1 3741 !YSTEM 1E~T MODULE

E~R LCC CEJECT CODE

ADOR STMT SOURCE STATEMEN1

( (
(
(...
(
(

107A O~CEC1C440D4DEC4 10AI 612 MSG4 DC

CL40 1 REAC ~ODE FDUNC ON·

1oe2 CS40C6D6E405C440

612

1ca· DeDS4B404C404040

612

10~2 4040404040404040

612

lO~A 40404C40404040·0 10A1

612 613 MSG5B

ECU

10A2 eeD9C9E!CS40D4D6 IOC9 614 MSG5 DC

·-1CL40'WR1TE MODE FOU~O CM.

IOAA C4C~4CC6DEE405C4

614

10E2 40D60S4B4C404040

614

lOEA 40404C4040404040

614

1oc2 4040404040404040 10C9
tOCA E2C~C640DSDE60D6 lOFl

614 61~ 111sG68
616 MSG6

EOU DC

·-1
CL40 1 SJQ NO-OP.

1002 C74e404040404040

616

tOCA 4C40404C4C404040

616

10E2 40404(4040404040

616

lOEA 4C4040404C404040 lOFl

616 617 MSG7B

EOU

10F2 C4CtE3Ct40E!D9Cl 1118 618

DC

·-1
0..39 1 0A1A TRANSFER REGISTER PARITY ERROR·

lOFA D~E2CEC5D~4CD9CS

618

1102 C7C9E2E3C~D94CD7

618

110A C1C9C9E3Ee40C5C9

618

1112 D~D6094B4C4C40

618

1119 4040D5D6E3C56040 1140 619 MSG7 DC

CL40' NElTE- 3741 RECORDS MUST eE 128 BYT~S. ·

1121 F3F7F4F14009C5C3

619

11i~ CEC~C4E24004E4E2

Et9

1131 E340C2C540F1F2F8

619

1139 40C2£SE3C!9:24B40

619

1140 620 MSG89 EOU

1141 C2C6E3C840D9C5Cl 1168 621 MSGS DC

*-1 CL40·BOTH READ AND WRITE MODE '9ERE ON·

1! 49 C440C105C440E609

621

1151 C9E3C5400406C4C5

621

1159 40EEC!~9CS40D6D5

621

1161 4t!4040404C404040

621

116~ 622 MSG9B EDU

11E9 C!C5DSC7E3C&40C3 l18F 623

DC

*-1 CL39·LENGT¥ COUNT REGISTER ERROR· E)CPECTED

(
(,
(

1171 D6E4D5E340~SC7

1179 C9E2E3C51X40C5C9

11e1 C4"0f:D94B40CSE707

1189 C~C3E3C5C44040

1190 CEC6E-840CED6E4D5 1198

n.r,;e C440E7E7

1198

11« F::!'FTF4Fl40C2E4E2 llC2

623
623
623·
623 624 MSG9 DC 624 625 MSGlOB EQU 626 MSGIO OC

--1 CL.39·3'74'1 .eusY TOO LONG.

c
c (.

11A4 E840E:!DEOE40D30E 11A< C5C74e4~.,_04040 11B4 4C404.,.04C404,4C 11ec 4o·o·o·0404o·o
11C2
1 lC:! E4C5C5E7D?C5C3E3 11EA

626
626 626 626 627 MSEl lB EDU 628 MSGll DC

·-1CL40 1 UNEX~ECTED INTE·RUPT·

11CE c~c··OC9D!:E3C509

(

1103 C9E4D7E341Me4040

11CE 4040404040404040

628 628 628

(

ltE3 40404C·M0404040 11£A

628 629 MSGl28 EQU

nee EOC5D5C4·006C640 1212 630 MSG12 DC

*-1 CL40·-ENC CF JOB- LINE NOT UP

{ (

11F3 01 DeC2604003C9C!S tlFE C~40C!i06E34Gt!4D7
1203 40 4">' 040404...040 1208 40404(4040484040
1212
1213 D9CSCIC44004D6C4 1239

630

630

630

630

631 MSG138 ECU

632

DC

·-ICL!~·REAC "ODE AND ·RITE MODE l90TH O::Fe

121@ C~·OCID!!C...0£609

632

(

(.

1223 Ct;E:!C!·OO._,~C·C~

632

l22E 40C2D6E3C84006C6

632

(

12::13 CE4~o·o·c·o·o

632

12:!A E20~240F34'06040 1245 633 MSG13 DC

1242 E7E7E7E7

633

CL121 SNS ! - xxxx·

l \ (·

O/ITE

1t'AUG74

EC tlO· 824"PE5
~

PROG ID PAGE

c 40Fl :!741 SV~TE~ TEST MODULE

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

1245 6!4 MSG14e ECU

t24E C1E!E3C!SD~E3C9DE 126C 635

DC

·-1
CL!9·ATTE~TtCN REQUIRED -

IF '3741 DISPLAYS·

124E 0540C9CSDeE4C9D9

635

125E C~C44C6C4C4040C9

635

125E C640F3F7F4Fl40C4

635

1266 C9E2D7D3C1E8E2

635

(

1260 4060FlFOC5FlE04C 1294 636

1275 C5D909D60~6B40E!

636

DC

1270 cec5C540E3C8C9E2

636

(

12es 4CC9E2400SDEE340

636

128D C140F!F7F4F14040 1295 CEC1C903E4D9CS4B 12AO

636 637 MSG14

DC

CL t2·FA ll.URE ·

1290 40404040

12AO

12Al E207C1C3C~40CIE5 12C7

637

638 MSG15B EQU

639

DC

·-1CL~9·SPACE AYlllLABLE ON 3741 WAS USED UPo

12A9 CIC9D!ClC203C540

639

1281 CED~40F3F7F4F140

639

1289 EEC1~240E4E2CSC4

639

(

12C1 40E40748404040

639

12ce 09C5E2C5E340E2E8 t2EF 640

DC

CL40'RESET SYSTEM'3 HALTe RESTAPT 3741·

l2CO E2E!C5D461F340Ce

640

12oe CID3E36B40D9C5E2

640

t2EO E!CID9E34CF3F7F4

640

(;

12F8 F148404040A04040 12FO 40A04C4040404040
12Fe 40404040 12FC 40D9C5C1C4 1~01 EED9C9E3C5

12F~
1300 1305

640 641 MSG15 DC

CL12 1

641 642 CREAO DC

CL!' RE·C·

643 CWRITE CC

CL!·WRITE·

644 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

·

· · · ·

130E 0000 1308 00 1304; 0() 130A 00 13oe oo 130C 0001 130E 0002

1310 !SS

1311 00

1312 00

1313 0000

0
· · ·

131! OOClO 1317 OD95
1319 00 131A CC 131E 00 l31C FCFO 131E FOFO 1320 FOFl Ul22 FOF2 132· 0000 132E FCFOFOFOFl 132e OOOOCIOl'OOO

1330 00

40F..-, l

1331 OOClCl

1:!:!3 0000 133! 007F 1337 0000
· 133t; AOOO 13:!8 0000 133C JOOO

··OllTE

16AUG74

· EC NO· e247~!5

MS* U6·

· *

647 ·

oc·s

·

e·e ·

·

6~4o9·.

·
·

651 ·················································

1307 1308 1309 130A 1308

652 653 S
65· 51 655 52 656 S:! 6!57 54

DC
oc . DC
DC DC

XLi·oooo· xLt·oo· XL1'60 1 xt..1·00·
XL 1 ·00·

CONTAINS S·ITCtES AS SENSED
··· KEEP TOGETHER AND LENGTH 6 · ·

1300 658 ONE

DC

"'-2·0001·

t30F 659 TWO ·DC

XL2·0002 1

1310 660 INCVAL DC

1L1·es·

1311 661 EJrPFLG DC

1312 662 UNX

DC

n1·00·
XLt·oo·

1314 663 PSRSAV DC

XLl 1 0000 1

1316 664 PtARSV DC

MX.L.2tC·UooNoEoJ ·

AOORESS OF t=ORCEO HALT DUE TO UNEXft INT

1318 665 UNE8 DC

1319 666 CHAR DC 131A 667 INTFLG DC

ALU·-·l ALU ...·)

1318 668 RECCTR CC

ALIC._·>

1310 669 CTSUF DC

XL2·FOFO·

131F 670 zo

oc

1Cl..2'F0F0'

1321 671 ZI

DC

XL1i·FOF1·

1323 672 Z2

DC

XL2·FOF2'

1325 673 CTR

DC

132A 674 NUMONE DC

JIL.2 1 000_(1· XL51 FOFOFOFOFI ·

132F 67~ SEO

DC

XL!·ooccoaoooo·

1330 676 OWORK DC

xt..1 ·00·

1332 677 WORK DC

XL1i'O'

1334 678

DC

1336 679 LENGTH DC

Xl..i·O· xt..i·OO?F·

255-L

1338 680 XOOOO DC 133A 681 FUNBJT DC

JCL.2·0000· >CLl 1 4CIOCI·

EB-I SIT 0 ·6 USEC PULSES

133C 682 SNSt DC

XL2'0000'

133E 683 SNS2 DC

a1·0000·

1!5NCV74 e2411!70

PROG ID PAGE

40F-l 7A

·

(

·

PART NOe PAGE

555877e

1E!"' ·Ull'<TENANCE DH·GNOST1C PROGRAlll ·

e 0

PART NOe PAGE

!5!5!51!17"P8
ea

40Fl 3741 SYSTE"' TEST ~ODULE

ERR LDC OBJECT CODE

AOOR STMT SOURCE ST·TEMENT

c4CF1

~741 SYSTEM ~EST MODUl.E

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

752 ·············································

133F 0000

1341 0000

134:? 0000

(

1345 0000

1347 COC()

f. I,

(
· ·

·

·
·'.EC. · L ( cD·T1=

1340 684 SNS3 DC

XL~·oooc·

1342 685 SNS4 DC 1344 686 SNS5 DC
1346 687 SENS DC

XLr·oooo·
XL~·oooo· XL~·oooo·

e

1348

688 669809

·S·N·S·21···D·C·····X··L2··1 0·0··0·0·' ·····················~···························

·

·

* t91
692 · 603 ·

ECLATES

· *
· · ·

694 695

····························································~···········

696

* * 669978 ·········ST·A·N·D·A·R·C··O··C·P···EQ··U·A·T·E·S·····
699 ··································

0222 700 HALT EO~

nn6 701 LINK EQU

021A 702 PRINT EOU

0212 703 TEST eou

021E 70· UNPACK EQU

0020 705 PJAR EOU
0200 706 s·oo EO~

0001 707 XRl

Ecu

0002 708 xR2

ecu

0008 709 ARR

EQU

0004 710 PSR

EQU

ooco 71~ IARt eau

0084 712 1ARS Eau

0020 713 PllAR ECU

0226 71· PACK EQU

022A 715 LOAD EOU

0080 716 BITO ecu

0040 717 81Tt EQU

0020 71e B1T2 EOU

0010 719 SJT3 EOU

0008 720 BIT· EOU

0004 721 BITS EQU

0002 722 e1T6 EOU

X 1 ~22 1
X1 11E' x·21A 1
··~~2· x·~tE·
x·20·
x·200· 01 02 x·ce· x·o·· x·co· x·e·· x·20 1 x·22e· x·22A· x·eo· x··o· ··~o· x·to·
x·ce· X9 04' x·o2·

PROGRA~ INSTRUCTION ADDRESS REGISTER LOCATION OF CPU MODEL LETTER·

· · ·
· · · · ·
:e

0001 723 etT7 Eau x·o1·

0208 020A 0208 0020 0008 0001 ooeo

72· SBYTEO ECU 725 SBYTE2 EOU
726 SBYTE3 EQU 727 sswo2 EOU 728 sswo· EOU 729 SSW07 EO\i
730 ss·tO EQU

x·o2oe· X8 020A' x·o2oe· x·20· x·ce· x·o1· x·eo·

SENSE SWITCH BYTE 2 SENS~ SWITCH BYTE 3
flANUAL IN"fERYENTION BYPASS NON-ERROR PRINTING CDC?l
LOAC ANO GO (DCP)

· ·

0040 731 SSWll EOU x··o·

0020 732 SS·l2 EOU x·20·

0010 733 SSW13 EOU
0008 734 SSW14 EOU 0004 735 SSWlS EC\J

x·10·
Jt·ce· x·04·

·

0002 736 SSWl6 EOU x·o2·

0001 737 SSW17 ECU 0080 738 ss-1e EQU

x·o1·
x· eo·

0040 0020 0001

739 SSW19 740 SS·lA 741 SSW2F

EQU EOU EQU

x·4o· x·20· ··01·

·

OAOA OAOE
· 0At2
OA16
·· 0014

742

743 ENTRY EOU
744 NOTME eou

X' llOA' x·AOE'

SUPERVISOR LINKAGE

745 P~STDR ECU x·1112·

746 NXTINT ECU x·116 1

747 748 SLEtl ECU 20

749
775510 ·· ········E·Q·U·A·T·E··~·S·E··F·~$R ·P·R·O·G·R·A·M··C·O·O·I·N·G··········

?ROG 10
·· · · · · · · · · · ·-·e· PAGE

40t=-t 8

DATE
EC NOe

0003 0071 003C 007C 0068 006F 0076 0057
0019 00'50 0070 0007 007F
005F 003F 0079 006C 0073
coo·
0040

753 Hl

ec~ x·cJ·

754 HZ

EOU x·11·

755 HF

EOU x·!C'

756 HE 757 HL

EOU x·1c·
eou x·ee·

758 HO

ecu x·EF·

759 H2

eou x·1e·

760 H3

EOU x·!7·

76t H4

EO~ x·1e·

762 HS

EQU x·eo·

763 H6

EQU X8 7D 1

764 ~7

eau x·c1·

765 He 766 H9

Eau x·7F·
EOU x·!!F·

767 HA

Eau x·!F·

768 He

EQU x·79'

769 HC

EQU x·EC·

770 HO

EOU x·13·

77t HUP

eou x·o··

772 HON

EOU x··o·

773 ····························

* 774
775 · EQUATES FOR !741

0040 0042

776 ·

777778 779

··········~············. .· · · * TIO

780

781 TNR

EOU

782 TBSY E~U

0041 0042 0044 0045

* 783
784 LID . 785 706 LFUNC EOU 787 LLCR EOU
788 LOAR ECU 789 LDTR EQ\i
790
791 · SIC'

x··1· x··2· x·4·'
x··s·

0040 0041 0042
0043 oo··

792 793 SCNTRL ECU 794 SREAO eou 795 S"RI TE· EO\J
796 SCTL1 ecu
797 SCTL2 EOU
798
T99 * SNS

x· 4oc x· 111 1
x··2·
x·tt3·
x····

BOO 0041 801 SFUNR EQU 0042 802 SSTAT EQU
0043 803 SLINES EQ\; 0044 804 SOAR EQU 0045 · 805 SDXFR EQU

x··u ·
x··2·
x·43'
x·44'
x··s·

* 806
807 R-BYYES FDR 510 0

* 808
809

BIT

0001 810 SRESET EQU x·o1·

7

0002 Btl SENAB EOU x·o2·

6

0004 812 S01SAB EOU x·04 1

!

0008 813 SNOBSY EQU x·o8·

4

0010 814 SUPINT eou x·10·

~

815

815 816 · ERROR ~ASKS S~~-3

817

818 ·

TIO NOT READY OR ERROR TIO FCR BUSY

LIO FUtlCTION AEGtST£R LIO LENGTH COUNT REGISTER LIO DATA ADDRESS REGISTER LIO DATA TRANSFER REGISTER

SIO CONTROL IN~RUPT STATUS
510 READ SIO WRITE SIO l'O CONTROL I SID 1'0 CC'NTRCL 2

SNS FUNCTION REGISTER

SNS CCR + STATUS

( STAT·EB2l

SNS l'O TRANSFER LINES

SNS DATA ADDRESS REGISTER COAR)

SNS DATA TRANSFER + OlAG (OIAG-£82)

SIO 1-R SIO 1-R SID t-R 510 1-R SIO I-A

RESET INTERRUPT ENABLE INTERRUPTS DISABLE INTERRUPTS
FORCE NOT eusv SET INTERRUPT REQUEST

1EAUG?4

15NOV74

PROG ID PAGE

40F-1"
ea·

··· · · · · · · · · · · · 824765

824!70

·

·············· ············

(
tell MAl~TENANCE DIAGNCSTIC PROGRA·

40FI £RR l.CC 08.JECT COOE
c

ADOR STMT SOURCE·STATEMENT

0040 0020 0010 0008 0004
ooo· ooos
0010 0020 0040 0080 FFFF

819 EDS 820 BJPE 821 EOR 822 EC.I
823 AT 824 · BZtS
* 826
827 · 82'8 · 829 ff SU 830 RE 831 RSR 831' RE'OO 833 REO.,J 834 80PE 835

EOU EOU EOU ECU EQU
ECU EOU EOU EOU ecu
EOU
ENO

x·40·
x·ao·
x·10·
x·c5·
x·c··
I 'C SE\.EC1' Llt!E ti 1.2
x· C4· ! x·ce· · x·10· e x·ao· e
x···e·oo·· "e

(
c

-·.i,'
( (
c
( ( (. (:
c
( -:
(

L
15NOVl'4 e24e7o

PART NOe
PAGE

· ·
5598778 9

ENO OF CATA SET BUSS JN PMUTY ERROR
END OF RECORD END OF .IDB
3741 ATTENTION

MEANING NOT USED SET UP ERROR (REAO VS.
AESPONSE
SENSE Pl:SPONSE ENO OF CATA SET END OF .IQB 1!US OUT PARITY ERROR

WRITE MOOE)

PROG tD PAGE

40F-1 9

C' sweat. T LEN Vat.VE

ACK

,_ 004

('AAA
AT
BEG

C 001
< 001
A 00.!I

(iBIPE C OCl

@tTO C 001

(~BBtITT2I

BtT3

c~

en·
BITS

81T6·
en7

(' Bt!PE

C COi
C Oel
C OOJ
c OCI
C 001 C 001
c cot
C 001

BtJFFl "' CCI BUFIP18 A 002
(~: BUFF2 A 001

CHAR A 001

Ct-GP.VF f. Ch>·

( ; C ...GeUR f. 004
Ct-Gt a COi
CAEAO f. 005

(: C'Tl'UF A 002

CTR

A eo2

cwr.1Te A oos (~ DC!!JO " 003

t>UiiPJ " oo· OOMt=111:1 · oo· (,< D\JMP2 " Cl O·

OlJMP2~ " co·

c ECS

C OC1

EHABt.E /I. CO·

ENAELR A 004

C> E"'Tf'Y C 001

EOJ

c 001

ECR

C 001

C: EXPFLG .. cot PUNelT a 002

GETINT A 004

GETR
CH· HALT
(jHHCB
HO
HON
(':!HE HF

A 004
C ClOl
c 001
c 001
c 001 c 001
C OfJl
c 001
C OCl

CHLHGROY " 001 (' 001

HLT·T A C'1J4

C ..H~6INT · 004 NGFND .. 004

HNI

A fl04

CHH1T'88EC

A 002 ,. 002

HT80
c HTBI H"f82 HT«!:!'
H"T84
c~MTe6

A 002 · 4'02 A 002
" 002 lo 002 .. 002

HT87
c-.HHU'lPl'e MZ

" 002 .. 002
c 001
c C>01

0866
ooce
0004
O·".J!i
002C
coeo oo·c:
C>020 0010
coce
@004
0002 OOCt
0080
OE51! OF$D
OEDB 1319 0".:71! OCAF
OC8A 1300
l'JD 132!! 130!! OAC2 OOFC OE10 OEI·
CiE3·
oo·o
CDA9 OOC2 OAOf.
ooce
0010
13:& 1
133A
0CF6 0091 C\03F 0222
C:.07~
006C 0073
oo·c
007C
oosc
OA:"l,e
0068
OBE9
OD2F oooc: C09F
ocu
OCCE
OOf!A 0922
MlC4 OBEE
ooec
OCFI ODA4 OB61
0004
0071

0 1fAUG74 824765

01~3
07C9
oe~!
0051 oe20 07U! 0717
0718 0719 0720 0721
0722 0723
oe?·
05&8
(1!!594
0590
06ee
0:!~7
03!2 0342 OC42 0669 oe73
e>e·:! 0120 0!40 0!!4
Off3 0!!71' 0Sl9
Cl9C6 0!1!
07·3 0822
oe2a-
06et
Cfi81 0410 0476
D'JE7
0700
o7ee
07E9 0770 0'772
07!!~
07~!5
OC!!5 0757
ozez
04:!2 0420
04S3
02ee
0368
o··e
OHIO
01·e 02fi! C4P4 0400 04'94 0186 0771
07t54

REFERENCES

Otf>9
0090 00!8 0147 00!8

020*!1 0097 Olft 0097

0~72
01fi6 Ole7 0166

03~
0242 0204

O'J37 0'86

tn61 C369

0379 0401

0~10

0506

0540

01!3 0073· 0543 Otl6
0047· 0048 oo·M 000·1 007!!1 0337· 9339

o~so o!94
oo·e· GOSO· C.073 0347· 0348
0339 o34o· o:itiit::· o~· 0347

03480 035~ 0566

0573

0Efi3·
oo!e 0097
0117 0193
O!OM osoe
0:!.!2
OC!B 0097 00!!8 oe97 0!!11* 0524 0038 00.;2 0130 O~UD· 0439

~tee
ouo
0166 0210 0528·

OZll

~2tl·
04!7 04!5

O·!e 0·2'7

~G ID PAGIE

· ·
555ST78 9A
40F-1
9A

·

·

·

·"

(

JBM MAl~TENANCE DIAGNOSTIC PROGRAM
(

40Ft Z'l'41 SYSTE.- TEST MODULE

(- SYMBOi.. T LEN \/ALUE DEFt.:

MC Ht H2 ... 3 H4 HS Hf ( H7

C 001 C 001
C COl
c 001
C OCl C 001 C 001 C -001

HS

C 001

'"'"' I A~ l

c 001 C 001

tAl'5

C 001

IGA

A 004

H:B

A 003

lGC

A 004

lH

A C01

INCVAL A 001

Jl\TFLG A 001

tNTOC A 003

ISEJS'I' A 004

LCAI' LC:TR

C 001
c 001

LENGT 1· /'. 002

Ll"\:"C c 001

LINK C OC't

\_ LLCI'
LOAD

C 001
c 001

MCDEOI< A OOt

MSGt

A 040

M5G1B A cot

MSGlO A 03'il

tasG1oe " 001

MSG11 A 040
MSGll e A 001

M5G12 j. 040

MSG12e A cot

~5G13 /l 012

MSG138 A 001

MSG14 A 012

f'ISG148 A 001

MSGl~ A 012

MSG15B A 001

MSG2 A 04C

MSG28 A cot

MSG3

A 040

M_SG3A A 00!:'

MSG38 A OOt

fjl5G4

I> 040

MSG48 A 001

MSG~

A 040

MSG~8 A 001

MSG6 A 040

MSG6e ,. oot

"'SG7

A 040

MSG7e A cot

MSGe A C40

MSGeB A 001

MSG<;

/> 012

MSG9'3 A 001

NCOTPF A COl

NCIERR IA 004

NCIH'T I> 004

NCJNT I< 004

9'1C~COE I> 001

NC"4CDR A C04

NCOPOK 1' 004

006F 0003 007E 0057 0019 0050 0070
OOC7
007!" 005F
oocc
0054
OASO
CA7~ OM~4
OOCE 1310 131A 0029 OAOO 0044 0045
133E 0041 021E 0042 022A OAB3
OFFO OFO!:
11C2 119e 1 IEA
ttc2 1212
llEA 1245 1212 12AO 1245 1<:Fe 12.e.o 104C OFFD
1079 1051 l04C tOAl tC7'i 10C9 lOAl lOF l
lOC'il 1140 1OF1 1168 1140
ll9B l 168 0927 OD4A
0087 0070 08F7
oc1e ceo9

o7se
075::! 0'1!SC$ O?f:O 07El C7E2 07E:! 07E· 07f:5 0766 0711 0112 00f:3
CC'it 0095 0520 0660 0667 042e
0 u:s oTee
0789 0679 078E C7Cl 0787 0715 Oll3 0604
O~C:!
06H: 0625 OE28 0627 OE'30 OE:29 0633 0631
OE~7
063ti CE4l OE38 0607 OEC!: 0610 Ol!:C9 0608 CEt2 0611 01514 OE13 OE!6 OE15 0619 011:17 OE21 0620 0624 0622 OtES 0444 0473 0467 0271
02ee 0151

L

(

DATE

EC NOe
(

··( . ·

CRCSS-REFES::ENCE
REFERENCES

0059 00f:3$ 0091 0016 0343
00~9· 0424
012! 01U5··

0095:1: 0432

0115 0038·

0115·

0110 04E2 04E2 O!f4 03E4 04e9 0489

0463 03E5 0490

0277 0281 0248 0248 02!:2 02'52 0469 04E9

0281 0249 0253 o·7o

0282

0142 0142 0156
0156 03c;5 0395 0178 01e2 OH:2 0426 0465
0457
0101 0272· 01!8

0143 0157 03<;;6 011!!2
0435

OU:!

PART NO. PAGE

0

555$778

IBM M~l ... TENANC~ DIAGNOSTIC PROGRAM

0 10

40Fl
0

3761 !YSTE· TEST MODULE

c sv.eoL T LEr.; VAL\1£ DEHi

REFEREMCS:S

CACSS-AEFEl'OENCE

PAat NOe
PAGE

5558??9 IOA

,,..._ Nt'JPNO j. OC4

f,,__ NCFl#P " 001 -- NOTl/aT ,. 00!

C· NCTME c 001 MJMCNE A oo::; i'l:XTINT c 001

GLCSEC ,,. 006
Cof\E ,. 002

ONLf>i lo NH

PS (.\PACK

A 002 c cot

.,. PENC

A 004

c· PlA;;t C 001 PIARS'll A 002 P~JNT C 001

(~ PSf:I

C 001

.,,_, PSRSA\I ,. 002

C; Pltli~ OWORK PE

C 001 A \JO!
C 00\

RECCTR "- <l01
() Rf:OO C 00 t RECJJ {' 001

RESTOR C 001

c;PSR

C OCl

RSV

C COl

OR·RTN01 A 001 A 004

PtlR

A CC4

0 S

A 002

SBVTEC C 001

S8VTE2 c cot

SeVTE3 C 001

( ) SCNTRL C OCH

SCTLt ::: 001

C> SCTL2 C 001
SCA~ c 00! svtsAe c cot

0 S[)>!F~ SENAS

C 001 C OCt

SEtlS

IA 002

SEQ

~ 005

(', SETPT ,_ OOt

SFUt-R C -:lOt

C: SLEN C 001 SLINES c CCI s..cio c 001

0 sNOesv c 001 SNOTev A 001

SNSI A 002

SNS2 A 002

()sr-S2I A 002

SNS3 A 002

Cst-is· p, 002 SNS!." A 002
SPLCOP " 006
Os11e·o c 001 SRE5ET c 001 SST/&T c 001
Qss11102 c 001
SS\1104 C COl
SSW OT c 001 Csswu c cot
SSWlO C 00\

CD'Ul OC97 OSEI OAOF. l32A OAi.t:
oc:·o
1300 005F
oeee
022f: 0042 C020 t3Ui 021A
0004 1 :!14 1'020 l 33 0
oooe
1318 0020 0040 0A12 0010 0004 OAOO OA'75 OBED 1307 0208 020A 0208 0040 (1043 0044 OC44 0004 0045 0002 1341! 132F
oaec
00·1 0014 C043 0200
oooe
OAOC l33C 133E 134S 1340
134~
1344
OBA6 004l 0001 0042 0020 (ICC& 0001 0020
ooec

04EC 0346 <i255 0744 0674 0'1'4E 0:311 Ot'fe 0451 02EO 0714
o4::re
0705 OEE4 0'702
0710 OC:t::? 0713 067E C>30 0666 08:!.'.'
oe:;i:=
C'i.\5
08:!1 0829 00429 009:) 0195 OE!::!! 0724 C72!; 07H: 0793 07S6 0'797 0804 0812 0805 081 l o6e7 0675 0239 0601 0?48 Oe':>:! 0706 oe13 0128 06e2 Ot:f?3
oeee
0684
06es
ct:ee
02:!!: 071#4 oe10
oec2
0727 012e 0729 0740 0730

004.,!.4,
02~3
0!'23 0049 Oe3t
0~07

04~f.
0344 0245
0349

0446 0240·

0429 043:!

01·0 01~4 oten 0223 0245 0250 0257 0279 0362 0393 0460 0467
048'? 0345 055; 0~6e 057S

0114 01~4 021~ 0217

01~9
0529 01::?9

01!:3

0\74

0017 0074
009~

0054 0065 0428 CS12 Of30 011~ 0139 0153 0174 0194 0213 0217

ooe4 os30

0512

0049· 0050 0349· 0350 0236

02.37 0056 0416

0259 0094 0455

01!2 0509

0444

0124

0133· 0133 0056* e211

0137 042t· 0057 0221

0151 0521$ 0058 0234

0168 0522 0094· 0242

0177
CO~?
0276

0100 0102 0444· 0441;5

0423
o:ce

0109

0132* 0166

0210

02!8 0111 00f!:5 0420

0428 0521

0530

PROG tO
PAGE

10F-t !O

H!AUG14 e247E!I

l5NCV74 8248'?0

PROG ID PAGE

40F-t IOA

e

·
\

·

·

·

·

·

·

·

·

·

· · · · ·

· · · · · · · · · · · · · · · · ·

40F1
(

:!741 SYSTEM TE~T MODULE

CRCSS-t;EFEf:ENCE

SVMECL T LEN VALUE OEFN

REFERENCES

SSW11 C OCl OOo\0 0731

SSlll 12 C COi 002C ()732

SSW13 SSW141 SSW 15

c 001 c 001 c ()01

0010
cooe
0004

07::l:! 073· 0735

SS~16 c 001 0002 0736

SSW17 C OCl 0001 07:!17

ss·te
S~ll 19
SSW2F

c 001 c 001
c 001

0080 0040 0001

o7?e 07!9 0'141

STAe "" 020 OF71 0596

0~:!3

STATFP A 001 01.'!71 0205

0098 0167

ST/l'TMG A ()35 OE5A 05EE

0222 022E

S'TATRR A 004 OBF3 0266

0206·

STA'Tl A 001 cee7 C2H

0212

SUP

A 004 OCCF 0374'

OOEO 0305

S\:PtNT c 001 0010 0814

SUPR A C04 OCDE 03E4
S·P ITE c 001 OOo\2 07.;5

0379* 0381 0107 0244

Sl

A 001 t3oe oee4

S2

A 001 1304' Of!!!!!!

s~

,. 001 l'!OA 06!56

( s·

A 01'.1 l'!Oe 06!!57
c 001 0042 o7e2

0123

'TEST ( T~

c 001 0212 0703
C COi OOo\O 07e1

TCMCCE A 0041 OCE2 03<1S3
TCOeSR A 0041 occe 0370

0103 03EI·

I~

( TCOE'S"Y A co· OC83 03El

0126

TWO

IA 002 130F 0~!!9

(

f UCTl UNE

,. 003 OAOC 0019 A COl ooc;! 04f.E

0077 0665

UNE~ A 002 1318 OEE5

UNPACK C 001 021E 0704

0175 0219 0274 0541

C564 0571

( UNX

A ()Ol 1:!12 06E2

0076 0527·

WAIT A 001 OC1C 030:!

0125 0171 042~ 0434

WAITB., A 004 OAC9 0123

0127

(

( lllAITR A 004 OC6e 0:'!19

0304· 0317 0318·

"AI Tk"1 A ooe OC62 03U!

0314

WCNT A C02 OC6D 0321

0~10· 0313· 0315·

(

( WLOCP A 001 OA57 0072

0078

WORK
WSEC

" 002 1332 0677 A C02 OC6F 0::!22

0234· 0235 0235· 0122· 0170* 0306 0308 0309 0309· 0411·

(

( WSECA A 002 OC7l 03~3

O:!IOB· 0316·

WCOCI
c wooc· WI

" C02
A 002 ,. f)04

OC7!! CC77 OB3A

0~25
032E 0171

0:'.!13 0316 03U! 0173

WlOOO A 0()2 OC73 032·

0310 0315

>CRI

c eo1 0001 0707

02!!· 0237 0237· 0240

( XR2

c ()01 0002 o7oe

XOOC'O ,. 002 133E C6t!O

)(40f'
l zo

,. 001 0000 000! · 002 t'!IF 0670

Zt

A ()02 1:!21 OET'l

c Z2

A 002 UJ23 0672

TOTAL !TATEtill.'tlTS FLIAGEED IN THIS ASSEMBLY ·

0

L c

EC NO.

15NCV74 824870

PART NO. PAGE

5558778
11

c IEM MAl~TENANCE OIAG~CSTIC PROGRAM

e 40Fl

3741 SYSTEM TEST MODULE

OBJECT CARO LISTING

5!5'58778 UA

<.:~CL

INDICATES A BLANK COLUMN ANO THE C~ARACTER~ D E H INDICATE NUMERIC SHIFT. 1 T~ROUGH 16 CL 17 THROUGH 32 CL !3 THROUGH 48 CL 4c; THROUGH 64 CL 65 THROUGH eo CL Bt T~ROUGH 9E

~. GBK G80

PN 55 58777 EC 824870

40F - 3741 SYS T EST MOD

400AO 0

e ToOY?&IE &7FB-4

DA& F "' 11 ~1&J< : I LFTll\OlU<

E01U<-.-·RC5V<AA< ?02V< BCXHBQSHAO

O&I( +&<Ll3Xll04C U Z&OH*<::!llBGBl- ll1'02!84 ·CG&l+6-· EOH· BODMteset< IBO&B)l040FI0002

LDXBACRP /OZPOH· MlL&H87CcJIO"'f /C3

01

eov1e REJD ce&~A7B<40F1000!

.·3-C03"' 0 :!SIOH

DIOCHO"(CBCEBO:!IO lJ ·) Bll.JA4REJD

NC-VCt3·40Ft000~

·i< _M~OY!:'+;OL&<B
"T<O>t'F"C:!IDR_ S<B
··T< >9e<BG88· /OM
0 "'f( ?>B: "4 &?V+ £

G /.FHACl&He /OH
G SI S<SGBTP /06 'C CY· /Ot!E OS<
L&IH&PTSBB~l2 JI

S&H. /OY5+ -Ll-.H

&E"CCU<BC'o '·FLlE e+?tCD<BG /8A038
L& e D3t1L<Xe-e·3

&tl<i '0t1S&HG BO JWllBG - _M20,FJM CB<BGBTT3&0 112< K JL ,0 .12.VGtX M C ,Ot1S&H< HIX

;F-8C91H40F1000E
-.eA DN3X40FlOOOe NC&XDQ.V40Ft0009 &B&MA70<40Fl00t0

·T. l+C<~·

l?llYD

e

T<&2 ll-C&C O<S&l

KC C<·&l?COO<SOt

EOH·BFXC3CUN T<S ?C D<S&13C-.e<l&O ACF"<JaBG

G SJ T<BGBTP '0 ·ct. ~<&OtCCOD<ff&l
c: A &4B 2

-<ESBG OHAO MC>-XC:2840FI0011
~ e 00 I S&-G /YOE AH +C MA:JV40Fl0012
21£DLF-.H <BOQE/H +C -FOK-.\OFIOOI !

·T c-~w,o

(C- LFJ<f.&S DI D LF&O CSVLF&l=C!U
-<3WB G '·BllGB&HI l'OH

L.ll .KXXIK~FtU NC-OE8--40F10014 HBXPG C /OMEl-

PROG 10 PAGE

TC&68CC1 l'<f'G S1

·T <O 7'1: &¥ .Z" l <Ji:4

· 40F-1 , ··l ~

DATE E'C NO.

1~AUG74 e247E~

,a

l'<B~eTP , 0 OH·
BOH· CAB04-eHAC
15NtlV74 E2·e10

BFXOvo:z ,.BG SI
·- GOI HCT7·DlD8 A<

l'aBGBTM48 7EIM .JllVDDf l8LDT3"'Dl.

.O-NA8/V40FI0018 H IHACT7E -c2 eu vF&4A"'2V40F10019

PROG ID PAGE

40F-1. llA

18til ~AJN'TENANCE DIAGNOSTIC ~OGRAM

PART NOa
PAGE

5558778 12

,. 40Fl
\.

3741 SYSTEW TEST MOOUl.E

( CL 1 T"°'RCUGH H\ CL 17 THROUGH 32

OBJECT CARC LISTl~G '::L 3! "f't!RC!UGH 48 CL 4«; THROUGH 64

CL 65 THROUGH 80

CL 81 THROUGM 96

(

-· - '\(Oc;E .IDl'OH·ec;u
(
T+&=M& c;sc;ITo·I
(.
(

I 0-T" OH·BFOS .ID HS<PN84CR8>C &DA
N8ePRE;LP84CPl)P

20CD&+IROJPSlllP R&CIIS*PS&FCS1JP SlMC3QOA &+..X9'"*
&DA &<F~lCCOlUC J5SI &DA &DA &DA C2)PGQDCE2:C l<X D&CFC84CCS_LE&CS N&<XN81JPR6;LP84C

JS ..OF10022
·- L1: M EJ*40Fl0025

SJIT&C·Co=LR&<G F88PR&ll esPCS_P DBU_ &DA &DA &DA £DA &DA &DA &DA go ·B<40Fl002E

&DA &CLOl<N 5_P L:DCE9·~ec·IE1CC os~_ &DA &CA &DA

&DA &DA &O<EO*.I

!5( Q &S840F l 0027

E· T+l'C6&CA &DA &CA

5_N.&DA &DA &OA &DA &DA &DA &CA &CA £DCS2JR 5)R -5_J.&DA &DA &CA

9_~188N 5CSDtMC F5>LNlDC05M_ &DA &D 3C040Ft0028 &CA &DA &DA &DA &DA £DA &DA l<G TOil "3860Fl0029

,.,
""" T+l'GSSUCLf_PG«4A

&DA &DA ~CPE9·~ Ee>elEtDCIS;IEE1~ US=:Ce&DA &DA &DA &D :JX40Fl0033

48XN1MCN~>( 9()

&CA &DA &DA &DA

5(1C1MCB5>ht&CS FlU_ &DA &+.Net;C !&FA 9~X98GTPP N88X05fllCRt )TU2)JC EID 6S"OF10035 l t

QfG01 ..e-&<PR6)S RE4CT2<PN&+IH2: 1 2n f;)ST&<E a·.. 4&M··._<·OFt003El

I t

..J

T&+H 0·440Fl0037i

}

T&ll7·fEe&DA &CA &CA &DA &DA &DA &CXEO·LW6·JCTI&

R·440Fl00381

....... .... .············· .. t:· C· ······

T+JCC

_. Stt&

eN ·le oateta tH tcoe le

..... -· l ············
14 · A

l +:E ·"F10039

.:

j

................ ...·..·.·...·... ················ .....·.··.·..·.· ·····,.....OF·····!

... ... . ...

... ··········

c

FX ASC R A Sfl Q

l 13509087·'1 12tT48·U.CF100411t

~

l

· · ."'.· · · · · · · · · · · · · · · · · · · · · · · · · · · · · L

t1
...

(

- - - - - - · - - - - - - - - - - - - ,------,- LA!'I FAGE - - - - - - - -
,.
"'-·
OllllTE EC fl.'O.
,

- - - - - - - !t

!

PROG ID
PAGE

I 40F- l I 12

I

i
I
·!
I

·················, ················

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

c
18M ~AINT~M~N~t DlA~NOSTIC PROGRAM

PART NOe PAGE

55584:1

··· ·Ct leM ~~I ..TENANCE DIAGNC~TIC PROGRAM .

PART fllOe PAGE

( 401 l

:!1741 i=Ut.~TICN TEST UTt;OUT THE WRAP CCNNECTOR

· 4011

3741 FUNCTION TEST ·11HOUT THE 'WRAP CCNNl!CTCIR

ERR LCC oeJE\T CODE

AOOR STMT SOURCE STATEMENT

ERR LCC CBJECT CODE

ADOR STMT SOURCE STATEMENT

oouc

·· "JAl>O

·.:i'. C·' 4011

(

OAI)] ~U

01-1.1.-1 0 l

c

OAC4 0000
OAOf OAOD

OAC8 FFFF

OACA 405000

OAOl OA02 OA03 OA05
OA07 OA09 OAOC

· · OACO 01

OAOD

OA0£ 00 OAOF 0A!i1

OAOE OAlO

· OA11 CO 87 021A
· DA 1! 41
· OA16 77 OA17 IAO:!
· OA19 40£0
· OAll! CO 87 021A CA lF Of
· OA2G !iO
· OA21 IA!i3

OAI I
0Al5 OA16 OA18 OAlA
OAlF OA20 OA22

· OA23 3C 40 IF4A
· OA27 OC 5A IF49 1F4A OA2~ C2 01 CIA!il
· OA!l 34 01 OA07
· OA3! 3C EO 0A4C OA34); F2 l!l C7
· OA3C !IC EO OA4C
· OA4CI F2 87 C4 OA43 !IC El OA4C

· · OA47 CC 1!17 0222 OA41! 40£1

OA4C

· · OA40 CO 87 OAl l

······e ······ L
·DATE

1SNOV?4

·

NCJ.

8248?0

2 ·

! . . LAST CHG:oa 01 .,.

:! 4 5 L374t

~« ·

SSETQA~T

0 0

I l
I ·

6

TREP

7

ORG X·AOO·

89 ·· ··*··3·7·4·1··F·U·N··C·T·IO··N··T·E·S·T············W·I·T·H·O·U·T···D·IA*G$NO·S·T·I·C··C·O·N··N·E·C·T·O·R········*!I tt

···1· 110t
1123 14

·················D·C····~·····X ···L···2·····4··0···t·l·'···············-···········SP··RE··OC··GT··RI-·AO-·MN······P1R··0··a"··AA··NC·O·E···R···E··V··I·S··I·O···N·····L·E··V···E··L·····.·.···1I

DC

XLt·oo·

SECTION FLAGS

I

·
4t

15

DC

XL1·01·

CURRENT ROUTINE NUMBER

:

16 17

DC DC

XALL22(·B0E0G010~' )

RESERVED FIRST ROUTINE ADDRESS

«It

OA51 Ol OA!2 OC OA53 01'6E
OA!S!S CO @7 G21A OA!i9 .\!: OA!:A te 01'!:1! lCDO OA!!SD 40A1

OA!it OA!!S2 OA54
OA59 OA!iA OA!iC OA5E

.... 54 ·········

55 56 57

.· .R.T.N..O.I .·...............................................................

·

·

58 ·

R(]U.,INE Ct

TEST 3741 FOR NOT READY·

5690 .· . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

61 RTNOt DC

62

DC

Jll.1·01· XLl'OO·

ROUTINE NU9tBER NO MANUAL INTERVENTION AEOUIRED

63

DC

AL2CRTN02)

ROUTINE 02 ADORESS

64

65

B

PRINT

66

DC

l<L 1·45·

67

cc

IL 1 1 2··

68

DC

AL2CTORDY>

69

DC

lJCLl'40A1 1

PRINT NOT REAOY UST M!AOING·

l

18

CC

XLi·FFFF·

19

DC

XL?·4osooo·

RESERVED SECTION PREFACE UNIT OEFe TABLE

20

········~··················..·························..··········..···: · 21
22 ·

INTRODUCTICN

TELL OPERATOR TO DO SYSTEM RESET .;

23 · ...................................................................... !

2.\ 8EG1N DC

liCLl·01·

DUMMY ROUTINE PREFIX·

,

· 25

DC

XLl800·

26

CC

ALl(RTNOl t

27

· · 28 BEGtNN ECU

29

e

PRINT

PRINT BEGINNING INSTRUCTIONS

30

DC

XL1'41·

· 31

DC

AL UMSGl-·SGIB)

32

DC

AL.2(MSGI J

· 33

DC

XLl 1 40EO· .

I

OA!SF CO E7 179D 01'E3 FO X 3C
OAC!E Cl 40 02Ui
OAC!A CO @7 1787

3.\

a

PRINT

35

DC

Jl\. 1 1 06·

36

DC

ALICMSG2-·SG29J

!17

DC

AL 2C MSG2)

38

39

MVI PRT+t .x··o·

40

NYC

PRTC9l ~.PAT+I

o\l

LA

RT ..01 eXR1

BUILD ·CLEARING' BYTE. Ct.EAR PRINT AREAe
RESTORE R'TNOt ADDRESS·

.\2

ST

FRTNeXA1

43

CLI HPLXXeX·Ec·

·4

JE

AL TEFI

CURA£NT HALT A -EO- 1' .JUtlP IF SOe

,..le
·
·
! ,

OA6E 02
01'il!iF 00 CA7C 01'88
OA72 CO 87 021A OA'7t 4!! OA77 17 CIA78 lCC!S OA7A 40A2
OA?C CO 87 175C

.\5 46 4 7 AL TEA

MVI J
MVI

.....,HPLl<Xe>e·eo·
HPl.XX· x·E 1 ·

SET uP FOR A -eo- t4M..T.
SET UP FOR A -El- HM.Te

, 4D

OA80 FO !C 3C 0At!3 Cl 42 17SF

OA6E OA6F OA71
- OA76 OA77 OA79 OA7B

70

?t

e

GUES

72

HPL x·!c·.x·!c·

TEST FDR SSW 10· HALT -FIF- IF GN·

73 74

TIO Ll~·eX·4o·

!R1'HCt4 TO DCP llF NOT aEAD"te

75

76

8

TICERD

BRANCH TO RDY ERROR IF MOT Olte

7?

78 79 ......... 80 · RTN-:'.'2 ·

fr~-· -···~,._..

81 ....................................................................... ;

* 82 ·
83

ROUTINE 02

TEST 3741 FOR HOT llUSY·

··~i

·J e· · l 85 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

et. RTN02 DC

XLt·o2·

ROUTINE NUl!llB£R

I

I 87

. DC

XL 1 ·00·

NO lllANU1'L JNT£RVEl«IO. Rl!OUIAt!D

88

DC

AL2CRTN03 I

ROUTINE 03 ADDRESS

89

90

B

PR INT

PRINT eun TEST IE&DI··

t

91

DC

JCLl·45 1

t

~2

DC

ILl 1 231

l

93

, DC

ALICT08SY)

94

DC

XLl 9 40A2 1

! t

9!5

96

e

C.U!S

97

. HPL x·!c·.x·3c·

98

99

TIO

TEST FDR ss· Io.
HALT -FF- llF ON·
BRANCH OUT ON EMGR IF llUSY·

·e

49

B

50 HPLXX DC

51

s2

a

BECINN

PROGRAM HALT -£0- DR -Et-· REPEAT MESSAGE IF HO SYSTEM RESET.

·
1·
I
le

PAOG ID

. .J····

PAGE

I ,

OAl!7 CO 1!7 0216

OA88 O~
OA8C OD OAf!D 01\FO

OA88
0,t,8C
0,1,ee

CA8F 38 80 02oe OA93 CO 10 021C!

OA97 OC 09 IEFe lEll!iil!i OA9D OC 20 1Fl9 IAC.\
OAA3 3C AS 1FIA
OAA7 CO 87 021A

16AUG74 f!2.\7il!it5

lt5NCV?4 824870

100

101

8

t

102

{

103

!

104 ·········

t 105
1011!1

0··R·T·N··03······~··············. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ~

·i·~ 107 ·
108 ·

ROUTINE 03

SENSE T~E ST1'TUS-LENGTH COUNT REGISTERSe

·i

109 110

· .

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

~

111 RTN03 DC

11:2

DC

113

OC

lCL.1'03' XL.t·co·
AL2CATNO·)

ROUTINE NUMBER

,

NO MANU"'L INT£AvENTICllil At!OUIAED. ROUTINE M ADORESSe

( l

11·
115 116 l l '? ll8 119 120 121

Tl!N SeYTEOeSSWOO BT LIM<

fliiVC PAT-81ClO)eSNTt'£

MVC PRT-48(33J.STLCA"
lllYI Ptn-47. x··e·

B

PRltilT

:

TEST FOR LOOP ON SECTION S·ITCHe

(

SKIP T~IS ROUTINE llF CN.

;

t BUILD Ur-t TEST HEAOIN& FOR PRINTING· t.
t

~

GO PRINT TEST HEAOINCe

~

PROCi ID PAR

'·01-1~ 1Af

i

f

I

·

c:, ·011

3761 FUNCTION TEST ·tT~OUT THE tlRAP CCNNEC'OR

PART NOe PAGE

· · ·
!5!5!5842 t' . . 1BM MAINTENANCE DIAGNOSTIC PROGRAM

2

. . 4011

37·1 FUNCTION TEST ·lT~DUT THE ·RAP CCNNECTOR

ERR LDC oeJECT CCC~

ADDR STMT SOURCE STATEMENT

PART NO · PAGE

ERR LCC ce~ECT CODE

ADDR STMT SOURCE STATEMENT

c- ·· (
· ····· (

oa·E ·E CAAC se
OAAC 1F4'9
OAAF 60A3 OAB1 OC f:A 1F·9 1F·A

OAAB OAAC OAAE OABO

8Al!!7 :!1 61 18CE OABB Cl ·2 t 7aF OllEF :!I 65 IBCE OAC:! 30 ·3 OB3C OAC7 Cl 62 t '78F OACE :!t ·4 1eee

OACF CO l!T t7!:D OAD3 FO 3C 3C

OACE 30 ·2 OAEB OACA OD 01 OAEE OAE9
CAEC co Bl c21e

122 123
12· 125 126 127 128 129 130 131 132
1~3
134 13!5 136 137 138 139 140
l·l

DC DC
1)(.
oc
MVC
LJC TJD LID SNS Tltl LIC
e
HPL
s~s
CLC BE

ICL 1946' 1Ll 1 91 1 AL2CPRT)
JCL~·40A:! 1
PRT(91) ePRT+l
HOCOOe>e··t· DRCP0·><··2·
Hoooo.x··e·
TRL,X'43' DR CFD eX 1 42 · HOF5SeJC 1 ·6'
OUES
x·K·.x·:!c·
LCt:.X·42' LC fa( 2) .LCR-2 L l9'1t

CLEAR PRll'O" AREA11
ZERO FUNCTION REG· BRANCH IF 3741 .reNT SUSY· ZEPO CATA TRANS REGe SENSE TO RESET 6USEC DELAV CIRCUIT· BRANCH 1F 3741 £NT BUSY· PRESET DATA ADDRESS REG·
TEST FOR ss· 10.
HALT -FF- IF ON·
SENSE STATUS-LENGTH COUNT F~ -8000SENSED DATA AS EXPECTED? - RETURN TO DCP ·IF OK·

· ·8 · OAE· CO 87 l:!BE
OAEe eooo
· · OAEA 0000 OAE<" O~ · CAEC CO 87 1709
· · OAF1 87·1
· OAF:! CO 87 0222
· · OAF? ·003
· OAF'6 CO 87 021E

OAE9 OAEB OAEC OAF2
OAF8

143 144 14!5 146 LCR
1·? t·8 149 USO UH 152 1'53 154

e

SN!ERR

DC

a2·eooo·

DC

XL2'000C·

DC

>CL 190:!.

e

MAFS

DC

>a..1·8741 9

e

HALT

DC

XL.1·400~·

e

Ll"lt

GO PRINT SENSE ERROR· -EXPECTEOc -ACTUAL· -ERROR IDe PCINT TC MAP CHART· -PAGE 81'4· ENTRY l·
ERROR HALT -03-e
RETURN TO DCPa

155

· · ......... · 156

1!57 · RTN04 ·

....................................................................... t58
· · ·......................................................................·.·...·· * 159 160- ·

·
SENSE THE 1/0 TRANSFElit LIMES·

161 ·

· · OAFC 04
· · OAFE 00 OAFF 084F

OAf'D OAFE 0800

· I · CB01 OC: 09 IEF8 lE66
· OBC? OC 11 lFOA IACE
· 18 OBOD 3C 4B lFOe 0811 CO 87 021A OBU: 4E
· OBIE SP
· · 0817 lF49
· ·······*·* 081il 40A4 oe1e oc SA lF49 lF4A

0915
0916
mne
081A

· · * * '. 082\ co 67 17'50
· OB2t! FO :SC 3C

· · oe2e ~o ·3 oen
· OB 2C OD Ol 0931) 0838
· · · OB:!2 CO l!l 02Ui

162

163 R'TN04 DcCc

164

16!5

DC

JCLt·04· XLl·Oo· AL2tRTfll0!51

166 167
168 169
lTO 171 172 11'3
17· 17!5

MVC
MVC NV!
e
DC DC.
cc
DC
MVC

PRT-&ltlC)eSNTtlE
PRT-63(telelDTRL PR't-62e JI· 48· PRINT JCLl·46' 1Ll'91' AL2tPRT) JCL2·40A6' PRTC91 S.PRT+l

176 177 178

B

OUES

t4PL >e·!c·.x·:!C·

11'9 180 181

SNS TRL·><·43' CLC TRL(2)eTRL-2

182

BE

Ll"IC

183 184 ·

ROUTINE o· eRSOR MESSAGE ·

RNOOUMTAINNEUALNUMINBETRERYENTIO~ REQUIRED· ROUTINE 05 AOORESS·
BUILD UP TEST HEADING FOR PAINTING·

GO PRINT TEST HEADING·

I

CLEAR PRINT AREA·
TEST FOR SSW tOe. HALT -FF- IF ON·
SENSE l~D TRANSFER LINES FOR 0000. SENSED DATA AS EXPECTED 7 RETURN TO DCP IF OK·

· · · Of.136 CO 87 1381! OB:!A 0000 · CB3C 0000 083E 04

18'5 . 186 187 188 189

8

SN!E~

oc

JL.2·0000·

DC

a2·0000·

DC

a1·04·

GO PRINT SENSE ERROR· -EXPECTED. -ACTUAL· -ERRC>a ID·

CB!F CO E7 1709 0843 8781
OB4!5 CC 87 0222 0849 4004
oe·B co e7 0216

0844 OB4A

190

e

191

oc

POINT TO MAP CHAltT· -PAGE 878· ENTRY l·

192

193 194

B

HAl.T

oc

19!5

B

ERROR tlALT -04-· RETURN TO OCP·

196

19"?

198 ·········
* 210909 . .R.T.N.O.!.S .·. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

201 ·

·

202 ·

ROUTINE C!

SENSE Tt4E DIAGNOSTIC BYTE·

·

203 ·

·

204 .......................................................................

OB4F O!!
ClB!O OC OS!Sl OSA9

OB4F OS!SO OB!52

ae!:! 3e eo 02ce 0Bfi7 CO 10 0216

OBfB OC 09 lt:Fe lEEE oe6S OC OE 1F07 l8CA OBE7 3C ·B tFCe OB6B CO BT 021A
OBEF "15 C87Cl SB
0871 1F49
cen1 40A5
CB7fi OC !SA 1F·9 IF4A

OB6F OB70 OB72 0874

087E CO 87 17!5D 087F FO K 3C

oee2 30 4!5 OB97
oee6 OD co 089E 0894
ceec co 81 0216

205 RTNO!S DC

206

DC

207

DC

XLl'O!S· XL1·00' AL2CRTN06)

208

209

TBN SBVTE0.551100

210

BT

Ll .."K

211 212 213

llllVC MVC

PPT-e1c10>.sNT~E
PRT-66t 1151 ,OJAG

214

MVI

215 216 217 218 219 220

B
DC
cc
DC
DC
MVC

ILl·91 1
ALHPATJ XL2·40A!· PRTC9t),Pl:T+l

221 222 223

e
HPL

QUES

224
225
226 221'

SNS CL.C
ee

DUGe:IC·4!·
DUG-ICl)aCUG-3 Ll ..1<

228
229 ,,...-ROUTINE 0!5 ERtlCIR MESSAGE

ROUTINE NUMBER NO MAtolUAL INTERVENTION REOUIR£0· ROUTINE 06 ADDRESS. TEST FOR LOOP ON SECTION SWITCH· SKIP THIS ROUTll'E IF ON· BUILD UP TEST ~EADI~ ~C:: ~~tNT!MG~
GO HINT TEST HEADING·
CLEAR PRINT AREA· TEST FOft SSW 10· MALT -PP- IF GM· SENSE OIAGNOSJC BYTE FO· 00· SENSED DATA AS EXPECl'ED ~ ~TURN TO DCP IF CJKe

CB90 CO 87 1388 09164 0000 CB96 0000
0998 05 OS'll9 CO 87 17C9 OB'SC Bell
ce9F co e7 0222 OBA3 400!5 OBAS CO 87 021E

0995 0997 0898
089E
08M

230 231
232 233 DUG 234
235 236 231'
238 239 240 241
242

e
DC DC
. DC
e
DC
e
DC 8

SN SERR
XLt ·os·
MAPS
HALT

GO PRINT sENSE l!RttOA· -EXPECTED· -ACTUAL· -ERROR ID· POINT TC MAP CHART.
-PAGE eat. £N'11'Y ,.
ERROR tlALT -OS-a
RETURN TO DCPe

OBA9 OE OBAe\ 00 08"8 0037
OBAD CO 87 021/11 OBBl 4!5
oee2 2·

OBA9 OBAA
OBAC
OBBl 09152

2244345 .· .R. .T.N.0.6. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ,

246.

· .

2·7

ROU'T INE C6

CtlECK Ee CYCLES FCR PROPl£R

2·8 ·

DAT A TRANSMISSION·

· '

249.

·.

250 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

251 RTN06 DC

2!52

DC

253

DC

JCLt·06· >CL 1·00· AL.HRTN07)

ROUTINE NUMBER NO MANUAL INTERVENTION REQUIRED ROUTINE 07 ADOP£SS

254 255 256 2!5T

B

PRINT

DC

DC

PRINT EB CYCLE TEST ttl!ADINS·

PAOG ID

e · · t
·DATE

PROG JD PAGE

401-1

DATE

2 .EC ND·

IBNCV1'4' 824'1!.,0

PAGE

· ···· · ECMla · · · · · · · · · · · · · ·· · · · · · · · · · · · · ·

· ·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

c

)

1£~ MA1hTENANCE DtA~NCSTIC PRCERAM

PART 1'1.'0. PAGE

c 5558421 3

tEM M~l~TENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558,21 3A

4011

3741 FUNCTION TEST WITtOUT THE WRAP CCNNEC,OR

3741 FUNC~ION TEST WIT~OUT THE ·~AP CtkNECTC~

EsaA LCC CSJF.CT COCE

ADDA STMT SOURCE STATEMENT

ERA LCC ~EJECT CODE

AD~R STMT SOURCE STATEMENT

oeE:! 1eee

~BB4 258

DC

AL2C TSCVC)

OCEE 3C F2 1eee

3?6 EB2ERP ll'VJ ALES·-15 .c·2·

SET UP FOP ee 2 ERP.OR_.

Cf!e!: 40AE

OBB6 ~9 260

DC

XL.2·40&E·

OC8A OC 17 IF06 IB~7
occ;c co e7 oct q

327
328

"'VC PRT-67(24JeALEBX

8

BtGEe

PPINT ERROR HEADING.

oeE7 Cl 412 l78F

2El

TIO ORCPD.:.·42·

262

JUMP OUT IF 3741 IS BUSYe

0C94 OC 16 IF05 te7F

?!29 330 ESERA MVC

PR~6eC2:!) eAi.EB

SET uP FOR ALL EB FAILURE.

oeee co e7 t'1!:D

263

B

CUES

TEST FOR SSW tOe

OC9A CO e7 0Dt9

331

fl

au:~'!

PRINT ERROR HEADING·

OBEF FO 3C 3C

264 265

HPL

x·~·.x·:!c·

t1ALT -FF- IF ON.

CC9E 3C Fl 1867

23:! 333 NCOOI MVI

ee1~-1.c·1·

SET UP FOR BOTH ee·s. H t.

08C2 31 41 15F2 oecE :!t 02 IBF2
CBCA :!t 44 U!F2 OBCE :!l 4~ 18F2

266

LIO MFF5s.x·41·

26'1

LIO HFFss.x··2·

268

l.1C .u=Fss.:it····

269

LIC HFF55.X·4S·

270

LOAD FUNCTION REG· ·tTH -FFSS-e LOAD LENGTH COUNT REG WITH -SS-.
LOAD DATA AORS REG WITH -FFSS-· LOAD DATA TRANS REG lll1Tt1 -5S-e

CC,2 F2 S7 OB
OCA5 :::!C F2 1867 OC aq F2 87 tl4
OCAC :!C F4 1867
OCEO oc 21 lFlO teee

334 ?35 NC002 336 337 NCOD· :::.38 FINEB

J
MVI
J
MVI
MVC

FI~i!
ee1:c-1,c·2·
FINES
e:e12-1.c··· PRT-57(34) .EB12

GO PRINT ERROR.
SET UP FOR BOTH ee·s. N 2.
GC" PRINT ERRCPe
·· SET UP FOR BOT~ ee·s. N

0802 3(1 41 190F

271

SNS

LS-~11X·4t·

SENSE FUNCTION REGJ$T~.

oceE co e7 001"'

339

B

t:!ICEB

GO PRINT ERP.OR HEADING·

OBCE '!C 42 1911
oec· :!O AA 1913
()SOE 30 45 1915

272

Sk!5 LS-4,.X·42·

273

SN~ LS-2e>C·414·

274

SNS LSeX"45·

SENSE STATUS AND LCR. SENSE CATA AORS REGIST~R. SENSE DIAG AND DATA TRANS REG·

r
\.

oce- 3c Fl te·s

ocee 3e 40 1910

340

341 NC0001 MVJ

342

TB~

ESJl-1 eC. · t · EflFl.ACe X· 40·

SE~ UP FOR N CODE t ERROR.

275

OCCl2 Cc:l 10 OCCE

343

BT

·+12

OBE2 C2 01 1915
c::eEE ~4 OJ OBFS
oee· 3C oo t91C
oeee 3c 01 oeFe

276 277 278
279

LA
ST MVI MVI

LS.>rRI
CKEYT+~hX~:l
EBFLAG.>1·00·
STEN+1. )I· ca·

INITIALIZE SENSE STORAGE ADDRESS.
CLEAR EB FLAG. INITIALIZE FLAG BIT POINTER.

OCC6 3C F2 1B2E OCCA CC e7 OCD2 occE 3C Fl 1e2e OCD2 F2 e7 3E

340 347

MVJ Ee>i-2·.c·2·
e ··e

MVJ E:B>-24.c· 1·

J

EBJIX

· E82 CYCLE·
· EBI CYCLE· GO PRINT ERR1JRe

oeF2 3c co 0000 O@Ff CO 01 OBFE Ot!FJI 3A CO 1910 oeFE OE tlO OBFe OBFB CCC4 OF 01 oeF5 1800

280
281 C~BYT
282 283 STBN
2e·
285

CLI eNE sef.: ALC.
SLC

·-·.x·oo·
·+e
EEFLAG.>c·oo·
~TEN+l(l).!TBN+t
CKEYT+?(2)eN001

TEST CURRENT S~NSE BYTE. BRANCH IF BYTE NOT ZERO· TUPN ON Fl.AG BIT IF ZERO· SHIFT BIT POINTER. OEr.REMENT SENSE ADDRESS.

CCDS :::IC F2 1845

OCC9 !8 10 1910

OCDO CC 10 0CE9

OCE 1 3C F2 IB2E

c

OCE!; CO 87 OCED CCE9 !C Ft 1B2E

34B NCODD2 MVt

349

TSfli

350

e-i

351

"VI

~52

B

353

tlVI

E6);-l ,C·2 · EBFt.AG · X · t O· ·+12 Ef')C-24.c·2·
·C·P~X-24eC· t·

SET UP FOR N CODE 2 ERROR.
· EB2 CYCLE·
* EB1 CYCLE·

CCCA !'9 FF OBFf! OCOE co 90 oeF2
OC12 3D F3 1910
OCIE CO et OC94
CCIA 30 !;3 191C CCIE CO et OC7E

286
2e7 288 289 · 290 291 292 293 294

TSF STEN+l·JC"FF·

POINTER GONE TO ZERO ?

OCED F2 87 23

BF

CKE\'T

Afo(ALYZE ,HE EB FLAG BYTEe

CONTINUE TC LOOP IF NOT SOe

r·-
\....

OCFO !C F4 IB'!-5 OCF4' :::!B 04 1910

OCFB CO 10 0004

CL! EBFLAG.X·F:;!·

OCFC 3C F2 182E

(

0000 co e7 0008

BE

EB ERP

Cl. I EBFLAG. X·!::·

BE

E£!1ERR

BRANCH IF BOTH EBI AND EB2 FAILED.

0004 3C t=I IB2E

BRANCH IF EBl FAILED.

c

oooe F2 e'? Cfl

354

.J

:!55 NCOOD4 "1Yt

356

TB!\

357

ST

358

.. Vt

359

360

MYt

361

.J

S62

EB)ll'
Esx-1.c·4· EEFLAG .. x·o··
··t2
Ee>e-24eC.·2·
·+f
EBX-24eC· J·
EBJOC

GO PRINT ERRO~. SET UP Ftm N CODE 4 ERROR.
* E82 CYC....E·
· EB1 C.YC\.E· GO PRINT E'RPORe

OC22 3D A2 191C
oc2t' cc e1 oceE

295

CLI EBFLAG.'11: 8 A2·

296

BE

EB2EPR

297

BRANCH IF EB2 FAILED.

cooe 3C F5 1B45 t.DOF '.::IC Fl 1B2E 0013 ~c IC tFOe 1846

363 NCO::>t>5 MVt

364

MVI

:P,6S eexx MVC

EBJ1-1.c·s· EB)l-24,.C· t · PR'T-E1'C 2U .£BX

SET t)P FOR N CODE S ERP.On. · EBt CYCL'°·

CC2.t 3C CO 191C CC2E CC El OC9E OC32 30 30 1910 OC:!E CO flt OCA5 CC:!A :!O OC I Ci 10 OC:!E CO St OCAC
OC42 :!e AO 191D
«·f co 10 oceA oc·A :!e eo 1910
OC4£ CO 10 O<:E A OC!2 3E 10 1910 OC56 CO 10 OCDS OC!;/i. 3e 20 1910 OCSE CC 10 OCD5 CCE2 :!e 04 1910 OCEE CO 10 CCFO CCEA 3P. ce 1910 OCEE CO 10 OCFO CC72 :!8 Cl 1910
oc7E co to oooe
ClC?A CO E7 021 E
oc?e 3c Fl 1eee
cce2 co e7 oceA

298

CL t EBFLAG.x·co·

299

BE

NCCC1

300

CL! EBFLAG.x·3o·

301

BE

NCCD2

302

CLI E£!FLAG.x·oc·

303

BE

NCCD4

304

305

TBN EBFLAG.x··o·

306

BT

NCCCDt

307

TBN EBFLAG.x·eo·

308

eT

NCCDDl

309

TBN EBFLAG.x· 10·

!10

BT

NCCDD2

311

TBN £BFLAGe>e·20·

312

BT

NCC002

313

TBN E8FLAGeJC 9 C4·

314

ET

NCCCD4

:!15

TBN El!!FL·G. x· oe·

316

BT

NCC004

317

TEt. EeFLAG.:ic·oie

318

BT

NCCDDS

319

320

B

L HIC

321

322 · RCUTINE 06 ER~OR MES!AGES ·

323

'!'24 EB!ERR MVJ ALEex-1s .. c·1·

32s

e

·+e

BRANCH !F B~TH ea·s OF N=I FAILEO·

(.

·

2

·

·

· (

BRANCH IF EB1 OF Net FAILED.

(,_"_ ·.

·

2

·

·

2

·

·

2

2

·

C.·,

·

4

·

2

·

c

·

!5

·

c

RETUPN TO OCP·
C·

SET VP FOR EB 1 ERROR.

c

0019 CO 87 021A ODlC C2 OD IE 1E' ODtF ae29 0021 400~ 0023 CO e7 lBA7 0027 CO (!7 17D9 002e ees1 002[': CO S7 0222 00'31 4006
CO:!? CO 87 021E
0037 07 00:!8 OC 0039 OD6F
co~e oc 01 1919 1eeo
0041 co f!7 iecc
0045 Ft

0010 ODIE
0020 OD22 002C
0032
0037 0038 OD3A
OD·5

366

367 BIGEB B

PRINT

PRINT EB CYCLE ERROR HEADING.

3t.e 369

. cDCc

XL 1 ·c2·
IL1 8 ~4·

:!70 371 372

DC

ALi(BIGGcS)

oc

XLc 8 400E'

e

EPFNT2

PRINT SPECIAL ERROR IDe

:!73

B

PCIN'I' TO MAP CHARTS.

374

oc

XLc 1 885t·

-PAGE ees. ENTRY 1.

375.

B

HALT

376

DC >eLi ··ooe·

377

e

LIMO:

ERr.OR HAt.T -0~-. nETUAN TO OCP.

378

379

380 ·········

:!Bl 382

*···R·T·N·0·7··· ·······c···························. .··························

383 ·

·

384 ·

RC~TINE C7

LIC g SI'S FUNCTION PEG WITH AASS.

·

385 ·

·

338867 R··T·N·0·7··O·C······XL··1·1 0·'·1·················R·O·U·T·I·N·E··N·U·M·B·E·R··········~············

388

DC

XL1 8 00·

NO MANUAL INTERVENTION REQUIRED

389

DC

AL 2C f;ITNC e )

ROUT IN£ 08 ADORES S

:!90

391

flllVC PA1RNC2)el-AA55

STORE TEST PATTERNe

392

B

CCCE

PRINT TEST ~El.DING.

39:3

DC

CL1 1 t·

·.

c

D·TF

HAUG7·

EC r.:o. e:?47f,S

PROG JO PAGE

401-l

DATE

lfAUG74

3

EC NO· e247E5

(

l51'CV74 e24e7o

PROG ID
PAGE

401-1
:'IA

·

IBM MAINTENANCE DIAGNOSTIC pt;iQGRAM

PART NOe PAGE

· c 5558421

!SM MA~NTENANCE OtAGNCSTtC PROGRAM

PART NO. PAGE

5558421 4·

(":4011

3741 FUNCTICN TEST WtT~OUT T~E WRAP CCNNECTOR

.- 4011
..

3741 FUNCTICN TEST WIT"OUT THE WRAP CC~NECTCR

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMe~T

E~ LOC oe~ECT CODE
(
OD4E- CC f!7 1750 004J FO 3C 3C

C'C ·C ::!! l 41 1 c; 1 ~

0051 30 41 1917
(

CO!'f CC e7 l4EE

OC59 07

(

CO~A Fl

oo5e co e7 0216

OO!:F CC e"P 1 TOt;
ODE:':! Se9l oote co e7 0222 OOt~ 4()07
ODEE C() e7 0216

ADOR STMT SOURCE STATEMENT

0059
OCSA
OD64 006A

394 395 396 397 398 399
·OO 401 402
40~
404
·os
·06 407 408 OOCJ 410

e
HPl..
UC SNS
e
DC
l)C
e
e oc e
DC
e

QUES X · :!C · · >e · '!C ·
P·TSON.Jt·4t· LSCK.>1·111·
LICSNS
XL PO?·
n1·1· Ll;..K
MAFS XL~ ·etHil · HALT KL:i·4007· Ll"'K

TEST FOR SSW IOe HALT -FF- IF ON·
LOAD FUNCTION REG WITH -AA5S-a SENSE FUNCTION REG FOR -AASS-.
GO COMPARE RESULT WITH EXPECTED. -ERfUlP ID· -N COOEe RETURN TO OCP IF OKe
POINT TC MAP CHART· -PAGE 869. ENTRY t. E~OR MALT -07-.
RETURN TO ocP.

c

ooe11. FO 3C 3C

ooeo 31 42 1919
C'- OOCI 30 42 lfilaT

OOC5 !C 00 191E
0 ooc9 co e7 i·ee

c

ODCD 09 ODCE F2

ODCF CO 87 021E

000:!1 CO P7 1709

OOCT 891 l

0009 CO S7 0222

0

0000 40()f;

ODCF CO 87 021f

ODCD ODCE
0008
oooe

·62
463 464 465
466
~67
468 469 4'70
471 472 473 474
..475
4,7..6,.
.4.7,q8

HPL
Li CJ SUS

PA'TRN.A·42r LSCK.X·42·

e

Llf'SNS

cc

XL 1 ·09·

DC

CLt·2·

e

LlMC:

MAFS

oc

xt..2·89t1·

a

HALT

DC

~2·4009'

e

l I !\K

HALT -FF- IF O~·
LOAD LENGTH COUNT REG WITH -55-· &ENSE STATUS AND LCR F~R -eo~s-.
CLEAR STATUS BYTE.
GO COMPARE RESULT ·ITH EXPECTED· -EPROf.t ID. -N COi>Ee RETURN TO DCP IF OtC.
POINT TO MAP C·.ARTe -PAGE 891. ENTRY l· ERROR ~ALT -09-·
AETURH "!'O DCPe

41l

480

412

481 .........

·t:S ·········

4~2! · RTNOA ·

c

~ 641145 .· . .R.T.M.0.8. .· . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

416 ·

·

448834 465

··
·

·

·

·

·

·

·

$······
ROUTINE

···
CA

·

·

·

·

·

·

·

···-
LIO

-
'

·

····
SNS

·······
LE~TH

······
COUNT

····
REG

·····
WIT~

····
AA·

·

·

·

·

·

·

·

·

·

·

· ·
·

(

417 · 418 ·

ROUTINE ce

LIO & s~s FUNCTION REG Wint SSAA.

· · ()

*······················· 486 ·

·

.S7 .................... _). . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

006F oe 0070 00
0071 ODA?

ODeF 00'10 0072

410 .......................................................................

·20 RTMOS DC

421

DC

·22

OC

XL l '08' XLl 1 00'
ALURTN04;)

ROUTINE NUMBER NO MANUAL INTERVENTION REQUIRED
ROUTINE 09 AO~ESS

OD~ OA
ooe4 oo
ODES OE42

00£3 ·ee RTNOA DC

OOE4 ·89

DC

OOE6 490

Of:

491

KL I I OA.
XLt·oo·
AL2(RTfli01!!t

423

(

007? O< 01 1919 18E2

424

OD?c;: Cf' e7 1800

425

CD~O Fl

426

627

OD7E CO e7 tlSD

428

,.

0082 FO 3C '3C

\ _

u coe~ ~1

191-»

i'29 430 431

c

ooe9 ~o 41 1917

coec co e7 14ee

c

0091 08 C092 Fl

CO'i:.0 CC e? OUE

0091 0092

432 433 434 435
436 437

4::SB

(

tot;'l co 17 1709

ccc;e ee91

c

ooc;o co e7 0222
mlA1 40Ce

ODA:! CO 87 0216

··o439
009C
··2441
ODA2 44'?

M'fe
e oc
e
KPL
LIO
SNS
e
DC
oc e
e
DC
e
DC
e

PATRtU2) .~f:i5AA
coce
CL1·1·
CUES
x·~·.x·!c·
PATRN.'IC 1 4l' LSCK·X'41'
LICSNS
Jlll.l'Oe·
C\.1·1· LIM<
MAFS
XLl 'eat; t ·
HALT a2·4ooe· Ll ..tt

STORE TEST PATTERHe PRINT TEST HEAOIHGe
TEST FOR SSW 10· HALT -FF- IF ON.
LOAO FUNCTION REG WITH -55AA-· SENSE FUNCTION REG FOR -SSAA-e
GO COMPARE RESULT WITH ExPECTEDe -ENOR tD. -H COOFa RETURN TO DCP J F Ok ·
POINT TO MAP CHARTe -PAGE 889· ENTRV le ERROR HALT -06-·
RETURN TO DCPe

COE7 oc 01 1919 aeEA

492

ODED CO ST t80U
oor-t F.;:
0Df'2 CO 87 1750 ODFC: FO 3C 3C
0 OOF9 31 42 1919 l"OFD 30 A2 191T

493 ODFI 494
495
"fl
49r
498 499 500

501

OECI OD 00 19EE 1911 OEt7 F2 81 IE

502 503 504

905
sot.

0 OECE cc eT 1·ee OE\2 OA
OE13 F2 oe1· co e? 0216

OE12 OE13

SOT 508 509 510 511

0£18 CD ET 1709

512

ti!VC
e cc
e
HP\.
LIC
iofolS
CLC JE

P"TRNC2,et-00t\A CODE. a..1·1·
oues
x·2c·.x·3c·
PATPlllox··2·
LSCK1X·42'
t4FFFF ( I) ·LSCK EACA

e

\.ICSNS

DC

XL I · OA '

OC

CLl·2·

8

Ll"'K

e

MAJ!$

c

444
4··6e5 .,········

0

OEIC e911

OElE CO CT 0222

oe22 400A

OEID 513
OE23 ~5·1·5

DC

llL2·89t 19

e

HALT

OC

XL2°400A 1

c

0 447 · RTN09 ·
448 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

OE24 CO e7 021E

916 517

B

Ll"K

ROUTi NE NUMBER NO MANUAL INTERVENTION REQUIRED ROUTINE OB ADDRESS
STORE TEST PATTERNe PRINT TEST HEADING.
TEST FOR SSW 10· HALT -FF- IF ON·
LO"~ LENGTH COUNT REG WtTH -AA-· SENSE STATUS & LCR FOR -SOAA-·
WAS CLO PATTEPN ERASED ? ~UMP IF NO~ £RASE0e
CLEAR STATUS BYTE·
GO COMPARE RESULT ·ITH EXPECTED· -ERROR IDe -N CODE· RETURN ro OCP IF OK·
POINT TO MAP CHART· -PAGE 891e ENTRY l· ERROR HALT -OA-·
~ETURN TO OCPe

. .9 .

·

450 · 451 ·

ROCT1NE c~

LIO & s~s LENGTH COUNT REG WITH 55.

0 ·
·

452 .......................................................................

oeae cc e7 02111.

OOAT 09

r /

COAe 00

00119 OOE3

ODA? 453 RTN09 OC

OOA8 454

DC

OOAA 455

DC

XLl 1 09' XLl'OO' AL2( ~TNOA)

456

OOAB re 01 191 r; ieeE
ooe1 co 87 t8oo

457
458

MVC
e

f>ATRNC21 .~ooss
COCE

coes F2

0085 459

DC

a..ie2·

ODeE co e7 1750

460

461

e

QUES

ROUTINE NUMBER NO MANUAL JNTERVENTIOW REQUIRED AOUTI NE OA TEST
STORE TEST PATTERN. ~INT TEST HEADING.
TEST FOR SSW lOe

OE2C C2

0

OE2D 2ll

OE2£ tCOB

OE30 400C

0

CE'!2 CO 87 1709

OE3E 8912

OE38 CO 87 0222

0

OE'!C 400C

OE:!E CO t!7 021 ~

518 ·

519 520 EROA B

OE2C 521

o~

OE2D 522

DC

OE2F 523

DC

OEll !24

oc

525

e

OE37 526

DC

527

e

OE30 528

cc

529

e

PRINT XL I ·C2'
IL t ·4:!'
ALIC\. IORST)
aa·4ooc· MAPS XL2 1 8912· HALT n2·4ooc·
Lt MC

PPINT LENGTH COUNT NOT RESET·
POINT TO MA~ CHARTe -PAGE S9le ENTRY 2e
ERROR HALT -oc-.
RETUQN TCI DCP ·

· · · · · · · · · · · · · · eo-· · · · · · · · · ·· · · ··· Oii.TE EC NO·

t5NCV?4
8241!70

PPOG ID PAGE

:0

401-1

DATE

4

EC NO·

0

lEAUG74 1!247E!S

PROG 10 PAGE

·· 401-1

-·

·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

(
'
IBW ~Al~TENA~CE OlAGNCSTIC PRCGAAM
i_

PART NO. PAGE

0
55584~1
5

4011

3741 FUNCTION TEST Wl1'tltJUT THE WRAP CCNN£C1'CR

(-i 4011

3741 FUNCTICN TEST WIT~OUT THE WRAP CC~NECTCR

~pp LCC OE!~ECT coce

ADDA STMT SOURCE STATEMENT

531 ·········

532 · PTNOB · 533 .......................................................................

£34 ·
535 ·

ROUTINE CE!

·

LID £ SNS DATA ADDRESS REG ·ITH EV£N TEST

·

~ ERR LOC OS.IECT CODE

c

OEB3 31 44 18E4

OEB7 30 44 1917

0

oeee 31 ·· taco oeeF 30 ·· 1917

ADDR STMT SOURCE STAT£·ENT

599 600 601 602 603

LIC sr.:s
LIC
St;S

HICOO.Jr·44· LSCK.x·u·
HOC)t>··· x·44· l.SCICeX·44·

,..
\.

~36 ·

PATTERNS. -~SAA- AND -A~SS-·

·

537 ·

· i

538 .......................................................................

oec3 co 67 c21e

604 605

s

LIM<

CE'42 OE!

(

OE43 00

ce.11.11 oe-;e

OE42 OE43

539 PTNOB
s·o

DC DC

OE45 541

OC

XLl·oe·
JCLt·oo·
AL2CRTNOC)

ROUTINE NJMSER NO MANUAL JNTERVENTtGN AEQUIREO
ROUT1NE 0C AODA£SS

542

(

OE4E OC 03 IC7D tCSF

fS43

OE4C CC e7 021A

oeeo ·e

(

cee1 3e

544
0£50 545 0£51 546

oe~~ 1cee

0£!3 547

OE54 40Af!
I" 1.
CESE CO E7 1750

OE55 54S 549 550

OESA FO 3C :!C (

551 552

OE!:D 31 44 18E2

553

OEE:1 30 44 1917

554

C'EE~ 00 01 18E2 1917

555

'4YC
e
DC cc DC
oc
e
t-IPL
L10 SNS CLC

YN00(4) eE~N PRINT XLl 9 46· 1L1·se· AL2(LSDAR)
XL~·40AS·
HS!!AAwlC·44· LSCKeX·4a· HS!!AAC2l.LSCK

SET UP £VEN TEST ttEA01NG· ~INT TEST HEADING.

0

TEST FOR SSW 10e HALT -t:F- IF CNe
LOAD DATA AOORESS REG WJTH -5SAA-·

· ·

SENSE DATA AODRESS REGJS'IERe

DATA SENSED c DATA LOADED ?

CEE:E' F2 01 12

556

.lfl:E DAf:CIC

,.

r

OEEE ::31 44 1eeo

OE72 30 44 1917

OE76 OC 01 ISEO 1917

oe 7C co et 021 E

557
558 559 560 561 562

LIO
s~s
CLC BE

HA,ss.,,·44· LSCK·X·44· HAA!:!S(2) wLSCK
LJ~K

LOAD OATA ADOPESS PEG WITH -AA55-.

SENSE DATA ADDRESS REGIST~e DATA SENSED c DATA LOADED 7

·

o~eo co e7 021·

563 DARCK B

PAINT

CEE4 CE

OE84 564

DC Xl. t·c6·

DAR NCIT SENSED AS LOADED

OEE5 50 0Ef6 1AA3

oees 565 0£87 566
567

DC

AL IC MSG4-91SG4BI

cc

AL2CMSG4J

e

oeee co e7 t7D9

568

e

~AP CALL OUT

oeec 8913

OEBD 569

DC

-PAGE 891e ENTRY 3e

( oeee co e7 0222

570

571

8

HALT DUE TO DA~ CHECK

OE9~ 11067

OE93 572

DC

573

0

OE'iil4 CO @7 021e

57·

B

L1~k

RETURN TD OCP·

575

("
'-

576 577 ·········

0

c 578 · RTNOC ·
579 ·······································································

!580 ·

·

c

581 ·
582 · 583.

cc RC~TJNE

L1D g s~s DATA ACORESS REG WITH ODt> TEST PATTERNSe -1000- AND -0001-·

· ·

0

·.

(

oec;e oc

OE98 558e45 R·T·N·O·C···D·C······XL··1··o·c··················R·O·U··T·IN·E··N·U·M··BE·R·······················

OE99 00

OE99 586

DC

XLt·oo·

ND MANUAL INTERVENTION R£QUIRED.

c

OE9A OEC7

OE9B 587 588

OE9C OC 03 1C7D 1C9!

589

DC

AL2(RTNODJ

M,_C YNCJD(4leCDO

ROUTINE OD ADDRESS SET UP HEADING FOR 000 PATTERNS.

OEA2 CO 67 021A

590

e

PRINT

PRINT TEST HEADING·

OEllE 4E:

OEA6 591

DC

XL 1 8 46 9

QE1'7 38
ce·e ices oe·· ·o·c

OEA7
OEA9 GEAB

!592 593 594 595

DC ILt·se·

DC

AL2(LS04lRJ

DC JCL;··oac·

·

CEAC CC e7 17!SC oeeo Fo x 3C

596

e

QUfS

597

HPL x· ?C· .x· :!C·

TEST FOR SS· IOe HALT -FF- IF ON.

598

L

OAl"E

ll!!AUG74

EC NO. 824765

PROG ID PAGE

·ot-t
5

0 OA'TE EC NO.
0

-

PAqT NDe PAGE

5558421 SA

LOAD DATA AORS REG ·ITH -1000-e SeNSE OATA AeRS REGISTER.
LOAD DATA AOPS REG WIT" -0001-· SENSE DATA ADAS REGISTERe
f:'ETURN TO OCPe

P'10G ID PAGE

L
-·

te~ ~Al~Tf'NANCE DIAGNCSTIC P~CGAAM

PART NO. PAGE

5558421 6

0
c teM MAJ~TENANCE DIA~NOSTIC FRCGR~M

PART NOe PAGE

5558421
6A

·011

3741 FUNCTION TEST WIT~OUT THE WRAP CCNNEClCR

EAR LCC O~JECT coce

ADDR STMT SOURCE STATEMENT

4011

3741 FUNCTJCN lEST ·tT~OUT T~E -.RAP cc~~cCTCR

0

ERR LCC CBJECT COOE

AOOR STMT SOURCE STATEflENT

607 ·········

608 · RTNOD ·

'**············ 609 ..........................................................

0 610 ·

·

* 667767

·····~···
~TNOF ·

6?8 ·······································································

679 ·

·

611 ·

RCUTINE CD

LIO & SNS DATA TRAN~ER REG WITH 55e

·

680 ·

Rr.UTtNE Ci'

H!&UE A StO ENABLE INTEAuPTe

·

612 ·

·

681 ·

·

(
OEC"1 OD
oece oo
C'S:C4; OFO~

OEC? OECB OECA

613 .......................................................................

614 RTNOO oc

615

oc

l(Lt·oo· XLt·oo·

ROUTINE NUMBER NO MANUA~ INTERVENTION REQUIRED

616

DC

ALURT...OE J

ROUTINE OE ADDRESS

OF3F OF CF40 00 OF4 I OFCl

OF3F ~£8832 A·T$M··O·F··O·C~····X··..·.t··O··F·· ~··············R·O·U··TI·N·E··N·U·M·B·E·R·······················

OF.CCO 68·

DC

XLl~oo·

NO MANUAL INTERVEWTIDN REQUIRED

OF~2 685

D<:

Al.2CRT~l0)

ROUTINE 10 ADDRESS

oece oc 01 t9lt; lSEE OEDl CO 17 1800
t\EOS FS

OED5

617
618 6111 620

MVC PATIRN(2).HOOSS

e

cor.e

oc

Cl.t·S·

STOffE TEST PATTERN. PRINT TEST HEADING·

1;86

~43 CO e"t t57E

(

OF47 AF

6AT
OF47 41;88

OF48 E2C~E~40C~D5ClC2 OF64 689

B

SICHO

PRJt.'T TEST liEADINGe

DC

XL t ·Af'·

MESSAGE 10.

DC

CLc9·SET ENASLE INTERRUP~ LATCHe·

OEOE CO P? I 75C

621

622

e

QUES

TEST FOR SSW lOe

c

CF50 03C540C9D5E3C5D9 OF5e C9E4D?E360D!Ctf1

689 689

OEC,41 FO 3C ~
OEDD 31 45 191'10 OEE1 ~O 4£ lt;I'?
GEE~ 3C 00 191E

623
624
ezs
626 627
628

LIO
StolS
MVI

1t· !C· ··· 3C·
PATRNell·4E· LSCICeK·45·
LSCK-l ex· oc·

HALT -FF- IF ON.
LOAD OATA TRANS PEG WITH -SS-. SENSE OIAG ANO DTR POR -005S-.
CLEA~ DIAGNOSTIC BYTE·

CFfO C3Ce484C·H'I

OF65 Cl 42 t"PBF

(

OF69 35 84 tBF·

OF&o :!B c1 tees

c

OF? 1 CO 8'1 l '150 CF'?~ t'"O 3C 3C

68~
690 691 692
~93
M··

O!it;PD·JC'42'
INTf"!S.1-.R~
Ft.11G.x·n1 ·
Qt.JES x·!c·.x·3c·

MAKE SURE ~741 tS NOT 9USYe LOAD IAR 5 P£Gt3TE~eCIN CASE OF INT)
RESET ERROR FLAG TEsi· FO~ sc: .. 10. HM. I -FF- tF ONe

OEE9 CO '37 1488 OEEO 10 OEfE Ff OEEF CO 87 0216

OEED OEEE

629 630 631 632 633
634

e

LICSNS

DC

xt.a- ao·

DC

CL 195·

B

LIM(

GO CCMPARE RESULT WllH EXPECTED.
-ERROR IDe -N CCJOEe
RETURN TO OCP IF OKe

c

OF78 31 41 l8DE
CF?C F3 40 02

OF"?F 3C 4!i lBFC

OFl'! 3e 01 l8C1

tlFE7 F2 If.) 10

695

696

LIC HOC8f11JC·4t·

697

StO ..:·02·.JC··o·

698

'i~S OT,:.x··!!·

b99

TAN FLAGe>t·ot·

700

.JT

e·CINT

SET FUHC REG TO OIAG llOOEe
ISSUE ENABLE INTERRUPT· SENS~ DIAG BYTE ~OR -10-. ERROR FLA~ SET ? .JUMP IF SO.

OEF'! OEF7 OEFt; OEFC

CO 87 8931 CO 87
·OtO

17D9 0222

OEF8 OEFE

635 1'»36 637 638

e

MA~S

oc

XLl·89!l 1

B

t-IALT

DC

XLl'40lO·

POINT TC MAP CHARTe -PAGE 893e EN'TRY t. ERROR HALT -10-·

OFl'· 3C 10 l~lC
OFBE co 87 1seo tFoi;i: u
OFtli! CO 87 02 tE

OF92

?01 702 7e3 70·

MVI JCPCT · J1 8 lO·

e

Cl<!JO

cc

XLl8t2·

B

Llf>K

STORE EXPECTED ~ESULTe GO CHECK EXPECTED WIT~ RESULT.
ERROR ID· RETURN TO OCP IF OKe

C£FF CO e7 021 E
(
(

639 640

e

Ll"'IC

RETURN TD OCP.

c

641

642 ·········
* 643 RTNOE ·

c

6·4 ·······································································

OF97 CO 87 ITD'ii
OF9e 89-51
a= IBC CO 87 0222
OFAI 4Cl2
0FA3 CO 87 021E

0~9C
OFA2

705 706 707 71)8
709
710

e

ICAFS

DC

1CL. l · 89! I ·

e

HALT

oc

XLl'4l-012·

8

L!l>k

POINT TO ~AP CHART. -PAGE 895. ENTRY le ERROR :"'ALT -12- ·
RETURN TO OCPe

(

~s· 646 ·

AC~TINE CE

LIC & SNS DATA TRANSFER REG WIT~ AA.

c ·
·

0""A7 CO 8~ 021A

711 712 BADINT £>

PRINT

PRINT INTERP.UPT CHECK.

647 ·

·

OFAe C2

OFAB 713

DC

XL 1·c2·

(

OFO~ OE

~04 00

OF03 OF04

648 .........................................................................

649 RTNOE DC

650

oc

XLl'OE' XLt·oo·

ROUTINE NU"BER NO MANUAL INTERVENTION REQUIRED

c

CFAC 15 OFAC IEEE OFAF 40lA

OFC!: OF3F

OF06 651

CC

AL2(t:lTNOF)

ROUTINE OF ADDRESS

OFet co e7 t7oo;

(

E52

OFB5 8952

OF07 OC 01 1919 i8EA

653

MVC

PATRN(2)c~OOAA

STORE TEST PATTERN.

CFe7 CO 87 0222

OFAC OFAE
OFBO
OF86

Tl4 715 716 717 718
719

cc

rt.1·21·

DC

AL2(SICC4)

DC XL«··oa··

B

MAFS

oc

XLl·e9~2·

e

HALT

PRINT MAP CHART REFERENCE·
-PAGE 89~. ENTAY 2· ERROR H,.LT -IA-·

OF 00 CO E7 1800 OF 11 F!:

654 OFll 655

E

COCE

OC

CLt·S·

PRINT TEST HEADING.

OFEC= 401 A

( ",,..,

OFBD CO 87 0216

OFBC 720 721

DC

KLl'401A'

B

Ll~K

RETURN TO DCPe

.W12 CO f7 t?SC OF16 FO !C '.!C
CFtt; 31 45 1919 OFlC: 30 4!: 1917

656

657

B

QUES

658

HPL x·?c·.><·3c·

659

660

LlC PATRN.x··s·

661

SNS LSCK 1X·45 ·

662

TEST FOR SSW 10· HALT -FF- 1F ON.

0

LOAO OATA TRANS REG WITH -AA-. SENSE OIAG & DTR FOR -OOAA-e

72?. ·········
* 723 · RTN10
72· ·······································································

ns·

·

726 ·

RO\;'T I NE Hi

Issue .. RESET l HTERRUPT.

·

n7
728

····························**·························e·················

OF21 3C 00 191E

~63

MYI t..SCK-1.><·oo·

664

CLEAR DIAGNOSTIC BVTE·

OFC1 10

0

OFC2 OC

OFCl 729 RTNlO DC

OFC2 730

oc

xt.t·iO' XLl·Oo·

ROUTINE NUMBER ~o INTERVENTION PEQUtRED

OF25 CO fl7 1488

665

B

LICSN~

GO CGMPARE RESULT WITH EXPECTED.

OFC? 1'?22

OFC4 731

DC

llL2CRTN1l)

ROUTINE lt ADDRESS

Cf"2«; 11 OF :!A Ff

OF29 666 OF2A E>67

DC

JCL.1'11'

DC.

CL 1'5 1

-ERROR ID· -fl! CODE.

OFC5 CC 87 157E

732

733

e

SICHD

PRINT TEST HEADING·

OF2B CO 87 0216

668

e

LU.K

RETURN TO OCP IF OKe

CFC«; BO

OFC9 73·

DC

XL t ·BO·

MESSAGE ID·

669

OFCA C9C5E2C5E!40C5D5 OFE6 73!\

DC

CL29·RE~El ENABLE INTERRUPT LATCH.·

OF2F OF:?:! OF:!£ OF39 OF:"e

CO 87 5c;31
CC e7 401 t
CC 87

1?09 C222 Ol?lf

OF34

670 671 672 673 674

e

·1.~s

oc

JCL:; '89:? 1 ·

e

HALT

DC

11CL~··ott·

e

LIM<

POINT TO MAP CHART. -P~GE e93, ENTPV le
ERROR !-'ALT -11-.
RETURN TO DCPe

CF02 C1C203C540C905E3

OFC· C5C9C9E407E~·OD~

c

OFE2 C1E3C3CB4e OFE7 Cl 42 l7BF

735 735
7~!5
n6
737

TtCl

ORCFOoX·42'

~AKE SURE 3?41 IS NOi ausv.

OHf

1 tAUG74

t.·: i-o. e::>47t5

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

PPOG ID
PAGE
... .

401-1
6

0 OA"TE EC NO.
0

16AUG7~
8247f5

l5NCV74 8241!70

-·-·--···-.

PROG 10 PAGE
· · · · · · · · · ·

·

·

·

· -·· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 0

tB~ MAl~TENAll:CE OIAGN~STIC PROGRAM

PAAT NO·
PAGE

5558421 ,.. I EM MA. tNTENANCE D JAGNOSTf(' PRCGAAM . 7 (...)

PART NO· PAGE

5!5!58·2t 7A

eqR LOC CBJECT CODE

ADDR STMT SOUACE ST,tTEMENT

(

OFEe co e7 1750

OFEF FO 3C 3C

_.,OFF2 31 41 180E

OFF«S F::! 40 C2

OFF9 F:! 40 04

(

nFFC 30 45 18FC

1000 38 10 lSFe t0C4 CO 90 0216

JOCE!
lOOC lOCO 100E 1010 1012 10 lE

CO E!7
C2 10
104E!
4013
CO E7
8971

021 A 1709

10 l f' C 0 fl7 C2 2 2 lOlC 4013 lOlE CO E7 0216
(

100C 1000 tOOF
1011
1017
1010

738 739 740 741 742 743
744
745 746 747 748
749 · 750 751 752 753
754. 755
756 757 758
759 760 761 762

e

Ol.IES

HPL

LtO Hcceo.x··t· SIC x·o2·.x·4o· SIO x·c···><·4o·
SNS OTF;1X 1 4S·

TBN BF

OTf:-loX·IQ 1
Lt"·K

ROUTINE 10 ERf:CP ~ESSAGE *

e

PRINT

DC

XL 1'C2·

oc

IL 11 29·

oc

AL2Cl,..TR)

DC

XLi'401? 1

e

MAFS

oc

><Li· e'li71 ·

e

t4ALT

oc

XL2·40I!·

B

LIM~

TEST FOR SSW 10· HALT -FF- IF ONe SET TO DIAGNOSTIC MOOE. IS!'UE ENASLE INTERRUPT.
ISSUE INTERRUPT RESET.
SENSE DIAG BVTE FOR -oo-.
DID ENABLE SIT GET RESET ? RETURN TO DCP tF 't'ESe
PRINT RESET CMl!Cke
POINT TO MAP CHART. -PAGE 8970 ENTRY 1. ERROR HALT -13-o RETURN TD DCP.

76:! 764 ..........

765 · RTN11 ·

766 ·······································································

c

767 ·

·

768 *

RCUTINE 11

ISSUE A READ COMMAND.

·

769 ·

·

1022 11

1022 777710 R··T·N·l·l ··O·C·····X··l.1··1 1··1·' ···········~···R·O··U·T·IN·E··N·U·M··B·ER·······················

1023 00 1024 108~

1023 772 1025 773

DC

XL1·co·

DC

AL2CRTN12)

NO MANUAL INTERVENTION REQUIRED ROUTINE 12 ADDRESS

1026 co fl7 1576
102A 81

102A

774 775 776

B

SJCHD

DC

XL 1 1 81 1

PRINT TEST HEADING. MESSAGE ID.

102E E2C~E3400~C5CIC4 1047 777

DC

CL29·SET RfAD CALL LATCH.·

10~3 40C3CID30?4003C1

777

lO?e E3C3CE4840404040
1043 · 0404()404 c

777 777

104E Ct 4~ 17BF

778

TIO DRCPDeX·42'

MAKE SURE 3741 IS NOT eusv.

779

104C CO fl7 17SD lOSO FO 3C 3C

780

e

781

HPL

TEST FOP SSW 10. HALT -FF- IF ON.

782

10S3 31 41 180E
1057 F! 41 00
10!,t Cl 42 l 7BF 105E 30 45 18FC

783 784 785 786

LJC HOC80.X 1 41 1
SIC x· co· .x·· 1 ·
TIC TICERBeX·4'2·
sr-s 0Tf;eX'4!:'

SET TO DIAGNOSTIC MOOE.
tssus A READ CALL. BRANCH IF 3741 eusv.
SENSE DIAG BYTE FOR -03-.

787

10t2 :'!C 03 191C

'i..

\Of,E CO E!7 lSBO

106,t 14

lOEB CO E7 1C7F
(

106A

788 789 790 791 792

tilVI XPCT. x·c?.

e

CKHO

DC

XLl914'

E

DOf:ST

STORE EXPECTED RESULT· GD CHECK EXPECTEO WtTH RESULT. ERROR ID·
GO Cl-ECK FOR RESET IF OK·

tOEF CO S7 1073 8991 1075 co 87 107q 4014 107e CO E7

l 7DC',1 0222 021E

1074 107A

793 794 79!5 796 797

e

MAP$

DC

XL2·8991 ·

e

HALT

DC

XL2'4014'

e

LIM<

POINT TC MAP CHART· -PAGE 8991 ENTRV t. ERROR HALT -14-.
RETURN TO DCPe

798

107F F3 40 08 1oe2 30 45 18FE tOEE CO @7 IOE,t

799 DORST 800 801

sto
St-S B

x·ce·.x·40· TEfliJ:,x··s·
Ckf<ST

DO A READ CALL RESET. SENSE OIAG BVTE FOR -oo-. GO CHECK OIAG BYTE FOR RESET.

802

c 4011

3741 FUNCTION TEST WITHOUT T~E WRAP CCNNEr.TQ~

ERR LCC oe~ECT CODE

ADDR STMT SOURCE STATEMENT

803

804 ·········

eos
806

·· ··R·T·N·1·2·····o**··············,...········*·········**····**··········..···

807 ·

·

0

C'..

tOE'A 12
1oee oo

108C i 118

108A 1oee 1()60

eoe ·

R.,j~T IN£ 12

ISSUE A ·Rt TE COll'·AM>.

·

809 ·

·

881110 R*T*N*l*~····D·C·····x·a_·1~··1·~·····..··········R·O·U··T·IN·E··N·U·M··B·EP··················..···

812

oc

XL.1·00·

NO MA~IUAL 1NTEqvENTION

813

DC

Al.f(RTNl~I

ROUTlt« 13 ADDRESS

c

10BE CO 1!!7 t57E

814

BIS

B

SICHD

rRtNT TEST H£AOJNGe

10~2 82

1092 816

DC

Xl.t·e2·

MESSAGE 10·

lO'li: ear.~E340Ef09C~E3 10AF 817

DC

CL29'5£~ ·RITE CALL LATC~·'

109@ CS4CC3ClD:0340r3

817

10A3 ClE3C3CE4E4'C4040

817

0

.
.

tOAe 4C4C4'e4C40 toeo c1 ·2 t78F

817
e:ae

TIO OROPO.Jt 1 42'

101!4 CO 87 175C

0

!OE!8 FO 3C 3C

819

e20

e

621

HPL x·:?C·.x·:!c·

TEST FCR SSW 10.
HALT -FF- JF ON.

822

108B 31 01 18DE

0

tOeF F3 ·2 00

10C2 30 4!1 U!F C

823

LIO

824

SlO x·oo·,x··=:·

825

St.:5 0Tf:·><'45'

SET TO DIAGNOSTIC MODE. ISSUE A WRITE CALL. SENSE DJAG BYTE FOR -05-.

c

IOCE 3C 05 191C

lOCA Ct' e7 t5BO

826 827 828

!'il\'1 B

,..PCT,Jt·C~t
Ct<UO

STGR~ E>'PECTED RESULT. GO CHECK EXPECTEO WITri RESULTe

lOCE I !5

10CE 829

DC

)':\..1 1 15 1

ERROR ICe

lOCF CO eT I OE3

830

CKPSTT

GO DC PESET IF OK.

831

tOC3 CO eT 1709

0

1007 ~031

tOC9 CO e7 0222

IOVD 4015

tOOF co e7 Cl21e

1008 lODE

B32
833 834 835 83(;

B

MAPS

DC

XL.2 UiJ031 1

B

HALT

DC
e

PCI~ TC MAP CHAaT. -PAGE 90~1 ENTRY le ERROR H~LT -15-o
RETURN TO OCP.

IOE3 F3 40 09

837
838 CKRSTT StC x·ce·.i<··c·

00 WRITE CALL ~ESETe

IOEE 30 ·U5 18FE

839

. ':NS TE.,P,X 1 4!5 1

SEt1;~E DIA~ BYTE FOR -00·-·

840

10EA 3C 00 l8f'C

0

lOEE F2 01 OD

lOFl 30 15 OA03

10F5 CO 01 0216
0

10F9 CO 87 022A

lOFD OIJ

IOFO

841 CKRST
842 84::!! 864
e.-5 846 847

CLI
.INE .CLt
St.;E
B DC

TE~P-t.>e·co·
ER!T
RTHlf.lC't~·
LIM(
LOAD XLl'OO·

DIAG BYTE RESC:T TO -00- ' .IU·P IF NC!T · CHECKING RESET FROM RTNl5?
RETUPt.l TO ocr IF NOT.
BRANCH TC DCP TC TERMINATE SECTION.

848

849 · :!!741 RESET ER~OR MESSAGE ·

0

lOFE CO S7 021A

1102 C2

110? 1e

0

11041 1028

!ICE 401E

uoe co e7 1709

0

l l oc 8992

1l OE CQ E7 C222

1112 4016

111· co e7 0216

850

851 ERST B

1102 852

DC

1103 85:::1

oc

1105 85.t

DC

1107 855

oc

856

e

1100 8!5?

DC

es~

e

1113 8!59

DC

@60

8

PRINT XL l'C2' IL1 1 2?· "L 2 CNTR S'T)
>eL~·~o1e·
fllAFS
XLl~·89~2 I
HALT XL2 1 ·0lt!'
LIM(

PntNT 37·1 NOT RESETTING MESSA~E.
PCIN"> TO MAP CHART. -PAGE 84X'· EN,_'t 2· ERROR HALT -I&-· RETURN TO DCPe

DATE

1 EAUG74

E' 11:0. 824'76!5

15NCV7· 824870

PROG 10 PAGE

0 DATE EC NO.
Q

1EAUG74 8247E'5

15NCV74 !24!70

PROG 10 PAG!:

·01-1 . 7A

0

c

i..
···

IBM MAJNTENANCE OIAGNCSTtC PROGRAM

PART NO. PAGE

5558421

JeM MA.!NTENANCE OIAGNClSTIC PROGRoUIJ

e 0

PART NOe PAGE

401 l

3741 FUNCTICN lEST WIT~OUT T~E WRAP CCNNECTCR

ERP LDC ceJECT COOE

ADO~ STMT SOURCE STATEMENT

4C1!

37·1 FUNCTION TEST WITt<C!\.IT Tl-IE WRAP CCNNECTC:R

0

ERR LOC CEJECT CODE

ADDR ~TMT SOURCE STATEMEN7

(

* 862 ·········
1?63 RTN13 ·

('

1199 E2C~E~40C105C440 1185 924

11Al C9C5E2C5E~·OD~D6

924

DC

CL~9 1 SET -~D RESET NO-OP LATCH.·

111f! 13

Ii 18

c 88E666465··. ·*····R··t U·T·l·l \·: E···1·3 ·········I S·S·U·E···A··C·O·N*T·RO··L··1··S·! O··e·····················~··.·..
· 867 ·
c 886689 R·T··N·1·3··D·C······X·L·1·'·1·3·' ··~············R··O·U·T·IN··F·*N·U·M·B·E·R······················

11A9 60DED740C3C1E3C3
1181 C.E4B404C4()
ue6 Ct 42 17BF
USA CO E7 1750
u ee FO 3C 3C

924 C-024
~25
926
9C::7
928

11t9 00

1119 870

cc

XLt·oo·

N~ MANUAL JNTERVE~TIDN REQUIRED

929

Ill.A 11E4

1118 871

OC

AL2(RTN14J

ROUTINE 14 AOORESS

1 iCl :31 41 lBCE

930

1!72

11C!5 F3 41 00

931

11 lC co 87 1576

873

B

SlOHD

PRINT TEST HEADING.

11 ce 30 42 01.r:6

932

1120 B3

1120 874

DC

Xl.1 1 83 1

MESSAGE ID·

HCC :'.'!e 04 OAf"A

9:'13

1121 C40640C3CED5E309 1130 e·1s

DC

CLi9 1 DO CC~TROL 1 START I'O·*

H"OO Ff. 90 :!5

934

UC
e
HPL
l. It: SIC
Sf>,;S
Te~

DROPo.x·42·
OUES
x· !C · .>1 · ~c·
HOOOO,.X·41 1 )(. ()0. ~ )(. 411. LCSO·K·42'
LCR-t~x·o·· El~

MAKE SURE 3741 IS NCT BUSY·
TEST FOR SSW tO. HALT -FF- IF OHe
REMOVE FROM OIAG NOOE· ISSvE A READ CALL· SENSE STATUS FOR -84-e NO-OP BIT ON IN Fl~ST STATUS ? BRANCH IF NO-OP NCT ONe

1129 D~D340F140E2E3Cl

1131 O~E34CC~El0c4B40

113c;l 4040404040

11 3E Ct 42 t 7BF

I

\

1142 co e7 nso

114 FO 3C 3C
(

1149 31 41 t80E

875
e7s e7s
876
. e7T
878
879 8eo
881

TtO DRCPD.x··2·
B
HPL x· 3C' .x· :!C ·
LIO Hoceo.x·'lt·

MAKE SURE 3741 ts NOT eusv.
TEST FOR SSW IOe HALT -Ff<- !F ON.
SET TO D!AGNOSTIC MODE.

1103 30 42 1900

1107 3e 04 190C

HDB F2 10 OF

0

HOE Ct 42 t?BF

11t:2 F3 ·o ce
ItES 30 45 t8FE
llECJ CO e7 !.OEA

935 936 93·;
936 939
9·'0 941
'9~2
943

SNS
TBN .;T TIO
SIO SNS

WORK ,)(·42· WOl<K-1·Y·04·
El -:!A "l"ICERe.x·42·
x·te·.x··o·
TEtlP·X·45·
Cl(~ST

SENSE STA~US FOR -eo-.
tlO-OP 61 T RE SE'T ? eRAMCH IF NO-OP NOT RESET· BRANCH OUT JF 3741 eusv ·
uO READ CALL RESET·
SENSE OIAG BYTE FOR -oo-.
GO CHECK RESET RES\JL·rs.

1140 F3 43 FF

882

SJO

883

ISSUE CON~ROL , sto.

* 944
945 $ ROUTINE 1~ ER~OR ~E!!AGES

uso co e7 021t:

884

B

ees

RETURN TO OCP.

HEC co S7 02111

946 947 E 13A B

PRIN~

PR I ;..rr t-.0 ~ESET ERROR·

(
(
c
1154 14
1155 oc

1154 lt55

886
eeT ·········
see · RTN14 · 889 ·······································································

890 ·

"'

891 ·

RCUTINE 14

ISSUE CCNTROL 2 sto.

·

892 ·

·

8B9934 ·R·T·N·1·4···D·C·····X·L··t··t·4··················R·O·U·*TIN*E··N·U·M·B·E·R·······················

895

DC

XLt·oo·

NO MANUAL INTERVENTION REQUIRED

UF1 C2
tlF2 1£' l t F3 J 01"<.: HF!: 401 S 1t F7 Cll e7
1\Ff:! Cf052
UFC CO e7 1201 4018 1203 CO @7 12Cl7 00

1709 0222
022A

UFl llF2 11F4 111"6
HFC
1202
1207

9·a
949 950
951
952
953 954 c;ss 9!56 957

cc

XLl t c2·

cc

IL 1' 27 1

DC

AL2CNORESJ

DC

1'L2·40t8·

a

MAF3

DC:

XLi1 90S2 1

e

tiAl. T

DC xL2··01e·

"DC

l.OjtC XL 1 9 00 1

PCINT TC MAP CHART. -PAGE 90~. ENTRV 2· ERP-OR HALT -18-·
GD TER~INATE SECTION·

115E 1190

1157 896
897

DC

AL2(RTN15)

ROUTINE 15 ADDRESS

aoe co e7 021A

958

959 E13

B

Pl=llNT

pqJNT L~fCH SET CtECKe

(

11 se co e7 t57E

898

use B4

use 899

115C C40640C30l:OSE309 1179 900

e

SI CttO

PRINT TEST HEADING·

DC

MESSAGE !De

oc

CL29·DO CONTROL 2 START ll'Oe 1

120C C2 1200 19 120E 1CfH

t20C 1200 120F

960
961 962

,DC

XL I ·c2 ·

cc

tLi 1 2~·

DC

AL2CNCSEE)

llES OED340F?.40E2E3C1 tlEC C~E340C961DE4S40 11i5 4C4C4C4040
u·u co e1 nso
117E FO '!C 3C

900
900 900 901
902
903

e

CUES

HPL

TEST FOR SSW lOe HALT -FF- IF ON.

"( \,

1210 4017 121Z CO e7 1709
1216 9051 12 I 8 CO 87 022 2
121C 4017 l21E CO 87 022A

1211 t 217 1210

963
964 965 966 967 960

DC

XL~'4017'

e

MAFS

oc

XL2'905l 1

e

HALT

oc

e

POINT TO M·P CHART. -PAGE 9050 ENTRY le EPROR MALT -17-.
~O TER~INATE SECTION.

ll e1 31 4 1 1SC E

904

l.IC

REMOVE FROM DIAGNOSTIC MODE·

1222 00

1:?22 969

DC

ues c1 42 t7BF

905

TIO

MAKE SURE 3741 ts NOT eusv.

9?0

ue9 F3 ·· FF t1 SC CO 87 021 6
(
c
c

906
907

SIC x·FF·.x·44·

ISSUE CONTROL 2 SIOe

()

908

e

Ll"IC

RETURN TO ocr:i.

909

········· 910
911
* 912 · RTNiS

991134 915

··*·*·····R·C·U·T·IN·E···1·5·········IS·S·U··E··A··S·IC···TO···S·E·T·/R··E·S·E·T··T·H·E··N·O·-·O·F·~L·A·T·C·"········*

916 ·

·

()

:223 tE 1224 80 122!: FFFF

971

972 ..........

973 * RTN16 ·

997754 976 977

·····················*····················*····························

$

e *

RCUTINE 16

TEST ALL INVALID N CODE COMMANDS· (OtAL JN ONLYl

· * *

1223 1224 1226

997789 P· ·T·N·l·6· ·D·C· · · · · ·><·L·t·· ·Il·l·'.· · · · · · · · - · · · · · ·R·O·U·T·I·N·E· ·N·U·M· ·BE·R· · · · · · · · · · · · · · · · · · · · · · ·

980

DC

XLt·ec·

MANUAL INTERVENTION RECUIRED

981

OC

Jel.2·FFFF·

LAST ROUTINE

1190 1!5 1191 00

1190 1191

991178 R··T·N·1·5··D·C······X·L1··1 ·i5··' ············~··R·O··U·T·IN·'E···N·U·M·B·E·R······················

919

DC

XLl·ooc

~o INTERVENTION REQUIRED

()

1227 OC 03 190C 0003 1220 OC 03 00~3-18FE

c;e2
983
984

MVC
NYC

WORK(4) ·:? 3(4),el<NCt-

SAVE BOTTOM CORE OF DCP· STORE SPECIAL ·BRANCH 8ACK 1 CMNDe

1192 1223
J 1c;4 CO E7 l57E
1198 es

1193 1198

920 921 922 923

DC

AL2CRTN16)

e

SICHD

DC

ROUTINE 16 AOtmESS
PRINT TEST HEADlNGe MESSAGE ID·

1233 co 87 021·
() 1237 42 12:?8 3:?

1237 1238

985
986
987 c;ee

B

PRINT

DC

XLl 1 42·

DC

IL ..!St·

PAINT TEST HEADING·

OATE

l tAUG74

EC r.io. 8247£5

l5NQV74 8241!70

PROG ID PAGE

401-t 8

(, CATE EC N;J.
0

1EAUG74
2~47E!

15NCV74 1!24f70

PROG ID
~AGE

401-1 BA

·( · · · · · · · · · · · · · ·() · · · · · · · · · · · · ·

· ·

· · · · · · · · · · · · · · · · ·.... j · · · · · · · · · · · · · · · · · ________.,. v ~

IBM MAINTENANCE DtAGNCSTJC PROGRAM

3741 FUNCTICN TEST ·IT~OUT T~E ·RAP CCNNEC10R

ERR LOC oeJECT COOE

ADDR STMT SOURCE STATEMENT

1239 123E 1230 1241

lOOC
40BE
co e7
02

021.l

123A 989

OC

t23C 99()

OC

991 REPIT B

12.iu 992

DC

'-LUJNVAL) XL2·40f6· PRINT
XLP02·

12·2 24 1243 1EQ1
12·5 CO e7 021 A 12·9 OE 124A 37

J242 1244
1249 124A

993 99.\ 995 996 997

DC

11.. 1'36'

DC

AL~(INVL)

B

PRINT

DC

XL1'06·

DC

IL 1·55·

1248 1E3e

124C 998

DC

AL2(1VLl

999

1000

B

HALT

1251 40EE

1252 1001

DC

XL2'40EE·

12!:3 co 87 1230
(

1002 1003 100· 1005 ·

B

REFIT

INVALID fENSE 1/C COOES.

1257 0£ 01 0003 18CA

1006 RTRN ALC 3( C: l.NOl <;

125C 3C 40 1BFF t2El CO 87 l37e

1007 1008

St.5 TEWP·X·40·

e

ERtA

12E!: E20!:E240FC

1269 1009

DC

CL!·SNS O·

1010

l2EA OE 01 000:? 16CA

1011

ALC 3CU.NOt<f,;

1270 30 46 18FE

(

1274 CO e7 137B

1012 1013

S!';S 8

TE~PeX'4E·
ER14

1278 E20!:F240F6

J27C 1014

DC

CL! · SNS 415 ·

1015

1270 0£ 01 0003 180A

1016

.lLC 3(2J.NC1'9

12e3 30 47 18FE

1017

SNS

TEMP. )(·~7 ·

i2E7 CO E7 1379 12ee E205E240F7

1018 128F 1019

B

ER14

oc

1290 OE 01 0003 lBCA 12<;6 31 40 1 BCE

1020
* 1021
1022 1023

INVALID LOAD 1,0 CODES·
ALC 3(::;).NCl1'9
LIO Hoooo.x··o·

J2<;A CO E7 1378

(_

12QE 0.3C90640FO

1024 12A2 1025

B

ER!"

DC

CL£'LIO O·

1026

12A3 OE 01 C003 l8CA

1027

12A9 31 43 18CE

102B

12.11c co e7 137e

1029

1281 O:?Ct;DE40F3

1295 1030

(.

1031

129E OE Cl 0003 18CA

1032

128C 31 4~ t8CE

1033

ALC
LIO e
DC
ALC
LIC

3(2).N014i
~ocoo.x··!·
ER14 CL!'LIC! 3 1
3U:l.NCl<; HDCOOoX'46'

12CO CO 87 1378

1034

B

ER1o\

l2C4 o:=cc.;OE40F6

12C8 1035

DC

CL!: 1 L 10 6'

(

12C9 OE 01 0003 lBCA

1036
1037

12CF 31 47 18CE

1038

12C3 CO E7 1379

1039

1207 0"3C90640F7

12DB 1040

ALC
Lit
e
DC

3( .. ).NOJc;; HOOOO.X·47' ER14 CL!·LtO 7·

1041

l20C OE 01 000? t8DA 12E2 Cl 411 121:'~ 12E~ CO e7 1378

1042 · 1043 1044 10.\5

INVALID TIO N CCDES.

ALC 3(2l.N019

TIO ··4·X·4U ·

B

ER14

12EA e~c~OE40F1

l2EE 1046

DC

Q..!·TIO l'

1047

l2EF OE 01 0003 18CA 12F!: Cl 44 l2F9 12F'9 CO E7 1378 12FC E3C<;0640F4

1301

1048 1049 1050 1051

ALC 3( 2).Ntl«;

TIC ·+·.x·44·

e

ERl4

DC

CL! 1 T10 4 ·

1302 OE 01 000:?
1308 Cl o\S l::!OC
t3oc co e7 t37e
1310 E:?C'WOE40F~

l8CA

1314

IC52 1053 1054
1055 1056

Al.C

3( :n .Nc1 c;i

TJO ·+4, X··HS·

B

ER14

DC

CL!·TJO !! '

DATE EC NO.

15NCV74 824E70

PART NO· PAGE

0 5558421 9

IGM MAINTENANCE DIAGNC~TIC PRC~RAM

4011
(\

3741 FU:~Cl'ICN "JEST WITt'OUT Tt·.E WRAP CCNNECTQR

. ERR LOC OBJECT COOE

AOOR ~TMT SCYRCE STATEMENT

PRINT REST OF INSTRUCTIONS.
OPERATOR HALT -EE-·
REPEAT JF NO SYSTEM RESET.
INCR RETURN ADDRESS.
N = Oe
BRANCH IF CMND ACCEPTED.
JNCR RETURN ACDPESS. N = 6· BRANCH IF CMND ACCEPTED·
INCR RETURN ADDRESS. N :: 7. BRANCH JF CMNO ACCEPTED.
= JNCR RETURN ADDRESS·
N o.
BRANCH IF CMNO ACCEPTED.
!NCR RETURN ADDRESS. N t: 3. BRANCH IF CMND ACCEPTED.
INCR RETURN AODRESSe N = 6. BRANCH IF CMNO ACCEPTED.
= INCR RETURN #ODREss.
N 7·
BRANCH IF CMND ACCEPTED.

1057

131f OE 01 0003 18DA

1058

,_LC 3C & ) eNO.i.9

13te Cl 4~ 131F t3 lF co e7 t.37e
1323 E:!C~Ot40FE

IO!:Q 1060
1327 10~1

TIO
El
oc

·+4."'46' ERH
CL5PTl0 6·

10ti2

1328 OE 01 OO'J3 18CA

10.;.a

ALC

3(.;:) eNCtt;

132E Ct 47 1332 1332 co e7 l37E!

1064
l'.)65

TIC ·+4eX'47'

a

ER14

133E E3Ct;OE40:=7

133A 1066

CL~ 1 TIO 7·

1067

c

\338 OE Ol 0003 tBDe

l'J68 "' 1'69

1341 F3 45 00

1070

c

1344 co e'7' t37e 1348 E2C'i0064CF5

1071 134C 1072

INV.ALtO SIC N CODES.

~LC
sto e

3(U.N018
x·co·.x·~s· E~14

DC

CL5'SIO 5·

1073

C,.

134C OE 01 0003 1808 13'!3 F3 46 00

1356 Ct.l 87 137f'

1074 1075 1076

1:!5A E2C90~40F6

13"iE 1077

!!.LC 3(2,,lliOte
SIC x· oo· .x··6'

B

ER14

oc

(1.5 1 510 ,,,.

1078

135F OE 01 0003 18D8
13H: F3 47 ~O

1079
1080

ALC 3f 2) ,NOte
Ste x· oo· ,x·47·

13~8 CO 67 137B i36C E2C:;0640F7

1081
1370 108~

B

EIH4

oc

CL! 9 '510 7·

0

1371 oc 03 0003 190D

1377 co 87 on6

108~

tOe4 PUTBAK lo!VC

1065

~

3(4).WC~I':
Llf'll<

* 1066
1087 ~ ROUTlNE lE F.Q~CA N~55AGE

137 3E r.e 18015 ,31'F 34 oe t3ee

108

11)89 tRl4 A

1090

ST

N(IC4.a.~R
*+C>,,t,RR

1383 OC 04 1E5C 0000

1091

c

1389 OC 23 1Fl2 JE5C
t38F oc oo tees 1es'

1092
lO'iP:'I

1:7<;5 OC CB l!= l .l 1CE6 '

1094

c

1391.3 CO 87 02lA 139"' C2

t3AO 5B

1095 1~91" 1096 13AO 1097

13A1 1F49

t3A2 1098

13.A3 4(ll9

13A4 1099

foo'VC
MVC
MVC
MVC
e cc cc
oc DC

FL WN G ( 5 I · ·-· FPT-55( 36) ,FLWNG
THC-!( 1) ,FLWNG
PRT-47(9).-THD PAINT
XL1"C2'
IL1'9t· At..2CPAT)
xt..:.: 1 .-01.;·

13A5 OC SA 1F4~ 1F4A

1100

~vc

PRTC91).Pf<T+1

13 AS C~ !!7 1709 13AF 9(\53 13Bl CO 87 0222

1101 13BO 1102
1103

B

MAFS

oc

XL .. ·9053·

e

HALT

c

1"385 4019 13B7 CC 87 1371

1386 1104 1105

DC

XL .. ·40llj;·

B

PUTeAI<

INCR RETURN ADDRESS· N · 1· BRANCH IF CMND ACCEPTEC.
INCR RETURN AODRESSe N · 4. BRANCH IF CMND ACCEPTED·
INCR RETURN AOORESS.
N · s.
BRANCH IF CMND ACCEPTED·
PROG ID PAGE

0
· · ·
401-1 'ii

15NCV74 e24e?o

__________________________________________________________________···_________ _:_

___:-:::-··--"·-·--·--·--··-·

···-··-··--------"·""·

PART NO. PAGE

55!58·21 9A

INCA RETuPN AOORF~S· N s: 6. BRANCH IF CMHO ACCEPTED·
= INCA RETURN ADDRESS·
N 7.
BRAW.:H IF CMND ACCEPTcDe

= IN<:R RETURN ADDRESS·
N 5. BRANCH IF CMND ACCEPTED.

= !NCR RETURN ADORESSe

.~

6 ..

s;rcANCt1 If' CfllND ACCEPTED.

= JNCR ~ETUSCN ADDAESS·
M 7. BRANCH IF C~NO ACCEPTED.

RESTORE BOTTOM CORE O~ OCP. RE"fU~N ,.0 OCP.

STORE FAILING CMNO to.
SET UP ERRCP MESS~Ge.
PRINT ERROR MESSAGE.
CLEAR PRINT FJELD· POtNT TO MAP CMARTe -PAGE 90S. ENTAY 3· ERROR HALT -19-. GO RETURN TO OCPe

PROG ID J;.AGE

401-1
9A

L ,
···

C.
Je· Mll~TENANCE CIAGNCSTIC ~OGRAM

PART ND· PAGE

5558421 ID

·
e leM M"l"'TENANCE 01AENCSTJC "'3GRA9' .

PART NDe PAGF

SS58·2l IOA

4011

3741 FUNCTION TFST ·IT~DUT THE WRAP CCNNECTCR

ERR LOC DeJECT CODE

ADDA STMT SOURCE STAT£MENT

4011
()

3741 FUNCTION TESY WIT~OUT THE WRAP CCMNEClOA

ERR LOC OBJECT CODE

ADDR STMT SOURCE STAT£MENT

r
\._
c c

(

1:iee 36 OB lBDO

t::'eF 34 CE l3Ce

13C3 OC Ol IE:!C COOO

t3C9 3E oe 1802

l::'CC 34 oe 13DE

1301 OC 01 l63E 0000

(

1307 3e oe 1eoo

* e 1107 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

1108 SNSERR ·

·

1109 ··········
1110 *

sueAOUTJNE PRINTS SENSE ERROR HEADING

·

ANO DUMPS STATUS~RRORS Of< THE REGISTERSe

·

111 I *

CALL SUSROUT INE BY -

·

* 1112 ·
1113
* 111· ·
1115 1116 · 1117 ·

B

SNSERR

DC 2.x·EXPECTEO PATTERN'

DC

2.x·ACTUAL PATTERN·

DC

leX·ERROR JD·

·
·* 0
c ·
· ·

c 1118 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

1119 S~SERR A

NOOl.ARA

1120

ST

·+~.-~~

1121

MVC XP1(2J··-·

STORE EXPECTED PATTERNe

1122

A

N002eARR

1123

ST

·+~.AP.A

1124

MYC ACT(2)·.,_*

STORE ACTUAL PATTERN.

1125

A

NOOl.AAR

t4ee 3~ oe 1eDt' 14ec 34 ce 149!
1490 OC Ol 1918 0000 1·1;E 3E oe t8oo 149A 34 08 14AA
149E OC n1 1917 1919 14A4 F2 01 04 t4A7 CO 87 0000
14Ae OC 00 14EA l91A 1·e1 co e7 on·
1·B~ C2

···*·················..··· 11117767 ···L·I·O·S·N~S···· ··..·········..·····..···········..

*

1178 ···~······

THE EXPECTED ~ND ACTUAL SNS PATTERNS

·

1179 ·

ARE COMPARED FROM ROUTINES 07-oe.

·

1180 i1e1

·············*·*······················c··································

1182 L!OSHS A

NOOJ.ARR

11R3

ST

·+9.ARR

1184

MVC NICC2t.·-·

SAVE THE N CODEe ERROR ID·

1185

It

NCCleARA

1186

ST

C~kLS+3e·li~

SAVE RETURN AO~Aess.

1187

1188

CLC

L~CKC2).PATRN

EXPECTED ANO ACTUAL EOUAL 9

*-· 1189

JNE

1190 CICICLS S

·+T

JU..P IF NOT· RETURN TC ROUTINE·

1191

1192

MW: LSIDt I J el''I0-1

STO~ CUAM£NT ERROR 10e

1193

B

t'IRl~T

PRINT ERROR ttEA~ING·

1485 1194

DC

XL1·c2·

13ce 34 oe 13E4
130F OC 00 13F6 0000
13E! 3E oe ieoo

1126
1127 1128

ST
MVC A

·+~.ARR
SNICID( I>·*-·
NOOl.ARR

STORE ERROR IDe

14l'6 ll'
t·e? 1eeo
14Et; 4000

1486 119!5

DC

'"'""' t4BA

1196 1197

LSIO

DC OC

1L1·22· AXLL2C2L· SO4lK'1 ~--- - - - -

l3r9 34 oe t4e7

1129

ST

ERSN+3.ARR

STORE RETURN ADDRESS.

1·ee 30 Fl tQIE

11~8 -- - - -C-tt---N'f'W·F1·

N CODE I CMECK.?

t3EO CO e7 021A
13FI C2

1130 1131 13FI 1132

8

PRINT

DC

XLl·c2·

PRINT ERROR HEADING·
ID -4003- OR -4004- OR -·oos-.

c

l4BF F2 01 06 14C2 OC 10 lFl2 191!~

1·ce 30 F2 acne

1199 1200
1201

JNE ·+9 MVC Pf'T-!551 t71 ef"NCT CLI MIC.X 1 F2·

JUMP IF NOTe MOVE IN N I IDe N CODE 2 CHECK ?

13F2 OC

(

131"3 1E72

13F5 4000

13F2 1133

DC

13F4 I t.3·

cc

13F6 1135 SNRID DC

ILl'l2· AL2CSNCICMS)

14CC F2 1)1 ae

0

t4CF OC OF IFO? IABF

l4C!! :!D F4 19lf!

120=' 1203 1204

JNE *+9 ..VC PRl-66(16),STLCA-5
CLI N1c.x·F4·

.IUto!P IF NOT· MOVE IN N 2 ID· N CODE 4 ID 7

(

13F7 30 03 OA03

13F~ F2 01 OC

1136 1137 113'3

CLI JNE

RT"I · X· O~ · ·+15

FROM RTN03 ERROR T JUMP IF NOT.

l4D9 F2 01 ce

0

14CC OC 14 1Fl3 1A£1!

14!:2 31:" FS 1918

1205 1206 120?

JNE MVC CLI

·+Ii
PRT-~4(21).0ADR
NICeX·F5·

.IUMP IF NOT. MOVE IN N 4 Ille N COOE 5 ~HECK ?

13FE OC OA IF04 IAAE

f

1404 OC OF lFle IABF

1139 1140

MVC MVC

PRT-69Cll)·STLCR-22 PAT-·6CleJ.STLCR-5

LOAD RTN03 ERROR MEAOINGe

l4EE F~ 01 06 l4E9 OC 10 1F07 ISOC

1208 1209

.INE *+~ MVC PRT-flE( 17) ,DIGTS<-5

.JU"P IF NOT· MOVE IN M !i ID·

l40A 3C 04 OA03

11·1

Ct.I RT9'.:·.x·o··

FROM RTN04 ERROR T

14EF CO 1!7 teA7

1210

9

EPHIT2

PRINT HEAD!NGe

140£ F2 01 06 1411 OC ll 1Fl2 lADE 1417 30 05 OA03

1142 11·3 11··

.lfilE
MVC CL.I

P··R~T-55tle)elOTRL
RTH·ex·os·

JUMP IF NOT. LOAD RTN04 ERROR HEAOINGe FROM RTN05 ERROR ?

14F:! 3D F2 1911!

0

14F7 F2 l!t 32

t4FA 30 F5 1918

1211 12lZ 1213

CLI NICwll(·F2·

JE

SPL2

CL1 Ntc.x·Fs·

N CODE 2 CHECK ? .1\11>1~ IF SO· N CODF 5 CHECK ?

1418 F2 Ul 06 141E OC OE 1F06 IBCA

11·5 1146

.INE ·+«; MVC PRT-67( I!) eDIAG

JUMP IF NOTe LOAD RTN05 ERROR t4EADIN6·

14FE F2 et 28

()

1501 OC 09 1F03 1009

1214 121S

JE

SPL2

MVC PRT-70ClO>·EB2

J~"P IF SOe SET UP BYT~ LA9LESe

1424 CO E7 1eA7

1147

B

EPFNT2

PRINT HEACINGe

t5C7 OC 09 IFll ICFF

1216

MVC PRT-50(101.£81

1148

l5QC CD B7 lB9C

1217

B

EPliNTl

PAINT BYTE LABl.ESe

1428 C2 02 1F06

1149

LA

PR"f-6711XR2

INITIALIZE OUTPUT AOORESSESe

151 l cc oe tFOE lCF~

1218

MVC PRT-67Cl5l·elTS

SET UP 81T LAEL.ES·

142C 3D OS OAO:!

1150

CLI RTh··x·o!i·

FROM ROUTINE 05 ?

1517 OC OE IFlA ICFS

1219

...YC PR'T-47( 15) .BITS

14!0 F2 01 07 1433 C2 01 1900 1437 F2 e7 04 143A C2 01 !Fl A

1151 1152 1153
us· NORM

.INE
.LA
LA

M:!"M
WORK·XRI ·+7
PA"f-47.XRl

JUMP IF NOT SDe SET UP DUMMY ESI FIELDe
SET UP NORMAL EBI FIELD·

!SIC CO 81' 18A7 1521 C2 O~ IFOE 1525 C2 01 IFIA 1s2c; F2 1!7 IC

1220 1221
1~22
1223

B

EPliNT2

LA

f'RT-67 · Xf; 2

L..A

Ptn-47.JCfU CALC

PRINT BIT LABLESe LOAD OUTPUT ADDRESS·

1155

l43E OC M 1F03 IDC9

1156

1444 30 05 OA03

1157

1448 F2 ea 06

1158

1448 OC 09 'IF17 ICFF

lt59

14U CO e7 189C

lt60

1161

1455 OC OE IF06 ICF!

1162

1451! :!IC 05 OA03

(

l4!!F F2 et ce

1163 1164

14E2 OC OE IFlA 1CF!

1165

1468 CO e7 1BA7

1166

1167

14EC CO 87 16El

1168

1470 1E3E

(

1412 co e1 1e9c

1471 1169 1170

147E CO e7 1E3F

1171

147A OC 06 IEF5 1Dl0
ueo co e7 18A7 He· co e1 0000

1172 1173 1174 ERSN

(

EC NOe
(

MVC CLI JE
lll'VC B
lllVC CLI
.IE
MVC B
8 DC
e
B MVC B 8

Pf:lT-'70( 10) eEB2 AT"'··><·O!i· ·+t; PAT.;..SO ( l 0) eEBl EPf;NTl
PRT-67( 15) ·BITS RTN·.x·cs· ·+t;
PRT-47( IS, .ens
EPf;NT2
BITSNF AL2(ACTt EPFNTI CMl=ARE
PRT-84( 7) .ERORS
·-··EPFNT2

ARRANGE TABLE HEADINGS.

FROM ROUTINE 05 ?

SKIP IF SOe

0

PRINT EB BYTE LABLESe

0
ARRANGE BIT LAEM.ESe

FROM ROUTINE 05 7

SKIP IF SOe

0

PRINT BIT LABLESe
0
CALCULATE STATUS OF ALL ACTUAL BITSe

l52C OC oc; IF03 lCFF
1532 co 87 189(
153E OC OE \FOE 1CF!5 153C CO f:7 18A7 1540 C2 Ot !F06 1!!44 C2 C2 lt;QD
1548 CO 1!7 16E1 154C 1917
1!4E CO E7 189C 15!2 OC 01 163C 1919
1see oc 01 1e3e 1917 &SSE co e7 le 3F
15E2 OC 06 IEFS 1010 ISES CO 1!7 l8A7

GO PRINT ACTUAL STATUS· FIGURE ERROR BtTSe MOVE IN ERROR LABf..Ee PRINT ERROR SITS. PETURN TC RCIUTINEe
PROG 10 PAGE

156C OF 01 14AA IBCE

1572 CO e7 14A7

···

401-1

DATE

l~AUG?4

10 OECNJe 82471'!5

1224 SPL2 1225 1226 1227 1228
1229
1230 CALC 1540 1231
1232 1233 1234 1235 1236
1237
1238
1239 ADDIT 1240

MVC B M\IC B
LA LA 8 DC
B MVC
MVC
B
MVC
e
ALC
e

PAT-7~(10>eEBl
EPANTI
P·n-67C 1s >.ens
EPliNT2
PRT-67eXR1
·Ct:IC e>Cf:i2 BITSNF
ALc~LSCIC)
EPFNTI KPTC2J ePATRN ACT U hLS<tc CflllFARE 'PRT-84C7t .eROAS EPFNT2
CKKLS+3( 2) eN004 CKKLS

PRINT ee1 HEADING·
PRINT BIT HE·DtNGSe STDRE OUTPVT ADDRESSES·
C~LCULATE BIT STATUS OF BYTESe
PRINT BIT STATUS. STORE EXPECTED PATTERN· STORE ACTUAL PATTEANe CALCULATE ERROR BITS11 lllOVE SROA ~ASLE INe PRINT ERROR BITS·
INCR RETUAllf ADOPESS TO l!RANCH TO ERROR HALT IN ROUTINE·
PROG ID PAGE

· c

·

·

·

·

·

·

·

·

·

·

·

·

!e
I
-·-~·

.

··

·

·

·

·

·

·

·

·

·

·

··

·

···

··

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

PART NO. PAGE

5558421 1t

0
!BM ~-l~TfNANCE DIAGNOSTIC PROGRAM
0

PART NO· PAGE

!5!558421 tlA

4011

3741 FUNCTION ~EST WIT~OUT THE WRAP CCNNECTOR

3741 FUNCTJ~N TEST WITKOUT THE WRAP CCNNE~1CR

ERR LOC OBJECT core

AODR STMT SOURCE STATEMENT

157t: 3A oe t57F
157A OC 00 l5A5 0000
15eo 3E oe 1aoc
1se4 34 oe tseo
158 OC 1C 1Fl8 COOO
1see 36 oe seco
1sc;2 34 ce t5AF

15<;E 1 5 <;C
15110 15 Al
15A2
15114 15AE
15AC

OC OF
C 0 87
45 Se 1F4<;
AOOO OC 5A CO 87

lEFE
02 1 A
1FA9 0000

lC~l
1FAA

15eo 3A oe t5B'ii
1594 oc 00 1504 0000
158A 3t: OE 1800
lSE!E 34 oe lt3A

15C2 00 00 191C 18Fe 15C9 F2 81 6C

15CB 15CF 1 ':DO 15Cl 1503

CO f:7 C2 1 t' lC2l AOI)::;

021 A

15C5 CC SA 1F4'S IFiii<. 15C~ OC OE 1F06 1ECA
15El CO 1:7 18A7 15E~ OC 09 lFO~ 1DOS 15EE CO 87 189C t!:EF OC CE" IFOf 1CF5 15F5 CO 87 18A7

l!'FQ l 5F C: lt><Jl H:CS 1t>07 Jf,00

C2 02
C2 0 l CO f:7 I EFC
OC OE CO e7

1FOE 1F1 A lEEl
lFlA 189C

1F1E

1611 OC 00 163e 191C 1617 OC 01 lf3E 18f'C 161C CO S7 tt3F 1621 OC Ot 1EF5 1010 lti27 CC. OE 1F1A 1F1F.! lt?O CO f7 18A7

H<?l OE 01 1~3A 180{; !637 co 87 0000

1242 ·······································································

1243 * SlOHO ·

1244 1245

** ********

1246 ·

TEST ~E~OINGS AND ERROR MESSAGES ~RE PRINTEO FOR ROUTINES OD - 13.

·**
·

11224478 ·S·IO·H·O····S·T·······+·;.·A·R·R·········································*···········

1249

MVC SIC(ll··-·

STORE MESSAGE HEADING IOe

1250

A

N029.ARR

1251 1252

S'T
fAVC

·+~.ARR
PRT-4f.(2(j)··-·

STORE ROUTINE HEADING·

1253 1.254

A

NOCloARR

ST

SHC0+3· ~RR

STORE RETURN ADDRESS·

!255 1256 1257 15110 1258

MVC
e
oc

PR'T-75( IE) .TSlO PRINT XL1"AS 1

BUILD UP REST OF HEAOlNG. PRINT ROUTINE TEST MEAOING·

15Al 1259

DC

IL1"91·

t5A3 1260

oc

AL2(P>IT)

t5A5 1261 510

oc

)(L;:· 4000'

·-· * 1262
12Ei3
1264 1265

St-100

MVC
e

PRl( 91'cPFl"l+1

* ROUTINE 00-13 E~POR ~ESSAGE

CLEAR PRINT AREA. RETU~N TO ROUT!~Ec

1266

1267 Cl<SIO ST

1261!1

~vc

$+<; · .ARR SEl=IIO( ! l.e-111<

STORE ERROR 10.

1269 1270

A

N;..Ct .~Rll

ST

C ICS+ 3 t Alli=<

STCqE RETURN ADDRESS.

1271 1272 1273

Cl.C JE

XPCTl 1 l .DTR-1 CK5

E~PECTED ANO ACTUAL EQUAL 7 JUt-~P IF SO.

1274 1275

B

Pl'l INT

P~!NT FRROR HF401NGo

15CF 1276

DC

XL1'C2°

1500 1277

DC

1502 1278

oc

1504 1279 SERIO oc

tL 1"22' AL2( Sl!lCllO XL :i 1 4005 ~

1280 1281 1282 1283

M\K
MVC
e

PP,.(91 J,FFT-1-1 PRT-67« I~) .DIAG EPS:NT2

~OVE IN DtAG BYTE LASLE· PRINT ll-BLEo

1284

MVC

PWT-70 ( 1 0) .EB2

eRlNG IN E82 l."'at..e ..

1285 1286 1287

8 l'IVC 8

EPF<NTl PRT-67(l!::lol'!l,.S EPJ:N,-2

PRINT l.ABLE. ~OVE lN 81T ~EADlNGS· PRINT HEADINGS.

1288 t289

LA

Pl'IT-ti7.XJ:2

LOAD OUTPUT ADDRESSES·

1290 1291

LA

Pf.!T-47.Xf;I

e

8JTSNF

CALCULATE STATUS OF ALL 81TSo

160t'> t292 1293 l.29·

DC MVC B

"l2(0Tf;)
PRT-47(15).P~T-46 f'Pf;l~Tl

CLEAR EB1 STATUS. PRINT SIT STAiUS OF DtAG 8VTE.

1295
l 296

M'\IC

!<PT- l ( l) · :XPC T

STORE EXPECT£0 PATTERN.

l 2'Q7 1298 1299 130C 1301

MllC
e
MVC:
.-11c
B

ACT(2J.OTR
CM~il.PE
PRT··e4 ( 7 t .El"<ORS
P~l-47(151,PqT-46
EPJ;"-T2

srORF "~en.JAL PATTERN~
CALCULATE ERAQn BITS.
MOVE IN ERP OR i...·B.BLE ·
PRlNT E~ROR SiTS.

~ 302 1303 1304 c..:s

AlC
f'I

·-·CKS+~(2leN004

!NCR RETURN AOORESS TO ~ETURN TO ERROR HALT·

ERR LOC OeJECT CCOE

ADCR ST~T SCURCE STATE~NT

0
c
c
c
c
c
c
(
\. .
c
C"
'·
0 0

16~E! 0000
t63t 0000

11330076

···············~·······················································

· CMPARE $

·

· 13''8 . . . . . . . . . ....

EXFECTF.O ~Bl & EB2 BYTES IN ·XPT· ·RE

· 1309 ·

cc~~AQEO AGAt~ST ACTUAL EBl & ES2 BYTES

1310 ..
1311 ·
1312 *

lN ·ACT·. ERPOR BITS ARE IDENTIFIED BY A -·- IN T~E CUTPUT AREA·

$
· ·

163C 11331143 ·X~PT··~··~·L·····X··L·&···o·o·o·o···············E·X·P~E·C·T·E·D··E··B·l ·&···e·e·2··B·Y·T·~S·.············

l63E 1?15 ACT

oc

XL&·o~co·

ACTU~L FBI & EB2 BYTES.

163F 3(. oe tMIA !643 3A 02 1602
16.tl? 341 Oi Hi"";A l64e 3C 01 !6E4

l ~1 fl t::l7 1318 1319 1320

CMPARE

ST ST ST MVI

TAERP+3o>cR2
TBEfOJ<+:3.l11f"l
TA~+lwJl·Ot·

STCRE RETURN AOOAESSe INITIALIZE OUTPUT ADDRESSES·
INITIALIZE BIT PO!NTE~S.

t64F 3C Ot lf:6E!

1321

1'1111

TA~+ 1 · JC' CI 1

16~3 '.:!c 01 1e·1s u:s7 3C 01 t67C 16!:8 :!IC O! 1683 165f 3C 01 16ll0

i:.:22 1323 1324 1::!25

~V!
MVl
.-v1
t4VI

TAl+l · l' 8 0l 1 TB:=!+ l o >c 1 0 l 1 Te2+1.x·o1· TBt+t.x·ot·

161:3 38 01 U3B
1667 F2 10 OA H:6- 31! 1)1 lf:3C
1 f.f: E F 2 1 0 SE 1671 F2 87 07

i326 1327
1"3~9
1329
1~30
1331

TA3 T"ot.2

T~N
JT Tf:N
.n
J

XP1-l·Jl'01" TA t ACT-lo)(·()t·
TAEf<R TB?

E'.lf:PECTEO BIT OU JN ~E'2 SYTE ?
JUMP IF YES.
ACTUAL BIT ON IN EB2 BYTE ? GO PUT AN -·- JN OUTPUT IF ONe CHEC!!. EB l "YTE.

1614 38 0 l 1630 1678 F2 QO 5~

1332 1J33 TA1 1334

TBN JF

ACT-l ·l!!"Ol 1 TA ERR

ACTU~L BlT ON IN EB2 SYTE ? GO PUT AN -·- IN OUTPUT IF OFFe

t67e 3e o 1 u;Jc ~67F F~ 10 OA
·tie2 ::e 01 H3E t6ee F2 IC 4E 'i6S9 F2 1!7 C7

1335 13'.:'5 T83 1331' 1338 TE'2 i"l39 !340

Tei>! .IT
TEN JT .J

XPT. X1 Ol ·
"."G 1 ACT.x·oi·
TD ERR TC

EXPEClED BIT C~l IN EBt BYTE 1
.JUMP IF ~. ACTl'AL A!T ON IN EBl SVTE ? GO PUT AN -+- IN OUTPUT tF SOo CONTINUE ~NALYSIS·

168C 38 01 1E3E
16<l0 F2 <::"O 414

1341 1342 'TB\ 134'.'l

TEN .IF

ACT· JC·() t 1
TB ERR

ACTVAL BlT ON IN EB1 BYTt ? GO PV"T A'~ - · - IN OUTPUT IF OFf'e

H\S3 '.'18 l!O 1680
16;7 co 10 cooo 16~8 CE O~ t~7! 1675

t34<il

134'5 TC 1 ::546 C~PR !347

TeN BT
... l (

·-·Te1+1.J1·eo·
TAl+H1 l.1ill+l

SIT 0 BEEH TESTED ?
RETUJ.IN 11" SQ. INC~EMENT BIT PO~NTERS.

l6~1 OE 00 1661! 166E! !6.117 OE 00 !f'-E4 1f:t:4

,, :348
1~A9

ALC: Alt:

"f A£..- t ( 1 } · i A2+ t TA:!+l (1 leTA:3+1

16~C OE 00 1680 i6SC
!681 0£ co 1683 168~
1689 OE 00 167C t67C
168~ o~ 01 t6D2 1eo~

1350 1351 135?. 1153

ALC
ALC
ilt.C
sue

"":'£!1+1( 1 l.'TBl+l TBc+l(1).TS2+1 TB::!+l C1) oTE'"3+1 l'AEl'<R-t3(2} ~N002

OECRE~ENT OUTPUT AOORESSES·

ltC\' OF 01 16t:.-, 1802 !6CE er, e7 1e-:3

1354 1355

SLC TefRP+:?!(2)eH002

B

f A:!!

GO CHEC~ NEW EtT.

135,C,

1 H"r 3.C ".'C 0000 11'03 CO e7 167B lt07 3C 5C 0000
16De CO E!7 1693

13'3>7 13'56 t 359 1360

"I' llEPR
1fE:H':RP

~VI
B
MVt 9

·-it,l(·fC'
'fB~
·-·.x·~c· TC

PUT -·- IN E82 OUTPUT· CONT l NUE CHECK. Pt""T -·- IN Eel CUTPUT.
CONTINUE CHECl<e

1361

1362 -~······*··········*·······~··$····$~···$········$··········~·····$*···

t 363 ¢ BJTSNF ·

"IP

* 136· ·····~·*··
13t;5

THE EE! £ EB2 evTES ARE CONVERTED

~

TO A Pf;.il'!l1!Af'!l.E BINARY FORM..

·

1~66 ·

·

160F 00 1EEO 00

l60F 1!336678 ·E$P2·T·~*·~DC·····X··L·1·°·0·o·········$·····~$T·E·M·P·O·R·A·R·Y···ST·O·R·A·G·E···FO·R···E·B-2~i*··E·B·l ·~~~$

l~EO 1369 EBtT

DC

XLi·oo·

1370

16£1 3t' 08 1800

1371 BHSNF A

NOCl.APR

16E~ 34 t)f !6EE 16E9 OC 01 16F4 OCOO

1372 1373

ST

·+->.APP

""'c ·+HC2>.·-·

L
DATE
EC "'O·

lSNGV74 132470

PRGG 10 PAGE

·01-1 11

()
DATE
EC "'O ·
C~ >'

1#.AUG74 824765

l !SNCY74 e2-ie7o

PROG ID PAGE

0

·

0

IBM MAt~TENANCE DIAGNC~llC Pl<CGRAM

PAAf NO.
PAGE

5558421

re· MAl~TE~ANCE OIAGNOSTIC PROGRA~

12 (J

PART NO. PAG'!

5558421 12A

3741 FUNCTtCN TEST ·ITHOUT THE WRAP CCNNEC10R

(> 4011

3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTI:IA

FRR LOC OBJECT CODE

ADDA STMT SOURCE STATEMENT

EPR L~C ce~ECT CODE

ACDP STMT 50UP~E STATE"f:NT

16EF OC 01 16EO 0000
t6F!: ::t oe 1eoo
16F9 34 oe 1740 16FD 3C Cl l 70E 1701 '.3C 01 1724
170!5 34 02 1722
1709 :!4 01 1738

170C 38 00 160F 1711 F2 10 07 171· 3C FO 17:?0
t7te Fl.' e7 04
171E! 3C Fl 1720 171F 3C 00 0000

1723 3l' CO tE:EC 1727 F2 10 07 17~A :::!C FO 173E: 172E F2 f7 04 1731 3C 1"1 17'36 173!: 3C 00 0000

173c; 3e eo t7oe

1730 co 10 0000

1?41 OE 00 170E t70E

1747 OE 00 1724 17?4

1740 OF 01 172&: 1802

(

1753 OF Ot 1738 1802

1759 CO E7 I 70C

(

(

1374

MVC EB1T(2).·-o

STORE EBI & EBZ 8YTES.

1375 1376 1377

"ST

NOOt ··RR 8Tf\'F+3eARR

fll!Vt TNF+leJC 9 01 1

STCRE RETURN ADDRESS. INITIALIZE BIT POINTERS·

c

1378 1379

MVt ST

TNFF+l e JC· 019 NF+3.XR2

INITIALIZE OUTPUT ADDRESSES·

1380

ST

NFF+3eXR1

1:!81

1382 TNF TBN ee:n.x·oo·

THIS BJT DN IN EB2 7

1'383

.IT

IT~ON

.JUMP IF SO.

1384

MVI NF+le>l·Fo·

MOVE IN A O.

1385

,J

1386 ITSON MVI

NF NF+l s1' 1 F1 ·

MOVE IN A le

c

138-r NF

tl!VI ·-·.x·oo·

PUT l'O IN DUTPU1'.

1388 1389 TNFF TB!\ EB1Te1C·OO·

T~IS BIT ON IN Eel 7

0

1390

.JT

ITCN

.JUMP IF SO.

1391 1392

Jl!VJ J

NFF+leJC·Fc· tiFF

MOVE IN A Oe

0

1393 !TON MVI i"<IFF+l 1 x·F t 0

llfOVE IN A le

1394 NFF

MVI ·-·.x·oo·

1395 1396 1397 BTNF 1398

TBl'I ST
ALC

·-·TNF+t.>t·EC·
TNF+t ( 1) · "f"''F+\

PUT 1'0 lfll OUTPUT.
CHECKED BIT 0 7 RETURN IF SO. INC~EMENT SIT POINTER.

0
c

1399 1400

ALC SLC

TNFF+l(l)eTNFF+l
NF9'3(2)eN002

CECR~MENT OUTPUT ADA$.

1401

SLC NFF+'3(2).ti002

1402

e

TNF

CONTINUE CHECKe

1403

1144C0S4

*
·

*···
OUES

·* ·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

· .

. ·

·

·

·

·

·

·

·

·

·

· .

. ·

·

·

·

·

·

·

·

·

·

·

·

· *

0

1406 ········

sueROUTINE OETERJllNES tF SSW 10 IS ON.

·

1407 ·

·

17ee co e7 0A11
17BF CO e7 021A 17C3 C2 17C4 00 ITC! lCAO 17C7 4002 l7C9 CO 1!7 tTD9 17CC @721 t7CF CO 87 0222 170:! 4002
1705 CO e7 021E
l?Oiiil ~ oe 1eFe tToo 3S 01 leFe 17El te 02 IC48 00
17EE te 03 1~49 00
17Ee ie 02 1C4A 01 17Fo te o~ 1c!2 01
l7F5 CO 87 021.t 17Fc; 8E 17FA 22 17FE! lC!:3
t7FC CO 87 02

1442

B

SE GINN

TEU.. TO DO SYSTEM RESET. START.

1443 1444 TICJ;RB '9

f3R!MT

PR?NT 3741 IS BUSY EPQOR MESSAGE·

1TC3 1445

DC

XLPC2·

17C4 1446

CC t'- t ·I:.·

t?C6 1447

DC

AUUHU!!!VJ

17C8 1448

DC

n.~·4002·

t·49

e

"'APS

POINT TO MAP CHART.

l7CE 1450

DC

XL~·e72t·

-PAGE 872e ENTRY le

1451

e

HALT

ER~Ok HALT -02-.

170~ 1452

cc

XL2·4002·

1453

B

LI "1(

RETURN TO OCP.

1 ..s.

·····*·· 11445556 ·· ·M··A·P·S··e···············································~···············*

1457

T~E MAP C~ART REFERENCE IS PRINTED· CALL

·

1458 ·

sueROUTtNE SY

·

* 1459 ·
1460
··et ·

·

8

MAPS

t:

DC

x1..2·J.'~GE NUMSER,ENTRV NUMSEA·

·

1462 ·

·

11446634 ~·A·P·S···~S·T·····~T·E··P·.·~·R·~···············S·T·C·R·E··T·M·E·¥·A·R·R·.·················*****

1465 1466

L
~hZ

TE·P.XRl
~-~~S-lleO(.XRI)

LOAO ARR 1NTC XRI· STORE MUNDqEOS OtGITe

1461
14~8

~~~ ~NZ

~AF5S-to.o:.XRl) MA~ss-9.1(.JCRl)

STORE TENS DIGIT· STORE VNITS DIGIT·

1469

fl't-io. flllFSS-1 ·.l ( el'Rl)

STORE ENTRY N·JMBEA·

1470 t·7t 1?F9 1472 17FA 1473 il7FC 1474

B

PRllot'°'

cc xt_ 1 ·ee·

oc

IL t· 34·

DC

-.L2CMAPSSl

t·T5 1476

B

2( · .cRI I

RETURN TC ROUTt~'E·

t75C 34 oe 1771 t7E:t 3e eo 020A 1'7E!: F2 10 OA 1768 OE 01 1771 1804 l76E CO 87 0000

11440089 O··U·E·S···S·T·····C··S·+·3o·-·R·R···············S·T·O·R·E··R·E··T·~·N··A·D··D·R·E·S·S·· ···············

1410 1411

TeN S8VTE2.sr,,10

.JT

CST

SSW 10 ON ' RETURN TO PRGM HALT IF SOo

1412 1413 QS

ALC OS+3(2J ·h003

B

·-·

INCR RETURN TCl SKIP HAL.To RETURN TO ROUTINE·

c

1477

···-·~······································· 14789
1480

····C*O*D*E**·

TEST

~E~OINGS

ARE

... · PRIHTED

···· F~R

········· RTN07-0Ee

·

····

·

·

·

·

·

·

· · ·

1481 ·

*

1482 ·····························.,·········································

1772 30 C2 0200 t77E: CO 01 t76E l77A 3!: 01 1771 l77E 4C 01 02 t8FO 17E!! CO E.'7 l76E

1414 1415 QST
14!6 1417 1418
1419

CLI BNE
L
M\IC
e

x·c200·.x·c2 1 QS
05+3.Xf;!l 2(2.><Rt).t'FFFS OS

rs THtS ~ MODEL ·e· SYSTEM ? GO DO NORMAL HALT IF NOTe
SET UP MODEL B MALT· NOW GO HALT·

t800 34 oe 1eo9 1804 OC 00 ICE! 0000
1eo· 36 oe tsoo 1ece 34 ce te9e
tet2 3C Ft 1Cl:5

148~ CODE 1484 COO 1485
1486
1467 1488

ST
MVC A ST
Cl.I

COC+S.ARP
T~t-l(l)··-·
NOClsARR
ccoo+~.1QR
TMC-1·JI·F1 ·

1420 1421 ·······································································

1816 co 01 1824

1489

BNE 0+14

c
c

1422 1423

***T*I*O*E*R*X***·

*

SUBROUTINE PRINTS TIO ERROR MESSAGESe

·

t7S7 CO 87 021A

1424 ·

·

114422E5 T·t·O·E·R·D··B······P·R·I~N·T··················P·R··IN·T··3·7·4·1···IS··R·E·A·D·Y··E·R·R·O·Q···M·E·S·S·A·G·E·$··

t7eE C2 17ec oe
t7eO tCAE 17l'f' 4001 1791 oc 2e iFt7 1ec;e
1797 CO 87 l59C 1790 OC 24 tFtC lECO
17A1 CO e7 H:1A7
17Ae O< te tFC7 1E09
t7AB co e7 te9C
17AF CC f!7 1709 t?B::! e?o2 17eS CO !!7 0222

1768 142T
t78C 1428 178E t42q 1790 !430
U'.31 1432 1433 1434 1435 1436 143?
1·3e 1784 1439
1440

DC DC DC DC
tl!VC
f)
MVC B tlVC B
a
DC B

XLt·c2· tLt·l4 1 ALHRDV) XL2·400l' PRT-!50(41) .CNCTR
EPRNTi
PRT-45(37).RMOY
EPFNT2 PRT-E~(2!5) .!FOFF
EPFNT1
MAFS JtLP 8702 c HALT

0

PRINT IS CONNECTOR ON ?

PRJNT OPERATOR TO REMOVE tT IF SOe

0

PR J NT CTt1ERW I SE·

0

POINT TO MAP CHA~T.

-PAGE 8?0. ENTRY 2. ERROR HALT -Ol-·

0

178'? 4C01

1'1'8A 1441

oc

xr..2·4001·

181- OC 10 1F27 l~BC 1820 3C 4B 1F28 1824 30 F2 ICES 1828 CO Ot te3E t82C OC 14 IF2e 1AC4 t8~2 3C 4@ IF2C
l83f 3C F:;: lCE5
1e~a cc 01 1e4e
163E OC 11 1F2e tA06 1!<4 3.: ltB lF29 lB4f 3V F5 lCE5 184C cf> Ot l85'4 1850 OC 15 tF2C IBll 1856 3C 4B 1F2D

1B!iA CO e7 185E 02 185F 1919
t8El tD9E
18E3 OC 27

021£ IF16

1DA4

t·90 1491 1492 1493 1494 1495 1495
l4'.l7 lo\9!! 1499
1500
1501
1502
1503 t504 1505
185E 1506.
1860 1507 1Bo2 1508
1509

tcVC
NV! CLI
e~E
"-"I CL!
BNE
"'"c
flllVI CLI BNE
.. vc
flllVI
e DC DC
oc
MVC

PRl-~4( 17} .FNCT
'h:C-1·)(·F2 · ·+14 PRT-30(2l)wSTLCR
PRT-2~····e·
TMC-1eX·F!· ·+14
~l-33Cte).JOTRL
THC-l ·X·F~· ··14 PPT-29(22).DIGTR
UN FACK ILt·2·
AL2(PAT~N) AL2(TSPAT-~J
PRl-SlC4C)eTSPAT

STCRE N COCE re.
STORE RETURN ADDRESS·
N CODE l'f BRANCH IF NOTe ~OAD N CODE I ·EANING·
N CODE 2? BRANCH IF NOT· BRING IN N CODE 2 MEANING·
N CODE 3? BP-.NCH IF NOT· BRING IN N CODE 3 MEANINGe
N CODE !5'? BRANCH IF NOTe BRING IN N CODE S ~EANlNG·
UNPACK CURRENT TEST PATTERN·
BRING RES1 OF HEADING·

L
·

OloTE

tEAUG74

15N0\174

EC "'"Q· 8247E:S

E24S70

· · ·

· ··

0

PPOG 10

401- l

PROG 10

401-l

DATE

1~AUG74

PAGE

l2A

· · · · · · · · · · · · · · · · · · · · · · PAGE

12

c EC NO· t!247f:!

-fl

·

·

·

··

·

·

·

·

·

·

·

·

·

·

·

·

.

~·

-·----·
-

--·

·

.

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

-·--.

-·-

·

·

·

c

te~ MAINTENANCE DIAGNOSTIC FRCGRAM

PART NO. -PAGE

0 5558421 I!

IBM MAt~TENANCE DIAGNCSTI~ PACGRAM

PART NOa PAGE

$558421 t3A

4011

3741 FUNr.TICN TEST WIT~OUT THE WRAP CCNNECTCR

ERR LOC OP.JECT CODE

ADDA STMT SOURCE STATEMENT

() 4011

~?41 FuNrTtON TEST WIT~OUT THE WRAP CCNNECTOR

ERR LDC OS.JECT COOE

ADDR ST~T SOURCE STATEMENT

tBf~ OC 01 1C9C lBFB 1B6F F2 01 12 1872 OC Ol lDAe l09E 1E!7S OC 05 lFll IOAA
187E OE 03 lBBC OAO~ 1BE4 CC e7 021 A 1ee8 45 1e8g se 188A 1F49 1eec 40AO 1BeE OC SA 1F49 1F4A 18~4 Ct 42 17BF 18ge co e7 0000

1510

Cl.C

1511

.JNE

1512

MVC

1513

MVC

1Sl4

1515

MNN

1516 GOHD B

1888 1St7

oc

1889 1518

DC

1eee 1519

oc

1880 1520 HONGID DC

1521

MVC

1522

TJ(j

1523 CODD 8

15~4

TSPllT-e U!) eCOO
GO~D
5HCRT-2C2J.TSPAT-6 PRT-56(6).SHORT
HOfl,GJO.RTN· PRINT XL t · 45· IL I ·9t · AL2(PRTl XL2 9 40AO·
PRT(9lleP~T+1
·-·DRCPD.><·42·

LCR OR DTR TEST ?
.JUMP IF NOT. MOVE IN SPECIAL PATTERNa
MOVE JN ROUTINE ID HEADJNGe PRJNT MEAOJNGS FOR RTN 05 - OC.
CLEAR PRINT AREA. BRANCH IF 3741 JS eusv. RETURN TO MAtN ROUTINE.

c

1eF7 f'OFO

t8F9 1ec2

0

1BF8 1E78 COO

CC

18FA 1579 HITR5 DC

1'!:'80

ca..2·00· AL2CIHT5)

11558812 ···~R·E·S·E·q·~·E·~···A·R·E·A·S····

INTERRUPT ROUTINE ADD'fESSe

18Fe ocoo 18FC 0000

..··············· l8FC 1155883- O·T·A·····D·C····*·X·L·c···o·o·o·a·· ·······~·····S·T·O·R·A·G··E··IR·E·A···FO··R··D·ATA TRANSFER REG.

18FE 1585 TEtQll' DC

XLc·Oo·

1-2 WO~D WORKING AREA.

18FF COCOOOCOOOOO~OO') 1900 1566 WORK cc. 15XLJ ·oo·

WORK AREA.

1~07 oooocooooooooo

1586

t90E oooocoonoooooooo 1915 1~07 LS

DC

exL1·00·

0

l~tE UOOO 1918 0~00

1917 1~88 LSCK DC 1919 1589 PA1RN DC

xL2·0000· Xl.2·0000·

191A 00

191A 1590

DC XL 1·0"·

LIO,SNS STORAGE AREA. ACTUAL SENSED DATA STORAGE AREAe CURRENT TEST PATT~RN STORAGE AREA. CURRENT ER~~ IOe

(
1e9c :::r4 oe 1eco·
1e AO 3c et 18e3
t8A4 F2 e7 ce 1BA7 34 OE! f BCO JBAS 3C S2 1883

1525 1526

·· ··EP·R·N·T·X···*··········o································*·················*

1527 ****······

CCP ERRCR PRINTING SUBPOUTJNESe

·

1528 ·

· 0

152390 E·P·R··N·T·l ··S·T·····P·R·T·T·+·J·.·A·~·R·············S·T·O·R·E··R·E·T·U·R*N ·A·D·O·R··ES·S·a···········...···

1531

MVI

1532

J

1533 EPRNT2 ST

LINE.x·e1· PR~~ ~RTT+3·A~~

SET TO SPACE 1 LINE. GO PPINT. STORE RETURN ADDRESS.

1534 1535

MVI LtNE.~·e2·

SET TO SPACE 2 LINESa

191e 00 191C 00
191C 00

1918 1591 NlO

DC

J91C 15~2 ~PCT

DC

1593

1!!194 ........***

xL1·00· XL 1 ·00'

CURRENT N COOE· EX~ECTtO DIAGNOSTIC evTE.

1~95 · FLAG ·

1910 11~59967 E·B·F·L~A·G··D·C······X~L·t··o·o··················E·B··t·::Y·C·L·E··F·A··IL·U·R·E··F·L·A··G·.···············

t59S ·

SIT ·

.. CCCE

EB evTE ·

·

* 1~99 ·
1600

0 I

1 I

2

1601 "

2

2

2

A.. ACTIVE BIT MEANS ·
* A POSSll!LE EB CYCLE ·
FA%LUREa

!8AF CO 87 021A

\ "

HIS!' 00

1!536 PRNT B 1BB3 1537 LINE DC

PRINT
XLt·oo·

JE!B4 ~e

tee· 1538

DC

ILi ·91 ·

tee~ tF49

1886 15:!!9

DC

AL2(PRT)

1887 DC SA 1F49 1F4A

1540

MVC PRTC 91) ePRT+1

JBEC CO E!7 0000

1541 PRTT B

(

1542

PRINT THE DATA STORED IN -PAT-. DO CORRESPONDING SPACE OPERATJONa
CLEAP PRI~T AREAe RETURN TC RCU'r!NE.

\.

* 1543 ·······································································
1544 · INT4 ·

c

1!545 ......... 1546 · 1~47 ·

BRANCH ~ERE lF l~TERRUPT IS ERRO~EOUSLV CAUSEO IN ROUTINE OFa

· · ·

18Cl 00

18C1 15498 F·L·A·G····O·C·····x*t·..·t··O··o·····························***···············~··*··

1E!C2 3A OJ tee I 18Cf, F3 ..0 00
tee-; cc e7 t8c2

1550 INT5 1551 1552

S8N sro B

FLAG.~·ot·
x·oo·.x·40· 1NT5

TUT!N ON ERROR FLAG. RESET TME INTERRUPT.

1602 ·

3

2

I

·

16Ci3 ·

..

·

2

·

* 1604

5

4

l

·

1605 *

E

!

2

1606 ·

.,

~

* *

16078 ···············&·························-·············~···············

1609

1610 ····················

1611 *

~ESSAGES

*

l91E

D9C5040~E5C540E6

194E

11~61132

..... RStOC

.

.

.. DC

.

.

.

.

.... CL49

.
9

...... REMOVE

..... WRAP

.C.~.N.N.E.C.T.O.R.

.

. . . .~····~·····················
NOTE - cPU MAY DROP POWEPa·

.92t: C9~ 10740C;?OtD!D!:-

lt:l 3

192E C~C3E3CE094040C~

1613

1~3~ DEE3C540eC40C3D7

1613

19~E E440C4ClEe40C4D9

IEl~

19AE ~E0740C7C6E6'C~9

1613

155'3

l94r. 46

1613

leco 0000

(,__

18CF OC01

1801 0002
tao~ oco3

lCC! 0004

1554 ····················

* c 1555

CONSTANTS

·

1556 ·······································································

18CE 1557 NOOO DC

1L2·0·

ieoo l~5B NOOl DC

IL2'1'

(,

18D2 1559 N002 DC

1Li·2·

1804 1560 N003 DC

IL2·3·

1806 1561 N004 DC

JL2·4·

J94F C~C640E2066B40!3 1979 1614 IFSO DC

1~57 E4D~D5400706E6C5

1614

tq~F C940~iClC~D2~0C6

IE14

1967 0540CID5C44009C5 19EF D~OECIC44CD7D~D6 1977 C7C9Cl044B

1614 Ui14 1614

t97C C6E405C3E3C9Decs 19SC 1615 FNCT DC

19f4 6CO~C5C7C9E2E3C5

1615

CL45'IF ~O. TUAN POWEP BACK ON ANO RELOAD PROGRAM·· CLl7·FUNCTION REGISTER·

1807 0012

l6::l9 0013

(

1ece co10

18CID ooeo

1808 1562 NOie DC ISOA 1563 N019 DC 1eoc 1564 N029 DC l80E 1565 H0080 DC

IL1·1e· IL2·t9·
IL2·29·
XL~·~oec·

l~(C 09

1615

c....

198C 1616 flSGlB 1960 D9C5D406E!C~40F3 1983 1617

19~5 F7~6F140C~610640

1617

E'.:lU
oc

·-1 .,0 CL39·Re·~~e 3741

CABl.Ea ALSO REMOVE THE·

,

180F AA55

18EO 1566 HAASS DC

XL2'AA55'

19QO C?CIC203C!484C40

1617

18Et 55AA 18E:! l 000

lBE2 1567 H!55AA DC l8E4 1568 HIOOO DC

XL2·55AA' XL2·1000·

c·

l9AS CIO?E2DE4009C!D4 19\C DCE5C540E3Cect

1617 1617

16£f ()()55
1ee7 OF55

18E6 1569 H0055 DC 18E8 1570 MOF55 DC

XLc·OO!!· XL2·0F!S·

1984 4QE609ClD740C30~ 1900 1618

r··.

19BC DSC~C!C::SE3060948

1618

oc

CL40· -~AF CONNECTO~. TMEN PERFORM A SYSTEM

18E9 OOAA

lBEA 1571 HOOAA CC

)(l.~'00AA'

"'--·

1QC4 40E3C@C5C54007C5

1618

18EP AAAA

18EC 1572 HAAAA DC

XL2'AAAA'

19CC O~C~D~D90440Cl4C

1618

1BEC FFFF

18EE 1573 HFFf"F DC

XLc·FFFF·

1904 E2E8E2E~C!D44040

1618

IBEF FFF8 18F 1 FF5S

l8FO 1574 HFFFe DC 18F2 1575 MFF55 DC

XL2'FFFe· XLc·FF55·

19DC 4040404040404040 1A03 1619 MSG! DC

19E4 4040404040404040

1619

CL40·

18F:!' CCE7 18F! 125?

18F4 1576

DC

leFE 1577 BRNCH DC

XL2'COe7· AL2(RTRN)

19EC 40404C4040404040

(

19F4 4040404040404040

lE19 1619

19FC 404C4C4040404040

1619

L

IEAUG74

0

e~47E~

PROG 10

401 ·l

DAT~

16AUG74

15NCV74

PAGE

c 13

EC NDe fl247f-5

e24e70

PPOG JO PAGE

·01-1 1.3A

0

________ l ·-------··-

,,\~.

( IBtJ llAlt.TENANCE. DIAENCSTIC PROGRAM

PART NOe PAGE

0 5558421 14

leM MAINTENANCE DIAGNCl!TIC PROGRAM.

PAF<T NOe

EPA LCC DEJECT CODE

ADDA STNT SOURCE STATEMENT

r

\
(

1A04

CQC5E2C5E340Ct~

IA03 IA28

1620 1621

M!G28

IAOC C440E2E3CJO<;E34e

1621

IA14 40404C4040404040

1621

EOt.,; DC

·-1
CL40·RESET ANO START.

(

IAIC IA24 IA2C IA:!4 IA3C lA44
1A4C

40404(4C40404040 404C4C404C40404C 4040404040404040 4040404(40404040 4C40404040404040 4040404040404040 4C404C4C40404C40

lA53

1621 lfi21 1622 1622 1622 1622 1622

MSG2

DC

r

1623

\.
( (

lA54 1A5C tAE4 IAEC 1A?4 1A7C 1Af4
uec
1A4;4
IA9C

C4ClE3Cl40ClC4C4 C9CSE2E240C9C5C?
Co;E2E3C50~40C6Cl C~C3E409CS484040
4040404040404040 404C404C40404040 4 04C4 C4040404040 4040404040404040 40404C4040404040
4040404040404040

IA53 IA78
lAA3

162· 1625 1625 IE2S 1625 162S 1626 1626 1626 1626 1626

MSG4

ECU DC
DC

·-1 CL40·CATA AODPESS REGISTER FAILURE.

U~27

.r.. --

1AA4 tAAC JAS4

E2E3CIE3E4E240C2
ESE~C5600~C5DSC?
E~C40C30EE4DSE3

SACO

1628 1628 U528

STLCR

DC

1Aec 1AC4
1AC5

·ooc;csc7c9e2e3c5 09
C961C640E~C9Cl05

IA06

1628 1628 1629

IOTRl.

lACO E2CEC50<;4C03co;o! 1A05 CSE2

1629 1629

DC

CL33·STAT~S BYTE-LENGT" COUNT REGISTER·

JAr7 lAOF

C4ClE3C140ClC4C4
09C5E2E24CO~C5C7

IAEB

1630 1630

OAOR

DC

1AE7 Cc;JE 2E3C509

1630

CL~l·DATA ADDRESS REGISTER·

lAFC C4C9ClC7C506E2E3 IBll 1631 DIGTR

lAF4 C<;C340C2EE3C5EO

1631

DC

CL?8·01AGNCSTtC BYTE-DATA TRANSFER REGISTER·

1AFC C4CIE3Ct40E309Ct
180~ C!E2CEC50~4009C5
1ecc C7C~E2E3CE09

1631 1631' 1631

c

1812 1e1-

C5C240C3E8C303C5 4CCJC5CIO!Eee2cs

1829

1632 1632

SIGGEB

DC

IE22
le2~ 18~2 lE~A

E240C3C8CEC!024S
5C5CCEC2E740C3E8 C~03C540CEC1co;o3 C!5C44~400540C3D6

1846

1632 1633 1633 1633

ESX

DC

CLi4 1 Ee CYCLE ANALYSIS CHECKe 1 CL29···EB~ cva..e FAILED. N CODE ···

18412 C4C!540E74B

1633

JS47 1B4F te57

5C5CC2D6E3C840C5
C240C~E8C303C5E2 4CCEC1C90~C5C441e

1868

1634 1634 1634

ee12

DC

CL34···!0l~ ee CYCLES FAILED. N CODE x.·

1B5F 400540C30EC4C540 lf'67 E748

1634 1634

JAE~ 5C5CC1030340C5C2 IB7F 1635 ALES

1871
187~
1eec teee

40C3E8C303C5E240 CECIC903C5C44e
!5C5CCID30!40C5C2 E740C3ESC3C3C5E2

1897

1635 1635 1636 1636

ALEBX

DC DC

CL23···ALL ES CYCLES FAILED.·
CL24···~LL eex CYCLES FAILED.·

lec;o
te~e

40CfCIC903C5C44B
E!CSE2E340C4~1E!

1eee

1636 1637

TSCYC

teAO leAe
teeo teee
lBBC

C140E3C9C1D5E2C6
C!50~40C4E4D~C~C5
C740C5C24CC3E6C! C3C5E24B C4C9CIC70~DEE2E3

lBCA

1637 US37 1637 163? IE38 DIAG

DC DC

1ec4 C9C340C2EeE3C5

1638

CL~E 1 TEST CATA TRANSFER DURING EB CYCLESe· CLl5 1 0tAGt.CSTIC BYTE·

1ece 0~C906~1E205E240 1eeo 1639 LSCKK DC

IBO? C~CE04D7CID9C~40

1639

CL22 1 LIC~!tolS Cet4PARE CHECKe 1

tECE C~C8C5C3024B

1639

L

(

DATE EC t.t:J.

PROG ID PAGE

0 4011

3741 FUNCTICN TEST WITHOUT TME W~AP CCNNECTCR

PAGE

ERR LOC OBJECT CODE

~DOR STMT SOURCC 5T·TEM£NT

c

lBEl C3C9DE40CECIC9D3 lCOB 1~40 LIORST OC

1ee9 CSC440E30E4009C5

1640

1EFI E2C5E340C3C505C7 1BF9 E3Ce40CJOEE4D5E~

IE40 ·~·o

lCOl 4009CSC7C9E2E3Cf

1640

c

IC09 D~4B4?

1640

ICOC C4C9ClC?D5Dc~~E3 IC21 1641 SIOCK DC

lC14 C9C340C2E8E~C~40

1641

CL22·0IAGNC~TIC BYTE CHECKe·

c

ICIC C3CeC5C3D249

1641

1C22 E~CSE2E340ClC2C9 lC3t 1642 TSIO DC

IC2A C~C9E~E840E3DE40

1642

CLl6·TEST ABILITY TD·

c

lC~2 C70640E30E40F3F7 tCS3 1643 MAPSS DC

lC~A F4FJ~OC4CID7E2~e

1643

o.· CL34·Go TO 3741 MAPS. PAGE 000 ENTRY

IC42 40C7C1C7C540FOFO

1643

IC4A Ftl40C!'05E3D9t.E4C ICS2 ~04B

1643 1643

0

IC54 0306ClC461E2CSD5 1C70 1644 VNDD DC

lCSC E2CS40C4M:lE3Cl40

1644

tCe4 CIC4C4DClCeE2E240

1644

CL42·LOAD,!ENS~ DATA ADDRESS REGISTER WITH·

lCEC D~C5C7C9E2E3CSC9

1644

0

IC74 4~F.EC~£3Ce404040 IC?C 4040

1644 1644

0 0

IC7e 4CC2C9E34DD7C1E3 IC88 1645 LSOAR CC

1Ce6 E~C5D905E240

1E45

ICBC CSE5C505

ICSF 1646 EVEN DC

ICgo OEC4C440

1C93 1647 ODO

CC

lC94 F?F7F4rf40C9E240 lCAO 1648 BUSSY 0C

IC~C C2E4E2EEl4e

1648

C~l4· EIT FATTERNSe·
CL4·EVEN· ("L4·CDO·
CLl3·3741 1~ eusv.·

ICAl F3F7F4Fl40C9E240 lCAE 1649 ROY

OC

1CA9 r9C5CtC4E840

IE49

lCAF E3CSE2E340F3F7F4 1CC5 1650 Toesv DC

1CE7 Fl40C60609400EC6

1650

CL23 1 TEST 3741 FOR NOT susv.·

c

lCBF E~40C2E4E2f'e4e

t650

tCCE E~C5E2E340F3F7F4 ICDD 1651 TOADY OC

tcce Fl40C6D6D940D5C6

1651

0

tCOE E~4009C5ClC4Et4e

IE5l

lCOE D540C3D6C4CS40E~ lCE6 1652 THD

ICEE 4e

1652

DC

CL~·N cooe x.·

1CE7 F040Fl40F~40F340 ICFS 165~ BITS OC

ICEr F440F540F64CF7

1653

CLIS·o l 2 3 4 5 6 7·

lCF~ EOC5C2Fl40C2ESE3 ICFF 1654 EBl

DC

0

ICFF C560

1654

1000 60CSC2F240C2EBE3 1009 1655 EB2

1ooe C!'EO

1655

DC

CLl0·-ee2 9YTE-·

10011 SCC50909060~SC 1010 1656 ERORS DC

1011 C9CS~lC46lE609C9 1028 1657 NTRST DC

1019 E~CS~OD3ClE3C3Ce

1657

CL?··ERR'"ft·· CL27·READ/WRITE l.ATCH NOT RES£Te·

1021 40C5D6E34009C5E2 1029 C~E34B

lE57 1657

102C C90SE3C5D909E407 1048 lE58 INTA OC

1034 E340C5DSCIC203~5

1658

103C ·cD~C5E2C!E34r~3

l658

CL!9·tNTERRUPT ENABLE R~SET CHECK.·

1044 C8CbC3024S

1658

1049 D5066006D740D3CI 1061 1659 NOSEE DC

105~ E3C3Ce40CEClC903

1659

CL2S·NO-OP LATCH FAILS TO SETe·

IC5o; E240E30640E2C5E3

1659

0

lDEt 4e

l65Q

lDE2 DS0660D6074003Cl ID7C 1660 NORES DC

1D6A E~C3CE~OC6ClC~O!

1660

ct.27·NO~OF LATCH FAILS TO RESETe·

0

1072 E2·0E3DE40D9CSE2 lD-,A C5E34B

1660 1660

C,}·.

ID?D 1085

0306C1C461E2C505
E2C540E6C~E3C840

IDA4

1661 166!

TSPAT

DC

1060 E3CEE2E340D7ClE3

1661

lC9S E3C509D54060E7E?

1661

()

1D9C E7E76040E3C8C!40

1661

10AS 4C60E7E7604C

tDAA 1662 SHORT

10Ae E3C5E2E340CIC2C9 1000 1663 JNVAL

DC DC

0

DATE

1fAUG74

ec No.
(:

tl247E5

15NOV74
e24E70

CL40·LOAC~SENSE WIT~ TEST PATTERN -xx~x- THE·

CLE· -xx- · .
CL~l·TEST ABILITY OF 3741 TO REJECT 15 tNYALlO COMNANDSe·

PROG 10 PAGE

401-l l4A

0
· · · · · · · · · · · · · · · · · ·0 · · ·· · · · · · · · · · · · · ·

·--·
L

·

·

·

·

·

·

·

·

····

·.. .· ,

le .,..· · ·.......

-t

lO

i

c

0

ISM MA1~TENANCE DIAGNCSTIC PRCGRAM ....

4011

3741 FUNCTJljN TEST WITtlOUT THE ·RAP CljNNEC1QR

Ff:IR LOC OBJFCT CODE

ADDA STMT SOURCE STATEMEti:T

PART .f'Ule PAGE

5558421'

re· ·AU.TEtlANCE DtAGN(;STIC P~<lCSAAll ·

0 ts

!
I

I

4011
0

3741 '"UNO ION TEST WITt<OUT THE WRAP CCNN~CTCA

ERP LOC 08.IECT CODE

AOOR ST"'T SOURCE STA1'EMEN1'

10E3 O:!cc;E3Ee40D6C640 IDBB F?F7F4F140E3DE4C tDC:'! 09C501C5C~E340Fl tOCE F~40C90SE5C103C9

tE63 t663 1663 1663

0 I
I
I Q

1[)0! C440C!060404C 105

1663

tOCE C4E24B

1663

lOCE CAC~40E2EeE2E3C5 IEOI 1664 lNYL

DC

!CE~ D440C9CSE2C5E!4'0

1664

CL3E·DO S~STEM RESET AND START. 16 TllllES·'

0

10£'E C10SC440E2E3C1D9

lf'!64

lCFE E3EB40FlF640E3C~ lCFE 04C5E24B

1664 1664

0

1E02 C5E7C7C5C3E340C7 1E32 1665

1E 0- D~CEC3C5E2E24CC3

1E65

IE 12 cec5C3C240C1CEE3

U·65

DC

CL49·EXPECT PROCESS CHECK AFTER EACH SYSTEM RE~ET ANO e

c I

1E IA C50~40C5CIC3C840

1665

1E22 E2ESE2E3C504400~ 1E21- C5E2C5E340C105C4

1665 1665

0

1E32 40

1665

1E33 E2E3C109E:!4'8

lE38 1666 1VL

DC

1E39 C«;CSESCI D'.!C9C·Ul0 tE5C 1667 FLWNG DC

CLE·STAt:i'T.· CL36· INV-LID COMMAND WAS ACCEPTED. XXX N·

e

1E41 C30E0404C105C440 1E69 EEC IE240C1C3Cic~ 1es1 C7E3C5C44B4040E7
·F~9 E7E74C0!5

1667 1667 1667 1667

ie
I

;

1E50 E2C505E2C540E:!C8 1E66 1668 SNTHE oc

· CLIO·SENSE THE

lEE!: C!:40

1668

0

c

1E67 E2C!:D5E2C540C3Ce tE72 1669 SNCKfl!IS DC

1EEF C5C3024B

1669

CLl2 9 SENSE CHECKe·

1E73 !5C5CD50EE3C55CSC lE9B 1670 CNCTR cc

Ct.4l···NOTE** IF A ·RAP CONNECTOR IS ATTACHEDe·

0

1E7e 40C4>CE40Cl40E609

1670

1Ee:3 C10740c;,cE0505C~ 1El!B C3E30ED~40C9E240

1670 1670

0

1E9? ClE:3E3CJC?CeC!!C4

1670

lHlle 6S

1670

1EQC C~CSD406EfCf40C9 tECO l fl>., t RMOV

DC

Ct.?7' REMCVE IT AND CO SYSTEM RESET· STARTe·

0

lEA'I E:'.'40C1C5C640C406

16?1

1f AC 4CE2EeE2E?C!SD4'40 tEB4 CC:C5E2CSE?684QE2

16.,t 1671

0

teec E3C109E34E!

1671

lECI CSC~40C30EOf0!5C5 tED9 1672 IFOFF DC

1EC9 C!E3060~40C9E240

16?2

CL25·JF CC~NECTOR IS OFF THEN··

0

tECl CECECE40E?C8C505

1672

1E09 68

1672

lECI\ F!F7F4F140C90!5E~ IEEE 1673 SIOC4 DC

CLU·3741 INTERRUPT CHECKe·

e

lEE2 C509C9E407E340C3

1673

lEEA CfC5C3024B

1673

lEEF

1F49 lt'>74 PPT

OS

CLfil

PRINT FIELOe

e

lF411A 40
( (

tF4A 16?!5

DC

XLl·AO·

Cl.EARl·NG BYTEe

0008

1676

1677 1678 1679

.··.·.·.·.··.·.EQ·.·.U·.A·.T·.E·.S·.·.·.·.·.·.··....................................................

1680 ARR

EOU x·ce·

0 0

,r

0222 1681 HALT ECU x·222·

\.

0216 1682 LINK EOU x·iu;·

022A 1683 LOAO Eou JC·&2A·

0

( --

021A 1684 PAINT ECU 021E 1685 UNPACI< EOU

x· &Ill' x·&1E·

e

0001 1686 XRl

EOU x· 01·

(

0002 1687 JCR2

EQU x·o2·

0084 1688 URS EOU x·e··

OA03 1689 RTN· £C:u JC· OA03·

0

0080 1690 S~"I 0 EOU x·eo·

0080 1691 sswoo EOU ··eo·

0

0208 Ul92 SBYTEO EC:U x·o2oe·

020A 169:!1 SBVTE2 EOU x·c20A·

OA07 1694 FRTN EOU 18CE 169!5 140000 EOU

X· CAO?· NOCO

0

DA'TE'

IEAUG74

EC NO. 8~47t!

1!5NCi¥7·
e2·e?o

PROG 10 PAGE

c

oec 401-1 15

DATE NO.

IEAUG?6 82"76J5

1800 l?BF tECO OAll

1696 HOOOl 1697 0110~&1 ~696 INT"tO 1699

EOU ECU EQU ENO

tlOCI olCERU RMCV BEGIMN

!lSNCV?& 1!24ETO

·

,' _

0

·

:·~

· · · · · ·- .

PAA1' 1110. PAGE

5558·21 15A

PROG ID PAGE

401-1 15A

tf.
~

--¥--
()
r·

r
"
1S~ MAl~TENANCE 01AGNOSTIC PROGRAM
(

4011

3701 FUNCTION TEST V11~0UT THE wqap CtiNNECTDR

,,
;_ S'fMSOL T LEN VALUE 0£FN

CRCSS-S<EFEriENCI: ·EFERENCES

5558421 16

0 18 MAlllot1!MANCI! DIAGNOSTIC PROGPAM.
&011
0

REFERENCES

PART NOe PAGE

ACT
ACOJT ALES
ALE~X
AL TEJ:! ARP

A C02
A OOt'l -I> 023 A 0'14 A 004 C 001

(

BAOlN,. BEGIN BEGINN
8I<;EB
e1c:c:ee
ens
B ITSNF
8RNCt~

fl OCA A COl
A 001 A OCl4
A 02·
A Ol5 A 004 A 002

'· BTNF

A C'04

Bl:SSY A C13

C ALC A ()04

CtcBYT II C04

CKKL!S A 004

CKP'5T A 004

· CKRSTT IJ. C03

Ct<S

fl 004

CKSIO A 004

CMPl>RE A C04

CMPP
Cl'.CTi::l
coo
COOi:
CODE
coo
O!lDR

A 004
A 041 A OOf A 004 A 004 A 002
,. 021

0/lRCK I, C' lAiG
OiGTR OOPS'T
ORO FD
DTR

A 004
"' c 15
,. 038
A 00:3 A 004 ,. 002

DUG

A CC2

EeEJ:P A 006

EBFLAG A 0':11

1.63E 156C 1 B7F 1BS7 0A4!
oooe
Of'A7 OACO
OAlt 0019 1e2c; 1CF5 l EEl 18Ff H3C \CAO 154E 08F2 14A7 lOEA t OE:'!! 1631 1580 U:3F
16c;? 1E9E
1E04
te9e 1eoc
H!FE lAEE' OEBO 18CA 18:1 107F 17BF 18FC
cec;;
OC94
1Cl10

l?U! t 23'9 lE:!fi lE:!JE 0047
16eo
0712 ()024 00;?8 0367 U!2
HI~!
1311 t5?7 1397 U:48 12?0 02Et
ll'!lO 0841
OE38 1:!04
1267 1317 1346 1670 14£4 1!:23 t4e3 ts7e 16:!0 0563 lE'::JE 1E:?1 C7<;9 16'>7 l5E4 0233 0330 15<;7

(" EEX
EBXX EEl

A 029
A 006
A ClO

EBlT

A COl

EE12

A 0~4

EE2

.. 010

EB?ERR A CC4

EE2T

A ()01

EPRN'T 1 A 004

EPRNT 2 1' 004

EPCf;5 A 007

EPSI'

/I. C04

FRST ft. 004

ERO~

A 004

El<14 A 004

1E46
0013
tCFf' OC7E lEFC
l!36E 1ooc;
ocei:
16DF l89C 18A7 101,, 14E4 lOFE oi:2e 1378

u;;:;3 0365 11!!:4 0324 1369 H34 H55 0326 1368 1!;;30 H3:3 1656 1174 Oef l 0520 1cec;

EVEr. E ! 3 E1311 F 1NEe Fl.AG
Fl..WNG

f. ()t'J4
A 004 A 004 A cc~ A 001 A 036

tCBf'
12oe
llED OCBO 18C\ 1E5C

tE46
oc;;eco
0947 033A t!4'li
16!7

S 124· t 169 123.iu 129T· 1329 !333 1336 t'.'!42

0'?!30
0320.. 0326* 032? 0044

1099· 1090 1119· 1120 1122· 1123 1125· 1126

1185$ tlB6 t24e \250~ 1251 1253· 125· 1267

1372 1375· t3Te 1409 1·e4 t4S3 t·ee· 1·s6

0700

0017

0052 t442 16~9

0328 CJ3t 03'9

0~70

11e2 ties
,..,. 1168 1230
Ot;;84
1376:$

121e 1291

1219

1226

t28f)

lt2S· 1129 1269· 121'0 1530 153!1

l 113~ l 183 l:!I?' !37U

1223
0~17$
1 U!6:t: oeo1 0830 1270$ 07'02 1171 1:\H..,. 14JS1 1483· 1486·
0392 1510 1206 0556 0213 1209 0791
0129 0696* 0225·
029~
0278·
0~13
0:!141* 0347 1159 0294

0285· 1239* 0943
1li'73 078<; 1235
0425
1146 1502
0132 0744· 0226
0283· 0315 0344· 0354 1216

029? 124C
0458
1282
02~1
074E 022E 0291 0317 0346'' 036!
122~

0493
0!90 C"1'S6· 0293 0342 03lie:!

Of 19
0736 oe2!·
02~5 0~4q 0'.';!lll1

C654
0778 12?2
C2~8
03'56 C'S!S!it

OSie 1292
0300
035~·

0876
12~7
0302 03!5Sli'

0905
030~ 0360-

0925
030T 03t'}P

1'52~
0309 Ol!te.4·

0311 0365

033~· 03!5· 0337· O~!e 1156 1215 1284

l'!E2

ltEO 0:!72 t 172

1170 1147 123e

1129· 081i2

0'503

IOCS 1071 0543
09!4

1013 io7E

0938

0334 03!E

OE'i~ 069~

1091· l0"-2

1217 11 6E 129<;

1225 1 l ?:!

1018 1024 1oet

us so·
1093

1232 12t 0
1029

UHl!S 1220
IO:J4

129· 122?
1039

U32 1231'
1045

lti.:S6 1283
1050

1281' &OS&

U'C!l 1060

tC~5

L

O"TE

teAUG'74

EC NC., S247CS

FNCT ( Fl<TN

A Cl?
c 001

GCMO A 0011

M"""" ,. 002
( HliA~S "' ()02

HALT C CHH

c f'!OHGlO A 00~

Mf'FFF A 00? ( i"fFFFe ,. 002

t-tF"!!!5 A 002 Hf'LXX ,. 002

(.· "401'=!"5 MOO"A
C t-tOOC'O t-!COOl H0055 M0_,80

" ()02 ll ()02 ,. 002
A ()02 ,, 002
,,. 002

(: HlOOO . ~51>/l
c t AR5 IFOff IFSC
C· Il'ITR lNlf<Cl tt.lR!i un~
C·tf<'Ut.

A ()02 A 002
c ()01
A l'.l25 A 045 A 02~
A C~7
" 002 P. DOli,
fl 0'!51

It.VI.. lOTPL. () ITON

" (;3E\
A ()IP A QOtt

11 l'St'N
CLCIWQ..
LIN!:
LlNK
0

" ()O ...
,. 0016
/A 002
A 001
c 001

t9BC OAQ7
1884
iei:c
1eeo 0222
teec
t8EE 10FO t8F2 QA4C 1Bt:e !SEA
18CE lSOO
tsee teoe
t&f!4 U!!E2 OC64 1eoo;; 19"1'6
lO~e
HCC 16FA !&2 1000 1£01
lAD~
1731 1710 1E3e OAEl!l
1ea3
ou<z

uu
1694 l!U
U~72
156E i6et
1~2()
Ui1':! Hl76
H!'P~
00!50 1570
1~7l
16<;!5
U~<;t
l9E9
1se-e
l!f:E l5E?
lEee
ltT:li 1614 16t'i8 \64liE 115?9 UfiO
u:~1 1e~·
1C2!'i lff:! lllHI
uee
Ot46
u:n
UU!

c·L!CRS,. A 04'3

L tOSHS ,. 01'}4

rV·LLSf:'AO

,,.. 001 A 001

LSCI( A OOf

lCOI! 1460 02:u 19J 5 191 "f

1E40
tl'12
1693 t SE'"/'
t 5ee

CL!EC:!':K \.SC ~A
,,.. L~HO VL!741
··PS

A 022 ,. 014
A oot
IA OOt IA 004

1eeo
1C8B
14£!1·
oooc
1709

U53"i< te<\! lllll"P OCC!'l t464

{) l·OP!!S
"' M~Gl
MSG 10
(JM~G2
M'SG2B MSG4 ciMSG40 NCOCOt
c NCOtDf N('Ol'.'04 WCOt05
o NC.OC1 hC002 NCOO~

,. C34 ,. 040 A C01 (;. 1')40 A 0()1 A C40 A OOt I> 004 A 004 I 004 A ()04 1' OO,. 004
" oo·

0
""°· DATE
0 EC

1C!:! lA03 19BC tA!!! l/IJ3 tAA:5 U!!! OCl'Hl OCDS OCFO
oooe
OC9E OCAfi OCAC:

le.fl:! t6t9 S6U 1622 1620
162~
1624 0341 031ie 0355 '3353
0:.:!:?3 0335
C:531

\200 14~1 00-.2· 1f5lt

0391 ~558 0560

0049 OHll 0\93 0230 061'2 OTCe 0719 0?59

1451

1~15·

0502

1418

~~ee 02e1' c2ee 02e9

e:>43 0045>* OM?·

0133

04Ci2 (653

012~
0602
o·e;?

013C
oe1e

090·

0930

069e 0741 o7e~ oe23

0599

0424 Ci553 OlltH

069t·

&~36

0375
C7~~
102~
cee1

0408 C:S34
1026

04·1
oese

0476 095&

~51·
096e

05:!T 1000

05Tt H03

OT94

0~1
1se11
(V;89

1e-r9

0'994'

0168 1103

1390

138:?

0'99e

01>e· 0139

1931· 1534·

00?4 0101

C'404 0410

Of33 0639

OBfO 0884

0523

04Ct 0434
o··e 095E
0271$ 027'2·

0399· 0432·

060~0 06260

tlt;6

0!541' 059!

1192·

1·98
013~
0116 0431' 0!!.68 0908
0469
09Ee
02T3· 046f· 062S4

0~~2· o·~3

0140 0443 0674 Ut85

Ot!3 0472 0704 14£3

050? OE30

0274$ 02?6 0467· OSCO· 0661$ 0Ef3$

0182 ('4"18 0710
0665
OS02 1t!8

0195
r;~tO
0721

OHO 0'516 0747

oi:n
0!!29 O"f6t

0505* 05&411' 0555 12?!1 123·

0320 091'4 0836

0148 0706 t4t6· 0031 0031 ()036 0036 0565 0565 0306 0310 0!14 0318 0299 03CH 0303

Ot 90
~711
1467· 003t
00!7
osee
030$ 0312 0:!516

O:ll!:!5
o7se
··eeo

0373 0793 1469·

0406
oe3~ \4~4

t.4'39 041'4 0856 0~52

0512 O"M!14

0529 ! I 01

06TO

PAOG ID PAGe

· · · · · · · · · · ·

0
··

·

·

·

·

·

·

·

···

·

·

·

·

·

·

.

,.·
I

·

·

···

·

·

·

·

·

·

·

·

·

·

·

·

·

j

Ie~ ~AI~TENANCE DIAGNOSTIC PROGRAM

4011

3741 FUNCTICN TEST WITHOUT THE WRAP CCNNECT~R

CROSS-REFERENCE

SVM6Dt. t LEN VALUE DEFN

REFERENCES

PART NOe
PAGE

5558421 1?

4011
(.)
c SVMBOL "I LEN VAt.u& OEFN

PART ROe Pt.:GE

5598421 17A

NF NFF NIO NC RES NOR" NOS EE NTI' ST NOOO NOOl
H002 NOC3 N004
NOIB NOl9
N02'S 000
PAT~

~ 004 ,. 004
A 001 ,. C27
a co·
,. 025 A C27
A 002 A 002
"' 002 ,. 002 ,. 002
A 002
A 002
1' OC2 ,. 004
A 002

171F
1735
Hae 107C 14aA
1061 1028
tece
1800
U!02
1804
1806
1eoe
180A
ieoc
IC9:?
1919

t3e7
l3CJi-' 1591 t6eO 11!4 1E5'11 1 t:!!7 15!:7
1see 155<.:i l5EO 15El t!!e2 l5E3 1SE4 1E47 t5e9

PJ:INT c 001 021A 1~E4

Pf<NT PFIT
,..
I,_

A 004 t8AF H:!E A 091 !F49 1674

(

Pf<Ti /i. 004

PUT5AI< A 006

OS

/i. 004

,. 004

A 004

1850 1371 l76E 17?2 1750

1511 I ICE4 111 t ::! 1415 140<;

RCY

,. Cl4

PEP IT ,. 004

Rtl~V

A 037

PStOC A C4~
PTNW c 001

RTNOA /I. 001
RTNOB -. cot

RTNOC ,. 001
RTHOO ,. cot
RTNOE ,. cot

RTNOF ,. 001

RTNOl A 001

RTN02 A 001

~TN03 ,. 001

RTM04 A OC1

RTN05 ,. 001

RTN06 A 001

RTN07 A OCl

RTN08 ,. 001

RTN09 A 001

PTN!O ,. 001

RTNll ,. 001

RTN12 ,. 001

RTN13 A 001
R'TN1"4 A cot

RTN15 A 001

RTN16 A 001

RTPN A 006

SE'YTEO C 001

SBVTE2 C 001

lCAE 1130 IECO 194E OA03 OOE3 0£42
oe~e
OEC7
Of'CO~
OF3f< OASi
OAee
oAee
OAFO
084P: 08.t.9 003'7 006F OOA7 OFCl 1022 108A
111 a
11~4
I \90 1223 1257 02()8 020A

IE49 c9c;1
1671 1E13 16S9 04f!8 05::!c;
oscs
OE14
OEAlt;
068! 0061 OCEE 0111
01E!
02<ie 02U 03e7 0420 045! 0729 0771
oe11
oeec;
ce~· 09te
C!979
ieoe
164;2 164;3

1379· 1384· 1385 USE· 11lOO·

1380* 1391· 1392 1393· 1401·

11e·· 1192 11c;e 1201 1204 1207 1211 1213

0950

1151

0962

0854

1E9!5

0285 1119 112! 1128 11~2 1185 1253 1269 1371 1375 1485 1696 1122 13~3 1354 1400 1401

1412

1089 1239 130~

10E9 1074 1079

ioo6
1250
ose9

1011

tote

1022 1027

1032 1037

1043 1o·a

1os3

1ose 1063

0391· 0398 042U 04:!1 1188 1233 1507

0653* 0660

0029 0590 1257

00:!4 0712 1275

00-65 0751 1426

0090 C851 1444

0121
0~47
1471

0170
~959
1516

0215 09ee 1!36

0255 0991

0367 0995

OS20 1095

0544 1131

05f;3 1193

1~!2

0039* 0040 0040· cite· 011~· c120· 0124 0126 012~ 016?· 0168* 0169*
0173 0175 0175* 0212'* 021?· 0214· 0218 0220 0220* 0::12?· 0~30· 0338$

O?~~· 10~2* 10~4· IC~@ 1100 1100* 113~* 1140* 1143$ 1146· 1149 1154

1156* 1159* 1162· 11ES· 1172· 1200· 120~* 1206* 1209* 1215* !216* 1218*

1219* !221 1222 1224· 1226· 1228 123E* 1252* 1256* 1260 1262 1262*

1281 12S1* 12@2· 1284· 12f6* J2E9 1290 1293 !293· 1299* 1300 1300*
1431· 1433· 1435· 1490· 1·~1· 1494· 149~· t·c;e· 1499* 1so2· iso3· t509*

1513· 1519 1521 1521· 1539 1540 1540*

1530· 1533· 11 cs

1409* 1412· 141E 1417 1419

1411

0071 0096 013S 0177 0222 0263 0395 0428 0461 0496 0~50 0596

0622 0657 069~ 0738 0780 0820 OSTe 0901 0927

1429

1003

1433 1698

0843 0455
04~0
06·'1 0587
oeie
0651 0026 ooe3
ooee
0113 OIE!i 020? 0253
0389
~22
oees
0?31 07'?3 0813
087t 08116
0920
157'7 011!5
1·10

1137 0041
0209

114!

1!44

1150

1157

1163 151~

SER IO ( SHOD
SHm?T
SID
(. S!OO<
SIOC4
C S'IOt!D SNCKMS

~- 0~0 042
14 ooe
A 002
" 022 /4 021 A 004 A 0 U!

SNPJD - 002
r SNS~All /. C04 e ~-- SMT 1-E lo 1 c;

S5WCO c- 000016 (.· SSWlO c 001

STB~

A 004

STLCR A 03:!

(.''TAES:OR A 004

TAJ

A C04

TA2

A C04

C'TA3

A 004

TBERR
c TBI TP.2

A 004 ,. OC4 A 004

'TB3

A 004

TC
c'TEMP

" 004 ,. 002

THO

A OOCJ

C TJOEF<e ,. 004 1tOERC " 004

TNF

A 006

c, TNFF TOB~V

A 004 A 023

TORCV TRL
CT!SC~

A N!4 A 002 ,. ()36

TSIO

ll 01~

C 1SP.6T A 040 UNPACI< C OOl

Vt.iOC
C' WORK VPCT XFT

A 042
a 001
A 001
A 002

XRl
0 XR2

C CC1 C COi

1504 !SAC 1DAA 15A5 1C2 l
1eee
157~
1£72 l::J"'E
1~ee
1E6E 152C
eeeo
0080 OBFA 1.6C4 !ECF 1674 !Et;A
1663 tt:07 168C 1682 tf.'IB 1693 18FE: tCEE 17RF 1'787 1700 1723 lCC!i 1CDO
OB3C
ieee
IC! 1 1CA4 021£ 1C7D t90D tt;lC 163C 0('01
0002

1279 1263 1EE2 12tl 1 1 C:411 1673 12:49 tee9 11 !1:
1119
ti' Ee
1224 1E91
16<:'0 0283 J.t;28 1::!!'7 133:3 1:132«.;
1327
l ~'!!!19 1342 1:3:'!8 t:!:!E 1:!!4! 1585 1E52 1444
14~6
l3E2 1389
1eso
UH!!l 0188 U!37 U42 1661
IE@!! 1644
1586 1so;2 1314
t6ae
16@7

1:26&·

1$1'&4·

1!512· HSI!

1249111

\278

0715

o&e7 0733 0775 oe15 oe?3 ce~e 01i22

113·

! U??·

014'4 0186 0231

0118 0167 02:2

1:::12 12t4

0115 0209

1410
0279· 0284 02s·· 02ee

0119 1318* 1322·
!21· 1320·

11~4;
13:30 1328 134e 134Q

1140 13:J·
13·? 134E·
134~

1203
13!!~·
·~·.,·
135S

l·~·

1319* 1339 1.::!2S· 1337
1:924· 1~51

1;543 1354· t3·! 13~0 t350· 1351·

1323· 1331 1352 1352· l:Hl8

1340 t :wic;o

0600· Oe39* 0841 0942· 1007· 10129 101?· 1464* l·ES
109')· 1094 1·e·· 1488 1·92 1496 1$00

0099 .)765 093""il 1·11?

001'(!;

I??~ 1396 l39e t~e· 1402

1378· 1399 13~9·

0093

0068

01~1* 0180· 0181 0181

0298

US6

1508 1809 1910 1912

1505

0!43· OS89·

0936· 0937 0983· .1084 11!52 122·
0701· 01ee· oe27· l 2?2 1296
1121* 12311$ !2~E· 132? 1331 0041* 0042 027~· 0277 1192· 1154· 12~2· 1228· 12~·
1418 141.15· 1466 1·6? s.ea i469 t·?e 11·9· 1221· 1229· 12ev· I! Ul 13?9

1319

()TOT~ S"fATE"1EfllTS f'LHGEt'l 1N THIS ASSEMBLY ·

0

1380

0

l
USNCV'74
e2·e?o

PiKJG IC
~AGE

·01-1 17

0 DATE EC t\De
0

PROG JO PAGE

0

J

0

(

0 . . 55t!e·2t 16

ISM ~Al~TENANCE DIAGNOST;C s:aROGQAM

PaRT ND. PAGE

5558421 l&A

4011

08.leCT CA~D LtSTl~G

JNOtCATl'S A el.AMK ct1UMN AND T+E (.kARACTE~S D f: t4 INDICAT£ NUMERIC Sttlf'"Te
( CL 1 TH~IJUGH 16 CL l T T~OUGH 32 CL 33 Tt-f:CUGH 48 CL 4~ ~UGH 6'* CL E5 TI4ROUGH 80 CL et THROUGM 915

,-

t.

~BK GE-O· · ·PN 55

T+-v:&AD t.
r
'·

e-7

T +-CO J J · · t~e~oH·

5S420 EC 824870 ···A& 0 f!VG ,OH
~p... tt<eee·· .fOH

-·
EM>·E 4C-Ot'ttef'-R
. ·-
c 0 ~"LS -T 0 "

CFV<l'.&A ·t<EV-.K.I.
oc L;sA9tlCB ~F~.

HO-OHMl.&-A&-·· e z
. ·-
,. /t;G - HSl>B
OtOtl~FSBG .f?rOt·

~· <&YD e U40l 100()1 G ,V 6 M40ll0C02 l&M< :g144011oco~

4011
c~

3741 ~U~CTtCN TEST WtT~OUT THE WRAP CC~'MECl't)f;(

c: CL

1 THJIC:UGt4 16

Q.. 17 TfofROUGfol 32

08.JEC'T CAAC LISTI""
CL 33 Tt-RCiUGtt .a C\. 44ii T~OUGH l:4

0 T+-"10C <*~~2t.CH~

BFVG6G)'L ·<6Gf.:57

otcot~ATU(O~RE!E

OF( c.JAUPOKd'SE-~

CL EC.S THmlUbH 80 CO<< JURF+tl .'1-

CL 81 TI1ROOGH 96 0 .. 011.011002!:

(_

.fl~SPG l'OHSt.~f

.
T +-1P "!llG .f()tl S& P

l'OHCA- ( UlBG l'Z

RGLOAB·ll·

(
'T+--~~ OPGOQSVtie

0 3N+B RG$ &C(M eAAUJOA <SC-HFJT

(
(
c

(
{
(

,' _

·. :( .

··

· ·

··

2<M&~CTEEFIHO&.IU

" l<D~ R.J-4011000!

0 T+/CZ£<EBEe'" /1'

) IDC 0 :t<lltOOT''H fl CA

EE4CW60)('fll<fC.C:Ot I

- ..
/OHEOl'S)~4 oo~·

F6Q·KOH~B!-4U OOH·

BHU N~~38E?( BCA BEi'< DNL /tN6S:al.

O~<< ;o··o1?003t

tOA

17R040110012

(.~ T+/G~S4CA6·J 6·P

·.
&CA &CC l'l)t~CO

)iCOl<MOC7?(Cftee G /QM AF&OH'llrN)eL B<·C03WEBE·"!Jf· l'OHOE& KHl!EIC,.:PE

05~ 6e 40110032
. -
581M ROl!ll40110033

-· /OIE ~; ·eG ,y FllB Ml'<40l100~E

PQOG ID
PAGE

0 'T+/ (2!:UC'TC-D

15UC~C-O
lT 011·,. OM4'&.;,... ssue sc-o

ITEOtfO LGSEG077T2)R ·-e
tT

A <06~EGC3. l'l(

·eeu KE~40110<>40 TC < 0#460110041

·01-1 18

0 DATE EC NO.
()

IEAUG'74
S~47~!

0 0

OTGt~;P 0 G# CP Ot4GtY·?SBG ' · so1·1&AtJ<Ol'·tG4. 1'1 · · OU4 0110042

· · · · · · · ·

·

·

·

·

·

·

. .

I ·-
I

···

·

-·

·-- .

·

·--·-·

·

·

·

·

·

·

··

ll'!M MAINTENANCE DIAGNO~TIC PROGRAM
(

4011

3741 FUNCTICN TEST WITHOUT THE ~AP Ct~NECTCR

r' CL 1 THPOUGH ae
· ( T+, hERALOtH,BHU
(

CL 17 THROUGH 32
BCA92& · ovce-o

OBJECT CARO LISTl~G

T~OU~ CL 33 Tt-RCUGH 48 CL 49

64

He oof

C-Q4T& ...0 1 0< JO= 6BAT

<C v...AAC>C e-.FtD

PART NOe PAGE

5558421 19

CL 65 THROUGH 80 CL 81 THROUGH 96 &C -L9 O D"Q CO HF( SC040110043

II
Q I SM tO,Jf\TENANCE DIAGNDS'UC PROGRAM

04011

T~DUGH I~ CCL I

CL ,., TWROUGH 32

.......

« : .ITA24

OH·OO-

0

c ··········· T+,\;5

················

OBJECT CARC Ll~Tl~G CL 33 THRtlUGM 48 CL 49 THROUGH 64
·-- c & 0- L A4 -1-z tiiNEY& ANCSM DOC
...., ...........

PART NOe
PAGE

!55!58421 19A
\

C\. 65 THROUt"ti 80 q.. 81 TMAOUGH 9E

OF<H ~IX401100E~
&01 1- 40110066

'··
c

(

-.
T+,~HX O+GOO··&O

(
(
T+i'P EC4<GAilS

AE~CRF&OAETeREBB
6SAT&C -NwOOIGT8

(

-.

(

........ - . l'FIO<U&EG11 .l'IS

4E~EE( H04T&AE_Y

(

0 AE> CQHF( 48A)
c
(

F0-0...F?HGG OIGC<
GET8<A/~SGJC 'IS *<*SG '2ECl 1 1&
'* DPCTCAE2&4
CS EO· D c-

.... SGF I O<CJ"ilFG Ip
'ISXC u... 14IOH*
a c1- ·o t OOf'G7M to o
a JSl;f 00-30AEY4 + AR
DQ?U C /UH·IEO

...EPll< AOV 6BAT O· o+GOO···BGFH~
5EXM+ AR.EWX+ AR <BGEZ< CQHFC

.llQ STM4011004~

0 :t( - ·YD4011005C

7+/CPt: .su ·Et ax

·.
B 'Q *AU401!0052 :F(Q 32-40J100S3 £P?t-! N&040!100S4
. -

4BAQ S9-40ll005e
.....
OWU40ltOOS7
SOH· @.840110059

0 T+,\l42CCCE>L~e·c
0 T+" t ?8 ·i;i &:·-.·U!MC
c T+,20S>fEEMCW2;f

&CA &DA &DA &DA &CA &CA &CA &DA
.
&DA e>IAa=LS&<.
.
c:<ILl';J 1"Gf4Y"'
e:+IE4(i)Xoc;.1>1euc
.
R··~re>IEeM_ l<X

.&DA &CA £DA &CA Y62N-46)~~··1H£<1
.
Ok4CN&<fDl<N 94_ Tl;.Te;<LAelE e·x
cs_t.PO' xes<t"4U I
Al 1 POS>ll04CB:+f
OilOCES; ·~ :ocotc.'

&CA &DA &DA £CA &CA ~DA &CA &DA
. C9CFT£(XEJexseaP
T2·C O>TTJOCD~:I
oo· .. ,esP!'~8·N l<G

. . .&~A &OA &DA &DA &DA &ocoo;IA&<<O &DA &CA &CA &DA R20uC&+IRg)PS1=P A&+fRO)PStSPR&(X ElO_ 5~CCSXLE&+) l . l : t 1XGJ49P~K51
~&<Pe&<IY0 1 fE8U?
O·.t48XT:DCTSUC
TO,,Cll.l <LPI; .st IX

&O K8H4011006CJ &D · A0401l 0070
OICU 1-040110071
&D R&(< 4R-40110073
.Peo.E;e·o110075 ·OJ< 2SX4011007E 02*0 RZ&40110077 Nt=< :KY4011007E GSU JYM40ll0079
eteu :Tr.·011ooeo

(

,t.

.

T+''IEASSf -.C·9·

A~8£<CASXFQO£Kle

.
vt~H·9:t AFCQ<EA&

AG~OC=f HAO-OAGE-

AFD-<D.JilYF_Ci>Kl ii )X-OEGl0)0--CFH4

Zl-.M ND040110062
-· ..H e '-84011006~

0 T+/!;$£(FCS4Cf'l;.,

. ·OC5&IR "6CEO?E
Ee4?1~;fE6)XU5=(

·- ve~ P.-P<PR6) S~P ( 1C EO· ·.u9_Xl811N 4&G T08- EL040ll0083

l lPAO_ IE&( XESlllF:

P&CIA8SlfH&<SA21I

L

DATE

1EAIJG74

EC NC· 8~4 7E!l

15HOV74 S24f!70

4SAT · f t!OOX"H

o--·0110064

PROG 10 PAGE

401-1 19

c DATE
e ec e.io.

U!AUG74
ea4?6!5

.
-&+it-lMA 0-C-.XQOC

T1;.Te<~E~>f J8c,

l!iNOV74
e24e?o

PROG 10 PAGE

·01-1 19A

,....,.

IBM MAINTENANCE OIAGNCSTIC PROGRAM

4011

3741 FUNCTION TEST WI7HOUT THE WRAP CONNECTOR

P,lo.RT NO·
~l\GE

! I
S!.58421
20 I I I
l

t· CL

t TMROUGH lt:

Cl. 17 TMROUGH 32

OBJECT C~~t LISTING
CL 33 THROUGH 46 CL 4<,; TMROUGM 64

CL 65 THROUGH eo

I I
CL St THROUGH 96f
I

·

i

Nl+!.UR 8>TS6QP M&(~E6XPT&<GN10C se~GRe6_ ...R SilX Mt;1.1;~Pt·IT&(~ RSX< JI4~01100e7l

..

I

(

K&<GFSBPR&<PAOil'

S>TS8ilFM&(XE8tP T&<GNlDC58a~R6A? t5:PA4ilXO&<f 05(L AS·& K&··Ottooeel
t

(
T+~:B£+SASUCAO~t

ESeiEtD_ &.._X94C N8%PN8XN 8&:TE£+,.

ES;e£&<1~t·l·K51

·5)ST1Nl*&<)l(F&<E

·

·

I

9_U :-1>40110089:

I

c

(

····e·~··~

T It ·Ht.

c

c

ca·sR&<XS&<GTSQG

NS·PC8 1 SR&<XS&(S
·····&9·······e·

=.. · · · · · · 4!:

7M&Ff

C

C2<POE ·XEH f&Vlt<
.f:tUCT2<PwE"f 7· IE
.,. ...............
Iii.SC

if4C115$J HR S>T
2 l PTI J XR~ t-.T&< 1
.·......·...·...
so 0

Seti)PM& ( X.E8XFTE4C
,. .........
Hl·!Kt<O
·o······.,.·······
1!3~0908741

·

I

sseo E9·40110090;

I
····@ 26440110(19 l l~

I

I · · · · ·

i

RBS·Ol 100'.'2

I I
t~1?65·840110093l

l

I

I

!

I

l i

I

I

I

I

t I

c

I t

(

(

0

- - - - - - - - - - - - - - - - - - - - - - · - - - - - - LAST PJlGE - - - - - - - - - - - · - - - - - - - - - - - - - - - - - - -

L

(

P~G ID

4-0t-l

DATE

16AUG74

PAGE

20

· · · · · · ·-··

EC "O· B24765
· ·· ·

· · · · · ··· · ··· ·

·

· · · · ··· · · · · · · · · ·1· · · · · · · · · · · · · · ·

r· '
18111 aAJll1'£NANCE DIAGNOSTIC PROGRAM

't. "r";
I
··I
PMT fCJ· PAQE

6021

3741 ATTACNllEtfT 1'EST ·11H -WRAP CDN~ECTOA-

EAR t..CC 08.IECT CODE
(
( aooo
C&OO
( r...

AODA STMT SOURC£ S'IATEllENT

2 ·

LAST CHG I 08 01 T·

· ·3

OEClt 6 SEQ 0

5 LSIOC STHT 0

6

TR£P

· '?
8

. . . . . . .O. .RG. . . . .x.··.o.o. .· . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

9
· 10

.· .......3.7.4.1..FU..N.C.T.IO..N..T.E.S.T...........U.S.IN..G..-W..R.A.P..C.O.N.N.E.C.T.O.R...............*.

11 12

·....................................S.E.C.T.I.O.M..P.R.E.F.A.C.E.....................·.

MOO 4021

(

OAO~ 00

OA03 01

·· OAOI 13
OA02 OA03 15

DC

XL.2·4021·

DC XL i-oo·

DC

XL.t·O:&·

PROGRAM ID AHO REVISION LEYEL

SECTION FLAGS

0

CURRENT AOUTtNE NUllBEll

OAO· OOGO

OAOS

s~

DC XL2·caoo·

11£SERV£D

OA06 OAOD

OAOT 17

OC

AL2CBEGINJ

FIRST ROUTINE AODRESS

0

OA08 FFFF

OA09 18

0C

XL.2·~F·

ERROR TAkE ADOAESS

c

OAoa 405000

OAOC 19
ao

oc JL!··osooo·

SECTION PREFACE UNIT OEP. Ta.BL.I!

20 21

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

(

22 23

.· .......1 ..~ ..T ..I ..O ..N ........T.E.L.L..c...e....T.O..S.Y.S.T.E.M..R..E.S.E.T..A.N.D..S.T.A.R.T............·.:;

OAOD 24 BEGIN DC

XLl·Ot·

DUMMY ROUTINE SETUP·

(.

OAOE 25

DC XL.t·oo·

0

OAlO 26

DC

AL21aTNOI)

2'?

· OAll 28 8£GINN ECU

0

C'JAl1 C::O 8'P 021A

29

B

PRINT

Pf:tlNT BEGINNING INSTRUCTIONS

OAU! 41
n OAU~

OAIS 30 0Al6 31

oc

XL1·4t·

DC

AL101SGl-.SG1BJ

0

OAl7 IEFA

0Al8 32

DC

ALHMSCll -

0Al9 40EO
ClAIB CO 87 021A
OAIF oe

OAlA 33 34
OAlF 35

DC

XL2·40EO·

e

PRIMT

DC

Xl..1 8 06·

e

OA20 27

0A20 36

oc

M..11 MSG2-·SG2B1

(

OA21 1721

OA23 3C 40 1069

a.22 37
3B

DC

AL2CllSG21

MVI PRT+1.x··o·

SET uP ·Cl.EARING· 8YT£e

0

CIA27 OC SA 1068 1069
OA2D C2 01 OA!51 0A31 2M 01 OA07

39

MVC PAT(91 >.Pf'T·I

.4,0

I.A

RTNOleXAl

ST

Ft:l'IN.xttl

CLEAR PRINT FIB.De RESTORE REM.. ROUTINE 01 AODREss.

c

OA3~ 31> EO CA4C OA39 F2 81 07 OA3C K EO OA4C Da40 F2 £7 04 OA43 !C El OA4C CA47 CO e? 0222

·2 43
··

....Q.I
.JE

" 45
46 ALTER tl!YI

8

MPLXXeX·EO· AL 'WEA
··7HPLXX.x·Eo·
HPLXX.X·Et· MALT

CURRENT HM..T -EO- ? .JUMP IF SOe 5ET UP FOR HALT -EO-
SET UP ftOR MALT -£1lfLINE MAt.T -EO- OR -El-·

0

OA._ 40E1

OA4C

48 MPl.XX oc
49

a2··oe1·

c

$0

B

BEGINN

~T IP NO STSttM -~.

r· \.

0

c

(

0

0

0

OATf:

lt!AUG74

EC NJ. · 82476?1

~G ID
PAG~

0&51 01
aae2 oo
OA53 0805

OA51 OA52 GA54

M55 CO 87 02IA OA59 49 DASA 28 8A51B 199& OA50 .&GAi

GA5F Cl _, OA.83
0Ae3 n ... GO oa64i Cl 42 1352

~- co 8? 130
OIUiE FO 3C X
i
OA7t 31 ·I l6A7 M'7!5 31 45 1699 OA7~ 31 42 I~
OATD 31 44 16CF

OA8-l 30 63 OAAt
OA85 00 01 OAAI OA9F
oaeiB co ea 0216

OA8F CO 87 021.l
OA4i3 C2
OA94 OF
OA'S!S 18A9 GA~7 4020
OA99 CO 87 1558 CA9D 03 OA9E F900
aaaa 0000
OllA2 FF
OAA3 CO 117 t3k OAA1' '9091 CAA'9 CO 8? 0222
OAAI> 4020 GAAF CO 8? 0216

oi>A93 OAM - OA96
GA98
OAMI

0AB3 30 ·3 l)AA1
Ql87 cc 01 1699
OABC CO 01 1338
0AC1 3C SC ID2t=
OAC!S OC 20 1D2E aozt:
OA~e CO 8'P l36C
OACF OC 21 l02F tece
OAO!S CO 87 t36C
OA09 O'( IL l02C tU&
OADF CO 8T 136C OAt::!I 3C SC 1D2" OAH OC 20 l02E 10.zt:'
·EO CO 81' l36C OAFI OC: 16 102· 1"9C OAF'P CO 8? 1382
U.Fl!I CO 9? 0222
GAFF 401!2
0801 cc; f f O·Ft

oaoo

52 .........

93 · RTtt01 · 54 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

ff·

·

56 ·

RDU"ftfllE GI

THE PllOlii8Atl SENSES FOR ~ - ·

·

5'7 ·

CARD ID 81TS -'1F900-·

·

ff·

·

59 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .- . .. . . . . . . . . . . . . . . . . . . ..

60 ATNOI DC

61

oc

62

CC

63

M

8

65

oc

66

oc

67

oc

68

DC

69

70

TIO

71

510

72

TIO

73

74

B

.,.,75
76

MPL
LID

.7.,.8.,

LIO
t..10

80

LID

..81
82 83

SMS CLC BE

Je..t·Ot·
...J&Lt·oo·
-.2CRTtl02I
...,.
at·e·
JL.t·Q· At..2CIDBtt't
.,_2·eu1·
x·······o· eun.x··2·
QUES
MOODOwX··s·
SNSO!eX·43· SN501(21e5'1SOl-2 LIN

AOUl'JNE ...sat t110 .........._ , ....,..a.-w·E,.MT"'IOle llEOl:lltlED ROU1"1tE 02 AOOeESSe
MANCii gr 2"41 IS NOi' REAOY. ISSUE li£SET TO ·a.EM· 3741 BRANCH · 3741 JS BUSY·
U:ST FC. SSWIO ON.. MU..T -t=F- IF Olla
SET FUlllCTJON llECISTBI TO DSAS NODE. Cl.EAR DATA TRANSFER llEC1S'l'ER·
Cl.EAA :..£1116TH COlltlT AE6JSTERe LOAD O&"TA ADDRESS AE&l~R.
5£')15£ TIME T!O.AllSF£9 t.lllES AJR -F900-. AR£ TIE ID 81TS CM ? AETUllll ,0 DCP IF JD Bl'TIS AAE ....

85

86

8

8?

oc

68

DC

89

DC

90 91 92

·oc
oc

93

DC

9'& SNSOI oc

9S

. oc

96

e

VT

oc

98

9

99

oc

100

e

101

102 SPECL 5"S

10'3

a..c

104

8NE

105

·v1

1,.0,.6,

·vc e

ICJS

SVC

109

8

n~
111 lt2

.~ 8...

113

..vc

114

e

us ocoo ....:

lt6

8

U?

9

118

DC

119

8

11..1·1s·
a..211oac1

...........
HALT

.. SH~o1 a··~·

MOOOOl2).SNS01

MT·Y
P11r1-st.·· sc·

PRT-S8(~31..Rl'l'-S"r

E'NHT1

PaT-trrt~t .......

Ef9tollCTl

P'R't-60(~·
9r:NTI

·

· .

.

.

.

N'l-!57 ···SC·

PR"l-58( ») ·P'R""°'S't

~f;tlTl

PR"l-69C231,.ttn'RO EPAne

MAl.T

-EXPECTED IC BITS· ·llCTUAL 10 81TS. POii« Ta llAP CIURT· -PACE ~.. EN1'RT I· aAaR ......... -20-.
SENSE ~AMS 1..'tNES Fm -0.00-· ·Re TR&'IS LillES ALL z~aa·s ~
SO .,._1h'T tlOT ·ADY ERROR IF NO'fe RIERATl: ;;. LINE OF ···S·
P91tn tCIGlt IT UP.
.........£ · LnE OF ···s.
,._INT 00 SYS~ -~$1!'1'. STMTe
1-.tNE ...._... -e:a-.
.....

u

·
----·-·---·--·----- ------- ....

'.:I
0

··

tBll MAt!l!Tt:NANCE OIAGMOSTIC PRCGaA·

PART tr&Oe
PAGE

( ) 4021 , 31'41 ATTACHM!!NT TEST WITH --AP COHM!CTOft-

$021

ERR LDC oe~eCT COCE

ADOR StMT SOURCE STATalENT

ERR ux oe..n:cT COOE (
(
(
c OBOS 02 0800 00 G807 0862

121 ..........
* 112223 ...R.T.N.0.2..·.....................................**............................

124 ·
125 · t26 · 12'1 ·

ROUTINE C2

WRAP-ARCUNO TEST. LOAD OATA TRANS REG WITH -AA- ANO SENSE TIE li'O TRANS LINES FOR AN
-F9AA-·

···· c

0805

128 ·

·

129 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

130 R'TM02 DC

t31

DC

XL1·02· XL iaoo·

~QJTINE NUMBER NO MANUAL INTERVENTION 9EQU!f.?ED

c

0906 0808 132

DC

Al.2UITN03 i

ROUTINE 03 AOt>RESSc

OSK CO 81' 021A
0870 ·· 061'1 25 0872 l~F CBT· 40A3
0976 CO 87 02U1 CBTA OS OSTS 12 OBTC 1956
087£ CO 67 1310

0870 0871 0873
C875
DB...,A
0)878
0670

189 190 191 192 t93
19·
19~
196 197 195 199 200 201

R

PPIN'"

DC

XL1·4t ·

oc

tL!·37·

!)C

ALHWRP)

1'.'C

JCL~·&OA!·

B

NtNT

oc n.1·cs·

oc

ILt·1e·

oc

AL2(PA.TJ

8

UUTI..

( ( (

oee,.;; oc 01 t 954 t &Ot

aecw co f!f'f 021a

°"'!'
mt·

·2ts

0Bt5 t90F

0817 40A2

CBtt; CC 97 02lA
oetD oe oete 12

OBlf' 195E

OBIS
0814 0816 Of3l8
OStD 091£ 0820

OE!2t CO e? 13Hl

0525 CO ST 13C3 08'29 FO 3C !iC

OB2C 31 45 1689 aB3C 30 43 0850
0634 OD 01 oeso OPE
08~ co 81 021 6

133 134
t~!'i
1'36 137 138 139 140 141 142
1··4·3
t·5
146 14T 148 149 150 151 152 153 154

MVC
e
DC
cc oc:
oc
8 DC .K
oc
e

!PA'f-2(2h-CAA
PPPIT D..1941·
n.t·3..,~
AL2CllRPt JCL2·40A2· Plf!NT
JIL t·os·
1t..1·1e· M.l!(PATI

L !C SNi
CLC SE

HF~A .. 11'4~" SNS02eJl·43'
SWS02( :IU s SNS02-2 LINIC

ST~ 'TEST PATTERN IN MEAOtNG·

PRIM' WRAP TEST HEADING·

0

0

0

CHECK FOR SSWHh HALT -FF- IF ON·

0

LOAO THE DATA TRANS REG WITH A -AA-· SENSii: t ' ° Tt:lAMS L !MES F~ -f-'9AA-·

ACTUAL SEWSE THE SAME AS EXPECTED ? QF'i'UJfN TO OCP IF OK·

0

cee2 CD eT tXS oae6 Fo ~ 3C
0889 31 65 USBT 088'.' 30 43 OBE2
CB~t 00 01 OBE2 GB1:0 0891' F2 Ot 36
OB~A 31 45 1609
os9E 30 ·3 oeee
08A2 OD 01 OSN! ~ OBAS CO Si 0216

CBAC CO 87
QBE!O C2 0681 1F CBBi! l~-4
QB84 .023

G2!A

155

156 · R<>UTJtllE 02 au;oR MESSAGE ·

0886 CO BT 1556

083E CO 8? OU A
0842 Cf "8·3 1e 0964 1925 OB4E 4021
0868 co 87 1558
Cl84C O::! Cl840 F9AA 086F 0000 0851 FF 08!2 c~ e7 139C oeSE 9UH ceee co eT 0222
085C 4021
oese co 87 021 6

151'

158

e

0642 159

OC

0943 160

oc

0845 161

OC

oe·T 162

oc

163

B

084C 164

DC

OS4E 165

oc

oeso 1.66 SNSO 2 OC

oest 167

DC

16a

e

085? 169

DC

1To

e

oeso 171

oc

1?2

B

IT:S

Rtltc'f KL 1·c2·
n.1·22·
M..201APCK'I
JCL.~··021·
EAf>m:<
JQ.. t·o:S·
n.2·F9AA" Jlll.2·0000· KLl·FF·
MAS:S JQ..::t·C$l61 8
MALT Jt&..ft4tt2t·
LfMt

POINT TO M61P Ot.MlT· ~AGe 9t6 .. eflfi'R'Y 1.
£-.oR ttM..T -21-·

O&eA 03
OB91! F900
aseo 0000
08Bf" FF
CJ8C 0 C 0 ff'I I 39C:
oec· 9192
08C6 co 81' 022'2
ClBCA 4023
oscc co e7 o.u 6

aeoo co 1!1' MIA

0

CJS04 C2
aeos tE

oeDE 1925

0

0808 4022

OBO· CO 8T 1558

0862 03 CSE3 00
096' oer·
caoe oc; 01 1 ff· t603

DATE

16AUGM

0862 0863 0665

174 175 . . . . . . .. .
1T6 o RTN03 O tTT ·····. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

11'8 ·
IT9 *
180 a

RC\#rtNE C3

·

WRAP-ARCUl!IO ft5T· LO-AO DA1'A TaANS EG WtTM ·

-55- AtllO SEtiSE TME UO TaAltS LINES flJR A

*

181 ·

-f'OS5-·

182.

·

163 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

18~ RTM03 DC

1es

cc

JIL.t·o3· xt.1·00·

ROUTINE NUMBER NO UNUAL 1NTER¥ENTION QEQUIAEO

186

DC

M..2C.RTN0·9

ROUTINE 04 M>OR£SS

1u8sTe

M¥C PAT-2(2)eC55

STORE YEST P&'ft131· , . IES~S.

0

OBI) 03

OBDF FOSS

aBEt 0000

0

OBE3 FF CJBE6 co 8T t84C

OBE8 919\

0

oet:· CO 8T 0222

CIBEE 4022
CIBf'O CO 87 0216
··OA'TE ·oec '4)·

20.!

203

20· 205
2"6

\.IC MF055ellt··S· SNS SNS03.·"·3·

207
~08
209

CLC .tNE

SNS03(2)eSNS03-2
ERD~

210 211 212

LIO f"OOOOeX"45 8 SNS SNSE'feX·43·

H3
216 2tS

CLC SE

SN5ET(2teSNSET-2
Lll\K

;!16

217 · ROUTINE 'l3 ERS:OP MESSAGES ·

1ne
219

s

~INT

0880 0881 0883 0895

220 221 222 223

DC

JQ..l&C2·

oc H.. t·:n·

DC

Al.2CTRLER)

DC

JCLl·4C23·

tt4

225

&

ERfiOlt

226

oc

11tt..1 ·03·

22?

DC

lltLi·F900·

228 SNSET . oc

xs..1·0000·

229

oc JCLt·FF·

1:30

fl

MAPS

oecs
OBCB

231
232 233
234

x .e
oc
B

JCL2··H92·
HALT
m..2·~023·
LI,_.._

235

236 EROTR 9

oe~ 237

DC

oeos 238

oc

0807 239

oc

0809 MO

OC

PRINT xt..t·c2· a1·22· AL2(WRPCKt
a.···022·

261

241!

B

OBOE 243

DC

OSEO 264

DC

OBE2 269 SNS03 OC

OBE3 246

DC

2·?

e

08£9 248

DC

a··

e

2$0

oc

r.u

e

ERtoOR JQ.. t ·03· Jll..2·F055" XL2·0000· at·FF· MAPS xt..2·919t · HALT n.2··022· LINC

EC ll:O· 826?65

· · · · · · · · · · · · · · · · · · · · ·· · · ·

PART NOe PAGE

5558423 2A

PRINT WRAP TEST HEAOING.

PfUN'f TEST PATTERN·
INITIALIZE THE 3Tat TEST FOR SSWIO ON· MALT -FF- IF ON. LOAD THE OATA TRANS REG WITH A -55-· SENSE THE TRANS LINES FOR -FOSS-· 010 Tt1£ DATA llRAP Ofl 'I JUMP IF 010 NCT. CLEAR ~HE OATA TRANS REG· SENSE THE TRANS LINES FOR -F900-· DID TME ~ANS LIMES GET CLEARED ? l<ETURN TO OCP IF SOe
PRINT TRANSFER RESET CHECK·

DUMP 1'0 TRANSFER LINES·
POINT TO 9'AP CHART·
-PAGE 919· ENTRY 2·
ERROR HALT -23-· RET\Jmt TC DCPe ~INT WRAP CHECK·
DUMP 1'0 TRANSFER LINES· -EllP£CTEO· -ACTUALe PCIMf TO MAP Ct4ART · -PAGE 919· ENTRY I· ERROt:I HALt -22-· RETURN TO DCPe

?ROG 10
PAGE

402-l 2A

· · · · · ·

· ···

·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

?ART 1'10· PAGE

5558423 3

374! ATTACHMENT TEST ~ITH -~RAP CONNECTOR-

E~~ LOC CEJECT COOE

ADDR STMT SOURCE STATEM~NT

(

r'
l

08F4 04 0!3F5 1)0 OBF6 OIJOD

ClBFB CO 67 02lA

OBFC 41

08FD cl

(

08FE 1977

OCOO .t.OA4

253 .;.*"'****··

254 $ F!'TN04 $

255 ·**~··~$$$~$~··**~**·*******~*·**********$******·****$$$~*******·*~*~**

256 ·

'*

257 *
2se ·
259 ·

ROUTINE C4

THE REAO & -RlTE CALL ORtVERS ANO lFO SELECTS ARE TESTED FOR ACTIVATION~

c

260 *·~~$-$$$~~·********~*~~·********·*~****~****~********~*~·******~~·****

OSF~ 261 ~TN04 DC

XL1'04·

ROUi!NE NUMSE~

OBF5 262

DC

XLPOO·

NO t<l.ANUAL INTERVENTION REOOJRED

08Fi' 263

DC

AL2(RTNC5l

ROUTINE 05 ~ODR£SS

26'<

265

a

PRINT THIS TEST HEADING.

OBFC 266

oc

XL 1 ~41 ·

OBFO 267

oc

IL 1e33'

r,

OBFF 268

DC

AL1HH004M

1.'c..,,,·'

OCOl 269

oc

XL~·40A4*

OC7t CO t'i7 ocet c2 oce2 12 ocs~ tAt5 CCla!." 4024

021A

ece? co 8? 1 sse
QCS8 03 OCSC FOOO OC8E 000{'
OC90 FF
OC<;;i CO aT 1 :"·9C OC~'5 9231 OC~? CO 87 0222 OC9E ~r.2~ OC90 CO 67 02&6

~70

OCO:? CO 67 021.A occt: o!5

OCOE>

271 272

OC07 1 t.
ocoe 199!

OC07 OC09

273 274 275

OCOA CO e7 1310

276

'277

OCOE CO 87 13C3

278

0Cl2 ~O 3C 3C

279 280

OC1!!: F3 41 00

281

OCH! C 1 4 2 t 3 ~ 2

(

OC JC: 30 43 OCSF

282 28~ 284

OC20 00 01 OC8F OC8D

285

OC26 F2 01 54

286

s

PRINT

oc x1..1·os·

t'C

IL1·26·

oc

e

out:s

510 TJO SNS

x·oo·.x~41·
81.JSY.X' 42· SNS <l 11 ~ X w4 3 ·
SN Still. ( 2) · SNS4A-2
E~iiP.

INtTIA.LlZE THE 3741
~E5T FOR SSW!O ON. HP.Li -FF- if' C<N.,
1 $SUE A ~EAD Clo.LL·
BRANCH IF 3741 BECOMES BUSY. SENSE !/C TRANS LINES FOR -FOOO-.
READ CALL DRIVER ACTIVATE 7 9R/<NCH lF NOT·

CC Al CO 67 CCA5 C2 OCJ.6 l 0 ".JCA'? 1902 OCA9 4027

021 A

OC1'5 CO 87
OC11F O~ CCBC F900 oca2 0000 OCB4 rF
OCB!'; CC 87
CC89 <;;i242
".lCSe CO 87
QCBF ·ri21
occt co er

155EI
t 39C 0222
c21e

oa OC2~ F3 40
OC2C 30 43 OCB3
OC3C 00 01 OC8~ OC8l CC36 F2 fl? 68
OC 39 F3 ~2 00 OC3C 3() tJ3 OC07
OC40 00 01 CCD7 ocoe
OC46 F2 01 7C
CC49 F3 40 08 OC4C 30 43 OCS:S
OC50 OD 01 OC83 OCBl OCS6 F2 01 48
OC59 C2 C! OCFB OC50 F3 i:.:i FS OC60 70 43 00
CC~3 OD 01 OCF8 OCF9 CC69 F2 01 70
OCISC 30 43 OC!33

2S7 28S 2e9 290 291
2~2
293 294 295 296 297 296 299 300 301 302 30:!
3()4
305 306 ::ic-;
308
309 310 311

S!C SNS
cu::
.JNE
S!O SNS
Cl.C JNE
sxo
SNS
cu:
JNE

x· cs·~''""(>'
SNS4<!!.X·43·
x·oo·.x·<t£·
SNS4c.x·43· SNS4Cl21oSNS4C-2
ER<!C
~·ca· ,)l(·.e.o·
SNS44.x·~:.·
SN$44i2).SNS44-2
E;:<~4

C.LC JNE
5NS

>i · F6 · · X · '"< ::! · 0 ( ., X R l ) · X · ~3 ·
SNS4E(2)oSNS4E-2
ER4E
SNS4"<·><·ii.~·

RESET READ CALL OP.IVER. SENSE !/0 n(ANS LINES fO~ -F900-4

DID TRANS LINES GET RESET ? JUI'!? IF NOT ..

tSSU~ ~ ·RITE CALL· SENSE l/D TRANS LINES FOP -FFOD-·

WRITE CALL ORlVEA ~CT!V·TE ?
BPANCt~ l F NOT·

~ESET V~YTE CALL DRIVEP.d SENSE lfJ T~ANS LINES FOR -FQOO-&

DID TRANS LINES GET ~ESET ?
0
SET UP TC no tNDtRECT SENSE.
DO A CONTROL 1 TO ACT. SE~ECT L!NES· SENSE TRANS LlNES FOR -F9F8-·

L'O SELECT LINES ·Cll\iATE ?

era.NCH IF NOT~

SENSE 110 TRANS LINES FOP -F900-.,

c

OC';5 CO 87
OCC9 C2
OCCA 13
OCCB 1A03
occo 4025

02 ! A

OCCF CO 87
OCD3 03
OC04 rFOO
OC!:l6 COOO
o:::oa FF
CCC9 i:O E7
ococ -;:;232
CCOF CO 87 OCE3 ·025 OCE.5 CO 87

15'58
t39C 0;"22 0216

OCE9 OCEO OCEE OCEF OCF1

CO fl7 C2 11 1A26 4026

021A

OCF3 CO 87 OCF7 03 OCF8 F9F6 OCF A 0000

1558

OC70 00 01 OC93 OC8l CC76 F:? 01 28

CLC ..INE

SNSl'iif ( 2),. !5t<S44...-2 ER<i14

DID TRANS LYNES GET RESET ?
JUloliP lF ~OTo

OCf'C FF OCFO CO 87 139C 0001 9241

CC79 CO 87 0216

B

* * 3?9
320

ROUTINE 04 ~R~C~ MES!OAGES

RE1URN TO OCP,.

ooc3 co e7 0222 0007 4020 00 09 (. 0 87 02 1 ~

321
::!:<-.<:: r.!<4A

Ot.Sl

nca2

0~!34

DC

QC8l"·

328

OC~l:l 329

01'.'.80 3:~c

t'JC

OC8F 331 !'NS~A oc

0(;90 :_::32

333

CC96 334

:?:SS

OC<:!C 3"'16

3".!17

:!':!S

::'39 ER44

e

OCl\5 340

DC

oc-..6 ::!41

DC

OCA8 342

nc

OCc"' :!'43

DC

3~4

345

a

OCl\F 346

!>C

oce1 311.7

!:JC

OCB3 348 Si<S"" DC

CCB<l 34Y

oc

350

e

.351

oc

354'.

0

occo 353

DC

:!54

355

356 ER4C a

OCC9 357

oc

- OCCA ::!158

DC

occc ~!:"'!t<;

:..·c

CtCCE 360

oc

361

362

!?

OC03 363

DC

ocos 364

oc

CC07 365 $NS4C DC

ocos 3C6

DC

367

9

OCOE 358

DC

369

B

:no

DC

37 i

B

372

373 E1'<4l'O

"I

OCE.0 374

DC

OCEE 375

DC:

OCFO 376

DC

OCF2 377

DC

375

379

e

OCF7 300

DC

OCF9 381

DC

OCFl3 382 SNS4E DC

OCFC 383

oc

384

6

0002 385'

DC

386

8

oooe 387

DC

'.!188

e

PR!NT
t ~'i.. 1t C:':!~ H.l;lt4'
AL Hi'tORHt} in_2·4n2.i,:
FR~OJ:!
XL'!.· 03' ~l. fi' FD(! 0 · Xl.2·C')C0* Xt.1 ;'FF! MAPS Xl2'9231· "IAl T XLE· .e.-02~ · l_ i f~K
PR !N't
XL t · c2· YL t · 29·
AL2(UNS!:'T) XLi·4027'"
EPF<O;;< XLt·n3·
ll:L~<F900·
l<L:2 · OOOu',.;;._ 1 1 FF· fl'A!=S XL:?·9242" HAL f XL.:·.ctC?.7· Li f\K
PE< 1N1 XL 1 "C2~
lL 1 · i 9 · AL&« WOf<I V 1
XL~ g 402!5 ~
ERROR XLt·03 9 XL2·FFOO·
Xl. c·0001)0
Xi. l aFF · MAl=S XL~ '92:!2 ·
~Al.T
XI.. 2 · 4025~ LIM<
PR JN'!
XLl~c2·
1Lltt7· AL2UOSLT) !C:L- 1 4026·
ERPCA
XL 1~03 · XL;;· F9F8 1
xL~·oooc·
XL t ·FF o
~A\;:5
).'1..2'924t· HALT
XL~"402~·
LINK

L

CATE

16AUG74

15NCV74

EC NO· f'247155

824870

PROG 10 PAGE

402-1 3

0 DATE
EC NOe
0

l6AUG74 824765

t5NOV74
524870

OART NO.. PAGE

5556423 3A

DUMP 1/0 TRANsFER L!tlES .. -EXPE.CTEO.., -ACTUAL .. PO!NT TO MAP CKARTe -PAG~ ~23. ENTRY ~. eR~OR HALT - 2 · - ·
ou~P TRANSFER LINES·
-E"XPECTEi>. -At::TUl.l e POJNT TC MAP CHAPT. -PAGE 924· ENTRY 2o
ER~G~ H~LT - 2 7 - , RETU~N Ttl OCP .. PRINT WRITE DRIVER CHECK·
DUMP TRANSFEP LINES. -EXPECTED.
-AC'TUALo. POtNT TO ~AP CHAP.To -PAGE 923· EN7RY 2· EQ~OA HALT -25-.
AETlmN TO DCP.
DUMP TRANSFER LINES.
-EXPECTED.. -ACTUAL·
PO[NT TC ~AF CHART. -PAGE 92·· ENTRY !. ERPOA MALT -26-o
pqoG to PAGE

l
·

c
IBM ·Al~TENANCE D1AGN05TIC PROGRAM
I
'-

PART NO. PAGE

· ISM MAINTENANCE DIAGNOSTIC PROGRAM
0

PART NC. PAGE

5~58423 4A

4021

37·1 ATTACHMENT TEST WITH -WRAP CON~ECTOA-

EAR LOC OBJECT CODE

ADDA STMT SOURCE STATEMENT

4021

3741 ATTACHMENT TEST WITH -WRAP CON~ECTO~-

0 ERR LDC ceJECT CODE

AOt>R STMT SOURCE STATE~ENT

/ ·._ ~
(
(
c

0000 05 OOCE 00 OCOF OOFl

0011
001~
OOHS CO!? 0019

CC! E!7 4!5 24 t<;BS 40A.5

021A

001e co e7 1310

OOtF CO 87 13C3 0023 FO 3C 3C

JD~6 F~ 41 OS
002'9 F3 43 02
oo;::c 30 45 OODF
0030 30 42 OOOA 00?4 30 43 ODDS

CC38 3C 00 ODOF
003C 3C (JO ODOA

0040 00 01 OODF ODDO 004E F2 01 60 oo·9 oo 01 oocA oooe 004F F2 01 57 0052 00 01 ODDS 0003 0058 F2 01 4E

oose 31 41 1E">ee OD5F F3 40 OD
ooe2 30 42 C097
CID~e 30 45 0092

0000 ODOE 0010
0015 0016 0018 ODtA

389 . . . . . . . ..

c

* 390 · ~TNOS

391 $ ......................................................................

~2· 393 · 394 · 395 · 396 ·

ROUTINE CS

EOt SIGNAL IS GENERATED TO TEST 1,0 OISCONNFCT· THE FUNCTION REGISTER

···

IS SET FDR 6 USEC RESET OF DISCONNECT.

· "

c
0

339978 R··T·N·0·5···D·C·····K·L·.·t··o·s·······$·········R·O·U·T·I·N·E··N·U·M·B·E·R······················· 0

399

oc

XLt·oo·

NO MANUAL INTERVENTION REOUIREO

400

DC

AL2(RTN06)

ROUTINE 06 ADDRESS

401
402 403 404
405 406

e

PRINT

DC

XLl·4S·

DC

IL t·36·

oc

AL2CHD05)

oc

KL.2·40A5·

PRINT OISCONNECT TEST HEADING·
()

407
408

e

IN1TL

INITIALIZE THE 3741

409 410 411

B HPL

TEST FOR SSW 10· HALT -FF- IF ON.,

412

4U3

StO >e·cs·.x··t·

4!.4

SIO x· <l2· .x··3·

415

SNS SN SSA·><' 45"

416

SNS SNS5e.x·42·

417

s~s SNSSc.x·43·

0 ISSUE READ CALL WITH RESET £ ENABLE·
00 CONTROL l TO GENeqATE EOT·
SENSE DIAGNOSTIC BYTE FOR -0800-.
SENSE STATUS/LCP FOR -eioo-.
SENSE 1/0 T~ANS LINES FOR -F902-e

418 419

tcVI SNSeA.x·oo·

CLEAR THE OATA TRANS REG·

0

420

MVt sNs5e.x·oo·

CLEAR THE LENGTH COUNT REG·

421 422 423 424 425 426 427

CLC .INE CLC .JNE
CLC .JNE

SN55A[21.SNS5A-2 EROS SNS5BC2)e5NS5B-2 ERC5 SNSSC(2)eSNSSC-2 ERCS

DIAGNOSTIC SVTE AS EXPECTED ?
~ANCH IF NOT· STATCS BYTE AS EX~ECTED ? BRANCH IF NDTc J/O TRANSFER LINES AS EXPECTED ?
BRANCH IF "40T.

428

429 430

LIO HOCe2.x· 41 1
SIO x·co· .. x··o·

431

St.S SNS5E.,x·42·

432

SN~ SNS5o.x··s·

SET FNCT REG TO OJAG ~ODE· 6USEC AST
DD GENER·L 3741 ~ESET. SENSE STATUS FOR -8100-c SENSE DIAGNOSTIC e~TE FOR -0000-c

C:D99 CO S7 l39C 009D 9272 C09F CO 87 0222 ODA~ 4C29 ODA5 CO 87 0216
ODA9 OC 01 164~ ODDF ODAF OC 01 16·c ~O~A ()065 oc 01 1e·o c~cs
ooee co 137 021A ooeF c2
ooco 13
OOCl te30 aoc~ ·02e
ODCS CO 87 13ED '!)OC9 1656
ooce tee7
ooco cc e7 t5se
0001 03 COD2 F902
coo· 0000
0006 02
C007 ElOO 0009 0000 0008 05
()DOC 0800 ODOE 0000 OOEO FF ODE1 CO e7 !39C
ODES ';271 -OOE7 CO e7 0222
wee ·02a
ODED CO S"I" 0216

OD9E OOA4
OOBF
ooco
OOC:! OOC4
ODCA ooc;c
ODDt
0~03
()005 0006 000.3
OD?~A
ODDS
0000
UDOF ODEO ODE6
ODEC

457 456 459
460 461

e

MAt:-5

DC

XL2·9272·

R

t1A1. '\

DC xu:··-029·

e

LltlK

POINT TO MAP CHART. -l'AGE 927e ENTRY 2· ERROR HALT -29-·
RETUf;!N TCI DCP·

462 463 EROS
~A
465

fll"#C MVC MVC

TEST-4(2) .Sl.!S5A T'.'.;ET-2(2) .SNS56 TEST(2 t.SNS5C

STORE OlAG BYTC~OAT~ TRANS REG. STORE STATU~ BYTE/LENGTH COUNT RECe
STORE 1,0 TRANSFER Lt~es.

466 46? 468
469 470 47J

e

l='RiNT

oc

XLl·C2·

oc

iLP 19·

oc l.L2CEDTJ

DC

Xt..4'·4028"

P~INT EDT CHECK·

·72 473 474
47~

'fl

C1'PAT

i>C

A~2(EXPYS

DC

AL2(FR,.S0';)

CHECK TO SEE IF DATA MATCHES PATTERN -TABLE ~OOReSS o~ PATTERNS· -TABLE ADDRESS OF ME5SAGESe

476

477

B

47B

DC

479

DC

480 SN~SC DC

481

DC

482

cc

483 SNSSB OC

484

DC

485

oc

486 SNSSA DC

487

DC

4~8

B

489

oc

490

e

491

oc

492

e

493

494

495 ·····, ......

ERf;OR
XLl·03' X·-c·F902" xL2·ooco· >CL l . 02. xL.:.:·e1co·
XL~·oo~~~
XL!·os·
xL2·oeoo·
XL2·0000· XL!·FF· MAFS )tL2 9 927i · HALT xt..2··02e·
t. INK

DUMP THESE REGISTERS1/0 TRANSFER LINES. -ExPECTEC. -ACTUAL· STA1'US BYTC:.,,LENGlH COUNT REGo -EXPECTEOe
-ACTUAL·
OJAGNOTSTtC BYTE/DATA TRANS REG. -EXPECTED· -ACTUAL·
POINT TO MAP CHART. -PAGE 9~7· ENTRY le ERROR MALT -~&-·
RETURN TO OCP·

444459990967908·*$*.·R··T*N$0~6·R··O*U·T·IN·E···CE·········GW··EIT·NK·E·RA·A·iSE·l·OE·O·T~·E·~U·u·SI·NC·G·A·lL·1··,0~··3 ··S·E·L·E*C*T···············*··

531 ·

·

433

C06A 00 Ol 0092 0090

434

CLC

SNS~D(2).SNSS0-2

tlD70 F2 O! 00 0073 OD 01 009T 0095

4!5 436

.JNE CLC

EllCSA SNS5E(2).5NSSE-2

'-·

CO?-; F2 01 04

437 438

.JNE

~CSA

OC?C CO 87 0216

439

S

Ll~IC

* 440
·4l · ROUTINE 05 ERROR ~ESSAGE

442

coeo co 87 021A ooe4 c2

443 ERO!SA S

OD84 ···

oc

PRINT XLt·c2·

ODE'S 12
ooee u.E2

0095 445 0087 446

DC

ILl·UJ·

DC

AL2110DIS)

0088 4029

0089 44T

DC

XLl'402<;·

448

008A 008E COSF ()091

CO 87 CS
~000
0000

t55B

449

B

ODBE 450

oc

0090 45!

oc

0092 452 SNSSD DC

£Qf:CR
XLt·os·
XL2·oooo· n2·coo.o·

0Dc:?3 C2 C09· 8100 C096 0000

0093 453

DC

0095 454

oc

0097 455 SNSSE DC

)(l.1.·02· XL2·8JOO'·
X\.2~t>OOQ·

oose FF

OD98 456

DC

XLl 8 f'F'

01AGNOSTIC BYTE AS EXPECTED 'I BRANCH tF NOT· STA~US eYTE AS EXPECTED 1 BRANCH IF NOT·
RETURN TD OCP·

ODF! 06

ODF2 00

0

ODF3 OE'iA

c

OOFS CO 87 021A CDF9 45

OOFA 31

CDFt
OOF2 ODF4
ODF9 OOFA

550023

······················~·········**···*·································

RTN06 OC

XL! 1 061

ROUTINE MIMBER

504

OC

XLt·oo·

NO ·ANUAL INTERVENTION REQUIRED

505

OC

AL2CRTN07t

ROUTINE 07 ADDRESS

606 507 SOB 509

e

PRINT

DC

DC

IL 1·49'

PAINT EOT HEADING·

PRINT SENSE QESET CHECK·

c

ODFB 1810 COFO 40AE

OOFF CO e7 t!'JtD

OOFC OOFE

510 511 512 513

DC

AL2c~ooe1

DC

B

INITL

INITIALIZE THE 374l

OE0'3 CO S7 l3C3

OE07 F!> :3C 3C

DUMP THESE ~EGISTER-

0

OIAGNOSTIC SYTE/OATA TRANS REG·

OEOA F3 41 05

-EXPECTED. -ACTUAl.e

OEOO F3 43 04

0

()E 10 30 45 OE3e

STATUS BYTE/LENGTH COUNT REGISTERe

OE14 ~t 41 16BB

-EXPECTS>· -ACTUAL·

()Ele 3C 00 OE3S
0

OElC OD 01 OE3e OE36

514 SIS 516 517 518 519
520 521
522 523 524

e

CUES

HPL

SIO
SIO x·o·· .. x··!·
SfllS Sh'S6·11!·45· LIO MOOe2.x·· .. MYt

CLC

TEST FCR SSW lO· HALT -FF- IF ON.
ISSUE A SIO READ CALL· ISSUE A CONTROL l - l'O SELECT 3·
SENSE DIAG-OTR FO~ A -oeoo-.
00 6 USEC RESET WITH FNCT REG. CLEAR QA~A TRANS REGISTER·
DIAGNOSTIC evTE AS EXPECTED ?

(
t>ATE EC NO.
(

teAUG7· 82·765

15NCV74 824870

PROG ID PAGE

402-i 4

c OATE EC NOe
0

1EAUG74 e247E5

PROG ID PAGE

·02-1
4A

·( · · · · · · · · · · · · · ·· · · · · · · · · · · · · · ·

·

·

·

· · · · · · · · · · · · · · · · · · · · · · · · ·~· . · · · · · ·

0

r i
L

!BM MAINTENANCE DIAGNOSTIC PROGRAM \..

4021

3741 ATTACH~ENT TEST WITH -WRAP CONNECTOR-

EAR LOC oeJECT CODE

ADDA STMT SOURCE STATEMENT

PAAT NO. PAGE

5558423

IBM llCA_INTENANCE DIAGt:llSTIC "OGRAM

5 0

4021
{)

3741 ATTAC~MENT TEST WITH -WRAP CONNECTOR-

ER~ LOC OBJECT CODE

At>On 'TMT SOVRC:F. STATEl4£NT

PART NO. PAGE

5558423
5A

OE22 CO 81 0216

OE2E CO e7 021A

OE~A C2

(

0£2E OA

OE2C HEC

OE2E 402A

OEJC OE34
CE3!: OE37
CE39
OE:SA
OE3E
OE40
OE44 OE46

CO E7 05
oeoo
0000 FF CO e7 9311 CO S7 402A CO 87

1558
139C 0222
0216

r
\_

(

OE4A 07

OE4e 00

OE4C OEOO

OE4E CO 87 021 A

OE!:2 45

OE53 29

OE54 1AB3

,-

OESE 40A7

1.

OE Se CO 87 1310

OESC CO 87 13C3
OE60 FO 3C 3C

OE2A OE2B OE20 0E2F
OE34
OE36
OE38 11 £ 3 9 OE3F
OE45
OE4A OE48 OE40
OE52 OES3 OESS OE57

525 526

SE

Ll"1C

RETURN TO DCP IF ~.

527 · ROUTINE 06 ER~QR MESSAGE ·

528

529

B

PRINT

530

DC

XL t ·C2·

531

oc IL 1·10·

532

DC

AL2(EOTACT)

S33

oc

XL2 '402A·

534

535

e

536

DC

XL1·os·

537

'-C

XL2'0800·

S38 S1':S6 DC

XL2 1 0000·

'S39 540

DC

XLl'FF·

e

MAFS

541

DC

XL2'931 I'

542

s

HALT

543

DC

c
PRINT EOT Cl'4£CK,;

C.;
DUMP OJAGNOSTtC,DATA TRANS REG ..

-EXPECTED· -ACTUAL.

C¥"

POINT TO MAP CHARTe

c

-PAGE 931· ENTRY I·

ERROR HALT -2A-e

544

B

545

RETURN TO OCPe

546

547 ·········

548 · RTN07 ·

.

549 ······································································· ,.

550 ·

·

551 *

RCUTJNE CT

1;-o TRANSFER LINES I ~ 3 ARE

·!

SS2 ·

CHECKED FOR ~ESETTING.

·'

553 ·

·

554 ························,., . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

555 RTN07 OC

556

oc

557

cc

sse

559

B

560

DC

561

DC

562

DC

563

DC

564

565

8

566

XL1"07 1 XL:·oo· AL2(RTN081
PRINT
xt..t··s·
IL 1'41 · AU! ( MOC 'l'J XL2'40A7'
INITL

ROUTINE NUMBER

NO MANUAL INTERVENTION REQUIRED
ROUTINE oe ADDRESS

PRINT TRL'S t. 3 RESET TEST.

0

0

c
INITIALIZE THE 37~1

567

B

QUE5

568

HPL x·!c·.x·3c·

569

TEST FOR SSW 10· HALT -FF- IF ON.

OEA6 3C Fl lA96 OEAA 3B 01 OE02 OEAE F2 e7 ce oee t 3C F3 lA96 OEB5 3A 01 OED2 OEB9 CO S"' 021A OEBC C2 OEBE 20 OEeF IAA::.J OECl 402E
OEC3 CO 87 IS!SS
OEC1' 03
oece F9oo oec.. 0000
Ot=CC FF OECO CO 87 139C OEOI 9312 OED! CO e7 0222 OED? 402E OE09 CO 87 0216
OEDO oe
OECE 00 OEDF OF9F
OEEJ CO 87 021A
cees ·!i
OEE6 2D OEE7 IADO
OEE9 ·o.ae
OEEB CO 8? 131 D

DEBO OEBE OECO OEC2
OEC7 OEC9 OECB
OECC OE02
t'ED8
OEl>D
OFOE oeEo
OEE5 OEE6
oeEe
OEEA

~93 · ROUTINE 07 ~ARON ME~SAGES ~ 594

595 ER7A 596
597

fol\tt
$BF
J

MPC7.x·o1· :)+11

SET UP FOR TR!.. I RESET CHECKe SET FOR ENTRY 2 MAP ~~r-ERENCEe

598 ER4/B 599
6t\0 601
602 6C3 604 605 606 607
6:>8
609 SNS77' 610 611 612 MP07
f;13
614 615 6t6

rHil SBN B DC DC t·C DC
a
De
oc c:
DC
B
oc e
DC
e

ONCTS··3.xcF3· MPC?.x· 01 · PRoNT XL t·c2· IL1'32· Al..2(0NOTS) XL2·402E·
Ft:<t;OR XL 1·03· XL2·F900·
XL2·oooo·

SET UP FOR TRL 3 RE~ET CMECKe !'\ET FOR ENTRY 3 ~AP REFERENCE. PRINT TRL 1'~ RESET Ct1ECKe
(SAME ID AS RTN081
DUMP TRAftS LINES.
-EXPECTED· -ACTUI< Le
POINT TO MAP CHART. -PAGE 931, ENTAV 2'3· ERROR HALT -2E-·
RETURN TO DCP.

617 618 ·········

619 · RTNOB ·

.. .. ..····..··· 662210 ·*·*~~···· ·········~~····· ····························~··

·

622 ·
623 ·

ce RCUTl~E

.,o TRANSFER LINES ·· 6 g ? ARE
CHECKED FOR AESE\"TING·

· *

624 ·

·

662256 R··T·N·O·P·.·o·c······X·L·J···o·e·~···············R·O·U··T·IN·E··M··JM··B*ER*·················--···

627 628 629

DC

XLl·Oo·

DC

Al.2(RTN09)

NO MANUAL INTERVENTION REQUIRED ROUTINE 09 ADDQESS

630

6

PRINT

631 632

OC

XLt·45'

DC

IL t· 4!5·

633

OC

A\.2(HCC8)

634
635

DC

XL2'40A8·

636

B

INJTL

OF.63 31 41 16SO
OE67 31 45 169e
OEEe 31 45 1699
OE6F F:! 43 10
OE72 30 43 OECS
OE7E 30 43 OECB
CE7A OD 01 IJECe OEC9 OE80 F2 01 23
CE83 :31 45 16Al OES7 31 45 16'i19 oeee F3 43 10 eeee 3C 43 oece
OE92 30 43 OECB
CEc.96 00 01 OECB OEC9 OE9C F2 01 12
t1E9F F3 40 00

570 571 572 573 574
575 576
577 578
579 580 581 582
583
584
585 586
587 588
589
590

LIO HOtee.x··i·
LIO H00011X 1 45·
LIO Hocoo.x··s· sio x·to·.x·43·
SNS SN5771X·43·
SNS SN!77,X'43·
CLC SN577(2)1SNS77-2 JNE ER7A
LID H00041X'4! 1
LIO HOOoo.x··s· s10 x·10·.x··3·
SNS SN!771X 1 43' SNS SN5771X'43·
CLC SN!77C2l1SNS77-2 JNE Etna

SET FNCT REG TO LATCH TRL t.3. LOAD DATA TRANS AEG WITH -01-.

0

CLEAR CATA TRANS REG.

ISSUE CONTROL 1 START 1'0· 00 ONE DUMMY SENSE TO STALL· SENSE TRANS LINES FOR -F900-e
DID TRANS LINE 1 RESET ?

. 0
" '.,...·.-

BRANCH JF NOT·

LOAD DATA TRANS REG WITH -04-.

0

CLEAR DATA TRANS REG.

tS~U£ SIO CONTROL I TO RESET TPL ~. 00 DUMMY SENSE TO STALL·

0

SENSE TRANS LINES FOR -F900-.

010 TRANS LINE 3 RESET 7

0

BRANCH IF NOT.

00 GENERAL 3741 RESETe

0

OEEF CO 07 13C3 OEF3 ti:o ::!!C 3C
OEF6 3 I 4'1 1680 OEFA F3 43 10 OEFO 30 43 OF80 OFOt F3 43 08 OF04 30 43 OF8D OF08 F3 43 10 OF OB 30 4:l OF8D OFOF 30 '43 OF80
OF13 OD 01 OF8D OFee OF19 F2 01 30
OFIC F3 43 20 OFlF 30 43 OF8D OF23 F3 4'3 tO OF26 30 03 OFBD OF2A 30 43 OF8D

637 638 639 640
~41
642 643 644 645 646 647 648 6A9 651) 651 652 653 654 655
656 657

B
·HPL
LID SIO
s~s
sto
SNS SIO SNS SNS
CLC
JNE
StO SNS SIC SNS SNS

OOES
x·3C·,x·3c·
HOlB8eX·4t· x·10·.x·43t SNS88.JC·43·
x·cs·.x··!·
SNSe8.x··~·
x·10·.x·43· SNSee.x·43· SNS88eX·43·
SNS88(2,e!NS88-2 ERae
x·20·,x·4!·
SNS88oX'43'
x· 10· .x·43·
SN!88oX'4!·
sNsee.x·43·

TEST FCR SSW 10· WALT -FF- tF ONe
SET FNC7 REG TO LATCH T~L le2·3· ISSUE SIO CONTROL I TO CLEA~ LOGIC. STALL BEFORE DOING THE .NEXT SIO· 00 CONTROL. 1 TO LATCH~ 4·
STAL'-. BEFORE DOING NEXT s;;o.
DO SIO CONTRCll.. 1 TO RESET TRL·Se DC DUMMY SENSE TO STALL. SENSE TRANS LINES FOR -F900-.
DIO TRAHS LINE 4 GET RESET ? · BRANCH IF NOTe
tSSUE CONTROL l TO LATCH TRL 6· STALL BEFORE DOING NEXT SIOe DO SID CONTROL l TO RESET Ti:tl..·Se DO OU.MY SENSE TO STALL· SENSE TRAN$ LINES FOR -F900-e

CEA2 CO f!7 0216

591
592

S

Llt.K

RETURN TO DCP.

0

OF2E 00 Ot OF8D OF8B

658 659

CLC SNS88C2)oSNS88-2

010 TRANS LINES GET RESET t

OF30 F2 Cl 31

660

.JNE ER8C

BRAllCll IF NOT.

OAT~

16AUG74

EC NO. 82476!5

1SNOV74 824e7o

PROG ID PAGE

0 OATe
0 EC NDe

seAUG74
824765

PAOG ID PAGE

-r

tB~ MAJ~TE~ANCE DIAGNOSTIC ~ROGRAM

PART ..o.
PAGE

5558·23 6

IBM MAINTENANCE DIAGNC~TIC P~OGRAM
0

() 4021

374\ ATTACHMENT TEST "ITM -W~AP CCNNECTOR-

4021

ERR LOC OBJECT CODE

ADDR STMT SOURCE ~TATEMENT

\_,
ERP LOC ~e~ECT COt>E

OF37 F~ 43 40 OF3A '!O 43 OFeD OF3E F:! 43 tO OF41 30 43 OFBO OF4!5 30 43 OF80
(
OF49 00 01 OFSO OFBB
OF4F F2 01 21
OF52 F3 40 OD OF!:!: C() tl7 0216
(

()F59 3C OA OF8C OF50 3C F4 l A<;6
OFC:l 3C 14 OF<i4
OF65 F2 87 13
OF6e 3C F6 1A96 OF6C 3C 15 OF94
OFTO F2 87 08

uF73 3C F7 tA96 OF77 3C t 6 OFc;4

[...-

OF7B CO 87 021A

OFTF C2

OF80 20

(

OF81 IAA:!

C'F83 402E

CF~5 CO 87 1558

(

OF89 03

OFBA F900

OF8C COOO

OF8E FF

v8F CO 87 139C

OF93 '9?'00

(

OFCJi!5 CO 87 C222

CF99 402E

OF\:8 CO 87 0216
(.

c

c

OF9F 09
OFAO 00 OFAl 10E3
OFA3 CO 87 021 A
0FA7 45 OFAB 38
OFA9 1868 CJFAB 40A9
OFAD CO 87 1:!110
(
CWBI CO 87 13C3 OFBS FO 3C 3C

AOOR STMT SOURCE STATEMENT

661 662 663 664 665 666 667
6£)8
669 670
6Tl 672

510 x· ·o· ····3·

SNS SNS8e.K·431
StO x· 10· .x·43·

SNS

sN~ee.···:!·

SNS SNS88t11C··3e

CLC .1111E

SN!@@(2).!NS8B-2 EReF

510 B

DO CONTCIOL I TO LATCH TR\. ? · STALL BEFORE DOING NEXT SIO· DO 510 CONTqOL I TD RESET TRl.·S· DO OU~MY SENS~ TO STAl.L· SENSE TRANS LINES FOR -F900-·
t>tO TRANS LINE T GET RESET ? BRANCH IF NDTe
00 GENERAL 3741 RESET· RETURN TO OCP.

OFBC 31 45 t6C1

OFCO 31 45 1699

OFC4 SO 43 1000

0

orce oo 01 1000 too~

OFCfi F2 01 2A
(J

OFOI F'3 41 00

OFO.t !O 43 1051
0 ClF08 00 01 10~1 16C~

OFD!: F2 01 3E

T29 730 73& 732 ?33 ?34
1'3!1 736 T37
n0
73q
740 '741

LIO LIO
s~s
CLC
JNi:
510 SNS
CLC .JNE

HOOFF·K·4S·
~oooo.x··s· SNS9A.~··3·
SN~9AC2te5NS9A-2
£.RCQA
x·oce.x··t·
SN~~9.X·43·
S~S99(2le~FC04
Ea098

6?3
67· · ~OUTtNE oe ERGOR MESSAGES ·

675 676 £R88 677 6T6 679

sNsee-t .~·oA·
ONCTS-l 3e X·F4·
MPOe.x·1··
PRT88

SET UP ExPECTEO ~ANS \.IMES·
SET UP TAl. 4 CHECK· SET FOR fleAP · ENTf'lV REFER£NCE. GO PRINT EAAOR·

OFEI F3 40 08

0

Of'£4 Fi! 42 00

OFE'r ~O 43 10~1

0 .

CFEe oo 01 1ost t6Ce

OFFl F2 01 30

?42 ?43 74-4 T0.5 746
747 748

sic
SNS
C\..C
,JN£

x·oo·.···2·
5NS~9ea·4!·
St!S09( 21 .HFEOO ER09C

680 681 ~BD
682 683

WI
M\11 .I

ONCTS-l'3eX·F6·

SET UP TRL 6 CHECK· SET FOR MAP 5 ENTRV REFERENCE·
PRINT CHECK MESSAGE·

0

684 685 686

MVI MVl

ONCTS-l3·X'F7·
MPCe.x·t~·

SET UP TRl. 7 CHECK· SET FOR MAP 6 ENT~Y REFERE'NCE·

687

688 PRTee 8

OF7F 689

oc

OFBO 690

DC

OFB2 691

DC

OF84 692

DC

693

e

OF69 694"

DC

OF88 C!595

oc

OFBD 696 SNS88 DC

OFBE 69'1

DC

698

e

OF94 699 MP08 oc

1'00

8

OF9A 701

DC

702

e

PRINT XL 1·c2· IS..1·32 1 ALHONOTSI ICf...~· 402e I ERf'CA
x1..1·0000· XL t·FF· fll!Am:S

PRINT TRANS LINES OtD NOT RESET·

DUMP TRANSFER LINES·

0

-E><PECTEO·

-ACTUAL·

POINT TO MAP CHAQTe -PAGE 931· ENTRY &e5e0R 6e ERROR HALT -2E-·

~TURN TO OC'9e

703

oF9F 01-'AO OFA2

T04

705 ·········

*.............. * 770067 ...R.T.N.0.9..·.....................................................

· 708 · · 709 ·
1'10 ·

ROUTltote C9

TEST ASILITV OF READ g WAITE C~LL
TO RESET TRANSFER LINES 3 & 4·

.~

· 711 ·

Tl2

··············································~·--················...·· ?13 RTN09
714

OC oc

715

DC

kLt·09 1 XLt·oo· AL2C~TN0A)

ROUTINE NVMBER NO MANUAL INTERVENflOtit REQUIRED ROUTINE OA ADDRESS

c c
0

Of"F4 F3 40 OD OFF'1 CO 07 021 E
OFf'B co 87 on"
OFFF C2 1000 12 1001 1A3S
100~ 402F
1005 co 37 l55B
1009 03 tOOA Feoc lOot: 0000 lOOE FF tOOF CO E!T 139C 1013 9331
tou: co e7 0222
1019 40~F 101e co e? 0216
l01F OC 01 tOSO t6C9 102S 3C F4 IA~6 1029 38 Ol l05E! 1020 CO S'7 l03F 1031 OC Ol 1050 l6CS tO!'P 3C F3 U.96
to~a '3A 01 t ose
1031" CO 81' 021A 1043 C2 10. . 20 1045 IAA3 1047 0030

Of'FF 1000 1002 l004
1009
tooe
lOOD lOOE
101·
IOlA

T49 750 751

s10
B

~·oo·.x··o·
LU·«

1'52 ?5~ · ~TIHE 09 ~AOR MESSAGES ·

"f54
TSS ER09A e

756

DC

757

oc

?58

oc

T59

oc

PRJMT
a 1·c2·
1Lt9l81 AL2CDISCKI XL2·40?-F·

760

761

B

762

C:C

'163

0(:

T6· SNS9A oc

765

oc

766

e

767

O<.

766

e

1'69

DC

.n,,o..

e

772 ER09B ..-vc

7.,7.,3.

MVI
seF

'T?!i

·e

776 EA09C MVC

777

MVI

778

SBN

f;~ICCR
KLt·03·
a2·Feoc· XLi·oooo·
)(t..t ·F~"v MAl'=S
XL~·933t·
HALT
a2··02F·
Ll~C
SN~~9-1Ctt.MFC04
ONCTS-13·ll·F4·
MPc~.x·c1·
·+te
SNS99-l(~t.MFEOO
ONCTS-l3eJC·F3·
MPc9.x·o1·

779 790 781 782 783 T84

tl

PRIMT

DC a ..c2·

O<

tt..1·32·

oc

~HONO'TSI

oc

xt.2··030'

OFA7
OFAB
OFAA
OFAC

716 717 718 719 720 '1'21 722 723 T24 725 726

e cc oc
DC
DC
e
B HPL

Pt<INT Xl..1'45· 1Lt·56·
AL.2CM0091
Xt..;i··OA9'
INITL
CUES JC · ?C I · " · :!C.

PRINT R£SET TEST KEAOING·
INITIALIZE TtlE 3741 TEST FC~ ss· 10. MALT -FF- IF ON·

0

1049 co 87 1556

10.0 0,

104£ 0000

0

1050 0000

10!:2 Ff"

1053 co 87

IOS'P 9332

1059 co 81' 0222

lOSD 4030
( ) t0'5F CO ff 0216

785

786

e

t040 T8T

o.:

1049 789

oc

1051 ?89 SNS99 oc

1052 790

:.>C

?91

B

1058 '192 MPOO oc

?93

8

tOSE 794

oc

795

e

atROR XI.I ·03c Xl,1!·0000· XLe·OO()O·
·x·t".:l:·sFF·
X\..:i·9:!!2· MAt..T n.2··030· Llfltl

OF88 31 41 t6BF

T27 726

L

(
o.ne

lEAUG'74

t5NOV74

re NO. e2·76s

e24E70

LIO HDE82eK·41'

seT FNCT REG FOR EVEN Pl'RITY t:'fC.

P'ROG 10
'PAGE

408-l &

e OAT£ l!C NO.
0

ts.mv'I·
8248?0.

(

· ·.

(·, '

·

·

·

·

·

·

·

·

·

·

·

·

·

· · · · · · · ·

LOAD DATA TRANS REG WITH -FF-· CLEAR DATA TRANS REGISTER·
SENSE 1~0 TRANSFER t..t"!ES FO~ -Feoc-.
TR~NSFER LINES AS EXPECTED ? BRANCH JF NOT·
ISS~ REAO CALL TO JU!S£T TRt. 4a
SENSE lAAMS LINES FOR -f'co.-.
TRANSFER LINES "5 EXPECTED 9 eRANCH IF NUf. 00 SIO RESET TO 3T4t IS~UE WRIT£ CAl..L TO RESET TRL 3e SENSE T~A.MS LINES ~ -F't';OO-· TRANS9ER LIN£5 AS £~TEO ? SRANCH IF NL1'·
DO GEWER~ 3?~U RESf!T· RETURN 1'0 OCP.
PRINT INITIALIZATION CHECK·
O\!Mf> TRANS LINES. -EJCP£C'fED· -ACTUAL· POINT TO MAP Ct4ARTe -PAGE 933e EN'nt~ l· £~RCR MA'-T -2F-. ~N TO OCP· SET uP FOR READ CHECK· SET ~AP ENTRY 2 REFEREMCEe SET UP FOR WRITE CMECK· SET MAP.Etn'flV 3 lt£FEJU;KCE· PRINT TRAtlS LIME X CMECKe
OUtlP TRANS 1..ltES· -EXPECTED·
·ACTUAL·
POINT TO MAP CMARTe -P~ 9331 £tnll'Y 2,~
ERROR ttAl.1' -ao-.
RETI.IRM TO OCP·
· · · · · ·

·

·

· -~

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

tS~ MAI~TENANCE DIAGNOSTIC PROGRAM

PART NOe PAGE

5558423 7

· · IBM MA!~TENANCE DIAGNOSTIC PROGRAM
0

PART NOe PAGE

5558423 TA

4021

3741 ATTACHMENT TEST ·tTH -WRAP CONNECTOR-

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

c 402 l

374& ATTACHMENT TEST WITH -WRAP CON~ECTOA-

ERR LCC OBJECT CODE

ADDR STNT SOUQCE STATEMENT

( (
10E3 OA 1064 00 1065 1115

797 ..........

.~.-..._'_;

* 798 RTNOA ·

799 ········~··························································· 0 ··

eoo ·
801 ·
802 ·

RCIUTJNE CA

TEST RESET OF 1,0 DtSCDNENCT LATCH WITH 1'0 TRANSFER LINES 3· Se

* · ·

803 ·

*

c
0

804 .......................................................................

1063 805 RTNOA DC

1064 806

DC

1066 807

OC

XL! 9 0A· XLt·oo· AL2(RTNOE>

ROUTINE NUMBER NO MANUAL INTERVENTION REQUIRED
ROUTINE OB ADDRESS

IOF1 CO e7 021A 10F5 C2 lOFE 24 10F7 1000 IOF9 4031
lOFS CO 87 1558 tOFF 03
11 oo Feoo
1102 0000 1104 FF

ee,5 EROA e

IOFS 81';6

DC

10F6 867

oc

JOF8 86C

cc

lOFA 869

DC

870

871

B

lOFf- 872

DC

1101 S73

DC

1103 S74 SNSA~ DC

!\04 875

or.

PRINT XL t ·c2· IL I ·36' ALHPSDISJ ><L 2 ·~O~t ·
ERt;OR
!'!:t. s·03· xL2·Feoo· xt.=:·oooc·
XLI ·FF·

PRINT DISCONNECT CHECtCe
DUMP TRANSFER LINES. -E)(.PECTEDe -ACTUAL·

1067 CO 87 021A 1068 45 106C 49 1060 ! BBi

1068 106C 106E

eo8
809 810 8!1 812

e

PRINT

oc

oc

IL t·T3·

oc

AL2CHOOA)

PRINT DISCONNECT HEAOINGe

e...-.._.,.,.

11 C5 CO e7 l39C
uoq 9351

u oe co eT ,_,222

1 lOF 4(131

II 11 CO e7 0216

HOA 1110

e7'6 877 e78
e7CJ
880

e

NAFS

DC

XL~ 1 9'351'

e

HALT

oc

XL2·4031 ·

a

PCJNT TD MAP CHART. -PAGE 9351 ENTRY le ERRCiR HALT -31-·
RETURN TO OCPe

lOEF 40AA 1071 co e7 131D

1070

813 814 815

DC

B

INITL

IN1TlALIZ£ THE 3741

·*····**** 881
S82
IH~'3

RTNOB ~

1075 31 ·1 1699 1079 F3 41 00 107C Cl 42 109A
1080 C() E7 021A 10e4 C2

1084

816

817

LIC

818

SID

819

TIO

820

821 DAMBSY B

822

DC

x·oo·.x··1·
SHCBSY1>C·42 1
PRINT XL 19C2'

REMOVE 3741 FROM DIAGNOSTIC MOOE. ISSUE A PEAD CALL TD CAUSE BUSY.
BRANCH ON eusv.
PRINT 3741 BUSY CHECK·

nH oe

1115

888845 886

*****····R·C·U·~·I·N·E···oe·········U·*SE***,,*0**T*R···N·S·F·E·R·~L·I'N·E··S··1 ··&··2··T·O···············*·

887 *

CAUSE END OF TRANSFER (EOTJ ·

·

* 888

·

ee9
890

R·T·N·O~B···D·C·····X·L~1·1·0·B·1·······~········R·C·U··T·IN·E··M··JM·S·E·R················~······

r - ";.:

toss 10
10Ef: 186F

1088 4035

,.,.

108.41 CO 87 t39C

I,

toeF c;:11~5

1090 co 87 0222

t~;· 4035

(

1oc;E CO 87 0216

1085 1087 1089
lOBF
1095

823
824
825 826 827 828 829 830

DC

IL 1· Hi·

DC

AL2CeSV)

l)C

XLC-4035·

a

MAFS

DC xu2·93ss·

B

HALT

oc

>C1..2'403S·

B

LJMC

POINT TO MAP CHARTe -PAGE 935, ENTRY Se ERROR HALT -35-.
RETURN TO OCPe

1116 00

0

1117 1190

l ! 19 CO 87 021 A

0

1110 45

11 lE 41

11 lf 1EF2

!121 40AS

1116 1118
tllD 11 tE U20 1122

891 892 893 894 895 896 897 898

DC

XLl 1 0C?·

DC

ALC:(RTNOCJ

e

PR!NT

DC

XL1'45·

DC

tL1·6S·

DC

AL2<t:ooe>

DC

XL2'40Ae·

NO MANUAL tNTEP.VENTION REQUIRED ROUTINE OC ADCRESS.
PRINi EOT HEADING.

toe;~ F3 40 00 109c c1 ·2 1c80

10A1 CO E7 1310 ,r..,

J0~5 ~:; ~1' 13._::;,

lOA<; FO 3C 3C r '-
lOAC 31 41 lE>CO

1000 31 45 1699

1094 F3 41 00

1067 F3 43 04

108A 31 45 l6Al

(

lOEIE ~1 45 lf>99

10C2 30 43 11 03

10CE 00 01 110~ 1101 lOCC F2 01 22

831

832 SHDBSY SIO

833

TIC

834

835

a

836

837

B

838

HPL

839

840

LIO

841

LIO

842

SIC

843 844

StO LIO

S45

LIO

846
e.7

SNS

!48

CLC

849

JNE

x· oD· .JC··o·
!>AflBSYeX 1 42'
INITL
HOees.x·<111·
H0000 9 X'45'
x·co·.x·41·
x·c4·.x·43· H0004·X'45 1 HOOOO.X 1 45· SNSAA.X 1 43 1
SN:!:AA(2),~NSAA-2
ERCA

DO SID RESET TO CLEAR THE eusv.
BRANCH OUT Ir STILL BUSY.

GO INITIALIZE THE 3741
0
TES~ FOR SSW 10·

HALT -FF- IF ON.

c

SET FNC.T FOR EVE~ PARITY. 6 USEC ~ST

CLEAP OATA TRANS REGISTER.

ISSUE A READ CA~L·

ISSUE START 1/0 CONTROL l·

LOAD DATA TRANS REG WITH -04-.

CLEAR DATA TRANSFER REGISTER.
SENSE TRANS LINES FOR -Feon-.

TRANS LINES AS EXPECTED ?

c

BRANCH IF NOT.

11 23 co e7 t 3 to
1127 CO 87 l3C3 1128 FO 3C 3C
112E 31 41 16CS 11 32 :!! l 4 t 16C? 1136 F3 42 Cl H 3<,il 31 45 1690 ll 3D 31 45 1(99
11"'1 30 45 uee
114! 00 01 1188 1189 1148 F2 01 28
114E 31 41 16CS 1152 :31 41 l 6C7 1156 F! 41 01

899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917

e
B HPL
LIO
L t!J 510
LIO LIO SNS
CLC
.JNE
LIO LIO SIO

INtTL
cues
1"43C82·Jl'4'' H3C80.x·41·
x· 01 1 .JIC'42· HOC02 0 x·451
HOCCIO.x··s· SN!ee.x·4S·
SN!BBC2loSNSBB-2 EROS
H::!lcez.x··1· H3teo,x··t·
x~o1·.x··1·

1Nl~IALIZE THE 3741
TEST FOR SSW IOe HALT -FF- IF ONe
SET FNCT RF-~ FOR 6 USEC RESET. RELOAD THE FUNCTION REGISTER. ISSUE A WRITF CALL· LOAD DATA TRANS REG WITH -02-· CLEAR OATA iRANS REGISTER. SENSE DIAGNOSTIC/DATA TRANS -0800-o
DIAGNOSTJC,DATA TRANS AS EXPECTED ? BRANCH IF NOT.
LO·D FUNCTION REG FOR 6 USEC RESETo RELOAD FUNCTION REGISTER. ISSUE READ CALLe

10CF F3 41 00
1002 F3 43 04
100~ ::.'H 45 1llC"'
1009 31 45 1699
1000 30 43 11 03

850 851 852 853 854 855

SIO SIO LIO
LIO SNS

:r.· co· .x·4 t ·
x·o4·,x·4~·
HOOlOwX'45' HOCOOeJC'45' SNS AA. >C'43'

ISSUE A READ CALL. DO START t/O CONTROL l· LOAD DATA TRANS REG WITH -10-. CLEAR DATA TRANS REGISTER· SENSE TRANS LINES FOR -FBOO-e

1159 31 45 1698
11 so 31 e.s 1699
1161 30 4!' UBS
1165 OD 01 llSB 1189 1168 F2 01 OB

918 919 920
921 922 923

1. IC LIO SNS
CLC .JNE

HOOOloX·45· HOCOOoX·45 1 SNSBB,X 1 4!i·
SNS88(2)o5NSBB-2 EROS

I DAO DATA TRANS REG WITH -01-· CLEAR DATA TRANS REGISTER. SENSE DtAG,OATA TRANS F()R -0800-·
DJAGNCT~TIC,DATA TRANS AS EXPECTED ? BRANCH JF NOT.

lOEl 00 01 1103 1101 10E7 F2 01 07
lOE.41 F3 40 00 tOEO CO 87 0216

856 e57 858 &!!159 860 861

CLC JNE
SJO 8

SNSAA(2J.SNSAA-2 EROA
x·oo·.x·4c· LIMC

TRANS LINES AS EXPECTED ? BRANCH IF NOT.
00 GENERAL 3741 RESET. RETUPN TO DCPo

0

116E 31 41 UBB

U72 F3 4-0 OD

117f co e7 021e
0

924 925 926 927
928 929 ·

LIO SIC
B

HOC82oX·4t· x·oo·,x·40·
Ltf\K

ROUTINE oe ER~OR MESSAGE ·

SET FUNCTlON REG FOR 6 USEC RESETe 00 GENFRAL 37·t RESETe AETUPN TO OCPe

* 862
863 ROUTINE OA ERROR MEe£AGE · 864

0

U 79 CO 87 02U

It TD C1'

930

931 EROS 8

l l TD 932

OC

PRINT XL1'C2·

PRINT EOT CHECK·

L

DATE

16AUG74

15NOV74

EC NO. 824765

e24e7o

PROt; ID PAGE

402-1 7

0 DATE EC NDe
0

IEAUG74
824765

l5NDV74 6248?0

PAOG ID PAGE

I
l
lo
·
(

teM MAtNTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

0 5556423 8

IBM MAl~TENANCE DIAGNCSTIC PROGRAM

PART NO. PAGE

5558423 8A

4021

3741 ATTACHMENT TEST WITH -WRAP CONNECTOR-

()40~1

3741 ATTACHMENT TEST ·ITH -WR4P CONNECTOR-

ERR LOC oeJECT CODE

ADDA STMT SOllRCE STATEMENT

cRR LOC OB,ECT CODE

ADDA STMT SCUPCE STAT~MENT

117E 13

117F 1S30

Het -032
(

1183 co 87 1558

1187 05

f
\._

11ee oeoo

118.l 0000

11 ec FF

(

11 ec co e7 J39C

1191 9352

c

1193 CO e7 C222 1197 4032

1199 co 87 0216

(

c
11 c;;o oc
11 c:tE 00 1l9F FFFF

llAt CO 87 021A ll A!: 45
1l All 37
11A7 IC29 11A9 40AC

11 Ae CO 87 1310
11 AF CO e7 13C3 ue3 FO 3C 3C

11 BE 31 45 1665

{-

\.

llBA 30 43 1640

11BE 31 41 tu,c;

11 C2 31 45 I Ees

11 C6 ::30 43 164f!

11C/.. 39 01 164C

(

11CE F2 90 CE

1101 38 01 l64A 1105 F2 90 C7

nee 31 41 u;,,7

11 DC 31 45 1699

l1EO 31 41 lEAB

llE4 F:! 43 10

l1E7 :31 45 16Al

llEB 31 45 1699

11EF 30 43 1656

(

'·

t1F3 :!IC 06 1Et!4

11 F7 30 06 1656

llFB F2 01 BB

11FE 31 41 16AO 1202 30 43 1656

12C6 3C 00 1654 l20A 30 00 1656 t20E F2 Ol AB

L

DATE

IEAUG74

EC NO. S247E"5

· · · ~-  er--·

117E 933

DC

ILl919·

1001

HBO 934

DC AL2CECT)

1211 31 41 16AF

1002

LIO H01AO.X·41·

1182

935 936 937

DC

XL~··0~2·

e

ERf'OR

c
DUMP DIAGNOSTIC,OATA TRANS REGISTER.

121!: 31 AS 16CC 1219 31 45 1699 1210 30 43 1656

!003 \004 1005

LJC!

~oooe.x·45·

LIO Hoeoo.x··s·

Sl"IS SNSoc.x··3CI

1187 938

DC

1189 939

DC

use 940 SNSBB DC

XL 1·05·
XLc·oeoo· >a...c·oooo·

-EXPECTED. -ACTUAL.

c

122! 3C OA 1654

122! 30 CA l !'.56

1006 1007 1006

M\11
Cl.I

s;.,~oc-2.··o.-·
SNSOC.J1: 1 0A·

118C 941 942

cc

XL J ·FF·

B

MA;::s

PO·I NT T 0 MAP Ct1ART ·

I"''\

1229 F2 01 80

~,

1009 1010

JNE ERCC

1192 943

DC

JCLc·93S2 9

-PAGE 935· ENTRY 2e

122C .31 41 16AO

1011

:... l'!l 1-1:>1so .. x··1·

1198

944

B

9~5

DC

940

e

941'

948 ·········
* 949 RTNOC ·

HALT XL2'40:32 1 LIMO:.

E~ROR HALT -32-e RETURN TO DCPe

12~0 30 4:!! 1656
0

12':!!4 :!IC O:l 165"

\238 30 00 lM'·6

0

12:3C F2 01 7A

101~
1013 1014
1~15
1016 1017

sws SN!;OC .:X 1 43·
"'"' SNSOC-2$x·oo·
CLI sNsoc.x·oo·
.JNE EROC

995510 952
953

·***·

·

·

·

·

·

········
ROUTINE

···
CC

·

·

*

·

·

·

··································
TEST EVEN PARITY ~NO WRAP VARIOUS TO THE J,O TRANSFER LINES.

·

········
PATTERNS

·

·

·

· * · *

123F 31 41 t6AO 1243 :n 45 16AS 124.7 31 ~s t699
124E 30 43 1656

1018 101q 1020 102,

LIO HOteo.x·4t·
LI::! H0:>20oX'45° LIO HOC00.xc45·
SNS sNsoc.x·43 1

954 ·

~

1022

1190 119E

995565 ·R·T·N·O··C····o·c·······X··L·t···o··c··········*******RO*U*TI*NE**NU*M*BE*R*****'"'*··············

957

DC

XL1 1 00·

NO MANUAL INTERVENTION REQUIRED

0

124F 3C 22 16!!4 12'53 30 22 1656 12!:7 F2 01 SF

1023 1024 1025

MVt CLI JNE

~N!0<:-2.x·22·
SNsoc.x·22· EROC

11AO 958

DC

XLc·FFFF·

L~ST ROUTINE.

1026

959

125A 31 41 16A7

1027

LIO 1-1orei:.. >1·~1 1

960

e

PRINT

PRihT LATCH TEST HEADING·

l25E 3() 43 1656

1028

SNS sNsc.c.x·.t;3·

11A5 961

DC

><t.1945 1

1029

11A6 962 UA8 963 llAA 964

DC

1Ll'55·

DC

AL2(HDOC)

DC

XL2 9 40AC· ·

1262 3C 00 1~54

0

1266 30 00 16'56

l26A F2 Ot 4C

1030 1031 1032

MYI CLI JNE

SNsoc-2.>e~co·
5Nsoc.x·oo· ERCC

965

1033

966

B

INtTL

1260 31 41 l6AO

1034

LIO t101eo .. x·4'1·

967

1271 31 ~5 1661

1035

l.10 HOC40·)C·45·

968 969 970

B HPL

cues
X · :!C · · >C · :!IC e

CHECI< FOR ssw10. HALT -FF- IF DN.

1275 31 45 169~

0

1279 30 43 !656

1036 1037 1038

LIO SNS

HOOl.\Oa>Ce451 SNSOC .x·43·

971

LIC HOC2C.X 9 4S·

972

SNS TEST.X·43·

973

LIO HOe80.x··1·

974

LIO Hoc2c.x··s·

·ns

SNS TEST-2e X · 4:!·

976

LOAD THE DATA TRANS REG WITH A -2C-.

SENSE (/0 TRANS LINES FOR -F82C-.

0

PUT 3741 IN ~VEN PARITY MOOE~

LOAD SlME TEST PATTERN -2C- IN DTR.

SENSE liO TRANS LINFS FOR -F92C-.

0

1270 3C ·2 IE!!4 1281 30 42 1656 12e5 F2 01 31
1288 31 41 t6A7 128C 30 43 1656

1039 1040
1041
1042
1043
1044

"1VI
CLI JNE

SNSOC-2.>t 1 42 1 swsoc.x··2· EROC

LIO HOOeo.x··t· SNS SNSOCoX'43·

977 978 4;79
qeo

TBF .JF
TBN

TEST-l·ll'Ol' PARITY
TEST-3e:X· 01'

PARITY BIT OFF AS EXPECTED ? JUMP IF NOT·
PARITY Bt7 ON AS EXPECTED ?

0

1290 3C 00 1654

1294 20 00 1656

1298 F2 01 tE

1045 1046 1047 1048

MVI SNSCC-2.:it·oo·
CLI sNsoc.x·oo·
JNE EACC

981

.IF

PAl"ITY

982

'983

LIO Hoceo.x··1·

98·

LIO HOooo.x··s·

985

LIC HOl90eX 1 41'

.JUMP IF NOT.
PUT 3741 IN JUST DIAGNOSTIC MODE. CLEAR DATA TRANSFER REGISTERe SET SLAVE LATCH IN FNCT REG.

1298 co e7 021e
0

1049 1050 1051 1052 · I 053

B

Ll~K

· ROUTINE OC E~ROR MESSAGES

986 987 988

SIO x· 10·.x·4:!!'
LIO H0004eX 1 4!: 1 LIC HOOOO.X'45°

ISSUE CONTROL l START 1'0· LOAD -04- IN DATA TRANS PEG· CLEAR DATA TRANS REGe

129F CO e? 021A
0 12A3 C2 12A4 OD

1054 PARITY B

J2A3 1055

DC

l2A4 1056

DC

PAINT
XL PC2° 1Ll 1 13 1

989 990

SNS SN!Oc.x·431

SENSE TRANS LINES -F906-.

l2A5 t A38

0

l2A7 4033

l2A6 1057 12A8 l~~e

DC

AL,CPRCK)

DC

XL2'4033·

991

~VI SN!oc-2.x·o6 1

12A9 CQ e7 139C

1059

e

MAFS

992 993

CLt JNE

SN~ OC · ll · 0 6 ·
EROC

TRANS LINES AS EXPECTEO 1 .JUMP IF NOT.

12A(J 9353

0

l2AF CO C7 0222

12AE 1060 I 061

DC

XL2 1 935:P

B

HALT

994

1283 4033

1284 1062

DC

XL2 1 4033'

995 996

LIO H01eo.x··1· SNS SNSOc.x·431

RELOAD FUNCTION REGISTER. SENSE TRANS LINES -F900-a

l2ES CO 87 0216
0

1063
1064

B

t.l~K

997

1289 CO 87 021A

1065 EROC B

PRINT

998 999 1000

MVI SN!Oc-2.:11·00· CLI SN!oc.x·oo· .JNE EROC

TRANS LINES AS EXPECTED t .JUMP IF NOT·

l2BC C2

0

12BE IE

l2BF l9FO

l2BD 1066 12BE 1067 l2CO 106e

DC

XL 1 ·c2·

DC

IL l 130·

or.

AL2(STRC)

e

PROG 10

402-l

DATE

1EAUG74

l5NCVT4

PAGE

e

EC NO. !!24765

0

824870

SET UP FU!llCTION ~EGISTERe LOAD -08- IN DATA TRANS REG. CLEA~ DATA TRANS ~cG· SENSE TRANS LINES -F90A-e
TRANS Ll~ES AS EXPECTED ? .JUMP IF NOT., RELOAD FU~~TION REGISTER. SENSE TRANS LIN~S -F900-·
TRANS LINES AS EX~ECTED ? JUMP IF NCTe SET FuNCYION ~GtsTe~. LO~O -2C- IN D~TA TRANS ~EG· CLEA~ ·.!UT DATA TRANS REG. SE~SE TRANS LINES -F922-·
TRANS LINES AS E~PECTEO ? .JUMP IF NCT. PUT 3741 IN DIAGNOSTIC MOOE. SENSE TRANS LINES -F900-.
TRANS LINES AS EXPECTED 7 .JU..P IF NOT. SET UP FU~CTION REGISTER. LOAO -40- IN DATA TRANS REG. CLEAR OATA TRANS REG. SENSE TRAN~ LINES -F9~2-·
TRANS LIM.':$ AS EXPECTED 't .JUMP IF "<LlT·
PUT 3741 IN DIAGNOSTIC ·oce.
SENSE TRANS LINES -F900-.
TRANS LINES AS EXPECTED ? .JUMP IF NOT· RETUPN TO OCPe
PRINT PARITY CHECKe
POINT TO MAP CHAATe -PAGE 935. ENTRY 3. ERROR MALT -33-e RETURN TO OCPe ~INT SENSE ChECI< ·
PROG ID PAGE

402-1 8A

· · · · · · · · · · · ·e· · · · · · · · · · · · · · ·

. ~

.

·

· · · · · · · · · · · ·---· · · r · · · · ·- . · . , . · · · ·-· · · ·

teM MAINTENANCE D1AGNCSTIC PROGRAM

PART NOe
PAGE

e 5558423 9

IBM MAINTENANCE DIAGNCSTIC PRO~RAM

PART NO. PAGE

4021

3741 ATTAC~MEhT TEST ·ITH -WRAP CONt<ECTDR-

ERR LOC OBJECT CODE

ADDR STNT SOURCE STATEMENT

,,__ 4021
\.)

31'41 ATTACHMENT TES't ·tTH -WRAP CON!oiECTOR-

ERR LOC CS.IECT COCE

At P STMT SOt.·taCt: :S.T ATENENT

(
(
(
(
(
( (

12C1 12C3 12C9 !2CD 1203 12C7 1200 12El 12ES
12E~
12EF 12F!5 12F9

4034 OC 11 CO 87 OC O~ CO e7 oc OE co e7 C2 02 C2 01
OC 01 OC 01 CO 87 1438

1039 1377 1034 136C 1037 1377 165E !037 1439 1438 140E

17ES 1640 1e2c
1E54 te!5E

12C2 1069 1070 1071 1072 1073 1074 1075 1076 1077 107S 1079 1080
12FA 1081

DC
MYC
e
MVC
e
MYC
B
LA LA
MVC
MVC
8
DC

XL:i·4034 1
PRT-·?C 18, .NCD3 EPf<NT2
PR'T-52( I CJ .EB! EPf:NT! PRT-49(15)1BJTS EPJ;NT2 WORK.XR2
PRT-49 · )(R l
xPH2, .sNsoc-2
ACTC2J.SNSOC StTSNF AL2( ACT)

PRINT TRANS LINE HEADING.
PRINT eei ~~AOING.
PRih"T BIT LABLES. SET UP OUTPUT ADDRESSESe
STORE EXPECTEO BYTES· STORE ACTUAL eYTES. CALCULATE STATUS OF ACTUAL·

12FB CO ll7 l36C

1082

B

EPf;NTi

?RtNT THIS STATUS.

12FF OC OA 1024 l7A7

1083

MVC PRT-68(11)1ERS

13C5 CO e7 143C
1309 co 87 1377

1084 '1085

e

CM FARE

e

EPl'NT2

CALCULATE ERRtm BITS. PRINT THESE BITS.

1300 CO e7 139C

1086

e

MAPS

POINT TO MAP CHART.

1311 9:!54 1313 CO S7 0222

1312 108?
1oes

DC

XL:i·93S4 9

a

HALT

-PAGE 9~5~ ENTRY 4. EFmOR HA~T -34-.

0

1317 4034

1318 1089

oc

XL2·4034'

1319 co e? 021ti

1090

e

LI"K

RETURN TO OCP.

1091

1310 :34 08 1337 1321 31 41 16A7 132!5 31 42 1699 1329 3t 45 1699 1320 F3 ·O OD
1330 c 1 ·o t33e 1334 co 87 0000
133e co 87 02u
!33( C2 1330 t2 133E 1f!52 1340 403E
13412 CO S7 139C 134E 9071 134E CO 87 0222 !34C 403E 134E CO @7 021E
13f2 co lil7 021A
1356 <:2 13~7 00 13!:E 15F 135.e 403F
!35C CC lil7 139C 1:36() 9522
13f 2 co 87 0222
!36f" 403F 1::iee co e7 0216

11009923 *···lN·t·T·L···*·········****************************·············~···········*

1094 "********
* 1095 *
1096

THIS SUBROUTINE IN1TtALIZES TtE' 3741 3EFORE A TEST ROUTINE IS EXECUTED.

* *

*

11009978 ·IN··JT·L····ST······1N·*T·L·+~3·.A·P·R··***********S*A*V*E**R*E$T*U*R*N**~A·O·O·R·E·S·S·.······~···+·····

1099

LlO HOCso~~··t·

SET FU~CTION M:G TO DIAGNOSTIC MOOE

1100

LIO H0000.x·42·

ZERO LENGTH COUNT REGISTER.

1101

LIO HOCOO.X·4S·

ZERO DATA TRANSFER ReGtSTEP.

1102

SJO x·oo·.~·40·

00 GENERAL StO RESET TO 3741

110:3 t!-04 INTL

TIO
e

t~T~ov.x··o·
···

MAKE SURE 3741 IS READY BEFORE TEST.

1105

1106 ********$*******·······~············********************************···

* 1107 T?OERS 4

·

* li08 * i1oq

*****····· *

SUBROUTINE PRINTS OUT TIC E~RORS.

~"; ~
,v,..,

1110 ****************************···~·····$····**************··~······~···*·

1111 NTROY B

PRINT

PRINT 3741 !SNOT .7:EADVe

133C 2112

DC

XLt·c2·

1330 2113 l33F !!t4 1341 1115

DC

IL1*te·

DC

AL2(NCROY)

DC

XL2'403E·

c

1116

e

M~~s

POINT TO MAP CHART.

134? 1117 1l18

DC

XL2 8 907l8

8

Ho\l. T

-PAGE 907· ENTRY 1· ERROR HA.f'T -3e-.

0

1340 1119 1120 1121

DC

XL2'403E'

B

l. IN*<

RETURN TO OCP.

C\'

1122 BUSY e

2356 1123

oc

1357 1124

cc

?f:INT
XLI ·<:2· JL! 1 13·

PRINT 3741 IS eusv.

1359 1125 1358 1126

DC

ALUBISY)

oc

Xl.2·40:!F·

1361 1367

1127
1128
1129 1130

B

M.llPS

oc

>CL.2·9522'

e

HALT

cc

XL2 1 ~03F·

POINT TO MAP CHART. -PAGE 952· ENTRY 2. ERROR MALT -3F- ..

1131 ll32

8

LINK

RETURN TO DCPa

c

136C 34 OS 139e
1370 3C i:1 !36E 1374 F2 S7 13
1377 34 oe 1399
1378 3C E2 l3BE 13'7F F2 87 08
1~e2 3· oa t39o
138E 3C ~6 1 :!eE

138A CO t:!7 1:':18£ 00 t'"JBF 5l' 1::590 t06l!
1392 OC SA 1~9S CO 87

021A
106e 0000

1069

l39C 34 OB 1640 13AO 3!5 01 1E40
13A4 te 02 tA4F 00 13A9 te 03 iA50 00 13AE se 02 lA51 01
!38= 18 03 1A59 01 13Be CO 87 021A 131?C f~ 13EtC 22 13BE 1A!5A 13CCi 00 @7 02
13C:! 34 oa i3D7 13C? 3S 1!0 C20A 13Ce F~ 1C OA 13CE OE 01 1307 169F !3C4 CO e7 0000 130e 3D C2 0200 1:3CC CO Ol 1304 1 :3EO 3*5 01 1307 13E4 4C 01 02 168~ 13E9 CO 87 1304
13ED 36 08 1698

111!3387 . *E*P*P*N~T*l **ST····~?·R··lT··+·3·..·A·R·R·············S·TO··RE.R $E·T·~··N··A·D··D·R·F·s·s·. ········..·····

1139

~VJ

~l~E.x·et·

SE~ UP TO SPACE t ~J~E·

1140

J

PRhT

1141 EPS<NT2 ST

1142

14V!

1!A3

J

PRTT+3.~RR
L1 ~1::.~x· e2·
~RfoiT

STORE RETURN AOORE~S· SET UP TO SPACE 2 ~INESo

138E t:!8F
1~91

!144 EPRN1'6 1!45 1146
1147 PqNT l 14S L~NE
!149 USO

ST MY1
e oc cc oc

PRTT+3.ARR
LI t.'E. x· ::!6·
PPiNT XL l'OO·
IL! ·-:a·
A!..2(PRT)

STORE ~ETURN AOORCss. SET UP TO SPACE 6 ~INES·
PRINT THE ERRtm MESSAGE IN ·PRT·e

!15t

MV~

?i:'l(Cil) ,.PAT+l

! 152 PRT"T B

11<-·

CLEAR E~RO~ MESSAGE 4REA. ncTURN TO ROUTINE.

H53

1154 ··***·**~*****·&~**$***·····***·***~*****************************···~··

1155 · MAPS ·

·

1!56 1157

*********

~~£ MAP C"ART PEFER£:NCE IS PRINTED· CALL SUSROUTIME BY

* 0

1158 ·

·

* 1159

e

MAPS

· 1160 ·
.. * 1161

oc

XL2 9 ~AGE ~U·BER ANO ENTRY NUMBEQ·

· 111!6623 *M~*µ*s~****ST****··T·E·~·P~.-A·R·~·····**********S*TO·R.E.~A·R¥R*~*·····················**~··

116&

L

TEf>IP.XRl

L01.o ~l 1111l"i'H ARR ADO~ess.

1165

~~z MAFSS-11.0(.XRl)

STCRE HUNOREOS DIGIT OF PAGE··

1166

~NN

M~PSS-tO.O(oXAl)

STORE TE~S OlGlT QF PAGE ··

1~67

~NZ

~-~ss-9.iC.XAJJ

STORE UNITS OIGtT OF ?AGE ··

l3BC 1360

1tb8 1169 H70 U71

MlliN flilAF=SS-1.t(.XRt>

B

PFl INT

oc

XL t ·86·

oc

tt.. t · 34·

STCRE E~TRV OIGtTe PRINT GO TO MAPS.

1::!BF H72 1173 tl74

DC

AL2(MAPSS)

e

2feXR1)

RETUPN TO ROUTINE.

11117756 *··Q·U~E*S**·**······~***·~~·-~····~·······················*········--·······*

1!77 ll7B

*···*****

SUBROUTINE OETERM!NES IF SSW 10 IS ON·

* ·

111!7890 O··U·E·S····ST····~~G·S·+·3·.A·R·R··· ...··········S·T·O·R·E~·R·E·T~U·R·H··A**D·D·R·E·S·S·. ··········**···

1181

Te~ S8VTE2.ssw10

SSW 10 ON ?

1182

JT

OST

RETURN TO PRGM HALT IF YES.

1183

ALC CS+3(2).NOC3

lNCR RETURN TO SK1P HA~Te

1184 OS

B

·-·

RETURN TO ROUTINE·

1185

1186 OST
1187
uae

Cl.. i
e~e
L

x·o200·.JC·c2·
cs
OS+3eXRt

1S THIS A MODULE 8 SYSTEH t DO A NOP.MAL. HALT lF NOT.

!189 I 190 1191

MVC 8

2(2.XRl),. ..FFF8
QS

SET UP .COOULE e HM.Ta
GO HALTe

J1119923 ·~~C·K··PA·T···*···~·····$················..··································

i194 1195

SUBROUTINE COMPARES ACTUAL SENSE PATTERN VS A TABLE OF EXPECTED

.·..

· 1196 ·
* 1197

PATTERNS ANO PRINTS THE CORPS ERROR MESSAGE.

* ·

1198
1199 1200

· ·C·K·PA··T···A···*·N·O·O··t.A··R·A··················..·······························

L

11113343 ** 0XP*R*NT*X******···$···························$·········*···················*

1135 ~···e····· 1136 ·

SUBROUTINE SETS UP ERR~R PRINTINGe

** 0

1:sF1 34 oe !?Fa
13F!! 35 01 0000 l3F9 3t: oe 1690
13PC 34 OS 140"

1201 1202 1203 !204

ST

·+7.ARR

\.

·-·· XRl

A

N002eAF<A

ST

·+7eARR

STORE PATTERN TABLE ADDRSe

DA1"E

l ~AUG74

EC NO. e2476:5

1SNOV74 824870

PROG ID PAGE

402-1 9

0 DATE EC NOe
0

l fAUG7· 824'1E!!

1!5HOV74 !24l!TO

PROG ID PAGE

'"~....
0

\

·

tBM MAtN~NANCE DIAGNOSTIC PROGRAM

5S!SM23 ()1etl M~tNTENANCE DIAG~OSTIC ~RCG~AM
to

..ART NOe PAGE

3741 ·TTA01ME"T TEST 'W1TI4 -·RAP CONNECTOR-

{'~ ·021

3741 ATTA~ME~T TEST 'll!tTH -wRAP CC.:NNECTOA·

-- ERR l.OC oe.Jec't CODE

AODR STIIT SOURCE STilTEMF.tlT

Efm LOC OBJECT CODE

AOOR STNT SOURCE STATEMENT

1401 35 02 0000
1405 3£ ce 169e
1409 34 08 1437
(
t4CC 40 CS O~ 1640
1412 F2 01 10 1415 2C ~1 1421 02
t4U CO e7 C2SA

1205 1206 1207 1208 1209 CKS 1210 1211 1212

L A ST
CLC
.JNE MVC 6

._.eKR2 NOllleARR P" TCK+'.3 .ARR
6(6.XRll eTI:ST nt'Y ERlfS·2C2ekR2J PRINT

STD~£ ERROR MESSAGE annRs.
STORE RETURN aOORESSa
.JUMP IF NO COMPARE· LOAD MESSAGE ADDRESS Ut PAINT MESS. PRINT CDRRS E~ROR MESSAG!:e

14CC 3C SC OODO
IODO CO 1!7 14?8
14N 3C SC OOCO
t·oe co e? 1aoo

121'3 'fAEf;:R
12?· 1275 TSERR t276

·VI
8 M"Ji
e

Te'!

PUT -·- tN EB2 OUTPUT.
CONTINUE CHECK· PUT -*- IN EBI OUTPUT· CONTINUE CHECK.

1277
1278 1279 1280

··*···B··IT*·S···N*·*F·*·*·······**····~····T·H·E··E·B·I··£ ··2··ev·T·E·S···~·RE···C"·J·N·Y~E·R·T·E·~··T·O············*·

l2Sl ·

A PRINTABLE e111u.Rv FORM.

·

14!E 92
14 lF l S
1620 ocoo
1422 F2 S7 OF
142!0 3t; 01 16A::!

l41E 1213

DC

16tF 121·

DC

1421 1215 E1:HIS DC

1216

1217 ~.,

A

XL.t·e2· ILt·24· ALH.,_.)
PATCK NDC6·X'Rl

,.';

JNCREMENT THE TABLE PDlM~S·

~

l40C 1112226~82~4 ·~·B·2·T····o·~···~··X·~·t··o·c······..···········TE·M··PO·R·A·R~Y···ST·O·P·A·G·E···FO·R···E·8*2··&··E·B·l······

14DD 12es ££!1T oc

x~1~00·

evTES·

1286

1429 36 02 1690 l42C 70 FF Ct 14:'.!C CO 01 1400
1434 co 8? 0000 r
'-
c

1'\38 0000

\43A OCCO
(

t43C 34 oe t4<;7

c

1440 34 02 14CF 1444 34 01 1407

144e :3C 01 1461

144C 3C 01 14Ee

14!;(1 3C 01 1472

14f:4 3C 01 1479

141!E 3C 01 1460

(

t45C 3C 01 14BA

t460 3e 01 t·3e 1464 F2 10 OA
1467 3E Cl 143A
1468 F2 10 SE 14EE F2 e7 C7

1218

A

NOC2.JrR2

1219 1220

CLl 11. KRI I· JC·FF·
er..e CKS

END OF TABLE 'l'ET 7 CONTINUE IF NOTc

0

1221 PATCK e

RETURN TQ ROUTIN!;·

1222

vr·

****·························...·········..···**····*--·········.·. * 1223
1224

. ·

.

.CM. P. ~.R.E

It

1225
··········· ·. 1226

EXPECTED EBI g ea2 BYTES ARE COMPARED
ANO ERROR elTS ARE IOENTIFIEO SY A -*-

(?.~

0 1439

1227 1228
11223290

·

IN THE OUTFUT AREAe

·
·X·P·T·····O·C·····X·L·2···0·0·00················E~X·P·E·C·T·E·D··E·B·l··&··E·B·2··B·Y.T.E·S·· ·

· .

.

.

.

.

.

.

·
..

.

1438 1231 ACT

DC

XL2·0~00·

ACTUAL EBl & ee2 BYTES·

1232

12~3 CMPARE ST

1234

ST

1235

ST

1236

MVI

1237

follVl

1238

MVI

1239

MVI

1240

MVI

1211'1

MVt

CMPR+3.ARA
TA~c:t+3cXR2
TBERR+3.xra
TA?+ I ·JC· 0 I·
TA2+l .x·oi ·
TAl+t.Jl·Ot· TB.!+lcJC·Dt· Te2+1.x·o1· TBt·1.x·c1·

STORE t:2ET\JRN ADDRESS.

INITIALIZE OUTPUT ADDRESSES·

0

tNIT1ALtZE BIT POINTERS·

c

0

t2·2 1243 TA3
120.4
1245 TA2
1246 124?

TeN
JT
T13N
.JT
.J

KP"l-1···01·
TAI AC'T-1.x·ct · TAERR
TB3

EXPECTED BIT ON IN EB2 8YTE ?

.JUMP IF ves.

ACTUAL etT ON tN EB2 6Y1'£ ?

GD PUT AN -·- IN O!Jll)UT tF SO. CHECK EBl SVTE·

0

14DE 3E <ie l~9e 16JE2 34' CE 14EB :4E6 OC Ot 14Fl 0000 14EC OC 01 1400 000?
t·F2 3~ oe H:9e
l4F6 36 08 1530
14FA 3C cu t5oe !4FE 3<. 01 1521 150-2 3C. 02 tS!F 150~ 34 01 153~
ISO- 35 00 140C
t50E F2 10 07 !511 3C FO lSHl
151~ F2 £>7 04 1518 3C Fl t!:IO 151C 3C 00 OOOQ
15?.0 !IP 00 l4DD 1524 F2 10 07 152? 3C FO t!';33 l52P F2 B7 04 t~2E 3C Fl 15:';3 1532 3C OC OOCO
1S3E :se eo tSOP.
153A CO 1 D OO<JO
ts~e oe oc ts~e tsos
1504 OE 00 1521 1521 154A OF Cl 151F 1~90

1267 BITSNF A

12AB 1289 1290

ST M\IC MVC

1291 1292 1293 1294 1295 1296

A
ST
MV! tWI ST ST

1297 1298 TNF

Ter.z

1299

.JT

1300

MYI

1301 1'302 tTSON 1303 NF

.J tAVI tcVI

1304 1:!05 TNFF

T8N

1306

.JT

1307 1308 1309 ITON 1310 NFF

lll!Y'li
.J MVI ..Yi

t:!U 1312 1~13 BTNF
1314

TeN
ST ALC

1315 1316

ALC SLC

NOOt.ARR
.+~.-RR
>··-· IM-1H2Jt·-·
Ee1T(2
NOCleAIOR BTNF+3.aRA
THF+l ·llt·Ot ·
THFF+l · x· Cl·
NF+3.XR2 fllFF+3.XAl
Ee~T.x·OC* il~ON
NF+1.x·FO · NF lllF+l·llt·Ft· ·-·· K·oo·
EBlTe><·oo· tTCN
NFF+l·JC·FO·
N"'F
NF!=+1.,Jt·Ft·
·-·.;.;·co·
·-eT~~·1.x·ec·
TN~+l(t).TtF+t TNFF+l(tt.TNFF+I NF+::H2t.NC02

STORE eet g £62 BYTES·
STORe RETUqN AOORESS· INITIALIZE eiT POINTERS.
STORE OUTPUT ADDRESSES·
TMIS BIT ON IN EB2 T .SUMP IF SCe tcOVE IN A -0-·
MOVE tN ll -1 ..... PUT 1'0 IN OUTPUT.
THIS BIT ON t~ Eal ? .JUMP IF st>.
MOVE IN A -o- · MOVE IN A -t-·
PUT t 'O tN OUTPUT·
CHECKED e1T 0 ' RETURN IF SO· tNCRE~ENT BIT POl~TERS.
CECREP.L:NT O·JTPVT AC>RS·

..-
·~-

1471 38 01 143A l47E F2 90 54

147S ::!8 Ol 1439

(

t47C F~ 10 CA

l47F 38 01 1438

l24S
124.9 TAI 12'50
1251 1252 Te! 1253 125· TB.2

TSN .SF
TBN .IT TEN

XP'tcX·ot·
TBI ACT.x·ot·

ACTUAL BIT ON IN ES2 BYTE ? GO PUT AN -*- IN OUTPUT IF OFF·
EKPECTED BIT ON IN eat fJVTE 7 .JUMP IF SD·
ACTUAL SIT ON IN eat eVTE 7

1550 OF 01 15~5 1690

0

US56 CO t?7 15CA

0

1317
1318

SLC NFF+3l2i.NC02

e

TNF

CONTINUE CHECK ·

1319

1320 113~2212 1323

··························****·········································

·**E*R*R*O*R***·
·

·

SUBROUTINE PRINYS ITS

SIDTAE~NUTSI

FIES AND

ESRERNOS~ES.8YTE

AMO

· *

14B3 F2 tO 6E
146E F2 E7 C7

1255 1256

...JT

TB ERR TC

GD PUT Atl -·- IN OUTPUT IF SO· CONTINUE ANALYSIS·

G

1324 · 1325 ·

sueROUTINE CAL.LEO ev -

·

·

1459 3S 01 1~3B 1480 f'"2 90 44

t490 :3B eo 1 oaA

(

16'94 CO IC QOOO

1498 OE 00 1472 16?2

1257

1258 TBI

TeN AC1a>e«Ot·

1259

.IF

TBEfm

.... 1260

1261 TC

Te"11 Te1·····eo·

1262 CMPQ eT

t26'3

ALC TAt+tCll·TAl·l

ACTUAL StT ON IN EBl S"n"E 'f GO PUT AN -e- IN OUTPUT IF JFF ·
SIT 0 SEEN TESTED ? ~TURN IF SO· 1f\IC~EMENT etT POtNT~Rs.

1326 · 1327 ar 1328 · 1329 e 1330 ·

e

ERROR

·

DC XLPN CODE IN HEX·

DC

Jq.2·EXPECTEO OATA 1

0C XL2· ACTUAL DATA·

*·*

DC XLt·A -~F- DESIGNATES ENO·

·

l!'l31 1332

· .

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

. ~

·

· ·

169E OE 00 i46S 1466 14A4 0£ CO 14El 14et 14AA OE 00 146A t·SA J4SO OE 00 1490 1oeo 14eE 0£ CO 147~ 14~ t·ec o~ 01 t·cF t69D 14C2 OF 01 1407 1691> 14C8 CO e? 1~0

1264 1265 1266 126'7 ·1268
1269 121'0 U?71 121'2

A\.C
ALC ALC ALC A1..C
SLC
S\.C 8

TA2·U 11 .TA2+1 TA~t Ct I aTA3·l TBl·UU .TS1+1 Te~+t( l le'ff:2+1 TB3+t C11. Te3+1 TAeRR+3C 2) eN002 TBfRR+3(2JaN002
TA3

DECREMENT OUTPUT AODRESSES· GO CHECK NEW 9!T ·

0

t5.5A 00

15!59 3· OE l5E2

l55A 1333 NCCD DC 1334 ERRCR ST

XLt·oo· ··feARA

15!5F C2 Ct 0000

1~35

LA ·-·eiAl

1~36

t5f3 34 Cll t56C

133? C:KIT ST

$+19.XRl

ISET 0C 00 lSSA 0000

1338

fltVC NCCOU Je·-$

1560 210 FF !SSA urn ¥2 e1 cs

1:!139 l!!i'O

<:Lt NCCOeX·FF·
..te UCUT

CUSUIENT N COPE STORAGe. STOA RETURN ADDRESS IN XAle
BRlWG INN CODE FOR CHECKING· EXIT IF DETE:CTEO ·ENO FLAG'·

L

c

DATE

<:- EC fCJ·

PROG 10 PAGE

0 OATI!: EC t.'Oa
0

PaOG ID PAGE

eo2-1 toA·

( __

·

·

·

·

·

·

·

·

·

·

·

·

·

·

10
···

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·
·

·· ·

-·.-··-··· ·····

·-· ·- · · · · · · · · --·....·. ····· ···

'·~ ..

,

A
\,J

0

H!Jlil tl!Ail'TEN~NCE DIAGNOSTIC PROGRAM

PART NOa PAGE

5558423

!BM MAlt.;TENANCE DIAGNOSTIC PRC!GAA!A

0 I I

PART NOa PAGE

5558423 HA

4021

3741 ATTACHMENT TES~ ~ITH -WRA~ CON~EC70R-

ER~ LOC OBJECT CODE

AODR STMT SOURCE STATEMEN~

4021
()

3741 ATTACHME~T TEST WIT~ -WRAP CONWECTCJR-

ERR LOC oeJECT cooe

AOOR

SOURCE STATE~EN~

1341

1574 OC SA 1D6e 1069 157.A 30 01 155A

l.342 1343

MVC
CL!

P!=!"H91) .FRT+l
· Ncoo~x;tn

BLANY. CUT PRINT BUFFER iDENTtFY ANO SET-UP BYTE HEAOINGe

l57E F2 01 06 1581 OC !O 1041 1788 l5f7 30 02 155A

13~4
1345 1346

JNE
MVC

··~ PRT-39( 17} tNCOI

CLJ Nccc.x·o2·

J.580 F2 01 OC

1347

JM': ·+!5

158E OC OA 1035 17C3 1594 OC OF l04C 1704

1348 1349

Y.WC
~vc

PRT-51(llltNC02-22 PRT-28(16)oNC02-5

=t< STATIJS..-LCRo

t5'9A 3C 03 155;>

i350

CL!

NCC0.>! 1 03~

159E F2 01 0'5 15Al OC 11 1042 !7E6 15A7 3C 04 155!.

1:::s1 1352 1353

JNE M'\IC
CL!

·+c; PRT-36{18) .NC03 Ncco. ll:·04·

* !/O TRANSFER LINESe

1s1>e F2 01 oe !5AE OC OB 1D3F l7F7 i5e4 3C 05 155.a

l354 !355 !>356

JNE
M'\/C Ct. I

·~-..
P~T-4 l ( 12 l tNCD4 NCco.x·os·

* DAT tfo .t.ODRESS ..

158 Fi? ~t OC
15EE OC QE 10~? 160l l5Cl OC lD !D4C 1619

1357 1358
~359

..lNE M\iC
~'\IC

*+!5
?R~-49(15).NCD5-23
PRT-28(17l.NC05-5

* OlAGNOSTTC-OTRe

tSC"'I CO E"? 1377

i360

8

EPf:f\T2

!361

l5CE CC 09 1034 1936 lSDl oc 09 1oae Hi4C

1362 1363

M\IC M\IC

PR"l'-52( 1C)oEB2 Pfi!T-32 ( 10) ecE!t

5UtLO EB 9VTE HEAOINGSe

1507 CO 87 i36C

15CE DC OE 1037 !82C

15E1 OC CE lDAB tS2C

t5F7 er e? 1377

!..:;; ..... ?

:-~ ~l le7C

-~64
1365 1366 '!367 1368

EPl::tHl
PRT-0:.9{ t~i .SITS
PRT-2<;< 1e >.e1rs
EPRNTl:'
N!Hl2t XIU

P~lNT Ee BYTE ~EA01NGS. BUILD 8[T LA0E HEAOJNGSe
PRINT BiT LAELE ME'-OJNGS.

JSl.::F 34 (1 i l5FS
15F3 CC 01 1439 COCO
lSF<; 3f: l'.ll 169D

1::!69 ?370 l37t

ST
!<WC A

*+">,XRl
XPl( 2) ~ llf-:it: NC02,XRi

STORE EXPECTED SVTES.

1s$'c 34 o 1 160e
1601 cc 01 1438 coco
l6C7 C2 02 1037
16CE C2 01 1045

!:!72 1373 X'l'P-1 1374 t375

ST
M\'C LA
LA

*+<: · XRl
ACT( 2).,~-*
PR1'-49eXF?2
PPT-29,Xl<l

STORE ACTUAL SYTESo STO~E OVTPUT ADDRESSES.

HCF 1613 1615 l i' 1 -;
161F 1622 t62e !62C
<c::o
1634 16:!'1!! 16 3C 1e;,o
164~

CO !!7 143S CO 87 OD C l
F'2 Sl
CC OA co e7
CO e7 3~ 01
3ti Cl
co 87
3E 0 ! 311 r.:1 co 87

lADE
!36C l 43 9 OA 1024 H3C. 1 377 tt:tE 16'98 1563 169e
1E~'l'
0000

143 B
17~7

l:'i76

fl

SITSNF

161<1- 1377

DC

AL2( ACT~

t 378

B

EFf:l-lTt

1379

CLC

XPT(2). ACT

!380

.JE

SKFEP

138'1 1382

MVC
e

P~l-68( 11 i ,EiRS CMPARE

l363 SKPER B

EPf:NT2

1384

L

XYJ:il-f-~· XFH

l 385

A

N()01·:K;;t

1386

E!

Ct<: tT

" 1387 C:!':OUT

l388

ST

1389

e

1390

·-·NOl)l · XRl
ct:+7.XRi

1392 1392

$**R*E*S*E*R*V$E*D**~·

GO CALCULATE STATUS OF ACTUAL 9VT~S.
PRJN1 STATUS/~EGiSTER lOe ~XP~CTEO ~ND ACTUAL EQU~L ? .llJJol? IF SO.
GO CALC~LATE ERROR ~IYS. PRINT ERRO~ eITS. RESTORE >'Fil ..
GC CHECK FOR NEXT BYTE. INCREMFNT RETURN ADDRESS. RETURN TO ROUTINE.

1648 OCOOOOOOCOCO

i640 113~9934 T~E·S*T*****OC***···6·XL·1·~*0·0*·1 ******····*****A*C*TU·A·L··S·E·N··SE··D··A·TA·$*ST*O**R*A·G·E·.~·~·······

164E oocooo~ooooooooo 1656 1395 ~O~K De

~XLt·oo·

woRK AREA.

16~~ cc

1395
1396 ····*·····

! 397 :I< TABLES 'I<

1657 o~cos100FD00 165C 0300ClOOFOOO 1Et3 OCC0~100F900 1669 oeoo£100Foc2
16cF oeooc100Fqo2
167~ OOOOClCOF~OO
167E OSOOE100F900

1398 *******·~·······~*·········*············~········~·····*··········$····

1399 1656 J400 EXPV

EOU

·-t

TAELE OF ROUTINE os·s ERROR ?ATTERNS.

165C 1401

oc

XL~·C3008100FOOO·

EOT CHECK.

1662 ll:.02

DC

Y.L~·03COC!CCF000 1

ENO RESET - Oe

1668 !403

DC

XLE 1 000CE100F900'

DISCONNECT C~ECK.

\661: 1404

oc

XLE·oeooe100Foo2·

ENO RcSET - 1.

1674 1405

oc

XLE·oecoc100F902 1

tNTR PENDING CK.

16'1A a406

DC

XL~ 1 0000ClOOF900·

ENO PESET - 2«>

1680 !407

DC

XLt·oeoOE!OOF900·

OtSCONNECT ORIVER CHECKe

l)ATE

1EAUG?4

EC NO,. e247E!5

t5NCV7~
e24e7o

PPOG 10 PAGE

402-1 11

16St oeOOE100F902 1687 Ff'

1686 1408 1687 1409

nc

XLE·0800ElO~F902·

oc

XL 1 9 FF 8

A~TAC"MEN~ ORIVEA C"ECKe · END OF TABLE ·

0

lillO
1667 i411 ER~SOS EOU ·-1 TAete OF CORRESPONDING ERROR MESSAGE AODM:$SES·

1688 1C41 t6S/4 1csc;

1&89 1412 1638 1~!3

DC

ALcOl155A)

oc

t.LHMSSBJ

H:SC 1C7J

1680 1414

DC

AL2(MS5C)

166E 1C89

1613F 1415

DC

t.L2(MSSD)

c

!690 1CA1 1E'li2 1csc;

1691 1416 16C'>3 1417

oc

AL:COIS~E)

DC

AL2(~S~FJ

169~ lCDl

1~95 :&tHe

DC

AL~(MS5!;';)

!6Sf lCE9
0

1697 ~419 i420

DC

AL2(MS!St-)

0 16c;e 0000

* 1621 ··**s·····e~*
1422 · CONSTANTS

1423 ~·*·**"~*******··~······****~··*·******·************·***********··**···

1~99 1424 NOOO CC

1L2'~'

1t''SA 0001

1698 1425 N~Ot

DC

i1..2·1·

169C 0002

1690 i426 N002 DC

tL2° 2·

169E 0003

169F 1427 NCO~ OC

ILE·3·

l6AC 0004

16~1 1428 N004 DC

IL2e1,e

16A2 0006

16A3 1~29 NOQ6 DC

iL:<·t;·

16A6 0020
161.6 ooeo
t6AS oaoo

16AS lA~O H0020 nc
16A7 1~31 H0080 OC
1~~~ ?432 Hoese oc

XLi·OO:i!OS
Xt.:i·ooeo·
XL ;?·oaacv

:i6AA Ot 90

16A6 !433 ti0190 OC

X\..2 1 01':"'.'.' 1

lf>AC 0180

{""·
\.

16.At OlAO

1680 0040

16AO 1434 ~~180 O~ 1GAF 1435 HOl~O OC 16Bl 1436 H0040 CC

lO::l !<"0180' XLl<'Oll.0' x1...2·00.tio·

c

H',e~ FFf'S l6e4 G02C

168~ 1437 ~FFF8 OC 1665 !438 H002C OC

XL:: 9 Ft=i"a·
>tt.~·co2c~

tt'B6 f'C!.'~

166r 1439 HFOS5 DC

Xl...l<·f'C55·

!6N.l Ft:l.t.A 1.BA COl'l2

1669 i440 HF9AA CC 1608 1441 H0082 OC

XL:E 1 F9AA'
xL2·oooa2·

16eC 0188

c

t6SE oee2
l6CO CIOFF

1690 1442 HOlBS DC l6BF l"\.,~3 H0662 DC 16Cl 1444 MOOrF n~

XL,~ OU!S= XL:l!'Or"B2' XL:c' 9 00FF·

ll.)C2 C010

!6C3 1445 HOO!O DC

XL~«ootoa

t£C4
16Cf!
usca
16C~ u~cc

3082 3080
Fco~
FEOG
oeas

16C5 1446 H3082 DC i6C7 14~7 H3080 OC !6C9 1·48 HFC04 CC &6CB 1449 HFEOQ OC t6CO 1450 H0885 DC

l'tl..iP30e2·
xL:C 1 3oeo·
XL~ 'FC04·
XL2'FEOO·
x1..2·cee1?:·

16CE t£4E

l6CF 1451 DATA OC

ALHOAOATA)

1600 CIC 1

i6Dl 1452 CAA

OC

CL~P AA~

1602 F5F!5

1603 !453 C~!S

DC

CL~· S!i·

1454 l4S5

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

* * 1456

~ESSAGES

1603

1457
t4se

·-t . ··*····~·~~·*···························
"'1SG1B EC!J

.

·*···$··············*********

1604 C9D~c2C5D~E~40E::! l6FA 1459 ~SGI

DC

CL39 1 INSERT THE WRA~ CONNECTOR.

l6DC tEC540E60~C10740

1459

16~~ C~OfD505C~C3E30~

1459

16EC 0~48404040404040

14!59

16F~ 40404040404040

1459

c

16FA 1460 MSG2B l~Fe 07C509C606.9D·40 1721 1461 MSG2

1703 E2E8E2E3C5D440D9

1461

·-t
CL~9·PE~FORM SVSTEM RESET ANO START.

c

170E CEE2C5E34CC10~C4 1713 4CE2E3C109E34S40

1461 J46\

1716 404C4040404040

1461

1462

1722 C905E2C509E340E6 1730 1463

172A 09C10740C30E05D!

1463

DC

CL28'IN5ER1 WRAP CONNECTOR

:i.7~2 CEC3E3060«.;404040

l«i:!

173A 40404040

1463

173E 4005DtE3C~4C6C40 1758 1464 UP374l OC

CL27 1 NCTE - CPU MAY OAOP POWER.·

0 DATE
c EC ~C.

t6AUG74 E241E5

l!INOY74 824870

PROG 10 PAGE

402-1 11A

0

(

(
'<..

; ISM MAl...TENANCE O!AGNGSTIC PR06RAM
'·

c 4021

3741 ATTACHMENT TEST ,.ITH -\llRAP CDN... ECTOR-

ERR LDC CB~ECT CODE

ADOQ STMT SOURCE STATEMENT

PART NO. PAGE

5558423 12

1746 C?D7E44004CIEE40

l74E C409060740D7D6EE

17SE C5D'!i4B

1464

1759 C9C640E2D66B40E! 11es !465 IFSO DC

CL45'1F SOw Tut<!N POWER PACK ON AND RELOAD PROGRAMe 1

1761 E40905400706E6C5

1465

17e~ 0~40C2ClC~02400~

1465

17?1 0540Ct05C44009C5

1465

1779 03CEC1C44CD70906

1465

t7e! C7C9Ct044B

lti.65

t7e6 CQ0640E2ESE2E3C5 t79C 1466 INTRO DC

17EE 044CC9C5E2C5E36S

1466

CL23'00 SYSTEM RESEl· START.·

17~6 40E2E3C1D~E34B

1466

1790 5C5C5CC5C9090C:09 1TA7 1~7 ERS

oc

17A!: 5C5CSC

1467

17~8 C6E4C5C3E?C90C:D5 17Be 1468 NCDI oc

CLl7 1 FU~CTION REGISTER'

l7BO 4009C5C7C9E2E3C5

1468

t7ee Ct;

1468

1789 E2E3ClE3E4E240C2 1709 1469 NCD2 DC

t7C1 EeE~C54003C505C7

1469

CL:!3 1 STATl'S BYTE LENGTH COUNT REGISTER·

t7C9 E~Ce40C~DEE405E!

1669

1701 40D~C5C7C9E2E3C5

1469

17CCJ: 09

1469

11>0~ C9~1Do40E309C105 t7EB 1470 NC03

oc

l7E2 E~C~C5094003C905

1470

~"iFA C~E2

1470

17EC C4ClE3C140ClC4C4 17F7 1471 NC04 DC

17F4 C9C5E2E2

!47!

t7Fe C4C~ClC7De06E2E~ 1810 1472 NCOS

DC

teoo C9C340C2EeE3C540

1472

teoe C4ClE3C140E309Cl

1472

CL38 1 01A~NOST1C BYTE OATA TRANSFER REGISTER"

!StO oeE2CfC5D94009C5

1472

1e1e C7C9E2E3CSD9

l4T2

181E F040F140F240F340 182C 1473 SITS DC

1826 ~440F54CF640F7

1473

1820 60C5C2F240C2Eee3 1836 1474 EB2

DC

CL101 -EB2 BYTE-·

183!: C~60

1474

1837 60C5C2Fl40C2EEE! 1840 1475 £81

oc

CLI0 1 -EB1 BYTE-·

l83F C:560

1475

1841 F~F7F4Fl4CC9E240 1852 1476 NO~OY DC

1849 05D~E34009C5C1C4

1476

l@ft EE48

1476

CL1B 1 ~741 IS NOT READYe·

,·

18!:3 F!F7F4F14CC9E240 l85F 1477 BISY DC

tese C2E4E2EB4e

1477

18EO F3F7F4F140C2E4E2 l86F 1478 esv

DC

CLl6 8 3741 BUSY CHECK·'

1868 Ee40C3C8C!C30249

1478

1670 E2C505E2C540C6DE 189A 1479 IOBtT DC

l87e 0~40E3CeCf4C60EE

1479

CL43·SEN5E FOR T~E -WRAP CONNECTOR-

ID BITS.·

1eeo 09Cl0740C~DC:D505

1479

1see C!:C3E3D6096o·o·o

t479

!8~0 404040C9C440C2C9

1479

te~e E3E24e

1479

l6~E C~C440E2C5DSE2C5 18A9 1480 IDCK

oc

tBA3 40C?C8C5C3024B

1480

CL151 lt SENSE CHECK·'

18AA 60E609C10740C306"18CB 1481 NOON DC

1882 O!OO!:C5C3E'.:OEO~EO

.-..&1

CL~4 1 -WRAP CON~ECTOR- NOT INSTALLED·

!8EA 400506E340C905E2

l48l

18C2 E3C10303C5C44840

1481

18CA 4(140

1481

lBCC 60606040C~O~E2C5 IBEA 1482 ~DOK

DC

1804 09E340E6C~Cl0740

1482

teoc C~Cf0~05C!:C3E3De

1482

CL?t·--- INSERT ~RAP CONNECTOR~-

l8E4 0~406060604040

1482

18EB E:3C5E2E34CC905E3 190F 1483 W~P

oc

CL37 1 TEST INTERF~CE ORIVEPS AND RECEIVERS.·

lBF3 C5C~C6C1C3C540C4

1483

18Fe 09C9es-c509E240C I

148:!1

1903 05C44C09C5C3C5C9

1483

l90E ESC5D9E24B

1483

1910 C409C9E5C50961D9 1925 1484 WRPCK DC

DATE

lEAUG74

Ee r-o. e2·765

·i....

PROG IO PAGE

402-1 12

It\ U!M M~INTENANCE DIAfiNOSTIC PROGRAM
v

PART NOe Pir.GE

4021
(}

3741 ATTACHMENT TEST Wint -WAAP CON~ECTOR-

E~R LOC aeJECT CODE

ADDR STMT SOURCE STATE~MT

c

1918 C!:C3C5C9E5C!S0940

1920 C3CBC5C3024B

14S·

1926 E3C9C105E2C6C~09 1944 1485 TRLER D~

CL?1 1 TRAN5FER ~ROR .LATCH NOT RESET~·

192E 40C5C9090ED94003

1485

1936 C1E3C~C840D506E3

1485

l93E 4009CSE2C5~34B

1·es

1945 E~C5E2E3~007C1E3 1956 1486 PAT

OC

CLt8·TEST PATTERN -xx-.·

1940 E~C£09D54C6~E7E7

1·86

c

l9e5 ~C4B

1466

1957 E2C5E340C 105·:4~0 1977 '1487 H004A DC

CL33 9 SET A~O RESET REAO/WRtTE DRIVERS··

195F C9CfE2C5E~400~C5

t·aT

c

1967 C1C461EED~C~E3C5 196F 40C4C9<9E5C509f2

19·n 4e

1487 1487 14-87

c

1978 C1~3E3C9E5r.'~3C5 \991 1488 H004B DC

1980 40C~610640E2C503

1488

CL26·ACTIVATE 1/0 SELECT LINES·'

l~S~ C!C3E340D3C905C5

1~86

1990 E24B

1466

1992 C505C44006C640E3 1965 1489 HOOS OC

CL~6·cNO c~ TRANSFER -EOT- SEQUENCE TEST.·

t99A D9C105E2CEC!:D~4C

1489

19~2 &OC506E36040E2C5

1489

191'~ 08E4C51.l5C3C540E3

i489 ..

1902 C5E2E345

1·89

199~ C~6i0640EJ09Cl05 1902 1490 O~SET OC

CL29·t/O TRANSFER LINES NOT RESET~·

19BE E2C~C5094003Cj05

14-90

19C~ C~E24nD50EC34009

14~0

19CE C5E2C5E348

1·90

1903 ~q61C640c309Cl05 19FO 1491 STPC

0,

t9C8 E2CEC5094003C905

1491

c

19E3 C~40E2C5CEE2C540 19Ee C:3C8CSC3024B

1491 1491

19Fl E~09C9F3C~40C4D9 lA03 t·~2 WO~tV OC

t9F9 r.~E5C50940C3CBC5

1492

iAOl C30248

1492

!A04 D9C5CtC440C409C9 1A15 1493 aORIY OC

CLt8·REAO DRIVER CHECK·'

lAOC E~C50940~3C8C5C3

0

Ul· D24B

1493 1493

1A16 C96!C640E2C5D3C~ lA26 1494 tOSLT DC

lAlE C3E340C3~8C5C302

0

1A2~ 4~

1494 1494

1A27 C5E5C50540D7C109 1A3a 1495 DtSCK DC

CLt8·E\lf'N PARITY CHECK.·

1A2F Ct;;E3ES40C3CeC!'C3

( ·~ ,.::

lA'.37 0248

1495 149&

1A~9 C70~40E30640F3F7 1A5A 1496 MAPSS .DC

CL?4·Go TO 3741 MAPS. PAGE oco ENTPY o.·

1A41 F4Fl4004Ct07E2EB

G

1A49 40r.7C1C7C540FOFO

1A~1 FC40C5D5E309E840

1496 1496 1496

1A59 FC4B

1496

1A5B E3CSE2E~4009CSE2 1A63 1497 H007 DC

1A63 C~E34006CE40Ct!iEt

1497

CL41·TES~ RESET OF l'O TRANSi'ER LINES l ANO 3e'

c

lA6B CE40E?09C1D5E2C6 tA73 CSD94C03C905C5E2

1497 1497

tA?B 40Fl40Ct05C440F3

1497

1AS3 4E

1497

tAe4 C96i0640E3D9ClC5 1AA3 1498 ONOTS OC

lA9C E2CEC5D94003C905

1498

CL~2·1'0 TRANSFER LINE X RESET CMECK. 0

lA~4 C540E740C9C~E2C5

1498

1A9C E340C3C8C!iC3024B

1496

tAA4 E3C5E2E34009C5E2 tADO 1499 H008 DC

1AAC C~E34006C640C96l

14~9

Ct.e5·TEST RESET OF 1,0 TRANSFER LINES 4e 6t ANO 7.'

1AE4 0~40E:309C1D~E2C5
uec C50fi;4003C90SC5E2

1499 1499

lACA 40F46640F66e40Cl

1499

lACC DSC 440F74B

l 499

t·Dt E2C505E2C540C9C5 1AE2 1500 10015 OC

CLte·SENSE RESET CHECK.·

c

1AC9 E2C5E340C3C8C5C3 lAEl C24B

1500 tSOO

tAE3 C506E340C3CBCSC3 lAEC 1501 EOTACT DC

0 DATE EC. t<O.
c~

1EAUG?4 524765

15NCY74 e2·e7o

PROG 10
PAGE

402-1 12A

·

·

·

·

··-·

·

·

·

·

·

·

·

·

·

·

· I

·

·

·

·

·

·

·

·

·

·

··~·
.

·

·

·

·

··

J

0

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

c 5558423 13

IBM MAINTENANCE DIAGNOSTIC Pfaf1GRAM

PART ND· PAGE

55!i8423 l3A

4021

3741 ATTACkME~T TEST ·ITH -W~AP CON~£CTDR-

EPR LOC OBJECT CODE

ADDA STMT SOURCE STATEMENT

c 4021 ERR LOC oe~ECT COCE

tAEe 024e

1so1

1AEO 07C5D9C60f090440 IBID 1502 HD06

1AF5 C505C~4006C640E~

1502

lAFC C~C105E2CEC50~40

1502

1E05 60C506E36040E4E2 1aoc C905C740C96t0640

1502
1so2

1815 E2C503C5C3E340F!

1502

1B1C 4E

!502

tElE C506E340E2C506E4 1830 1503 EOT

1E2E C505C3C540C3CSC5

1503

1B2E C~024B

1503

1831 E4E2C54009C5C1C4 1862 1504

lB~~ 61EE09C~E3C540C3

1504

1S41 C1030340E3Ce4009

1504

1849 C5E2C5E340C~6106

150~

1651 40E309C1D5E2CtC5

1504

1E59 C94003C905CSE240

1504

181 F340

1504

tet3 c1oec·40F44B

1868 1505 H009

1e69 E3C5E2E340C1C2C9 l69C 1506

1871 03Ct;E3E84006C(·40

1506

187<; C9610640E3D9CtOe

1506

1ER1 E2C6C5094C03C905

1506

18~<; C~E24CF34CCtDeC4

1506

le~l 40F540E3Df40D9Ce

1506

tegq E2C~E340

1506

l9t;O C~61DE40C~C9£2C~ 1891 1507 HDCA

1B-5 C60505C5C3E3400~

1507

lBAC C1E3C3Cf4B

1507

lBE2 E4E2C50CC96lDE40 tBEO 1508

tee~ E3C9C1D5E2C6CSC9

1508

IBC2 4002C905CeE240Fl

1508

lECA 40C1C5C440F240E~

JSOS

1ec2 DE40C7C5CSC509Ct

t50S

l8DA E3C~40C5D~C440

1508

18E1 CEC640E3C9Cl05E2 1BF2 1509 HDOB

1PE9 C~C50~40~CC506E3

1509

lBFl EC48

1509

1EF3 F3CSE2E340C1C2C~ 1C23 15!0

lBFB 03C9E3EB40E30640

J510

I tCO~ C3C1E3C~Ce40C~f

1510

Jcoe C640E309Cl05E2CE

1510

lC13 C50940D3C90SC5E2
1c1e 40F36e~OF46B40Fe

151 0 1s10

1C23 40

1510

1C24 C105C440F74S

1C29 1511 HDOC

1C2A C5C5C440D6C640E3 1C41 1512 MSSA

1C32 C~C105E2CEC50940

i512

1C3~ C3CeC5C30248404C

1512

tC42 C5C5C44009C5E2CS 1C59 1513 MS5B

1C4A E340C3C6C~C3D24C

1513

1C52 E040FC4B40404040

1513

1C5A C961DE40C4C9E2C3 lc7t 1Si4 MS5C

1Ct2 06D505C5C3E340C3

1514

1C6~ ceC5C3024E404040

1514

tC72 CSDSC44009C5E2C5 lC89 1515 ~550

1C7A E340C3CeC5C?0240 1ce2 6040Ft4S40404040

1515 1515

tee~ C905E3C509E407E~ lCAl i516 MS5E

1C92 40C7C5D5C4C905C7

1516

1C9A 40C3C8C5C3024E40

1516

1CA2 C5DSC4400SC5E2CS IC09 151? MSSF

lC~~ E340C3C8CSC30240

1517

1CS2 6040F24B4C404C40

1517

lCE~ C4C9E2C3D~D505C5 lCOt 1516 MS5G

1CC2 C3E340C409C9E5C5

1518

ICC~ CS40C3C8C5C3D248

1518

1CD2 C1E3E3CIC3C604C5 ICE9 1519 MSSH

DC

CL49·PERFC~M ENO OF TRANSFER -EOT- USING l'O SELECT 3.·

DC

CL1~'EOT SEQUENCE C~ECK·'

c

oc

CLSO'USE REAO/\'!RITE CALL TO RESET t~O TRANSFER LINES 3 1

c

0

oc

CLf'ANO 4e~

()

DC

CL~2·TE5T ABILITY OF 1/0 TRANSFER LINES 3 ANO 5 TO RESET s.

"r-",

DC

CL~!'!~O CISCONNECT LATCH.·

oc

CL47 1 USE t/G TRANSFEP LINES l illoNO 2 TO GENERATE ENO ·

oc

CLtE·OF T~ANSFER -EOT-.·

DC

CL49·TES'T ,t.01LITY TC LATCH 1,0 TRANSFER LINES 3. 4, 6 1

c

DC

CLE"ANO ?.·

DC

CL24'END OF TRANSFER CHEC~·'

0

De

CL~4·END RESET CHECK - o.·

0

DC

CL24·!/0 CISCONNECT CHECK.·

..

OC

CL24 9 ENO RESET CHECK - 1.~

0

DC

CL24'INTE~UPT PENDlNG CMECK·'

oc

CL24 1 ENO RESET CHECK - 2e'

oc

cc

CL24'ATTACHMENT DRIVER CHECK.·

0

lCO· oeE3~0C4t9C9E5C5

IS19

1CE2 oq4oc3CBCS~:o2·e

\!519

!CEA C9blC640C4C9E2C3 tDOD l~?O PSDl~ DC

1CF2 0~0505~5C3E~40C3

1520

ICFA CtE3C3CS40C6ClC9

15~0

1002 O~E240E30E40~9~5

1520

lDOA E2C5E3·9

1~20

1068 1521 PRT

OS

1069 !522

oc

CL!6·I/O CISCONNECT L4T~H FAILS TO RES~T~·

Cl~l
XL l 9 40·

PRINT f'IELO. CLEARING BYTE.

L

OATE

1EAUG74

EC NO. 8247E:S

PROG 10
PAGE

402-1 13

e DATE
0 EC NOe

tU.UG74 824765

&5NOV74
e24870

PR<X 10
PAGE

402-1 13A

. . ·:..,·..... ··...·..... ,.,#-.

·..

'

:f ...... ~· ·.·.

c

L {

0

i teM MAINTENANCE CIAGNOSTtC PROGRAM
"-'

PART 1110· PAGE

' 0 5558423 14

IBM M~INTENANCE DIAGNCSTIC PRDG~AM

3741 ATTACH~E~T TEST ·ITH -WRAP CONNECTOR-

£RR LCC ce~ECT CODE

&DOR STMT SOURCE STATEMENT

4021
0

3741 ATTACMME~T TEST WITK -WRAP CONNECTORCl:CSS-AEFES:ENCE:

r ..,,,._

115~245
1526

····E·Q·U·A·T·E~S···
............

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

. * .

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

. .

0008 1527 ARR ecu x· cs·

c SYMSOI.. T 1..EN \'Ai..UE
A 002 i43B · 004 OA43

DEFN
1231 ()04t

aEFEREN(ES
1079* l00! 1~45 1249 l;?~4 0043

0216 1528 LINK EOU ··216'
021A 1529 PRINT ecu x·:aA·

IA38 1530 PRCK ecu DISCK

0001 1531 XRt ecu x·c1·

0002 1532 X~2

EQ\J ··02·

0222 1533 t1ALT ecu x·222·

0080 153· SSWlO EQU x·eo·

020A 1535 SBYTE2 EOU x·o2oa·

(

OA07 153E FRTN EQU X· OACT·

164£ 1537 040ATA EOU lfORK-8

c

l6CC 1538 H0008 ECU Hoeas-1
1656 1539 SNSOC EQU ttCJ:tC

c 001

C ·eEG IN la 001

eEGINM A 001 e1sv A c13
('ens a ots

- S ITSNF A 004

esv

A OU':

C-eTNF A 004

eusv · A ()04

CllA

A 002

c·,Ctc:IT A 004

0008
0100 OAll te5F l82C 140E l86F l:S3A 1352
1601
1563

1s2r
0024 OD.!8 l477 1473 l2'i!l H7S 1313 1!22 14!52 1331

1098 1~3~ 1141 1233 12e7· 12ao 0017 005!) 1545 1!25 107· 136~ 1366 1oeo 1376 082· 1292· 0072 0282
01~4
l3Sf.

ll~A UE3 12.:it· 12c;;2

1699 1540 HOOOO EQU tiOCO

CICO\iT A 004 tf3C 13el

1340

1698 1541 f-10001 EOli NOOI

(

1690 1542 M0002 EQU tl002

CkPn A (104 13ED 1200
Cctc:s · cos 1400 1209

0473 1220

16Al 1543 "0004 ECU NOC4

CJllPilR!? A 004 143C 1233

1064 1::382

1640 1544 TEMP EOU 'TE!T

,-.. CtlPR A 004 1494 12E2

1233·

OAtl 1545

ENO BE GINN

c
'

\jCSS

A ()02

o.-c.n· ,. oot
.DAllllSSY A 004 C'DAT,. A C02

DISC!< A ote

1603
IE4E 1060 l6CF 1A38

14!53
l!:'.'!l
osa1
14El l44iS

0188 14!51 0833 f'l080 07!:8

1!530

DCDC! J 006 OAFl 0115

Oll9

QEel

A 010 te4~ 1475

1072 1363

EelT /A 001 1400 12@5

1290· 1305

c

EB2
0Ee2T

A 010 IS36 1474 A -001 l40C 12e·

1362 1298

EOT

;i. 019 1830 1503

0470 0934

c

e ECT ACT A ca 0 Ill.EC 1501 EPRNT I A 004 136C tt::!e

0532 0107 0109 OU.1. 0114 1073

EPRlllT2 A 004 1377 ll4t

10?1 1075 1085 1360 1367

c

EPPNTE A 004 1382 ll4H
0 EROTfl A 004 oeoo 0231:

0116 0209

ERfl.S A C02 t4:t1 12tft

12114·

c

0 ERMSO:S A 001 1Ee7 1 ·11 EJIROR A 004 l55e 1334

0475 0091 0163 0225 0242 0326

0693 0761 0786 0871 0937

c.

ERS
\ CJERO-

ll 011 A 004

l '1A'7 IOFt

o··e~E.s,

1063 1361 oe49 0858

EROB A 004 la79 0931

0913 0923

c

EROC
C·ceRO!S

A 004 12ec; IClE5 A 00.S ODA9 0463

0993 1000 1009 1016 1025 0423 0425 0427

ER05A A 004 0080 OA4'!

043S 0437

c

ERO.;A A 004 OFFS 07!5'5 CfER09B A 006 tOlF 0772

07~4
0740

EROt;C " 006 10:!1 077f

0748

(

ER41o ()ER4C

· oo· OC'FD 0322
A 0U4 OCC!! 0356

0286 0298

ER4E A 004 OCE9 t~73

0311

(

ER44
C:t:ATA

.. ()04 OCAl 033'» A 004 OEA6 0595

0292 0304 o:ne
0578

Efl'TB A 004 OEBl o~~e

0587

(

ERSE A 004 OFS9 0676
QeReP ,. 004 OF6S OESI

0651 0660

Ef:l8F ,. 004 OF7:! o~es

0669

c

ElCPY QFt:cTN

A COi 165E 1400
c 001 0A0'7 1!!36

0&"1& OOL'lO

HALT c 001 0222 1!533

0047 0098 Oil? 0,170 0232

r
·~

CHDOA
HOOS

A 021 1ee1 1507 · 018 iBF2 1£09

0542 0613 0700 0768 0793 0812 0897

(.

HC'JC A 006 IC29 1511 c~t4004A A 033 l'ii77 t4E'1

0963 0268

1-;co·e A 026 1991 t·ee 0274

(\.
DATE
EC ND.

1EAUG74 S24"16S·

PR'OG 10
PAGE

I EAUG74
e247ES

t5NCY7·
e2·e7o

l258
ueo
1334
1082 1383 0345 1032
0249 0828

..... PART NO.
S::AGE

5!558423

1379 1200· 1201 1203· 1204 1206· 1207

1364 t378 0362 0379 04$9 0477 0535 0606
0335 0352 0369 0386 0459 0490 0878 0944 1061 108~ 1118 1129
PROG ID PAGE

·

·

·

··

··

·

·
·

·

·

·

·

·

·

· · · · · · · · · · · · · ·

·

·

.
,

. --~-.

·-

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

·

·

·

·

·

·

· ·

·-·

·

· · · · . -···- --·----··----··· . · · · · · · ·

IBM MAINTENANCE OIAGNCSTIC PROGRAM

PART NO ..
PAGE

c·'. 5558423

IBM MAt ...TE"NANCE OIAGNCSTIC Pf'CGRAM

15

PART NO·
PAG~

5558423 l5A

40~1

3741 ·ATTACHME~1 TEST ·ITH -WRAP CONNECTORCRCSS-f<EFEJ;ENCE

c- 4021

3741 ATTACHME~T TEST WITH -WRAP CON~£CTORCRCSS-REFEf:ENCE

SYMfOL T LEN VALUE OEFN

REFE~ENCES

( SYMBOL T LEN VALUE OEFN

REFEREl'ICES

1-lOO!:' H006 1-1007
HCOe HD09
HFC04 ~FC~5
HFEOO
HFFF8 HF9.llA HCO'K HPL )Ol
HOO FF HCOOO

A O~E A 049 A 041 A 045 p, 006 A 002 A C02 A 002 f., 002 A 002
" 031 A 002 A 00 2 A 002

t<;B!:
1810 l A83 1ADO te6e 16C9 H:B7
16Ce 1683 16Bot;; 1BEA OA4C
leCl 1699

i·e~
1502
14~'1 14fi;<;
1505 1448 143<; 1449 1437 144:0 lAl."2
{)C4E
144.tl. 1540

H0001 H0002

" 002 j;. 002

1698 1690

H'l!J! 1!:42

HCOC4 ,. 002 l6Al !!::&3

H0008 A 002 16CC H:~E'

HOOlO A 002 HiC3 1445

~002C A 002 16f3!' t43f,

H0020 ,. 002 16!\'0 .t430

l-100!;0 ,, 002 16E1 1 £;::Of:

HOOeo A 002 1517 1431

~oce2 A 002 l6PE i · · i

HCIAO ~ C02 leAF 1·~5

HClEE A CC2 1680 144~

H01PD A 002 l6AO 143·

!-'Cl. <;O Iii C02 1 t·AS !!'.33

HG6£'2 1-o 002 !6BF l44~

>40if' EO ,. 002 16A9 1432

HC1::0
~3oeo
H::'C82

/l. C02 ,. 002
A 002

l6CD 16(7

~.;50
14 "'" ~ 4 &Jf.

ID8YT /, C43 1 E''9A 141';

I DC!<: IFSO

" Ol 5 1 e.A9 14 SC
P. o:ie t7e5 a4<:5

H.\IT!... ~ Cil'.\4 !310 10".d'!

INTL

A 004 133.;. 1104

INTi:;O ,. (.23 i79C 14l:t
!ODIS ,. o 1 e lAE2 1500

JCSL1" A 017 1A26 1491'1

1 TON

A C04 152E l'.:?09

ITSON ,. 004 1518 1302

L lNt:
LHJK (

A 001 138E 111:16
c 001 O?l(; 1!:2E!

LSIOC MAPS

oocc CC05
139C tH:3

MAPSS MP07 MPOf
MPO<;;
"'SGl MSG16
MSG2
MSG2B
MSSA
"'sse MS5C
~ssr:
MSSE MSSF llllS5G

" 0~4 ,. 002 A 002 r. 002
- ()3<; A 001 ,. 039
A 001
. A 024 ,. 024
" 02~ A 024 A 024
A 0241
A 024

U15>1 OEC2 ()F94 1058 H:Fjllo
tfio~
1721 ll>FA lC41 !C59 lC71
1cec; 1CA1 1csc; 1C01

11/,<;f
C(; 12
OC:-..9
C7<;;?.
14!9
1·ee
t46i
14EO
151:? l~ 1:3 15i4
l !: ts 1s11e
t !: l 7
1!!: 1 s

MCS 0!510 0St:2 0633 0720 073'9 02C5 0747
1169 t)15()
Olt>)
OC~2
0729 0078 0919

0772 0776
0044* OO~f~ 007Q 0103 0211 09$4 0988 1004

C58! 1020 l 03<'.·

HOO

oen· oe'1l1
tUH

oa~.is oss"i-

:)909

(l~\)6
C5f:O !O·C·3
().16~3
09-;)'1

0644 0974

tifi~;··-.1'
.c!·t,;;29

O~.t<B.3 C·~)?.1

'10'?7
0'82~'

{;.~""} :\; 0':£\'95 c_i-;e5 (~ '"i' 2. ~
O''i?,"1''3
'lH'!"':i
a.-;n t'
09tl":S 00'67

06.::i~ l
u:o ii.
l 538 c~: t: 09i!5

Hil 12

01~5
1i0913¥
mn s
04Jli6
0376
11:306 li299
t139$
o~e4
0·39 083U

0200
1142· DlDD
04~1
0861

D27f
1145· 015·
06~2
0880

0408
0172 0525 0927

C215 05.J:,il-

C234 C591 1050

025i. OMS l 06'.S

03HI
(1~1,l"2
1 0'9C1

07012

()3.5A 0?~·1
L::!i.

! c;;~· 0770

035~
0795

D~9b
aege
!lES· 0'5961!!:
06/B* C7i'?lpl< Oi')::H el'>:Jl
1Ct'1"3t\ Oil:36 ll(i 12 1413 ht.14 1415 1itl;16 1:.417 1~18

~168
076G 1166· 05gq*
0682~
0778* 00::12
00'.:!?

0230 0791
11~7$
0680*

0247
ca26
!l6e$

0323
oe7~
1!72

C350 0942

036~
HlS9

0384
~086

oc,=.1 ll16

fJ!~f· t; \li 27

M55H A 024

NCC1 NC02

" 017 A 033

NC03 A 010

NC04 A 012

NCD:O

A 0'.3e

,· NCOD
' NF NFF

A CC'l .. 004 A 004

NOON

A 034

«,_ NCiiH>· A ('It

N"l'PDY NC\)0

A 004 ,. 002

' NC0 !

A 002

;'1('02 '- C02

N003 NCO'°"

" 002 · 002

1-;(10f'

/A. 1J02

(lf.<!JTS P v3:?

r n r P~.i::

t oo~

1'":'>#-."f ~·) ~:'{'(_"pt

~![:
/4 c 0 4

tCE<t; 11'88 1709 17EB 17F'"!' 1 e~ ti 1 S!;A l51C
1~32
18CEi
113~2
t3Je 169S 159!3 1690 169F t 61> t !61>.3 t $>..I\:;:
!29" t.951:':' ~ 4 3~~

1 !i l <;
l~Ee
1469 1470 1471 1472 1333 !3C3 1310 141:1 1476 1111. 1424 1425 11r12e 1427 1421.l 1 ti? .. 1 "'98

.. ~' ~:~~: ,
i ii-"-' ;;~1
"~·~

:~~ !ic~

::~ no.~

J'. (l04

( r1S"i Ol'":' ~

/. COil A S'l04

Fl i)R YV A t11e

PSO IS
FlH"''·"
Fii'!'OE'
R"fNOC
n n.~ O!

f.1 03(.
"·I Col.
..... :.
t 00

OY~·,1'02

, Pi!"-,.03

(1l!1

~YI·~ t.~~. r~:~H)~)

r, OtH ,, tliJ l

. ~<i·'10f) RTtJO?'
~'iNOE'

i' ()Ci ,!\ 001 ,, 0:01

Pi:·J'.:JJ ;t OOM.

Sf''l"F!:': '.:' C {'0 ii.

:SHDf5" ii!. 00'.!l
'!::(PF-7 t. O(llii

SNS~A ,;:;, 002

SNSfB to OfJ2

SNS'"T $NSOC

I. 002 ii. 001

1 3'~~ ~~ .J~ ".''9 1 -:: ':J;; J, 2'.::<3
i 11.1 ~ 1DOC
1 Cif:: ..:!
i 190
() ~l ~~ ~
ose2
Oi'lr'I 0000 ODF:i
Ot:4~t
OEtH) OF9F 020il. 109A
l~2C
I ·i O:J 11138 l188E 1t5if:

0-5~E
]. l ~ l.r
i. ~ .?,t
i l. 3(.\
0805
0'?56 or.60
01~0
OH14 02f1
o::~a 0~:03 O~!:S
01:.26 (! 1' 13
u::::!:
08::!:2h 13£'3 OIC' '1t.; 0940
o:: 2
l!:: 39

S:\\.:SOi SN502
\.. - s:..:so3
~"-SV, <;"lSl.iC
SNS!!E SNSl\4

~ 002 A 002
" 002 /.. 002 It 002 f, C02 ,, 002

!D.~ ill l
C850 OSEl: OC8F OCD7 OC!=l3 OC83

{'1094
0Ui6
O~c\~
0331 03!::0
031'-12
0348

141 'i' 1:345 1348 I 070 !3!SS 13'56 1:338· 129!::· 1296· 0108 1U4
\')11"4
1540 1.200 1203 1l63 l 'Sf.i.3

1349 1352
1359 1339 1300* 1:307*
!103

13~'.3
1'0'
1306

,346 1350 1353 1:302$ t::!lt· 1!09· 13174

1356

1291 l :'.'! 1'!!5 13e7 1541 1270 1316 1317 1368

C~95·
o·Fs
:~a* ~.= () -,,),!

0598· ":J·;;;i:;1 0143
\ ~ j. ~:

0ec! 01e!·

06?7·
c1~e

D!·l·

G665·

0691

:..-:· {' -:· ~ DE·: r::
nJtC
~C3PS ~70~
?349· !'?B·

0 1~.:iJ./£:",.
~: ~ ;: '.?
C6B~:::
l
I~~~* ll~I*

'DC(~,e..
0 ::: 3 9 C:?'!_ 7
0039·
~u~~ 13~5·
1144$

oc·e
03~6
0755 ii4"i"

o,~5 05~3
07SG
U6~

010~· 01(6 ;c77 10!3· l!Se· 1~59·

01·0
O·C2
~009
L:? 12

01sa
D~·3
0821

010~· 01oe· 1150 115~ 1362· 136!·

C189 C«t:7
~'H}·;; .. 5

0195 ti5C7
()89~

0110· 01120 1'51* 1~·2 1365· 136~t

~2lq
c·;;2.;
ot~·;;;i3~
~11~
13e2· J374

0236 :1!5!"9
'°"''6C
0 ! 13~
!34:\~.:.t:
1'.375

0265 0600
1054
Ol l 5~
13~£:}~
]30l'I<

1~e~~$1
i ;,82 cn:n·.t;.

mP~'3~:"
c z,..

is-r
0~~02

1l88 11i;~o 0278 C'1~~fj

05?~ o~-67

0~38

01;;:.5

('037

(H:~6:8
(1(1.5 !'.l~O'i'
0<.92
!)l(;.,~'6
()i'.'t2
Ol3? Ol SJ!l. ")241:3 !_1,,.(l('.i
051'!5
0~:57 {HS::.~.;::
~ t tl ::. '. c:,

t'b40

r1c!"-6"' 0910"
0222~
09<29* 1021* lO"?S 0082'$
0!.'51*
t·2C6~
0283Ci
02<;'5~
0?06 0289'

cB~e
l)912 0214 0'99llll 1023* 107<;; 0')!33
0153 02oe 028!'\ 029'1
0310 0291

oe:ie
0912 0214 0992 i024
008~
Ol 5~, 02012
026~
02'17 03!0 0291

08~5* OE51 0920· 0~22

085~
C922

0996· os;e$ 09~9 1005* 1007~ !008
1028$ ~ 030· 10'.:!2 103?· 1039~ 1040

0102~ 0103!

C303 03113'$ 03U5 o:.H5

1012$ 1CH4~ 11''1'5 104-~· 1o~e:., 1oa,7

L.

OA'fE

Jl'AUG74

EC NOa £'241715~

15N~V·"t4.
!!24.E70

PROG IO PAGE

402-i
t5

r....... DJITE
c EC t~c.

1~AUG74
82-765

l '5NOV7~ 024870

PROG 10
PAGE

402-! 1511

,·
'

-r--
o
0

·

·

teM M~INTENANCE DIAGNOSTIC PROGRAM

PART l,O. PAGE

4021

CROSS-REFERENCE

SYMBOL T LEN VALUE DEFN

REFERENCES

SNS5A Sf\.5!!8 SNS5C Sl\:SSO
SNS!!E SNS6 SN!377
SNS8

/fl. 002 A 002 A C.02 IA 002 A 002 Ii 002 A 0{)2 A 002

OOOF OOCll 0005
0092 ODt;?
OE3e OECS
OFSD

04E6 0483 0480 0452 0455 0538
0609 C696

St-59A A 002

SNS99 SPECL SSWlO

A 002 A 004 C C:Ol

STPC 1AERR TA1
TA2
TA3 TElFRR TEll
TB2 Te3 TC

A 030 ,. 004
A 004 A 004 A 004 A 004 ,. 004
A 004 A 004 A 004

TFM" A 001

TEST

A 001

Tf'lf'

A 004

TNFF

A 004

Tl<LE~ A 0:!1

TRV

A 004

UNSET A 029

UP3741 ,. 027

WORIV 1. Cl9

WORK
wi.p

A 001 A 037

( WRPCK A 022

XPT

IA 002

)(Rt
(

C 001

1000 l O!:t OAB3 0080 19FO
14CC 1471 tti.67
ltl.60 1404 1469 147F 147B
1490 H4D
1640
l 50A
1520 1944 1425 1902 1758 1A03 165E 190F 1925 1439 0001

0764 C7E9 0102 1!:34 1491 1273
12~c;
1245 1243 1275 l2S8 1254 1252 1261 H:44
13~4
1298
i::os
148!: 'l.217 14'90 1464 1492
1395 t4E3 1484 12?0 15'.'H

XR2 ( XYPl

C OCl 0002 1532 A 006 1601 137:?

0415· 0419· 0422 0416· 0420· 0424 0417* 0426 042E

0422 0\24 0465

04E3 04E4

C432* 0434 0434

0431· 0-436 0436

0520· 0522* 0524 0574· 0575· 0577

0524 0577

ose:s· o5e··

0643* 0645· 0647· 0648* 0650 0650

0665· 06E:E:· 0668 066e c67t;·

0731· 0733 0733 0737* 0739 0745· 0747 0?72· 07'76·

0070

l\81

1068 1234· 1246 1250 t2t:9·

1238· 1244 t2:37· 1264 1236* 1265 1235· 1255 !241· 1253

12E3 12636
1264· 1265· 1271 1259 t2TO· 1261 12~6

t26E·

1240* 1267 1267·

t2::9· 1247

1256 1276

t l t\3· 1164 0463· 04e4· o·65· 0972· oc;?s· 0977

1293$ 1312 1314 !314· 13~8

1294· 1315 1315·

0222

1210

0342

oseE 0654$
o9eo

0566 065E$
1209

0657· t544

0659

0659

03!59 1076 15:37 153._

()1~8 0192

OlEl 0239

1078* 1243 12!2 13?0· 1379 0040* 0041 030E* 0308 1077· 1164* 1165 1189 t2C2· 1209 1217* 1219 1235 1296

1166 1167 l '335· 1337

1372 t375· t3e4· 13es· 13e1· t3ee 1076· 12os· 1211 121e· 1234 12~5 1374·

t?E4

116B tt1'"3 1368· 1369

,.CTll-L STA'";"ElMEtns FLl'C:(;EO JN Tl-IIS ASSEMBLY ·

(
'~
c
r·
"··-
c.
t ...

5558423 16

c IBM MA~NTENANCE OlAGNCSTIC P~OGRAM

0 4021

3741 ATTACHME~l fEST WIT~ -WRA~ ~VNNECTOROBJECT CAqc LISTING

PART NOe
PAGE

!5!5!58423 t6A

c~
THE CH.U~iilCTER

INDICATES A BLANK COLUllAN ANO 'iHE Cl-ARACTF'F<S 0 E H .tNOICATE HllMERIC SHIFT.

(': CL 1 "T ;.s;:cuGH t 6 CL 17 7HROUGH 32

CL 65 THROUGH 80 CL 81 THROUGH 96

c~.

_it ··

GBK c;eo PN ~5

c T+-V:t;EO £ E.-7

5S422 EC 824870 ~·4A& 0 BVG /OH

3741 ATT TES"< \'I! HD&O 6CIP /OHE.IKX

TH lllRAP CrtNNECT.
·- 0-U f /OM HX"( c·e

eo!'. /ltC&>C0~<!40

OZ3D O.YQ402t0002

0 T+-COJJER<Mt-!OWLE OEX~C&OC/C&O~Y&O
t~ T+- .. 1'00£00/C&D

Z&ec /1NS "lJ c

0

-

T+-_/o&:ilolco1JJE

0 T+->* 0 · · GAFN&

04&:iBG n:A 1 Ju I ~:j I

A ,S FCH:Ol'QRt9'

c T+-u tc~3,&CA&/(

/O~~NOOt9D- ~ea

CB=H( &?SB=C2 LO lJJQ 5T*402t000?

/01-E&KDR l4BUOH$

S~BI /OHOOM·BF~H
eF-MEFRG l'l<lOH·

...OF~M OeY402lOnoe
L09 L:·4021000~

3C.~2 OT3£- 0&03 PC&0<503N&-EQE4 H<O< RCU40210010

()

T+-3CENWC.,&

In

'Ot!OOH·EFIOHF U

,l+·uu. /OHS&e~ /OH ~tU402t0012

.. - () T+-~4C)~i) 7EC&O
0 -· T +-70 Jt:I eC.lY< JR

1~eG ,oe 710H*
(707lm-E-C&0(6-7
( C )P l'OHEO/<S<D

eFuMuFsN z·eGct7

Q~-EPC&OC5&7Le-E

ZOH$NOOM

~o

. /lfCiC0~&4DEe·<
...+<MOO>·( CLABCR· c·oH·LXl:20H· BB&

e<DMC73ABClvo&c7
~J&~KC&DCU-6&8-0
eHU ZOH·BE-OAEUU "£~GD92K**B

NI M £40210014 (C~O 3.040210015
. - (700 ;H0·02l0016
G SH 80040210017

0

T+-ev&eT l'OHOll-

·-t'lBGEN'Xl:'.B

, .

·· AA~CCACAECT-i&JE

++ 4ACT-+CXB

0 - T+-:~tco1&JE·<MM OW3EEEZX3&1 O&O· .<D<+20&AC~X+2~ AH~EEED01JJER4< &<D<+23ACCXX( &· .c"u tV040210020

DATE
EC NO·
(

l EAUG74 E247E5

l5NCiV74 e24e7o

PROG 10 PAGE

402-1 16

0 DATE
c E<. NO·

HAUG14
8247~!S

l5NC'\174 e24E70

PROG ID PAGE

402-1 16A

.c

·

·

·

·

·

·

·

·

·

·

·

·

·

·

0
· 0

·

·

·

·

·

·

·

·

·

·

·

·

·

·

···

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·1I · 0

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

teM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558423

JBM MAINTENA~CE DIAGNOSTIC PrcOGAAM

I? 0

PART NOe PAGE

5558423 l?A

3741 ATTACHMENl TEST ·ITH -WRAP CONNECTOROBJECT CARD LISTl~G

4021
0

OBJECT CARO LISTl~G

cL· 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 Tt1ROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 ()cL I THROUGff 16 CL IT TMROVGH 32 CL 33 TH~OL'Gt'! .a CL 49 TH~OUGH e· a.. 6~ THROUG~ 80 CL 81 THAOUGtt 96

T+-·<Tt4.&C84IS" ...

txaeG /ZE.J.&&HT AhCCHCACCe7?&l

.11< >OH*LO" ii>I CE
0&0=(<D<fT&4ACt4

AEw7?&1 0&0:(114<
ts·HA<~cc&CACC57

·ii>BGD92LDSB H<D<IT... (CDCACC84 3&1 O&O=<<D<IT&4

0 · - G SH SBU4021002l

T·J'f VF HEM&OQ lZ

·- () 0&0~ EAU40210022.

T+J"&TOl't~5Ct'J~fZX

e

. -

AC84 8YY402J0023

T+.' J:C3QAEO<fi tfE

. -
~ ·BG /OFH/ZE4H· 4BAteuo C01'!EZ4

Bl -L53S -·20 V 48A&Dl&t-
t: -MV?&BE<ll

· JIPEZ· tfG 4EA&7L&MFEU72 .J · JLPI OM~LOAEF-

. -
S -J&/ SBG .l'OBF 8 J.121 Dll';LOAEH

8 Jg OJ 40210045

T+-=GCE?2 KG3& 7

( T+-"BCC 19

·- "~8 Gt92L <BG S! .xe G /01 AATO~*BFUte eFE/ O*SG017 / I I ceco~<M0073EEESO

C- M3H402I0041e

.ea T+/ 8F~~KFT/

, .. ,fl+

*U3G /OHS&B" /CH

c:c D&MASI 11 &EVTX

AOET /l "C O&MAS

/OH 03<40210026 elf< 6H 40210027

0 T+/MIP

OH*MU

e T+/NHA3::10EJ72/0&

{-Cta3&HE+S< .JL

t .Jiiii I

C- E(7

< .JL) 6E~E SI -NILOAE&Se .J· , ( t!NG3&A~N8 ~L *8/ =:~40210048

N<3C

e E&XNBOt! EKD NH~8 LHY40210049

T+,fA3FZO: JAQOH· BFSH-FDC <<BGENS C

/Ot'S&CC /OHOe-

JE*BG l'ZEtcJ>l&He

0 -· 1'1< N·440210~2e

sez; T~/ce J.,~EZ41 JM

/1 MH C&t-!EO. e &

r>t.:S 0 E"V

(
T+,fB:>GLEAEZX3&&C
(

l&JC )B!ll40210029
.

0 T+/P >C4BENw2 £0

1 t t:El>-CFCAD)& , ...

T+/CZ 3L EEEZX3&&C 3&0&1JJE/<MMOWLA CD&<( JDCO&G2 ~. ?&£CJ&0&1JJSC<llll~ OWLACD£<( JDCD&G 2 $$.i1Q840210030

LtOOIGLSQC-Ol~M-

...J&J· ? M40210050
7F Q 94'040210051

··'
T+/E~c17 /llC~CO

a<MOOlLEAEX~3&-D

1.JJE)<M.,C'llLAEOCX

JFeOCX2 tcXl&JS E<~OOl"(A LEEF.ZX

SC Dt!.JoilBG

C tfD ·& C <O ·&

+D *& · +D ·&H H <D ~·H402100~o\

( T+/~N /Q< l""OM·
(
c T+/Ie<~00·3EEEXO
T+/~F&1ROIBMONC4

eFVM7GBV ·<BGOl7 OWLEAE0?3&1 IJJE 1JJER<D<ONTOHEV& SEVS2 Nll1&JEX<D<

.11 tceco1:<.-MO_LA

C
CE~41&JEZ<~MO_LA
Mf&CCN?HA>3EAED4

·OH*LXI(k OH*BHU CEUX9 JR<~ZC+· D O&lRCf ONC4 EVS

20H· 3RD40210033
. -
OK?H 4H"40210034
·- ..
2 E- 9 U402l0035

Ci T+/EX 1ue CA tu
0 T+/SX- F- DC.,c:

·B/RO&-FC<~DO.LA
ONTO EV&· ARoe-e

CEVC8 AR~f& ON?M
<<~DC.LEEEe01.JJE

A;TEAE04tJJEV<MM R<O<ONTtBEY&·&/R

OWL
oe-o "TU40210037

c T+/;QE4CT~CXN&(...

a c1 1u a c1 tu
X"NP90-BB ·-Kx-c C.CA &DA &DA &C-.
09XP~&<.A0 1 l 5_N

e 11 1tAGeu··.121G~D ~>J3JG+u
" A 0-Te · i..= s
E6·S06)J E>TS!IP &DA &OA &CP08EN

OD QHBBH

AU 0 ;~M4021005!5

T&+IHlMCW~~GP&<I O!SlM 3A-4021005E

SSQGR84_ &DA &DA &<U RB-40210057
a_o 5YQ4021oose

T8>IE50CR1:.E86_

( /OHOOH*SF1'HCF1/ <EeG092UU!8G St

6·M MC040210060

(
T+,f.lil( OJGL 1JP:ae G07·<e.J44FCC /l(

l!S·PSl<GTOMCAI <L RJ;. !!<:IC.Al ·PCE> I 1o·ce:·tE&<~A88E

T+/<7DEC<BJ'4UE:~ T+/(20M*BFX~KFE!

. /l&~<iH*L)l>BGD92
IXBG092&*·BG s I

LN<BG SI (<BG IC
-·

4EA<7<MCCZ3EBEZU 4BA.R

1JJER84 (OM L+<B G

0

00040210040

T+/,fl0lFSJ1'FR£(X

( C&DOLJ-BFUlil F <

il-J< '":-40210041
- ...
EM OQVl\0210042

0 T+l'S05>( E~PAl+/

El8XS8SPRllOCl&i1
.&i......·£Mct auce9+. -tt· &CCllCCE21 I

&·C·&IN ·uC?Q<P VK"t7·IE O>Ls:cc SKQXD&+eE5$eE&cl

eei:ce:+IEOFCE07E C2<PC4U?Sl1PStNC

~>TT10C3··Lt&<X
Fs_v eeTE£FC·6·G 05)PEC·f060A 5)S

S&CM P,Q40210062 P&<< ·JH40210063 T&<U ·1040210064

L DATE
EC l'\O.

l!SNCV74
821\870

PROG ID PAGE

402-1 17

DATE EC NO.
0

l~AUG74
824765

1!5NOV74 e24e7o

PRDG 10
PAGE

402-1 17A

c JeM MAt~T£NANCE OIAGNOS~IC PROGRAM

PAR'r NOc PAGE

(

CL

I Tt'ROUGtt l~ a. l? THROUGH 32

OBJECT CARC LISTING CL 33 THROUGH 48 CL 49 'fHR'JUGH 64 CL 65 Tt!ROUGH 80

901 CL 81 ......,......

c: T+,T:5;.TO)IL1·~

e&DA QFA-&<XNSXP

AS.CW6*GP&<IOStF

EO·fC6MA-OFA t+i

E6>C 21PTI )XFO·I

~··<· EL<··S,··OZIOOO·I
.............. :

('
· T+'lld·6·1<VI tlCSK8G
f"".
T+,,<Wl )FClMCTUe

.···NI cee:itvo;le&<v,suc st t tEo·c

n

TK·~'SUC'r6·GNexs E6MCL2)1=£8UCN5>C

S·R 20GO&+fRO)P Sl~PR&CllS·PS&IE

· U-F~CSF&+lROtP
·
e·Fs1;c.20G0&+t
. OJFC&ICe20G0£+1

SltiPR&FCES>I-&+. E~+&.RA440210068li

. 8ICO£.<PN8·J(Y~IA

. ·asM.KHv·o210069j '
. T&<< 5Tcai.02l007~t
.aaM P~e·o2100?1'

ROJPSIXPR~llt5·N 94 .... 440210072.

<:' T+,.KE·Pst;c oeT EO·J.S8PS64CR1;. ee.co1uc101R·e·· AS;.FIJV .aJXffl&I
T+"H !'!;.eta JCE6SP

. - uesu aes40210074

c T+,_MS·> 20~D&+e E4ZPC64C3KSP084C S1)TUllPCIMC,2<U> C4~t~eSN 6·PAIFG W6·XTIMCCOlfL&+f O&CU ~L.-0210075

>,_

c . T+,>c1;.ee·ctO)R

. . e·xAs:.FltV 48X Nl:I 84CA~·J ·Ct T1;.T&<Ge2>11e=, SKR 2DG0£+1ROtP SISM 2.44021007~

c· T+/79lWFR&Cf1~·P
c T+1'042Jtte=I' e·R
c T+,1?BWIE6MCC2<P
c

. . . S&1E O)PC&ll 8'R
.4&>·..T081' 20GO&+I
c·u_ &<PN 1DCR I;.
SI H OllTEO~ I ODC

18PNl)XAEEN· l)P
RO)PStWPR&Ctl54P
E84CC2<PC·"A-t.I· IK. .·&DC:l!llE6;L

D&CSF&+IROlPStXP
.~&tc.&tJ.&fR.O)P
.ODA O<V,5UCD21·
:··CFllPS:ZIPGO<I

R&FCES>C-K~tee>C
O&l)·t>PD&CSF&+I cs_PNl·IT&<(Hl·I Ht·(KK4CEO·J"6·P

..R9)M.·S8402l00?91 ~
KK· ......02100801
:St<~PH-·02100811

(

d'°:'.
t:~. ' T+,!V&<l~t·l~&FA

au_ &DA l<XSO·S

caTf.O·leO:fT~·l H5<PNB4CD6·XYl)V 01>- POU402100821

c ..... . ··········
c ... ... . ... ............. EB.IE*E7·=-.0C"PHS

02; .. ce_PNl·I T&C 1
.·...·........·.

=.-7tt&FI

c

·eelH&<SA2)fS&·I
.·.......·...·..
FX ASC

c&c·eesPT~). . . . .
..·..·..........
so Q

................
················
···.. ll350908741

.....

t

PE&·o21ooe3
~ IE 4021008·1

I

t21745S-4C210085!

c PA~E: -----------------------....----------~-- LAST

I ------------------------\

· · · · · · · · · · ·c · · · · · · · · · · · · · · · · · · · · · · · L

(

D'-TE
c EC 1'!0o

HAUG74 S:2476!5

15N0\174
e24e'lo

PROG ID PAGE

4C2-l i
is I
i

·

·

·

·

·

·

·

·

· ·

·

·.

·.

·--·

·

· · ·-· .· · ·

· · · .· · . ·

······:... .

·,-·. ....

.

18~ MAINTENANCE D!AGNQSTJC PROGRA·

PAAT NO· PAGE

5558781 I

IBM MAINTENANCE OJAGNOSTIC PROGRAM

--~·· PART NO·

PAGE

IA

4032

3741 ATTACHMENT OATA TA4NsFEA TEST

4032

3T41 ATTACHHENT DATA TRANSFER TEST

ERR LOC OBJE(T C~f

ADDR STMT SOU~E STATEMENT

ERR LOC 08.JECT CODE

AODA STMT SOURCE STATEMENT

0000
OAOO
OAOO 4032 0A02 00 OA03 01 0A04 0000 OA06 OAOD 0A08 FFFf' OAOA ·05000

OAOl
0A02
OA03
0A05
OA07
0A09 OAOC

CAOO Cl
C"OE 00 OAOF OA51

OA~D
OAOE 0A10

CA 11 CO 87 021A OA15 42
0A16 lE OAl 7 IASE 0Al9 40EO OAIB CO 87 021A OAlF 06 OA20 17
OA2l lAAO
OA23 3C 40 1F78 OA27 OC 5A 1F77 IF78
0A2D C2 01 OA51
0 A31 34 CU OA07

0Al5
OA16 OA18 OAU
OAIF
OA20 OA22

CA35 30 EO OA4C OA39 F2 81 07

OA.3C 3C EO OA4C OA40 F2 87 04
OA43 3C £1 OA4C

OA47 CO 87 02.22 CA48 40EI

OMC

CA4D CO 87 GAii

2 ·

LAST CHG :oe 01 74

3

DECK 4

4

SEO 0

5 L3742 START 0

(~

6

TREP

7

ORG x·AOo·

9 8 10

·············*******·······**·············..······*··············*-****

***··· ·

SECTION PREFACE

e

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

,.~

11

DC

Xl,.2·4032·

PROGRAM 10 ANO FU;VISION LEVEL

12

DC

Xf..1900'

SECTtOt4 FLAGS

l 3

Ot:

"'-I 9 01 ·

CURRENT ROUT I NE NUMBER

14

OC

XL.2·0000·

RESER YEO

15

DC

loL2fBEGlNI

FIRST ROUTINE ADDRESS

16

DC

Xl..2·FFFF·

17

DC

XL3·405000·

R!:SERVEO SPUT

18
19 20

*.......................io:·*"'***"'"'P*R"O'*G*R*A··M··N·.O.T.ES*"'******···****·*****-********

21 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .~·····················*··

22 ·

·

23 · ASSOLUTE_AODRESSING NOTE -

2· · 25 · 26.

IF ANY CORRECTIONS OR MODlFlCATIO~S ARE MADE ON ROUTINES 01 - OE. SE SURE TO CHECK THE ADDRESSES OF LASLES -JUMP-

·. c

27 ·
· 26 .. · 29 * · 30 ·

AND -INTS-· THESE TWO ADDRESSES MUST· WHEN OR'ED TOGETHER· ( INCLUDING THEIR PARITY BITS ) CONTAIN CORRECT PARITY·

*

SEE THE EXPL.ANAT<mY NOTE IN ROUTINE OE·

****···:M<······························· 31 ...............................

32

3343 35

·························*****·····················*·$·················

* ·

JNTROOl.CTION

PROGRAM TELLS OPERATOR TO PUSH SYSTEM

· *

36 ·

·

-37 3398

·
·B·E·G·I·N·

·

*DC·

·

·

·

·

·X·L··l··O·J···

·

·

·

·

·

·

·

·

*

·

·

·

·

·

·D·U·M··M·Y·

·R·O·U··T·IN·E·

·

·S·E·T·U·P···

·

·

·

·

·

·

·

·

·

*

*

*

*"'

40

DC

XL!· 00·

.

4-1

OC

AL.2CRTNOU

42 43 BEGINN B

PRINT

PAJNT SECTION 11£:ADINGa

44

DC

Jca.l · 42'

45

DC

ILi ·30'

46

DC

AL2CUPSIDCJ

47

DC

XL2·40EO·

·e

e

PAINT

4-9

DC

JCL1·06·

50

oc:

ILi ·2~·

51 52

DC MVJ

·o· AL2(JHfROJ
PAT+1.x·

53

NVC PAT(91J.PRT+1

54

LA

ATN01 ·XR1

55

ST

FATN.XRI

PRINT OPERATOR JNS~UCTrONs.
SET UP ·CLEARING· BYTEe CLEAR PRINT FIELD· RESTORE RTNDl AODRESS·

c
j I

56

57

CLJ

58

..IE

CURRENT HAt..T -EO- 7 JUMP IF SOe

59

60

MYI

" 61
62 ALTER MYI

f'tPL.xx.x· eo·
... 7
toP&.x.a.x·E1·

SET UP FOR HALY -EO-· SET UP FOR HALT -El-·

63

64

8

INLINE HM.T -Eo- oa -El-·

65 HPLXX DC

66

67

8

SE GINN

AEPEAT IF NO SYSTEM AESETe

GASl Ol 0A52 00 OA53 OA62

OA55 CO 8'7
OA59 C4 0A5A 0810
OA5C: ClFl 0A5E 93T1
OA60 40 0A61 41

lBOB

OA62 02
OA.63 00
OA64 OAT3

0A66
OAi>A 0A6B
OAoD
0A6F
OA71
0A72

CO 87
DO 084"0
CtFl
9441
42
43

1808

0473 03 OA74 CO
OA75 OA84
OA 77 CO 87 1808 OA7e Ea
0A7C OOAO
OA7E CIF'l
DASO ~461
OA82 44 0A83 45

OA51 OA52 OA54
OA59 OA58 OA50
OASF' 0"6-0 OA61
oAe2 OA63 QA65
0A6A OA6C
0A6e OA70 0A7S OA72
0473 OA7· OA76
0A?8 OA70 OA7F OA81 OA82 OA83

69 .........

* 70 ATN01 ·

71 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

72 73
74
75

*
·
.· .

.

.

.

.

.

ROUTINE
........

01
...

.

.

.

.

.

.

.

TEST
.....

DATA
.....

BYTE
.....

TAANSFERa
..........

BYTE ·
.....,...

.

IOe
...

.

.

.

.

.

.

.

.

.

.·.·*

.,.,76 ATNOl OC DC

Xl.l·Ot· Jd..l·oo·

AflUTINE MJMSER· NO MANUAL. INTERVENTIOlll REQUIRED·

78

DC

M...2CATN02J

ROUTINE 02 ADDRESS·

79

80

e

DATA

81

DC

XL1·c4·

82

DC n2·oe10·

83

DC

XL2·Clf'l·

8·

DC · XL.2·9n1·

85

DC

XL.I ·40·

86

DC xt.1··1·

GO 00 DATA TAAHSF£R TESTe
-CONTROL CODE· -£XPECTEO OIAG-DTA· -EXPECTED STATUS-LCl:t· -MAP REFERJ;NCE FOR SENSE
-SENSE CHEU HAL.Te
-BYTE CHECK HALT·

87 88

89 ·········

~0 91

·"'*R*T*N*0*2**·**...............,....................- ··· '#................*.......

92 · 93 ·

AOUTJNE 0.2

TEST DATA BYTE TRANSFER. BYTE c 40·

· *

9· 95 96

. ·
····~·~·········*········

. ·

·

·

· .

.··

·

·

·

·

···

·

·

·.....

.....

.....

.....

.....

..·

RTN02 OC

~1 1 02·

ROUTINE NUMBER

97

CC

XL1·00·

NO MANuAL INTERVENTION REQU!REO

98

DC

"'-2(RTN03)

RWTiNE 0.3 ADDRESS

99 100
101 102 103 10· 105 106

e

DATA

O(;

xt.1·00·

DC XL.2·oe.o·

DC

XL2·C1Fl·

DC DC

~xi·..'1 i·i4·2····

DC

XLl ·43·

GO 00 OATA TRANSFER TEST· -CONT RtL CODE· -EXPECTED OIAG-OTR· -EXPECTED STATUS-t..CRe -MAP REFE~EHCE FOR SENS£ CHECK·
-SENSE ~HECK HALT·
-BYT~ c.MECK HALT·

107
108
109 ·········

110
111

·· ·R*T·NO*:!·J ······----·..···...................................................

* 112 ·
113

ROUTINE 03

TEST OATA BYTE TRANSFER. BYTE ·AO·

·
·

114 ·

·

..·····.. .. 111165 R·T··N·0·3··D·C······X·L·1···0·3·· ~·····****· ROUTIN·E··H·U·M··B·E·A············~····*"'·

U 7 118

OC

X4..JSOO·

DC

AL2(RTN041

NO tNTERVEHTIOH AEOUtAEO ROUTINE 04 AOOAESS

119
120 121 122 123 1.24
1Z5 !26

8

CATA

DC a1 ·ea·

DC

XL2·o&Ao·

oc

JllL2·ClF1·

DC

X&.2·9461 ·

DC

XL1c44·

DC

XLl ·45·

GO 00 OATA TRANSFER TEST·
-CONTROl. CODE. -EXPECTED OIAG-CT~e -EXPECTED STATUs-t..CRa -MAP REFERENCE FOA SENSE CHEt.lla
-SENSE CWECW. HALT· -BYTE CHECA HAI.Te

OA TE

16AUC>74

EC. NO. 824765

15NOV74 824870

16.IUNTS 825057

PROG 10 PAGE

403-2 1

l>ATE
EC NO·

r J6AUG74
624765

15NOV74 824870

16JUN7S 825057

PAOG ID
PAGE

\..

-·~- --- ·-----~---·---~------------------------------------------~--------·- -·-

IS· MAINTENANCE OIAGNDSTIC PAOGRAN

4032

3741 ATTACHMENT DATA TRANSFER TEST

PART NO. PAGE

5558761
2 j '

3741 ATTACHMENT DATA TRANSFER TEST

PART ND. PAGE

5558781 2A

ERR LDC 08..IECT CODE

AODR STMT SOURCE STATEMENT

ERR LOC 08.JECT CODE

ADOR STMT SOURCE STATEMENT

OA84 O· OA85 00 DA86 OA95
OA88 CO 87 1808 OAEIC El 0A80 08015 OA8F CIF1 0A91 9481 OA93 46 OA~ 47
DA95 OS 0A96 00 OA97 GAA6
OA99 CO 87 1808 OA9D E2 OA9E 080A OAAO ClFl 0AA2 9501 OAA4 48 0AA5 49
0AA6 06 ~AA7 00 0AA8 0AE2
GAAA CO 87 021A OAAE 45 OAAF 15 OA80 1CC6 OA82 40"6
OAIM CO 87 145C
OABS CO 87 U511 OABC FO 3C 3C
OABF 31 41 IA30 OAC3 31 42 JA30 OAC 7 31 44 lA62 OAC8 31 45 JAJO
OACF F3 43 00

OA84 0A85 OA87
OA&C OA8E
OA90 OA92
OA93 OA94
OA95 0A96 OA98
OA90
0A9F
OAAl 0AA3 OAA4 OAAS
OAA6 OAA7 0AA9
OAAE OAAF OAB1 OAB3

128 ·········

129 · RTN04 ·

130 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

131 ·

·

13.2 ·

ROUTINE 04

TEST DATA BYTE TRANSFER. BYTE s 05e

·

133
134
135

·
····· ATNO-·

·

···
oc

·

·

·

·

· · · · · ·.
lCLJ· 04·

.

·········N··......... ROUTINE

.......
NUMBER

.

.

.

.

.

.

.

.

.

.

.

..

.

.

.

.

.

.

.

.·.Ir

(;

136

OC

XLl·OO·

HO MANUAf... INTERvEHTION REQUIRED

137

DC

AL2CRTNOfU

ROUTINE 05 ADDRESS

138 1.39 140 141 142 143 144 145
146

e

DATA

DC

XLS-El·

oc

XL2·oeo5·

DC

XL2·CIF1 ·

oc

XL2·9481·

oc

XL.1·46·

DC

JCLI ·47·

GO DO DATA TRANSFER TESTe -CONTROL. CODE.

c

-EXPECTED DlAG-OTAe

-EXPECTED STATUS-LCRe

-MAP REFERENCE FOA SENSE CHECK·

-SENSE CHECK HALT·

-BYTE CHECK HALT·

147

148 . . . . . . . ..

149 · ATN05 · .

I

160 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .:

* UH ·
152

ROUTINE 06

TEST OATA BYTE TRANSFER. BYTE a OAe

*I
.;

153 ·

·'

154 ........................................................................·

155 RTN05 0C

156

DC

ll:Ll '06·
llCLI ·oo·

ROUTINE NUM6ER NG flCANUAt.. INTERVENTION

167 158

DC

M.2CATN061

ROUTINE 06 AOORESS

159 160 161 162
163 164 165
166
167

8

DATA

DC

XL! 8 E2·

DC

XL2 1 080A·

oc

XL2·ClF1 ·

DC

llCl.2· 9501.

DC

XL.1 1 48.

DC

XL1·49·

GO 00 DATA TRA.,,SFER TEST· -CONTROL. CODE· -EXPECTED OJAG-DTRe -EXPECTEO STATUS-LCR.
-MAP REFERENCE FOR SENSE CHECKe -SENSE CHECK HALTe -BYTE CHECK HALT.

* 168 ·········
169 RTN06 ·

170 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

171 ·

·

172 ·

ROUTINE 06

TEST BUSY AFTER DOING SIO CONTROL 1·

·

173 ·

·

174 .......................................................................

175 RTN06 DC

XL.1°06·

ROUTINE NUMBER

176
177 178

OC

XL1 1 0Q·

DC

At..2CRTN07)

NO MANUAL. INTERVENTION AEQUIAEO ROUTINE 07 ADDRESS

179 180 181 18.?
183

B

PRINT

DC

XLI 1 45·

DC

IL1·21·

DC

AL2CHD06)

oc

PRINT Busv TEST HEADING.

184

185
186
187 188 189

8
a
HPL

INITL.
QUES

INITIALIZE THE 3741e
TEST FOR SSW 101 HALT -FF- IF ON.

190

LIO HOOOQ,x·41·

191

LIO H0000eX 8 42·

192

LIO ADAS. K····

193

LIO HOOOOeX'45 1

194

CLEAR FUNCTION REGISTER. CLEAR LENGTH COUNT REGISTER.
LOAD ADDRESS INTO DATA AORS AEGe CLEAA OATA TRANSFER REGISTER.

195

SlO

ISSUE START 1/0 CONTROL I·

0A02 Cl 42 OAOA OA06 CO 87 14A8 OADA Cl 42 1491
OAOE CO 87 0216

OAE2 07
OAE3 00 OAE4 0697
0AE6 CO 87 021A OAEA 45 OAEB 25 OAEC 1C81
OAEE 40A7
OAFO CO 87 14SC
OAF4 CO 87 1511 OAFS FO 3C 3C
OAF8 31 41 1A34 OAFF 31 42 lASO 0803 31 44 JA62 08ol7 3C AA 1998 OBOS 31 41 1AS8
OBOF F3 42 00 0812 F3 44 40 OS15 F3 44 40 OBIS 30 45 08SC
oe1c 3c oo os5c
0820 OD 01 OSSC 085A 0826 F2 01 21
0829 F3 44 80
OB2C 30 4.2 0880 0830 30 45 0885
OS34 OD 01 ~eas 0883 083A F2 01 31 OB3D OD OJ 0880 087E 0843 F2 01 28
CB46 CO 87 0216

084A 084E 084F 0850 0852

CO 87 C2 17 lE07 ·04A

021A

085" 0858
0859
GBS6

co 87
OS
2SOC 0000

1699

OAE2 OAE3 OAES OAEA OAEB
OAEO
OAEF
084£
OS4F 0851 0853 0858 OBS.A 08SC

196 197 198 IS8S'( 199

TIO 8 TIO

1sesv.x·42· NTSSY
ausy.x··2·

BRANCH IF SUSY AS ~PECTEOe GO TO EctAOR MESSAGE IF NOT BUSY· eflANCH TO ERROR IF BUSY STILL ON.

200

B

LINK

201

RETURN TO OCPe

202

203 ·········
* 204 ATN07 ·

205 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

206·

·

207 ·

ROUTINE OT

TEST SINGLE CMARAC'!EA T'CA~SFER WITH

·

208 ·

A WRITE CAU.. COIUIMIOe

·

209 ·

·

210 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ._ . . . . . . . . . . . . . . . .- . . . . . . . . ..

211 RTN07 DC

212

OC

.JCLl·07· XL.1·00·

RDUTJNE NUMBER HO MANUAL l~TERYENT'Otll AEOUlREO

213

OC:

M..2CRTN08)

ROUTINE 08 ADDRESS

214

215 216 217
218

8

PRINT

DC

XL1 8 4&·

oc

ILi ·37·

oc AL2CHOO?J

PRINT -.Rl'I£ TRANS TEST t'EAOINGe

219

DC

XL.2·40A7·

220

221

B

JNITL

222

INITIA&.IZE THE 37·1·

223

B

QUES

224

HPL x·.ac·.x·x·

225

TEST FOR SS· IOe HALT -FF- IF ONe

226

LIO

227

LIO

228

LIO ADAs.x····

229

Niii 0AOATAeX 1 AA·

230

LIO H8082eX· 41 ·

SET FNCT REG TO 6 USEC RESETe LOAD U:NGTH COUNT REG. TO FFe LOAO Ao.:>A£SS IN DATA AOAS REGe INITIALIZES OADATA TO A X·AA·· SET 37·1 TO OIAGNOSTIC NODE·

231

232

SIO

233

SIO

234

SJO x··o·.x·4'4·

235

SNS SS07AeX 1 45·

236

tlVI SS07AeX·OO·

237

ISSUE A ·RlTE CALL·
ISSUE CO.TROL 2e 1'0 SELECT I~
- FORCES SERVICE REQUEST· SENSE OIA6NOSTIC,OATA TRANS -2soo-. CLEAR DATA TRANS REG·

2.18 239

CLC .IHE

SS07A(2) eSS07A-2 ER07A

OIAGNOSTIUDATA TRANS AS EXPECTEO 'I JUMP IF NOTe

2·0

2·H

510 x·eo· .x· ···

242

SNS sso1e.x·42·

243

SNS sso7c.x·4s·

244

DO CONTROL 2 TO CAUSE EOTe SENSE STATUS,LENGTH COUNT FOR -ElOO-
SENSE DlAGNOSTlc;'OATA TRANS -OOAA-·

245
246 247 248
249

CLC SS07C(2)eSS07C-2 .INE ERR07 CLC SS07BC2teSSQ7B-2 .JNE ERR07

OIAGNMSTIC,OATA TRANS AS EXPECTED 7 .IUMP IF NOT. STATUSAENGTH COUNT AS EXPECTED 'I
JUlllP IF NOT.

250

B

LINK

251

* 252 ROUTINE 07 ERROR MESSAGES *

253

AETURN TO OCP ·

254 ER07A 8

PRINT

255

DC

JCL1 ·c2·

256 257 258

DC

ILi · 23·

DC

AL2' SAVCK I

oc

XL.2 1 404A·

259

260

B

261

oc

262

oc

263 SS07A DC

ERROR
a1·os·
a2·25oo·
XLa·oooo·

OUllP OIAGNOSTIC,OATA TRANS REG·
-ExPEC"IEOe -ACTUAL.

DATE

16AUGT·

ec NO. 824765

15NOV7e
824870

16.JUN75 8.250S7

PROG ID PAGE

403-2 2

DATE

16AUG74

EC NO. 82·765

l5NOV74 824870

l6.IUN75 8250S7

PAOG ID
PA~

··· · · · ·· ·. -·

··

(.c
·=-···-· .

··

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

···... ·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·
·

·

·

·

.··-_,

PART HO. PAG£

5558781 3

3741 ATTACHMENT DATA TRANsFER TEST

4-032

ERR LOC OBJECT CODE
0850 FF Ci S5E CO 87 J4EA 0862 9541
.. 864 co 87 0222
CB68 404A OS6A CO 87 0216 -
086£ CO 87 021A 0872 C2 OB73 18 0874 lDDF 0876 404C
0878 co 87 1699
OB7C 02 0870 £300
OB7F 0000 0881 05 0882 OOAA ~SM 0000 0686 'FF 0887 CO 87 J4EA 0888 9£42
oeeo co 87 0222
0891 404C
0893 co 87 0216
0897 08 0898 00 0899 OC4F
0998 co 87 021.\
(i89F 45
CBAO 29 CBAJ 1C8C OBA3 40A9
08A5 C:O 87 145C
OSA9 CO 87 1511
OBAD FO 3C 3C
oeso 31 41 1.u.a
0684 31 42 1A30 0888 31 44 1A66 OBBC 31 45 lA.'10 OSCO 31 41 U.44
OBC4 F3 42 00 OBC7 F3 44 '40 OBCA F3 44 40 GBCD 30 ·3 OC19 0801 ~ 43 0Cl9

AOOR STMT SOURCE STATEMeilT

ERA LOC Of!:l.IEC:T C.~

0850 0863 0869
0872
0873 0875
0877
OS7C
OS7E 0880 0881 0883 0885 0886
cesc
0892
0897 0898 OS9A
089F OBAO OBA2
CSA4

U.4 265
266 267 268 269

oc

XLJ·FF·

s

MAP$

DC

XL.2·9541 ·

s

HALT

oc

. lCL.2·40~·

e

LINK

POJHT TO fllAP CHMlT· -P.AGE 9S.. ENTRY 1. ERROR HALT -4A-.
RETUAH TO OCP.

270
271 ERR07 s

272

DC

273

DC

2.7·

oc

275

DC

PilUHT
xa..1·c2· u .. 1·27·
#L2(WRTC«)
a2··o·C·

2.76

277

8

278

oc

279

DC

280 SS07S DC

Z81

DC

282

DC

ERROR XLl · 0211
XL.2·E300· Jel.2·0000·
XL.t ·os·
XL.2·00AA·

l>UMP THESE REGlSTERSSTATUS,LENGTH COUNT RE~. -E.XPEC T£D · -ACTUAL· OJAGNOSTICl'OATA TRANS REG. -EXPE,CTEO,.

283 SS07C DC

284

DC

285

e

286

DC

287

8

288

cc

289

a

XL.2·0000· Jlll...l 8 FF·
MAPS
a2·9542·
HALT
X L Z · · o.. c · LINK

-ACTUAL·
POI~T TO MAP C~ART. -PAGE 9S.11 EHTRY 2:.
ERROR KALT -4C-.
RETURN TO OCPe

290

291

292 ...........

* 293 RTNOS ·

1

**···***! 294 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ., ····· - . . . . . . .

~s·

J

* 296
297 ·

ROUTINE Ci8

CHECK FOR SERVICE RESPONSE RESET AFTER 6 usec..

··II

*' 298 "' ,.,! 299 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...,··

300 ~Th08 DC

XL1·oa·

ROUTINE NUMBER

i

301 .302

DC

Xi...t-00·

OC

AL2(RTN09)

NO .MANUAL INTERVENTIC'f>l REQUIREO

1

ROUTINE. 09 APc'IRESS

l

303

304 305

fl DC

PRINT
XL.t ··s·

PRINT SERvlCE RESPONSE f,jEAOlNG.

31,)6

DC

JL1·41 1

307

DC

ALZCH00.8)

308

DC

XL.2 9 40A9·

309

310 311

B

lNJTL

R£ SET THE 3741 e

312 313 314

B HPL

TEST FOR SSW 10 ·

(_

HALT -FF- IF OH.

315 316 317 316 319 320 · 321 ·

LIO
i..10
LIO LIO LIO

H0082.x·41·
HQOC·O·X·42·
AORsoo.x··4· Hocoo.x··s·
H4190.x·41·

,PCJT 374\l IN DIAGNOSTIC MODE. Ci.EAR LENGTH COUNT REGISTER. LOAD -OO- BYTE AORS JN DAR· CLEAR DATA Ti!.C.NS REGISTER.
SET 3741 IN RESET SER RESP AFTE~ 6 USEC. SL.AVE. DlAG. MODE. ANO LATCH XFEA LINE 3 CTRL 3J.

322 ·

323 324 325 326
327 328 329 · 330 · 331 ·

SIO x·oo·.x··2· SIO x··o·.x····
SJO x··o· .x· .,.·
SNS SS14A.x·43· SNS SS14A.x·43·

ISSI.£ A WRITE CA.U... JSS._,E CONTROL 2 .. i'O SEl.ECT 1:.h - FORCES SERVICE REQUEST· OUMMY SENSE TO STALL
SENSE TRI.. FOR -FF06t THE 06 tEANS SER RESP SET TRL 3 LATCHo 1,0 TRANSFER 2 RESULTS
JO DISCONNECT J

~605 30 *f> OC3D
08!'>9 0.0 D l :OC1 9 OC.1 '7
oeOF F.2 01 oo
08E2 OP Cl OC:30 OC38 t:.8£S F2 01 40
OBES CO 87 0216

0 8EF OC 28 lf':ID ·£Z8 C8FS OC .C5 199· JFSF OlBFiS OC CS lF.30 1"4
OC01 CO 87 021A GC05 C.2 CiC06 58
OC07 lF77 OC:09 4'04£
occe oc SA IF77 1F78

OCH CO 87 1699 OC15 03
OC16 FF06 OC18 OOOC OClA FF OC18 CG S7 l4EA OC1F 9561 OC21 C:C 87 02Z2 CC.25 41li4E
OC27 C:il 87 Clii:l6

·,cza c.o e7
OC2.F C2 OC3:1 21 OC31 .1EZ8 OC3.3 ~Hi.W-

0211o

OC.35 Ci> 87 1699 f#C39 05
£lC:?A ODCCl l>C.3C 0.0 00 CC3E FF CC3F CO 87 14£.A
C.C43 9562
OC45 CO 87 0222
OC"19 40~F OC48 CC 8? 0216

OC.4F 09 OCSG 00
ocs1 ocsa·
c.::s:; C>1 a-ir 021·
CC.57 45
ccse :o
OCS9 !Cf..3 OC5B 'l(;A9
GCSO CO 8l' !45C

OC05 OC06
ocoe
OCCA
OC.15 OC17 CC19 OClA 0C20 '0C26
oc2F ()C30 OC32 OC34
OC4F ocso
ocsa
OCS7 Ct:58 CCSA
ocsc

332

333 336 335

CL.C $S.l4AC2J ..ss,l·A-2
JNE au.u.

PJO SE_, ~P :SET TAI. .3 1...A11'CM 'f JJJltlP .fF .aY·

336

CLiC SS.148{2)·ffi4S-2

OH> ,SEl!lV.I CE aE5POH« liESE1' f

337

-'NE SU4

.IUMff' IF lllJJ·

338

339

B

LINK

34-0

3'1-1

342

34~ £R··"' ."'

344.

N'lfC

PRY-58'.331 ·Sli'llNI TE:STC 6 .t .,PllrT-56

3lt.5
346 347 348 .349

tl!VC
e
DC
oc oc

MT-58(6J11tTES'T PRJ.fllT . JU...l·U· lt.1·9.1" &.:2tPRTJ

350

DC

JllL2. 4CM,£'·

351

MVC PR1'(91 ).fl'RT+I

352

353

8

E&ROA

3'S4

PC

JQ..J ·03·

355

DC

356 SSl-4A iOC

XL..2·FF06·
LZ·ooa,o·

-E1'PECT£3. -ACrUAL·

357

DC

XL.l·FF·

358

8

MAPS

POINI' ~O MAP CHART.

359

DC.

.IQ..2·9561·

-PA.a: 956e EtfTR''f' 1 ·

:3fi>Q 361
Z62

El

t.ALT

o.c:

a:L.z·,40.s:·

s

LINK

E&Ra& H._....T -4E-.

363

3~ ER14

ii

PRI!li!T

31>5, 366

oc

XLl"C2°

.oc

n.1 ·33·

.31>7

DC

"L21SRVR)

368

DC

XL..2 8 404F"

369 .370

e

EAROR

OU·P blAGNOsTIGnlATA TRANS AEG·

37l

DC

372

:oc;

373 55148 DC

Jll..1·05·
J1L2·oc-oo·
XLZ·oooo·

37·

DC

XLJ·FF·

375

B

IM.PS

PGIMT TO MAP CHAU·

376 377
.178 37'9

DC

X.&..2·9562·

B

.HALT

oc

J11..2··0··

a

LINK

-PAGE 956e ENiR'I' 2·
ERROR ...-..T -·F-·
A£1'URH TO OCP.

380

381

38Z ··--··

383 · RTN09 ·

. ···-=···-. .---·-·-·"'*"'"........._s:···-······............ 33E8;.·S,.·..·*···~···

·

.i86 ·

iRut·Hr.:~ ~9

?"EST ~a;l\llCE RFSllONSE ~I\l'ER·

·

. ~-

--·->!'·······-··-"'·---···· .. ····-····"'·$<t*·*··~ 338889 R·T·lll·OO·"·?··P·C·. ····::·ill--1·· o·s·;···

ROUTJ NE HU"6EIO

390

DC

X!-1 ·£1-0 8

ND NANWU.. iNTERVENTICN JiEQ~lREC

391

OC

Al.21RTNOAJ

~WTHIE CA ·DDRESS

.J.92

393

8

?i< IWT

Plilt~T RESAJNSE Dftl VER MEAZ>INGe

39-4

OC

XI. I ·45 ·

3'95

X

1LJ·29·

39~

DC

M..2CHC09>

~··

oc xa..2··0A9·

398

399

8

fNITL

INIT 'ALJZE THE ~74h

DATE

16AUG74

EC NO. 824765

15NOV74
ez·a7o

16.IUN'i'S 825057

PR06 ID PAGE

OATE

J 6AUG74

EC NO. S24765

16,UNY'S 825057

PADG ID
PAGE

0

·..

IBM MAINTENANCE DIAGNOSTIC PQO~AM

.. PART NO.
PAGE

5558781

4032

.3741 ATTACHMENT OATA TRANSFER TEST

ERR LOC OBJECT COOE

AO::>R STMT SOURCE STATEMENT

CC6l CC 87 1511 OC65 FO 3C 3C

OC68 31 41 lA.34

"'°' OC:6C 31 42 U52

OC70 31

1A66

OC74 31 45 lA30

0C78 31 ·U 1A40

OC:7C OC7F OC82
OC85
OC89

F3 42 F.1 44 F3 44 30 ·3
30 43

00 40 40
OCA9 0CA9

OC80 00 01 OCA9 OCA 7
OC93 CO 81 0216

OC97 OC98 OC9C OC90 OC9F

CO 87 C2 IE
JE46 4050

021A

OCAl CO 87 1699 OC45 03 OCA6 FF04 CCA8 0000 OCAA FF OCAB CO 87 14E4 CCA.F 9563 CCBl CO 87 0222
OCB5 405C ;;ca7 co 87 021·

OCBB OA OCBC 00 OCBO OEOC

OCBF OCC3 OC:C4 OCCS
OCC7

CO 87 45 19 1C46 40AA

021A

CCC9 CO 67 145C

OCCD CO 87 1511 CCOl FO 3C 3C

OC04 31 41 lA34 OCD8 31 44 1A62 OCOC 31 45 1A30
OCEO 31 42 I A5C
OCE4 31 41 1A40

OC9B OC9C OC9E OCAO
OCA5 OCA7
OCA9 OCAA
OCBO OCB6
ocea ocec ocee
OCC3 OCC4 OCC6 OCC8

400 401 402

B
HPL

QUES

TEST FDR SSlll 10·
HALT -FF- IF ON.

403
404 405
406 407 408

LIO LIO
LIO LIO LIO

H0002.x·41· HOOFo.x·42·
ADRsoo.x····
Hoooo.ic·4s· f-!0080 · x· <U ·

SET FNCT REG TO 6 USEC RESET. LOAD -FO- IN THE LENGTH COUNT REG.
LOAD BYTE -00- ADDRESS 1N OAR. Ci..EAR DATA TRANSFER REGISTER· SET 3741 To DIAGNOSTIC MOOE OF OP.

409

410

510 A· oo·.x· 42·

411

SID x··o· .x· 44·

412

SID x·40·.x·44·

413

SNS SSlSAsX· 43·

~u 4

SNS SS15AeX·4,3·

ISSUE A WRITE CAl-Le 00 CONTROL. Z· 1/0 SELECT 13· - FORCES SERVICE REQUEST· DO A 01.JMMY SENSE TO STALL· SENsE TRANS LINES FOR -FFD4-e

415

416

CLC SS15A(2leSSlSA·2

417

BE

LINK

* * 418
419

ROUTINE 09 ERROR MESSAGE

420

421

B

PAINT

422

oc

a 1 · c z11

42.3

oc

1L1·3o·

424

DC

J:i..2(0RIYCK)

425

oc

XL2··05oe

TRANS LINES AS EXPECTEO ? RETURN TO OCP IF SOe
PRINT DRIVER CHECK·

426 427

B

ERROR

428 429

DC

Xi..1·03·

oc.

JU.2·FF04·

-EJtPECTEO.

430 SS15A DC

XL2'0000"

-ACTUAL.e

431 432 433

DC

B

oc

J::.l..2'9563·

POINT TO ~~V C~AQTo -~AGE ~56. ENTRY 3·

434 ~35
436

B

HALT

DC

Xt.2 1 4050·

B

LINK

437

438 439 ·········

440 · RTNOA ·

441 442
4.43

· ..
·

·

*"'*'*******"*"'*"""'~""*"'"'"'"'*"""'"'"'"'*"'**""'**"""""*····~··***"'"***''"**"****"'···

ROU'TI NE OA

TRANSFER 3 OATA B\'TES TO CHECK THe

*·~

444 · 445 ·

COUNTERS ANO ADDRESSES FOR INCRE!o1ENTH-1G.

·:

,.

446 . . . . . . . . . . . . . . . . . . . . . . . . . .. . , .· · · · · · · *~~~~*~***~*******-********~*·***~*

441 RT NOA DC

JCLl ·oA·

ROiJHNE NVMsr::R

446

DC

XL! ·oo·

/>iC MAl~UAL INTERVENTION REQUIRED

449

DC

AL2(RTN06)

ROUTINE CC AOOAESS

450
451 452
453 454

6

PRINT

DC

XL.1°45·

DC

ILl · 25·

DC

AL2\HDOA)

PRlNT TFAN$FER 3 BYTES kE.\OING·

455

DC

XL2"40AA·

456 457

B

JNITL

lNITlALiz°E THE. 3741.

456

459

s

OUES

460

HPL x·3c· .x· 3C·

TEST FOR SSW JC5
HALT -f'F- IF ON·

461 462 463 464
465 466

LIO LIO LIO
LIO LIO

HOCi02eX·41 1
AORS. x· 44~
H0000·X·45·
tlOOFS.x··z· H0080eX 1 41·

SET FNCT REG FOR 6 USEC RESET· LOAD DATA BYTE AOORESS IN OAR. CLEAR OATA TRANSFER REGISTER· LOAO -FB- IN LENGTH COUNT REG. PUT 3741 IN OIAGNOSTIC MOOEe

467

ISM MAINTENANCE OIAGNOSTIC PROGRAM

4032

3741 ATTACHNENT DATA TRANSFER TEST

ERR LDC CB..IECT CODE
ocee F3 41 oo
OCES F3 44 61 OCEE F3 44 61
OCFl 3Q 45 0086
OCFS 30 42 0088 OCF9 30 44 0090
OCFD OD Q 1 0086 Qoa4 OD03 F2 01 70 0006 00 01 0088 0069 OOOC F2 01 67 ODOF 00 01 0090 ODdE Ql)l5 F2 01 SE
0018 F3 44 62 ODlB F3 44 62
OOlE 30 45 OCBZ 0022 30 42 0087
0026 30 44 oosc
coz. oo o1 ooaz ooa c
0030 F2 01 oF
0033 oo 01 ooe1 OD05
0039 F2. Cl 66
oo3c oo 01 ooac ODtlA
0042 F2 Cl SD
0045 F3 44 158 JD4S F3 44 68
c D·:.11 30 45 oooe
;;;o~F 30 4 2 OOE.3 Ct)'.53 3<:. 44 OOEB
cv~7 oo 01 oooe oooc
0050 F,a Ol 6E CD60 00 Cl OCE3 OOE1 0066 F2 01 65 0069 00 0 1 ODES uOa6 OD6F F2 01 SC
0 D7Z CO 87 0216
0076 3C 51 OE07 OD7A CO 87 ODFA
007E CO 87 1699 0082 05 0083 2305 0085 0000 OD67 02 COSS 81FC: 008A 0000
oosc 04
0080 1999
OOBF 0000 0091 FF 0092 CO 87 14EA 0096 9581 0098 co 87 0222
009C 4051 OD9E CO 87 0216
ODA2 3C 52 OE07

AODR STMT SOURCE STATEMENT

0082 0084 0086 0087 0089
ooaa ooec
008E 0090 0091
0097
0090

468

SIO x·oo·.x·41·

469 470

SIO SlO

X1 61· .x·44·
x· 61 ·. x·44'

471 472 473 474

SNS SNS SNS

SS16A·X·45·
SS 168. x· 42·
SS!6C.x· ..·

475 476

CLC SS166'(.2) .ss16A-2

477 478

JNE CLC

EIH6 SSi68(2)1SS16S-2

479 480
481

JNE CLC .JNE

ER16
SS16C(2)aSS16C-2 ER16

48Z
483 484

SIO x· 62'. x· 44·
SIO x·62·.x·44·

485 486 487 488

SNS SNS
SNS

5S16EaX·451 SS16FeX 9 42· SS16H·X·44°

489 490

CLC SS16E<2l1SS16E-2

49.l 492

.Jr.IE
CLC

ERR16 SS16Ft21 .. ss1c;F-2

493
<194

ERR16
SS16H,2isSS16H-2

495

ERR16

4\16
i;97

S!O

JP 68 1 "'XE 44"

~98

SIG

x·6e·~x~44·

499 5CO
5~1

SNS SNS

SSl61 ·X 9 459 $Sl6.J.X 8 42·

502

SNS SS16K·X 0 44·

503 504

CLC S516IC2! .SS161-.2

505
51)6

JNE ERRR16 CLC SS!6.itiJ.SS16J-2

507 508

JNE C!..C

ERRR16 SS16K{2iwSS16K-Z

509

JNE ERRR16

510 511

a

l.INK

* 512
51~

ROUTtNE OA EARCR MESSAGES*

514

515 ER16 MV! RTRN-1.x·s1·

516

e

E16

517

518

B

519

DC

520

DC

5.21 SS16A DC

522

DC

523

DC

524 SS16B oc

525

oc

526

DC

ERROR
XL1 · os·
XL2°Z305·
xL2·oooc · XLl · 02·
X1...2·81Fc· xt..2. 0000.
XL1 8 C4·
AL.2(OAOATA+11

527 SS16C OC

528

DC

XL2·0000·
lQ...l·FF 1

529 530 531

B

MAPS

oc

xi..2·9se1 ·

e

HALT

532
533

oc

Xl ,2·4051"

8

LINK

534
535 ERA16 MVI

RTRN-t.x·5z·

DATE

16AUG74

EC NO. 824765

1S."40V74 824670

16JUN75
8.25057

9ROG JD
PAGE

DATE

l6AUG74

EC NO. 824765

l5NOV74 824870

16JUN75 825057

PART NO· PAGE

5558781 ·A

JSSUE A READ CALL· DO 2 CONTROL 2·S TO TRANSFER DATA
SYTE -OS-·
SENSE DIAGNOSTIC/DATA TRANS -2305-· SENSE STATUS/LENGTH COUNT FOR -81FCSENSE DATA ADDRESS REGISTER·
OIAGNOSTIC,DATA TRANS AS EXPECTED ? JUMP IF NOTe STATUS,LENGTH COUNT AS EXFECTED 7 JUMP IF NOT. DATA ADDRESS REGISTER INCREMENT T ..llUMP IF NOT·
00 2 CONTROL 2·S TO TRANSFER DATA
BYTE -CA-·
SENSE OIAGNOSTlC,DATA TRANS -230A-· SENSE STATUS/LENGTH COUNT -81FD-· SENSE DATA ADDRESS REGISTER·
OIAGNO!TlC/OATA TRANS AS EXPECTED T JUMP IF NOT. STATUS/~ENGTH COUNT AS EXPECTED ? .JU!4P IF NOT. DATA ADDRESS REG INCREMENT ?
..IUMP JF NOT..
00 2 CONfRDL 2·s TO TRANSrEA OA1A 6\"TE -Ao-.
SENSE O!~GNOSTIC/OATA TRANS -2340-~ SENSE STATUS/LEN~TH COUNT -81FE-· SENSE DATA ADDRESS REGISTER·
OlAGNOSTlC/OATA TRANS AS EXPECTEO ? .JUMP IF NOT. STATUS/LENGTH CCUNT AS EXPECTED f JUMP IF NOT· DATA ADDRESS REGISTER INCREMENTING T JUMP IF NOT.
RETURN TO DCP.

DUMP THESE REGISTERS-
OIAGNOSTIC/OATA TRANSFER REG. -EXPECTED·
-ACTUAL·
STATUS/LENGTH COUNT REG· -EXPECTED· -ACTUAL. OAT.A ADDRESS REGISTER· -EXPECTED.
-AC.TUAL.·
POINT TO MAP CHAAT. -PAGE 958· ENTRY 1· ERROR HALT -51-·

PROG JO
PAGE

··· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

· · ·

·

·

·

·

·

·

·

·

·

·

·

· ·

·

·

·

··

·

·

·

·

·

· · · · ··· ... ...

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4C32

3741 ATTACHMENT CATA TRANSFER TEST

PART NCJe PAGE

5558781 5

ERR LOC OBJECT CODE

ADDq STMT SOURCE STATEMENT

ODA6 CO 87 OOFA
ODAI' CO 87 1699 OOAE 05 OOAF Z30A 0091 GOOO 00!33 02 0084 S1FD
ooec ooco
0068 04 C069 199A
ooea 0000 0080 FF ODBE CO 87 141:4 OOC2 9581 OOC4 CO 67 022Z
oocs 4052. ODCA C:O 87 0216
ODCE 3C 53 0£07
0002 CO 87 OOFA
0 006 co 87 1699 OOOA 05
ODDS .23AO
0000 ooco
OOOF OZ OOEO 81FE OOE.2 0000 OOE4 04 OOE5 1998 GOE7 0000 COE9 FF ODEA CO 87 l4EA CDEE 9581 0 OFO CO 87 022.2. COF4 4053
ooro co a7 0216
ODFA 34 oe OEOB COFE CC 87 02lA OEOZ CZ OE03 14
OEC4 1BA6 OE06 4000
OE08 CO 87 0000
OEOC 08 OEOO 00 OEOE OEC8
OElO CC 67 OZ.\A GE14 45 OE 15 2F CE16 lBEC OEle 40Ae
OE1A CO 87 l45C

536 5:37

B

El6

PRINT CHECK, ID -52-e

538

B

OOAE 539

DC

0060 540

DC

0062 541 SS16E DC

008.3 542

DC

ODB5 543

oc

0087 544 5Sl6F DC

cosa 545

DC

OOSA 546

oc

OCf!C 547 SS16H DC

ooso 548

DC

54-9

6

-000 550

DC

551

e

OOC9 552

oc

553

s

554

ERROR Xi..1 1 05·
XLZ 0 2.30A·
xu·oooo·
XLl ·02·
Xl.2·81FD'
a2·ccoo·
Xi..1 1 04·
AL.2co.-DATA+2J XL.2·0000·
XL! 'FF· M-'PS
XLz·9se1 ~
HALT
XLz·4g52·
LINK

~UNP THESE REGISTERSDIAGNOSTIC/OAT~ TRANSFER REGe -EXPECTED.
-ACTUAL.
STATUS/LENGTH COUNT REGe -EXPECTED.
-ACTUAL.
DATA AOORESS REGISTER .. -EXPECTED.
-ACTUAi...
POiNT TO HAP CHART· -PAGE 958e ENTRY 1. ERROR HALT -52-·
RETURN TO OCF ·

555 l;;RR!Ho MVI

556

B

557

PRINT CHECK· JO -53-.

558

8

()004 559

DC

oooc 560

oc

OODE 563 SS16I DC

ODOF 562

oc

ODE! 563

DC

OOE;, 564 SS16J DC

OOE4 565

DC

OOE6 566

oc

OOES 567 SSlbK DC

ODE9 St.8

oc

569

s

OOEF 570

oc

5_71

e

OOFS 572

DC

573

e

574

ERROR
XLl sos·
XL2'23AO· XL.2·0000· XL1 1 02° XL2 9 61Fe· xt..2·0000. XL1 1 04· AL2.C DA.DA 7A+3J
Xt..2·0000 ·
XLl·FF·
MA.PS
XLZ 8 95S1 ·
H~i..T
XL.2·4053 · LJ NK

OU~P THESE QEGISTERS0 IAGNOSTI C/OA iA TRANS REG.
-EXPECTED.
-ACTUAL.. STATUS/LENGTH COUNT ~EGe -EXPECTED. -ACTUAL. DATA ADDRESS REGISTER. -EXPECTED. -ACTUAL·
POINT TO M~P CHART. -PAGE 958s ENTRY l· ERROR HAL.T -53-.
RETURN TO DCP.,

575 El6

ST

576

B

0E02 577

DC

OE03 578

DC

OE05 579

oc

OE.07 580

oc

581 RTRN 8

582

RTRN+::SeARR PRJNT XI.. i ·<:2· lL1 1 201
Al..2(SNCK)
·-·XL.2 1 4000'

PRINT TRANSFER CMEC~.

583

~84 ·*"*""***· * 585 RTNOB ·

558876 ·····*·************··················*············*·············*········

588 ·

ROUTINE OB

TEST LENGTH COUNT REGlSTER

·

589 JI<

OVERFLOW BY READ CALL.

*·

590 ·

·

OEOC OEOO
OEOF
OE14 OE15 0El7
. 0£19

55-9921 R**T*N*0*8**D*C******X"i.".P*O**B*·*****···-·*····.R.·O·U·T·IN··E··N·U"M'B·E·R························I

593

DC

XLJ·oo·

Na MANUAL. INTERVENTION REQUIREO

594 595

OC

AL2(RTNOC>

ROUTINE OC ADDRESS

596 597 598 599

B

PRJNT

oc

Xl..1 9 45·

DC

IL1·471

oc

At..2.(HDOB)

PRJHT EOT HEADING.

600

DC

X!..2 1 40A8·

601 602 603

a

JNITL

INITIALIZE THE 3741.

DATE

16AUG74

EC NO. 824765

15NOV74 824870

l6.IUN75 825057

PROG JO
PAGE

403-2. 5

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4032

3741 ATTACHMENT OATA TRANSFER TEST

ERR LOC oa~ECT CuOE

OElE CO 87 1511 OE22 FO 3C 3C

OE25 31 41 1A34 OE29 31 44 1A~2 OE20 Jl 45 1A30
OE3l 31 42 IA5E vE35 31 41 1A40

Oe39 F3 41 00 OE3C F3 44 74 OE3F F3 44 74

<>E42 30 42 0E80
OE46 00 Cl OE80 OE86 OE4C F2 01 2C

OEAF 31 45 1A30 CE53 F3 44 61 OES6 F3 'i-4 61 OE59 30 45 OESt

OESO 30 45 OEBl OE6! 30 42 OEB6

OEoS OE68 OE6E
OE74

00 Ol FZ 01 OD 01
F2 01

OEBl 31 0E86
28

OEAF 0E64

CE77 CO 87 0216

OE7B GE7F
OE80 OE61 OE83

CO 87 C2
OC 1EAO 4055

C21A

OE85 CO 87 1699 OES9 02 OE8A SlFF OESC 0000
OE8E FF
OESF CO 87 14EA OE93 9582
0£ 95 co 87 0222 OE99 4055 OE9B CO 87 0216

OE9F CO 87 021A OEA3 C2 OEA4 OA OEAS 1E66 OEA7 4056

OEA9 CO 87 1699
OEAO 05

OEAE 0805
oeao 0000
OEB2 02

CEB3
OEBS OE87 OEas OEBC

E300
0000 FF co 87 9583

14EA

OE7F
oeeo
OE82 OE84
OE89
oeea
OHIO
OESE
Oe94
DE9A
OEA3
OE~4
OEA6 OEA8
OEAO OEAF OEB1 0EB2 OEB4 OEB6 OEB7
OEBD

604 605

e

OUES

HPL x· 3C· .x· 3C·

606 607 608

!..IO LIO

i-<000.2 .x s 41 e
ADRs .. x·44·

LIO

t-1oooo~x·45·

.J 0
~ll

i...IO LIO

MOOf'"E .x" 4.2'
Hooeo.x·41·

612

613

SlO J<·oc· .. x·41·

614

SIO x·74·.x·44·

615

SIC X·74·.,x·44t

616

617

SNS

618 6!9

CLC SS17Bi21.SS17&-z

620
621

JNE ER17

622
~23
6Z4 625 626

LlO sIO SiO
SNS

HOOOO.x·451
x·t.1· 1 x·4-.·
X·61· ,x·44·
SS17C.x·1ts·

~27
628 629

SNS SNS

SS17C·X·45· SS170 0 X1 42·

630 631
632 63~

CLC JNE CLC
.JNE

SSl7C(~i.SS17C-2
ERR17 ss170(Z l 1SS170-2
ER~17

6.3· 635

e

t.INK

636
* 637 ROUTINE OB ERROP. ~ESSAGE:S ·

6.38

639 ER17 B

640

oc

641

oc

642

oc

643

oc

PRINT
XL1 4 C2 1 J&.1 1 12· Al..2(SN!>CICJ >U...2·4055·

644

645

B

646

DC

647

DC

648 55178 oc

ERROR
XLl 0 02'
XL2 1 8lFF·
XL.2·0000·

649

DC

xt..1 ·FF·

650 65!
65.2 653
654 655

8

NAPS

DC

XL2 1 9582·

a

HALT

DC

Xi..2'4055·

8

LINK

656 ERR17 B

657

DC

656

oc

659

oc

660

oc

PRINT XLl·c2· IL1·10· AL2CCKEOlt
XL2'4Ci56"

661

662 663 664

8

ERROR

oc XL1·os·

oc

Xl.2 1 0805·

665 SS17C DC

666

DC

667

oc

668 55170 oc

669

DC

xu~·oooo·
x1..1 ·02·
XL2'E3CO· XL..2·0000·
>'41 ·FF·

67C

8

NAPS

671

DC

Xl.2 1 9583·

DATE

16AUG74

EC NO. 824765

16.JUN75
825057

PART NOe PAGE

5558781
SA

TEST FOR SSllll lOc HALT -FF- IF ON.
SET FNCT REG TO 6 USEC RESET. LOAD ADDRESS lN THE OAR. CLEAR OATA TRANS REG. LOAD -FE- IN LENGTH COUNT REG· PUT 3741 IN OJAGHoSTIC ·OOE·
IssuE ~AO CALL. DO 2 CONTROL 2'S TO TRANSFER A OATA
BYTE·
STATUS/LENGTH COUNT AS EXPECTED 1 .JUMP IF NOT·
CLEAR DATA TRANS REG. 03 2 CONTROL 2'S TO TRANSFER ANOTHER
BYTE AND CAUSE l..CR OVERF1..ow-.. CUlolillY sr_;~se: TO ST Al.L
SENSE DIAGNOSTIC/DATA TRANS -oecs-.
SENSE STATUS/~ENGTH COUNT -E3oo-.
DIAGNOTSTIC/OATA TRANS AS EXPECTED ?
JUloCP If' NOT·
STATUS/LENGTH COUNT AS EXPECTEO ? .JUMP IF NOT ..
RETURH TO OCP ·
PRINT SEN~E CHECK.

OU~P STATUS/LENGTH COUNT REG.
-EXPECTED· -ACTUAL·
POINT TO NAP CHART. -PAGE 95fh ENTRY 2·
E~ROR ttALT -55-e
RETURN TO OCPe
PRH.'T EOT CHECK.

OUNP THESE REGisTERsOJANGOSTJC/OATA TRANS REG.
-EXPECTED.
-ACTUAt.. STATUS/LENGTH COUNT REGe -EXPECTED.
-ACTUAL.
POINT TO NAP CHARTe -PACiE 958· ENTRY le
f>ROG 10 PAGE

403-2 SA

C. '!
c

IBM MAINTENANCE DIAGNiJSTIC PROGRAM

4032

3741 ATTACHMENT DATA TRANSFER TEST

ERR LOC OBJECT CODE
GEBE CO 67 02.22 OEC2 ·056
OEC4 CO 87 0216

ACOR STHT SOURCE STATEMENT

672 OEC3 673
674

e

HAt..T

DC

XL.2·4056·

B

LINK

DATE

16AUG74

EC NO. 8.24765

15NOV74
824870

16.IUN75 62f>057

PART HDe PAGE
ERROR HAL.T -s&-.
RETURN TO OCP..

5558781 6

IBM MAJNTENANCE DIAGNOSTIC PROGRAM

4032

3741 ATTACHMENT DATA TRANSFEff TEST

PART NO. PAGE

5558781 6A

ERR &..OC OBJECT CQOE

4DDR STMT SOURCE STATEMENT

c
(:
I ..
I
l (:
t
I
I(I
f
l
, ,
jc
I c
I
lI ~.......
le

676 ...........
* 677 · RTNOC 667789 ········*········································~···············*·$~***·

680 ·

ROUTINE DC

TEST LCR CYERFLOW BY ·RITE CAC..L·

·

681 ·

·

OEC8 OC
OEC9 00 OECA OF93
OECC CO 87 021A
OEDO 45 OEOl 30 ~ED2 1CF6
oeo. ·o·c

DE ca
0EC9
DEC8
OEDO
.OEDl OED3 OED5

682 .......................................................................

683 ~TNOC DC

xi,..a·oc·

ROUTINE NUMBER

684

oc JU.l·oo·

NO ~ANUAL INTERVENTION AEOUIREO

685

OC

Al.2.(ATNODJ

ROUTINE 00 ADDRESS

686

687

B

PRINT

688

oc

PRINT EOT HEAOJHG.

689 690

DC ILi ·.oe·

oc

ALZCHCOCJ

691

DC

X&..Z·40AC·

OE06 CO 87 145C
OEDA CO 87 1511 OEDE FO 3C 3C

692 693 69'
695 696 697

B

INITL

8 HP1.

OUES

INITIALIZE THE 3741e
'fE~T FOR SSW 10s HALT -FF- IF ON.

OEEl 31 41 IA48 OEES 31 45 IA.30 0EE9 31 ¢2 lA50
OEED 31 44 lA62 OEFl 31 41 1A4"C
OEFS F3 42 00 OEF8 F3 44 40 OEFB F3 44 40
OEFE 30 42 OFS4
OF02 30 45 OF4F
OF06 DD 00 OF4E OF4C
OFOC F2 01 2A
OFOF 00 01 OF54 OF5Z OF15 F2 01 21

698 699 700 701 702
703 704
705 706
707 708
?09 710 711 712
.7,1,3.

L.10 t.10 LIO
LIO LIO
SIO
510 SID SNS SNS

HOOSZ.X·4&'
woooo.x·.os·
HOOFF.X 0 42° ADRSeX 0 44'
HOOSOeX·41·
x··o· .x·._·
X·40·eX·44·
ss1ee.x··2·
SS18AaX· 45·
5S18A-1C1JeSSl8A·3
eA18
ss u~ec 2 >.ss1ea-2
EA18

DO 6 USEC RESET ANO PUT IN DJAG MODE CLE~ DATA TRANSFER REGISTER. LOAD -FF- IN LENGTH COUNT REGISTER. t..OAO ADDRESS IN DATA AOR5 REG.
SET FNCT REGISTER ro OJAG MODE·
ISSUE WRITE CALL START 1/0· 00 CONTROi.. 2 SJO TWICE TO FORCE - l;O CY<:LEa SENSE STATUS,LENGTH COUNT -8300-· SENSE OIAGNCSTIC,OATA TRANS -ZSOO-.
OIAGNOSTlC BYT~ AS £.lPECTEO ? JUMP IF NOT· STATUSA.EHGTH COUNT AS EXPECTED f JU14P IF NOT·

OF18 F3 44 40 CF1B 30 45 OF7C OF1F 30 42 OFdl
OF23 OD 00 OF78 OFFP OF29 F2 01 3A OF2C OD 01 OF81 DF7F OF32 F2 01 31

715
716 717
718 719 720 721
722 723

510 SNS
SNS
CLC JNE CLC JNE

JC0 40·oK·44·
ss1eo.x··S·
SS18EoX0 42'
ss1eo-1c1t.ss1eo-3
ERAIS SS18EC2)oSS18E-2 ERR18

THI s CONTROL 2 CAUSES -oVE~t.o.,-. S~NSE DIAGNOSTIC/DATA TRANS -oeoo-.
SENsE STATus;t.ENGTH COUNT REG -E300-
DIAGNOSTIC SYTE AS EXPECTED ? ..UMP IF NOTa STATUS/LENGTH COUNT AS EXPECTED ? .IUMP IF NOTa

OF35 CO 87 O.S:16
OF30 3C 00 OF4F OF30 CO 87 021A
OF·l ca
OF42 OC OF43 IEAO OF45 4057

724

8

LINK

725
* 726 ROUTINE OC ERROR MCSSAGES ·

727

U-8 ERie . HVI ss1eA.x·co·

729

B

PAINT

730

oc

XL.1 ·c2·

731

oc 11..1·12·

732

oc

AL215NKKI

733

oc

JCL2··0S7·

RETURN TO OCP.
CLEAR DATA TRAN$FER R£G· PRINT S~S£ CHE°'·

OF47 CO 457 1699 OF4B 05 DF4C 2500 OF4E 0000 OFSO 02 tlFSJ 8300 OFS3 0000 OF55 FF
OF56 CO 87 14EA

734

735

a

OF48 736

oc

OF40 737

DC

OF4F 738 SSl8A OC

OF50 7.J9

DC

OFS2 740

DC

OF54 1'4l SSJ8B DC

OFSS 742

DC

7.43

B

EAROA
JCL&·os· AL2'25CO·
Jll.2·0000·
a1·02·
XL28 8300°
JCL.2·0000· JCLl·FF· tlAPS

OUMP THESE REGISTERS01 AGNOSTJC/OATA TRANSFEAe -EKPECTEOe -ACTUAL· STATUS,.&.ENGTH COUNT REG. -exPECTEO. · -ACTUAL..e
POJ'ff TO NAP CHART··

PRDG ID PAGE

DATE

16AUG74

EC NOe 824765

15NOV74 82'6870

16.IUN75 82!>057

PROG ID PAGE

c

· ···

·· · · · · · · ·c · · · · · · · · · · · · · ·· · · · ·

·

·

·

··

·

·

·

·

·

·

·

·

·

·

·1 I I

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

laM MAINTENANCE OlAGNOSTIC PROGRAM

PA~T N01
PAGE

55587811 71

IBM MAINTENANCE OIAGNOSTIC PROGRAM

PART NO. PAGE

5558781 7A

40~2

3741 ATTACHMENT DATA TRANSFER TEST

I

i

4032

3741 ATTACHMENT DATA TRANSFER TEST

ERR LOC OBJECT CODE
CF5A 9584 OF5C CO 87 02ZZ OF60 4057 OF62 CO 87 0216

ADOR STMT SOURCE STAT~~ENT

OF58 OF6l

oc

XL2·9S84·

B

HALT

oc

XL2·4057·

B

LINK

-PAGE 9581 ENTRY 41 ERROR MALT -57-·
RETURN TO DCP.

ERR LOC OBJECT cooe
OFEO 00 01 1049 1047 OFE6 F2 01 4E
OFE9 00 01 104E 104C OFEF F2 01 45

AODR STMT SOURCE STATEMENT

812
813 814 815 816

Ct..C JNE CLC .JNE

SS19Bl2)·SS19B-2 ERR19 SS19CC2>.ss19C-2 ERR19

DATA ADDRESS REG DECREMENTING 1
.IUMP IF NOT·
STATUS/LENGTH COUNT AS EXPECTED 7 .JUMP IF NOTe

OF66 3C 00 0F7C
OF6A CO 87 021A

7··8 74~l ERRl 8
7&0

NV l B

ss1so.x·oo·
PRINT

CLEAR CATA TRANS REGISTER· PRINT EOT CHECK·

OFF2 F3 43 04 OFFS 30 42 1072 OFF9 30 45 1077

817 818 819

SlO x·o·· .x·43·
SNS SS190.X 15 42 5 SNS SSt9EeX 5 4S·

00 CONTROL ! SIO TO CAUSE OVERFLOW. SENSE STATUS/LENGTH COUNT -EIFZ-· SENSE DIAGNOSTIC,OATA TRANS-0000-·

OF6E C2 OF6F OA OF70 1£68
OF72 4058

OF6E OF6F OF71 OF73

751 752 753 7S4

DC

XL1·C2·

DC

!Ll · 1 o·

oc

AL2(CKEOU

DC JU..2·4oSS·

OFFD OD 01 1072 1070
1003 F2 Cl 5A 1006 OD 01 1077 1075

820
821
822 823

CLC JNE CLC

SS19DC21·SS19'>-2 ERRiU9 SS19E(21·SSl9E-2

STATUS/LENGTH CCUNT REG AS EX~ECTEO?
.IUMP JF HOT. DIAGNOSTlC~OATA TRANS AS EXPECTED ?

l-

OF74 CO 87 1699 OFT& 05
OF79 0800 OF78 0000
OF7D 02 OF7E E300 OF80 0000
OFB2 FF
OF83 CO 87 l4EA
OF87 9585
CFB~ CO 81' 022.2
OF80 4058 OF8F CO 87 0216

755

756

e

OF78 '157

DC

OF7A 758

DC

OF7C 759 sssao DC

OF70 760

DC

OF7F 761

DC

OF81 762 SS18E DC

OF82 763

DC

764

B

OF88 765

DC

766

8

OFBE 767

DC

768

e

769

ERROR
XLl·os· XL.2· 0800·
XL2·oooo·
XL1·02· JCL.2 1 E300· xt.2·0000· XLl·FF· flllAPS
KL2·9585·
HALT XL.2 1 4058· LINK

DUMP THESE REGISTERSOIAGNOSTIC~OATA TRANS REGISTERo -EXPECTE01 -ACTUAL. STATUS/LENGTH COUNT REGISTER· -EXPECTED·
-ACTUAL·
POINT TO M-.P CHARi· -PAGE 958e ENTRY 5·
ERRO>l ttALT -sa-.
RETURN TO DCP ·

lCOC FZ 01 51 100F CO 87 0216

IOU CO 67 021A

1017 C.2 1018 IC

'·

1019 lBOA 1018 4059

1010 co 87 1699
1021 04 1022 1997

824

.JNE aum19

.825 826

8

LlHK

* 827
828 ROUTINE OD ei:u;;oA MESSAGES ·

829

830 ER19 e

1017 e:u

DC

1018 8.32

oc

lOlA 833

oc

IOlC 83·

DC

835

636

8

1021 837

oc

1023 838

oc

PAINT
>ei..1·c2·
1L!·2s· AL.2CDARCK) JQ..2·4059·
ERRO~
JCL1·04·
Al..2(0AOATA-1)

.IUMP IF NOT. RETURH TO OCPe PRINT DATA ADDRESS REG CHECK·
DUMP OATA ADDRESS REGISTER· -EXPECTED·

·''

770

771 ......... .

772 · RTNOD ·

777734 ·· ··················*········*·..····*···~······························· <...' -.

775 ·

ROUTINE OD

CHECK DECREMENTING OF DATA ADDRESS REGlSTEAa *

776 ·

*

777 ·······································································

1024 0000 1026 FF 1027 CO 81 14EA
1028 '9601 1020 co 87 0222
i1>31 4059
1033 co 87 0216

1025 839 SS19A DC

1026 640

DC

a·1

e

102C 842

DC

s·3

e

10.32 844

oc

84~

B

XL.2· 0000· JCLJ ·FF· MAPS
XL.2·9601 · HAL.T XL2·4059· LINK

-ACTUAL·
PCINT TO MAP CHAflTe -PAGE 9601 ENTRY I· ERP OR HALT -59-.
RETURH TO OCP·

OF93 00 OF94- 00 OF95 1089

OF93 OF94 OF96

OF97 CO 87 02lA OF9S 45
OF9C 20 OF90 1016 OF9F 40AO

OF9B OF9C OF9E OFAC

OFAI CO 87 l45C

(jFAS CO 87 1511 CFA9 FO 3C 3C

OFAC 31 41 1A54 OFBO 31 42 11152 OFB4 31 45 1A30 OFB8 31 44 1A62

OFBC F3 41 00
OFBF F3 44 60
OFC2 F3 44 60

OFCS 30 44 1025 OFC9 CD 01 1025 1023 IJFCF F2 01 41

OFD2 F3 44 60
OFDS F3 44 60

OFD8 30 44 1049 OFOC 30 42 104E

778 RTNOO
~79
780
7cU 782 783 784 785 r86 787
788 7a9
790 791 792 793 794 795 796 797
798 799 800 801 802 803
~·
805 806 807 808 809 810
81J

oc
OC DC
B
oc
DC DC
DC
a
B HP&.
LIO LIO LIO LIO
SJO SID SIO
SNS CLC
JNE
SIO SIO
SNS SNS

JCLJ·OD 1 XLl·OO· AL2CRTNOE)
PRINT
XL.1 ··s·
lL1·32·
~2CHDODI
xt..2·40AD·
INITL
H04821X1 41· HOOFO.X·42 1 H00001X·45 1 ADRSeX·44 1
x·oo·.x··t·
x·6o·.x·~··
x·6o· .x· 4~·
SSl9A1X·441 SS19A(2)1SSJ9A-2 ER19
x·6o·.x····
x·6o·.x··4·
SS19BeX 1 """·
SS 19C eX · 42'

ROUTINE NUMBER NO MANUAL INTER~ENTICN REQUIRED ROIJTJNE OE AOOAESS·
PRINT DECR THE LCR HEADING·

i,_

INITIALIZE THE 37411

TEST FOR SSW 10· HALT -FF- IF ON.

SET FNCT REG FOR 6 USEC RESET·

LOAD -FO- IN LENGTH COUNT REG·

CLEAR DATA TRANSFER REGISTER·

\..

LCAO ADDRESS IN DATA AORS REG.

ISSUE READ CALL START 11'0·

(.

00 Z CONTROL 2·S TO TRANSFER DATA

BYTE·

SENSE OATA ADDRESS REGa DATA ADDRESS REGISTER DECREMENTING 1

JUMP IF NOT·

(·

DO Z CONTROL 2·5 TO TRANSFER ANOTHER DATA BYTEa

SENSE CATA ADDRESS REGISTER· SENSE STATUS/LENGTH COUNT -81F2-·

1037 CO 87 1038 C2 1 0.3C CIC
1030 lEAO 103F 40SA

021A

li>41 ,0 87 1699 l 045 04
1046 1996 1048 0000 104A 02
1048 81F2 1040 0000 104F FF
1050 CO 87 14EA
1054 9C.02
1056 cc 87 0222
lOSA 405A 105C CO 87 0216

106Ci CO 87
1064 C2
1065 OF
1066 lEBC 1068 405C

021A

106A 106E 106F 1071
1073 1074 l C76

CO 87 02 ESF2 0000 OS 0000 0000

1699

1038 l0.3C 103E 1040
1045 1047 1049 104A 104C
104E 104F
1055
1058
1064 1065 1067 1069
I06E 1070 1072 1073 1075 1077

846

847 ERR19 8

848

oc

849

oc

850

DC

851

oc

852

853

8

854

DC

855

oc

856 SS198 OC

657

oc

858

DC

859 SS19C DC

860

DC

661

B

662

oc

863

a

664

oc

865

B

866

867 ERRR19 8

868

DC

869

oc

870

oc

871

oc

872

873

B

874

DC

875

DC

876 SSS")O OC

877

oc

878

oc

879 SS19E OC

PRINT xa...1·c2· lt..J · 12·
A&..2(SNSCtd XL.2·405A·
ERROR XL1 ·C4· AL.2(0AOATA-2) XL.2·0000· XL1·02· JtL2'81F2· JCL2·0000· XLl·FF· MAPS XL.2·9602· HALT XL.21 405A· LINK
PRINT
ILi · 15· AL2(0YRFLt n2·40SC·
ERROR Xl.1 1 02· XL2·ElF2· xa...2·0000·
Xl.2. 0000.
.n.z·oooo·

OUMP THESE REGlsTERSOAT4 ADDRESS REGISTER· -EXPECTED· -ACTUAL· STATUSA.ENGTH COUNT REGe -EXPECTED·
-ACTUAL·
POINT TO NAP CHAATa -PAGE 960e ENTRY 21 ERROR HALT -SA-.
RETURN TO OCPe
PRINT OVERFLOW CHECK·
DUMP THESE REGISTERSAFTER EOT WAS GENERATEOe
-STATUS-LCR· -ACTUAL a DlAGNOSTICJDATA TRANS REGISTER· -EXPECTED.
-ACTUAL~

DATE

16AUG74

EC NO· 824765

15NOll74
824870

16JUN75
825057

PROG ID
PAGE

403-2 1

DATE EC NO.

\..J

16AUG74 824765

1SNOV74 824670

l6.IUN75 825057

PROG JO PAGE

403-2 7A

0

0

0

IBM MAINTEhANCE OiAGN~STIC PROGRAM

PART NO.
PAGE

5558781
e

IBM MAINTENANCE DIAGNOSTIC FAOGRAM

PART NOe
PAGE

5558781 8A

40~2

3741 ATTACHMENT DATA TRANSFER TEST

4032

3741 ATTACHMENT DATA TRANSFER TEST

ERR LOC OBJECT CODE
1078 FF 1079 CO 87 14EA 1070 9603 107F CO 87 0222 1083 405C
1085 co 87 0216
1089 OE 108A 00 1088 1398
1080 3D CS 0200
1091 co 01 135F
1095 CO 87 021A 1099 45 109A IC 1098 1032 1091> &OAE
109F CO 87 HSC
IOA3 C2 01 1EF3 lOA7 3C 23 1708
10·& >e 88 nee
IOAF OC 01 l7CA 1A46 aoe5 co 87 17AO 1089 OC 01 17CA lA4C 10BF CO 87 l7AO 10C30C 01 17CA 1A4E IOC9 CO 87 17AO

IOCO OC 00 lODA IA67 IOD3 OC 00 lODE lA68 10D9 3A t>O 10£3 ICDO 3A 00 lDE· IOEI C2 01 12FO 10£5 JC 03 1994 03. IOEA 4C 03 03 IA6C
lOEF 38 80 1995 IOF3 ~5 84 IA68
IOF'I 31 ·· IA62 IOFS 31 42 IA50

OATE

16AUG74

EC NOa 8.24765

ADDA STMT SOURCE STATEMENT

ERR LOC OBJECT CDDE

1078 107£ 1084
1089 108A lt18C
1099 109A l09C l09E

880 881
882
883 884 885

oc

JICLl ·FF·

B

MAPS

DC

JCL2·9603·

8

HALT

DC XL2··osc·

a

LINK

POINT TO MAP CHARTe
-PAGE 960e ENTRY 3.
ERROR HALT -sc-.
RETURN TO l)CP.

886

* 887 . . . . . . .. .
888 · RTNOE 889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

890 ·

·

891 ·

AOUTINC OE

TEST .374i INTERRUPT CAPABILITY·

·

892 ·

·

893 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

894 RTNOE DC

XLl·OE·

ROUTINE NUMBER

895 896 897 898
899 900 901
902 903 904 905 906
~07
908 909 910
911 912 913 914 9:1S
916 917

DC

XLl·Oo·

OC

Al-2CATNOF)

CLI BNE 8
oc
DC DC
oc
e

CPUeC·E· AOIT PRINT
n1··s·
IL1·2e· AL2CHDOE) XL2'40AE·
INITL

LA
MVl MVI
MVC 8
llVC B MVC
8

EAIAf:leXRl MPIAReX·a3· IAR-e.x·ee·
IAR-2(2).HAASS CKIAR
IAR-2(21eH55AA CKlAR IAR-2C2lett0107
· CKIAR

NO MANUAL INTERVENTION REQUIRED ROUTINE OF AODRE$S IF IT IS NOT MODEL 1$ ···
THEN GO TERMINATE PRINT INTERUPT TE$Te
SET VP FOR IAR 5 CHECKe &ET FOR NAP ENT:'ty 3e
CHECK lAA 5 WITH PATTERN -55AA-· CHECK IAR 5 WITH PATTERN -0107-.

II r..-.-....
L·
(
IC
!o
c

918 · THE NEXT INSTRUCTIONS HANDLE A. CERTAIN BUG WHICH BEHAVES THU$:

919 · THE IAR 5 IS OR·O WITH TKE PROGe LEVEL ARR AND THE RESULT

(

920 · IS ·BRANCHED· TO BY THE CPU· THEREFORE 9 fHE PROGRAM CALCULATES

.921 ·
922 · 923 ·
~;:·

THE VALUE OF THOSE 2 ADDRESSES OR·D fOGETHERe IT THEN PICKS UP THE FOUR B'f'TES AT THAT LOCATION AND SAVES IT IN ·TEMP·· NEXT. IT MOVES INTO THAT LOACTION A SPECIAL BRANCH INSTRUCTION (CALLEO BRNCH) SO THAT IF THAT BUG EXISTSe THE

925 · BRANCH W,ILL CATCH IT· AFTER SUCUSSFUL INTERRUPTING HAS

926 · OCCURREDe THE CODE SAVED IN ·TEMP· IS RESTORED· THE VALUE

927 · OBTAINED BY THE ORING OF THOSE 2 ADDRESSES HAS 2 REQUIREMENTS:

928 · 929 · 930 · 93l · 932 · 933 ·
93· '135 ,)36
937 SETI 938 SET2 939 ORIT

l· THE OR·D VALUE .J-INCt.UDING ORING OF PARITY BITSt MUST END

UP ·ITH GOOD PARITY.

2· THE OR·O VALUE MUST BE SOME ADDRESS WHICH IS BEYOND THE INTERRUPT HANCLING ROUTINE BECAUSE THAT CODE MUST BE

c

EXECUTABLE WHILE THAT SPECIAL BRANCH IS MOVED IN·

NYC NYC S89'1 SBH LA MVC
MVC

SETl+llll·INTRS-1

SET UP TO ·oR· THE ARA AND IAA 5.

e

SET2+U 11 elNTR5
ClRIT+z.x·oo· ORI T+3··· oo·

OR THE REGISTER AOOAESSES·

.IUNPeJCAl

fHIS INS'l'R IS ALTERED· PUT RESULT INTO XRl

TEMP.3(4eXR1)

SAYE CONTENT$ OF THIS ADDRESS·

~14eXRl)eSRNCH

NOV£ IN BRAHCHe

FLAG···eo· INTR5.IAA5
&.JO M>As.x····
LID HOOFFeX·42·

CLEAR INTERUPT FLAGe LOAD INTR 5 IAA ·ITH ADDRESS.
LDAO ADDRESS IN DATA ADDRESS REG· LOAD -FF- IN LENGTH COUNT AEGe
.,. ..

lOFF 31 41 1A48
1103 co 87 1511
1107 FO 3C 3C llOA CO 87 l2EO
FE20 12EO
12EO F3 40 02 12£3 F3 41 00 12E6 F3 44 C4 12E9 F3 44 C.
l2EC CO 87 12FO 12FO CO 87 12F4 12F4 CO 87 12F8 12Fe CO 87 12FC l 2FC 38 80 1995 J'100 F2 90 61
1303 C2 0 I IF08 13tl7 .JC 24 1708 1338 .3C 08 17C8 l30F OC 01 l7CA IA46 1315 CO 87 17AO 1319 DC 01 17C4 IA4C 131F CO 87 17AO 1323 OC 01 17CA 1"4£ 1329 CO 87 17AO
1320 co 87 145C:
1331 39 80 1995 1~35 35 84 1A68
1339 F3 40 12
133C CO 87 134-0
1340 co 87 1344
1344 co 87 1348
1348 CO 87 13·C
1 34C 38 80 1995 1350 F2 90 II
1353 F3 40 OD 1356 35 01 IOE4 135" 4C 03 03 1994 135F CO 87 022A 1363 00
1364 CO 87 021A 1368 C2 1.369 17 l36A IE7F l36C 405E 136E 4C 03 03 1994 1373 CO 87 l4EA 1377 9622
13 79 co 87 0222
137D 40SE 137F CO 87 13SF

16.JUN75 625057

,rlROG ID
PAGE

403-2 .8

OATE

16AUG7·

EC NO. 824765

A~DR STNT SOURCE STATEMENT

948

LlO

PUT 3741 IN OIAGNCSTIC ~00£.

949

950

a

QUES

951

HPL x·3c· .x· 3c·

TE~T FOR SS· 10· HALT -Ft- iF ONe

952

a

AD.IST

953

95·

ORG x·FFFF·-x·12eo·+·

IF FLAGGEO. CODE OYERLA Y PROBLEM·

955

ORG x· 12eo·

FORCES ADDR OF .JUMP TO HAVE A

956 ·

A LARGE VALUE IN ITS RIGHT "AND BYTE

957
958 AD.IST SIO x·o2·.x··o·

ENABLE INTEAUPT ·

959

510 x·oo· .x··1 ·

ISSUE REM> CALL.

960
961 962 96.J
96· .JUMP
965

.510 SID
8 8 B

..........X·C···X·44·
x·c··.x·4'4·

966

8 ····

967

TSN FL·G.··eo·

968

.w EA1A

DO 2 CCAllTRO&.. 2·s TO CAUSE DATA TRANSFER Ate> INTERUPT.
J NTEAuP'I FLAG $ET 7 .IUNP IF NOT.

969

9'10 971

"'" ERARReXAl
MVl MPIAReX'24·

SET UP FOR ARA CHEClte
HT FOR M4P ENTRY ··

972

MVI IAR-·.x· oe·

97a 97·

MVC B

IAR-2(2) 9 HA.t.55 CKIAA

CHECK ARA WITH PATTERN -AASS-e

975

MVC lAR-2( 2> eHSSAA

976

B

CKIAA

CHECK ARR WITH PATTERN -5SAA-·

977

Mvc; lAR-212)eH0107

97&

8

CKIAR

CHECK ARA ·ITH PATTERN -0107-·

979
9BO

e

·lHITI,.

GO AEIMITIAL.IZE THE 3741.

981

982

SBF FLAGex·eo·

AESET TIE INTERRUPT FLAG·

983

L

1NTR5elAA5

RELOAO THE IAR 5 REGISTER.

984

985

SIO

00 A PROGAAtl. 3741 INTERRUPT.

986

987

8

988

s

989

a

990

e

AU..OW TIME FOR THE INTEARUPTe

991 992

FLAGex·eo·

INTERRuPT Ft.AG GET SET ?

993

ER1A

JUMP TO ERROR IF NOT·

994

995

sro x·oo· .x··o·

RESET THE 3741 ·

996

L

OAIT+3eXAI

PUT OR·EO VALUE SACK INTO XAI

997

MVC 3C4eXRlteTENP

RESTORE SPECl-'L AOCAESS CONTENTS·

998 AOJT 8

LOAD

TERMINATE SECTIClH·

136:$ 999

DC

xa.1·00·

1000 1001 · AOUTINE OE ERROR MESSAGE ·

1002

1003 ERlA 8

AUNT

PAIN'r ND INTERRUPT CHECK·

1368 1004

DC

XLl·C.a·

1369 JOOS

DC

IL1·2.3·

1368 1006

DC

AL2CNOINT)

136D 1007

DC

n2·405E·

1008 1009 1378 1010 1011

MvC
e oc
8

3C4eXAlteTENP MAPS
xa.2·~2·
HALT

BESTOAE SPECIAL ADOAESS CONTENTS. POINT TO 9llAP C"AAT· -PAGE 962e EN1'RY 2·
ERROR ttA&.T -se-.

137E 1012

DC JCL.Z··05E·

1013

B

ADIT

TEAMINATE 5Et;TloN·

101· 1015

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

l6JUOl75 8Z5057

PROG 10 PA.-E

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

IBM MAINTENANCE OJAGNUSTIC PROGRAM

PART NOa PAGE

I \ . 5558781; 9

IBM MAINTENANCE 0 IAGNOST IC PROGRAM

·032

3741 ATTACHMENT DATA TRANSFER TEST

4032

3741 ATTACHMENT DA~A TRANSFER TEST

ERR LCC OSJECT CODE
1383 3A 80 1995
1387 co 87 1386
1388 30 45 1.397 138F F3 40 OD
139~ co 87 138.3
1396 OOQO

1398 OF 1.399 00 139A FFFF

139C 13AO 13Al 13il2 13A4

CO 87 45 21 1053 40AF

021 A

1346 CO 87 145C

13AA CO 87 1511 !3AE FO 3C 3C

1381 31 41 1'134 1365 31 42 1A52 1369 31 44 U62 1.3BD 31 41 11140

13Cl F3 41 00 13C4 F3 44 CS 13C:7 F3 44 C8

13CA 30 42 1424 13CE 30 42 1424
130~ F3 43 04 1305 00 01 1424 14Z2 1308 F2 01 34

1 3DE 30 43 1449 13E2 00 01 1449 1-.T
l 3E8 F2 01 4C

13EB F3 40 OD 13EE Cl 40 13F7

l3F2 CO 87 02.i!A
13F6 00

13F7 CO 87 021A l.lFB C2 13FC 12 13FD 18FE 13FF 4060 1401 CO 87 14EA 1405 964·
1407 co 67 0222

~OOR STHT SOURCE STATE~ENT

ERR LOC OBJECT CODE

1016 ·

EXPECT !NT'.::RRUPT 5 TO BRANCH ioiERE.

*I

1017 *"'**"'***********"'****····--······-····**""***"'"'***"'"'····*·*········**"'**

1018

1408 4060 1400 CO e? CZZA 1411 00

1019 INTS SBN FLAG.x·eo·

SET INTERRuPT FLAG ON.

.

1020 10.21 1022

B

·+4

SNS lEMP! ·X·45·

SIO x· oo· .x· 40·

DO A BRANCH TO SWITCH ARRS AND IAR5.!
PRGM.l ISSUE SENSE TO TEST FOR PROC CHECK· !
RESET INTERRtJPT ·RETURN TO MAIN

1412 co 87 021"'
1416 cz
1417 oc

1023

B

1397 1()24 TEMPl OC

JNTS XL.Z·OOCO·

A SAFE PUCE TO SENSE.

!

l41E lEAO l 41A 4061

IOZS

(

* 1020 ·········
1027 · RTNOF

I !

1026 ················*·······················*·$****************************i

1029. 10.30 4<

ROUTlHE. OF

TEST OATA EIYTE TRANSFER· SYl"E a AO·

·*!

l<UC
1420 1421 1423 1425

CO 87 02 C9Fl 0000 FF

1699

1031 ·
* !03.2

EXPECT TO GENERATE 1/0 CHECKe

·:

·!

1033 *···········*·······*·****"'*·*****·**·~··*~******************·*********;

1398 1034 ATNOF DC

XL..l·OF·

ROUTINE NUMBER

i

1426 CO 87 14EA
142A 9641
142C CO 81' 0.222 1430 4061

1399 1035

OC

XLl·Oo·

NO MANU.Ai.. INTERVENTION REQUIRED

.

1432 CO 87 02.ZA

1396 l036

OC

;:;,..2·FFFF·

1..AST ROUTINE

1436 00

1037
103S 13AO 1039
13A1 1040 13A3 1041 13A5 1.042
1043 1044

B

MINT

oc xa_1··s·

oc

IL1 ·33·

oc

At..2(H00Ft

DC

.x&..z·40AF·

8

IN1TL

~INT PARITY TEST HEADING· lNlTIALJZf THE 3741·

1.437 co 87 0.214
1436 C2
143C 18 1430 1ESE 143F 4062
C· 1441 co 87 1699

1045

1445 03

1046 1047 104S 1049 1.:>SO

GUES
x·3c· .x·3C·
L.I 0 nooo2.x·41·
LIO HOOFCoeX· 42·

TEST FDR SSW 10· HALT -FF- IF fN.
SET FNCT REG TO 6 USEC RESET· LOAO -FO- IN LENGTH COUHTe

;

1446 F8A2

'-·~

1448 0000

l44A FF

J 448 CO 87 14EA

144F 9642

1051 1052

1..10 AORS.X·t;;A·
LIO ...ooeo.x·41·

LOAO AOOQESS IN DATA ~ORS REG· PUT 3741 IN OIAGNOSTlC MODE·

1451 co 87 0.222
1455 4062

1053 1054 1055
1056 1057 1056
1059 1tJ60
1061
1062

510 x·oo· .x·41·
SlO x·cs· .x···· SID x·ce·.x·4··

SNS SNS SIO ct..C JNE

SSOFAeX·.c;.2 1 · SSOFAaX 1 4.2' x·o4·.x·43· SSOFA(ZJoSSOFA-2 EROFl

ISSUE SJO READ CALL· OD 2 CONTROL 2 4 5 TO TRANSFER DATA
AND CAUSE BAD PARITY.
DUMNV SENSE TO STALL SENSE STATUS,LEN6~H COUNT -C9FJ-·
FORCE EOT STATUS/LENGTH COUNT AS EXPECTED i ..tUMP IF NOTe

I (.J
I
iI D
1r 0

1457 co 87 0224 1 '.58 00

1063

106.0 1065

SNS
CLC

SSOFe.x·43·
SSOFSC2>.ssoFB-~

SENSE l~O TRANSFER LINES -F8A2-.

{)

1/0 TRANS LINES AS EXPECTED ?

1066

JNE EROF2

JUMP IF NOTe

1067

1068 CONlf 1069

SIC TIO

x·oo·.x·40· NTRST.x·.rio·

00 GENERAL 3741 RESET. BRANCH IF 3741 NOT MADE READY·

1070

1071

8

LOAD

TERMINATE SECTION·

13F6 1072

OC

XLl'OO·

1.)73
* 101·~ ROUTINE OF ERROR NESSAGES ·

1075

1076 NTRST S

PRINT

13Fa 1~77

DC

l3FC 1078

DC

1Ll·te·

13FE 1079

OC

AL2(NOROY)

1400 1080
ioe1
1406 1082

DC

XL2 1 4060 1

e

MAPS

DC

XL.2·9644·

PCINT TO MAP CHART.
-PAGE 964e ENTRY *·

1083

B

HALT

ERROR HALT -60-·

AOOR STMT SOURCE STATE~EN~

!40C 1084

OC

1085

8

1421 1086

oc

1067

J~ae EROFl a

1416 '.089

oc

1417 1090 1419 1091

o°"c

1410 1092

DC

1093

1094

s

l4ZO 1095

OC

1422 1~96

OC

1~24 1097 SSOFA OC

14ZS 1098

DC

1099

B

1428 1100

oc

1101

8

1431 1102

oc

1103

8

14.3() lJC 4

DC

uos

1106 EROF2 B

1438 1107

oc

143C 1108

DC

143E 1109

DC

144u 1110

DC

1111

1112

a

1445 1113

DC

1447 1114

DC

1449 1115 SS~FB OC.

1444 1116

DC

1117

B

1450 1118

oc

1119

B

1456 1120

oc

UZI

B

1458 1122

DC

1123

U24

xi..2 · .:,.oe.o · LCAO xLi ~oo·
FR!NT XLJ ·Ci:· Ii... 1·12·
AL~CSNSU)
XL2.·4061 ·
!:RROR
xi.1·02·
xi..2·c~r-1·
xu;·oooo·
XL.I ·FF· ·MAPS
XL2'9641· HAl..T XL2·406l · LOl.O
XLl ·oo·
PRINT
XLl 'C2· tLI 11 24· AL2CTRLCK) XL2·4C62·
ERROR
xt..1·03· XL2 1 F8A2· n2·0000·
XI..! ·FF· lolAPS XL.2·9642' HALT Xl..2°4062' UJAO >U..1 ·00·

DATE

16AUG74

EC NOe 82476!5

ISNOV74 8Z41HO

16JUN75 825057

PROG JD PAGE

403-2 DATE

c 9

EC NO.

16AUG74 824765

0

0

15NOV74 824870

l6.JUN75 825057

PART HO·
PAGE.

5558781 94

TERMINATE SECTION·
PRINT SENSE CHECKa
DUMP STATUs.tl..ENGTM COVt-~T REG·
-EX?ECTEOe
-ACTUAL a POINT TO MAP CHARTe -PAG~ 964· ENTRY la
ERROQ HAJ..T -61-.
TERMINATE SECTtONa
PRlNl T+l.ANSFER LINE CHECKa
DU~P l'O TRANsFER LINES· -E><."·C::CTEu. -ACTUAL· PCIMT TO MAP CHART· -PAGE 964· ENTRY 2· ERROR HAL. T -;,;2-. TERMINATE SECTION.

PROG ID PAGE

l
l
· .

IBM MAINTENANCE DIAGNaSTIC PROGRAM

4032

~741 ATTACHMENT DATA TRANSFER TEST

PART NO.
PAGE

I 5558781; 10

IBM ~AINTENANCE DIAGNOSTIC PROGRAM

4032

3741 ATTACHMENT OATA TRANSFER TEST

PAAT NOa PAGE

5558781 lOA

ERR LOC OB~ECT CDDE
145(; .34 08 1476
1460 31 41 1A40 1464 31 42 1A30 1468 .3! 45 1A30 146C f'3 40 00 146F Cl 40 1477
1473 co a7 oooa
1477 CO 87 0Z1A 1478 C2 l47C 12 1470 leFE 147F 403E 1481 CO 67 l4EA 1485 9071
1487 co 61 0222
1488 403E 148D CO 87 0216
1491 CO 87 021A 1495 C2 1496 00
1497 1coe
1499 403F
1498 CO 87 14eA
149F 95ZZ 14Al CO 87 0222 14A5 403F
14&7 co 87 0216
J4A8 CO 87 021A. 14AF C2 1480 11 14iH 1DFO 1483 4066
1485 CO 87 14EA
1489 9521 14BB CO 87 0222 ·4BF 4066 14C1 CO 87 0216
.i4C5 34 08 14E9 .14C9 ~ 61 14DC
14CO F2 87 OS 1400 34 08 14E9 1404 3C a2 14ac;
l4DS CC 87 D21 A 140C 00 14DD 58 14DE 1F77 14EO OC 5A 1F77 JF76 14E6 CO 87 0000

AODR STMT SOURCE STATEMENT

ERR LOC OBJECT CODE

f

1126
1127

····I·N·I·T*L·····.o;.·.-.······················ic:···~·~*"'**""'n'*******************·:~

1128 1129 1130
1131

**··································oBT·EH·FI·OS·R·ES~U"AB.'l<*TG*EU*5T·TJ·N·RE·O·Ul·NT·II·TN·lEA··lI.·S. l·Z·EE·XS·E·CT·tU1·TE·E·D3·.7·, 4·1·····~······,~..1;i

1132 INITL ST

INTL+3.AAR

1133

LIO H0080.x·41c

I SAVE RETURN AOORESSe
SET FUNCTlON REG TO DIAGNOSTIC MODE

1134 1135
1~36

LIO LIO SIO

~oooo.x·42 1
HOOoc.x··S·
x·oo·.x·40·

ZERO LENGTH COUNT REGISTERe ZERO DATA TRANSFER REGISTER·

l

DO GENERAL SIO RESET TO 3741.

!

1137

TIO NTRov.x··o·

MAKE SURE 3741 IS READY BEFORE TEST·i

1138 INTL 8

·-·

1139

I

1140 ····*···*·*··································--·············*··········i

I 1141
1142 1143
1144 1145

N·*····T··RT··IoO·~vE·*·*R·*aS·*·*· ·····P·R·IN··T····~·S·U·B·R·O·U·T·I·N·E··PP·RR·II·NN·TT·S·.*?O"7U'·1T··1T·Is·O·N·OE·RT·R·R·OE·RA·S·D· ·Y·. ···········~J~~··

i·e" 34 oe 1994
l 4EE 35 01 19 'if4 14F2 !8 02 1C22 00 14F7 16 0 3 lC23 00 l4~C 18 02 1CZ4 01 1501 18 03 1C2C 01
1506 CO 87 021A
150A 66 1508 22 150C lC2t>
150E DO 87 02

1478 1146

DC

147<: l147

DC

147E 1148

DC

1480 1149

DC

1150

6

1466 1151

OC

li.52

a

l48C 1153

CC

1154

8

1155
1156 BUSV e

1495 1157

DC

1496 1158

DC

1498 1159

DC

149A 1160

oc

ll.61

e

Xl.1 9 C2·
IL1 1 18· AL2(NOROVJ XL2·403E· MAPS XL2 1 9071· HALT XL2·403E8 LINK
PtclNT x1..1·c2· IL1·13· AL2(81SY> KL2·403F·
MAPS

POINT TO MAP CHARTa -PAGE 9071 ENTRY t. ERROR HA/T -3e-. RETURN TO OCP. PRINT 3741 IS BUSY·
POINT TO MAP CHARTa

II ()
'
,-
l

lSH 34 oe 1szs
1515 38 80 02.lA 1519 F2 10 OA 151C OE 01 1525 1436
1522 CO 87 QOOO

1526
15ZA 152E
1532 1537

30 C2
CO 01 35 01 4C 01
co 87

0200
1522 1525
02 tA3E 1522

14AO 1162

DC

XL2·95221

-PAGE 952· ENTRY 2·

1163

8

HALT

ERROR HAL.T -3F-.

14A6 1164 1165

oc

XL2·403F·

s

L-IHK

RETURN TD OCP·

c

1166

1167 NTBSY B

PRINT

l4AF 1168

DC.

XL1'C2·

1480 11651

DC

11..1·17·

1462 J J 70 1484 1171

oc.

AL..2CNOTSC)

oc

Xl.2°40661

c

1172

e

MAPS

POINT TO MAP C'1At1T·

14SA U 73

DC

XL.2 1 9521 1

-PAG£ 952. ENTRY 1·

1174

a

HALT

ERROR HALT -66-.

14CO 1175

DC

U'i!'

s

RETURN TO OCP.

j

1177 1178 1179 1180

·*·····X··P·R·N····TX······*·············*··S·U·B·R*O·U·T·I·N·E··S·E·T·S··U·P··E*R*R·O~R~·P·R·I·N·T·I·N·G··············:

1181 $

~

1162 Ua3

·E·P·R·N·T·l··S·T·····P·R··T·T·+·3·.A··R·R--···········S·T·O·R·E·*~*TU··R·N··A·O·~·R·E·S·S·.·*·············'.!

1184

MVt LINEaX·BJ.S

SET uP TO sPACE l LINE·

'

1185

J

PRNT

1538 34 08 1560 153F C2 01 l99A

1543 40 05 06 1994 1548 F2 01 16

!548 1550 1555
1559
155" 1556 1550

18 02 18 03 CO 67
82
OE lECA
co 87

1EC8 07 1EC9 07 021A
0000

1561 36 01 1A3A 1565 70 FF 01 1568 co 0 l 1543

1186 EPINT2 ST

1!87

tCVI

1Ul8 P"4NT a

P~TT+.3o4'RR
LlNE.x·s2· PJ:ilHT

ST-OAE RETURN AOORESS· SET UP TO SPACE 2 LINES. PRl~T THE ERROR MESSAGE IN °PRT1 e

156C OC OJ lEC9 1A6E 1572 co 87 1555

1189 LJ~E

DC

a1·00·

1190

oc

ILl·S11·

1191 1192 1193 P.RTT

oc
MVC 8

..A!..2(PRJ:J
.._PRT(91JeAAT+t

CLEAR ERROR ICESSAGE AREA· RETURN TO ~OUT!~E·

ADDR STMT SOIJJ<CE STATEMENT

1195 1196

*····M$A·PS··*·*****$******·········******···*················**$···········*·

1197 .......... 1198 ·

THE MAP C.HART REFERENCE lS PRINTED.

·"'

1199 1200

N**A*P·S···S·T······T·E·ST·s·A·R·R··········~···**ST*O*R·E···TH·E···A·RR···A·D·O·R·E·S~S·e ···$······~-~-

lZ01

L

TESTeXRL

LOAO XR1 WITH ARR ADORESSe

1ZOZ

~NZ MAPSS-lleO(.XRll

LOAO HUNOREOS DIGIT FOR PAGE We

1203

MNN MAPSS-10.oC.xR1!

LOAD TENS DIGIT FOP PAGE ·e

1204

MNZ MAPSS-9.l(sXRJJ

LOAD UNITS ClGlT FOP. ?AGE**

1205

MNN MAPss-1.1<.xRli

LOAD ENTRY NUMBER·

1206

B

PRi~I

PRINT GO TO ~AP CHART XXo

l50A 1207

D<::

XL.J. e 86°

1506 1208 &SOD 120~

DC

ILl ·,J4s

OC

AL.20iAPSSl

1210

1211

8

AETuRN TO ROUTlNEe

1212

121~
1214 1215

·*·····O··U·$E··S ····*···················S·U·B··A·O·U·T·IN·E~·D··E·T·E·R·M·lN··E·S ··i F*$*SS$W···1 0···I S~··O·N·e ······**

1216 ·

·

1l Z21l B7 O··U·ES····S··T····~O·S·+·3e··A·AA················ST·O·R·E···A·E·n;·:;·;-·..-·A·D·O·R·E·S·S·········q····¢··

1219

TBN

SBVTE2eSS~10

SSW 10 OH 1

1220

JT

OST

QETURN TO PRGM HAt..i IF VES·

1221

ALC QS+3(Z··N003

INCR RETURN TO S~IP H~T·

1222 OS

B

._.

RETURN TO ROUTINE.

12z.3 1224 OST
1225 1226
1227 1228

CLI BNE
L
MVC 8

x·o200·.x·c2·

QS

Q5+3,xR1

2(2.XRU eHFFF6

QS

.

is THIS A MODEL a SYSTEN 1
00 NORMAL. HALT !~ NCT.
SET UP MODEL 6 HAL~ -FF-·
GO HALT·

12.29

1230 ·························*·**o····~··········JM1·····~········-·········

1231 * CKPAT · 1232 ····*****

·

SUBROUT!NE COMPARES A~TUAL SENSE

·

1233 · 1234 ·

PATTERN VS A TABLE OF EXPECTED

·

PATTERNS ANO PRINT$ THE CORRS ERROR

*

1235 ·

MESSAGE·

·

1236 ·

·

11223378

.C.K.P.A.f .

.

.S.T.

.

.

.

.PA. T.C.K. .+3.w.A.A.R. .

.

.

.

.

.

~··········*·······················$·····
STORE RETURN ADDRESS.

1239

LA

PATRNeXR1

STCAE PATTERN TABLE AODRS·

1240 1241 CKS 1242

a..c 6C6eXR1t.TEST
.INE TRY

COMPARE TABLE PATTERN V$ ACTUAL· JUMP IF NO CONPAREe

1243
1244 1245 1246 ERNS
1559 124-7 155A 1248 155C 1249
1250 PATCK
1251 1252 TRY'
1253 1254

MNZ NHN B
oc
DC DC B
A
CL1
BNE

NSS-2.7(.XRI) MSS-l .1c .xRU PRINT
x;..1 ·s2·
1L1·1··
·-·"L.2(NSS)
N007.XRl
l(eXRlt.x·FF· CKS

STORE TENS DIGIT OF MESSAGE ID· STORE UNITS O!GIT OF MESSAGE 10. PRINT CORRS EAROR MESSAGE·
RETURN TO ROUTINE.
INCREMENT THE TABLE POINTERS· ENO OF TABLE YET 1 CONTINUE JF NOT·

1255 1256 1257

MVC B

Mss-1c21.c21 ERNS

SET UP ID FOR NC PATTERN· GO PAINT THIS.

OATE

16AUG74

EC NDa 8.247..65

16.IUN7S 825057

PROG JO PAGE

403-2
JO

DATE

l6AUG74

EC NO. 824765

S5NOV74 824870

16JUN75 825057

FROG ID PAGE

t" "~
't_.

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

·- · · ·· · · · · · · · ·- . · · · · · · · · ···· · · · · · · · ·· · ·

ISM MAINTENANCE OIAGNasTIC PROGRAM

PART NOe PAGE

5558781 11

J BM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5!558781 llA

4032

3741 ATTACHMENT OATA TRANSFER TEST

4032

3741 ATTACHMENT DATA TRANSFER TEST

ERR LOC O~JECT CUOE

AOOR STMT SOURCE STATEMENT

ERR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

1576 0000 1578 0000
is7A 34 oe 1sos
157E 34 02 1600 1582 34 01 1<515 1586 3C OJ 159F 158A 3C 01 15A6 158E 3C 01 1580 1592 3C 01 1587 1596 3C 01 15BE 159A 3C 01 15CS
159£ 38 01 1576 15A2 F2 10 OA 15 AS 38 0 1 157 8 15A9 F2 10 SE 15AC F2 87 07
15AF 38 01 1578 1583 F2 90 54
1566 38 01 1577 lSBA F2 10 OA 1580 38 01 1579 l 5Cl F2 10 4E 1 SOt F2 87 07
JSC7 .38 01 1579 lSCB F2 90 44
15CE 38 80 15C8 1502 co 10 0000 1506 OE 00 1580 1580 l5DC OE 00 l5A6 15.f.6
15E2 OE '-0 159F 159F 15ES OE 00 15C8 15C8 15EE OE 00 15BE lStiE
15F4 OE 00 1587 1587
l 5FA OF 01 1600 1 A.34
1600 OF 01 1615 1A~4 1606 CO 67 159E
160A 3C SC 0000 160E CO 87 1586 1612 3C SC 0000 1616 CO 87 15CE
161A 00. 1618 00
161C 36 OB 1A32 lb20 34 08 1629 1624 OC 01 16ZF 00~0 162A OC 01 1618 00~0

1259 ******************..***············******·*********····················

1260 1261
1262

·***C*M**PA**R.E.**

EXPECTED EB1 £ ~e2 BYTES ARE CO!oi.PAREO '-~~ ERROR SITS ARE IOENTl~lEO SY A _,._

* * *

* 1.263

IN THE OUTPUT AREA·

*

1264 ·

*

1265 **********************************************************·············

1577 1.266 XPT

DC

XL2 1 0000·

EXPECTED E81 & EB2 BYTES.

1579 1267 ACT

DC

xLa·cooo·

ACTUAL ES1 & E82 6VTES6

1268

1269 CMPARE ST

1270

ST

CMPR+3·ARR TAERR+3.XR2

STORE RETURN AOQRESS· INITIALIZE OUTPUT AODRESSESo

1271 1272

ST

TBERR+3.XA1

MVI TA3+1.x·o1·

INITIALIZE BJT POJNTeASo

1273 1274 1275 1276 1277

MVI TA2+1.x·o1· MVI TA1+1.x·o1· MVJ TB3+1.x·o1· MVI TS2+1.x·o1· MVI T81+1.x·o1·

1Z78 1279 TA3 1280 1281 TA2
1282 1283

TBN JT TSN JT
J

XPT-1 .. x·o1· T·l ACT-l·K·Ol· TAERR Te3

EXPECTED BiT ON IN EB2 BYTE 1

JV~P lF ~es.

ACTUAi. BlT ON IN ES2 6~'TE ?

-*- GD PUT AN

IN OUlPVT IF OFFo

CHECK EBI SYTE·

1284 1285 TAl
1266

TBN JF

ACT-1.x·o1· TAERR

-*- ACTUAL BIT ON iN EB2 BVTE 1

GO PUT AN

IN OUTPUT IF so.

1287
1 ZSS Ta3
1289 1290 TB.ii! 1291 1292 1293 12, ~ TBl 1295 1296 1297 TC 1298 CMPR
1299 1300
1301 1302 1303 1304 !305 1306
1307

TSN
JT
TBN .JT J
TSN JF
TSN
BT
ALC ALC ALC It.LC AL.C ALC
SLC
SLC
e

XPT0X·01· TBl ACToX ·01 ·
TSERR TC
.r_a 1. · 1 . x · a o ·
TA!+l(lleTAl+l TA2+1 (1) oTA2+1 TA.3+ 1( 1J · TA3+ 1 TB1+1 U) .TBl+l Tl32+1 UJ eTB2·l T83+ 1( 1J "T83+ 1
TAERR+3(2) oNOOZ TSERR+3( 2> .N002 TA3

EXPECTED BlT ON lN EB! BYTE ? JUMP IF SOe ACTUAL BIT ON IN ESl BYTE 1 GO PUT AN - · - It.' OUTPUT IF SO .. CONTl~UE ANA!.YSIS·
ACTUAL BlT ON !N EBl BYTE 1 GO PUT AN -~- lN OUTPUT IF OFFo
BIT 0 BEEN TESTED ? RETURN IF SO· INCREMENT Bl T Poune:Rs.

l /"
!
'I.

I

'·

~ ...

(

OECREMENT OUTPUT AODRE~SESs GO CHECK NEW 6lT.

1309 l309
1310 1311 1312

TAERR TB ERR

MVI B '4V l B

·-·.x·sc·
TB3
·-·.x·sce
TC

PUT -·- IN EB2 OUTPUTo CONTINVE CHECK. PUT -·- IN E61 OUTPUT· CONTINUE CHE;;;;K.

1313

**··..:;· 13J 4
1315

·* ·

·~··*·***** · · · · · - · ****.*"'**'°'**'*44¥;$
BITSNF ·

$

..

~**"'''""'"'*-"'9****··**4<·ll'··*"'

*

1316 ··········

THE EBl & 2 BYTES ARE CONVERYED TO

·

1317 ·

A PRINTABLE Bll~AR,_. FORM.

111

1318 ·

*

·1P··:0>1J··>F·······it.··.. 13J 9 *'*

··.:.············~··········1t$'l'o;$·····4·······:0l!O.f<4'*

161A 1.320 EB2T DC

xt.1aoo·

TEl<!PO~AA'f STORi·GE FOR ES2 G E81

1618 1321 EBlT OC

Xt.1 9 00 9

BY1C:Se

1322 1323 SITS~F A

1324
1325

ST
.ave

1.3Z6

MVC

NOOleARR ·+9.,ARA
·..,.11 c21 · .-· E61T(2)e.,._*

STORE EB! & EBZ BYTES·

1630 36 08 1A32 1634 34 08 1678 1638 3C 01 1649 163C 3C 01 165F 1640 34 02 1£.SD 1644 34 01 1673
!648 38 00 lolA 164C F2 10 07 164F 3C FO 1658 1653 F2 87 04 1656 3C Ft 1658 l65A 3C 00 0000
165E 3a 00 161 a
1662 F2 SO 07 1665 3C FO 1671 1669 F2 87 04 166C 3C F! 1671 1670 3C 00 0030
1674 38 SC !649
16?8 cc 10 0000
167C OE 00 i649 10.9 1682 OE 00 165F l65F 1688 OF 01 1650 lA.34 168E OF 03 1673 1~4
1694 co e7 1648
1696 00
t69!il 34 oe 16AO
1690 CZ 01 0000 16,t.1 34 01 l6loA 16A5 OC QO 1698 OOJC l6A8 30 FF 1698 l6AF F2 S1 E2
1682 OC SA 1F77 lF7B l688 30 01 1.698 16BC FZ 01 06 16i3F OC 10 1F52 lA!;J l.6C5 30 02 !698 l6C9 F2 01 OC 16CC OC OA iF44 lACC l602 OC OF 1F58 1AOC 1608 30 03 Ui98 16DC F2 01 06 l6DF OC Jl IF53 lAEE l t\ES 30 04 1698
!6EQ FZ O! 06
!6EC OC 14 1F54 1a.;3 io;:2 30 os 1698

1327
1328 1329 1330 1331 1332

A
ST NV! MVI ST ST

NOOl.ARR 8TNF+3,ARR TNF+l eX· 01· TNFF+1.x·o1 · N"+3.XR2
HFF+3.~1

STO~E RETURN ADDRESS. INITIALIZE BIT POINTERS·
STORE OUTPUT ADDRESSES·

1333 1334 TNF 1335 13."J6 1337 1338 ITSON
1339 NF

TBN .JT MVI
.J MVl
M\rl

ES2T.x·oo·
ITSON
NF·l·X·FO·
N" NF+1,x·F1·
·-·.x·co·

THIS 6IT ON IN E82 7
.JUMP lF SO. MOYE IN A -O-·
MOVE IN A -1-. POT 1,0 IN OUTPUT·

1340 1.341 TNFF 1342 1343 1344
1345 ITON
1.346 NFF

TBN .JT
MYI
.J MVI
MVl

eeit.xeoo· .iTON NFF+l ·X·FO·
NFF NFF+l eX·FJt
._,..,x·oo·

THIS BIT ON IN E81 ?
JUMP IF SOe MOYE IN A -0-·
"OVE JN A -I-· PUT l/0 IH OUTPUT·

!347 1348 1349 BTNF 1350 1351 1352 1353 1354

TBN ST ALC
ALC SLC SLC
B

.T.._N_,.F, +1.x· eo·
l' TNF+1(t)·TNF+l
TNFF+ l t · TNFF+1 NF+3( 21.N002 NFF+3(2) ,ND02 1'NF

CHECKED en 0 ..
RETURN ?F :,o. INCRENENT 8JT POINTERS~
OECREMENT OUTPUT ADRSo
CONTINUE CHECK"

1355

1356 *·*****·~~*-****~·~****·***·***·****··O······~*·*****·******·~·······

* * 1357 ERROR
1358 *~~~*$***

SU6ROUTJNE IDENTIFIES SENSE BYTE ANO

· *

* 1359 ~
1360
'* 1:561
1362 · 1363 ti 1364 ·
1365 " 1366 .. 1367 · 1368 $ 1369 ·

PRINTS lTS STATUS WHILE !OENTIFYING

·

T"E BITS lN ERROAo SUBROUTlf>E CALLED

*

SY 8
oc
DC
DC
oc
DC
DC
oc:

JU. l ·N CODE l H HEX· XLZ·EXPECTEO C~TA· XL2·ACTUAL OATA· XLl·ANOTHER N CODEo
Xl-.2·ACTU/14 OA1'1t.t
X1.J 8 A -FF- DESIGNATES ENO·

· · · · · · · ·

................... !3TO ·
1371 ······***········~······*··

to **·#······*·****·~·········

1698 1~72 NCCO DC

X!..l"OO·

CUARcNT N CODE STORAGE.

1373 ERROR ST

·+7,ARR

STORE ~ETURN ADDRESS IN XR1o

1374
1375 CK lT 1376
1377 1378

LA
ST NVC
CLl .JE

*-*·XP.1
*+9··XA1
NCOOC I te*-·
Ncoo.x·FF· CKOUT

8R!NG IH N COOE FO~ CHECKING.

1379 1380 1381 1382 1.38.:J 1384 1385 l38C'e 1387
1388

M\IC CL! .JNE MVC Ct.I .l!NE li!VC MVC CL I

PRT(9l J .. PRT·H NCOihX"OI · ·+9
PAT-37( 17) .NCOl
11'+15 PRT-5lill)·NC02A PRT-28( l~J ..NC02S
NCODex·o.3·

BLANK PRINT BUFFER IDENTIFY AND :C:!;:T-UP 8TTE HEADING.,
· FUNCTro;,i...

1389 1390

JNE
NVC

-9
PRT- 36( 1 et .NC03

1.39 l 1392 1393

CL I JNE
wvc

NC00.x·o4· 4'+9 PRT-35( Zl I ·NC04

111- DATA AOORESS·

1394

CLl

DATE

16AUG74

EC NO. 824765

15HOY74 8 2. . 8 7 0

:1.6.JUN75 825057

PROG ID PAGE

403-Z 11

DATE

16AOG74

ec NO. a2·7e.5

15NOV74 82·870

16JUN75 82505T

?ROG 10 PAGE

403-2 llA

'·-·

....·:

1aM MAJNTENANCE DIAGNOSTIC PROGRAM

PAAT HDe
PAGE

ISM MAINTENANCE OIAGNOSTIC PRaGIU.M

PART fiOe PAGE

5558781 12A

4032

3741 ATTACHMENT DATA TRANSFER TEST

4032

3741 ATTACHl4EHT DATA TRANSFER TEST

ERR LOC O~JECT CODE
16F6 F2 01 OC J6F9 OC OE 1F46 1Bl9 16FF OC iO 1F5B lB~A 1705 3D 08 1698 1709 F2 01 06 170C OC 08 lFSO lEFF 1712 30 88 1698 1716 Fa 01 06 1719 OC 00 lFSI IEEC 171F CO 87 1400

1723 OC 09 1F43 1874

1729 OC 09 IF57 187E

172F CO 87 14CG

1733 OC OE IF46 186A

1739 0C OE 1F5A IB6A

173F CO 87 1400

1743 36 OJ 1A34

17·7 3· 01 1750 1748 GC 01 !577 OOQO

1751 36 01 U34

1755 34 01 175E

oc 1759

01 1579.00~0

175F C2 0.2 1F46 1763 C2 01 IFSA 1767 CO 87 J61C 1768 1579 1760 CO 87 14C:S
1771 00 01 1577 1579 1777 F2 81 OA 177A OC OA IF33 IAdO 1780 CO 87 157A 17&4 ·co 87 1·00

1788 35 01 17SE 178C 36 01 IA32 1790 CO 87 16A1 1794 36 01 1"32 1798 34 01 J79F 179C CO 87 0000

I 7AG 34 08 1785 17A4 35 84 17CA 17A8 34 84' 17CC
17AC OD 01 17CC 17CA
17£12 co 81 0000
17B6 =54 Cl 17C1
l78A CO 87 O~lA 178£ C2 17BF 15 17CO OOOC l7C2 ·068
I 7C4 CO 87 1699 17C8 00 17C9 0000 17CB 0000 17CD FF 17CE 4C 03 03 199· I 7D3 CO 87 14EA

AODR STNT SOURCE STATEMENT

ERR LOC OBJECT CODE

1395

JNE ·+15

1396

MVC PRT-4?( l 5J eNCDSA

· OIAGNOSTIC-OTR.

1397 1398

NYC PRT-2BC171eNCD58
CLI NCoo.xeoe·

1399

JNE ·+9

1400

MVC PRT-39(12)eNC008

· ARA REGISTER.

1401

CLI

1402

JNE ·+9

1403

MYC PRT-38(14t.NC088

· IAR 5 REGISTER·

140·

B

EPRNT2

PRINT BYTE ID·Se

1405

1406 1407
1·08

MVC
MVC 8

PRT-52( 1 ()) eEB2 PRT-32( 101 ·EBl EPRHT1

BUILD £8 6YTE HEAnlNGSa PRINT E8 8YT£ tEAOINGSe

,.-
~ ...

1409

MVC PAT-49( 1 5) eBJ TS

auu..o en LASLE HEAOINGS·

1·10

MVC PRT-291151eBITS

1411

8

EPRNT2

PAINT BIT LAS&..E HEADINGS·

1·12

A

N002eXAI

1413

ST

·+9eXRl

./'

1414

MVC XPT(21e·-·

STORE EXPECTED B~Tes.

'

1415

A

N002sXRI

1416

ST

.+9eXRl

1411' XY'Rl NYC A(;T(2J··-·

STORE ACTUAL BYTES.

1418 1419 1420
1421 176C 1422
1423

LA

PAT-49.XA2

1..A

PRT-29.XRl

B

BITSNF

oc

AL2CACTt

B

EPRNT1

STORE OUTPUI' ADDRESSES·

r,. '~'

GO c:ALCULATE STATUS OF ACTUAL ern;s.

£-.

PRINT STATUS,REGISTER !De

\:..;.,

1424 1425 1426

C&..C .JE MVC

XPTC2)·ACT
SKPEA
PRT-68(I I t · ERS

EXPECT EO AND ACTUAL. EQUAL ?
JUMP IF SOe

c

1427

8

CNP ARE

GO CALCULATE ERROR BITSe

1428 SKPER B

EPRNT2

PRfNT ERROR 81~5·

1429

10.30

L

XYR1+5eXR1

~STORE XRh

1431 1432

A

NOOl. XA1

e

CKIT

GO CHECK FOR NEXT 8YT£·

143;> 1434 14.15

A ST B

....NOOle XAI
.+7eXAl

INCREM.ENT RETURN AD.DRESS. RETURN TO ROUTINE·

1436 1437

......................................................................~.!

~

1438 · CKIAR ·

: 1439 ·········

LDAO ANO S:NSE I.AA 5 DR dR REGISTERS·

.

1440 1441 , ...2

.....
CKIAR

.

..
ST

.

.

.

.

..........
CKCK+3eARA

.

.

.

.

.

.

.

.

.

.

.

.S..T.~..

.......
Qf:TURN

.........
AD::>AESS·

.

.

.

.

.

.

.

.

.

.

.

.

.

. ~
1

~.

1443 1444

L

IAA·2elAR5

ST

IAR.IAA9

LOAD IARS;MR WITH 'YEST PATTERN· STOAE AEGJSTER.

Il \...·

1445

._. 1446

CLC IAIU2 I .J AR-2

1447 C:KC:K BE

REGISTER AS EJCPECT.ED ~ RETUQN TO MAIN PROGRAM IF SO·

1448

ST

THEAOlhXAl

STORE ERROR MESSAGE ADDRESS·

1449 1450

e

PRINT

178E J.451

DC

xa.1·c2·

17SF 1452

DC

17Cl 1453 THEAOR OC

1Ll921·
AL2C·-·>

17C3 1454

DC

XL2 1 4068'

1455

1456

B

ERHOR

OUMP IAA5 OR ARQ REGISTER·

17C8 1457

DC

XL..1900 8

17CA 1458

DC

xa.2·0000·

17CC 1459 IAR

oc

XL2·0000·

17CO 1460

oc

XLPFF·

1461 1462

MVC
a

3(4.XAlteTENP
MAPS

RESTORE SPECIAL. AD.DRESS CONTENTS. PDIHT TO MAP CHART·

1707 9621 1 709 co 87 0222 170D 4068 1 7oF ca &7 13SF
17£3 CO 67 02iA t7E7 C2 ITES 14 11'£9 IF1C
I J'EB 4069 &7EO 4C 03 03 199~ lTF2 CO 87 l4EA 17F6 3801
17F8 CO 87 0222 17FC 4069 17FE CO 87 135F
1802 00 1803 0000 1805 0000 1807 00()0 1809 0000
leoe 36 oe IA3C
ISOF 34 oe 1818 1813 oc ca 180A 0000 1~19 oc 01 198· 1808
18JF 08 03 1837 OAO~
1825 CO 87 0.21E 1829 01 l82A 180· 18.?C 1S5A 182£ CO 81' OZIA 18U 41 1833 2· 1834 184£
1836 40AD 1838 CO 87 02&A 183C 05 18~0 00 Ul.3E 1858
18oM 04: 00 186C uwz
IS.A OC 00 IB6F 1802 1850 CO 87 15U
1854 FO 3C 3C

ADDR STMT SOURCE STATEMENT

l 708 1463 t4PlAR OC

1464

B

.xL.2·9621·
HALT

-PAGE 962· ENTRY I·
ERROR HALT -68-·

17DE 1465
1~6

OC

X&.2·4068·

a

ADlT

TERMl~ATE SECTION·

1467 146e . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

····**·* 1469 · CRC:K ·
1470

·

SUBROUTINE PRINTS ·DR- CHECK·

·

1471 ·

·

1472 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .~. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

1473 ORCK 6

PRINT

PRINT -oR- CNECK·

l7E7 1474
11'E8 1475 l7EA 1·76 17.C:C 1477

DC KL.l 8 C2· oc 1L1·20· DC AL2COKRDI
oc KLZ··o6e·

14?&

NVC .3(4eKAlleTEMP

AESTORE sPECIAL AOORESS CONTENTS·

1479

8

MAPS

POINT TO MAP CtlART·

l7F7 1480

DC

1CL2·3801 ·

-PAG£ HO· ENTRY 1·

1481

8

HAL.~

ERROR HALY -69-e

I 7FD 1482

DC

l(L.2·4069·

l48J

B

ADJT

TERMINAJ'E SECTION·

148·

1465 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

1486 · OATA ·

*

1487 ........

TKIS SUBROUTINE CAUsES ONE BYTE OF OATA

·

1488 · 1489 ·

TO TAANSFER· PAAAMETERS AAE SPECIFIED AS FOU..0.S-

· *

1·90 ·
1491 ·
1·92 e 1·93 e
1494 ·

·

8
DI:
DC DC

* DATA 2·· XLI ·'4)NTROL CODE FOA SIO CONTRC!\. * KL2·EXPECTEO DTR· * Xl,.2 1 EXPECTEO a.ca·

1485 · 1496 ·

DC XL.2· SENSE CHECK NAP REF·

·

DC XL.2·ROUTINE HALT cooes·

·

1497 ·

1498 .......................................................................

1802 1499 CCSI02 DC XLl·oo·

SIC CONr.ua.. 2 CODE.

1804 1500 XPDTR DC
1806 1501 XPLCR oc

Jr&,.2 1 0000 1
~L2·oooo·

EXPECTED O!AG-OTR BYTES. EXPECTED STATUS-LCR BYTES·

1808 1502 NPAEF OC .KL.21 0000·

SENS£ CHCQI; MAP REF·

18.)A 1503 qTHLT OC a&.21 0000·

HALT CGDESe

1504

1505 DATA A

fll008eMR

4506

ST

.... 1507 OATAl
1508 1509

WC
MVC

1510

e

DATAl+S·MA 8THLT(91·._.
MIER( 21 efllPAEF
HDNGIO.ATN· UNPACK

STOit£ THE ABOVE DATA·
STORE SENSE CK MAP AEFERENCEe
BUIU> MESSAGE ID· UNPACK DATA BYTE·

1829 1511 1828 l5J2
182D 1513 1514

DC

11.1· 1·

cc AL2CXPDTRJ

cc A&.2CHOAT.-I)

1515 1832 1516 1833 1511'

·

PAINT

cc

XL.1··1·

oc 1Ll·36·

PRINT TEST HEADING·

1835 1518

DC

N..21HDOI t

18.17 1519 Ht>NGIO CC

1520

B

PRINT O&TA TRANSFER HEADING.

183C 1521 1830 1522 l83F 1523

DC &1·05·
oc !L1·13·
0C: AL2CHOATAt

152· 1525

e

INJTI.

IMITIALIZ£ THE 3741

15.?6

1527'

SIOCC2+ZCSl.CCSI02

BUILD UP THE Sic; CONTROL 2 COltMANO

1528

s1occ2~sc11.,cs102

TO C.OARESPONO ·I TH CURRENT ROUTINE.

1529 1530

CUES

TEST FOR SSW 10· HA~T -FF· JF OH.

OATE

J6AUG74

EC NO. 824765

15NOV74
824870

16.IUN75 825057

PROG 10 PAGE

403-2

DA TE·

12

EC NO·

\ ..

l6AUG74
82·765

l6.IUH75
825057

PAOG JO PAGE

c

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

·

.

0
~-·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·{·-· · · · · · · · · · · · · · · · · · · · · · · · · · ··· ·-·-· ·

IBM MAINTENANCE DIAGNOSTIC taROGRAM

PART 11.'0· PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NOe PAGE

5558781 13A

4032

3741 ATTACHMENT DATA TRANSFER TEST

3741 ATTACHMENT OAT* TRANSFER TEST

ERR LOC OBJECT CODE
1857 31 41 lA.34 185B 31 42 1A52 185F 31 44 1Ati2 1863 31 41 1A40
1867 F3 41 00 l86A F3 44 00 1860 F3 44 00 1870 30 45 1967 1874 30 42 196C 1678 F.3 43 0.
1878 3C 45 196? 187F 30 45 1967 1883 30 44 1970
1887 OD 01 196C 1806 1880 F2 01 90 1890 00 01 1967 1804 1896 F2 Cl 87 1899 00 00 1804 1998 189F F2 01 1..3 18A2 30 CH OAOJ 18A6 F2 01 E2
18A9 00 01 1970 1978 lSAF F2 01 47 1862 F2 87 06
1885 OC CO 18C4 180A 18BB CO 87 021A 18BF C2 18CO 14 18C1 1BA6 18C3 4000 1 8C5 CO 87 021 A 1 ec9 82 18CA 14 18C8 1892
J8CO CO 87 021E J8D1 01 1802 1804 1804 lBBl 1806 CO 87 021E 18DA 01
lBDB 1998
18DD lBBC lBOF CO 87 021A l 8E3 82 18E4 17 1BE5 lBBD l8E7 OC O~ 198A 18C4
l BED .3C 94 1983
lBFl 3C 23 1984 l 8F5 CO 87 1953
l8F9 OC 00 198A l6J9 l 8FF OC 00 1914 1 S.J9 1905 OC 01 1EC9 1A70 1908 CC 87 021A 190F C2 1910 14 1911 19A6 1913 4000

AOOR STMT SOURCE STATEMENT

ERR LDC OBJECT CODE

15.31

1532 1533 1534

LJO
t..10 LJO

1535

LlO

15.36

1537

SlO

1538 SIOCC2 SJO

H0002·X·4l· HOOFo.x· 42· 1ooi:is.x·.;.4· H0080.x·41·
x·oo·.x··1· x·oo·.x·44·

SET FNCT REG TO 6USEC RESET.

LOAD -F~- IN LENGTH COUNT REG.

LOAD BYTE TRANSFER ADDRESS -IN OAR· I

SET 3741 TO OlAGNOSTJC MOOE.

I

ISSUE A SIO READ CALL·

l

DO 2 SIO CONTROL 2 1 5 TO TRANSFER A j

1539 1540 1541 1542 1543 1544 1545

SIO SNS SNS SIO
SNS SNS

x·oo·.x·44· SSA.x·451 sse.x·42· x·o11- 1 .x·43·
SSA·X'45' SSA1X 1 45 1

OATA BYTE· DUMMY SENSE TO STALL

i

I SENSE STATUS/LENGTH COUNT REGISTER

1/0 SELECT 3 bHICH FORCES EOT

I

DUMMY SENSE

I

SENSE DIAGNOSTIC/DATA TRANS REG·

I

1546
1547 1548

SNS CLC

SSC1x·44· SSB(2' ·XPLCR

SENSE OATA ADDRess REGJSTER·

II '

STATUS/LENGTH COUNT AS EXPECTED ?

1549 1550

JNE CLC

OATER SSA(2>.XPOTR

JUMP IF NOT. DIAGNOSTIC/DATA TRANS AS EXPECTED ?

1551 1552 1553

.JNE CLC .INE

OATER XPDTR( 1J 1 0AOATA eADBYT

JUMI= !F NOT. DATA SYTE TRANSFER OK ? JUMP IF NOT·

1554

CLI

RTN#,X1 01 1

FROM ROUTINE 01 1

1555

JNE DATTA

JUMP IF NOT.

1556 1557

CLC ssc<2> .ssc-2

DATA ADDRESS REG AS EXPECTED ?

1558

JNF.: OARN

JUMP IF NOT.,

1559

J

DATTA

1560

1561 · DATA SUBROUTINE ERROR MESSAGES ·

1562

1563 6AOBYT MVC ERI0(1).RTHL.T

1564

B

PRINT

FRINT OATA BYTE CHECKo

18BF 1565

OC

XLl 1 C2'

18CO 1566

DC

IL1'20 1

18C2 1567

OC

Al...2(SNCK)

18C4 1568 ERIO OC

XL2 1 4000 1

1569

8

PRINT

PRINT BYTE CHECK.

18C9 1570 18CA 1571

OC

XLl ·821

o<.

IL1·201

18CC 1572

OC

Al..ZlBYTCKJ

1573

1574 1801 1575

B

UNPACK

oc

IL1II1 ·

UNPACK EXPECTED DATA BYTE.

1803 1576

DC

AL2(XPDTRI

C.

18D5 1577

DC

AL2(XPAC-12J

1578

B

UNPACK

UNPACK ACTUAL CATA BYTEe

!8DA 1579

DC

IL1'1 1

180C 1580

DC

AL2(0ADATA)

180E 1581

DC

AL2CXPAC-l)

1582

8

PRINT

PRINT EXPECTED AND ACTUAL DATA BYTE.

18E3 1583

DC

XL1'82·

13E4 J 584 18E6 1585

DC

IL.1923 1

oc

AU?(XPACJ

1586

MVC ERRIO(l) 1ERJO

SAVE THE ERROR 10·

1587

MVI MPER-laX 1 94 1

BUILD MAP REFERENCE·

1588

MVI

MPER1X 1 23 8

-PAGE S42w ENTRY 3.

1589

B

OOFH

1590

1591 DARN 1592

"1VC
MVC

ERRIDClloRTHLT-1 IDER( l) ,lCTHLT-1

STONE ERROR ID.

1593 1594

M\IC MSS-1(2),COS

e

PRINT

PRINT ERROR HEADING.

190F 1595 1910 1596

DC

XL1 1 C2·

oc

IL1 1 20·

1912 1597

DC

AL2( SlllCK I

1914 1598 JOER DC

Xl.2 1 4000 1

1915
1919
191A 1916 1910

co 87
82
OE 1ECA F2 S7

0211. 33

1920 oc co
1926 OC 00 192C CO S? 1930 C.2 1931 14
1932 18A6 1934 4000 1936 30 01 193A F.2 01

1935 l98A G2lA
OA03 16

1809 1935

1930 oc 01 1990 1967
l 943 OC Cl l992 l 96C
1949 oc 01 19~4 1970

194F CO 87 1538

1953 Oc Cl 1965 18J4 1959 CC OJ 196A 18~6

195F CO 87 1699 1963 05 1964 0000
1960 ooco
1968 02
1969 0000 1968 0000 1960 FF
196E 30 01 OA.'.13 1972 F.2 01 OA
1975 co 87 1699
1979 04
197A 1999
l97C 0000
197E FF 197F CO 87 14EA
1983 0000 1 985 CO S7 0222 1989 4000
1986 co 87 0216

l98F 000000000000 1995 00 1996 0000 1998 co 1999 0000

1996 080C81FO 199F 1998

AOOR STMT SOURCE STATEMENT

1599 1919 1600 191A 1601 191C 1602

e

PRINT

oc

XL.1·e2·

oc

IL1 1 !41

oc

AL.2(1455)

PRINT OAR CHECK.

1603

.J

COFH

1604

16:'5 DATER
l6i.i6
1607

MVC
MVC
s

ERRRID(l) 1 RTHLT-1 ERRIDCl hERRRIO PRINT

STORE ERROR ID· STORE THE IO· PRINT SENSE ERROR HEADING·

1930 1608 1931 1609

DC

XL1 ·c2·

oc

IL1·20 1

!933 1610

DC

AL2(SNCK)

1935 1611 ERARIO DC

XL2·40CO 1

1612

CLI RTN·.x·o1·

FROM ROUTINE 01 ?

1613

.INE OOFH

JUMP IF NOT·

1614

1615

MVC TEST-4(2) ·SSA

STORE DIAGNOSTIC/DATA TRANS REGa

1616

MVC TEST-2(2).SSB

STORE STATUS/LENGTH COUNT REG.

1617

fll!VC TESTC2t.ssc

STORE DATA ADDRESS REGISTER·

1618

1619

B

CKPAT

COMPARE ACTUAL -ITH EXPECTED PATTERN

1620

1621 OOFH MVC SSA-2<2JeXPDTR

BRIHG lh ~XPECTED SENSE BYTES·

1622

M\.'C sse-2( 2) ·XPLCR

1623 1624

e

ERROR

DUMP THESE REGlSTERS-

1963 1625

DC

Xl.1"05'

!965 1626

oc

XL2·0000·

1967 1627 SSA

oc

XL..2·0000·

Dl AGNOSTJ C,OATA TRANSFER REGe -ExPECTED· -ACTUAL·

1968 1628

DC

XLl ·02 1

STATUS/LENGTH COUNT REG·

l96A 1629

DC

XL2'0000"

-EXPECTED.

196C 1630 SSB

DC

XL2 9 0000'

-ACTUAL·

1960 1631

DC

XL1 1 FF 1

1632

CLI RTN·s.X 8 0l 1

FROM ROUTINE 1 ?

1633 1634

JNE
e

OMPYI ERROR

.JUMP IF NOT.

1979 1635

DC

XL..1·04·

DATA ADDRESS AEGISTERo

197e 1636

DC

1>1..2 CDAOATA+l)

-EXPECTED.

1970 1637 SSC

oc

l97E 1638

oc

1639 ONPYl B

19S4 1640 MPER oc

XL2 1 0000·
XLl ·FF' NAPS x1..2·0000·

-ACTUAL·
POlt.'T TO MAP CHART· -PAGE XXXe ENTRY X·

1641

8

198A 1642 ERIHO oc

1643 DATTA a

H4L'f
XL2 1 4000' LZNK

ERROR HALT. RETURN TO OCPe

1644

1645 ············
* 1646 · RESERVED

1994 11664478 T·E·S·T····D·C······X·L~6··0·~·0·0·0·0·0·0·0~0·0·0··6 ······A·C·TU·A·L~··SE·N··SE···PA·T·T·E·R·N···ST·O··R·A·G·E·······*·

1995 1649 FLAG DC

XL1 1 00·

ERROR FLAG.

1997 1650

DC

!998 1651 DADATA DC

Xl.2'0000·
XLl · oo·

BYTE THAT DATA IS TRANSFERED INTO.

199A 1652

DC

JU..2 1 0000·

1653
1654 ·······"'"'*

1655 · TABLES $ 1656 ·······································································

1657

1658 ·

TABLE OF EXPECTED ERROR PATTERNS FOR RTNOl.

1659 199A 1660 PATRN EQU
1661 ·

·-1 D S

1662 ·

I 0TL

1663 ·

AT AC

1664 ·

GA TA

l99E 1665

DC

XL4 1 C8C081FO·

SERVICE REQUEST CHECK.

19AO 1666

DC

AL.2( DADA TAJ

DATE

16AUG74'

EC NO. 824765

15NOV74 8.2.tt870

16.IUN75 825057

PPOG ID PAGE

DATE EC NO.
!,_

l 6AUG74 824765

15NOV74 824870

16JUN75 825057

PROG ID PAGE

403-2 13A

0
,,.....
~-

.,.

IBM MAINTENANCE DIA6NUSTIC PROG.AAM

PART HO· PAGE

5558781

IBM MAINTENANCE OIAGNO~TIC PROGRAM

1· I '

PART NO· PAGE

5558781 14A

4032

3741 ATTACHMENT DATA TRANSFER TEST

374.l ATTACHMENT DATA TRANSFER TEST

ERR L.OC OBJECT CODE
19A.i 01 19A2 08lC81Fl 19A6 1999 19A8 02 l 9A9 08l lC9Fl 19AO 1999 19AF 13 l 9BC 0812C9Fl 1984 1999 1986 t· 1981' Qe14C9F1 1988 1999 1980 15 l'!aeE 0818C9Fl 19<.? 1.999' l.9C4 16 19C5 oaGOCVFI li9C9 1999 i9C& 17 IKC ee.30C91Fl 1900 1.999 uio2 .ta: 1903 09SCC9F1 190? !Wl9 ll!JC9 19 190A 089GC9Fl lfiOE. 1999 19:£0 20 19£1 08150 Fl 19E.5 1919 J91E7 09 1Cl£8 081AC1F1 Ji 'iEC 19199 l91EE 10 19EF CSKClFl Jl9F3 1.99.19
19F5 u
1 'llF6' HliiClFC' UIFA 1999 !tlFC 07 lW'D GBl~Fl\ 1 · · :19118 1&03 gs I.A.TM ClllCCgF~ I.de 1999 ....... 12 :...- GllllJ.Hi.R l&GtF 1>9.le I.a.II U 1&1Z CIHGCJI F1 J.Ali6 1991'
uue cs,
14!.9 23Uf.OFI 1410 19991 J.&IF 04
lAZG ceGGEiFC»
J..az,6 .....
J.426 .. IA27' UIJGEHlD 1&28 1.1&28 .. Jl.11121E FF
IAZJF .._ 1&31 . . .

ADDR STMT SOURCE STATEMENT

19Al 1667 l9A5 1668

DC

XL.1·01·

oc

XL.4· 081C.81Fl ·

- MESSAGE 10· SINGl..E CHARACTER TRANS CHECK·

19A7 1669

DC

Al..2( DA!>A TA+ U

19A8 1670

DC

XL1·02·

- MESSAGE 10·

19AC 1671

DC

JCL4·0811C9Fl·

IJ'O INPUT 7 CHECK.

19AE 1672

DC

"'-2(0ADATA·l I

19AF 1673

DC

JCL.1· 13·

- MESSAGE ID·

1983 1674. 1985 1675

DC

XL4·0812C9Fl·

DC

-._2(DAOA.TA+ll

IJ'O INPVT 6 CHECK.

1986 1676

DC

XL.1·1··

- MESSAGE lDa

19BA 1617

DC

XL4·0814C9Ft·

IJ'O 1 N?UT 5 CtECIC..

19BC 1678 1980 1679

DC

~tOADATA+ll

oc

.:11Ll·15·

- MESSAGE ID·

J9Cl 16a0 19C3 1681

DC

XL4· 0818C9Ft ·

DC

~(DADATA+ll

IFO INPUT 4 CtECK.

19C:· 1682 J«.8 1663

DC

XL.1·16·

oc

JQ..48 0600C9F!·

- MESSAGE ID· l'D I NFUT 3 CHECK·

19CA 1684

DC

A.2( DAllDA lA+l f:

19CB 1685

IX

JCL1·11'·

- llESSAG.E ID·

19CF 1686

DC

JQ..4 11 0830Citf"J ·

110 INPUT 2. CHE<k.

1901 1687 1902 1688 1906 J.6&9

DC

ALZ(OADA TA+ l,

oc
IX

xXLt....J·.··

~·· D85CC9

F

I

·

- MESSAGE ID· UU INPUT l OtEOC..

19Ca .1.690

DC

AL2tDADATA+ll

1go9 1:691 1900- J.692

DC

oc

JllL.4· C&il!OCVI ·

- MESS.MiE ID· 110 llid'UT 0 CHECK.

19DF 169·3

DC

.f;L.2:f OM>A"fA+l t.

19EG 169·

DC

XL.J."20·

- lllESSAQE 10..

19E4 1.695

DC

)IL4'"0815C1FJ.·

I .ID UNIT l CHECt:·

J.9E6 1.696

DC

AL2lDMMTA+ll

19£1' 1697 19EB .1698

oc

XLI"G·

oc

)IL4. 11 CN!llA.C iF 1 ·

- M:.ESSAGIE ID· l.irQ UNIT 2 CMECICa

1 '!illED ·099 l9EE 1700 l9F2 171:1:% t.W:· J.1''&2

DC.

A2 U'l'M>Al'A·J ~

oc

Xl:..l'"lG"

oc

llL4 · GSBOCJ.F l ·

oc

AZlO.tOATA+1J

- llES.S·AGE ID.. lJ'Q SELECT 10.

Jli!FS 1.1'03

DC

llllLl"'IJ.·

- MESSAGE lD·

l.9F9 1.7Cllt4

DC

JQ.4·Q16ICIClFO·

LCR IHICREME!CT CIE:CJC.

Jl9Fii J.7Q\5

Of;;.

.tL.ZlOJtiM.lf..,.11 l

19FC ll.70·6 IAOG a7G7

DC

a..1·07·

DC a··cmoaF1·

lt.A.a2 &J'G8 1AG3 11'09

DC

A.21.D.«OATA)

DC n.£·cs·

- MESSAGE. J:a.

l.ur7 ~?IQ< J.A09 &7111, l&OA ll.712

DE:

XL·"'4118JiQietFJ,·

DC

AIL2:10.-..'I"*11

ac

a.l.·12"'

l'G l!W'Vr P CltlEU. - llGESSAGilE ID·

J,AGE Jl713·

IX

R.481 G81G8i!FG·111

CYCLE ll£0:EST Cl!!EOr.·

IAH 51"i,4

DC

AZCJMM.TU

l&ll ll.715

DC

D..i"'G3"'

lAIS: 1'l'li.6

DC

..... "81.0QEl·

1.··· .IAA7 ·7'11'' an. a
IA.:IC 1.719

QC

ofll.2ta...T~l}

fJC

ai·c:t!S"

llJC

-..·2AtJC1FJ.·

- MESSAQE IC., REACiJ I~ OfECK·

lAlE :l'J"ZG, l&llF J.72:J. .lAZ.3 ll1'ZZ

!lJC

.tll..ZC l!JIADlt.TA·I\)

ac

mLJ.·04·

ac

lit.·· GalrGElFClli"'

- Wljfss.M:F tD.1.nl: SEJ..ECT AEfFJ:STER OtECK.

.IA.ZS ll.Tz.3:

llJC

111..Zlllli.t!CMliAJ

ua J.7zc
IAZA a725 l&ZC JI726 IA20 &727

ac
li1C
me
DC

.......JlLl."06S'
&.4 11 Clll~IFIV Ali..Zl~TA)

-~EEJ..
&.TT~ C'!!!lVEa CMECK·
- lllftE.SS.A&E. m ..

a4ZE a728

me ._1·FF·

· .,'29

................. 1.7»

a DI
__........ ...··-··--...,._.. _ ........... &732

.· ,..C.D_ll.S.T,A_m.l.T,S.,.·,

~

· EN& OF TAai.£ ·
.., , __.

i&» ll7~:ii lllC».:O DC

IL.211 G·

JllJ3Z ·734 -.1 DC

JLzeJ·

ERR LOC oeJECT CODE

ADDR STMT SOURCE STATEMENT

1A33 OCI02 1A3S 0003 1A37 OOC6 lA.39 0007
1A3B ocoe
lA30 FFF8
tA.3F ooao
lA.41 2355
1A43 ·190 1A45 AA.55 1A·7 0082
1A49 OOAA 1A·6 5SAA
U.4-0 CU.07
lA4F OOFF u,s1 OOFC
lAs.3 0482 1A.55 408C
1.A.57 8082 U,59 0280
1458 OOFB U.50 COFE 1A.5F 484C 1A61 199&

1A34 1735 N002 DC 1A36 1736 N003 DC 1A38 1737 t>o0006 OC lA:sA 1738 NOv7 DC lA3C 17.39 N008 DC lA3E 1740 hFFF8 DC 1A40 1741 H0080 OC lA42 1742 H2355 DC 1A44 1743 H4190 DC
1 A46 l 744 HAASS 0C
1A48 1745 H0082 0C
lAU 1746 HOOAA DC lA4C 1747 H55AA DC 1A4E 1748 H0107 CC lASO 1749 HOOFF DC 1A52 11'50 MQOFO ilC 1A54 1751 H0482 DC 1A56 1752 H408G DC 1A56 %753 H8082 DC lASA l 754 H028C DC
1A.5C 1755 HOOFB DC
IA5E 1756 HOOFE OC 1A60 1757 "4640 DC lA62 1758 ADAS DC

IL2'"2·
IL2·3·
IL2·6· IL2·7·
!t..2·8· XL2·FFF8·
xi.2·ooeo·
lll..2'"2355·
a2··190·
JC!...2·AAss· a2·ooa2·
XJ..2·ooAA·
.:a..2·SSAA·
XL.2·0107·
JG...Z·OCFF·
- ac:·c;OFo"
Jllil..2·0"82·
XL.2·4Q8o·
X1..2·eos2· Xl.2·02ao·
~2·0CF8·
XL2·oot=E·
.lCL..2"484C·
AL2<DAOATAI

1A63 1A142
lA.65 1A30
lA6·7 1383 1469 CC87 1'"6B 17E3 1.1.60 F2Fli 146F FOFS

1A64 l 759 A&RSSS DC

IA66 1 "MO AOASO·O DC

l A68 l 1'61 UURS DC

JA61t 176,2

DC

l&6C 1763 BRMCtt DC

I A6E Ji 764 CZl

OC

1A70 1765 C05

DC

1766

1767 . . . . . . . . . . . ..

M..2(ff23,55J
ALZCKOCCOl
M..2( !NT51 M,.2·CGa7·
M..2Coac&t
a..z·21·
CLZ·OS·

1 768 · MESSAGES · 1769 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . _ . . . . . . .,. . . . . . . . . . . . . . . . .- . . . . . . . . . . . . . . . . . . . . . . . . .- - - - - - - - - - - - - - - -

i.A7 J ll3C5CiESC5400.Cl1 lA8£ 1770 uPSlOC DC

Q..3G·L£A'°"1E OIASHOSTIC CQMECTOA ON.·

1At79 OC7CSC6£2'E.JC~

?.770

1 48,1 40C306D5li15CSC.3E3

117&

lA.&g 060·940060548

177G

1A8F C4064-0E2.E8E2E3C.S· lAAS 11"7! IN~ DC

<LZ3"D0 SVS'IBI RESET. ST.&RT.. ·

J.A.97 04-4G,DKSE2CSE.i6S

1771

:tAW- 4CJ1E.2E3CI09£34i:J

!771

l.AAO 5,cscscc;a9D9':»D9 l&m J.772 ERS·

DC

I.Alt£ 5CSCS-.C

1772

J A.llll C6R 05C3E3C9D6G5 UCI l '7r..· lllCDl ·· DC

IA.89 401D'9C5Cl'C9E2E3iCS

1773

"A.Cl 09'

1773

14C2 E2E3CI E.-.E4'E24G·CZ I.A.CC 11'1'4 !!llCD2A DC

1A.CA ESEX:S

177$

a...11,·STA1us 8TT£·

l .tCD· !lt3CSCSC7E30MQ!C3 UUJC 1775 NCD2B· DC

J.A&JS 06E4GSE34>009C>CT

1775

J.AOO C"36·10641lllE3D9CUJ5 IAEE 1776 NCB3 OC

E.AES. E2C6CS~ill3CSI05

177·

1AIED· CSE2

11'76,

1AEF C..CIE3C.14KIC4C· 1Sa3 1Tl7 llCD4 CC

CLZJ·DATa .t-Dil'mESS REfallS"l'ER·

1~ £18CSE2:E241-liHl9C5.:7

1777

ll4FF C9E2E3:C5ill9

1777

J.Bllli4' 4lOOOK.5C3DZ411l

JSlllllA 1778· ~ OC

llil'Q·B· C4':90C1'05li»UEJ\ 1819 1779 lllll.:e5A; DC

1EU.3 C~"'4liCaE81EX:i-

171'9

ll l!J,A. C4'CJ EllCl.-O~CI ll!ZA. 1780 ~ DC

CLP OEa.· CL.15·DiAQif!IOS'UC SY"JE·

18'22 05EZ~CS

1780

J.eZA ,..,

·~

J.82:& E2C91il5C7D3C5eai0 ilME 1781 "°91 DC

Jl813!.:i C&CIC9Cl<3£3CSo9 1'8138 ~scu::~

1781 17111

l 1!4>i Oll5E2~P

1781

J&Me CSEZE348

17·1

1....-1'5
9Z5057

.~. · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

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

1BM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558781

IBM MAINTENANCE DIAGNOSTIC PROGRAM

15 '·.

PART NO. PAGE

5558781 15A

4032

~741 ATTACHMENT DATA TRANSFER TEST

ERR LOC OBJECT CODE

ADDA STNT SOURCE STATEMENT

l84F C4CJE3C140CZEdE3 1858 1782 HOATA DC

1 857 C540E7E74B

1782

lBSC F04.CF l 40F .240F.340 186A 178.3 BITS DC

1864 F440F540F640F7

1783

1868 60C5C2F240C2EdE3 1874 1764 E82

DC

1873 C560

1784

1875 60CSC2F140C2ESE3 187E 1785 EBJ

DC

1870 C560

1785

lB7F C2E8E3C540E.309C1 1892 176(1 8YTCK oc

1887 05E2C6C50940C3C8

17&6

lBSF CSC30248

1786

1893 C4ClE3C140E309C1 1BA6 1 787 SNCK oc

le9e 05E2C6CS0940C3C8

1787

1BA3 C5C3024e

1787

1BA7 C5E707C5C3E3C5C4 1880 1 7a8 XPAC oc

18AF 40E7E74040C1c.JE3

1788

1887 E4ClD340E7E74e

1788

188E C40640C505C44;l06 lSEC 1789 HOOS DC

1BC6 C640E3D9Cl05EZC6

1789

lBCE CSC94060C506E36G

1789

1806 40C2E64009C5C!C4

1789

lSOe 40C3C1D30340DoES

1789

1BE6 C5C9C60306E64a

1789

lBED F3F7F4Fl40C9E.240 1 BFE 1 790 NO ROY DC

1SF5 0506E34009CSC1C4

1790

lBFO EMS

1790

lSFF F3F?F4F140C9EZ40 ICOB 1791 SiSY DC

1C07 C2E4E2E84B

1791

lCOC C70640E30640F.3F7 1C20 1792 MAPSS DC

1C14 F4F14004CI07E~6B

1792

1CIC 4007C1C7C540F~FO

1792

1C24 F040C5D5E309Ed40

1792

1C2C F04B

1792

1C2E C40640F340C4C1E3 1C46 1793 HDOA DC

1C36 C140D9C5C1C44~E3 1C3E C9C1D5E2C6C5D9E2

!793 1793

lC46 48

1793

1C47 E3C5EZE340E2C509 1C63 1 794 HOC9 DC

1C4F ESC9C3C54009C5E2

1794

1C57 D7D605E2C540C409 lCSF C9ESCSD9"S

1794 1794

1C64 E3C5E2E340EZC5E3 1C8C 1795 HOOS DC

1C6C 6109C5E2C5E34~06

1795

1C74 C640E2C509E5C9C3

1795

1C7C C54009C5E207Do05 lC64 E2C54003C1E3C3C8

1795 179·5

1C8C 48

1795

1C80 E2C905C703C54'1C3 1CB1 1796 H007 DC

1C95 C8C1C9C1C3E3CS09 1C9D 40E609C9E3C540E3

1796 1796

lCAS D9C105E2C6C5D940

1796

lCAO E3C5E2E34B

1796

1CB2 E3C5E2E340C60609 1CC6 1797 H006 DC

lCSA 40C2E4E2E8400o05

1797

1 CC2 61 06C6C64B

1797

1CC7 C4D640C505C44006 1 CF6 1798 HOOC DC

lCCF C640E3D9CIDSEZC6

1798

1CD7 C5C94060C506E360

1798

lCOF 40C2E840E609C9E3 1CE7 C54CC3C103034006

1798 1798

lCEF E5C509C60306E648

179a

1CF7 C4C5C3D9C504C5D5 1016 1799 HDClD DC

1CFF E340C4ClE3C14.iCI

1799

1007 C4C4D9CSE2E24009

1799

lDOF C5C7C9E2E3C5094B

J799

1017 E3C5E2E340F3F7F4 1032 180&l HOOE oc

101F F140C9D5E3C50909

1800

1027 E4D7E340C1C2C~D3

1800

CL13·0ATA BYTE xx.·
CL15 5 0 1 2 3 4 S 6 7·
CL2C·oATA TRANSFER CHECK.1
CL23·ExP£CT£0 xx ACTUAL xx.·
CL16·3741 IS NOT ReAOY.· CL34·GO TO 3741 HAPSe PAGE OOQ ENTRV O·· CL'2S·OO 3 DATA READ TRANSFERS.· CL29·TEST SERVICE RESP~NSE DAiVEA.· CL41·TeST SET/RESET OF SERVICE RESPCNSE LATCH.· CL37·S1NGLE CHARACTER llRITE TRANSFE~ TEST··
CL48·oo END OF TRANSFER -EOT- BY WRITE CALL OVERFLOW·· CL32·oec~EMENT DATA ADDA-::;,. AEGISTEA.· CL28·TEST 3741 INTERRUPT ASILITYe·

4032

3741 ATTACHMENT OATA TRANSFER TEST

ERR LOC OBJECT CODE

ADOR STNT SOVRCE STATEMENT

102F C9E3E84B

1800

1033 E3C5E2E340CZC1C4 1053 1601 HOOF DC

1036 4007Cl09C9E3Ed40

1801

1C43 C90540C4C1E3C140

1&01

1D4B E309C105E2C6C509

1801

1053 48

1801

1054 E3C5E2E340F3F7F4 1076 160Z HOiO OC

1osc Fl 40C 1osc 44 OC961

. 1802

l 064 0640 C1E3E3C505E3

1802

l06C C9D6054003C9C7CS

1802

1074 E3E24B

1802

1077 D<;C5E2C5E340C8Cl lOAA 1803 READ OC

lD7F 03E36840C5E7D7C5

1803

1087 C3E340F3F7F4F140

18Q3

108F Cl05C440C961D640

1803

1097 C1E3E3C505E3C906

1803

109F DS4C03C9C7C:SE3E2

1803

1DA7 4006D548

1803

lDAB C9C640CZ06E3C840 lDCO 1804 IFY

DC

1ce3 D3C9C7CSE3E2"1)05 1cee 06E340D60S6a

1604 1so4

l!>Cl F4FOFOF1

10C4 1805 ENTRY OC

lOC5 E6D9C9E3C540c.JCI 1oor 1806 WffTCK oc

lOCO 030340E3C50904C9

1806

1005 D5C1E3C540C3C8C5

1806

lDOD C30248

1806

!OEO F3F7F4Fl40C9E240 lOf'O 1807 NOTSO OC

1 DES D506E340C2E4f.ZE8

1807

tDFO 48

1807

lOFl E2C509E5C9C3C540 1E07 1806 SRVCK DC

l OF9 09C5E2070605EZC5

1808

lEOI 40C3C8CSC3D24B

1808

lEOe E2C5D9E5C9C..3CS40 IE28 1809 SRVR DC

1E10 09C5E20706D5EZCS

1809

1E18 4Q03ClE3C3C84005

1809

lE20 D6E34009CSE2CSE3

1409

1E28 48

1809

1E29 E2C509e5C9C3C~40 1E46 1810 ORJVCK DC

lE3i 09cse207oeosezcs

1e10

1E39 40C409C9ESC50940

1810

1E41 C3C8CSC3D248

1810

1E47 C9610640E3D9C105 lESE 1811 TRLCK DC

1E4F E2C6C5D9400~C9D5

1811

1E57 C540C3C8C5C30248

1a1·

1E5F C506E340C3C8C:X::3 1E68 181~ CKEOT DC

1E67 0248

1812

1E69 C905E3C509f401E3 1E7F 1813 NOINT

lE 71 40C4C9C440DSD6E3

1813

1E79 4006C3C3E4094d

1813

lE80 F3F7F4F140C9EZ40 1E8D 1814 ROY'ON DC

!EBB D9CSC1C4E848

1814

lEBE C961D640ClE3E3C5 lEAI 1815 ATTN DC

1E96 D5E3C9060540C3C6

1815

1E9E C5C3024B

1815

1EA2 E2C50SE2CS40C3'8 1EAD 1816 SNSCIC oc

lEAA C5C3D24S

1816

lEAE 06ESC509C603D6E6 IEBC 1817 OVICFL DC

1 E 66 40C3 CS CSC.30248

1817

lEBO C4CIE3Cl40C3C8CS lECA 1818 MSS

DC

lECS C3D240FOF04B

1818

lECB D5060540E2C90itE4 lEOE 1819 NOFNO oc

1E03 D3C1E3C5C440C3CB

18l9

lEDS C5C3024B

1819

lEOF C9CID940F54009C5 IEF3 1820 ERIAR oc

1EE7 C7C9E2E3C5DSMt;;C3

1820

1 EEF C8C5C30248

1820

1EF4 CID9094CF540D9CS IF08 1821 ERARA DC

IEFC C7C9E2E3C5D94wC3

18.21

0..33·TEST BAO PARITY IN OATA TRANSFER.· CL35"TEST 3741 AND I/O ATTENTION LJGHTSo· CL52 1 RESET HALT· EXPECT 3741 ANO 1/0 ATTENTION LIGtiTS Of.ieO
CL22"1F SOTM LIGHTS NOT ONe· c1..···001 · CL27·WRJTE CALL TERMINATE CHE~~·· a...17·3741 JS NOT ausv.·
CL33 1 SERV1CE RESPONSE LATCH HOT RESET·'
CL.23· JNTERuPT OID NOT OCCUR··
Cl.12 1 SENSE CHECK.· CLlS·OVERFLOW CHECK··
CLl4 8 0ATA CHECK oo.·
CL20'NON SIMULATED C~EC«·· CL2J·IAR 5 REGISTER C-.ECK.· 0..2J·AAR 5 REGISTER CHECK.·

CATE

16AUG74

EC ND· 824765

15NOV74 824870

16.JUN75 825067

FROG 10 PAGE

403-2 15 '
!

DATE
EC HO.
(.
.........

16AUG74
824765

c \ ,·..
~.~
!
j (J
I
!
: C'i

16.IUN75 825057

PROG 10 PAGE

r
·.J.

JBM MAINTENANCE OIAGNUSTIC PROGRAM

PART NOe PAGE

5558781 16

IBM MAJNTENANCE OIAGN.JSTIC PROGRAM

PART NO. PAGE

55&8781 16.A

4032

3741 ATTACHt4ENT DATA TRANSFER TEST

4032

3741 ATTACHMENT DATA TRANSFER TEST

ERR LOC DB~ECT CODE

ADDR STMT SOURCE STATEMENT

1F04 C8CSC3024B

1821

SYMBOL T LEN VALUE DEFN

lF09 C9C109F561C1D909 1F1C 1822 ORRO DC:

CL.20 1 1ARS/ARR -OR- CHECKe·

lFll 406006096040C3CS IF 19 C5C30.24S

1822 l 822

ACT AOIT

A 002 1579 1267 A 004 13SF 0998

lF10 1F78 40

1F77 1823 PAT

DS

1F78 18.24

DC

PRINT FIELD· CLEARING BYTE.

AD.IST A 003 12EO 0958 ADAS A 002 1A62 1158

1825

ADRSOO ,. 002 1A66 1760

1826 .............

ADRSSS A 002 1A64 1759

1827 · EQUATES · 1828 ................................................- ........................ .

ALTER A 004 0A43 0062

ARR

c 001 0008 1829

0008 1829 ARA EQU x·oe·

0216 1830 LINK EQU X'216 1

ATTN A 020 lEAI 181$

022A 1831 LOAD EQU X1 22A'

SADBYT A OC6 1885 1563

021A 1832 PRINT EOU X'21A·

8E61N A 001 OAOO o.;;39

021E 1833 UNPACK EQU x·21e·

8EGINN A 004 QAU 0.)43

00~1 1834 XRl 0002 1835 XR.2

EQU x·o1· EQU x·o2·

BISY BITS

A 013 lCOB 1791 A 015 186A 1783

0222 1836 HALT EQU X1 222·

BITSNF A 004 161C 1.12.1

OA03 1837 RTN· EQU x·oA03·

BRNCH A 002 U.6C 1763

0084 1838 IAA5 EQU x·84·

BTNF A OO· 1678 1349

0200 1839 CPU

EOU X1 200'

IA30 1840 HOOOO EQU NOOO

BUSY A 004 1491 1156 8YTCIC A 020 1892. 1786

1994 1841 TEMP EQU TEST

CCSI02 A 001 1802 H99

IEEC 1842 Nc:D88 EQU ERIAR-7

CKCK A 004 1782 1447

lEFF 1843 NCD08 EQU ERARR-9

CKEOT A 010 1E68 ldl2

IA34 1844 ff0002 EGU N002
0080 1845 SS·10 EQU x·eo·

CKIAR A 004 17AO 1442 CKIT A 004 16.U 1375

020A 1846 SBYTE2 EQU x·ozoA· OA07 1847 FRTN EQU x·oA07·

CKOUT A 004 1794 1433 CKPAT A 004 1538 lz.38

0200 1848 SAT

EQU x·o200·

CKS

A 005 1543 1241

OAll 1849

END BEGIHN

CMPAAE A 004 157A 1~69

CMPR A 004

I

CONY CPU

A 003 C 001

I COS C21

A 002 A 002

-l .. _DADATA A 001

1so2·- 129&
llEB 14)68 0200 1839
IA70 1765 IA6E 1764 1998 1651

I

I DARCK A 007

I I

DARN A 006
DATA A oo·
DATAI A 006

I

r-ATER A 006 DATTA A 004

DMPYI A 004

I

DRIVCIC A 030

E81

A 010

EBlT A 001

f EB2

A OIC

I

ES2T A 001

! ENTRY A 004

EPRNTl A 004

EPRNT2 A GO·

ERAAA A 021

ERIAA A 021

ERIO A 002 EAMS A 004

ERRIO A ·002 ERROR A 004

r'

180A 18F9
1aos
1813
1920 1988 197F
IE~
187£ 1618
1874 161A IDC4 14C5
1400 IF08 IEF3
18C4 1555 198A 1699

1778 l:;i91 1505 l:i07 1005 164.J 1639 1810 1785 1321 1784 1.J20 1805 1183 1186 lct21 1es20
J:i68 l.?46
1642 U73

ERRRID A 002 El<AA16 A 004 ERRRl9 A 004 ERA07 A 004 ERRl6 A 004 ERRl7 A OC4
ERR18 A 004

1935 ODCE 1060 OB6E
ODA2 OE9F
QF66

1611 OS55 0867
0~71
0535 Ob56
0749

CROSS-REFERENCE

REFERENCES

1281 0899
095.2 0192
0317

1285 1013
0228 0406

129., 1466

1294 1483
0701

01'96

14a4 0946

1051

1534

0058 0575 1373

1132 1163 1186 1442 1505· 1506

1200

1218

12.38

1269

1553 0015 0067 1849 1159 1409 1410 1421 0941
1328· 0198 1572 1527 1528 1442· 0659 0753 09U 0914
1432 1378 1619
12s·
1427
1269·

0916

0974

0976

0978

0898
1593 1256
0229· 0526 1675 1678 1711 1714 0833 1558
0080 0100
iso.-
1549 155i 1555 1959 1633 0424 1407 1.326· 1341 1406 1334

0546 1681 1717
0120

0566 1684
1720
0139

0838 1687 1723
0159

0855
1690 1726

1552
169.3 1758

1580 1696

1636 1699

I.
~666
1?02

1669
nos

1672 1708

1408 1423 1"04 1411 1428 0970 IS.3 0938 1842
1563· 1586 1257
1586· 1591· 1606· 0260 0277 0353 0370 0836 0853 0873 1094 1605· 1606 0505 0507 0509 0822 08.24 . 0246 0248 0·91 0493 0495 0631 0633
072;) 0722

0427 1112

0518 1·56

0538 162·

0558 163·

0662 0735 0756

OATE

16AUG74

EC NO. 824765

15HOV74 824870

16.IUN7S 825057

PROG ID PAGE

403-2 16

DATE

1.6AVG74

EC l\IO· 824765

15NOY74 824870

l6.IUN75 825057

PROG 10 PAGE

''-.~·_

·

·

·

·

·

·

·

·

·

·

·

·

·

.f''_ ""' ~ ...

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

-·

·

· · · · · · · · · · ·· · ··· ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558781 17

4032

3741 ATTACHNENT DATA TRANSFER TEST

CROSS-REFERENCE

SYMBOL T LEN VALUE DEFN

ERR19
ERS
EROF1 EROF2 ER07A
ERlA ER14 ER14A EA16
ER17 ER18
ER19 E16 FLAG FRTN HAASS MALT

A OC4
A 011 A 004 A 004 A 004
A 004 A 004
A 006 A 004
A 004 A 004
A 004 A 004
A 001
c 001
A 002
c 001

1037 1A80 1412 1437 OB4A
1364 OC2B OBEF 0076 OE78 OF39
1013 ODFA 1995 OA07 1446 0222

Oo47 1772 1088 1106
0~54
1J03 0.364 0343 0515
Oo39 0728
0830 Ot>75 1649 lo47 1744
1836

HDATA A 013

HONGIO A 002 HOOA A 025

HOOB HOCC

A 047 A 048

HOOD HOOE

A 032 A 028

HOOF A 033

HOOl H006

A 036 A 021

HDC.7 A 037

H008
HDC9 -HOlO

A 041 A 029 A 035

HFFF8 A 002 HPLXX A 002

HOO AA A 002 HOOFS A 002

HOOFE A 002 H00FF A 002

HOOFO A 002 HOOOO A 002

1B5B 1837 1C46
lBEC 1CF6
1016 10.32 1053 1B4E 1CC6
lCBl 1C8C 1C63 1076 1A3E OA4C
1A4A 1A5C 1A5E 1A50 1A52 lA.30

1782 1519 1793
1789 1798 1799 loOO 1801 1781
1797 1796 1795 1794 1802 1740 01)65
1746 J755 1756 1749
1750 1840

H0002 H0080
HOC82 H0107 HC280 H0482 H2.355 H4840
H4080 H4190 H55AA H8082 IAR I ARS !DER IFY lNJTL. INTL.
INTRO INTR"i
JNT5 IS&SY I TuN ITSON

A OC2 A 002
A 002 A 002 A OC2 A 002 A 002 A 002
A 002 A 002 A 002 A 002
A 002
c 001
A 002 A 022 A 004
A oc·
A 023 A 002 A ~04
" 004 A 004 A 004

1A34 1A40 1A48 lA4E lASA 1A54 1A42
1A60
1A56 1A44 1A4C U.58 17CC 0084
1914 lDCO 145C 1473 1AA5
1A68
1383 OAOA 166C 1656

ld44 1741 1745 1748 1754 1751 1742 1757 1752 l743 1747 1753 lit59 ld38 l:i98 ld04 1132
1138 1771 1761 lu 19 01-;,a 1.345 U38

REFERENCES

0813 0815 1426 1062 1066 0239
0968 0993 0337
0335 0477 0479 0620 0711 0713
0804 0516 0536 0943· 0967 0055· 0911 0973 0064 0267 0766 0843 1481 1641 1513 1523 1509· 0)454
0599
0690 0785 0903 1041 1518 0182 0218 0307 0396

0481
0556 0982· 0992
0287 0360 0863 0883

1019·
0377 0434 0531 1011 1083 1101

0551 1119

0571 1152

0652 0672 0745 1163 1174 1464

1221'. 0057 0060· 0062$

0465 0610 0227 0405 0190
1135 0226 0408 0315 0915

0700 0794 0191 1760 0404 0466 069S 0977

0947 1050 0193
0462 0611 0948

1533 0316
0607 0702

0318
1049 10S2

Hl32 113.J

0464 1535

0609

0622

0699

0795

113·

0793 1759

0319 0913 0975 0230
0910· 0911* 0913* 0915· 0944* 098J· 1443* 1444 1592·

0972·

C973·

0975· 0977·

1443

1446

0185 0221
1132* 0051 09.35 0936 102.3 1761 0196 1342 13.35

0310 0944

0399 0983

0457

C602

0693

0788

0906

0980

1044

1525

· · · · · ·
IBM MAINTENANCE DIAGllWSTIC PROGRAM

· · ···· · ···· · ··

PART NOe PAGE

5558781 17A.

4032

3741 ATTACHMENT DATA TRANSFER TEST

CROSS-REFERENCE

svMBOL T LEN VALUE OEFN

REFERENCES

.IUMP L.I NE L.lNK

A 004
A 001
c 001

12FO l4DC
0216

0964 1189 ld30

L.OAO L3742
MAPS

c 001
A 001 A 004

022A
0000 14EA

1831
0005
1~00

14APSS
MPER
MPIAR
MPREF
1455
NC008
NCOl NC02A NcoZe NC03 Nco4 NC05A NC05S NC088
NCOD NF
NFF'
NOFNO NOt.NT
NO ROY
NOTSO NT65Y
NTR()V NTRST NOOO
NOC\ N00.2
NOQ3· N!jQO
NOQ7 Noo·s
OOf';.fi
ORC!l;
ORtT OTMi!!
OV~L. PATCK
PATRN
PRlNT

A 034 A 002 A G02 A 002 A 014
A 021
A 017
A 011 A 016 A 018 A 021 A 015 A 017 A 021 A 001
A 004
A 004
A 020 A 023
A 018
A 017 A 004 A 004 A 004 A 002
A 002 A 002
A 002 A OCZ A 002 A 002 A 006 A 004
A 004
A 020 A 015 A 004
A 001
C Oul

1C20 1984
1708 1808 lECA IEFF 1AC1
lAC:C lAOC lAEE 1B03
1819 182A lEEC 1698 165A 1670
1EOE 1E7F lSFE lDFO 14AB 1477 13F7 1A30
1A32 1A34
1A36 lA38 1A3A 1A3C Hl53 17E3 lOEl lFIC 1E6C 1550
199A 021A

1792 1640 1463 1502 1a1s 1&43 1773 1774 1775 1776 1777 1779 1780 ld42 1372 1339 1.J46
1819 1813 1790
1807 1167 1145 1.l76 1733
1734 1735
1736 1737 1738 1739 1621 1473 0939 ld22 1017
l-'50 1660 1032

PRNT
PRT

A 004 1408 1188 A 091 1F77 ld2.:J

PRTT
OS OST
OUES ROYON
READ RTHL T RTN· RTNOA RTNOB

A 004 A 004 A 004
A 004
A 014
A 052 A ~02
c 001
A 001
A 001

14E6 1522 15.26 1511 1E80 lOAA 18.JA OAJ3
ocea
OEJC

1193 l-'22 1-'24 1218
ldl4
1603 1->03 ld37 0447
059~

0939 1184* 1187· 020~ 0250 0269 0573 ~635 0654 1165 117E 1643 0998 1071 1085

0289 0674
1103

0339 0724
1121

C362 0747

0379 0768

0417 0826

0436 0845

0511 0865

0533 C385

0553 1154

0265 0285 0358 0375 0432 0529
0841 0861 0881 1009 1081 1099 1639 1202· 1203· 1204· 1205· 1209 1508· 1587· 1588· 0909· 0971· 1508 1244* 124~* 1249 12S6* 15~3* 1602 1400 1383 1386 1387 1390 1393 1396 1397 1403 1370· 1377 1381 1384 1388 1391 1331· 1336· 1337 1338· 1352· 1332· 1343* 1344 1345· 1353·

0549 1117
1394

0569 1150
1398

0650 1161
1401

0670 1172

0743 1462

07,4 1479

1006 1079 J.170 0197 1137 1069 1840
1323 1305 1221

1148
1327 1306

1431 1352

1433 135.3

1412

1415

1a..

1252
1505
1589 1603 1613 176.l 0937· 0938"' 0996 1476 0870
1238· 1239 0043 0048 0179 0215 025· 0271 0304 0346 0364 039~ 0421 0451 0576 0596 0639 0656 0687 0729 0750 0782 083~ 0847 0867 0900
1003 1032 1016 1oes 1106 1145 11s6 1167 1108 1206 12·6 i·so
1473 1515 1520 1564 1569 1582 1594 1599 16~7
1185 0052* 0053 0053· 0343· 0344 0345· 0349 C351 035!* 1191 1192 1192· 138~ 1380· 138.3· 1386· 1387· 139~· 1393· 1396'1' 1~97· 140C· 1403* 1406· 14w7* 140S· 1410· 14i9 1420 1426· 1183· 1186· 1218· 1221· 1225 1226 1228 1220
0167 0223 031<:! 0401 0459 0604 0695 079G 0950 1046 Uli.29

1507· 1509 0391 0449

1563
15~4

1591 1612

1592 1632

1605

---------~·--------

!>ATE

l6AUG74

EC NO. 824765

l5J\IOV74 824870

16.IUN75 825057

PROG 10 PAGE

403-2 17

DA TE

16AUG74

EC NO. 824765

15NOVT4 824870

16JUN75 825057

PROG 10 PAGE

403-2
17A

,,-
'··
·-

IBM MAINTENANCE DiAG~STIC PROGRAM

4032

3741 ATTACHMENT DATA TRANSFER TEST

CROSS-REFERENCE

DEFN

RTNCC A 001 RTNOO A 001

RT NOE A 001 RTNOF A 001

RTNOl A 001

RTN02 A 001

RTN03 A ClCl

RTN04 A 001

RTNOS A 001

RTNQ6 A 001 RTN07 A 001

RTN08 A 001

RT~9 A 001 RTRN A 004

SBYTE2 c 001
SETI A 004

SET2 A 004

SIOCC2 A 003

SKPER A 0'14 SNCK A 020

SNSCK A 012

SRT

c 001

SRVCK A 023

SAVA A 033

SSA SSS

A 002 A 002

SSC

A 002

SSllflO c 001

SSOFA A 002

SSOFS A 002

SS07A A 002

SS07B A 002

- SS07C A 002

SS14A A 002

SS14B A 002 SS15A A 002

SS16A A 002

SS16B A 002

SS16C. A 002

SS16E A 002

SS16F A 002 SS16H A 002

5$161 A 002

5516.I A 002

SS16K A 002

SS17B A 002

SS17C A 002

SS17D A 002

SS18A A 002

SS18B A 002

SS18D A 002

SS18E A 002

SS19A A 002

SS19B A 002

SS19C A 002

55190 A 002

5S19E A 002 TAERR A 004

TAl

A 004

TA.2

A 004

TA3

A 004

TBERR A OC4

TBl TB2

A 004 A 004

TB3 TC

A 004 A 004

OEC8 OFS3 1069 13'»8 OA51 OA62
~A73
OA84 OA!05 OAA6 OAE2 0891' OC4F OEJ8 020A 1009 1000 J86A 1784 1BA6 lEAO 0200 1E07 1E28 1967
1~6C
1970 0080 1424 1449
oesc
0880 0885 OC19 OC30 OCA9 0086
ooae
0090 0082 0087 ODBC ODOE OOE3
ODES OE8D
OEBl
OEB6
OF4F OF54 OF7C
OFSI 1025 1C49 104E 1072 1077 160A 15AF 15A5 159E 1612
15C7 1580 1586 15CE

0683 0778 Od94 1034 0.:>76 OJ96 0116 01.35 0155
0175 .l211
O.iOO 0.389 0581 1046 0937 0938 1538 1428 1787 1816 1048 1808 1809 1627 1630 1637 lo45 lli97 1115 0.263
0~8\)
0283 0356 0.373 0430
0521 0524 05Z7 0541 0544 0547 0561 0564 0567 0648 0665 0668 07.38
0741 0759 0762 0839 Oo56 01359 0076 Oti79 1309 l.!85 1..:81 1.279
1.u1. 1294 1290 1288 1.297

REFERENCES
0594 0685 0780 0896 0041 0054 0078 0098 0118 0137 0157 0177 0213 0302 0515· 0535· 0555· 0575· 1219 0935· 0936· 1527· 1528· 1425 0579 1567 1597 1610 0642 0732 Ci850 1091
0257 0343 0367 1540· 154·· 1545· 1550 1615 1541· J 548 1616 1622· 1546· 1557 1557 1617 1219 1058· 105S· 1061 1061 1064· 1065 1065 OZ35· 0236· 0238 0238 0242· 0247 0247 0243· 0245 0245 032r· 032S· 0334 0334 0332· 0336 0~36 0413* 0414· 0416 0416 0472· 0476 0476 0473· 0478 0478 0474· 0480 0480 0486· 0490 0490 04a7· 0492 0492 0488· 0494 0494 0500· 0504 0504 0501· 0506 0506 0502· 050$ 0508 0617* 0619 0619 0625· 06Z7· 0630 0630 0628· 0632 0632 0708· 0710 0710 0728· 0707* 0712 0712 0716· 0719 0719 0749· 0717· 0721 0721
oe.:>z· oao.= 0803
0809· 0812 0612 0810· 0814 0814 0618· 0821 0821 0819· 0823 0623 1270· 1282 1286 1274· 1.280 1299 1273· 1300 1300· 1272· 1301 1301· 13C7 1271· 1291 1295 1306· 1.277· 128ii 1297 1302 1.l02· 1276· 1303 1303· 1275· 1283 1304 1304· 1310 1292 1312

DATE

16AUG74

EC NOc 824765

15NOV74 824870

l6.IUN75
825057

I

5558781 18

lBN MAINTENANCE DIAGNOSTIC PROGAAN

PART NO. PAGE

5558781 18A

4032

3741 ATTACHMENT DATA TRANSFER TEST

CROSS ....REFERENCE

SYMBOL T LEN VALUE OEFN

REFERENCES

TEMP A 006 TEMP1 A DOZ

TEST A 006

THEADR A 002

TNF

A 004

TNFF A 004

TRLCK A 024

TRY

A 004

UNPACK C 001

UPS(OC A 0.30 WRTCK A 027 XPAC A 023

>tPDTR A 002 XPLCR A 002

XPT KRl

A 002
c 001

199~
1,._39947
17Cl 1648 165E
IESE 1561 OZIE
1A8E lOOF lSBD 1804 1806
151'7
00~)1

1841 l.J24
1648
1453 1.334 1.341
1811 1252 1833 1770 11$06 1788 1500 1501
1Z66 1834

XRZ
ltYRl

c 001 0002
A 006 1759

0940· 0997 1021· 0344· 0345
1448· 1329· 134S 1330· 1351 1109 1242 1510 1574
0046 0274 151'7 1581 1512 1550 1548 1622 1279 1268 0054· 0055 1203 1204 1271 1.332 1434 1448 1270 1331 1430

1008 !461 1478
1200· 1201 1241
1350 J.350· 1354 1351·
1578
158S 1552 1576 1621
1414· 1424 0908· 0939* 0940 0941 1205 1211 1226· 1227 1374· 1375 1412· 1413 1461 1478 1419·

0970· 0996* 0997 1008 1201· 1202 1239· 1241 1244 124~ 1252· 1253 1415· 1416 l~O· 1430· 14.31· 1~3·

TOTAL STATEMENTS FLAGGED JN THIS ASSEMBLY c

0

(

(
l' t

c
l.

403-2 18

DATE

16AUG74

EC NO. 824765

l5NOV74 824870

16.IUN75 825057

r........

PROG IO PACE

4G3-Z
18A

· · · · ·

· ·...'f· · · · · · · ·-· · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4032

3741 ATTACHMENT DATA TRANsFER TEST

PART NO. PAGE

5558781:
19 i '
I

ISM MAINTEt·ANCE OIAGNuST IC PROGRAM

4032

3741 ATTACH~ENT DATA TRANSFER TEST

PART NO· PAGE

5558781 l9A

OBJECT CARO LISTING

OBJECT CARO LISTING

THE CHARACTER INDICATES A BLANK CO~U~N ANO THE CHARACTEAS 0 E H INDICATE NUMERIC SHIFT·

j

CL

THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 Q.. 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96'

CL 1 THROUGH l6

.. .
3741 ATT OATA TR ANSFER TEST T+-Y !&CH & 8-7 ..0!!4A& 0 evG /OH T+-Z5A33-BU32/0i

z ao-DHML&AB-~·a GF ?&BOCAilRJA&U<

;

········

t

40.320000'

l

l

l

<i>YO PA·40320001!
l I
!

C Y N lt-14032000,2·
.

EE.JO PI~~~320003

·
T+-iJJ/1.JIJOH·NO-.
T+-=G ... ,. ·· v< 0 · 0 c

.
T+-_;' KG3.JM .->&->

....

t..<BGEZUSSO

M

0MH-;;6%8GEH?A£/K

.JOH·BE-* ".::-'-" /OH .p 4AE50 "SB
G SI L<BG /OH

EJKM 9YQ403ZCi004
.. O?H *· 40320005,

.. .
T+/ 8 .JA 2DGC2 NY

r·I
GE+V 7HU403ZC006

T+/A3°/.BCA:_~E~

.

!OH· GH3;403.2Q007

T+ /6> · ·" · · j .. ~ / lL

CL 17 THROUGH 32
@!C~AFU-lJJYO<MH
., <O~ J...CABC80( 4 ·
..
.JA70GP2 NG ,fOH
0 /1ERAAwo· 0 ·a-~H
.
OV-j /OHSLE3 /OH

CL 33 THROUGH 48
.
EMCEOF~Hl£~Z ~~H
. .
sc7x2 Lvi &;AC7"

.
OOH·BFXH*FOZ O·e

~

.

oc- vaC7E -c .J(

'L 4S THROUGH 64
.
@4..1 C>4.J <OHJ r.;CA
..
2 LG /OHOI IL·e
.
100...2 M8\ JA+DC.3
.
GE.ZuOFRlll I .. ,/ lL

CL 65 THROUGH 80

EC4iil( "+C432 KY

H

><

2 iU>3&0£0&1' ..Z<OM
- . ..
ov-G .... t)HS&EX l'OH

GEE3B JM3f B<P6C2

Cl.. 61 THROUGH 96
. .. ~< :W4032002l £i =Ziil40320022 RAK~ 53840320023
·- ~:ZM EY04032002A
&)04 .,.At-140320026
.
OOH· 00940320027 M PY&.40320028

·

·

. /CHCiOH>:<Si'XH/GS;'

.
MG2@<AJc 1 FRL /OH L&:BGEZUECf:.

@4.J <o<<FLACCAU Eovx~t4A+cev~>1·
/H..OVO. /0HS£.D..

0.J&C 50X~0320008

/OH 9-E;.40320010

\ (~-

CCH~· E9U40320011;

T+/(NE@vl:L<BGE: ·

&83V D+LB J.OG < RV < LSH4032C030

·

····flle··e··

N<c&'EEc~oFwH1&;z ~<~DEK<aGEJGOIC3 /1.-

.
HPC> FRM5/AZYi14

.
K0Hlli!..&<BG04L /1 (

.
i+-5·< CO( &6.iilC$·

.
2 N7 3.JFTJ.JF-C.1& 7
S&Ef /OHOC -+BiB

("l'?HAf'?(PQ?(OQTA
g
;<OH(83AOC;-{ &;
A I co1 t <D>CABCYll

.. @BGE+DNQ@SG SI
.
~CSH0{;.-67<0&{? 4
.
;CJ32 08( &7TC;G
c £:lcY12 KOJJ.JY

1"<0"4(/TABCQXO.! 6
2 OH( &7YC;~2 N3
" OjEH+A@SGC~. ;1E
OiJl,.J/i14.J/<DM+XLA

BFUM W--4032001~

-

!,·

I ,\< .

&C&O ;144032001~

i
{_-.H NH 40320014,

T+r&FF.8&0&/G \.e4<

( l'OH R/~40320015
RAK< 5lY40320016

T+/.JAOH~BHUA-OH·
. ..
T+/J./lER ~ss c

m 00 12840320017
.
illCD "'3&'140320018

ec.o M3&40320019

· ··n· · /OHE.JKDJ~4B
OCt.ONlA&S@-04<0<
·OH·BET&HE+L»-JL

o ..
;14A;L <CFRL /lL DYS. l'OHS&E· /!( ~+y ~V*6GDSX044+ PG>4 MQG4032003~

a:i& &1<040320037

.
··Y·H( -~:LzeE(3

.
M:ZMSOH·8HU ·OH$ NILS -·20 Y+ ~M

l OM !OilSG C /OH EO/H 53<40320038 BEXSG /·BDJ7C£F5 /1& 13040.320039
. . 4BAWMU·D
VFTS /0 f ·HB < AEKH aA 40320041

AH<BG /$ l'Of'<E0-0

·aBGE+ON-SBG SJ N* OT 4032002()

DATE

J 6AUG74

EC NO. 824765

15N0i174 824870

16JVN 75 825057

PROG JO PAGE

·Ui3-z 19

DA TE

l 6AU<; 74

EC NO. 824765

15NOV74 824870

16JUN75 825057

PROG JO PAGE

403-2 19A

'G l I ()
lo
I
I P1 v
! ""

IBM MAINTENANCE DIMiNQSTIC PADGM·

PART NOa PAGE

5558781 20

4032 3741 ATTACHMENT DATA TRANSFER TEST

OB.tECT CARO LISTING

CL l lHROUGH 16 T+IP;BT-AEPT2DE·

CL 17 THROUGH 32

.. .. .

>O~NN&
.

48AP
.

2,0.8 JN8aZAM+ D

CL 33 THROUGH 48
. .
N( HOCL&AE,Mil .to
N··H&eT-AEPX2DO·
=c- .N_107CODOC.tY

Ct. 49 'S-HROUGH 64
. ..
.... DNZTO:.,ES · -'O
2'0·8 .tN98ZAi)+H

CL 65 THROUGH 80
7& ON?TOAE·-e .tN
. N2< & + AOOES
· C 1106f ED <e

CL 81 THROUGH 96
+ AM 7.41Ja40320044 GE·8 5T 40320045

...

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558781
20A

3741 ATTACt'IMENT DATA TRANSFER TEST

OBJECT CARD LIST ING

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL Al THROUGH 96

T+/055)SS82XC&<i T+lw02)SN&(XEtax

05>PEo·I06NCOSM? seaPRB>IA8·LS&<.

.
05UCS:+.TllJ 6·P
Y~PL1fPG8a, o·s

s1;(.&+.TOJXTK51
.
US;( 6·PGZOGO&+I

ROIPSlSPR&(llS·P

NO==< JHM40320065 Sl<O Q£ 403200E6

58UCRl..,.l&>IE6'4C

sesxc&<.vaapoo;t A£+IRCitPS1XPR&lX El=H ;5840320067

.. .· ....., '~

T+,SHEx<!<<BGEu-

. . .... ( -Oy<HA 4 J E . . .. · .ta;c oN;& o-tt

. . ... EUK 0 C- OKJR

IC- OPIA...COODPJY
.EC 8-'Wl_Oc S--01_ 11LECWN)lN9ilYO

4COO .JA1i14032004i
I

- I Gi>-0 EY640320048j

·

I

5HT· 4R040320049j

I

DOH·. ·-0403200501

T+J'OPl OCCO If L&( S

HC. y. -SP0320051! ,.
I

. O>TT10A-1··1'·<·
E&<L.R2;PE6M7Tl;.

..
.iU t!)ST£XEO·L

N8lli:SEf.MCCZ<PC4U7

oo;&A&+IRO)PSlSP E6MA-1JSTODCB:DC

. R&<< aom40~200E9
-Rl·O R,840320070

RSU7Tl;eT&+.E6;P
ea_...(JS;.e&<l·B·I

. . .lOaM 0 X40320072
H~=H )#040320073

. ..
T+J'SS&&C3.I C3.I T+,T).6Tc.-Gsc&o A-.l-'v·a-eGav-.oc··
T+/Yl.--8; 2 ?HG<OO FLMOB&O FCYAC·S
...........
T+,XI

......
. . . CQHFT046A-
GEEO< /VSF H< Al

. . QC -ce- c DIVA-
?F · ,lMJ8COil<MO

a1A-HOH·BFSHMF:R
.
TFQL 'lVLC

··<SG.,DsEA>KOH·

..... . G 1.eEA>W&
a I·· &vca-o
&-...ORW£HHO·XIFRU
.
RtlK tcE4'GIFRU18Ae
.
TO<G1FRUDB C,aA·

- ..
HOH·O·&&RW£ ·ae
.
LBAell>.JWRE -1112....D
.
Aa.J·RO soo..ORW.JO
QA-< S-. AW y·

'OHEO'&...GOAZL <
HS <OCOVCOH·BG-0 E(CEBFVH1JAZS<MO
BG-DDAA>lOH·eG-o OOtl·BF&ttMF: re <8
..
. Ge+v <BG s1 <B
R·.JMHF<JUFRUOB C HD<GOFRUG8ACA8.JW
.. . .. . & 8 < A- G T

:,.

CFR& SL ll0.320053 ·- T+,4C&<PMDC01UC

.....

OAAX 20H40320054.

T+,4=0MCA1q,,,R1;.

-. (
E6f < 40*4032D0f5

I"

.

A034 K0040320056 \_ T+/641;( 2<GL86_

r.
RWAX RD&40320057 ~ T+,7?1aTTBUCNS>I

T6·GNSSSE6MA-US s&cxe1axseePRK=I

TQDCB:OCWE·XTUIC

E8:>c.eaPS84CFS_\I
. CO>IL&(SVllXF··s
E6)X~5=( O*·l4aX

e
O>LS:DC05DG01SR WKi>LEO·XE5<P,.S4C T:O?Tl;.1&<.AlOC
T2tSN£.( l Ui'ITT8U7
. .
7·IE 2U 5)ST&<.

G ,'Y IC0.0320058

t~" T+/8DK=.e6;P10aN

.
S5·SN8SN l(Xl9·P

R&<IHl·IKK8V~SUC

T6·Gh8XSE6MCL2)P

E&<fHl·IKKaP084C

,Q (:>
G I Y40320060 T+,:-o·I.2)PT11X
.

18.JU 2e<40320061
.

QA&- 08H40320062

Gz;.~11V ~TE0 8 l
................ ................

SQ<40320063
. ............··.....·.·····.····...··....................·....·............

T A·8&

..uo· 0.J440320074
oo;< =ov·o32001..-~~~~~~~~...,-~~~~-
.POlU -0040320076 . .R1;H =TH40320077
·au ·s11·032007e
.&"M =811140320080 C2<M 3.040320081
C2<~ SS 40320083 RQO a:-·o32ooe·
·Z 403ZOOE5 SKU40.3Z0086

DATE

16AUG74

EC NOe 824765

16.J"N75 825057

PROG 10
P4GE

403-2 20

DATE

16AUG74

EC NO. 624765

16~UN75
825057

PAOG ID PAGE

0

· ·

·

·

· · · · · · · · · · · · · · · ·

·

· ·

·

·

·

·

·

·

·

·

IBM MAINTENANCE OIAG~uSTIC PROGRAM

4032

3741 ATTACH~ENT DATA TRANSFER TEST

PART NO. PAGE

5558781' 21

OBJECT CARO LISTING

CL

THROUGH 16 CL l7 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96

I· · ·

·· ·

Cl

··

EBl'E·E7·=,oc·PHs =·1111&F

c

F¥

ASC

R A SO

Q

07090520750 6137571'lli40320087.

------------~~--~~--~~------------------- LAST PAGE --------~-~-----------------------------------

DA TE

l 61'.IJG74

EC NO. 624765

15NOV74 824870

l6.JUN75
825057

PROG IO PAi.;t:

403-2 2J

---------------------------------------------~~~
· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

· · · · · · · ., . · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO .. PAGE

5558776

IBM MAINTENANCE DIAGNDSTIC PROGRAM

1 i "'·~ ..

PART NOo PAGE

5558776
IA

4042 3741 DIAGNOSTIC FUNC;TtON TEST

4042 3741 DIAGNOSTIC FUNCTION TEST

ERA LOC OBJECT CODE
0000
OAOO
OAOO 4042
OA02 00 0A03 01 OA04 0000
OA06 OAOD OA08 FFFF OAOA 405000

ADOR STNT SOURCE STATEMENT

ERR LOC OBJECT CODE

OAOl 0A02
OA03
0A05 OA07 OA09
OAOC

2 ·

LAST CHG :oa Ol 7

3

DECK 4

4

SEQ 0

5 X404 START 0

6

TREP

7

ORG x·OA00 1

,.,.,,,,

8 ···································~·································· ,~,

9 ·

·

10 *

SECTION PREFACE

11 ·

12 ***********************************************************************

13

DC

XL2·4042 1

PROGRAM 10 ANO REVISION LEVEL

14

DC

XL l ·oo.

SECT ION FLAGS

15

DC

XL1001·

CURRENT ROUTINE NUMBER

16

DC

XL.2 1 0000 1

17

DC

AL2(RTN01)

18

DC

XL2·FFFFc

RESERVED ADDRESS OF FIRST ROUTINE ERROR RECORDING TABLE

19 UDTl DC

Xl..3 °405000 1

3741

I c

I

OAOD 01 OAOE 80
OAOF oc.-A
OA 11 31 41 1C76

I
le
I
I
(
I ;,_" . .,,.~·<
II c-
1 c
l1C
I
( ~·.": ~
' -
c

(;A15 3C 67 OCDO
OA19 3C FF lC50
OAlO 3C 00 lC5A OA21 CO 87 021A
OA25 42
OA26 27 OA27 1490
OA29 40F1
OAZS CO 87 021 A OA2F 02 OA30 27 0 A3l 15FC OA33 CO 87 021A
OA37 02 OA38 27 OA39 1490
OA3B CO 87 021A 0A3F 01 OA40 27 QA41 1317 0A43 CO 87 021A CA47 01
OA48 2.7 OA49 1.33E
0A4B CO 87 021A
OA4F 01
OASO 27 OA5l 1365 0A53 CO 97 CJ21A OAS? 01 OAS8 27 OA59 138C OA5B CO 87 02!A OASF 01 0A6C 27 OA61 1383 OA63 CO 87 OZlA OA67 12 0A68 CO EH 021 A
OA6C 01
0A6D 27 OA6E 1490 OA70 CO 87 021A OA74 02
OA75 27
OA76 1490

ADDR STMT SOURCE STATEMENT

OAOD OAOE 0A10
OA25 0A26 OA28 OA2A
-lA2F OA30 OA32
0A37 OA38 OA3.A
0A3F OA40 OA42
OA47 OA46 OA4A
OA4F
OA50 OA52
OAS? OA58 OA5A
OA5F OA60
OA62
OA67
OA6C OA60
OA6F
OA74 OA75 OA77

21 ················

* 22

ROUTINE 1 ·

*

23 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

* 24 ·
25
26 *

THIS ROUTINE WRITES A PAlrERN FOR SEVERAL RECOAOS1

· *

IT THEN READS THEM BACK ANO COMPARES FDA PROPER OATAe

·

27 ·

IT ASSUMES THAT 4011 402· AND 403 RAN WITHOUT ERROR·

·

28 ·

·

29 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

30

31 RTNOl DC

32

DC

)(L.1980·

33

DC

AL2(RTN02)

* 34

35

INSTRUCT C.E. TO SET UP 37410

36

37

38

LIO FuNBITeLFuNC

39

39

39·

39

40

MVI

JAw+l eX 1 87 1

41

MVI

EXPFLGeX ·FF"

42

MVI INTFLG1x·oo·

43 BEG

B

PRINT

44

DC

lCL.1942·

45

DC

AL1CASTRK1-ASTRKSI

46

DC

AL.2( ASTRK 11

47

oc

XL.2·40FI ·

48

B

PRINT

49

DC

XLl·02 1

50

DC

AL.lUtDl-HDIB)

51

O':

AL2(HOU

52

B

PRINT

53

DC

xa..1·02·

54

DC

.'\L..1 ( ASTRK 1-ASTRKS t

55

DC

AL2tASTRK1)

56

B

PRINT

57

DC

XL1·01·

58

DC

ALIUHlB-INIAI

59

DC

AL2(1N18)

60

e

PRINT

61

DC

a1·01·

62

DC

ALU INIC-INIB>

63

DC

AL.2C INlC)

64

B

PRINT

65

DC

XL1·01·

66

DC

ALl(INID-INlC)

67

DC

/L.2fl INIO)

68

B

PRINT

69

DC

XL.1·019

70

DC

ALU INlE-INIC)

71

DC

Al-2( IN! El

72

8

PRINT

73

DC

XLl·o1e

?4

DC

AL1 ( INl-INIElll

75

DC

AL2( lNl)

76

B

PRINT

77

DC

XL.le 12·

78

B

PRINT

79

DC

XL1·01·

80

DC

AL l (A STRK 1-ASTRKSI

81

DC

> Al..2(ASTRK1

82

B

PAINT

83

DC

XL.I ·02·

84

DC

llLICASTRK\-ASTAKSt

BS

DC

"L2CASTRK1 i

ROUTINE I MANUAL INTERVENTION REQUIAEO ~XT ROUTINE
SET UP FOR PGM TO SPECIFY READ OR WAT EXPECT AN JNTERR'4PT CLEAR INTERRUPT FLAG

DATE

OlAUG74

EC NO. 824765

15NOV74 824870

16.IUN75 825057

PROG ID PAGE

404-2
1

p
"·oATE
EC NO·
(J

· ·

01AUG74 824765

15NOV74
824870

16JUN75 825057

PROG 10 PAGE
....:

! ·

·

------------------------------------~~~ ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

OA78 CO 87 021A OA7C 01 OA70 27
OA7E 1401 OA80 CO 87 021A OA84 01 OA85 27
OA86 1428 CA88 CO 87 021A
OA8C 01 OA80 27
OA8E 144F OA90 CO 87 021A
OA94 02 OA95 27 CA96 1476 OA98 CO 87 02111 OA9C 01 OA90 27
OA9E 1490 OAAO CO 87 021A QAA4 01 OAA5 27 OAA6 1490 OAA8 CO 87 021A
OAAC 02 OAAO 2.7 OAAE 1490 OABO CO 87 02.lA OAB4 12. OABS CO 87 021A OABO 02 OABA 27
OABB 1490 OASO CO 87 021A
OACl 01 OAC2 27 OAC3 1539 OACS CO 87 021A
0AC9 02
OACA 27 OACB 1560 OACD CO 87 021A OADl 01 OAD2 27 OA03 15AE OAOS CO 87 021A
OA09 06 OADA 27 OAOB 1505 OADO CO 87 0222 OAEl 40F1

86

B

PRINT

OA7C 87 OA70 88 OA7F 89
90

DC

XLPOl·

DC

AL.l(IN2B-IN2At

DC

Al.2( I N26)

B

PRINT

OA84 91 OA85 92

DC

><Ll901"

DC

ALl{lN2C-IN2Bt

OA87 93 94

DC

AL2C IN2C)

B

PRINT

o.-~c

95

OA80 96

DC

Xt.1·01·

DC

AL1(1N2D-IN2C)

OA8F 97 98

DC

AL2UN2DI

8

PRINT

OA94 99 OA95 100 0A97 101

DC

Xl-1 1 021

DC

AL 1( IN2- 1N20J

DC

AL2UN2)

102

B

PRINT

OA9C 103 OA90 104

OC

XL1 1 0l'

DC

ALllASTRKl-ASTRKS)

0A9F 105 106

DC

AL2l A STRK U

B

PRINT

0AA4 OAA5 OAA7

107 106 109 110

DC

XLl' 019

DC

ALl(ASTRKl-ASTRKS)

DC

AL2CASTRK1)

B

PRINT

OAAC OAAO OAAF
OA.84

111
112
113 114 115 116

DC

XLi. ·02·

DC

ALl(ASTRKl-ASTRKSt

oC

AL2(ASTRK1)

B

PRINT

oc

>U..1912·

8

PRINT

OA89 OABA
OABC

117 118
119
120

OC

XLl ·02'

DC

AL1(ASTRKl-ASTRKS)

DC

M..2CASTAKl a

B

PRINT

OACl U!l OAC2 122.

DC

XLI 1 01 8

DC

AL.1CIN3B-IN2XC»

0AC4 123

DC

AL.2( I N3B I

124

8

PRINT

OAC9 OACA
OACC

125 126 127

DC

XL1 1 02 1

DC

AL1(1N3-1N3B)

OC

M..2( 1N3)

128

8

PRINT

OADl 129 OA02 130
0AD4 131 132.

DC

a1·01·

DC

AL1(1N4A-1N4B)

DC

AL2CIN4A~

6

PRINT

OA09 133 OADA 134

DC

XL1 9 06·

DC

AL1(1N4-IN4A)

OAOC 135

DC

AL2UN4)

136

B

HALT

OAE2. 137 HTFl OC

>IL2 9 40F1·

138

OAE3 31 45 1C4C 0AE7 30 43 lCTC OAES 00 01 lCTC 1C4E

139 140 141

LIO SNS CLC

ZERO.LOTA
~~S3oSL1NES SNS3(2)~XF900

OAFl F2 01 11 QAF4 CO 87 021A
OAFS 16 CAF9 CO 87 021A
OAFO 02 OAFE 4F OAFF lACE 0801 CO 87 OA21

OAFS
OAFD OAFE 0800
0805

142

JNE

143

B

144

DC

145

B

146

DC

147

oc

148

DC

1·9

e

150 ~POFF EQU

151

lllRPOFF
PRINT XLl · 161 PRINT XL.1 1 02·
ALL (MSG22-MSG22B)
AL201SG22)
BEG
"'

152 · 153 ·

SET UP FOR r.tRI TE !..OOP

DATE

01AUG74

EC NCo 824765

l5NOY74 824870

16.IUN75 825057

PART NOo PAGE

\
2, 5558776[
I
I

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART ND· PAGE

55581'76 2A

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

154 ·

OBOS 3C 55 1C57 OB09 3<.: 34 1c5e 0800 3C 42 0016
0611 OC 00 1275 1C57 0617 OC 7E 12.74 12.75 0810 OC 02 1C6B 1Cb8 0623 OC 02 11FB iCoB

155 ·
156 157
158
159 160
161 162 163 164

MVI
MVI
MVI
MVC
MVC
MVC MVC

CHAReX 1 55 1 RECCTReNUMREC
DOStO+l eSlllRITE

START WITH 55 FIELD NUMBER OF RECORDS TO WAITE
PAl~ARE TO WRITE

BUFF2+l27(1)oCHAR

PROPOGATE ·CHAR" THROUGK B\.FFEA

BUFF2+126(127)eBUFF2+127

SEQ(3).NUMuNE

INITIALIZE COUNTER CFOFOFlt

BUFF2+5( 3) ·SEQ

PUT COU"'T INTO BUFFER

164

(

0829 OC 7F llFS 1275 0 B2F CO 67 OCA3 0833 OF 00 1C56 1C48 0839 F2 81 OC OB3C CO 87 OEB2
0840 co 87 0829
0644 co 87 0848
0848 CO 87 OF8C OB4C F3 43 SO 0B4F F3 40 04
0652 co 87 0856

0929 0848

165 ·

lllRITE LOOP

166 167 ·LOOP 168 169 170
171 172 173 174
175 ENDlll 176 177
178 179

EQU MVC
e
SLC
.JZ
B
B
B
EQU
e
SID SID
e

·.euFF1+127(128)e8UFF2+127 MOVE PATTERN BUFFER TO I'° BtJ!tF

R·RECCTR( 1) eONE
ENOW CHGBUF WLOOP

DECREMENT RECORD COUNTER EXIT LOOP WHEN ALL RECORDS ·AITTEN CHANGE PATT~RN IN BUFFER
BRANCH BACK FOR NEXT ·RITE

·+4

FILLER

·
GET INT REDJ+RSR .scTLl

WAIT FOR INTERRUPT (READ MODE) RESPOND EuJ AND SENSE REsPONSE

SDlsAe. SCNTRL.

DISABLE INTEARuPTS

·+·

~.
'-""'

llllAIT FOR CE TO PREPARE 3741

O·

LOAD DATA TRANSFER REG ~!TH 0000 SNS IO TRANSFER LINES

G

IF F900e wRAP CONNECTOR STILL ONo

C I~FKWERA6P CONN IS OFFe JUMP (CONTINUE)

TELL HIM lllRAP IS STILL ATTACHED~

PROG ID PAGE

r,
~
1~
I
('
DATE EC NO· I..I..:\r

OlAUG74 824765

l5NOV74 824870

16JUN75 825057

PROG ID PAGE

················ ················

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DlAGNaSTIC PROGRAM

PART NO. PAGE

5558776
3\

IBM MAINTENANCE DIAGNuSTIC PROGRAM

PART fllDe PAGE

85$8776 3A

4042 3741 DIAGNOSTIC FUNCTION TEST

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT cooe
065& 3C FF 1C50 085A CO 87 021A
085E 42
OBSF 27
0860 1490 0862 40F2
0864 co 67 0211.
0868 02 0869 28
086A 1624 086C CO 87 021A
0870 02 0871 21 0872 l.30A OE74 CO 87 0214 0878 01 0879 27 OB7A 1490 OB7C CO 87 021A 0880 12 0881 co 87 021A 0885 01 0886 27
0887 14C4
0689 co 87 021.t. 0880 01 088E 27
058F 14EB
0891 CO 87 021A 0895 C2 0896 27
0897 151.2. 0899 C\J 87 021A 0890 01 OB9E 27 089F 149D OBAl CO 87 021A OBAS 12 08A6 CO 87 021A OBAA :>2 OBAS 27 ORAC 1490 OBAE CO 87 021A 0862 01 0883 27 0884 1539 0866 CO 87 021A OBBA 02
oeea 27
oeac 1587 OBBE CO 87 021A OBC2 01 OBC3 27 oec4 15AE OBC6 CO 87 021 A oec·A 06 oece 2.7 OBCC 1505
OF.ICE CO 87 0222
0802 40F2
0804 3C 34 lC5B

AODR STMT SOURCE STATEMENT

181 · RE~O 52 RECORDS AND COMPARE VALUES AS WRITTEN

182 · 183

MVI EXPFLG.X"FF·

EXPECT AND INT

184 OBSE 185

B

PRINT

DC

XL! "42 8

085F 186 0861 187

DC

A!...1(ASTRK1-ASTRKSJ

DC

AL2CASTRK1)

0663 188

DC

XL2·40F2'

189

El

PRINT

0868 190

DC

XL! 9 02 9

0869 191

DC

AL101D2-HD2B)

OB68 192

DC

AL2CHD2)

193

B

PRINT

0870 194

OC

XLl mo2·

007.0 195 0673 196

DC

AL1(IN1X-iN1X5)

DC

AL.2HN!XI

197 0878 198

B

PRINT

DC

XL1 1 0l 8

0679 i99

DC

AL1(ASTRK!-A5TRKS)

OB76 200

DC

A!...2( ASTRK 1 )

201 oeeo 202

B

PRINT

DC

XLl ~ 12c

0885 0086

203 204 205

B

PRINT

oc

xt.1·01·

DC

Ai..1(!N2XA-IN2X8)

0888 206

OC

AL2UN:2XAJ

207
oeso zoa

B

PRINT

DC

XL1·01·

OB8E 0890

209 210 211

DC

ALl(!N2X-lN2XA)

DC

~L2( 1N2X)

8

PRINT

0895 212 0896 213

DC

Xl.1802 8

OC

Al...l(IN2XC-IN2X)

0898
0890 OB9E

214 215 216 217

DC

Al...2UN2XC)

B

PRINT

DC

XLl! ·o 1"

DC

llL1ASTRK1-ASTRKSI

OBAO
OBAS
OBAA OBAB OBAO
0882
OBB3 0885

216 219 220 221
222
.223 224 225 226 2.27 228

DC

AL2ASTRK1l

B

PRINT

DC

XL1· 12w

e

PRINT

DC

XLl co2·

DC

Al..lCASTRKl-ASTRKS)

DC

AL.2CASTRK1)

B

PRINT

DC

XLl·Ol"

DC

ALl(IN3~-IN2XCI

DC

AL.2<IN3B)

229 OBBA 2.30 OBBB 231

B

PRINT

DC

XLl902·

OC

AL1l1N.3X-IN3)

08BD
OBC2 OBC3 08C5

2.32 233 234
235 236

DC

M..2( IN3X)

B

PRINT

DC

XL1 1 01·

OC

ALl(IN4A-IN4B)

DC

AL.2UN4A)

237 OSCA 238
oece 239 oaco 240

B

FRINT

DC

XL.1 5 06·

DC

AL..l(IN4-!N4A)

DC

"1.2( I N4)

241

B

0803 242 HTF2 DC

HA.LT JC1..2··0F2·

243

244 · 245 · 246 ·

SET UP FOR READ LOOP

247 ·

246

MVI RECCTReNUMREC

NUMBER OF RECORDS TO BE READ

DATE

OlAUG74

EC NO.. 824765

15NOV74 824870

16.IUN75
825057

PROG ID PAGE

ERR LOC 06JECT CODE

ADDR STNT SOURCE STATEMENT

OBD8 3C 41 0016

249

MVI OCISID+l·SREAD

READ

OBDC 3C 55 1C57

250

MY! CHARtX·ss·

START EXPECTING 85·5

oseo oc oo 1275 1cs7

251

MVC SUFF2+127Cl).CHAR

06E6 OC 7E 1274 1275

252

MVC euFF2+126(127).eUFF2+127 PROPAGATE CHAR

OBEC OC 02 1C6B 1Co6

253

NVC SEQ(3JeNUMONE

INITIALIZE COUNTER CFOFOFll

CBF2 OC 02 llFB lCoB

254

MVC 8UFF2+5C31.SEQ

PUT COUNTER INTO BUFFER

255

256 ·

READ LOOP

OBF8 CO 87 0CA3

257

258 RI.COP e

RW

READ RECORD

OBFC OD 7F 11F5 i275

259

CLC SUFFl+l27(12B)eBUFF2+127 COMPARE REAO AND EXPECTED DATA

OC02 CO tH OF01

260

BNE CMPEA

OC06 OF 00 1C5B lC48 OCOC CO 81 OC1C oc10 co 87 OEBZ

261 262 263

SLC
BZ
e

RECCTR.O~E
ENDR CHGBUF

QUIT WHEN RECORDS READ CHANGE PATTERN IN BUFFER

OC14 CO 87 OBF8
oc1e co e7 oc1c
0 ClC CO 87 OF8C

OC1C

264 265 266 ENOR 267

B B EQU B

RLOOP
··+4
GETiNT

WAIT FOR INTERRUPT (READ MOOE)

OC20 30 43 lC7C
OC24 38 08 1C7C 0<:28 F2 10 10 GIC2B CO 87 021A

268 C:69 270 271

SNS TBN JT
a

SNS3eSLINES SNS31EO.J EO.JJSU PRINT

SNS 1~0 TRANSFER LINES FOR E0.1
IS ENO OF .JOB LINE UP.
EOJ NOT UP AFTER ALL READ SAC~

OC2F C6 OC30 4F

OC.2F 2.72 OC30 273

DC

XLI ·C6·

DC

Al.l(MSG12-MSGl2B)

OC31 19BA

vC.3.2 274

DC

AL.2CMSG12)

c

OC33 408A

OC34 275 276

DC

XL2 1 40SA·

OC35 CO 67 0222

2.77

8

HALT

OC39 408A (,_
CC3S F3 40 04 OC3E F3 43 08
OC41 CO 87 OC45

278 HTSA DC

2.79 EOJISU EQU

280

SI 0

281

SIO

282

B

Xl..2"408A·
·
....SOISA81SCNTRL
RE1 SCTLl

CISABl..E INTERRUPTS RESPOND TO EO.J

OC45 CO 87 022A

e-·

OC4-9 00

283 284

6

LOAD

:::'C

XLl ~oo·

TERMINATE NORMAL

""'"'

w A
I
'0
Iie
I
10
Iie

i1 f '
404-2 .. DATE

3

EC NOo

G

01AUG74 824765

15NOY74 824870

16.JUN75 825057

PAOG ID PAGE

IBM MAINTENANCE DIAGNQSTJC PROGRAM

PART NO .. PAGE

5558776 4

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

·· 5558776

4042 3741 DIAGNaSTIC FUNCTION TEST

4011-2 3741 DIAGNOSTIC FUNCTION TEST

ERR LDC OBJECT caoE

ADOR STMT SOURCE STATEMENT

ERR LOC OBJECT CODE

286 ·············

* 287 ATN 02

*

~ee ·····********************************~*

OC4A 02
OCl~B 80
OC4C FFFF

289 OC4A 290 RTN02 DC

OC4B 291

DC

OC4D 292

DC

Xl.1·02° XL1 5 80 8 XL.2 9 FFFF·

ROUTINE NOo ~ANUAL INTERVcNTlON
THlS IS LAST

OC4E 3C 07 OCOO 0 C52 CO 8 7 021 A

293 294
295

MVI B

.JRW+l oX· 07·
PRINT

SET UP SO PROGRAM SELECTS ~EAO OR WRT ROUTINE 2 HEADING

OC56 46 0 C57 77

OC56 29t} OC57 297

DC

)l.Ll · 46·

DC

ALl (H03-H03£U

OC5B 1696 0C5A 40F6 OCSC 38 04 020A OC60 F2 10 06 OC63 CO 87 0222

OC59 OC5B

298 299 300 LOOP2 30l 302

DC
oc
TBN
JT
a

AL24H03J
XL2 8 40F6° SBYTE2oSSW15
O<.EEPON
t<iALT

IF SSW 15 IS ON~ DON·T HALT~ HALT BEFORE EXECUTION OF R!N

OC67 4-0F6

OC68 303 HTF6 DC

xt..2·40F6 8

OC69 3C FF 1C50 0 C60 CO 87 OCA3 OC71 F3 40 04 OC74 30 41 0016
OC78 CO 81 OC88 OC7C CO 87 021A
oc8o 06 OC81 ~F OC82 1761 OC84 CO 87 OCSC

ocao oce1
OC83

304

305 KEEPON NVI

306
307

6
SIO

308

CLl

309

BE

.>10

B

311

DC

312

DC

313

DC

314

e

EXPFLG1tX ·FF·
Rill
SDISABeSCNTRL OOSlO+lwSREAO ROOONE PRINT KL1 1 06° A!....1 ( HOS-t105B» AL2(H05)
LC.OP2

EXPECT INTERRUPT
DO READ OR WRITE DISABLE INTERRUPTS !F WE READ~ PRINT R:SULTS
1.1RITE llfAS DONE<>

315

315

OCB8 CO 67 021A o..:ec 02
OC8D 77 OCBE 1712

ocec
OC80 OC8F

316 ADOONE B

317

oc

JUI

DC

319

DC

PRINT XLl · 028 ALU HO.r+-H04B)
AL.2(H04)

OC90 OC 7F 08FF 11F5 OC96 CO 87 021.t. OC9A 22 OC9B CO 87 lODF OC9F CC. 87 OCSC

0C9A

320 321 322
323 .324 325
326 *
* 327
328 ·

MVC

xeeFF'(128)~BUFFl+l27

PUT S~~F IN DCP PRINT BUFFER

B

PRINT

DC

XL l · 22e

B

DUMPl

PRINT BlFFER IN HEX

8

LOOP2

GO BACK

l .. OPEN/CLOSE DISK 2· FoSoLOWER CHAR ADV 3. 43---128

4. FeSeLOWER X So TYPE MESSAGE

6· FoS·LOllER

8· FIELD COR

~~>

II ..., 1 I

329 · 330 · J., FoSoLOWER

FIELD COR <---

331 ·

332 ·

OCA3 34 oa OOFC
OCA7 CO 87 OFSC OCAB 30 43 1C7C OCAF 39 FC 1C7C
C CB3 CO 90 OOFD
CCB? 3a 04 1.C?B
0 CBB CO 90 10C7
OCBF 38 03 1C78 CCC3 CO 10 1059 OCC7 39 03 1C70 OCCB CO 10 1059
OCCF F2 00 12
OCD2 3C 42 0016
OCD6 3e 01 1C76
OCOA F2 10 29 OCOD 3C 4 1 OD 16 OCEl F2 87 22
OCE4 30 41 0016 0CE8 F2 81 OF OCEB 38 01 1C7B 0 CEF 39 02 1C7B OCF3 CO 90 OF43 OCF7 F2 87 OC

ADDR ST~T SOURCE STATEMENT

334 ··············

* 335

RW

·

············································e·····*· 336 ····················································

* :l37 *

REAO M WRITE ROUTINE.

* * 338

READS OR WRITES DUE TO PRE~ lCUS SET UP OR

* * 339

AS ScT UP AT 3741 (SEE JRW JUNPt

340

341 342 RW
343

ST

RWR+3.ARR

B

GETlNT

SET UP RETURN WAIT FOR INTERRUPT

344 345
346 347

SNS
TBF BF

SNS3o SL INES

SNS 10 TRANSFER LINES

SNS3ox·eo·+EOS+BIPE+EOR+EoJ+AT 1NVAL10 REASON FOR 1NTR ?

STATER

lF NOT OFF. GO PRINT STATUS ERROR

348 349 350

TBN .SNS3-1.x·o4·

BF

OFFLN

IS THIS THING ON-LINE

351
352 *
353 354 355 356

MAKE SURE ONE ANO ONLY ONE MOOE IS ONa

TBN SNS3-1.x·o3·

SEE IF BOTH READ ANO WRITE MOOE ON

BT

BAOMOO

STATUS ERROR IF BOTH ON

TBF
BT

SNS3-leX·')3"
BADMOO

SEE IF BOTH READ ANO WRITE MOOE OFF STATUS ERROR IF BOTH OFF

357

357

* 357

358

S~LECT SET uP AS PER ~ROGRAN OR AS PER 3741· JUMP IS ALTEREDa

359 JRW

.JC

EXT··-·

360

360

* 360

361

SET UP READ OR ·RITE ACCORDING TO 3741 (READ OR WRITE IS ON)

362 363 .364

MV I T6"1 .JT

DOS 10+1 e S\llR I TE SNS3-\ .x·o1 · MOOE OK

365
366 367

MVI DOSIO+l1SREAD

j

MODE OK

THEN CONTINUE READ

368

368

* 368

369

SET uP READ OR WRITE ACCORDING TQ PROGRAN

370 EXT

CLI oos10+1.sREAD

IS THIS · READ SIO

OCEB

371

.JE

372 IS~RIT EQU

373

<fBN

I SREAO
*
SNS3-1.x·o1 ·

MAKE SURE READ MOOE ON

374

TBF SNS3-1.x·o2·

AND WRITE NODE DFF

375

BF

SETER

376

J

MODEOK

IF OK· GO ON

OCFA 38 02 lC7B OCFE 39 01 1C7B 0002 CO 90 OF43

OCFA

377

378 ISREAD EQU

379

TBN

380

TBF

381

BF

·
SNS3-1ex·o2e
SNS3- i · X 1 0 1 °
S E T ER

~AKE SURE 3741 ·RITE MODE ON ANO R~AD MODE OFF

382

0006 F3 43 08 0009 31 42 1C72 OOOD 31 44 1276 ODll 3C FF 1C50

0006

382

382

383 OlliODEOK EQU

384

SID

385

LIO

386

LIO

387

NVI

388

·
REeSCTLl LENGT..,1LLCR BUFF18tLCAR EXPFLG,x·FF·

RESPOND TO WRITE/READ MODE LOAD LENGTH COUNT REGISTER (7F) LOAD DATA ADDRESS REGISTER
EXPECT AN INTERRUPT

0015 F3 00 00
0018 3C 02 0EA9 001C Cl 42 Ci>23

389 " 390 DOSIO SIO

391 ·

392 BLP

MYI

.393 WAITBY TIO

!MSECe2 1S9SYeTBSY

510 TO READ OR WRITE
·AlT 2 SEC FOR NOT SUSY Cl RECORDt BRANCH IF BUSY

DA TE

O 1 Al.JG74

EC NO o 824765

15NOV74
824870

16JUN75 825057

PROG ID
PAGE

404-2 4

(J
DATE EC NOo
~

01AUG74 824765

15NOV74 824870

16JUN75
825057

PROG ID PAGE

· · · · ·· · · · · · · · · · · · · · · · · · · · · · · · · · · ·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

18111 /14AlNTENANCE DIAGNOSTIC PROGR.\M

PART NOe PA(j;E

5558776
s

3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

AOOR STMT SOURCE STAT~MENT

0020 F2 67 OC 0023 CO 87 CESA 0027 CO 87 OEED
ooze co 87 co1c
002F Cl 42 002F 003.3 Cu 87 OF8C

0037 30 4.3 1C7C 0036 OC 01 1C7A JC~2
0041 JC FF 1C50

0045 .38 04 1C79 0 049 co 90 0060

C040 0050 0054 0055 0056
OD5S

F3 n
CO 87
C6
28
189A 4082

50 021A

CDSA CO 8'7 0222 COSE 4082

0060 38 08 1C79
C064 F2 90 31 C067 F3 43 90 C 06A CO 87 021 A 006E Cl

OD6F
CD70
0072 0074

27
18Cl 4081
30 42

0016

0078 F2 81 OF

C07B CO 87 021A 007F Bl 0080 27
coa1 1e1c
0083 CO 87 OFZ3 0087 F2 87 08 008A CO 87 021A
C08E 86
OD8F 27 0090 1843

OC92 CO 87 0222 0096 4081

0098 39 EC 1C7C 009C CO 90 OOFD
OOAO 3D FF 1C7A ODA4 F2 81 .38
ODA7 3C 01 OEA9

394

.J

SNOT BY

395 ISBSY B

WAIT

·;AIT

OOZF

396

8

397

B

.398 SNOTBY EQU

399

TIO

TO OB SY
WAIT BY
·
·,TBSY

'WAIT· COMES HERE IF TIMEOUT "WAIT" COMES HERE NORMALLY

400
401

B

GE TINT

WAIT FOR INTERRUPT

402

403 404
405

SNS MVC

SNS3,SLI~ES SNS2(2J,SNS21

SNS 1/0 TRANSFER LINES MOVE IN SNS AS PICKED UP IN INT RTN.

* 406
407

MVI EXPFLGeX"FF· CHECK FOR NO-OP

EXPECT NEXT INT

408

409 410

TBN BF

SNS2-1.x·c4· NOOPOK

CUIT IF NO-OP BIT ONe

411

0054 0055 0057 0059

412 413 414 415 416 417 418

SIC
B
DC DC DC
oc

F<SIH-REO..I oSCTLl
PRINT XL1°C6 1 ALl ( MSG6-MSG68J Al.2(MSG6 J

SENSE RESPONSE/EOJ NO-OP· 0 SIO

419

8

ODSF 420 HT82 DC

421

t-tALT XL2'4082'

422 · CHECK FOR DATA TRANSFER PARITY ERROR

OD6E 006F 0071 0073
0078
007F 0080 0082

42:5 424 NOOPOK TBN

425

..IF

426

SJ'

427

B

428

DC

429

oc

430

DC

4.31

DC

432

CLJ

4.33

JE

434 PEREAO EQU

435

B

436

DC

437

DC

438

DC

SNS2-1.x·08 1 NODTPE RSIHBOPE .SCTLl PRINT XLl'Cl" ALl ( MSG7-MSG78) AL2( MSG7)
XL2"4081·
DOSIO+loSWRJTE
P...E WRIT
PRINT
XL! 0 81·
AL.1(MS~24-MSG24B)
AL2CMSG24J

DATA xFER PARITY ERROR ? SENSE RESPONSE / Bus OUT PARITY ERR DATA TRANSFER REG. PARITY ERROR
~A~ T~IS I WRITE (TO 3741) PARITY ERROR WAS ON READ 0 wHILE READING FROM 3741"

439
440

B

EX PF NO

J

PEH\L T

SO TELL HIM EXPECTED AND FOUND

OOSE
008F 0091

441 PEWIHT B

442

oc

443

DC

444

DC

PRINT XLl 1 86· ALl(MSG25-MSG25B>
AL2CMSG25J

'WHILE ~RlTJNG TO .3741·

445

446 PE HALT S 0097 447 HT81 DC
448

HALT XL2 8 408l'

* 449 · CHECK J/O TRANSFER LINES
0098 450 NOOTPE EOU

451

452

TBF SNS.3.x·ao·+EOS+BIPE+EOJ+AT CHECK FOR STATUS ERRORS

453

BF

STATER

IF NOT OFFe PRINT STATUS ERROR

454

I ;

455 · CHECK FOR LCR ERROR

' ....

456

457

CLI

SNS2e X1 FF·

LCR = FF '1

(

458

JE

CKE OR

GO CHECK THAT EOR IS UP.

459

459

460

MVI WSECel

3741 OIAGNDSTJC FUNCTION TEST

ERR LOC OB~ECT CODE
CDAB CO 87 OESA COAF CO 87 0087 ODB3 CO 87 OOAB

CDB7 F3 43 10

ODBA COSE OOBF
.:JOCl

CC 87 01 1C7A l91C

C21E

ODC3 CO 37 021A ODC7 Cl
coca 33
ODC9 191C
OOCB 40 ea
COCO CO 87 021 A ODOl 86 0002 77
0003 1C09
0005 co 87 0222
0009 4088
0008 CC 87 ODDS

ODOF 38 10 1C7C OOE.3 F2 10 10
OOE6 CO 87 021A ODEA C6 CDEB 4F OOEC 1892 ODEE 40eF ODFO CO 87 0222 ODF4 408F

COF6 F3 43 08 ODF9 CO 87 0000

ADDR STNT SOUQCE STATEMENT

ODBE
Q!)CO ODC2
~DC7
oocs
OCCA
oocc
0001 0002 OD04 ODOA
OOOF
ODEA ODEB ODED OOEF ODF5

461 111

a

lllAlT

462

9

·+B

463

8

Wl

464

...65

510 RSR.SCTLl

466

A67 468 469

8

UNF 'l(K

DC.

xi...1·1·

DC

~-"2< SNS2)

470 471

DC

AL2!MSG9)

472 473
474

B

:,R INT

DC

XL l "C 1"

DC

ALHMSG9-MSG9B)

475 476 477
478 479

DC

AL2( "4SG9 t

DC

XL2' 4 088 ·

8

PRINT

DC

XLl 0 86'

DC

ALl(MSG27-MSG270)

480

DC

481 LCRHi..T B

482 HTE!8 DC

483

B

484

AL2(MSG27) tiALT
Xi..2"4088'
LCRHLT

484
484 485 CKEOR 486
487

EOU TBN
.JT

.
SNS3,EOR AOK

488

489

B

PRINT

490 491
492

DC

XL 1 'C6·

DC

ALl(MSG26-MSG268)

DC

AL2(NSG2t:)

493
494
495 HTSF 496
497 **·
498 ···
499 ....

DC

XL2'408F 1

B

HALT

DC

XL2 '408F ·

RESPONC TO SUCCESSFUL SIO

500

50 l AOK 502 RwR

SIO
B

REeSCTLl
·-·

PART NOe PAGE

5558776
SA

WAIT 1 SEC
RESPONSE TO LC~ ERROR SET UP FOUND LCR llA·.11f'

"NOTE- LENGTH MUST BE 128 ···' L..CR ERROR
MAKE EOR IS UP (CAUSING BUSY TO DROP) IF SOe GO ISSUE RESPONSE ·EOR NOT UP AFTER RECORD PROCESSED·
ENO OF RECORD (EOR) NOT UP AFTER RECORD H~S BEE~ PROCESSED
RESPONsE (SlO SUCCESSFUL) RETURN TO C"LLER

DATE

01AUCi74

EC NO. 824765

15NOV74
824870

16.. UN75 825057

PROG ID PAGE

·0·-2 5

DATE

01AUG74

EC NO. 824765

15NOV74 824870

16JUN75 825057

PROG ID PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NOe PAGE

5558776 6

IBN MAINTENANCE DIAGNOSTIC PROGRAM

Pl.RT NO· PAGE

5558776
6A

'4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE
OOFO 34 0 e OE59
OEOl F2 87 OB
OE04 38 oe 1C?C
OE08 39 F7 1C7C OEOC F2 10 47
CEOF FJ 43 08 OE12 CO 87 0El6 OE16 CO 87 021E OElA 02 OEHi 1C7C CE10 1140 OE I F C 0 8 7 021 A CE23 C2 OE24 4F OE25 1175 OE27 4083
OE29 CZ 01 128C OE20 CC 01 1C6E 1C7C OE33 OE 00 1C6E lCoE OE39 CO AO OE44 OE30 02 01 14 OE40 CO 87 OE33
OE48 CO 87 021 A OE4C 86
OE4D 14
OE4E 0000 OE50 CO 87 0222 OE54 4083 OE56 CO 87 0000

ADDR STMT SOURCE STATEMENT

OOFD
OEOF
OElA OE1C vE1E OE23 OE24 OE26 OE28
OE44
OE4C OE40 OE4F OE55

504 ·················································

505 *

SUBROUTINES

*

506 ·

·

507 ·················································

508 508 509 ···········
* 510 STATER
511 ··························

512 STATER EQU

513

ST

S14 EO.;FLG JC

515

TSN

· STATRR+3oARR
STAT 1 o X· 87 · SNS3.EOJ

SET UP RETURN CAN BE ALTERED TC IGNORE EC.I ERROR IF ITS EOJ ONLYo IGNORE

516

TBF SNS3 · X1 FF 1 -EC.I

517

JT

STATRR

!:>18

519 STATl EQU

!:>20

SIO

·
RE· scn.1

RESPOND

521

B

·+4

522

B

UNPACK

523 5.24

DC

IL 1 1 2'

oc

AL2(SNS3J

525

DC

AL2( STATXX)

526

B

PRINT

5.27

DC

XL1'C2°

528 529
530

DC

Al..1(STATMG-STATBJ

DC

AL2(STATMGJ

DC

XL2°4083 1

STATUS ERROR

531

* 53.2 ·
533 SHIFT OFF BITS ANO PUT IN MESSAGE DESCRIBING THAT BIT ANO PRINT

534 ·

535 ·

536

LA

537

NVC

538 SPLOOP ALC

539

BOL

540

LA

541

B

542 SE TPT EQU

s54··3

ST

545

B

STABo XR1 WORK( 2) 0 SNS3 WORK(l)oWDRK SETPT St..EN( oXR1 JeXRl SPLOOP
·
PiloXRl
PRINT

PUT SNS3 INTO WORK AREA IF T~AT 8JT ·S C~o GO PRINT CONTINUE UNTIL BIT FOUND POINT TO LINE WHICH OESCRJBES BIT

546

DC

547

DC

548 PiD

DC

549

550

B

551 HT83 DC

552

553 STATRR B

554

XLl '86'
·-·> ALl<SLENJ
AL.2(
HALT XL2°4083 1

ERROR DURING WAIT FOR R/W MOOE

554

554

554

555 ···········

* 556 WAIT

·

557 ··········································

* 558

SUBROUTINE WAITS 1 MILLI SEC PER CALL·

* 559 *
560

DECREMENTS SECOND COUNTe SAMPLE LINKA~E ~

AFTER EACH SEC IT

561 · 562 · 563 · 564 · 565 ·

LOOP

MVI WSECo5

B

WAIT

e

TIMOUT

8

LOOP

BEFORE LOOPo SET UP · OF SECONDS
<--- LINKAGE TO TIMEOUT ROUTINE
<--- <--- WAIT RETURNS HERE FOR TIMOUT WAIT RETURNS HERE NOMALLY

566 ·

567 ··········································

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

ADDA STMT SOURCE STATEMENT

OESA 34 OS OEA5 OE5E 30 00 OEA9 OE62 F2 81 12 OE65 OC 01 OEAB OEA9 CE6B OF Cl OEA9 OEA9 0E71 OC 01 0EA7 OEAD OE77 OD FF OF.77 oE77 OE7D OD 38 OE70 OE70 OE83 OF 01 OEA7 OEAF OE89 F2 01 10 OE8C OC 01 OEA7 OEAO OE92 OF Cl OEAB OEAF JE98 CO 81 OEA2 OE9C OE 01 OEA5 OESl OEA2 CO 87 0000
CEA6 0000 OEA8 0000 OEAA 0000 OEAC 03E8 OEAE 0001
oeao 0004

OESA
OEA7 OEA9 OEAB OEAD OEAF OEBl

568

569 WAIT EQU

570

ST

571

CLI

572

.JE

573

MVC

574

SLC

575

MVC

576 OLD!>EC CLC

577

CLC

578

s1..c

579

.JNZ

580

MllC

581

SLC

582

BZ

583 WA ITRN ALC

564 WAITR B

585

586 WCNT DC

587 wsEC DC

588 tlSECA DC

!:>89 WlOOO DC

590 WOOOl DC

591 W0004 DC

592

592

592

·
WAJ TR+::S o llRR WSECo 0 OLDSEC WSECAC2>.wsEC
WSEC(2)oWSEC
WCNT(2)oWl000 *C256Jo* ·( 60) ·· WCNT( 2) o 1110001 WAITRN WCNT(2) 0 WlOCO
WSECA(2) .wooo1
11AlTR
·-·WAITR+3( 2) oW0004
XL2"0000 · XL.2° 0000" XL2·0000 · lL2°1000' IL2' 1 1 IL2"4 ·

SET uP RETURN ~EW COUNT VALUE 7
PUT NEW SEC COUNT INTO WORK ZERO TnE MAIN SEC ~OUNTe SET uP TO CO 1000 TIMES lllAIT l MJLLI
CO 1000 TIMES THROUGH LOOP
SET l.P TO 00 ANOTHER 1000 MILLI SEC CECREMENT NUMBER OF SEC TO WAIT IF IT TIMED OUTo RETURN DIRECTLY RETURN TO CALLER +4

{
OEB2 34 0 e CEEC
OEB6 30 01 1C57 OESA F2 0 l 07 OEBD 3C 00 1C57 OECl F2 87 OD

OEC4

592 593

·······*···

594 595
559967 598

···**··C·H·CG·H·B·AU·NfP·'GA·ET··T···EB·RU·NF·F·E-*R*5F5*ORA*A*WFR*FIT*E0*1 O*R00*R*ESAS*D·A· A··F··F··0·1···0·0··················**·

599 ........... ~···*************************************···········
600

6C1 CHGBUF ST

602

CLI

CHGSUR+~oARR
CHARoX' 01 1

FOR RETURN IF CHAR IS Olo FORCE TO 00

603

JNE CHG1

604

MVI CHAR.x·oo·

605 oC6 CHGl

.. EQU

NO RAP
·

OON·T DD ALC

OEC4 OE 00 1C57 1C4F OECA F2 20 O· CECO 3C 01 1CS7
OEDl OC 00 1275 1C57 OE07 OC 7E 1274 1275 OEOO 06 02 IC6B 1Cb8 OEE3 OC 02 1 lFB 1c6B

OEDl

607 608 609 610 611 NOR4P 612
613 614
615

ALC JNOL MVI EOU MVC MVC AZ
MVC

CHAR( 1) o lNCVAL

NOR AP CHARoX 1 01·
·
8UFF2+!27(l)oCHAR

AFTER FF FORCE TO 01 FOR P BIT OFF

BuFF2+126(127) 0 BUFF2+127 PRDPOGATE

SEQ(3)oNUMONE

INCREMENT EBCDIC RECORD COUNTER

BuFF2+5(3a.sEo

ANO PUT IT INTO BUFFER

OEE9 CO 87 0000

616 617 CHGSUA B 618

RETURN TO CALLER

618

618

618

619 ............
* * 6.20 TOOB SY
662212 ·*···B·U·SY···TC·W···L·O·N·G··(·T·IM··E·O·U*T)·······

623 ·

·

624 ·······························

(
OEEO CO 87 0.21A CEFl C6 OEF2 27

OEED
OEF1 OEF2

6.25 626 TOOBSY EOU

627

B

6.28

DC

629

DC

·
PRINT XL.1 ·c6· ALlCMSGlS-MSGlSB)

BUSY TOO LON6

DATE

01AUG74

EC ...a. 824765

1SNOV74 82tt870

16.JUN75 825057

PRDG 10 PAGE

(

40·-2 6

DATE EC N!Je

(

01AUG74 824765

15NOV74 824870

16.IUN75 825057

PROG IO PAGE

404-2
6A

· · · · · · · · · · · · · · · · ·.~. · · · · · · · · · · · · · ·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

1B~ MAINTENANCE DIAGNOSTIC PROGRAM 4042 3741 DIAGNOSTIC FUNCTION TEST

PART NO. PAGE

5558776 7

ERR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

OEF3
OEF5 OEF7 OEFB CEFO

1A2F
408E CO 87 40BE CO 87

0222 0018

OEF4 630

DC

0EF6 631

DC

632

B

OEFC 633 HTSE DC

63·

B

635

635

635

635

AL2(MSG15) XL2 1 408E 1 HALT
XL2 1 408E· BLP

GO BACK THROUGH BUSY LOOP AGAIN

CFOl 34 08 0F22
CF 05 0 C 0 2 1 94.3 1 COB OFOB CO 87 J21A
OFOF C2
OF 10 27 CFll 1943 CF13 4089
OF15 CO 87 OF23 0Fl9 CO 87 0222 CFlO 4089 CFlF CO 87 0000

OFOF OFlO QF12 0Fl4
OFlE

63c ···········

637 638

*···C··M··P·E·R··*···············*****

639 * COMPARE ERRO"

·

MO*

*

641 ·······························

642

643 CMPER ST

CMPERR+3eARR

644 645

MVC B

MSG10(3) ·SEQ PRINT

646

DC

XL l "C 2 1

647

DC

ALi(MSGJO-MSGlOB)

648 649 650

DC

AL2(MSG1 0)

oc

XL2·4089·

e

EX PF NO

651

B

652 HTB9 OC

65.3 CMPERR B

654

·-HA.LT
XL2° 4099·
...

FOR RETURN PUT IN RECORD NUMSEJ< COMPARE ERROR ON RECORD XXX
PR!Nl EXPECTED ANO FOUND DATA COMPARE ERROR RETURN

654

654

654

655 656

*"'**EX**PF*N$D*****

OF.23 34 ce CF42
OF27 CO 87 021A OF28 Bl OF2C 28
OF20 1A57
CF2F CO 87 1103 OF 33 CO 87 C21A OF37 81 OF38 28 CF39 1A7F
OF38 CO 87 lODF
OF3F CO 87 0000

OF2B
OF2C
OF2E
OF37 OF38
OF3A

665587 659

*·*···P·R·IN·T·S···E·X·PE·C·T·E·D···(·~R·I=T·T·E·N~···D·A·T·A··*A·N*D···F·O·U·N·D····(R·E·A·D··) ··~D·A·TA···~·

666610 ·····································~~-·4····~~······ ..$·······

662 EXPFNC ST

663

B

b64

DC

EXPFNR+.3 ·ARR
PRJ NT XLl·Sl·

FOR RETURN DATA WRITTEN

665

DC

ALl{MSG20-MSG20B)

666

DC

AL2( MSG20)

667 668 669

B

DUMP2

8

PRINT

DC

XL1'81'

DUMP EXPECTED BUFFER CATA READ

670

DC

ALl(MSG2l-MSG2:6)

671

DC

AL2t MSG21 ~

672

B

673 EXPFNR B

674

,D.._U,.M. Pl

DUMP DATA READ ~UFFER
r<ETURN

674

674

674 675

. . . . . *........ .

676 111 SETER

·

* 677 ············**************~****

678

SET UP ERROR ROUTINE

·

679 ·

·

680 *****************************¥*

681

OF 43 34 0 e CF 86

682 SETER ST

SETERR+.3oll.RR

FOR RETURN

(.

663

OF47 OC 04 17FA 1C3S. CF4D 30 42 0016 OF51 F2 81 06

684
685 686

MVC
CLJ JE

"4SG.3A(5JoCREAO OOS.IO+.l. · SWR IT.E PRO

ASSUME READ (S/3 WRITESJ WHERE WE IN A ~RITE

687

OF54 CC 04 17FA 1C40

688

MVC MSG3A(5) oClllRlTE

ASSUME READ cs~~ WRITES)

16M MAINTENANCE DIAGNOSTIC PROGRAM 4042 3741 DIAGNOSTIC FUNCTION TEST

PART NOo PAGE

5558776 7A

ERR LOC OBJECT CODE
OF5A CO 87 021A OFSE C2 OFSF 4A OF60 1822 OF62 4085

OF64 OF68 OF68 OF6F
OF70 OF71

38 01 F2 90 CO 87 86
28
184A

1C7B OB 021A

OF73 38 02 1C7B OF77 F2 90 08 OF7A CO 87 021A OF7E 86 OF7F 28 OF8C 1872
OF82 CO 87 02i22 OF66 4085 OF88 CO 87 0000

OFSC 34 08 1013 OF 90 3C 07 OEA9 OF94 30 C 5 0200 0 F98 F2 81 23
CF9B 30 42 1C7A OF9F OC 01 1C82 1C7A OFA5 38 '20 1C79 OFA9 F2 lO OC .iFAC CO 87 OE5A 0 "BC CO 87 OFEO OFS4 CO 87 OF98 OFB8 F3 40 Ol CF8S F2 87 lA
OFBE 35 84 lC59 CFC2 F3 40 02
OFCS 30 FF lCSA OFC9 F2 8! OC CF CC CO 87 OE54 OFOO CO 87 OFEO CFD4 CO 87 OFC5
OFD8 3C 00 !CSA OFOC CO 87 J.O lO
OFEC 30 43 .i.C7C

AODR STMT SOURCE STATEMENT

OFSE
OF5F
OF61 -OF63
OF6F
OF70
OF7.2 OF73
OF7E OF7F or-e1

689 PRO 690
691 69.2 693 694 695 696 697
698 699 700 70 l 702 ROOFF 703 704 705 706
707
706 709

a
DC DC
oc
DC
TBN JF 6 DC DC DC
EQU TBN JF B DC DC
oc

PRINT XLl'C2· JliLl (MSG3-MSG36) AL 2( NSG3) XL2 1 4085 1

1 SET UP ERROR. XXXXX MODE EXPECTED.·

SNS3-1.x·o1· ROOFF

"EAO ~OOE ON ?

PRINT XL 1 1 86 1

PRINT REAC MODE FOUND ON

ALl ( MSG4-MSG4S)

AL2(MSG4)

·
SNS3-1,x·o2· WT OFF

PRINT

PRINT

XLl I 86·

AL H MSG5-MSG58)

AL2(MSG5)

WRITE MODE ON ? WRITE MOOE FOur·I) ON

OF87

710 riTOFF B 711 HTes DC 712 SE TERR B 713

-·HALT
XL2'4085 1

SET UP ERROR RETURN

TO CALLER

713 713

713

714 7l5

***G*E"T*iN*T····*·

* 716 ~·····~~···········************
717 * WAIT FOR AN INTERRUPT

$. 718 *

·

719 ······ ~ ······················

7.20 721 722 723 724
725
726 727

GETINT ST MV I CL! j£
* WAIT FOR
HNGPNO SNS

GE: TR+.3 oARR WWSEC.7 CPUeC·E· 11NG1NT
INTERRUPT PENDING SNS2.SSTAT

FOR RETURN wAIT 7 SEC FOR INTERRUPT IF THIS IS ~ODEL ·E· (15) ENABLE INT

728 729 7 30

MVC
TBN JT

SNS21(2)·SNS2
~NS2-1.x·2c·
INTOC

SIMULATE SNSING !N INTERRUPT ROUTINE IS INTERRUPT PENCING SIT ON ?

731 732 733 73<1
735 7..36

INTOC

8 8 B SIO
J

11A!T NO I ERR t-NGPNO S>'<ESET · SCNl RL PEND

WAIT UNTIL IT OOES RE:S~T IT WHEN IT COMES

OFBE 737 HNGINT EQU

738 739 740

L SID

lNT5@ 0 lAR5 SENASoSCNTl'L

LDAO INTERUPT 5 IARa ENABLE INTERRUPTS

74 l 742 743 744
745 746

hNGJ T

CL I .JE 6 0
fl

lNTFLGeX·FF·
PEND llAJT
NO I ERR HNGlT

lNTERHUPT RECEIEVED YET ?
IWA!T T JL IT DOES Tl ME O~JT LOOP BACK

746 7ti 7
748 749

PEl'!oD

NVI 6

INiFLG.x·oo·
GE.TR

CLEAR I NT FLAG GO RETURN TO CALLER

749

750 · FIRST SEE IF ON LJNEo 751 NOIERR SNS SNS3, Sl.J NES

SNS l 1'0 TRANSFER LINES

DATE

01AUG74

EC NO. 824765

15NOV74 824870

16.JUN7S
8.25057

PROG 10 PAGE

404-2 7

(
DATE
EC NO.
f.'
\.

01.AUG74 824765

l 5NOV74 824870

16.JUN75 825057

PRQG ID PAGE

404-2 7A

IBM MAINTENANCE OIAGNUSTIC PAQGAAN

PART NO·
PAGE '

5558776
e

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558776 SA

4042 3741 DIAGNOSTIC FUNCTION TEST

ER~ LOC OBJECT CODE
OFE4 38 04 1C7S OFE8 CO 90 10C7
OFEC 30 CS 0200
OFFO F2 81 OD
OFF3 CO 87 02.lA OFF7 C6 OFF6 28 OFF9 1789 OFFS 4084 OFFO F2 87 OA
1000 CO 87 02.lA 1004 C6 1005 4F 1006 1708 1008 4084
lOOA CO 87 022.2
lOOE 4084
1010 co 87 0000

1014 34 04 1C52
1018 30 42 1C82 1 OlC 30 FF lCSO 1020 3C CO 1C50 1024 F2 81 OF

co 1027

87 1028

1028 34 20 1C54 102F 35 20 1C56 1033 F3 40 05

1036 103A
l03E
1041

3A FF
35 04
F3 40
co 87

1C5A 1CS2 01 1014

1045 CO 87 1049 C6 104A 28 1048 1968
1040 4087

021A

104F CO 87 0222 1053 4087 1055 CO 87 104F

ADDR STMT SOURCE STATEMENT

OFF7 OFFS OFFA OFFC
1004 1005 1007 1009
lOOF

752

TBN

753

BF

754 755

CLI

756

JE

757

758

B

759

oc

760

DC

761

DC

762

DC

763

J

764

765 NOIE B

766

DC

767

DC

768

DC

769

DC

770 771 NOlHT 8

772 HT84 DC

773 GETR B

774
775 ···········

SNS3-1.x·o4·
CFFLN
CPU1C 1 E' NOIE
PRINT x~1 ·c6· AL 1( MSG 1-MSGl BJ
AL2( NSGl)
XL2' 4084 · NO I HT
PRINT XLl ·C6 1
ALl ( MSG2-MSG2B)
AL.2( MSG2> XL2·4084"
HALT
·-·XL2 1 4084 1

ON-LINE ? _IF NOT· GO H-AL T lF MODEL l~· GIVE EXPECTED REAL lNTS INT PENO BIT NOT ON
EXPECTED INTERRUPT OID NOT OCCUR
INTERRUPT DID NOT occu~ RETURN TO CALLER

1014
1036

776 iii< JNT5

·

777787 ····-IN~T~E·R·R·U··PT·········*

779 ·

P.OUTINE

*

780 ····················

781 INT5 EQU *

782

ST

PSRSA~.PSR

783

SNS SNS2l.SSTAT

784

CLI EXPFLGoX·FF·

785

MVI EXPFLG.x·oo·

SAVE PSR SNS STATUS (DO BEFORE S!O TO RESETt INTERRUPT EXPECTED i NOT AGAIN

786

.IE

WASEXP

787 * lNT RECEIVEC NOT EXPECTED FORCE A HAL~-

788
789
790 791

6 ST
l..
SIO

·+4

PlARSVoPIAR

SAVE

PROG LEVEL

UNEiihPJAFi

PREPARE PROG LEVEL

SRESET+SOlSAB,SCNTRL KILL lNTERRUPT

792

793 WASEXP EQU

794

SBN

795

L

796

SID

*ZNTFLGtX·FF 1
PSRSAV.PSR SRE SET, SC,..TRL.

SHOW INTERRUPT OCCURRED
f':ESTORE PSR "ESET INTERRUPT

797

8

INTS

798

1045
1049
104A
104C 104E
1054

798 799 UNE
800
801 802 803 804 805 806 HNI eo7 HTB7
808
809

EQU
8
DC
oc
DC
oc
6 DC B

$
PR INT XLl °C6'
ALHMSGl l-MSG118)
AL2(MSGl 1) Xl.2 1 4087'
HALT Xl...2 1 4087 6 t'N I

UNEXP INTERRUPT. UNEXPECTED INTERRUPT

809

&09

809

809

810
811

*****8A*C*»*6*0*0*****

812 *

*

813 814

****RE*A*D**M**O*D*E**/ **W*R*I*TE**M**O*D*E********************

DAIE

OlAUG74

<::C NO. 824765

15NOV74 824870

16.IUN75
825057

PROG 10 PAGE

404-2 8

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT COOE

1059 34 08 10C6
105D 38 03 1C7B
1061 F2 90 00
1064 CO 87 021A 1068 C2 1069 28
l06A 18E9
106C 4086 106E: F2 87 OA
1071 CO 87 021A 1075 CZ 1076 27 1077 19El 1079 408C

1078 30 87 ocoo
107F F2 81 OB
~CB2 CO 87 021A
1086 86
1C87 27 1088 1AC8 l08A F2 67 18

1C8D OC 04 !COE 1C3B 1093 30 42 0016
1097 F2 81 06

109A
lOAO l OA4
10A5
10A6

OC 04 CO E:l7 86 2D
1C36

lCOE 021A

1C40

10A8 38 03 1C76 lOAC F2 10 OA !OAF CO 87 0222 1063 408C 1 0 85 CO 8 7 10 AF 1 Od9 CO 87 0222 lOBD 4086
1 OBF re 87 1089
10C3 CO 87 0000

f
10C7 34 08 lODE lOCB CO 87 021A l OCF C6 1000 27

AOOR STMT SO~CE STATEMENT

* 815

B~TH ON OR BOTH OFFo

*

816 ······***************************...........

* 817 BAOMOO ST

BAOMOR+3.ARR

FOR RETURN

818 PRINT BOTH FCUND ON OR BOTH FOUNC OFF.

819

TBN SNS3-1 1 X 1 03'

SEE IF READ ANO WRITE ON AT SAME TIME

820 821

.IF

NOT2

B

PR I NT

13QTH MODES ON

1068 d22

DC

1069 823

C'C

1063 824

DC

106D 825

DC

8.26

.J

827

828 NOT2 B

1075 829

DC

1076 830

oc

1078 831

DC

107A 832

DC

XL1°C2 1
ALl (MSG8-MSG8B)
AL2(MSG8)
XL2'4086' MDEXP
PRINT XLl 1 C2 1
AL lCMSG l 3-MSG138) AL2(MSG13J XL2 1 408C 1

GO TELL HIM WHICH EXPECTED BOTH MOOES OFF

833

R33

834 MOEXP CLI

835

JE

.IRW+ 1 ·X' 87'
WHICH

IF 871 NAME MOOE EXPECTED

1086
1087 1089

836
837 836
839
840
841

B

PRINT

PRINT ·EITHER MODE EXPECTED·

DC:

XLl 0 86'

DC

AL1(MSG14-MSG14B)

oc

AL2(MSG14)

...

BADHL T

GO PRINT WHICH FOUND

1080

842 843 844
845
846

WHICH

EQU MVC
CLl JE

*MSG40A(S).CREAD
DOSJO+l ·SiltRlTE PMD

ASSUME READ (S/3 WRITES} WHERE WE IN A WRITE ?

10A4 10A5
JOA7

847 848 849 PMD 650
851
852

MVC
B
DC DC DC

MSG401.(5) .cwRITE PRINT
XLl t 86· AL1(MSG40-~SG40B) Al..2.(MSG4~)

ASSUME READ (S/3 WRITES) PRINT MODE EXPECTED ON

853

!OAS
1084
lOBE

853

854 BACHL.T EQU

855

TBN

856

JT

857 OFFHLT B

858 HT8C DC

659

B

860 CNHLT B

861 HT86 t>C

862

B

·
SNS.3-l·X'03 1
ONHLT HALT
x1..2·11-oec·
OFFHL. T HALT XL.2'4066"
ONHLT

CEClDE FOR BOTH ON OR BOTH OFF HALT READ/WRITE MOOE BOTH OFF
READ/WRITE MOOE BOTH ON

863
864 BADMOR B

f<ETUflN

865

865

865

865

865

866 ·············

* 867

OFFLN

*

868 ·

*

* 886790

·

·

·~·7·41·

·

·IS·

·

·O·F

·F

·L· ·I N·E·

· ·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·· -.;i

871 ·

·

672 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

873 OFFLN ST

OFFLNR+31ARR

FOR RETURN

lOCF 1000

874 875 876

B

PR INT

OFF LINE

oc

XL.1 ·Co'

DC

AL1(MSG23-MSG238)

DATE

C1AUG74

EC NO. 824765

15NOV74
824870

16JUN75 82.5057

PROG ID PAGE

404-2 SA

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

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

l8M MAINTENANCE OIAGNOSTlC PROGRAM

PART NO. PMiE

IBM MA.INTENANCE OlllGHOSTIC PR06AAN

PART NO. PAGE

3741 DIAGNOSTIC FUNCTION TEST

404.2 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE
1001 1AF5 1003 4080
1005 co 87 0222
1009 4080
1008 co 87 0000
IODF 34 08 l1 C2 10E3 Co 87 021E 10E7 40
10~8 1185
10EA 08FF !OEC CO 87 02JA 10FO A! !OF! CO 87 021E 10F5 40 10F6 l lFS l OF8 08FF lOFA CO 87 021A lOFE A6 1 OFF CO 87 0000
1103 3· oa 1126
1107 CO 87 021E
11 oe 40 llOC 1235
11 OE 08FF 1 1 10 C0 8 7 021 A 1114 Al 1115 CO 87 021E 1119 40 11 lA 1275 lllC C8FF 111£ CO 67 021A 1122 A2
1123 co 87 0000

ADOR STMT SOURCE STATEMENT

1002 1004
lOOA
10E7 lOE9 lOEB lOFO lOF5 .iOF7 10F9 10FE

8l7

oc

AL2(MSG23t

878

oc

XL.2 8 4080·

879

880

6

HALT

881 HTSO OC

NOT ON-LJ:HE

882 OFFLNR B

~TURN

883

883

883

. . ·· 883
883
8845 ·**·D·U·M·P~l· ·

886 ·

·

887 ...........................................

aaa · CUMPS CONTENTS OF euFF&A 1

·

889 *

·

889910 ·O~·M·P·l···S·T······O·U·M·P~1·R·+·3··A·R·R··--·······FO·R··R·E·T·U·R·N

892
e93 694

S

UNPACK

oc

IL1·0··

DC

A~(BUFFl+63)

UNPACK FIRST HAL.F OF 128 eYTE REC

895

DC

X!...2·8FF·

DCP BUFFER

896
esn

S

PRINT

DC

Xt..1 · A2.

FRO~ OWN SUFFER

698

899 900 901

8

UNPACK

oc

IL.1·64·

DC

At.2C aUFF 1+127>.

UNPAC~ SECOND HAL.F Or l28 BYTE REC

902

DC

903

e

904

oc

905 DUlllPlR 8

906
906

XL2·8FF·
PRINT
·-·XLt·A6·

DCP BUFFER
FROM OWN BUFFER RETURN TO CALLER

'il06

906

906

9G7 ······~······

909 ·

*

991110 ····D·U~M·P·S·C·O··N·T·E·N·T¥S··O·F··B·U·F·F·ER···2 ················

912 ·

·

uoe
1100 llOF
1114
1119 1118 1110
1122

991134 O· ·U·M·P·2· · ·$T· · · · · ·D·O·M·P·2·R·+·3·.A·A·A- · · · · · · · · ·F·O·R· ·R·E·T·U·R·N

915

a

UNPACK

UNPACK FI~ST HALF OF 128 BYTE REC

916

DC

IL1·64·

917

DC

AL2C8UFF2+63J

91B

DC

XLz·eFF·

DCP SUFFER

919

B

PRINT

920

DC

XLJ·At·

FROM Oli:N BUFFER

921

922 923

B

UNPACK

oc

ILJ·64·

U~PACK SECOND HALF OF 128 BYTE REC

924

DC

M...2(SUFF2+127)

925

DC

XL2'8FF·

CCP SUFFER

926

B

92.7

DC

926 OUMP.2A 8

PRINT
·-·XL.ls 421

FRON OWN BUFFER RETURN TO CALLER

ERR LOC OBJECT COOE

(;
i
I
l ! !
l
I !
ll "
I
ll e,
!

1126 1127 C9600640E309ClOS 1140 llZF E2C6C5094~:1CgDS 1137 '5E2404040404V·O 113F 60e2CSD5E2C54WF3 1147 604040E7E7E1E7 ! l 4E 404 04 040404040C I 11 75
1156 C3E3C9ESCS40D.3C9 115E ~5CS40C9E24005Cl
1166 04C5C440C2CSOS06 116E E640404040404ll40

1176
11F6 1276 40
1277 1176

1176 llFS
11~6
1275 1276
1278

1279 1281 128? 1280 1295 129C 12Al 12A9 J 261 1285 l2BO ! 2C5 12C9 1201 1209 !200 12E5 12EO

C1E3E~C1C3CBD4C5
05E34009EZE34040 4040·040
C5D5C44CD6C64~C4 ClE3Cl40E2C5!;~40
40404040 F3F7F4F140C2E4E2
40C905400709E~E8
40C50909 CSOSC44006C64009
C5C30609C4404~40
40404040 C505C440D6C64001
06C240404~404040
40404040 F3F7F4F140C1E.3£3
C505E.3C9D6DS4~09
C5DBC440

128C 12AO 1264 12C8 12oc 12FO

12FO 12Fl D9C50.D6E5C540E6 1317 12F9 09Cl0740C3D6D505 1301 C5C3E3C6C940C105
1309 C440C30605C5C5C3
1311 E340F3F7F4F140 1318 C3C1C203CSE24d40 133E 1320 40C9D5E2C509E340 13~8 C140E2CJD9ClE3C3 1330 C840C4C9E202C5E3 1338 E3C54040404040 13JF D60940E3C8C54~C9 1365 1347 610640ClC4C107E3
l34F C5094CE60~C.~740 1357 C4C9C1C7D506E2E3 135F C9C3404040404.)
1366 C4C9E202C5E3~C5 138C 136E 6B4007610540F2F4
1376 F6F9F4F6F04B4~40

993310 ·· ····~··**·*··***····~············--··············

932 ·

~SSSAGES

*

~3·

&

934 ·

·

~5·

·

936 ...................................................

937 STATS EQU ,.._l 938 STATXX DC CL39·1-0 TRANSFER LINES

-SENSE 3- xxxx·

936

9.38

938 938

939 STATMG OC

ACTIVE LINE IS HAMED 6£LCW

939

939

9~9

939

940

940 ~! BUFF! 942 943 BUFF2 944 945

EQU OS
EQ\I
OS oc

·
ci..1ze
·
CLl28
a..1· ·

READ 6UffER

946

947 BUFFll!a OC

AL2(6UFF1)

LEFT ENO OF READ Fla.O

948

948

948

949 STAB OC

Ct...20·ATTACHMENT R~T

949

949

950

oc

CL20·ENO OF OATA SET

o

950

950

951

DC

951

951

952

DC

CL20 ·ENO OP RECORO

·

952

952

953

DC

9-.3

w53 954

oc

Cl..20·3741 ATTENTION REOO ·

954

954

955

956 tNlA 957 lNlB

EQU DC

*-1 Q...::v .. REMOVE WRAP (;·~:<V'lfEcTOA ANO CONNECT 3741 ·

957

957

957

957 956 INlC DC

0..39·C~W ;:a., INSERT A SCRATCH .DISKETTE

958

958

958

958

959 JNJD DC

CL39·~ THE l/O ADAPTER WRAP DIAGNOSTIC

959

959

~:59

959

960 INIE OC

CL39·DISKETTEe P/N 2469460.

960

960

5£i.S8776 9A

OATE

CU AUG74

e;c NO.. 824765

1SNOV74 824870

l6JUN75 825057

PROG ID PAGE

DATE

01.-uG74

EC NO. 824765

15NDV74 824870

16.JUN75 825057

PROG ID PAGE

c

'f·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART ND· PAGE

5558776 10

ISM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558776 JOA

4042 3741 DIAGNOSTIC FUNCTION TEST

4042 3741 OIAGNOSTI<; FUN<;TION l'EST

ERR LOC OB.JECT CODE

ADOR STMT SOURCE STATEMENT

ERR LDC OSjECT CODE

AOO~ STMT SOURCE STATEMENT

137E 40404C404040~40

960

1386 4040404040404(;

960

1380 E3C8C540F3F7F4Fl 1383 961 IHI

DC

1395 40E2CBD6e:4D~440 1390 C4C9E2D703CIE840

961 961

13A5 C8C409Fl40C4C9£2

961

1.lAD D703CIE849404Q

961

1383 962 IM 1X8 £QU . - 1

1384 F3f'?'F4F140E2CB06 130A 963 INlX DC

Q.39·3741 StCDuLD OISP&,.AY MORI OJSPLAY

·

13SC E403C-.OC4C9E207 13C4 03c1E840C8C40itFi

963 963

1571 60404060D6£4E3D7 1579 E4E3604040404.)40
1581 40404040404040 1587
1568 E6C8C50540E2C5~ 15AE 1590 40E40740C9E~~C3 1598 06040703CSE3C568 15AO 404040404040~~~ 1548 40404040404040 15AF 09C5E2CSE340E.?£8 1bDE 1587 E2E3C50461F340C8

977 977 977 978 IN48 979 IN4A
979 979 979 979 980 IN4
980

EQU
oc
DC

-1 CL.39·WHEN SET uP ·1s COMPLETE·

l3CC 40C4C9E207D3CIE8

963

1304 404C4040444-G~

963

130A 964 1N2A EQU

1308 C9C640CJ40£2C.3D9 14Dl 965 lt42S DC

13E3 C1E3c.JC840C4C9E2

965

13EB D2C5E3£3C54QegE2

965

l3F3 40E4E2CSC4684'1C1

96$

13F8 4DC4CIE3Cl404.I

96$

1402 E2C5E340£6C9E3C8 1426 966 INBC OC

l 40A 40F1 F2F640C2£8E3

966

l·H2 C54009CSC306Dlile-t

966

141A £240CIDSC440E.3E6

966

1422 06400609404040

966

1429 0406DSC540CIE5Cl 144F 967 INZO DC

1431 C9C3ClC203C5.-..E3

967

1439 09ClC3CZE2400.E4

967

1441 E2E340C2C540C6D6

967

1449 E4D5C. .OC2E840

967

1450 C.CSD7D9C5E.2EaC9 1·76 968 IH2

OC

1·58 D5C74060D9C5C440

968

1460 CIC4£56048404040

968

1468 4040404040404040

968

1470 404040.040404~

968

1476 969 A STRKS EOU 1477 5CSCSC5C5C5C5CSC 1490 970 ASTAKI DC

14~ SC5CS-:SC5C5C&c;5C
1487 sciscscscscscscsc
148F 5C5CSC5CSC5c:5C5C

970 970 . 970··

1497 5CSC5CSCSC5Cl5C ·

970

1·90 971 ttene £ou

1·9E C9C6·oc1·0~ l<te· 97.2 J..aXA OC

14A6 CIE3C3CB·Oc..GlE2

972

l·AE 02C5E3£3C5"0~1

972

14-86 E.24GE4E.2CSC4'6840

97&

I ·SE C4C5Dl'D9C522E2

972

14C5 60D9CSC~OCIC.E5 14EB 973 fflaX. DC

....
0-39· IF ,. S<;RATC.tt OJUETTE IS useo. A OATA ·
CL39·MORE AVAU.ABI.£ TRACKS MUST E FOUlllP t5Y ·
·
..t CL.39..............................~. . . . . . . ..
....
Q.3.~ JF -. s.caMCtc OJStC£TT£ WAS USEO· DEPRESS·

15SF C103E34B40404040 1sc7 4040404040404t)·O

980
980

15CF 40404040404040

ISDS

1506 FSF24009CSC306D9 1SFC

lSOE C4E240E6C9030.l40

980
"°' 981 HOIS
998822

15£6 C2C540£609C9E.3E3

982

15EE C50540£.JD6·0F;JF7

982

l5F6 F4W1404040404'l

982

15FC 983 HDZB

15FO FSF24009C5C3060it 1624 984 HD2

J60S C4E240E6C0030.5·0

984

1600 C2C54009CSCIC.40 1615 C1DSC440C~D7

984 984

1610 ClD9CSC440404'>40

984

162· 985 MD3B

US25 £2CSE340E40740F3 H"8 'lil86

1620 F7F4Fl40E3064009

986

1635 C5C1C440D6094.)E6

986

1630 09C9E3CS·B404.)£6

986_

1645 C8CSD540C6F640

986

I.

164C C8ClD3~3·0C:9E240 l6?3 981'

1654 D9CSE2CSE~E2

98?

I

165C £8E2£3C50440F.J4-0 1664 E6C<i;03034009C5Cl

987 98?

I

l66C C44C06094040.-040

98?

I

1674 £6D9C9E3C540D6DS 1608 . 988 t-403

167C C540D9Cf.C30609C4

988

1684 4840444040.044)40 169C 4040404040404040
169· 40ll0..04040·04040 l69B
L ' 169C OeD5C540.0~C5C.306 .16C2
I 16A4 D9C440E6CIEZ~09
16AC C5ClC448404009C5
I, 168· C3D6D9C440C9£.£·0

988 988 988
989 tl048 990 .
-990 990 990

EQU oc
EQU ·DC
EQU DC
DC
oc
EQU
oc

... 1 .Q.39·52 RECORDS WIU. SE WRITTEN TO ~741

.. ,

CL40'52 ~ECORDS WJLL 8E RE4D ANO COMPARED

·

.. ,
Cl.39'SET UP 3741 TD READ DR WRITE·

·HEN F6 1

Q.40 1 HALT IS RESET· SYSTEM 3 WlLL READ QA

·

·
...
CU9·GNE AECaRD WAS AEAP· RECORD IS PRINT-ED·

-.

14-CD 6040E405£X9~40 1405 E2CID4C540C4CI~

973 9.,3

1400 C140E2C~E2

973

14E5 40C2C5C6D609C5

973

14EC C9E240C6D6£405C4 1612 14F4 484040404040.W4D 14FC 4040404040404">40 1504 4040404040404040 ISOC 4~0404040404'1

..,.974 INZK
974
91'· 97.4

DC

1513 6CCSE40440E2C8C9 1539 975 IH38 .OC

1518 C6E3604040E3EaD7

975

1523 C540F4F14040..->4Q

975

1528 40404040404G4d40

975·

1533 4~4C404040404'1:>

975

1534 60C6E4DSC3E3.._,E2 1560 976 JN,J

oc

15·2 C5D340E407D7C5D9

976

l54A 6040406aC9D507E4

976

~552 E.360404040404040

976

155A 40404040404040

976

1561 60C6E4D5C3£.14DE.2 1587 977 lfll3X DC

1569 C5D340E40707C509

977

~1$ FOUND.

16SC D7C9C905.E3C5C4

990

16C3 40F240E3C90.C5Ea l6EA 991

DC

Q.~ £ TIMES· ONCE IN PRIH'fABLE ESCDICe

·

I

16CS 48404006D5C3C540

991

·

I >....

1603 C9C54QD1D9C905E3 1608 ClC203C540Csc.iC3 16E3 C4C9C36840404U40

991
991
991

I

16EB D6D5C3C540C90540 1712 992 HD4

oc

·

!

16F3 caCSE74840-'0~

992

·

l6F8 404C4040.040"-l40 1703 404040404040~·0 1708 404040404040~40
1712

992 992 992 993 H058

E4U

...

1713 D605C54009CSC.SD4 1739 994

DC

CL39·DNe AECORD WAS WRITTEN· OATA USED FOR 1

1718 09C440E6CIE2..VE6

994

·

1723 09C9E3E3CSD54~40 1728 40C4C1E.3Cl40E4£2

994 994

1733 CSC4·0C6D60940

994

173A E609C9E3C540E6C1 1761 995 HOS

DC

CL40·~A1TE WAS SAME AS PREVIOUSLY READ.

·

174.2 E240E2C104C54QC1

995

174A E24007C9CSE5C906

995

1752 E4E203E84009CSC1

995

DATE 01 AUG74 EC NO· 824765

ISHOV74
824870

16.;JIUN75 8ZS05'1

PAOG ID
PAGE

404-2 10

DATE

01AUG74

EC NO· 824765

15NOY74 824870

16.IUN75 825057

PRDG _l_O PAGE

c

· ·· · ·

·

········· ························

IBM MAINTENANCE DIAGNOSTIC PAOGRAN

PAAT NO-. PAGE

4042 3741 DIAGNOSTJC FUNCTION TEST

ERR LDC oeJECT CODE

ADDR STMT SOURCE STATEMENT

175A
1 762 176A 1772 !77A :782
178A 1792 179A 17A2 17AA 1761 1789 17Cl 17C9 1701
1709 17El 17E9 17Fl 1 7F9 17FB 1803 ;SOB 1813 1818
l823 1828 1833 1838 1843
1848 1853 1858 1863 1868
1873 1876 1883 1888 1893
1896 18A3 l8AB 1803 1888
18C2 l8CA 1802 1 BOA
l8E~
18EA 18F2 lBFA 190.2 190A 1911 1919

C448404040404040
60C905E3C50909E4 D7E34007C505C4C9 D5C76040C2C9E340 C4C9C440DSD6E3·0
C3D604C54006D~40
C905E3C50909E407 E34C03C5E5C50340 F54CC4C9C440D506
E3~C6C3C3E4D940
C1C6E3C50940F7 40E.2C5C30605C4E2 48404040404040·0 404C404040404040
4040404040404~40
4040404040404040
F3F7F4F140E2C5E3 40E4C740C9C>40709 0607C50903E84B40 404C40404040E7E7 E7E7 4004D6C4C540CSE7 07C5C3E3CSC440D6
0548404040404~40
4040404040404040 4040404040404040
D9C5ClC440040oC4 C540C6D6E405C440 06D5484040404040 4040404040404040 4040404040404J40
E6C9C9E3C54004DO C4C540C606E405C4 4006054B40404040 l!04.0404040404.V40 4040404040404040
E2C9064005066~06
0748404040404040
4040404040404~40
4040404040404040 4040404040404040
C4C1E3Cl40E309Cl 05E2C6C5D94001i1C5 C7C9E2E3C50940D7 Cl 09C9E3Eo40C509 0906D94040404Q
C206E3C84009C~Cl C4~uC1DSC440Eo09
C9E3C5400406C4C5 40E6C 5D9C 5400t>D5 484C404040404040
D3C505C7E3C840C3 06E405E34009C!>C7 C9E2E3C50940C5D9 D906094840CSE707 CSC3E3C5C4404w C6C66B40C606E405 C440E7E7

1761 1789
1 789 1780
1708
1706 17FA
18.22
1822 184A
184A 1872
1872 189A
l89A l8C1
18Cl 18E9
1SE9 1910
191C 191C

995 996 997 997 997
997 997 998 999
999 999 999 999 1000
1000 1000 10.:.0 1000 1001 1002
lOOZ 1002 1002 1002 1003 1003 1003
1003 1003 1004 1005 1005 1005 1005 1005 1006 10.'.>7
1007 1007 1007 1007 1008 1009
1009 1009 1009 l 009 1010
1011 1011 1011 1011 1011
1012 1013
1013 1013 1013 1013 1014 1015 1015 1015
1015 1015 1016 1016 1017

MSG18 MSG1
MSG28
MSG2
MSG3E MSG3A
MSG3
MSG48 MSG4
MSGSB MSGS
MSG68 MSG6
MSG78 MSG7
MSG8B MSG8
NSG9B
MSG9 MSG108

EQU
oc
EQU DC
DC
EQU
oc
oc
EQU DC
EQU DC
EQU DC
EQU DC
EQU DC
EQU OC
DC EOU

-1 CL40'-lNTERRUPT PENDING- BIT DID NOT COME ON ·
·-1
CL39'lNTER~UPT LEVEL 5 OIO NDT OCCUR AFTER 7·

CL40' SECONDS.

·-1 CL34·3741 SET UP IMPROPERLY.

xxxx·

CL40 1 MODE EXPECTED OflOo
·-l
CL40"REAC MODE FOUND CNo
·-1
CL40· WRITE MOOE FC·JNC' O"I,
·-1
CL40 1 S1Cl NO-OPo
·-l
CL39·0ATA TRANSF'ER REG! STER PARITY El'<O<OR

..... 1 CL40°BOTH READ AND WR!TE ~ODE wERE ON~

*-1 CL39'LENGTH COUNT REGISTER ERROR· EXPECTED
CL12'FF. FOUND xx·

5558776 11

IBM MAINTENANCE DIAGNaJSTIC PROGRAM

PART NOo PAGE

3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

AODR STMT SOUftCE STATEMENT

1910 1925 1920 1935 1930
1944 l94C 1954 195C 1964
196C l 974 197C 19S4 198C 1993 1996 19A3 l9AB 1983
1968 19C3 19CB 1903 1908
19E2 19EA 19F2 19FA 1A02
1A09 lAll 1A19 lA2l 1A29
1A3C lA38 1A40 lA48 1A50
lA58
JA60
1A68 JA70
1A78
JASO 1A88 !A90 lA98 lAAO lAA7 lAAF l AB7
lABF 1AC7
lACF JA07 lADF 1AE7

C306D407Cl09C~O
C5D9090609484u40 40404009C5C30609 C44COSE404C2Cb09 40AC4040E7E7E7
E4D5CSE7D7CSC3E3 C5C440C905E3C509
OvE4D7E34B404~40
4C4C404040404040 40404040404040 40
60C5D5C44006C640 0106C26u4003C905 C5400506E340C1C3 E3C9E5C540C!C6E3 C5094040404040 D9CSC1C4C905C740 CID3D34009C5C306 D9C4E24006C640C4
ClE3Cl40E2C5E~4B
404C404040404v40
D9CSC1C44004D6C4 C540C105C440Eb09 C9E3C540D406C4C5 40C20bE3C8400oC6 C64B4040404040
C5E7D7C5C3E3C5C4 40C5C9E3C8C50940 09C5C1C440060940 E609C9E3C540D4D6 C4C54840404040
F3F7F4F!40C2E4E2 E840E306D6400306
CSC7484040404~40
404C404040404040
4040404040404~
C4C1E3C14007D~C5
E5C906E4E203E840 E609C9E3E3CSD540
E6C1E24040404~40
404C404040404040
C4CJE3C14009C5C1 C44CC2ClC3D240E6 C1E2404040404040 404C404040404u40 4040404040404040
5C6C5C605C605C40 404CE3C8C540Eo09 C10740C3D60505C5
C3E306D940C9E~40
E2E3C9D3034040
C9D5E2E3ClD30~C5
C4484040C6060303 06E640C4C909C5C3 E3C906D5E24B4040
4040404040404~40
F3F7F4Fl40C9E~40
050oE340D6054003 C905C54040404u40
4040404040404~40

1943 1018 1018 1018 1018 1018
1943 1019 1968 1020
1020 1020 1020 1020 1968 1~21 1992 1022 102.2 1022 1022 1022 J98A 1023 102.1 1023 1023 1023 19BA 1024 19El 1025 1025 1025 1025 1025 19El 1026 lAOB 1027
1027 1027 1027 1027 1A08 1028 lA2F 1029 1029 1029 1029 1029 1A2F 1030 1A57 1031 1031 l D.31 1031
1031 lA57 1032 1A7F 1033
1033
1033 1033
10::S3 1A7F 1034 1AA6 1035
1035 1035 1035 1035 1ACE 1036 1036 10.36 1036 1036 lACE 1037 lAF5 1038
1036 1038 1030

MSGlO
NSGllB MSG11
MSGl~B
MSG12
MSG136 MSG13
MSG148 MSG14
MSGlSB MSG15
MSG20B MSG20
MSG21B MSG21
MSG22B
MSG22
MSG238 MSG.23

DC
EQU DC
EQU DC
DC
EOU DC
EQU DC
EQU OC
EQU DC
EQU DC
EOU CC
DC
EQU DC

CL39°CONPARE ERROR.

RECORO NUMBER

xxx·

·-1
CL40°UNEXPECTEO JNTERRUPTe

-1
CL39·-ENO CF Joa- LINE NOT ACTIVE AFTER
CL40°REAOING ALL ~ECORDS oF DATA SET·

-1 CL39·REAC ~ODE ANO WRITE MOOE BOTH OFF.

·-1 CL39°EXPECTED EITHER READ OR WRITE MOOE.
·-1
CL39·3741 BUSY TOO LONG.
·-1
CL4o'DATA PREVIOUSLY ·RITTEN WAS
·-1
CL40'DATA READ SACK WAS

-1
CL39' *-·-·-1' THE WRAP CONNECTOR IS STILL.
CL40"1NSTALLEO. FOLLOW DlRECTIONSc
,.._ 1 CL39°374l IS NOT ON LINE

5558776 llA

DATE

01AUG74

E~ NO· 824765

15NOV74 824870

16.JUN715 8Z5057

P~OG ID PAGE

404-.2 l 1

DATE

01AUG74

EC NO· 824765

l5NOV74 824870

l6JIJN75 825057

PROG ICI PAGE

404-2 llA

IBM MAINTENANCE OIAGN.:ISTIC PROGRAM

PART NO· PAGE

4042 3741 DIAGNOSTIC FUNCTION TEST

ERR LOC OBJECT CODE

ADDR STMT SOuRCE STATEMENT

lAEF 4040404040404~

1038

JAF5 1039 MSG24B EQU 1AF6 4040C4E4D9C90~C7 1e1c 104~ MSG,4 DC

-1 CL.39· DURING READ FROM 3741 TO SYSTEM 3·

lAFE 40D9C5ClC440Co09 1806 D60440F3F7F4F140

1040 1040

lBOE E30640E2EBEZE3C5

1040

1816
JBlO 1625 1620

044CF34B40404~
4040C4E4D9C9~C7
40E6D9C9E3CS40E3 D640F3F7F4Flo\ilC6

1a1c
1843

1040 1041 1J42 1042 1042

MSGZ58 MSG25

eou
O~

·-1
CL.39· DURING WRITE TO 3741 FROM SYSTEN 3·

1835 0906D440E2E8EZE3 1830 C5D4o\OF34B4040

1042 104.2

JS.3 1043 M~G26B EQU

1644 60C505C44006C640 1B6A 1044

OC

·-1
CL39 1 -ENO or RECORD- LINE NOT ACTIVE AFTER

l84C 09C5C30609Co\6040

1044

1 E54 C3C905C5400506£3

1044

185C 40ClC3E3C9ESC540

1044

1664 ClC6E3C509o\04u

1044

1965 E3C9Cl05E2C6C509 1892 1045 MSG26 DC

CL40"TRANsFER OF A 12e BYTE RECORD·

1873 40D6C640Cl40F1F2 1B78 F840CZEBE3C540D9

1045 104!»

1883 1888
1693

C5C306D9C44El4ii40 4040404040404040
40400506E3C5#W40

1692 1BB9

1045 1045 1046 1047

MSG278

EQU OC

·-1 CL39° NOTE- THIS ERROR CAN BE CAUSED BY

1898 40E3C8CC,;E240C5D9 1 B A3 09060940C3C10540

1047 1047

I BAB C2C540C3C1E4E<!C5

1047

1863 C440C2E840404w

1047

l8BA E4E2C9DSC740Cl40 16El 1048

1BC2 f3F7F4F140C4ClE3

1048

OC

CL40 1 USING A 3741 DATA SET WHOSE RECORDS ARE ·

lBCA C140E2CSE340EoC8

1048

1 802 06E2C54009C5006

1048

lBOA 09C4c240C109C:>40

1048

1BE2 0506E340F1F2F840 1CC9 1049 MSG27 DC

CL40'NOT 128 BYTES IN LENGTH.

l8EA C2E8E3C5E240C9D5

1049

1BF2 4003C5D5C7E3Cd4B

1049

lBFA 404C404040404~40 lC 02 4(l40404040404040

1049
104~

1050

1051

1052

105.3

1054

1055

1056

1057

1058

lC OA 4040404040

lC09 1059 MSG40S EQU lCOE 1060 MSG40A DC

-1 CL5 1

lCCF 40D4D6C4C540C3E7 1C36 1061 MSG40 DC

1C17 07C5C3E3C5C4400b

1061

CL40' MOOE EXPECTED ON·

lClF 0548404040404040

1061

1C27 4040404040404040 lC2F 404C404040404~40

1061 1061

1C37 4009C5ClC· 1 C 3C E6D9C90C5

1062 1C38 1063 CREAD DC 1C40 1064 CWRITE DC

CL5· READ' CL5 1 1i!RITE"

1065 1066

······*********************************************

1067 ·

·

1068 · 1069 · 1:l70 ·

Dc·s

· · ·

1071 ·

·

1072 ********************************·*···············

1073

DATE

01AUG74

EC NO. 824765

l&l0V74 824870

16.IUN75
825~57

PROG 10 PAGE

5558776 12

ISM MA1NTENANCE DIAGNOSTIC PROGRAM 404Z 3741 DIAGNOSTIC FUNCTION TEST

PART NOe PAGE

5558776 12A

ERR LOC OBJECT CODE
1C41 0000 1C43 00 lC44 00 1 C45 00 1C46 00 1C47 0001 1C49 OOC2 1C4B 0000 1C40 F90C lC4F 55 1C50 00 1C51 0000 1C53 0000 1C55 l0ot5 1C57 00 1C58 1014 lCSA 00 l C58 00 lCSC FOFO l CSE FOFO l C60 FOFl 1C62 FGF2 1C64 OOOC 1C66 FOFOFl 1C69 OOOCOO 1C6C 00 1C6D 0000 !C6F OOOC 1C7l 007F IC 73 0000 1C75 4000 1C77 0000 1C79 0000 1 C78 0000 lC 70 0000 1C7F 0000 1C8l 0000 1C83 0000 1C85 0000 1C67 0000 lC89 0000 1C8B 0000 lCSD 0000 lCBF 0000 1C9l 0000
:\ ' ...

ADOR STMT SOURCE STATEMENT

1C42 1074 S

DC

XL.2°0000.

*

CONTAINS SWITCHES AS SENSED

1C43 1075 Sl

DC

XL.1·00·

1C44 1076 52

OC

XL1"00 1

1C45 1077 53 1C46 1078 S4

OC

XL.1 'oo·

DC

XLl ·oo·

1C48 1079 ONE

OC

XL2.'0001°

*· KEEP TOGETHER ANO LEN~TH 6
· ·

lCAA 1080 T·O

DC

Xl..2 1 0002'

1C4C 1081 ZERO DC

XL.2°0-000.

1C4E 1082 XF900 DC

Xt..2 1 F900 ·

FOR wRAP CO~ECTOR SNS

lC~F 1J83 lNCVAL DC

lL1'85 1

BUMPS 'CHAR'

1C30 1084 EXF~LG DC

xL1·00·

1C52 1085 PsRSAV DC

XL2"0000·

1CS4 J 086 Pl ARS"' OC

XL.2".;)000 1

1C56 1087 UNEa DC lC57 1086 CHAQ DC

AL2WNE>
ALi <·-·>

AOORESS OF FORCED HALT DUE TO UNEXP INT

1C59 1089 INTSa OC !CSA 1 J90 INTFL.G 0C

·-·J . AL.2( INT5) ALI (

lCSB 1091 RECCTR DC

ALl(-·)

1C50 1092 CTBUF DC

XL2 1 FOFO ·

1C5F 1093 ZO

DC

XL.2 1 FOFO·

1C61 1094 Zl

DC

XL2 1 FOF1 ·

1C63 1095 Z2

DC

XL.2 8 FOF2'

1C65 1096 CTR

DC

xt..2·0000·

1C66 1097 NUMONE OC

XL3'Fl)FOF1 ·

1C6B 1098 SEO

OC

XL3·oooooo·

1C6C 1099 QWORK OC

lU.1 '00'

1C6E 1100 WORK DC

xL2·0·

1C70 1101

OC

1C72 1102 LENGTH DC

XL2 1 0· XL2·007F·

255-L

= ceG. 2ss-12a 127 X 1 7F·)

1C74 1103 XOOOO OC

XL.2 1 0000 1

1C76 1104 FUNBIT OC

XL.2'4000'

EB-1 BIT 0 1 6 USEC PULSES

1C78 1105 SNS! DC

XL2°0000'

1C7A 1106 SNS2 DC

XL2 8 0000'

1C7C 1107 SNSJ OC

XL2'0000 1

1C7E 1108 SNS· DC

XL2 1 0000'

JC80 1109 SNS5 DC

XL2'0000°

1C62 1110 SNS2I DC

XL.2 1 0000.

FOR INTERRUPT LEVEL SNSING

tC84 1111 SEhS DC

xL2·0000·

lC86 1112 SENSO DC

xt..2·0000·

1C88 1113 SENSl OC

XL..2"0000.

lCSA 1114 SENSZ DC

XL.2 1 0000 1

1C8C 1115 SENS3 DC

XL2 1 000C'

lCSE 1116 SENS4 DC

XL2"0000'

1C90 1117 SENS5 DC

XL2 1 0000·

1C92 1118 SENS6 DC

XL2·oooo·

1119 .......................................................................

1120 ·
* 1121
112.2 ·

EQUATES

· · ·

112.3 · 1124 ·

· *

11112256 ·······································································

1127 ··································

1128 *

STANDA~D DCP EQUATES

·

0222 11113209 H·A~L·T····E·Q·U····x···2·2·2··················

0216 1131 LIN~ EQU x·216'

021A 1132 PRINT EQU X1 21A·

0212 1133 TEST EQU X1 212·

021E 1134 UNPACK EQU x·21e·

0020 1135 PIAR EQU x·20·

PROGRAM INSTRUCTION ADDRESS REGISTER

0200 1136 CPU

EQU x·zoo·

LOCATION OF CPU MODEL LETTER.

0001 1137 ~ l

EQU O!

0002 1138 XR2

EOU 02

0008 1139 ARA

EOU x·o8·

0004 1140 PSR

EQU x·o··

OOCO 1141 IAi<l EOU x· co·

(

404-2 12

OATE EC N{h

01AUG74 82.\765

15NOV7· 824870

16.JUN75 825057

PROG 10 PAGE

404-2 12A

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

.i !

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

·

I

la.4 14AhotTENANC.E DIAGNOSTIC PRD~AAN 3741 DIAGNOSTIC FUNCTION TEST

55587761 13
1
!

IBM NAINTENAHCE DIAGNOSTIC PRDGAA.. ·0·2 37·1 DIAGNOSTIC FUNCTION TEST

PART NOe
PAGE

5558776 13A

ERA LOC OBJECT CODE

ADOR STNT SOURCE STATE·ENT

0084 1142 JARS EQU x·84·

OCZO 1143 Pl JAR EOU x·20·

OZOO 1144 SVSTEM EOU
02Z6 1145 PACK eou

512 x·226·

02ZA 1146 LOAD EQU X·22A'
0080 1147 BITO eou x·eo· 0040 1148 BJ Tl EQU x··o·

OC20 1149 81T2 0010 1150 BI T3 0008 1151 8IT4 0004 1152 SITS 0002 115.3 BJT6 0001 1154 dIT1

EQU EQU EQU EQU EOU EQU

x·20·
x· 10·
x·oe· x·o·· x·o2· x·o1·

0208 1155 SBYTEO EQU 020A 1156 SBYTE2 EQU
0208 1157 SBYTE3 EQU 0020 1158 ss·o2 Eau 0008 1159 SSW04 EQU 0001 1160 SS·07 EQU ooao 1161 ss .. 10 EQU

x·o2oe·
.x·o20A·
x· o 2oe·
x·20· x·oa· x·o1 · x·eo·

SENSE SWITCH BYTE 2 SENSE SWITCH BYTE 3 ~ANUAL INTERVENTION BYPASS NON-ERROR PRINTING LCA.0 ANO GO (OCPJ

(OCPt

0040 1162 SSW11 EOU x·40·

0020 116.3 ss1112 0010 1164 SSlll13 0008 1165 SSIJl14 0004 1166 551115
0002 1167 5SW16 0001 1168 SS11ol7 0080 1169 5511118

EOU EOU EQU
EOU
eou
EOU EQU

x·20·
x·10·
x·oa· x·o·· x·oz· x1 01 · x·ao·

0040 1170 SSW19 EOU x·40·

0020 1171 SS·1A EQU X'20·

0001 l1 72 SS-ZF EOU x·o1 ·

1173

0034 1174 NUMREC EOU 52

READ 52 RECORDS

0014 1175 SLE~ EOU 20

1176

1177 1178

·*····

···········***************···*****"'***···

EQUATE USE FOR PROGRAM C~OlN~

~

1179 **'*******w**'**************'**·***************"'

0003 1180 HI

EOU x·o3·

0071 1181 HZ 003C 1182 HF

EQU X'71 1
EQU x·Jc·

007C 1183 HE

EQU X·7C 1

0068 1184 HL

EQU

X1 66 1

006F 1185 HO

EOU X·6F 1

0076 1186 H2

EQU

X8 76 1

0057 1187 H.3

EQU

X1 57 1

OOlB 1188 H4

EQU X1 1B'

0050 1189 HS

EQU x·50·

0070 1190 H6

EQU X1 70'

0007 1191 H7

EQU X·07 1

Ov7F 1192 H8

EQU X1 7F 1

005F 1193 H9

EQU X'SF'

003F 1194 HA

EQU x·;:w·

0079 1195 HB

EQU X·79'

006C 1196 HC

EOU X1 6C·

0073 1197 HO

EQU

0004 1198 HUP

EQU

0040 1199 HON

EOU

11220010 ··················*··········

1202 4 EQUATES F~ 3741

1203 ·

11220045 *"**"*****"'*************~···

1206 · TIO

1207

0040 1208 TNFI 0042 1209 TBSY

EQU
EOU

TIO NOT READY OFI ERROR TIO FOR SUSY

i :·i

ERR LOC OBJECT COOE

I
I II ,,_
I
I ! ,r

c
le_ i
iI '-
I
I
I !
!

ADOR ST·T SOURCE STATEMENT

1210

1211 · LIO

1212

0041 1213 LFUNC
0042 121-t LLCR 0044 1215 LOAR 0045 1216 LOTR

EOU EQU EQ\,I EQU

x··1·
x··2· x···· x··s·

1217

1218 · SIO

12~9
00~0 1220 SCNTRL EQU 0041 1221 SREAD EQU

x··o· x··1·

0042 1222 SWRITE EOU X1 42 1

0043 1223 SCTLl EOU 0044 1224 SCTL2 EQU

x·43·
x····

1225

1226 · SNS

1227
0041 1228 SFUNR EOU x··1·

0042 1229 SSTAT EQU 0043 1230 SLINES EQU

X·42·
x· 4;;·

0044 1231 SOAR EQU x·44·

0045 1232 SDXFR EQU X1 4S·

1.233
1234 * A-BYTES FO~ SIO 0

1235

1236 ·

BIT

0001 1237 SRESET EOU x·o 1 ·

7

0002 1238 SENAB EQU x·o2·

6

0004 1239 SD!SAB EOU x·o··

5

0008 1240 SNOBSY EOU x·oe·

4

0010 1241 SUPINT EQU x·10·

3

1242

1242
1243 * ERROR MASKS SNS-3

1244

1245 ..

0040 1246 EDS

eou X1 40 1

0020 1247 SIPE EOU x·20·

0010 1248 EO~ o.ooa 1z49 E0.1

EQU x·10·
Eau x·os·

0004 1Z50 AT
1251 *

EQU x·o4·

125<a

1253 ·

1/0 SELECT

1254 ·
* 1255
0004 1256 RSU 0008 1257 RE OOHi 1258 RSA
0020 1259 REOD

eou eau eau Eau

LJNE II
1 ·2
x· 04· 3 x· oe· 4
x·10· s
x·20· 6

0040 1260 REOJ EQU X1 40'

7

0080 1261 BOPE Eau x· eo· e

FFFF 1262

ENO

LJO FUNCTION REGISTER
LIO LENGT~ COUNT REGISTER LIO DATA ADDRESS REGISTER LIO DATA TRANSFER REGlSTER

SIO CCNTROL INTERRUPT STATUS SIO READ SIO WflUTE SIO I/O CONTROL 1 510 l/C CONTRGL 2

SNS FUNCTION REGISTER

SNS CCR+ STATUS

(STAT:E82)

SNS J/O TRANSFER LINES

SNS OATA ADDRESS REGISTER CDAAJ

SNS DATA TRANSFER + OIAG (01AG=EB2)

~IO
SIO SlO SIO 510

1-R
J-A I-R 1-R I-R

RESET INTERRUPT ENABLE INTERRuPTS OISA8LE INTERRUPTS FORCE NOT SUSY SET INTERRUPT REQUEST

ENO OF DATA SET euss IN PARITY ERROR
ENO CF RECORD
END OF .#OB 3741 ATTENTION

MEANING t.OT USED SET uP ERROR (REAO VSo REsPONSE SENSE RESPONSE ENO OF DATA SET END OF JOB BUS OUT PARITY ERROR

WRITE

MOOE)

DAT!;:

01 AUG74

EC NO. 824765

15NOV74 824870

16.JUN75 825057

PROG 10 PAGE

404-2
13

DATE

01 AUG74

EC NO. 824765

15NOV74 824870

16.ll..IN75 825057

PROG IO PAGE

404..,.2 l.3A

IBM MAINTENANCE OIAGN<lSTIC PROGRAM

PART NO. PAGE

I
I
I
I
5558776'
1· i
I

lf\M MAINTENANCE OIAC:ONOSTIC PROGRAM 3741 OIAGNOSTI~ F~NCTlON TEST

3741 DIAGNOSTIC F°"CTION TEST

CROSS-REFERENCE

CRCSS-REFERENCE

SYMBOL T LEN VALUE OEFN

REFERENCES

SYMBOL T LEN VALUE OEFN

REFERENCES

AOK

A 003

Al<R

C OCl

ASTRKS A 001

ASTf<Kl A 039

OOF6 oco8 1476 1490

0501 1139 0969 0970

AT

C 001

8AOHLT A 001

BAOMOO A 004

BADMOR A 004

BEG BIPE

A 004
c col

BJ10 BITl

C 001 C 001

BJT2 C 001

81T3 C 001

BJT4 C 001

BJT5 C 001

BIT6 C 001

BIT7 C 001

BLP

A OC4

BOPE

C OCl

BUFF 1 A 001

BUFF Uil A OOZ

eUFF2 A 001

00:::>4 10A8 10S9 10C3 OA21
0020
0080 0040
0020
0010 0008 0004
OC02
oco l
0018
0080 1176 1278 11F6

l.250 0354 OcH7 0864 0043 1247
1147 1148 1149 1150
1151 1152 1153 1154 0392 1261 O!i4l 0947 0943

CHAR A 001 lC 57 1.188

CHGBUF A 004 OEB2 OoOl

CHGBUR A 004 OEE9 0017

CMG;

A 001 OEC4 Oo06

CKEOR A 001 OCOF 0485

CMPER A 004 OFOl 0643 CMP,;RR A 004 OFlF 0653

CPU

C 001 0200 1136

CREAD A 005 1C38 1.-63

CTBUF A 002 lCSD 1092

CTR

A 002 1C65 1\196

CWRITE A 005 1C40 l.J64

DOSIO A nc3 0015 0390

OUMPl A 004 lOOF 0891

OUMPlR A 004 lOFF 0905

OUMP2 A 004 1103 0914

OUMP2R A oc· 1123 0928

EDS

C OCl 0040 1246

ENOR

A COl OClC 0266

ENOW
EO.J

A 001
c 001

EOJFLG A OC3

EOJISU A 001

EDR

C 001

0048
oco8
OE:ll
oc3e
0010

0175 1C:49 0514 0279 1248

EXPFLG A OC.1 1C50 1Q84

EXPFND A 004

EXPFNR A 004

EXT

A 004

OF23 OF3F
OCE4

Oob2
Oo73
o.no

FUNBIT A oc&:. 1C76 1104 GETINT A 004 OF8C 0721

GETR
HA HALT

A OC4 C COl
c 001

1010
003F 0222

0773
1194 1130

H8
HC HD
"1DN HDl
HDlB
HD2

C 001 C 001 C OCl C OCl A 039
A COl
A 040

CC79 006C
0073 0040 15FC
1505 1624

1195 1196
1197 1199
0"'82 0981 0':#84

0487 0342 0513 0045 0054 0045 004f> 0112 0113
0346 0452
0841 0354 03Sf
oa17· 0149 0346 0452

057G 0080 0054 OllS

0601 OOS4 0055 0119

0643 0104 008.::l 0186

0662 0108 0081 0187

0682 0112 0084 0199

0721 Cl18 0085 0200

0817 018b 0104 0217

0873 0199 Olu5 0218

0891 0217 0108 0223

0914 0223 0109
022*

0634 00146286~ 0259

0321

0894 0901

0386 0160·
0613· 0156·
017 2 0601· 0603 0458

0161 0615* 0160 0263

0161* 0917 0250*

0163* 0924 0251

0168 0602

0260 0643· 0723 0755 0684 08'+4

0947 0251· 0252

0252· 0254· 0259

0604* 060B* 0010· 0612

0612· 0613

0688 0848 0158· 0249· 0308

0324 0891·
0667
0914· 0346
0262 0171 0269

0672 0452 0346

0452

0362· 0366* 0370 0515 0516

0432

0685

0845

Oi:!.70
0346 0486 0041· 0183· 0305· 0387· 0406* 0784

0439 0650 0662·
0359 0038 0176 0267
0721· 0748

0343

0400

0136 0771

0241 0806

0277 0857

03C2 0860

0419 0880

0446

0785· 0481 0494

0550

0<532 0651

0710

0050
0050 0191

0051 0192

DATE

01AUG74

EC NO. 824765

15NOl/74 824870

16.IUN75 825057

PROG ID PAGE

H028
H03 H03B

A 001 A 040
A oot

15FC
1698 1624

0983 0988 0985

H04 HD4B
HOS

A 040
A 001 A 040

1712 1698 1761

099.2 0989 0995

H058
HE
HF

A 001
c 001
C 001

1112 007C 00 3C

0993 1183 1182

HL

C 001

HNGINi A 001

HNGIT A 004

HNGPNO A 004

HNI

A OC4

0068 OFBE OFC5 OF9B 104F

1164 0737 0741 0727 0806

HTF l

A OC2 OAEZ 0137

HTF2
HTF6

A 002 0803 0242 A OC2 OC68 O.J03

HTSA

A 002 OC3A 0.278

HTSC

A 002 1064 Od58

HT8E Hl8f'

A 002 OEFC 0633 A OC2 OOFS 0495

HTSO HT81

A OC.2 A OC2

10CA 0881 O::>S7 0447

HT82 HT83 HT84

A 002 A C02 A 002

005F OE55 lOOF

0420 0551 0772

HT85 HT86 HTS7 HT88 HT89 HuP

A 002 A 002 A 002 A OC2 A 002
c 001

OF87 10BE 1054 OOCA OFlE C004

0711 Odol 0607 0482. 0052 1198

HZ

c 001 0071 1181

HO

C OCl 006F 1185

Hl

c 001 0003 1180

H2

c 001 0076 1186

H3

c 001 0057 1187

H4

c 001 OOlB 1188

H5

c 001 ooso 1189

H6

C OCH 0070 1190

H7 HS H9 IARl

c 001 c 001 c 001 c 001

IAR5 C 001

I NCVAL A 001

OOJ7 007F
OOSF
ooco
0084 1C4F

1191 1192 1193 U41 1142 1083

lNTFLG A 001 lCSA 1.190

INTOC 1NT5 (NT5iil

A 003 A 001 A 002

OFBB 1014
!C59

0734 0781 1089

INl lNlA JNlB I N1C INlD lNlE
l NlX
INlXB IN2 I N2A !N28 IN2C IN2D
IN')( IN2XA IN2XB

A 039 A 001 A 039 A 039 A 039 A 039 A 039 A 001 A 039 A 001 A 039 A 039 A 039
A 039 A 039 A 001

1383 12FO 1317 133E 13(;5 138C 13CA 1383 1476 13CA 1401 1428 144F 14EB 14C4
1490

C\il6l
0~56
0"'157 0':1158 O'.iil59 0960 0'1163 0962 0968 0964 0965 0966 0967 O\il73 O-i172 0971

0191 0297 0297 0318 0318 0312
0~12

0298 0319 0313

0724 0745 0733 0808

073&· 0608 0042·
0730 0797 0738 0074 0058 0058 0062 0066 0070 0195 0195
0100 0088 0088 0092 0096 0209
0205 0205

0741
1089
0075
oos<; 006.3 0067 0071 0196
0101
008<; 0093 0097 0210 020t:

0062 0066 0070 ·0074
0092 0096 0100 0213 0209

4C4-2 \4

DATE

01AUG74

EC NOo 824765

15NOV74 824870

16.l\JN7S 825057

PART NO· PAGE

5558776 14A

PROG ID PAGE

404-2 14A

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

18~ MAINTENANCE OIMONUSTIC PROGRAM

4042 3741 DIAGNOSTIC F~NCTIDN TEST

CROSS-REFERENCE

SYMBOL T LEN VALUE DcFN

JN2XC A 039

1~3

A 039

I11t3B
IN3X
IN4 IN4A

A 039 A 039 A C39 A 039

IN4B

A OCl

I SBSY A 004

I SREAO A 001

ISlllRIT A 001

JRW

A OC3

KEEPON A 004

LCRHL T A 004

LOAR LDTR

C OCl C 001

LENGTH A 002

LFUNC C 001

LINK LLCR

c 001 c 001

LOAD c 001

L.OOP2 A 004
MOEXP A 004

MOOEOK A 001

MSGl

A 040

"tSGlB A 001 MSGl 0 A 039

MSGl OB A OCl MSGll A 04C

M!>Gl lB A 001 MSG12 A 040

MSG12d A 001

MSGl 3 A 03~
MSG13S A 001 MSG14 A 039

MSGl :.ti A 001

MSG15 A 039 M~:-;158 A 001

MSG2 MSG28
MSG20

A \'40 A 001
A 04C

MSG20B A 001 MSG21 A 04C

MSG21B A 001

MSG22 A 040 MSG228 A 001

MSG23 A 039
MSG23B A 001

MSG24 A 039

MSG24B A 001

MSG25 A 039 MSG25B A 001 MSG26 A 040

MSG26B A 001

MSG27 A 04C MSG278 A 001

MSG3 A 040 MSG3A A 034

MSG3B
MSG4 MSG4B MSG40

A 001 A 040
A 001 A D40

MSG4;JA A 005 MSG40B A 001

MSG5 A 040 MSGSB A 001

MSG6 A 040

1512 1560 1539 1587 1505 15AE lSB~
002~
OCFA ocee
OCCF
OC69 0005 0044 0045
1C72 0041 0216 0042 022A
ocsc
1078
ODJ6
1789 1761 1943
191C 1968
1943
19BA
1968 19El
19BA
1A08 19El 1A.2F lACB
1708 1769 1A57 lA2F 1A7F 1A57
lACE 1A7F lAFS lACE lBlC lAF5 1843 lBlC 1Bil2
1843 1C09 1892
1822
17FA
1708 184A 18ZZ 1C36
lCOE 1C09 1872 184A
U!9A

0974 0976 0975 0977 C\1180 0979
0~78
0.395 0..378 0.372 0.359 0305 0481
12l5 1216
1102 1213 1131 1214 1146 0300 Oo34 0383 0997 0996 lJ 18 lu 11 1020 1019 102.3 1021 l.i25 1.)24 1.;,21 1026
l.;)29 1J28
lu0'1 0!198 1.J.31 10 ::10 1033 l0.32
1,)36 l.:>34
li.:..38 1037
1040
1.139
1042 1041 loJ45 1043 1049 1046
1003 1002
1001 1005 1,,)04. 1061 1060 1,)59 1uo7 1006 1.;.09

REFERENCES

0122 0126
0122 0231 0134 0130 013.'.> 0393 0371

021~
0127
0123 0232 0135 013 1 023S

0214 0231 0126
0239 0134

0227
0227 022a
0240 02.35 0236

0239

0040· 0301 0483
0386* 0139· 0385 0038·

0294C!

0834

0385* 0283 0314
0826 0364 0760 0760
0644* 0647 0802 0802 027;:! 0273 0830 0830 0839 0839
0629 0629
0161 0767 0665 0665 0670 0670 0147 0147
0876
0876 0437 0437
0443 0443 0491 -0491 0479 0479
0691 .0684* 0691 0699 0699 0851
0844· 0851 0101 0707 0415

0325 0 367 0761 0647
oao.::
0274 0831 0840 063(; 076e 0666 0671
014S 0677 04313
0444 0492 0480 069.12 0 6BS· 0700 0852 084S·
01oe
0416

0376 0648

DATE

01AUG74

EC NO· 824765

15NOV74 824870

16.JUN75 825057

PART NO. PAGE
PROG IO PAGE

5558776 15

Iet4 MAlffTEHANCE DIAGt«>STIC PROGRAM 4042 3741 DIAGNOSTIC FUNCTJcN TEST

PART NOe PAGE

5558776 ISA

CROSS-REFERENCE

SYMSOL T LEN VALVE OEFN

REFERENCES

MSG6B A 001 MSG7 A 039

MSG7S A 001

MSG8

A 040

MSGSS A 001

·MSG9

A G12

MSG9B A 001

NGDTPE A 001

NO!E

A 004

NOIERR A 00.f

NOIHT A 004

NCOFOK A OC4

NORAP A 001

NOT2 A 004 NUMCNE A 003

NUMREC C 001 OFFHLT A 004

OFFLN A 004

0Ffl·. NA A 004
OLDSEC A 006

ONE

A 002

ONHL T A OC4

Pil

A 002

PACK C 001

PEHAL T A 004

PEND

A 004

PERE AO A 001

PEl!IR!T A 004

PJAI<

C 001

PI ARSV A 002

PMO

A 004

PRO

A 004

PRINT C 001

1872 18C1
1S9A
18E9
1ec1 191C
18E9 0098 1000 OFEO lOOA 0060
OEOI 1071 1C68 0034
lOAF 10C7 1008 QE77 1C48 10fS9 OE4F 0226 0092 OF08 0078 OOBA 0020 1C54 lOAO
OF5A 021A

1~08
lwll
1010
1013
1·'12 1016
1.;i 14 0450 0765 0751
0771 O<t24 Ooll 0828 1.:197 1174 0857 087.3 0882 0576 1J79 0860
054S 1145 0446 0747
0~34
0441
1135 1086 Oo49 Oo89 1132

404-2 15

PSR

C OCA

PSRSAY A 002

Pl IAR C 001

QWORK A 001

ROOONE A 004

RDOFF A 001

RE

C 001

RECCTR A 001

REOO REOJ

C 001 C 001

RLOOP A 004

RSR

C 001

RSU

C 001

RTNCl A 001

RTN02 A 001

RW

A OC4

QWR

A 004

S

A 002

SBYTEO C 001

SBVTE2 C 001

SBYTE3 C 001

SCNTRL C 001

SCTL l C OC.l

SCTL.2 C 001

SOAR

C 001

SDISAS C 001

SOXFR C 001

0004 1C52 0020 lCbC OC88 OF73 00(18 1C58 0020 0040
OBF8 0010
C004 OAOO OC4A
OCA.3 OOF9
1C42 0208. 020A 0205 0040 004.3 0044 0044 0004
0045

U40 lo.i85 1143 1099 0316 0702 1.2 57 1J91 l.t59 1260 0258 1.258 1256 OJ31 O.Z90 034 0502
107~
1155 1.156 1157
1~20
122.3 1224 12.31 1239 1.232

c OATE EC NO.
(

OU.UG74
824765

l 5NOV74
824870

0415 0429 0430
0429
oe2.i o e2·
0823 0470 0474
0474 0425 0756 0732 0744 0763
0410 0605 0609
0820 0162 025~ 0157 024e 0859
0350 0753
0873· 0572 0170 0261 0656 0862
0543*

0475 0614

0440 0735 0742

0433 0789 0790*

0846 0666 0043 0090 0143 0221 0435 0697 0919 0782
0782*

0046 0094 0145 0225 0441 0705 0926 0795· 0795

0052 0098 0184 0229 0472 0758

0056 0102
~189
0233 0477 0765

0060 0106 0193 0237 0489 csoo

0309 0696 0281 0157·

0384 017C·

0501 0248·

0520 0261*

0264 0177 0412 0426 0465

OOli' 0033 0169 0256 0342"'

0306

0300
0178 0280 0307 07J4 0739 01?7 0281 0384 0412 0426

Oi76 0280 0307 0791

16JUN75 625057

0064
0110 0197 0271 0526 0821

0068
0114 0201 0295 Cl545 082S

0072
0116 02C3
0310 06.27
0837

C791 0796 0465 0501 C520

0076 0120 0207 0316 0645 0849

0078 Ol.24 0211 0322
066~
0874

0082 0128 0215 0413 0668 0896

0086 0132 0219 0427. 0689 0903

PROG IO PAGE

404-2 15A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

5558776 16

IBM MAINTENANCE DIAGNOSTIC PROGRAM

3741 DIAGNOSTIC FUNCTION TEST

CROSS-REFERENCE

SYMBOL. T LEN VALUE OEFN

REFERENCES

SENA8 C OCl SENS A 002

SENSC A 002

SENSl A 002

SENS2 A C02

SENS3 A 002 SENS4 A 002

SENS5 A 002

SENS6 A 002

SEO

A 003

SETER A 004

SET ERR A 004

SETPT A 001
SFUNR c 001 SLEN c 001 SL.INES c 001

SNOBSY C 001

SNOTB Y A OCl

SNSl SNS2

A 002 A 002

SNS21 A C02 SNS3 A 002

0002 1C84 1CB6
2cee
1C8A
1C8C 1C6E 1C90 1C92 1C6B OF43
OF88 OE44 0041 0014 0043
CC08 002F 1C78 1C7A
1C82 1C7C

1Z38 1111 1112 1113 1114
1115 U16 lJ. 17 1118 1.;;9e Ob8.2
0712 0542 1,28 1175 1..?.30
1240 0.198 1105 1106 1110 1107

SNS4 SNS5

A 002 A 002

SPL.OOP A 006 SREAO C 001

SR::.SCT C 001

SSTAT c 001

SSW02 c 001

SSW04 c 001

c SSll107

001

SSWlA c 001

SSWlO c 001

SSwl l c 001

SS-.'12 c 001

SSWl3 c 001

SSW14 c 001

SSW15 c 001

SSW16
SSW17 SSll11 B SSW19

C OCl
c 001 c 001 c 001

SS~F C 001

STAB A 020 STATB A. 001

STATER A 001

STATNG A 040 STATRR A 004

STATXX A 039

STATl A 001 SUPJNT C 001

SWRITE C C.01 SYSTEM C 001

Sl

A 001

52

A 001

S3

A 001

S4

A 001

TBSY TEST

C 001 C 001

TNR

C OCl

TOOBSY A 001

TWO

A OC2

UOT1 UNE

A 003 A 001

1C7E 1C80 OE33 0041 OCOl 0042 0020 OC08 0001 0.:>20 0080 0040 0020 0010
0008 0004
0002 0001 0080 0040
00;)1
128C 1126 OOFO
1175 OE56 1140 OEOF 0010 0042 0200
1C43 1C44
1C45 1C46 0042 0212 0040 OEED 1C4A OAOC 1045

1108 1109 0538 1.:!21 1237
1.0:.29
usa
1159 1160 1171
Il 61 1.162 1163 1164
1165 1166
1167 1168 1169 1170 11 72.
0949 0937 0:>'12
0939 0553
0~38
0~19
1~41
l.i::.2.2 1144
l.:l75 1076 J.)77 1.:>78
1~09
1133
14:08 0026
l.lav
Ou19 0799

0739

0162· 0163 0375 ~381
0682· 0539

0253· ozs4

0540 0547 0140 0268 0345 0403 0751

0404· 0404 0140· 0379
()752

0~09
0726· 0141 0380
0819

0424 0783· 0268* 0403·
0855

0457
0269 0452

>1469 0727* C728
0345· 0346 0349 0486 0515 0516

0541 0249 0734 0727

0308 0791 0783

0366 0796

0370

0300

0536 0528 0347
0528 051.3· 0525 0514

0453
0529 0517

0158 0362 0432 0685 0845

0393 0.396 1Ci87

DATE

01AUG7.tl

EC NOo 824765

15NOV74 824870

16.IUN75 825057

0729
0353 0524

0355 0537

0363 0373 0374 0695 0703 0751·
?ROG ID PAGE

3741 DIAGNOSTIC F·NCTlON TEST

CRC:SS-REFERENCE

SYMBOL T LEN VALUE OEFN

REFERENCES

UNEil A 002 UNPACK C: 001

WAIT A 001

WAITBY A 004

WAI TR A 004

WAITRN A 006

WASEXP A 001

WCNT A 002

WHICH A 001

Wl..OOP A 001

~OPK

A 002

WRFOFF A 001

WSEC A 002

WSECA A 002

WTOFF A OC4

WOOOl A 002

W0004 A 002

Wl

A 004

WlOOO A 002

XF9CO A 002

XRl

C 001

XR2

C 001

XOOOO A 002

X404 A 001

ZERO
zo

A 002 A 002

Zl

A 002

Z2

A 002

1CS6 021E
OE5A ODlC OEA2 OE9C: 1036 0EA7 1060 0629 lC6E
OBOS 0EA9
OEAB OF62 JEAF OE Bl
OOAB OEAO 1C4E 0001 0002 1C74
0000 lC4C
lC~F
lC61 1C6.3

lo.)87 1134
0509 0393 0584
0563 0793
0566 0d43 0167 1100 0150 0567
0588 0710 0590 0591 0461 0569 1CS2 1137 1138 1103 0005 1v61 1093
1094 1095

0790
~467
0395 0397 0570· 0579 0786 0575· 0835 017.3 0537·
0142 0392·
0573* 0704 0578 0583 0463 0575 0141 0536·

0522 0461 0582
0~78·
0538 0460· 0581· 0581
0580 0540

089~
0731 0563· 0580* r.538· 0571
0540·

0699 0743
0573
0543

0139

= TOTAL. STATEMENTS FLAGGED JN THIS ASSE~BL.Y

0915 0922 0574
0

(
'<.

404-2 16

( -
DATE EC NOo

01AUG74 824765

15NOV74 824870

16.IUN75 825.)57

PART NOe PAGE

5558776 16A

PR<Xi IO PAGE

· · · · · · · ·· · · · · · · · ··· · · · · · · · · · · · · ·· · · · ·

·

·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTE~ANCE DIAGNOSTIC PRDGRAM 3741 DIAGNOSTIC FUNCTION TEST

PART NO. PAGE

I
i
I
I
I l
55587761' 17
I I

THE CL

CHAR ACT ER 1 THROUGH

08JECT CARO LISTING
INDICATES A BLANK COLUMN AND THE CHARACTERS 0 E H INDICATE NUMERIC SHIFT·
16 CL ·1 7 THROUGH .32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80

...
··4A& F COYl&Jl

· ·

······e·

········

404 - 3741 FUNCT ION TEST

84a@84am

6IH*<4C3"'GE @Al EOH·BFUHXEIS @:$8 G l'YBllPi!OH·BF-H

I
I
I
CL Sl THROUGH 9~
I
I 40420000
XE14 0904~420001

·/O'rlE.K"'Ll2'BG·/Y AI1(110H*BF-OX083

-· l'OHE K~X&BG /V KOH*6F-OXEI7 /OH E S* RHM40420002

/OHE S·NG<SG /Y

AJlO>OH*BF-QXElP

. /OHSGIOlJJl<<D<

*~ 4 :044042000~

IBM MAINTENANCE DIAGNOSTJC PROGRAM

PART NO. PAGE

5558776
17A

3741 DIAGNOSTIC ;~tfCTION TEST OBJECT CARO LISTING
CL 1 TH~OUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 Cl.. 81 THROUGH 96

·Ac&Hc>o· JlP~-o GI

5GE· KS440420021

<BG l'oFJlY?&H·

T+-'<&·BIOH*fttae G SI S·SG

80H*BFYOYFll-. /10 COH·BFVOVFX· /lC ~OH* C&HCSX<AA~ :GCX M/040420023

T+-·GIMH(E"IHAA-O
T+-..BOH* C&HOA<
.
T+-w·& H'"lleavo

.
aAo:zt·MB IHAH3A <OH·+o=BGC=C '0"

.
BGGY< J2eGGYBMAl
El *O~BGCA 0&11

BFY0YFOY8 /'l#&Z Q+ &·;aB&0<··1&H

·O-..< M: '1'4 042(' C25

T+-_/GFX<-..lGSOXP
T+-OKjODCETlNGE*
.
T ·-1 ( :.;~BGS"T /00

·

0

/Ot?.TCO 4Ql1H@YD

OI<~G /YSillEOH*

.
< Al5GE·<~l'l40XM

<OH'*+"lllBGBZX /O_
BF-DXEJ7 /OHEO~B
< /1,GF-< /G~GF?

HOH·llj(CMjC A<B
G /YAIJLDOH*BF-D
/J2TCPiil.J·.JI50 0
.
S~BG SI S?C Aj (

GB5Qlil .. ll&OH·BFUH XE+? /OHE S*NOXS
I &@ GEX*1<.<5ACA3
CS<BGCOP /OHO H

!

BO-.% :sM40420005.

I

I

-

I

XEl4 EL040420CO~

I

G /Y 2&0404200t7

I

4GE% -..AU40420008

T+/ 8.IOe /OHElUlil T+/B>F7'HXF ;i:: TC6

/OB @11!840420009. - T+/DUl3j· /OHEV-*8

.."lil KN.,40420010

c1a<R a·x

TEJE5&<XS&(PA5<P

P6DdOOH·EHUBDOH*
.
/1 MOH·l'8F11:QYFQ_
G /9 D-.hl.H"iilBG /j)
4@XN1 ;z O&<.E4·sw&DA &DA

C&DGEH0&1'2Bl,a /@BG SI /@BGOO@

/0

-&7%8G /.

l&'OH* C&HDK$ /OH

&DA f,OA- 1'PNSXN
.£ ···········~·$

Fl lo !':&HC /OHS(,.HC ;&Ail~BI" /OHEV:.rfl

/0

-.J XBG 1'9

G /9 OXMH"iil8G /0
&DA O· I T2 ;PE&( I

/OH 4: U4 042 r,.c;28 20 't R, c4 042Q029
SOHll: 6T·40420031------------1 l5*M "B'114C420032
.... :c-40420033

"Slii>J"'·B<.;° l'VSOH* &7@BGCE048 7@CH$ ITCACGG09"A1@0I T+-3=DAAR+G<·;a·

("L-OGG? UACG·f ...:

121 o- 40420()
I
·;3u.)T:40420011

T+/HO&AEoo; I ro*· H5<PN84CR8> ( &DA

&OCE5·.J 5%R l<G TOMCSl;( &DA &!I 7·IE O>LS&<XN&(-. RS-- Kti'440420034
&DA 1 )PO&( :liF&t G OOUA &DA &DA &OC 3""L l&<GT8@PN8@X OSM 891.>40420035

.
T+-54.. OAGGY·-T3

CBCESGGt<il .lA 18 I I@ '"GE &AAl90I ca I<

"'"'' <·· COBCOXA&-4
Cio!<BG /oFHASE&H. HoH·SFyQxF.r+I /OH

T@Y>l«OH·+0%BGC>7 /OHS&HH86Al9<ilZ
S&H09MAl&oI {NL7

·'04·CMtH .@eGCeo
.
~G~.2-L-~ &:zoM~

o&!O =T t;.0420014 1
-L4 iiY0404200l5.
·c% · J840420016

C20CD2; .K J.; IT !"4A
E8==l EE4CPCt N. iil?t.

&DA. s_v eO!TE&<V
6:::...,L6i1C_ &DA &CA

/5llCAl<GPS@PR&·+!i
. . . . C·CA r,oA &Dt. &-!-I

RC)} l<XAl ·POS>I

104

040420037

.
T+-8VL1>K&H'0 /'OH $f;H..3&0T /0 ( -

+O""HGBJ-HGG09 1 i1 4i)@/A(;@4<HOH·+Ell:E G ;seGGO.n.. ·EG /o Bl..10 '1<A04042001S

. .
T~·/&K&DA 211<R OMC

SO'XA8"1il-1&<LlS_.

E.e=jEC.<X~&-tL!:l=l< ..!

T+-: sl>-.'HAD-OACDX

+O&.itACDu+O&OACO·

+ .&7"CX·+ to4tCX4

OH~ BHUBCOH* C£HCOM
+-.&lilACD·+. ··HAO o ACD*+· &d!AC01:·r.ila

S -.l-40420C19
I (
ACOH M3 404.20020

OJPO&+ I 1115UC06MA

0H<40420039

DATE

01AUG74

EC NO. 824765

15NGV74 824870

16.IUN75 825057

PROG IO PAGE

404-2 17

DA TE

01 AJJG74

EC NOo 8.24765

15NOV74 824870

16JUN75 8.25057

PROG IO PAGE

(

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NOe PAGE

ssse776 18

4042 3741 DIAGNOSTIC FUNCTION TEST OBJECT CARO LISTING
CL l THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64

CL 65 THROUGH BO

CL 81 THROUGH 96

H&<LIB_.ea=tE&+S

A8UCU8XPOE4C01> ...

..Rl;H 9R&4C420043 £.0 E0440420044

JBM MAINTENANCE DIAG.NOSTIC PROGRAM 4042 3741 DIAGNOSTIC FUNCTION TEST

PART NO. PAGE

5558776 lBA

CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 'L 49 THROUGH 64 CL 65 THROUGH 80 C~ 81 THROUGH 96

. .
s1;<.&DA &DA &De

.
Rl·GO&(LOl<N O)P s_v 9_Xl84)N 5(S

0£.+sR2;IE&(L01<N
01M_ &DA &"..··MC

O_Q Oo04C420065
. -
B9+H 0Eil40420066

T+/0?5>L T&=L TQOA
T+l'Plh; · E84C s: +·
. .
T+/R-1; ( 9() il".,. T+/ES& I (. 9XXL44C
T+/S05_PE&<xEo·s
T+/)<&(SNlMCH *I
. .
T+/-.·&OA &CA &OA
.
T+/-81 <N 1 ; .. p1 ·I
T+l'/3&DA · &c,: &DA
.
T+l'S>2JR 5)R-5_J

·&DA.&OA.&DA.&+s;
Tl ).f/il4C+f0) I TK4A
. i)n ·4ilMA & DA I 1 .,. 4@f!LT5UCRl*GO&(S Rlll<GO&C ~&DA &+$
l*·Ct<XCE4A &DC
.
Y&(XEO *.J ·&DA &DA US:( 4@PV1) ( ·NC
. . .
&DA GOA &OA 9_X
. .
.&CA &CA &OA &DA

.
Hl)N 8%PT&+LF&<X
.
&OA £CA &CA &DA
.
R&+SR2;jEK4A 9XT
05·1Et<XN&<TE94_ O<XN8@PR6;LP84C
D2·J 5)$T&<sco=L
I Ei:N 5( SO 1MCF5>L
.
&CA &Of &DA &DA

8:TP 1MC4&MA &DA
. .
&DA &OA Q<SUS*I S&<I05(...t.l;IEE4A
.
&CA &OCSilUCRl·I
ESMCF 1 UCHO)jT£<X
&CA &DA &DA &OA Pl)PC2)PG00CB2;(
R&<GF8~PR&I) 8XP
N1OCUSM_ £0A &OA &DA &DA 1<GTOMC

C.OA &DA £DA &DA Tt.+ .f44CU5·-E60A
&Of. &DA &DA &DA 06 *LS&+ $1 4 · C OXN Dt<l05(-..A6·PD&OA S&< .KE8SPTEt+CS:+.
&DA &DA &DA &DA Ml;I.&DCOS*IE&<x
&DA £DA £.DA &DA
i <xoc. <P084 ccs_L.
C!:_P08U_ SDA &DA
&DA &DA & CA &DA
T6·G~~%SE6MCR1·~

&D C>R&40420045 &F · Hi)40429046

T+/Z.:DCT5_R 4 1 5
.
T+/OF&DA &DA &OA

£(U " 11440420047

9_U ;#040420048

T+l'.@5;I.&DA &DA

&+H &A040420049

I
Tl) & 9H&40420050l

T+l'_2&+. Y6>IESDC

I

£0 3J-40420C51!
I
! N&(* ~ZY4042005~
I
I
&D Myt-140420053
S&C I!< PCH4o42C054

Ti"/?YO@GUBXPD&<·
- T+l'OT£<· YB@P S&<X
.
T+/l;&OA &OA GOA

!
o I
E&< N/<40·2ocss;
l
&O POU404200!:6

le
5( 0 9.IV4()4200 57j

··

! ('

£0 LJ*4042005B! .. ,

l (

&+H J li)40420059 1 !

IS>< 8 9 U40420C60,

N14_ &OA &DA &DA
.
t.OA &ll7·IE 2;1
3K4A Q<PNlDCCluC
.
8&<e't'8lilN 6·PCS_X

&DA &CA &DA &OC

Olil&

Ga>

="'7M£FI

c

s:+.tt>.J·.,._.&oA
.
OK4A &CA &DA &DA 3""Ll&<LAS@E 8%?
&D.t &DA &DA &OA Rl·GC9_X l6iU4
D
FX ASC R A

&CA £CA &DA &DA
&DA &DA &OA &OA
.
.£<LU6·XN14 CW6*X 5) ST &<GC8@XV l MC & ( PQ8i>N-£OCT 2<X
&CA &OA 5( SDHIC & B C9 EM
so Q

&.OA &DA &El-PFA
.
F5_jL.5>R l<XRl*I &OA £.DA &DA l+L
Al>IE6MA s·xAe;. S&<PR6) SR&< IASMC Rl+I 0)XE£(P064C E9·,EO=IE1DC05M_
AAE A M C
07090520750

·OEO ;.!1140420068 TZ)C Q C40420069
RS_& 78&40420071 Fl)U 6SY40420072 BlM JZ040420073 lil?- N8M40420074
Oilj l-M4~420076
613752$040420078

T+/Tll

0
)V

5@GR2

i

I

Y&<PR6)SR&OA &<.

oem, 6*PA10CA5·j

9_XIS@N S(S01MC Wl)XE&(SNK4A &DA

&O &1X404200e1,

T+l'UU4ii?Nl=IH&<I T+/\f-.1 )XR5_11.&CA

.
Nl;~Pl·ITl·.1 2)F

Tl)XA9(,TK4A &DA

Rlfll f;O

·· 40420062,
c
1 $M40420063

T+/Wt&DA ·&DA· £.DA

DATE

01AUG74

EC NO. 824765

lSNOV74 824870

16.IUN75 e2sos7

T&<GC8@XV1MCA1>j

E6MA &DA 6·PA1<X N14 &S-40420064

PROG ID
PAGE

404-2 18

c --~-----~---------~------------------------- LAST PAGE ----------------------------------------------~

DATE

01AUG74

EC NO· 824765

15NOV74 824870

l6.IUN75 825057

PROG IO PAGE

(

· · · · · · · · · · · · · · · · · ·(,· · · · · · · · · · · · · · · · ·

· ··

18M MAINTENANCE DIAGNOSTIC PROGaAN

PART NO. 2589915

PAGE

l

.. EOFl E<>F - 5203 PRINTER SYSTEM TEST llOOULE

('

, ER· LOC OBJECT CODE

ADOll STMT SOURCE STA'TE~ttt

Q···

2

DECK 1

0000

3 EOF

START 0

~AOC

·

UKG XiAOO·

5 6

*. .

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

...*****************···········*****.
SECTION PREFACE

.

.

.

.

.

..*.

T .,......,.****************************"*********·******************.,.**..

* * 8.

·

9

THIS AREA CONTAINS INFORMATION ~ECESSARV FOR SECTION OPERATION.

10
11 lZ 13

·**
*

THE PROGPAM IDENTIFICATION, FLAGS, FIRST ROUTINE ADDRESS ANO

*

ERROr ~ECORD!NG TABLE ADDRESS ARE LOADED BY ASSEMSLEO DATA. THE ·

CURRE;:· ROUTINE NllMSER IS SUPPLIED BY THE C::lNTROl PROGRAM. THE . ·

UNIT DEFINITION TAHtE, SPUT, IS NOT USED BY THIS SECTION.

·

14 ·

·

OAOO EOFl OA02 00 0103 01
OAOlt 0000 OA06 OA~9

OAOl
OA02 OA03 OAOS OAO'T

15 ..............................********************············.........

16 PROGIO 0C XL2 1 EOFl 1

PROGRAM IDENTIFICATION

17 SPFLGS DC

Xll 1 0 1

FLAGS

18 R..... 0C JL1 1 11

CURRENT ROUTINE NUMBER

19

DC Xl2 1 0'

NOT USED

20 FRTN DC AL2(RTN01)

ADDRESS OF FIRST ROUTINE PREFIX

OA08 OAOD OAOA E05000

* Ol09 il TABADR DC AL2lERRTAB)
OAOA 22 SPUDT EQU

OAOC 23

OC XL3'E050001

AODRESS Of ERROR RECORDING TABLE UNIT TABLE

24

c
OAOO 80

OAOD

25 · 26 . . ER~OR RECORDING TABLE. 27 ·
28 ERRTAB DC xu·eo·

....'.".
e

OAOE OC

OAOE 29

OAOF F5F2FOF3'tOD709C9 OAlA 30

OA17 05E3C509

30

OA18 80

OAlB 31

OAlC OF

OAlC 32

c

OAl) O~C1E2E340FJ40t3 OA2B 33

OA25 0604DltClDSCU2

33

DC Ill 112' DC Cll2 1 5203 PRINTER·
DC xu ·ao·
DC lll' 15' DC Cll5 1 LAST 3 COMMANOS·

OA2t 40

c

OA20 02 OA2E 0000

OA2C 34

DC

OA2D 35

DC

OA2F 36 OIDl DC

XLl 1 lt0 1 Ill 121
XL2'0'

000 40

OA30 37

DC

XU 1 401

OA31 02

OA31 38

DC

Ill. 21

OA32 0000

OA33 3'1 CMD2 DC Xl2'0'

Ol34 40

OAJlt t\-0

DC

Xll 1401

OA35 02

OAJ5 41

DC

Ill' 21

OA36 0000

OA37 42 CMD3 DC

Xl2 1 0 1

OA38 80

OA38 43

DC· Xl1'80 1

OA39 00

OA39 44

~-

OA3A 03ClE2E340F340C5 OA46 45

OA42 090906D9E2

45

DC

I l l 113'

oc Cll3'LAST ·3 ERRORS'

46

('.

OA47 80

OA41 47

DC xu·eo·

OA48 19

OA48 48

DC ll1'25·

c
c

OA49 40C3060404ClD5C4 OA6l .OA5 l E24040E7E7ElE740 OA59 E7ElE7E740ElE"c'E7 OA61 El

49 ECllOS DC
...49
49
50

CL25 1 COMMANDS xxxx xxxx xxxx·

OA62 80

OA62 51

DC xu· eo·

OA63 19

OA63 52

DC I l l ' 25 1

OA64 40C30240EZE3ClE3 OAlC 53 SllSOll DC

OA6C E4E240ElElE7E740

53

Cl25· CK STATUS xxxx xxxx xxxx·

OA74 E7E7ETE740E7E7E7

53

OAlt El

53

OAlO 80

54
OAlD 55

oc

Xll 1 801

0-7E 19

OAlE 56

DC 1u·zs·

c

OA7F 400709C905E34007 OA9T

OA87 06E24040ETE7ET40

OA8F OA9l

4n0ElE7El4040ElE'T

5"1 SllSllO DC 5'1
51' 51

CLZ51 PRINT POS xxx xxx xxx·

0

DATE

28JUt.69

c EC NO. 816444

28NOY69 816542

ZOJaTo
816~8

PROG ID
PAGE

OEOF-1
l

·
c

IBM MAINT~NANCE DIAGNOSTIC PAOGRAM

EOFl EOF - 5203 PRINTER SYSTEfll TEST MODULE

i o I

ERR LOC 06JECT CODE

!

'
l,..o,.....
rt>~

AOl>lt STMT SOURCE ~TATEftEffT

58

~H: 59

DC

lo

0

0
uuuu
lft6"
i
lo
! .·
I
;' 0
!
,,.,..10
i _.,,

0 0
0 0 0

0

0
I
lo
I '1"111<1 ! ~I/A Alf-I
Jo
10
I
0

0

DATE

28JUl69

EC NO. 81Mlt4

0

28NOV69 816542

20JAN70 81651t8

0

PAflT NO. 2589915

PAGE

lA

PROG 10 PAGE
..J .J

0

·~·' JBM MAINTENANCE DIAGNOSTIC PROGRAM
C'

PART NO. 2589915

PAGE

2

c EOFl EDF - 5203 PRINTBl SYSTEM TEST MODULE

...... ERR lOC OBJECT CODE

ADDR STMT SOURCE STATEftENT

('-
~
c
.{' :.~:.
'·c·itt
c
r
......
c.
"* J.
c~ti ....
,........
c
c
- ,j J J"' ·c~
C,
c c
.ti.JI
c.," \;~
c
-c
..(........".
c
:r--·
c

OA99 01
OA9A 00 OA98 FFFF

OHCJ ·OA9A OA9C

OHO

OA90 C2 02 OA9D

OA9D

OAAl 3C 40 ODC7

0AA5 3C ~ OOC6

OAA9 30 E3 ODC9

OAAO 38 Oft OOC9

OA81 f2 90 OF

OAB4 OC 2f OOC5 082F

OABA OC 51 0095 OOCT

OACO F2 87 OC

OAC3 OC 77 OOC5 0871

OAC9 OC 09 0040 0Dt:7

OACF 3C 00 0876

OA03 31 EO OCOA

OAD7 31 E4 DCDC

OAOB 31 E6 OCD£

OADf C2 01 0001

OAE3 34 01 OOC.8

OAEl 35 01 ODCB

OAEB 02 01 02

·z OAEE 7D 00 00
OAFl EO Bl

OAF4 34 01 ODCI

OAF& Cl EO OBOC

OArc 30 E3 ODC9

OBOO 39 E2 OOC9

o08so0s4

c3o9

Fl
10

oOeOaC28

OBOC 30 E3 ODC9

0810 39 E2 OOC9

0814 39 Fl OOCI

0818 CO 10 OCC8

OBlC 38 02 ODC9

0820 38 80 0006

0824 CO 10 OCCI

0828 3A 80 OD06

082C 30 E6 ODD3

0830 OC 03 OA57 OASC

0836 ot 03 OA5t OA61

083t CO 81' 021E

0840 02 0841 OA31

0943 OA-61

oB45 oc 03 OA'12 oan

0848 OC 03 OA77 OAK

0851 CO 87 021E

0855 02

OBSS

0856 OOC9

0857

0858 OA7C

0859

oa-;A oc 02 OA&D OA92

· 0860 OC 02 OA92 OA97

0866 OF 00 0003 CJCEl
oe6C o"' 20 OA97 oc;o-r
0872 (){) 20 OA97 ocoa

0878 Of 00 0003 OCIJii
087E co 01 0872

61 .......................................................................

62 63

*
..

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.R.O..U.T.IN.E**01··-··5·2·0·3*S·Y··S·T·E·M···.T.E.S.f.M..O.O.U.lE.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

..·.

64 ·

* 65

COMMANDS ARE ISSUED TO THE 5203 IN RANDOi <>ROER FROM A COMMAND

* 66

TABLE. SKIPS ARE TO THE NEXr LINE ONLV.

·
· ·

67 ·

·

68 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

69 RTNOl DC XL1'01 1

ROUTINE PREFIX

10

DC Xl1'0'

fl

DC XL2'FFFF·

72

USING 8EG1Ntl

73

USING BEGIN1 2

74 BEGIN LA 8EGIN1 XR2

75 - MVI PFIELD+l31 1 C' '

76

MVI PFIELD+1301C' '

LOAD BASE REGISTER PUT BLANKS IN PRINT AREA

77

SNS PSTAT,X1 E3'

78

TBN PSTAT,x·o4·

STORE PRINTER STATUS

79

JF LDl20

BRANCH IF NOT 48 CHARACTER CHAIN

80

MVt PFIELD+l29C48),lPIMAG+47 SET UP FOR 48 CHARACTER CHAIN

81

MVC PFIEL0+81(82) 1 PFIELO+l3l

82

J

SETPRF

83 LD120 MVC PFJELD+l29(1201,LPIMAG+l19 SET UP FOR 120 CHARACTER CHAIN

84

MVC PFIELD+9ClOJ,PFIELD+l31

85 SETPRF f1VI LPOATA-1,x·oo·

LOAD SYSTEM TEST FLAG.INTO PRINT FLO

86

LIO N112,X'EO'

LOAD PRINTER LSRS

a1

Lto xeoo,x·e~·

88

LIO X87t,x··E6·

89 FI~STC LA

90

ST

CMDTA8-2 9 XR1 CMDPTR,XRl

INITIALIZE POINTER TO COHMAND TABLE

91 LDPTR L

92

LA

93

Cll

.94

BE

CMOPTR,XRl 2teXR11 1 XR1 OC,XRl),x·o· FIRSTCC,XR2J

INCREMENT POINTER FOR NEXT COMMND
RE-INJTIAltZE IF THIS IS LAST
CO..MAND

q5

ST CMOPTR,XRl

96

TIO LPERR1X'EO'

97

s1.;s PSTAT,X9 E3'

98

TBF PSTAT,x·e2·

BRANCH I f ANY PRINTER ERRORS/NOT ROY STORE STATUS

99

TBF PSTAT-1 9 X'F7'

100

BT CKBUSY

BRANCH If NO ERROR.STATUS

101 LPERR SNS PSTAT,X·~1'

STORE STATUS

102

TBF PSTAT,X'E2'

103

TBF PSTAT-1 1 X·F7·

104

BT GOOUT

If NO CHECK CONDITIONS, GO EXIT

105

TBN PSTAT,x·o2·

106

TBN FLAG,x·eo·

107

BT GOOUT

108

SBN FLAG1X'80'

SKIP ERROR MALT IF UNPRINTABLE CHARACTER ERROil AND HAS ALREADY BEEN INOIC·TEO

109

SNS PSTAT21X1 E61

STORE LPDAR

110

MVC EtMDS-lOC4),ECMOS-5 PUT LAST .COMMAND IN PUSHDOWN TABLE

Ill

MVC ECMOS-5(41tEC~OS

Of ERROR CONMANDS

112

8

UNPACK

113

DC IL1 1 2 1

114

OC AL2CCMD3J

115

DC

ALZCECMOS)

116

MVC SNS011-10C411SNS011-5 PUT CHECK STATUS JN PUSHDOWN TABLE

117

MVC SNS011-5t4) 1 SNS011

118

B UNPACK

PUT STATUS IN ERROR TABLE

119

DC Jll·z·

120

DC ALZCPSTAT)

121

DC AL2CSNS011)

122

MVt SNSllO-lOCJJ,SNSllo-5 PUT PRINT POSITION IN TABLE

123

MVC SNS110-5C3),SNS110

124

SLC PSTAT2(1) 9 X78

125

ZAZ SNS110(3) 1 0lEROC11

126 PPLOOP AZ SNSllOCJl,OONECll

121'

Slt PSTAT2Cl) 9 0NE

128

BNZ PPLOOP

(. DATE 28.JUt...f:.9
c Et NO. 816444

28IDl69 816542

20JAN'TO 8165't8

PROG ID PAGE

OEOF-1 2

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. 2589915 ·

PAGE

ZA

I

E~Fl EOF - 5203 PRINTER SYSTEM TEST MODULE

jO

j!~~ ERR lot OBJECT COOE

ADDR STMT SOURCE STATEMENT

lo

** 129 ·

** 130

THE FOLLOWING CODING DETERMINES MHICH FAILURE HAS OCCURRED ANO

131

SETS UP THE PROPER HALT CODE.

132 ··

133 ··

04 - CHAIN SYNC CHECK.

134 ··

05 - INCREMENTER SYNC OR SLIP CHECC.

135 ··

06 - INCRE MENTER FAl LURE CHECK.

136 ··

09 - HAMMER Et.HO CHECK.

0

137 ·· 138 ··

OA - ANY HAMMER ON CHECK. 07 - THERMAL CHECK.

139 ··

01 - CARRIAGE SYNC CHECK ·

l~O ··

02 - CARRIAGE SPACE CHECK.

141 ··
142 ·· 143 ··

03 - FORMS CHECK .JAi'. 08 - NO l'.'P STATUS BIT SET tllTH NO OTHER ERROR. OC - UNPRINTABLE CHARACTER SltlPPED.

144 ·

0882 C2 01 OCOF

145

LA SNSTA&-3,JCRl

POINT AT TABLE OF SENSE /ffALT IMFO

0886 02 01 03

()

0889 lC 00 0894 00

146 SNSLP LA 3(1XRU1XRl

INCREMENT TO NEXT ENTRY

147

MVC CHECKl+lClt,oc.xRll IUJVE MASK TO CHEClt NEXT ERROR BIT

OB~E lC 00 0898 01

148

MVC CHECK2+1Cl).1C,T.a11

0893 39 00 OOC8

149 CHECKl T8f PSTAT-lt*-·

CHECK TO SEE IF THIS JS EtlROR en

0897 39 00 OOC9

150 CHECK2 TBF PSTAT,._.

OETECTEO

··lt'IJ!.·
·.~....,·;

0898 co 10 0686 089f lC 00 OSA9 02
OoeBAAe4 CEOooo87 0222

08A9

151

BT

152

MVC

153 OOHAl.T 8

154 PHALT OC

SNSlP PHALTC1t 1 2C,XR11
HALT
xu·Eooo·

CONTINUE IF flOT
FClJftO IT - SET UP HALT ERROR HALT

OBAA 3C 00 0878

0

oue co 11 occa

155

MVI LPOATA-1,x·o·

156

8 GOO UT

0882 Cl E6 0889

157 CKBUSY TIO I SBUSY,X' E61

0886 f2 87 14

158

J

CK CARR

0

0889 OF 01 0005 OC04

159 ISBUSY SLC TIMOUT '21 ,GIE

0&.1F CO 01 OCCB

160

BNZ GOOUT

oec3 co 87 0222

161

8

HALT

0

08C7 EOllt

08C8 162

DC

XL2 1 E0141

osc9 co a1 occ8

163

8

GOOUT

OBCD 38 80 0209

164 CK'ARR TBN SBYTE1,ss11oe

()

0801 f2 90 07

0804 30 eo ODCO

165

JF SLEFT

166

SNS LCIS1X·EO·

EXIT IU>ULE BRANCH IF.PRINTEA BUSY GO ISSUE CORMANO IF NOT BUSY GO BACK TO SUPERVISOR IF NO TllEOUI
-ausy TOO LmlG
EXIT SUBROUTINE SET UP TO CHECK LEFT Ott RIGHT CARil,
LINE COUNTER DEPENDING ON SSW08
-tUGtlT CARRIAGE

OBD8 F2 81 04

0

0808 30 EO ODCE

167

J

CKDCP

169 SLEFT SNS LCIS·l,X·ECt·

-I.EFT CARRIAGE

......... ~. .~c.,.,,. "'
-~
0

OBOF 30 FF 087B
OBE3 F2 81 OA OBE6 OC 00 OOCF ODCD OBEC 3C FF 0878

169 CKDCP CLI

no

.1e

111

INC

172

MVI

LPOATA-11 X'FP CKLINE
LCSBUl.LCIS
lPDATA-l,X1 FF1

BRANCH IF DCP DID NOT PRINT NO OP LINE COUNTER CHEG

OB Fe> OD 00 ODCD OOCF

0

08F6 F2 81 50

173 CKLt N£ CLC LCISClltLCSB

ll't

JE LDCMO

CHECK LINE COUNTER

OBF9 04 20 0035 OCD7

1'15

lAZ LCERR-1313110ZEROCll

OBFF 04 20 0041 OCDl

176

ZAZ LCERR-1131,0ZEROCll

0

OC05 OC 00 0001 ODCO

171

MVC wou.cu.LCIS

SET UP ACTUM. LINE COUNl'ER

OCOB 06 20 0035 OCD8

118 !SLOOP AZ LCERR-13C3J,DONEC11

c

OCll OF 00 0001 OC04
ocn co 01 ocoe

179
180

SLC WORKlU 10llE
BNZ I SLOOP

OC18 OC 00 0001 OOCF OC21 06 20 O~l OtD8

181

MVC WORKCll.LCS8

182 SRLCOP AZ LCERR-lC3J,PONECll

SET UP EXPECTED LINE COPITER

OCH OF 00 0001 OCOlt

lU

St.C WOR«C U ,ONE

Oc.20 CO 01 OC2l

184

8NZ SBLOOP

OC31 CO 87 02 U

0

OC35 CS

OC36 27

185 OC35 186 OC36 187

8

P1lJRT

DC

XL1 1 C51

DC lll·H·

PRINT LI NE COUNTER ERROR
tESSAGE

OC37 0042

OC!8 188

DC AUCLCERRI

0

OC39 E033

c

OC38
OCJF

eCOon8l

0222

OC41 JC 00 0816

OCJA 189 190
OC40 191
1~2

DC

Xt-21 £0331

8

HALT

DC

XL2'£0331

lllVI LPOATa-1.x·o·

HALT Oii EMC>a SET UP TO SKIP NEXT UflE CTR CtECI.

OCltS CO 81 0882

193

B CltBUSY

OC49· 35 01 ODC8
OC40 1c· 01 OCCl 01
OC52 78 02 00

194 LOCMO L

CfllOPlR,XR.l

195

MVC STitTI0+2C21tll1XRll

196

TBN oc,xau.x·02·

LOAD POINTER FOR THIS COIUIAll>
MOVE INTO COMMAND BRANCH IF NO PRINT

0

DATE

28JUL69

EC NO. 816"4

0

28NOV69
816542

20JAN70 816548

PROG 10 PAGE

OEOF-1 2l

L c 11" ;n

0

..... 'I~
c

· · · ·

·· · · · ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM (

PART NO. 2589915

PAGE

3

EOFl EOF - 5203 PRINTER SVST9' TEST MODULE

(

ERR LOf. OBJECT CODE

ADDR STMT SOURCE STATEHENT

OC55 F2 90 12

197

JF CKSKIP

Ot58 oc 00 01>43 OOCl

198

MVC PFIEl0-l(l),PFIELO+l31

RIPPLE PRINT FJELD

OCSE oc 83 ODC7 OOC6

199

MVC PFIELD+l3lll32)1PFIELO+l30

OC64 oc 83 08FF OOC7

200

MVC LPOATA+l3l(i32),PflElO+l31 MOVE TO PRINTOUT AREA

OC6A 70 FF 01

ZOl tKSKIP Cll 1C,XR11,X 1 Ff 1

3RANCH If NOT SKIP TO NEXT lINE

OC60 F2 01 18

202

JNE SETLC

OC10 OE 00 OOCF OCD't

203

ALC LCSBCl),ONE

OC76 OC 00 OCCl OOCF

204

KVC STRTID+2C U ,LCSB

SET UP TO SKIP TO HEXT LINE

c

OC7C 30 70 OCCl
ocao F2 04 18

205
l-06

CLI STRTl0+21112
JNH LOETAB

IS WE OVERFLOW LENGTH, SET UP
TO GO TO LINE l

OC83 3C 01 OC.Cl

207

MVI S'fRTI0+2, 1

c

OC87 3C 00 ODCF OCBB OE 00 OOC.F OCCl

OC91 30 70 OOCF

208

MVI

Z09 SETLC ALC
no CK112 tLI

LCSB,O LCSBU >t STRTJ0+2 LCSBtll2

SET UP EXPECTED LINE COUNTER TO WHAT IT SHOULD BE AFTER THIS COMMAM>

c

OC95 f2 04 06 OC98 OF 00 OOCF OC92

OC9E 38 80 0209

211

JNH

212

SLC

2l3 lOETAB TBN

LOE TAB LCSBU >,U.U2+1 SBVTEl,SSWOB

TAKE CARE OF CROSSING LINE 112 PRINT USING RIGHT CARRIAGE IF sswoe

OCA2 F2 90 Olt
OtAS 3A 08 occo

21.tt

JF

. .1

215

SBN STRTio+lt>x·oe·

IS ON

OCA9 38 80 0006
OCAD oc 01 OA2F OA33 OCB3 oc Jl OA33 OA3l OCB9 oc 01 OA37 OCCl
OCBF F3 00 00

216

SBF

21T

MVC

218 ·

MVC

Zl~

MVC

220 STRTI 0 S IO

flAG,X1 801
CMDl C25 oCMD2 CMOZ ( 2) .,CM03
·-·,*-· CHD3C 2l t STRT!0+2

TURN OFF UPC FLAG PUT THIS COMMAND IN PUSH-DOWN TABLE
00 COMMAND

'......

OCC2 OC 01 0005 OCEO
occe 30 EO OAOO

221

. MVC Tl MOUT ( 2) , TI ME

222 GOOUT CLI x·Aoo·,x·eo·

SET UP BUSY TIMEOUT CHECK TO SEE IF SECTION RELOCATED

c

OCtt CO 01 OAOA OCOO EO 87 4A

223

BNE ENTRY

224

B

LDPTR( t XRZJ

YES, GO TO SYSTEM TEST SUPERVISOR NO, REMAIN IN TEST

225

c

OC03 0001
OCD5 0002

222276 ***C*ON*S·TA··N·T·S···*·**$*1Mr**·***·****************·***********··*..*"'***e..**** OCD't 222289 ·O·N·E·····O·C·*··IL2·1·
OCD6 23Q TWO DC ll2'2'

OCDl FO

OCD7 231 OZERO OC Oll'O'

c

ocoe Fl
OCD9 '7070
ocoe oaoo

OCD8 232 DONE ot OCOA 233 Nl12 .DC
ococ 234 xeoo oc

Dll'l'
Xl2'7070 1 XL2'81:>0'

OCOO 087C

ocoe 235 xeic DC XL2'87C·

.. ,, ..t I I 'i
c

llCDF 1770

OCEO

OCEl 1'8

OCEl

OCE2

OCE2 0080040040051000 OCF6

236 TIME DC

237 Xle DC

238 SNSTAS EQU

Z39

DC

ll2 1 6000'

*XL1·1e·

TABLE OF ERROR STATUS/HALTS

Xl21' 008004004005100006C·4000902000A0021)07800001'

OC£A 0604000902000AOO

239

c

oc '2 2001800001

239

0Cf7 4000022000030100 0002 240

Xll2'40000220000301000800020C'

OCfF 0800020C

240

. 241 ·

c

242 ·· TABLE Of CORMAMOS.

c

0003 E201

243 ·

OD03 2~ CMDTAB EQU

OD04 245

DC

·
Xl2'E201'

PRINT & SPACE 1

,., 4 I

0005 E202

0006 2~6

DC

XL2 1 E202 1

PRINT l SP.ACE 2

.,~,

0007 E2Cl

0008 247

DC XL2'f201'

0009 E203
0008 E201

ODOA 248
oooc 24t9

Dt XL2'E203' Dt XL2 1 E201'

' PRINT SPACE 3

ODOO EOOO

OOOE 250

DC XL2'E000'

SPACE 0

OOOF EZOl 0011 EOOl

0010 251 0012 252

DC Xl2'E201'
Dt n2 ·eco1·

SPACE 1

0013 E201

0015 E6FF

ODll £201

c

0019 E4FF 0018 00

0014 233 0016 2'54 0018 255 ODlA 256 0018 257

DC XL2'E201'

Dt

Xl2'E6FF 1

DC n2·e201·

DC

ll2'E~FF·

oc Xll 10'

' PRINT SKIP TO LINE xx
SKIP TO LINE XX

0

............. 258
259 260

............. · PRINTOUTS ·············:tr·························*""·**·..···~···

261

IBM MAINTENANCE DIAGNOSTIC PftOGRAR

PART NO. PAGE

2589915 3A

£0Fl EOF - ~20~ 'RINTER SYSTEM TEST MODULE

ERR lOC OBJECT CODE

AODR STMT SCURCE STATEN:HT

: c..........~
! .. '()..
I
I
0
0 10
. o.l .....<C
~ !
1! 0
0 0
0
o·
0
'.:.Ht.i
·:tol.:J,"'
0
'O

OOlC 03C905C540C306E4 0042 262 LC ERR oc Cl39 1 LINE COUNTER ERROR. IS XXX. SHO BE xxx.·

0024 D5E3C50940C5D909

262

002t D6094840C9E240E7

262

0034 E7E74B40E2C8C440

262

003C C2C540E7E7E748

262

oou
OD'tlt
ooca
ODCA ODCC
ooce
OOCF

*.$$· 263
264 ...............

0043 0044

265
226676 268

.*P.FIR.E$ELS*DER*VOE*EQSD*U ·S·T·OC··R·l·A·lG··E--*·**·.

. ******'"'***..-**·······.,.*-***··········--····
O~Prt BYTE FOP. RIPPLE PRINTER WORK FIELD

ODC7 269

OS Cll32

OOC9 270 PSTAT OS
ooca 27! CMDPTR OS

CL2 Cl2

ODCD 272 LCIS OS cu

PR.INTER STATUS
COM"ANO TABLE POINTER ACTUAL Llh"E COUNTER

ODCE 273

OS

ODCF 274 LCSB OS

Cll
cu

EXPECTED l !NE COUNTER

ODDO

0001 275 WORK OS Cl2

0002

0003 21'6 PSTAT2 OS CL2

OD~
0006

... ...... 0005 217 TIf\OUT OS tl2
0006 218 FLAG OS tll
.,. 219
280

............ 281 · EQUATES ****~***·***************~****-***************'***,...*"'*
282

0010 283 IAR
0008 284 ARR. 0001 285 XRl

EQU 1·10·
EQU x·oe· EQU x1 01·

INSTRUCTlON ADDRESS REGISTER ADDRESS RECALL kEGtSTER IH:JEX REGISTER 1

0002 286 XR2

EQU 1·02·

INDEX REGISTER 2

287

0208 288 SBYTEO EQU x· 2oe·
0209 289 SBYTEl EQU x·209·

FIRST BYTE OF COMMON SENSE SWITCHES SECOND BYTE Of COMMON SENSE swncHES

020A 290 SBYTE2 EQU X1 20A1
0206 291 SBYTH EQU x·2oa·

FIRST BYTE OF SECTION SSW$
SECIND BYTE OF SECTION SSlfS

0212 292 TEST EQU x·212·

SR.T ENTRY TO CHECK CONSOLE SWS

0216 293 LINK EQU X'Z16'

- ENTRY TO CHAIN ROUTINE

021A 2<i4 PRINT EQU X'ZlA'
021E 295 UNPACK EOU x·21e·

- ENTRY TO PRINT - ENTRY TO CONVERT HEX TO EBCDIC

0222 0226 0232
0800

296 HALT EQU 297 PACK EQU
298 UTAB EQU
299 LPlMAG EQU

1·222·
x· 226' Xx·'a2o3o2·'

- ENTRY TO HALT ENTRY TO PACK EBCDIC TO HEX OCP UNIT TABLE
FIRST BYTE Of 5203 PRINT IMAGE FIELD

081C 300 LPDATA EQU X'87C'

FIRST BYTE OF 5203 PRINT DATA FIELD

0004 0080

· 301
302
· 303 ·· SENSE SWITCHES.
304
'3:>5 SSW05 EQU x·o1t· 306 sswoa EQU x·eo·

PRJHT ON MFCU USE 5203 RIGHT CARRIAGE

301

OAOA 308 ENTRY EQU x·AOA1

MULTJPROGRAMftlNG ENTRY

OA90 309

END BEGJN

0

0 0
:o

--

OAH 28JUL69
c EC NO., 816"44

2oNOVb9
~U!A2

PROG ID
PA~E

OEOf·l 3

0
It-Ii I ·.lnA
9

DATE Et NO.

28JUU)q 8lbl.IJ4*t

28NOVMI 3165#+2

20JAtHO 816546

PRC!G Hl
~AGf

L

.J
0

0

IBM MAINTEHANCE DIAGNOSTIC PROGRAM

eon EOF - 5203 PRINTER SYSTEM TEST MODULE

CROSS-REFERENCE

SYMBOL T LEN VALUE OEFN

R£F~RENCES

ARR c 001
C' BEGIN A OOlt

CHECKl A OOLt

c CHECK2 A 004 CKBUSV A OOLt

CKCARR A 004

CKOCP A 004

CKLINE A 006

CKSKIP A 003

CK112 A 004

CMC>PTR A 002

CMOTAB A 001

c CMDl A 002 tM02 A 002

CM03 A 002

c .t>OHALT A 004 DONE A 001

DZ ERO A 001

EC MOS A 025
ENTRY c 001

ERRTAB A 001

EOF A 001

FIRSTC A 004

FLAG A 001

c FRTN A 002 GOO:.JT A 004 HAlT c 001
c IAR c 001 ISBUSY A 006

.,,,-

c
.,c,.,..

ISLOOP A 006 lCERR A 039
LCIS A 002 ltSB A 001 LDC MD A OOlt LDETAB A 004

LDPTR A 004

c LD120 A 006 LINK c 001

LPDATA C 001

c LPERR A OO#t lPIMAG t 001

Nll2 A 002

c.. ONE A 002 PACK c 001
........' Pt=IELD A 001 c PMALT A 002

PPLOOP A 006
c PRINT c 001 PROGJO A 002

PST AT A 002

c PSTAT2 A 002 RNUM A 001

RTNOl A DOl

c SBLOOP A 006 SBYTEO C 001

SBVTEl C 001

SBYTE2 C 001

S8VTE4 C 001

SETLC A 006

SETPRF A 004

SLEFT A 004

SNS LP A 003

SNSTAB A 001

SNSOll A 025

SNSllO A 025

0008 OA9D 0893
0897
0882 OBCD
OBDF OBFO OC6A OC91 OOCB
0003
OA2F OA33 OA37 OBA4 ocoe OCD7 OA61
OAOA
OAOO
0000 OADF ODD6 OA07 OCC8 0222 0010 0889 OC06 0042 OOCD
ODCF
OC49 OC9E OAE7 OAC3 0216 087C OBOC 0800
OCOA
OCDlt
0226 OD"tlt
OBA9 0812
021A
OAOl
ODC9
0003 01.03
OA99
OC2l 0208 0209 020A 0208 OC88
CACF
0803 0886 CCE2
OA7C OA97

OZ84 001... 0149 .·
0150 0157 0164 0169 0113
0201 0210 0271 02Lt4 0036 C039
0042
0153 0232 0231 0049
0308 0028 0003 0089 0278
0020
0222 0296
0283
0159 0178 0262 0272 0274 0194 0213 0091 0083 0293 0300 0101 0299 0233 0229 0291 0268
0154 0126 0294 0016 0270 0276 0018 0069 0182 0288 0289 J290 0291 020CJ 0085 0168 Ollt6 0238
0053 0057

c

OATt:

28JUt69

EC NO. 816.it4t~

28NOV69 816542

0012 0073 0074 0309 0141· 0148· 0100 01C}3
0158
0167
0170
0197 0212
0()90* 0091 0095· 0194 0089 0211· 0217 0218· 011~ 0218 0219·

0126 0125 0110 0223
0021

0178 0182 0175 0176 0110* 0111

0111· 0115

0094 0106 0108· 0216·
010~ 0107 0156 0160 0163 0153 0161 0190

0157 0180
0175* 0176* 0178· 0182· 0188 0166* 0168· 0171 0173 0177 0171· 0173 0181 0203* 0201t 0174
0206 0211
0224 0079

02 oe· ozo9· 0210

0085* 015S· Ol6V 0096 0080 0083 0086 0127 0159 0119

0172· 0192* 0200* 0183 0203

0oi0olo5· 0076· 0080· 0081
0152·
0128 0185

0081· 0083· 0084

0084* 0198

0077· 0018 0097* OO'l8 0099 0101* 0102 0103 0105 0109· 012~ 0127·

0020 0184

0164 0213

0202
0082 0165
0151 Ol4S 0116 0122

0116· 0117 0122* 0123

Oll'l* 0121 0123· 0125* 0126·

20JA1'70 816548

L,

PART NO. PAGE

2589915 4

f·....~....·..,
;Q
i
0

IBM MAINTENANCE DIAGNOSTIC PROGRAM
0

,l...,.,.0...,...... 0

EOFl EOF - ~203 PRINTER SYSTEM TEST MODULE

SYMBOL T LEN VALUE OEFN

CROSS-REFERENCE
REFERENCES

0 0
0
\
lo
10
l=g:

SPFLGS A 001 SPUOT A 001
SSW05 c 001 SSW08 c 001
STRT!O A 003
TABADR A 002
TEST c 01)1
TIME A 002
TtMOUi A 002
TWO A 002
UNPACK c 001 UTAS c 001
WORK A 002
XRl c 001

XP.2 1(78
X.800
X87C

c 001
A 001
A 002
A 002

OA02
OAOA
0004 0080 OCBF
OA09
0o2ce1o2
0005 OCD6 021E 0232 0001 0001
0002 OCEl
ococ
ocoe

0011 0022 0305 0306 0220 0021 0292
0236 0277 0230
02c;5 0298 0275 0285
0286 0237 0234 0235

016.ft 0213 0195· 0204· !>205 0207· 0209 0215* 0219

0221
0159· 0221·

0112 0118

0117· 0089*

0179·
uo9o

0181· 0091·

0183· 0092

0092·

0093

0152 0194· 0195 0196 0201 0074· 0094 022~

0124

008T

0088

0095

TOTAl STATEMENTS FLAGGED IN THIS ASSEMBLY c

0

I
jo

0

0198· 0199 0199*

0
i o j ~ ' .

0120 0149 0150

'O
; ..t.t!it·
WJ!!">P.
0

PROG ID PAGE

10
l! o

ttoft ·' 0
IIWU:-U

lo OEOF-1 It 0

DATE

28JUL69

EC NO. 816"4.4

28NOV69 81651t2

20JAN'10 8165.ltS

0145· 0146

PART NO. 2589915

PAGE

4A

0146· 0147 0148

PROG 10 PAGE

OEOF-1 u

c

··

--· ·- · · · · · · ·. ·- -~---.-e
H4 ~~'a- ISM MAINTENANCE DIAGNOSTIC PROGRAM
I ~

.-.-.~-·-~r·
PART NO. 2589'115

PAGE

5

EOFl EOF - 5203 PRINTER SYSTEM TEST MODULE

OBJECT EARO LISTING
c THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.

.,,.C Cl 1 THROUGH 16 CL 17 THROUGH 32 Ct 33 THROUGH 48 Cl 49 THROUGH 6~ Cl 65 THROUGH SO CL 81 THROUGH 96

'A~I

C SBiPOlUA·&·e··· 7 P··············· ·~············a~ e·o$·····~··&··o ······O·······~·

I PYKEOFlOOOl

c
c

T+ · VBBIO t ezu
.
·r+-Z3CllA8>( i4C
. .
T< 1SC*U8A 11az

Ht;A& H <· .oa4C
-· E6JX06;H F~CC5_L
. ..
X-AV 5 1 XI5;1 5·$
IC5«(1&-?CEOfV&7

P6·XN8iPR- · 111ua.
.. MO)PDSUA 9c,X~4C
S&DCX9·) &+~X94A
.
G4Y*<CG*Cl&/7C U

nit · 0 1 SM5<GNl+I
X9"'~Xt+~X9:; FMC
.. . -
9=...x~oo '""'8 -o
CL&7GI H;3G-ClY

t · · · e · H· · D · B · · B
. C4UCS8@GT9+I 9·~
. . ..
>ID H31 C~QOSO
. .-
19 3*<~ ?H2</Flt

· · · UG·HOEOF10002
X94 70<EOfl0003
..
.( C lSO«EOF10004
KC MA;KMEOFlOOOS

I
I

1

dHEB( · oczas-soo 0807I+;H(2lX7C·T D >2< e · ?H- 2$TG1t +S-QB)l · EOF10006

c
"'"""~
(l
c
c
c
C-

.
. . T. t9807I+;H(2LX
T.&_XBWG /OH; -Y
· T. >HCJ<<B&&-BZ·
T<&?FC·-9 7IOA
.
T<O? :BAL /03H+H
THOOWCLM<SO&-CMO
. .

.
7C·T D 3H+ H(2LS
. .
7BWD< OZ28X·< OZ <500-BZ·<6 i CJ<
.
.. /lo B: USOHli<BH>
. . <500 CtOC3&Q-CLM

.
C>S D 3H+V (5TC
. .
1sx3 /OHi -nsxo

·

·

<5< AB7.8 tl-.lt-0

H;i8GC<TA9->

. .
<6 a CtO<S< AC ~

. .
WCI<< CZPBVO< OZ

< e -D- (SlH< · -D- KBZ*

CG

.v

*

·
>Q LU

9iY*HCOOC5&3MO D
. C·uf3l3"BGit 7
< 7JC*2FH 5ACC-

... - *

.S-WH/8EE/H

t HKMTGlltOEA

. . ·····-HK&lFJMtt04
<2<BG SH .KUXHAO

.
CC·"2-N OH >.BE

·-H2UVHlaSFJMlCOlt

. +8-QB2JYEOF10007
+B--AK. EOF10008 IAO<AOQ·EOF10009 f B&MA&l~EOF10Q10
.
SEl EHS~EOflOOll IAO<A3SOE0fl0012

i
I
~ t
[

T<-lRCO (4&3MO 0 <H·BG /,El05B8CI

c c c

T.-2HCM<ll02CC··
. T.&26C·a+ 71C<O

. Cl-2CBli1177" ~H
. . . '* lli-&FCO l302

. .
AF08 C·i<5 0 C<D
.
K+H BfhH&ACYHt<
.. -

.
(3350C<G2AA'a &3 Al
. .- .
t- lCC OH.OV3C D H<O

ZIKO JB&MCNZ&EOF10013
BOVHJm$Fta IAO<A·taEOFlOOl~
84Zl2<~EAH .AOMA-.HYEOF10015

c

. . ...... . . . . . Tl&3IBT·< tY7C<G 3 < &7NC+ 1 8 Y 0 DHB>BGK- A · OSPAOB H-tA)O;OB A A AJ A-& A +AOMA&aQEOF10016

T+-4XB&H 8- -AB

M S OD £ ~C+HAB-.S ;HCS-G - +HAS GS ;$·8-G U"Otl2tPE&<f09(P TlJU EIHEOF10017

....... lf-5B&<PR6,SRK4C I8UCX9·).t+.H1DC BlMCX9=).

················ .·.......·..··..

c

....... ... 72DEOF10018

Ft

ASC

R A SO

Q··········

...··.... 1011690

l267008QEOF10019

· · ·

--- -- -----------------------
'.

- - - - _ . . ; . _ _ - - - - - - - - - - - lAS'f PAGE - - - - - - - - - - - - - - - -

DATE

28JUL69

EC NO. 8 l64ltlt

('

28NOV69 816542

ZOJANlO
8165·8

PROG 10 PAGE

OEOF-1 5

L

J
J

· . ......; ....._. ...... ·.yt... ·_

-·. ·-· ········ ·-· ····················

· · · · · · · · · ·· · · · · · · · · · · · · · · · · .- · · · · · ·

JBfoi MA INT tNANCt: OU~OSTIC PROGRAM

PART NO ..
PAGE

2589951 1

ECll3 5203 llNE PfCJNTER FUNCTION TESTS

ER~ LCC OSJfCT CODE

ADOR STMT SOURCE STATEMENT

0 AOO

OAOC E013
C,A02 00
OA03 O! OA04 0000
0 AOb OAOF
OA08 lf91 OAOA E05000

OAOl OA02 OA03
OA05 OA07 OA09 OACC

OAOD 0101

OAOE

OAOf 01 OAlO 00 OA 11 OA93

OAOF OAlO OA12

OA13 38 01 OAOC
f>Al7 F2 10 Olt
0 Al.\ ::c 00 OAOE
OA lE 30 EO lf 95 0 A22 (;O 0 l lf95 OAOE OA28 fZ 81 25
OA2B 38 04 0208
OA2f F2 90 18
OA3l co &7 021A
OA3b Cl
OA37 I 0
OA38 1884t
OA3A E030 0-AJC CC 01 l 801 1807
OA't~, CO 87 021A
OA'tb 81 OAlt 1 QA
0 A48 lBDl
OA4A CC 87 0222 OA4E E 030 0 A50 Cl E2 OASlt OA~.ft 30 f f 0878 OA58 f2 01 Ott
OA58 3C 39 OA63
OA5F 30 I: 3 lf 93
0 Ab3 38 04 lf93 OA67 f2 10 25 OA6A 39 0'9 0208 OA6E F2 90 16 OA 11 C 0 87 021A OA75 Cl OA1t. 25 OA 11 lC g:;
0 A79 l:OOE
OA78 OC 01 18Dl lBDF
OA 81 CC 87 021A
OA85 81

OA36 OA37 OA39 OA38
OA'46 OA47 0Alt9 OA4f
OA 15 OA76 OA78 OA7A
OA85

2

DECK 4

3 E013 START X'A00 1

* 4 ···························$·~·····********~$···****·*··········*******

5 ·

SECT ION PREFACE

6 ·························****·****$********~··~···*····$$~·*****·······
* 7 · THIS AREA COtvTAINS INFORMATION NECESSARY f·OR SECTION OPERATIQN.,

* 8 · THE PROGRAM IDENTIFICATION, FLAGS ANO fI~ST ROUTINE ADDRESS

* * 9

ARE LOADED BY ASSE~BLEO DAT A. THE CURRENT ROUTINE Nll'8ER IS

* 10 · SUPPLIED BY THE CONTROL PROGRAM. SECTION UDT ENTRIES ARE

* 11

DEFINED PARTIALLY 8Y THE SECTION SO THAT THE CONTROL PROGRAM

·

* * 12

CAN SUPPLY OPTION BYTES.

13 ········*················**********************************************

14

Dt Xl2 1 E013'

PROGRAM lOENTIFICATiON

15

oc

Xll 1 0 1

FLAGS

16 RNUM DC

XL l t l 1

CURRENT ROUTI NE NUMB ER

17

DC

Xl2 1 0 1

RESERVED

18

DC

AL2(RlNU

ADDRESS OF FIRST ROUT1;4e PREFIX

19

DC

AL2(ERTU

ADDRESS OF ERROR RECORDING TABLE

20 SPUOT OC

Xl3' E05000'

UNIT OEFINIT ION TABLE - PRINTER

21 ~$····························****************·············************

* 22 ·

* 23 ·

ROUTINE l - SENSE COMMAND TO PRINTER

2 It ·

(RESTORE CARRIAGE CS> BEFORE EXECUTINGt

·

25 ·

*

l2.76 ·E·X·P··!2····D·C······X·l·2·1·0·1··0·1·'················******·········*··············

28

29 RTNl DC

30

DC

31

DC

xu ·i ·
Xl l '0 I
Al2 CRTN2)

RWTINE NJMBER
FLAGS ADDRESS OF NEXT ROUTINE PREFIX

3332 ·······T·B·N····S·P·U··D·T·,8·1·1·*1 *******~****D*U*A*L**F*E*E·D···················*·····~··

34

Jl NIGEB

35

MVI EXD12,x·oo·

36 NIGEB SNS

37

CLC

STAlX,X 1 E0' SlAIXC2J,EXPl2

SENSE FOR CARR.LDC ..
ARE LINE COUNTERS Ai LiNE l

38

JE

SPALT

JUMP OVER HALT

39

TB~ SBVTEOtSSW05

PR I NT ON MFCU

40

JF GR.ALT

41

B

PRINT

PRINT 1CMD DECODE ERROR'

42

DC

XL1 1 Cl 1

4 3

DC

IL l '16'

44

DC

Al2CREOOP)

45

DC

Xl2 1 E030 1

46

HVC MAP(2t,CHT13

PUT CHART NO. IN MSG.

47

B

PRINT

PRINT PROCESSC'R CH<..MSG.

48

DC

xt 1 1 81 1

49

DC

ltJ 1 10'

50

DC

ALtC MAPI

51 GRAL T B

HALT

INVALID 'N' FIELD IN SENSE COMO.

52

DC

Xl2' E0301

53 SPAlT TIO JEXT,PBBUSY

54 JEXT CLI UCSFLG, X·FF 1

120 CHAR.I NAG

55

JNE SE STAT

56

MVI -EC'.i81tX'39'

SET TEST FOR BIT OFF

57 SESTAT SNS STAT6,X'E3'

SENSE STATUS BYTES

58 lECHBl l~N STAT6,8'100'

TEST 48 CHAR.BIT CN OR OFF

59

Jl

GKYOOK

bO

TBN SBYTEO,SSW05

PRINT ON MFCU

61

JF HALIT

62

B

PRINT

PRINT CHAIN CHK.ERR

6 3

DC

Xll 'C1'

64

DC

lll'37 1

65

DC

AL2(CHACHE3

66

DC

Xl2'EOOE'

bl

MVC MAP C2 t 1 CHT19

PUT CHART NO. IN MSG.

68

8

PRINT

PRINT PRINTER MAP CHART NO,.

69

DC

Xll 1 81'

DATE

25AUG69

EC rm. 816"85

310Cl69 81652C1

Z8NOV&9 816542

02MAR'l'O 816f:3l

OlNOV70 81676.tt

19NOVll 818677

PRC6 ID PAGE

OEOl-3 1

ISM KAINTENANCE OIAGNOST!t PRQGRA"

PART NO .. PAGE

2589951
lA

EOl3 5203 LINE PRINTER FUNCTION TESTS

ERR LOC OBJECT CODE

AODR STMT SOURCE STATEMENT

OA86 OA
OA87 1801
0AS9 CO 87 0222 OABD EOOE
0 A8F CO 87 0216

0A86
o.ue
OA8E

OA91' 02 OA~ 80 OA95 OAE2

OA93 OA94 OA96

0A97 Cl EO 0 ADE OA98 38 O~ 0208
OA9f F2 90 10 OAA2 0C 02 1891 lBAO 0 AAS CO 87 021A OAAC: 41
OAAO 13
OAAE 1897 OABO EOEO
OA82 FO lC 6F
OA85 Cl EO OAOE
OA89 38 Olt 0208 OABOF29018 OACO CO 87 OZlA 0 AC4 Cl OAC5 lA OAC6 1881 OACS E031
OACA OC 01 1801 1803
0 AOO CO 87 021A OA~ 81 OAD5 QA OA06 1801
OA08 CO 87 0222
OAOC E031 OADE CO 87 0216

OAAC QUO OAAF OABl
OAC4 OAC5 OAC1
OAC9
OA04 CA05 OA07
Cl.ADO

OAE2 03 OAE3 00 OAE"t 0816

OAE2 OAE3 OAE5

OAE6 Cl E6 OAED
OAEA F2 81 25 0 AEO 38 04 0208 OAfl f2 90 16
OAF4 CO 87 021A
OAFS Cl OAF9 16 OAFA \8C7
OAFC E032
OAFE OC 01 1801 1800 0 804 CO 87 02U 0808 81
0809 OA
OBOA l 801
OBOC C 0 87 0222
0 810 E032

OAFS OAF9 OAFS OAFD
0808 0809 0808
OB 11

70

oc

11

DC

72 HAL IT 8

73

DC

74 OKYOOK B

Ill'lO' AL2t MAPJ
HALT xLZ ·eooe·
LINK

75

767
78
79

·*·*·

·

·

·

·

·

····
RWT

····
INE

··
2

·
-

·

·*··············
T 10 TO N01 R.EAOV (PRINTER MUST BE

··········
DEVICE NOT READY

·······
BEFORE

·

·········..·
EXECUTINGI

·

·

·

·

·

· * ·
·

80 ·

·

8812 ·R·T·N·2····D·C·····X···ll 1·2···················R·O··U·T·IN·E···N·.J·M·B·E·R········*············

83

DC

)(ll980'

FLAGS - MANUAL INTERVENTION

84

DC

Al2 fRTflG)

ADDRESS OF NEXT ROUTINE PREFIX

8865 *****TI*O**R*IN*R*OY*,N*R*DY··············S·i·-O··U·L·D··B··R·A·P·t·:H···O·N···T·E·S·T···C·F··N·O··T··R··U·D·Y····

87

TBN SBYTEO wSSW05

88

JF

lOARR

PRINT ON MFCU
JUMP TO SKIP PRINTING

89

MVt RORNf31,TON

PUT NOT IN MSG.

90

8

PRINT

PRINT MAKE NOT READr

91

DC

XL 1 1 It11

92

DC Ill'l9·

93

DC. ALZ(MANORU

94

OC

95 lOARR HPL

96

TIO

Xl2' EOEO' X9 6F' ,x·1c·
RlNRDYwNROY

NOT READY HALT
IF PRINTER OK, SHOULD BRANCH

97

TBN SBYT EO tSSW05

9~

JF

TALT

PR INT ON lllFCU

99

8

PRINT

PR INT NOT READY ERROR

100

OC

Xtl 1Cl'

101

DC

IL1 1 26'

l 02

DC

AL2 CCCRJNS I

103
104
105

DC
MVC
B

XL 2 1E031 1
MAP«21. CHTlO
PRINT

PUT CHART NO. IN MSG.
PRINT PRINTER MAP CHART HO ..

l 06

DC XL 1 1 81'

1C7

DC

108

DC

109 TAlT B

IU 1 10'
AL2C MAP)
HALT

·ERROR - Tl 0 fAJ LED TO BRANCH

110

DC

ll l RlNROY 8

Xl2 1 E031 1 LINK

GO TO DCP TO LINK TO NEXT ROUTINE

112

111143 ·· ·······********································*·······$·············~·

115.

ROUTINE 3 - TIO ON SUSY TO NOT READY oe·JJCE

·

······* 116 ·

·

.. 111178 R**H*d**··D·C······X·l·l 1·3··········*~9·······R·O·U·T·IN··E··N·J·M·B·E·R·············

119

DC

XL l ' 0 I

f LAG s

120

OC Al2(RTN4t

ADDRESS Uf NEXT ROUTINE PREFIX

112221 ***····T~I·O*···P·R·F·C·U··,R·U··S'·f·············BR·A·N··CH···S·H·O·U·LD···N·O·T··O·C$C·U·R······~$·~~$$

123

J

124 PRFClJ TBN

R2EXIT SBYTEO,SSW05

PRINT ON MFtU

125

Jf

R2BUSY

126

8

PRINT

PRUIT BUSY ERR

127

DC

Xll'Cl 1

128

DC

Jll 1 22'

129

DC AL2CBA8USYt

130

DC

XL 2 1 E032 1

131

MVC MAP 12 >t CHT 17

132

8

PRINT

PUT CHART NO. IN MSG ..
PRINT PRINTER HAP CHART NOc

133

DC

Xll 1 8l 1

134

DC

I ll' l 0 1

135

DC

Al 2C MAP I

13 6 R2 BUSY 8

HALT

·ERROR - 'ff.ST I /0 ON BUSY FA!LEO

137

DC

Xl2 1 E032'

DA TE

25AUG69

EC 1110. 816485

31 OCT6Y 516529

28N0\'69 816542

02HAR70
816631

01NOV10 8l67M

191\iOV11
818671

PRQ; ID PAGE

OEOl ~·3
lA

258"?951 l

5203 UNE PR IN'TfR HINCT ION TESTS

ERR lOC OBJft l C.GDE

ADOR ST~T SCURCE STATE~ENT

0812 co 57 0216

OBlt. Cit 0817 80 0618 0868

081 A Cl EO 0821

°" OBIE f2 81 IA

0821 38

0208

0825 f 2 90 10

OB28 OC 02 1891 1A29

062E CO 87 021A

0832 41

0833 13

0834 1897

0 B36 EOEl

0838 FO lC 03

0838 Cl E0 0&42

063f f2 87 25

0842 38 04 0208

0846 F2 90 18

0049 f.0 67 021A
0840 c 1

O&'tl lA

OS~F 1Bt=9

0851 EOlO

0853 OC 01 lBCl 1803

0859 t 0 81 021A

0850 81

085E OA

085f 1801

Oebl CO 87 0222

0665 EOlO
0861 co 87 0216

0868 05 OBbC 00
086D OClA
08bf tl Eb 0016
u 673 f2 87 AO
0676 OC 01 lf9D 1850 067C OD ff 0800 0800 0082 OD 38 0800 0800
os ee Of 01 lf c;o 1823
0 B8E CO 84' 087C
CIS92 f2 87 00 08'1~ C 1 Ee OS9C. 0 899 F2 87 H 089(. O!. Ol HOC l B62 0 BA2 0( 04 lt03 11129 OBAS 3{. H OOf 8 OB.AC. Cl E2 OBSB
lHHlO Cl ~ osc:e

00 it. 0811 0819
0832
0833
0635 Cl8 37
CB40 084E 0850 0852
0850 085E 0060 0866
OB~B
066( 086E

138 R2EX IT 6

UNK

GO LINK TO NEXT RTN VIA D~P

139

l~O ~·······*********·*******·**********·**********~*~**$*********·*~******

lltl *
142 ·
1~3 ·

ROUH NE 4 - TIO T 0 RE ADV CEV ICE
(PROGRAM HALlS 10 I~D!CATE PRINTER MUST SE MADE

* * *

l't4 · l'o5 ·

REAOY, THEN ISSUES TEST 1/0 ON NOT REAOVI

*
*

114467 R·1·N·4··*·D*C·····X··l~l 0·4·············*·····R·O··U·T·IN·E··N··JM·B·E·R····*··················

148

DC

Xll'80'

FLAGS - MANUAL INTERVENTION

149

OC AL2(RTN5)

ADDRESS OF NEXT ROUTINE PREFIX

115510 $······T·I·O····T·Y··B·S·,N·R·O··Y·. ·····~··········································

152

J

RlttHK

GO ON IF PR INT ER READY

153 TYBS TBN SBYlEO,SSM05

PRINT ON MFCU

15-'t 155

JF MVC

RltN~OY
RORN( 3) ,KN.ALB

BLANK NOT IN READY MSG

156

B

PRINT

PR INT MAKE READY MSG

157

DC

Xll'4l 1

158

DC

IL1°l9'

15«}

DC

AL2 CMANORE )

160

DC

Xl2 1 E0El'

16!. R4NRr.Y HPl x·o3· ,x·1c.

MAKE READY ~~L.T

162 R'tCHK TIO JIVE1NRIJ'!'

TEST 1/0 ANO BRANCH ON NOT READY

163

J

RltEXl T

-SMO NGT BRANCH

lM JIVE TBN S8YTEOeSSW05

PR INT ON MFCU

165 166

JF

ERR41

8

PR INT

PRINT READY ERAtm

167

DC Xll'Cl'

168

DC

l ll 126'

169

CC Al21SNIROt&

110

or. u2 · eo1 o·

171

MVC MAPC21,CHT10

PUT CHART NO. IN MSG.

172

8

PRINT

PRHIT PRINTER MAP CHART NO.

113

OC.

Xll' 81'

174

DC

ILl'lO'

175

Dt Al2(MAPI

176 ERR4l B

HALT

·ERROR

177

DC

XL2'f010 1

17 ll R4E XIT 8

LINK

GO TO NEXT RTN VU CONTROL PGM

******** 179
180 ...............................................................

181 ·
* 182 * 183 * 184
185 ·

·

* ROUTINE 5 - TIO ON SUSY TC READY DEVICE

·

CPRINT ER SHOJLO SE READY· TEXT i/O ON BUSY SHOULD

NOT BRANCH)

·

·

118867 ·R·T·N·5····D·C·····X··ll·'*5'············...···R··O·U·T·IN·E··N·U·M··BE·R··········..···········

188

DC

Xll'O'

FLAGS

189

C'IC

Al2 CRT N6 i

ADDRESS OF NEXT ROOT lNE PREF IX

119910 ········T·1·0····E·R·R··51·t·B·U·S·Y···**······T·E·S·T··1·1·0··O·N··S·U·S·Y··-S·H·D··N··O·T··S·R·A·N·C·H······

192

J

R5EXI 1

193 ERR51 MVC MSECS(2),SFHU

19~ TW

CLC lPll256),lPI

OE LAV

195

UC lPIUOt,lPI

7.5

19~

StC MSECSC28,0NE

SECS

197

BH lW

198

J

RAELC

ENO Of IR W/SIO SKIP OPEN J. R. G..

199 flAElC TIC STllltBUS\'

200

J

R5E XI l

201 STILL ·Mvc

202

MVC

Z03

'4'il

204

TIO

PBCA(StePRIN
~RAtCSieKNAlB
BERALT,X'll 5 UFERR,P8BUSY

PUT PRINTER IN BUSY ~SG..
fH·. ANK LJ R Cl4RR<
SET PRINTER HALT ID
PRINT SUFFER WSV

205

l W BUSL E ,CABUSY

lEf T CARR. SUSY

3WC'l'M
l'.!an??

28NO\!t:9
s iti5ti2

02 ~MHO 8H63l

01NOV70 8.!.i:i1M

l9NOV11 8liil6l1

PROG iO
PAGE

fl'il!:RT NO_,,
P l GE

5203 LINE ?RINTER FUNCT!~N lESTS

ERR lOC OBJECT CODE

ADOR STMT SOURCE STATEMENT

OSB 4 C l EC 0606

206

HC BUSR i ,uc~BY

0 888 F2 87 30
OSBB oc en lC.OC lt!6A oec i 1C 37 osrn

207

J

208 UFERR MVt

20'9

MVI

TEPCU
PBCM S)~SUH
13ERALT.,X 1 37'

PUT StFfER IN BUSV MSG~ SH SUFFER HALT tO

OBC.5 f2 81 23

210

J

lEPCU

OBCS CC 01 lCOC 105A

211 WSLE M'.fC P SC AUl h CARR

PUT CARR~IN BUSY t'JSG

OBCE Ot 04 lC03 lB71t

212

MVC l'IRACt5t, lHl

PUT LEFT IN SUSY MSG

OBClt 3C 38 OBfB

213

M\li 8 ER Al. l , X' 3 S1

SET LEFT CARR.HALT ID

OBD8 F2 81 10

214

J

TEP CU

0808 OC 07 lCOC 185A

215 BUSRI MVC. PBCA( St ,CARR

PUT CARR iN BUSY MSG

OBEl OC 04 1C03 lB6F

2lb

MVC RRAC( 5)., THGlR

PUT R lGHT IN BUSY MSG

OBE 1 3C 39 OBFB

217

HVI 8ERALT,x·39e

$SET RIGHT CARR.HALT 10

0 BED 38 Olt 0208

218 TEPCU TBN SS YTE O, SSWC5

PRI NT ON MftU

OBEF f2 90 18 0Bf2 CO 87 021A

219

Jf

JUSALT

220

8

PRINT

PR I NT MOT eus y ERR

08F6 Cl

08f6 221

DC

JCL l'C l'

OBF7 29

OBF1 222

DC

Ill '·'91 1

OBF8 1C22 OSFA EOOO

OBF9 223

DC

OBFB 224 BERALT DC

Al 2tREBUSYI
xtz· eooo·

06ft OC 01 1801 lBDD

225

MVC MAP l21 1 tHT17

OC02 C.O 87 021A

ZZ&

B PRINT

PUT CHART NO. IN MSGe PRINT PRINTER MAP CHART NOo

OC06 81

OCOr 227

DC

XU 1 81 1

OC.07 OA

OC07 228

DC

I Ll 1 101

OCC8 1801

OC09 229

DC AL2CMAP I

OCOA OC 00 OC15 --08F6

230 JUSALT f4VC YECWtU .,BERAlT

PUT 10 INTO HALT

OClO CO 87 0222

231

8

HALT

OCllt EOOO
OC.16 CO 87 021.6

OC15 232 YEOW DC 233 R5EXIl 8

Xl21 E000' LINK

GO TO NEXT ROUTINE VIA OCP

231t

~ 2365 23 7 238

.*·*.

.

.

.

.

.

. . $········--··················-····················$~*··········

ROUTINE 6 - LID'S TC A RE.ADV DEV IC.E

· ·

OClA 06

OtlA 22.3ft-90 R··T·N·6····D·C·····X··l·l ·1 6··1 ····*············***· RCXJTINE ·N·J·M·B·E·R························

OC18 00

OClB 241

DC

Xt.1 1 0 1

FLAGS

OClt OCF6

OClD 242

DC

Al2CRTN71

ADDRESS Of NEXT ROUTINE PREFIX

OtlE CO 8T l'tOA

224443 ******8*****BR··O·U··T·····..································**··············

OC22 31 E It 1846

245 GIDDAP LIO LPIADR,LPIAR

LOAD IMAGE ADDR. REG.

OC26 Ot 01 l BDl 1807

246

MVC MAPt2),CHTl3

PUT CHART NO. IN MSG.

OCZC 30 E4 lf95

241

SNS STAJ>t,X 1 E4 1

GRAB IMAGE AODR.REG.

OC30 OD 01 1F95 1846

2lt8

CU: SlA IX( 2 t, LPI AOR

l"AGE ~EG.lOAOEO CORRECTLY

OC36 f2 81 3f

249

JE

GOL IO

\'ES, TRY OAR

OC39 38 Olt 0208

250

TBN S8YTEOtSSW05

PRINT ON MFCU

Ot30 F2 90 32

251

,Jf

I MAU

OC.ftO OC Olt 1C31 1C2C

252

MVC LE8M.(511EGAMI

PUT IMAGE IN MSG

OC46 CO 87 021A

253

B PRINT

PRINT IMAGE AODR.ERR

OCO Cl

OC"tA 251t

OC

>Cl. l'C 11

OCltB 16

OC48 255

&C l l l '22'

Ot4C 1C42

OC"tO 256

DC

Al2CARWAU

OC4E E03A

OC'tf 257

DC

Xl2'E03A 1

OC50 tO 81 021E

258

8

UNPACK

ACTU Al IMAGE AOOR

OC54 02

OC5'o 259

DC

lll1 2·

OC55 1F95

OC56 260

DC Al2tSTAJXt

OC51 lCltCJ

OC56 261

OC Al2COIRISI

TO

OC59 CO 81 021 E

262

8

\NPACK

EXPECTED

OC5D 02

Ot50 263

DC

lll1 2 1

Ot5E l81t6

OCSf 261\

OC

AL2 t lPI ADfU

FROM

OC60 lC55

OC6l 265

DC Al2tDIRSH

TO

OC62 CO el 021A

266

B PRINT

PRINT REG IS & SHD ..8E

OC66 81

OC66 261

OC.

XL 1 1 81'

OC6l 13
OC68 1C.55

OC.b1 2b8
OC69 269

DC IL1'19' OC Al2(01RS8t

OC6A C.O 87 02U

210

6

PR !NT

PRINT PRINTER MAP t~A~T NO.

OC6E Sl

OC6E 211

DC Xtlfi8P

OUf OA

OC6f 272

DC lll'l0'

OC70 1801

OCH 273

OC

Al2t~AP)

DATE

2SAUG69

EG NO.. Sl6AS5

310C l69 616529

28NOV69 816542

02MAR10 816631

01 NflV70 8li&1t;.;iib

l'i!N0'.-'7 l 818617

PRO(; l iJ
p£(;~:

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

IBM MAlf~l Et.;ANCE DIAGNOSTIC PRClGRAM EOB 52Ci3 LINE PRINTER FUNCTION TESTS

PART NO. 2589951

PAGE

3

ERR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

oc 72. c () 87 0222
OC76 E03A OC 78 31 E6 l 84A OC 7C 30 Et 1F95 OCBO OD Oi 1 F95 184A OC.86 f 2 81 3F 0 C.69 3S 04 0208
ocao n 90 32
OC.90 OC 04 lC 31 lC 27 OC.96 CO 87 021 A
OC.9A C 1 0 C9B 16
OC'K 1C42 vC9E E03.tt OCAO C.O 87 021E OCA't 02 OU5 1F95 OCA7 1 C49
Q(ACjl cc 87 021£
DCAD 02 OCAE 184A
oceo JC55
0(C2 CO 37 OllA OC.86 81 OC.87 13 OC.88 1C55 CC.BA CO 87 021.A
OCBE 81 OCBf OA
occo 1801
OC.\:2 CO 87 0222 OCC 6 E C34 OCC8 30 E3 lf93
occc 38 01 lf92 ocoo f 2 90 lf
OC03 38 Ole 0208 OC07 f2 90 12 0 COA CO 81 0 2 l.l OCDE Cl OCOF 22
ouo lC.77 OCE < E03C.
0L(4 CO 87 021A Qtl8 61 OCE 9 CA 0 CEA 1801 OLEC (0 87 0222 OCF 0 E03C.
OCF2 CO 81 0216
0(f6 07 OCF 7 tC 0 CF8 OOOA
OC f A 3C 0 1 l FA 1 OCH C2 01 l FAb 0002 (.() B1 12A3 OOOb CO 87 0216

ocn
OC9A OC9B OC9D OC9F
OCA4
OCA6 OCA8
OCAD
OCAF OCB l OC86 OC87 OC89
OCBE OCBF occ 1
OCC7
OCDE
OCDF CC.El OCB
OCE8
OCECJ OCEB OCF 1
OCF6 OCF 7 OCFCJ

27'4 U'1AlT 8

275

DC

276 GOLIO LIO

211

SNS

278

ClC

219

JE

280

lBN

281

Jf

282

MVC

283

8

284

oc

2135

oc

286

DC

281

DC

288

8

289

DC

290

oc

291

oc

292

8

293

oc

294

oc

295

DC

296

8

297

oc

298

DC

299

oc

300

8

301

DC

302

DC

303

DC

304 lSMFT B

305

oc

306 FOl IO SNS

307

T BN

30B

JF

309

TSN

310

Jf

311

8

312

DC

3lJ

DC

31'9

oc

315

DC

316

8

317

DC

318

DC

319

DC

320 ULT B

321

oc

322 R6EXIT 8

323

HALT ~ 2 1EC3A 1
,x· l PDAllRt l P DAR
STAI X E6·
STA IXC 21 t LPDADR
fCllC
SB YTE O, SSW05 lSHFT
LEBAU5 >,ATAO
PRINT
xu ·c1 ·
Ill' 22' Al 2(ARWAl J
Xl2'E034 1 UNPACK Jll 12 I
Al2{ STAI iO
Al2C DIR JS i
UNPACi<
lll'2' lil2CLPDAOR)
Al2CDIRSBI PRINT Xll 181 1 Ill' 191
AL21DIRSBJ
PRINT XL l '81 1
1u·10·
Al2 (MAPJ
tiAL T
Xl2 1 E034 1
STAT61X'E3 1
STAT6-11 B 1 1 1 R6EX IT
S8YTEO, SSw05 LALT
PRINT XL l 1C 1 1
llI' 34'
AL 2CNOPLIO) Xl2 1 E03C 1 PRINT Xll'81' 1u·10·
Al2( HAP)
HALT
Xl2' E03C'
LINK

!MAGE AOOR ..REG ..ERROR HALT
LOAD DATA AOOR.REEG. GRAB DATA AOOR. REG. OATA REG.LOADED CORRECTLY YES,TRY NO-OP LATCH PRINT ON MFCU
PUT DATA IN MSG.
PRINT DATA ADOR.REG.ERR
ACTUAL ADDR.REG.
FROM
TO EXPACTEO DATA ADDR.
FROM TO
PRINT REG.JS & SHD BE
PRINT PRINTER MAP CHART ND.
DATA ADOR.REG.ERROR HALT GET STATUS BYTES NO-OP CHECK PRINT ON MFCU
PRINT PRINTER MAP CHART NO.
NO-OP HALT GO TO NEXT ROUTINE

33215t ······································Q:·························*········

32 6 · 327 ·

ROUTJ NE 7 - CCMMANDS TEST F~OM TABLE
CPROGRAM ISSUES COMMANOS SEQUENT IALlY FROM TABLE

* *

328 ·

-arnTAB- t

...

329 ·

·

333310 ·RT·N·7····DC·ot··X·l·.1··'7··1 ····················R·O··U·T·I·N·E···N·U·M·B··E·R········*·*******·

332

O:..:

Xll 1 0'

FLAGS

333

OC

AL2(RTN8)

ADDRESS Of NEXT ROUTINE PREFlX

334 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

335

MVJ l1CTR,x·o1·

SET LINE COUNTER TO 1

336

LA CHO TAB, XR 1

337

e

CKCMO

!'38

8

LINK

33q

SET UP COMMAND TABLE POINT ER GO ISSUES COMMANDS FROM THIS TABLE LINK TO NEXT RCllTJNE

340 ·······································································

341 ·

·

DAH

2~AUG6'9

EC 1110. 8ltiit85

31 OCT69 816529

28NOVti9 816542

02MAR 70 816t.H

01NO\f10 816"16/t

19NOV7l 818677

PROG ID
PAGE

OEOl-3 3

ISM MAINTENANCE DIAGNOSTIC PROGRAM EOU 5203 LINE PRINTER FUNCTION TESTS

PART NO. PAGE

2589951 3A

ERR lOC OBJECT COOE

AODR STMT SOJRCE STATEMENT

ODOA 08 0008 00
OOOC Of80
ODOE CO 87 llt32
0012 EltOl 001.lt 3C 01 lFAl 0018 C2 01 lfC6 ODl C 36 01 1825 0020 IC 01 lf 97 01 0025 C2 02 0883 0029 30 EO 1F80
0020 38 80 0209
oon F2 90 oe
OD31t CO 81 1389
003£ 1F80 OD3A 186A
003C FZ 87 08
OD3f co 87 1389
0043 lf8C 0045 l86A 0047 8C 07 00 186A
004C CO 87 1389
005C 1F97 0 052 188E
0054 OC 00 1882 l88E
OD5A 36 02 182F 005E 8C 08 00 1882 0 063 OE 00 lfAl lf97
0069 ao oo lFAl 1841
006F F2 0.ft CC
0072 OC 01 0070 OD&E 0078 ()f 00 lFAl 0000
007E 78 04 00 0081 F2 90 53
0084 8C 08 00 188E 0 089 OC 00 lfAl lf97 OD8F 70 2A 01 0092 F2 01 15 0095 OC 01 l4C2 1854
0098 oc 01 oooc 1854
0 OAl OC 01 OD6E 1854 ODA7 F2 87 20
ODAA 70 55 01 OOAO f2 01 15
0080 oc 01 14C2 1856
0 086 oc 01 oooc 1856
ooec oc 01 OC6E 1856
OOC2 f2 87 12
ODC5 OC 01 l4C2 1858
OOCB CX: 01 ODOC 1858 () 001 OC 01 OD6E 1858 0007 co 87 1389
ODDS ~000 ODDO 18fl OOOF 36 02 1831 0 OE3 8C 10 00 l8F l ODES CO 81 1438 0 DEC E200
ODEE lC 01 ODf 9 01
OOF3 CO 81 1't38 ODF1 0000 ODF9 30 EO lfa·o
ODFO 38 80 0209 0 EOl f2 90 12

ODOA 0008 0000 0013
0039 0038 ODltlt I) Dlt6 0051 0053
oooc
OODE ODED OOFS

342 · 343 ·

ROUTINE 8 - CARRIAGE SPACE-SKIP TEST

334454 ·R·T·N·8···*OC·····X··tl···a··1 ···$············R·O·U·T·I*NE··N·U·M··B·E·R·······················

31t6

DC

XlPO'

FLAGS

347

DC

Al2fRlN~t

ADDRESS CF NEXT ROJTtNE PREFIX ·

334489 ········8······X·IO·········*******···~·M·A·K·E··S·U·R·E··C·A·R·R·.·IS····················

350

DC

XL 2 ·e1eo1 ·

351

MVI LICTR,X 1 01'

ON LI NE NO. 1
SET LINE CO~TER AT 1

352

LA

SPSl<-21XRl

LOAD CMD.AOOR.REG.

353 BACGO A

TWO, XRl

UPDATE CMO.AODR.REG.

354

HVC CMOS AV 12It1C 9 XR U

SAVE THE CMD.

355

LA

LP0+7,XR2

LOAD MSG.ADOR.REG.

356

SNS STATO,X 1 E0'

GRAB UNE COUNTERS

357

TBN SBYTEl ,SSW08

RIGHT CARR.

358

JF

FRANG

359

8

360

DC

361

OC

362

J

363 FRANG 8

364

DC

CVD
Al2 ISTATOI Al2CDASHI MO DASH CVO Al2( STATO-U

CONVERT RIGHT LINE CTR.
f~OM
TO
CONVERT L INE ND · 10 DEC ..

365

DC

366 ~CX>ASH HVC

367

8

368

DC

369

DC

370

MVC

371

A

372

MVC

373

ALC

374 CKOUNT CLC

315

JNH

Al2CDASHI CC81XR2l1DASH
CVD
.AL2 CCMDSAV I AL2C SKLINO)
SPOPClJ,SKLINO
TWLVE,XR2
on2,xR2a,SPOP ltCTRI U 1 CMOSAV lICTRUJ,FOlG JUMRES

TO
MOVE INTO PRINT AREA CONVERT LINE COUNT OF CMO.TO OfCo
FROM
TO
MOVE COUNT INTO SPACE MSG. ALSO
UPDATE MSG.AOCll.REG.
PUT SPACE MSG. JN PRINT AREA ADO SPACES TO LINE CDUNT LINE COUNT FULL

376

MVC

377 RSOUNT S LC

378 Jl.JfllRE S TBN

3 79

J F

380

MVC

381

HVC

382

CLI

383

JNE

384

MVC

385

HVC

386

MVC

367

J

38B NE XLE N C LI

389

JNE

390

MVC

391

MVC

392

HVC

393

J

RSOUH+5121 1CkOUNT+5
LICTRU J, ·-·
0( 1XRU 1 X' 04' ITSASP
0(12 1XR211SkllNO UC TRC U 1 CMOSAV lC,XRlJ1X'2A'
NEXLEN FRMLE+3(2JeADFL~2
FRAOD12J 1 ADFL42 CKOUNT+5(2) 1 AOFL42 JTSASP
lC 1XRU 9 X' 55 9 00112
FRMLE+312 J, AOFt 85
FRADOl21 9 AOFL85
CKOUNT·5C21,ADFL85
ITSASP

RESET·llNE COl.NT IS THIS A SKIP JUHP IF ITSA SPACE PUT SK IP H SG. IN PR INT AREA MOVE IN LINE NO. TO SKIP TO IS THIS A SKIP TO LI NE 42 JUMP IF NOT PUT 42 ADOR.JN LIO PUT THE FRm. AOOR .. IN FORM LEN.LINK.
JUMP TO CONVERT TO DEC.
IS THIS A SKJP TO lINe 85 JUMP If NOT PUT 85 AODR. JN LIO
PUT THE FROM AOOR. JN FORM l EN ..l JNk o

394 00112 MVC

395

MVC

396

MYC

397 !TSASP B

398 F RADO DC

fRMlE+3C2),ADfOLG
FRADOl2J 1 AOFOlG CKOUNT+5(2) ,AOFOLG CVO
Xl2' 0 1

PUT 112 ADDR.JN LIO
PUT THE FROH ADDR .. IN FORM LENe ll Nf\o
CONVERT TO DEC.FORM LEN.. FROM AOOR ..

399

Ot.

AL 2(LNGTHJ

TO AOOR.

400 401 402 403

A

SVNTEN, XR2

HVC 0( 179 XR2J ,LNG TH

B

SKJX JG

DC

Xl2'E200 1

UPDATE MSG.ACOR.REG.
PUT FORM lEN. MSG. IN PRINT AREA PRINT A LINE

404

MVC

't05

B

406 PUTSlJ1 DC

407

SNS

408

TBN

lt0'9

JF

PUTSUMC2J,U,XRU
SklX to
XL2'0"
STATO,K 1 E0 1 SSYTEi~ss~oa
LEH IC

P !JT A CARR. CfCJo INTO U NKAGE
!JO CARR .a. O.
om. PARAMETER
GRAS C~RR.UNE COUNTER
RI GH'i CAAR ..

DATE

25AUG69

EC NO. 816'i>85

31 OCT6":l .816!.'.'29

28N0\169 8165't2

02MAR70 8lf>63l

01NGV70 816764

19NOV71 8186'17

PROG ID PAGE

~01-3
!A

?ART NOe PAGE:

PJi,fl.i NO., ?AGE

l~~9~~<ii. ti!-A

ERR toe OBJECT CODE

ADOR STMT SOURCE STATEMENT

0£04 OC 04 lOCB UH:>f Ot:OA OC OD lfl.'O H-Al OrUO F2 Ol lD OEU F2 87 OF
OEl~ OC O~ 18C8 1874 OElC 00 00 lf8C lFAl
o E22 r-2 01 oe
OIE.25 10 00 Cl OE2B CO 81 OE'H OE2C CO 87 OOH OE30 3A 01 lF 86
OE34 OC 00 1780 OE7l OE 3A CO 81 l 732 OE3E 38 02 1F8S
o E42 n io oo
OE't5 ?.c 20 OE56 0 E49 OC 05 18CC U.29 OE4f f2 87 04 OE 52 3C lA OE 56 0 E56 CO 87 021 A OE SA 81 CE58 CO OE5C UHO OE 5E 0C 01 1801 1809 Q E64 CO 81 021A
OE6a es
OE69 OA
OEoA l 801 OE6C CC 81 0222 0 E70 E033
OE72 C.C 81 OE25
ono co a1 1432
0 E7A E002 OE 7C C. 0 87 0216
0£80 09 OE81 00 OE82 OF lit
OE84 CO 87 021 A OES8 lt2 0 E89 10
OESA 190'4
OU!C ECOO OESE 3C CS OEB4 OE92 3B FF lf 99 0 E96 39 30 OAOC
OE9A F2 10 12
OE90 30 £2 lFSF 0 EAl 38 01 lf8f OU5 f2 90 59
OEUl 39 30 oaoc
0 UC F2 90 O't OEAF CO 87 1275 OEB3 3C 00 C8H 0 EB7 OC 83 08H OSH OEBD OE 00 lf99 iS23 OEC3 CC 87 1432 0 EC7 E20l OEC9 30 19 1F99 CECO CO 01 OEAS
0 ECl 3 0 E3 0 t 8'it
OEOS F:Z Sl 33

410

"'iCH-l CH ~rnGrn

411

STA iC{ l h t IC TR

RIGHT U NE lOC.,CORRECT

.4'"1n2

~IJSTU

.J

I SlAS

J1JF!j'} 1f NOT

414 LEFUC MVC

415

ClC

WICH- U Sh T~El
n STATO-l. ~ ~ucTR

416

JNE

417 ISLAS cu

MIJSl\..!
ihx1ui,x~oo~

lAST c~n ~ DONE

418

BE

CLINK

EXIT

itl9

B

8ACOO

420 l'IUSTU SfN TAGS,TAG7

SET lST i. INES ONL 'V fUG

421 422

M\IC Hl TIO( U ,LUKE

B

PS TERR

Pl...'T HALT IO IN MSC
GO PRINT STATUS OR isr um:s

423

TBN TAGS,TAGO

WAS THERE A STATUS ERR

't24

JT STBEP

425

MV1 LCML,45

JUMP TO LOAD SHORT MSG.CWNl SET A MSG.COUNT Of 45

42£;

MVC WICHC 6) wKNAlB

427

J

TNIRP

JUMP TO PRINT

'42 B STBE P MVI lCMl,26

SER MSG., cm.rH OF 26

429 TNIRP B

OBA 430

oc

PRINT XL1'81'

PTHH LINE COUNTER ERR

OE 5B 431 tC~l DC

OE50 432

oc

XU'01 Al 2\l iCOER I

433

"1VC MAP (2t,,CHr14

PUT CHART NO~ IN MSGQ

434

8

PRINT

PRINT PRINTER MAP CHART NO~

OE68 435 OE69 lt36

DC

Xli' 85 1

oc I U' 10'

OE6B 431' 430

DC

Al2CMAP i

e

HALT

l !NE COUNTER ERR HALT

CiE7l 439 LUKE DC

440

s

Xl2 ·E 033s ISLAS

4'-.1 CU NK 8

XIO

442

DC

Xl2'E002 1

SPACE 2

443

8

LINK

't4't

* * 445 ···****····················****************~~****········~····*********

446
447

*

ROUTINE 9 - 'H' & '1' PRINT TEST

*

448 ·

$

449 ******************·********************·******************·····*···*·**

OESO 450 RTN9 OC

XLP 9.1

ROUTINE NJMSER

OE81 451

OC

Xl 1'0 1

f LAGS

OES~ 't52

DC

All 4RTNOA l

ADDRESS OF NEXT ROUTINE PREF! X

453 ****·**********~*******·*****~*******·******************~**************

454

6

PRINT

PRINT HTlE

OE88 ~55

DC Xll 1 42'

OE89 456

DC

l l l' 16'

OE88 457
CE80 4 s a

DC AL2(TJTL9)
oc xtz 1 ECOO'

459

MVi ROCON+l1C'He

PUT H IN PRINT LINE

460 FINFf SBF FINOEX~X'FF'

ZERO COUNTER

461

reF SPUOT,S 5 llOOOC8

100 lPM PRINTER?

~62

JT SvNERO

'463

SNS

STAT2,x~E2e

GRAB T UO.N GS

~64

TBN S:AT2,8 'l ~

HAM~ERS JN Wt

465

JF MOOH

466 f..OCOR T Bf

ltt: 1

JF

SPUDT 1 B' UOOOO' ROCON

100 tPM PRINTER 1

46 8 SUN ERO 6
469 ROCON fll\fl

M40EL
rROAT w*-*

INSERT AN 11 H11 OR A i!ifi

470

MVC PROA1'-H 132) ,,PROAT

PROPAGATE IT

471

~lC FINOEX1J,ONE

't72

s

.XHJ

ADO l TO COUNTER BP. TO PRINT A UNE

OEC8 413

OC

XL 2 · E 2 0 P

474

Cl I fINDEX,X'l9'

25 ll.NES PR!NTEO

~15

BNE ~CCOR

41t;

tll ROCOfHl'ilC··p

H~VE l'S BEEN PRINTED

411

JE CETOUi

O.t.H

2 5~llG69

f.C ~O~ 816485

3WCT6'9 616529

26NOV69. 816542

0211\AR 7C 816631

OlNOV10 816764

l 9NOV7l
818~71

PROG !O
PAGE

OEOl-3 4

orna 3C. B OEM·
OE!JC ~·.: 02 li.Hi'lt!l. 0 HO 3C ~G 08H OEif:t'!' 04 10 lSlA HlS1 DH& 36 02 1829 OEEt: 06 10 l BH 1552 OH·~ S:C Ol 00 lSU ii H9 30 40 08fE OHO CO t\l CHA OF01 CO 87 1432 Of05 E20l OF01 CO 81 OECJ2 OFOS CO 81 02U OfOF 14 OFlO CO 87 0216
Ofl-4 CA Ofl5 00
Ofl6 OfE4
0 flS CO ST 021A Of lC. 42 OHO 13 Ofl E 1911 OF2G EOOO 0 f22 38 80 0209 Of26 f2 90 OF Of.£9 3A 08 Of8E OF2C 'JA 08 OF91
OF31 3A 08 CF9D
0 F35 F2 81 OC
OF38 36 08 Of6E OF3C 3S 08 OF91 0 F40 38 08 OF90 OF~4 38 f f l f99
OF48 39 30 OAOC
Of4C F2 10 lE OF4f 30 E2 1F93 OF53 38 01 lF93 OF57 f2 10 l7 OF5A CC 81 1432 OF5E E200 OF60 C0 f!7 OF48 0 F64 CO 87 0222
OF68 EOlO OF6A Fl S7 04
0 F60 CO 87 1275 OF71 Cl EO Of64 OF75 CO 81 HOA Of79 3C. 45· 0808 OF 70 OC 58 0807 0808 0 F8 3 3C '4·B lFH
OFS? OC 76 1F76 lf77
OF8D F3 EO 01 0 F90 Cl E-4 0 F9 1 OF94 Cl EO OFM 0 f98 31 E4 l84E Of9C f3 E2 OC
OF9f 35 Cl 1821 OfA3 Cl f6 OFAA OFA 1 f2 S1 OE
OfAA 3b Ol 18~3 OFAE CO 01 0 fA3

Of06
Ofl4 ()fl5 OFH OflC OF 10 OflF OF21
OF5F
Of69

i'l \:/ !

RO CON 4; l ~c ~ ·r ft

PUT T IN PRINT LINE

LA

l~(h21~ ~2

tOAO ~R i\\!l l!OOR"

4·H 482 i1JE~r-1R

MVl
uz.
A

PRDk1-i~~ 0 4oe ~ANOC2~1DECZROClf
FOUR~ Xil.2

!ERO HiHO'!Eft HO.,
rn!:R .. PIH wr I.DOW\ ..

484 485

t<l Ml/t
cu

HANOC21,DECDNEl11 0 t 2 , X R2 h HAf'l!O .
?ROAT-1 f:l' 4\.P

ADD i TO HA"K~~o~ PLH HA;iMER NO .. IN FiHN1 AWH:A
E~O Of P~IWT L!NE

486

BE

NEA~R

48? f'!OO!'I B

XHJ

458

DC

XL2t:E20 l'

4B9

B

FINfF

4'10 GETOUT 6

PRINT

491

IJC

Xlllll4 11

492

6

UNtl

493

494 ········*****$~·········$**·*·***····*·······*·~$·····~············~·~·

495.,.

~

496 *

ROUTINE OA - PAPER SEHL!~ TEST

~7·

·

449998 ·f<·T ·NO··A··$O·C····X··U··' ·A.·c ···········****·R·O·U·T··!N·E~··N·U~·B·E·R······***$·~······*····

5CC
501

DC

Xll'~'

OC

AL2HtTNOlH

flAGS ADDRESS OF NEXT ROl!TiNE PREH~

502 ***"''**~*C:*$$$$$$)$j<$$li<~$*$$.$$1'1Pli'"~*>l<$$$$*$$$<$$ll!lt<C<$$"'$>l<ai!r/<$$11):*$$!iiJii:**-~®'1''¢;~j<:f:~:$

503

B

PRINT

P~INT TITLE

504

DC

Xll 1 ~2 1

505

DC

I U * l 9 11

506

DC Al2iTillAi

50 1

DC

XLZ@ EOOO 9

508

TBN SBYTEl;SSWD8

509

JF IT SL ff

510 511

SBN PSSIOl+1,e·1oooa SBN SBUSY+l,B· lOOOt

en SET MOOiflER SU ON

SET MODIFIER

ON

51.2

SBN PSSI02+ldi 11 1000'

SET MODIFIER BET ON

513

J

OGOG

514 ITSL.Ef SBF PSSIOl+l-,8 11 10()0 1

SET MODIFIER HT OFF

5!5

SBF SBUSY+l 9 8 9 1000'

SEY MODIFIER BIT Off

516

SBF PSS! 02+ 1.,8 1 10001

SET MODIFIER BIT Off

511·0GOG SBF FlNOEXoX'ff' 518 SI OST TBF . SPUOT,81 110000'

l ERO COUNTER 100 I.PM PRINTER?

519

JT

OOM4

520

SNS STAT6.X'E2 1

521

TBN STAT6,B' l '

GRAB THE SENSE BYTES HAM~ERS IN RIGHT SHtfT POS.

522

JT

HANG

sz3

e x1c

PRINT A BLANK l INE

52~

DC

XL.2 9 E20Q!

~25

S

SIOST

526 PRNROY 8

HALT

BR T 0 CHECK H~L l ON ERP.OR

527

OC

XL2 6 E010 1

AFTER NOT READY

529

J

HANG

5.zc; GOM4 B

MltOEl

530 ~ANG TIO PRNRDY.NRDV

NOT RUDV

531

S

SROUT

532

MVI ATEATE,C'e'

PUT A PERIOD I~ 96

533

MliC ATEFIV-:U92h-ATEATE PROPAGATE n·

534

M\'! EDI MAG 'l!Cil'" ~

PUT A PERIOD !N 1MA&E AREA

535

MVC

536 PSSHll SI 0

531 SBUSY TIO

EOIMAG-ll119t~EOIMAG
x· OP 9 X11 E-Oi
ssusv.cABUSV

kf'.IO PROPAGATE H S?Jt(,f l RAH

53 8

' TI 0 PRNROY ,NRU'f

53~

LIO SIADOvlPIAR

IS PR UHER f(.f~OY
rn.iu;e ADOR ..

540 PSSKG2 S!O X'00'·X~E?.~

PiU!'H AUNE

541

l

54 2 TEGAN no

543

J

ZERCiX~l
GZOOP fjltHJSY
SAT CH

CHECK BUSY

re rnr 5R

SH !JP '-"MOT41fR. NJ.

COMi!li~N}

544 BlOOP A

5·1t5

BNl

ONE "'Xi;;tl TEGAN

!~AH FOR 1,. A SEC. ..
TO c LEAR 13 us.-,r

DATE

25AUG69

EC NO.. 816485

'.310CT69
s 16529

2BNDV69
816542

02~AR1C
Bl663l

ou~orno
SUl'M

l"'Hl!OV1 l fH il:lt:Tr

PROG 10
PAGE

OIE(.;1- 3 4A

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

··· ·

· · · · · · ·

·· ,

.

·

. ,,

-~

.

·

··

·

·

·

·

·

·

·

·

·

IBM MAINTENANCE OiAGNOSTIC PROGRAM £013 5203 lINE PRINTER FUNCTION TESTS

PART N:O .. PAGE

2589951 5

ERR LCl GfJECT COCE

ADDR STM1 SOURCE STATEMENT

Of82 CO 87 02£2 OF86 EOl't <lfB 8 OC 02 OOOA l 8F4 OFBE OC 58 0806 OBOA OFC4 CO 87 1432 QFC.8 E201 ·ofC.A 3D lit lf99 OfCE f2 81 OA Of Cl OE 00 lf99 1823 OfD7 CO 87 OF48 OFOB CO 87 021A JFDF 12 Oft:C CO 87 0216
OfE4 OB OH5 CO
OFE: b 104C
OH f! C 0 8 7 02 lA OHC 42 OHO 15 OH£ 192C OHO EOOO OH2 38 FF lf99 OfH 3C CS OSC3 Off A OC 'tb 08(2 08C3
1000 co 07 1432
1004 £201 1006 (2 02 080(, l OOA l. 2 01 OB7B lOOE 3b 02 1825
HH < 3 6 01 l B21
1016 6( 02 00 00 AOU 3~ 02 1 PHI lOU W 01 lfCjl8 1848 1024 C.O 82 lOOE 102-8 3C 40 08C3
102(. co 87 l432
l 030 E202 1032 30 ic; lfqq
1036 f2 81 OA
1039 OE 00 lf99 1823 lC3f CC 87 Cff 6
1043 co 87 021A
1 O'tl 12 10'98 C.0 87 02H
lO'tC OC l04t0 00 l O'tE lOf 5

546

B

OfB7 547

oc

548 SATCH MVC

549

MVC

550

B

OFC 4i 5'51

DC

·552

Cli

553

JE

551"t

ALC

555

8

556 lHRDUT B

OfOF 557

DC

558

B

559

HALT

XL 2 'EC14'

AT EAT E-1 C3 ), T HS

PUT T'S IN DATA AREA

A TEF I \1-2 ( 92) tA TEATE-i PROPAGATE THE JI S

XIO

Xl2' E201'

FINDEX,20

20 LI NE PRINTED

THFIOUT
FI NOEX<l) ,ONE
SIO ST

BR TO LEAVE ROUTINE
ADD 1 TO LINE CWNT

PRl"T

SP~CE 2

Xll' 121

LINK

56610 ·· ··························****·······*································

562 ·

ROUTINE OB - WORSE CASE PRINT TEST

563 ·

OFE't OFE5 Off 1 OFEC OFED OHf Offl
1005
1031
l Ott 1

55b645 ·$RlN·O·B···O·C·····X·L··*l'B*t ················R·O·U··T·IN·E··N·U·M··B·E·R·······················

566

OC

XL l '0 ·

FLAGS

561

DC

Al2(RTNOC)

ADDRESS OF NEXT RClJTINE PREFIX

556689 ········B······PR··IN·T······************P*R*I*N*T***·*wo*~*S*E**C~A·S·E··P·R··IN·T··T·E··ST··· ·······

570

OC

Xll 1421

571

DC lll'21'

572

DC

Al2CTITlBt

573

DC

XL2·Eooo·

57~
515 GETAH 51b 577
576

SBF MVI MVC B
OC

fINOEX,X'FF' DASTu,c· H' OASTU-1(71),0ASTU XIO
Xl2'E201'

ZERO LI NE COUNTER
IN~ ERT AN 'H' PROPAGATE IT
PRINT A LINE AND SPACE l

579 580 581 NAOUN
582 583
58 it 585 58f 587 588
~59809
591

LA LA A
A MVC
ST
ClC Bl
HVl B
DC Cll JE

lPI,XR2
lPD-1 ,x Rl
TWO,XR2
TREE,XRl Ol3,XR1),.0(,XR2)
S IN OE X · XR 2
SINOEX(2),TUFORF
NAO UN
LP0+71,Y 1 40' XIO
Xl2'E2C2' F1NOEX,X'l9' ZJGOUT

LOAD IMAGE ADDRESS
LOAD DAT A ADDRESS
ADD 2 TO IMAGE ADOR. ADO 3 TO DATA ADDR. MOVE 3 CHAR. lNf O DAT A AREA SA VE J MAGE ADDR. IMAGE AOOR. UP 48 BR TO MOVE IN 3 MORE BLANK PRINT POSITION 72 PRl~T A LINE ANO SPACE 2
25 T IHES THRU

592

ALC FINDEXC U,ONE

593

8

GET AH

INCREMENT LINE COUNTER

594 Z JGOUT B

595

DC

PRINT
Xll 1 12'

SPACE 2

596

P

LINK

597

lOltC 104 [)
lOltF

55998~ 600

··*·······R··O·U·T·I·N·E··$OC··-··R··IP·P·L·E···P·R·IN·*T *PA*T*TE*RN**································*

601 ·

CPRIJGRAM PRINTS ROUTINE TITLE ANO THEN PRINTS All·

602 ·

CHAIN CHARACTERS IN A RIPPLE PATTERN. EACH LINE $

603 ·
* 60.ft ·
605 006 ·

CONTAINS THE CHAIN IMAGE REPEATED AS MANY TIMES ·

AS POSS IBLE IN THE PRINT l INE. SUCCEEDING LINES ARE DISPLACED ONE CHARACTER TO THE RIGKT TO

* *

PPO\/ IDE A l EFT TO RIGHT RI PPlE. THIS ROUTINE IS *

607 ·
608 ·

ESPECIALLY USEFUL DURING PRINT CHAIN CLEANING.I ·
·

660190 R··TN·O·C···D·C······X·l·l·1C··1·*··············R·O··U·TJ·N·E···NU·M··B~ER·······················

611

DC

Xll'O'

FLAGS - NONE

612

DC

H2 ( RTNOOI

ADDRESS OF NEXT ROOT INE PREFIX

bl3 ····················4*···*···~·········································

DA H:

2 ~ UG 6·~

H NO. 8lt>'t65

-

2aNrnu)9 8165"'1.2

02MR'l'O 816631

01 NlV70 8lti7b4

l91'mV71 .f.lUH,77

PROG 10 PAGE

CE 01- 3 5

IBM MAINTENANCE DIAGNOSTIC PROGRAM Eo13 52 03 LI NE PRJ NTE R F lJNCTI ON TESTS

PART NOe
PAGE

2589951
SA

ERR LOC OBJECT CODE

AODR STMT SOt.RCE STATEMENT

1050 CO 87 021A 1054 42
1055 oc
1056 1938 1058 EOOO lCSA 39 06 OAOC 105E F2 10 27 1061 3C 83 1086 1065 3C 83 1 OBA 1069 3C 83 1596 1060 3C 84 1598 1071 38 02 OAOC 1075 f2 10 10 1078 3C 71 1C86 l07C 3C 77 lOBA 1080 3C 77 1596 1084 3C 78 1598 1088 OC 2F lf84 082F lOSE OC 53 1F54 lf84 1094 30 FF 0878 1098 F2 01 OC
l 098 cc 77 lf 84 0817
lOAl OC OB lFOC lf64
10A7 C2 01 087C lOAB C2 02 lfOO lOAF OC 83 08Ff lf84 1085 3C 5f 1595 1089 3C 5F 1597 1080 3C 00 1599 lOCl 3C 00 159A 10C5 CO 87 1432 1 OC9 E201
lOCB Of 00 1595 1823 1001 Of 00 1597 1823 1007 OE 00 1599 1823 1000 OE 00 159A 1823 10E3 30 Ff 1595
10E7 CO 01 lOCS 10 EB CO 87 021A lOEF 12 lOFO CO 87 C216
10F4 00
10f5 00
1 Of6 00
lOF7 1190
10f9 co 87 021A
10FD 42
lOFE 17 lOFF l 9'tf 1101 EOOO 1103 C2 02 112t 1107 !C FB ll51t llCB 38 02 OAOC llOF F2 lC CF 1112 3C F3 1154 1116 38 Olt OAOC
lllA f2 10 Olt
lllC C2 02 1192 1121 31t 02 1152 1125 C2 01 C870

lC54 1055 1057 1059
lOCA
lOEF
10F4 lOF 5 lOF6
lOF e
lOFO lOFE 1100 1102

614

8

615

oc

616

DC

617

DC

618

DC

619

TBF

62C

JT

621

MVI

622

14V l

623

MVI

624

~VI

625

TBN

626

JT

627

MV I

628

MVI

629

MVJ

630

MVI

631 SEF ILO MVC:

632

MVC

633

cu

634

JNE

635

MVC

636

MVC

63 7 OORIPl LA

638

LA

639

MVC

640 RESETl MVI

641 RE SE T2 HVI

642

MVI

643

MVI

644 RPLOOP 8

645

DC

646

SLC

647

SLC

648

ALC

649

AlC

650

Cl I

651

6NE

652

8

653

DC

654

B

655

P~lm
Xli *42*

PRINT TITLE

lll'12 1

Al2 CMSGCI Xl2'E000'
SPUDT. e·u.o t
SEFI LO

·
96 PRT.POS.DEVICE?

RESET l+le 131
RESET2HeUl

FR~MV+2el31

SNDMV+3, 132

SPUOT,8'101
SEFILO
RESETl+lt 119

132 PRT.POS.OEVIC~7 If NOT 9 MUST BE 120

RE SET2+1 el19

FRSMV+2, UCJ

SNDMV+3"120
PFIELOl~8),ATETUF
PF I EL 0-48( Sit I.Pf IELD UCSFLGeX' FF·
DOR IPL

SET UP ~8 CHAR.RIPPLE FIELD
THIS A 120 CHAR.CHAIN

PFIElDC120),ATSVNS SET UP 120 CHAR.RIPPLE FIELD
PFJEL0-120ll2J,PFIELO

LPD,XRl PfiElD-132,XR2 LPO+l31Cl3211PFIELD

LOAD DATA AREA AOOR.
LOAD PRINT Fla.D AOORo
fill DATA FIELD

FRSMV+l 9 95 FRSMV+3 ,95

RESET lST MOVE COUNT RESET lST MOVE DISPL o

SNDMV+1,x·oo·
SNDMV+2 .x ·oo.
XIO

RESET 2ND MOVE COUNT
RESET 2ND MOVE DISPL 0 PRINT THE LINE

XL2 1E 201'

·

FRSMV+lllt,ONE FRSMV+ 3( U ,ONE

OECR.lST MOVE COUNT
OECR. MCJVE DISPL.Of PflElD

SNDMV+l Cl ),ONE

INCR. 2NO MOVE COUNT

SNOMV+2{11,0NE

INCR. MOVE DISPL. OF DATA AREA

FRSMV+l,X 1 FF 1 RPLOOP
PRINT Xll 1 12'

RIPPLE COMPLETE 'I SPACE 2 LINES

Uhk

CHAIN ROUTINE VIA DCP

6655b7 ·***······························································..·····

658 ·

ROUTINE CO - l.tfPRINTA8LE CHARACTER CHECK

·

6~ ·

·

660 *********·····o********·······································..·······

661 AODATE DC

XL 1'0'

ADD ONLY 8 FLAG

662

663 RTNCO DC

Xll '01

ROUTINE NI MBER

664

DC

XL 1 10 1

FLAGS - NONE

665

DC.

Al2 CRTHOE)

ADDRESS Of NEXT ROUTINE PREFIX

666 667

*****B****P*R*IN*T******·············P·R··IN··T···T··I·T·L··E·..·······················

668

OC.

Xll 1421

669

DC

lll 1 23'

67C

OC

.Al2 CUM:SK)

671 672

DC

Xl2 1 EOOO·

1.A

AOTusx. XR2

673 674
675

MVI TBN JT

H OMANY+ 1,X' FB' SP UDT 9 8 1 10' GRED

SET ENO AT PRINT POS.128 IS THIS A 132 POS. PRINT ER

676 677 678

MVI TBN

HOMANV+l,X1 f3'
.e SPUDT '100 1

JT GREO

SET ENO AT PRINT POS .120 IS THIS A 120 POS.PRINTER

679

LA

680 GRED ST

DOUT, l~2
BWHER·3,~R2

SET ENO AT PRINT PIJS.94

681

lA

LP0+1 l'd0U

lOAO O~'l £ AODRA<REG.

DATE

25AUG69

EC NO.. 181t,.85

31 OCT69 816529

28N0Vb'9 816542

02~AR i'O
816631

DlNO\f"IO
816764

l9NOYH 818677

PROG HI PAGE

OE0ii··3 SA

ECB

PART NO~ PAGE

2%-if95l 6

ERA LOt OBJECT LCDE

AOOR ST~T SOURCE STATEMENT

! i2'9 f2 67 04 1 i2t 3t· 01 1835 1130 3C 01 lCft+ l l3'- 7C ff OIJ
1131 to a1 l<432
l BB E200
t 130 7t -'!O 00
1140 38 02 lf93
U41t n 90 21
11"'7 31t Ci 1F99 1148 3t C9 1 f99
l 14F CO 81 COCO 11~3 30 00 if99 11 S7 f2 81 38 11 5A 36 C1 l 82C 11 SE 3 8 0 l l 0 flt
llti2 CC i;o 112C
1166 3C 00 1 CF 4
ll6A to 87 lB't 116£ co 87 1432
1172 ECO l
ll 7't c.o 87 021A
1178 cl 1179 30 ll7A 1S70 11 lC f 03E 11 7E OC 01 l Btl lBDB
1184 t 0 81 C2 l A
l JBS B"' ll8'i OA ll8A 1801
1 )6( co 87 Q222
114'0 E03l
ll'iZ CC B1 1'432
1196 ucc i1-;.eco a1 c22A
l19C 00
1190 Of l l CJE. 80 l lW HH
i u.1 co er 021.i
l U5 41

113(
1173 1178
117~
ll 7e 1170 1188 1189 USS 1191 1197 l19C
1190 !19E: lUO lU5

682

J

WNTH

683 ADTUSX Ii. 68'~ ~UNTH M\II

TWVS IX tX ~l ADDA TE, X*Oli

ADD 2 fl HJ DAU. AOCR ..
SET lOC ONLY 8 FLAG

685 !'iiE:Xf.AR MV I

t86

B

0 ( t XR l ~, X 1 ff·
xrn

PUT UNPRTASLE JN DATA AREA

687

DC

XL2 1 E200·

688 689 690

~VI
TBN Jf

0 r,XRU ,x t40 1 STAT6,8~ 10' UPC ER

Bl ANK THE LAST U'IPRT .CHAR .. UNPRINTABLE CHAR. SKIPPED GO PR INT ERR

fi9l

ST

692

Cll

693 fWHER BE

694 HOMANY CU

695

JE

FINOEXtXRl
·-·f !NOE x, x·o9·
FI NOE X,·-· OOUT

GO ADD ONLY 26 OR GET OUT
DONE ENOJGH P~INT POSITIONS
Jl,IHP TO EXIT

b96 697
698

A

EIGHT ,XRl

TBN AODATE,>t·c1e

Bf

ACTUSX

ADO 8 TO DAT A AOOR. ADO ONLV 8

699

MVI ACOATE' )( 1 oo·

700

e

NEXC.AR

RESET ADO ONLY 8 FLAG

701 UPCER B

702

oc

703

8

704

oc

XIO Xl2' E 001 s PRINT
xu·ct·

SPACE l
SPACE ONCE PRINT UNPRTABlE ERR ~SGe

7C5

DC

ILP6l'

706

DC

Al2fWUOF)

707

DC

XL21 E03E'

708

MVC MAP ( 2 t ,CHTl6

709

8

PRINT

71C

DC

XU' 851

PUl CHART ~O.IN MSG. PRINT PRiN'lER NAP CHART NO.

711

DC

IL 1 1 10'

712

DC

Al2 C"APJ

113

B

714

DC

715 OGUT e

116

oc

HALT
Xl2 1 E03E' XIC Xl2 1 E200 1

UkPRTABLE ERR HALT

117

B

lOAC

718

DC xu ·oc·

719

120 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .~·················

721 ·

·

722 ·

ROUTINE E - COMMANDS TEST--fROM SWITCHES

*

723 ·

·

* 724 ·
725 726 ·
* 121 ·
728 729 · 130 ·

THE PROGRAM PR nus INSTROC TIONS roR CONSOLE DATA SWITCH ENTRY
Of PRINTER COMMANDS ANO PERFORMS A -EA- HALT. THE DATA SW! TCHE S MUST TtfEN BE SE:i TO THE OES!REO ENTRY ANO THE HALT RESET., AFTER REAOlt.G AND STORING THE SWITCHES, THE PROGRAM \ii! LL HALT
Qi SPLAY! NG -EC-. REPEAT ED ENTRIES MAY BE MADE WITH ACCEPTANCE BEING NOTED SY AqfRNATING HALT DI SPLAYS OF-EA-ANO-EC-. THE TWO TYPES Of DATA ENTRIES RECOGNIZED INCLUDE--

* * * · * * *

731 ·

$

* 732
733 6

l ~ -QQCC- '11HER E QQ - Q C OOE Of COMMAND. CC - CONTROL CODE Of COMMANll..

* ·

73lt ·

·

735 ·

2. -OXXX-,

() - POSIT! ON Of SWITCH le

·

736 ·

XXX - DELAY COUNT lN Milli SECONDS..

·

737 ·

·

738 it ENO Of ENTRY IS SIGNALED SV -0000- IN THE SWITCHES..

*

73q ·

·

740 · 741 · 7"2 ·

BEFORE EXECUTING THE STRING OF UP TO 20 ENTRIES, THE PROGRAM PRINTS A LIST OF THE ENTRIES..

*·*

77~43~ ·PT·~·O·E···D·C·····X··ll·@·f·6···t···~·······~·R·O··U·T·IN*E**N*U*M9·BE·R·*~·············*******

745

oc Xt1@ac 1

FLAGS - MANUAL INTERVENTION

746

OC

:u2·Hff 11

LAST ROUTINE IN SECTION

H 1487

~·············*··~·····**·~··***$$$$$···***$*··········$··~·~·~~··*·*~·

E

PRINl

PR! NT I NSTRUCTWNS

74:9

OC.

XU '~l 9

l!.l\f l
u:. ~-m.

?'.)AUGbfi1 816~~;

3WC 1t ~
Mlt-529

28NO\lt9 SltS.42

02Mlil 70
s l6tJ3!.

01 N0\110
81616~

PROS IO PAGE

0£01-3
6

· · ·

:!1'4\totl NO.,
~>AiGf

ERR LUC DEJECT COCE

1U6 2E

l U7 !9A8

l1A9 EClEA

l !AB t.O 87 021/1

llAF C5

l1BO 3A

l1 Bl l9E5

llB3 C2 01 lFtO

ll 87 30 3F UCB

1188 f2 Ol C7

llSE 3C 6C llCB

11 C2 F2 87 04

l lC5 3C 3F llCB

llC9 fO lC CO

llCC 70 00 01

l lCf 40 01 01 1021

1104 f2 81 58

l l!H 79 fO CC

HOA F2 10 44

l lVO 78 EO 00

llEO f2 90 12

llE3 79 10 00

llEb F2 90 OC

11E9 79 05 00

llEC f2 90 24

l lEF ?D 04 Cl

l 1F2 F2 82 2C

llf5 lC 01 lf97 01

l lFA CO 87 021E

l lFE 02

l lff lf97

co 1201 l9F3

1203

87 02111

1207 C5

1208 OE

1209 l9f3

1208 E O#tlt

1200 fO 18 lB

1210 F2 87 16

1213 79 01 <iC
1216 co 90 llf5

l21A 10 lC 01

1210 CO 84 llFS

1221 36 01 1825

122S 7D Ff 02

1228 F2 81 04
1228 co 87 1167

122F CO 87 021A

1233 41

123't C7

1235 19FA

1237 EOOO

1239 C.2 01 lft;O

1230 lt 01 lf97 01

1242 36 01 162~

1246 CO S7 021E

l24A 02

12"8 lf 97

1240 19FE

124F CO 87 CZlA

1253 01

1254 O't

1255 l9H

1257 40 01 01 1821

l25C CO 01 1230

1260 CC 87 02U

1264 15

1265 CZ 01 lf60

AODR Si~T SOUHCE STATF..MENT

750

DC

iue~6 6

151

DC

Al2t H'!SU

75;~

Dt

XL2 9 EOEA'

753 lUf 1:,4

B

PRINT

r:c

Xl l '05 1

llBO 755

DC

lll' 58'

l.182 75e

DC

AL2( INS2)

751

LA

ET ABlE:rX~l

lOAO TABLE AOORESS

758 ENTERC CU

759

Jf\E

ENTER H- 2 11 Xe3F 1
REOAS

WAS l'ST HALT AN EA?

1bC

f.'IVI ENTER1+2 ix· ct·

761

J

ENTER 1

SH FOR EC HALT

7o2 RE DAS HV I

763 ENTERl HPL

764

SNS

765

CLC

766

JE

767

TSF

768

JT

769

TBN

ExN·TcoEeR,lx+c21t cX·"3F' u,XRu,x·o· 1(2 ,x Rl I e ZERO
OOC MOS
O(,XRlt,.x·Fo·
NEXT
oc,XRu,x·eoe

SET FOR EA HALT HAU
READ DATA SWITCHES
BRANCH tf LAST ENTRY -0000TO EXECUTE THE STRING Of CMNDS
nus GO REAO NE'l(l COMMAND I f
IS ORAY ENTRY
HAKE SURE DEVICE ADDRESS IS -E-

770

JF

B~DCMC

771

,x· TBF

C( 'XRU

101

112 113 774

Jf

BADCMO

TBF .,x 0 ( ~XRU 1105;

JF

CKSKl P

BRANCH IF NOT SPACE OR PRINT/SPACE

llFE

775

CLI

776

JL

717 BACCHD MVC

778

B

779

oc

H,XRU,x·o4· NEXT
CMDSA \I( 2J t U , XR 1t UNPACK
z l l l ' 1t

MAKE SURE THA l C ONTROl COOE IS LESS TfiAN FWR
*INVALID COMMAND ENTRY CONVERT ENTRY FOR PRINTING

1200 780

DC

Al2(CMDSAV)

1202 781

DC

Al2 UMfCI

782 1207 783

8

PRINT

DC

XLl9C51'

PRINT ENTRY ERROR MSG E0-37

1208 181t

DC

lll'141

120.l 785 120C 786

DC

Al2( INVCI

cc

XL2' E044'

181

HPl

788

J

789 C.KSKIP TBf

790

Bf

x· 18" .x· 1e·
WtilHl.T
0.( ,XRU ,x' 01'
BA DC MD

'lt49 HALT ON ERROR GO TRY AGAIN If NOT SK IP MUST BE ENTRY ERJUJR

791 792
793 NEXT

CLI l(,XR1),X 1 70 1

SH

BAOCMO

A

. TWl.hXRl

SKIP - NOT MORE THAN 112
· INCREMENT TABLE POINTER

794

Cll 2(,XRl!.,X'ff'

795

JE

DOCMJS

STOP ENTRY IF 20 HAVE BEEN MADE

196 WtiIHLT B

ENT ERO

797 DOC HOS B

1233 798

DC

PRINT
Xll',H 5

PRJ~~ HEADING FOR LIST OF ENTRIES

1234 799
1236 BOC 1238 801

DC

1u ·1 ·

DC.

AL2H.I sn

oc xL2·eooo·

802

LA

ETABLE,XRl

l.OAO SASE AOORESS

803 GETNXT '1VC CMOSAV( 2), U ,XRU

LOAO COMMAND FOR UNPACKING

804
eos
l24A 806
l24C 807
l24E aoa

A

HIO.XRl

a

UNP.IC:K

oc

il 1 11 2'

oc

~l2 CCMDSAV)

oc At2uu sn

INCR EKEN2LTA8 lE PCH.aTER CONVERT ENT RV FOR PR INT ING

809 1253 810 1254 811

8

PRINT

DC xu·o1·

oc

l l l 9 .le®

PRINT OUT ENTRY

1256 812

DC

llt2UUST)

813

C l.C l CZ i!'XRl ~ t ZERO

614

BNE GETNXT

iH5

B

P;<INT

1264 816

DC

XU' 15'

Si 1 COTHRti l A

HABlf~XR 1

OATE

2:$AUG69

EC NO,, 816485

?HOC To~ 8 lb529

28N0\469 816542

02MAR70 Uti63l

OiNC\!'70
!Bl61b"~

!9MJ\!7l SliS6H

PROGi to .
i!'-'1H!,[

· · · · · · · · · · · · · ·- ·-·. · · · · · · · · · · ·

l&~ MAJNHNANCE DIAGNOSTIC. PROGRAfl!l EOl3 5203 U NE FRI NTE R FUNCTWN HSTS

PA.RT NO~
PAGE

2589':151 7

ERR LC( OBJ~CT COtE

AOOR SlM T SOlJ!.CE STA TE ME NT

1 269 30 E 0 IF AZ 1260 C.O 87 l 2A3 1271 C.O S7 1265
l 275 34 08 12A2 12 79 3() El lfBf 1270 38 01 lFBf 12El CC 90 1279 l 28~ 3C 28 lf90
i2s9 oo FF oaoc oaoo
l28f 00 38 CfClC C800 1295 Of 00 lf90 1823 l2 98 CC B4 12 B9
129 f co 8 7 0000
12A3 34 08 1203 12A7 3(. ff lFAO
l 2A8 40 01 01 1821 12 BO CO 81 0000
l2b4 1(. 01 13Af 01
l 2 B9 79 FO 00 128( F2 10 EB l 28f 78 02 00
l2Cl f2 9'.l ES UC5 3( 01 1310 l 2 (,9 l( 01 1F97 Oi
, ,(( E -;i,o rn HBO
202 38 so (209
206 f2 90 OB
l.2'09 cc 87 l3Ei9
1200 HBO l ,?. Of l8bA l 2f l f-2 Bl 08 l 2 l4 CO 87 l 3B9 121.-8 lf8C l 2i: ll HlM l.2H OD 00 lfAl lfAO l 2f 2 f 2 01 07 l 2f !> 30 H 1F99 12 f9 f2 82 12 l2H C2 02 068F DOO SC 13 00 1816 1305 OC. 00 lfAO 1 fAl 1306 f 2 S7 C9 J 30f 36 02 l82f 1312 SC OB C.C 1876 1 317 3C OA 1H8 131 B 3C OA l 3ti9
l.Hf cc 87 !389
1323 lf97 1325 l 881:
1327 oc 00 18f.'2 l88E
13.t'O 38 04 lf9f'J 1331 f2 lC 30 1334 00 01 1f ~l lfA9

120E 12EO 12E9 12E8
1324 1326

818 Bl9 820

SNS
a s

RICTR,X 0 EO' Ct«; MD
GOTH~U

SH EXPO l INE CNT .. ro ACTIJAl GO EXECUTE STRING OF COMMANDS

821

822
823

*~·***W$·A·i·l ~F·C·P·*M·4*****·T~H·E·N···CE·L·A·Y··S·~·B·R·O·U·T·I*N·E*******¢****$**·*··$*·***·**··$

824 ~-*$***************··$*~********·~*******·~***·~~*********··~&·*******

825 ~DH ST

ME.I'. IT ·3, ARR

SET RETURN

826 GETI~ SNS STAT2,X'E2'

GET TIMING

827

TBN STAT2,B'l'

HAMMERS IN ~4

828

BF

GET 1"4

6 29 630 WAT
831

MVI H SEC S , X e 2 8 '
ClC lPI(256),lPi ClC LPi(bOl,lPI

6-0 MSEC CHAY CHAY l MSEC,.

8 32 833
B34i ME XI T 835

SlC BH
B

MSECS( U ,ONE WAT
*-*

OECRG DElAV COUNT RETURN

836 *********

***·*****

······*·· 837 * CKCMO **·**~**************~*****~~~**~************~*******$** CKCMD ·

838
* 839 * 840

**~******
** SUBROUTINE ISSUES CCMMANOS FROM TABLE IDENTIFIED BY XRl UNTIL

*· 841

ZERO ·fNTRY FOUNO. -THE PRINT DATA FOR fl PRINT COMMAND lNCLUOES

* 842

AN INDICATION OF lHE TYPE OF PRINT PLUS THE SPACE OR SKIP

*
"'

843 · 844 ·

OPERATION~ BET~EEN IT ANO THE NEXT PRINT COMMAND~

*

88.4it56

~·····~····~·*·~···**~·-······~···*·~·················*****************

C.KCMD ST

C.C.G0+3tARR

SET UP RETURN ADDRESS

647

MVJ tH10SA,X 1 H~

ZERO UNE CTR., SAVE AREA

848 C KOGNE CLC l (2, XRl J, Z ERG

EX IT ROUT INE If -0000- ENTRY

849 CCGO BE ·-·

850

MVC DOXIOl2>wl(tXR1)

SET UP EXECUTE 110

851

TBF C( wXRl, ,X 1 f0 1

DO NOT EXECUTE COMMAND If DELAY

852

JT

OOC:MO

853
854
855

TBfll Jf MV I

0{,XRU ,.lP02i
DOC MO
S AV CMCH, l

BRANCH IF THIS IS NOT PRINT
COMMAND

656 8 5 7

MVC
SN s

sCMDSAV(2i 9 1.,XIUH
I.ii. i 0 7 )( ~ !t 0 II

GRAB THE LINE COUNTERS

858

TB~ SBYTtl,SSW08

RIGHT CARR.,

85~

JF

COLU (,

860
86 l 862
863

B

CV D

DC

Al2 £ SU 1CH

DC

Al 2 DA S!H)

J

SAM ASH

CONVERT RIGHT l1NE COUNTER
!FROM
rn

864 COll IC S

8 6 5

DC

BMi

DC

6b7 SA~ASH CLC

868

J~E

C \ID Al 2 CST Al r~ l )
J.ll2 HJAS Hi UCTRt U ~UNOSJ.I
LAL PO

PUT U NE NO. HI PR INTOUT FROM TO
UNE COUNTER NOT MOVED

86>'9

Cll

870

Jl

871 LALPC LA

872

M\IC

813

MVC

874

J

FINDE>1,X1 f6'
ON 'tRE S
lPO+l9 9 XR2
02C,XR2J,PIHOP
llNOSACl),L!CTR
cococo

PRINT AREA AOOR.fUU.
LOAD START AOOR. PUT U NE NO.f.Px INi IN DAT A FIEL 0 SA VE PR I NT LI NE NO~

875 ONYRES A

lklVE ,XR2

810

~vc 0Cl2,XR2·1PRlOP

ADO 12 TO PR INT AREA AOOR<

877 COCOCO i-1"1/I

878

MVI

879 C:COCC B

880

DC

881

OC

882

MVC

883

TBN

884

JT

SPMOVE+l tlO
SKHOVE+ 1, 1C
CV 0
Al2CCHOSA\I) AL2CSKLIN0) SPOPClltSKLINO
CMOSAV-1,x·o4·
ISSK JP

SET MOVE LENGTH TO 11
SET MOVE LENGTH TO 11
C.ONVERT CONTROL CODE TO DEC. FROM 10
MOVE COUNT INTO SPACE MSG. ALSO

885

CLC CMOSAVl21,SPACE0-2

THIS A PRINT NO SPACE

out

25AUGb9

EC NU. 8lti"tS5

31 OCT b9
3lb32'9

2BNOV69 8l6'5't2

02MAR 70 8H>63l

OlN0\'770 816 76<1\

!9NOV71 Sl86'l7

PROG IO PAGE

OEOl -3 7

ISM MAINTENANCE DIAGNOSTIC PROGRAM
EOB 5203 LINE PRINTER FUN CT ION TESTS

PART NO.. PAGE

2589951
7A

ERR LOC 08JEC T CODE

AOOR STMT SOURCE STATEMENT

l33A f2 01 06
1330 ec 40 oo
1340 F2 87 30 1343 36 02 lB2f
1347 ec oA oo iss2
l34C OE 00 lfAl lF97
1352 00 00 lFA l l 84tl 1358 F2 04 18 1356 Of 00 lfAl 1841 1361 f2 87 OF 1364 36 02 1 82 f
1368 ec CA 00 188E
l 360 CC 00 lFA l lf97 1373 OE 00 1370 1825 1379 lt 01 lf 97 Cl l 37 E 34 0 2 1F99 1382 OD 01 1F97 1821 1388 F2 81 lF 1388 39 FO l F96 l3BF CO 10 1373 1393 38 02 lf96 l 397 F2 10 l C 139A 3C 06 l34S l 39E 3C 08 1369 l 3t.. 2 30 F 0 lF 99 13A6 CO 82 13lf l3AA CO 87 1432 l 3AE 0000 1300 36 01 1825 1364 CO 87 12AS
1388 00 1389 36 08 1823 1380 3'> 08 13C:A l 3Cl 36 08 1825 130 34 08 l 3EO 13C9 34 08 l3E6 UCO 36 08 l 823 1301 34> 08 1409 1305 OC 01 l3EC 0000 130E OC 01 l3Ff 0000 l3El OC 01 13f0 0000
UE7 a: QO 1386 0000
13ED O~ 20 0000 1851 13F3 OF 00 1388 1623 l 3F 9 F 2 8 2 CA 13FC 06 20 0000 1852 1402 CO 87 13F3
1406 co 87 ocoo
140A 34 08 llt31 140E OC 02 lfA5 1838 1~14 OF 02 lfA5 1823 l41A f2 81 07 141 D Cl E6 lit lit 1~21 F2 8l OA
llt24 co 87 0222
1428 EOll l 42A C 0 87 lltOE
1't2E CO 87 0000

BBS 1429

886

JNE

887

~VI

888

J

869 l\OZO A

890 SPMOVE MVC

891

ALC

892

Cle

8.,3

JNH

NOlO
o' ,xR21 ,c· ·
INCCMD TWlVE, XP-.2 tJU l ,XR2 i, SPOP
UC TR ( u ,om SA \I
LICTRU l,FCLG I NCC MD

AOD 12 TO PRINi AREA AODR<
PUT SPACE IN MSG
ADO SPACES TO LINE COUNT
l INE COUNT UP TO 112

894

SlC

S'il5

J

896 ISSKIP A

897 S KHOV E MV C

898

f'IVC

899 INCCMD ALC

900 SAVCHO MVC

901

ST

902

ClC

903

JE

904

TBf

905

BT

906

TBN

<J01

JT

9()8

ILlVI

'909

KV!

'910

c.u

911

Bl

912 COC!!>!t B

';13 D OX! C DC

l ICTR t 1 h FOLG
l NCC rm
TWL YE 1XR2 0 ( 11, XR2 I, SKL INO LI CTR U) 9 CMDSAV
SA \'CM DH1( U , T ilO
C~OSAV(2),l(,XR1)
FINDEX,XR2
CMOS AV ( 2), ZERO DCC MO
CMOSA V-1, X'f 0 I INCCMD C MDSAV-1, X' 02 t
to um
SPt;OVE+l tll
SKMOVE+l, 11
fINDEX,X"f0 11
ococo
XIO Xl2'0 I

RE SE l CO"'TER
AOD 12 TO PRINT AREA ADOR<
PUT SKIP IN
PICK UP NEXT COMMAND SAVE PRINT AREA AOORa GO DO XIO If THIS IS LAST
COMMAND IN TABLE
BRANCH If THJS IS DELAY ENTRV
GO EXECUTE STRING OF COMMANDS If
THIS IS PRINT S ET MOV E l ENGT H T 0 12 SET MOVE lENGTH TO 12 PR INT AR EA AODR .. AlMO ST F UU.
GO ISSUE COMMAND

914 915 4916

TWO,XRl

B

CKOONE

I NC RE ME NT TO NEXT COMMAND C-0 LOOK AT NEXT COMMAND

* 917 **~********···*~*····******~*~**g*********~*******************········~

918

CCNVERT l HEX BYTE TC ZGNEO DECIMAL SU8ROUTl~E

919
920

******~******~$***************~**~****··*~~*****~~******~~******······~ HXBYT DC Xll'OO'

921 C VD

A

92.2

ST

<)23

A

924

ST

1925

ST

926

A

'927

ST

928 FROM MVC

929 TYBOT ~Yt
m '930 ORl MllC

931 FRGS'tl MVC

~32 ZROHl i.'.t,.z

''B3 DECGAN SU;

<.134

Ji.

935 108 YT AZ

936
937 nxe

B
B

938

ONE.ARR
f ROM+ '.511.APR
TWO, ARR
TYB01+5,A~R
DTORZ·51ARR ONE, ARP..
l! XE+ 3t.ARR FRC8Yl+Sl2~,·-·
10EYT+3(2J,·-·
·-·* lRO ro~ 3( 2D 9$-1$<
tt:i: BVT U t,,
·-·(3~ $0EC2RGU)
HX8YH l >"ONE
llXE
·-·( 3) ,Olt:C.IJNU U
OECGAN *-*

AOO 1 TO GET lST PARAMETER INSERT THE FROM AOOR~
AOO 2 GET 2NO PARAMETER lNSfRT THE 1"0..,ADOR .. INSERT THE TO AOOR. ADO 1 MORE FER RETURN AODR...
sn RETURN AOOR ..
PUT BYTE IN WORK AREA ZERO THE TO AREA DECRH,ENT THE HEX BYTE EX IT If BELOW l
INCREMENT THE OECe tl.lJNT
RETURN

939 94C

**······$·*C·l·iE·C·I<···fC·R···IE·!U·S·Y··A·N·O··D·H·A·Y···SU··B·R·O·U·T·IN··E·················~··~··$··*

941
942

·BR·O·U·T$··S··i ·······8S·E··X·!T·+$3~,·A·R~R····~·····lO·A·O···R·E·TU·R·N···A·O·O·R~~··*········$·······

94'3 SOC

MVC

BUSUB~3) 9 8USCTI

STORE DElAV COUNT

944 flOOP S lC

8USIJ8 ( 3), ONE

c;45

JZ

946

TIO

941

J

948 TCLONG 8

TOLCt-JG
flOOP 9 B~SY
BSEXIT
HALT

TRY FOR 1 · 5 S EC .. TO CLEAR BUSY

9't9

DC

Xl2'E011'

950

8

SDC

······· ······· 951 BSEXIT S

·-·

952

RETURN

953 · XIO ····**···**$**····*****$······~···························· XIO *

OAH

25AUGMJ

F.C NO"' Sl61t85

3!0CT69
816529

28NOV ;e9
8165it2

n2MU"M 6i66H

!NOVlC 8 lt.1'64

l 'YniCV1' J 81661'7

PFU:'JG XO
PAGE

OHH-l ?A

PART NO ..
PAGE

2589951 8

520 3 l Hd: P:< INH:R fl.J>ICT ION TESTS

E~R l~t OBJECT CGOE
1432 cc 01 1'9C2 1858
1438 36 08 1823 l't3C H CB llt55 1440 36 08 1823 l't44 34 08 l64F 1'448 34 Cil 1651 llt4(. 34 02 1653 1450 OC 01 150F 0000 14 56 CC 0 I IF 90 l 50F 1't5t 39 fO l 50E 1460 f2 10 19 lle63 38 '90 020A 1't6 7 f2 90 03 l46A fO lC lB H60 38 20 020A
l "71 f 2 90 u
1474 30 00 lf90 1478 3£! FO 1F9C
141r. oc FF oaoo ceoo
1't 62 0 ~ 3 B 0800 0800 l 4138 Cf 01 lf 90 1S23 l4S E CO Bit l 47C 1492 39 FO 150E llt«i6 ( 0 10 1':41t
l49A Cl EO 14Al 1't9f f 2 81 12 l4Al CO tn 1656
l 4A5 CO 87 1732 1'tA9 t 0 87 0222
l4AO EOlO
HAF CO ti7 l49A l 4tH CO 87 140A 14137 31 E4 1846 l't88 31 E6 l84A 14BF 31 EO 0000 HC3 38 80 0209 14C7 Fl 90 Ole l4C.A 3A 08 1 50E
l4CE OC 01 1F91 150f llt04 38 08 150E 1408 f2 90 11 l'tOB 3C Et 1581
14Df 3C EB lfU, l4El OC 01 1528 1860 1'tE9 f2 87 21 litt:C 3C E<Ct 1561 HFO 3C EO lFAA
l4f't oc 01 1~28 1862
l'tfA 30 09 OA03 l4H f2 01 CC l!>O 1 30 E2 lf8f 1505 38 01 lf8E 1scq co qo 1501
1500 f3 00 00
1510 oc 01 1801 1800
l!>lt> OD 01 l50f lfAB
l~lC F2 81 54 l !> lf 3C E0 lf 80

······* AOCR ~T~T SO.JPCE ST AT EMEHT q9s5s4 ·

·..·.··.

* 9~6 THIS ROUTINE ISSUES AND CHECKS AN EXECUTE 1/0 COMMAND AS

*

951
958

'·*

SELECTED ev THE MAINLINE PROGRAM. LINKAGE TO THIS SUBROUTINE
IS AS FOLLOWS-

*
*

959 ·

*

960 ·

B

X IO

·

961 ·

DC 2,x·o CODE & CONTROL CODE Of COMMAND'

$

962 ·

·

996634 ·X·IO·····M·V·C···*F·R·M·L·E·+·3·C·2·1·,·A·D·F·~·L·G···~·*P·U·T···IN··1·1·2··F·O*R*M**L·E~N·G·T·H···A·O·D·R·.········

965 SKIXIO A

ONE,ARR

966

ST LOCM0+5,ARR

967

A

ONE,ARR

LOAD PARAMETER POINT9l

968

ST

EXIT+3,ARR

969

Sl SAVWUN,XRl

SET UP EXIT
SAVE REG. l

97C

ST SAVTUU,XR2

SAVE REG.2

971 LDCMO HVC

912

MVC

973

TBF

974

JT

CMNC+2(2t,·-· ~SECS (2 i ,Cfl!N0+2
CMNO+l. X'FC·
WT

SET UP COMMAND FROM PARAMETER
IF ENTRY IS -OXKX-9 GO DELAY

975

TBN SBVTE2,SShll

BRANCH IF SSWU OFF

976

Jf

CSSWOA

~11

HPL x·1e·,x·1c·

HALT ON Elt

<118 CSSWOA TBN SB VTE 2, SS!lll2

DELAY BETWEEN CMDS.

979

JF

TIOCHK

~80
981 982 ~l 983

SNS
SBF CLC
CLC

MSEcs,x·o·
MSECS-1,x 1 F0 1
LPI 1256· ,LPI
LPIC6C) ,LPI

READ DATA Sti!ITCHES FOR DELAY
TIEN OFF HIGH ORDER ~ SITS Of DELAY
1 MILLISECONO DELAY

984 985

SLC SH

MSECS,ONEC21 till

00 FOR DESIRED NUM Of MILLI SECS

986

TBF CMNO+lt x·Fo·

987

BT XIOEXT

DO NOT EXECUTE COfitMAN> IF DELAY

c;ee llOCHK TIO ERNRO\',hROY

BRANCH IF NOT A.EADY

989

J

SIOOK

990 ERNROV B

STERR

BR TO CHECK STATUS

991

8

f>STERR

GO PRINT STATUS OR lST LINES

992

B

HALT

·PRINTER NOT READY

lltAE 993

DC

XL2'EC1C'

NOT READY ID.

994

8

T IOCHK

995 SIOOK 8

BRGUT

996 997

LIO LPIAOR,LPIAR
llG lPOAD~,lPOAR

lOAO LSR ADDRESS REGISTER

998 FRHLE LIO ·-·,LOFCLG

999

T 8N S6VTE 1, SSW08

LOAD FORMS LENGrH
PRINT ON R1GHT C~RR.

1000 1001

Jf SBN

NCTRlT
c MND+ lt 8 1 lCOO.

JUMP IF NOT
SET MOO . a n

1(102 NOTRll MVC

1003

lBN

ERT 1(2t,Cf4ND+2 f~t.iO+l, e· 1 ooo·

THIS CMO.FOR RIGHT CARR.

1004 1005

Jf ~VI

SKR ICA CABY+l,RICABY

SKIP T.O SET LEFT CARR.
SET TO CHECK RIGHT CARR.BUSY

lOOb

MVI SPACE0-£,X 1 E8 1

SET RIGHT CARR.SPACE 0

1007
1008

HVC J

l ICDSA+5C 2), STOAO
Cf~ND

PUT RIGHT CARR.CTR. IN COMPARE

1009 SKR IC.A MVI CABY+ t.C.ABUSV

SET TO CHECK LEFT CARR.BUSY

1010

f'VI SPACE0-1.X'EO'

SET LEFT CARR.SPACE O

1011

MVC UC DSA+5(2), STOMl

PUT LEFT CARR.CTR. Il't COMPARE

1012 l 013 1014 ~AHOl
1015

Cll JhE
SNS T BN

RNUMvX 1 C9' CMNO
STAT2 9 X'E2 1 ST AT 2-1, 8 1 1'

IS THIS H&T PRINT ROUTINE
GRAB TIMINGS
WAIT FOR ttOME LATCH

1016

BF

WAHf;l

1017 CMND SIO x·o·,x·c·

COMMAND LOADED DURING EXECUTION

1018

"vc MAP 12ItCHT17

PUT CHART NO. IN MSG.

lC19

CLC Cf'4N0+2(2) 9SPACEO

00 NOT CHEU< FOR BUSY IF THIS WAS

1020
1021

JE

ISBUSV

ShS STATO ,x' EO'

SPACE WI TH ZERO CONTROL CODE GRAB THE l JNE CTRS.

OATE

25AUG69

EC. Nu. 616485

310(.J 69 816529

2SNOVt9
8165it2

02MAR 70
81 <>631

01N0\17C 816764

19NOV71 818671

PROG 10 PAGE

~EOl-3
8

5203 UNE PRWHP. ftl-4CHON TESTS

ERR LGC OBJECT CCOE

ACJOR STMT SOURCE S'f AT EMEHT

1523 00 00 150f 0000 1529 f2 Bl 47
l 52C Cl E6 1573 1530 3.A Ol 1F8B
1534 cc 00 1780 1553
l 53A CO 87 l72E l 53E CQ 67 021 It 1542 81 1543 10 1544 1837
15% CO 87 021A
l 54A 85 15"'8 CA l54C 1801
l54E CO 67 0222 1552 E016 l 554 38 10 020A 1558 f2 90 18
1558 OC 00 1566 1F90
15f>l co 87 0222
1565 EOOO
1567 oc 00 1572 !F91 1560 co 87 0222
1571 EOOO
1573 OC 02 1 FAS 1838 1579 OC 01 1504 185A 157F 3C 12 1600
1583 OC 07 1844 l86A 1589 Cl E2 15CB
1 58D 30 OC OA03 1591 F2 01 08
1594 6C SF 5F SF
l 598 6C 00 00 60
159t co 87 0212
l SAO Ot 01 1504 185C l 5A6 3C 13 1600 15AA OC 07 1844 185A 1580 Cl 00 15CB
1584 OC 01 1504 185E 15BA 3C 14 1600
158£ oc 07 l~ 1862
l 5Clt Cl E6 l 5C8 l 5C8 f2 87 36
l SCB CF OZ lFAS 1823
1501 co 01 0000
l 505 co 87 1656
1509 CO 81 l6CCJ l 50D 3A 01 1F88 15El OC 00 1780 1600 l 5El CO 87 1'132
15EB CO 87 021A lSEF 81 15f0 18
15fl 1852 15F'3 C0 87 C21A 15F7 85
1SF8 CA
l 5f9 1801
l 5FB CO 87 0222 15Ff EOOO
1601 Cl EO l63C
1605 co 81 1656 1609 co 87 1732
1600 30 OD OA03 1611 F2 81 3C
1614 38 02 1F93
1618 f2 90 29
1618 CC 87 C21A

1022 UCOSA cu;

1023

JE

102~

HO

lv25

S SN

1026

MYC

1027

8

1028

8

1542 1029

oc

1543 1030

DC

1545 1031

oc

1032

8

154A 1033

DC

1548 1034

DC

1540 1~35

DC

1036

B

1553 lC3l NOBALT DC

1038

TBN

1039

JF

1040

M\IC

1041

B

1566 1042 CMuOE DC

1043

M\IC

1044

8

l572 1045 CNCO DC

1046 ISBUSY MVC

1047

MVC

1048

MVI

1049

MVC

1050 BUSY Tl Cl

1051

CLI

1052

JNE

1053 FR SM\I MVC

l 054 SNOMV MVC

1055 SKIOO B

10 56

MVC

1057

MVI

1058

MVC

10 59 CABY TIO

1060

MVC

1061

MVI

1062

MVC

1063 PIBY TIO

1064

J

1065 6SYLP SLC

1066 OELA V BNZ

1067

8

1068

8

1069

S8N

1070

MVC

1071

B

1072

8

15EF 1073

CC

15FO 1074

DC

15F2 1075

DC

1076

8

15F7 1077

DC

15F8 1078

DC

15FA 1079

DC

loao

e

1600 1081 BUALT OC

1082 C~DY TIO

1083

8

10£14 SOE HF 8

1085

CLI

1086

JE

1087

TBl't

1088

JF

ios9

e

CMNO+ZC l) 9 ._.
IS BUSY
I S8USY,BUSY
TAGS, TAG7
HLTIOU I tNGBAlT :OSTERR
PRINT
Xll 1 81 1
ll 11 29' Al2 fNOBUSY I
PRINT
XL l '85 1 Ill 1 10 1 AL2CMAPt
HALT
Xl2 1 E0161
SB't'TE2, SSWU
IS BUSY CMOOE( U ,ERTl-1 HALT
Xl2' EOOO' CNCOC U ,ER Tl HALT
XL2'E000'
BUSUBC 3 J ,BIJSC T DELAY+3 C2 J ,Aoeu&Y
~WALT,X 1 12'
BUMSGC8h BUFF BSYLP,PBBUSY
RNUM,x·oc·
SKIDO 95C96,XRlt ,95(,XRZ) 0( l,XR1J,96(,XR21 TEST DELAV+3C21,AOCABY
WALT,X'l3' BUMSGCSl ,CARR
BSYLP,*-·
DELA\'+3 (2 J,AOPIBY BUA LT 1 X 1 141
BUMSG C8 h PR IN
BSYlP1BUSY
·-·CHRDY
BIJSU 8 C3 ), ONE
STERR
SDEtfF
TAGS, TAG7 HLT JDC 1), BUAL T PST ERR
PRINT
Xll 181'
IL1'27' AL2CBUTOlOI
PRUIT Xlt'1 851 lll 110'
Al2CMAPt HALT XL2' E~OO' NRDYER,·OY
STERR PST ERR
RNUM' x· co·
XIOEXT ST,QT6,B"lO·
XIOEXT PRINT

PARl NO. 2589951

PAGE

SA

PRINTER SHWLD BE BUSY
SET lST UNE PRINT O~LY
PUT HALT 10 IN MSG
GO PRINT STATUS PR INT NOT BUSY MSG

PRINT PRINTER MAP CHART NO.

·IF NOT, HALT ON ERROR NOT BUSY HALT
SSW- 13 ON (NO ALT.PRTR.I ?
SET CMD.tOOE IN HALT
DISPLAY Ct«>.cme
SET CONTROL COOE IN HALT DISPLAY CONTROL CODE
PUT IN LOOP AODR.
SET BUFFER BUSY ID MOVE BUFFER MSG PRINT BUFF BUSY THIS THE RIPPLE PRINT ROUT~
RIPPLE t10YE 96,120,0R 132 CHAR .. tNTO THE OATA AREA FROM PFIElO
GO READ DATA SWITCHES
PUT IN LOOP AOOR.
SET CARR.HALT ID MOVE CARR.!16G
CARRIAGE BUSY
PUT IN LOOP ADOR ·
SET PRINTER BUSY HALT ID
MOVE PRINTER BUSY MSG PRINT ER BUSY
TR V FOA ABOUT 3 SEtONO S TO CLEAR BUSY
CHECK FOR STATUS ERROR
SET PRINT l ST l INES ONLY FLAGS
PUT HALT 10 IN MSG GO PR !NT STATUS OR lST LINES PRINT BUSV MSG

PRINT PRINTER "'AP CHART HO.

BUSY HALT

BR TO CHEC I< ERR STATUS

GO PRINT STATUS OR lST LINES

IN UNPRTABlE CHAR TEST

YES , GET OUT

e n U N P R T A B l E

ON

PRINT UNPRTABLE CHAR SKIPPED

DATE 25AUG69
ec NO. 8161tB5

310CT69 816529

28NOV69 81654t2

02MAR70 816631

01NCV70 8167M

19NOV71 818617

PROG 10 PAGE

OEOl-3
8A

. ·· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

·----· · · ·

. ..· ·~· · · · ·. . " ·.·

· · · · · · · · ·

EOU 5203 t INE P;t INTER fl.fjCTJON TESTS

PART NO .. PAGE

2 58<;195 l 9

E~R LCC OBJECT CCDE

AODR SHH SOURCE ST AT EM ENT

l6lf Cl l 620 10 lu21 1950 lt:>.23 EOOC
1 6 2 s cc o1 l eoi l eoB ! t28 cc 87 021A
l 62 F 85 lo3C OA 1631 lBOl 16 33 CO 87 C222
l ti 31 l ooc
lt.39 f2 87 08
le3C. co 87 !b56 l t>'40 co 87 1732
164"9 35 01 1651 1M8 35 02 lt53 lt.4( (.0 87 0000
lb~( cooo
1652 0000
!e~4 0000
i.c.s.c, 3o.; oe i 120
! 6 'di 3 '9 O l H: 5 5 it.?£ 3C E:3 U93 H:t2 39 ft lf92 I 666 f2 90 07 1 Lt. g 3~ E () l f 93 ':::,b C f 2 10 BO
,,1c 38 02 it-ae
U;]l, 0 01 U.ltC, i. 18 Cl: 01 D
fl3 70 H 00 ib.l't f2 Bl 9f
bBl IC 00 l68C 00 !656 lC 00 lt9C 01 lMH3 39 00 H92 l":;H 3'il 00 lf93 H,93 CO 10 H7S lb97 lC 00 1780 02 lo9C lC Of lASE 12 lbAl 3A 02 lf88 lf>A5 30 Eb 1 f95 lbA9 00 01 lf95 104" l bAF f2 82 09 1662 OD 01 lf 95 18-'tC 1688 F2 0'4 09
l 6BB oc O't l eu 19EA
1bC1 F? 81 1:!2 16(4 OF 00 lf~5 18"4 l bC .A 30 18 l F95 1 bCE fl 8" 21 l 6 Cl 3 0 l 0 1 f95 l W 5 f Z Bit 17 1608 30 OD lf95 1 60( f2 02 07 ! 60f 3D ()'t If~!> Hl3 f2 8.lt 09 l~te CE 00 lf~5 18it3 lHC f2 87 CF
l ti Ef 0 E O'O l fCl'5 18't2

161F 1090

oc

Xll'C P

1620 1091

DC

lll 1 2CJ;t

1622 !092 1624 10fB

DC

H2 <OEPPt

DC n2·Ecoc·

UNPRTABlE CHAR HALT

1094 1095 162F 1096

~c MAP C2), Ct-ii 16

8

PRINT

oc

XL!' 85 1

P U1 CH4R T NO., rn MSG ..
PRINT PRINTER MAP CHART NOo

1630 1()97 16.32 1~98

DC

itP 10 ·

oc

AlZ( MAP·

1099 1638 1100
1101

B

tiALT

oc. Xl2' EOO Cg

J

lClOE XT

~UNPRINTABLE CHAR SKlPPEO SIT ON UNPRTABLE CHAR HALT

1651

:U02 1103 1104 HOS 1106 1107

f\:ROY E~ 8
8 XiOEXT l
l EXIT B
SAVWUN DC

STERR PS TERR SA \/Wllll 11 XR 1 SA \'TUU,, XR2

BR TO CHECK ERR STATUS GO PRINT STATUS OR lST LINES
Rf STCRE REG .. i
RESTORE REG.2
E Xi T SUBROUH NE

1653 1108 SA \IT UU DC

1109

1110
llll

$· ··S·lE·R·R*~$··********··*······***·*~~·*······*******~*******·e····***ST*E*R·*R***

1112 ····*·~·*
1113 $

*******6**

UH·

(HECK FOR STATUS ERROR

11!5 ·

1655 1H1167 ·ST·S·A··l ··D·C······X·l·2·iC··t ··········*·····························*······~····

:urn

1119 STERR ST

1120

ST

H21

SNS

1122

TBF

H23

JF

SHXH+3-,A!l<R
STSAlfXlll
STAT6,l!PE3' STAT6-l ee11110110· YE SER

lOAD PEfURN ADDRESS
SAVE ?.t:GQ. 1 SEi~Sf THE STATUS BYTES ANV STATUS ERRS JN ES2

U.24 1125

1Bf STtli6;8QU.l00000e

J1

FOAOO

INV ERRS Hill l':lal

H26 YESER SE!f

1127

LA

i1 2 6 t-'O ER H l A

1129

Cll

l!3C

JE

1131

M\IC

l.t\GS1lA(;6
SlATAB-19.XRl l ~ t , XR U ~ XR l
0(,XRlJ,X'fftt fUAOD STECK Hl~O~ h XR U

ScT ERR INDICAlOR OFF
LOAD TABLE ·JDR.
AO D i. 9
All MASKS CHECKED
PL:T ERR MASK IN IEB2 BYTE

1132

MVC

1133 SH:C!<.l lBf

1134 ST H.K::? T Bf

1135

Pl

STEC!<2Hd\li,XRU SlAT6··l~*-* ST AT6~ :rir .... it<
NCERR

PUT ERR j;!t.SK IN £81 BYTE CHECK E82 BYTE C.HECI<. HH BYTE

U.36
113"(
1138
1139
11~0
1141

MVC Hl.TIO( u,2c ,XRU
"4\IC I6EPHt:d,l8l9XRU
SBN TAGSrTAG6
SNS STAIX,X'E6 1 CLC STAIXC2),lPOAOR Jl DABOT

PUT HALT COOE IN MSG ..
PUT NAME JN MSG.
SET ERR INDICATOR ON GRAS LPDAR O.A.R. AOOR. TOO LOW

114'2 1H3

CLC JNH

SlAlX(21,0ADENO SAB TR

O.. tt..R .. AOOR., TOO HIGH

U.t,4- DABOT MVC

l14t5

J

1146 SAB TR SLC

11"97

CU

I 1't8

JH

11~9

cu

11 SO

JH

1151

cu

HANO( 5), iN'li'C- 9 RESTO
SlA I Xl l »,ONTUTR
STAU,X 1 l0i GOOEC su1x~x·10·
A0107 STAIX,x·oo·

PUT I NIJAlHl I fl! MSG ..
SUBTR. TO GET PR J NT PCS .. P~T,POS. 2'4 OR lESS
PRT.POS. 16 GO ADD 107 IF HIGHER PIH.PCS. 13

1152 1153

JcNul

1154

JH

1155 ADll9 ALC

1156

J

A0119 STAIX,X'04t 1
A0107 STAIXCl),UN!TIN
DIVIO

GO ADO 119 IF EQUAL OR HIGH PRT.Pos. 4
GO ADO 107 lF HIGHER ADO 119

1157 AOlOl AlC STA J.X( l J, UNOSVN

ADO 107

DA H.

23.AUGt·'i

EC Nu. SH4,~5

31oc169 SltJ52'9

28NO'V~)9
~li!i5-t 2

02 !lo1AR70 tH,;;LH

0 l NOV7C Bl6-fb4

19NO\'ll Eil Stirt

PROG IO
PAGE

OE 01-3 9

IBM MAINTENANCE DIAGNOSTIC PROGRAM
E013 52C3 LINE PRtNTER FUNCTION TESTS

PART NOo
PAGE

ERR lOC OBJECT CODE

AODR STMT SOl.RCE STATEMENT

l6f5 f2 87 06 l6f8 OF 00 lF95 1833 lbfE 3C 00 lf94 1702 CF 00 lf95 182~ l 708 f2 82 OA l 1V8 OE 00 lf94 1823
1711 co 87 1702 1715 co 87 1389
1719 lf94 1718 lBlA 1710 F2 87 C6 1720 OE 01 1720 1829 1 726 35 01 1655 l 72A CO 87 COO()
l 72E 30 E3 1F93 173Z 34 08 l8lf
l 736 oc 04 lAll 1874
173C 38 08 lf90 1740 f2 90 06 1743 OC 04 lAll l86f
1749 co 87 1389
l 740 l f91 174f 1863 1751 OC 00 lSA5 lSB3 1157 OC 10 1A23 l8AS l 750 36 02 1F'9Cl 1761 F2 10 06
l 76'4 oc o~, uu a i1.2 g
l 76A. 38 04 lf90 l 7M: f2 90 06 l 771 OC OA 1A23 l3S3
l 177 co 87 021A
1178 Cl l 17C 25 lTHl 1A23 l 77F E OOCl 1181 CO 87 021E ! 1'85 C2 l 786 lf93 l '188 1A3A l 78A CO 87 021A 118E 81 l 78f 11 l 790 lAlA 1792 38 01 lf8B 1796 f2 10 7F
l 799 co 87 021A
1190 81 l 79E 24 l 79f lASE 1 7 Al 39 CO H-'93 1 7A5 F2 90 lC l 7A8 39 10 lf92 1 7AC F2 90 15 l 7AF 38 04 lf92 1783 F2 90 OE
1786 co 81 021A
176A 81 1 788 10 l 78C 18 lA 178E OC 01 1817 1A29 1 7C4 GC 01 1 801 1805 17CA CC 87 021A 1 7CE 81

1158

J

ll5'j GOOEC SU:

1160 DIV lD MV I

OIYIO
STA! XC U t 'U~Vtr1Ut4
ST AIX - It X1 00 t

DECREMENT 21 PRINT POSITIONS

1161 SUBGAN SlC

1162

Jl

1163

Alt

ll6't

B

STAI XU leftiUR
AkDUoi
ST AIX-1 U hONE SU8GAN

DIVIDE BY
FOUR

1165 AWOUN 6

HlA 1166 171C 1167

oDcC

1168

J

1169 FOAOO Alt

1170 RESTO l

1171 STE XI l 8

1172

CVD
Al2 CSTAIX-U Al20iANOI RcSTO
._.STEXI 1+3(2) 1'fCitlR
STSAl, XRl

MAKE HAMMER NO.. PRINA8lE FRC»4 Hi
AOO TO RETURN AODR .. RE STORE REG. 1 EXU

. . J l 1 3
ll74

***···*PR·*IN*T·**ST*A·T*U*S*·E-f·iR··A~N·D·~*~*X*E*C·U*T*E*·H·A·L·T··S·U·B·R·C·U·T·I·N·f···~*~*··········

·~~

1175 1176

*···*~**********········*·*·*********·*·~···*············*·~···········

ASTERR SNS STAT6,X 1 E3 1

GET STATUS

1177 PSTERR ST

PREXI1+3"ARR

SET RETUf<N AODR.

1178

MVC NACMO( 5), TFH

PUT LEFT IN MSG,.

1179

TBN ERTl-1.B'lOOO'

HAS Cf'lD .. TO RIGHT CARR,.

1180

JF

SKRIG

1181

MVC

1182 SKRIG B

114E 1183

DC

NACMOC5),THGIR
CVO
Al 2ffR IU

PUT RIGHT IN MSG~
COM/ERT CONTROL COOE TO DEC.o

l 750 ll .f.'l't 1185 1186 U.81 1188

DC
M\IC ~vc
TSN JT

All UlSKPCP)
u POP SUD( ~osKPOF
lACMND(l7)~0USPOP
un1 -1., le' r 0° SE! F Sit

Put CC INTO SPACE MSG.ALSO PUT PR HH &. SPACE I N MSG .. 'HHS A PRINT

U89

MVC

tACMNtl-11 fo ~~KNAl..E;\

BLANK OUT PR Uill

1190 Sf If SK !SN ERH-l"B 1 lOOt

THIS A S~IP

1191

Jf

GOMOST

11 92

M\IC

LACMNO(ll,~DSKPOP

P!Jl' SK IP IN MSG<

l :iS3 GOMCST B

177f: .U.94

0(.

PIHNT Xl l 1Cl1

PRINT LAST CMO.!SSUED

l HC 1195

DC

ill~ 31' 1

177E 1196

DC

1180 U.91 HLi ID DC

Al .2(1..ACM!'!UH
xt2,. eooo·

1198 1785 1299 !781 1200
1789 1201

8

UNPi!!.C K

DC

u l· 2 1

DC

.U.2 tS l t.T6 i

DC

ALn 'lfH.TSJ

l~RO"
rn

1202
178E 1203 l78F 1204

B

PFllNl

DC

Xll'B.l"

OC

lll'l1'

PRINT STA1US 6VTES

1791 1205

DC

.A l2 CV l.:!AT5 »

1Z06
1207 1208 1790 1.209

YSN iAGS,nG·r

JT
s

TESER PRINT

oc

Xll;ep

!ST LINE ONLY PRINTED PRINT PRIORITY ERR SlAT5

l 79E 1210

OC

ll l 136"

17AO 1211
1212
12!3

DC

Al2 (I BEPI

TBF SlAT6,e 1 11cococc·

JF

OOliAU

CHAIN SYNC & INCR SYNC Off

1214 1215

TBf J F

STAlb-l,s~1ooco 1
OOtiALT

INCR~FAILURE CHK. OFF

1216 1217

TBN JF

STAT6-l 11l\11 lOO· DOHAL T

HAMMER ECHO Ct« o

i21e 17BA 1219 17BB 1220

e

PRINT

DC

Xll 1 81 ·

OC

ll 1 1 16 111

PR JNi HAMMER NO.

i7BD 1221

DC

Al21 HAlllCt

1222

MVC

1223 OOHAU MVC

1224

8

17CE 1225

DC

HAMNOI 21 ,,KNAlB MAP Cite CHT U
PRlhl.
JCl. p 81"

BLAN!'.. OUT 1 I' , 1 N9 JUST IN tAS f.
PUT CHART NO. IN MSG.
PRINT PRINTER HAP CH~RT NO.

DA TE

25Al.G69

Et NO., 8!6"t85

310CT~9
816529

28N0\f(,C' 8165'92

02 MAR70 8166"31

O~ hOV7U ; lll)'f6"i

l9riEOVn.
aie1.1n·

PROG iO
PAGE

PART NO.
PAGE

258995l 10

ff.Iii: U.J( OSJHi CUDE

1 ;"CF OA

i100 U!Qi,,

l 102 to 87 02U

i 1Dc 1 '5
17!'.H Cl( 0 l nu i ·1eo 17DO cc f.!7 C222

l1U fOOO

l 7U 38 iO 020~
nn f2 90 2E

lHA 38 04 H'92

l1H f2 90 27

l7fl 3C OA l?H

!1f5 30 OA lf94

l 7f'1 f2 62 lC

l 7FC OE 00 1f9'4 l82A

co UW2 OE 00 l1f6 1820

1808

81 17F5

uoc oc 00 15i1 lf '94

1812 {.0 87 0222

HH6 EOOO UHS 35 01 If es
Ult co 61 0000

l7Cf 1226

DC

l TU l 1221

DC

1228

e

1706 1229

DC.

1230

MVC

1231

8

11i2 1232 PUHHN DC

1233

TBN

1234

Jf

1235

TBN

1236

JF

1237

(lolVI

1238 BUTH>/ Cll

1239

Jl

1240

Alt

1241

AlC

1242

8

1243

MVC

1244

B

U:H7 1245 f'l ES 10 Ot

l24t6 lE SER SBF

1247 PP..EXH 8

ill' 10'
fl.l2E MAPj
PRINT
Xltel!>· PUIOI M 2) tHliI 0
HAU
Xl2 1 ECOO'
SBYiE211SSW.l.3
TESEP. STA 16-t.s~ icoe
TESEk BUl Hl+l ~x· OA* STA I X-1 f X· OA ~ MOW IT STAIX-UU ,SU BUTIN+l U ~ ,XTEN BUT !!Ii
MlES!OCl),SiA!X-1
HAl.T
Xl2'E00\'.J£
·-·UGS~TAG7

SPACE 5
Plii IJ INH:l HIH.i *STATUS HRGR HAL TS
SSW -13 ON(NO AlT.P~TReS 7
HMR,. ECHO CHK .. 1
PUT
H!l;f4!ME~
NUMBER UffO THE HALT LIGHTS
OJ SPLAY HAMMER NO.
RESET lS"f UNE OJ~LY A..£G R(HJRN

!»~H
( f.10.

2~AU(,;e;,"i\
ti.MS:

3lOC TC<; f; lb 519

2SNO\lt-9 816542

02~AR70
816631

CH NC\/10 016164

l9NCWll 818617

PROG IO PAGE

OEOl- 3 10

HlB

P#-,Kf NO" Fl.iGf

2.50'9951
lOA

1250 · CONSTANTS ················*····o···············*·~····~··············

l.820 (l()Dfj

1251 *·····9···~··

1821 1252 ZERO DC

l l2~ O~

1822 182'·

0001
occz

1826 0003

1828 VCC:J>

lS2A C6

1826 000&

11320 lC
Ui2E oooc UBO oou

1823 1253 ZJNE

0(.

1825 1254 T~O

DC

Hi27 l 2 5 5 fR EE DC

!629 1256 FCUR OC

l02A 1251 Si X DC

162C 1258 ElGHT DC

1820 l259 XlEN OC

U32f 126C TWLVE OC

1831. 1261 SVNTEN OC

U 2' '.P
ll2ez~
i t 2e31
IL2~4'
HP 6 11 1t2ea·
lll 1 l0e IL2gl2t ll2'llt

!832 0015 !834 001 A l.836 Cl 68CO
1839 C40000 i.S3C 2A2A UBE 5555 184(.l ~1010
es 18~2 Ul.1:3 n
184'4 16
161.i5 CISCO
1847 082F

!.833 1262 U!YkUN DC i.83>5 1263 T~YSIX DC
n 1838 l2b4 8USCT OC
1838 1265 BUSC DC
1830 l.266 fl£·2 OC l83f 1267 Fl85 DC 1941 1268 fOLG DC !842 1269 U~DSVN DC
1343 1270 t;Nl 'UN DC lS44 1271 ONTUTR DC
l8"1r6 1272 lPlADR DC
Hl48 1273 Tl..lfORF DC

l L2' 21.'
ll2~26'
Xl3 9 16SC'H)q Xl3 8 40000~
XL2"2A2A" Kl2~5555 1 Xl2e7070m lll'107~
Ill'H9~
ILl 1 12J$
Xl2'800' Xl2 ~ 82F ~

F OR fol lE Ma TH 42
FORM l ENGTH es
FORM U:NGTH U2

1849 087C 1845 08ff 1840 lf()()

l84A 1214 lPOAOR OC
1S4C 1275 D.ACENO OC l84E 1216 S!Al;O DC

Xl2'81Ce
Xl2"&Ff~
Xl2' lfOQ~

U4F l,04C 1851 fO 1 S52 Fl

1850 1277 SfHU OC 1851 1278 DECZ~O DC
1852 1279 DECONE DC

ll.2"75(10111'
Oll;oo
Oll'l~

1853 1830

1854 1280 AOH42 DC

Al2 (flten

1655 l83F 1857 1841 1859 ).58~

1856 12131 AOFUl5 DC
1650 1282 AOFOLG DC
l85A 12 83 ADS us v DC

AlZlFL85&
AlZtFOtGi
Al2 ( euen

185S 1580 1850 15C4 l85F lf8D
1861 1F8C

1B5C 1284 AOCABY DC
l85E 1285 ADPIBY DC 1860 1286 STOAO DC
1862 1287 STOMl DC

Al2tcA6Yi
Al2tPIBY) AL2CSTATOt
Al2(SlATO-U

RIGHT CARR .. CU.· ADDR~
LEFT CARR. en. ADDR<

1288 1289 1290

·*··P·R·IN·T·O·U··T·S··············****************** *********·······********lli<***i::

1863 D3 C9 05 CS

1866

1291 1292

·····~··D·C····Cl 4°L tNE 1

1867 404040 l 86A 40

1809 1293

DC

&86A 1294 OASH oc

CU·
cu· ·

1868 61404007 C9C905E3 1876 1295 PRTOP DC

Cll2'/ PRINT

1873 40404050

1295

1677 614040E207ClC3C5 1882 129t SPOP DC

Cl12 1 / SPACE

187F 't040404C

1296

1883 6lE202C90740E 306 188C 1Z<i7

DC

CU01 /SKIP TO

1888 4040

1297

1880 4040 l88F 03C9!J5C540

18BE 1298 SKU NO DC

1893 1299

oc

CLZ' Cl5' LINE 1

1894 404040 1891 61070q(.905E350
l89E E2D7ClC3C540

1896 1300 18<i10 1301
l8A3 1302

DC

CL3 1

DC

CU 1 / PRIM'f &1

oc

C l6 1 SPACE ·

l8A't 4040 18A6 4()4040 l8A9 f202C9t740E306

l8A5 1303 POPSUO OC

18A8 1304 OUSPOP DC

l8Af 1305

DC

CL2' ' Cl3 1 ' Cl 7' SK!P l0 1

!. BBC 40404040

18B3 1306 OS &<POP OC

18 ~4 D50640F.2E3C lE 3E<\ UlC6 1301

oc

Cl4 1
Cll9'N0 STATUS CHK.BUT 9

l 8 BC E240 C3 CS 024 BC2 E4

1307

l OC le f. 31t0'o0

1307

l8C7 404040404040

lBCC 1306 ~ICH DC

iBCD C3Cl09t94B03C905 18EO 1309 LICOER DC

Clo· GL20 1 CARR.LINE CTR~JN ERR~

1805 C540C3E3094SC '90 5
l avo 40C5 09 CR

1309 1309

OA TE

2 5A UG.69

EC NO~ 816485

~HiCT69
616529

28NOV69 816542

02 t'\AR1'0
01.6631

OiNOV10 81616'4

19NCVH 818677

Pl'{OG Hi
PA Gt

OE 01-3
10A

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

ISM MA!NlfNANCE OlAG~OST!C PROGRAM

ECB 52C3 LINE PRINTER FU~CT!ON TESTS

urn toe OBJECT CODE

AOOR STMT SOURCE STATE~ENT

PART NO .. PAGE

2589951 11

l8El e060C60609044003 18EE 1310

DC

l8E9 C5V5C7E3C840

1310

18 H 40-4040

18fl 1311 lNGTH Ot

1Bf2 E3f3E3

18f~ 1312 TEES Ot

18t5 70C850E37D't00709 HW4 1313 11 TL~ DC

l Sf 0 C905E34tCE3CSE2 E3

1313

l 9 0 5 0 7C101C. 50 «;4 OE 2C 5 1917 1314 Till~ DC

190£. E3 l303C9t5C740E3

1314

1915 C 5£ 2E 3

1314

1918 E6Do09E 2C 540C 3C. l l92C !315 HllB DC

1920 ElC.5'tOV709C905E3

1315

1928 "iOUC SE 2E 3

1315

1920 D9C907D703C54007 1939 1316 MSGC oc

l 935 D9C905E3

1316

1939 E3C5E2E340C60609 1940 1311

DC

1941 40E405t7L'9EJ<:lC2 l94F 1318 UNCSk DC

19'49 03CS'tCC3C8Cl09

1318

oc 1~50 40C.90!>40C4ClE3Cl 1950 131 <i DEPP

1958 'tOC6C9C5D3C4

1319

l 9~E 40C lC 9E 3400 506E 3 l 96A 1320

oc

l<.lb6 40E2C5Blt0

1320

l 9t_,s l6C.9E3C84CE40507 197 D 1321 WUOf DC

1973 09E3C lC 203C 540C le

1321

l '97 f Cl E3Cl

1321

l 9 7f: C. 5D 5E 3C 50 94 00 709 l<JAB 1322 JNSl DC

1986 i:3094BC304C44BC3

1322

l 98E DoC4C.54006D940C4

1322

1 996 C 5D 3C lE l:'iOE 3C 904 iq9f C54uC90540ClC~C~ l9A6 094BE2f67Cf2

1322 !322 1322

l 9AC 09(.5 E2C 5£ 340C 8C l

1323

DC

l 9M 03BHJbCl'9C507(5

!323

lYBC CH 340CeD6094004

1323

! q C'1 0609( 5

1323

rnsz i 90 6060C50Sr3C50960 l9E5 132'>

0(.

9(. f' ? ~ GF Of CibOE 30640

132~

i907 C2C5C7C9D540C5E?

1324

'. sm: l'i>C3E4f3t~iiooo5

1324

9Hi C.'9U'.JE 503(448( 30~ 19f 3 1325 i NIJC oc

9~E (440£7E7l7E7

1325

1 Sf Iii C 50 Sf 30 9f. 9( 5U l9fA 1326 UST

CC

l9FB Ell7E7l7

l~FE 1321 EU Sl OC

! 91-f CHU E2 lHOC.3()t.04 !AOC 132 8

DC

l A07 D'te 10 ~ <itC6C

1328

lAOCl C3C..SCbE340

lAll 1324$ NACMO OC

111.12 'i0050t:[5(5't04040 l A23 1330 lA(.M!'.10 OC

lAlA 4040'tO~C~O~C'iC40

1330

1 A2.2 40't0

1330

lA2._ ltO'iO'tC'tC4040

l A29 1331 i<NAt.8 DC

1A2A E2£3ClE3f'tE240C2 lA~~ 1332

DC

l A32 t81:3 cs [2'10

1332

lA37 40~040~0

lA3A 1333 veu s oc

1A3B C7t9C90bt9C9E3E8 lA'tE l331t PEB I DC

lA't 3 40( !iG'.rD9'4ClC2 C9E3

133/t

1-'ee 40C'IE2'cC

1334

l A't f 40"040'40't01t04040 1A5 E 1335 ISEP oc

lA 5 7 .r.C404C'tClt O't04 040

1335

lA5F 1336 STA TAB EQU

lASF COf:lOOlt

lA61 1337

DC

lA 62 C 3C 8C lC 9D S4'0E 2E 8 1A71 1338

DC

llabA 05(340(3C8024tB'tO

1338

1A72 CC'-CO!>

lAllt 1339

0(

l A7':> (<JD 5f. 30940E 2f 80 5 lA Sit 131.!0

oc

lAJl C3bll2C3C9D74040

1340

1A es 1 OCCOb

1A81 1341

oc

l A88 C90!!>C309'tOC6ClC9 lA9l 1342

DC

lA'JO 03l-'oc;cs4CC3C802

1342

lA98 t'iCCO'li

1A9A 130

oc

Cll 4' --fORM l EN.GTH ~
tt3 1 Cl3 'TTT' Cll6'"HtTte PRINT TfSY' tl19'PAPER SETTlJNG TE~T'
Cl2l'WG~SE CASE PRINT TEST9
Cll2'Rl PPLE PRINT' CLB'T EST FOR' Cl 15~ UNPRTABlE CHAR'
Cll4 1 IN DATA FIEL01
CU 3 ' B IT NOT S ET ' Cll9 9 WJTH l.INPRTASlE DATA·

tl27~RESET HALT--REPEAT FOR MORE· Cl3lg--ENTER-OOCD-TO SEGIN EXECUTIDN 5

Cl7' ENTRl ES·
tL't' xxxxe
Cl14'lASl COMMAND--·
Cl5'lEfT ~ CllS' NONE

Cl6 ·
Cll3 9 STATUS BYTES '
Cl.oft I Cl20 1 PRIOR1 'JV ERR BIT IS ·

Cl 16~

·

Xl3'008004 1

CHAIN SYNC CHK.,HAll 04

Cll6 1 CHAIN SVfllC CHk. '

Xl3'00'9005'
Cll6'1~CR SYNC/SLIP

INCR SYNC OR SLIP CHIC. 1HALT 05

Xl3 9 100006'

INCR FAILURE CHK.,HALT 06

Cl 16 'I NCR FAI U.RE CHK·

)(l3' 04(1009'

HMR ECHO CHK.,HALT C9

DA TE

25AUG6'9

EC NClo l!!U,.:r,e~

3 l OCT69 611.l52'9

28NOVt.9 f:.ll651t2

02MAR 70
Sl61b.'.'.\~

0 lNOV 7()
8161W.:~<lil

!9NOV71 USH1

OfOl-3 11

IBM MAINTENANCE DIAGNOSTIC PROGRAM E013 5203 l!NE PRINTER ~Cf JON TESTS

PART Nth PAGE

2589951
UA

ERR lOC 08JEC T CODE

ADOR STMT SOURCE STATEMENT

l A9B C8C1D4t4C50940C5 UAA UH

DC

lAA 3 C 3C 80640C 3C 80248

1341t

lAAB 02000A

lAAD 13~5

oc

l A.Ac Cl05E840C8Cl04D4 l ABO 1346

DC

1 AB6 oc;1tco6os1tocx so2

1346

l ABE 002007

lACO 1347

DC

lACl CaD40'94BE3C8C509 lAOO 1348

DC

l AC9 t4C 1D340C3C8D248

1348

lADl 800001

1AU3 1349

DC

1AD4 C3C1Dc;oc;1+sE2E805 1AE3 13!)0

DC

l AOC C3400 C8 D24Blt0it0

1350

1AE4 400002

1AE6 1351

oc

l AE7 C3Cl090948E207Cl l~f6 1352

DC

l AEF C3C540C3C8D24B40

1352

1AF7 200003

1AF9 1353

cc

lAFA C60609D4E240D1Cl 1809 135~

DC

1802 0440C3CB024040lt0

135't

lBOA FF

lBOA 1355

DC

1 BOB C8Cl[)ltt4C5C94005 1817 1356 HAHNO OC

1813 064840404('

1356

1818 404040

lBlA 1357 HANO OC

lBlS F5f2fOF340D5DbE 1628 1358

DC

1823 ~OC2E4E2E64C

1358

1529 CH6E3C5t940E2C9 le37 1359 HOSUSY OC

H33i 0640ClC307f3C4

1359

l S38 F5f2FOF31t0

i83C 1360

DC

l 830 4040404040404040 1844 1361 SUHS G OC

1845 4CC2E4E2ES40E306 1852 1362 EUHJlC OC

184!) C640C3Df05C1

1362

1853 C3ClD909C9Cl C"le5 l 85 A 1363 UR.R cc

1858 o-rn9cgosE3C509"tC 1862 l3ti4 PRIN !)(.

oc 1863 40C2f4ChC6C50940 :Hl6A 13Ci5 BIJFF

l.860 D9C 9: 7C SE 3

Hlt:if !3i>6 HiGlR DC

1870 03t5C6E340

lB74 1367 fffl DC

1B75 C3040+4BC4C5C3D6 lB&4 1368 riH:IJOP OC

18 70 C ~ 5"CC 50 9090l:i09

l3ti8

l B85 t'1Cl02C.540f5F2FO 1891 13(:9 RORN DC

u~ao f3ti0404040

1369

1692 ·l\i009C5ClC'iE8

!897 137{) Mf\.IORE OC

1698 F5F2F0f340C9E240 18AO 1311 TON

Dt

lBAO 09C4E86BE2CSC448

1371

1BA8 C2C54005D6E3

1371

l SAE 40D9C4 EB

lBB l 1372 COR INS DC

lBB2 F5f2FCf3'tOC2E-4E2 lSBB 1313

OC

l BBA E840

1373

l SBC E6C8C5V5"90D506E3 l SC7 137't SAl':!USY OC

18C4 ~OO<JC4E8

1374

tece fJ7E3094SC3C8E34S lBOl 1375 MliP

oc

lBOC 4040

1375

l 802 flFO

oc 1803 1376 CHTlO

l 804 fl fl

l 805 1377 CHTl l DC

1BD6Flf3

1B07137a CHT13 OC

1808 flF4

180~ 1379 CHTl'o DC

lBDA flf6 l BClC F lfl

lBOB 1380 CHT16 DC
1800 138 l unn oc

l BDE fl f<J

lBDF 1382 CHT19 OC

lBEO F5f2FCF3ltOC9E2''0 18Ef 1383

DC

1 BES 0506E34009C4E 868

13S3

l BFO E2C8C4~ElC2C54009 18F9 138.ft SNHlOC DC

1BF8 C4E8

1384

1 BFA f5f.t.FOF340 lBFF 40404C~040

lBFE 1385

DC

1C03 1386 RRAC DC

lC<M lt04040~040't04040 lCOC 1387 PBCA

l coc 40

1387

DC

lCOO C9£21tOC2E4EZE8b8 1C22 1388 ~EBUSY DC

1Cl5 050640C304C'"8C9

1388

1 Cl D E2 E2 EitC5Clt'i>O

1388

1C23 4ot'iC.lE3Cl

1C27 1389 ATAO DC

XL3'CJ2COOA·

ANY HMR ON CHK., 9 HAU OA

Cll 6' ANY t;."4MR ON Cl« e

XL.3 1 002007 1

HAMMER UNIT THERMAL CHK., 1 HAU 01

Cll6' tlMR.HtERMAl CHK .. '

Xl3'80000l'

CARR.SYNC CHK. 9HALT 01

Cll69CARR.SYNC CHK.

Xl.3 1 400002 8

CARR. .. SPACE CHK., ~HAL l 02

tll61 CARR.SPACE CHK. I

Xl3 1200003'
Cll6'f0RfitS JAM CHK..

FORMS JAM CtK.,HAlT 03

Xll 1 ff1 Cl 13 1 1-!AMER NOQ> '

Cl3 1

1

Cll4'5203 NOT BUSY '

c: L5' 5203 I
ete 11 Cll4c BUSY TOO lO~G~

Cl8 9 C~RRUGf.ili
U5 1 PRINTER i:
U 8 1 BUFFER 11 lCil.5 ~RIGHT'
c l5' l.Ef T II
Cl llt~iom .. OECOOE

ERROR ii

tll3~FIAKE 52tl3

Cl6; il!E'1DY11 Ci..22 1 5203 lS RD~f~SHo .. ae NOTt

CL"t' ROY' CllO 1 5203 SUSY I
CL12'WHEN NOT ROVO

cu· 10·
CL2 1 U 11
Cl2'U"
Cl2 1 1~ 111
Cl2 1 16 1 Cl2 1 179
Cl2 1 191 CL16'5203 IS NOT RDYe·

Cl10 1 SH0.8E RDY 11

Cl5'52Cl3 ·

Cl5'

·

Cl9'

Cl22 1 iS BUSY.NO CMD.iSSUED@

DATE

25AUG69

EC. ~JO. 81. 64t 85

310CT69 816529

28N(Hi69 8165'92

OlMAR 11J 616631

l.9NOV11 818617

PROG JO PAGE

OcOl-3 lU

Hf<ll' NOb PAGE

2569 1~5 l
lC

ER~ LCL CBJ~CT COtt

~ (2H (9L4C!.C1C5

lt2C 1390 EGAPH UC

H20 4C40.it{it0"-C

lt::H 13'91 lESAt DC

lC 32 ~OUC"'rC-IDS4809C 5 lC ~2 1392 AR!liiAl DC

l CH C7~B03C90(;'t0C5D9

1392

lC42 O<;

1392

lC.43 C9E2.t.O

lt 45 1393

DC

l C~b 4040404i:

1C't9 l3'9't cuns DC

lC. 4A 40E 2C fie llt'tBC 2C 5'10 1C51 1395

oc

lC52 40404040

1C55 1396 OIRSB oc

lC5b 05Doo0Db0740[3Cl H77 1391' NOPUO OC

lt!it: E3C.3Cfl40i:.2C5E340

1391

( l5'1 ~AGE~ C!.. 5 c Cll7.' AOirn .. REGsUG ERR"
CL3'1S G Cl'+' C.l8 1 SHO .. SE · Cl4W
Cl34 1 NO-OP LATCH SET WITH NO SIO ISSIJEOt

1 Cb6 E6 C9 E3 0:140 C5 0640 lt6E E2C90MC(<jEZf2E4

1397 1391

ltlb C.SC.4

1391

l (..78 C3C.8Cl C90540C3C.8 1C9C 1398 CHACH DC

lC80 02"86BC'90ltC.1C 7C5

1398

lC.88 40~040(~(.8(1(905

1398

Cl37 1 CHAIN CHK.fIMAGE t CHAIN 00 NOT AGREE'

ltqo 40(.4DMC050t.>E340

1398

l C.98 Clt lOt;C 5C 5

1398

1399

1400 ····················

lf 60

···················· * l'tOl RESERVED STORAGE *************·*****····***$*~******·****·*·*********

1402

1403

x CRG

1 1 F60 I

lF6C 14C4 ETA8LE EQU

lFbO 0000000000000000 lf89 1405

DC

l f 68 oococccc~coooooo

1405

lf70 00000000000000~0

l40S

· Xl.42 1 0 8

lf78 0000000000000000
lfsc ccc~ccococoooooo

1405 1405

lf86 0000

1405

l f8A fF lFSS 00
lfBC
lfl:!E lf90 lf92 lF 94
lf96 H98 1F9A
lf9C i.f9f lfAO {,Q l fAl 00
lfA2 cc
lfA3 000000

H8A 1406

DC

1F68 1407 TAGS OC

1f8D 1408 STA TO OS

l F8F 1409 STAT2 OS

lf 91 1'410 Uli OS

lf93 1411 STAT6 OS

1f9S 1412 ST AIK OS

1F97 1413 CMDSA\I OS

lf99 l'el't f INDEX OS

lf98 141 S SINOEX OS

lf'90 1416 MSECS OS

1 f9f 1417 WORK OS

lfAO 1418 LI NOSA DC

lfA l 1419 UCTR OC

1FA2 1420 PIC.11< DC

lFAS 1421 BUSUB DC

Jl(lltffC
xumo·
C. l2 Cl2
Cl2
CL2
Cl2
Cl2
CL2
CL2 Cl2 Cl2
xu · o·
xXul.11'00·'
Xl3'0'

PROGRAM Fl AGS
DELAY TIME AREA LINE NO~ PRINTED SAVE AREA LI N.E NO. COUNTER RIGTT l INE NO· COUllTER

l'v22 ·
1423 ** TABLE OF PRINTER CCMMANOS

l FA6 E'tCl l fA8 ElOO lfAA EOCC 1 f AC. EZOO HAE EOOl lf8C E2CC 1 f82 f002 lf84 E2CC lfB6 E003 l f P8 £201. lf6A E2C.2 l fSC. E203 lfBt E200 HCO E41l l ft.2 Et.lb HC'i EtiOl l f(b 0000

1424 ·

1 FAb 1425 CMOT A6 EW

lFA 1 1426

oc

1FA9 1427

DC

lfAB 1428 SPACEO CC

lf AD 1429

DC

lfAf 1~30

DC

lf8 l 1431

DC

lf83 1432

oc

lfBS 1433

oc

lFB 1 1't34

oc

lf09 1435

oc

lfSB 1436

DC

lfBO 1437

DC

lf8f 1438

oc

lfC.1 !43<,t

DC

HC3 1440

DC

lfC5 1441

DC

!Ft l l&,42

oc

·
xaz·E401' ><l 2 ·e200·
Xl2 c EOOO I
Xl2'E20C'
XL2 ·eoo l '
Xl2 11 E200' >a... 2 1 E 002 8
XL2' E200 1 Xl2 11 E003 9 Xl 2 1 E 201 1 Xl2CE.202'
Xl2 9 E 203' Xl2 6 E200 1 Xl2 1 E41P
Xl2'E616 1
Xl2'E60P Xl2 1 0'

SKIP TO llNE 1
PRt NT
SPACE 0 PR!Nl
SPACE l
PRINT SPACE 2 PAINT
SPACE 3
P/SPACE 1
P/SPACE 2
PRINT & SPACE 3
PR IN TINO SPACE
SK IP TO l !NE 11 PR i NT & SK! P TO LINE 22 PR INT S. SK [ P TO 001 DONE

t)~,lf
i C ii,{L

l;~~AUGoq ~16485

?HOCH.9
il!652~

.2f:lNOVt.9 iHc54Z

02MAR70 Slbt3!

01NOV10 Slb?t.it

i9t'll0\!1 l 618671

OEOl-3
12

· · · ·

f.OB
ERR LOC OOJEC T CODE
lfC8 E:42A
lFCt. EOOl HCC E~5~
1 FCE EOOl
UDO E~1'0 lf02 B'.lOl lF04 E002
lfD6 EOC3 H08 EOOO

f&.Rl ;;!(f, F'f..Gl

2 569951
12~

snn' j,[Jf)~

SGuR[[ SHH!<!E.Nl

u:cs
HC~
l fCS
:m::o
lfCF
lfDl
lf03
HOS lf01
lF09

14~~
144'1 1445 1446 14·H l't-48 1449
1450 1451 1452 H53
1454

Sf S~

EQU
oc oc oc
DC
DC
DC
DC
oc oc

>\lo
Xl2 ' f lt2A~ Xl2 8 EOO P Xt2G E455' XlZ'EOOl' Xl2· E470 e
Xl2 1 E001'
xt 2 ·eoo2·
Xl2' (-003' Xl. zeECOC·

SKH~ TO UHE 42
S§:·ACE l
SIUP· 10 U'.NE es
SPAC~ l
SKIP TO LINE 112
SPACE 1 SPACE 2
SPACE 3
SPACE 0

·········** 1455
* 11445570 ···E·Q·U·A·T·E·S··***·*****·******·*********···**$*$···············$····*****~$

0008 J45S ARR EQU

0001 1459 XRl

EQU

0002 1460 XR2 EQU

060C 1461 lPI EQU

082f 1462 ATETUF l:QU

OS7C 1463 LPO

EQU

0877 1464 ATSVNS EQU

0878 1465 UCSFlG EQU

X1 81
X' l' X1 2 1
x·eoo·
X'82F'
X1 87C 1
X1 67l 1 X'878'

AOORESS RECALL REGISTER INOE X REGISTER l
INOEX REG! STER 2
LINE PRINTER IMAGE AREA
END OF 48 CHARs I MAGE LI NE PRl NT ER OAT A AR EA ENO Of 120 CHAR.. IMN~E

08(3 146~ OASTU EQU 08D6 1467 ATEFIV EQU oaos 1468 ATEAlE EQU 08ff 1469 PROAT EQU

X1 8C3 1
x·eos·
X'8DB'
X'8ff'

96TH POS lT ION

1F77 1470 ED!MAG EQJ X1 1Fl7 1

1F8'9 1411 Pfl ELD ECU X' lF841

OOEO 1472 lOFOLG EQU X'E0 1

OOE4 1473 lPI·R EQU X'E4'

OOE6 1474 lPOAR EQU X'E6 1

0212 1475 TEST EQU 0216 1476 LINK EQU
021A 1477 PRINT EQU 021E 1~78 UNPACK EQU 0222 1419 HALT EOU 022A 1480 LOAD EQU OOEC 1461 NRDY EQU

X'212 1 X1 216'
X'21A' X1 21E· X1 222' X1 22A 1 X·EOt

ENTRY TO DCP READ DATA SWtS ROUT~ ENTRY TO OCP CHAIN ROUTINE ENTRY TO OCP PRINT ROJTINE
ENTRY TO OCP UNPACK TO EBCDIC RTN
ENTRY TO OCP ERROR f1ALT ROUTINE
ENTRY TO OCP TERMINATE SECTION

OOE6 1482 BUSY EQU X1 E6 1 OOE4 1483 CABUSV EQU X1 E4'

PRINTER BUSY
LEFT CARR.BUSY

OOEC 1484 RICABY EQU X' EC'

RIGHT CARR. BUSY

OOE2 1485 PBBUSY EQU x·e2·

Blf=FER BUSY

1486 · INDICATOR FLAGS.

OG02 1487 TAG6 EQU X1 2'

0001 1488 TAGl EQU X'l'

* 1489

SENSE SWITCH EQUATES.

0208 l't90 SBYTEO EQU x· 208'

0209 1491 SBYTEl EQU X5 209'

STATUS ERR nao;cATOR
PRINT lST LINES ONLY FLA&
OCP SENSE SWITCH AREA OCP SEN SE SWITCH ARE A

0204 1492 SBYTE2 EQU X'20A'

SECTJ.ON SENSE SWITCH AREA

149 3 t: CONTROL PGM SEN SE SWllC.HE S

0004 1494 SSW05 EQU X1 4' OCSC 1495 SS~08 EQU X'801

PR INT MESSAGES ON At T.. PR TR .. USE 5203 RIGH'i CARR ..

1496 · SECTION SENSE SWITCHES..
C040 1491 SSkll EQU x·4o· 0020 1498 SSkl2 EQU X1 20'
0010 1499 SSW13 EQU X 'l~ 1

HALT BETWEEN COMMANDS DELAY 0ET~EEN tMDSo SECONDARY HALT O~llON

DATE

25AUGb9

EC NO.. Sl6485

31 OCT69 0lti529

2SN0Vt9 516542

021"1~,R 70 816631

(1 lNCY10 8 i.676~

l9N0\17l 818677

PROG tO
l~kGE

· · · · · ·-·-· ····· -·. --· · ·

ISM MAI NHNANCE OIAGNCST IC PROGRAM

PA~T NO.. PAGE

E013 ~203 LINE PRlNTER FUNCTION TESTS

ERR lOC. OBJlCT CCOE

ADDR SHH SOURCE ST AT EMENT

1501
1502
1503 ·

CCM~ENT CARDS

·······$** 1504
1505

SECllON EOl ROUTINES ···~*************~*$********~****~***~*

1506 · R~Ul.Cl - SENSE CMD TEST

1507 · ROUT.02 - TIO NOi ROY TO NOT ROY PRTR~

1508 * ROUT.03 - TIO BUSY TO NOT Rl»f PRTR.

1509 · ROUT. 04 - "fl 0 NOT ROY TO ~DY PRTR.

1510 · ROUT .05 - TIO SUSY TO ROV PRTR.
1511 · ROUT.06 - uo·s TCJ ROY P~TR ..

1512 :t ROUT .01 - CMOS TEST.
1513 ·ROUT.OB - CARRIAGE SPACE/SKIP TEST.
1514 * RCUT.09 - 'Ht T'PRINT TEST.

1515 ~ ROUT .OA - PAPER SE HUNG TESTs

15lb *ROUT.OB - hORSE CASE PRINT TEST.

1517 $ ROLT.OC - RIPPLE PRINT TEST.

1516 ~ ROUT.OD - UNPRINTABLE CHAR TESlo

151~ *ROUT.OE - ENTER YCUR OWN CMOS TEST.CMUST 6E REQUESTED BY OPERATOR)

1520 $**********************~*****************·************·**********·*****

1521 *

SSW OPT IONS

1522 ··········$·····**************·****····*~******~*·········*·***********

1523 If< ssw-11 - HALT BE TWEEN CHO s (VA LID 1 N ROUH NES 7' 8,9,0BsOC t. OE)
* 152'4 ss"-12 - OHAY BETWEEN oms (VALID lN ROUTINES 7,a,9,oe,oc & oes * 1525 SSW-i3 - SECONDARY HAU OPTION (DIAGNOSIS Of ONLINE ERROR DATA )

!526 ~··········~····~************************~******$**********************

nus 1527 * NOTES -
1528 $ } .,RESTORE CARRIAGE{ SJ BEFORE STAR TI NG

SE CTI ON.

1529 · z.CARRIAGE FORMS HUST BE LEFT ALIGNED IN PRINT POSI HON ltEVEN IF

1530 · THt RIGHT CARR!AGE IS BEING TESTED. 1531 ~ 3.SEl C.E.SWITCH TO OVERRiOE IDLE CONTROL BEFORE RUNNING THIS TEST.

1 ~32 **·*~l!i$:!1<$ll<******··~lf'"ltl.t;it*l0<~*****-*'-*..P<i<.;..;,..;.*$.;.~~'1>*~***~~***'*~~~::0*~$'.t.lt!t<o;'i'*

1~33
f f f f 1~34

ENO

· · · · · · · · · · · · · · · ISM MAINTENANCE DIAGNOSTIC PROGRAM

PA.RT NO"

PAGE

E013 5203 LINE PRINTER FlfNCTiON TESTS

CROSS-REFERENCE

SWtiOl T LEN VALUE DEfN REFERENCES

AC:BJ BY A 00 2

ADCABY A 002

AODATE A 001

AVFL't2 A 002

AOFL65 A 002

AOfOLG A 002

/ICPI BY A 002

AOTUSX A 004

A0107 A 006

ADU 'ii A 006

ARR

C 001

185A l85C
1CF4 185lt
1856
1858 185E U2C
l6EF
l&E6
oooe

1283
128.ft ()661
1260 1281 1282 1285 0683
1157 1155 1..58

ARWA.l A Cll lC42 1392 A STE RR A 004 172E 1176 ATAD A 005 1C27 1389
ATEATE C 001 OBOS llt68 ATEF IV C 001 0808 1467 ATETUF C. 001 082F 1462
AlSVNS t OCl cen 1464
AMOJN A 004 1115 1165 BABUS'Y A 012 1 Bf'.7 1374
BACGO A 00&, OOlC 0353
8AOC~O A 005 llf5 0771
BERA l T A CCl2 OBFB 0224 BROUT A 004 140A 0942 BSEXIT A 004 l4lE. 0951
8 SYLP A 0()6 isce 1065
BUALT A 002 1600 1081 BUSY A C04 'l.589 1050
euFF A 008 lStA 1365
BUMSG A 008 l B'.t4 1361 BUS: T A 003 le38 1264
euscr I A 003 1838 1265
BUSLE A OOt. oecs 0211
Bl.JSR I A CCl6 OBOB 0215 SUSU S A 003 1FA5 1421
BUSY C 001 OOE6 1482 BUTIN A 004 llf5 1238
BUTOLO A 014 .1852 1362 BWHER A 004 l l'tf 0693
BlOOP A 004 OFAA 051t4 CABUSY C 001 OOE4 1483
CABY A 004 15BC 1059
CARR A 008 ll~SA 1363
CtGD A ()04 128C 08"9
CtiACHE A 037 lC9C 1398 CHROY A 004 11&01 1082 CHllO A 002 1803 1376
CHTll /!. 002 le05 1377
CHT13 A 002 l 807 1378
CHTl~ A 002 1809 1379
CHT16 A 002 l BOB 1380
CHTl 7 A 002 1600 1381 CHT19 A 002 18!.lf 1382 CKCMD A 004 12A3 0846 CKOONE A C05 12AB 0848
tKWNT A 006 OC69 0374 Ct<.SKI P A 003 1213 0789 CLINK A OOlt OE76 0441 CMOSAV A 002 lf97 1413

CMOTAB '- 001
CMNO A 003
CMODE A 002 CNCO A 002
COCOCO A 004

lfA6
1500 1566 1572 1317

1425
1017 1042 1045 0817

1047 1056 068lt* C69l
C384 ()385
0390 0391
0391+ 0395

0699· C386
0392
0396 0964

1060 0672 0698 1150 115le 1152 0825 C646 (;967· 0'168 0256 0286

0921· 0922 1119 1117

0923· 0924

0925

0926· 0921

0942

0965· 0966

1027 0282 0532· 0533 0548* 0549
0533· 0549* 0631 0635 1162
0129

Clt19
0710 0712 Cl.110 Cl92 0203* 0209* 0213· 0217· 0230 0244 0531 C995
0942* 09.ltl
105C 105.g 1063 10'98· lC51:t< lC6l* 1~10 1283
C206 JC.\9
1049* io5e· 1062*

1046

0943

0205
0206 0943* 0944· 1046* 10~5$ 0122 0191 0199 0542 0946

1024

1063

1237* 12'91· 12't2

107S

C68C* 054;2

0205 0537 1009 1005· 1009* 128~

0211 0215 1058

oe~·

()065

1064

Gl04
1223 0046 ()433
0708 0131

01 ll
0246
1094 0225

1018

0067
0337 0915 0376

0819 c~e~· 0392· 0396*

0714

C41S
0354· 0368 0373 0381 0777· 0780 0803· 0801 0856· 0880 0883 0885

0891 CA98 0900* 0902 0~04 D906

0336
0971* 0972 097l 0986 1001· 1002 1003 1008 1013 1019 1022

1040* 1043·.

0874

·

·

DA Tt

25AIL~t;

H NU. a 161..,55

310C 16'9 816529

28NCi\IM 8165"2

02 MAR70 lll6fl l

Ol~~V70
816l6'it

19NOV11
818671

PfllOG IO
PAGE

CEOl-3 13

DATE

25AUG69

EC NO. 816485

310CT69 816529

28NOV69 816542

02MAR 70 816631

01NClVlO 816764

19NOV7l 818671

PROG 10
PAGE

OEOl-3 UA

IBM MAINTfNANCE DIAGNOSTIC P~OGRAM

fOB 5203 l INE PR Ifl!Hr. flll!CHON iE Sl'S

~ YMBOl i UN VAL IJE OEfN

CRCSS-FIEF ER ENCE

COlUC A 004

COl<INS Ii oc~

CSSwO A /; 004

CVO

A C04

tAOOi A 006

LA uf NO A 002

DASH A 001

DAS TU l. 00 l

Of CG A~ A 006

DH.ONE A 001

OE:U RO i 001

DELAY A C04

CEPP A 0 lit OIRI S A 004
OIRSB A 004

IJIVID A 004

Of>fTPFS A 004

00040 A 004
mums A 004 DOH6. l T A cot:

OORIPl A 004

OOUY A 004

DOXIO A CC2 DGll 2 ,. 006

0 St<PGP A 004

DU SP OP A OC3

lCJH4AG ( 001

EGAHI A COS

EIGHT ' 002 HIST A 004

t:NlLR C A 001.t

f:NTUn A 003

l RNROY A C04

f RR4 l A CC4

ERRS l f1 OOb

ER Tl A OC2

ETAtR E A 001
o:n A 004

EXP l 2 A OC2

EOll A 001

FI N>F l< A 002

12E4 lBB 1 1460
ua 9
l tiBB
1&4C
l HA 08C3 Bn IB52 1851 l ~01 1950 l (49
lC.55 lbfE 13CE
l~AA
li:.::;:
l 7C4 1CA7 1192 l3Af OCC5 l 8E3 l6A8 i f11
lC2C 182( l9H 1167
HC9 l4Al CBO 0876 lF91 lf60 lb'tC CACE OAOO l F99

08~
1372 097B
en i
H &.4ft
1275
12'74 14'6t Ci9.H 1279 1278 1066 1319 1394
l39t 1160 0875 091J 0797
1223 0637 0715 O<Jl3 0394 1306 l3G4 1470
1390 1258 1327 0758 0763 0990 0176 0193 l'tlC 1"04 1106 OC27 0003 141't

f lkff A 004

FLOOP A OC6

fl42 ;. 002

fl8~

A 002

FOAOO A OC6

fCLG /. 002

f OU C. A OO't

FOUR A 002

FRADO A 002
fRANG A GO<lt

fRMl E A OO't

f1Hi8 Yl A OOb

fkOM A 006

f-RSM\I A 004

GE 1AH A CClt

GfTiM A 004

GfTNXT /J 005

C.£ l:J l·l A CC4

G IUDAP Ii OOlt

CCCf:C A OOb

WLIU A 004

GGMUS l Ii 004

<6011'1,, /:;. 004

GOTHRU A GC'e

OE92 0460 l1tl4 0944
1830 1266 18 3F 1267 l12C 1169 1841 1268
ccce 0306
iszc; 1256
ococ 0398
CD3f 03ti3 l4BF 09<18 l3E7 0931 1 30 5 .,,,0 Ii 2 8
l!l94 1053 Off6 0575 177'1# Ct!26 123[ 0803
Cf OB 0490 0( 22 02'<5 !M8 1159 cc le 0210
nn 11413
OfbD OS29 1265 0~:.11

0859
Cl02 0976
0359 0363 0367 0391 J.l 'w l
1142
C36l 0365 0366 0862 0575· C57<: C!S7M
0930 0483 0~35 0481 O<J=2 1047· 1056* 1060· 1092 0261 0291 0265 0269 0295 0299
1156 11se
0870
C652 oe5~ oso3 c901
0766 0795
1213 1215 1217
0631t
0679 Ot9S
085C*
0389
1184 1185 1192 1186 05340 0535 C535· 0252 0696
0808 0812
0796 t758
0988 Cl65 0191 0019 1002· 1040 1043
Cl57 Cl!C2 Cfl7 0968· 0035· OC31

0860 0866
1179

086'4 1183

0879 1181

llc5 1190

1182

0460· 0411· 0474 0517· 0869 0901· 0910 0489
0946 1280 1281 1125 1130
C314 C!~2 OS94 1282
0279
0482 1161 1169 0385· 03~1· 03;5· 0358
038.te· C3Ci0· C3Ci't0 C.i4i6't*
0928·
C922'* Cb23· 0~29* C640· 0641· 0593 0825
0814 0471

0552 064C*

0554·
C6~7*

0571t* 0650

C590

1148 024q U.91 0519 C820

tAH

Z5AllG09

u:: Nuo fHo"t85

310Cie9 8lb529

2BN0Ve9 816542

C2MAR 70 810631

01NOV70 816764

PART NO~
PAGE

2589951 14

0691t

PROG IO
PAGE

OE0!-3 14

EOB 5203 lJNE PRINTER f~tT!ON TESTS

SVMBOL T LEN V~lUE OEFN

GRAL T GRED &-iAUT HALT

A acc.
A 004
A 004 C OCH

OA4A 1121 OA89 02:22

0051 0660 0012: lit'?';

HAMNC A 013 HANG A OC4 HANO A 003
tll T! iJ A 002 t-IOMANY Ii. 004
HXBYT A 001
IBEP A 016
IfolALT A 004
I NCC MD A 006 INSl A 046 H:S2 A 031
INVC A 014 iSBUSY A 006
ISLAS A 003 I SSK IP A 004 ITSASP Ii, 004 I TSLEF A 004 J EXT A CC4 JIVE A 004
JUMRES A 003
JUSALT A 006
KNALB A 006
lACMND A 018 lALPO ~ 004
LALT t.. 004
LOU. A 001
lOCMO A 006
LESA L A 005
l ER. IC A 006 UCOSA A 006 llCOER A 020 LJCTR A 001

lBl1 CF7l lBU 1180 1153 1388
1A5E
OC12
1373 19AB l9E5 l Cjlf 3
1573 OE25 1361t Ot07 Clf3S
OA51t
0842 OD7E OCOA lA29 lA23 l2FC OCEC
OE58
1450 1C31 0El6 1523 laEO lFAl

1356
0530 1357 11S7 06'94 0920 1335
C274 0899 1322
1324 1325 1046 0417 C896
03<il7
0514
OC54
0164 0378
0230
1331 1330 0871 0320 0431 0971 1391 041.ft
1022 1309 1419

LINK C 001

llNOSA A 001

LI ST A 007

LNGTH A 003

LOAD C 001

LOARR A 003

lOFOlG C 001

lPD

C OCl

LPOAOR A 002

LPOAR C 001

LPI

C 001

0216
lfAO BFA lBFl 022A OAB2
OOEO C07C
l84A
OOE6 0800

H76
1418 1326
1311 1480 0095 102 1463 1274 1474 1461

LPIAOR fi, 002

LP U1R C 001

lS~FT ~ 004

LUKE A 002

MANORE A 006

MA'?'

~ 010

1846
OOE It
OCC2
OE11
1897 1801

1272 1473 0304 0439 1370 1375

MEXIT A 004

MLESID A 002

MCDA SH A OC5

MOOM A OO't

MGWJT A 006

MSECS A 002

~SGC

A 012

MUSHI 14 004

l29F
lal1 0047
CF Cl
ieoc
lf90
193$ OE30

0834 1245
0366 Ole81 121t3 1416 1316 0420

0040 C675
0061
t051 0072 0109 0!36 0176 0231 0274 0304 0713 0~48 0992 1036 lC~l 1044 1:180 1099 1222· 0522 0528 0481* 0483$ 0484 114~· 1161 1221 0421* 1026* 1070· 1136· 1230 C673* Ct;76* 0931· 0933· 1137· l2U
G.251
0888 0893 0895 0905 0751
0756 0781 0785 1144 1020 1023 102~ 1039 0413 04lt0 C884
0319 0387 0393 0509
0053
0162
0375
C219 0155 0202 0426 1189 1222 1186· 1189* 1192· 1196
C868
0310
0425*
0966· 0252· 0282· 0409
1007· lOU·
0432
0335* 0351* C373· 037~ 0377* 0381* 0411 0415 OBCJI..· 0898· 0074 Clll 0138 0178 0233 0322 0338 0:4~3 0847· OS67 0873* 0800 0399 C401 0717
0088
C998*
0355 0419 0580 0587* 0637 C639* 0681 CBll 0276 0276 0294 0997 1140 0276* 0997· 0194 0194 0195 0195 0579 0830 0630 0831 C983 0245 0248 0264 0996 OZ"t5· C539* 099b· C281 0421 C093 0159 0046* 0050 0067· OC7l·· ClC.~ <ll.05 0131· 0135 0246· 0273 0303 0319 0433· 0437 0708$ 0712 1098 1223· 1227 0825· 1243·
0362
Olt65
1239
0193·
0611
0412 0416

0320 0438 1231 12·~
0867 0873 0492 0558 0831 0982 0111* 0115 1018· 1035

0891· 0892 0596 0654
0982 0983
0225· OZ:2.~
1079 109+"'

OATE

25AUG69

EC NO.. 816485

310Cl69 816529

28NOV69 8165'42

02MAR70 Sl6t:31

Olfltf:V70 5!6764

:!.9NOV1l 018671

PROG IO FAGf..

························ ·········

·

·\.._

·

·'·

· · · \......_

\.._

'"---

·

·

· ., ~~......

·,....._

IBM MAINTENANCE DIAGNOSTIC PROGRAM

EC13 52C3 LINE PRINTER FUt\CTION HSTS

SYPEOL T lEN VALUE OHN

CROSS-REFERENCE REFERENCES

M40H Ii 004

NAO!L A 005

NADUf\; A ClO~

hEA~i< A OOlt

NE XL AP< A 01,.;3

Nf XL fN A 003
NEXT ,. oo.r.

NIGEB A 00~

NOBAL T A 002

f*OSUS\' A 015

NDCOR A 0()-4

NOERR la 003

NCPU C A OYt

NOTR IT A 006

~tlD

AO~

NROY C COl

NflLY E~ A OClt
ccocc A 004

OGOG A Oo-\

Cl<V OCI< A 004

ONE

A 002

1275 Uli JOOE OEEA
1134 ODAA 1221 OAlE
1~53
1837
OEA8 1678 lC17
l~E
1343
CCEO 163C l3lf -Ot- .... Ola8F
1&23

0825 1329 0581 0482 t685
0388
0793 0036 1031 1359
Olt66
1128 1397 1002 0889
11.81 1102 0879 0511 0074
1253

ONTUT ~ ,. 001
OlORl A 006
PBBUSY C 001
P8CA A 009
PEBJ A C20
Pf IHD C 001
916V A 004 POPSUD A 002
PflOAT c 001
PREXll AC~
PRFCU AO~ PRIN A Doti P« IN l (. 0()1

l8(e~
13£1 OOE2 lCOC 1A4tf lf84 l 5C6t leA5 OB f f 181C OAEO 1662 021A

1271 0930 Jlt85 1387 13:M 1'971 1063 1303 1469 12lt7
012~
13-64 1411

f>f(MlD-, A 0-0'i fRTLP A 012 f ~SI -01 ,. 003
P SSl02 A 0()3
PSHRR A DO.ft PUIOI ~ A 002
PUTSUM A OC2 fUEt.C " 004 Rf8US't' I. 022
IHCAS A OC ..
fHOOP A Olf> Jtf SE 11 A 004
AESET2 A 004 RES10 ,., 004
R ILABY C. Otl Uc.JR A 001 ·ftMJH .,. 001
~OWN A 004 flC.Rftf ,. 013
RPlOOP A oe.r.
i<RA( A QOS RSOUhl A 006 ~lfl!OA A 001 RHOe A OCH ~ 100(. A 001 RHtOO A ClCl fll t() E A 001

Of64
le76 Of8£
Of9C 1132 17E2 0Df8 0695 1C22 llCS 1884 lCBS 1009 1126 OCEC. lfA2 ()JC3
OE83 l B91 1 oc:~ 1C03 OC78 Of lit OH4 l04C ICF5 l19D

0526
12~5
053b
OYtO 1117 1232 OltOfl 0199 1388
Cl62
1368 061t0 0641 1170
11t84 1420 0016 Cit69 1369 OM'it 13f!6 0377 04'99 0565 0610 0663 Ol<\4

Olt!68 C52S 1178· 1181· C586 Olt86 0700 0383
0768 0116 0034
1026
1031 005 1135
0314 1000 0886
0086 0096 0151 0162 0530 1082 0911
()513
0059
0196 Ol.71 0544 0554 0592 C933 C91t4 0965 0967 0984 ll#t6 0925· 0053 C204 1.c50
0201· 0208· C211* 0215·

0538
0646 1065

0988
0647 1163

1082 064"8

0631· Cf32 0632· 0635· 0636 1285

1185·

&469· Oltl() 041()11< 04t!C* ()485
1177·

Cl22

0201 0041
C220
O<t54
0753 1202 0530

1062 OC"tl
022'6
0"'90
Cl82 1208
0538

f>062
02'53 0503 Cl97 1218

0068 C266 0556 0809 1224

0090 0210 0569 0815 1228

C872 C876

0510· 05llt·

0512· 05U>·

Olt22 c~c;1 1071 lC84 1103
1230·

Oft04·

Ol'98

0223

C759

OO./t41

0621· 0621·
C622· CUI!*

1145 1168

C206 ICOS C818·

1012 1051 1085

OltS9· O<rt6l Oltlt: Cltl8* 0089· 0155·

0651

-02()2$ 021~ 021~

0376·

0452

C501

0567

C612

0665

0636t 0638

0099 ()283
0594 1028

0105 02% 0614 1032

0639
0126 0300 0652 1072

f)Alf

2!1AUG69

H N-O. 816'*85

310C169 816529

28NOV69 816542

02MAR70 816631

01NOV70 816 76<1t

19NOV71 818617

·.."t..._··

! ·

06'49 083,

0132 0311 0667 1076

0156 0316 0703 1089

,. · · · · · · · · · · · · · · · · · · ·...,

·"-~

"

\

"'

~-

'~

''<i'IF

-~

---

PART NO.
PAGE

258t;951 15

IBM KAINTENANCE DIAGNOSTIC PROGRAM
E013 5203 LINE PR! NTEfl FUr.tTION TESTS

PART NO. 2589951

PAGE

15'

0921 0926

0166 <Y.29 0709 1095

0172 Olt34 071t8 1193

S\'f'ti Ol T LEN VALUE DEFN

RTNl A 001 OAOF 0029

RTN2 A 001 OA93 0082

RTN3 A CO! OAE2 0118

f.tTNlt A 001 0816 Ollt7

RlN5 RTN6

A 001 0868 0187
A 001 OClA 0240

RTN7 · RTN8
RTN9

A 001 OCF6 0331 A 001 ODCA 0Yt5
A 001 oeeo 0450

RlNRDY A OOit GADE 0111 R2Bl·S'f A 004 OBCC 013f:

R2EX IT A 004 0812 0138

R4CHK A 004 C83B 0162

R4EXIT A 004 0867 0178 R4NRDY /. 003 0838 0161

R5EXI 1 A 004 OC16 0233 R6 EX IT A 004 OCF2 0322

SABTR A 006 16Cit 1146

SAHA SH A 006 12EC 0867

SATCH A 006 OFB8 0548

SA\tC MD A 005 1379 0900

SAVTUU A 002 lt53 UCB

SAVWUN A 002 1651 1107

SBUSY A 004 CF9C 0537

Sf3YTEO C 001
SBYTEl C 001 SB\'TE2 C 001
soc A 006
SDEHF A 004

0208 020? 020A
lltOE
160~

1490 1491
1492 0943 1084

SEFILD A 006 1088 0631

SEIFSK A OOlt 176A 1190

SE STAT A 004 OASF 0057

SHU A 002 1850 1277 SIADD A 002 18.itE 1276

SINOEX A 002 lf98 1415

SIC-OK A 004 HB3 0995

SI OST A 004 OF48 0518

SIX

A 001. l82A :- :1257 .

SKIOC A 004 159C 1055

SKIXlO A 004 1438 0965

SKlJNO A 002 188E 1298 SKHOVE A 005 1368 0897

SKRICA A 004 14EC 1009

SKRIG A 004 SNOMV A OOlt SNIROC A 010
SPACEO A 002

1749 1598 lBFc.t lFAB

1182 1054 1381t 1428

SPALT A 004 CA50 0053

SPMOVE A 005 13"'7 0890

SPOP
SPSK

A 012 1882 1296 A 001 1FC8 1444

SPUOT SSlit05 SSW08 SShll SShl2 SSW13 STAI X

A 003
c 001 c 001 c 001 c 001 c 001
A 002

OAOC
OOOlt
OC8C
0040 OC20 0010 lf95

0020 llt94 1495
1'497 1498
H99 1412

STATAB A COl
STATO A 002 STAT2 A 002 STAT6 A 002

lASF 1F8D lF8F lf93

1336 1408 1409 1411

STBE P A 004 OE52 Olt28

CROSS-REFERENCE
REFERENCES

CC18 0031 0081t

C120 0149
0189
0242
0333

C31tl
0086 0096 Cl25

0123 0152
0163 0154 0192 0308

0200

1143
0863 0543

0855· 0899· C970* 1105
0969· llOlt
G511· 0515· 0537 0039 OC60 OC87 0357 0408 0508 0975 C978 1038 C950

0097 . -0124: ·0153 0858 0999 1233

0164

0218

02SO

0280

0309

1068 0620 0626 1188 0055 Cl93 0539 C584* 0585 C989 0525 0555
12-40 ::

1052
0402 0405 0369 C37Q 038C 0878· 0909· 1004

C881

0882

089l

1180

062'·· 0630· 0642· 0643· 0Elt8· 064~· 0169

0885 1006· lOlC· 1C19

C038

0877· C908*

0370· 0372 0882· 0890

C352

0033 0039 0357 0975

C46l 0060
OltC8

0466
0087 05Ci8

05U! 0097
oa;e

OU9 0121t 0999

G625 0153

0674 0164

0677 0218

0250

0280

0309

0918

1038 1233

0036· 0037 1147 1149

0247· 024t8 1151 1153

0260 0271· 0278 0290 11394' 1140 1142 1155· 1157· 1159· 1160· 1161· 1163· 1166

1240* 12lt3

1127

0356· 036() 04t63· 0464

03~4
oe26·

0401*
oe21

04tll lCl'e·

04-15 1015

0057· 0058 0306· 0307 0520· 0521

ll.34 1176· 1200 1212 121~ 1216

0424

0857· 0861
0689 1087 1235

0865 1021· 1286 1121· 1122 1124

llltM
1238
1287 1133

PROG ID
PAGE

OEOl-3 15

DATE

25AUG6CJ

ec No. 816485

310C 169 816529

28NOV69 816542

02MAR70 816631

OlkOVl'O 816764

19NOV11 818677

PROG ID
PAGE

OEO!-ll 15A

·

J

IBH MAINTENANCE DIAGNOSTIC PROGRA"

PART NO. PAGE

2589951 16

EOJ3

5203 LINE PRINTER FUNCTION lESTS CROSS-REF ERE NC!:

SYMBOL T LEN VALUE DEFN

STEC Kl A 004 l68f! 1133

SlEc:tt 2 A CO'- lt8f 1134t

~HRR /I. OOlt lb!>6 1119

S lEXl l A OOlt 1 l2A 1111

ST Ill · OC6 CB<;C 0201 SlSAl /I. 002 1655 1111

SiOAO A 002 186C 1286

SfOMl A 002 l8li2 1287

SUBGAN A 006 1702 1161

SUNERO A O~ CEAF 0468

SVNTlh A 002 1831 1261

TAGS
TAG6 lAGl

A GOl lf 8B 1407
c 001 0002 llt87 c 001 0001 1486

TALT A COit OA08 <il09
TfCHBI A OOlt OAB oose
TEES ,. tc3 1Bf4 1312

TEGAN A 00'9 Of.A3 0542

lEFLU A 004 OBED 0218

TE SER A 004 1818 1246
TEST c 001 0212 1475

TFEl A 005 1874 1361

ThGIR A COS IBl:F 1366

ltiROUT - 004 Ofli8 0556 1 IOC HK A 00~ lie 'i-A 0988

l lTl A A OJ9 1917 1314

HTLB /,. 021 l92C 1315

l Hl9 A 016 l90#t 1313

TIU A 004 1406 Oti3l

THIRP A 004 OE56 O't29

TOBVT A 006 13FC 0935

lOlUNG A OO#t 1424 091t8

TON A 022 lBAO UTl

TREE A G.J2 1821 1255

lt.FORF A 002 1848 1273

. TN

A 006 ()87C 019lt

TWt.V E A 002 l82f 1260

TWO

A 002 1825 1251t

TWYSIX A 002 1635 1263

TWYWl.iN A 002 1833 1262

1V801 A OC6 1308 0929

TYBS A OD4t 0621 0153

UCSfLG C 001 0878 l4t6S

UFERR 14 006 ()888 0208

UHC.S t< A 015 l91tf 1318

UNI llN A 001 1843 1210

UHOSYN A 001 l81t2 1269

UNPAC.k C 001 021E l"t78

lJPCER A OO't llE:E 0701

WAHOl A 00" 1501 101'1

..AT

A 006 128~ 0830

WHlttl T A 00" 122& 0796

iflCH ,. 006 18CC 1308

~K A 002 lf~ 1411

WT aUOf

A 006 1"1C 0982 A 019 197D 1321

WlNTH A OO't lllt 06Blt

uo

A 006 143Z 0964

XIOEXT A 004t 164'4' llO't

~Rl

t 001 0001 l "5Ci

XR2

c 001 0002 1460

REFEREM:ES

1131· 1132· 0990 1C61 1083 1102 1119· 1169·
C199
1120· 1170 1001 1011
116~
0462 0400 0420$ 0423 1025· 1069· Clt23 1126 1138 0420 1025 1069 1206 C098 C056· OS48
0545
0207 0210 0214 1207 1234 1236 1055 0212 0414 1178 C21~ C"1C 1181
0553 0919 c~
CS06 0572 00'1 0921· 0934 Olt27 C929* 091t5
0089
OS82
0585 Cl97 0371 0@75 C889 C8% 0353 0581 0793 080/t
C683 1159 C924* 0151 0051t 06U
02~
067()
1155 1157 0258 0262 0288 0292
0690 1016 0833
0788 OltlO· Oltl'e-· 04t26·

1126· 1246
0899 0772

1138·
0~14
0805

1206
0923 1198

12lt6·

C9llt cc; es
0106
C682
031t9 Cit" 1 002 OttS7 CS23 0550 0577
0912
0987 1C86 1088 1101 (336· C352· 0353· C35it C378 C382 0388 0582* 0583 0637· 0681· 0683· 0685 0688 C767 076'9 0771 C773 0775 0777 0189
0804· 0813 oei 1· 0648 085C C85! 0853
105't 1104· 1120 U2H· 1128 1128* 1129 0355* C36e 0371$ C372 0380 0400* 0401

0588 Ob44 0686 0701 Oll5
0404 0417 0541· M44· 0580* 0691 0696· 0757* 0764 0765 0791 0793· 0794 0802· 0803 0856 C900 0~14· 0969 1053 1131 1132 1136 1137 1170* 0479· 0482· 0484 0579· 0581·

1BM MAINTEHANCE DIAGNOSTIC PROGRAM

PART NO. 2589951

PAGE

1614

E013

5203 LINE PRINTER FUNCTION TESTS CRljSS-REFERENCE

SYMBOL T LEN VALUE DEFN

REFERENCES

XTEN A 001 VBATS A OOlt
YEOW A 002
YE SER A C04
ZERO A 002 Z I GOUT A OOlt
ZROTO A 006

1820
1A3A
0Cl5 1670 1821 1043
13ED

1259
1333 0232 1126
1252 0594
0932

0583 0584 0638· 0672· 0679· 0680
0890 G896* 0897 OtiOl OCJ'JO 1053 1241 1201 1205
0210· 1123
0541 Cl65 0813 0848 0902
0591
C930*

0871· 0872 0815· 0876 lOS't 1105·

0887

0889*

lOTAL STATEMENTS FLAGGED IN THIS ASSEM8LY .,

0

nATE

25AUG69

EC.. NO. 816~85

310CT69 616529

28NOV~9
8165't2

02MAR70 816631

OlNOVlO 8167olt

19NOVll 818677

PR(g 10
PAGE

OEOt -3 16

OATE

25AUG69

EC NO. 816485

310CT6CJ
816529

28NOVt:':i 816542

G2MAR 70
816631

OlNCV70
81676~

19NOV7l
818617

PROG JO PAGE

OEOl-3 16A

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · (

.r·

,,.,_.,,...

}~,.,.__,_.

(

'-

~

:~ ......

,r-·.

-....~- .

,,. .

/-"!:.,.~

·

·.

' .

~ .... ,.. I
~

···· ······················ ·····

IBM MAJNTfNANCl OJAGNOSTJC PRO~AH

E013

5203 LINE PRINTER FUNCTION TESTS
oe..·ECT C~RD l IST IfllG

PART NO. PAGE

258995 l 17

INDICATES A BLANK COLUMN ANO TH CHARACTERS 0 E H INOJCATE NUMERIC SHIFT.

a. Cl 1 THROUGH J t Cl 17 THROtliH 32 Cl 33 THROUGH 48 Cl 49 THROUGH 64 CL 65 THROOGH 80

81 THROUGH 96

T+-Y: tiA< ; 8-i T+-lS< OAF 1 0S59lB 1+-001.Jl·8 8< J?

. ·- -.u;Af. DA t HU3. -
G /0Ad/?JOH$BH>
Jfl · /OHE-lV $4 *f!

AB-320 &@ Y+<+ .... vt4AG9MHC?HAIL-

OO;H~NC7"BGT2 t t G S .-CtBG I QB- ,

·+tZT<+<...U3-DG91
·- SO; H7T-D -T2UA

D -T2UAT /OHEOJ 208M8A HliaZ QOH·
< l>JF:7 /OHE&J<

S/+ 43&E0130001 BF~O MCl.iE0130002 SV= MRHE0130003

l+-, ,ef IW&~G-B_8 BA HH·Z QOH·BFIO EftG-<tCAF 1 0S498 G /OAB/?JOH·BH> lOH*BE-< 81SA9-, _iiY· 3,-E0130004

/OHEOJQU= 2t 0 S4J?J OH·BF YOHF 'G /OH sac. /OHOAH T+-_ID 08f'10H·B c. /ZAOl>P8+Go~· 1 AB _BGIY*V+ .&BBIH &F<eG /,AF/?96A

h->·IOHS8AC. /OH OAC. <FtGlilB7$2/: < J= JFE C"0 - B

(40- B I J=JFBI

· Ei G-82 G2/1 Y8 A H Hail =30EO13000 5
. .-
< J?JF'I /OHE-&Y S4* ;RYE0130006

-··v·· I

O;Q.XIH G;-o 61BE=>l30007

l+-?PAlO<FbH<UO T+-O~Y·tC . . CA_

CFSUi!Ot1#0;H.>GIG
-.
EC t· l_?IC.U.z:3-

* UB·TU ?S.V·OC

·CA_DIC·.="HGHOO GG OSO-OOG <SJCO

0 -T2UAT /OHEOKU ·H> C OS4J?tc>H* BFYOHF'O< ONB"?

BB~ KRBE0130008
·- /OH E, IE0130009

T+-2ti8C 1 /Qt; /=
l+-3"' s.-cccr G9<
l·-'t9 J~WOH·KYi8
.
T+-~~FF 1 2/0l /l+

Cl S· / ltH<;tQJ-() N>OX /OH; //FGEP
Dr£ t· IGIAG /,Al./ l
8 J=KeZ ... &BBi ti G /Q~ : OH·M<>~
- 9GBCQE YOC. A/D-e.ti·

AF 1 DS~3CUG9MC J=

-

.. -

/l)tE-J<·N·BG ID

B8Cl /OH; /=NGCX

toiBG '· AH/l 18C3
. .
Al o-.Y·HAGGIQ6 J-

L>J=PFHS< ASBFHS

NFOS2-liil8A 11H·Z AB/?JOH·BH> :<;Q
/OH; //HGEP /OH /OHE- tYS4·BG S. VG o.. voGB -SC<+ 6 /-?T I FHH+ A=

2C &·<JoioH·BFio

QKTCWG9M( J=NFO,

-

. -

E-J<·N·BG /DAB/?

.. - .

-l<BG /QG 4HI 0

.. TLS -X2U ? /l+

/G9*( A=/FDG2A 0

OGOH 1 THE0130010 2-ldl 29 E0130011
JOH* MYQEC130012 -.Y·H OK8E0130013 9G84 4l4E0130014
. -
< &4 QOOE0130015

-. .
1+-70<. 01\0/ICC 0
.
T+-ti V+ +t- C t C· C
T+-9- G -t960H· l t-: hJ ?Reti·8F YH
.
h-tUDTC SG~S J=

; & 9llAl1 I FHB

C7A/OC C:U//OaJY·

/ l &8

OBA= C+H
. .

(C.CYAG8t< A; CXG

-

.

Hf 1 G /OH SSC I /08

< A=/G9J' H-CZ JM
KC CMO//QC OC7A/
B8-.HtD-CDF<U!C4 11·2+ H,S"HU:.LC
VOH·M<> BOH· BE-U CClX Ki T "Ct-i<H"-l

< JLBFEt< t7·FEt
QC OU//QCH.._>t G8~,~ ... HAG-.HGCOO
_CVl<4JT<FSXZ/O&
Cl t /OHH/ RA+
.. c- -.WJ-TOH·M<>H

< &5>FEL 2/25 1 N&G
F 106 /- lTA F IG
OF<tS) 4 GBQ-.Y,H
iitF-9SOH*BFYD F+
.
I <-·_C?" G9U9< Y
-
AIJU-.w· AC0- 1 80:

2 JM R lMECll30016 /l& L: 8E0130017
AB74 $08E0130018
< JI KZME0130019 <o/ MO*E 0130020
~YD 5lME 0130021

".'&H

2~AUG69

H NL- fltt't85

310CHc;; 816529

28NOW:9
816~·42

02MAR 70 8lbt>31

Olf\C\'7C 816764

19NOV71 818677

PROG IO PAGE

OEOl-3 17

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. PAGE

2589951
llA

E013 5203 LINE PR INTER FlJilCTION TESTS OBJECT CARO LISTING
Cl 1 THRCIJGH 16 Cl 11 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Cl 65 THROUGH 80 Q. 81 TtlHIJCli 96

·-uoCJ-1· r+-·J<33Tc,Le -1 : 10· H"-UFIYQMLQ BFBUFDAIEFEH< · t · sFT5·a1·

M<>HAOH*+UIBG 1v 140H· MQBE0130022

T+-= GOA808/=l+ D T+-"BJ/ 1 6G7-..38 G T+-" 1 bl8GEC.S l4
. .
T+/ 88< I /1&28-G
T+/A3C- -.WJ-TOH*

-.u·H&EGIBGEC. S <B
. .
A9 =&O; IRCGUFOI
.
MG9X2-&Y+ A=RFBI
B -- 0-0H; 3QBFBH
.
I 119G /YKO'i*BE-0

GC4T /OHS8ACZ/OL 38- 5 J-/O;QIO?H
/O'HOH*BF/. /OH 6 J-XS H C&BG91
0 IP. /OHE t- OR++

. .
11150; IR<BGE v
GCTQAFBI &=TOH* 080 £1..<BG /LBEJU
. ..
C J=SFOT -/ +IO +tQHCfH&l32CO.Q

aKOTSCElH50TSIDI
. .
BH> MC HH6/HCEI
18 l·l=R l<-HOOl
H OoBGEC. S T4RG9X ·-1B:IH<NVT2DERI

.
-.100 ·&-E013002~ H5-- ; :HE 0130025 FB<H R3*E0130026 2-& Y ; RME0130027
. .
8 -V PtvE0130028

T+/B>CIHtDC170.Q
T+/CZCH<H"l=O IEtil
T+/0 Ul *BG /Y KOH*
T+/E...Q-DH-o.... HGACQ

i))l8:IG·NVT18ERI
.
NVll....fR*il AOR I
BE- ( AFJOH*BFUl-1
.. .
AFCM· JC4-.I~ OH*

<-l=OBBCi~Ml 1 MG8&
NWiBGEC.S &8 ERH PFH"- <HBOKOil=lE H<>H ...0 + H...U"H

'"O/Ba-D<CG·-../ I QK>a ER·QH>8 ERU M+· HHcfH&C3330Nt U 3&AG91J 1 6J=ROHD

7C i ....cA=OO-OH-.<H QH08 ERYQH37"ERP SA Y<Gll 00-HJUT&
C4 G9X2 -L-6 J-

BGO LKiE0130029
.
BONH 7/0E0130031 I+ D ·K·E0130032

T +/F Eol L · UAOl I ,.
-.
T +/GNH- +-l·uOH*
H/HtoGxo · IH&JGT

&'<BGOLL / 1&28 G
BFUO>FE?-:IBG /Y - · t"H&oxut · 1"HtcGu

/CHEOL4R... ; =C 0
E· 1H&IG4D. -.'He .Ao

$4.J?SOH·BFYMHf'G
.
2 &·aSAG.aY·DIC·
AG9*AOH·BG-H....,vu

/OHS8C# /lt28-C
J2·A· G M4A J30H·BFiM+F.. I-JI

/OH 0 8E0130033 1avo ·1YE013003~
.
Sf"H SJ-E0130035

l+/1./1/9 &C UAG 5,p AOH&J'LQAFBN
T+/HfVlX=OH·BF-0 Of,9( &OQH* ADT7

11'0.2-&L /lf7CH* /OHEE*HAG6 OBA=

BFU>Gf-.,,- <HAG6 SOH·t<Ya8GDWM4BAH

· J=P LQAF8P /OH S<+t+-T3-AG8" UAI

; Iii LBME0130036
. -
918- NEYEO 130037

T+/. AG91tC ·o- B
.
T+/.iiZCVI DhJO
T+/<7 -SITA< FGQ
. -
l+J«2G:X2 &EGilt C T+/~_c- L-.J-VG 0
T+/I Y 6 J-VCH*

(+I)- tl I A=JFBI
.
AG9*A<+ ,fLS -x
< A;:-G: G2/0U6 I-
213 6 /-·?TY FHH
...11004 /=RC&D-.Vl-
-.
KOO 6BA-H -l61Q

/AHJ OH* cum.<
2U? /1+9G81tQE?H
.
?T 1 FGQeB/ U-tl Y
+ A::;:;/G9·{ A==/FDG /eYO-.+-. -.vi &01<
HfBMBAl-C -L9TQ

8 111=-llDAFBG -& GB<BGDtlhTA/OC&
lE·BGDfU-..VlS+C
2.AA-1 A=/FOG2/0.i
. .
8 /=C'iU &I llKCO
HFB<4BA&IC DU

G OL,OE99 C20+_
ii ...vJ=-·-DGI ;o,w....
Q-/S++ t.... \l?Ht< 4
6 /-?TV f!18< /..= .. ObU;eA=ROHHLGifB
C OL"O C Dl@

8 - se-E0130038 BDIH c:J't'E0130039 AG9" $98E0130040 /G9* 5 ME013004l GECH 3EUE0130042
c

tATE

25AUG69

EC NO. 816485

3lOCTo9 816529

28NOVl9 816542

Cl2MAR 70 816631

OlNOV7C 816764

19NOV7l 818677

PROG JD PAGE

OEOl-3
l7A

IBM MAJ~TE~ANCE DIAGHCSTIC PROGRAM

PART NO. PAGE

2589951 18

f.013 5203 LINf: PR INTER. FUN CT ION TESTS

OBJECT CARD LISTING

t l 1 lHROl.LH 16 CL 17 THR'-.UGH 32 CL 33 Tt-'ROUGt; 48 Cl 49 THROJGH 64 CL 65 THROUGH BO Cl 81 THROlCH 96

IBM MAINTENANCE DIAGNOSTIC PROGRAM E013 52C3 LINE PRINTER FUNCTION TESTS

PART NO.
PAGE

2seq951 18l

OBJECT CARO LISTING

CL 1 THROUGH lb Cl 17 THROlCH 32 CL 33 THRClJGH 48 Cl 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96

&-

QM&i 0#-Q-i"HBB-Q

QMtBGO"I /0

( -M<&O BG: MQ+OCil BG: MQH" HAAGlGWEAl 2/0Y Gl31tf 0130044

l+/J;OH·BH> JOH· TOKROHFLI -,

MflBG < JLBFE-
. -
2U IO-.At8H HHiZ

bBA-T ( -MNLQt1F8< W< ... xL ?CG<;C( "0-

4BARI t OOHL&BEV<.
B ( +C- B f J=

< JHI < J=IE&·
. .
) FBI I AJiH-.. NCl

9·AM 30UE0130045
&EU& eS·E0130u46

T ·IL MO i HY-.HGD'IE GEV $ / 1~20H·BH> Tt/"lb/IM+&Z J!+O Ntl3YG:V< JMYHC h ~ H( 0$4&J? )(to

~CH·MWtBGE H <;A I
,, -
2/2Di9AOll+ -.O-O
I HAJllGW E P<

F<; QQKTG- 8- H AEK-l;OT'tlB-12 tO
: J= .c

I~ Z D+--NC--OAG9 0 08/=i -t- O-.TtB&E&G

NC3- 7ZdiEO 130047

3

Q U:E 0130048

·- BF VM E 9DE 0130049

l + /Of 1317 JOH· Btf> O+A BB?H&f 0 EOQ ~u<PG s.- 0 EPH ~u·BG s.- OBG:M Q+ OAEt&QOTOKE- <AU 'tQ&E0130050

HIP JA_OO;HN234t <B-12 t./1P'5'-.$

Q<BG /H< jPMFEO imlOH.l C. *$JA_EOt. N200AUtQPTOME- <AU OS E013005 l

T+/P#JA_SO;QN2"H GC-6BG:MQH6il A C

< /l~OCtHOBlViG8%

A; E-C ll*20H* 8FYOH5 .. /OHE/tY $4* :RVEOl.30052

htQ6/0HS8 CA8AQ
. .
l+/Rl8 32/Cl /lR

elOH·ONIBGE3H'CtY COH·P<TM.flf\i05 IP.

Gil"t'OO· l+-eU"t-.&H·B

......·...

LOH·

Ct

G /,AGJV)S O< J7 JF'? /OHE/&Y$4*B HE24"i JRN<+<-.U3X 6G9.2U ·98A:li/B

G SH 1 S-E0130053 a.OH U E0130054

1+1lZG8?B JZ<4-(
.
l+IO.F0,2--uc J=
. .
l·/;Q /><ti/ fC ,_ 1 +/ ...lOH·BFYDUf-V8

l-,-.@J -.vf ... G OT
NF032A U<Al:\IEF;. G9MQC.7HC.t-lil G91'1 OBl "'u -QGOO
- - H AV l+ I.-0 I Hf.A-0

·

-

$

:t AH LU G9H<i A=

21t:HI A=Nf'Ot 1 FA=
.
Q<30 G9f. I A=NFBX

Dr/ 0$, C-HG9C2U Q

Ul-OG9. 2U ~ /CJri

LOA O;AO ES BG a EP/H: /=.<+Q-.V&4

NC!YLXIJ ..~\hHOE34
.
2--Y+ A=MFBI 11*
<AAYJ f6" /H9G9D

(G9P2 -*'AA=N~Y&
BOH*l >J=Mfl t 2/0Q
. -
oioo FHMQ%00&F S<

l B C I OH ; I = LF T ,
-
E-J H-l)Afl,~EH&O

/OHE-JOE+T-AG8?
. -
AF 1 0$5·BG /DAB/?

AG9H J8QE0130055 IC- 8&1i!E0130)56
·- + J· E&DE0130057
coc- ) :HEOl 30058
20\ii l#OE0130059
JOH* #J4EO 130060

l+/- + /YN( OP 8/;
.
1+1so.... 1-c;.o JLtc
l · /S "4w1J(Pt+ 10t0l
.
l ·IT :-.u1eq+ ( f.DA

. lfC4Qll/AE,UfCAP 'lilS·N &DA Qh £DA &<IA6JV.4a·

t . 1-oc;~.2ua·aB1-.. A 11 0 OA- HO
.
DG8~TCII5·N &DA f\2)PlfH.PO·IE&DA NIMCC:a·v.2u1 ux

b IGY-,VIHBO 8 G9t
·-· < AD Et E Q- A
QM A 5 'XI 5; t t.DA
WA e_.151£ T5UA
RQfCF5_XMUIE5·..

-QH-8 E·QQ.·BGE"H
·-HS ZNNP AOE 71 #8
&QMA e_,AOilN &OA &OCN5UCSBaGT9+1
T2DA &OCT8:(·2EC.

< /.- i!.OE013006l
H. o- 2sae 0130062
Q;H 1A*E0130063
oa- 89DEOl30061t
T-.M I HE0130065

DA lt
. -.[ (. tiU.

2~UG6~
8l61t8S

28NOV69
81~5·2

02,.Af.llO 816631

01NOV70 81676't

19NDV71 818677

f>ftOG 10 PAGE

OEOl-3 18

l+/U5~'Xl5;( &lP T+/V02IPT8iPS84C

se·-..A54iPRt+.EB=I
.
f5_V 9CPP6;IAO_I

l2IPGt+IEB>IW5_X SlHCCO;.H(-.R2)P Et<IHOIV 21N l<G TCMCF2*PL1DCB2;C

H+tES>IR21 ...P4aN
5)Sl&+.E84CW2; I

5' U Kt VE0130066 H&+& OlME01300~7

l<GTO·PNetiPR&(, R8 1 V.0 1 l0KiilDl<N s_v l<PLO;/ SiX HlHCI5MCAl<LRK=. w-.;H "CDE0130068

T +/XW6·PS l ;( 2<G l+/Y 15; PLlL?C5<J

L BM- 6*PP l*G Tt<S 9=-.X9ilPN8°Xll; ..

06HCM5_XEQFCE5; I
X9=..,X4&GS84C~5_L

E6GCOi I COC+ I Ot<.
MCIPDQFCll*Slf.OC.

El iilXN&<PX l ·I U88X
N5_PEtOA &DA f.DA

05*U 9QiE 0130069
.·- to EC8E0130070

H·/l*E.CA tOA t.OC SBiiGT9+I O>TT l; I T+/OPtC - lC2<G 15MCS: (PC&<I H4U_

&DA &hR2 UR2; I
0 E2)PC6MCS:(P

Yt<PR6MCB2;l 2;I CQ;.L2l) &A A%X

&DA tOA &DA & DA NO'V l%Gl4=LR1HC

f. 0 tJ .. 8E013007 l
.. -
C2CH SOGlEOl30072

T+/,,KA 12<GM5<P Rt<PC2(R OoTKKOH T+ni ·IA6)V.8>T N04CC2CI .. tOA

BZGN:OCHOJLM6MC
CO)XRK= .. PO*IH<I

05MCC2(~ H ~H5(V WtU_ H Cl_SR5+l

.88TE6)LA44CC2(1
.
4*GM £.<i H4l!_ & I"

HH4E0130073 HO) & RK<E 0130074

T+ /_H5<PRt CPGK4A

T+l>C:OCT5_R 4 1 $

T+/)=6llAltiN '""·

T +/?95HC.N 5>( 6*l T+/04·-..0i4A &DA

T+/l?l(V.6*PGK'I

T.A2*5UCI8>.Ul·L
THlz.

T+J"R

9 G

E11 " 1 *E7·=-.0C··PH$

·

e

&DA &IP2il4 5)$

Nl·IA6)XIO·-.E5'X

Oi4A &DA 6*PAl+T
.
YS= IRKel lH64_ & IG

&DA &DA &DA &<X

15UCE6)XI8UA &DA

C2<GI5MCC2Cl.E8X

s + 8-C- ;H 8 ·

="7M&F I

c

T&<.US>/ o·nuv
.
I5;IE6HA O>LFliP
5Gl?C3&<XS&(XO:f?

R&CXIl·TT4lilPF84C S2<J.OZN 5)ST&\X

C5<J.l<PC5tLE£.<P
..
O:IP24ilH O>LS:DC

OiihG liil"G4Gl-.$ l' "G
.
S&<.U8>1,5SR O'l

9'-.. .OG14CI8UCN5> ( DKiXSS>lElDA l<G

&·lYE=.HlO?BlHC TO*XMO·-.E&OA tOA

&+.HlD?BlHA &DA MO·-.EtEA OillA2) N

51R-5_) 4iiGTOal
.
UR 51$T&<GG6*P

·o

s +CS-GS >HC8-C uo;QC9-D +&08 G

Fl

ASC

R A

...
so

·
Q

·

·····

·

··

BXPT&+$18iill 5lR
E
........·.......
. .
UN; A9GC- ; 88 I
21231012711

R6)Q =SME013007&
W2<M NROE01300l7
.
Rl+- lCYEOl30078
.
O*& :-IE 0130079
.
8%U Kl &E0130080
o: <EO 130081
5&YE0130082
'9ME 0130083
1107l·SaE01300B4

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - LAST PAGE ---------------------------------------------

DA TE

2SAUG69

EC NO. 816435

310CT69
816529

28NOV69 8165't2

02MAR70 816631

01NOV'10
816164

19NOVll 818617

··

PROG IO

OEOl-3

PAGE

18A

· ·

·

·

· .

· · · · · · · · · · · · · · · · IBM MAINTENANCE OIAG~QSTIC PROGRAM

PART NO. 2589953

PAGE

l

E025 5203 LINE PRINTER FUNCTION TESTS

ERR LOC OBJECT CODE

ADOR ST~T SOURCE STATEMENT

OAOO

OAOO E025 OA02 00 0A03 01 OA04 00~0
0A06 OAlO
OAOB 1630
OAOA E04000
OAOO 101000

OAOl 0A02
OA03 0A05 OA07
OA09
OAOC OAOF

OAlO 01 OAll 80 OA 12 OCSl
0Al4 38 04 0209
0418 F2 90 12 OAl B CO 67 021A OA lf 42 OA20 18
OA21 l2C3
OA23 EOE2 0A25 CO 87 021A 0~2<J 01
0A2A 54
OA:'B 150A 0A20 FO 7C 76 0A30 30 FF 0878
0A3.ft F2 01 04 0A37 3( 00 129A OA3e 39 01 OACC OA3F F2 10 08 OA42 3C 01 129.ft
OA46 ca· s1 0212

OAIO
OA!l OU3
OAlF
0A20 0A22 OA21t
0A29 O.l.2A
OA2C

OA4A 30 EO 1290 OA4E 30 El l29F OA52 30 E2 12A 1 0A5b 30 El l2A3 OA5A 38 ll 12AO 0A5l 3S 01 l2Al 0A62 C2 01 1291 0A66 C2 02 129C OA6A OC 01 162A 1263 OA 70 38 68 1628
OA74 60 01 01 01
OA78 F2 01 61 OA78 3A 20 1628
OA7F OD 01 162A 1263
0A85 F2 01 @F
OA88 36 01 1269
OA8C 36 02 1269

2 ·

3

DECK it

LAST CHu:Ol 27 75

4

SEQ 0

5 uvwx·z START X'AOO'

o

TREP

18 ·····················*··········································~········

* 9 *
10

SYSTEM/3 5203 LINE Pkl~TER FUNCTION TESTS

· ·

1112 *·····$·S·E·C·T·I·O·N···2·-··R~O3·U*T*IN*E*S*··l ··l ··2·············..···*····················

1134 ·······O·C······X*l2··1 ·E·C·2~5*' ~·····~···*·*P·R·O·G~R·A·M···IO··E·N·T·l·fl*C·A·T·I·O·N··············~

15

DC

Xll·0 1

FLAGS

16 RNUM DC

XLl 1 l 1

CUP.RENT ROUTINE NUMBER

17

DC Xl2·o·

RESERVED

18

DC

AL2(~fNl!

19

DC Al2<ERT1J

ADDRESS ADDRESS

OF OF

FEIRRRSOT~

ROUTlNE PREFIX RECORDING TABLE

20 SPUDT DC XL3'E04000·

UNIT OEf lNITlON TABLE - PRINTER

21 SPUTA DC

Xl3'l0!000'

PRINTE~ KEYBOARD

2232 2~

*········R·O··U·T·IN·E···1*-·tS·E·N*S·E··C·O·M·M··A·ND·S··A··N·A·L·Y·S·IS··T·E·S·T····~····················"*'

25 ·

·

2261 ·R·T·N·l·····D·C······X·*ll'*l'****·········R*OU·T··IN·E···N·U·M··B·E·R·······$·················

28

DC Xll'BO·

FLAGS - MANUAL INTE~VE~TION

29

DC

Al2f RTN2}

ADDRESS Of NEXT ROUTINE PREFIX

30 31

········TB·~·····S·B~YT·E~o*~*s*s*w*o*s***********T*E*S*T**F*O*R$**A*L·TE·R·N·A·T·E··4PR··IN·T···D·E·V·IC·E~~····

32

JF

5KALT

33

B

PRINT

34

DC

Xll 1 42'

PRINT 'SENSE CMOS ANALYSIS TEST·

35

DC

Ill 1 24~

3t

DC AL2(TlTLEi3

37

DC

~l2 1 cOE2"

3S

B

PRI~T

39

DC

Xl!.80P

40

DC

fll 1 8~'

'fl

:>C AL2fRHORC)

PRINT "J~PR A-BlE5DlO TO A-Bl02S05, RESTORE CARRIAGE{$), PRESS CHK RES~T, THEN RESET HALT'

42 SKALT HPL

43

CLI

44

JNE

X 1 76'1X~JC'
UCSFLG,x·Ff' MA RCS

HALT E2: PREPARE PRINTER 120 CHAR. SET

45

MVI

46 ~ARCS TBF

47

JT

EXPOJ,x·oo·
SPUOT,x·ol'
DOENSE

PUT ·oo· IN STATUS BYTE
DUAL FEED CARR.,

't8

l'!VI EXPO:lsX'O!'

PUT '01' IN F\IGHT CAFlRIAC.E lOCATION

49

B

TEST

READ DATA SWITCHES

5510 ······0·0··F·O·U·R··S·E·N~S·E··c·o·"·~·A·N·O·S$·····*····*············*·*···0···········$···

5532 D~·O·EN·S·E··S·N·S····S·E·~·s·o·,·x···E·o··1 ···········G·E~T··L·I·N·E···LO··C·4·TJ·O·N·S···················

54

s~s SENSlsX'El'

GET INCRM.£ c.c.CTR.

55

SNS SENS2,X·E2'

GET TIMINGS

56

s~s SENS3,X'EJ 8

GET ST~TUS

57

S~F SENS2-l,B'll0001'

!G~ORE CHAIN EMIT,PSS-1 t H~"E lATCH

58

SBf SENS3,B'l 1

IGNORE CE SENSE SIT

59

LA fXPTABtXRl

LOArJ TABlE ADOR ..

60

LA

61

MVC

62 63

SENE~T

SBF CLC

6~

JNE

t5

SB~

66

CLC

67

J~E

68 GORGAN A

69

A

SENTAB.XR2 EBciRCIZJ,ZERO T1(A2G,SX,RX1'>6d~11 c.xR21 AN ERR
TAGS,TAG2
EB2ERC(2),ZERO
~FROM
TWO,XRl
TWO~XR2

LOAD TABLE ACOR. ZERO ~RR COUNTERS RESET A CMD CORRECT £ CHO.ERR FLAGS ACTUAL SENSE MATCH EXPECTED
SET A CHO. CORRECT FLAG ANY BYTES IN ERR YET IF NOT KEEP GOIN' ADO TWC fO~ NEXT CMO. ADO TWO FOR NEXT CMO.

· · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PRO~RA~

PAAT NO. 25?.19SJ

PAC.t.

u

E025 5203 LINE PRINTER fUNCTIOt. lESTS

ERR LOC OBJECT CODE

AOOR ST~T SOURCE STATEMENT

OA90 70 FF ~O
OA93 CO 01 OA74 OA97 38 20 1628 OA98 CO 90 OAAA
OA9f 38 'tO 162 8
0AA3 CO 90 OCAO OAA7 F2 87 60
OAAA J~ F2 l52D OAAE 3D 00 1629
OAl!2 F2 81 lC OAB5 3C f l 152!)
OAB9 30 00 l62A
OABD f2 61 11
OACO 3C 41 OClA OAC4 CO 87 021A OAC8 C2
OAC9 15 OA<-:A 151F
OACC E041 OACE F2 87 54
OAO 1 3C 42 OClA
OA05 CO 87 021A
OAD<J C2 OADA 34
OADB 153E OADO E042 OADF F2 3·7 '13
0 At 2 60 0 ~ 0 l 0 l.
OAE6 F2 81 OD
0AE9 OE 00 162~ 1267 OAEF 60 00 00 00 OAF3 F2 81 06 OAF6 OE 00 lb2A 1267
OAFC 38 40 162 S
0800 f2 90 07 OP.')3 3A OS 1628 0807 F2 87 09 OBOA lA 40 1628 OBOE 2C 01 15't8 09
0613 CO 87 OA88 OBl 1 3C lt3 OClA OBlB CO 87 021A
OBlF C2
0820 H 0621 1552 0023 EO't3
0825 C2 01 1293 0629 C2 02 129C 0820 2C 01 1~61t 09 0032 2c 01 I56F oa 0837 34 01 0841
OB3B CO 87 021E
08 3F 01 08'90 0000
OB't2 l 5AO
OB'tlt 36 01 12o7
0B't8 31t 01 0052
oa.r.c co a1 ozu
0850 01

OACB OACS
OACB
OACD
OAO<; OAO.e
OADC OADE
OB lF OBZO OB22 0624
083F OB't l OB'r 3
0B5C

70

Cll 01,XRlltX'ff'

tHEC~EO ALL CM0$

71

6NE SE NEXT

12

T BN TAGS, T AG2

All C~OS.CORRUT

73

Bf

Al BAD

lit

TBN lAGS,TAGl

15

Bf SYNARA

76

J

lifRO~

17 78

·· ·····A·l·l ··SE·N··SE···C·O·M*H~·N·D·S··F·A·IL·E·D············································

7<; 80

·A·lB·A·D····M·V·I····W$CH··EB·,·X·1·F··2·' ············P·U·T··E·R·.2··I·N··M··S·G·.·················*··

Bl

Cll EBlERc.x·oo·

ANY EB! ERRS

82

JE

SKIBIT

If NOT

83

MVI WCHE8,X'Fl 1

84

cu EB2ERc,x·oo·

PUT EBl IN MSG. ANY E82 ERRORS

B5

JE

SK I BIT

86

MVI IDALY,X 1 41'

SET HALT 10

87

B

PR (NT

sa

DC

Xll'C2'

PRINT 'All SENSE CMOS FAILED'

8<1

DC

lll'21'

90

DC Al21AlSCF)

91

DC

XLZ'E041'

92

J

c;i3 SKlBJT MVI

CUTLOG
l0AlliX 1 ~2·

GOlOC OUT ACTUlltEXPECTfO BYTES

94

B

PRINT

<;i5

DC

Xll'C2 1

'9t;
en

DC

lll'52·

CC Al2CCNLBYT)

c;:s

DC

.)(L2 1 E0it2 1

<;9

J

GUTLOG

GO LOG OUT

... ..··· 100
101

······A·C·T·U·A$L··D·O·E·S··N·O·T··~·A·T0C$H$4E·X~·PE·C·T·E·D····~·······

··~·-·············

·

l 02 ·~·····~····~*~··$$*··~···············~ ~·····e····~····o··············

103 AlllERR C.LC

IO.ft

JE

H l, XR l), IC , XR2 l 6i!USBTU

I~ THE EBl BYTE IN E~R

105

ALC

106

CLC

107

JE

ice ~ussru ALC

!09 ANB AC TBN

EBlERC 11 ~,ONE
0(luXRl).0{,XR2J
ANB.60
fB2ERCC U,ONE
UGS.TAGI

ADO TO EIH fflf ERlt IS THE c92 BYTE IN ERR
AOu TO E82 IN ERR ANY ERRS YU?

110

JF

SEfF

111

SEN TAGS, TAG4

112

J

ANYGUO

11-:i SHF SSfll

114

MVC

115 ANYGL.O 8

UGS,TAGl EDOC (2 I ,9t, XRZ I GORGAN

SET ERR FLAG
PUT CMO.CODE IN MSG.

116 WFROI' "VI

117

6

11e

DC

IOALT 9 X1 43 11 PRINT
Xll 'C2 1

PRINT THE SENSE 'DOE I~ ERR

119

DC

n1·20·

..··· 12C

oc:

Al2CSCOIE>

121

DC

Jill2' E043'

122 123

*·····l·O·G··O·U·T···A~LL··C·O·M·M··A·N·DS··W·I·T·~··A·C·T·U·A·L···AN·O··E·X··PE·C·T·E·D··6·Y·T·E·S···········

·

124
125

O·U·T·L·O·G··l·h····*E·X··PT·A··B·eX··R·l ~···········L·O·A·D···TA··BL·E···AD·O·~·.············..···..·~

126

LA SfNTA8eXR2

LOAD TA~LE .AOOR.

127 SCARD MVC lFTCODC2Jo9ftXR2)

PUT CMO.COOE I~ NSG

128

MVC RYTCGuc2;~11c~~RZ)

PUT c"c.ccoe '" "SG

129

ST

LEX2,xsn

130

B

U~PACK

131

oc

132 lEX2 0(.

U3

OC

l H

A

135

ST

lll'l' Al2,._·) Al2«LEXE82J
C'-E t lCR l LE.Xl,xf<.I.

PUT LEFT EXP.E82 IN MSG. FRO"
TO
ADO I TO TABLE .AODR. STORE FRO,. AOOR.

136

8

U'IPACK

137

DC n1· 1·

r,ur LffT fXP.E81 lh HSGo

·

DATE

3lOCl6<f

EC NO. 816529

28NOV69
8165lt2

02MAR70 816631

llMAY70 816671

OlN0\170 a1a101t

l9NOV71 816617

15FEB75 572250

PROG ID PAGE

E02-5 l

DATE 310C T6CJ
EC NO. 816529

28NOV69
816547.

02f'AR70
616631

llMAYJ!l 810611

OlNOVlO lH67""41>

lC'iJN0\'11 818671

1 SFE875 572250

PROG 10 ?ACE

E02-5 lA

_ ---------------- ..........................................

......--------~~~~-

IBM MAINTENANCE DIAGNOSTIC P~OGRA~

E025 5203 LINE PRINTER FUNCTION TESTS

ERR LOC OBJECT CODE

AODR ST,,T SOURCE STATEMENT

0851 0000
0853 15A3
0855 36 01 1267
0859 34' 01 0863
085D co 87 021E
CB61 Oi
0862 0000
0864 15AB
OB66 36 01 126 7 OB6A H 01 0874
OB6E CO e7 021E
0672 01
0873 0000 0875 15AE
0817 36 01 1267
OB7B 34 02 0885
OB7F CO 87 OllE 0883 01
0884 0000 0886 15(0 OBS8 3!> 02 1267
OB SC 34 02 0896
0890 CO 81 021 E 0694 01
0895 0000 0897 15C3 0899 36 OZ lZo 1 0890 34 02 OBA 1
OBAl CO 87 021E OBA5 01 08A6 COOO OBAS 15C8 OBAA 36 02 126 7 OBAE 34 02 0888 OBB2 CO 87 OZlE 0886 01 0887 0000 OBB9 15CE OBBB 36 02 1267 OBSF 38 20 OAOE C'BC3 FZ 10 12 0BC6 38 04 0208 OBCA F2 90 08
oeco co 87 ozu
OBOl 81
0802 78
0803 15CE
OBC5 f2 87 20 0808 co 87 021A OBDC 81 0800 lC OBOE l56f OBEO CO 87 021A OBE4 81 OBES 10 OBE6 l58F OBE8 CO 87 021A OBEC 81 OBED lC
OBEE l5AE
OBFO CO 87 OZlA OBF4 82
08f5 lC
0Bf6 15C.E OBF8 70 ff 00
06f8 co 01 0820
OSFF OC 01 l4A6 1482
ocos co 87 021A

0852 0854
0861 oso3 (1865
0872
OBH
0876
0883 0885 C881
0894 089f.
0898
OSA5 OBA7
OBA9
0866
0688
OBE!A
0801 0802
0804
OBOC
0800
OB Of
OSE't
OBE5
08E7
OBEC
uBEt OBEF OBF4
OBF5
OSF7

llE LEXl 139 l'tO l'tl 142 143 lit~ REX2 145
lU 1"7 HS
149
150 REXl 151 152 153 B4 155 156 LACZ 157'
158 1sc;
160 161 U.2 LACl 163 164
HS 166
1£1 166 RAC2
169
17C 171 112 173 174 RAC.l 175 l 7t
177 178 179
180 181 1S2
18~
184 185 18t PR.ft.LI !El
UH!
18~
190 191
192
1~3
194
195
l c;6
197 198
19~
2<JG
201 202 ALCOP
.203
204 205

DC DC
A
ST
8 DC
DC
cc
A
ST
8
DC DC DC
A
s-r
8
DC DC DC
A
ST
8 DC
oc
DC
A
ST
B
DC
DC
DC
A
ST
B
oc
DC
DC
A
TBN JT TBN JF
8 .
DC DC DC
J
8
DC DC DC
8
DC DC DC
8
DC DC
cc
B
DC
DC DC
Cll BNE
~vc
B

Al2C._·)
Al2CLEXEBU CNE.XRl REX2.XR1 UNPACK
lll-1 1
Al2C*-·)
AL2CREXE82J tNE1XRl REXl.XRl UNPACK
lll'l'
Al2l*-·j Al2CREXE8U CNE.XRl lAC2,XR2
tJNPACK
ll l' l'
Al2 (*-*I
AL2 CLACE82 I ONE,XR2 LAC1,XR2 UNPACK
lll'l'
AL2t·-·t AL2C LACEBU
CNE,XR2 RAC2,XA2 UNPACK
ll l' ! ' AL2l·-·J AL2CRACE82j ClNE1XR2 RACl ,XR2 UNPACK
lll91'
Al?l*-·J
Al2CF\ACEBU CNE,XR2
SP~TA-118 1 100000 1
PR4ll
SBVTEO, SSW05
PR4ll
PRINT XL1 1 81'
lll'l23'
AL2CRACEBU ALCCP
PRINT
Xll 1 8l'
lll 1 28' AL2(RYTCOOJ PRINT
Xl 1'811
lll 1 29 1
AL2CBTESJ PRINT
XL l ' 81'
Ill928' AL2(REXEBU PRINT Xll'821
lll928'
Al2tRACEBU
0 I , XR U , X' FF '
SC ARD MAP(2) ,CHT13 PRINT

PART NO.
PAGE

2589953 2

FROM TO ADD 1 TO T ABI.. E AODR PUT RIGHT EXP.EB2 IN MSG. FROM
TO
ADD 1 PUT RIGHT EXP.E81 IN MSG FROM TO ADO l PUT LEFT ACT.EB2 IN MSG
FROM TO
ADO 1 PUT LEFT ACT.EBl iN KSG FROM TO ADO l PUT RIGHT ACT.E82 IN MSG
FROM
TO ADD l PUT RIGHT ACT.EBl IN MSG. FROM TO PRINTEM KEYBOARD ASSIGNED PR I NT ON Al TERN ATE DEYJtE PRINT CMO CODES ANO ACT.&EXP.OATA
PRINT SENSE CODE NAMES
PRINT SENSE CODE BYTES
PRINT EXPECTED SENSE INFO
PRINT ACTUAL SENSE INFO
ALL 4 CMOS PRINTED PUT CHART NO.IN HSG. PRINT PRINTER MAP CHART NO.

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART ..Oe 2S199SJ

PAGE

2A

f025 5203 LINE PRINTER FUNtTION TESTS

ERR LOC OBJECT CODE

ADDR STMT SOURCE SIAtERENt

OC09 81
OC.OA 12
OCOB lltAE
ocoo co 87 021A
OCll 85 OC12 OD
ocn 15E9
0Cl5 co 8l 0222 oc19 eooo

OC09 206

DC

OCOA 207

DC

ococ 208

DC

20"i

8

OCll 210

DC

otl2 211

DC

oc lo\ 212

DC

213 ZALT 8
ocu 214 IOAL T DC

X1uU·'alal·1
AL2UNf)
PRINT
xu·as·
lll 1 131 AL2CDKSENt hALT
XL2'f000'

PRINT 'REMOVE JUMPE~' SENSE ERR HAL t

OC 18 38 lt> 020A OClF F2 90 Sb 0C22 30 43 OClA
OC26 F2 01 81
OC29 38 08 1628
OC2D f 2 c;o 09
OC30 CO 87 0222
OC34 E083

215
216 211
218 219 220 2H OC35 222

T8N S8Yl£21SSWU

JF lEAVIT

CLI IOAl T, JC Ut]i

JNE TIVA

TeN TAGS,TAGlt

Jf JUSUh

B

HALl

oc

XL2 1 E083 1

WAS THE ER~ A ·<\J· ttALT ~
IS ONLY l SENSE IN ERR
~c~e THA~ l SE~SE CODE IN ERllOR HALT

OC36 -=2 81 71 OC39 30 F2 l5't8

223

J

224 JUSUN CU

elloU oc,c·2·

IS EPR CODE E2 1

OC30 FZ 01 C9
OC40 CO 87 0222 OC4~ E08A

225 226 0Clt5 227

Jt.E AVID

8

HALT

DC

XL2 1 E08A1

SENSE CODE 1 E2' FAILED

OC46 F2 87 61 OC't9 30 F3 151t8
OC40 F2 01 09
OC50 CC 81 0222

228 229 AVID

J Cll

eTDIVoAc.c·3·

230

J"1;E SNOTIT

231

8

. . ALT

IS ERR CODE E3 ? SENSE CODE E3 FAILED

OC54 E08C

OC55 2~2

DC

ll2 1 E08C 1

OC56 F2 81 51
OC59 3C 84 OC9C OC50 30 FO 1548
OC61 F2 01 19
OC64 30 00 162A
OC68 F2 81 2C
OCoB 3C 85 OC9C
OC6F 30 OJ 1629
ocn F2 a1 ~1
OC 76 3C 86 OC9C OCTA F2 87 lA OC7D lC 87 OC9C OCcH 30 00 l62A OC85 F2 81 OF OC88 3C 88 OC9C OC8C 30 00 1629 OC9C F2 81 O'e
Ot93 lC 89 ClC9C
OC97 CO 87 02ZZ

233

J

234 SNOT IT MV I

235

Cll

236

Jll.E

231

Cll

238

JE

239

MVl

24C

Cll

241

JE

21t2

MVI

21t3

J

21t4 ftUBEUN MVI

21t5

cu

2'et

JE

247

MVI

2._8

Cll

21t9

JE

250

MVI

251 :'ORIC 8

TIVA
KORP,X 1 81t 1
eooc.c·o·
MUBECN
ea2e11c.x·oo·
PORK
KORP1X 1 85 1
ee1eRc,x·oo·
PORK KOAP1X 1 fS6 1
PORK KORP,X 1 87·
EB2ERc.x·oo· POfaK KORP,x·aa·
EBlERC .x·oo·
PORK
KORP,X 1 89 1
HALT

PUT IN EBl ONL \' HALT
IF NOT 1 MuST BE CODE El ANY ea2 ERRS 1 IF NOT1E8l ERPS ONLY PUT IN EBZ ONL· HALT ANY E81 E"RS 1 If hOT,E82 ERRS ONLY IF SC1 EBl ' C82 ERRS
ruT IN EBl ONLY HALT ANY EB2 ERRS IF hCT.EBl ERRS ONLY PUT IN EB2 ONl. Y HALT AtitY EBl EARS If NOT.MUST ee E82 ERRS ONLY IF so.eel ' E82 ERRS EO OR El FAILEe 14ALTS

OC98 EOOO OC9D FZ 81 OA OCAO CO 87 02lA OCAlt 41 OCA5 18
OCA6 1SE9
OCAB EOOO DC.AA FO 7C 51 OCAO CO 87 0216

OC9C
OCA<\ OCA5 OCA7 OCA9

252 IC.ORP DC

253

J

251t SYNARA 8

255

DC

25t

cc

251

DC

258

Ot

259 TIVA HPL

260 LCAVIT 8

JIL2 1 EOOO·
TIVll
PRlhT
Xll'~l'
Ill '27'
Al2COKSENt
Xl2'E000 1
x·51·,x·1c·
LINK

PRINT 1 SEhSE CMOS Oil, REMOVE ~UMPta· HALT £): REMOVE JUMPER

2U

226632 2l4

·· ····································~·····························.

·

RCUTINE 2 - SENSE TIMING BITS CC.ODE E21 TEST

.

.·*.

265 ·

·

266 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . .

OCBl 02 OC82 80

OC81 267 RTN2 OC

OCB2 2ul!

DC

Xll'2' )Ll 1 801

ROU11ME ~UMBER FLAGS - Pl!·hUAL INTERYEhTION

OCB3 FFFF

OCB4 269

OC

Jll2 1 FFFF·

LAST ROUTINE

oces 3C E2 OCEE
oce9 oc o~ 1602 i1t10

21C ··························,···················. . ····················. . .

271

M~I WICAR-i.x·ez·

272

MVC lRCARISJ.TFEL

PUT LEFT IN MSG.

OCBF Cl EO OCC6

273

TIO 8APRT1NROY

DATE

310CT69

EC NO. 816529

28NOV69
8105'.Z

llflAY70
816671

OlNOVlO
816164

19NOV1l 818677

15FE875
572250

PROG ID PAGE

E02-5 2

OAT E 310CT69
EC NO. 816529

28NnVb9 8l6Sit2

02MARlO 816631

llMAY70 816671

OlNOVlO 816164

l9HOY1l 818617

15FEblS 5l22SO

PA.OG 10
PAGE

EOZ-5 2·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·- . ·

·

. -

. · · · · · · · · · · · · · · · IBH MAINTENANCE DIAGNOSTIC PAOG~A~

PART NO. 2:589953

PAGE

3

E025 5203 LINE PRINTER FUNCTION TESTS

ERR LOC OBJECT CODE
OCC3 F2 87 14 OCC6 38 04 0208 OCCA F2 90 OA occo co 87 021A OCDl 46
OC02 lF
OC03 149C OC05 EOEl OC07 FO 7C 03 OCDA CO 87 021A OCOE "2 OCOF 16 OCEO 1209 OCE2 EOOO OCE4 OC OE 088A 12F4 OCEA CO B1 OEEB OCEE E201 OCFO OC 03 1631 1265 OCF6 DC 01 l63F 128~
OCFC 30 E2 1637
0000 oc oc 0000 1637
OCOo OC 00 0011 1636
::woe 3A oo 162F
OD 10 3A 0 0 162 E
0014 OC 01 J633 l27E ODlA OF 01 1633 1637
0020 oc 00 0020 1633
0026 oc 00 0031 1632
002C 38 00 163 i 0030 36 00 1630 0034 OF 01 l63f 1267 OD3A CO 01 OCFC
OD3E 36 10 1628 0042 3C 7E C060 0046 3C ?8 OEOS OD4A C2 01 1620 004E 3C F2 1614 0052 3C 04 C067 0056 36 ()1 1267 OD5A 3C 01 OD6E 005E CZ 02 l61F 0062 36 02 1267 0066 30 04 006E 006A F2 81 06 0060 78 co 00 0070 F2 90 31 0073 OE 00 006E OD6E 0079 co 82 0062
0070 30 Fl 161~
0081 F2 81 OC 0084 3C Fl l61't 0088 3C 00 006 7 ooec co e1 0056 0090 '38 10 162 8 009it F2 10 'tA 0097 30 7C:i 0D6D 0098 F2 81 BO 009E 3C 79 006 0 ODA2 3C 79 CE 08 OOA6 CO 87 OD4E

AODR STMT SOURCE STATEMENT

OCOl OC02
OCD4
OCD6
OCOE
OCOF OCEl
OCE3
OCEF

27~

J

PTITL

21s BAPRT TBN s·vreo,sswos

276

JF JALT

PRINT ON ALTERNATE DEVICE

211

8

PRINT

278

DC

Xl 1'46;

PRINT MAKE RE·DY ETC.

279

DC

lil'3l'

280

DC

2el

DC

282 JALT HPL

283 PTJTL B

28~

DC

Al2CRESALTi Xl2 1 EOE1 1 X1 03',Aa7c· PRINT
XL1 1 42'

PRINT TITLE

285

DC

ll1'22 1

286

DC

Al2CTITL2J

ZE1

DC

iee SNIRP MVC

289

B

290 ·ICAR OC

XL2 1 E000 1 LPD+l4(15J,POPSUD XIO XL2 1 E201'

SET LINE CF PRINT ISSUE PRINT AND SPACE 1

291 292 293

···

MVC BTSOFFC4),EFFS MYC MSECS!2),UNSEC lHE FOLLO~ING IS A 140 USEC.

SET SET LOOP

SAVE LOOP

AREA'S TO ZEROS COUNT OF 7200

& F'S

294 SEGAN SNS STAT2,x·E2·

SENSE TIHINGS

295

MVC OREel+l(l),STAT2

PUT EBl IN OR IP.;STR ..

296

MVC

297 OREB! SBN

298 ORE82 S8N

299

MVC

3CO

SLC

301

MVC

302

HVC

30~ ANESI SBF

30~ ANEB2 SBF

305

SLC

3C6

B~Z

OREB2+lfl),STAT2-l BTSON 1 *-·
BTSC~-lt*-·
CMPLNT(2),SfFE CMPLNT(2J,STAT2 ANE81+1Cl).CMPLNT
~NEf2+1Cl),CMPLNT-I
BTSCFF,*-· STSCFF-1,·-·
~SECSl2J,ONE SEGA~

PUT E62 IN OR l~STR. OR E81 INTO ON SAVE AREA OR E82 INTO ON SAVE AREA SET All 8 ITS ON
GET THE COMPLIMENT OF THE SENSE PUT EBl CO~PLIMENT JN AND INSTR. PUT E82 CO~PLIMENT IN AND INSTR. ANO E81 INro SAVE AREA ANO EB2 INTO SAVE AREA DECR. LOOP COUNT

307 308

*·····C·H·E·C·K···FO·R···A·~¥Y··B·IT·S···N·O·T ··ON···A·N~D·O··FF································o··

3CS *****·*******·************************************·********************

310

SBF TAGS9TAG3

RESEY ERR PRINTED flAG

311

MVI TBCN,X'78'

312

~VI

~08ET,X 1 78'

SET TO CHECK FOR BITS ON ·· ·· ·· ·· · ···

313

LA

31~ ~RA~ ~~I

315

~VI

316 OOEBl A

BTSCN-2,XRl Of8YTE,C 1 2' cotoo+1,x·o4· ONE,XRl

LOAD SAVED BITS ADDR. SET MSG.FOR E82 BYTE SET TC SKIP BIT 5 OF E82 100 l TO SAVE AUOR.

317

MVI

318

LA

~19 TENXT A

3 20 COCOO Cll

321

JE

322 TBCN TBN

323

JF

32~ ~ITNCC ALC

325

Bl

326

Cll

327

JE

T80N+1,x·o1· TA88IT-ltXR2 ONE,XR2 TBCN+ 1tX 1 O't 1 hlTNOC OCrXRlJ,._· BISAD
lBCN+lfll,TBON+l TENXT
Of bYTE,C 1 11 CHOFF

SET INSTR.TO START AT BIT 1 LOAD BIT NO.ACOR. ADO 1 TO BIT NO.ADDR. SK IP 8 IT 5 OF EBZ
IS BIT ON OA OFF
DOUBLE TO MOVE MASK BIT LEFT 1 POS. BR TILL 8 BITS CHECKED E8l BYTE DONE YET ?

32e

MVI

32~

MVI

330

e

331 CHOFF TBN

332

JT

3?3

Cll

334

JE

335

MVI

336

MVI

337

8

CFBYTE1C'l' COCOO+l,x·oo· COE Bl TAGS,TAG3
STALT TBON,X'79 1 SEIFOF
TBCN,X 1 7~'
N08ET.X 1 79·
TRA~

SET MSG.FOR E81 BYTE SET TO CHK.BIT 5 OF EBl BP, TO STltlU EBl ANV ERRS BEF.N PRINTED? IF VES,GO HALT CHECKED FOR BITS Off YET
SET TO CHECK BITS OFF SET TO CHECK BIT OFF

ODAA 2C 00 1600 00

3389 ·· ·····PR··IN·T···SE·N··SE··T··l"·I·N·G···B·IT·S···FA··IL·I·N·G·····································

340 ·······································································

3~1 &IBAO MVC BAOBIT(1J,O(,XR2J

PUT BIT NO.IN MSG.

DATE

310CU9

EC NO. 816529

28NOV69
8165Jt2

02MARlO
816631

11MAY70
816611

01NOV70 816764

19NOV71 818677

15FE875 572250

PROG ID PAGE

E02-5
3

· · · · · · · · · · · · · · · ·

18" MAINTENANCE DIAGNOSTIC PRQGRA~

PART NO. 2S8995:S

PAGE

JA

E025 5203 LINE PRINTER FU~CTIC~ TESTS

ERR LOC OBJECT CODE

AOOR ST~T SOURCE STATEMENT

ODAF 38 10 J6Z8 OC83 F2 10 IF 0086 3A 10 1628 ooeA oc 00 163C 1614
ooco oc 00 OE09 OD6E
0DC6 2C 00 1630 00 OCCB CO 81 021A ODCF Cl 0000 lf 0001 1608 0003 E04S oocr; co 87 02u
0009 81
ODOA 17 0008 l61F ODDO CO 87 0073 OOEl OC 01 14A6 ;1,52
00[7 co 87 021A
ODE8 81 ODEC 12 ODED l'tAE O~EF CO 87 021A ODF3 96 OOFit CO 87 0222 OOFS E045 ODFA 38 10 020A
ODFE F2 90 40
0E01 30 F2 163C OE05 F2 01 OF OE08 78 00 00 OEOB f2 10 26 OEOE CO 87 0222
OE12 E02A
OE 14 FZ 87 .37 OE17 3C lf OE30 OElB OE 00 OE30 1267 0E21 07 00 1630 ll84 OE27 CO 02 OElB GEZB CO S7 0222 OE2F EOOO OE31 Fl 81 lA OE34 3C SF OE4D OE~8 OE 00 0E40 1267 OE3E 07 00 1630 1284 OE44 CO Ol OE38 OE48 CO 87 0222 OE4C EOOO 0E4E 38 01 OAOC OE52 F2 90 15 0E55 30 EA OCEE OE59 F2 81 OE OE5C 3C EA OCEE OE60 OC 04 1602 1~78 OE66 CO 81 OCE4 OE6A CO 87 0216
OE6E 00 OE6F 36 08 1267 OE 13 lit 08 CE90 OE71 36 08 1269 0E7B 3~ 08 0E96 OE7F 34 08 OE9C OE83 36 08 1267 OE87 34 08 OEBf 0E8B OC 01 OEA2 0000 OEql oc 01 OEB5 0000

ODCF 0000 0002
OOOlt
ooDc; ODDA
oooc
OOEB ODEC
ODEE
00F3 OOf 9
0El3
OE3C
OE~D
OEH

3~2

TBN TAGSeTAG3

343

JT SKIHED

HAS AN ERR SEEN PRINTED YET?

344

Se~ TAGS,TAG3

SET ERR PRINTED fLAG

345

MVC

ERTl-1111,~FBYTE

SAVE RYTE

346

MVC NOBET+lClJ,TBON+l

SA\IE SIT

347

MVC ERTlClleOC1XR2)

SAVE BIT JN P~INTA8lE DEC.

348

B

PRlhT

PR INT SENSE COOE

349

DC XL1 9 Cl·

350

cc

lll 1 31 1

351

DC Al2CSEHCOJ

352

DC XL2 1 E045'

353 SKIHED 8

354

DC

PRl~T
XL1 1 81 1

PRINT BIT ANO BYTE FAILED

355

DC

lll 1 231

356

DC AL2(FAILED>

357

B

~ITNCC

358 SlALT ~vc

359

~

360

DC

~APC2J,CHT13
PRINT
XL1'8l'

PUT IN MAP NO. PR I NT fl!AP NO.

361

DC lll'l8'

362

DC AL2CENTJ

363

8

PRINT

3t4

DC

XL1 1 96 1

SPACE 6

3t5

8

~ALT

366

DC XL2'E045 1

SENSE TIMING BIT FAILEC HALT

367

TdN SBfTE2,SSW13

368

JF SEIFDF

SSW - ll CNINO ALT.PRTR.l ?

36~

Cll ERTl-leC 1 2 1

37C

J~E SE BUN

lST ERR IN E82

371 ~OBET TeN

172

JT

oc.~AIJ,._.
SEBTU

SAME BIT I~ ~Bl ON OR OFF ?

373

B

hALT

374

DC XL2·E02A 1

SAME &IT FAILED IN E81 ' E82

375

J

SEIFDF

376 SEBUh MVI

377 OORP ALC

378

Sl

319

B~L

BUNALT,X 1 lf 1 SUNALTC1J,ONE
EPT1C11,0ECCNEC1J
DO~P

SlART HALT CODES FOR Ell INCAEHENT HALT CODE DECRatENT !IT NO.

380

8

381 BUNALT DC

382

J

hALT Xl2 1 E0001 SEIFDF

GIVE E81 all HALT 20 THRU 21 POSSIBlE"

383 SEBTL M~I

384 PROO ALC

385

SZ

Je~

B~L

eoTALT1X 1 8F'
ROT~lTClJ,ONE
ERTlllt,OECONElll PROD

START HALT CODES FOR EIZ INCREMENT HALT COOE
DECREMENT BIT NO.

3e7

B

388 80TALT CC

389 SEIFOF TBN

390

JF

HALT
XL2 1 EOGO· SPUDT,X'Ol 1
Cll~K

GIVE E82 81T HALT 90 THRU 97(EXC~PT 951 POSSl&lE
OUAa. FEED CAA · ·

391

Cll WICAR-l1X·EA 1

392

JE CllhK

DUAL FEED BEEN TESTED

393

MYI ~ICAR-l,X 9 EA'

194

MVC LACAA15J,THGIR

395

8

SNIRP

SET C~O.FCR DUAL FEED ~ET PRINT OUT FER RIGHT CARR.

Jq6 (LINK 8

LINK

397 ·······································································

3~8 ·

CCNVERT 1 HEX BYTE TO ZONED DECIMAL SU8POUTINE

·

]~9 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..

~co HX8YT oc XLl·oo·

~01 CYO

A

C~E,ARR

402

ST FAOM+5,ARR

403

A

TkC 9 ARR

40~

St TVBOT+5,ARR

~05

ST CTORZ+5,ARR

406

A

CNE,ARR

407

ST TIXE+!,iRR

~Ce FROM MVC FROBYl+Sl2J,*-·

ADO 1 TO GET lST PARA~EJEA INSERT THE FROM AOOR. ADD 2 GET 2NO PARAMETER INSERT THE TO ADDA. INSERT THE TO AOOR.
ADD 1 MORE FER RETURN AtlOAe
SET RETURN AODR.

~09 TYBOT MVC TCBY1+3C21,*-·

DATE

3WCT6~

EC NO. 816529

28NOV69 8165612

02MAP.70 81U31

1U'IAY70 81667'

01140¥10
81616~

19'NOY71 118671

15FE815 512250

PROG ID PAGE

£02-5
JA

IBM MAINTENANCE DIAGNOSTIC PROGRA~ EOZS 5203 LINE PRINTER FUNCTICN TESTS

PART NO. PAGE

2589953, It

ERR lOC OBJECT CODE

AODR STMT SOURCE STATEMENT

0E97 Ot Cl OEA6 0000 QEqO OC 00 OE6E 0000 0EA3 04 20 0000 1283 OEA9 OF 00 OE6E 1267 OEAF FZ 82 OA
OEB2 06 20 cooo 1284
0EB8 CO 87 0EA9 OEBC CO 87 0000
DECO 34 08 OEE7 OEC4 OC 02 1620 1273 OECA OF 02 1620 1267 OEDO F2 Bl 07 OED3 Cl E6 CECA OEC7 F2 87 OA OEDA CO 87 0222 OEOE EOl l OHO CO 87 OEC4 OEE4 CO 87 0000

OEES OC 01 OF80 1286

OEEE lb CE 1267

OEF2 34 OE CFOB
OEF6 36 ce l2b7

OEFA 34 ClE 1004

OEFE 34 01 1006

OF02 34 02 1008

Of06 OC 01 OFBA 0000

OFOC OC 01 l63F DFBA

Ofl2 39 FO OFB9

OF16 F2 10 l c;

0Fl9 38 40 020A

OflD
ono

F2
Fa

90
1c

03 16

Of23 38 20 020A

Of27 F2 90 26

OFZA 30 00 l63F

OF2E 38 FO l63E

OF32 OD FF C800 0800

OF38 OD 38 DEDO 0800 OF3E OF 01 l63F 1267

OF44 CO 84 CF32

Of48 39 FO OFB9

OF4C CO 10 lOC5

OF50 Cl EO 0F57

OF54 F2 87 12 0F57 CC 87 lCDB

OF5B CC fl ll.l9

OF5F CC 87 0222

Of63 E010

OF65 CO E7 Of50

OF69 CO 87 DECO

OF~O CO 87 1006

OF71 CO 87 llA9

OF75 31 E4 l27A

OEDF OF64

410 CTORZ MVC

411 fROBYT M~C

412 ZROTC ZAZ

413 DEC.GAN SLC

414

JL

415 TOBYT AZ

416

8

ZRCT0·3121 1 *-·
HX8Yltll,·-· ._*C31,0ECZROtlJ HXBYTC11 9 0NE TIXE
*-*l3l,OECONEC11
DEC.GAN

PUT BYTE IN WORK AREA ZERO THE TO AREA DECREMENT THE HEX BYTE EXIT IF BELOW l
INCREMENT THE DEC. COUNT

417 TIXE B

*-·

RETURfll

418 ·······································································

419 ·

CHECK FOR BUSY ANO DELAY SUBROUTINE

·

420 ·······································································

421 BROUT ST

BSEXIT+3tARR

LOAD RETURN AOOR.

422 SOC

MVC 8USLBC3J,BUSCTI

423 flOOP SLC bUSUB(3),0NE

TRY FOR 1.5 SEC TO CLEAR ANY BUSY

424

JZ

TOLCfllG

425

TiG FLOGP 9 BUSY

426

J

BSEXIT

427 TOLO~G B

HALT

·ERROR - PRINTER BUSY

4213

DC

XL2'E0ll'

BUSY ID.

429

8

SOC

TRY AGAIN

430 BSEX IT B

*-*

RETURN

431
432

·····~·
· X(O ··

····

·

····

····

·

·****

*

**$**

*

*****

*

****

*

*

····

····

·

···*

*

······ ***** XIO

· *

433 ·······

· ······

434 ·

·

"3:) · Ti-ll S ROUTINE ISSUES AND CHECKS At~ EXECUTE I/O COMMAND AS

·

* 436 · SELECTED BY THE MAINLINE PROGRAK. LINKAGE TO THIS SUBROUTINE

437

IS AS fOLlOaS-

· ·

lt3E 43«; 44C

* · *

8

XIO

DC

2.x·Q CODE t CCNTRCL CODE OF CO~MAND'

*
·
*

441 ·

·

444423 ·X·IO·····M··VC·····FR··M·L·E·+·3·(·2)·,A··O·F·C·L·G······P·U·T···IN···l·l·l·~FO·R·M··l·E·N·G·T·H···A·D·O·R·.········

444

A

(HE,ARR

445 446

Sl

LDC~D+5,ARR

A

CNE,AR~

LOAD PARAMETER POINTER

447

ST

44S

Sl

ft4q

Sl

450 LOC~O MVC

451

MVC

452

TBF

EXIT+3,ARR SAVhUN,XRI SAVTUU,XR2
CMNC+ZC21.·-· ~SECS(2),CMND+2 CMNC+l,X'F0 1

SET UP EXIT SAVE REG. 1 SAVE REG.2 SET U? COMMAND FROM PARAMHE~ IF ENTRY IS -OXXX-, GO DELAY

4~3

JT

hT

454

TBN

455

JF

456

HPL

lt57 CSSWOA TBN

458

Jf

SBYTE2.ssw11 CSShOA
x·1e·.x·1c·
SBYTE2tSSW12 TIOCHK

BRANCH IF SSW11 OFF
HALT ON E4 DELAY BET~EEN CMDS.

45~
460 461 ~T 462

s~s MSECS,x·o· SBF MSECS-1,x·Fo·
CLC LPJ(256J,LPI ClC LPJ(60),LPI

READ DATA SWITCHES FOR DELAY
TURN Off HIGH ORDER 4 BITS OF DELAY l MILLISECOND DELAY

463

SLC MSECS,ONE(2)

4f4

BH aT

DO FOR DESIRED NUM OF MILLISECS

4t5

TBF CMND+l,X'F0 1

466

BT XIOEXT

DO NOT EXECUTE COMMAND IF DELAY

461 TIOCHK 110

468

J

469 ERNROY e

It 70

B

411

B

472

OC

473

B

ER~RO~,NROY
TICOK
STE~R
PS TERR
tiAl l Xl2 1 E010'
llOCHK

BRANCH IF NOT READY
BR TO CHiCK STATUS GO PRINT STATUS OR lST ll~ES ·PPINTER NOT READY NOT READY IU.

474 TIOOK B

415

e

476

B

411

LIO

BROUT
STERR PS TERR lPIAORtlPIAR

BR TO CHECK STATUS GO PRINT STATUS OR lST LINES LOAD LSR ADDRESS REGISTER

DATE

310C. H;c;

EC !'<JO. 816529

28NOV69 816542

02MAR70 816631

ll~AV70
816671

OlNOVlO 81676/t

l9NOV7l
818617

15FE875 57225C

PROG ID PAGE

E02-5 4

IBM MAINTENANCE OIAGNos;1c PAOGAA~

E025 5203 LINE PRINTER FU~CTIC~ TESTS

ERR LDC OBJECT CODE

AODR ST"T SOURCE STATEMENT

OF 79 31 H 127C 0F7D 31 EO 0000 OF8l 18 80 020t,i OFB5 F2 90 Oft
OFBB 34 08 Of89
Of8C OC 01 1630 OFBA OF92 38 OS CFB9
OF96 F2 90 11
OF<J9 3C EC 1032 Of<JO 3C E8 1291 OFAl OL 01 OF03 128E OFA7 F2 87 JE OFAA 3C E4 1032 OFAE ~C EO 1291 OFPZ DC 01 OF03 1290 OFB8 F3 00 00 OFBB 0C 01 l4A6 1466 OFCl OD 01 OFBA 1292 OFC7 F2 81 35 OFCA 30 EO 1635 OFCE OD 00 OFBA 0000 Of04 F2 81 28 OFD7 Cl E6 OFFF OFDB 3A 0 l l6l8 OFOF OC 00 llf7 OFFE OfE5 CO 81 HAS
OFE9 CO 87 021A
OFEO 81 OfEE 10 OFEF 1440 OFF l CO 87 021A OH~ 85 OFF6 OA OFF7 14A6
OFF9 CO 81 0222 OFFO EOl6
OFFF 30 02 OAOl 1003 CO 81 lOC:i
1007 oc 02 1620 1210
l 000 oc 01 1055 1288 1013 3C 12 1081 1011 oc 01 11t1tn 1413 1010 Cl E2 104C 1021 OC 01 1055 128A 1027 3C 13 1081 1028 oc 07 1440 1~63 1031 Cl 00 104C l C35 OC 01 1055 128C 1038 3C 14 1081 l 03F OC 07 1440 1468 1045 Cl E6 104C
1049 FZ 87 36
104C Of 02 1620 1267 1052 co 01 0000 1056 CO El lCOB 105A CO el 108A l05E 3A 01 1628
1062 oc 00 l l f 7 1081
1068 CO El llA9 l06C CO 87 021A 1070 81 1011 18 1072 1458 1074 co n 02u
1078 85
lC79 OA
107A l4A6
107C CO 87 0222

OFED OFEE
OFFQ OFFS
OFH
OFFS OFFE
tu 10 1011 1073 1078 1079 1078

41e

LIO

"79 FRMLE LIO

480

TBN

lt81

Jf

lt82

SBN

483 NOTAIT MVC

484

TBN

485

JF

1te6

plVI

ltH

MVI

488

"'vc

48«1

J

490 SKRICA MVI

491

fllVI

492

fllVC

493 CMNO SlO

494

fll\IC

495

CLC

496

JE

491

Sf\S

498 LIC.OSA cu:

-.c;c;

JE

500

TIO

501

SBN

502

fllVC

503

8

SOit

8

505

DC

506

DC

507

DC

508

B

sec;

DC

510

cc

511

DC

512

8

51? fl.OBALT DC

5 ltt I 58USY Cll

515

8E

516

fllVC

511

ftYC

518

MVI

51Cj

MVC

520 BUBY TIO

521

MVt

522

MVI

513

MVC

521t CA61 TICi

525

MVC

526

fllVI

527

MVC

52E Pl BY TIO

52Ci

J

530 BSYLP Slt

531 DELAY Bhl

532

e

533

e

534

SBN

535

MVC

536

8

537

8

53e

cc

53Cj

DC

540

cc

541

8

542

DC

5'93

DC

544

DC

545

8

LPOAOA,LPOi\R ._·,LOFOLG
S8YTE1 · SSW08 NOTRIT CMNO+l,8'1000' ERT 112 I ,CMND·2 CMNO+ltB'l000' SKRICA CABY+ltRICABY SPACEO-l eX' ES' lltOSA·Sl21eSTOAD CMNr
Cl~Y+l,CABUSY
SPACEo-1,x· eo·
LICCSA·Sl2t,STO~l
x·o·,x·o·
fllAP CZ), CHTl l CMN0+2C21 ,SPACEO ISBUSY SlATO,X'EO' CMND+7.C l),*-· ISBUSY JSBUSY.BUSY
TAGS, TAGl
HL TIDU I 1NOBAL T ASTERR PRINT
Xll 181' IL1 1 29 1 AL2CNOBUSYI PRJhT
Xll'85'
11.1·10· AL21,,.API .,ALT
Xl2' £016 1
11Nu,,..x·o2·
lllCEXT
eusue l3 a. auscT
DELAY+3121,AD8UBY 6UALT,X 1 12 1 BU"'SGC81.BUFF BSYLP,PBBUSY OELAY+3C21,AOCA8Y BUALTeX 1 13 1 BUMSGC8) ,CARR BSYLP,·-· OELAY+3C211AOPIBY BUALT,X'l.. 1 6UMSCl8 l.PRlflt BSYLP,BUSY
....CHRDY
eusuec11.tNE
STEAR
SOE HF TAGS.TAGl Hl TIOC lJ,BUALT PS TERR PRINT
Xll '81 1 1L1·21· AL 2 ( BUTOLO I PRllliT
XL1'851
lll'l0'
-l2CMAPI
..All

PAJtT "0· PACE
LOAD FORMS LEtt.c;fH PRINT ON RIGHT CARR. JJMP IF NOT SET MOD.BIT
ThlS CMD.FOR Rl~HT CAR·. S~IP TO SET LEFT CARR. SET TO C"ECK RIGHT CAR~.BUSY SET RIGHT ClRR.SPAtE 0 PUT RIGHT CARR.CTR.IN COMPARE
SET TO CHECK LEFT CARR.&USY SET LEfT tA~R.SPACE 0 PUT LEFT CARR .CTR. IN C :,"PARE C0"4MA .. O LOADED OlJJtlNG E&Etuno.. PUT CHART ~O. IN "SG. DC h01 CHECK fOR BUSY IF THIS WAS
SPACE ~ITH ZERO CONTRC~ CODE C~AB THE Ll~E C1RS. LlhE CTR.S·~E AS CMO.t.~.
PRINTER S~OULD BE BUSY SET lST LINE PRINT ONLY PUT HALT ID IN "SG CO PR I NT STATUS PRlhT NOT BUSY MSG
·IF NOT, HALT ON ERROR f40T BUSY HALT IN ROUTINE 2
PUT lh LOOP AOOR. SE1 BUF~Ek BUSY 10 fl'OVE euFFER MSG
Pill f\T BUFF BUSY
PUT lh LOOP AODR. SET CARR.~ALT ID MOVE CARR.MSG CARR&AGE BUSY PUT 1111 LOOP AOOR. SET PRINTER BUSY HALI I~ MCVE PRIMTER bU~Y MSG PR INTER BUSY
TRY FOR A!OUT s SE,ChOS TO
CLEAR eusv CHECK FOR STATUS ERROR
SET PMINT 1ST LINES OhlT FLAGS PUT ~ALT ID IN MSG GO PAINT STATUS OR lST LINES PRINT BUS.Y MSG
PRINT PRINTER MAP CHART 1110.
BUSY HALT

DATE

3lOCTbc;

EC NO. 8lb529

28N0\'69
8;..6542

02t1AR70 816631

l1'4AY70 816671

01NOV70
Sl6l64

19NOV71
818677

15fEBl5 572250

PROG ID
PAGE

E02-S
4A

···

·

· ·····························

IBM MAINTENANCE DIAGNOSTIC PROGRA~ E025 5203 LINE PRINTER fUNCTIC~ TESTS

PART NO.
PAGE

2589953 5

ERR LOC OBJECT CODE

ADDR STNT SOURCE STATEMENT

1080 EOOO 1082 Cl EO 1080 1086 CO 87 lODB l08A CO 87 11A9 108E 30 00 OA03 1092 f2 81 30 1095 38 02 1639 1099 f2 90 29 l09C CO e7 021 A
l OAO Cl
l CAl OC 10A2 12E5 10A4 EOOC 10A6 OC 01 l'tA6 1484 l OAC CO E1 021A 1080 85 1081 OA
1082 l4A6
1084 co 87 0222
1 OBS EOOC lOBA F2 E7 08 1060 CO 87 lOOB
JllC 1 C0 e1 1 lA 9
10C5 35 01 1006 10C9 35 02 1008 lOCD CO S7 0212 lODl CO S7 0000 1 OD5 0000 1007 0000
1 (109 0000 lOCB 34 08 llA't lODF 30 E3 1639 10f3 38 02 1C28 l0F7 34 01 lODA !OEB C2 01 1350 lOEF 02 01 13 lOF2 70 FF 00 10F5 F2 Sl 9f lOF8 le oo 1103 no lOFD IC 00 1107 01 1102 39 00 1638 1106 39 00 1639 llOA CO 10 lOEF llOE lC 00 llf 1 02 1113 lC OF 1362 12 1118 3A 02 162 8
lllC 30 E6 1638
1120 00 01 1638 127C 1126 f2 82 C<.l 1129 00 01 1638 1280 l 12f F2 Oit V9 1132 OC 04 lltlE llt23 1138 F2 U 62 1138 OF 00 1638 1278 1141 3l) 18 1638 11'95 F2 tl4 27 1148 30 10 1638 ll4C F2 Sit 17 ll'tf 30 OD 1638 1153 F2 02 C1 1156 30 O"'t 1638

1081
lOAO lOAl 10A3 10A5
1080
1081 1083 lose;
lODt:
1008
lODA

546 BUALT DC 547 CHRO~ TIO

XL2 1 E000'
~ROVER.NRCY

548

8

549 SOEHF B

550

Cll

551

JE

552

TBN

553

JF

STERR
PSTERR
ANU~,x·oo·
XJOEXT STAT6 1 B1 10' XIOEXT

BR TO CHECK ERR STATUS GO PRINT STATUS OR !ST LINES lN UNPRTABLE CHAR TEST
YES · GET OUT UNPRT~BLE BIT ON

554

B

PRINT

555

DC

Xll 1 Cl'

PRINT ~NPRTABLE CHAR SKIPPED

556

DC

lll 1 12'

557

DC AL2(0EPPJ

~5

DC

XL2 1 EOOC 1

55q

M\IC MAPf2J,CHT16

560

B

PRINT

561

~C

Xll 1 S5 1

UNPRTABLE C~AR HALT PUT CHART NO.IN MSG. PRINT P~INTER MAP CHART NO.

562

DC

lll'l0'

563

DC AL2(MAPJ

56~

8

~ALT

565

DC

Xl2'EOOC 1

566

J

)IOEXT

·UNPRl~TABLE CHAR SKIPPED BIT ON UNPRTABLE CHAR HALT

567 NROYER B

568

B

56~ XICE)T l

570

l

S71

B

572 EXIT B

573 SAVWUN DC

STERR PS TERR
SAVMUN,X~l
SA"TUU,XR2 TEST
·-· !l2'0'

BR TO CHECK ERR STATUS GO PRINT STATUS O~ lST LINES RESTORE REG.l RESTURE REG.2
GO READ DATA SWITCHES EX IT SUBROUTINE

574 SAVTUU OC

IL2 1 0 1

515 ·········

···******

576 * STERR *****·····****************~*******~******************** STERR *

577 ·········

· ········

518 ·

~

57fi · CHECK FOR STATUS ERROR

·

580 ·

·

5812 ·ST·S·A··J···D·C·····X··l2·'·0·'···t················································

5E3 STERR ST

584

ShS

5S5

SeF

5E6

ST

5E7

LA

588 NOERR LA

STEXIT+3.ARR
STAT6.X 1 E3'
TAGS.TAG6 STSA1 1 XR1 STATAB-19,XRl 19(.XRl).XRl

LOAD RETURN ADDRESS
SENSE THE STATUS BYTES SET ERR INDICATOR OFF SAVE REG. 1
LOAD TABLE AClDR. ADO 19

589

CLI OleXRl>.X'Ff·

590

JE FOAOO

All MASKS CHECKED

5~1

~vc

592

M\IC

593 STECKl iBF

594 STECk2 TeF

595

BT

STECKl+l.O(l,XRlJ
STECK2+1,ltl,XR1J STAT6-l·*-* STAT6,·-·
NOERR

PUT ERR MASK IN E82 BYTE PUT ERR MASK IN EBl BYTE
CHECK E82 BYTE
CHECK EBl BYTE

596

MVC ~LTIC(llt2f1XRl)

PUT HALT CODE !N MSG.

5~7

M\IC IBEP(l6·.1ac.xRll

PUT NAME IN MSG.

5~B

SBN TAGStTAG6

5~~

s~s sTArx,x·E6'

SET ERR INDICATOR O~ GRAB LPDAR

600

CLC STAIXl2J,LPDADR

D.A.R. ADDR. TOO LOW

601

Jl DA BOT

602

CLC STAIX12J,OADENO

O.A.R. AOOR. TOO HIGH

603

JNH SABTR

604 DABCT MVC

605

J

~AN0(5),INVC ~ESTO

PUT INVALID IN MSG.

606 SABTA SLC

607

Cll

6CS

J~

STAJX(lJ,ONTUTR STA1x.xe1e· GOOEC

SUBTR.T~ GET PRINT POS. PRT.POS. 2~ OR LESS

60<.l

Cll STAIX,X 1 10'

610

J~

A0107

611

tll STA1x.x·oo·

612

JAL A0119

613

CLJ STAl.X,X 1 04 1

PRT .POS. 16 GO ADO 107 IF HIGHER
PRT.Pos. 13
GO ADO 119 IF EQVAl OR HIGH PRT.POS. 4

IBM NAINTENANCc DIAGNOSTIC PROGRA~

PUT NO. Z51995J

PAGE

5A

f'.025 5203 LINE PRINTER FUNCTION TESTS

ERR LOC OBJECT CODE

AOOR ST~T SOURCE STATEMENT

l 15A F2 Sit 09 1150 Of 00 1638 1277 1163 F2 E7 OF 1166 OE 00 1638 127& ll6C F2 87 06 ll6F OF 00 1638 1260 1175 3C 00 l63A 1179 OF GO 1638 1268 ll 7F F2 82 OA 1182 OE 00 l63A 1267
1168 co 87 1179
ll BC CO e7 OE6F
1190 l63A
11<>2 14lE ll 91t F2 67 06 1197 OE 01 llA4 1268 1190 35 01 lODA
1 Ul CO E7 0000
l U5 30 El 1639 llA9 lit OS 1261 llAD OC 04 1315 1470 1183 38 OE l63C 1187 F2 4'0 06 llEA OC 04 1315 1478 l lCO CO B1 OE6F l 1C4 1630 l 1C6 1302 llCB OC 00 12F4 1302 llCE OC 10 1327 12F7 1104 38 02 163C 1108 F2 10 06 1108 OC 05 131C 1320 l lE l 38 04 l63C llES F2 90 06 1 lE8 OC OA 132 7 1302 llEE CO 87 021A 11F2 Cl l 1F3 2!> llF't 1327 l lFt EOOO llFe CO E1 02H
llFC 02
llFO 1639 llFF i33E 1201 CO e7 O..?U 1205 81 1206 11 1207 133E 1209 3 8 01 162 8 1200 F2 10 ltA 1210 CO 81 021A 12H 81 1215 2't 1216 1362
1218 39 co 1639
121C F2 90 lC 121F 39 10 1638 1223 F2 90 15 1226 38 Olt 163~ 122A F2 90 OE
1220 co E1 021A
1231 81 1232 10 1233 141E
1235 oc 01 1418 1120

1191 1193
llC5
11C7
11F2
11F3
llFS 11F7 llFC
llFE 1200 1205 l20f 1208
1214 1215 1217
1231 ln2 12 !lit

614

JH AD107

GO ADO 107 IF HIGHER

615 A0119 AlC STA IX(l j .uN IT u~

ADO 119

616

J

DI YID

6H AD107 Al.C STA UC lJ rUNOSVN

ADD 107

618

J

CIVIC

6 l«; GOOE:C SLC
"'"' 620 OIVIC
621 SU BG AN SLC

STAIXU· 1 TWYWU"
sTA I x- 1 ' xI 0 0 ·
STA IXC Ut FOUR

OECRE~ENT 21 PAINT POSITIONS OlVIOE

622

JL

AWOlJN

BY

62~

AlC STAU-U U ,ONE

FOUR

624

8

625 AWOUN 8

SUBGAN
cvo

MAKE ~AM"ER NO.P1llNABlE

626

DC AL2(SUIX-l j

FRO~

627

DC AL2(HANOJ

TO

62e

J

RESTO

67Ci FOADO ALC STEXIT·3(2),FOUR

ADD TO RETURN ADDA.

630 RESTO L

STSAltXRl

RESTORE Rt:C. l

631
6~2

·S·T·E·X·IT··8·····························E·ll·l ·T································

633
634

·.....P.R.I.N.T...ST.A.T.U.S..E.R.R..A.N.O..E.X.E.C.U.T.E..H.A.L.T..S.U.B.R.O..U.T.IN.E......................e.

635 ASTERR s~s STAT6.X'E3 1

GET STATUS

6.3f PS TERR ST

PREXIT·3.ARR

SET RETURN ADDR.

637

MVC NACM0(5).TfEL

PUT LEFT IN MSG.

638

TB" ERT1-1,e·1000 1

WAS CMO.TO RIGHT CARR.

639

JF SKRIG

61tC

"VC NACfll0(5), THGJR

6"1 SKRIG B

CVD

PUT RIGHT IN MSG.
CONiERT CONTROL CODE TO oec.

6~2

DC 4L21ERTU

6'93

cc Al2CCSl<POP)

6'9'9

MVC POPSUOflJtDSKPOP

PUl CC INTO SPACE "SC.ALSO

6'95

M\IC

lACM~Ofl7J,OUSPOP

PUT PRINTtSPACE IN "SG.

6'9t

TSN ERTl-118 1 10 9

THIS A PRINT

647

JT SE IFSK

61t8

MVC

649 ~EIFSK TBPI.

LACMN0-1116J·KNALB ERTl-l 18' 1001

6LA'41( OUT PRINT THI$ A SKIP

650

Jf

GOMOST

651

H\IC

652 GOMOST B

LACM~OCllJ,OSKPOP
PRU'lT

PUT SKIP IN NSG< Pr: INT LAST 0110.ISSUED

f~3

DC

XL 1 'Cl 1

6~4

oc

IL1'37 1

f55

DC Al2CUCMNC)

656 t.l TIO OC

XL2'E000'

E57

8

llNPICk

65f!

oc

ll l '2'

b59

DC

.ll2fSTAT6J

MAKE STATUS PRINAILE FROM

660

DC AL21YBATSI

TO

661

8

PRINT

662

DC Xl1·81'

PRINT STATUS BYTES

66.3

DC IL1'17'

664

DC

Al2CY8ATSJ

665

TeN TAGS,T AC7

666

JT TE SER

lST LIN£ ONLY PRINTED

667

8

PRUiT

PRINT PRICRITY ERR STAT.

668

DC

Xll'81 1

E6fi

DC

lll'l6 1

610

DC Al2C IBEPI

671

TBF STAT6,8'l1000000·

CHAI~ SYNC ' INC~ SYNC Off

672

Jf DOHALT

673

TBF STAT6-1,e·10000·

lhCR.FAILURE CHK. OFF

674

JF OOH.ALT

675

TBh STAT6-ltB·lOO·

676

Jf DOHALT

677

B

PRJhT

61B

oc XL1·81'

PAINT HAfttlER NO.

6H

UC

lll 1 1.6'

6C

oc Al2(HANOJ

681

MVC HA~~oc 2) .KNAL 8

8lAkK OUT ·J·, ·~·JUST IN CASE

DATE 310CU9
ec NO. 81652'9

28N0"69 8l651t2

11MAY70
816671

01NCtJ70
81676'9

l9NOV71 818677

lSFEB 75 572250

PROG IO PACE

E02-5 5

DATE 310CT6Cj EC NO. 816529

28NuV69 816542

02MARlO 816631

l 1MAY70 816671

01NOV70
81676~

19W'V7l 818677

15fE87S
572250

PROG ID PAGE

E02-5 SA

·

r

I BM MAINTENANCE DIAGNOSTIC PROGRAM E025 5203 LINE PRINTER fUhCTICI\ TESTS

PART NO. 2589953

PAGE

6

IBM ~AINTENANCE DIAGNOSTIC PRO~RA~ E025 5203 LINE PAINTER FUNCTION TESTS

PAPT N:l. PAGE

.,2569953

ERR LOC OBJECT CODE

AODR STMT SOURCE STATEMENT

ERR LOC OBJECT CODE

ADOR ST,.1 SOURCE STATEMENT

1238 oc 01 litA6 lit BO

1241 co 87 021A

1245 Bl

1246 OA

1247 14A6

1249 co 87 02lA

1240 15

l24E 1254

oc
cc

01
e1

1259 0222

11F7

1258 EOOO

125A 3B 01 1628
125E cc l!1 0000

l21t5 l21t6 l24E
1240
izsc;

1262 0000 1264 DBFF 1266 0001 1268 0002 1261:.. 0004 l26C 0015 l26E Cl8BOO 1271 040000 1274 1070 1276 OB 1217 17 127 8 78 1219 0800 !27B 087( 1270 FFFF 127F OBFF 1281 1C20 1283 FO 12£14 Fl 12e5 1275 1287 1010 1289 1031 1288 1045 12SD 1635 128F 1634 1291 EOOO
1293 0100 1295 OC7F 1291 0401 i2q9 0804 1298 FF
129C 0000 l29E 0000 12AO 0000 12A2 0000 12A4 C5FO 12A6 C5Fl 12A8 C5F2 12AA C5F3

1263 1265
1267 1269 l26B 126[)
1270
1273 1215
1276 1271
1278 121.& 127C
127E 1280 1282
1283
1284 1286
1268 128A 128(
12dE 12qo
1292
1293 1294 1296
1211Je 129A 1298
l29C 129C: l29F
12Al 12A3 12A5 12Al
12A9 12AB

12AC E2C505E2C540C30't 12C3

1284 C4E240Cl05ClD3E8

12BC E2C9E240F.3C5E2E3

12C4 E2C 50 5E2!: 5-4 OE 3C 9 1204J

12CC 04CCf05C 140C2C9E3

1204 E240E3C5EZE3

12DA 40E407CJ

12DD

682 DCHALT fi'VC

683

8

684

DC

665

DC

6h

DC

687

B

6ES

oc

689

M'IC

bc;Q

8

691 PUID lt<i Ot

692 TE SER Sl!F

693 PREX IT B

691t

fllAPt21,CHT11 PRINT )(Ll 1 81' 1u·10· Al2(MAP) PRINT XL1 1 l5 1 PUIOINC2) ,HlTID HALT
·-·xt2·eooo·
TAGS, TAG7

PUT CHART NO.' ,IN MSG. PRINT PRINTER MAP CHART NO.
SPACE 5 PUT ID INTCl HALT ·STATUS ERROR HALlS RESET lST LINE ONLY FLAG RETURN

695
696
6Cfl ,c; e

········C·C·N··ST·A·N·T·S~·*******$········~······································ Z·E·R·O· · · ·o·c· · · · · ·1·t ·2···o··· · · · · · · · · · · · · · · · · * · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

6,'i EFFS DC

XL2 1 CBfF 1

7CO CNE

DC

Xl2 1 0001 1

701 lliO

DC

Xl2'0002'

7C2 FOUR DC

IL2'4'

703 TWYWUN DC

IL2'2l8

704 BUSCT 0\:.

Xl3'018800 1

705 EIUSCT 1 DC

XL3 1 40000 1

7C6 FOLG DC 707 lJNOSVN DC

Xl297070' Ill9107·

FORM LENGTH 112

7() E Ul\IT 1N DC

lll'll9·

1cc; CNTlJTR DC

Ill'l23 1

710 lPUO~ IJC 711 LPDADR DC 712 SfFE DC

Xl2'800 1 xL2·e1cc
XL2 1 FFFF'

IMAGE ADDRESS DATA ADDRESS

713 OAOEt\O DC

Xl2'8fF 1

714 UN SEC DC

J.L2'7200 1

115 CECZFIO cc OLl·O·

1lt CECC~E oc

Cll' 11

111 AOFOLG DC

Al2CFOLGJ

l l f ~OBUBY DC

~L2tBUBY)

71S AOCABY DC

AL2 lCA8Y)

720 jOPIBY oc AL2CP18Y)

721 STOAC DC 122 ~TOMl uC 123 SPACEO DC 124 EXPTAB EQt.1

Al2(STATO) AL2( STAT0-1)
·Xl2'E000 1

RIGHT CARR.CTR.ACOR. LEFT CARR.CTR.ACOR< SPACE 0

725 EXPDO DC

726

OC

727

DC

728 EXP03 DC

729

DC

l3Cl SENT AB EQU

731 SENSO DC

XL2 1 0100 1 XL2·0C7F· XL2 1 0401 1
XL2'0804'
·Xll'FF·
Xl2'0'

LEFT&RIGHT CARR.LOC.EXPO. INCRMENT&CHAIN CHAR.CTR.EXP. TIMlf\G EXPO. STATUS EXPO.
L/R CARR. LINE lOC.

132 SENSl DC

113 SENS2 DC

734 SENS3 DC.

735

DC

Xl2 1 0 1
>tL2 ·o·
Xl2 1 0 1 CL2·eo·

INCREM.&CHAIN CHAR.CTR. TIMlt.IG
STATUS

136

DC CL2'El'

131

DC CL2'E2'

738

DC Cl2'E3'

139

740 7'·1 142 l't3

··T···lT··L···E···l ··DP··CR··I··N··T··O··UC··Tl··S2··4··'··S··E··N··~··E····C··M··O··S····A····N··A··L··Y··S··IS····T··E··S·~T··············································~··············*

74'3

74~

l't4 TITL2 DC 744

Cl22'SEl'\SE TIMING BITS TEST·

74.fa

145

DC

CUt· UPC·

12DE 'tOE202C901D7C5Clt 12E5

l2E6 f.tl0709C905E3SD 12EC

l2EC E2D7ClC3C540

l2F2

12F3 4040

12F4

l2F5 lt04040

12Fl

12F8 E102cc;DH0E3o6 12FE

12FF -40404040

1302

1303 03ClE2E340CJDbD4 1310

1308 C4ClC5C't6060

1311 03C5CH340

1315

1316 40050605C5404040 1327

l31E 4C40404040404040

1326 4C4C

132 8 40401tC'tC4040

132D

l32E E2E3ClE3E4EZ40'2 133A

1336 ESE3C5E2'tC

13313 40404040

:HE

l33F D709CqD6DCJtqE3E8 1352

1347 40C509D940C2C9E3

134F 40C4'iEZ40

1353 404 o.:. 04 04 04 04040 1362
USB ~0404040404040'90

1363 00800/c

1363 1365

1366 C3C8ClC~0540E2E8 1315

136E: 05C340C3C8DZ4B4C

1376 004005

1378

1379 CS05C30~40E2E8D5 1388

1381 C361E2t3C9074040

1389 100006

1188

l38C C905C3Ci940C6C 1C9 1398 13q4 03E409C540C3C802

139( 040009

l39E

139F CBC lC4C'eC 5D940C5 13AE

13H C3CSrtltOC3CB0248

13AF 0200CA

1381

1382 ClD5E840C8.:l0404 llCl

13BA 094006u540C3C802

l 3C2 0020Cl7

13Clt

l.3CS CBD4094BE3CBCSDCi 1304

l3CC U4Cl0340C3C8021tB

1305 SOCOOl

1301

13na C3ClD~0948E2E805 13E1

l3EO C31tOC3C802484040

13E8 4000Cl2

UEA

13E8 C3Cl09094BE207Cl lJFA

13F3 C3C5itGC3C 802't840

13FB 2000C3

UFC

l3FE C6Db0904E24001Cl lit OD

1406 0,.40C3C 802484040

140E FF

l'tOE

l40F C8ClC4t4C5094005 1418

1417 064840'904 0

l"ilC 404040

lit lE

l41F C905E50lC4

1423

1424 F5F 2FCF 3400506E 3 1431

llt2C 40C2E4E2E840

1432 C1CH3C50940E2Cc; 14lt0

143A 0640ClC307E3C4

l41tl F5F2FOF340

llt .. 5

1446 4040't04040404040 1440

144E 40C2E4E2E8'tOE3Db l't5e

1456 0640C30605C7

145( C3ClDS09C9ClC7C5 llt&3

1464 07C9CCJ05E3<.'>0940 lit bf:!

l't6C 40C2E4CbC6C~D940 1413

1474 D9C9C 7C8E3

14U

1479 03C5C6E31t0

l't 70

146 DEPP DC

Hl

DC

He

DC

lltt; POPSt.10 oc

750 CUSPCP oc

751

DC

752 OSK PCP DC

753

DC

753

7~4 NACMC DC
15'5 lACMt.O cc

755

155

756 l<NALB DC

157

DC

151

75f YB.US oc

15c;

DC

15~

15"1

160 JBEP DC

760

761 STATAB EQU

162

DC.

163

DC

763

164

DC

765

DC

765

766

DC

161

oc

76l

76e

DC

76-;

DC

76c;

170

DC

171

DC

171

172

oc

173

DC

113

ll'i

DC

175

DC.

115

111-

DC

111

oc

171

ne

DC

179

oc

119

18C

DC

lU HAMNC DC

781

7e2 t4ANC DC

1£3 !NYC DC

l8't

DC

181t

785 l\OBUSY l'C

785

let

DC

727 BU~SG DC

7e BUT CLO DC
ne

18<; CARR DC

790 PR It\ oc

7Cill BUFF cc
oc 192 T~GIR

7'73 lFEL DC

CL8 1 SKIPPED' Cl'1 1 /PRINT£· CL6 1 SPACE · CL2' CL3' CL7 1 SKIP T0 1 CL i t ' CLllt'LAST COMMAND-- 1
CL5 1 LEFT I Cll8 1 NCNE
cu·
Cll 31 STATUS BYTES I
CL4 1 CL20 1 PRJORITY ERR BIT IS ·

CLU'

·

XL3 1 008001t'

CHAIN SYNC CHK.,HALT 04

Cll6'CHAlt. SYNC Ct«· '

XL l '004005'

lNCR sn.c CR SLIP C..K.,HAlT 05

Cll6 1 INCR SYNC/SLIP

Xll 1 1000061

htCR FAILURE CHK. eHAL T O&

Cll6·1NCR FAILURE CHK'

XL3'0400Q.;·

H!4R ECHO CHK.,HALT 09

Cll6·HAMMER ECHO CHK.·

Xl3 1 02000A'

ANY H~R ON CHK. 1 HALT OA

Cll6 1 ~NY HAM~R C~ CHK'

XL3 1 002007 1

HMR.UNIT THERMAL CHK.HALT 01

CL16'H~R.THERMAL CHK.·

XLJ 1 800001'

CARR.SYNC Ct« ·· HALT 01

CLl6 1 tAAR.SYNC CHK.

XL JI lt00002 I

CARR.SPACE CHK.,HALT 02

CL16 1 CA~R.SPACE CHK. 1

XL3'200003' Cll6 1 FCRMS JAM CHK.

FORMS JAM CHKe.~ALT 03

llll'FF 1 CL 13·HAIOCER NO.

tl3' CL5'1NVL0' CL14·5203 NOT BUSY 1

CL15·AFTER SIO ACPTD 1

CL5'5203 ' CL8' Cll't' BUSY TCO LCNG·

CL8·Cl!RRUGE'
· Cl8 1 PRINTER
CL 8' l'~!ffER. I Cl5 1-fHGHT 1
CL5 1 LEFT ·

DATE 3lOCT69 EC NO. 8lc529

28NOV69
8165~2

02fl'Afil70 816631

l1HAY70 816611

01NCV70 816764

19NOV71
818677

15FE875 572250

PROG IO
PAGE

E02-5
6

DATE

31CCT6°

EC NO. 81652'»

28NOV69
81~542

02fr'AR70
8U1fi31

Ul'AY70 816611

OlNOVlO 816764

l9NOV71 818611

1SFE875
S722SO

PROG 10 PAGE

E02-S
61

., ·-__:&:_:. ·-- "'--···'~----·-···--··-·--.·-·--···~·-··-----· .- .-· . ., . .--~ . . ,~- -·.·..,,- · · ·-

·- . r

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

IBM MAINTENANCE DIAGNOSTIC PROGaA~ E025 5203 Ll~E PRINTER FU~CTICN TESTS

PART NO. PAGE

ERR lGC OBJECT CODE

AODR STMl SOURCE STATEMENT

l47E 04Cl02C540f5F2FO

1486 F3

1~87 40D9C5ClC4E8

llt8C

1480 68E3CBC50~4009C5 llt9C

1~95 E2C5E340C8Cl03E3

1490 D7E30~4BC3CBE34B 14Af: 105 4040

l4A7 40C5CSE3D~E840F4 l4AE

HAF flf l

lltBQ

14Bl Flfl

1482

HB3 FlF6 1485 FlFl

1494
lltB6

1487 Dl0407D~40Cl60C2 1402

l4Bf FlC5f5C4flF04CE3

14C7 064CC160C2FlC4F2

14CF E2FOF56B

1403 E3C8C5054009C5E2 l,.FS

1408 E30609C540C3ClD~

l4E3 09CSC1C7C540E25D

14EB 6807C9C5E2E240C3

14F3 C602'e0

l 4F 6 09C 5E2C 5E36840C l 150A

l4FE 05C440C9C5E2C5E3

1506 40CEC103E3

1508 (1030340

150E

150F E2C5D5~2C5~0C304 15 lf

1517 C4E240C6ClC903C5

15lf C4

1520 6BC2E4E340D60503 1520

1528 E8404CCStiE7

152E 40C2EBE3C5E240Cl 153E 1536 09C540C90540C5D~

153E D9

l53F E2C5C5E2C540C3D6

1547 C4C54G

154A E7E7

15't8

l54C 40C9C540C5D909 1552 1~53 40C3060404Cl05C4 1564 1558 4C4040C3D6C4C560

1563 E7E7

1565 40404040C306C4C5 156F 1560 60E7E7

1570 404040C2E8E3C5E2 1588

157S 4C4040404040C5C2

1580 F260C5C2Fl40404C

1588 40

1589 C5C2F260CSC2Fl 158F 1590 404040C5E7D7C5C3 15AC 1598 DC5C440'404040El

l5AO E7

15Al 't0E7E7

15A3

l~A4 40404040lt040E7El 15AS

15AC 40E7E7

15AE

lSAF 401t0'e040C1C3E3E4 15CO

1587 Clcf:i40404040401t0

15BF E7E7

15Cl 40E7E7

15C3

l 5C4 404040404040E 7E7 15CB

l 5CC ltOE 7E 1

15CE

15CF E2C505E2C540C30't 15E9

1507 C'tE24006026809C5

15Df D't06E5C54001E41>4

15£7 DlC509

15EA f.2C505E2CS4ot306 1602 15F2 C4C540CSF261E4f2

15 FA C9D5C 7404Glt'04040

1602 40

1603 40C3Cl090948

l&Oe

794

DC

7494

195

DC

7CJ6 RESALT OC

796
797 fo!AP DC

797

7~8 ENT

DC

799 CHTll OC

8Cl0 CHTl 3 DC

801 CHTl6 DC

802 CHTl 7 DC

803

DC

803

803

803

S04

DC

SOit

804

804

804

805 RELORC OC

805

805

806

DC

807 Al SCF DC

807

807
eoe WCHEB DC

808

8C9 CNLBYT DC

8fj';

SC~

810

DC

810

811 EDCC DC 812 SCOIE DC

813 LFTCCO OC

813

81:!

81" RYTCCO DC

8 lit

815

DC

815

815

815

816 BTES CC

817 LEXE82 DC

817

@11

SU lEXEBl DC 819 REXEB2 DC

820 REXE!l DC

821 lACEB2 DC

821

821
822 UCE81 o.:
823 RACEf2 DC

824 RACEBl DC 825 OKSO OC

825

825

125 826 LRC·A DC

826

826

826

227 SENCO OC

Cl9 1 MAKE 5203 1
Cl6' READY' Cll6 1 1THEN RESET HALT'
CllO'PTR.CHl.
Cl8' ENTRY 4 1 Cl2' ll' CL2'13 1 CL2'16' Cl2' 11' Cl28'JMPR A-BlE5ClO TO A-BlD2S05, 1
Cl35'THE~ RESTORE CARRIAGECSl,PRESS CH~ ·

Cl21 1 RESET, AND RE~cT HALT'

CL4'ALL ' Cll7'SENSE CMOS FAILED·

Clllt',BUT O~LY EBX 1 CL17 1 BYTES ARE IN ERR'

CLll'SENSE CODE '

Cl2'XX' Cl 7 1 lN ERR· CL18' C0114MAND

cooe-xx·

Clll'
CL25 1

cooe-xx·

BYTES

E82-E81

Cl7 1 E82-EB1'
Cll7' EXPECTED xx·

Cl3' xx·

CL8'

xx·

Cl3' xx·

Cll8' ACTUAL

xx·

CL3' xx·

cta·

xx·

CL3' xx·

CL27'SENSE CMOS OK,REMOVE JUMPER·

CL25'SENSE CODE E2 1 USING

Cl6 1 CARA.·

2589953 7

IBM MAINTENA~CE DIAGNOSTIC P~OG~·M E02~ 5203 LINE PRINTER F~NCTIOk TESTS

PART NO. 2H995J

PAGE

1A

ERR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

1609 C2C9E3401t0

1600

l60E ltOD6C640C5C240 161~

1615 't0C9E240CbClC903 161F

l61C C905C7

l62C 1620 F7F6F5fltf3F2flFO 1627

1628 00 1629 00
l62A 00 1628 oooooc
l62f 0000 1630 FFFF 1632 FFFF
163.\ 1636 1638 l63A
16~~
163E

1628
162~
l62A 1620 lta2f
1631 1633 1635
1637
163'-; 16 31!
1630
l63F

0008 OOCl OJOZ 0800 087C
08 7E OOEC OOElt OOE6
0212 02 lt: 02U 021E 0222 OOEC OOE6
ODEie
OOEC OOE2
OO'tC
0020
0010
0008 C002 0001
0208 02C9 0201
0004 0080
OOltO
0020 COlO

82E BADB IT DC

829 Cf BYTE DC

830 FAILED DC

830

831 TABB IT ecu

832

oc

CL5 1 BIT CL7 1 OF EB ·
Clll' IS FAILING·
·
CL 8 1 7654.)210 1

833

8833~5 ·*·······R·E·SE·R·V·E·D···S·TO··RA··G·E······················*········..················

83t ·························e··················~··························

837 TAGS DC XL1·0 1

INDICATORS

S3E EBlERC DC XLl·o·

EBl EAAORS

839 84C

eEuBZsuERe C

oDCc

JCLl·o· XL3'0'

E82 ERRORS

841 BTSC~ DC XL2'0'

BITS CN SAVE AREA

842 BTSOFF DC S43 CMPL~T DC

XL2 1 fFFF· Xl2 1 FFFF 1

BITS OFF SAVE AREA

S44 STATC OS CL2

845 STAT2 OS CL2

846 STAT6 OS CL2

Elt1 STAil OS Cl2

e48 ERTl OS Cl2

S49 ~SECS OS Cl2 850

DELAY TIME AREA

851 ·······································································

852 ·

EQUATES

·

8~3 ·······································································

854 ARR EQU x·a·

ADDRESS RECAll REGISTER

S55 )IH

EOU X'l'

It.DEX REGISTER 1

856 XA.2 EQU 857 LPI EQU 852 LPO EQU 859 ~CSFLG E'U

X1 2 1
x·eoo·
X1 87C 1 X1 878 1

I NCEX RCG fSTER 2 LINE PRINT~~ IMAGE AREA ll~E PRINTER CATA AREA

f60 lOFCtG f(U X'EO'

861 LPIAR EQU X'E4 1

862 LPOAR ECU X1 E6'

863 TEST EQU
8t4 LINK E'U 8~5 PRINT E~U 866 UNPACK EQU 867 kAlT EQU 86e ~ROY E~U

X·212 1 X1 216 1 X1 21A 1 x·21e· X1 222· ··eo·

EhTRY TO OCP AE·D CATA sw·s ROUT.
ENTRY TO DCP CHAIN ROUTINE ENTP.Y Tll DCP PRINT ROUTINE E~TRY TO CCP UHPACK TO EBCDIC RTN
ENTRY TO OCP ERROR HALT ROUTINE

869 BUSY EQU x·E61

e7o C&BUSY ECU X1 E4'

871 RICAQY EQU x·ec·

812 PBBUSY EQU x·e2·

873 · INDICATOR FLAGS.

874 TAGl 875 TAG2

EQU EQU

xx··z..oo··

876 TAGJ EQU X1 101
811 TAG4 ECU x·os·

878 TAG6 ECU 1·02 1
el~ TAGl ECU x·ot·

PRIMTEa BUSY LEFT tARR.8US'I
RIGHT CARR. 8USY 8UFfEA BUSI'
CNE OR "ORE SENSE (NOS coa·ECl SEhSf TIMING Bil ERa ,.CRE THAN l SENSE CODE IN tM

88C · SENSE SNITCH EQUATES.

8SI SBY1£0 EQU X1 208 1
es2 SBYTfl EQU x·209·

883 SBYlE? EQU x·20A 1

88'9 · CCNTAOL PGM SENSE SWITCHES.
ee5 sswos EQu x·c~· 8e6 sswoe eou x·so·

8eEse1

·ss~11SECeTcICuN

SENSE SWITCHES. 1·40·

889 ssw12 eau x·20·

890 SS·l3 ECU x·10·

DCP SE~SE S~ltCH AREA CCP SENSE SMllCH AREA SECTIQh StNSE SWITCH ARE&
PR INT fllESSAGES DH ..f(.U
use s2oi a1'*1t CARR.
HALT BETWEEN CCMMl~DS DELAY 8ET~ffN CMOS. SECO~CAf:IY t-llL T DPT IOH

OA TE 310C T6fiJ
EC Nil. 816529

28NOV69 816542

UMAY70 816671

01NOV70
816 764

l9NOV71 818617

15ff875 572250

PROG JD
PAGE

EOZ-5
7

DATE

310CTU

EC HO. 816529

28N0~69
8!651e2

02,.ARlO 81663l

llfllAY10 8166f l

Ol~CV10
816164

l9HOV7l 818677

lSFE8lS 572250

PROG ID PAGE

£02-5 7A

IBM MAINTENANCE DIAGNOSTIC PAOGRA~ E025 5203 LINE PRINTER FU~CTJCN TESTS

PART NO. PAGE

2589953 8

ERR LOC OBJECT CODE

ADOR ST~T SOURCE STATEMENT

FFFF

892 893

894 ·

COM~ENT CARDS

895 896

· ·

· R· ·O·L·T·.·l

·-·

SSEENCTSEIONCMEOS02

···········****·······················~·4······
ANALYSIS TEST

6~7 · ROlT.2 - SENSE TIMING BIT TEST

86«~;89 ···N·O··T·ES··-······················································~········

* 900 · l.SET SSW-05 BEFORE RU~Nl~G T~IS TEST.
901 2.SET SSW-13 IF NO ALTERNATE PRINTER.
* 902 3.SEl C.E.SWITCH TO CVERRIDE IDLE CCNTROL BEFORE RUNNING THIS TEST.

903 ·······································································

904

TREP

990065 ········TR·E·P SECTICh E02 ·······***********·******************···········

907 · RO~T.l - SENSE CMOS ANALYSIS TEST.

908

TREP

9Qq · RO~T.2 - SENSE TIMING BIT TEST

'HO

TREP

911 ·······································································

912

TREP

913 · 914 915 · 916
917 · 918

NOTES -
TREP l.SET SSW-05 BEFORE ~UNNING THIS TEST.
TREP 2.SET ssw-3.4,13 IF NC ALTERN~TE PRINTER.
TREP

9lq * 3.SET C.E.SWITCH TD OVERRIDE IDLE CONTROL BEFORE RUNNING THIS TEST.

920

f REP

921 ······································································

922

ENO

DATE 310CT69
EC NO. 8lo!i29

28NOV69 816542

02~AR10
816631

llftAY70 816671

01NCV70 816764

19NOV11 818617

15FE875 57225()

PROG IO .-AGE

E02-5
8

IBM MAINTENANCE DIAGNOSTIC P~OGAA'
E025 5203 LINE PRINTER FUNCTION TESTS

PART NO. PAGt:

SVHBOl T LEN VAlUE DEFN

jQBUBY A 002 ADC ABY A 002
AOFOLC A 002
ADP I BY A 002 A0107 A 006
AOl19 A DOC> ALB AC A 004 ALC:OP A 003 ALSCf A 011 ANBAO A 004
ANEBl A 004 ANEB2 A 004 ANERR. A 004 ANYGUC A 004
ARR c 001

1288 128A
1286 128(
1166
1150 OAAA 0Bf8 151F
OAFC
ooze
0030 GAE2
0813 00il8

0118 0719 01!7 0120 0611 0615 0080 0202 0807 0109 0303 030/e 0103
0115 !>85'9

AS TERP A 004 AVID A 004 AW OUN A 004
840~ IT A 005
BAPRT A 004 BIBAO A 005 BOT ALT A 002 BROUT A 004 BSEX IT A 004 BSYLP A OOb BTES A 007
BT SO FF A 002 BTSCN A 002 BUAL T A 002 BUSY A 004 BUFF A 008 BUHS( A 006 BUNALT A 002 BUSCT A 003 BUS' Tl A 003 8USUB A 003
BUSY c 001
BUTOLC A Ollt
CA8USV c 001
t;.ABY A 004
CARI< A 008
CHOFF A 004
CHROY A 004 CHTll A 002 CHT13 A 002
CHT16 A 002 CHT17 A 002 CLHK A 004
CHND A 003
CMPLNT A 002
cocoo A 004
CSSWllA A 004 CVD A 004
OABOT A 006
CADE NC A 002
CECGAN A 006 DECO NE A 001 DECZRCJ A 001
DELO A 004 DEPP A 008 CIVIO A 004 OOEBl A 004
OOfNSE A t.C4
OOHALT A 006
DORP A 006

11A5 OC49
ll8t 1600
OCC6
oou
OE40 OECO OEE'e lO'tC 158f 1631 lb2f 1081 1010 14 73
l'tltO
OE30
ll-:O 1273 lb20
OCE6
llt58 OOE4 1031 llt6) CD90 1082 1480 1482
1't81t llt86
OE6A
OF88
1633 0066
OF23
OEoF 1132 1280
OEA9 1284 1283 1052
12E5
1175 0056 OA4A
123B
OElB

0635 0229 0625 0828 0275 0341 0388 0'921 043C 0530 0816 CB42 0841 0546 0520 07'i1 0787 0381 0704 0705 0840 0869 0788 0870 0524
078~
03)1 0541 0799 0800
08Cl 0802 0396
049~
0843
0320 0457 0401 0601t 0713 0413 0716 0715 0531 0746
0620 0316 OOS3 0682 0317

CRCSS-REfEAENCE

~EFERE~CES

Ull

0521 0441

0525

0610 0614

C612

0073

0185

C090

0101

C30lt

()302·

006.fi

Cll2

0401· Olt02 0403* 0404 0405 0406· 0407 0583 0636

0503

0225

0622

034'1·

0273

0323

0383· 038'\·

0474

Clt2 l· 0426

0520 0524 0528 Cl93

C291· 0303· 0304·

0291· 0298· 0313

0518· 0522· 0526· 0535

0718

05U

0519· 0523· 0527·

C316· 0!77·

C516

01t2 2

0422· 0423· 0516· 0530· 0425 0~00 0528
C5\0

0490

c1t&6· c~·o· 0119 0523

0327

0529

C682

0201t 0358
()559

0491t

0390 0392

C450· C451 C452
C299· 0300* 0301 0315· 0329· C455

0.\65 0302

0482· 0483

0.\84

C625 0641

0601

C602

0"16

0318 0385 0415

0412

C517· 0521· 052S0557

06H 0618

0330

COltl

0672 0614 0476

()379

0421 0.\89

0495

~··

DATE 310CT69 EC NO. el6529

28NOV69 816542

02MAR10 816631

1U~AY70
816671

01NOV70 816764

19N0Vll 818671

15FE875
572250

PAOG ID
PAGE

E02-5 IA

· · · · · · · · · · · · · · · · · · · · · · · · · · -·-----.------·----·--. ---· -·

18K MAINTfNA~tE DIAGNOSTIC PROGRAP E025 5Z03 LINE PRINTER fUNCTIOh TESTS

. . ~JI.RT ~.c
PAGE

l'S89951 9

CiYMBOL T lEl\i VALUE OHh

OSK PCP A 004

"' OUSPOP 003
E8LERC A 001

EBZER.C A 001

EDiJC A 002

EFFS ENT

A 002 A 006

ERNROY A 004

Ei<Tl A 002

EXIT A 004

EXPDO A 002

EXP03 A 002
EXPTAe A 001

fA IL fO A 011

fl CO Ft A 006

,, FOAOO A OC6

FOLG

002

FOUR A 002

FRMLE A 004

FROS YT A 006

fROM A 006 GOD EC A 006

G01"!0ST A 004

GORGAN A OO't
liAl T c 001

1302 1ZF7 16.29 H2A l51e8 1265 l'tAE Of57 1630 100! 129't
129.A
1293 l61F CECA 1197 1215 1208 Ofl'[J
0E9D
OEBB
llbF llEE OA88
0222

0752 0150 083B 0839 CSU
i16~Cj
07-f 8
0469 G8#tS 0572 0725 0728 0724 0830 Olt23 0629 0706 Ol02 O't79
0411 Ol.08 0619 0652 0068 0867

HAMN( A 01~

HANO A 003

HLTID A 002

HXSVT A CCI

IBEP A 016

,. IDAL T A 002

INVC

005

ISBUSY A 004

JAlT A 003

JIJSUN A OO't

Kll.:Al.8 A 006

l<ORP A 002

UCEBl A 003

lACEB2 A Ole

LACM~O A 018

LACl A 002
LAC2 A 002

lDC~D A 006

lEAVIT A 004

LEXEtil A 003

LEXEB2 A Ol7

lEXl A 002

lEX2 A OC2

LFTCOO A 018

llCDSA A 006

LINK c 001

lOFOLG c ~01

lPO

c OOl

l PO AOR A C02
LPDAJ; c 001

LPI

( 001

LPIAOR A 002
lPIAF c 001

lRC. Af< A 025

MAP

A 010

MARCS A 004

MSECS A 002 MUBEUN A 004

MUS BTU A 006

NACHO A 005

lit 18 141 E llF7
OEbE 1362
OClA
1423 OFFF
OCD7
OC3CJ 1320
OC9C
l5C3 15CO 132 7
0896 0885 OF06
OCAO 1543 15AO 0652 0841 1564
occe
0216 OOEO 087C· l27t OOE6
0800 l27A OOE4 1602 l4A6
OA38 l63F
OC70
OAF6
1315

0161 0782 0656 0400 Ol6C 0214
0783 0514
0282 0224 0756 0252
0822
0821
0755 0162 0156 0450 0260 0818
oan
0138 0132 0813
0498 OE64 0860 0058 0111 0862 0857 0710 0861 0826 0797
0046 0849 0244 0108 0151t

CACSS-IEfERf"'te PEFEREP.tES

C64? 064.ifr 0651 06itS:

t08l t:U05· OZ<tC COtd.· 00&~6 OOBit
:114· 02.?'t OUCJ 0291

02itl 01(8'11 OZ.H 0235

0245

0L08 0362

Co\61

C019 03415· C347· 0369 0376· 0385* 0481· 0638 \J6'&2 O'tit 7·

C04U

C045· 0059 0125 C356

C425

0590

Cll 7

0621 Of:29 0443·

C4013·

0402·

C608

Cb50

01!5

02!.3 0221
0545 0564 C68l·

0226 069C

0231

0251

0365

0373

0380

0387

0604· 0627 Of!.80 DSC?· 0535· 0596· 0689 041!· 0413·
C597· 061()

CC86· Ot93· 0116* 0217 060lt

0496 0499 OSOCJ 0276
czzo

C6it8 0681 C23itit 023'9· 0242· 02t,4e 02't 7· 0250$ 0163 0151

06't5· 06~.s· G65l· 0655 Cl59·
Cl53·

Oit45·

0216

0139

0133

Cl35t

c12~·

~127·

C48S· 0492· 0260 0396

0479·

0288·

Olt7S 0600

0'97E!·

O't6l 0~61 0"62 0462 0471

Olt11·

0272· 039'4·

020.te· 0358· Cit91t· 0511 COitlt

0544

0559· 0563

0682· 0686

C292· 03(]5· Olt51· Oit59· ()"60· 0~63· 0236

CllO" Cl6.!l· 06410·

06~6
Oo\21

Ob't9 0411

0512

DATE

310CT6(jj

Ft NO. 816529

281110V69 816542

02,,.AP.lC 816631

llfl'AY 70
816671

OlNOV70 81676'*

19~0\171
818617

15fE875 5'72250

PROG ID
PAGE

E02-5
9

UPI MliKfENll..tE DIAGNOSTIC PROGU!Ji

~ EOZ5

5203 ll~E PRl~lER FU~tTICh lfSIS

~ SYMStl T Ut. VAlUE

CEFfii

tROSS-RHEREHCE PEFOEtsCfS

NH NOC A OC6

i\OSAlf A 002

NOBET A 003 N:iBUSY A 015

N;o':RR A 003

NOUH A 006
MU>Y c 001
!\ROYER A oo..

OF8YTE A 007

CK.SE" A 021

ONE

A 002

ONtlllli A on

ONTUTP A 001

ORES! A OO<t

OREB2 A 00.C,
,. OTIJR l A 006
OUT LOG OOlt

PSB;JSY t 001
PIBY A oo ...

POPSUO A 002

~ORK

A CC_.

PREXIT A COit

" P~ IN

008

PRINT c 001

0013
OFH
OEOS
1~10
lOEf
Of 8C OOEO 10BC
16lft 15E9 1261
153E 121! ODCC 0010 CE91 08.?5 OOE2 104'5 12F"r OC91 12SE
1it68 02U

032-. 0513 0311 0185
osu
0-.Sl 0068
0~61 082Cj
0825 0100
0809 07C'P 0291 0298
ouc
0125 0812 0528 011t<; 0251 069) 01'90 08b5

PROO A 006

PR4l I A OC4

PS TERR A OO't

Ptl Tl A 004

PU iD ! !\ I. 002

RACE Cl A 003

~ACE82 A ()08

UCl QACl

A 002
A coz

RHO~C A 021

RfSALT ;. Olo

1o1E s, TG A 00,.

r(fXE !' l A 003

REXE f2 A 006

14.EXl &. <!02

SlcXl A 002
RI CA E'i c COl

RfliUl'4 A 001

RTNl A OCl

RT~2

A 001

J<.Y'TCOD A 011

SAS TR A OOb

SAVTUU A 002

SAVWLf'.i /!.. 002
SBYTE C c 001
c SBVTE! 001

SBYTE 7 { 001 SCAkD A C05

SCOI f A 007

soc

A 006

" SDEHF

004

SES TU A 004

S£BUN A 004

SEEF A CIOlt

Sf GAN A :>Ole

SE If- OF A OOlt

SEI FSI( A 004

SE NCO A 006

SEN EXT A 004

one
Cb OS
llA9
OCOA
1259 p,CE
l5C8 0888 08A1 l 5Qil>_
l49C
U90 l 5AE 15A8 0874 0063 OOEC
o;.~3
OAlO
0(81 l5bf 1138 llJ08 1006 0208 0209 020A 0820 1552
OEC4 108A OE3'9 0El1 OBOA
OCFC OE4E llEl 160B OA74

0384' 0186 0636 02lt3 Oe'H C824 0823 Oi?lt 0168 CS05 07% 0630 C62C 08l'i
0150 OHle 0871 0016 0027 0267
CSlio
0606 0574 0573 0881
0882 0883 0127 0812 0422
054~
0383 037t. 0113 029lt 0389 0649
0827
0063

UZ!. 0351 0502 -

(112· 0!36· CM6· C50l

C595

CUl

C21! 0467 C541'
05~1

C3i4· 0320 032C· 03~5 C:2U C257

C105 Oi06 Cl 134 OHO Cl19 OHJ 0381t Ole 01 C091

C606

C295·

0296·

0405·

CC~2 CCH

0520

Cl20

C288 0641t·

CZ38 C241 020 0246 0636·

C527

COH 0254 C560 C386

0Cl8 C211 Ot52

0081 0283 0661

00~4
OHS
0661

Ci7B 0180

C'"t70 c .. 16 0~36 0549 C27't

C68CJ·

0115 () 184 0201

Cl69

Clll·

Cl65·

CO°'l

C2'80

C60S 0628

0151 0191

Cllt~

Cl'tU

(141·

Cit86

0514 0550
ccne

C029

Cl28· 0189
C603

C't1t<1· 0510
0411 e· 0569

C031 Cl19 C215 (480

C215 0367 ~5 .. 0.\57 C203

0120

0429

0533

0372

C370

0110

0306

0334 0368 0375 03e2
C61t7

C351
con

014.0 "4t06
021t'9 0117 0353 C617 <1568

0152 0413
0181 0359 0683

0158 Gl.23
018&
0~63
C681

OH.t.t. Ole-"
0190
OS~

on~ ::~
019~
OSD8

Ollo
~63
0198 0537

f'AU '90.
P~GE

U8995J 9A

0305 0Jl6 0530 06U
0205 0209 054.l 0554

DATE

3lOC H:9

EC NO. 816 529

28N0\169
8165~2

021WAR 70 8ltt:31

l lMAY70 816671

01NOV70 81676<1t

l~N0\171
818671

!SFE875
s 72250

PROG IC
PAGE

E02-S H

·

IBM ~·lNTENANCE 0iAGNDSTlt PROGll~ E025 5203 LINE PRINTER fUh(TiOh TESTS

fl'U'f NO..,
PAGE

25599~::1~.
10

SYMBOL T LEN VALUE DEft\

SEN SO A 002

SENSl A 002

SENS2 A 002 SENS3 A 002

SEN TAB A 001

SHE A 002

SKALT A 003

Sl'.lfH T A OO't

SKl11EO A 004

SKRICA A 004

SKRIC A OOit

SNIRP A 006

SNOT IT A 004 SPACEO A 002

SPUDT A 003

SPUTA A OOl

S~W05
SSW08 SS\1111 SSWl2 SSW13

(. 001
c 001 c 001
c 001
c 001

STAI X A 002

1190
129F
\2Al 12A3 l29C 127E OA20 OADl
ODDS OFAA
llCO
OCE'e
OC59 1292
OAOC
OAOF
ODOlt
0080 0040 0021)
0010 1638

073[
0132 0133 073/t 073(1
07\2 OO't2
Cl:J93
0353 0'990 0641 0288 02llt 0 ·'23 0020 0021 0685 0886 0888 0889 0890 0847

STAL T A OCb
STA TAB A 001 STA TO A 002
ST.HZ A 002 STAT6 A 002 STEC Kl A 004
STECK2 A 004 S fERP. A 004 STE XI T A 004 STSH A 002 STOAO A 002 STOM! A 002 SUBGAf>.i A 006 SYN AR.A A 004
TABBIT A 001 TAGS A 001

TAGl HG2 TAG3 TAG4
TAG6 TAG7

c 001 c 001 c 001 c 001 c 001 c 001

TBON A O'l3

TENXT A 004

TE SER A 004
TEST c 001

TFEL A 005

THGIR A 005

T 10<.HK A 004

TIOCK A 004

T ITLEl A 021t

TITl2 A 022

TI VA A 003

TIXE A 004

TOBYT A 006

TOLONG A 004

TRAM A 004

TWO

A 002

HllY..,UN A 002

TY BOT A 006
UCSFLG c 001

UNITJN A 001

ODE! 1363 U35 1637 1639 1102 1106 1008 llA 1 lODA l28E 1i90 1179 OCAO 1620 1628
OO'tO 0020 0010 0008 0002 0001 0060 0062 125A 0212 1470 1478 Of50 OF69 12C3 1209 OCAA OEBC OEB2 OEDA 004E 1269 1260 OE91 0878 1277

0358 0761 08't4 08't5 0846 05 113 059't 0583 0631 0582 0721 0722 0621 025't 0831 0837
0814 0875 0876 0871
0878 0879 032£ 0319 0692 0863 0793 0792 0467 0471t 0743 0744 0259 0411 0415 0427 031" 0701 0703 0409 0859 0708

tRCSS-REFEFC:NCE

llEFEPENCES

C05J·
C05te· C05S· QC5l· 0056· 0058· C060 0126 0299
C032 0082 0085 030
~85
0639 C395
C230 t487· 0491.· Olt95 0046 038Ci Cll7
0031 0179 0215 <l480
Clt51t
0457
0215 0361 0,99· 0600 06C2 06C6* 0607 Ob09 0611 0613 0621· Ot23· 0626 C.332
0587
C497· 0721 0722 OZ94· 0295 C2CJ6 0300 0552 ()584· C54i3 05S4 0635· 0659 0611 0673 0S91·
C592· 0469 0475 0532 05'58 0561 !J583· 0629· C586· C630 0488
Clt92
C62't 0075
0318 0062· 0065· 0012 007't 0109 0111· 0113· 0219 0501· 053't· 0585· os~e· 0665 0692· Ci074 0109 0113 0065 0072 Cl310 0331 0342 0344 0111 0219 0585 0598 0501 053'9 0665 0692 0311· 0317· 0320 032'9 0324· 0333 0335· 03#t6 0325 0666
C049 0571 (J272 0631 0391t 06't0 C~58 Olt73 0468
C036
0286
<l218 0223 0228 0233 0253 0407· 01tl4 0409·
0424 C337
C068 0069 0403 061 CJ
0404· 0043 0615

0615· 0617· 0619· 0620· 0675
0310· 0331 03-\2 03'tlt*

I fliX ~UfiHEH&kC.f ti~""'~Q!e."f I(.; Pf.lO(;;U!il'

4~c
,~
EOH

5ZOJ tiNE PRINIER FU~C1iC~ 1ESTS

f~,·.

C.~!.lliS.-RcHRENCE

HU
f!A~E

00 "

;.;:; '1iJ,~"lltH
HA

SYf1SOl T LEN VALUE OEFP.i

fiEHIUd:U

UNOS\IN A OCH
UNPACK c 001

UN SEC A 002

UY~>:Vl A OCH

WtHE! l Oi't

ld&:'J!Qjil A 004.

WICAR A OOl

WT

A 006

KIO A 006

UOEXT A 004

XRl

( 001

lZls<;
021E 1282 OAOO
ino
OelT OCEF
Of32
OE Ee
10C5 0001

0101 0866
011~
0005
oeae
OH!tl 0290 Clt6l Oltlt3
056~
0855

xr-2

c 001 0002 0856

'fBATS ZALT ZERO lROTO

A O~lt A GO<t
A 002 A 006

UlE OC15
1263
OEAl

0758
0213
06-.e
0.. 12

OoU
cuo 0136 Cl~~ 0148 CUit ou.o 0Ui6 011'2 0.51
C292

<l08C· 001!·

C06l CIC76

Cc.2_1s1, ·

0391 C464

0.:-SU·

C289

Cltt6 0515 0551 0553
C059· cou 0068· ~010

0146· 0141 Cl52· 0202

oou C5S'I C!S88· 058~ 0591

C060·

0069· 01C3

OU114· 0165 0170· 0111

C660 0664

0566
ClC3 0106 0125· Cl29 ou... 0135 0140· 0141
03\3· 0316· Cl22 0311 0·48 056~ 05a6 osaye 0592 0596 0591 0630· 010(, OlU 014:6· 0127 OlZe 0153 0156· 0159 0176· 0318· 031~· 0341 0341 0·4t9 0510·

Ci06l 0066 C41C·

TOTAL STATEMENlS FLAGGED IN THIS A5$E[llll8lY ·

0

DATE

3lOCTb9

EC NO. Eli65.2~

28N'JV69 Blo542

02jliJIR.70 816631

11MAY70 816671

ClNOHO 816764

19NOVll 81867"1

l5H875 5727.SC

PROG JO
PAGE

E02-5 10

DATE

3lOCHfil

EC NO. 816529

ZSN0\169 8165"2

OU.0110 816ti:H

HlllU70 al6oH

OlhC\170 816764

i'9NG't17l 816617

i5H615 5722:0{)

PR.OG. 10 PAGE

EC2-·~ !t;~

·

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PP.OGRA~ E025 5203 LINE PRINTER FU~CTIC~ TESTS

PART NO. PAGE

2589951 11

CBJECT CARD LISTING

THE CHARACTER INDICATES A flA~K CCLUMN AND THE CHARAC1ERS 0 EH INOitATE NUMERIC SHIFT.

Cl l THROUGH 16
-· ..
GBK GBO PN 25

CL 17 THROUGH ?2
89952 EC 572250

CL 33 Tt-ROUGH 48
PRlt..TER FUF'\CTICN

Cl 49 THROUGH 64
TEST · · · · · · · · · · ·

CL 65 THROUGH 80
84~i84ii ········

Cl 81 THROUGH 96
········E0250000

T+-Y :8BM & Bl T+-Z5HOHC IHE:BCO
T+-,,H~HAGC31EK4
- ... -
T+-:; jij HJ l XS E: I H

.o · · · ·a ·
0 I ; A A r. F C
ADZL /OHK<+ K.lllC
Yr.&OOt-/ITiil-FI l-C
. -
' ACDiYCJ I CC<FtE
.
.AA-· 8 ESYI< R3 / EST

/CZeC8/Hl<+<l<Y 31 &l
G l.fEJ~~8GG2/5t
... -· .
IC~; t EE c JI

. -
lt·B Ot-<B&BDY8UQ i&-OECH·BFiH4Ell
C~80AEMtIOH·HSCl
XC C.~IBG /BA

. -
YOI <Yl~GSL32EK~ -&?HG&6~ &G~-&4
CCA· /Ot-EO/&N~>A
.
NY3QAOW·4 &_TOH·

OZY 7.UE0250001
. -
. . YStO iE&E0250002
' AQ $2HE 02500C3 + AQ ,l<E025000~
C0-0 19YE0250005
eG-0 K,UE0250006

T+-?P( H.ZaBG 18
.
T+-2F &X /OHS8H3
.- -
T+-3CS 2*1& (H,H T+-3=/l&SA HHiZ
.
T+-49(00 C&40lCO
T+-540 0<"Cl&ES-
l+-61coe <usecoH
T+-7CCAQY~U --.+/
.
T+-9-/< 8C/? /OH
.
T+-:SAAQeEGT /03

4 &_4CH·BG-O AO
A
. - · - - /OHE-J4NTi0G /(
80 HHiZB. j M<<F W
.
215Di/ 2·1, NK"~
AAC21CI3 /CHSB C
HO~·BFUQ,El3-8,A
. .
CJOOCTY ESi: AQ
.
i; 5_IG-+e<HAES4 1 iJQ14i'tC<l ICOECC:
-· .
CH 0 ETCOE 0 C-lJ
SS C2/1YiTC9(C-
. .
UOH·8E- 6fAIX( -

>t-CKR 3&8B8P I Ct80t-·BG-O AP·f-H
AGAC>OH·BFYH·E·~
A-L-HEST2U )C /OH
.
AfL't ES 1l-KOi/t2 210, /O~E&Jih:;
i eBG /Z8E/.R8
. >C CC<ll·CODO<lQ
i./,MI tCR3QACW·
co ... /050+A.CHIH
.
&ll 72ET32 £. · e C
.
+lC,~O~U48 :oc -

; t
.
KR3--8-f20A~8A H
··oc &l_t OMZ/K

.VIBG /fA h03Q
Hal .OH·BFYE#E·#
- · 20H·BFYDKEH# /OH

SSH 1211o·a1N.i-O

-.
<C-SHO?l /CtYe-o 7C t.JQ3C l<JQ

.
( lQlOW~< JQ·OYH
. .
2·0 C<LI ET I JQ

i £5>0-HCG3CBCW·
.
£KT59C072-S i;t5

·A 5>iYCF;
.
_IGL+B<8GCM8t AQ

20BS /OHS8B,213·
.
++<BG S.- C-Af-3

.
·Goecc- ·<AIXAO
2UA~·:-3>iYD+l+Y

·XCCH0··4f :·c 0 +\'- c o+_i c 0

BC:t11· 510E0250007
212 1JHE02soooa
- . E/t4 0KME0250009
.
NK"l-i :S·EC25001C
.
AC3C. KUtEC2500ll
. <l 7H 4SOEC250012
08/Q ·l<E0250013
.
we~· ·.HE0250014
. . 7C- ·B<E0250015
& C- 5Y&E0250016
.
G /Y 41iE0250017
.
OIJ~ l-HEC250018
. -
<M-O QHUE0250Cl9
·l- ·B8c02~0020

DATE

310CT69

EC NO. 816529

28NOV69 816 5~2

02MAR70
81H31

llMA.Y 70 816611

01NCV70 f!l676it

I 9NOV71 818677

15FE875 512250

PROG :o
PAGE

E02-5
11

IBM MAINTENANCE DIAGNOSTIC PROGRA"

E025 5203 LINE PRINTER FU~CllO~ TESTS

CL 1 THROUGH 16
...
T+-·o o ewe
.
T+-·<+-. l>-.H£Fl/
T+-=GOACEO;· IN"~ T +-"B+--1 >&OA ET4

CL 17 THROl;GH ?2 K-0~ C~BKR"H
JOHh l<BG ( t= -,2u 10~.a:ssH ~
GDIBGO('? /lflOt-· I >T-HCU2l AOi#A

OBJECT CARD LISTING
Cl 33 THROUGH 48 Cl ~9 THROUGH 61t

88-Q- K/<BGCDX
.
OYC6BAIXC -ll!3Q

.
HO~·itBACMI D&5Tt

Hil W< Ol370ET8
.
BH> &OH·IM<BGCIC 21+-kUtCAC·<KT?H

c·o- e C·O- e
/lCSOti·JOlGU&JXY
- . GCT3UOCHi8AHJC D

Cl 65 n:ROUGH 80
.
BOC-< t·: < JQ
19/Ja<; cs -x
iltlH&iO

CL ei THROUGH ~
- ·en =·oeonocz2
t>· "i: IE C250:ZJ
-.
2u ~ ·ueozsooz..
6C to· ~£OE 02 !OCU

. .
T+/ 6ET488-I -JC
.
T+/A3CYOaEABAC ·
T +/B >OH·SF YM;;EHS
- - Y+/C ZF 'fMHEHS... /OH
.
T+/OUblHAD5Ck .I(
T+/f-.-. IHB8&4AEU

:s: C2-l<T

MLJJ,O;Q&LIHGC-i BES4KRi A C /IC /OH Se CASM· Ct<·

SB 32101 11cso~·
.
'"0C2-R9· HC .&C

JOL~AOCC5 /CCOH·
. .
Ot·h& O+CU ETX

.
. -· O+ 116i Y·FC C 0+ 11

. -

CCTETlJl.eAI/C & LEJJ·+ -OllH&A-0

.
SOOO< JAhOYYiCJe SOH·&STYAES-< AG
.
O+ HO+-.Ht;t-!·BG /· · ··· ·-·te····
SC:IBG
.
Be-e ETYKaaeGCPX CCl"M;<8GC~i0fJ<

. ..
AC ·~lJJlOt ~l 0 70HG /lflOH·8FYO ACA.V8 0< JKWE.l
4BAFU<.+<O +l.IBES-
.
0+·~8A3~DET?2/ U
.
BC K8 A<8CA Lil.

BH>
. . ACEM -H8E025':0ll
IEEI ·O~EG2500ZI
4' J ;R-EU250CJC
. ..
+ AQ 1..ROE02500l2
7· H ·T'fC25~CJot

T·I J. IOHE-K&lQT X ETX2U~09DAQ8il T +/HFF IM< JI Ro.....

.....

T+/.AOAltt<JAEET" T+l.a.S>f SlJPSli-c
. .
T+/<78 1 Q tOA .tt·G
. .
T+/(21H tOA th

O&+

.£ <~CtAe L

t2a1s·: oureuc

S84CCS_llilCJPOCFC

R21 SR2; I Y£<PR6f'C

...........

·

CEi<P

ll· H£DC:NS_PUOA

' ' AIX~O·y lSG

.
ADAt:c O'fl<_c 0 E&FH £ ~AOElJ
.
&CA lD.A tC.A (. 8 l~·lRl"CC2C~C X

. ·e ""'9l··lli·HIC
Mh i OJP.&4- TS2;J
.
P~ I UO.t lOA e_.
.
to· '·-tc;1uauc
.
~OJLMlJY l·lhSUC.

.
lOXM ·i'4EC2500J1
. -
..
.'.5.I EO.?SOOJt
a=·< c1·eo2soo.c
Oi- ..i 2YE C250°'41
C~SH · ·E0250~

DATE

310C T&:.9

EC. "4u. 816529

28NOY69 8165-'Z

11MAY70 Cll6611

01r.ov10 816764

19NOV71
8U617

15FE87S
51225C

,ROG JO PAGE

E02-S
111

·

IBM MAINTENANCE DIAGNOSTIC PROGAA~ E025 5203 LINE PRINTER FUNCTIC~ TESTS

PART NO. 2589953

PAGE

12

CL 1 THROUGH 16
.
T+/IYKOH BIGN.:oc

CL 17 THROLGH ;2
HO)lM6MC05MCC2C~

OBJECT CARD LISTING Cl 33 THROUGH 48 Cl 49 THROUGH 64

H ~~5CV.8iTE6)L
.
Cl_SR5+I 4·G~&<I

A44CC2ll.- AC·G
.
H4U_ &IHHCJLHl)V

Cl 65 T~ROUGH 80
R6M?S:IPC&<IH4U_
. .
5)R.tOA &OA 2)P

Cl 81 THROUGH 96
.&O HIE02500"3
V4i& NS4EOZ50044

T+/KR6·XAliPPt·X T+/LMOJIT5=IRKil T+/~llJN 6·Pssrs T+/NHlJPSlMCC5<l T+/OE94Cl5HCE6)V

N8iPRtCCB9<SFlJV H&4_ &OCE5;1R:cc RlMCCOIXR2·GG1~1 S&<SA2JIE!F?B9+(
.
0'SM5<GN1CA t<I

6·)G2+lll·Sl&(l 4i-tGle"G6i~~J5(~ SP07P6·PS8UCC2(1
5_Ft:DA l~.)&<. Ol<tr-9=1 &DA 0 1 $

A4tN .,.Qi4CR1·G R&<E-C?GE··llitC
6·PS1;(,&<GN1DC Y8iPS&<GRl~Cl5~C DlOCX94A &<.YS&P

~:F?T2<P~tcxeaip TSUCAQ<.111.SilN Rl;.Ea4CHOllTOJI E61XSl)PSlMCC51L
.
SGDA &OA 1·.2t<P

. .
T&<- N3 EC250046
.a--.S/QE0250047
.
l&+H 11·E025004e
.
Et+· ·IHE0250049
BiM LTUE025005C

T+/P#t+~XtCA &OA 9=J 9·~S1JPS1MC C5<LS&ISKE 1 XE5CS Vl~CJ91LPl)XSIJP SlMCC~SLE&<P2E·l SZ)M N:4EC250052

........ TC1Q314A &DA &CC C0)XRKi.18~A &Ct F&<PB&OCl8UCFO·X l21PG'"S5'll2i~

t····a

·········· SECT! CN E02 ········· ***············· ················ *******....·....

; J&E0250Q53 E02500541

······-· ·.·.....·... * POUT .1 - SENSE CMOS AN~l)SIS T EST.

·······~········ .......·........

........ * ROUT.2 - SENSE Tlf41NG BIT TEST ················ ················ ...·............

EC250055f

....··... ........E0250056

················ ················ ················ ················ ·······

E025005J

· NOHS.- ....... ················ ················ ················ ...........·.... ........

£0250058

······· ........ · l .SET SSW-05 BEFORE RO~MNG l HIS TEST.

..·.···......··. ················

........ * 2.SET SS~3,4 . . . ........ · 3.SET c.e.sw1
...... ....·...........

,13 IF ~O ALTER~ TCH TO OVERRIDE
..........··....

ATE FRI~TER.
IDLE CChTROl BE~
................

················
ORE RUNNING THIS
................

.........··..... .·....···.
TEST. ·······o·e

E0250059 E0250060 E0250061 ········

........ c

......··...·.
Fl ASC R I. SO

E0250062
l65612oe11to 21os·.veo2soo6J

· - - - - - - - - - - - - - - - - - - - - : - - - - - - - - LAST PAGE - - - - - -

DATE

310CT61iii

£:1.: NO. 816529

28NOV69 816542

02.. AR 70
8H:c31

11MAY70 81661' 1

01NCV70 816764

l9NOV11
818677

15FE875 572250

PROG 10 PAGE

eoz-s
12

· · · · · · ·

· ·

· · -· ·---·-------·--·----· - ·- . · · · · · · ·

·

·

·

·

·

·

·

·

·

·

·

·

·

···,, . 'f ~

·

·

·

·

·

·

·

·

td. ' ·

\f

ISM MAINTENANCE DIAGNOSTIC PROGRAM

PART NOs PAGE

2589955 f

l

f;

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NiJs 258'1'955

PAGE

lA

E033 CHAIN CHARACTER COUNTER lESi

ERR LDC OBJECT CODE

AWR ST~T SOURCE STATEMENT

2

DECK 't

OAOO

3 E03 START xeAoo·

4 5 6

** *************~**********,;~'""""''·* *"-±·"'

* *

SYSTEM/3 52C3 CHAIN CHARACTER

"'" *"'t' """' **** >f. ;;.*
COUNTER TEST

*************'~**'**"'**
* *

I

* * 7
8
* 9

********S*E*C*T*I*O*N**3**-**R**O*U*T*IN*E***l ~******~********~~****************~********

OAOO E033 OA02 00

OAOl OA02

lC ****************************~~*****'~*~*********·**********************

11

DC

XL2 1 E033'

PROGRAM IiJENTlflCATION

12

DC XLl·tc

FLAGS

OA03 01

OA03 13

DC

Xll'l'

CUPAFNT ROUTINE NUMBER

OA04 OCOO

OA05 14

DC

XL2'0~

RESERVED

OA06 OAOD OAOS ODC4
OAOA EC5000

OA07
OA09 OAOC

15

DC

16

DC

17 SPUOT DC

Al2CRTN1)
Al2tERTl) Xl3'EC5000·

ADDRESS OF FIRST ROUTI~E PREFIX
ADDRESS OF ERROR RECORDING TABLE UNIT DEFINITION TABLE - PRINTER

OAOO 01 OAOE 00

OAC'~J
OAOE

18 ************************··-~·······***************·····················

* 19 ·
2C

·ROUTINE l - CHAI~ tHARACTER CCUNTER TEST

·
*

21 *

*

22 ****************************~******~*************************~*********

23 RTNl DC

XLl'l'

RCUTINE NUMBER

24

DC Xll'O'

FLAGS

OAOF FFFF

OAlO ~5

DC Xl2'r.FFF'

LAST ROUTINE

OAll CC 87 0212

26 ************************~**********~************~**********************

27

B

TEST

·

E033 CHAIN CHARACTER C~UNTER TEST

ERR LOC OBJECT CODE

AODR STMT SOURCE STATEMENT

·

OAAl 5C 31 00 32 OAA5 Of 00 ODC7 OD4F

OAAB CO 01 OA90

70

MVC. 0(50,XRll,50(,XPl)

'lIPE 50 !40RE

71

SLC BLAKNH U eONE

1550 bYTES OONE?

72

BNZ MC\IMCR

OAAF CO 87 0024

13

B

BR OUT

OA83 C2 02 l9FO

Oi\67 BO E2 01

OABA E2 02 01

OABO 80 FF 01

·

OACO CO 01 OA87
OAC4 ec co 00

74

LA

75 l AKSAN SNS

76

LA

77

cu

78

BNE

79 *

80

MVI

TwOI:·,XR2 U,XR211X'E2 1 U,XR2),XR2
H.><R2) 9 X1 Ff 1 lAKSAti
0(,XR2),x·oo·

LOAD SAMPLE AREA AOOR. 5 SENSE TIMING BYTES 3 A~D l TO SAMPL~ AREA AODR. 4 END OF SA~Pl[ AREA 4 IF NOT, LOOP
16 =24.3 USEC.LCOP ZERO 2ND ~E~SE BYTE

·

* 81 *************************~·············································

82

CHECK FOR NO EMITTER PULSES

·

OAC7 3C BS OAD6

83 **********~****************········**$··············~··~···············

84

MVI CHEON,X 1 B8'

OACB C2 Cl2 l 9FO OACF 3C 28 OOC9
OA03 E2 02 01

85

LA

86 PAZZ MVI

87 CHKNE LA

TWOJN,XR2 NQE1o1,,x·2a· lC,XR21,XR2

LCAC TIMING ARE· ADOR.
lCAO TRY COUNT CF 40
ADD l TO ACOR<

OAD6 88 20 00 OA09 f2 10 14

88 CHEON TBN

89

JT

Ot,XR2)18'lOOOOO· ANYMlS

CHAI~ EMITTER ON

·

OAOt OF 00 ODC9 OD4F OAE2 CO 01 OAD3 uAE6 CO 87 0222

90 91 92

OAEA E051

OAEB 93

SLC NOEM( l t 11CNE

BNZ CHKNE

B

HALT

DC

Xl2. EC5l. D

TRY 40 SAMPLES HALT NG EMITTER PULSES

OAEC CO 87 ODOE

94

B

GA WAN

OA15 3C 38 OA3C
OA19 OC 02 007F 0079 OAlF 3C 2F ODCB OA23 30 Ff 0878 OA27 F2 01 OE OA2A 3C 39 OA3C OA2E 3C 77 ODCB OA32 OC 02 OD7F OD7C OA38 30 E3 ODC2 OA3C 38 04 ODC2
OA40 F2 10 17 OA43 38 04 0208 OA47 F2 ()Q OA
OA4A CC 87 021A OA4E Cl OA4F lC

OA4E OA4F

28

MVl

29

MVC

30

MVI

31

CLI

32

JNE

33

MYI

34

MVI

35

MVC

36 SENAT SNS

37 TECHB! TBN

38

JT

39

TBN

40

JF

41

B

42

DC

43

OC

TECHBI,X 1 3 1 WHAIN(3),fRATE HICHCT,X'2F' UCSFLG,X'Fi'"' SE NAT TECHBI,X"39 1 HICHCT,X 1 77' WHAIN(3),EXCtSE STAT3,X'E3 1
STAT3,B'l00' GOPRT
SBYTEO,SSk05 UDAL T PRINT
XLl 'Cl' IL1'28'

ScT TO CHK.48 CHAR~BIT CN PUT 48 IN Tl"';'LE SET HIGH CHAR CGUNT FOR 48 CHAR UCS FLAG ON
SET TO CiK. 48 CHAR.BIT OFF SET HIGH CHAR CGUNT FOR ECS PUT 120 IN TJTlE GRAB STATUS 4S CHAR. SIT CN OR OFF
PR I NT ON MFCU
PxlNT "IMAGE AND CHAIN 00 NOT AGREE'

OAFO 30 89 0AD6 OAF4 f 2 81 08 OAf 7 3C 89 0AD6 OAFB CO 87 OACF
OA FF C 2 0 2 1 9F 0 OB03 3C l! ODC9 0807 E2 02 01 OBOA B8 20 00 OBOO F2 10 18 OBlO OF 00 OOC9 004F
0816 co 81 0821
OBlA C2 Cl 0807 OBlE F:l 87 OE

95 AN'nll S CU CHECN,X'B9'

96

JE

SIMVNA

TEST FGR SIT CFF BEE~ DONE

97

MVI CHECiNiX 1 B9'

98

!'

PAZZ

CHANGE TO CHECK FOR BIT OFF

* '* 99
lGC

**************~***********************·~············~···~···********·*· CHECK FOR jlliSSEO E,..HTE~S

101 ~*******~******************···~······#********·······***·**************

102 Sl~YNA LA

TkCIN,XR2

lCAD TIMING AREA ADDRo

103 VASIT MVJ NCEM,11

lQAO TRY CGU~l CF 17 OR lC

104 NOBIT LA

105

TEN

106

JT

l' 1 XR2t 1 XR2
OC,XR2)~8'100000'
GOCOUN

ADD 1 TO AOORo CHAlh EMITTER GN

107
108

aSLzC

NCEM(l~,O~E
MJSEM

TRY 17 OR 10 SAMPLES

109

LA NGBJT,XRl

110

J

CHEND

lCAO LOOP ADDPo

OASO 0084 OA52 ECOE

OA51 44 OA53 45

OC AL2(ERUDT>

DC

Xl2'EOOE 1

ce21 cc 87 0222 0825 E052

0826

111 MJSEM 112

B DC

HALT XL2 1 E052 1

HALT 9 ~ISSED AN EMITTER PULSE

OA54 CC 87 0222 OA58 E')OE

46 UDAlT B

OA59 47

DC

HALT
Xl2'EOOP

UDT ERR HALT

0827 CO 87 OOOE OB2B C2 01 0803

113

8

114 GOOOUN LA

GAWAN YABJT,XRl

LCAD LOOP ADD~.

1.1A SA 38 04 0208 OA5E FC: 90 OA

48 GOPRT TBN

49

JF

SB~TEO,SSW05
TIPMU

PRINT ON MFCU

OB2F 34 02 008E OB33 00 01 ODBE 0064

115 CHENO ST

116

CLC

ACRS~V.XR2 ADqSAV(2).LA~~D~

E~11~E FIELD CHECKED

CAM CO 87 021 t
OA65 41 OA66 lC

50 OA65 51 OA66 52

B

PRINT

DC

Xll 141'

DC

Ill 1 28m

PRINT ·xxx CHARACT~q CH&IN CHARACTER
COUNTER TEST 4

OB39 DO 01 00

117

6NE Q(,XRll

"'*** "* ! 18 *'""*******

1'I *') ****"""' 111<$"- ¢ :t<Jl>lll'l)ll<;i,-<''-"''"'·"*''*°'~**** .... ,. ~~$ll>:ll<·li<:to$lO<:tll'$:t·:t"l(I<****

* * 119

SENSE 1550 SA~PLES Cf Tl~ING AND CH£R~CCUNTER

OA67 0098 OA69 EOOO
OA6S 38 20 OAOC OAt.F F2 90 lit OA72 3C OA 0055 OA76 3C OA 0804
OA7A OC 01 0801 0072 CASO OC 01 OC08 0070

OA68 OA6A

53

DC

54

DC

55 TIPMU TeN

56

JF

57

MVl

58

~VI

59

MVC

60

MVC

Al2 <T ITLU
XL2 1 EC00 1 SPUDT,8'100000' JUMPIT
THRTEN~~'CA'
VABIT+l,X'OA 1 HICNT+5t2J,ADMAX
LOCNT+5{2),ADMIN

lC0-200 LPM OE~ICE

·
i ,,

OB3C 3'5 02 006E
0840 3b 02 0068
0844 co 81 0681
08411 30 E2 ODCO
OB4C 38 01 ODBF
0850 cc 90 0840
0654 3C 96 OOCD

120 ····****·················****········~~·~~····*s*******~··~*********·$·

121

L

HODEL,XR2

LOAD 350 MS SEARCH

122 HMCOP A

NEG1 9 XR2

Dt(RE~ENT DELjY

123

BZ EMJN

124

SNS STAT2,X 0 E2'

GPAS TIMING

125

TBN STAT2-ltB 1 1'

126

BF

HMOOP

HOME LATCh ON

127

MVI MSECS,150

SET 15C MS DELAY

OAS6 3C 00 ODC8

'

CABA OC 01 lFFF 006A OA~O 3C lf. ODC7

CA94 C2 01 lFFD

OA98 4C 31 00 lFFE

OA9il 36 01 006C

· DATE

25AUG69

· EC NO. 816485

~10CT6'i
816529

·

·

·

61 62

·*·~**T*A*K*E**1*5*5*0**S*A*M*P*L*E*S**O*F**C*H*A*I*N**E*M**IT*l·E·R··T·IM··IN··G···~···············6·····*

63 ******************************************************************·····

64 JUMPIT MVI LPOUNT,x·oo·

START LOOP CCUNT AT 0

65

MVC ENTUU(2),QCF

66 LUGAN MVI

67

LA

68

MVC

~9 MOVMOR A

8LAKNT 9 30 SEMIO,XRl
0(50,XRl),ENTUU-l MIFTY,XRl

SET WI PE COU~T END Of AREA ADDR. WIPE lST 50 OECR.ADDR. BY 50

11MAY70 816671

01NOV70 8l6l64t

19FEB71 8Ul912

PROG ID PAGE

OE03-3
1

I · I· ··
II ·
I
1. I
I
1·
.l·.,l. ,t..,
·
·
·

0858 3C 01 08AO

OBSC 38 20 OAOC

0660 F2 10 08

0863 3C FF ODCO

0867 3C 07 OBAO

0668 OD FF 0800 0800

0871 OD 38 0800 OBOO

0877 0870

cOoF

00 84

OOCD 0868

004F

OB 81 C 2 0 2 l 9F 0

DATE 25AUG69 EC NO. 816485

310CT69 816529

128

MVI

129

l5N

130

JT

1 3 1

MVI

132

~VI

133 NOUCS CLC

134

CLC

135

SLC

136

BH

137 EMGN LA

SHlONG+l,X'Ol' SPUOT,8 1 1coao0· NOUCS
M SEC S , 2 5 5
SHLONG+1,x·o1· LPil256J,LPI LPil60i,LPI
MSfCS!ll,CNE NOUCS
ThOIN,XR2

llMAY70 816671

01NOY70 81676'4

1CJFEB71 818912

!C0-200 LPM ?

DELAY 1 MS. DECR DflAY COUNT lOAD TIMING A~EA ADDRo
PROG ID PAGE

OE0.3-3 lA

,.' ·~

re~ MAINTENANCE DIAGNOSTIC PROGRAM

PART ND. PAGE

258~955
2

E033 CHAIN CHARACTER COUNTER T~ST

ERR LDC OBJECT CODE

ADDR STMT SOURCE STATE~E~T

0685 C2 O~ l3EU

1J8

LA ONElN,XRl

LCAD CHAR.CTR.AREA AODR.

0!389 BO E2 01

139 SLOGP SNS l(,XR2J,X'E2 1

5-SENSE TIMI~G BYTES

OBBC 7C El 01

140

SNS l(,XRl),X'El'

5-SENSE CHAR.CTR.BYTE

OB8F 5C 00 00 01

i:1

MVC 0(1,XRlltli,XRl)

6-PUT C.C.INTC LO AODR.

OB93 36 01 004F

142

A

ONETXRl

6-ADD TO C.C.ADDR.

OB<;7 36 02 C:J4F

143

A

ONE,XR2

6-ADD TO TIMING AODR.

OB9B 34 02 CDBE

144

ST

ADRSAV,XR2

6

OB9F OD 01 ODBE 0064

145 SHLGNG CLC ADRSAV(21,LASAOR

22 OR 10-ADDR.REG.TO END

OBAS CO Cl CB89

146

147 148

* *

B~E SLOCP

4
48-CY. 73 USEC. LOOP 6C-CY. 91.2 UScC LOCP FOR 100-200

OBA9 3C 00 1 FFE

149

MVI ENTUu-1,x·co·

ZERO 2ND SENSE BYTE

* * 150 *******************~***********************************************·***

151

CHECK HOME LATCH MISSING

OBAO C2 02 19EF

152 ***********************************************************************

153

LA

T~OIN-1,xn2

LOAD TIMING AREA AODR.

OBBl OC 01 OOC6 0040

154

MVC

SAVSA~C2),ZERO

OBB7 OC 01 OOB6 0040

155 ZERSAM MVC SAMCNT(2J,ZERO

ZERO SAMPLE COUNTER

OBBO E2 02 01

156 ~DWUN LA

1C,XR2J,XR2

ADD l TO SAMPLE ADOR<

OBCO 68 Cl 00

157

TB~ Ol,XR21,B'l'

HGME LATCH ON

OBC3 F2 10 27

158

JT GCTWUN

YES JUMP

OBC6 OE 01 0086 OD4F

159

ALC SAMCNT(2),0NE

ADD l TO SAMPLE CNTR.

OBCC OD 01 ODB6 0059

160 HICNT CLC

SA~CNT(211FEMAX

SAMPLE CCUNTER OVER MAX

s

OBD2 F2 04 11

161

JNH LOADUN

JUMP IF NOT

OBOS 30 FF 0878

162

Cll UCSFLG,X'ff'

UCS CHA IN

0809 F2 81 OA

163

JE LOAD UN

SKIP HALT IF YES

OBDC CO 87 0222

164

B

HALT

H~LT NO HOME LATCH OR 1 MISSINF

OBEO EC'53

OBEl 165

DC

XL2 1 E~53 1

OBE2 CO 87 OCOE

166

B

GAkAN

OBE6 CZ 01 :)BBD

i67 LOADUN LA ADWUN,XRl

LOAD LOOP AODR

OSEA F2 87 51

168

J

CE~D

169 170

******C*H*E*C*K·**F*O*R**T*C*O**M*A*~*Y**H*O*M*E**L*A*T*C*H*E*S************************************

OBED OE 01 ODB6 OD4F

171 *********************************************************~*************

172 GOTWU~ ALC SAMCNTC2),CNE

I~CREMENTll) SA~PLE COUNTER

r...

OBF3 30 FF 0878 OBF7 F2 01 OC

173

CLI UCSFLG,X'FF'

174

JNE LGCNT

OBFA OD 01 OOC6 0040

175

CLC SAVSAM(2J,ZERO

OCOO F2 01 15

176

JNE TOME

OC03 F2 87 2E

177

J

SAVIT

OC06 00 01 OJB6 0057

178 LOCNT CLC SAMCNTC2),FEMIN

SAMPLE COUNTER UNDER MIN

OCOC F2 02 lC

119

JNL LOLPAD

t

OCOF OD 01 ODC6 OD4D

180

CLC SAVSAMl2t,ZERG

lST HOME LATCH SAVE EMPTY

OC15 F2 81 lr::

181

JE SAVIT

oc:8 OD Cl OJB6 0051

(

OClE CC 04 09E6

182 TOME 183

CLC
BN~

SA~C~T~~J,TWO
LOADUN

SAMPLE COUNT ~JGHER THAN 2

OC22 CO 87 0222

184

B

HALT

HALT,TOO MANY HOME LATCHES

OC26 E05L.

OC27 185

DC XL2'EC54'

.~

OC.28 F2 87 E3

186

J

GAWAN

OC2B OD 01 OOC6 0040

181 LOLPAO CLC

SAVSA~l2J,ZERO

lST HOME LATCH SAV~ EMPTY

OC'.31 F2 01 06

I

OC34 OC 01 ODC6 0086

lSS

JNF. ALRSVC

1B9 SAVIT MVC SAVSAM(2J,SAMCNT

NC, THEN SKIP IT SAVE lST HO~E LATCH COUNT

OC3A C2 01 OBB7

190 ALRSVD LA ZERSAM,XRl

LOAD LOOP ADOR.

OC3E 34 02 ODBE

191 CEND ST ADRSAV,XR2

OC42 OD 01 ODBE 0066

192

CLC ADRSAV(21 1 ALMLAS

ALL SAMPLES CHECKED

OC48 DO Cl 00

193

BNE 0(,XRl)

LOOP IF NOT

* * 194 **********************************************************************~

195

CHECK CHARACTER COUNTER RESET

OC4B C2 01 13Df

196 **************************************~*******************************·

197

LA ONEIN-1,XRl

OC4F 36 01 OOC6

198

A

SAVSA~,XRl

OC53 C2 02 19EF

199

LA

T~OIN-l,XR2

CC 57 36 C2 ODC6

200

A

SAVSAM,XR2

OCSB 70 00 03 OC5E F2 01 CB

201

Cl! 3(,XR1),X'C01

202

J~E

HO~~M3

3RO HOf' SAM OC

OC61 40 OC 00 ODCB 0Cl:6 F2 81 A5

203

CLC

0(1,X~l),HICHCT

HCMSAM 2F OR 77

204

JE GAkAN

OC69 40 00 03 ODCB

205 HOSAM3 CLC 3(1,XRl),hlCHCT

3RD HOM SAM GREATER THAN 2F OR 77

OAT E 2 5AUGbq EC NO. 8164'-85

310CT69
816529

llMAY70 Sl6671

OJNOV70 816764

19FEB7l 81S912

PROG 10 PAGE

OE03-3
2

· IBM MAINTENANCE DIAGNOSTIC PROGRAM

·

E033 CHAIN CHA~ACTER COCNTER TEST

ERR LDC QBJECT CODE

AODR ST~T SOURCE STATEMrNT

Ptll<T l~O · PAGE

258S':155
2A

OC6E F2 04 2A

206

JNH lSSEQ

OC7l 70 7F 03

201

CLI ?.( ,XRU ,X'7f'

OC74 F2 01 24
ocn ss 10 03

208

JNE ISSEQ

2'Jg

TBN 3(,XR2),U 1 10000'

OC7A f2 10 15

210

JT NCSHFT

OC7D BS 10 04 ocso F2 10 OF

211

TBN 4(,XR2),8 1 l000C'

212

JT NOSHFT

ClCS3 88 lCl 05

213

TBN 51,XR2J,B 5 10000 1

OC86 F2 10 09

214

JT l\CSHFT

OCS9 CO 87 0222

215

B

HALT

NO PSSl HALT

OC80 E057

OCSE 216

DC

XL2 1 E057'

OC8F f 2 87 7C

217

J

GAP/AN

OC92 CO 87 022£

21B NOSHFT B

HALT

NG CC SHIFT HALT

OC96 E058

OC97 219

DC

XL2'E058 1

·

f..tC98 F2 87 73 OC9B C2 ::'2 13DE OC9F 3fi 02 OOC6

220

J

221 I SSEQ LA

222

A

GA ti AN Of\EIN-5,XR2 SAVSAM,XR2

SET ~R2 TG 4 SA~PLES BEFORi: HOlol!SA,..

OCA3 SE 00 00 OD4F OCA8 ~D 00 00 04

223 224

ALC 0 U, XR2 ) , GN E CLC 0(1,XR21,4(,XR1J

ADD 1 TO HCMSAM -4 HCMSA~-4 NCW S~~E AS HC~SAM+4

OCAC f2 01 09 OCAF CO 87 0222

225

JlliE NOSEQ

226

B

HALT

11;( CC RESET Ht.LT

OCB3 EC55

OCB4 227

DC XL2'EC55'

OCB5 F2 S7 56 OCBS 40 00 03 OOCB OCBD F2 04 48
DCCO 3C OA ODC9 OCC4 3C 28 ODCA
ceca 36 02 0053
occc 36 02 0055 OCDO 4E 00 03 OD4F
ocos 90 00 03 03

228

J

229 NOSEQ CLC

230

JNH

231

MVI

232

MVI

233

A

234 PLCOP A

235

ALC

23(:

CLC

GAWAN 3(1,XRU ,HICHCT
BACTR NCEf'l,X 1 CA 1 TRICT,X'28' F::UR,XR2 Tl"RTEN, XR.2 3U,XR1) 1 0NE
3(1,XR2),3C1XRll

WAS 3RD HC~ Si~ LESS THAh 2F CR 77
lhEN ITSA BAC CTR. LCAD SKIPPED l E~R CCUNT LC40 SAMPLE TPY CCUNT SET XR2 TC HO~SAlol! ALDR. SET XR2 13 OR lC AhEAD CF Hu~.SAM. ACD l TO ECUAL ~EXT CHAR.COU~T ARE THEY ECUAL \C~

OCD9 F2 81 15

237

JE GlJUDY

JU'4P IF YA

OCOC 4E 00 03 004F

238

A~C 3(1,XRlJ,Cf\E

ACO l "40RE

OCEl 90 00 03 03

239

CLC 3(1,.<R2),3(,XR11

IS lT CNLY l AHEAD

OCE5 F2 84 20

24C

JH BACn

If ~OT JTSl BAC COUNTER

OCE8 OF CO ODC9 004F

241

SLC NCE~( u,oNE

DECR.SKIPPEO 1 ERR CCUNT

OCEE F2 81 17

242

JZ BACTR

GC TC fAO CTR. If 10 OF 'EM

OCFl 36 01 0055

243 GUUOY A

OCF5 OF CO OCCA 004F

244

SLC

OCFB CO 01 OCCC

245

SNZ

OCFF CO 87 0222

246

B

C003 E059

0004 247

DC

T""RTEflt,XRl
Tl<ICT ll ),Cf\E PLCCP HALT XL2 1 E059'

LCO~EC AT 4C C~AR.GOUNTS YET
LCCIP IF NGT CC ERROR DUE TG EXT~A E~ITTER PULSES HALT

0005 F2 87 06
0008 cc 87 0222

248

J

249 BACTR B

GA WAN HALT

BAJ CC HALT

·

ODOC E056

0000 250

DC

ODOE OE 00 OOC8 004F

251 GAWAN ALC

0014 co 87 0212

252

B

XL2 1 E056' LPGUNTC 11 ,ONE
TEST

·

0018 30 32 OOC8 OOlC CO 82 OA90
0020 co 87 0216

253

CLI LPOUNT.,X 1 32 1

254

Bl LUG AN

255

B

LINK

ACD TO LOOP CCUNT
DCNE A 50 LCCPS BF TO SA~PLE AGAIN

·
0024 34 08 0048 002S OC 02 ODDO 005( 002E OF 02 ODDO 004F 0034 F2 81 07

256

257 258

********C*H*E*C*K***FC*R***B*lJS*Y***C. *D**EL*A*Y~**SU**B~R*O*U*T*IN*E*********************************

259 *********************~******~*******************************·**********

260 BROUT ST BSEXll+3,ARR

LCAD ~ETURN ACOR.

2l: 1 SDC

"4VC BUSUB(3J 9 fUSCTI

STCRE DELAY CCU~T

262 FLOOP SL(

BUSUBC3),G~E

263

JZ TOLCNG

0037 Cl E6 002E 0038 f2 87 OA

264

TI 0 F l.OGP, BUSY

265

J

flSEXIT

003E CC E..7 0222

26:: TDLONG B

HALT

0042 ECll
0044 cc E7 0028

0043 267 268

DC

XL2 'E011'

B

SDC

0048 cc 67 0000

,,..

. :-i .

OD4C OOOC

0040

269 BSEXIT B

·-·

* * 270 ***********************~***********************************************

271

CC~STANTS

272 ***********************************************************************

273 ZERO DC IL2'0'

· DATE

25AUG69

EC NO. 8164 5

310CT6<;
816529

ll~AY70
816671

C1NOV10 816764

l<)FEB71 818912

PROG ID PAGE

OE03-3 2A

·. .'·
· · · · · · · · · · · · · · · ··· · · · · · · · · · · · · · · · · ·

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

· ·
.,
. I.
..;:
..
~-
I
(
' '
c-
.~.
< c
'.~.
c
I

IBM MAINTENANCE DIAGNOSTIC PROG~AM E033 CHAIN CHARACTER CUUNTER TEST

PART !'.iO.
PAGE

2589955 3

ERR LOC OBJECT CODE

AODR STMT SOURCE STATEMENT

004E 0001
0050 0002 00!:>2 OC04 0054 0000 0056 025F 0058 0260 ODSA 040000
0050 ocoooooooooo
0063 lfFE 0065 lFFO 0067 fFFE 0069 OOFF 0068 FFCE
0060 3AOO OD6F 0074 0071 OD76 0073 OJ.DB 0075 01E4

()04F 0051 0053 0055 0057
0059 OD5C 0062 0064 0066 0068 OD6A OD6C
006E 0070
0072 0074
0076

274 ONE

DC

275 TWO

DC

276 FOUR DC

277 TH RT EN DC

27z, FEM!N DC

219 FEtJ.AX DC

280 BU SC TI DC

281

DC

282 U.SADR DC

283 AL Ml AS cc

284 NEGl DC

285 OOF DC

28t MI Fl V DC

287 HODEL DC

288 ADMIN DC

289 AD MAX DC

290 FE MINN DC

291 FEMAXX DC

292

IL 2' 1 ·
Il2'2 8
l L2 '.:,'
IL2'13' Il2 1607 1 Il2 1 62l 1 Xl3"040000 1
XL6 1 0 1
AL2(8190) AL21818<;) XL2 1 FFFE 1 Xl2'00FF 1 IL2 1 -50 1 XL2'3A::JC. 1 AL2 CF EM INN) AL2(rEMAXXI ll2 1 475 1 IL2 1 484 1

MUST IMMEDIATELY PRECEDE 'LASADR I

293 -94

*********PR**IN*T*O**U*TS***********************~*************************~*******

0077 40F4F8

0079

007A FlF2FO

007C

0070 404040

007F

0080 4CC3C8Cl094BC::SC8 0093

0088 ClC9D56BC3C8Cl09

0090 48C3E3D9

0094 4Bf3C5E2E3

0098

00~9 C904ClC 7C540Cl05 ODA8

OD Al C440C3C8ClC9D~·40

OOA<J C406400506E340Cl OOB4 OU Bl C709C5C5

229956 *Fq*A*T*E****DC*****C**L*3*' **4*8*' **************************************************

~97 EXCASE DC CL3'120'

298 ~HAIN DC

CL3 1

299

DC CL20' CHAR.CHAIN,CHAR.CTR 1

299

299

300 TITLl DC

301

DC

301

CL5 1 .1EH· CL16'l~AGE AND CHAIN I

302 ERUDT DC 302

CL12 1 CC NOT AGREE·

303

0085 0000
0087 occoooooocoo
0080
ooe~
OD Cl
00(3
ODC5 OOC7 ODCL OOC9 OOCA ODCB ODCC OOCE 13EO
. 13EO
19EE
l9FO lFFE

CJOB6 ODBC OOBE
ooco
OOC2 ODC4, OOC6 ODC7 ODC8
ODC.9
OOCA COCB
coco
ODDO
13'EO 19£0 19EF 19FO lFFO lFFF

304 305

*********R*ES*E*R*V*E*D***ST*O*R*A*G*E********************************************~····*

3.:l6 307

******************************~********·********************···········

SAMCNT DC

XL2 1 C1

308

DC

309 AD RS AV DS

XL6 1 G' C L2

MUST lHMEOIATELY PRECEDE 1 ADRSAV 1

310 STATZ DS CL2

311 STAT3 DS

CL2

312 ERTl OS

CL2

·313 SA VS AM DS

CL.1

314 BL AK NT DS Cll

315 LPOltNT DS

Cll

3ll: NOEM DS

Cll

317 TRI CT DS Cll

318 HICHCT DS

CU

319 ~SECS OS

CL2

320 BU SUB OS CL3

321

ORG

322 ONEIN EOU

3~3

0$

X'13EC 1
*
31CL50

CHAR.COUNTER SAMPLE AREA

324

OS

325 HIOI N EOU

3U SEMIO OS

*tl2
31CL50

TJ MING EB2 SAMPLE AREA

327 ENTUU OS CL2

0001 0002 0800 0878 0216 u212
021A

328 329

~*******~*Q*U*A*T*E*S*~··~************************************·················*

330 ····~..*********~**********************************··············*·····

331 XRl EQU 1

INDEX REGISTER l

332 XR2 EOU

333 LPI

EOU

334 UCSFLG ECU

2
x·aoo·
x·s1e·

INDEX REGISTER 2 LINE P~INTER IMAGE AREA

335 LINK EQU 336 TEST EQU 337 PRINT EQU

X'216 1 X1 212 1 x·21A 1

ENTRY TO OCP CtiAltJ ROUT INt: ENTRY TO DCP READ DATA sw·s ROUT. ENTRY TO OCP PRINT ROUTINE

DATE 25AUG69 EC NO. 816485

310CT69 816529.

11MAY70 816671

01Nr:JV70
816764

19FEB71 818912

PRClG IO
PAGE

OEOJ-3
3

_______ - - ...,...-~-----~----..;.....,..-..._

- - - - ..

-··-··

IBM MAINTENANCE OIAGNUSTIC PROGRA~

J · ·
c
e

E033 CHAIN CHARACTER COUN1ER TEST

ERr. LOC 0 EJECT CODE

ADDR ST~T SullRCE ; TATEMEt><T

00[6
ocos
0222
0208
0004 FFFF

331? BUSY H:lU X1 E6'

339 ARR

fQU x. 8.

340 HALT <:OU x·222·

341 342

'S*BYTE~O:=N5lQEU

SWITCH X'2

ECUATES 08'

3't3 * cor~1 ROL PGIJ. SENSE Sllll 'ICHES

344 SSW05 EQU X'04'

345

END

c

25899'.,.5 3A
PRINlER Busv COCE ACDR.RECAll REG. E~T~Y TO DCP ERRCR HALT POUTINE DCP SENSE SWITCH ~~EA PRINT HE~~AGES CN ~FCU

c
c
c
..c, _ e
·
·
I···-
I 0
I c.
I c
r~.·
I r
r...·.

c
,,..
i.: _..., ..
1 ... -
i
j 0

0

(

DATE

Z5AUG69

EC NO. 816485
~·

ti.

c

310CT69 816529

llMAY70 816671

01NOV70 816764

19FEBll 818912

PR.CG IO PAGE

OE03-3
3A

. ----------~.,..,·,..·z-ommliill·iliilft0-.·.,.·1111e·D:o.1n-..··lllllw. ~llilm-llill-·-~,,.,,..,. ..t _.._ __

IBM MAINTENANCE DIAGNOSTIC PROGRAM E033 CHAIN CHARACTER COUNTER TEST

CROSS-REFERENCE

PART NO. PAGE

2589955 4

· JBH MAINTENANCE DIAGNOSTIC PROGRAM

· E033

CHAIN CHARACTER COUNTER TEST

CROSS-REFERENCE

PART NO. PAGE

SYMBOL T LEN VALUE OEFN

·
e
,·., ·
·
r
. ·~"·"·
· · ·
·
·

AOMAX A 002

ADMIN A 002

AORSAV A 002

AOkUN A 003

ALMLAS A 002

ALRSVO A 004

ANYMIS A 004

ARR C COl

BACTR A 004

BLAKNT A 001

BROUT A 004

BSEXJT A 004

BUSCTI A CC3
eusua A 003

BUSY C 001

CEND A 004

CHEND A 004 CHEON A 003

CHKNE A 003

EMON A 004

ENTUU A 002

ERTl A 002

ERUOT A 012

EXCASE A 003

E03

A 001

FEMAX A 002

FEMAXX A 002

FEMIN A CC2

FEMINN A 002

FLOOP A 006

FOUR A 002

FRATE A 003

GAWAN A 006

GO{)DUN A 004

G!lPRT A 004

GOTWUN A 006

GUUDY A 004

HALT C 001

HICHCT A 001

HICNT A 006

HMOOP A 004

HOOEl A 002

HOSAM3 A OOS

ISSEQ A 004

JUMPl T A 004

Lt.SADR A 002

LINK C 001

LOAOUN A 004

LOCNT A 006

LOLPAD A 006

LPI C 001 LPCJUNT A 001

LUGAN A 004

MIFTV A 002

MISEM A 004

~OVMCR A OC4

MSECS A C02

NEGl A 002

NOeIT A 003

.._OEM A 001

NCSEQ A COS

NOSHFT A 004

NOUCS A OOfi

ONE A 002

0072
0070 OOBE 0880 0066 OC3A OAFC
0008 0008 ODC7 0024
0 0 1>9 OD5C ODDO OOE6 OC3E 082F 0A06 CA03 OB81 lFFF
ODC4 0084 007C OAOO 0059 OD76 0057 0074 002E 0053 0079 OOOE
oe2e OA5A OBED OCFl
0222
ooce
OBCC 0840
006E 0C69 OC9B 0A86 0064
0216 0BE6 OC06 OC2B 0800
OOC8
OA90 OD6C 0821
0A90
coco
0068 0807
OOC9
ocea ocn
OB6B OD4F

0289 0288 0309 0156 0283 0190 0095 0339 0249 0314 0260 026q
0280 0320 0338
0191 0115 0088 0087 0137 0327 0312 0302 0297 0003 C279 0291 0278 0290 0262 C276
02~6
0251 0114 C048 0172 0243 0340 0318 0160 0122 0287 0205 0221 0064 0282 C!>35 0167 0178 0187 0333 C315 0066 0286 0111 0069 0319 0284 0104 0316 0229 0218 0133 0274

CNEIN A 001 13EC 0322

REFERENCES

0059 0060
0115* 0116 0144* 0145 016'7 0192 0188 0089 0260 0230 0240 0242 0066· 0071· 0073 0260· 0265 0261 0261· 0262· 0264 0168 0110 0084· 0095 0097· 0091 0123 0065· 0068 0149· 0016 0044
0035

0191* 0192

0160 0289
0178
0288 0264 0233
0029 0094 0113 0166 0186 C204 0217 0220 0106
0038
0158 0237
0046 0092 0111 0164 0184 C215 0218 0030"' 003lt* 0203 0205 0229 0059·
0126 0121
0202 02Ct, 0208 0056
0116 0145 0255 0161 0163 0183 0060* 0174 0179
0133 0133 0134 0134 0064· 0251· 0253 0254 0069 01oe:
0072
012'1* 0131· 0135* 0122 0109
0086· 0090* 0103* 0107* 0231* C241* 0225 C210 0212 0214 0130 013.6 0071 0090 0107 0135 0142 0143 0159 0244 0251 0262 0138. 0197 0221

0228 0226
0172

0248 0246
0223

0249 0235

0266 0238

0241

·

~\HBOL T LEN VALUE DEFN

REFERENCES

· OOF A 002 OD&A 0285 PAZZ A 004 OACF 0086 PLOOP A 004 occc 0234

0065 0098 0245

·

PRINT c 001 021A 0337
RTNl A 001 OAOD 0023 SAHCNT A 002 00£,6 0307

0041 0050 0015 0155· 0159* 0160 0172* 0178 Cl82 0189

·

SAVIT A 006 SAVSAM A 002
SBYTEO c 001 soc A 006

OC34 OOC6
0208 0028

0189 C313 0342 0261

0177 0181 0154* Cl75 0039 0048 0268

0180

0187

0189· 0198

0200

0222

SEHIO A 050 lfF[; C326

0067

SENAT A 004 OA3a 0036 0032

· SHLONG A 006 089F 0145 SI MYNA A 004 OAFF 0102 SLOOP A 003 0689 0139

0128· 0132· 0096 0146

SPUOT A 003 OACC 0017

0055 0129

SSW05 c 001 0004 0344

0039 0048

STAT2 A 002 coco 0310

0124· 0125

·

STAT3 A 002 OOC2 0311 TAK SAN A C03 OABl 0075 TECHBI A 004 OA3C 0037

0036· 0037 0078 0028· 0033*

TEST c 001 0212 0336

0027 0252

THRTtN A OC2 00'55 C277

00t;7· 0234 0243

TIPMU A 004 OA6B 0055 0049

·

TITLl A CC5 0098 0300 TOLCNG A 004 OC3E 0266
TOME A C06 0Cl8 0182

0053 0263 0176

·

TRI CT A 001 ODCA C317

TWO

A 002 0051 C275

TWOIN A COl l9FO 0325

0232· 0244* 0182 0014 0085 0102 0137 0153 Cl99

UCSFLG c 001 0878 0334

0031 0162 0113

UOALT A 004 OA54 0046

0040

·

WHAIN XRl

A 003 c 001

OD7F 0001

C298 0331

0029· 003~
0067· 0068 0069· 007C 0142* 0167· 0190· 0193 0235 02~6 0238 C239

0070 C109· 0114· 0117 0197· 0198· 0201 0203 0243·

0138* 0140 02C5 C2C7

0141 0224

0141 0229

· XR2

C OCl 0002 03'32

0074· 0075 0076 007t· 0077 0080 0085* OC87 0087· CC88 01C2· 0104 0104· 0105 0115 0121· 0122· Cl37· Cl3~ 0143* 0144 Cl53· Cl56 0156* 0157 0191 0199· 0200· 0209 0211 0213 0221· 0222· 0223 0224 0233·

·

VABIT A 004 0803 0103 ZERO A 002 0040 0273

0234* 0236 0239 0058· 0114 0154 0155 0175 0180 0187

·

ZERSAM A 006 0887 Cl55 0190 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY ·

0

·

·

· · ·
!
I:~:

DA TE 2 5AUG69 EC NO. 816485

310CT69 816529

llMAVlO 816671

01NOV70 816764

l9FEB71 818912

:>ROG ID
PAGE

OE03-3
4

1.
' I
\o

DATE 25AUG69 EC NO. 816485

310CT69 816529

11MAY70 8lf:i67l

01NOV70 816764

19FEB71
616912

PROG ID PAGE

OE03-3
4A

·

·

J

·

·

· ··

·

·

·

·

·

·

·

·

·

·

·

.f:. r

!

J BM "AJNTENANCE OIAGNOSTI C PROGRAM

PART NO. 2589955

···'· E033 CHAIN CHARACTER COUNTER TEST

OBJECT CARO LISTING

PAGE

5

· THE CHARACTER

INDICATES A BLANK COLUMN ANL THE CHAR/ICTERS D E H INDICATE NUMERIC SHIFT.

· CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 Cl 4~ THROUGH 64 Cl 65 THROUGH 80 Cl 81 THROUGH 96

t.··'., ·
··

T+-Y:8C< & e-4 T+-ZC50T-DC*.2DA*

·-
8A HH@Z HOH*BF~D

I \ T+-00 .A· CAEP D ~ *-OAC U *CO C*-

.
*CSL-ClBG s.-cT-
.
< J 11 ·COYii!G-7GO-D
.

?C·:· ·Q/8al-D+ I CU D -T2l' t /OHE&Ju
.
-.·MOl A·=C-DUEO
.. .

. .. - - .. 'Iii+ +e·'He 1'Huco HCNM 1 KHE0330002
.. . l CHI 7GCM· &O tOH* 1LaE0330003

..~.
·
· ·

T+-:WOH*ICT698_$ T+-_/OH*CCIHABO<

2-&-a>&,OOH*H~dH

.

.

4 -6=C&Df?-5U4 D

C28B_$B /XO I B-
.
B~ iil0£.718-HA>B
.
Ct.HUTQBCOT -&>

T+->*BC3·C·4sAO> T+-?PCS8( &6=COL
T :r-OK; IHABIBG. s.

-C-.iH - CllH -
. &>II ~·%HBF~i
-~eBGC&#B &>'GJY)

C0.13&5IOH&.EG}t-:
. .
< &7FCM~< &66CM7
Jc-01_-s11~aH;fH

(2;HB $-- lt4&E iil
.. .
iJ/ SCO f2&5IOHO A<+HlOC-Acsu u ··
.
8F-.CB J f-l+HA*+D
s -Fa &C2DB*+ &6
AC 4AC*QH-.HAE--H

C*Ulliil AB_I /OH

.H*HAB0-.2/C# /OH
. .
IIQ(3LOA8: SHY

AP

LQACMGl6 -5

6C~a( &66CNX2AAD
..
G.-4ACSQ(N·HBG 4

saeo =Z@E0330004
.
SBEH ·BsE0330005
. . <al Rl·E0330006
IC H 1ROE0330007
. ··o- SHME03300J8
AC*Q 91UE0330009

·
·
··
.~.
·
·

·
. T+-llCM72-JDI &6
T+-2H73QAC*SB /X
T+-3COH*BH>APlilY)
T+-3== I B-C2TQeCN<

6CNG A ?WOH*BH>A ?l-HC1X4 ·HABD4 30H*BH>A04>Yl30-H
.
6 -5Nl.- CCM=) <

MaY~TC&Dll-S(Cil-0
.
... 7.aYFVL& CC·? -
l63QBC·E+ ll94
Ca'fDNL- CCM-=J <

·
FC 011-660-D._3&
. ~
2ABZ'-.Ol2 KKBD I
.
. LZ &X /OHZSEP
C·Y&-CO t 2&5liYO

T+-49.0H*B+t:>ARGY·
. .
T+-6? ;J 'fTl@?A
.
TC 6aO*--Rl·M

FOH*·BH>AOC- · C2 · 5
.
-D·BGCKT /0
.
&D· 0.TAcM?C2<G
················

- 0 I CH*8.0T42C·T ·
.. . .. . . t B & CtJ ... W4
150?C2<GRKGJIT6M?
················

&OH·eET&HCMS< -7

·······&···

D

.-."/"

Tl;.T2JLAl@N OIP

····$···········

Cit

·

8C$8( &6=CO$& &C

.

2DA080 l20 =80 p

. 2/5RC <C2"HDKCO
P l-DCN&a C*YCLii
.
. . &CNOI -7&CM·2-&-.
···a"""++- c~ s

·
BJ< l:VE0330010
20 u a&aE03300ll
-.
. HC·U 32~E0330012
AC<O J8DE0330013
. . A9-4 3LBE0330014
6 )Z LA<ED330015

D&<IHO*XN&<LO&lP 084 ::QE0330016
················

·

c

U

ASC R A SO Q

*SSE0330017 20280202710 2197lroHE0330018

·

·

· ------------------ PAGE----------------------------- OATE

2 5AUG69

EC NO. 816~85
.,~

...-

310CT69 816529

------LAST

11MAY70 816671

ClNCiV70 816764

l9fE8ll 8H3912

PROG IQ
PAGE

OE03-3 5

· ·

· ·

· · · · ·
,..;

·

· ·

·

· · ·

·

· ·

· ·· ·· · ··· ··· ··· · · · ·· · ·· · · · · · · · · ·· ·

·

· · · · · · · · · · · · · · · ·, · · · · · · · · · · · · · · · 18M MAl"TENANCE DIAGNOSTIC PROGRAM

PARJ NO. PAGE

t
5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM
1

PART N:l. 5132775

PAGE

lA

LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3741

LOSO 3340 STANDALONE MICROCOOE LOADER MOD 12 - 3741

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

)ERR lOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

0000

OODO C2 01 0000

0004 C2 02 0100

0008 F3 43 08

0008 71 41 58

OOOE 70 43 56

OOll 78 04 55

0014 DO 90 48

0017 78 02 55

OOlA 00 90 OE

0010 F3 43 08

0020 71 44 52

0023 71 42 54

0026 F3 41 00

0029 01 42 29

002C F3 43 08

002f 70 42 56
0032 79 OA 55

0035 00 90 48

0038 8C 75 75 0275

0030 E2 02 76

0040 5f 00 05 01

co 0044 00 01 OE

0047

87 0159

0000 0000

0048 FO 38 50 004E 00 87 08

0051 0200 0053 007F
noss 0000
0057 4000

0052
0054
0056 0058

0059 4007D540F5Flf3F2 0075 0061 F7F7F44040C5C340 0069 F5F7FlF8F7F44040
0011 40404040E7

0100

2 ·

LAST CHG 19MAY7t

3

TREP

4

OECK 4

5
6 *
7 LOS

SEQ 0

COM

THIS PREVENTS GENERATION OF OBJECT DECK

START x·o·

* * 8 **********************************************·············*~*******···

9

BOOTSTRAP - FIRST RECORD

~

10 ******************************************·~···························

11 12
* 13

***************************************·************············~····**

* *

LOADER FOR 3741 THIS PROGRAM IS CONTAINED IN THE FIRST RECORD ON 'THE DISKETTE

*~

* 14 USED TO LOAD THE 3277 MICROCODF. IT IS READ J~TO CORE STARTING *

15 * AT LOCATION 0000 BY INITIAL PROGRAM LOAD. TH~ BOOTSTRAP ROUTINE *J

* * 16

READS THE NEXT nm RECORDS INTO CORE STARTING AT LOCATION 512 AND

* 17 * BRANCHES TO THIS NEXT ROUTINE.

18 ·

·)

19 ******************************************************$***************·

20

USING BOOTS1XRl

21

USING BOOTS,XR2

22 SOOTS LA O,XRl

LOAD BASE REGISTER

23

LA 256wXR2

LOAD BASE REGISTER

24 BOOTl SIO X'08',X'43 1

NORMAL RESPONSE TO 3741

25

LIO FUNBTli1XRlJ,X 1 41' LOAJ FUNCTION REGISTER

26 BOOTlA SNS SNBVTlC,XRll,X 1 43'

SENSE I/O TRANSFERR LINES

27

TBN SNBVT1-l(,XR1J,X'04~ TEST FOR ON-LINE BIT ON

28

BF BOOTlE(,XRl>

GO GIVE AN H5 HALT

29

TBN SNBYT1-1(,XR1),X'02' TEST FOR READ BIT ON

30

BF 600TlA(,XRl)

LOOP UNTIL READ BIT IS ON

31

SIO x·oa·,x·43·

NORMAL RESPONSE TO 3741

32

LIO BOOTllf,XRIJ,X'44 1

PUT READ ADDRESS IN DSAR

33

LIO LENCT1C,XR11,X'42' PUT 255-LENGTH IN LC REGISTER

34 35

*< SIO o,x·41·

TIO

1XRlhX'42'

READ THE NEXT RECORD TEST UNTIL 3741 NOT BUSY

36

SID x·os·,x·43t

NORMAL RESPONSE TO 3741

37

SNS SNBVTl(,XRlJ,X'42 1 GET THE STATUS BYTE

38

TBF SNBVT1-l(,XR1),X 1 0A1 PARITY READ ERROR OR LCR OVFL CHECK

39

Bf BOOTlEI ,XRll

GO TO THE ERROR HALT

40

MVC ll7(118,XR2),629

PUT OATA INTO CORE

41

LA 11SC,XR2>,XR2

INCREMENT POINTER FOR NEXT RECORD

42

SLC BOOTS+5tl,XRll ,BOOTS+l(,XRl) DECREMENT RECORD COUNT

43

BNZ BOOTlAl,XRl)

CONTINUE WITH A SECOND RECORD

44

B

NEXTC

45

GO TO DIAGNOSTIC LOAOEP.

46 BOOTlE HPL H5.HH

3741 NOT READY OR ERROR

47

8

BOOTl ( · XRl )

GO TRY AGAIN

48

49 BOOTll DC AL2(512J

50 LENCH DC

XL2 1 007f'

51 SNBYil DC XL2'0'

52 FUNBTl DC

XL2 1 4000 1

53

54

DC

Cl29' PN 5132774 EC ~71874

x·

54

54

54

55 · 56

ACTUAL VALUES ARE IN ACTUAL CARO.

57

ORG 256

58
59

************************M*IC*R*O**C*OD*E**L*OA*D*E*R********····························

610 ·*·*·*·*·*·~·*·*·*·*·*·*·**·*·*·*·*·*·*·*·*·*·*·*·*·*·························································································t

62
63 64 65 66

·** * *

·
THIS LOADER IS ENTERED INTO CORE AND BRANCHED TO BY THE PRECEDING *~ BOOTSTRAP LOADER. THIS LOADER LOADS THE ACTUAL MICRO CODE LOADER · AND BRANCHES TO IT TO BEGIN LOADING THE MICRO CODE. THE SUBROUTINE· TO READ RECORDS FROM THE DISKETTE WHICH IS WITHIN THIS LOADER IS *~

cz 0100 C2 02 OOFC
0104 01 osao
0108 84 08 4E
0108 so 43 58
OlOE 88 04 57
0 111 EO 90 4tf
0114 88 02 57 0117 EO 90 OF OllA F3 43 08 0110 Bl 44 OB
0120 Bl 42 56 0123 f3 41 00 0126 El 42 2A
0129 so 42 58 012C 89 OA 57 012f F2 90 19
0132 F3 43 08
0135 so 43 58
0138 BS 02 57 Ol3B F2 10 09 013E BB 08 5d
0141 EO 90 39
0144 F3 43 08
0147 co 87 0000
0148 FO 38 50
014E EO S7 OF
0151 107i=
0153 0000 0155 0001
0157 FFFC
0159 3C 40 OSFF 0150 OC FE 08FE 08FF
0163 co 87 0100 0167 70 C5 00 016A F2 81 14
0160 9C 02 7F 03 0171 9C 00 80 01 0175 02 01 04 0178 lC 00 0000 00 017 D CO 87 0163 0181 co 87 0200

OOFC 0107
0152 0154 0156 0158

· 67 · USED BY THE MICRO CODE LOADER TO READ THE DISKETTE RECORDS.

e

68 69
70

*····························*···~································--····

11 ·

12 ·· SUBROUTINE TO REAO ONE CARO.

73 ·

1't

USING CDREAO-lt ,XR2

75 COREAO LA

76

LA

17 AJNPUT EQU

CDitEA0-4,XR2 lNPUT,XRl
·-1

LOAD 6ASE ADDRESS SET

78

ST

79 DOSIO SNS

80

TBN

81

SF

82

TBN

83

BF

84

SJO

COEXIT·3C.XR2i,ARR SNBVTl(,XR2},X 1 43' SN6VT2-l{,XR2t,x·o4· ERR( ,XR2J
SN8VT2-lC,XR2),X'02'
DOS I Ot ~xR2)
x·oa·,x 1 43·

SET UP RETURN ADDRESS SENSE 1/0 TRANSFERR LINES TEST FOR ON-LINE BIT ON GO GIVE AN H5 HALT TEST FOR READ BIT ON
LOOP UNTIL READ BIT IS ON
NuRMAL RESPONSE TO 3741

85

LIO AINPUTC,XR2l.X 1 44'

PUT READ ADDRESS IN OSAR

86 87

LIO lENCT2f.XR2),X 1 42·
SID o,x 1 1ti.·

PUT 255-LENGTH IN LC REGISTER READ THE NEXT RECORD

88

TIO *ftXR2) 1 X'42 1

TfST UNTIL 3741 NOT BUSY

89

SNS SNBYT2(,XR2),X 1 42'

GEf THE STATUS BYTE

90

TBF SNBYT2-l(,XR2),X 1 0A1 PARITY RE~O ERROR CR lCR OVfl tHIECK

91

JF

ERR

92

SIO x·os·.x·43·

GO ttALT IF EIT~t:R CONOH!Oi\! EXISTS NORMAL RESPONSl TO 3741

93 EOJCHK SNS

SNBVT2(,XR2),Xi4~!

SENSE I/O TRANSFERR LINES

94

TBN SNBYT2-l(,XR2J,x·o2· CHECK FOR READ BIT ON

95

JT COEXIT

GO ON IF HORE TO SE READ

96

TBN SNBYTZ ( ,xR2 t ~x · oa ·

CHECK FOR EHD OF JOB

97

BF

C?8

SIO

99 CDEXI T 8

100.

EOJCHKl,XR2)
x·oa 1 ,xe43· *-*

~EEP ON CHECKING NORMAL RESPONSE TO 3741 CONTINUE ON PROCESSING

101 ERR

HPL

102

8

··3741 NOT RElDV OR ERROR GO TRY START 1/0

103

104 LENCT2 DC

XL2 1 007F 1

105 SNBVT2 DC XL2 1 0 1

106 N:

DC

Xl2 1 0001'

107 NEG4 DC Xl2 1 FFFC'

108 109 NEXTC MVI

xi 8Ff 1 ,c. '

CLEAR PRINT FIELD

110

MVC X1 8FE·C255),X 1 8FF·

111

112 NEXTR B

CORE AO

GO REAO /.. CARO

113

CLI 0 l , XRll · C1 E'

114

JE CICREP

IF THIS IS END CAR.O, GO ON (LOADER-CHG> CKREP

115

116

MVC MOVE+3(3,XR21,03(,XR1) SET UP TO HOVE TEXT DATA TO

117 LPTONE MVC MOVE+4(1,XR2110lC.XRll

118

119 MOVE

120

121 122

*CKREP

LA MVC
8 8
EC.OM

04( ,XRl ),XRl
*-*C*-*) ,·-·I 1XRl)
NEXTR x·200·

INSTRUCTION TO MOVE TEXT DATA CONTINUE LOADING. GET NEXT RECOftO

BEGIN GENERATING TEXT CARDS

·

·

OATE 15JUL 76 EC NO. 5718i4

PROG ID PAGE

lDS-O)DATE 15JUL76 1 EC NO. 571874

PROG ID PAGE

LOS-0 1A

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. 5132775[8M MAINTENANCE OIACNOSTlt PROGRAM

PAGE

2

PART ~O.
PAGE

5132715 2A

LOSO 3340 STANDALONE MICROCODE LOADER MOO 12 - 3741

LOSO 3340 STANDALONE MICROCODE LOADER MOO 12 - 3741

ERR LOC. OBJECT CODE

AOOR STMT SOURCE STATEMENT

ERR LOC 08JECT CODE

AODR STMT SOURCE STATEMENT

OlFC
OlfC 0100
0200

OlFO

0200 C2 01 1000
0204 7C BO 00 0207 02 01 03 020A,34 01 0940 020E 38 40 093f 0212 co 90 0204
0216 35 01 OlfD 021A 34 01 0225
021E 34 01 023F
0222 co 87 0000
0226 OC 03 0933 080F 022C 30 E7 0880 0230 F2 01 OD
0233 OC 03 0933 OBCF
0239 F2 87 04
023C CO 87 0000
0240 t:2 01 0880
0244 70 E7 00 0247 F2 01 04
024A SC 07 Sf 4F
024E 40 02 5A 092F 0253 f2 01 23
0256 3A 80 092C
025A 40 03 5F 0933
025F F2 01 26
0262 06 30 0933 0912
0268 70 E7 00
0268 CO 81 02C4
026f 70 04 00 0272 F2 81 lA 0275 co 87 023C
0279 FO 6F 03
027C 38 80 092C 0280 co 90 0222
028~ co 87 023C

124 ·

125

ORG X'OlFC·

126 LDAOOR DC Al2( CORE AO) PICK UP ADDRESS OF READ SUBROUTINE

127 ·

128

ORG X'0200'

129 *************************************************·····················

130 ·
131 *

3340 MICROCODE LOADER

* ·

132 ·

·

113343 ··········································~····························

135 LOADER LA UCOOE,XRl

POl~T TO MICROCODE STG AREA

136 ·

137 CLRSTG MVI 0(,XRllrX'80 1

138

LA 3( ,XRl ),XRl

FLAG All U~'.: SEO CONTROL

139

ST

WORKN,XRl

STORAGE AREAS

140

TBN

WC~KN-1,BITl

AS DATA AREAS

141

BF CLRSTG

142 143 144

*** ------------R-E-AD::-O-NE--M-I-C-RO-C-O-D-E--R-EC-O-R-D---------------------------

145 ·

146 READER L

LOADOR,XRl

SETUP LINKAGE

l.47

ST READ1+3,XR1

TO CARO READ

148

ST

149 *

150 REAOl 8

READ+3 rXRl

SUBROUTINE RD FIRST CARO OF SECTION FAO

151 ·

152

MVC SE'1(4), I NPUT+95

INITIALIZE CARD

153

CLI HJPUT,C 'X'

SEQUENCE CHECK AND

154
155 *
156

JNE CK CARD MVC SEQ(4) t1NPUT+79

BRANCH If 96 COLUMN CARO INITIALIZE CARO SEQUENCE

157

J

CK CARD

CHECK FROM 80 COL COMPRESSED CO

158 ·

159 READ 8

RO NEXT CARO OF SECTION FAO

l6C\ ·

lol :KCARD LA

162 *

163

Cll

INPUT ,XRl 0( , XR lJ , C1 X'

POINT TO CARO READ IN AREA BRANCH I F NOT

164

JNE CKID

80 COLUMN COMPRESSED FORMAT

165 ·

166

HVC 95(8,XRl),79( ,XRl)

167 *

168 CKIO CLC 90(3,XRll ,FAOID

POSITION IO ANO SEQ FOR CHECK ING BRANCH IF

169

JNE

IOE~R

WRONG SECTION ID

170 ·

171

SBN I NO ,SEQCK

INITIATE CARD SEQUENCE CHECK ING

172 ·

173

CLC 95(4,XRll,SEQ

BRANCH IF

174

JNE SEQERR

INCORRECT CARD SEQUENCE

175 ·

176
177 *
178

AZ

SEQ(4J,OU1J

cu 0( ,XRl J ,c· X'

INCREMENT SEQUENCE CHECK NUMBER BRANC~ IF COMPRESSED

179

BE CK TYPE

FORHAT MICROCODE 05JECT CARO

180 · 181

Cll 0( ,XRl) ,c· M'

SR:,NCH IF 96 COLUMN

* 182
183 184

JE

CHPRS

B

READ

MICROCODE OBJECT CARD GO TO READ ANOTHER CARD

185 · 186 IOERR HPL
187 ·

Hl,HO

*** HALT 01 ***

188

TBN I NO,SEQCK

BRANCH IF SEQUENCE CHECKING

189

BF REAOl

HAS NOT VET BEEN INITIATED

190 ·

191

B

READ

GO TO READ ANOTHER CARO

0288 fO 6F 76 0288 co 87 023C
028F C2 01 08D't 0293 3C 00 02A 7 0297 OC 00 02AD 02A7 0290 70 DO 00 02AO f2 01 03 02A3 7t 2A 00 02A6 OE 00 0804 OBIJlt 02AC OE 00 0804 0804 0282 36 01 0911 0286 OE 00 02A7 0905 02BC 30 54 02A7
02CO co 82 0297
02C4 30 C5 0881 02C8 CO 81 0305 02CC 30 E3 0881 0200 F2 81 04 0203 CO 87 023C
0207 30 00 0886 OZOB CO 81 023C 02DF OC 01 093C 0889
02E5 CO 87 06F9 02E9 CZ 02 088A 02ED 6C 02 02 02 02Fl 02 01 03
02F4 E2 02 03 02f7 OF 00 0886 0909 02FD CO 01 OZED 0301 CO 87 023C

192 · 193 SEQERR Hrl H21HO

···HALT 02 **·

194 · 195

8

READ

GO TO READ ANOTHER CARO

196 ·

197 -----------

198 ·

COMPRESS ONE MICRO-CODE RECORD

199 ·
ZOO CMPRS LA RECN,XRl

POINT TO MICROCODE ~ECORD

201 · 202 203 C~POl 204 ·
205
206 207

MVI Al+ltO MVC A2+U U ,Al+l
CLI oc ,xRu ,x·oo·
JNE Al MVI 0 ( , XRl ) , X 1 2A1

SETUP BYTE COUNT IN ALC INSTRUCTIONS
CHANGE ANY HEX t 00'
BYTE IN MICROCODE RECORD TO HEX '2A'

208 · 209 Al
210 A2

ALC RECNI *-* ),RECN ALC RECtH ·-· t, RECN

SHJFT OFF TWO UNUSED BITS FROM EACH BYTE IN RECORD

211 · 212

A

NEGl1 XRl

UPDATE RECORD POINTER

213 ·

214

ALC Al+l (l) ,ONE

UPDATE SHIFT BYTE COUNT

215 ..

216

CLI Al+l,RECN-REC

LOQP UNTIL ALL UNUSED BITS HAVE

211

BL

CMPOl

BEEN SHIFTED OUT OF RECORD

218 ·

* 219 · - - - - - - - -

220

CHECK "ICROCODE RECORD TYPE

-----·-----

221 · 222 CKTYPE
223
224 ·
225
226
227 · 228 229 ·

Cll REC+l1C 'E' BE REPFMJ

BRANCH IF ENO RECORD

CLI REC+1,c·r·

BRANCH IF

_______________________ JE TEXT

8

READ

TEXT RECORD GO TO READ NEXT RECORD

,

223310 -· ---

PROCESS MICRO-CODE TEXT RECO~D

232 ·

233 TEXT
234
235 *
236
237
* 238
239

CLI REC+610 BE READ

MVC CSAR(2) 1REC+9

B

GENAOR

LA REC+lO,XR2

BRANCH IF NO uAT A BYTES IN TEXT RECORD
SETUP CONTROL STG ADDRESS GENERATE POINTER TO STG AREA
POI NT TO OAT A AREA. OF RECORD

240 ·

241 TEXTOl MVC 2C3.XRlh2CwXR2)

STORE MICROWORD

242 ·

243

LA

3( tXRU ,XRl

ADVANCE

244

LA

3 C9 XR2 J, XR2

POINTERS

245 · 246
247

SLC REC+6, THREE CU BNZ TEXTOl

DECREMENT DATA BYTE COUNT BRANCH If NOT YET ZERO

248 · 249

B

READ

GO TO READ NEXT RECORD

250 ·

DATE

15JUL76

EC NO..; 571874

PROG ID PAGE

LDS-0 DATE l5JUl.76
2 ec NO. 571874

PROG ID
PAGE

LDS-0 2A

· · · ·· · · · · · · · · · · · · · · · · · · · · · · · · · · · ·"""""

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

. 'IBM MAINTENANCE DIAGNOSJ:.,;JJ: PROGRAM
·l;~(: '

PART NO. 5132775 lBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

3

3340 STANDALONE MUCROCODE LOADER MOO 12 - 3741

r~: ~·A,:; .
ERR LOt OBJECT CODE

ADDR STMT SOURCE STATEMENT

LOSO 3340 STANDALONE MICROCODE LOADER MOO 12 - ~......_

·ERR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

. 0305 C2 02 7600
0309 80 FF 00 030C F2 81 97
030F 2C 01 093C 01 0314 CO 87 06F9
0318 E2 02 02
0318 2C 02 093A 02
0320 38 80 0938 0324 F2 90 4f
0327 38 80 093C 0328 f2 90 08
032E IC 00 0939 01 0333 f2 87 05
0336 IC 00 093A 02
0338 OC 01 093E 093A\
0341 OE 00 093E 093.F 0347 F2 20 06 034A OE DO 0938 0907:1
0350 co 01 0341
0354 38 FD 0938
0358 OE 00 0930 09301 035E F2 20 06 0361 OE 00 0938 09.00J
0367 co 01 035,
0368 38 f5 093fs 036F 3A 90 0938
0373 F2 87 1E
0376 QC 02 0940 09~\
037C OE 00 C938 0916:. 0382 OE 02 0940 094f» 0388 CO AO 037C
038C CO 01 0382
0390 3B EO 0938
0394 4C 02 02 093 A
0399 02 01 03 039C E2 02 03
039F BO Ff 00
03A2 co 01 0318
03A6 E2 02 01 03A9 34 02 0940
03AD 38 08 093F

252 253 254

*·*******M*O*D*IF*Y*C*O*NT*R*O*L *S*T*OR*E**IM*A*GE**W*IT*H**PA*T*CH**A·R·E·A···D··A··T·A························**·

255
256
257

*

·

*******************········································************* 1

258 REPFAO LA PATCH,XR2

POINT TO PATCH AREA

259 ·

260 REPOl C.ll Ol,XR2),X 1 ff 1

BRANCH If PATCH

261

JE REPX

TERMINATOR BYTE

262 ·

263 REP02 MVC CSAR,1(2,XR2)

SAVE CONTROL STORE ADDRESS

264

B

GENAOR

GENERATE POINTER TO STG AREA

265 ·

266

LA 2(,XR2),XR2

ADVANCE PATCH AREA POINTER

267 ·

268 REP05 MVC 3PREG,2(3,XR2t

GET CONTROL STORE DATA

269 ·

270

TBN C,BITO

BRANCH if

271

JF REP12

MICRO-INSTRUCTION PATCH

Z12 ·

273

TBN CSARO,BITO

BRANCH IF

274

JF REP06

LEFT CONTROL STORE PATCH

275 ·

276

MVC CR,lU,XRl>

RETAIN LEFT OATA BYTE

277
278 *
279 REP06
280 *
281 REP07

J

REP07

MVC Y,2 U ,XRl)

MVC WORK+lt2J,Y

SKIP NEXT INSTRUCTION RETAIN RIGHT DATA BYTE DATA BYTES TO WORK AREA

282 ·

283 REP08 ALC WORK+ltlJ,WORK+l

GENERATE

284

JNOL REP09

RIGHT DATA

285

ALC Clll,TWO

PARITY BIT

286 REP09 BNZ REP08

287 ·

288

SBF t,x·Fo·

RESET UNUSED BITS

2ea ·

290 ~EPlO

ALC WORKClJ,WORK

GENERATF.

291

JNOL REPll

LEFT DATA

292

ALC C.tll,EIGHT

PARITY BIT

293 REPll BNZ REPlO

294 ·

295

SBF c,x·Fs·

R£SET UNUSED BITS

296

SBN c,x·90·

SET DATA ANO PARITY BITS

297 ·

298

J

REP15

GO TO SAVE CONTROL STORE DATA

299 ·

300 REP12

MVC

WORKN(3).~PREG

CONTROL STORE DATA TO WORK AREA

301 ·

302 REP13 ALC c111,x10

GENERATE

303 REP14 ALC WORKN(3),WORKN

MICRO·WORD

304

BOL REP13

PARITY BIT

305

BNZ REP14

306 · 307

SBF c,x·eo·

RESET UNUSED B~TS

~08 ·

309 REP15 MVC 2(3,XRlJ,QPREG

SAVE PATCHED MICROWORD

310 ·

311 REP16 LA JttXRl),XRl

ADVANCE

312

LA 3(,XR2l,XR2

POINTERS

313.

314

Cll 0( ,XR2J ,x·Ff'

LOOP UNTIL

315

BNE REP05

TERMINATOR FOUND

316 ·

317 REPX

LA 1(1XR21,XR2

LOOP

318

ST WORKN,XR2

UNTIL

319

TBN WORKN-l,BIT4

ENO OF

0381 co 90 0309

320

BF

321 ·

PART NO. 5132775

PAGE

3A

PATCH MEA

DATE

l5.JUL76

EC NO. 571874

PROG ID PAGE

lOS-0 ·DATE 1SJUL76
3 EC NO.. 571874

PROG 10 PAGE

LOS-0
JA

lf>M MAIMTENAflt.tE DIAGNOSTIC PROGRAM

PART NO. PAGE

5112175 I8t: MAIN1ENAMC.E OIAC#MOSTIC. PROGRAM 4

PART~.
PAGE

5U27TS 4&

LOSO 3340 STANDALONE MICROCODE LOAOEA MOD l2 - 37'41

LOSO 3340 STANDALONE MICROC.OOE LOADER MOO 12 - 37"1

EaR. LOC OBJECT CODE

AO&a STttl SOURCE STATEMENT

£RR LOC OBJECT CODE

·DOR STMT SOURCE STATEMENT

0385 F3 C4 7E
0388 31 C5 0730 03&C 31 CS 0734

03CO C.2 01 0917
03(.4 ~ 00 093.S 03C8 3C 00 09~
03CC 3C 00 0939 0300 CO B't 0617
0304 31 C5 0740
0308 lC 01 093A 01
0300 C6 07 0.077
03H 31 C5 073E 03E5 31 C.5 075A 03£9 31 C5 0744
03£0 02 01 02
(13F0 10 Ff 00 03B CO 01 Ola:

03F7 3,C 06 0.'9·8 03f8 3C 80 0939 03fF 3C 80 093A

0403 co 87 06-63

0401 0£ 00 C939 0908

·"'

0400 36 20 0939

6411 co 90 0403

s 041 3C 02 0'938
0419' ~ 80 0939
04U> JC. O& 093A
0421 co 87 0663
0425 3A 20 OCJ:i9 f.M.2-9 CO 81 06U
04ZD 3A 01 0939
0431 3:C &f= 09U 0415 CD 87 0663

323 ................*************************************···················i

324 · 325 ·

MJCRO-PROCESSOR INlTIA.l.llATION

· *

326 *

·

32T **.._***·****************·******6·*********·*******************·*******

328 ·

329 ·

HALT MICROPROCf:SSOR

3'38 ·

331 RPHLT SIO

RESET ANO DISABLE 3340 INTRPS

332 · 333

LIO K04,x·c5 ·

SET KO AND K4 (HALT IOP)

334

LIO K034,X'C5'

SET K3 (CLOCK RESETI

335 *
336 --~~~~~---

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

337' ·

RESET EXTERNAL REGISTERS

338 ·
n9

LA EXT8L,XR1

POINT TO EXT REG ADOR TA8t.E

340 · 341

MVI c,o

CLEAR OP REG

342
* 343
~ EllTRST

f4VI .v.o
MVI CR,O

C ANO Y FIELDS CLEAR OP REG CR FIELD

345

8

LOP

LOAP OP ~-~

346. 347
* 348
349

LIO LEXTZ, X'C5' MVC v,u2 ,XRU

R4-R7 _;'--~TERNAL ZONE REG EXT AODR & DATA -> OP CR t Y

* 350
3Sl 3'S2 3S3

8

LOP

LIO LEX l' AR , X1 C5 1
LIO LALUO ,x·cs·

LOAD OP REG
R3-R7 --> EXT ADDR REG tEXTAR) OP REG Y --> A REG -> D REG

3-54
3SS *
3'%
* 357
35'8 359

LIO LEXT,x·cs· LA 21,x1n1 ,xR1 Ctl OC,XRlhX'fF' SHE EXftST

0 REG --> EXTERNAL REG ADVANCE EXT ADDR TBL POINTER
LOOP UNTIL
ENO or ADDRESS TABLE

336610 .-......~~~~~~~

~ *

RESET MOOE BUFFER

383 .. :!64 365 366

MVI c,x·o61
MVI cR,x·so· MVI v.x· ao·

BUILD ·SMODE 1 MICRO-INSTRUCTION

367 ..

368' MBR.ST

B

UOP

EXECUTE '$MODE' l~STRUCTION

369 .,

370

ALC CR& 1) ,FCl~

ADVANCE MODE BUFFER ADDRESS

371 ·

3-72

TON CRtBI T2

LOOP UNTIL ALL MODE SUFFER

373

BF MBRST

LOCATIONS HAVE SEEN RESET

------------------------------ 374.

* 375 ..-.~--~~--~~~

376

INITIALIZE ADDRESS LOCAL. STORE (ALS)

3T1 · 378
,31.9 *
~fll Al.Sl.D 382

MVI MVI

Cc,Rx,·xo·za·o·

M\11 v,o

e

UCOP

BUILD 'SABI'
MICRO-INSTRUCTION
SET EVEN A.LS LOCAHONS TO X1 ~0 9 , EXECUTE '5ASI· INSTRUCTION

383.

3f;K

SBN CR1lHT2

SUILO 1 SADr 9 MICRQ->.!NSTRUCTION ·

HS

B

lXOP

EXECUTE ·SAD!' INSTRUCTION

386.

3&'1

SSN

SETUP 000 Al.S ADDRESS

388.

389

MVI

399

s

SET OOD ALS LOCATIONS TO Xqu: ·
EXECUTE ·SADI· INSTRUCTION

043-9 3-8 20 0939
0430 co 87 0663
0441 OE 00 0939 0905 0447 38 20 0'93~ 0448 CC 90 Oltl 0
044F 3t 03 0938 0453 3C 80 0939 0457 3C 00 093A
0458 co 87 0663
045F OE 00 0939 0905
0465 38 20 0939
046.9 co 90 0458
0460 3C 00 0938 0411 3C 00 0939 0475 3C Sf 093A
0479 co 81 0677
0470 31 C5 075A
0481 31 cs 0752
0485 3C 00 093A
0489 co 87 0677
0480 31 C5 075A
04fitl 31 C5 0748
c 0495 31 5 0730
04t99 31 t5 072t
0490 31 C7 072E 04A l 30 C. 7 09~0 04A5 30 F7 0940 04A9 CO 01. 04EB
04AO 31 C5 0732 0401 31 cs 0750
0485 31 C5 07~ 0469 31 C7 0736
0480 30 c 7 0940
04C1 30 Al 0940 04C5 CO 01 04E8
04C9 3l Cl 0742
04CO 30 C1 093E
04Dl 31 C7 0736 0405 30 C7 0940
0409 OD 01 093f 0903 04DF.CO 01 04tE8

391 · 392 393

SBf CR.BITZ

8

LXOP

8Ull0 ·SABI' MICR0-1NSTRUC110N EXECUTE ·SABI· INSTRUtTlOH

394 ·
395

Alt CR.Ut.ONE

AOVM'ICE ALS AOORESS

396 ·
397
398

UN CA,&112

BF

Al.SLO

I
LOOP UNTIL All ALS LOCATIONS HAVE 6EEN.IMIT1ALIZEO

* - - - - - - - - - - - - - - - - - - - 399.
* itOO
ltOl

INITIALIZE ZONE LOCAL STORAGE CZLSt

402 · 403 404
405

MYI c.,x·o1·

MVI
MV!

yc.,Rx,·xo·oe·o·

8UI·LsOz1·
·MICRO-INSTRUCTION

lt06 ·
407 ZLSLD
408 *
409

8

LXOP

IU.C CRU) eONE

E7.ECUTE ·su· INSTRUC.TIOH
ADYAHCE ZLS ADDRESS

410 ·

411

TBN CR 1 BIT2

412

Bf ZLSLD

LOOP LWTIL ALL ZLS
LOCATIONS MAVE 9EEN RESET

413 ·

41~ -------~~~~~~~~~--~~~~~~~~--~----~~----·~------

415 ·

INITIALIZE INDEX. CSARe ANO ADDRESS COMPARE REGS

416 ·
417
418 419 420

MVI c.o

"VI MVI

C.R,O
v.x·eF·

8

LOP

xx··oooo··

~>
->

OOPPRERGEGcac

INDEX VALUE --> OP REG Y

LOAD OP REGISTER

421 ·
422
423

LIO LIO

tAt.uo.,x·cs· a..umex,x·cs·

Y REG -> A REG -> 0 REG 0 1'EG -> INDEX flEG

424 · 425
426

MVI YeO

6

LOP

x·oo· -> OP REG y
LOAD OP REGISTER

427. 428
429

LIO LAlUD,x·cs· LIO u: SADR ,x·cs·

Y REG-> A REG-> DREG
x·oooc· -> tsAtt. ' AOOtl COMPARE

430 ·
431
432

LIO LIO

tRtoS.rP.,cxa·.cxs··cs·

RESET tr.2
RESET PCR LAT~H ANO I REG

,.....

433 ·

443345 o··~~---~--~·--C-H-EC-K--f-G-R--S-U-C-C-E-SS-F-U-t-.l-~lN~-lT-I-A-L-IZ-A--TI-O-N-----

.lti6 ·
437
438

LIO SIOLE,x·c1· SNS WORKN,x·a·

SENSE IDLE STATUS

439 ·
440 441

tll WORKN,X'F7· 8NE IOPERR

GO TO ERROR HALT IF lftCORRECT IDLE SEltSE

41t2 · 443 444
41t5
446

LIO kC24tX·&5'

LIO LIO

SVACC,x.·c.s·
«OY.,x·cs·

LIO SPTR, x·c7·

SET K2 \SERVICE MODEi SERVICE ACCESS CYCLE
SET K3 ICLOCK RESET I
SENSE ACCES~ POINTER REG

'"°7

SNS WORKN,x·t7·

~~8 · 449 450

Cll WOftKN·X'Al· BNc IOPERR

GO TO ERAOR HALT IF INCORRECT ACCESS POINTER

451 ·

452

LIO SAL SB ,x·c7·

453

SNS VCHU<.H-2,x ·c7·

454

LIO SINOEX,X 1 C.7·

SENSE ALSB SENSE ALSO & INDEX REG

455

SN$ WRKN,X*CT·

456 ·
457
.\58

CLC WORKN-ll2)elllUl.l.S 8N£ iOPERft

GO TO Eft:ROfl HALT IF I N£0flRECT till Aa VALUE

PROO 10 PAGE

t.OS-Ot>ATE

15.IUL16

1t ,ec Mn. 571874

PflOG ID PAGE

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC NOGRAM

LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 31~1

ER« lOC OBJECT CODE

AODR STHT SOURCE STATEMENT

C>4E3 30 Bf' 0940 04E7 CO 81 04F2
04E8 FO 6F 18
04EE CO 87 0385

459 ·

460

Cl I WORKN,X 1 Bf 1

461

BE LDCS

462.

463 IOPERr.. KRl +14,HO
* 461t

465

B

MPHLT

~66 ·

DATE

lSJUL 76

EC titO. 571874

PAU NO. PAGE

5132775 :eM Mf.INTENANCE DIAGNOSTIC PROGRAM
5

.oso 3340 ST·NDAlONE MICROCODE LOAOER MOD 12 - 3741

:RR LOC OBJECT CODE

AOOR STMT SOURCE STATEMENT

PART NO. 5132775

PAGE

SA

GO TO LOAD CONTROL STORE IF SUCCESSFULL INITIALIZATION
*** HALT 04 ***
GO TO RETRY

04F2 OC 01 093C 0~03

04F8 CO 87 05F4

04FC 78 60 00

04FF 78 80 00 0502 f2 90 2E

0505 OC 02 093A 0903

0508 CO 87 061C 050F CO 87 0630

0513 OD 02 093A 0936
0519 F2 01 82

OSIC OC 02 093A 0915

0522 CO 87 061C
0526 co 87 0630

052A OD 02 093A 0936 0530 F2 01 68

0533 lC 02 093A 02

eo 0538 38

o~3s

053C CO 87 061C
0540 co 87 0630

0544 00 02 093A 0936 l'54A F2 81 11
os1to n so oo
0550 F2 10 48

0553 7A 20 00 0556 3A 20 0938 055A CO 81 061C
OSSE OE 00 093C 0905

0564 38 80 093C
0568 co 90 04f8

056C 38 80 093C
0570 OE 00 0938 0905

0576 38 20 0938 057A CO 90 04F8

057E OC 01 093C 0903

0584 CO 87 05F4

0588 lC 02 093A 02
0580 38 co 0938

0591 co 87 0630

0595 00 02 093A 0936

446689 *········*******·························································

1;10 ·

LOAD CONTROL STORAGE WITH ATTACHMENT MICROCODE

·

411 ·

·

4723 ·· ························*···*·········································

* 474 LDCS
475

MVC CS.AR. l2 t,NULLS

INITIALIZE CONTROL STORE AOOR

06 LOCSOl 8

LC SAR

LOAD CONTROL STORE AOOR REG

477 ·

478

SBF

RESET UNUSED BITS

479 ·

480 4Ul 482 · 483 484 · 485 't86 487 ·

TBN 0( tXRl le81TC Jf LDCS02

f4VC OPREGC3,,NULLS

8

WRCS

B

ROCS

BRANCH IF NOT CQfl~TROL STORE DATA AREA
MOVE ZEROS PATTERN TO OP REG
WRITE ZEROS TO CONTROL STORE ANO READ BACK

488 489 490 · 491 492 · 493 494
495 ·

CLC OPREGC31.IOPIN+2
JNE LOCS05

MVC OPREGC3 l, X3FFF

8

WRCS

8

ROCS

BRANCH IF CONTROL STORE ERROR
MOVE ONES PATTERN TO OP REG
WRITE ONES TO CONTROL STORE ANO READ BACK

496

CLC

OPREGC31,IOPl~2

497

JNE LDCS05

498 ·

499 LDCS02 500

MVC
seF

Oc,PxR·EeGo·l3112C.XR1)

501 ·

502

B

WRCS

503

0

flOCS

50'9 ·

505

CLC OPREGC31,IOPIH+2

506

JE LOCS03

507 ·

50&

TBN oc .xR11.eno

:i09
510 ·

.'T LOCS05

511

~N OC .XRl J 181T2

512

SBN Ce81T2

513

8 .mes

514 ·

515 LOCS03 ALC CSARDC U .ONE

516 ·

517

TBN CSARD,BITO

518

BF

LOCSOl

519 ·

520

SBF CSARD.BITO

521

Alt CSARBU >.ONE

522 ·

523

TBN CSARB.BIT2

52'9

BF LOCSOl

525 ·

526

MVC CSAR12) tNULLS

527 ·

BRANCH IF CONTROL STORE ERROR
GET MICROWORD FROM STG AREA RESET UNUSED BITS
WRITE MICROWORD TO CONTROL STORE ANO READ BACK
BYPASS ERROR CORRECTION IF NO CONTROL STORE fRRO~
BA.ANCH IF UROR IN DATA AREA
SET INVERT BIT ANO RE-WRITE CONTPOL STORE
ADVANCE CONTROL STORE ADOR
LOOP UNTIL ENTIRE BLOCK HAS BEEN LOAOCD
ADVANCE CONTROL STG ADDRESS TO NEXT BLOCK
LOOP UNTIL ALL
BLOCKS HAVE BEEN LOADED
INITIALIZE CONTROL STORE ADOR

* 528 LDC S04 B
529

LC SAR

530 531
* 532
533

MVC SBF

cO,PxR·EcGo(·3 i t2 ( .XRl)

e ROCS

534 ·

535

CLC OPREGC 31 ,JOPI N+2

LOAD CONTROL STORE IDOR REG GET ~lCROWORO FROM STG AREA IGNORE UNUSED BITS READ CONTROL STORE BRANCH IF NO

PROG IO PAGE

LOS-O)ATE 15JUL76 5 EC NO~ 571874

PROG ID PAGE

lDS-0
5A

ISM MAINTENANCE DIAGNOSTIC PROGRAM

lDSO 3340 ST AMDALONE MICROCODE LOADER MOD 12 - 37·ftl

ERR LOc OBJECT COO£

AOOR STMT SOUfU:E STATEMENT

0596 F2 61 07 05~E FO 6f 57
05Al CO 87 04F2
0'5A5 OE 00 093: 0905
05A8 38 &O 093': 05AF CO 90 0584
0'§83 3a 80 093' 0'587 OE 00 0938 01i05
05&0 38 20 0938
osu co 90 0584

536
537. 538 LDCS05
539 · 51+0 541 · 542 LDCS06
5,.3 ·
544
545
54t. · 547 548
549 ·
550
551 552 ..

J£ LOCS06

HPt HS.MO

B

LOCS

Alt C.SARDCll.ONE

TBN CSAR0,81TO
8f LDC SOit

SSF CS.\RO.BITO
Alt CSAR8llJ.ONE

TBN CSARB,BIT2
BF l.OC S04

PART NO. PAGE

5132775 l&M MAINTENANCE DIAGNOSTIC PROGRAM 6
LOSO 3340 ST ANOALONE MICROCODE LOADER. MOO 12 - Jlltl

PJ'.AT MO. t'AGE

5132771\ 6A

CONTROL STORE EAADR
··· KALT 03 ···
GO TO RETRY
ADVANCE CONTROL STORE AODR
LOOP UNTIL ENTIRE
BLOCK HAS eeeN TESTED
ADVANCE CONTROL STG
ADDRESS TO MEXT BLOCK
LOOP UNTIL All BLOCKS Kt.VE BEEN TEST ED

ERR LOt 06JECT CODE

ADDR STMT SOURCE STATEftiNT
554 ........................................................................

555 ·

·

556 ·

STA1\T Ml C.ROPRCIGRAM EXECUTION

·

555578 ·. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..·.

05C5 31 C5 074C C5C9 31 CS 072E OSCO 31 CS OlU
0501 oc 01 0940 0905
0507 OE 01 0940 0905 050D CO AO O.ltE8 05El 30 C5 0935 05E5 38 01 0935 05E9 CO 10 0507
05EO FO 1C 1C
05f0 CO 87 OSED

559 · 560 GO
561 562
563 · S64 565 ·
S66 GOLP
561
568 569
570 571.
512 ENOHLT
573
514 ·

ltO LIO

1RNNaMcoco,xe·.xc·sc·s·

uo RUMI01>9K 1 C5'

MVC WORkN(2)e0NE

ALC WORKMt2 I, ONE

BOL SMS

'

IOPERA. !OP ltt+

1.

,;

·cs.

TBN IOPl"+l18ITl

BT GOLP

KPL ME.HE

8

ENOHLT

INITIAL ACCESS CYCl.E RESET k REG CRUM MODE> START MICRO-PROCESSOR
INITIALIZE TIMER COUNT
t..OOP UNTIL fiillCRO-P1lOCESSOft STARTS OR TIMER COUNT OVERFLOWS

HALT EE

...

······ SUCCESSFULL C°"PLET ION ···

.......

I!!i!..

l OECAT.E.,.

1'3lJL·
stt·'Ji\

l

ft\OG ID PAGE

LOS-OfoATE

lSJtl. 76

6 Et NO. . 57181~

PROG JO
PAGE

LOS-0' 6A;
'

·

··

I
· I
;-_

· ·

·

·

·

··

·

·

·

·

·

·

·

·

·

·~

·

·

·

·

·

·

· ·

·

·

·

·

·

·

·

·

·

· · · · · · · · · · · · · · · · ·- .! · · · · · · · · · · · · · · · ·

···-·-

IBM fUINTENANCE OIAGHOSTJC P~OGaAfll

PART No. PAGE

51

32775 7

I lB

M

MAINTENANCE

01 AGNOSTIC

f»ROGRM

PAflT NO. 5132775

LOSO 3340 ST AH DAL ONE MICROCODE LOADER MOO 12 - 3741

I

PASE

7A

LOSO 3340 STANDALONE MICROCODE LOADER MOO 12 - 3741

ERR LOC OBJECT CODE

ADDR STMT SOURCE ST ATeMENT

05F4 3"t 08 0618

0-5f8 3C 00 0938

05FC OC 00 0939 0938

oc 0602

00 093A 093C

0-608 co 87 0677

OtiOC 31 CS 075A
0610 31 cs 0746

0614 CO 87 06F9

0618 co 87 0000

1ERR LOC OBJECT CODE

576 .........................................................................

577 ·

·

06 73 co 91 0000

578 ·

SVP INTERFACE CONTROL SUBROUTINES

· 1

579 ·

*

580 .....................................*··································

* 581 ·
582

' LOAD CONTROL STORAGE ADDRESS REGISTER CCSAR)

0677 34 08 06AC

583 · 584 ·

0678 31 cs 0732

585 LCSAR 586 · 587
588
589 590 ·
591 592 ·

ST

LCSARX+3, ARR

MVJ c,o
MVC CRCl t,CSAR8 MVC YU I .CSARD

e

LOP

SAVE RETURN ADDRESS
x·oo· --> OP REG c FIELD
CSARfBJ VALUE --> OP REG CR ~LO CSARCD> VALUE - > OP REG Y FLO
LOAD OP REG

06 7F 3C oa 0940
0683 OC 00 093F 0938 0689 31 C5 0940
0680 3A 02 0940 0691 OC 00 093F 0939 0697 31 C5 0940

59-3

LIO LALUO,X 1 C5'

OP REG Y --> A REG ~> D REG

5~

LIO LDC SAR, X' CS t

CS ADDR --> CSAR

595 · 596 597 ·

._. 8

GEtllADR

GENERATE STORAGE AREA POINTER

598 LCSARX B

RETURN TO CALLING ROUTINE

650909 ·..___ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

0698 3A 0 l 0940 069F DC 00 0~3F 093A Oe>A5 31 CS 0940
06A9 CO 87 0000

.... AO-OR STMT SOURCE STA'YEttENT

64t4 LXOPX

8

6'45 ·

AETURN TO CALLING ROUTINE

664't67

*--~-~~---~--~--~~~~--------~~-------------------------

·

LOAD OP ll.ESIS1'ER

6"t8 ·

M9 LOP
650 ·

ST

l0PX+3.-0ft

SAYE RETURN AOOttESS

651

LID

652 ·

SET K4 CSEAVJCE MOOE)

653
654
655
656 ·

fllVI WORKN..,A·88·

MVC LIO

WWOOA«RN-ksJNl ·-cusu..c

BUILD SYP INTERFACE CONTROL
LOAD OP REG C

657
658
659
660 ·

S8N WOftKN.,fll16 P'VC WORKN--lClleCR
LIO wcmKN-.Jt·cs·

BUILD SVP INTERFACE CONTROL
LOAD 09 REG CR

661
662
663
66it ·

SBN WORKN,,8ft7 MYC WORKtf- U U eY
LIO WO-RtUif .-X ''CS·

BUILD SVP
l~TERFACE CONTROL LOAD 0-P REG Y

665 LOPX

8

666 ·

RETURN TO CALLING ROUTINE

601 *

WRITE CONTROL STORAGE

666687 ·.__ _ __

061C 34 08 062F
0620 co 87 0677
0624 31 cs 075't 0628 3-1 c5 0756
06ZC CO 87 0000

602 ·

603 WRCS
604 ·

ST

WRC SX+3, ARR

SAVE RETURN ADDRESS

605 606.

B

LOP

LOAD OP REG

607 60B 609.

LIO WRCSl,X'C5·
LIO WRCSR,x·cs·

WRITE CONTROL STORE l EFT
WRITE CONTROL STORE RIGHT

610
6112

WRCSX
.· __ _ _

_

8 ____

_____

____

_

____

_____

____

_

____

__R_E_T_U_R_N__TO___C_A_L_L_I _N_G_

_R_O_U_T_IN__E__

____

613 *

READ CONTROL STORAGE

06AO 34 08 0600
06Bl 31 C7 0738 0685 30 C7 0940 0689 31 C1 073A 6680 30 C7 093S
06Cl OC 00 0936 0934 06C7 OC 00 0934 0940

669 ·
670.
671 SOP 672 ·
673
674 675
676 677 ·
678
679
680.

SENSE OP ll£G

ST

LIO soPC.x·c7·

SNS WDRKtt.x·a·

LIO
~s

SIOflPPCl,R..._.x1 ··.1a:··cr-e

"VC IOPt·2Ul,UlPIN MVC I OPlfll U ·tmfU(N

SAVE RETURN ADDRESS SENSE OP REG C SENSE OP ·EG CR ANO Y
MOVE VALUES SENSED TO INPUT MORK AREA

0630 34 08 0662
063'4 31 cs 0738
0638 31 C5 073A
063C 31 c 5 073C
0640 31 CS 074E

614 ·
615 ROCS 616 ·
617
61B 619 620 621 ·

ST RDCSX+3.ARR
LIO LOPC ,x·cs· LIO LOPCR,x·cs·
LIO LO··.,x·cs·
LIO cs.Ac.c,x ·cs·

SAVE RETURN AOORESS
RESET OP REG C RESET OP REG CR
RESET OP REG Y
CONTROL STORE -> OP REG

06CD CO 87 0000

661 SDPX

B

682 ·

RETURN TO CALLING ROUTINE

0644 to 87 06AD

622 623 ·

8

SOP

SENSE OP REGISTER

0648 39 20 0938 06<ftC 39 2D 093'4 0650 F2 10 OC
0653 38 ~o 0938
0657 38 20 0934
0658 c0 90 0601

624 625 626 627 · 628 629 630
631 ·

TBF C1BIT2

TB.f IOPIN,BIT2

JT

RDCSX

TBN C ,BIT2

TBN IOP!N,BJT2

BF

INVERT

GO TO_ EXIT IF NO INVERT BITS ON
AilJUST FOR
HARDWARE INVERSION OF OP REG BITS IF REQUIRED

065F CO 87 0000

632 RDCSX B
633 ·

RETURN TO CALLING ROUTINE

0663 Yt 08 0676
0667 GO 87 0677
0668 31 c5 0730
066F 31 CS 0758

* 663345 ·--------------L-O-A-D--O-P--R-E-G--A-H-O--E-X-EC-U-T-E--M--IC-R-O---I-N-S-T-R-U-C-T-IO--N--------------- ·
636 ·

637 LXOP 638.

ST

LXOPX +3, ARR

SAVE RETURN ADDRESS

639 6't0 ·
~l
642 643 ·

8

LOP

LIO K01t,x·cs· uo PROC,X1 C5·

LOAD OP REG
RESET K2- CS~RVICE MOOE1
SERVICE PROCESS CYCl.E

DATE

15JUL 76

EC NO. 511974

PROG IO PAGE

LDS;O IOATE

15.IUL76

EC NO. 57187,.

PROG 10
PAGE

LOS-0 7A

ISM MAINTENANCE DIAGNOSTIC PROGRAM

PART NO. 5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

8

PART NO. 51SZ775

PAGE

8A

LOSO 3],lhJ STANDALONE MICROCODE LOADER MOO 12 - 37'tl

LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3141

ERR Lot OBJECT CODE

AOOR STMT SOURCE STATEMENT

ERR LOC. OBJECT CODE

0601 34 08 C4JF8
0605 oc 02 0940 0911
0609 OF 02 0940 0936
ooei 38 eo 093E
06E5 38 lf 0934 06E9 OE 00 0934 093E 06EF Ot 01 0936 0940
06 FS CO 87 0000
06f9 34 08 072A ObFO OC 01 0'940 093C
0703 OE 0-0 0940 0'940 lli'09 C2 01 1000
cnco 36 01 0.940
0711 3C FE &93E
0715 GE 02 6'940 0940
one 38. 80 093£
O'llf co 10 0715
0723 36 01 093F
0727 co 87 0000

668845 686

*·*****·**'******O*A*TA**PR*O*CE*S*S I*N*G *S*t:J·B·R··O·U··T·I·N·E··S···*···············*············*·--

:i.

687.

· .

688 ·······""**************************************************~************1

689 · 690 ·

ADJUST FOR HARDWARE INVERTED OP REG BITS

691 ·

692 INVERT ST

IVRTX+3, ARR

SAVE RETURN ~OORESS

693 *

694

MYC WORKN(3)iNEGl

695

SLC WORKN(3),IOPIN+2

RESTORE

690

SBF WORKN-2.x·eo·

HARDWARE

697

S8f IOPIN,X·lf·

INVERTED

698

ALC I OF> IN( U ,WORKN-2

OP REG BITS

699

MVC JOPIN+2(2)eWORKN

700 *

* 701 IVRTX
702

8

RETURN TO CALLING ROUTINE

* 770034 ----~------~---G-E-N-E-R-A-T-E--M-IC-R-O-C-.O-O-E--S-T-O-R-A-G-E--A-R-E-A--A-D-D-R-E-SS---------------~-

705 *
706 &EHAOR ST

GENAX+3e ARR

SAVE RETUR~ ADDRESS

707 · 708 709
710 *
711 712

MVC WORKNC2> ,CSAR ALC WORKNC11,WORKN

LA

UCODE ,XRl

A

WOP:KN,XR.l

CONTROL ~TG AODR TO WORK AREA DROP LEFT/RIGHT SELECT BIT
POINT TO MICROCODE STG AREA ADO ADJUSTED CONTROL STORE AOOR

713. 714
715 *
716 GENALP
717 718

MVI
ALC
T8N
BT

WORKN-2 ,X'FE'
WORKN ( 3 ) ., WORK N WORt<N-2, SITO GENAi.P

SETUP SHIFT TERMINATOR
SHIFT CONTROL STORE ADDRESS LEFT UNTIL RIGHT
JUSTIFIED ON BYTE 80UHOARY

719 · 729

A

WORKN-1.,XRl

ADD Ao.JUSTED CONTROL STG AOOR

721 ·

722 GEN-AX

8

RETURN TO CALLING ROUTINE

723 ·

0728 0001 0720 0002
Oi'2F 8802 0731 A80Z 0733 9802 0735 0005 0737 0008
0739 OOOA
0738 0008
0730 oooc
013f OlOC
0741 0000 0743 0200 0145 OSOD 0741' OCOD
0749 com.:.
074i\ OCOE 0140 OEOE 074F 8EOE 0751 SBOE 0753 AEOE 0755 CEOE 0757 OOOF 0759 OZOF

ADDR STMT SOURCE STATEMENT

725 ........................................................................

· 726 ·
· 727 ·
· 728 ·

SYP IN~ERFACE COf4TROL COMSTAMTS

7Z9 **to··*******"'**'*'*******·*******·************·················**********

730 ·

072t 131 RSPCR

DC

Xl2'000l'

072E 732 RNMOOE DC KL2'0002'

072E 733 SIOlf 0730 734 K04

EQU RNMOOf

cc

ltl2 1 6802'

0732 735 K021t

DC

Xl2 11 A802 9

0714 736 K034

DC

Xl2'9802'

0736 737 SPTR

DC

Xl2'0005'

0738 738 LOPC

DC

XL2'0008'

0738 739 SOPC

EQU LOPC

0738 740 SINOEX EQU SGPC

073A 741 LOPCR

DC

ll21 000A1

073A 742 SOPCR EQU LOPCR

one 743 LClPV

DC

073E 144 lEXTAR DC

xXt.l22·'o0o0o0c8·'

0740 745 LEXTZ

oc

XL2 1 010C'

0742 746 SALSB DC XL2 1 0000'

0744 747 LEXT

DC

Xl21 020D1

0746 748 LOCSAR DC 0748 749 LCSAOR DC.

XL2 1 08001
XL 2·ocoo·

074A 750 RUNIOP 0( Xl2 1 000P

074C 751 INACC

DC

XLZ'OCOE'

074E 7S2 CSACC DC Xl2'0EOE'

0750 753 SVACC

DC

l«.2' &EOE'

0752 754 llNOEX DC

XL2'880E'

0754 755 WRCSL DC Xl2·AEOE'
0756 7~ WRCSR DC n.2·ceoe·

0758 757 PROC
075A 758 LALUD

DC
oc

XL2'000F' XL2'020F 1

RESET PCR LATCH ANO X REG RESET K REG CAUN MODEi SENSE IDLE STATUS SET KO ANO K4 (HALT IOP>
SET K2 (SERVICE MOOEi SET Kl CClOCK RESET) SENSE ACCfSS POINTER REG LOAD OP RcG t SENSE JP REG C SENSE INDEX REG LOAD OP REG CR SENSE OP REG CR LOAO OP REG V
R3-R7 --> EXT AODR REG CEXTARI
R4-R7 ~> EXTERNAL ZONE REG
SfMSE ALSB
0 REG --> EXTERNAL REG
LOAD CSAR LOAD CSAR AND AOOR COMPARE !lEG
START MICRO-PROCESSOR
INITIAL ACCESS CYCLE
CONTROL STORE --> OP REG
SERVICE ACCESS CYCLE LOAD INDEX REG
WRITE CONTROL STOilE LEFT
WRITE CONTROL STORE RIGHT SERVICE PROCESS CYCLE
OP REG Y -> A REG - > D REG

759 ·

~........
.~-

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · ··· ···· · P1tOG ID PAGE

LOS-O!OATE 15JUL76
8 EC NO. 511874

PAOG 10
PAGE
std

· · · · · · · · · · · · · · · · · ·~ · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM

PA«T NO. 5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM

PAGE

9

LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 37~1

ERR LOC OBJECT CODE

ADDR STMT SOURCE STATEMENT

LOSO 3340 STANDALONE MICROCODE LOADER ~00 12 - 37~1

ERR LOC OBJECT CODE

AODR STMT SOURCE STATEMENT

0880
0880
0900 00000000 0904 0001 0906 0002 0908 0003 090A 0004 090C 0008 090E FFFFFFFF
0912 Fl
0913 03FFFF
(}916 10

0880 08FF
0903 0905 0907
0909
0908 0900
0911
0912
0915
0916

. 761
762 763

***************C*O*N*ST*A*N*T*S*A*N*O**R*ES*E*R*V*ED**S9T*O·R·A·G··E···A··R·E··A·S············*************

~·

776665 ********·********************~*******************·····~···~··*··········

767

o~G

768 INPUT EQU

*x·osao·

RESERVED FDR CARD READ IN AREA

-7n6o9 ·

DS Xll28

771 NULLS DC .ttxu ·oo·

772 ONE

DC

ll29 l'

773 TWO

DC Il2'2'

114 THREE

DC

Il2'3'

775 FOUR

DC

ll2'lt'

776 EIGHT

DC

IL2'8'

777 NEGl

DC

1L41 -1·

778 ·

* 779 01
780

DC Cll'l'

781 X3FFF

DC

Xl31 03FFFF 1

782 XlO

oc Xll'lO'

CS DATA AREA TEST PATTERN

783 ·

7648 FFFFffffFFffFfFF 7650 FFFFFFFFFFFFFFFF 7658 FFFfffffffffff Ff 7660 ff FFFFFFFFFFFFFF
7668 FFFFFFFfFFFFFFFf 7670 FFFFfFfffFFFfFFF
7678 FFFFfFFFFFFffFFF 7680 fFFFFFFFFFffffff 7688 Ffff FFFFFFFFFFFF 7690 FFFFffffFFfFFFff 7698 FFFFFFFfr~FF~FFF
76AO FFFFFFFFFFFFFFFF 76A8 FFFFFFFFFFFFFFFF 7680 FFFFFFFFFFFFFFFF 7688 FFFFFFFFFFFFFFFF 76CO FffFfffFFFfffFFF
76C8 FFFFFFFFFFFFFFFF 7600 FFFFFFFFFFFFFFFF
7608 FFFFFFFFFFFFFFFF 76EO fffFFFFFFF~fFFFF 76E8 FfFFFFFFFFFFFFFF
76FO FFFFFFFFFFFFFFFF

820 820 820
820 820 820 820 820
820 820
820 820 820 820 820 820 820
820
820
820 820
820

0917 2080
0919 2000
0918 2f00 09lC 3300
091F 2500
0921 238.F 0923 2300
09.25 2780
0927 2700 0929 3FOO 092B FF

0917 0918 091A
O~lC
09le 0920 0922 0924
0926 0928 092A 0928

78.1-. EXTBl 785 i-:TR
786
787 SCN
7&8 DXC
789 FTG
190 DST
791
792 FHF 793
794 seo
795 796 ·

* EQU

DC

Xl2'2080·

DC Xl2'2000'

DC

Xl2 1 2A>O·

DC

Xl2'330C·

DC

Xl2'2500 6

DC

XL2'238F 1

oc

XL2'2300'

DC

Xl2'2780'

DC

Xl2'2700 1

DC

Xl2' 3fOO·

DC

Xll 'FF·

EXTERNAL
REGISTER ADDRESS TABLE
TERMJNAtOR

76F8 fffFFFFFFFFFFFFF

820

7700 FFFFFFFFFFFFFFFF

820

7708 FffFFfffFFFFFFFF

a20

7710 FFFFFFFFFFFFfFFF

820

7718 FFFFFFFFFFFFFFFF

820

7720 FFFFFFFFFFFFFFFF

820

7728 FFFFFFFFFFFFffff

820

7730 FFFFFf FFFFFFFFFF

820

7738 ffFFFfFFffFFFFFF

820

7740 fFFFFf FFFFFFFFFF

820

7748 FFFFFFFFFFFFFFFF

820

7750 FFfFFffffFFFFFFF

820

7758 FFFFFFFFFFff.FFFF

820

092-C 00

092C 797 IND 798 ·

DC Xll'O'

PROGRAM INDICATORS

7760 FFFFFFFFFFFFFFFF

820

7768 fFFff FFFFFFFFFFF

820

0920 C6ClFO

092F 799 FAOIO DC CL3 1 FAO·
800 ·

MICROCODE SECTION ID

7770 FFFFFFFFFFFFFFFF

820

7778 FFFFFFFFFFFFFFFF

820

0930

0933 801 SEQ 802 ·

OS

CL4

CURRENT CARD SEQUENCE NUMBER

7780 FFFFFFFFFFFFFFFF 7768 FFFFFFFFFFFFFFFF

820 820

093-4 0938
0938

0934 0937
093A 0938 0939
093A
093C
0938 093C

803 IOPIN
&04
805 *
806 OPREG
807 c
808 CR
* 809 y
810 811 CSAR
812 CSARS
813 CSARO 81.lt ·

eou ·

OS

Xl4

OS Xl3 EQU OPREG-2 EQU OPREG-1
EOU OPREG

OS XLZ
EOU CSAR-1
EQU CSAR

COMMON IOP SENS~ DATA STQaAGE AREA
OP REG DATA STORAGE AREA OP REG C BYTE
OP REG CR BYTE
OP REG V BVTE
CONTROL STORE ADDRESS
CSAR BLOCK BYTE CSAP. DISPLACEMENT BYTE

7790 FFFF~FFFFFFFFFFF

820

7798 FFFFFFFFFFFFFFFF

820

77AO FFFFFFFFFFFFFFFF

820

77A8 FFFFFFFFFFFFFFFF

820

7760 FFFFFFFFFFFFFFFF

820

7788 FFFFFFFFFFFFFFFF

820

77CO FFFFFFFFFFFFFFFF

820

77C8 FFFFFFFFFFFFFFFF

820

7700 FFFFFfFFFFFFFFFF

820

7708 fffffFFFFFFFFFFF

820

77EO FFFFFFFFFF~FFFFF

820

77E8 FFFffFFFFFfFFFFF

820

0'930

0930 815 WORK
OMO 816 WORKN
817.

· EQU
OS XU·

GENERAL PURPOSE WORK AREA

77FO FFFFFFFFFFFFFFFF

820

77F8 FFFFfFFFFFFFFFFF

820

7-600

BUt

ORG X1 7600'

7600 &19 PATCH 760-0 Ff=f'FrFF'FFFFFFFFF 7l'Ff 820

* EQU

DC

5l2Xl1 1 FP

MICROCODE PATCH AREA

7608 FffFffFffFFFFFff

820

7610 FfFFf'.FF"FFFFFflFFf

820

7618 FFFFFFFF.fff'FFPFF

820

7620 FFFFFff.fFFFFFFPt=

820

1428 FFfFFFFFFFFFFFff

820

7630 FFfFFt=fFFFFFFFFF

820

1638 FfFfFFf'FffFF~Fftf

820

1611-0 FFFfffFFFFFFFFF'F

820

·OA TE

l 5JUU6

EC '40.. 571814

PROG 10 PAGE

LOS-OtoATE 15JUl76
9 EC NO. 571871t

PAtlT HO. 5132115

PAGE

9A

..

PROG ID
PAGE

IBM MAINTENANCE DIAGNOSTIC PROGRAM LOSO 3340 ST AfltDALONE MIC.ROCOOE LOADER MOD 12 - 3741

PART NO.
PAGE

)
5132775 IBM MAINTENAtfCE D!A~STIC PROGRAM 10 ~
· LOSO 3340 SlANOALONf MlCROCOOE LOADER MOD 12 - 3'141

PutT HO. 5U21'7S

PAGE

lOA

ERR LOC OBJECT CODE

AODR SHIT SOURCE STATEMENT

CROSS-REFERENCE

822 823
· 824
· · 825

******************************·**********************: ****** *********** SYMB Ol

·)

SYMBOL DEFINITIONS
*

* AINPUT
ALSLO

T LEN
A 001 A 004

VALUE
0107 0410

DEFN
0077 0381

REffttENCES
0085 0398

0001 0002 0008
006F 0003 0076 0057 0018 OOSD 0038 007<:
0080

888888823322327109628A*·X·X.*RRR.*R2l*******EEE*QQQ*UUU****xLxX*O··'*ooCO*zAala*·L·**S*T*O*R*E**R*E*G*I*S*T*E*R*SAII*NND*DDD*EER*XXE*S*RRS*EE*GRG*EII*SSCTT*AEE*LRR*L**2Rl *E*G**lC*U*R*R*E*N*T***L*E*V*E*L*)**)))ABeABARI2nlTRiloZl

c 001

A 006

A 006

c. 001

c c

001 001

* 833
883345 836
837 838 839 8«t0 841 842

·

*---~-------~--H-A-L-T--I-D-E-N-T-I-F-I-E-R-S---------------------------------------

·

HO

EQU X'6ft

Hl

EQU x·o3·

H2

EQU x· 76·

H3

EQU x·s1·

H4

EQU x· 1e·

HS

EQU x·so·

BIT4
)BIT6
8IT7
BOOTS
· BOOTl )SOOTlA
SOOTlE
, BOOTll
)c

c 001 c 001 c 001
A 004
A 003
A 003
A 003
A 002
A 003

*-------------------------------------------- 843 ttH
844 HE
845 *
* 846
847 848.

EQU X'38'
EQU x·1c·
PROGP.A~ INDICATORS

, COEXIT A 004
JCOREAO A 004 CKCARD A 004
, CK10 ,. 005
JCt<.REP A 004 CKTYPE A 004

S49 SEQCK 850 ·

EQU x·eo·

CARO SEQUENCE tK INITlATEO

CLRSTG A 003 JCMPRS A 004

0008 02A6 02AC 0080 0040 0020
0008 0002 0001 0000 0008 OOOE 0048 0052 0938
Ol't7 OHlO 0240 024E 0181 02C4 0204 028F

0832 0209 0210 0854 0855 0856
0857 0858 0859 0022 0024 0026 0046 0049 0807
0099 0075 0161 0168 0121 022.2 0137 0200

0078 0585 0603 0615 0637 0649 0671 0692 0706 0202· 0203 0206 C214· 0216 0203· 0270 0213 0480 0508 0517 0520 0541t 0547 0711' OlltO
0372 0384 0392 1397 0411 0511 0512 0523 0550 0621t 0625 0628 0629
0319 0657
ne1 0569 0661
0020 0021 0042 004~ OOltl
0030 OM-3 0028 0039 0032
0270 0285· 0286· OZ92· 0295· 0296· 0302· 0301· 0341· 03649 0378· O#tOI* 0417· 0500· 0512· 0531· 0587· 0624 0628 0654 0078· 0095 0074 0075 0112 0126 0866 0154 0157 0164 0114
0179 0141
0182

ooao
0040
0020 0008 0-002 0001

* 851
852 853

·-------------------------------------------------:-----
BIT POSITION SYMBOLS
·

C..POl
,CR

854 BITO

EOU x·eo·

855 &ITl 856 81T2

EQU X'4<P
EQU x·20·

857 81T4 858 BIT6

EQU x·os·
EQU x·oz·

859 BIT7

EQU x·o1 ·

860 ·

861 ...___

CSACC CSAR lcsARB CS ARO
) l>OSI 0 DST DXC

4 006 A 003
A 002 A.002 A 002 A 002 ,. 003 A 002 A 002

0297 0939
074E 093C 0938 093C
0108 0922 091£

0203 0808
0752 0811 0812 0813 0079 0790 0788

0217
0276· 0344· 0365· 0370· 0372 0379· 0394· 038.,. OJ9Z- 03959 0391 0409· 0411 0418· 05-88· 0658 0620
02%· 0263· 0474· 05.26· 0708 0812 0813 052111< 0523 0548· 0550 0588 0273 0515· 0517 0520* 0542* 05ltlt OM.,. 0589 0083 0102

°"~

r-
~·

0880 0-804 GOFF 1000
lFFQ fFff

862. 863 · 864 REC 865 RECN

- - - - - - - - - - - - - - - - - - - - - - - - Dl

A 001

OTHER REFERENCES EXTERNAL 70 THIS SECTION

)EIGHT A 002

EQU INPUT EQU REC+84

LOAO SUBROUTINE INPUT AREA
ENI) Of MJ(QOCODE TEXT RECORD

ENOHL T A 003
) EOJCHI< A 003 ERR A 003

866 LDWORK EQU COREAD-1

TEMPORARY STORAGE LOCATION

fXTBL A 001

** * * * * * · c 867
868 869 870
811
872
873 874
875
876
8?1
878 8'19
880
lttH 88l
.Hl 862

UCODE · ·
·
· NOTE · · ·
*
·
·

EQU x·1000·

ATTACHMENT MICROCODE STORAGE AREA

EXTRST
REH )FAOIO
FHF

NOTE · NOTE · Nil! E · NOTE

NOTE · NOTE

NOTE

NOTE

,FOUR FTG
NOTE FTR

FIXED LOCATION X'lfFA· AND X'lFFS' MUST CONTAIN x·o200~ BECAUSE FE0(1442) AND FDOC2560l LOADERS PICK UP THE ST~RTING ADDRESS OF THIS PROGRAMlWHICH IS 1 0200 1 ) FRrn4 THESE
LOCATIONS.

ORG DC

X1 1FFA1 Xl..2'0200'

,FUNBTl GENAOR GE'iAlP
· GE'lAX
GG GOLP
HE

HO

HO

A 004 A 003 A 002 A 002 A 002 A 002 A 002 A 004 A 006 A 004 A 004 A 006
001
c 001 c 001 c 001

H2

c 001

0912 0900 OSEO 0135 0148 0917
03CC
09ZF 0926 0908 0920 0918 0058 06f9 0715 0121
osc:s
0507 OOlC
0038 006F
0003 0076

0779
0176 0572 0093 0101 0784 0344 0799
0792 0715 0789 0785 0052 07'16' 0716 0722
0560 0566 0844 084:! 0837
08~B
0839

0176 0292 0513 0097 0081 0339 0359
0168

0091

OJ70

0025 0237 0264 0718 0106tl

0596

0570 0512 6046 0186
0186 0193

0572 0101 0193

0463

0538

H3
·"H45

c 001 0057 0640
c 001 0016 0841
c 001 0050 0842

0538 0463
0046 0101

10£RR A 003 0279 0186

0169

.INACt A 002 07/fC 0751

OS60

IND A 001 092C 0797 0171· 0188

· · ··· DATE ls.Nl.'16
EC "9. Sl'l &'4

fflOG ID
~AG£

lOS-0.0ATf l5JtJL16
10 EC NO. 571814

MUG ID t>AG£

· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·

IBM MAINTENANCE DIAGNOSTIC PROGRAM
LOSO 3340 ST ANOAUJNE lllCflOCOOE l OAOER MOD 12 - 3741

PART Ntl.
PAGE

I
5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM 11
'LOSO 3340 STANDALOME MICROCODE LOAOER MOD 12 -

3741

PART NO. .5132715

PAGf

U.A

CROSS-REFERENCE

CROSS-REfERENCE

SYMBOL T LEN VALUE OEFN

INPUT A 001
INVERT A 004
IO PERR A 003 IOPIN A 001

0880 0601 04EB 0934

0768
0692 0463 0803

IVRTX A 004

K024 A 002

K034 A 002

K04

A 002

LAlUD A 002

lCSAOR A 002

LCSAR A 004

lCSARX A 004

LDAOOR A 002

lOCS A 006

LDC SAR A 002

lOCSOl A 004

LDCS02 A 005

lOCS03 A 006

LOCS04 A 004

LOCS05 A 003

lDCS06 A 006

LOS

A 001

LOWORK A 004

lENCTl A 002

LENCT2 A O~

lEXT A 002

lEXTAR A 002

LEXTZ A 002

LINOEX A 002

LOAD.flt A 004

LOP

A 004

LOPC A OOZ

lOPtR A 002

LOPX A 064

LBPY A 002

LPTON:E A 004

l ~OP A 004

LXOPX A 004

KBR ST A 004

MOVE A 005

KPHLT A 003

NfGl A 004

"EG4 A 002 NEXTC A 004

"EXTR A 004

NULLS A 001

fil

A 002

OHE

A 002

OPR.EG A 003

06F5 0732
~734
0730 075A 0748
05F4 0618
OlFO 04F2 0746 04F8
0533
osse
0584
OS9E 05A5 0000 OOFF
00~
0152 07""4 073£
07~
o0z7o5oZ
0.077
0738 073A
96A9
073C 0171
0!>63
0673 0403 0178 0385
6911 0158
0159 0163
090~
tHS6 0905
0934

070! 0735 0736 0734 0758 0749
0585 0598 0126
~174
0748
6476 0499 0515
0528 0538 0542
0007 0866 0050 0104 0147 07"4 0'745
8o7u5s4
0649
9738
07~1
0665 0743 0117 0637
0644 0368 0119 0331 07'17 OUJ7
0109 9112 0171 0106 0772 0806

PATCH A 001

PROC A 002

ROCS A 004

RDCSX A 604

RcAf;) A OM

REA.Oat A 604 AEADl A OOlt

«EC. A 001

REC.ff A 001
a£PfAO AOQ4

ttt:PX A 80~

RtiPOl A OO:J

REP0.2 A acJ5

REl>OS
REP06

A· o0e0s5

7600 0158 06!M)
065f O.Z3C.
0216 0222
Hao
a0380054
03.A6
0309
GaOF
a~i· ~36

DATE l,,,..'1.
EC NO.. 51'1&74
t-·

0819
9757
0615 0632
0159
0146 1)150
0864 M65 0258
0317
8260
8265 026e
ra1'9

REFERENCES

SYMBOL T LEN VALUE DEFN ReFE?.EHCES

)

0076 0152 0153 0156 0161 0864 0630 0441 0450 0458 0567 0488 0496 0505 0535 0568* 0569 0695 0697* 0698· 0699* 0692· 0443 0651 0334 0445
0333 0431 0641 0353 0422 0428 0593 0429
0476 0528 0585* 0146
0461 0540 0594
0518 0524
0481 0506
0545 0551 0489 0497 0509 0536

0625

0629

0676· 0678

0678* 0679·

REP07 A 006

REP08 A 006

tREP09 r.. 004

REPlO A 006

REPH A 004

IREP12 A 006

REPl3 A 006

REP14 A 006

IREPlS A 005

REP16 A 003

RN'MODE A 002

lRSPCR A 002

RUNIOP A 002

SAL SB A 002

ts so

A 002

SCN

A 002

SEQ

A 0'4

ISEQCt<. c 001

SEQERR A 003

SI OLE A '102
>s INDEX A 002

SNBYTl A 002

0338 0341
0350
0358 0367
0376
one
0382 0394
03~9
072E
072C 074A 0742 092A 091C 0933 0080
0288 072E
0738 0056

0281 0283
0286 0290 0293 0300 0302 0303 0309 0311 0132 0731 0750 0746 0794 0787 0801
0.81t9
0193 0733
0740 0051

0271 0286 0281\ 0293 0291 0271 0304 0305 0298

0561 0432 0562 0452

0733

0152* 0156· 0173 0171 0188 0174 Olt31 .:'"t54
Ob26_., 0027 0029

0176· 0037· 00)8

0033
0086
0354 0352
0347
tv.23

SNB'fl2 A 002 0154 0105

tsoP

A OCJ4 06AD 0671

0079· 0080 0082 0089· 0090 0093· 0094 0096 0622

SOl>C .. 002 0738 0739

0673 0740

SOPCR A 002 073A 011t2

0675

fSOPX SPTR

A 004 06CO 0681 A 002 0736 0737

0671· Olti\6

.

SVACC A 002 0750 0753

~

hEXT A 004 0207 0233

0226

0345 0350 0611 0739
0618 0742
0649*
0619

0420

0426

0591

0605

0639

0368 0382 0385 0637· 0373
0116* 0117· 0465 0212 0694

0390

0393

0407

0044 012-0 0457 0474 0483 0526

0214 0395 0268* 0300 0808 0809 0258 0642 04&6 049.ft 0615* 0626
0146· OUM
0147· 0189

QL(09
0309
0503 0191

0515 0521 0483* 0<488
0533 0195 0228

0542 0548 0491* 0496
0234 0249

0564 0566 0499* 0505

0530* 0535

0807

TEXTOl A 004
THREE A 002
hwo A 002 UCOOE c 001
WORK A 001 ho/ORKN A 004

02EO 0909 0907 1000 0930 0940

0241 0714 0773 0868 0815 0816

WRCS WRCS!..
lWRCSR WRCSX
XRl t

A 004 A 002 A 002 A OOlt
c 001

061C 0754
0756
062C 0001

0603 0755 0756 0610 0830

XR2
t

c 001 0002 0831

~XlO X3FFF
y
tZLSlD

A 001 A 003 A 003 A 004

0916 0915 093A
~56

0782 0781 0809
0407

021\l

0246

0285

0135 0711

0281· 0283 0283· 0290 0290*

0139· 0140 0300· 0303 0303· 0318· 0319 0438· 0440 0447· 0449 0455· 0457 0460 0561t· 0566· 0653· 0654· 0655 0657· 0658· 0659 0662* 06~3 0674· 0679 0694* 0695· 0696· 0698 0699 0708· 0709 0712 0714* 0716 0716· 0717 0720 0485 0493 0502 0513

0453· 0661· 0709·

0607

0°'108

0603·

0020 0022* 0025
0038 0039 0042 0119 0135· 0137
0166 0168 011~ 0276 0279 0309 0499 0508 0511 0021 0023* OO'tO 0083 0085 0086
0117 0239· 0241
0312* 0314 0317

0026 0027 0028 0029 0030
OO't2 0043 0047 0076· 011~ 0136 0138· 0139 dl46· 0147 0178 0181 0200· 02'l5 0207 0311 0311* 0339* 0349 0356 0530 0711· 0712* 0720* 0041 0041· 0074 0075· 0078 0088 0089 0090 0093 0094
021t't 0244· 0258· 0260 0263
0317· 0318

0032 0033 0035
01.!6 0117 0118 Ollt8 0161· 0163 0212· 0241 02lt3 0356· 0358 0478

0079 0091.

o00o8n0

0081 0102

0266 0266* 0268

0037 0118· 0166 0243· 0480
0082 0116 0312

0302

0491

0279· 0281 0342· OY.9· 0366* ~381· 0389* Ot;.OS· Olt 19* Olt25· 0589* 0662

Olt12

0216
0200
0223 0261

0222 0209

0225 0233 0209* 0210

023.6 0239 0210* 0216

024t* 0&65

TOTAL STATEMENTS FLAtGEO JN ThlS ASSEM8LY c

0

·

oa20

l;

0315

0274

~

PROG 10 PAGE

LDS-OtDATE
11 EC NO ..
t
t

15JUL76 571874

PROG ID PAGE

l.OS-0
UA

IBM MAINTENANCE DIAGNOSTIC PROGRAM

LOSO

3340 STANOAlONE MICROCODE LOADER AOO 12 - 3741 CSJECT CARD LISTING

PART NO.
PAGE

THE CHARACTER IHOICATES A BLANK COLOM~ AND THE CHARACTERS 0 EH INDICATE NUMERIC SHIFT.

r l
5132775 IBM MAINTENANCE DIAGNOSTIC ~~OGRAM 12
LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 37~1
· OBJECT CARD L ISTIMG ·.CL l THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 Cl ~9 THROUGH 64

PART tfO. 513211'

PAGE

12A

Cl 65 THROUGH 80 Cl 81 THROUGti 96

CL l THROUGH 16
-··· GBK GBD PN 51
T+- :0-0 <HS tC T+-A5 XPS XR... M
.
T+-ESil/ I> /OSI <6
. .........
T &G' &

T+- I SA<BG C.8 &S

··- +-., T

5C.QA6.JO+ H

l+-<WS.WO& -.K ti

T+-tl+H Ii ltt&SAO

T+-+* U8St7

T+-tP -+'"Of.

CL 17 THROUGH 32
32774 EC 571874
3t0/l&N/0&5R8AEP A4 D+OH*AQ..,. #P} 8
....
9a4<HOH* f #P;B G OI /OH
..........·...·.
. -.;$ @-DOP hl44
. _
XB&M'N HXOHH&V37
s -<I
l+-H 0+"Ml+CD&SLT2/lG

CL 33 THROUGH 48

3340 STANDALONE

&U0_8 VP&U #3&0/

GB H Ga

SC-.

GCOA·
.·.·......·.....
8ACMA -..44 &.HVC 0

EBMG -&<El;<~H
< &U=Bt.Y+ U=BL# < -V 8LY+ U88JQ
u <JaaJ=<*HG<CG

Cl 49 THROUGH 64
LOADER - 3741
l JE!l&VL3&&CJ&SX
N&I Pl@''. 7 '"J &<P

.··.............
B IGlBG

xc

a-o

AA<BG TO· SFOHO

2H Q+ USS&-.. &<
+ -V BMC Y laO 0 EA3LB &UPI l+CO

CL 65 THROUGH 80
3&0/0&VR<JBVP f.UD> C&I P7GJ..,.T7' DA &OA
···o············
C-.SY C- H5 TMCBl OABLOHS*BGA?X
C-T?-Bll< -Hl +_H BL YGI U90H*F J 3G

Cl 81 THROUGH 96

·

)t+-N4BlT /OQ·OH·

<JPM · JTYLDSOOOOl )T+-POu · 01.HS ·II· 8
· &+·. OE·lOS00002 )T+-QVU-.O-.G3. /OP

t,/ ...... 50 · lOSOOG05) T+-$0 · C ··I JOLI
· · · · · ##MLOS00006 ,T +-·J BM.. I0tat38M ·

8.--· t4C4LOS00010 )1+xo:n1tmntfiftlUUUli
A·=H· OCULDS00013) T+X$ ·"""""ttfinftfifi EA4 · · tZClLOS00014, T+X*Wtceten1aanatut1t

F< 48SLYll?HADPS
SLllAl--Bl? U 0
.
_t -FF30 BL-< u
:<·Mlt.<BG ~a$ l CT?-Bl8#GOU4C-
· +H IIS &AlM6 &U
+c- c -a
...""................,
nnnastu11etHUHlll'!1tti,Hi!
etfl RftU1lU1'fffi W~UHftE · ·

IH&K7Y- C'f-8LT O<*MGLCGEA28ll&)
.

/OQ·C- 11 UE+H
.
< -u:sts2-t~oss~
-.
HC 01& UEC-01& U

. 11 <BUI-I- uac-
/OL2C- I I UE+-H
-·
EOH 0:3CEBL"8 CU

I +OU 8 OL.DS00021 II< 3:0tOS00022
.. -
SOA iH*lDS00023

98U< U:Bt3 /OR

C&HAS111 /OR

.

. <+8 l+C~Bll U S JOH* 8tOLDS00025

C&HAO~ll&*21 - I& 0 Blal+CGE&M

... . . -v C 11 OU9<*" 1tCY 5ZOLOS00026

&<··G+CCGBM 110* :<<·l·&O BLQIC 0

8l&l£<BG

. ~8 s ec H fJHLDS0002l:

I ( U«C DI (-V OH· .$ ·· ~-- · -
·OH* A HH 0-
··············@·
ww 1 _ -84 ., 0 3 &M
elHUll itftftttlilttllleW·ta·

C&HA2Y< &V &LO
BW HA& H Y BO
·..............·
. .
HGT &; 10 · ta
-··a··-e····H··

. . . + Y 8MC6 J E-0
< i.O C&HCB 4<C&
··4"·············
1SGO ..1·········· ······na···o·..·
IH'HlllWltll1UHt······
""··-w11· - · · · -

. . l&CO ·s *l.050002&
·C 8 'V4l.DS00029
.....
.....·l<LOSOOOSO 2RaLOS00031 .
···a ·i<LOS00032
. -
11·-a ·H<LDS00033
.
···a ·K*l.OS00034

ft~flftllllftttl!ll!l!llatt&Wti
II IHIU-Rff-··tttt1Ut

WttliHHHiilii'!l!IH!llHUHHHBW UIHHHltUUetHHt·amff·

--·····Mttaa·ttntc·atl
···t:·tt·····tttew··

. """ii· QS·L0$000J5
"""I ·2<toso-co36

. T+-tKG 01+-G /OR
T+-JIA <a -uattt
.
T+-«.ff'GLO,Cil-a- U

7<*MGI TC..£A5Yll&) o...oe~-.a 0 OC3CO
t+l(l &Lw /OftT+S
9 I l+~BGAW<+ U 96t~H U90l ll030

FSt-a- U'9IH l+:CB
i~tBGAW<#H U90H*

GAW<+ U9Sf.%8H U FQ08 SLUiAL--SlX

.
T+-l=&< AA+~llO)

a<<*llTGGAl-010\f

llO*><<*i&C778~C
Ct.OiiOUCO"' 00:36

:BJP /QQOOH*F< 4 BfH.YH?HAElOBBU'

DAU

15.MJl. 76

EC MO.. 571;8"14

PRGG ID PAGE

·· · · · · · · · · · · · · ·

··········fi!"G-ett-e·

Ii!; fftUHUf tffi l!'ffi-t'l---tne

·eH1tHtt111ur5111cu~etta«
.....
·-·MUIH!l!Hl-0

-w·tt·..··tt·atUUt··
-··-tt·11-·e·11···
················
·········c······

.
. ···a NKiJLOS00038
..... ·-a 7Sat.DSOOOS9
......tZ4U>SOOMO. P YLOS0004 l .

... ... . ..

··· ee········

="7Mtf I

C.

ASC R A SO Q

------~----~---------------------------·~~~~ LAST PAGE

..... 11320630750

· ·· · · · · · · · · · · · · · · LOS--CJ.DATE

15JUll6

12 ec NO· 571874

MOG 10 PAGE

· ·

· · · · · · ·· · · · · · · · ·. ,. · · · ·

I!K ftA!NT~NANCF DIAGNOSTIC PBOGP.AM

PA RT HO. 2589957

IBM !AlNTENAMCE DIAGMOS?IC PROGRAft

PAGE

1

· · · · · · · · · · ,. PlR'f 90. ?58995'7 (

!~43 5203 CYCLE STEAL & HA~MER ADDRESSING TESTS

E£E tel: OBJECT CODE

ADDR STHT SOUP.CE STATEftENT

E043 5203 CYCLE STEAL · H~"ftER ADDR!SSIIG ~ESTS

ERR toe OBJECT COD!

ADDR STft~ SOURCE S?ATER!RT

HG!

1l
' ~.

OU'O EOLl3 0A02 00 OAC~ 01 OJ.Cit ~000 CA06 OAOD
0108 CID36
OlOA !05".'00

2

DECK 4

3

SEO 0

U UVWXYZ START l'AOO·

5

TREP

76 *· *****************······················································

8 *

SYSTEM/3 5203 CYClE STEAL & HA"~ER ADDRESSING TESTS

*

9 ·

·

io
11

*········S·E·C··T·IO··N··4··-··l·:W··U·T·I·N·E·S···1·&···2·····················**************1:

(\A 01

12 i3

*******D*C******X*L2**1 *E*~q*3*·***************P*R*O*G*R*A~***ID*E**N*T*IF*I*C*A*T*I*O*N**************e

OM 2 i4

DC

XL1'~'

FLAGS

OA~ 3 15

DC IL1'1'

CUPRENT BOUT'tNE NUMBEB

CA05 16

DC

XL2 1 (' ·

RESEP.VED

l'jA')7
OA 09
OAOC

17

DC

18

DC

19 SPUDT DC

AL2(P!11) IL2(ERT1) XL3 1 EOSO~C 1

ADPBESS OF FIR~T ROUTINE PP.EFIX AtDRESS OF ERROF BECORDING ?ABLE ONIT DEFINITION TABLE· PRINTER

2201

···························**********************······················

·

·

22 *

ROUTINE 1 - CYCL! STEAL "!'EST

·

23 ·

*

0A8A 30 E2 0032 0A8E 38 , 0 0032 0A92 F2 10 t)9 0A95 CO 87 t)222 0A99 F062 0A9B P2 87 D5 0A9E 39 08 OD32 0U2 F2 10 C9
ous co 87 0222
0AA9 E063
OAAB f2 87 cs
OAAE 3~ 04 0032 0AB2 F2 H' 09 OABS CO 87 0222
0AB9 Et'64
OABE F2 87 BS t)ABE 39 02 i,032
".JAC2 F2 10 09 ".'AC5 CO 87 0222 0AC9 !C65 "ACE F2 87 15

0A9A OAAA
OABA
OACA

7Q GETI! SMS

71

TBN

"12

JT

73

B

74

DC

75

J

76 CH PC2 '!'BF

77

JT

78

B

79

DC

80

J

81 CHPC3 TBF

82

JT

83

B

84

DC

es

J

86 :HHSL TBP

87

JT

88

9

89

DC

90

J

STAT2.X'E2· STAT2,B'10COO· CHPC2
HALT
XL2 1 E062·
GAVAI STAT2·e'1000' CHPC3
HALT XL2'E061' GAVAN STAT2.s·100· CHHSL
HALT XL2'E060· GAVAI
STA'I2.B·10· UPCPF
HALT XL2'!0651 GAWAW

SENSE TI!IBG Bl~!S PC1 01
PC1 lo-1' OR lP~EB BLAll ?tBtD EH HlLT PC2 OPP ~C2 ROT OFP APTER BLAIK PIELD ERR HALT PC3 orr
PC3 IOT orr AFT!B SLAIK PIELD
E~P HALT
HAl!R.S!T Ll'l'CR OPP
HAftB.SET LATCH OR APTER BLllK PI!LD FFR HAlT

OAOD 01 OlOE (W) OA~F 0687
CA11 38 Oil 0208
~115 F2 90 ')A 0A18 CO 87 021! 0A1C 42 OA 1D 10
OA 1E CD01 OA21" EOOO
0!22 C1 EO 0A29 {!A26 P2 87 11l
0A29 38 04 C208
0A2D F2 90 OA CA3C CC 87 021A
0A34 Q1 0135 1F 0~36 CD30
one roti
CA3A FO 7C 03 ".ll3D 3C 00 0037

r'.1AOD OAOE ~A 10
0A1C CA 1D tA1F
Oll.21
c ).3q
OA35 0A37 0A39

0.141 31 Ef: OC'.!8 0145 3C 1F 0A7B OU9 39 30 OAOC
~!.llD P2 10 OE
0150 30 E2 OD32 GA54 ~8 02 0D31
0A58 F2 10 OB HSB F2 87 Oi.J
015! CO· 87 0B89
~162 3C 7C 017B
0166 3C ·O- 08FF 0161 OC 63:- 09PE 08P!' ~A 70 CO 87 OCSD . 0!"74 £201
QA 76 30 E6 0034
0A"1! 3D Q() 0D3· OA7E F2 &1 09
l'1a1 cq_ 8],,_0222 t>l85 E061 ...
0 A87 i'2 87 19

0A75 0Ae6

24 ***********************************e***********************************

25 RTN1 DC

XL1 1 1 1

ROOTitlE HtJPJBER

26

DC

XL1 1 0 1

FLAGS

27

DC Al2(RTN2)

ADDRESS OF NUT P.OUTINE PREFIX

2298 ·······T·B·~N·.···S·B·Y·T·E·O··.s·s·w·o·s···········P·R·IN·T···O·N··!P·C·U························

30

JP

NRTIO

31

B

PR!NT

32

DC XL1'42'

PRiltT TITLE

3 3

DC

34

DC

35

DC

36 NRTIO TIO

IL1 ' 16 '
Al2(TITL1) XL2 1 EOOO·
BAPRT,NRDY

P~INTEa READY

37

J

38 BAPRT TBN

39

JP

TOGOON
SBYTEO.sswos
!RALT

PRINT OH MPCU sw. ON

40

B

PRINT

41

DC

XL1 1 81'

PRINT MAKE PRil'!ER l EADY

42

DC !11'31·

4 3

DC

At2 (!UKADYJ

44

DC ll2'E'E1'

45 ftRALT HPL 1 1 03',X 1 7C· 46 TOGOON MVI LPOOHT,x·o~·

HALT E1 ZF~~ LOOP COUNT

U4S7 ·*·····IS·S·O··F··?·F·IP·T···.,N··D··S·PA··C·E··W·I·TH···B·LA·N·K···D·A·TA···F·IE·L·D························*

4590 *KZ*A*HG*O**LI*O***V*P.D*A*D*P,*LP*D*AB********L*O*AD**D*AR*·W·I·T·H···V··!·!O··t·tG····A·D··D··R·.·················

51

~VI FORCE+1.X'7F'

52

TBP 3PUDT.B'110000·

100 LP!?

53

JT

SONFP.D

~~

SNS STAT2,X 1 E2'

GBAB TiftIIGS

55

TBN STlT2-1.S1 10·

56

JT LOBLBK

HBRS.IN POS. 8·1

57

J

SFOUR

58 SUPE~D B

~UDEL

59 SFODR ftV! FOBCE+1,I 1 7C·

60 LOBlNK ev1 PRDlT,1 1 4C·

61

eve PBDAT-i(132).PRDAT

POT A BLANK II PBT.AR!l

62

B

NEXIO

63

DC XL2'E201'

GO DO A PBINT & SPACE

64

SNS STAT6,1 1 E6·

SEISE DAP

65 POBCE CLI STATfi · ·-·

66

JE

GETift

DID DAR FOl!CE CORPE CT ADDR.

67

B

HALT

68

DC

XL2'E0~1'

69

~

GAiAI

DAR WRONG HALT

9912 ******I*S*S*U*E***PR**IN*T*·A·N·D··S·P·A·C·E··V··lT~H$·U··N·P·F·.I·N·T·lB··L·!·D·A·T·A··F·I·E·L·D···················

OACE
rtAD2

3oCc

PP 83

OBFF
OBFE

C8FF

')AD8 Cl') 87 0C59

!'.'ADC !201

OADr

93 94

*OP*CP*F**!V*I***PB*D*A*T,*X*'FP*1***········I·R·S··~·R·T···A·N···U·P··P·P·T·l·B··L·!··C·H··A·R·.···············

95

ftYC PRDAT-1(132) .PP.DAT FILL PPINAB!A IITH U.P.C.

96

B

110

ISSU£ A PFIH'!' & SPACB

97

DC

XL2 1 E2C1·

OADE 3' B2 OD32

{'.IAE2 38 1C 0032

CH!6 P2 10 09
01\E9 co 87 C222

OAI'D
our

F066
F2 87

81

98 99 100

OAEE

1t'1 1C2

1~3

SNS STAT2el'E2 1 TBN STAT2.B 1 10000· JT CKPC2

B

HAl.T

DC XL2'!066'

J

GAVAN

SEISE ~IftIIG BITES PC1 O·
PC1 1fOT O!i lPTEB UPC PIELD
!RP. HALT

t

0AF2 38 08 OD32

10q CKPC2 TBR STA72,B'1000 1

PC2 01

"AF6 F2 10 {19

105

JT CKPC3

0AF9 CO 87 0222 OAFD !067

OAFE

106 107

B

HALT

DC

XL2'!~67·

PC2 ROT 01 AFTER OPC PIZLD EBP. BltT

CAFP F2 87 71

108·

J

GAVAJ

0802 39 ~4 0032 CB06 P2 10 09

109 CKPC3 TBF STA~2.B·1~0'

110

.JT

CKHSL

PC3 OPP

0BC9 c~ 87 "222
()MD E068 OBQf F2 87 61

111 OBOE 112
113

B

HALT

DC IL2 1 E068'

J

GAWH

PC3 Off APTER UPC PIBLD FIB BllT

0E12 39 1)2 OD32 0B16 F2 10 09

11U CKHSL TBF STlT2eB'10 1

115

JT GUDPF

Rl!l.SE~ tlTCB OP

OE19 C1' 87 1)222 f)B1D E069 CIB 1F F2 87 51

CE1E

116
117

118

B HALT

DC

IL21 EC691

d

GlWAI

HARB.SET LATCH 01 APTER UPC FJBLD !RBOR HALT

········**·*··**·· 119
120

.* .

.

.

.

...... ISSUE

.. A

...... PP.!NT

.... AND

......
SPACE

.~····················· . . WITH PBIRTlBLF DATl PIZLD

·

~B22
~826
OB2C

3c oc co

ca
83
87

C'SPF OBFE
0C59

OSFF

0B30 E201

0B31

121 ........................................................................

122 GODPP ftVI PRDAT,C'B'

123

ftVC PRDAT-1(132),PBDAT

IRSERT ll'B' PBOPlGlTE lT

12 fl

B IIO

125

DC

IL2 1 !201 1

I SSOE l PRI l'1' g SPlCB

0B32 30 E2 0D32
~E36 38 ,,,, "D32
OB3A P2 1C 09

126

SNS STA'!'2,I 1 E2'

127

TBN STAT2.B 1 10000·

128

JT CHIPC2

SEISE TlftlffG BITES PC1 OR

~B3l" CO 97 0222
OB41 E06A
0S43 F2 87 2D

129 0842 130
131

B

8 ALT

DC XL2'E06A 1

J

GAVAll

PC1 liOT Olf ll"l'Elt PR'l &BL B PIEL)) EBR HltT

091.l6 '38 08 0!>32
l'JE4A F2 10 09

132 CHKPC2 TBN STAT2.B'1000·

133

JT CHKPC3

PC2 01

0B4D CO 81 0222
0B51 F~6C
1-1B53 F2 87 1D

134
0B52 135
136

B

HALT

DC

XL2'E0fiC 1

J

GHH

PC2 WOT OM AFTEB PBTlBLB FIELD
EBR Bl.LT

'JB5fi 38 04 0D32

137 :HKPC3 TBN STAT2.B 1 100·

PC3 01

l\l TE

25AUG69

re 110. 8161185

11rUY70 8166°71

0110'10 8167611

28MOY75
572259

PBOG ID PAGE

0E04-3 1

DATE 25AOG69 EC BO. 816fl85

1HIU7C 816671

01NOY70
816764

28HOY75 572259

PROG ID PlGE

1111111
"

IBM MAINTENAHCF D!AGNOS!IC PROGRAft E043 5203 CYCL~ STEAL & HAMMEF ADDRESSING TESTS

PA RT NO. PAGE

2589957 2

!BF toe OBJECT CODE

ADDR S~MT SOURCE STATEMENT

OBSA F2 10 (19
0B5D Cl) 8"7 0222 0Bfi1 EOf'E 0B63 F2 87 OD 0B66 38 02 0D32
0B6A F2 10 1)6
0 BfiD C'> 87 0222 t:B71 E06F
OB73 t:r ~~ OD37 0CE2
0B79 CO 87 02 i2
0B7D 3D 14 0D37
oss1 co &2 oui
OESS CO 87 0216

OBf\2 OB72

138

JT

139

B

14