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-<lC)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